GLOBAL i
 INPUT "Enter a number ( 1,2,3 ) ", i
 
 ON i CALL  Sub_one, Sub_two, Sub_three
 ON i GOSUB One, Two, Three
 ON i GOTO Label_One, Label_Two, Label_Three
 
 END       ' VERY necessary so we don't fall into the code below 
 
 Label_One:
 PRINT "Label One"
 END
 
 Label_Two:
 PRINT "Label Two"
 END
 
 Label_Three:
 PRINT "Label Three"
 END
 
 One:
 PRINT "Subroutine One"
 RETURN
 
 Two:
 PRINT "Subroutine Two"
 RETURN
 
 Three:
 PRINT "Subroutine Three"
 RETURN
 
 SUB Sub_one
   PRINT "Sub One"
 END SUB
 
 SUB Sub_two
   PRINT "Sub Two"
 END SUB
 
 SUB Sub_three
   PRINT "Sub Three"
 END SUB

Result:

 Enter a number ( 1,2,3 ) 3
 Sub Three
 Subroutine Three
 Label Three