BCX Console Demonstration Program S134.bas

 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