Source Code
10 FAST
20 CLS
30 FOR N=1 TO 44
40 PRINT "\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@";
50 NEXT N
60 PRINT AT 0,0;"\ .\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\. ";AT 21,0;"\ '\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\' "
70 FOR N=1 TO 20
80 PRINT AT N,0;"\ :";AT N,31;"\: "
90 NEXT N
100 PRINT AT 2,7;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 3,7;"\: %S%Y%N%C%H%R%O%-%S%E%T%T%E% \ :";AT 4,7;"\: % % %L%O%A%D%E%R% %F%O%R% % \ :";AT 5,7;"\: % % %M%A%R%C%H% %1%9%8%4% % \ :";AT 6,7;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
110 PRINT AT 8,2;" BOMB-CATCHE%R ";TAB 27;" 1 "
120 PRINT AT 10,2;" LAND-MIN%E ";TAB 27;" 2 "
130 PRINT AT 12,2;" SLOT-MACHIN%E ";TAB 27;" 3 "
140 PRINT AT 14,2;" BOWLIN%G ";TAB 27;" 4 "
150 PRINT AT 16,2;" MINICAL%C ";TAB 27;" 5 "
160 PRINT AT 18,2;" ARVOLFOR%M ";TAB 27;" 6 "
170 PRINT AT 20,2;" BULLETI%N ";TAB 27;" 7 "
200 LET A$=" P%PI%IC%CK%K % O%ON%NE%E "
210 SLOW
300 FOR N=1 TO 13
310 PRINT AT N+7,20;A$(N*2-1)
320 LET P$=INKEY$
330 IF CODE P$<29 OR CODE P$>35 THEN GOTO 350
340 GOTO 500
350 NEXT N
360 LET A$=A$(2 TO )+A$(1)
370 GOTO 300
500 FAST
510 GOTO VAL P$*1000
\n1000 LOAD "BOMB-CATCHE%R"
\n2000 LOAD "LAND-MIN%E"
\n3000 LOAD "SLOT-MACHIN%E"
\n4000 LOAD "BOWLIN%G"
\n5000 LOAD "MINICAL%C"
\n6000 LOAD "ARVOLFOR%M"
\n7000 LOAD "BULLETI%N"
\n9997 STOP
\n9998 SAVE "LOADE%R"
\n9999 RUN
