Important Notice

The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.

                       ◄Example►                 ◄Contents►  ◄Index►  ◄Back►
──────────────────────────────────────────────────────────────────────────────
'This example uses the ON...GOSUB statement to cause program control to
'branch to one of three subroutines, depending on the value of Chval.
 
CLS    'Clear screen.
Attend = 20
Fees = 5 * Attend
PRINT "1  Display attendance at workshops"
PRINT "2  Calculate total registration fees paid"
PRINT "3  End program"
PRINT : PRINT "What is your choice?"
Choice:
    DO
       ch$ = INKEY$
    LOOP WHILE ch$ = ""
    Chval = VAL(ch$)
    IF Chval > 0 AND Chval < 4 THEN
        ON Chval GOSUB Shop, Fees, Progend
    END IF
END
Shop:
    PRINT "ATTENDANCE IS", Attend
    RETURN Choice
Fees:
    PRINT "REGISTRATION FEES ARE $"; Fees
    RETURN Choice
Progend:
    END