home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / telephon.zip / TELEPHON.BAS
BASIC Source File  |  1986-01-11  |  15KB  |  436 lines
  1. 1 REM-Nuclear attack simulator
  2. 2 REM-by K.L. AND I.M. 4  FREEZE 2
  3. 3 REM-Original program by J.R. DUKAT
  4. 4 REM-Information presented is as good as my sources allow
  5. 5 REM-any corrections or improvements are welcomed........
  6. 6 REM
  7. 7 REM-start it up
  8. 8 KEY OFF:CLS:COLOR 7,0,0:LOCATE 7,5:PRINT"NUMBER ";:INPUT A$
  9. 9 IF A$="888-1969" GOTO 10 ELSE 13
  10. 10 FOR T=1 TO 1000:NEXT T
  11. 11 LOCATE 9,5:PRINT"AREA CODE ";:INPUT A$
  12. 12 IF A$="919" GOTO 21
  13. 13 LOCATE 11,5:PRINT"DIALING..."
  14. 14 FOR T=1 TO 3000:NEXT T
  15. 15 LOCATE 12,5:PRINT"RINGING..."
  16. 16 FOR T=1 TO 1000:NEXT T
  17. 17 LOCATE 13,5:PRINT"RINGING..."
  18. 18 FOR T=1 TO 1000:NEXT T
  19. 19 LOCATE 14,5:PRINT"VOICE!"
  20. 20 FOR T=1 TO 1000:NEXT T:GOTO 8
  21. 21 LOCATE 11,5:PRINT"DIALING..."
  22. 22 FOR T=1 TO 2000:NEXT T
  23. 23 LOCATE 12,5:PRINT"RINGING..."
  24. 24 FOR T=1 TO 1000:NEXT T
  25. 25 LOCATE 13,5:PRINT"ANSWER TONE":BEEP:BEEP:BEEP:BEEP:BEEP
  26. 26 LOCATE 14,5:PRINT"ON LINE"
  27. 27 FOR T=1 TO 1000:NEXT T
  28. 29 CLS:COLOR 4,0,0:LOCATE 2,20:PRINT"United States Nuclear Defense Systems"
  29. 30 COLOR 7,0,0:LOCATE 20,5:PRINT"Unauthorized use of this system is punishable by state and federal laws" 
  30. 31 COLOR 7,0,0:LOCATE 13,10:PRINT"USER I.D. ";:INPUT A$
  31. 32 IF A$="CASPAR WEINBERGER"GOTO 34 ELSE 33
  32. 33 CLS:SYSTEM
  33. 34 LOCATE 14,10:PRINT"PASSWORD ?"
  34. 35 LOCATE 14,21:PRINT"N":BEEP
  35. 36 FOR T=1 TO 1000:NEXT T
  36. 37 LOCATE 14,22:PRINT"7":BEEP
  37. 38 FOR T=1 TO 2500:NEXT T
  38. 39 LOCATE 14,23:PRINT"R":BEEP
  39. 40 FOR T=1 TO 1500:NEXT T
  40. 41 LOCATE 14,24:PRINT"0":BEEP
  41. 42 FOR T=1 TO 2300:NEXT T
  42. 43 LOCATE 14,25:PRINT"3":BEEP
  43. 44 FOR T=1 TO 1000:NEXT T
  44. 45 SCREEN 1:CLS:LOCATE 10,9:PRINT"Access level 30 granted"
  45. 46 FOR T=1 TO 2500:NEXT T
  46. 47 CLS:LOCATE 5,2:PRINT"Execute systems main function ";:INPUT A$
  47. 48 IF A$="YES" GOTO 52 ELSE 49
  48. 49 GOTO 50
  49. 50 FOR T=1 TO 2000:NEXT T
  50. 51 GOTO 8
  51. 52 COLOR 1,0,0:LOCATE 2,5:PRINT"DEFENSE COMMANDS"
  52. 53 LOCATE 12,5:PRINT"1. I.C.B.M. Silos"
  53. 54 LOCATE 13,5:PRINT"2. Alaskan Missle Launch"
  54. 55 LOCATE 14,5:PRINT"3. Submarine Launched Missiles"
  55. 56 LOCATE 15,5:PRINT"4. European Launched Missiles"
  56. 57 LOCATE 16,5:PRINT"5. Quit"
  57. 58 LOCATE 20,5:PRINT"Command ";:INPUT A$
  58. 59 IF A$="3" THEN 99 
  59. 60 REM 
  60. 61 REM 
  61. 62 REM 
  62. 63 REM 
  63. 64 CLS:SCREEN 0:WIDTH 80:COLOR 15,0,0:LOCATE 5,1:PRINT"Sending nuclear failsafe codes to silos"goto 97  
  64. 65 CLS:SCREEN 0:WIDTH 80:COLOR 15,0,0:LOCATE 5,1:PRINT"Sending nuclear failsafe codes to missiles"goto 97
  65. 66 CLS:SCREEN 0:WIDTH 80:COLOR 15,0,0:LOCATE 5,5:PRINT"Submarines within Soviet range at moment are;"
  66. 67 FOR T=1 TO 3000:NEXT T:LOCATE 7,5:PRINT"U.S.S Nimitz"
  67. 68 LOCATE 8,5:PRINT"U.S.S Eihsenhower"
  68. 69 LOCATE 9,5:PRINT"U.S.S Kitty Hawk"
  69. 70 LOCATE 15,5:PRINT"Send them nuclear failsafe codes ";:input a$
  70. 71 IF A$="YES" GOTO 72 
  71. 72 CLS:LOCATE 5,5:PRINT"Sending nuclear failsafe codes"goto 97
  72. 73 CLS:COLOR 15,0,0:LOCATE 5,5:PRINT"Sending nuclear failsafe codes"goto
  73. 74 GOTO 49
  74. 97 FOR T=1 TO 3000:NEXT T
  75. 98 CLS:COLOR 7,0,0:LOCATE 10,12:PRINT"Codes recieved and valid":beep:beep:beep:beep:beep:beep
  76. 99 SCREEN 1:CLS:KEY OFF:LOCATE 6,9,0:PRINT "GETTING U.S.S.R. STRIKE MAP";
  77. 100 FOR T=1 TO 3000:NEXT T:CLS
  78. 110 GOTO 160
  79. 120 GOSUB 2970
  80. 130 GOSUB 2940
  81. 140 SCREEN 1
  82. 150 CLS
  83. 160 COLOR 0,7
  84. 170 KEY OFF
  85. 180 LINE (158,3)-(339,20),2,B
  86. 190 LINE (158,27)-(338,190),2,B
  87. 200 LOCATE 2,21:PRINT "U.S.S.R. Strike map";
  88. 210 SCALE=1
  89. 220 XT=-140:YT=120
  90. 230 IBMX=150+(XT*SCALE):IBMY=99-((YT)*SCALE)
  91. 240 FLG=0
  92. 250 READ X,Y
  93. 260 IF X=999 AND Y=999 THEN 240
  94. 270 IF X=888 AND Y=888 THEN 370
  95. 280 X=X+TX:Y=Y+TY
  96. 290 X0=TX:Y0=TY
  97. 300 X=IBMX+X:Y=IBMY-(Y)
  98. 310 PSET (X,Y),1
  99. 320 IF FLG=0 THEN 340
  100. 330 LINE (X,Y)-(LASTX,LASTY)
  101. 340 LASTX=X:LASTY=Y
  102. 350 FLG=1
  103. 360 GOTO 250
  104. 370 READ X,Y
  105. 380 IF X=999 AND Y=999 THEN 410
  106. 390 PAINT (X,Y),2,3
  107. 400 GOTO 370
  108. 410 GOSUB 3020 ;DRAW COMPASS ROSE
  109. 420 IF NXTBOMB=1 THEN 2330
  110. 430 LOCATE 5,21:PRINT " ";
  111. 440 LOCATE 6,21:PRINT " ";
  112. 450 LOCATE 7,21:PRINT " ";
  113. 460 LOCATE 8,21:PRINT "";
  114. 470 LOCATE 9,21:PRINT "";
  115. 480 LOCATE 10,21:PRINT "  ";
  116. 490 LOCATE 11,21:PRINT "  ";
  117. 500 LOCATE 12,21:PRINT "  ";
  118. 510 LOCATE 13,21:PRINT "";
  119. 520 LOCATE 14,21:PRINT "             ";
  120. 530 LOCATE 15,21:PRINT " ";
  121. 540 LOCATE 16,21:PRINT "";
  122. 550 LOCATE 17,21:PRINT "   ";
  123. 560 LOCATE 18,21:PRINT "  ";
  124. 570 LOCATE 19,21:PRINT "                 ";
  125. 580 LOCATE 20,21:PRINT "                  ";
  126. 590 FOR T=1 TO 1100:NEXT T
  127. 600 GOSUB 2970  ;CLEAR BIG BOX
  128. 610 LOCATE 5,21:PRINT "   ";
  129. 620 LOCATE 6,21:PRINT " ";
  130. 630 LOCATE 7,21:PRINT "  ";
  131. 640 LOCATE 8,21:PRINT "  ";
  132. 650 LOCATE 9,21:PRINT "          ";
  133. 660 LOCATE 10,21:PRINT "                  ";
  134. 710 FOR T=1 TO 1000:NEXT T
  135. 720 GOSUB 2970
  136. 730 LOCATE 5,21:PRINT " ";
  137. 740 LOCATE 6,21:PRINT "   ";
  138. 750 LOCATE 7,21:PRINT " ";
  139. 760 LOCATE 8,21:PRINT " ";
  140. 770 LOCATE 9,21:PRINT " ";
  141. 780 LOCATE 10,21:PRINT " ";
  142. 790 LOCATE 11,21:PRINT " ";
  143. 800 LOCATE 12,21:PRINT "  ";
  144. 810 LOCATE 13,21:PRINT "   ";
  145. 820 LOCATE 14,21:PRINT "  ";
  146. 830 LOCATE 15,21:PRINT " ";
  147. 840 LOCATE 16,21:PRINT " ";
  148. 850 LOCATE 17,21:PRINT " ";
  149. 860 LOCATE 18,21:PRINT "  ";
  150. 870 LOCATE 19,21:PRINT " ";
  151. 880 LOCATE 20,21:PRINT " ";
  152. 890 LOCATE 21,21:PRINT "  ";
  153. 900 LOCATE 22,21:PRINT "  ";
  154. 910 LOCATE 23,21:PRINT "  ";
  155. 920 FOR T=1 TO 1000:NEXT T
  156. 930 GOSUB 2970
  157. 940 TMR=2000
  158. 950 GOSUB 2940
  159. 960 LOCATE 2,21:PRINT "   Select Targets  ";
  160. 970 LINE (158,27)-(338,190),2,B
  161. 980 LOCATE 5,21:PRINT "   Moscow  ";
  162. 990 SOUND 500,1:PSET (40,92),1
  163. 1000 FOR T=1 TO TMR:NEXT T
  164. 1010 LOCATE 6,21:PRINT "   Baorth       ";
  165. 1020 SOUND 500,1:PSET (76,60),1
  166. 1030 FOR T=1 TO TMR:NEXT T
  167. 1040 LOCATE 7,21:PRINT "   Sri Lanka     ";
  168. 1050 SOUND 500,1:PSET (87,82),1
  169. 1060 FOR T=1 TO TMR:NEXT T
  170. 1070 LOCATE 8,21:PRINT "   Kamathcha  ";
  171. 1080 SOUND 500,1:PSET (120,62),1
  172. 1090 FOR T=1 TO TMR:NEXT T
  173. 1100 LOCATE 9,21:PRINT "   Akaine        ";
  174. 1110 SOUND 500,1:PSET (125,42),1
  175. 1120 FOR T=1 TO TMR:NEXT T
  176. 1130 LOCATE 10,21:PRINT "   Zaxivre      ";
  177. 1140 SOUND 500,1:PSET (58,48),1
  178. 1150 FOR T=1 TO TMR:NEXT T
  179. 1160 LOCATE 11,21:PRINT "   Racal        ";
  180. 1170 SOUND 500,1:PSET (88,10),1
  181. 1180 FOR T=1 TO TMR:NEXT T
  182. 1190 LOCATE 12,21:PRINT "   Martinez       ";
  183. 1200 SOUND 500,1:PSET (110,33),1
  184. 1210 FOR T=1 TO TMR:NEXT T
  185. 1220 LOCATE 13,21:PRINT "   Hayopt    ";
  186. 1221 SOUND 500,1:PSET (119,115),1
  187. 1222 FOR T=1 TO TMR:NEXT T
  188. 1230 LOCATE 14,21:PRINT "   Mateo      ";
  189. 1231 SOUND 500,1:PSET (75,145),1
  190. 1232 FOR T=1 TO TMR:NEXT T
  191. 1235 LOCATE 15,21:PRINT "   Palo Alto      ";
  192. 1236 SOUND 500,1:PSET (105,169),1
  193. 1240 FOR T=1 TO TMR:NEXT T
  194. 1250 FOR I=5 TO 15
  195. 1260 LOCATE I,22:PRINT CHR$(26);
  196. 1270 SOUND 1000,1:FOR T=1 TO 50:NEXT T
  197. 1280 NEXT I
  198. 1290 LOCATE 2,21:PRINT " Targets Confirmed ";
  199. 1300 FOR T=1 TO 4000:NEXT T
  200. 1310 GOSUB 2970
  201. 1320 FOR S=1 TO 50:SOUND 9000,.5:SOUND 8000,.5:NEXT S
  202. 1330 LOCATE 2,21:PRINT "      ";
  203. 1340 LOCATE 5,21:PRINT "   ";
  204. 1350 LOCATE 6,21:PRINT "  ";
  205. 1360 LOCATE 7,21:PRINT "  ";
  206. 1370 LOCATE 8,21:PRINT "    ";
  207. 1380 LOCATE 9,21:PRINT "      ";
  208. 1390 LOCATE 11,21:PRINT " ";
  209. 1400 LOCATE 12,21:PRINT " ";
  210. 1410 LOCATE 13,21:PRINT "  ";
  211. 1420 LOCATE 14,21:PRINT "       ";
  212. 1430 FOR T=1 TO 1000:NEXT T
  213. 1440 GOSUB 2970:GOSUB 2940
  214. 1450 SOUND 8000,.5
  215. 1460 LOCATE 2,21:PRINT "Missles locked on target";
  216. 1470 PSET (40,92),Z
  217. 1480 PSET (76,60),Z
  218. 1490 PSET (87,82),Z
  219. 1500 PSET (120,62),Z
  220. 1510 PSET (125,42),Z
  221. 1520 PSET (58,48),Z
  222. 1530 PSET (88,10),Z
  223. 1540 PSET (110,33),Z
  224. 1550 PSET (119,115),Z
  225. 1551 PSET (75,145),Z
  226. 1552 PSET (105,169),Z
  227. 1560 C=C+1:IF C=150 THEN 1590
  228. 1570 IF Z=1 THEN Z=0 ELSE Z=1
  229. 1580 GOTO 1470
  230. 1590 LOCATE 2,21:PRINT " Time to impact ";
  231. 1600 FOR CD=10 TO 3 STEP -1
  232. 1610 LOCATE 6,23:PRINT USING "####";CD;
  233. 1620 LOCATE 6,28:PRINT "seconds";
  234. 1630 FOR T=1 TO 1000:NEXT T
  235. 1640 NEXT CD
  236. 1650 GOSUB 2970
  237. 1660 FOR S=1 TO 50:SOUND 4000,.5:SOUND 4500,.5:NEXT S
  238. 1670 LOCATE 2,21:PRINT " -- Impact --  ";
  239. 1680 S=1:I=5:R=0:GOSUB 2690
  240. 1690 LOCATE 5,21:PRINT "             ";
  241. 1700 LOCATE 7,21:PRINT "    ";
  242. 1710 LOCATE 10,21:PRINT " ";
  243. 1720 LOCATE 11,21:PRINT " ";
  244. 1730 LOCATE 13,21:PRINT "  ";
  245. 1740 LOCATE 14,21:PRINT "  ";
  246. 1750 LOCATE 15,21:PRINT "       ";
  247. 1760 LOCATE 17,21:PRINT "   ";
  248. 1770 LOCATE 19,21:PRINT "   ";
  249. 1780 FOR T=1 TO 100:NEXT T
  250. 1790 GOSUB 2970
  251. 1800 S=6:I=10:R=3:GOSUB 2690
  252. 1810 LOCATE 5,21:PRINT "      ";
  253. 1820 LOCATE 7,21:PRINT "   ";
  254. 1830 LOCATE 10,21:PRINT "  ";
  255. 1840 LOCATE 11,21:PRINT " ";
  256. 1850 LOCATE 13,21:PRINT " ";
  257. 1860 LOCATE 14,21:PRINT " ";
  258. 1870 LOCATE 15,21:PRINT " ";
  259. 1880 LOCATE 16,21:PRINT "  ";
  260. 1890 LOCATE 17,21:PRINT " ";
  261. 1900 LOCATE 19,21:PRINT "   ";
  262. 1910 FOR T=1 TO 200:NEXT T
  263. 1920 GOSUB 2970
  264. 1930 I=19:R=1:GOSUB 2590 ;DRAW CIRCLES
  265. 1940 LOCATE 5,21:PRINT "      ";
  266. 1950 LOCATE 7,21:PRINT "   ";
  267. 1960 LOCATE 10,21:PRINT " ";
  268. 1970 LOCATE 11,21:PRINT " ";
  269. 1980 LOCATE 13,21:PRINT " ";
  270. 1990 LOCATE 14,21:PRINT "   ";
  271. 2000 LOCATE 15,21:PRINT "   ";
  272. 2010 LOCATE 16,21:PRINT " ";
  273. 2020 LOCATE 17,21:PRINT " ";
  274. 2030 LOCATE 18,21:PRINT " ";
  275. 2040 LOCATE 20,21:PRINT "   ";
  276. 2050 FOR T=1 TO 100:NEXT T
  277. 2060 GOSUB 2970
  278. 2070 LOCATE 5,21:PRINT "  ";
  279. 2080 LOCATE 7,21:PRINT " ";
  280. 2090 LOCATE 8,21:PRINT " ";
  281. 2100 LOCATE 9,21:PRINT " ";
  282. 2110 LOCATE 10,21:PRINT "      ";
  283. 2120 LOCATE 12,21:PRINT " ";
  284. 2130 LOCATE 13,21:PRINT "  ";
  285. 2140 LOCATE 14,21:PRINT " ";
  286. 2150 LOCATE 15,21:PRINT "  ";
  287. 2160 FOR T=1 TO 100:NEXT T
  288. 2170 GOSUB 2970:GOSUB 2940
  289. 2180 LOCATE 2,21:PRINT "  ";
  290. 2190 LOCATE 5,21:PRINT "  ";
  291. 2200 LOCATE 6,21:PRINT "  ";
  292. 2210 LOCATE 7,21:PRINT "   ";
  293. 2220 LOCATE 8,21:PRINT " ";
  294. 2230 LOCATE 9,21:PRINT "   ";
  295. 2240 LOCATE 10,21:PRINT "";
  296. 2250 LOCATE 11,21:PRINT " ";
  297. 2260 LOCATE 12,21:PRINT "     ";
  298. 2270 LOCATE 13,21:PRINT "";
  299. 2280 LOCATE 14,21:PRINT "  ";
  300. 2290 LOCATE 15,21:PRINT "  ";
  301. 2300 NXTBOMB=1           
  302. 2310 FOR T=1 TO 100:NEXT T
  303. 2320 RESTORE:GOTO 120
  304. 2330 SOUND 2000,1
  305. 2340 LOCATE 2,21:PRINT "  Target Moscow  ";
  306. 2350 LOCATE 5,21:PRINT "     ";
  307. 2360 PSET (76,60),0
  308. 2370 FOR T=1 TO 3000:NEXT T
  309. 2380 SOUND 5000,1:LOCATE 2,21:PRINT " -- Impact --  ";
  310. 2390 S=1:I=16:R=0:GOSUB 2830:S=17:I=23:R=1:GOSUB 2830
  311. 2400 CIRCLE (76,60),40,1
  312. 2410 FOR T=1 TO 1000:NEXT T
  313. 2420 GOSUB 2970
  314. 2430 LOCATE 6,21:PRINT "  ";
  315. 2440 LOCATE 8,21:PRINT "  ";
  316. 2450 LOCATE 9,21:PRINT "    ";
  317. 2460 LOCATE 10,21:PRINT "    ";
  318. 2470 LOCATE 11,21:PRINT " ";
  319. 2480 S=1:I=2:R=0:GOSUB 2900:S=3:I=4:R=3:GOSUB 2900
  320. 2490 FOR T=1 TO 3000:NEXT T:CLS:SCREEN 0:WIDTH 80
  321. 2500 LOCATE 10,15,0
  322. 2510 PRINT "Successful launch.Military alerted,ready for Soviet"
  323. 2520 LOCATE 11,15,0
  324. 2530 PRINT " counter attack."
  325. 2540 LOCATE 12,15,0
  326. 2550 PRINT " "
  327. 2560 LOCATE 17,19,0
  328. 2570 PRINT "            "
  329. 2580 FOR T=1 TO 3500:NEXT T
  330. 2581 LOCATE 1,1,1:CLS:END
  331. 2590 CIRCLE (40,92),I,R
  332. 2600 CIRCLE (76,60),I,R
  333. 2610 CIRCLE (87,82),I,R
  334. 2620 CIRCLE (120,62),I,R
  335. 2630 CIRCLE (125,42),I,R
  336. 2640 CIRCLE (58,48),I,R
  337. 2650 CIRCLE (88,10),I,R
  338. 2660 CIRCLE (110,33),I,R
  339. 2670 CIRCLE (119,115),I,R
  340. 2671 CIRCLE (75,145),I,R
  341. 2672 CIRCLE (105,169),I,R
  342. 2680 RETURN
  343. 2690 FOR GZ=S TO I
  344. 2700 CIRCLE (40,92),GZ,R
  345. 2710 CIRCLE (76,60),GZ,R
  346. 2720 CIRCLE (87,82),GZ,R
  347. 2730 CIRCLE (120,62),GZ,R
  348. 2740 CIRCLE (125,42),GZ,R
  349. 2750 CIRCLE (58,48),GZ,R
  350. 2760 CIRCLE (88,10),GZ,R
  351. 2770 CIRCLE (110,33),GZ,R
  352. 2780 CIRCLE (119,115),GZ,R
  353. 2781 CIRCLE (75,145),GZ,R
  354. 2782 CIRCLE (105,169),GZ,R
  355. 2790 FOR T=1 TO 300:NEXT T
  356. 2800 NEXT GZ
  357. 2810 REM-SINGLE WARHEAD ON BERKELEY
  358. 2820 RETURN
  359. 2830 FOR GZ=S TO I
  360. 2840 CIRCLE (76,60),GZ,R
  361. 2850 FOR T=1 TO 300:NEXT T
  362. 2860 NEXT GZ
  363. 2870 FOR T=1 TO 300:NEXT T
  364. 2880 RETURN
  365. 2890 REM-sub to drop 12.5 kiloton bomb on SAN FRANCISCO
  366. 2900 FOR GZ=S TO I
  367. 2910 CIRCLE (40,92),GZ,R
  368. 2920 FOR T=1 TO 300:NEXT T
  369. 2930 NEXT GZ
  370. 2940 REM- to clear small box
  371. 2950 LOCATE 2,21:PRINT "                  ";
  372. 2960 RETURN
  373. 2970 REM-sub to clear big box
  374. 2980 FOR I=5 TO 23
  375. 2990 LOCATE I,22:PRINT "                  ";
  376. 3000 NEXT I
  377. 3010 RETURN
  378. 3020 REM-sub to draw compass rose
  379. 3030 'FOR I=20 TO 50 STEP 2:PSET (30,I),1:NEXT I
  380. 3040 'FOR I=20 TO 40 STEP 4:PSET (I,35),1:NEXT I
  381. 3050 'PSET (30,20),1:LINE -(27,23),1:PSET (30,20),1:LINE -(33,23),1
  382. 3060 RETURN
  383. 3070 DATA 0,-94,4,-100,9,-103,12,-104,18,-103,19,-102,23,-100
  384. 3080 DATA 21,-95,18,-93,16,-92,16,-88,18,-82,21,-88,24,-90
  385. 3090 DATA 25,-93,27,-93,28,-92,28,-90,28,-88,23,-80,21,-78
  386. 3100 DATA 15,-70,18,-67,25,-66,27,-62,26,-58,20,-55,15,-54
  387. 3110 DATA 15,-47,18,-42,18,-38,18,-32,21,-32,27,-29,27,-28
  388. 3120 DATA 36,-28,40,-29,45,-30,50,-29,53,-28,57,-29,61,-30
  389. 3130 DATA 63,-31,65,-31,68,-32,72,-35,75,-35,81,-34,84,-36
  390. 3140 DATA 89,-40,91,-42,98,-42,102,-40,106,-38,109,-36,109,-30
  391. 3150 DATA 108,-26,108,-22: TOP OF BAY
  392. 3160 DATA 131,-22,128,-24,127,-27,125,-31,126,-33,127,-35,135,-34
  393. 3161 DATA 135,-42,130,-41,126,-40,120,-39,117,-40,114,-42,111,-46
  394. 3162 DATA 108,-48,100,-49,99,-49,92,-48,89,-47,84,-43,84,-40
  395. 3163 DATA 81,-38,75,-39,73,-39,68,-42,65,-46,64,-47,67,-50,67,-52
  396. 3164 DATA 64,-50,63,-49,61,-49,63,-53,56,-54,54,-54,51,-52,45,-52
  397. 3165 DATA 43,-53,43,-55,44,-58,41,-59,40,-61,43,-64,45,-66,45,-67
  398. 3166 DATA 43,-66,40,-64,36,-66,34,-62,30,-65,34,-69,37,-73
  399. 3167 DATA 37,-75,38,-77,41,-77,44,-73,46,-71,47,-73,53,-76,54,-79
  400. 3168 DATA 56,-81,59,-88,61,-90,62,-96,62,-100,56,-100,54,-102,52,-104
  401. 3169 DATA 53,-106,54,-106,63,-105,65,-104,72,-106,75,-108,79,-110
  402. 3170 DATA 80,-112,81,-116,83,-120,81,-119,74,-118,73,-120,74,-124
  403. 3171 DATA 76,-126,81,-126,84,-128,86,-130,88,-129,90,-134,91,-133
  404. 3172 DATA 98,-133,98,-131,97,-136,95,-140,92,-141,94,-144,96,-152
  405. 3173 DATA 97,-155,96,-160,98,-162,99,-164
  406. 3174 DATA 104,-164,108,-163,111,-163,112,-165,112,-168,108,-172
  407. 3175 DATA 110,-176,115,-178,117,-180,120,-182,124,-184,118,-185
  408. 3176 DATA 116,-186,118,-188,126,-190,120,-191,117,-194,110,-195
  409. 3177 DATA 108,-193,105,-192,101,-184,100,-178,99,-176,94,-178,90,-176
  410. 3178 DATA 76,-168,74,-166,72,-162,63,-160,54,-155,49,-152,45,-150
  411. 3179 DATA 42,-146,39,-144,41,-138,43,-136,44,-132,40,-130,46,-126
  412. 3180 DATA 47,-122,45,-120,41,-119,40,-113,41,-111,40,-108,38,-108
  413. 3181 DATA 37,-103,28,-105,24,-104,19,-106,17,-109,12,-110,11,-113
  414. 3182 DATA 18,-152,12,-154,11,-158,10,-160,11,-164,10,-165,16,-176
  415. 3183 DATA 18,-179,20,-182,23,-184,25,-180,27,-182,28,-198,32,-204
  416. 3184 DATA 34,-206,38,-211,135,-211,135,-22,0,-22,0,-211,38,-211
  417. 3190 DATA 38,-207,999,999:'S.F. BAY
  418. 3191 DATA 66,-107,68,-107,72,-109,74,-112,77,-114,74,-116,68,-114
  419. 3192 DATA 67,-113,64,-112,60,-111,60,-108,66,-107,999,999:'ALAMEDA
  420. 3193 DATA 77,-111,79,-112,78,-113,77,-111,999,999:'GOV'T IS.
  421. 3194 DATA 30,-93,31,-95,30,-97,28,-95,30,-93,999,999:'ANGEL IS.
  422. 3195 DATA 34,-98,35,-99,33,-99,34,-98,999,999:'ALCAT. IS.
  423. 3196 DATA 43,-99,44,-101,47,-103,48,-104,45,-105,44,-104,43,-99
  424. 3197 DATA 999,999:'YBI
  425. 3810 DATA 888,888,73,90,40,74,55,82,20,10,135,165,136,10
  426. 3820 DATA 999,999
  427. 3830 CHAIN"MENU2"
  428. 
  429.  
  430.  
  431.  
  432.  
  433.  
  434.  
  435.