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
Result:
Enter a number ( 1,2,3 ) 3
Sub Three
Subroutine Three
Label Three