home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 04 / 0013 / 50states.bas (.txt) next >
Encoding:
GW-BASIC  |  1991-12-02  |  21.8 KB  |  360 lines
  1. 1  KEY OFF:KEY(8) ON :ON KEY(8) GOSUB 251
  2. 2  CLS:SCREEN 0
  3. 3  DEF SEG=0
  4. 4  IF (PEEK(&H410) AND &H30)<>&H30 THEN MONO$="F"                                   ELSE MONO$="T"
  5. 5  IF MONO$="T" THEN RW=10 ELSE RW=22
  6. 6  DEF SEG=0:POKE &H417,&H40:DEF SEG
  7. 7  DIM S$(50),C$(50),A$(50),POP#(50),AREA#(50),FLW$(50),TREE$(50),BIRD$(50),           R(50),C(50),FACT1$(50),FACT2$(50)
  8. 8  FOR I = 1 TO 50
  9. 9  READ S$(I), C$(I), A$(I), POP#(I), AREA#(I), FLW$(I), TREE$(I), BIRD$(I)
  10. 10  NEXT I
  11. 11  FOR I = 1 TO 50
  12. 12   READ R(I),C(I)
  13. 13  NEXT I
  14. 14  FOR I = 1 TO 50
  15. 15   READ FACT1$(I),FACT2$(I)
  16. 16  NEXT I
  17. 17  GOTO 174  'MAIN PROG
  18. 18  DATA ALABAMA,MONTGOMERY,AL,3444165,51609,CAMELLIA,SOUTHERNPINE,YELLOWHAMMER
  19. 19  DATA ALASKA,JUNEAU,AK,302173,586412,FORGET-ME-NOT,SITKA SPRUCE,WILLOW PTARMIGAN
  20. 20  DATA ARIZONA,PHOENIX,AZ,1772482,113909,SAGUARO CACTUS,PALO VERDE,CACTUS WREN
  21. 21  DATA ARKANSAS,LITTLE ROCK,AR,1923295,53104,APPLE BLOSSOM,PINE,MOCKINGBIRD
  22. 22  DATA CALIFORNIA,SACRAMENTO,CA,19153134,158693,GOLDEN POPPY,CALIFORNIA REDWOOD, CALIFORNIA VALLEY QUAIL
  23. 23  DATA COLORADO,DENVER,CO,2207259,104247,ROCKY MOUNTAIN COLUMBINE,BLUE SPRUCE, LARK BUNTING
  24. 24  DATA CONNECTICUT,HARTFORD,CT,3032217,5009,MOUNTAIN LAUREL,WHITE OAK,ROBIN
  25. 25  DATA DELAWARE,DOVER,DE,548104,2057,PEACH BLOSSOM,AMERICAN HOLLY,BLUE HEN CHICKEN
  26. 26  DATA FLORIDA,TALLAHASSEE,FL,6789443,58560,ORANGE BLOSSOM,SABAL PALM,MOCKING BIRD
  27. 27  DATA GEORGIA,ATLANTA,GA,4589575,58876,CHEROKEE ROSE,LIVE OAK,BROWN THRASHER
  28. 28  DATA HAWAII,HONOLULU,HI,769913,6450,HIBISCUS,KUKUI (CANDLENUT),NENE (HAWAIIAN GOOSE)
  29. 29  DATA IDAHO,BOISE,ID,713008,83557,MOCK ORANGE,WESTERN WHITE PINE,MOUNTAIN BLUEBIRD
  30. 30  DATA ILLINOIS,SPRINGFIELD,IL,11113976,56400,VIOLET,OAK,CARDINAL
  31. 31  DATA INDIANA,INDIANAPOLIS,IN,5193669,36291,PEONY,TULIP TREE,CARDINAL
  32. 32  DATA IOWA,DES MOINES,IA,2825041,56290,WILD ROSE,OAK,EASTERN GOLDFINCH
  33. 33  DATA KANSAS,TOPEKA,KS,2249071,82264,SUNFLOWER,COTTONWOOD,WESTERN MEADOWLARK
  34. 34  DATA KENTUCKY,FRANKFORT,KY,3219311,40395,GOLDENROD,TULIP POPLAR,CARDINAL
  35. 35  DATA LOUISIANA,BATON ROUGE,LA,3643180,48523,MAGNOLIA,CYPRESS,LOUISIANA BROWN PELICAN
  36. 36  DATA MAINE,AUGUSTA,ME,993663,33215,WHITE PINE CONE AND TASSEL,WHITE PINE,CHICKADEE
  37. 37  DATA MARYLAND,ANNAPOLIS,MD,3922399,10577,BLACK-EYED SUSAN,WHITE OAK,BALTIMORE ORIOLE
  38. 38  DATA MASSACHUSETTS,BOSTON,MA,5689170,8257,MAYFLOWER,AMERICAN ELM,CHICKADEE
  39. 39  DATA MICHIGAN,LANSING,MI,8875083,58216,APPLE BLOSSOM,WHITE PINE,ROBIN
  40. 40  DATA MINNESOTA,ST.PAUL,MN,3805069,84068,SHOWY LADY'S-SLIPPER,NORWAY PINE,LOON
  41. 41  DATA MISSISSIPPI,JACKSON,MS,2216912,47716,MAGNOLIA,MAGNOLIA,MOCKINGBIRD
  42. 42  DATA MISSOURI,JEFFERSON CITY,MO,4677399,69686,HAWTHORN,FLOWERING DOGWOOD,BLUEBIRD
  43. 43  DATA MONTANA,HELENA,MT,694409,147138,BITTERROOT,PONDEROSA PINE,WESTERN MEADOWLARK
  44. 44  DATA NEBRASKA,LINCOLN,NE,1483791,77227,GOLDENROD,AMERICAN ELM,WESTERN MEADOWLARK
  45. 45  DATA NEVADA,CARSON CITY,NV,488738,110540,SAGEBRUSH,SINGLE-LEAF PINON,MOUNTAIN BLUEBIRD
  46. 46  DATA NEW HAMPSHIRE,CONCORD,NH,737681,9304,PURPLE LILAC,WHITE BIRCH,PURPLE FINCH
  47. 47  DATA NEW JERSEY,TRENTON,NJ,7168164,7836,VIOLET,RED OAK,EASTERN GOLDFINCH
  48. 48  DATA NEW MEXICO,SANTA FE,NM,1016000,121666,YUCCA,PINON,ROAD RUNNER
  49. 49  DATA NEW YORK,ALBANY,NY,18241266,49576,ROSE,SUGAR MAPLE,BLUEBIRD
  50. 50  DATA NORTH CAROLINA,RALEIGH,NC,5082059,52586,FLOWERING DOGWOOD,PINE,CARDINAL
  51. 51  DATA NORTH DAKOTA,BISMARK,ND,617761,70665,WILD PRAIRIE ROSE,AMERICAN ELM,WESTERN MEADOWLARK
  52. 52  DATA OHIO,COLUMBUS,OH,10652017,41222,SCARLET CARNATION,BUCKEYE,CARDINAL
  53. 53  DATA OKLAHOMA,OKLAHOMA CITY,OK,2559253,69919,MISTLETOE,REDBUD,SCISSOR-TAILED FLYCATCHER
  54. 54  DATA OREGON,SALEM,OR,2091385,96981,OREGON GRAPE,DOUGLAS FIR,WESTERN MEADOWLARK
  55. 55  DATA PENNSYLVANIA,HARRISBURG,PA,11793909,45333,MOUNTAIN LAUREL,HEMLOCK,RUFFED GROUSE
  56. 56  DATA RHODE ISLAND,PROVIDENCE,RI,949723,1214,VIOLET,RED MAPLE,RHODE ISLAND RED
  57. 57  DATA SOUTH CAROLINA,COLUMBIA,SC,2590516,31055,YELLOW JESSAMINE,PALMETTO,CAROLINA WREN
  58. 58  DATA SOUTH DAKOTA,PIERRE,SD,666257,77047,PASQUEFLOWER,BLACK HILLS SPRUCE,RING-NECKED PHEASANT
  59. 59  DATA TENNESSEE,NASHVILLE,TN,3924164,42244,IRIS,TULIP POPLAR,MOCKINGBIRD
  60. 60  DATA TEXAS,AUSTIN,TX,11196730,267338,BLUEBONNET,PECAN,MOCKINGBIRD
  61. 61  DATA UTAH,SALT LAKE CITY,UT,1059273,84916,SEGO LILY,BLUE SPRUCE,SEAGULL
  62. 62  DATA VERMONT,MONTPELIER,VT,444732,9609,RED CLOVER,SUGAR MAPLE,HERMIT THRUSH
  63. 63  DATA VIRGINIA,RICHMOND,VA,4648494,40817,FLOWERING DOGWOOD,none,CARDINAL
  64. 64  DATA WASHINGTON,OLYMPIA,WA,3409169,68192,COAST RHODODENDRON,WESTERN HEMLOCK,WILLOW GOLDFINCH
  65. 65  DATA WEST VIRGINIA,CHARLESTON,WV,1744237,24181,RHODODENDRON,SUGAR MAPLE,CARDINAL
  66. 66  DATA WISCONSIN,MADISON,WI,4417933,56154,WOOD VIOLET,SUGAR MAPLE,ROBIN
  67. 67  DATA WYOMING,CHEYENNE,WY,332416,97914,INDIAN PAINTBRUSH,COTTONWOOD,MEADOWLARK
  68. 68  DATA 438,95,118,115,120,90,370,89,27,60,220,65,582,44,562,61,483,107
  69. 69  DATA 471,92,469,132,100,40,400,66,423,68,358,56,325,70,455,71,382,110,594
  70. 70  DATA 29,543,59,587,39,449,50,358,39,395,101,370,71,145,28,319,58,57,57,583
  71. 71  DATA 35,566,53,204,85,563,40,538,78,265,28,465,62,300,85,36,28,533,54,591
  72. 72  DATA 42,516,88,270,42,435,81,284,110,142,57,569,32,540,68,47,14,495,68
  73. 73  DATA 393,47,218,55
  74. 74  DATA "Alabama has a statue in honor of a bug (the boll weevil).           "
  75. 75  DATA "Helen Keller's birth place was Tuscumbia, Alabama.                  "
  76. 76  DATA "Alaska is closer to Russia than it is to any state of the U.S.      "
  77. 77  DATA "Alaska has a longer coast line than all of the other states.        "
  78. 78  DATA "Arizona has the worlds largest canyon (the Grand Canyon).           "
  79. 79  DATA "Arizona has 17 national monuments more than any other state.        "
  80. 80  DATA "Arkansas passed a resolution on how to say its name.                "
  81. 81  DATA "Arkansas has the only diamond mine in North America.                "
  82. 82  DATA "The largest living things in the world are in California (Sequoias)."
  83. 83  DATA "More kinds of minerals are mined in California than any other state."
  84. 84  DATA "Colorado is the highest state.                                      "
  85. 85  DATA "The city of Boulder owns a glacier for its water supply.            "
  86. 86  DATA "Connecticut had the first written constitution in the U.S.          "
  87. 87  DATA "More people work manufacturing in Connecticut than in any state.    "
  88. 88  DATA "Deleware is the first state in the U.S.                             "
  89. 89  DATA "Flour was first made in a single mill in Deleware.                  "
  90. 90  DATA "Flordia has more lakes than any other state (30,000+).              "
  91. 91  DATA "The Everglades is one of the worlds largest swamps.                 "
  92. 92  DATA "An Atlanta drugstore was the first to serve Coca-Cola in 1887.      "
  93. 93  DATA "Georgia is the largest state east of the Mississippi River.         "
  94. 94  DATA "Hawaii is the only state that is not part of North America.         "
  95. 95  DATA "Hawaii has the worlds largest orchid-growing business.              "
  96. 96  DATA "Idaho grew 27 billion potatoes in one year.                         "
  97. 97  DATA "The first electricity from nuclear reactions was made in Idaho.     "
  98. 98  DATA "O'Hare airport,Chicago has a plane taking off or landing each minute"
  99. 99  DATA "Chicago is one of the busiest sea ports in the world.               "
  100. 100  DATA "Indiana has the third largest cave in the U.S. Wyandotte cave.      "
  101. 101  DATA "New Harmony, Indiana was the first location of co-ed classes.       "
  102. 102  DATA "Iowa has the largest state fair in the U.S.                         "
  103. 103  DATA "More people of Iowa than any other state can read and write.        "
  104. 104  DATA "Kansas grows more wheat than any other state.                       "
  105. 105  DATA "More than half of the private planes in the U.S. are built in Kansas"
  106. 106  DATA "The worlds largest base ball bat manufacturing plant is in Kentucky."
  107. 107  DATA "Kentucky was the first state west of the Appalachian Mountains.     "
  108. 108  DATA "The worlds longest bridge is north of New Orleans (24 miles long).  "
  109. 109  DATA "Jazz Music was first played in New Orleans, Louisiana.              "
  110. 110  DATA "Maine is the most eastern state in the U.S.                         "
  111. 111  DATA "Maine is first in Manufacturing of Wooden Tooth picks.              "
  112. 112  DATA "The Star-Spangled Banner was written off shore from Baltimore.      "
  113. 113  DATA "The state sport of Maryland is jousting.                            "
  114. 114  DATA "The first college in the Colonies was Harvard at Cambridge,MA.      "
  115. 115  DATA "Other firsts for MA are public school, printing press, and subway.  "
  116. 116  DATA "More cars and trucks are built in Detroit than any other city.      "
  117. 117  DATA "Michigan has more campsites than any other state.                   "
  118. 118  DATA "More butter comes from Minnesota than any other state.              "
  119. 119  DATA "One of the Worlds greatest medical centers is Mayo Clinic in MN.    "
  120. 120  DATA "Jackson has the largest Model of the Mississippi R. to warn of flood"
  121. 121  DATA "Mississippi has more tree farms than any other state.               "
  122. 122  DATA "Eight states border Missouri.                                       "
  123. 123  DATA "The Pony Express had its eastern end in Missouri.                   "
  124. 124  DATA "The first woman elected to Congress was Jeanette Rankin from Montana"
  125. 125  DATA "Almost all the mustard grown in the U.S. comes from Montana.        "
  126. 126  DATA "Wagon wheel ruts can still be seen by some roads in Nebraska.       "
  127. 127  DATA "Nebraska has the only National Forests completely planted by man.   "
  128. 128  DATA "Nevada is the only state where most kinds of gambling are legal.    "
  129. 129  DATA "Most of Nevada is still owned by the U.S. Government.               "
  130. 130  DATA "New Hampshire was the first colony to set up its own government.    "
  131. 131  DATA "New Hampshire has the shortest coast line of any state on the oceans"
  132. 132  DATA "The first professional baseball game was played in Ney Jersey.      "
  133. 133  DATA "Samuel Morse invented the telegraph in New Jersey.                  "
  134. 134  DATA "The first Atomic Bomb was set off in New Mexico in 1945.            "
  135. 135  DATA "The oldest public building, the Palace of the Govenors, is in NM.   "
  136. 136  DATA "The port of New York is the biggest and the busiest in the U.S.     "
  137. 137  DATA "New York City was the first National Capitol of the U.S.            "
  138. 138  DATA "The first successful airplane flight was made at Kitty Hawk,NC.     "
  139. 139  DATA "The worlds largest denim mill is in Greensboro, North Carolina.     "
  140. 140  DATA "Underground fires in coal beds in ND have been burnning for decades."
  141. 141  DATA "North Dakota has more people working on farms than any other state. "
  142. 142  DATA "Hot dogs , ice cream cones, and cracker jack all came from Ohio.    "
  143. 143  DATA "Ohio is third in manufacturing behind New York and California.      "
  144. 144  DATA "More Indains live in Oklahoma than any other state.                 "
  145. 145  DATA "Choctaw words OKLA meaning people and HUMMA for red giving Oklahoma."
  146. 146  DATA "Oregon has the deepest lake in the U.S. Crater Lake at 1,932 feet.  "
  147. 147  DATA "Oregon is the only state that mines nickel.                         "
  148. 148  DATA "The worlds largest chocolate factory is in Hershey, Pennsylvania.   "
  149. 149  DATA "The worlds first oil well was drilled in Pennsylvania.              "
  150. 150  DATA "Rhode Island was the last colony to become a state.                 "
  151. 151  DATA "RI has more people per square mile than any state except New Jersey."
  152. 152  DATA "More Revolutionary War battles were fought in South Carolina.       "
  153. 153  DATA "The first opera and symphony orchestra were heard in South Carolina."
  154. 154  DATA "The largest producing gold mine is in South Dakota.                 "
  155. 155  DATA "Almost all of South Dakota is used for farms and ranches.           "
  156. 156  DATA "The Tennessee River runs through the state twice.                   "
  157. 157  DATA "W.C.Handy the father of the Blues style of music lived in Memphis.  "
  158. 158  DATA "More land is farmed in Texas than any other state.                  "
  159. 159  DATA "Texas has the most different types of wild flowers.                 "
  160. 160  DATA "The water in Great Salt Lake is 4 times as salty as the ocean.      "
  161. 161  DATA "The Mormons picked Utah because noone else wanted that land.        "
  162. 162  DATA "Vermount was the first state in which all men could vote.           "
  163. 163  DATA "Vermount was the 14th state in the Union.                           "
  164. 164  DATA "More Presidents were born in Virgina than any other state.          "
  165. 165  DATA "The first sucessful English colony was here at Jamestowm, Virgina.  "
  166. 166  DATA "Washington is the only state named for a President.                 "
  167. 167  DATA "WWII was ended here aboard the USS.Missouri in Washington.          "
  168. 168  DATA "More than half the worlds marbles are made in Clarkesburg, WV.      "
  169. 169  DATA "Coal is found under more than half of West Virgina.                 "
  170. 170  DATA "The first kindergarten in the U.S. was opened in 1856 in Wisconsin. "
  171. 171  DATA "The first statewide bicycle trail was set up in Wisconsin.          "
  172. 172  DATA "American women first voted in Wyoming.                              "
  173. 173  DATA "The first U.S. National Monument is in Wyoming (Devils Tower)       "
  174. 174  IF MONO$="F" THEN GOSUB 252 :GOTO 176     'DRAW THE MAP
  175. 175  GOSUB 243 'NON-GRAPHICS DISPLAY
  176. 176  LOCATE 19,10 :PRINT " S T A T E     F A C T S"
  177. 177  LOCATE 21,10 :PRINT " Interesting facts about"
  178. 178  LOCATE 22,10 :PRINT "    the United States   "
  179. 179  LOCATE 22,45 :PRINT "Written by John M. Keith"
  180. 180  LOCATE 24,25 :PRINT "Press Any key to continue";: ROW=3: COL=7
  181. 181  TROW=3:TCOL=7 :T=1
  182. 182  ANS$=INKEY$ :IF ANS$="" THEN 182 ELSE SCREEN 0 :COLOR 3,0,0:CLS
  183. 183  FOR N=1 TO 50
  184. 184    IF N <= 20 THEN LOCATE N+2,7 :PRINT S$(N);
  185. 185    IF N > 20 AND N <=40 THEN LOCATE N-18,32 :PRINT S$(N);
  186. 186    IF N > 40 AND N <=50 THEN LOCATE N-38,60 :PRINT S$(N);
  187. 187  NEXT N
  188. 188  COLOR 0,3,0:LOCATE 14,50 :PRINT "                           ";
  189. 189  LOCATE 15,50 :PRINT "    Use the cursor keys    ";
  190. 190  LOCATE 16,50 :PRINT "    to choose the state    ";
  191. 191  LOCATE 17,50 :PRINT "    you want, then press   ";
  192. 192  LOCATE 18,50 :PRINT "    enter (";CHR$(17);"SOUND').           ";
  193. 193  LOCATE 19,50 :PRINT "                           ";:COLOR 3,0,0:I=T
  194. 194  LOCATE 24,28 :PRINT "Press [F8] to exit.";
  195. 195  ROW=TROW: COL=TCOL: DEF SEG = 0:POKE &H417,(PEEK(&H417) OR &H20)  'numeric
  196. 196  T=I:TROW=ROW:TCOL=COL :COLOR 14,0,0 :LOCATE ROW,COL-1,0 :PRINT CHR$(16);
  197. 197  COLOR 3,0,0 :INPT$=INKEY$ :IF INPT$="" THEN 197
  198. 198  IF INPT$="2" THEN LOCATE ROW,COL-1,0 :PRINT " ";:I=I+1 ELSE 204
  199. 199     IF I <= 20 THEN ROW=ROW+1    :GOTO 196
  200. 200     IF I = 21  THEN ROW=3:COL=32 :GOTO 196
  201. 201     IF I <= 40 THEN ROW=ROW+1    :GOTO 196
  202. 202     IF I = 41 THEN ROW=3 :COL=60 :GOTO 196
  203. 203     IF I <= 50 THEN ROW=ROW+1    :GOTO 196 ELSE BEEP :I=I-1:GOTO 196
  204. 204  IF INPT$="4" THEN LOCATE ROW,COL-1,0 :PRINT " ";:I=I-20 ELSE 208
  205. 205     IF I >= 1 AND I <= 20 THEN ROW=I+2 :COL=7   :GOTO 196
  206. 206     IF I >= 21 AND I<= 40 THEN ROE=I-18:COL=32  :GOTO 196
  207. 207     IF I >= 41 AND I<=50 THEN ROW=I-38:COL=60   :GOTO 196                                ELSE BEEP :I=T: ROW=TROW :COL=TCOL :GOTO 196
  208. 208  IF INPT$="8" THEN LOCATE ROW,COL-1,0 :PRINT " ";:I=I-1 ELSE GOTO 214
  209. 209     IF I >= 1  AND I <= 19 THEN ROW=ROW-1    :GOTO 196
  210. 210     IF I = 20 THEN ROW=22:COL=7              :GOTO 196
  211. 211     IF I >= 21 AND I <= 39 THEN ROW=ROW-1    :GOTO 196
  212. 212     IF I =40 THEN ROW=22:COL=32              :GOTO 196
  213. 213     IF I >= 41 AND I <= 50 THEN ROW=ROW-1    :GOTO 196                                   ELSE BEEP :I=T :ROW=TROW :COL=TCOL :GOTO 196
  214. 214  IF INPT$="6" THEN LOCATE ROW,COL-1,0 :PRINT " ";:I=I+20 :ELSE 217
  215. 215     IF I >=21 AND I <= 40 THEN ROW=I-18:COL=32  :GOTO 196
  216. 216     IF I >=41 AND I <= 50 THEN ROW=I-38:COL=60  :GOTO 196                                ELSE BEEP :I=T :ROW=TROW :COL=TCOL :GOTO 196
  217. 217  IF INPT$<> CHR$(13) THEN GOTO 196
  218. 218  CLS :IF MONO$="F" THEN GOSUB 252 :PAINT (R(I),C(I)),1 ELSE GOSUB 243 :GOTO 222
  219. 219  IF I = 22 THEN PAINT (403,32),1    'finishes Michigan
  220. 220  IF I = 11 THEN PAINT (397,130),1:PAINT (419,130),1:PAINT (447,129),1:                          PAINT (452,129)   'finishes the Hawaiian Islands
  221. 221  IF I = 2 THEN  PAINT (175,128):PAINT (163,125),1:                                              PAINT (103,131),1    'finishes Alaska
  222. 222  LOCATE 19,10:PRINT "State Name     ";S$(I);
  223. 223  LOCATE 20,10:PRINT "State Abbr.    ";A$(I);
  224. 224  LOCATE 21,10:PRINT "State Capitol  ";C$(I);
  225. 225  LOCATE 22,10:PRINT "Population     ";USING "###,###,###";POP#(I);
  226. 226  LOCATE 19,40:PRINT "State Area     ";USING "###,### \    \";AREA#(I);"sq.mi.";
  227. 227  LOCATE 20,40:PRINT "State Flower   ";FLW$(I);
  228. 228  LOCATE 21,40:PRINT "State Bird     ";BIRD$(I);
  229. 229  LOCATE 22,40:PRINT "State Tree     ";TREE$(I);
  230. 230  LOCATE 24,10:PRINT "Do you want to see a fabulous fact about ";S$(I);"? (Y/N) ";
  231. 231  INPT$=INKEY$ :IF INPT$="" THEN 231 ELSE IF INPT$="N" OR INPT$="n" THEN 240 ELSE IF INPT$<>"y" AND INPT$<>"Y" THEN GOTO 231
  232. 232  LOCATE 24,10 :PRINT STRING$(69,32);
  233. 233  LOCATE 23,10 :PRINT FACT1$(I);
  234. 234  LOCATE 24,10 :PRINT "Do you want to see another fabulous fact about ";S$(I);"? (Y/N) ";
  235. 235  INPT$=INKEY$ :IF INPT$="" THEN 235
  236. 236  IF INPT$="n" OR INPT$="N" THEN 240 ELSE IF INPT$<>"y" AND INPT$<>"Y" THEN GOTO 235
  237. 237  LOCATE 23,10 :PRINT STRING$(69,32);
  238. 238  LOCATE 24,10 :PRINT STRING$(69,32);
  239. 239  LOCATE 23,10 :PRINT FACT2$(I);
  240. 240  LOCATE 24,10 :PRINT "             Press any key to continue                       ";
  241. 241  GOTO 182
  242. 242  GOTO 358
  243. 243  CR= 254 :LOCATE 3,6 :PRINT STRING$(68,CR)
  244. 244  FOR SCN = 4 TO 16
  245. 245    LOCATE SCN,6 :PRINT CHR$(CR);
  246. 246    LOCATE SCN,73 :PRINT CHR$(CR);
  247. 247  NEXT SCN
  248. 248  LOCATE 17,6 :PRINT STRING$(68,CR);
  249. 249  LOCATE 10,28 :PRINT "S T A T E   F A C T S"
  250. 250  RETURN
  251. 251  GOTO 358
  252. 252  ' MAP2 = Draws a U.S. map          by   Charlie Bennett
  253. 253  DEF SEG=&H40 : DISPLAY=PEEK(&H10)
  254. 254  IF (DISPLAY AND &H30) = &H30 THEN MONOCHROME = 1 ELSE MONOCHROME = 0
  255. 255  IF MONOCHROME THEN WIDTH 80: DEF SEG=0: A=PEEK(&H410): POKE &H410,(A AND &HCF) OR &H20
  256. 256  SCREEN 0 :WIDTH 80
  257. 257  SCREEN 2
  258. 258  CLS
  259. 259  KEY OFF
  260. 260  LET X=4
  261. 261  PSET (35,8)
  262. 262  DRAW "S=X;A0C1R2F1R2F1R7F1R5U1R2U3R6D1R12D1R12D1R12D1R14D1G2D1G2D1G2D1G2D1G1D1L10U1L35H1L13H1U3L5H1L4H1R2U1H1E1U4H1E1U1"
  263. 263  PSET (34,19)
  264. 264  DRAW "S=X;A0C1L1D1L1G1D1G1L1D1L1G4L1G3L1G1L3D1G1L2D2G1D2R8D1R9D1R11D1R11D1R11D1R11D1R11D1R4U1E3U1E2U1E2R1U1L2U1E1R3E1R1U1R1E1R1E1U1L1H1L1U1R2L10U1L35H1L13H1U3L5H1"
  265. 265  PSET (12,39)
  266. 266  DRAW "S=X;A0C1L1G1F1G1L1G1D1L1G1L3G1D1R1F2D2G1D1G1R1F2R1F2G1R1F1R3U1R3G1D1F2L2H2L1G1D2R1F1R2F1G1L2D1F2R1D1R1D1R1F1R2D1G1R3D1L1D1G1R1F1R7F1R4F2R5D1R3F1D1R4"
  267. 267  DRAW "S=X;A0C1F1R2F3R1D1G1D1R20D1R13E1H1U1E1R1E3R3E1L1H3U1L1H1L1H1L1H1L1H1L2H1L1H1L1H1L2H1L1H2L1H1L2H2L1H1L2H1L1H1L1H1L1H1L1H1L1H1L1H1L1H1U1E1U1E1U1E6U1E3"
  268. 268  DRAW "U1L9U1L11U1L11U1L11U1"
  269. 269  PSET (89,92)
  270. 270  DRAW "S=X;A0C1D1L3G1R3F1R5F1R5F1R4F1R5F1R3F1R4F1R4F1R11F1R17U3E2U2E1U1E1U1E1U1E2U2E1U3E1U2E1U1E1L4U1L19U1L19U1L17G1D1G1L9D4G1"
  271. 271  PSET (107,72)
  272. 272  DRAW "S=X;A0C1U1E2U1E1U1E1U1E3U1E2U1E1U1E1U1E2U2L6U1L15U1L11U1"
  273. 273  PSET (121,48)
  274. 274  DRAW "S=X;A0C1R11D1R16D1R4E1U1E1U1E1U1E1U1E1U1E1U1H2L2D1L15H2L1H1U1H1U2L1G1L1H1E1R1U1H3L1H2L1H1L1H1L1U2H2E3U2L9"
  275. 275  PSET (121,13)
  276. 276  DRAW "S=X;A0C1R15D1R15D1R18D1R15D1R25D1R27D1G1D2G1D3G1D3G1D2G1D3G1L18U1L26U1L22U1L8D1"
  277. 277  PSET (230,38)
  278. 278  DRAW "S=X;A0C1D3G1D3G1D4G1D3G1D3L15U1L26U1L20U1L15U1E1U1E1U1"
  279. 279  PSET (175,56)
  280. 280  DRAW "S=X;A0C1G1D2G1D1G1D1G1D1G1D1G1D2G1D2G1D1G1"
  281. 281  PSET (227,58)
  282. 282  DRAW "S=X;A0C1R24D3G1D4G1D4G1D5G1L20U1L35U1L28H1"
  283. 283  PSET (239,78)
  284. 284  DRAW "S=X;A0C1G1D3G1D5G1D1G1D2G1D4G1D3L33U1L13D1L20D2L4H1L6"
  285. 285  PSET (188,102)
  286. 286  DRAW "S=X;A0C1F1R1F1R2F1R2F1R2F1R2F1R2F1R1D1R1D1R1D2R1F1R2F1R2F1R4F1R3F1R3E1R2U1R1E2R4E1R2F1R9F2R4F1R2F3R1F1D1R3D1R1F2R3D2F1R1D1R1F2R3D1R8F1R8D1R7U3H2U2E2"
  287. 287  DRAW "S=X;A0C1R1E1R1E1R1E1R4E1R5E1R4E1R3E1R3E1R2E1R3E1R5E1R1U1E2U1E2H4L2U9L11H1L16G1L3H1L6G1L1U1L9U1L11H1L4U1L9U5E1U3L36"
  288. 288  PSET (342,95)
  289. 289  DRAW "S=X;A0C1U9H1U1H1U1H1U3L91"
  290. 290  PSET (339,78)
  291. 291  DRAW "S=X;A0C1U5H1U4L2H1L1H1L1E1R2U1L64U1L20"
  292. 292  PSET (330,64)
  293. 293  DRAW "S=X;A0C1H1L1H2L1H1U1H1U1H1L1U1H1L1H2L1H1L2H1L15H1L38U1L29"
  294. 294  PSET (316,51)
  295. 295  DRAW "S=X;A0C1H1E1U1H1E1U9L2H1E1R1U1L82"
  296. 296  PSET (315,34)
  297. 297  DRAW "S=X;A0C1U1H2U5H1L2U1H1U4L72"
  298. 298  PSET (294,19)
  299. 299  DRAW "S=X;A0C1R41U2R4D1F1D1R4F1R15D1R9F1R6E1R2F1R11G1L8G1L3G2L3G2L3G2D2G1L3G1L1D1R2D1G1F1G1R3F1R4F1R2F1R4F1D2NL62R1F1D1F2R4F1R1F1R2F1D1G1L1G1L7D1F1D1G1D1L3H1L13D1L39"
  300. 300  PSET (374,61)
  301. 301  DRAW "S=X;A0C1D2F1R1F1R1F1R3F2D1R2U1R4D2G2R2F1R5F1R2F1D1F1R4D2L3D1G2L9E1R2U1L55
  302. 302  PSET (400,82)
  303. 303  DRAW "S=X;A0C1G1L1G1D1L1G1D1L1G1L1G1L1D1G1L2G2D1L2D1F2G1NL37F3G2L2D1G3R24G1D1R2F2L2D1R5D1L3D1R1F1R6F1G1L1H1L6H1L3D1G1L2U1L1H1L2G2L3H1L3H1L4H1L3U1L3G1F1L10H1L13"
  304. 304  PSET (407,111)
  305. 305  DRAW "S=X;A0C1R2E1R12U3H1U1H1U1H1U15NL26R12E1R22E1R9U1R2E2R5E1R5U1E1R5E1R4U1R2U1L15D1L26D1L37D1L8"
  306. 306  PSET (470,76)
  307. 307  DRAW "S=X;A0C1E1R5E1R2U1R2E1R3E1R2E1L4U1L3H1L1U1H1L3H1L2G1L2H1L2G1L1G1L5H1L6F2L7D1G1L1G1L1G1L4U1L2D1L1D1L2H1L2G1L10D1L2D1L6D2L2H1L2"
  308. 308  PSET (480,67)
  309. 309  DRAW "S=X;A-C1R2U1R2H1E1R2D1U2E1R3E1R2E1U5R1H1U1H2U2G1L1G1L3G1L2G1L3G1L6G1L4U1L23D2F1D1F1D1F1D2F1D2F1"
  310. 310  PSET (445,54)
  311. 311  DRAW "S=X;A0C1D1L22G1L7F1D3F1D3F1D2L1D1R1F2G1L2D1L2D3"
  312. 312  PSET (414,55)
  313. 313  DRAW "S=X;A0C1H2L1H1U2NL25H2U1R1U3R1E1U2E1R1E1U1L2G1L1G1L1G1L1G1L1U1E2R1U2L1G1L1U2L2U1L6H1L5H1L3H1L1D1L1U1E1L2G1L6H1L8"
  314. 314  REM
  315. 315  PSET (379,31)
  316. 316  DRAW "S=X;A0C1E1R5E1R5E1R3E1R2E1R2E1R4D1L3G1L1G1L1D1R2E1R6F2R10E1R9E1R4D1R10D1R2D1L7G1L2H1L6G1L6G1L1G1L1U1L2G1H1G2L1G1L1D1L2"
  317. 317  PSET (426,54)
  318. 318  DRAW "S=X;A0C1E4U1H2L1H2E1H1U1E1U2R2U1R2E2R1D3E2U1R4U1L3U1R10F1R8F1G1R2D3G2L3D2R5E1U1R2E1R4F5R1D2L2U1L1G1D1L2G1D1G1D1"
  319. 319  PSET (493,49)
  320. 320  DRAW "S=X;A0C1R1E1R4E1R3E1R1E1R1E1R2U1L2H1U1R6E1R17E1R2E1R1H2L1U1R2E1R1E2R2E1R2E1R10E1R5D2F1R1D2R1F2R1F2D1F1D3F1D1F1D1G1D1G1L1U2L9H1L3H1L2H1L7D1L15D1L15D1L12U1L1"
  321. 321  PSET (495,55)
  322. 322  DRAW "S=X;A0C1R1F1D2F2R2E1R13E1R9E1R14E1R10E1R4E1R1E1R2U1L4H2U1E2"
  323. 323  PSET (488,71)
  324. 324  DRAW "S=X;A0C1F1R2F1R3E1R5E1R5E1U1E1R1E2U2R3D1R3U2R3E1R1E1U1R8U1L3H1L2G1L5G1L4G1L3U2"
  325. 325  PSET (533,60)
  326. 326  DRAW "S=X;A0C1R3D1R5F1D1L2D2R9F1R4D2F2R1F1R5D1L6D1L12D1L15D1L16D1L21"
  327. 327  PSET (563,71)
  328. 328  DRAW "S=X;A0C1F1R1F1R1F1R1F3G1L3G1L2G1L1G1L6G1L2G1L2G1L1G1D1L7G1H1L3H1L4H1L4H1L10H1L4U1H1L12G1L10G1L8G1L9"
  329. 329  PSET (540,87)
  330. 330  DRAW "S=X;A0C1L2G1L1G1D1G1L3G1L1G1L2G1L2G1L2D1L2G1L4U1H1L3U1L1H1L3H1L2H1L2H1L2H1L4H1L1H2L1G1L1U1L3U3"
  331. 331  PSET (518,97)
  332. 332  DRAW "S=X;A0C1G1D1G1D1L1D2L7D2L3U1L10D1L25H1L1H2U1H1U2E1H1L2H2U1H8"
  333. 333  PSET (468,105)
  334. 334  DRAW "S=X;A0C1L18D1L18D1R2F1D1G1L4U1H1L3D2L3H1"
  335. 335  PSET (436,110)
  336. 336  DRAW "S=X;A0C1R11E1R7F1R7F1R3D1R4F1R2E2R4U1R9F1R3D1R3F1R5D1R1F2D2G1D1R2F2R1F1R1F1R1F1R2F1R4D1R1F1R3F1R4F2D1R8E1R4E1U2H1U2H1U1H1L1H1L1H1L1H1L1H1L1H1L1U2H1L2H1L2H1L1H1L1H1L1H1L1U1L1H1H2U1"
  337. 337  PSET (542,62)
  338. 338  DRAW "S=X;A0C1D1R2F1R7H1L1H2U3R5D3F1D1F1R5D1R3D1G2D1R2U1E3NL3E2L7H7"
  339. 339  PSET (568,62)
  340. 340  DRAW "S=X;A0C1U1H1L2H1L2U1L2H2E1R2G1F1R3F1R3D1R2U2E4U2L4U1R1E1"
  341. 341  PSET (574,50)
  342. 342  DRAW "S=X;A0C1E2R4E1R5E1R7G1L3G1L4G1L6G1L3"
  343. 343  PSET (572,48)
  344. 344  DRAW "S=X;A0C1R1E1R3E1R7E1R5U1H2L10G1L8BR8BE1BR10BF2R5E1U1L3H1L3G1"
  345. 345  PSET (597,43)
  346. 346  DRAW "S=X;A0C1R3U1R3D1R1E1R3E1U1H1L3D1R2D1L6H1L1H1L3U1R1E1L3U2BD2L3G1L11G1L10BR10H2U1H1U1E1U2E1R2U1H1U1L7G1L10G1BE1BR10BE1BR7E1U1R3D1F8R2F1R1"
  347. 347  PSET (595,35)
  348. 348  DRAW "S=X;A0C1R1E1U1E2R5E1R2U1E1R5E1R1E1R3E1R2E1R2U1H1L1H1L1G1L2U2L5H7L2H1L4G1L1G1L2H1L3D1G3D2L1D2R1D1G1L1D1L1D1L2"
  349. 349  PSET (473,135)
  350. 350  DRAW"S=X;A0C1L1D1E2R2E1R2E1U1L5H1L12F1R1D1L1D1R1F1R1F1R1F1R2BU8BL14L6G1L1H1L2G1F1R8E1U1BL15L6D1R6BD2D1L2U1R2BR5BD2D1L1U1BL18BU2H1L4H1L2D1L1G1R3F1R2E1R4BL26U1H1L3G2F1R4BD1BL10D1R1U1"
  351. 351  PSET (179,130)
  352. 352  DRAW "S=X;A0C1U2L1H1L6H1L3H1L3H1L3H1L2F2L1H1L4H1L2G1L2U1H4U1H4U1H4L19H1L12G1L4G1L1G1L4D1R2F1R1D1R4D2L6H1L4G1F2R11D2L4G1L5G1L1G1F1R1D1R2D1R6D2R13G1L1D1L2G1L3G1L1G1L6G1L6D1R7E1R7E1R5U1E1R3E1R2E1R2E2L3"
  353. 353  DRAW "S=X;A0C1E1R3U1E1R4G2D1R3U1R2U1R5U1R5F1R17F1R7F1R2F1R3F1R3F1R8"
  354. 354  PSET (71,136)
  355. 355  DRAW "S=X;A0C1G1L2H1R4BR7D1L3U1R2BR5BD1L1BL2L1BD1L1BH1L2BG1BL2L2BL2L2BU1BL1L5BL2L2BU1BL4L2BU1BL1L2BL2L2BU1BL1L1BU1BL6L2BU1U1R2D1L1"
  356. 356  PSET (0,0)
  357. 357  DRAW "S=X;A0C1R639D198L639U198":RETURN
  358. 358  CLS:SCREEN 2:SCREEN 0,0,0:KEY ON
  359. 359  END
  360.