ON...GOSUB Statement Programming Example
 
The following program fragment causes program control to branch to
one of the four subroutines listed, depending on the value of Chval:
 
DO
    CLS
    PRINT "1) Display attendance at workshops."
    PRINT "2) Calculate total registration fees paid."
    PRINT "3) Print mailing list."
    PRINT "4) End program."
    PRINT : PRINT "What is your choice?"
    DO
       Ch$=INKEY$
    LOOP WHILE Ch$=""
    Chval = VAL(Ch$)
    IF Chval > 0 AND Chval < 5 THEN
        ON Chval GOSUB Shop, Fees, Mailer, Progend
    END IF
LOOP
END