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
\n1000 LET Z$=INKEY$
\n1010 IF CODE Z$<29 OR CODE Z$>36 THEN RETURN
\n1020 GOTO 1020+10*VAL Z$
\n1030 LOAD A$
\n1040 LOAD D$
\n1050 LOAD E$
\n1060 LOAD H$
\n1070 LOAD I$
\n1080 LOAD L$
\n1090 LOAD M$
\n1100 LOAD P$
\n9998 SAVE "LOADE%R"
\n9999 RUN
