home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / amigan / amigan 10 / nuke < prev    next >
Encoding:
Text File  |  1994-01-27  |  14.5 KB  |  367 lines
  1. 10 REM-Nuclear attack simulator for the Great Pacific Northwest
  2. 20 REM-by M.F.SMITH  06/16/84
  3. 30 REM-Original program by J.R. DUKAT
  4. 40 REM-Information presented is as good as my sources allow
  5. 50 REM-any corrections or improvements are welcomed........
  6. 60 REM
  7. 70 REM-start it up
  8. 80 SCREEN 1,640,200,4,2
  9. WINDOW 1,"NUKEWAR   ",,6,1
  10. CLS
  11. 90 LOCATE 10,15:PRINT "DO YOU LOVE THE GREAT PACIFIC NORTHWEST?";
  12. 100 FOR T=1 TO 3000:NEXT T:CLS
  13. 110 GOTO 160
  14. 120 GOSUB 2970
  15. 130 GOSUB 2940
  16.  
  17. 150 CLS
  18. 160 COLOR 0,15
  19.  
  20. 180 LINE (157,0)-(500,22),7,B
  21. 190 LINE (157,27)-(500,194),7,B
  22. 200 LOCATE 2,21:PRINT " MAP.....PACIFIC NW";
  23. 210 SCALE=.93
  24. 220 XT=-140:YT=120
  25. 230 IBMX=150+(XT*SCALE):IBMY=99-((YT)*SCALE)
  26. 240 FLG=0
  27. 250 READ X,Y
  28. 260 IF X=999 AND Y=999 THEN 240
  29. 270 IF X=888 AND Y=888 THEN 370
  30. 280 X=X+TX:Y=Y+TY
  31. 290 X0=TX:Y0=TY
  32. 300 X=IBMX+X:Y=IBMY-(Y)
  33. 310 PSET (X,Y),2
  34. 320 IF FLG=0 THEN 340
  35. 330 LINE (X,Y)-(LASTX,LASTY),2
  36. 340 LASTX=X:LASTY=Y
  37. 350 FLG=1
  38. 360 GOTO 250
  39. 370 READ X,Y
  40. 380 IF X=999 AND Y=999 THEN 410
  41. 390 PAINT (X,Y),3,2
  42. 400 GOTO 370
  43. 410 GOSUB 3020 ;DRAW COMPASS ROSE
  44. 420 IF NXTBOMB=1 THEN 2330
  45. 430 LOCATE 5,21:PRINT "  This map covers ";
  46. 440 LOCATE 6,21:PRINT " an area of appx. ";
  47. 450 LOCATE 7,21:PRINT " 1700 sq/mi.  The ";
  48. 460 LOCATE 8,21:PRINT " long dimension is";
  49. 470 LOCATE 9,21:PRINT " about 50 miles - ";
  50. 480 LOCATE 10,21:PRINT " short dimension  ";
  51. 490 LOCATE 11,21:PRINT " about 34 miles.  ";
  52. 500 LOCATE 12,21:PRINT " Downtown SEATTLE ";
  53. 510 LOCATE 13,21:PRINT " is near the      ";
  54. 520 LOCATE 14,21:PRINT " center of the map";
  55. 530 LOCATE 15,21:PRINT " TACOMA is to the ";
  56. 540 LOCATE 16,21:PRINT " south and EVERETT";
  57. 550 LOCATE 17,21:PRINT " is to the north. ";
  58. 560 LOCATE 18,21:PRINT " BREMERTON is to  ";
  59. 570 LOCATE 19,21:PRINT " the West and     ";
  60. 580 LOCATE 20,21:PRINT " BELLEVUE to the  ";
  61. 585 LOCATE 21,21:PRINT " east.            ";
  62. 590 FOR T=1 TO 9000:NEXT T
  63. 600 GOSUB 2970  ;CLEAR BIG BOX
  64. 610 LOCATE 5,21:PRINT " The Puget Sound  ";
  65. 620 LOCATE 6,21:PRINT " and Lake Washing-";
  66. 630 LOCATE 7,21:PRINT " ton make SEATTLE ";
  67. 640 LOCATE 8,21:PRINT " an isthmus.MERCER";
  68. 650 LOCATE 9,21:PRINT " ISLAND is visible";
  69. 660 LOCATE 10,21:PRINT " as is VASHON IS- ";
  70. 661 LOCATE 11,21:PRINT " LAND.  Also the  ";
  71. 662 LOCATE 12,21:PRINT " southern tip of  ";
  72. 663 LOCATE 13,21:PRINT " WHIDBEY ISLAND is";
  73. 664 LOCATE 14,21:PRINT " visible to the   ";
  74. 665 LOCATE 15,21:PRINT " north near the   ";
  75. 666 LOCATE 16,21:PRINT " city of EVERETT. ";
  76. 710 FOR T=1 TO 8000:NEXT T
  77. 720 GOSUB 2970
  78. 730 LOCATE 5,21:PRINT "  This program is ";
  79. 740 LOCATE 6,21:PRINT " to demonstrate   ";
  80. 750 LOCATE 7,21:PRINT " effects from var-";
  81. 760 LOCATE 8,21:PRINT " ious nuclear war-";
  82. 770 LOCATE 9,21:PRINT " heads which might";
  83. 780 LOCATE 10,21:PRINT " be used in attack";
  84. 790 LOCATE 11,21:PRINT " ing The Northwest";
  85. 800 LOCATE 12,21:PRINT " This attack will ";
  86. 810 LOCATE 13,21:PRINT " consist of just  ";
  87. 820 LOCATE 14,21:PRINT " nine 1 MT. bombs.";
  88. 830 LOCATE 15,21:PRINT " They will explode";
  89. 840 LOCATE 16,21:PRINT " at an altitude of";
  90. 850 LOCATE 17,21:PRINT " 8000 ft. This sim";
  91. 860 LOCATE 18,21:PRINT " ulation would be ";
  92. 870 LOCATE 19,21:PRINT " considered on the";
  93. 880 LOCATE 20,21:PRINT " conservative side";
  94. 920 FOR T=1 TO 11000:NEXT T
  95. 930 GOSUB 2970
  96. 940 TMR=2000
  97. 950 GOSUB 2940
  98. 960 LOCATE 2,21:PRINT "   Select Targets  ";
  99. 970 LINE (157,27)-(319,194),1,B
  100. 980 LOCATE 5,21:PRINT "   Seattle       ";
  101. 990 SOUND 500,1:PSET (97,91),1
  102. 1000 FOR T=1 TO TMR:NEXT T
  103. 1010 LOCATE 6,21:PRINT "   Everett Area ";
  104. 1020 SOUND 500,1:PSET (110,5),1
  105. 1030 FOR T=1 TO TMR:NEXT T
  106. 1040 LOCATE 7,21:PRINT "   SEA-TAC INTL.";
  107. 1050 SOUND 500,1:PSET (97,130),1
  108. 1060 FOR T=1 TO TMR:NEXT T
  109. 1070 LOCATE 8,21:PRINT "   Tacoma       ";
  110. 1080 SOUND 500,1:PSET (77,190),1
  111. 1090 FOR T=1 TO TMR:NEXT T
  112. 1100 LOCATE 9,21:PRINT "   Bremerton    ";
  113. 1110 SOUND 500,1:PSET (35,101),1
  114. 1120 FOR T=1 TO TMR:NEXT T
  115. 1130 LOCATE 10,21:PRINT "   Bellevue    ";
  116. 1140 SOUND 500,1:PSET (120,91),1
  117. 1150 FOR T=1 TO TMR:NEXT T
  118. 1160 LOCATE 11,21:PRINT "   Renton      ";
  119. 1170 SOUND 500,1:PSET (117,125),1
  120. 1180 FOR T=1 TO TMR:NEXT T
  121. 1190 LOCATE 12,21:PRINT "   Edmonds     ";
  122. 1200 SOUND 500,1:PSET (92,35),1
  123. 1210 FOR T=1 TO TMR:NEXT T
  124. 1220 LOCATE 13,21:PRINT "   Poulsbo     ";
  125. 1230 SOUND 500,1:PSET (40,60),1
  126. 1240 FOR T=1 TO TMR:NEXT T
  127. 1250 FOR I=5 TO 13
  128. 1260 LOCATE I,22:PRINT CHR$(26);
  129. 1270 SOUND 1000,1:FOR T=1 TO 50:NEXT T
  130. 1280 NEXT I
  131. 1290 LOCATE 2,21:PRINT " Targets Confirmed ";
  132. 1300 FOR T=1 TO 4000:NEXT T
  133. 1310 GOSUB 2970
  134. 1320 FOR S=1 TO 50:SOUND 9000,.5:SOUND 8000,.5:NEXT S
  135. 1330 LOCATE 2,21:PRINT "   Warhead Size    ";
  136. 1340 LOCATE 5,21:PRINT "   Each warhead is ";
  137. 1350 LOCATE 6,21:PRINT " one megaton - the ";
  138. 1360 LOCATE 7,21:PRINT " equivalent of one ";
  139. 1370 LOCATE 8,21:PRINT " million tons of   ";
  140. 1380 LOCATE 9,21:PRINT " TNT.              ";
  141. 1390 LOCATE 11,21:PRINT "  Warheads are set ";
  142. 1400 LOCATE 12,21:PRINT " to airburst at an ";
  143. 1410 LOCATE 13,21:PRINT " altitude of 8000  ";
  144. 1420 LOCATE 14,21:PRINT " feet.             ";
  145. 1430 FOR T=1 TO 5000:NEXT T
  146. 1440 GOSUB 2970:GOSUB 2940
  147. 1450 SOUND 8000,.5
  148. 1460 LOCATE 2,21:PRINT "   Targets Marked  ";
  149. 1470 PSET (97,91),Z
  150. 1480 PSET (110,5),Z
  151. 1490 PSET (97,130),Z
  152. 1500 PSET (77,190),Z
  153. 1510 PSET (35,101),Z
  154. 1520 PSET (120,91),Z
  155. 1530 PSET (117,125),Z
  156. 1540 PSET (92,35),Z
  157. 1550 PSET (40,60),Z
  158. 1560 C=C+1:IF C=150 THEN 1590
  159. 1570 IF Z=1 THEN Z=0 ELSE Z=1
  160. 1580 GOTO 1470
  161. 1590 LOCATE 2,21:PRINT " Time to detonate  ";
  162. 1600 FOR CD=10 TO 3 STEP -1
  163. 1610 LOCATE 6,23:PRINT USING "####";CD;
  164. 1620 LOCATE 6,28:PRINT "seconds";
  165. 1630 FOR T=1 TO 1000:NEXT T
  166. 1640 NEXT CD
  167. 1650 GOSUB 2970
  168. 1660 FOR S=1 TO 50:SOUND 4000,.5:SOUND 4500,.5:NEXT S
  169. 1670 LOCATE 2,21:PRINT " -- DETONATION --  ";
  170. 1680 S=1:I=5:R=0:GOSUB 2690
  171. 1690 LOCATE 5,21:PRINT "       ZONE 1      ";
  172. 1700 LOCATE 7,21:PRINT " Diameter 3 mi.    ";
  173. 1710 LOCATE 10,21:PRINT " Overpress. 25 psi ";
  174. 1720 LOCATE 11,21:PRINT " Wind Vel. 320 mph ";
  175. 1730 LOCATE 13,21:PRINT "   All structures  ";
  176. 1740 LOCATE 14,21:PRINT " above ground are  ";
  177. 1750 LOCATE 15,21:PRINT " destroyed.        ";
  178. 1760 LOCATE 17,21:PRINT " 98 % fatalities   ";
  179. 1770 LOCATE 19,21:PRINT " STBY FOR ZONE 2   ";
  180. 1780 FOR T=1 TO 5500:NEXT T
  181. 1790 GOSUB 2970
  182. 1800 S=6:I=10:R=1:GOSUB 2690
  183. 1810 LOCATE 5,21:PRINT "       ZONE 2      ";
  184. 1820 LOCATE 7,21:PRINT " Diameter 6 miles  ";
  185. 1830 LOCATE 10,21:PRINT " Overpress. 9 psi  ";
  186. 1840 LOCATE 11,21:PRINT " Wind Vel. 260 mph ";
  187. 1850 LOCATE 13,21:PRINT "  Factories/office ";
  188. 1860 LOCATE 14,21:PRINT " buildings collapse";
  189. 1870 LOCATE 15,21:PRINT " Severe damage to  ";
  190. 1880 LOCATE 16,21:PRINT " highway bridges.  ";
  191. 1890 LOCATE 17,21:PRINT " 50% dead 40% inj. ";
  192. 1900 LOCATE 19,21:PRINT " STBY FOR ZONE 3   ";
  193. 1910 FOR T=1 TO 5500:NEXT T
  194. 1920 GOSUB 2970
  195. 1930 I=19:R=1:GOSUB 2590 ;DRAW CIRCLES
  196. 1940 LOCATE 5,21:PRINT "       ZONE 3      ";
  197. 1950 LOCATE 7,21:PRINT " Diameter 10 mi.   ";
  198. 1960 LOCATE 10,21:PRINT " Overpress. 3 psi  ";
  199. 1970 LOCATE 11,21:PRINT " Wind Vel. 98 mph  ";
  200. 1980 LOCATE 13,21:PRINT "  Wood frame resid-";
  201. 1990 LOCATE 14,21:PRINT " ences severely    ";
  202. 2000 LOCATE 15,21:PRINT " damaged. People   ";
  203. 2010 LOCATE 16,21:PRINT " are blown around. ";
  204. 2020 LOCATE 17,21:PRINT " 2nd degree burns. ";
  205. 2030 LOCATE 18,21:PRINT " 10% dead 45% inj. ";
  206. 2040 LOCATE 20,21:PRINT " STBY FOR MORE..   ";
  207. 2050 FOR T=1 TO 5500:NEXT T
  208. 2060 GOSUB 2970
  209. 2070 LOCATE 5,21:PRINT " LONG RANGE EFFECT ";
  210. 2080 LOCATE 7,21:PRINT " Light door/plaster";
  211. 2090 LOCATE 8,21:PRINT " damage to 14.5 mi.";
  212. 2100 LOCATE 9,21:PRINT " Windows broken out";
  213. 2110 LOCATE 10,21:PRINT " to 30 miles.      ";
  214. 2120 LOCATE 12,21:PRINT " Flashblindness to ";
  215. 2130 LOCATE 13,21:PRINT " 13 miles daytime. ";
  216. 2140 LOCATE 14,21:PRINT " and to 50 miles at";
  217. 2150 LOCATE 15,21:PRINT " night clear sky.  ";
  218. 2160 FOR T=1 TO 5500:NEXT T
  219. 2170 GOSUB 2970:GOSUB 2940
  220. 2180 LOCATE 2,21:PRINT " WANNA SEE WORSE ? ";
  221. 2190 LOCATE 5,21:PRINT " If you wait just a";
  222. 2200 LOCATE 6,21:PRINT " second I'll redraw";
  223. 2210 LOCATE 7,21:PRINT " the map and drop  ";
  224. 2220 LOCATE 8,21:PRINT " just one 20 MT.war";
  225. 2230 LOCATE 9,21:PRINT " head centered on  ";
  226. 2240 LOCATE 10,21:PRINT " Downtown SEATTLE. ";
  227. 2250 LOCATE 11,21:PRINT " I will mark zones ";
  228. 2260 LOCATE 12,21:PRINT " as before...      ";
  229. 2270 LOCATE 13,21:PRINT " Burst altitude for";
  230. 2280 LOCATE 14,21:PRINT " this device will  ";
  231. 2290 LOCATE 15,21:PRINT " be 17500 feet...  ";
  232. 2300 NXTBOMB=1
  233. 2310 FOR T=1 TO 9000:NEXT T
  234. 2320 RESTORE:GOTO 120
  235. 2330 SOUND 2000,1
  236. 2340 LOCATE 2,21:PRINT " Target SEATTLE    ";
  237. 2350 LOCATE 5,21:PRINT "  20 MT. WARHEAD   ";
  238. 2360 PSET (97,91),0
  239. 2370 FOR T=1 TO 3000:NEXT T
  240. 2380 SOUND 5000,1:LOCATE 2,21:PRINT " -- DETONATION --  ";
  241. 2390 S=1:I=16:R=1:GOSUB 2830:S=17:I=23:R=1:GOSUB 2830
  242. 2400 CIRCLE (97,91),40,1
  243. 2410 FOR T=1 TO 3000:NEXT T
  244. 2420 GOSUB 2970
  245. 2430 LOCATE 6,21:PRINT " -FOR COMPARISON-  ";
  246. 2440 LOCATE 8,21:PRINT " I'll drop a 12.5  ";
  247. 2450 LOCATE 9,21:PRINT " kiloton bomb on   ";
  248. 2460 LOCATE 10,21:PRINT " Vashon Island.    ";
  249. 2470 LOCATE 11,21:PRINT " (Hiroshima size)..";
  250. 2480 S=1:I=2:R=0:GOSUB 2900:S=3:I=4:R=3:GOSUB 2900
  251. 2490 FOR T=1 TO 10000:NEXT T:CLS
  252. 2500 LOCATE 10,1
  253. 2510 PRINT " Projection for U.S. & SOVIET warhead numbers for 1985"
  254. 2520 LOCATE 11,1
  255. 2530 PRINT " is a grand total of roughly 40000 of various sizes..."
  256. 2540 LOCATE 12,1
  257. 2550 PRINT " This total does not include other nuclear powers ..."
  258. 2560 LOCATE 17,1
  259. 2570 PRINT "             BYE/BYE  &  GOOD LUCK"
  260. 2580 FOR T=1 TO 9000:NEXT T:LOCATE 1,1:END
  261. 2590 CIRCLE (97,91),I,R
  262. 2600 CIRCLE (110,5),I,R
  263. 2610 CIRCLE (97,130),I,R
  264. 2620 CIRCLE (77,190),I,R
  265. 2630 CIRCLE (35,101),I,R
  266. 2640 CIRCLE (120,91),I,R
  267. 2650 CIRCLE (117,125),I,R
  268. 2660 CIRCLE (92,35),I,R
  269. 2670 CIRCLE (40,60),I,R
  270. 2680 RETURN
  271. 2690 FOR GZ=S TO I
  272. 2700 CIRCLE (97,91),GZ,R
  273. 2710 CIRCLE (110,5),GZ,R
  274. 2720 CIRCLE (97,130),GZ,R
  275. 2730 CIRCLE (77,190),GZ,R
  276. 2740 CIRCLE (35,101),GZ,R
  277. 2750 CIRCLE (120,91),GZ,R
  278. 2760 CIRCLE (117,125),GZ,R
  279. 2770 CIRCLE (92,35),GZ,R
  280. 2780 CIRCLE (40,60),GZ,R
  281. 2790 FOR T=1 TO 300:NEXT T
  282. 2800 NEXT GZ
  283. 2810 REM-SINGLE WARHEAD ON SEATTLE
  284. 2820 RETURN
  285. 2830 FOR GZ=S TO I
  286. 2840 CIRCLE (97,91),GZ,R
  287. 2850 FOR T=1 TO 300:NEXT T
  288. 2860 NEXT GZ
  289. 2870 FOR T=1 TO 300:NEXT T
  290. 2880 RETURN
  291. 2890 REM-sub to drop 12.5 kiloton bomb on Vashon Island
  292. 2900 FOR GZ=S TO I
  293. 2910 CIRCLE (70,131),GZ,R
  294. 2920 FOR T=1 TO 300:NEXT T
  295. 2930 NEXT GZ
  296. 2940 REM- to clear small box
  297. 2950 LOCATE 2,21:PRINT "                 ";
  298. 2960 RETURN
  299. 2970 REM-sub to clear big box
  300. 2980 FOR I=5 TO 23
  301. 2990 LOCATE I,22:PRINT "                  ";
  302. 3000 NEXT I
  303. 3010 RETURN
  304. 3020 REM-sub to draw compass rose
  305. 3030 FOR I=20 TO 50 STEP 2:PSET (125,I),0:NEXT I
  306. 3040 FOR I=115 TO 135 STEP 4:PSET (I,35),0:NEXT I
  307. 3050 PSET (125,20),0:LINE -(122,23),0:PSET (125,20),0:LINE -(127,23),0
  308. 3060 RETURN
  309. 3100 DATA 37.5,0,37,-7.5,37,-8,36,-9,35.5,-10,35,-11,34.5,-12.5
  310. 3110 DATA 35,-13.5,35.5,-14.5,36,-15,37,-14.5,37.5,-14,38,-13.5,38.5,-13
  311. 3120 DATA 39,-12.5,39.5,-12,40.5,-11,41.5,-10,43,-10,45.5,-8.5,46.5,-8
  312. 3130 DATA 48,0,50,-7,51,-9,52,-9,53.5,-10.5,55,-12.5,56,-14
  313. 3140 DATA 57,-15.5,55.5,-16,55.5,-18.5,58,-21,59,-22,58.5,-22.5
  314. 3150 DATA 60.5,-23,62,-22.5,64,-20,66.5,-19.5,67,-20,65.5,-23.5
  315. 3160 DATA 66.5,-25,68.5,-25,69,-20,72.5,-16.5,74,-10.5,73.5,-6.5
  316. 3170 DATA 72.5,-2,71,0,37.5,0,999,999
  317. 3200 DATA 99,0,99,-.5,95,-4,93,-6.5,86,-10.5,82,-12,80.5,-14,80.5,-19,81,-21
  318. 3210 DATA 79,-26.5,77,-31.5,79,-34.5,77,-36,76,-40.5,74,-42,71,-45,66.5,-51
  319. 3220 DATA 65.5,-53,66.5,-56,65,-58.5,66,-61.5,68.5,-65.5,68,-68.5,70,-72
  320. 3230 DATA 68.5,-78.5,65,-81,62.5,-83,62.5,-89,57,-92.5,60.5,-97,66.5,-101.5
  321. 3240 DATA 70,-102,77,-109,77,-117,75,-111.5,73,-111.5,73,-117,72.5,-117
  322. 3250 DATA 72,-111.5,71,-112,70,-113.5,67.5,-110,60,-117,65.5,-126.5
  323. 3260 DATA 64.5,-128,66,-130,65,-133,72.5,-142,70,-146.5,70,-149,68,-151.5
  324. 3270 DATA 73,-154,75,-159,78.5,-164.5,79,-168,78.5,-171,79,-174,79,-180.5
  325. 3280 DATA 69,-185,69,-186,58.5,-188.5,57,-193,55,-193,55,-195,60.5,-196.5
  326. 3290 DATA 64,-199.5,57,-207,135,-207,135,0,99,0,999,999
  327. 3300 DATA 62.5,-89,76,-97,77,-101.5,79,-100,79,-96.5,80,-96,82,-96.5,87.5,-96.5
  328. 3310 DATA 88.5,-98,87.5,-112.5,92.5,-125,91,-131,99,-136.5,101.5,-136.5
  329. 3320 DATA 100,-131.5,103,-127,103,-121,105.5,-116,102.5,-116,100,-107,95.5,-105
  330. 3330 DATA 95,-96,101.5,-94.5,101.5,-88,99,-84,100.5,-81,98,-82.5,95,-81,91,-70
  331. 3340 DATA 92,-66.5,91,-65.5,88.5,-66,86.5,-72,89,-82.5,94.5,-86.5,88.5,-94.5
  332. 3350 DATA 88.5,-94.5,88.5,-98,95,-98,999,999
  333. 3400 DATA 62.5,-88,76,-96,77,-96.5,78,-95,82,-95.5,85,-93,88.5,-98,999,999
  334. 3500 DATA 87.5,-111.5,92,-111.5,94.5,-110,102.5,-115,101,-126.5,98.5,-130.5
  335. 3510 DATA 94.5,-127.5,97,-118,93,-114.5,92,-111.5,999,999
  336. 3600 DATA 57,-207,33,-190,39,-197.5,35,-207,57,-207,999,999
  337. 3700 DATA 0,-183.5,19.5,-171,19.5,-175,11,-182.5,13.5,-187.5,9,-189
  338. 3710 DATA 7,-193,6,-200.5,13.5,-207,32,-207,35,-199,30,-187.5,37,-173.5
  339. 3720 DATA 34,-167,45,-134,43,-130.5,35,-130,35,-119.5,37,-118.5,34,-116
  340. 3730 DATA 34,-111,22,-126,6.5,-129.5,6.5,-128.5,19.5,-118,18.5,-114.5
  341. 3740 DATA 13.5,-111.5,12,-114,11.5,-113.5,11.5,-108.5,10.5,-107,9,-114
  342. 3750 DATA 8,-114,6.5,-106,3,-108,3,-102.5,6.5,-95.5,8,-95.5,10,-98
  343. 3760 DATA 8.5,-102.5,12,-104,13,-108,16,-112.5,19,-113.5,21,-118,22,-118
  344. 3770 DATA 26,-110,24.5,-107,26,-98,23,-94.5,20.5,-80,13,-75.5,13.5,-68
  345. 3780 DATA 14.5,-67.5,23,-81,23,-82,26,-84,34,-71,32,-67.5,48,-67.5
  346. 3790 DATA 48,-62,46,-58,41.5,-54,45.5,-52,46.5,-49,41.5,-45,38,-22.5,34,-19.5
  347. 3800 DATA 26,-19.5,23,-14.5,20.5,-14.5,20,-18.5,26,-24,30,-47,27.5,-48.5
  348. 3810 DATA 27,-38,20.5,-38,8,-53,6.5,-60.5,3,-61,0,-67.5,0,-183.5,999,999
  349. 3900 DATA 31,-78,33,-75.5,34.5,-76,34.5,-78.5,38,-80,40.5,-79,43,-81,43,-90
  350. 3910 DATA 44.5,-92,40.5,-94.5,46,-99,46,-102,39,-102.5,45,-104,45,-109
  351. 3920 DATA 40.5,-110,47.5,-113,40,-116,33.5,-108,31,-111,29,-108.5,27.5,-95.5
  352. 3930 DATA 25.5,-91.5,29,-87.5,28,-91.5,32,-87.5,31,-78,999,999
  353. 4000 DATA 51.5,-134,55.5,-136.5,53.5,-138,53.5,-141,59,-146,57,-150,59.5,-159
  354. 4010 DATA 58.5,-162,59,-164.5,70,-169.5,59.5,-174.5,54.5,-182,51,-181,53,-173.5
  355. 4020 DATA 55,-173.5,58.5,-169.5,53,-167,52.5,-169
  356. 4030 DATA 49,-171.5,47.5,-185,41.5,-181.5,38.5,-175
  357. 4040 DATA 43,-174,40.5,-165.5,44,-157.5,42,-150,47,-143,50,-142,51.5,-134
  358. 4050 DATA 999,999
  359. 4060 DATA 18,-34.5,20.5,-38,999,999
  360. 4070 DATA 35.5,-205.5,33.5,-203.5,999,999
  361. 4100 DATA 0,0,2,0,5,-5,6.5,-5.5,9,-18.5,5.5,-20,8,-21,12.5,-17,14.5,-19
  362. 4110 DATA 14.5,-25.5,17.5,-28,21.5,-28,18,-34.5,6.5,-34.5,6.5,-45.5,0,-94
  363. 4120 DATA 0,0,888,888
  364. 4200 DATA 123,131,50,131,25,25,70,131,50,90,70,190,90,5,120,110,999,999
  365. 4.5,6.5,-34.5,6.5,-45.5,0,-94
  366. 4120 DATA 0,0,888,888
  367. 4200 DATA 123,131,50,131,25,25,70,131