BCXLogo   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