home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64games / nukesim.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-07-10  |  14.3 KB  |  434 lines
  1. 0 REM  NUCLEAR POWER PLANT SIMULATION
  2. 1 REM  :
  3. 2 REM  FOR PET COMPUTER
  4. 3 REM   PRICE BASED ON PG&E RATE OF $.07071 PER KW HOUR
  5. 4 REM  BY IVAN SMITH & HUME SMITH
  6. 5 :
  7. 6 REM  BASED ON S. R. BERGGREN, CREATIVE COMPUTING DECEMBER 1980 PAGE 128
  8. 7 REM  REVISED MARCH 30 1982 FOR THE COMMODORE 64 BY WIM.
  9. 9 POKE53280,1:POKE53281,1:PRINT"[144]":GOTO40
  10. 10 POKE198,0:B$="":PRINT" ";:POKE167,1
  11. 11 GETA$:IFA$=""THEN11
  12. 12 Z=ASC(A$):IFZ=94THEN15
  13. 13 IFZ<48ORZ>57THEN11
  14. 14 PRINTA$;:B$=B$+A$:IFLEN(B$)<3THEN11
  15. 15 POKE167,0:PRINT" ";:RETURN
  16. 40 POKE53272,23:R=RND(-TI):BL$="                                    "
  17. 41 T1$="        64[160][206][213][195][204][197][193][210][160][208][207][215][197][210][160][208][204][193][206][212]"
  18. 42 T2$="        [211][212][193][212][213][211][160][210][197][208][207][210][212], [196][193][217]"
  19. 44 PRINT"[147]"T1$:PRINTSPC(7)"BY [160][211][212][197][208][200][197][206][160][210]. [194][197][210][199][199][210][197][206]":Z4=7:GOSUB5300
  20. 46 PRINTSPC(5)"AS MODIFIED BY THE STAFF OF"
  21. 48 PRINT"  [194][210][201][196][199][197][215][193][212][197][210][160][200][201][199][200][160][211][195][200][207][207][204], [206][207][214][193][160][211][195][207][212][201][193]":GOSUB5300:Z4=8
  22. 49 PRINT" [195]OMMODORE 64 CHANGES BY [215][201][205] 3/30/82."
  23. 50 PRINT"[212]HIS PROGRAM SIMULATES THE OPERATION OF"
  24. 60 PRINT"A NUCLEAR POWER REACTOR.";:GOSUB5300:PRINT"  [212]HE OBJECT"
  25. 70 PRINT"IS TO OPERATE THE PLANT AT AS HIGH A"
  26. 80 PRINT"POWER OUTPUT AS POSSIBLE";:GOSUB5300:PRINT", WITHOUT"
  27. 90 PRINT"CAUSING A REACTOR MELTDOWN[144].":GOSUB5300
  28. 92 FORZ5=1TO7:PRINTTAB(18)"[145][158]MELTDOWN[146][144]":FORZ6=1TO50:NEXTZ6
  29. 94 PRINTTAB(18)"[145]MELTDOWN[144]":FORZ6=1TO50:NEXTZ6,Z5:GOSUB5310
  30. 100 INPUT"[147][196]O YOU WANT INSTRUCTIONS   N[157][157][157]";Z$:IFZ$="N"THEN350
  31. 102 IFZ$<>"Y"THEN100
  32. 110 PRINT"[147][212]HE [158]CONTROL RODS[144][146] ADJUST THE AMOUNT OF"
  33. 120 PRINT"HEAT PRODUCED BY THE REACTOR.":Z4=11:GOSUB5300
  34. 130 PRINT"[212]HE [158]PRIMARY COOLANT[146][144] TRANSFERS THIS"
  35. 140 PRINT"HEAT TO THE HEAT EXCHANGER.":GOSUB5300
  36. 142 PRINT"[212]HE [158]SECONDARY COOLANT[144][146] PICKS UP HEAT"
  37. 144 PRINT"FROM THE HEAT EXCHANGER";:GOSUB5300:PRINT", AND TRANSFERS"
  38. 150 PRINT"IT TO THE [158]TURBINE[144][146]";:GOSUB5300:PRINT", WHICH DRIVES"
  39. 160 PRINT"THE ELECTRIC GENERATOR.";:GOSUB5300:PRINT"  [212]HE SECONDARY"
  40. 170 PRINT"COOLANT THEN GOES TO THE [158]COOLING TOWER[144][146],":GOSUB5300
  41. 172 PRINT"AND THEN BACK TO THE HEAT EXCHANGER.":GOSUB5300:GOSUB5310
  42. 180 PRINT"[147][212]HE [158]EMERGENCY COOLANT[144][146] IS USED TO HELP"
  43. 182 PRINT"SHUT DOWN THE REACTOR";:Z4=11:GOSUB5300:PRINT" WHEN OTHER SYSTEMS"
  44. 184 PRINT"FAIL.":GOSUB5300:PRINT"[213]NLIKE THE OTHER COOLANTS,"
  45. 186 PRINT"EMERGENCY COOLANT IS NOT RECYCLED.":GOSUB5300
  46. 188 PRINT"[212]HIS MEANS YOUR SUPPLY OF EMERGENCY"
  47. 190 PRINT"COOLANT IS LIMITED.":GOSUB5300:GOSUB5310:Z4=13
  48. 192 PRINT"[147][193]N INCREASED FLOW OF PRIMARY COOLANT"
  49. 194 PRINT"WILL LOWER THE REACTOR CORE TEMPERATURE":GOSUB5300
  50. 196 PRINT"AND WILL RAISE THE HEAT EXCHANGER"
  51. 198 PRINT"TEMPERATURE.":GOSUB5300
  52. 200 PRINT"[193]N INCREASED FLOW OF SECONDARY COOLANT"
  53. 202 PRINT"WILL LOWER THE HEAT EXCHANGER":PRINT"TEMPERATURE";:GOSUB5300
  54. 204 PRINT", AND WILL INCREASE THE":PRINT"POWER GENERATED";:GOSUB5300
  55. 206 PRINT", BUT WILL RAISE THE"
  56. 208 PRINT"COOLING TOWER TEMPERATURE.":GOSUB5300:GOSUB5310:Z4=13
  57. 210 PRINT"[147][211]UCCESSFUL OPERATION DEPENDS ON"
  58. 212 PRINT"GETTING A BALANCE";:GOSUB5300
  59. 214 PRINT", BETWEEN THE":PRINT"HIGH TEMPERATURES NEEDED FOR"
  60. 216 PRINT"POWER GENERATION";:GOSUB5300:PRINT" AND THE"
  61. 218 PRINT"TEMPERATURE LIMITS OF THE MACHINERY.":GOSUB5300:GOSUB5310
  62. 220 PRINT"[147][197]NTER  [196]  TO SEE REACTOR DIAGRAM."
  63. 222 PRINT"[197]NTER  [201]  FOR WORKING INSTRUCTIONS."
  64. 224 PRINT"[197]NTER  [211]  TO START OPERATION."
  65. 226 PRINT""TAB(13);:INPUT"S[157][157][157]";A$:IFA$="D"THENGOSUB6000:GOTO220
  66. 227 IFA$="S"THEN390
  67. 228 IFA$<>"I"THEN226
  68. 230 PRINT"[147][212]HE CONTROLS ARE OPERATED BY TYPING IN"
  69. 235 PRINT"THE DESIRED CONTROL ROD SETTING";:Z4=13:GOSUB5300:PRINT" AND"
  70. 240 PRINT"FLOW RATES.":GOSUB5300:PRINT"[213]SE VALUES FROM 0 TO 100.";:GOSUB5300
  71. 242 PRINT"  [201]F NO ENTRY":PRINT"IS MADE, THE PREVIOUS SETTINGS WILL
  72. 244 [153]"REMAIN UNCHANGED.":[141]5300
  73. 250 [153]"(null)SE "[199](34)"^"[199](34)" TO STEP TO THE DIFFERENT"
  74. 255 [153]"FUNCTIONS.";:[141]5300:[153]"  (null)HEN THE DESIRED"
  75. 260 [153]"ENTRIES HAVE BEEN MADE, THE":[153]"NEXT DAY'S CONDITIONS";
  76. 265 [153]" WILL BE":[153]"CALCULATED.":[141]5300:[141]5310
  77. 270 [153]"LOAD(null)HE REACTOR CAN BE KEPT OPERATING UNTIL"
  78. 272 [153]"THE REACTOR FUEL IS EXHAUSTED";:Z4[178]13:[141]5300:[153]", OR"
  79. 274 [153]"UNTIL A MELTDOWNSTOP OCCURS.":[141]5300
  80. 276 [129]Z5[178]1[164]7:[153][163]8)"ONMELTDOWNSTOPWAIT":[129]Z6[178]1[164]50:[130]Z6
  81. 278 [153][163]8)"ONMELTDOWNSTOP":[129]Z6[178]1[164]50:[130]Z6,Z5
  82. 280 [153]"(null)HE FUEL WILL LAST ABOUT 100 TO 150"
  83. 282 [153]"DAYS";:[141]5300:[153]", DEPENDING ON HOW MUCH"
  84. 284 [153]"ENERGY IS PRODUCED EACH DAY.":[141]5300
  85. 290 [153]"(null)HEN THE FUEL IS EXHAUSTED, YOUR"
  86. 295 [153]"PERFORMANCE WILL BE SUMMARIZED.":[141]5300:[141]5310
  87. 300 [153]"LOADRIGHT$F YOU WANT TO REPAIR DAMAGE OR REPLACE":[153]"COOLANT";:Z4[178]11
  88. 305 [141]5300:[153]", BRING THE REACTOR TEMPERATURE"
  89. 310 [153]"DOWN BELOW 100";:[141]5300:[153]", AND SHUT OFF THE"
  90. 315 [153]"COOLANT FLOWS.";:[141]5300:[153]"  (null)HIS WILL CAUSE"
  91. 320 [153]"AN AUTOMATIC MAINTENANCE SHUTDOWN.":[141]5300
  92. 325 [153]"(null)EPAIRS WILL BE MADE";:[141]5300:[153]", AND ALL COOLANT"
  93. 330 [153]"WILL BE REPLENISHED.":[141]5300
  94. 335 [153]"(null)HE GREATER THE DAMAGE, THE LONGER"
  95. 340 [153]"THE REPAIRS WILL TAKE.":[141]5300:[141]5310
  96. 350 [153]"LOAD"[163]13)"(null)ATN(null)(null)RIGHT$(null)CHR$:"
  97. 355 [153][163]7)"(null)LEFT$RIGHT$(null)CLOSE(null)(null)(null)VAL(null)CLOSE(null)(null)ATN(null)(null)CLOSELEFT$ATN(null)"
  98. 360 [153][163]3)"(null)(null)CLOSEATN(null)(null)(null)(null)ATN(null)RIGHT$LENCLOSE(null)ATNASCVAL(null)(null)CLOSESTR$VAL(null)RIGHT$LENVAL(null)!!STOP":Z4[178]13:[141]5300
  99. 362 [153]"(null)HE OPERATOR";:Z4[178]4:[141]5300:[153]", SYS(YOU)STOP";:[141]5300
  100. 364 [153]", IS RESPONSIBLE"
  101. 366 [153]"FOR SAFE OPERATION OF ALL EQUIPMENT."
  102. 370 [141]5300:[141]5310:[137]220
  103. 390 [143]  INITIATE
  104. 400 [141]2000
  105. 410 RH[178]0:RL[178]0:TT[178]0:FL[178]100
  106. 420 DAY%[178]0:D4%[178]0
  107. 430 QP%[178]1[171]([187](2)[177].57)[171]([187](2)[177].95)
  108. 440 QS%[178]1[171]([187](2)[177].57)[171]([187](2)[177].95)
  109. 442 [143]  QP%=QUALITY OF PRIMARY LOOP WORKMANSHIP, QS%=SAME FOR SECONDARY LOOP
  110. 444 [143]  1 FOR FIRST-CLASS WORK, 2 FOR SECOND-CLASS, 3 FOR THIRD-CLASS
  111. 450 DMGE%[178]0
  112. 455 A%[178]0:A1%[178]0:A2%[178]0
  113. 460 DAY%[178]DAY%[170]1:[153]"LOAD";:[143]  WRITE REPORT
  114. 462 [139]RT%[177]800[176]XT%[177]500[176]CT%[177]300[176]GZ%[177]2000[167]480
  115. 464 [139]GZ%[179]1000[175](DAY%[171]D4%[177]8)[167]480
  116. 466 [139]EV%[179]200[176]PV%[179]100[176]SV%[179]100[167]480
  117. 468 [139]RD%[177]3[176]PD%[177]4[176]SD%[177]4[176]ED%[177]2[167]480
  118. 470 [139]PB%[177]0[176]SB%[177]0[176]XB%[177]0[176]GB%[177]0[167]480
  119. 472 [137]700
  120. 480 [141]7000:[153]T1$
  121. 490 [153]T2$;DAY%""
  122. 500 [153]"SYS(null)ATN(null)(null)RIGHT$(null)CHR$(null):STOP":SW[178]1
  123. 510 [139]RT%[179]800[167]520
  124. 512 [153]"   SYS(null)EACTOR OVERHEATEDSTOP":RD%[178]RD%[170]1[171](RT%[177]850)[171](RT%[177]900)[171]2[172](RT%[177]950)
  125. 514 PD%[178]PD%[170]1:ED%[178]ED%[170]1[171](RT%[177]850):SW[178]2
  126. 520 [139]XT%[179]500[167]530
  127. 522 [153]"   SYSLEFT$EAT EXCHANGER OVERHEATEDSTOP"
  128. 524 XD%[178]XD%[170]1[171](XT%[177]600):PD%[178]PD%[170]1:SD%[178]SD%[170]1:SW[178]2
  129. 530 [139]GZ%[179]2000[167]540
  130. 532 [153]"   SYS(null)URBINE OVERLOADEDSTOP"
  131. 534 TD%[178]TD%[170]1[171](GZ%[177]2500):SD%[178]SD%[170]1:SW[178]2
  132. 540 [139]CT%[177]300[167][153]"   SYSLENOOLING TOWER OVERHEATEDSTOP":SD%[178]SD%[170]1:SW[178]2
  133. 550 [139]GZ%[179]1000[167][153]"   SYS(null)OWER OUTPUT LOWSTOP":SW[178]2
  134. 560 [139]EV%[179]200[167][153]"   SYSVALMERGENCY COOLANT LOWSTOP":SW[178]2
  135. 570 [139]PV%[179]100[167][153]"   SYS(null)RIMARY COOLANT LOWSTOP":PD%[178]PD%[170]1:SW[178]2
  136. 580 [139]SV%[179]100[167][153]"   SYS(null)ECONDARY COOLANT LOWSTOP":SD%[178]SD%[170]1:SW[178]2
  137. 590 [145]SW[137]600,610
  138. 600 [153][163]11)"(null)ONE"
  139. 610 [153]"STR$ATN(null)ATNCHR$VAL:STOP":SW[178]1
  140. 620 [139]RD%[177]3[167][153]"REACTOR CORE DAMAGEDSTOP":SW[178]2
  141. 630 [139]PD%[179]5[167]640
  142. 632 [153]"(null)RIMARY COOLANT LEAK:STOP";PD%;"(null)/DAY"
  143. 634 PV%[178](PV%[171]PD%)[172]([171]((PV%[171]PD%)[177]0)):SW[178]2
  144. 640 [139]SD%[179]5[167]650
  145. 642 [153]"(null)ECONDARY COOLANT LEAK:STOP";SD%;"(null)/DAY"
  146. 644 SV%[178](SV%[171]SD%)[172]([171]((SV%[171]SD%)[177]0)):SW[178]2
  147. 650 [139]ED%[179]3[167]660
  148. 652 [153]"VALMERGENCY COOLANT LEAK:STOP";2[172]ED%;"(null)/DAY"
  149. 654 EV%[178](EV%[171]2[172]ED%)[172]([171]((EV%[171]2[172]ED%)[177]0)):SW[178]2
  150. 660 [139]PB%[178]0[167]670
  151. 662 [153]"(null)RIMARY COOLANT PUMP FAILURE:STOP";
  152. 664 [153]10[172]PD%[172]([171](PD%[179]10))[170]100[172]([171](PD%[177][178]10));"%":SW[178]2
  153. 670 [139]SB%[178]0[167]680
  154. 672 [153]"(null)ECONDARY COOLANT PUMP FAILURE:STOP";
  155. 674 [153]10[172]SD%[172]([171](SD%[179]10))[170]100[172]([171](SD%[177][178]10));"%":SW[178]2
  156. 680 [139]XB%[177]0[167][153]"LEFT$EAT EXCHANGER FAILURESTOP":SW[178]2
  157. 690 [139]GB%[177]0[167][153]"(null)URBINE FAILURESTOP":SW[178]2
  158. 692 [145]SW[137]694,696
  159. 694 [153][163]11)"(null)ONESTOP"
  160. 696 [141]5310
  161. 700 [153]"LOAD"T1$:[153]T2$;DAY%
  162. 710 [139]RD%[177]5[167][153]"  (null)VAL(null)(null)STR$(null)(null)(null)!WAIT  (null)VAL(null)(null)STR$(null)(null)(null)!WAIT  (null)VAL(null)(null)STR$(null)(null)(null)!STOP":[137]3000
  163. 720 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRONCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDRIGHT$(null)STR$RIGHT$LENATN(null)(null)(null)(null)"
  164. 722 [153][163]12)"ONLENONTROL ROD POSITION:"A%"%"
  165. 724 [153]"(null)EMPERATURES:    (null)ATN(null)    LENLEFT$ATN(null)CHR$VAL    (null)(null)(null)"
  166. 730 [153]"        (null)EACTOR  800"
  167. 732 [153][163]25)"ON"RT%[171]T7%:[153][163]33)"ON"RT%
  168. 734 T7%[178]RT%
  169. 740 [153]" LEFT$EAT EXCHANGER  500"
  170. 742 [153][163]25)"ON"XT%[171]T8%:[153][163]33)"ON"XT%
  171. 744 T8%[178]XT%
  172. 750 [153]"  LENOOLING TOWER  300"
  173. 752 [153][163]25)"ON"CT%[171]T9%:[153][163]33)"ON"CT%
  174. 754 T9%[178]CT%
  175. 760 [153]"      (null)OWER OUTPUT (MAX. 2000):"GZ%"K(null)"
  176. 762 KW%[178]TT[173]DAY%:VE[178][181](24[172]TT[172].07071)
  177. 764 VE$[178][196](VE):[139]VE[179]1000[167]VE$[178]"$"[170]VE$:[137]770
  178. 766 VE$[178]"$"[170][200](VE$,[195](VE$)[171]3)[170]","[170][201](VE$,3)
  179. 770 [153]"          ATNVERAGE POWER OUTPUT:"KW%"K(null)"
  180. 780 [153]"  (null)ALUE OF ENERGY PRODUCED: "VE$
  181. 810 [153]"LENOOLANTS:       (null)VAL(null)VAL(null)  (null)VALATN(null)ATNCHR$VAL   ASC(null)(null)(null)"
  182. 820 [153]"    VALMERGENCY"[163]16)EV%[163]22)ED%"(null)/DAY"[163]33)EF%
  183. 830 [153]"      (null)RIMARY"[163]16)PV%[163]22)PD%"(null)/DAY"[163]33)PF%
  184. 840 [153]"    (null)ECONDARY"[163]16)SV%[163]22)SD%"(null)/DAY"[163]33)SF%
  185. 845 [153]:[153]"% FUEL REMAINING =";FL
  186. 850 [139](100[171]RL)[179]5[167][153]"(null)EACTOR FUEL EXHAUSTED":[137]4000
  187. 900 [143]  GET NEW CONTROL VALUES
  188. 910 A2%[178]A1%:A1%[178]A%
  189. 920 [151]214,23:[153]:[153]BL$
  190. 930 [151]214,23:[153]:[153]"LENONTROL ROD POSITION?";:[141]10
  191. 940 [139]B$[178]""[167]960
  192. 950 A%[178][197](B$):A%[178]A%[170](100[171]A%)[172]([171](A%[177]100))
  193. 960 [151]214,23:[153]:[153]BL$
  194. 970 [151]214,23:[153]:[153]"VALMERGENCY COOLANT FLOW?";:[141]10
  195. 980 [139]B$[178]""[167]1000
  196. 990 EF%[178][197](B$):EF%[178]EF%[170](100[171]EF%)[172]([171](EF%[177]100))
  197. 1000 [151]214,23:[153]:[153]BL$
  198. 1010 [151]214,23:[153]:[153]"(null)RIMARY COOLANT FLOW?";:[141]10
  199. 1020 [139]B$[178]""[167]1040
  200. 1030 PF%[178][197](B$):PF%[178]PF%[170](100[171]PF%)[172]([171](PF%[177]100))
  201. 1040 [151]214,23:[153]:[153]BL$
  202. 1050 [151]214,23:[153]:[153]"(null)ECONDARY COOLANT FLOW?";:[141]10
  203. 1060 [139]B$[178]""[167]1100
  204. 1070 SF%[178][197](B$):SF%[178]SF%[170](100[171]SF%)[172]([171](SF%[177]100))
  205. 1100 [139]PF%[178]0[175]SF%[178]0[175]RH[179]1[175]RT%[179]100[175]A%[178]0[167]1120
  206. 1110 [137]1140
  207. 1120 [141]2000:[151]214,23:[153]:[153]BL$
  208. 1122 [151]214,23:[153]:[153]"(null)AINTENANCE SHUTDOWN:"MD%"DAYS.ON"
  209. 1130 [129]I[178]1[164]5000:[130]I
  210. 1140 [139]EF%[177]EV%[167]EF%[178]EV%
  211. 1200 [143]  DAMAGE ASSESSMENT AND OPERATION CALCULATIONS
  212. 1205 EV%[178]EV%[171]EF%[170]2[172]ED%[172](ED%[177]3)
  213. 1210 [145]QP%[137]1211,1213,1215:[143] LEAKAGE PROBABILITIES
  214. 1211 PD%[178]PD%[170](PF%[177]65)[172]([187](2)[177].9998)[170](PF%[177]90)[172]([187](2)[177].996)
  215. 1212 PD%[178]PD%[170](PF%[177]95)[172]([187](2)[177].95)[171](4000[172][187](2)[179]DAY%):[137]1220
  216. 1213 PD%[178]PD%[170](PF%[177]55)[172]([187](2)[177].9995)[170](PF%[177]80)[172]([187](2)[177].993)
  217. 1214 PD%[178]PD%[170](PF%[177]92)[172]([187](2)[177].94)[171](2700[172][187](2)[179]DAY%):[137]1220
  218. 1215 PD%[178]PD%[170](PF%[177]40)[172]([187](2)[177].999)[170](PF%[177]70)[172]([187](2)[177].985)
  219. 1216 PD%[178]PD%[170](PF%[177]87)[172]([187](2)[177].93)[171](1400[172][187](2)[179]DAY%)
  220. 1220 [145]QS%[137]1221,1223,1225
  221. 1221 SD%[178]SD%[170](SF%[177]75)[172]([187](2)[177].9997)[170](SF%[177]93)[172]([187](2)[177].995)
  222. 1222 SD%[178]SD%[170](SF%[177]97)[172]([187](2)[177].94)[171](3000[172][187](2)[179]DAY%):[137]1230
  223. 1223 SD%[178]SD%[170](SF%[177]60)[172]([187](2)[177].9992)[170](SF%[177]85)[172]([187](2)[177].99)
  224. 1224 SD%[178]SD%[170](SF%[177]94)[172]([187](2)[177].92)[171](2400[172][187](2)[179]DAY%):[137]1230
  225. 1225 SD%[178]SD%[170](SF%[177]40)[172]([187](2)[177].9985)[170](SF%[177]78)[172]([187](2)[177].98)
  226. 1226 SD%[178]SD%[170](SF%[177]89)[172]([187](2)[177].9)[171](1800[172][187](2)[179]DAY%)
  227. 1230 PB%[178][171](PD%[177]5)
  228. 1240 SB%[178][171](SD%[177]5)
  229. 1250 [139]PF%[177](100[171]PD%[172]10)[175]PB%[177]0[167]PF%[178](100[171]PD%[172]10)[172]([171](100[171]PD%[172]10[177]0))
  230. 1260 [139]SF%[177](100[171]SD%[172]10)[175]SB%[177]0[167]SF%[178](100[171]SD%[172]10)[172]([171](100[171]SD%[172]10[177]0))
  231. 1270 RL[178]RL[170]RH[173]50
  232. 1275 FL[178][181](100[171]RL)
  233. 1280 RH[178](A%[172]30[170]A1%[172]60[170]A2%[172]10)[173]2500[172](100[171]RL)
  234. 1300 PH[178]PF%[172](100[172]([171](PV%[177]100))[170]PV%[172]([171](PV%[179][178]100)))[173]350
  235. 1310 EH[178]EF%[173]200[172](RT%[171]25)
  236. 1320 RT%[178]RT%[170]RH[171]EH[171]PH[171]5[172]([171](RT%[177]25))
  237. 1325 RT%[178]25[170](RT%[171]25)[172]([171](RT%[177]25))
  238. 1330 XT%[178]((RT%[171]25)[172]PF%[170](CT%[171]25)[172]SF%)[173](PF%[170]SF%[170]1)[170]25
  239. 1340 [139]XB%[177]0[167]XT%[178]RT%[172].8[170]5
  240. 1350 SH[178]SF%[172](100[172]([171](PV%[177]100))[170]PV%[172]([171](PV%[179][178]100)))[173]350[172](XT%[171]CT%)
  241. 1360 [139]XB%[177]0[167]SH[178]SH[172].2
  242. 1370 GZ%[178]SH[173]XT%[172](XT%[171]CT%)[172]2[173]3
  243. 1375 [139]GZ%[177]2600[167]GZ%[178]2600
  244. 1380 GZ%[178]GZ%[172]([171](GZ%[177]0))[172]([171](GB%[178]0))
  245. 1390 CT%[178]25[170]((XT%[171]25)[172](SH[171]GZ%)[173](SH[170]1)[172].75)
  246. 1395 CT%[178]25[172]([171](CT%[179][178]25))[170]CT%[172]([171](CT%[177]25))
  247. 1400 [139]XB%[179]1[167]XB%[178]([171](XD%[177]2))[172]([171]([187](4)[177].9))
  248. 1410 [139]GB%[179]1[167]GB%[178]([171](GD%[177]4))[172]([171]([187](4)[177].9))
  249. 1420 TT[178]TT[170]GZ%
  250. 1430 [137]460
  251. 2000 [143]  MAINTENANCE REPAIR SUBROUTINE
  252. 2010 EV%[178]300:PV%[178]120:SV%[178]120
  253. 2020 QP%[178]1[171]([187](2)[177].57)[171]([187](2)[177].95)
  254. 2030 QS%[178]1[171]([187](2)[177].57)[171]([187](2)[177].95)
  255. 2040 RT%[178]25:T7%[178]25
  256. 2050 XT%[178]25:T8%[178]25
  257. 2060 CT%[178]25:T9%[178]25
  258. 2070 DMGE%[178]DMGE%[170]2[172]RD%[170]ED%[170]PD%[170]XD%[170]SD%[170]GD%
  259. 2080 MD%[178]5[170]3[172](10[172]([171](RD%[177]3))[171](ED%[177]3)[171](PD%[177]3)[171](SD%[177]3)[170]2[172]PB%[170]2[172]SB%[170]3[172]XB%[170]3[172]GB%)
  260. 2082 DAY%[178]DAY%[170]MD%:D4%[178]DAY%
  261. 2090 RD%[178]0
  262. 2100 ED%[178]0
  263. 2110 PD%[178]0
  264. 2120 XD%[178]0
  265. 2130 SD%[178]0
  266. 2140 GD%[178]0
  267. 2150 PB%[178]0
  268. 2160 SB%[178]0
  269. 2170 XB%[178]0
  270. 2180 GB%[178]0
  271. 2190 EF%[178]0:PF%[178]0:SF%[178]0
  272. 2195 GZ%[178]0
  273. 2200 [142]
  274. 3000 [153]"LOAD":[143]  MELTDOWN ENDING
  275. 3010 [139]RD%[177]6[137]3100
  276. 3015 [153]"  SYS(null)HE REACTOR CORE HAS BEEN DESTROYED"
  277. 3020 [153]"BY UNCONTROLLED THERMAL RUNAWAY."
  278. 3025 [153]"LEFT$OWEVER, THE CONTAINMENT BUILDING HAS"
  279. 3030 [153]"NOT YET RUPTURED."
  280. 3035 [153]"  RIGHT$NITIATE YOUR EVACUATION PLAN.STOP":[137]3200
  281. 3100 [153]"  (null)HE REACTOR CORE HAS MELTED DOWN AND"
  282. 3105 [153]"PRODUCED A STEAM EXPLOSION. (null)HE"
  283. 3110 [153]"CONTAINMENT BUILDING HAS RUPTURED."
  284. 3115 [153]"(null)ETHAL RADIOACTIVE GASSES AND DEBRIS"
  285. 3120 [153]"HAVE ESCAPED."
  286. 3125 [153]"  RIGHT$NITIATE YOUR EVACUATION AND"
  287. 3130 [153]"RADIATION CLEANUP PLANS AND GET MEDICAL"
  288. 3135 [153]"ASSISTANCE.STOP"
  289. 3200 [153]""
  290. 3210 [129]Z5[178]1[164]30
  291. 3220 [153]"ON    (null)VAL(null)(null)STR$(null)(null)(null)    (null)VAL(null)(null)STR$(null)(null)(null)WAIT    (null)VAL(null)(null)STR$(null)(null)(null)STOP"
  292. 3230 [129]Z6[178]1[164]100[171]3[172]Z5:[130]Z6
  293. 3240 [153]"ON    (null)VAL(null)(null)STR$(null)(null)(null)WAIT    (null)VAL(null)(null)STR$(null)(null)(null)    (null)VAL(null)(null)STR$(null)(null)(null)WAITSTOP"
  294. 3250 [129]Z6[178]1[164]100[171]3[172]Z5:[130]Z6
  295. 3260 [130]Z5
  296. 3270 [151]214,21:[153]:[137]5000
  297. 4000 [143] EVALUATION OF GAME
  298. 4002 [153]"LOADSTOP(null)(null)VAL(null)ATN(null)(null)(null)CLOSE(null)VAL(null)ASC(null)(null)(null)ATN(null)LENVALCLOSE(null)VAL(null)RIGHT$VAL(null)"
  299. 4003 [153]:[153]:[153]
  300. 4005 [153]"  (null)VER A PERIOD OF"DA%"DAYS, YOU HAVE"
  301. 4010 [153]"PRODUCED AN AVERAGE POWER OUTPUT OF"
  302. 4015 [153]"CMD"KW%"K(null).";
  303. 4016 [153]" AT A VALUE OF";VE$;"."
  304. 4020 AK%[178]1[171](KW%[177]799)[171](KW%[177]899)[171](KW%[177]999)[171](KW%[177]1099)[171](KW%[177]1199)[171](KW%[177]1299)
  305. 4022 AK%[178]AK%[171](KW%[177]1399)[171](KW%[177]1499)
  306. 4025 [153]"  (null)OUR AVERAGE POWER PRODUCTION RATE IS"
  307. 4030 [145]AK%[137]4032,4034,4036,4038,4040,4042,4044,4050,4055
  308. 4032 [153]"HORRIBLE! ASCIND A LESS DEMANDING JOB.":[137]4060
  309. 4034 [153]"BAD. (null)OUR AREA HAD":[153]"FREQUENT BLACKOUTS.":[137]4060
  310. 4036 [153]"PRETTY BAD. (null)OUR AREA HAD":[153]"OCCASIONAL BLACKOUTS.":[137]4060
  311. 4038 [153]"WAY BELOW YOUR AREA'S POWER NEEDS.":[137]4060
  312. 4040 [153]"NOT GOOD.  (null)OUR AREA HAD BROWNOUTS.":[137]4060
  313. 4042 [153]"NOT BAD.  (null)OUR AREA'S POWER NEEDS"
  314. 4043 [153]"WERE SUPPLIED - JUST.":[137]4060
  315. 4044 [153]"ADEQUATE. (null)OU COULD DO BETTER.":[137]4060
  316. 4050 [153]"EXELLENT! (null)OWER RATES IN YOUR AREA WILL"
  317. 4051 [153]"NOT BE INCREASED.":[137]4060
  318. 4055 [153]"NEAR THE MAXIMUM! (null)OWER COSTS IN YOUR"
  319. 4056 [153]"AREA WILL DROP SIGNIFICANTLY."
  320. 4060 [141]2000
  321. 4065 D%[178]1[171](DM%[177]10)[171](DM%[177]20)[171](DM%[177]30)
  322. 4070 [153]"  (null)HE EQUIPMENT DAMAGE SUSTAINED WAS"
  323. 4075 [145]D%[137]4080,4085,4090,4095
  324. 4080 [153]"VERY LIGHT.":[137]5000
  325. 4085 [153]"MODERATE.":[137]5000
  326. 4090 [153]"SERIOUS.":[137]5000
  327. 4095 [153]"SEVERE."
  328. 5000 [143] END
  329. 5005 [133]"(null)OULD YOU LIKE TO TRY AGAIN";A$:A$[178][200](A$,1)
  330. 5010 [139]A$[178]"Y"[167][141]2000:[137]390
  331. 5015 [153]"LOAD":[151]53272,21:[151]53280,254:[151]53281,246:[128]
  332. 5100 B$[178]""
  333. 5105 [129]I[178]1[164]4
  334. 5110 [161]A$
  335. 5130 [139][198](A$)[179][177]94[167]5140
  336. 5134 [139]B$[178]""[167][142]
  337. 5136 OUT%[178][197](B$)
  338. 5138 [142]
  339. 5140 [143] PET ONLY * IFASC(A$)=13THENSYS50583:GOTO1170
  340. 5150 B$[178]B$[170]A$
  341. 5160 [153]A$;
  342. 5170 [130]I
  343. 5180 [142]
  344. 5300 [129]J6[178]1[164]63[172]Z4:[130]J6:Z4[178]Z4[170]3:[142]:[143] DELAY
  345. 5310 [151]214,23:[153]:[153]"    (null)RESS (null)(null)ATNLENVAL TO CONTINUE...";
  346. 5311 [151]214,23:[146]198,1:[153]:[153]BL$;:[161]ZZ$:[142]
  347. 6000 ZD$[178]""
  348. 6005 [153]"LOAD":[153]ZD$"(null)HIS IS THE REACTOR VESSEL            ON"
  349. 6010 [153]"SYS   COS WAITNEWNEWCOS WAITRND"
  350. 6015 [153]"  GET NEWNEWNEWNEWRND "
  351. 6020 [129]ZZ[178]1[164]4:[153]"  GETWAITGET      ":[130]
  352. 6025 [153]"  GETLOGWAIT    * "
  353. 6030 [153]"   RND     WAITCOS"
  354. 6035 [153]"    NEWNEWNEWNEWWAITCOSSTOP"
  355. 6040 Z4[178]11:[141]5300:[141]5310
  356. 6050 [153]ZD$"(null)HIS IS THE CORE                      ON"
  357. 6055 [153]"*NEWNEWNEW"
  358. 6060 [129]ZZ[178]1[164]3:[153]"GET   STOP":[130]
  359. 6065 [141]5300:[141]5310
  360. 6070 [153]ZD$"(null)HIS IS THE EMERGENCY COOLANT         ON"
  361. 6075 [153]"OPEN LOGWAITGET"
  362. 6080 [153]" RNDWAITCOS"
  363. 6085 [153]" GET"
  364. 6086 [153]" GET"
  365. 6090 [153]" LOGRND*RND"
  366. 6095 [153]" GETRND*RND"
  367. 6096 [153]" GETSTOP"
  368. 6097 [129]ZZ[178]1[164]3:[153]" LOG":[130]
  369. 6100 [141]5300:[141]5310
  370. 6105 [153]ZD$"(null)HESE ARE THE CONTROL RODS            ON"
  371. 6110 [153]"FOR"[163]5)"GETGET"
  372. 6115 [153][163]5)"GETGET"
  373. 6120 [153][163]5)"COSCOS"
  374. 6125 [153][163]5)"RNDRND"
  375. 6126 [153][163]5)"COSCOSSTOP"
  376. 6130 Z4[178]11:[141]5300:[141]5310
  377. 6135 [153]ZD$"(null)HIS IS THE PRIMARY COOLANT LOOP      ON"
  378. 6140 [153]""[163]12)"GETCOS"
  379. 6150 [153][163]12)"LOG*"
  380. 6155 [153][163]13)"GET"
  381. 6156 [153][163]13)"GET"
  382. 6160 [153][163]8)"NEW NEWNEWNEWNEWNEWWAITGET"
  383. 6165 [153][163]15)"GET"
  384. 6170 [153][163]8)"NEW NEWNEWNEWNEWNEWWAITCOSSTOP"
  385. 6175 [141]5300:[141]5310
  386. 6180 [153]ZD$"(null)HIS IS THE HEAT EXCHANGER            ON"
  387. 6185 [153]"CLR"[163]14)"*NEWNEWWAITGET"
  388. 6190 [153][163]14)"*WAITGET"
  389. 6195 [153][163]14)"GETGET"
  390. 6200 [153][163]14)"*WAITGET"
  391. 6205 [153][163]14)"NEWNEWNEWWAITCOSSTOP"
  392. 6210 Z4[178]11:[141]5300:[141]5310
  393. 6220 [153]ZD$"(null)HIS IS THE SECONDARY COOLANT LOOP    ON"
  394. 6225 [153]"DEF"[163]17)"GETCOS"
  395. 6230 [153][163]17)"LOG*"
  396. 6235 [153][163]18)"GET
  397. 6236 PRINTTAB(18)"[161]
  398. 6240 [153][163]16)"**NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWRND"
  399. 6250 [153][163]16)"GET"[163]33)"GET"
  400. 6255 [153][163]16)"NEW*WAITGET"[163]33)"GET"
  401. 6260 [153][163]18)"GET"[163]33)"GET"
  402. 6265 [153][163]18)"GET"[163]33)"GET"
  403. 6270 [153][163]33)"GET"
  404. 6271 [153][163]33)"GET"
  405. 6275 [153][163]33)"GET"
  406. 6280 [153][163]21)"*"[163]33)"GET"
  407. 6281 [153][163]21)"LOGNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWSTOP"
  408. 6285 [141]5300:[141]5310
  409. 6290 [153]ZD$"(null)HIS IS THE TURBINE                   ON"
  410. 6295 [153]"PRINT#"[163]17)"*NEWNEWNEWNEWRND"
  411. 6300 [153][163]17)"LOGCOSCOSCOSCOSCOS"
  412. 6305 [153][163]17)"GETCOSCOSCOSCOSGET"
  413. 6310 [153][163]17)"NEWNEWNEWNEWRNDNEWSTOP"
  414. 6315 [141]5300:[141]5310
  415. 6320 [153]ZD$"(null)HIS IS THE ELECTRIC GENERATOR        ON"
  416. 6325 [153]"PRINT"[163]10)"GETRNDRNDRNDRNDRND"
  417. 6330 [153][163]10)"GET     WAITNEW"
  418. 6335 [153][163]10)"GETRNDRNDRNDRNDRND"
  419. 6340 [153][163]10)"LOGNEWNEWNEWNEWNEWSTOP"
  420. 6345 Z4[178]11:[141]5300:[141]5310
  421. 6350 [153]ZD$"(null)HIS IS THE COOLING TOWER             ON"
  422. 6355 [153]""[163]24)"GETWAIT"[163]31)"GET"
  423. 6360 [153][163]24)"LOGLOG"[163]30)"COSWAITCOS"
  424. 6365 [153][163]25)"GETWAITRND"[163]29)"*GET"
  425. 6370 [153][163]26)"GET"[163]29)"GET"
  426. 6371 [153][163]26)"GET"[163]29)"GET"
  427. 6372 [153][163]26)"GET"[163]29)"GET"
  428. 6375 [153][163]25)"*GET"[163]29)"GETWAITRNDSTOP"
  429. 6380 [153][163]25)"      "
  430. 6385 [141]5300:[141]5310
  431. 6390 [153]ZD$"(null)HIS IS THE COMPLETE DIAGRAM.         ON"
  432. 6395 [141]5310:[153]"LOAD":[151]53272,23:[142]
  433. 7000 [142]
  434.