March 1984 Loader

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
1000 LOAD "BOMB-CATCHE%R"
2000 LOAD "LAND-MIN%E"
3000 LOAD "SLOT-MACHIN%E"
4000 LOAD "BOWLIN%G"
5000 LOAD "MINICAL%C"
6000 LOAD "ARVOLFOR%M"
7000 LOAD "BULLETI%N"
9997 STOP 
9998 SAVE "LOADE%R"
9999 RUN