 |
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