10 '	GAMES MENU PROGRAM
15 DIM GAME$(52)
16 ON ERROR GOTO 1000
20 PRINT CHR$(26):WIDTH 80
30 PRINT TAB(25);"GAMES MENU":PRINT TAB(25);"==========":PRINT
40 PRINT "The following game programs are available on this disc:":PRINT
50 FOR I=1 TO 50
60 READ GAME$(I)
70 NEXT
80 DATA 23-MATCH,DSPACE,GRANPRIX,HOCKEY1,HORSRACE,HURKLE,KINEMA,KING
90 DATA LEM,LETTER,LIFE2,LITQUIZ,LOVE,LOVE-P,MADLIBS,MASTRMND
100 DATA MATHDICE,MUGWUMP,NAME,NICOMA,NIM,NUMBER,ONECHECK,ORBIT
110 DATA PIZZA,POETRY,POKER,QUBIC,QUEEN,REVERSE,ROCKSP,ROULETTE
120 DATA RUSROU,SALVO,SINEWAVE,SLALOM,SPLAT,STARS,STOCK
130 DATA SYNONYM,TARGET,TICTAC1,TICTAC2,TOWERS,TRAIN,TRAP,WAR
140 DATA WEEKDAY,WORD,YAHTZEE
145 FOR I=1 TO 13
150 PRINT USING "\      \        \      \        \      \        \      \";

    GAME$(I),GAME$(I+13),GAME$(I+26),GAME$(I+39)
160 NEXT
170 PRINT
180 LINE INPUT "Enter the name of your selection: ";CHOICE$
190 IF CHOICE$="SYSTEM" THEN SYSTEM ELSE RUN CHOICE$
1000 IF ERR=53 THEN PRINT "That file does not exist. Please re-enter.":

     CLOSE:FOR XX=1 TO 2000:NEXT:RESTORE:RESUME 20
1010 ON ERROR GOTO 0
1020 RESTORE:RESUME 20
