10 CLS:KEY OFF:WIDTH 80:SCREEN 0,0,1,1:CLS:SCREEN 0,0,0,1:CLS:LOCATE 1,1,0
20 COLOR 15
30 PRINT "               ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍ»"
40 PRINT "               ÌÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎ͹"
50 PRINT "               º º";:COLOR 11:PRINT "              BASIC GAMES MENU   ";:COLOR 15:PRINT "           º º"
60 PRINT  "               º º                                            º º"
70 PRINT  "               º º          BE SURE CAPS LOCK IS DOWN         º º"
80 PRINT  "               º º                                            º º"
90 PRINT  "               º º        PRESS `R' TO RETURN TO BASIC        º º"
100 PRINT "               º º                                            º º"
110 PRINT "               º º       PRESS `S' TO RETURN TO SYSTEM        º º"
120 PRINT "               ÌÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎ͹"
130 PRINT "               ÈÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊͼ"
140 PRINT "                                ÚÄÄÄ¿      ÚÄÄÄ¿"
150 PRINT "                                ³   ³      ³   ³"
160 PRINT "                                ÆÍÍ͵      ÆÍÍ͵"
170 PRINT "                                ³   ³      ³   ³"
180 PRINT "                                ÆÍÍ͵      ÆÍÍ͵"
190 PRINT "                                ³   ³      ³   ³"
200 PRINT "                                ÆÍÍ͵      ÆÍÍ͵"
210 PRINT "                                ³   ³      ³   ³"
220 PRINT "                                ÆÍÍ͵      ÆÍÍ͵"
230 PRINT "                                ³   ³      ³   ³"
240 PRINT "                                ÆÍÍ͵      ÆÍÍ͵"
250 PRINT "                                ³   ³      ³   ³"
260 PRINT "                                ÀÄÄÄÙ      ÀÄÄÄÙ";
270 FOR I=1 TO 10:KEY I,"":NEXT I
280 COLOR 14:LOCATE 15,26:PRINT "QUBIC";:LOCATE 17,24:PRINT "OTHELLO";
290 LOCATE 19,22:PRINT "BLACK BOX";:LOCATE 21,21:PRINT "SPACE TREK";
300 LOCATE 23,20:PRINT "MASTER MIND";:LOCATE 13,27:PRINT "HI-Q";
310 X=51:LOCATE 13,X:PRINT "KINGDOM";:LOCATE 15,X:PRINT "CRIBBAGE";
320 LOCATE 17,X:PRINT "BLACKJACK";:LOCATE 19,X:PRINT "AMERICANS";
330 LOCATE 21,X:PRINT "PRESIDENTS";:LOCATE 23,X:PRINT"TEN THOUSAND";
340 LOCATE 13,35:PRINT "A ";:LOCATE 13,45:PRINT " B";:LOCATE 15,35:PRINT "C ";
350 LOCATE 15,45:PRINT " D";:LOCATE 17,35:PRINT "E ";:LOCATE 17,45:PRINT " F";
360 LOCATE 19,35:PRINT "G ";:LOCATE 19,45:PRINT " H";:LOCATE 21,35:PRINT "I ";
370 LOCATE 21,45:PRINT " J";:LOCATE 23,35:PRINT"K";:LOCATE 23,45:PRINT" L";
380 LOCATE 1
390 SCREEN 0,0,0,0
400 A$=INKEY$:IF A$="" THEN 400
410 A=ASC(A$)
420 IF A=82 OR A=114 THEN CLS:NEW:END
430 IF A=83 OR A=115 THEN SYSTEM
440 IF A<65 OR A>76 THEN 445 ELSE A=A-64:GOTO 450
445 IF A<97 OR A>108 THEN 400 ELSE A=A-96:GOTO 450
450 CLS
460 ON A GOTO 480,490,500,510,520,530,540,550,560,570,580,590
470 GOTO 400
480 CHAIN "HIQ"
490 CHAIN "KINGDOM"
500 CHAIN "QUBIC"
510 CHAIN "CRIBBAGE"
520 CHAIN "OTHELLO"
530 CHAIN "BLACKJCK"
540 CHAIN "BLACKBOX"
550 CHAIN "AMERQUIZ"
560 CHAIN "TREK"
570 CHAIN "PRESQUIZ"
580 CHAIN "MASTERMD"
590 CHAIN "10000"