home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / EDUCATON / GEO_MATH.ZIP / MAP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-04-15  |  16.1 KB  |  175 lines
  1. 10  CLS:KEY OFF:SCREEN 0:WIDTH 80:DIM SCORE(50)
  2. 55  IF TERRY=1 THEN 6910
  3. 60  CLS:KEY OFF:I=0:SCREEN 2
  4. 100  LINE(26,12)-(32,13):LINE-(33,14):LINE-(35,15):LINE-(34,17):LINE-(32,18):LINE-(31,19):LINE-(31,22):LINE-(34,22):LINE-(35,20):LINE-(36,20):LINE-(37,18):LINE-(37,10):LINE-(36,8):LINE-(40,8):LINE-(42,9):LINE-(44,10):LINE-(48,12):LINE-(54,14)
  5. 280  LINE-(62,16):LINE-(70,18):LINE-(78,19):LINE-(86,20):LINE-(102,21):LINE-(134,21):LINE-(150,20):LINE-(165,20):LINE-(165,18):LINE-(168,18):LINE-(168,20):LINE-(172,22):LINE-(176,22):LINE-(182,24):LINE-(186,25):LINE-(192,24):LINE-(193,24)
  6. 450  LINE-(193,25):LINE-(192,26):LINE-(190,28):LINE-(186,30):LINE-(184,32):LINE-(182,34):LINE-(181,36):LINE-(184,35):LINE-(186,34):LINE-(189,34):LINE-(188,36):LINE-(190,36):LINE-(192,35):LINE-(194,34):LINE-(196,32):LINE-(198,32):LINE-(201,28)
  7. 620  LINE-(203,28):LINE-(200,32):LINE-(199,33):LINE-(200,33):LINE-(202,32):LINE-(206,36):LINE-(209,36):LINE-(210,33):LINE-(214,33):LINE-(217,31):LINE-(218,31):LINE-(218,32):LINE-(216,34):LINE-(222,33):LINE-(223,36):LINE-(221,36):LINE-(220,38)
  8. 790  LINE-(218,37):LINE-(217,36):LINE-(214,37):LINE-(211,39):LINE-(208,39):LINE-(206,42):LINE-(203,48):LINE-(202,50):LINE-(208,44):LINE-(208,46):LINE-(206,50):LINE-(205,51):LINE-(204,59):LINE-(205,64):LINE-(207,68):LINE-(208,70):LINE-(210,70)
  9. 1010  LINE-(212,68):LINE-(214,64):LINE-(214,62):LINE-(213,60):LINE-(212,56):LINE-(213,54):LINE-(212,53):LINE-(212,48):LINE-(214,46):LINE-(215,48):LINE-(216,44):LINE-(218,42):LINE-(217,40):LINE-(220,39):LINE-(224,40):LINE-(226,42):LINE-(226,44)
  10. 1180  LINE-(228,46):LINE-(227,48):LINE-(225,52):LINE-(226,54):LINE-(227,52):LINE-(228,52):LINE-(229,51):LINE-(231,51):LINE-(232,54):LINE-(232,56):LINE-(233,58):LINE-(234,59):LINE-(232,61):LINE-(229,67):LINE-(234,69):LINE-(238,68):LINE-(241,67)
  11. 1350  LINE-(243,64):LINE-(245,64):LINE-(247,62):LINE-(251,60):LINE-(251,53):LINE-(258,52):LINE-(262,50):LINE-(264,50):LINE-(264,45):LINE-(262,44):LINE-(262,43):LINE-(264,43):LINE-(266,40):LINE-(268,36):LINE-(273,35):LINE-(280,32):LINE-(284,31)
  12. 1520  LINE-(286,28):LINE-(289,28):LINE-(289,24):LINE-(290,22):LINE-(289,21):LINE-(291,15):LINE-(290,12):LINE-(290,9):LINE-(291,9):LINE-(294,11):LINE-(296,9):LINE-(298,10):LINE-(301,16):LINE-(303,22):LINE-(306,24):LINE-(310,24):LINE-(310,28)
  13. 1690  LINE-(307,29):LINE-(304,31):LINE-(304,33):LINE-(302,31):LINE-(299,32):LINE-(299,36):LINE-(294,39):LINE-(296,40):LINE-(294,42):LINE-(294,48):LINE-(297,53):LINE-(297,54):LINE-(296,55):LINE-(296,56):LINE-(292,58):LINE-(290,58):LINE-(289,59)
  14. 1860  LINE-(286,59):LINE-(282,64):LINE-(280,68):LINE-(282,68):LINE-(282,74):LINE-(281,76):LINE-(280,77):LINE-(277,77):LINE-(274,76):LINE-(279,81):LINE-(277,83):LINE-(278,86):LINE-(277,90):LINE-(278,93):LINE-(277,95):LINE-(276,92):LINE-(276,88)
  15. 2030  LINE-(274,86):LINE-(273,84):LINE-(272,77):LINE-(270,80):LINE-(270,86):LINE-(272,89):LINE-(274,92):LINE-(274,94):LINE-(275,96):LINE-(278,100):LINE-(280,102):LINE-(280,105):LINE-(276,110):LINE-(278,110):LINE-(277,112):LINE-(274,112):LINE-(270,115)
  16. 2200  LINE-(269,119):LINE-(266,120):LINE-(264,122):LINE-(262,126):LINE-(258,132):LINE-(256,132):LINE-(252,140):LINE-(252,142):LINE-(254,152):LINE-(258,160):LINE-(262,164):LINE-(266,172):LINE-(266,182):LINE-(265,184):LINE-(262,186):LINE-(260,184)
  17. 2360  LINE-(258,180):LINE-(256,180):LINE-(255,179):LINE-(252,174):LINE-(252,173):LINE-(250,173):LINE-(248,169):LINE-(248,166):LINE-(247,167):LINE-(246,166):LINE-(246,160):LINE-(238,152):LINE-(236,152):LINE-(236,155):LINE-(234,156):LINE-(228,156)
  18. 2520  LINE-(226,152):LINE-(214,152):LINE-(212,153):LINE-(207,153):LINE-(206,152):LINE-(200,154):LINE-(194,153):LINE-(194,155):LINE-(199,159):LINE-(203,157):LINE-(202,160):LINE-(202,161):LINE-(203,162):LINE-(200,162):LINE-(199,163):LINE-(198,163)
  19. 2680  LINE-(197,164):LINE-(194,164):LINE-(192,162):LINE-(191,159):LINE-(191,157):LINE-(189,156):LINE-(189,157):LINE-(187,157):LINE-(186,156):LINE-(185,160):LINE-(172,160):LINE-(162,167):LINE-(162,168):LINE-(160,168):LINE-(159,167):LINE-(158,168)
  20. 2840  LINE-(157,171):LINE-(153,176):LINE-(152,178):LINE-(152,180):LINE-(154,188):LINE-(152,188):LINE-(150,187):LINE-(146,186):LINE-(142,184):LINE-(140,182):LINE-(138,180):LINE-(136,172):LINE-(133,168):LINE-(131,166):LINE-(130,162):LINE-(130,160)
  21. 3000  LINE-(126,158):LINE-(119,158):LINE-(118,160):LINE-(115,164):LINE-(110,160):LINE-(106,158):LINE-(106,153):LINE-(104,150):LINE-(102,148):LINE-(100,144):LINE-(97,140):LINE-(86,140):LINE-(86,142):LINE-(83,142):LINE-(70,140):LINE-(48,128)
  22. 3160  LINE-(48,126):LINE-(34,124):LINE-(34,120):LINE-(30,113):LINE-(26,110):LINE-(25,108):LINE-(18,106):LINE-(18,104):LINE-(16,100):LINE-(13,98):LINE-(13,95):LINE-(14,94):LINE-(12,90):LINE-(13,88):LINE-(13,85):LINE-(12,84):LINE-(12,82):LINE-(10,80)
  23. 3340  LINE-(10,68):LINE-(9,66):LINE-(9,63):LINE-(12,56):LINE-(13,54):LINE-(13,51):LINE-(14,49):LINE-(14,46):LINE-(15,44):LINE-(16,45):LINE-(18,40):LINE-(22,32):LINE-(22,30):LINE-(24,24):LINE-(24,21):LINE-(26,20):LINE-(25,18):LINE-(25,16):LINE-(24,14)
  24. 3530  LINE-(26,12):PSET(220,37),3:PSET(219,40),3:IF I=0 THEN 6700
  25. 3570  PSET(219,39),1:PSET(220,38),1:PAINT(1,1),1,3:PAINT(210,50),1,3:PAINT(100,100),2,1:LINE(286,28)-(286,29),1:LINE-(288,32),1:LINE-(290,36),1:LINE-(292,40),1:LINE-(294,44),1:LINE(285,30)-(285,32),1:LINE-(285,33),1:LINE-(285,40),1:LINE-(284,43),1
  26. 3760  LINE-(284,50),1:LINE-(281,51),1:LINE-(280,48),1:LINE-(278,43),1:LINE-(277,40),1:LINE-(275,34),1:LINE(294,46)-(290,48),1:LINE-(284,50),1:LINE-(281,51),1:LINE-(282,56),1:LINE-(286,55),1:LINE-(290,54),1:LINE-(294,54),1:LINE-(296,55),1
  27. 3910  LINE(290,54)-(291,58),1:LINE(282,56)-(283,62),1:LINE(282,64)-(280,62),1:LINE-(276,62),1:LINE-(274,61),1:LINE-(273,56),1:LINE-(270,56),1:LINE-(249,64),1:LINE-(248,62),1:LINE(276,62)-(274,64),1:LINE-(274,68),1:LINE-(277,71),1:LINE-(277,73),1
  28. 4070  LINE-(276,74),1:LINE-(274,76),1:LINE-(278,78),1:LINE-(278,79),1:LINE(245,64)-(249,80),1:LINE-(273,75),1:LINE-(273,77),1:LINE-(274,77),1:LINE-(274,76),1:LINE(254,79)-(255,82),1:LINE-(260,80),1:LINE-(264,80),1:LINE-(267,81),1:LINE-(269,81),1
  29. 4210  LINE-(269,86),1:LINE-(270,86),1:LINE(273,76)-(275,85),1:LINE-(278,84),1:LINE(259,81)-(259,83),1:LINE-(256,86),1:LINE-(256,88),1:LINE-(254,88),1:LINE-(251,96),1:LINE-(248,98),1:LINE-(245,99),1:LINE-(243,98),1:LINE-(241,100),1:LINE-(238,101),1
  30. 4350  LINE-(238,102),1:LINE-(234,104),1:LINE-(248,104),1:LINE-(278,99),1:LINE(244,104)-(238,110),1:LINE-(234,112),1:LINE-(231,115),1:LINE-(250,113),1:LINE-(253,115),1:LINE-(260,114),1:LINE-(265,115),1:LINE-(269,118),1:LINE(238,114)-(238,120),1
  31. 4480  LINE-(240,120),1:LINE-(241,124),1:LINE-(242,124),1:LINE-(253,136),1:LINE(231,116)-(222,118),1:LINE-(226,128),1:LINE-(228,136),1:LINE-(230,144),1:LINE-(231,148),1:LINE-(247,148),1:LINE-(248,150),1:LINE-(250,146),1:LINE-(253,146),1
  32. 4610  LINE(231,148)-(214,148),1:LINE-(214,152),1:LINE(210,153)-(208,119),1:LINE-(222,118),1:LINE(208,119)-(197,120),1:LINE-(192,128),1:LINE-(190,132),1:LINE-(192,132),1:LINE-(192,136),1:LINE-(193,140),1:LINE-(192,144),1:LINE-(190,148),1
  33. 4730  LINE-(190,152),1:LINE-(194,158),1:LINE-(198,158),1:LINE(197,120)-(198,117),1:LINE-(198,110),1:LINE-(230,107),1:LINE-(234,104),1:LINE(199,110)-(200,108),1:LINE-(202,107),1:LINE-(201,105),1:LINE-(202,104),1:LINE-(204,104),1:LINE-(206,102),1
  34. 4860  LINE-(208,98),1:LINE-(210,97),1:LINE-(221,97),1:LINE-(221,96),1:LINE-(220,95),1:LINE-(220,93),1:LINE-(222,92),1:LINE-(222,90),1:LINE-(224,90),1:LINE-(224,86),1:LINE-(226,86),1:LINE-(230,89),1:LINE-(233,89),1:LINE-(235,88),1:LINE-(238,90),1
  35. 5010  LINE-(238,94),1:LINE-(242,96),1:LINE-(243,98),1:LINE(238,90)-(240,86),1:LINE-(241,86),1:LINE-(245,82),1:LINE-(246,80),1:LINE-(246,79),1:LINE-(248,76),1:LINE(224,86)-(222,68),1:LINE(229,67)-(212,68),1:LINE(209,70)-(209,88),1:LINE-(207,94),1
  36. 5140  LINE-(207,100),1:LINE(201,105)-(200,104),1:LINE-(199,103),1:LINE-(199,102),1:LINE-(194,96),1:LINE-(194,92),1:LINE-(192,92),1:LINE-(189,88),1:LINE-(187,86),1:LINE-(187,84),1:LINE-(188,80),1:LINE-(190,77),1:LINE-(189,74),1:LINE-(193,72),1
  37. 5280  LINE-(193,70),1:LINE-(192,68),1:LINE-(188,64),1:LINE(205,64)-(188,64),1:LINE-(186,60),1:LINE-(186,54),1:LINE-(180,52),1:LINE-(179,50),1:LINE-(178,50),1:LINE-(178,43),1:LINE-(181,40),1:LINE-(181,36),1:LINE-(183,35),1:LINE(192,35)-(193,38),1
  38. 5420  LINE-(198,40),1:LINE-(201,40),1:LINE-(203,41),1:LINE-(204,45),1:LINE(158,20)-(158,30),1:LINE-(159,31),1:LINE-(159,39),1:LINE-(160,40),1:LINE-(160,43),1:LINE-(158,44),1:LINE-(158,46),1:LINE-(160,47),1:LINE-(160,60),1:LINE-(186,60),1
  39. 5560  LINE(160,60)-(159,60),1:LINE-(159,62),1:LINE-(158,63),1:LINE-(158,66),1:LINE-(160,68),1:LINE-(162,72),1:LINE-(162,80),1:LINE-(189,80),1:LINE(162,80)-(164,82),1:LINE-(164,83),1:LINE-(166,84),1:LINE-(168,85),1:LINE-(167,88),1:LINE-(168,90),1
  40. 5700  LINE-(169,91),1:LINE-(169,92),1:LINE-(170,92),1:LINE-(170,110),1:LINE-(196,110),1:LINE-(198,112),1:LINE(170,110)-(170,132),1:LINE-(173,132),1:LINE-(174,133),1:LINE-(174,136),1:LINE-(192,136),1:LINE(174,136)-(172,140),1:LINE-(172,142),1
  41. 5830  LINE-(176,146),1:LINE-(178,150),1:LINE-(178,154),1:LINE-(176,160),1:LINE(123,21)-(122,40),1:LINE-(159,42),1:LINE(122,40)-(120,62),1:LINE-(156,64),1:LINE-(158,65),1:LINE(120,62)-(118,75),1:LINE-(128,76),1:LINE-(128,84),1:LINE-(166,84),1
  42. 5960  LINE(128,84)-(128,106),1:LINE-(170,106),1:LINE(128,106)-(122,106),1:LINE-(121,110),1:LINE-(138,110),1:LINE-(138,124),1:LINE-(142,125),1:LINE-(143,127),1:LINE-(150,128),1:LINE-(158,130),1:LINE-(161,130),1:LINE-(165,129),1:LINE-(170,132),1
  43. 6090  LINE(121,110)-(118,140),1:LINE-(97,140),1:LINE(80,141)-(88,102),1:LINE-(122,106),1:LINE(88,102)-(91,72),1:LINE-(118,75),1:LINE(91,72)-(80,70),1:LINE-(86,42),1:LINE-(122,46),1:LINE(86,44)-(78,43),1:LINE-(74,43),1:LINE-(72,34),1:LINE-(71,33),1
  44. 6220  LINE-(69,34),1:LINE-(68,34),1:LINE-(71,27),1:LINE-(67,22),1:LINE-(68,18),1:LINE(63,17)-(57,32),1:LINE-(59,33),1:LINE-(56,36),1:LINE-(56,40),1:LINE-(55,42),1:LINE-(55,44),1:LINE-(54,46),1:LINE-(52,53),1:LINE-(52,55),1:LINE-(51,56),1:LINE-(82,64),1
  45. 6380  LINE(66,60)-(58,96),1:LINE-(88,102),1:LINE(58,96)-(58,102),1:LINE-(57,102),1:LINE-(54,100),1:LINE-(52,108),1:LINE-(54,112),1:LINE-(54,116),1:LINE-(52,116),1:LINE-(48,123),1:LINE-(49,124),1:LINE-(49,126),1:LINE-(48,126),1:LINE(56,37)-(54,36),1
  46. 6520  LINE-(53,37),1:LINE-(46,35),1:LINE-(42,34),1:LINE-(38,32),1:LINE-(36,32),1:LINE-(34,31),1:LINE-(33,31),1:LINE-(34,30),1:LINE-(29,27),1:LINE-(26,26),1:LINE-(24,26),1:LINE(14,46)-(51,56),1:LINE(36,52)-(28,73),1:LINE-(52,108),1:GOTO 7260
  47. 6700  PSET(392,166):DRAW"E4R8G4L8D32R44E4U32L8G4R8E4G4D32U32L8D28L28U28E4D28G4E4R20":PSET(472,166):DRAW"E4R48G4L48D18R40D6L35G4R40U4D4L40D4R48E4U18G4D18U18L40E4R40L40U6D6G4U10R40U4D4E4U4":PSET(556,166)
  48. 6750  DRAW"E4R48G4L48D32R8E4U12D12G4U16R32D16R8U32D32E4U32G4L8BD4D8L32U8R32D4L24U4D4G4":DIM UU(1240):GET(390,159)-(620,199),UU:FOR I=1 TO 17:PUT(390,(160-(I*8))),UU,XOR:PUT(390,(160-(I*8))),UU,XOR:NEXT I:PUT(390,10),UU,XOR
  49. 6830  T$="BY  TERRY  EIKAMP                               ":FOR I=1 TO 27:LOCATE 12,(81-I):PRINT LEFT$(T$,I):FOR YY=1 TO 120:NEXT YY:NEXT I:BEEP:LOCATE 15,50:PRINT"PRESS ANY KEY TO CONTINUE":FOR I=1 TO 100:NEXT I:BEEP
  50. 6899  Z$=INKEY$:IF Z$=""THEN 6899
  51. 6900  TERRY=1
  52. 6901  CLS:KEY OFF:SCREEN 0:WIDTH 80:INPUT"ENTER A NUMBER BETWEEN 1 AND 100";XX:IF XX<100 AND XX>0 THEN 55
  53. 6903  FOR I=1 TO 50:SCREEN 1:COLOR I,I,I:NEXT I:SCREEN 0:COLOR 0,7:LOCATE 12,30:PRINT"I SAID BETWEEN 1 AND 100 DUMMY":FOR I=1 TO 4000:NEXT I:GOTO 6901
  54. 6910  CLS:BEEP:GETOUT=0:SCORE=0:Z$=" ":SCREEN 0:WIDTH 80:COLOR 4:LOCATE 3,28:PRINT"U.S.A.  A  KNOWLEGE  TOOL":LOCATE 5,32:PRINT"BY  TERRY EIKAMP":LOCATE 10,20:PRINT"1. REVIEW THE STATES AND THEIR CAPITALS
  55. 6970  LOCATE 12,20:PRINT"2. TEST ON THE STATES OF THE  U.S.A.":LOCATE 14,20:PRINT"3. TEST ON THE CAPITALS OF THE STATES":LOCATE 16,20:PRINT"4. END PROGRAM":LOCATE 19,20:INPUT"ENTER THE NUMBER OF YOUR CHOICE ";CHOICE
  56. 7010  IF CHOICE=4 THEN CLS:COLOR 7:GOTO 10000
  57. 7020  IF CHOICE=2 GOTO 7170
  58. 7030  IF CHOICE=3 GOTO 7090
  59. 7040  CLS:PRINT"   THIS PART OF THE U.S.A. PROGRAM GIVES YOU A REVIEW OF THE STATES AND THEIR   CAPITALS. THE STATE SHOWN IN THE COLOR RED IS RANDOMLY GENERATED. TO REVIEW MORESTATES JUST PRESS THE SPACE BAR.
  60. 7060  LOCATE 12,20:PRINT"PRESS ANY KEY TO CONTINUE
  61. 7070  Z$=INKEY$:IF Z$=""THEN 7070
  62. 7080  GOTO 7240
  63. 7090  CLS:PRINT"  THIS PART OF THE U.S.A. PROGRAM GIVES YOU A TEST ON THE CAPITAL OF THE STATES.THE STATE WILL BE SHOWN AT THE TOP OF THE SCREEN AND IT WILL BE FILLED IN ON THEMAP IN RED.
  64. 7110  PRINT:PRINT"  YOU MUST ENTER IN THE CORRECT CAPITAL OF THE STATE SHOWN. SPELLING COUNTS BUT YOU NEED ONLY TO ENTER THE FIRST 5 LETTERS OF EACH CAPITAL.
  65. 7120  PRINT:PRINT"  YOU WILL BE GIVEN 3 CHANCES TO ANSWER WITH THE CORRECT CAPITAL.  IF YOU ARE   STILL WRONG AFTER 3 CHANCES THE CORRECT ANSWER WILL BE SHOWN ON THE SCREEN.":LOCATE 23,20:PRINT"PRESS ANY KEY TO CONTINUE
  66. 7150  Z$=INKEY$:IF Z$=""THEN 7150
  67. 7160  GOTO 7240
  68. 7170  CLS:PRINT"  THIS PART OF THE U.S.A. PROGRAM GIVES YOU A TEST ON THE STATES. YOU MUST ENTERTHE NAME OF THE STATE SHOWN IN RED.
  69. 7190  PRINT:PRINT"  SPELLING COUNTS BUT YOU ONLY HAVE TO ENTER THE FIRST 5 LETTERS OF THE STATE.  WHEN ENTERING STATES THAT START WITH NORTH,SOUTH,WEST YOU MUST ENTER THEM AS N. S. W. (EXAMPLE NORTH DAKOTA MUST BE ENTERED AS N. DAKOTA OR N. DAK)
  70. 7200  PRINT:PRINT"  YOU WILL BE GIVEN 3 CHANCES TO ANSWER WITH THE CORRECT STATE. IF YOU ARE STILLWRONG AFTER 3 CHANCES THE CORRECT ANSWER WILL BE SHOWN ON THE SCREEN.":LOCATE 23,20:PRINT"PRESS ANY KEY TO CONTINUE
  71. 7230  Z$=INKEY$:IF Z$=""THEN 7230
  72. 7240  IF I=1 THEN 7260
  73. 7250  SCREEN 1:COLOR 1,0:I=I+1:GOTO 100
  74. 7260  PAINT(294,24),0,1:PAINT(290,44),0,1:PAINT(280,40),0,1:PAINT(286,52),0,1:PAINT(294,56),0,1:PAINT(286,57),0,1:PAINT(270,40),0,1:PAINT(278,64),0,1:PAINT(262,70),0,1:PAINT(276,80),0,1:PAINT(268,79),0,1:PAINT(262,88),0,1:PAINT(256,88),0,1
  75. 7400  PAINT(256,110),0,1:PAINT(256,120),0,1:PAINT(240,130),0,1:PAINT(240,150),0,1:PAINT(220,130),0,1:PAINT(200,130),0,1:PAINT(220,110),0,1:PAINT(230,96),0,1:PAINT(230,80),0,1:PAINT(220,56),0,1:PAINT(200,36),0,1:PAINT(200,50),0,1:PAINT(200,80),0,1
  76. 7530  PAINT(246,88),0,1:PAINT(214,88),0,1:PAINT(174,40),0,1:PAINT(174,70),0,1:PAINT(174,90),0,1:PAINT(174,120),0,1:PAINT(180,140),0,1:PAINT(150,140),0,1:PAINT(150,120),0,1:PAINT(150,90),0,1:PAINT(150,70),0,1:PAINT(150,50),0,1:PAINT(150,30),0,1
  77. 7660  PAINT(100,30),0,1:PAINT(100,50),0,1:PAINT(100,90),0,1:PAINT(100,120),0,1:PAINT(70,120),0,1:PAINT(70,90),0,1:PAINT(70,40),0,1:PAINT(40,20),0,1:PAINT(40,40),0,1:PAINT(40,70),0,1:PAINT(40,120),0,1:ON CHOICE GOTO 7810,8460,9040
  78. 7810  XX=XX+1:C=2:RANDOMIZE XX:S=INT((100*RND)/2):GOSUB 7960:LOCATE 1,10:PRINT"THE STATE IN RED IS":LOCATE 23,22:PRINT"'+` TO END":LOCATE 22,2:PRINT C$:LOCATE 23,2:PRINT N$
  79. 7900  Z$=INKEY$:IF Z$=""THEN 7900
  80. 7910  C=0:GOSUB 7960:PAINT(20,180),1,1:IF Z$="+"THEN 6910
  81. 7950  GOTO 7810
  82. 7960  IF S=1 OR S=0 THEN N$="ALABAMA":C$="MONTGOMERY":PAINT(220,130),C,1:RETURN
  83. 7970  IF S=2 THEN N$="ARIZONA":C$="PHOENIX":PAINT(70,120),C,1:RETURN
  84. 7980  IF S=3 THEN N$="NEW MEXICO":C$="SANTA FE":PAINT(90,120),C,1:RETURN
  85. 7990  IF S=4 THEN N$="ARKANSAS":C$="LITTLE ROCK":PAINT(180,120),C,1:RETURN
  86. 8000  IF S=5 THEN N$="CALIFORNIA":C$="SACRAMENTO":PAINT(40,120),C,1:RETURN
  87. 8010  IF S=6 THEN N$="COLORADO":C$="DENVER":PAINT(110,90),C,1:RETURN
  88. 8020  IF S=7 THEN N$="CONNECTICUT":C$="HARTFORD":PAINT(288,57),C,1:RETURN
  89. 8030  IF S=8 OR S=50 THEN N$="RHODE ISLAND":C$="PROVIDENCE":PAINT(294,56),C,1:RETURN
  90. 8040  IF S=9 THEN N$="DELAWARE":C$="DOVER":PAINT(276,81),C,1:RETURN
  91. 8050  IF S=10 THEN N$="MARYLAND":C$="ANNAPOLIS":PAINT(268,78),C,1:RETURN
  92. 8060  IF S=11 OR S=49 THEN N$="FLORIDA":C$="TALLAHASSEE":PAINT(260,176),C,1:RETURN
  93. 8070  IF S=12 THEN N$="GEORGIA":C$="ATLANTA":PAINT(250,142),C,1:RETURN
  94. 8080  IF S=13 THEN N$="IDAHO":C$="BOISE":PAINT(70,50),C,1:RETURN
  95. 8090  IF S=14 THEN N$="ILLINOIS":C$="SPRINGFIELD":PAINT(200,80),C,1:RETURN
  96. 8100  IF S=15 THEN N$="INDIANA":C$="INDIANAPOLIS":PAINT(214,80),C,1:RETURN
  97. 8110  IF S=16 THEN N$="IOWA":C$="DES MOINES":PAINT(170,70),C,1:RETURN
  98. 8120  IF S=17 THEN N$="KANSAS":C$="TOPEKA":PAINT(150,90),C,1:RETURN
  99. 8130  IF S=18 THEN N$="KENTUCKY":C$="FRANKFORT":PAINT(214,100),C,1:RETURN
  100. 8140  IF S=19 THEN N$="LOUISIANA":C$="BATON ROUGE":PAINT(180,140),C,1:RETURN
  101. 8150  IF S=20 THEN N$="MAINE":C$="AUGUSTA":PAINT(294,20),C,1:RETURN
  102. 8160  IF S=21 THEN N$="MASSACHUSETTS":C$="BOSTON":PAINT(290,52),C,1:RETURN
  103. 8170  IF S=22 THEN N$="MICHIGAN":C$="LANSING":PAINT(220,50),C,1:PAINT(206,38),C,1:RETURN
  104. 8180  IF S=23 THEN N$="MINNESOTA":C$="ST PAUL":PAINT(180,28),C,1:RETURN
  105. 8190  IF S=24 THEN N$="MISSISSIPPI":C$="JACKSON":PAINT(200,140),C,1:RETURN
  106. 8200  IF S=25 THEN N$="MISSOURI":C$="JEFFERSON CITY":PAINT(180,90),C,1:RETURN
  107. 8210  IF S=26 THEN N$="MONTANA":C$="HELENA":PAINT(100,30),C,1:RETURN
  108. 8220  IF S=27 THEN N$="NEBRASKA":C$="LINCOLN":PAINT(140,70),C,1:RETURN
  109. 8230  IF S=28 THEN N$="NEVADA":C$="CARSON CITY":PAINT(40,70),C,1:RETURN
  110. 8240  IF S=29 THEN N$="UTAH":C$="SALT LAKE CITY":PAINT(70,70),C,1:RETURN
  111. 8250  IF S=30 THEN N$="NEW HAMPSHIRE":C$="CONCORD":PAINT(290,40),C,1:RETURN
  112. 8260  IF S=31 THEN N$="VERMONT":C$="MONTPELIER":PAINT(282,40),C,1:RETURN
  113. 8270  IF S=32 THEN N$="NEW JERSEY":C$="TRENTON":PAINT(280,70),C,1:RETURN
  114. 8280  IF S=33 THEN N$="NEW YORK":C$="ALBANY":PAINT(280,56),C,1:RETURN
  115. 8290  IF S=34 THEN N$="N. CAROLINA":C$="RALEIGH":PAINT(270,110),C,1:RETURN
  116. 8300  IF S=35 THEN N$="N. DAKOTA":C$="BISMARCK":PAINT(140,30),C,1:RETURN
  117. 8310  IF S=36 THEN N$="S. DAKOTA":C$="PIERRE":PAINT(140,50),C,1:RETURN
  118. 8320  IF S=37 THEN N$="OHIO":C$="COLUMBUS":PAINT(240,70),C,1:RETURN
  119. 8330  IF S=38 THEN N$="OKLAHOMA":C$="OKLAHOMA CITY":PAINT(150,120),C,1:RETURN
  120. 8340  IF S=39 THEN N$="OREGON":C$="SALEM":PAINT(50,40),C,1:RETURN
  121. 8350  IF S=40 THEN N$="PENNSYLVANIA":C$="HARRISBURG":PAINT(260,70),C,1:RETURN
  122. 8360  IF S=41 THEN N$="S. CAROLINA":C$="COLUMBIA":PAINT(254,120),C,1:RETURN
  123. 8370  IF S=42 THEN N$="TENNESSEE":C$="NASHVILLE":PAINT(210,116),C,1:RETURN
  124. 8380  IF S=43 THEN N$="TEXAS":C$="AUSTIN":PAINT(140,150),C,1:RETURN
  125. 8390  IF S=44 THEN N$="VIRGINA":C$="RICHMOND":PAINT(260,90),C,1:RETURN
  126. 8400  IF S=45 THEN N$="WASHINGTON":C$="OLYMPIA":PAINT(40,24),C,1:RETURN
  127. 8410  IF S=46 THEN N$="W. VIRGINIA":C$="CHARLESTON":PAINT(246,88),C,1:RETURN
  128. 8420  IF S=47 THEN N$="WISCONSIN":C$="MADISON":PAINT(200,50),C,1:RETURN
  129. 8430  IF S=48 THEN N$="WYOMING":C$="CHEYENNE":PAINT(100,60),C,1:RETURN
  130. 8440  RETURN
  131. 8460  XX=XX+1:C=2:RANDOMIZE XX:S=INT((100*RND)/2):GOSUB 7960:LOCATE 1,10:PRINT"THE STATE IN RED IS":LOCATE 23,22:PRINT"'+` TO END
  132. 8530  LOCATE 25,2:INPUT;" ";ANSWER$:GETOUT=GETOUT+1:IF LEFT$(ANSWER$,1)="+"THEN Z$="+
  133. 8560  IF LEFT$(ANSWER$,5)=LEFT$(N$,5)THEN 8710
  134. 8570  IF LEFT$(ANSWER$,1)="+"AND GETOUT<2 THEN 6910
  135. 8580  IF LEFT$(ANSWER$,1)="+"THEN Z$="+":GOTO 8790
  136. 8590  LOCATE 24,2:PRINT"WRONG",:BEEP:FOR I=1 TO 1000:NEXT I:COUNT=COUNT+1:PAINT(20,190),1,1:IF COUNT<3 THEN 8530
  137. 8640  LOCATE 23,2:PRINT"CORRECT";:LOCATE 24,2:PRINT"STATE IS";:LOCATE 25,2:PRINT N$;:FOR I=1 TO 3000:NEXT I:PAINT(20,190),1,1:IF Z$="+"THEN 8790
  138. 8700  GOTO 8790
  139. 8710  LOCATE 24,2:PRINT"CORRECT";:BEEP:SCORE=SCORE+1:SCORE(SCORE)=S:IF SCORE=48 GOTO 8840
  140. 8750  FOR I=1 TO 1000:NEXT I:PAINT(20,190),1,1:FOR I=1 TO 1000:NEXT I:PAINT(20,190),1,1
  141. 8790  C=0:COUNT=0:GOSUB 7960:IF Z$="+"THEN 8840
  142. 8830  GOTO 8460
  143. 8840  PAINT(150,5),1,1:FOR I=1 TO SCORE:IF GETOUT<2 THEN 6910
  144. 8870  S=SCORE(I):C=2:GOSUB 7960:LOCATE 20,2:PRINT"CORRECT":PAINT(20,195),1,1:LOCATE 21,2:PRINT"ANSWERS WERE":IF CHOICE=3 THEN LOCATE 22,2:PRINT C$
  145. 8930  LOCATE 23,2:PRINT N$:BEEP:FOR B=1 TO(CHOICE*1000):NEXT B:IF I=SCORE THEN 8990
  146. 8970  PAINT(20,180),1,1:NEXT I
  147. 8990  FOR B=1 TO(CHOICE*1000):NEXT B:LOCATE 22,2:PRINT"        ":PAINT(20,180),1,1
  148. 9020  Z$=INKEY$:IF Z$=""THEN 9020
  149. 9030  CLEAR:GOTO 6910
  150. 9040  XX=XX+1:C=2:RANDOMIZE XX:S=INT((100*RND)/2):GOSUB 7960:LOCATE 1,8:PRINT"THE CAPITAL OF ";N$;" IS":LOCATE 23,22:PRINT"'+` TO END
  151. 9110  LOCATE 25,2:INPUT;" ";ANSWER$:GETOUT=GETOUT+1:IF LEFT$(ANSWER$,1)="+"THEN Z$="+
  152. 9140  IF LEFT$(ANSWER$,5)=LEFT$(C$,5)THEN 9300
  153. 9150  IF LEFT$(ANSWER$,1)="+"AND GETOUT<2 THEN 6910
  154. 9160  IF LEFT$(ANSWER$,1)="+"THEN Z$="+":GOTO 9390
  155. 9170  LOCATE 24,2:PRINT"WRONG";:BEEP:FOR I=1 TO 1000:NEXT I:COUNT=COUNT+1:PAINT(20,190),1,1:IF COUNT<3 THEN 9110
  156. 9220  LOCATE 23,2:PRINT"CORRECT";:LOCATE 24,2:PRINT"CAPITAL IS";:LOCATE 25,2:PRINT C$;:FOR I=1 TO 3000:NEXT I:PAINT(150,5),1,1:PAINT(20,190),1,1:IF Z$="+"THEN 9390
  157. 9290  GOTO 9390
  158. 9300  LOCATE 24,2:PRINT"CORRECT";:BEEP:SCORE=SCORE+1:SCORE(SCORE)=S:IF SCORE=48 GOTO 9440
  159. 9340  FOR I=1 TO 1000:NEXT I:PAINT(20,190),1,1:PAINT(150,5),1,1:FOR I=1 TO 1000:NEXT I:PAINT(20,190),1,1
  160. 9390  C=0:COUNT=0:GOSUB 7960:IF Z$="+"THEN 9440
  161. 9430  GOTO 9040
  162. 9440  GOTO 8840
  163. 10000  SCREEN 0:COLOR 7,1,0:WIDTH 40:X=24:Y=0
  164. 10010  LOCATE X,1:PRINT" * * * * * * ";:LOCATE X,14:FOR I=15 TO 40:IF Y=0 OR Y=4 OR Y=8 OR Y=1 OR Y=5 OR Y=9 THEN COLOR 4 ELSE COLOR 7
  165. 10040  PRINT CHR$(219);:LOCATE X,I:NEXT I:LOCATE X,40:PRINT CHR$(219);:COLOR 7:Y=Y+1:IF X=24 THEN X=X-1:GOTO 10010
  166. 10069  IF Y>=10 THEN 10140
  167. 10070  LOCATE(X+1),1:PRINT"  * * * * *  ";:LOCATE(X+1),14:FOR I=15 TO 40:IF Y=0 OR Y=4 OR Y=8 OR Y=1 OR Y=5 OR Y=9 THEN COLOR 7 ELSE COLOR 4
  168. 10090  PRINT CHR$(219);:LOCATE(X+1),I:NEXT I:LOCATE(X+1),40:PRINT CHR$(219);:X=X+1:GOTO 10010
  169. 10140  Z=0:PRINT:FOR I=1 TO 40:LOCATE 23,I:IF I>13 THEN COLOR 4 ELSE COLOR 1
  170. 10165  PRINT CHR$(219);:NEXT I
  171. 10180  PRINT:FOR I=1 TO 40:LOCATE 23,I:IF Z=0 OR Z=1 OR Z=4 OR Z=5 OR Z=8 OR Z=9 OR Z=12 OR Z=13 THEN COLOR 7 ELSE COLOR 4
  172. 10210  IF Z=12 THEN 10260
  173. 10220  PRINT CHR$(219);:NEXT I:Z=Z+1:GOTO 10180
  174. 10260  COLOR 7,0,0:LOCATE 25,17:PRINT"THE END";:FOR I=1 TO 5000:NEXT I:CLS:SCREEN 0:WIDTH 80
  175.