10 ' Program Name--MENU       7/4/82
20 '
30 ' Selects programs on diskette
40 '
50 '       Archie Abaire
52 '       PO Box 29157
54 '       Richmond, Virginia  23233
56 '       (804) 740-7639
58 '
60 '       July 1982
70 '
200 NUM = 5:' Number of menu items including "EXIT"
210 DRIVE$ = "B:"
220 PROG$(1) = "DESIGN"
230 PROG$(2) = "BUBBLE"
240 PROG$(3) = "ETCH"
250 PROG$(4) = "SEARCH"
260 PROG$(5) = "EXIT"
500 DEF FNXY$(R,C) = CHR$(27) + "=" + CHR$(R+32) + CHR$(C+32)
550 XY$ = FNXY$(1,20)
560 PRINT CHR$(26);XY$;"Menu"
600 FOR I = 1 TO NUM
610    XY$ = FNXY$(I+4,5)
620    PRINT XY$;I;PROG$(I)
630 NEXT
700 XY$ = FNXY$(23,1)
710 PRINT XY$;"Enter selection ";
720 Q$ = INPUT$(1)
730 IF VAL(Q$) < 1 OR VAL(Q$) > NUM THEN PRINT CHR$(7);:GOTO 700
735 IF PROG$(VAL(Q$)) = "EXIT" THEN 999
740 PROGRAM$ = DRIVE$ + PROG$(VAL(Q$))
750 RUN PROGRAM$
999 END
1000 '    ***   Instructions   ***
1010 '
1020 ' Assign program names to the variables
1030 ' PROG$(x).  Don't forget to dimension PROG$(x)
1040 ' if you go beyond ten programs.
1045 '
1050 ' In statement 200, assign the number of 
1060 ' program names to the variable NUM
1065 '
1070 ' In statement 210, assign to DRIVE$ the
1080 ' drive into which you will always put your
1090 ' program disk.
1100 ' 
1110 ' At the exit point of each of the programs
1120 ' include the statement RUN "B:MENU instead
1130 ' of END.

1100 ' 
1110 ' At the exit point of each of the programs
1120 ' include the statement RUN "B:MENU instead
1130 '