Source Code
1 REM \::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::
2 REM \::\::\:: GEOGRAPHY \::\::\::
3 REM \::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::
10 PRINT " TO THE L.I.S.T. GROUP::::"
11 PRINT ,,;"HERE IS ONE I'VE BEEN WORKING ON."
12 PAUSE 1000
13 CLS
14 REM DELETE 10,14
100 REM SETS MAP BACKGROUND COLOR TO CYAN
130 PAPER 1
140 FOR Q=1 TO 22
150 PRINT " "
160 NEXT Q
170 REM DRAW BORDER AROUND SCREEN
180 GO SUB 1000
200 REM DRAW THE USA IN GREEN
210 READ R,S,L
220 IF R=100 THEN GO TO 500
230 LET P=22528+(R*32)+S
240 FOR Q=1 TO L
250 POKE P+Q,32
260 NEXT Q
270 REM
280 GO TO 210
300 REM DATA FOR PLOTTING USA
310 DATA 5,26,1,6,5,4,6,25,3
320 DATA 7,5,14,7,24,3,8,4,16,8,23,3
330 DATA 9,4,17,9,22,4,10,4,21
340 DATA 11,4,20,12,4,20,13,5,19,14,5,19
350 DATA 15,6,17,16,10,13,17,11,8,17,21,2
360 DATA 18,12,3,18,22,2,19,23,1
365 DATA 19,0,1,0,0,3
370 DATA 100,100,100
390 STOP
500 REM DRAW CANADA AND MEXICO IN WHITE
510 READ R,S,L
520 IF R=100 THEN GO TO 900
530 LET P=22528+(R*32)+S
540 FOR Q=1 TO L
550 POKE P+Q,56
560 NEXT Q
570 GO TO 510
600 REM DATA FOR CANADA AND MEXICO
605 DATA 0,2,24,1,3,24
610 DATA 2,4,24,3,4,23,4,4,22,5,5,21,6,9,16,7,19,5,8,20,3,9,21,1
620 DATA 16,6,4,17,6,1,17,8,3,18,6,1,18,9,3,19,7,1,19,9,6,20,9,6
630 DATA 21,9,7
700 DATA 100,100,100
800 GO SUB 2000
850 GO TO 4000
900 REM PUT NAMES ON MAP
910 PAPER 7
920 PRINT AT 3,12;"CANADA"
930 PRINT AT 20,10;"MEXICO"
940 PAPER 4
950 PRINT AT 13,14;"U S A"
960 GO TO 800
995 REM
1000 REM DRAW BORDER SUBROUTINE
1010 PLOT 0,0
1020 DRAW 255,0
1030 DRAW 0,175
1040 DRAW -255,0
1050 DRAW 0,-175
1060 RETURN
2000 REM PLOT OUTLINE
2005 INK 0
2010 PLOT 48,128: DRAW 32,0: DRAW 0,-8: DRAW 80,0
2020 DRAW 0,-8: DRAW 8,0
2030 DRAW 0,-8: DRAW 8,0: DRAW 0,-8: DRAW 8,0: DRAW 0,8: DRAW 8,0: DRAW 0,8: DRAW 8,0: DRAW 0,8
2050 DRAW 8,0: DRAW 0,8: DRAW 8,0: DRAW 0,8
2060 DRAW 8,0: DRAW 0,-8: DRAW 8,0: DRAW 0,-8: DRAW -8,0: DRAW 0,-8: DRAW -8,0: DRAW 0,-16: DRAW -8,0: DRAW 0,-8: DRAW -8,0: DRAW 0,-32
2070 DRAW -8,0: DRAW 0,-24: DRAW 8,0: DRAW 0,-16: DRAW -8,0: DRAW 0,8: DRAW -8,0: DRAW 0,8: DRAW -8,0
2090 DRAW 0,8: DRAW -16,0: DRAW 0,-8: DRAW -32,0: DRAW 0,-8
3000 DRAW -24,0: DRAW 0,8: DRAW -8,0: DRAW 0,8: DRAW -8,0: DRAW 0,8: DRAW -32,0
3020 DRAW 0,8: DRAW -8,0: DRAW 0,16: DRAW -8,0: DRAW 0,40: DRAW 8,0: DRAW 0,16
3025 PAUSE 100
3030 RETURN
4000 REM GEOGRAPHY QUIZ
4010 CLS
4020 GO SUB 2000
4030 READ A$
4040 LET L$=" "
4100 PAPER 1: INK 7: PRINT AT 9,5;"WHAT IS THE CAPITAL OF";
4110 PRINT AT 11,7;" ";A$
4130 READ B$
4140 INPUT C$
4150 PAPER 6: INK 0: PRINT AT 2,0;"YOUR ANSWER WAS: ";," ";C$: PAUSE 100
4160 PRINT AT 20,0;"THE CORRECT ANSWER IS:";," ";B$: PAUSE 100: PRINT AT 21,0;L$: PRINT AT 3,0;L$
4170 IF C$=B$ THEN PRINT AT 11,7;" CORRECT ": PAUSE 200: PRINT AT 11,7;" ": GO TO 4030
4175 PRINT AT 11,7;" WRONG ": PAUSE 200: PRINT AT 11,7;" "
4200 GO TO 4030
4250 DATA "INDIANA","INDIANAPOLIS","CALIFORNIA","SACRAMENTO","WISCONSIN","MADISON","KENTUCKY","FRANKFORT","ALABAMA","BIRMINGHAM"
9995 STOP
9998 SAVE "GEOGRAPHY" LINE 1
9999 CLS : PRINT AT 10,5;"REWIND TO VERIFY": PAUSE 200: VERIFY "GEOGRAPHY"
