100 REM -- MENU program by Jim Woolley, FOG Diak Librarian, 8/82
110 CLEAR
120 DEFINT I-N
130 DIM PROG$(41)
140 FMT$="##. &"
150 INPUT"Press <RETURN> for MENU",NBR
160 PRINT CHR$(26);
170 RESTORE
180 I=0
190 WHILE PROG$(I)<>"NOMOREDATA"
200	I=I+1:READ PROG$(I)
210 WEND
220 LAST=I-1:ILAST=LAST
230 IF ILAST>19 THEN ILAST=20
240 FOR I=1 TO ILAST
250 PRINT USING FMT$;I;PROG$(I);
260 J=20+I
270 IF J>LAST THEN PRINT

    ELSE PRINT TAB(25);:PRINT USING FMT$;J;PROG$(J)
280 NEXT I
290 PRINT
300 INPUT"Enter program number (0 to quit): ",NBR
310 IF NBR=0 THEN END
320 IF NBR<1 OR NBR>LAST THEN 300
330 RUN PROG$(NBR)
340 REM -- Enter program filenames as DATA statements
350 DATA 23-MATCH,ACEYDUCY,AMAZING,AMAZINGP,ANIMAL,BAGELS
360 DATA BASKETBL,BATNUM,BATTLE,BLACKJCK,BOMBARD,BOMBSAWY
370 DATA BOUNCE,BOWLING,BOXING,BUG,BULLFGHT,BULLSEYE,BUZZWORD
380 DATA CHANGE,CHECKERS,CHEMIST,CHOMP
998 REM -- Next line must be last DATA statement
999 DATA NOMOREDATA
LSEYE,BUZZWORD
380 DATA CHANGE,CHECKER