November 1983 Loader

Gallery

Source Code

  10 LET A$="WINDCHIL%L"
  20 LET B$="%W%I%N%D%C%H%I%LL"
  30 LET C$="%C%E%N%S%US"
  40 LET D$="CENSU%S"
  50 LET E$="SIDE%S"
  60 LET F$="%S%I%D%ES"
  70 LET G$="%D%R%O%P%T%E%ST"
  80 LET H$="DROPTES%T"
  90 LET I$="CARDTRIC%K"
 100 LET J$="%C%A%R%D%T%R%I%CK"
 110 LET K$="%S%T%U%M%P%ER"
 120 LET L$="STUMPE%R"
 130 LET M$="ACORE%C"
 140 LET N$="%A%C%O%R%EC"
 150 LET O$="%B%U%L%L%E%T%IN"
 160 LET P$="BULLETI%N"
 170 LET Q$="%N%O%V%E%M%B%E%R% %1%9%8%3"
 200 POKE 16418,0
 210 FOR N=1 TO 24
 220 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 230 NEXT N
 240 PRINT AT 1,4;"T%HI%S %MO%NT%H\ '%S %PR%OG%RA%MS";AT 1,4;"%TH%IS% M%ON%TH\:.S% P%RO%GR%AM%S"
 241 FOR N=1 TO 13
 242 PRINT AT N+4,16;Q$(N)
 244 NEXT N
 250 PRINT AT 4,1;A$;TAB 30;1
 260 GOSUB 1000
 270 PRINT AT 4,1;B$;TAB 30;"%1"
 280 GOSUB 1000
 290 PRINT AT 6,1;C$;TAB 30;2
 300 GOSUB 1000
 310 PRINT AT 6,1;D$;TAB 30;"%2"
 320 GOSUB 1000
 330 PRINT AT 8,1;E$;TAB 30;3
 340 GOSUB 1000
 350 PRINT AT 8,1;F$;TAB 30;"%3"
 360 GOSUB 1000
 370 PRINT AT 10,1;G$;TAB 30;4
 380 GOSUB 1000
 390 PRINT AT 10,1;H$;TAB 30;"%4"
 400 GOSUB 1000
 410 PRINT AT 12,1;I$;TAB 30;5
 420 GOSUB 1000
 430 PRINT AT 12,1;J$;TAB 30;"%5"
 440 GOSUB 1000
 450 PRINT AT 14,1;K$;TAB 30;6
 460 GOSUB 1000
 470 PRINT AT 14,1;L$;TAB 30;"%6"
 480 GOSUB 1000
 490 PRINT AT 16,1;M$;TAB 30;7
 500 GOSUB 1000
 510 PRINT AT 16,1;N$;TAB 30;"%7"
 520 GOSUB 1000
 530 PRINT AT 18,1;O$;TAB 30;8
 540 GOSUB 1000
 550 PRINT AT 18,1;P$;TAB 30;"%8"
 560 GOSUB 1000
 570 PRINT AT 22,6;"ENTER ONE OF ABOVE";AT 22,6;"%E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E"
 580 GOSUB 1000
 590 GOTO 240
1000 LET Z$=INKEY$
1010 IF CODE Z$<29 OR CODE Z$>36 THEN RETURN 
1020 GOTO 1020+10*VAL Z$
1030 LOAD A$
1040 LOAD D$
1050 LOAD E$
1060 LOAD H$
1070 LOAD I$
1080 LOAD L$
1090 LOAD M$
1100 LOAD P$
9998 SAVE "LOADE%R"
9999 RUN