home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / NUCLEAR-POWER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  22.3 KB  |  462 lines
  1. 0 REM NUCLEAR DEMO (FOR COMMODORE 64)
  2. 5 DIM PARA$(50)
  3. 6 REMREADAA,BB:FORZ=AATOBB:READW:POKEZ,W:NEXT
  4. 7 REMDATA 826,849,162,128,160,0,132,33,134,34,177,33,73,128,145,33
  5. 8 REM  DATA 200,208,247,232,224,132,208,240,96,0
  6. 9 CD$=""
  7. 10 CU$="[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  8. 20 GOSUB555: REM TITLE
  9. 30 GOSUB1600: REM NARRATION
  10. 94 RUN
  11. 95 REM
  12. 96 REM     ************************
  13. 97 REM  ******  SINGLE FISSION  ******
  14. 98 REM     ************************
  15. 99 REM
  16. 100 POKE53281,11:POKE53280,11
  17. 105 S1$=""
  18. 110 A$=""
  19. 120 S2$=""
  20. 130 AA$=""
  21. 140 OS$="[129][169] [223][146][157][157][157][223] [146][169][157][157][157]":OS$=OS$+OS$
  22. 150 BB$=""
  23. 160 FR$="[158][169] [223][157][157][157][146][223] [146][169]"
  24. 170 SP$="   [157][157][157]   "
  25. 180 NU$="[154][169] [223][157][157][157]   [157][157][157][146][223] [146][169]"
  26. 190 PRINT"[147]"TAB(20)NU$
  27. 210 FORX=1464TO1484
  28. 220 POKEX-1,32
  29. 230 POKEX,46
  30. 240 FORI=1TO50:NEXTI
  31. 250 NEXTX
  32. 260 POKEX-1,224
  33. 270 FORX=1TO6
  34. 280 PRINT"[147]"TAB(20)OS$:FORI=1TO20:NEXTI:POKE53281,8
  35. 290 PRINT"[147]"TAB(20)NU$:FORI=1TO10:NEXTI:POKE53281,11
  36. 300 NEXTX
  37. 310 PRINT"[147]"TAB(21)FR$
  38. 320 PRINT""TAB(21)FR$
  39. 330 N1=1448:N2=1488:N3=1528
  40. 340 FORI=0TO15STEP2
  41. 350 POKEN1+I,46:POKEN2+I,46:POKEN3+I,46
  42. 360 POKEN1+I-2,32:POKEN2+I-2,32:POKEN3+I-2,32
  43. 370 NEXTI
  44. 380 POKEN1+I-2,32:POKEN2+I-2,32:POKEN3+I-2,32
  45. 390 GOSUB410:POKE53281,6:POKE53280,6
  46. 391 SENT$="[147][154] A GREAT DEAL OF ENERGY IS RELEASED":GOSUB2000
  47. 392 SENT$=" IN THE FORM OF HEAT.":GOSUB2000:DD=250:GOSUB4000
  48. 393 SENT$=" THIS HEAT IS USED TO PRODUCE STEAM.":GOSUB2000:GOSUB4000
  49. 394 SENT$=" ALSO, NOTICE THAT MORE NEUTRONS":GOSUB2000
  50. 396 SENT$=" WERE KNOCKED OUT AFTER THE":GOSUB 2000
  51. 397 SENT$=" COLLISION AND VIBRATION ...":GOSUB2000:DD=750:GOSUB4000
  52. 400 RETURN
  53. 405 REM
  54. 406 REM    ************************
  55. 407 REM ******  MOVE FRAGMENTS  ******
  56. 408 REM    ************************
  57. 409 REM
  58. 410 PRINTS1$;A$;FR$;S2$;A$;FR$
  59. 420 PRINTS1$;A$;SP$;S2$;A$;SP$
  60. 430 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$
  61. 440 PRINTAA$;BB$;FR$;AA$;BB$;SP$
  62. 450 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$
  63. 460 PRINTAA$+"";"";FR$;AA$+"";"";SP$
  64. 470 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$
  65. 480 PRINTAA$+"";"";FR$;AA$+"";"";SP$
  66. 490 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$
  67. 500 PRINTAA$+"";"";FR$;AA$+"";"";SP$
  68. 510 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$
  69. 520 PRINTAA$+"";"";FR$;AA$+"";"";SP$
  70. 530 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$
  71. 540 PRINTAA$+"";"";FR$;AA$+"";"";SP$
  72. 550 PRINTS2$+"";A$"";FR$;S2$+"";A$+"";SP$
  73. 552 RETURN
  74. 555 REM
  75. 556 REM    ********************
  76. 557 REM ******  TITLE PAGE  ******
  77. 558 REM    ********************
  78. 559 REM
  79. 560 POKE53265,27
  80. 565 PRINT"[147][144]";TAB(5);"[169]  [146]                [213]
  81. 570 [153][163]5);" WAIT  TOWAITSTEP(null)TANRIGHT$==RIGHT$==RIGHT$(null)TANRIGHT$(null)TAN<(null)TANRIGHT$(null)TANRIGHT$(null)TANRIGHT$
  82. 580 PRINTTAB(5);" [146]   [223][146][221] [221][221][221][221][221][221][221][221][160][221][221][160][221][221][160][221][221]  [171][192][203]
  83. 590 [153][163]5);"(null)  WAIT  MID$TAN(null)(null)MID$MID$(null)MID$MID$MID$TAN(null)MID$TAN(null)MID$TAN(null)(null)  MID$TAN(null)
  84. 600 PRINTTAB(15);"[164][164][164]
  85. 610 [153][163]14);"STEP   (null)WAIT     STEP WAITINT
  86. 620 PRINTTAB(14);" [146][169][163][223] [146][165]   [169]  [146][181]
  87. 630 [153][163]13);"+ WAITFNTO     STEP WAITSTEP WAITINT
  88. 640 PRINTTAB(13);"[161]    [223][146]  [169] [146][169]  [146][181]
  89. 650 [153][163]13);"GET WAITSTEPTAB((null) WAITSGN        WAIT
  90. 660 PRINTTAB(13);"[182] [146][165] [167] [146][181]      [146][181]
  91. 670 [153][163]13);"+ (null)WAITTOSTEP WAITSGN      WAITINT
  92. 680 PRINTTAB(14);"[223]   [146][169]       [146][181]
  93. 682 [141] 950: [143] BORDER
  94. 684 [142]
  95. 685 [143]
  96. 686 [143]     *******************
  97. 687 [143]  ****** POWER PLANT ******
  98. 688 [143]     *******************
  99. 689 [143]
  100. 690 TEST[178]0:[153]"LOAD";:[151]53281,9:[151]53280,6
  101. 695 [153]"      WAIT(null)SPC(SPC(                               WAIT";
  102. 700 [153]"       WAIT(null)SPC(SPC(                              WAIT";
  103. 710 [153]"        TAB(FREWAITSPC(                             WAIT";
  104. 720 [153]"            FREFRENEWNEWNEWWAITFREFREFRETAB(TAB(FREFRENEWNEWNEWRNDWAITSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";
  105. 730 [153]"SYSTOTOTOTO                       INTWAITSPC(           ";
  106. 740 [153]"SYS    WAITFN             SYSSTEP   (null)WAIT    INTWAITSPC(           WAIT";
  107. 750 [153]"SYS    WAIT(null)      OPENSTEP  (null)WAIT  SYSSTEPTOTOTOTOTO(null)WAIT   SGNWAITSPC(           ";
  108. 760 [153]"SYS     WAIT      OPEN    WAITTOTO LENLENLENLENLEN WAIT   FNWAITSPC(           ";
  109. 770 [153]"SYS     WAIT(null)     OPENWAIT(null)  WAITSTEP SGNSYS TAB(TAB(TAB(TAB(TAB( WAIT  THENSPC(SPC(           ";
  110. 780 [153]"SYS      WAIT         CLOSEFNSYS(null)     WAITSTEP  +SPC(SPC(           ";
  111. 790 [153]"SYS      WAIT(null)   OPENSTEP  (null)WAIT  FN SYSWAIT(null)   WAITSTEP   ABSSPC(SPC(           ";
  112. 800 [153]"SYS       WAITFN  OPEN    WAITTO(null)FN         GETWAITSPC(            ";
  113. 810 [153]"SYS       WAITFN  OPEN(null)  WAITSTEP  FNCLOSESTOP====WAITPOSPOSPOS INT             ";
  114. 820 [153]"SYS       WAITFN        SYSFN STOP(null)(null)(null)(null)  WAITSTOPGET INT            WAITSPC(";
  115. 830 [153]"SYS       WAITFN OPENSTEP  (null)WAIT  (null)FNCLOSESTOP(null)(null)(null)(null)  WAITSTOPGETFREFN           WAITSPC(SPC(";
  116. 840 [153]"SYS       WAITFN OPEN    WAITTO(null) FN STOP(null)(null)(null)(null)  WAITSTOPGETTHENSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";
  117. 850 [153]"SYS       WAITFN OPEN(null)  WAITSTEP   FNCLOSESTOP>>>>FREFREFRE SPC(SPC(SPC(           ";
  118. 860 [153]"SYS       WAITFN       (null) (null) PEEK(null) (null)  ABSSPC(             ";
  119. 870 [153]"SYS       WAITFNOPENSTEP  (null)WAIT CLOSE(null)  FN PEEK(null)  FN GETWAITSPC(             ";
  120. 880 [153]"SYS       WAITFNOPEN    WAITTO(null)   FN PEEK(null) (null)  INTWAITSPC(             WAIT";
  121. 890 [153]"OPEN  TAB(TAB((null)  CLOSE(null)  WAITSTEP     FN PEEK(null)(null)   INTWAITSPC(             WAIT";
  122. 900 [153]"OPEN     (null)TOTOTOTOTOTOTOTOTOTO(null)(null)TOTO(null)   THENSPC((null)             WAIT";
  123. 905 [153]"                                        ";
  124. 909 [153]"    NUCLEAR POWER PLANTWAIT AERIAL VIEW     WAIT";
  125. 910 [153]"                                       WAIT";:[151]56295,5:[151]2023,224
  126. 911 RE$[178]"FORSTEP  (null)CMDCMDCMDCMD    CMDCMDCMDCMDWAIT(null)  WAITSTEP"
  127. 912 [153][200](CD$,7);[163]11);RE$:[129]Y[178]1[164]75:[130]
  128. 913 [153][200](CD$,11);[163]10);RE$:[129]Y[178]1[164]75:[130]
  129. 914 [153][200](CD$,15);[163]9);RE$:[129]Y[178]1[164]75:[130]
  130. 915 [153][200](CD$,19);[163]8);RE$:[129]Y[178]1[164]75:[130]
  131. 916 [139] TEST[179]4 [167] TEST[178]TEST[170]1:[153]"";:[137]695
  132. 917 DD[178]1000:[141]4000
  133. 920 [153]"LOAD":[151]53281,6:[142]
  134. 950 [143]
  135. 960 [143]     ********************
  136. 970 [143]  ****** TITLE BORDER ******
  137. 980 [143]     ********************
  138. 990 [143]
  139. 994 X[178]2:Y[178]7
  140. 995 [129]J[178]2[164]11[169]2:[151]53281,J:[151]53280,J
  141. 1000 [129] I[178]1 [164] 40 [169]2
  142. 1010 [151]1023[170]I,81:[151]55295[170]I,X:[151]1024[170]I,81:[151]55296[170]I,Y
  143. 1020 [151]2024[171]I,81:[151]56296[171]I,X:[151]2023[171]I,81:[151]56295[171]I,Y
  144. 1030 [130]I:[151]53281,J[170]1:[151]53280,J[170]1
  145. 1040 [129] I[178]1[164]23 [169] 2
  146. 1050 [151]1984[171]40[172]I,81:[151]56256[171]40[172]I,X:[151]1984[171]40[172](I[170]1),81:[151]56256[171]40[172](I[170]1),Y
  147. 1060 [151]1063[170]40[172]I,81:[151]55335[170]40[172]I,X:[151]1063[170]40[172](I[170]1),81:[151]55335[170]40[172](I[170]1),Y
  148. 1070 [130]I
  149. 1080 Z[178]X:X[178]Y:Y[178]Z:[130]J
  150. 1085 [151]53281,6:[151]53280,6
  151. 1090 [142]
  152. 1092 [143]
  153. 1093 [143]     **********************
  154. 1094 [143]  ****** CHAIN REACTION ******
  155. 1095 [143]     **********************
  156. 1096 [143]
  157. 1100 [153]"LOAD";:[151]53281,12
  158. 1110 M$[178]"         WAIT":N$[178]"(null)RIGHT$CMDCMDMID$(null)"
  159. 1120 [129]I[178]1[164]24
  160. 1130 [153][163]15);M$      
  161. 1140 [130]
  162. 1145 [153][163]15);M$;""
  163. 1170 Z[178]0:[129]J[178]1[164]2:[129]I[178]1[164]10
  164. 1180 X[178][181]([187](1)[172]11[170]1):Y[178][181]([187](1)[172]7)
  165. 1190 [153][200](CD$,X[172]2);[163]Z[170]Y[172]2);N$
  166. 1200 [130]I:Z[178]24:[130]J
  167. 1210 [153][200](CD$,8);"               ":[153]"               "
  168. 1220 [153][200](CD$,8);[163]8);N$
  169. 1230 [153][200](CD$,20);[163]10);N$[170]"CMDCMD  CMDCMD  "
  170. 1240 [153][200](CD$,10);[163]24);"              ":[153][163]24);"              "
  171. 1250 [153][200](CD$,10);[163]30);N$
  172. 1290 [143] ...... MOVE NEUTRONS ......
  173. 1300 N1[178]0:N2[178]24
  174. 1310 [153][200](CD$,8);[163]N1);" ."
  175. 1320 N1[178]N1[170]1
  176. 1330 [139]N1[177]5[167][153][200](CD$,N2);[163]11);" ONCMD.":N2[178]N2[171]1
  177. 1340 [129]I[178]1[164]75:[130]:[139]N1[179]8[167]1310
  178. 1350 [129]I[178]1[164]13:[151]53281,8:[129]J[178]1[164]20:[130]:[151]53281,11:[129]J[178]1[164]10:[130]J:[130]I
  179. 1360 [151]53281,12:[153][200](CD$,7);[163]8);"(null)RIGHT$CMDCMD  CMDCMDMID$(null)":[141]1370:[137]1390
  180. 1370 [153][200](CD$,20);[163]10);"*RNDWAITCMDCMDLOGWAITCOS":[129]T[178]1[164]20:[130]T
  181. 1380 [153][200](CD$,20);[163]10);"*WAITRNDCMDCMDLOGCOSWAIT":[142]
  182. 1390 [129]I[178]9[164]14
  183. 1400 [153][200](CD$,8);[163]I);" :":[141]1370:[130]I
  184. 1410 [153][200](CD$,8);[163]I);" WAIT":[141]1370
  185. 1420 [129]X[178]1[164]7:I[178]I[170]1:Y[178][181]([187](1)[172]15)[170]2
  186. 1430 [153][200](CD$,Y);[163]I);".WAIT":[141]1370
  187. 1440 [153][200](CD$,Y);[163]I);" WAIT":[141]1370:[130]
  188. 1450 [153][200](CD$,11);[163]23);".WAIT":[141]1370
  189. 1460 [153][200](CD$,11);[163]23);" WAIT":[141]1370
  190. 1470 [129]I[178]25[164]29:[153][200](CD$,11);[163]I);" .":[141]1370
  191. 1480 [129]J[178]1[164]35:[130]J:[130]I
  192. 1490 [153][200](CD$,10);[163]30);"(null)RIGHT$CMDCMD  CMDCMDMID$(null)":[141]1370
  193. 1500 [129]I[178]1[164]10:[151]53281,8:[129]J[178]1[164]20:[130]:[151]53281,11:[129]J[178]1[164]10:[130]J:[130]
  194. 1505 [151]53281,12:[141]1370
  195. 1510 [129]I[178]31[164]37
  196. 1520 [153][200](CD$,11);[163]I);" :":[141]1370:[130]I
  197. 1530 [153][200](CD$,11);[163]38);" "
  198. 1540 [151]53281,6:[153]"CONT":[142]
  199. 1600 [143]
  200. 1610 [143]     ******************
  201. 1620 [143]  ******  NARRATION ******
  202. 1630 [143]     ******************
  203. 1640 [143]
  204. 1645 [153]"LOAD";
  205. 1650 [135] SENT$
  206. 1660 [141] 2000:[143]  PRINT ONE LETTER                           AT A TIME
  207. 1670 DD[178]500:[141]4000
  208. 1700 [143]  SCROLL UP
  209. 1710 [153]""
  210. 1715 [151]53265,23:[129]J[178]1[164]33
  211. 1717 [135]SENT$
  212. 1720 [153][200](CD$,25);"                               ON"
  213. 1723 [129]D[178]1[164]1:[130]D:[130]J
  214. 1727 [153][200](CD$,25);[163]9);SENT$;"ON"
  215. 1740 [153][200](CD$,25);"                                    ON"
  216. 1780 [135] SENT$:[141]2000
  217. 1790 [131]"LOADDEF WHAT FORMAKES SYSA NUCLEAR PRINTPOWER CONTPLANT CLRTICK?"
  218. 1800 [131]"CONT      BECAUSE OF       "," SEVERAL INSTANCES OF  "
  219. 1802 [131]"  ADVERSE PUBLICITY,   ",*
  220. 1805 [131]"  NUCLEAR ENERGY IS    ","STILL REGARDED BY MANY "
  221. 1810 [131]"   AS AN UNRELIABLE    ","   SOURCE OF POWER.    ",*
  222. 1812 [131]"    UNFORTUNATELY,     "
  223. 1815 [131]"    MANY ALSO HAVE     "," A MISCONCEPTION AS TO "
  224. 1820 [131]"HOW THE NUCLEAR PROCESS","    ACTUALLY WORKS.    ",*
  225. 1822 [131]" THE FISSION PROCESS   "
  226. 1825 [131]"    AS USED IN THE     ","    CANDUWAIT REACTOR,     ",*
  227. 1830 [131]"     JUST USES A       ","  DIFFERENT METHOD OF  "
  228. 1832 [131]"    CREATING STEAM     "
  229. 1835 [131]"   TO TURN TURBINES.   ",*,"     IT DOES NOT       "
  230. 1837 [131]"      FORMELT DOWNCONT         "
  231. 1840 [131]"   EVERY SIX MONTHS    ",*,"     NOR DOES IT       "
  232. 1842 [131]"     MAKE PEOPLE    "
  233. 1845 [131]"   SYSGLOW IN THE DARKCONT.    ",*,"                       "
  234. 1855 [131]"HERE'S HOW IT REALLY WORKS  ..."
  235. 1856 [129]I[178]1[164]1000:[130]I
  236. 1860 [129] P[178]1[164]9
  237. 1870 [135] SENT$
  238. 1875 [153]"LOAD"
  239. 1880 [141] 2000:[143] PRINT LET. BY LET.
  240. 1885 DD[178]750:[141]4000
  241. 1890 [145] P [141] 685,3500,2400,2100,2600,95,2950,1092,3100
  242. 1900 [130]P
  243. 1905 SENT$[178]"LOAD ... AND THAT'S HOW IT REALLYWAIT WORKS!":[141]2000
  244. 1910 [131] "THE POWER PLANT CONSISTS OF SEVERAL     REACTORS"
  245. 1915 [131] "INSIDE EACH REACTOR, FISSION TAKES PLACEIN THE CALANDRIAWAIT"
  246. 1920 [131] "THE CALANDRIA IS LOADED WITH MANY FUEL  BUNDLES"
  247. 1925 [131] "EACH FUEL BUNDLE CONTAINS SMALL URANIUM PELLETS"
  248. 1930 [131] "LET'S LOOK A LITTLE CLOSER"
  249. 1935 [131] "IT RUNS INTO A URANIUM 235 NUCLEUS LIKE THIS..."
  250. 1940 [131] "A CHAIN REACTION IS CREATED BY THE      NEUTRONS THAT ARE RELEASED"
  251. 1945 [131] "LET'S LOOK AT IT AGAIN"
  252. 1950 [131] "HERE'S HOW ELECTRICITY IS GENERATED"
  253. 1990 [142]
  254. 2000 [143]
  255. 2010 [143]    **********************
  256. 2020 [143]  **** LETTER BY LETTER ****
  257. 2030 [143]    **********************
  258. 2040 [143]
  259. 2045 [153]"CONT";
  260. 2050 [129]I[178]1[164][195](SENT$)
  261. 2060 [153][202](SENT$,I,1);
  262. 2070 [129]J[178]1[164]30:[130]J:[130]I
  263. 2075 [153]
  264. 2080 [142]
  265. 2100 [143]
  266. 2110 [143]   ********************
  267. 2120 [143] **** URANIUM PELLET ****
  268. 2130 [143]   ********************
  269. 2140 [143]
  270. 2150 [153]"LOAD":[151]53281,0
  271. 2160 [153]"          FOR(null)TANTANTANTANSTR$STR$STR$TANTANTANASCTO       "
  272. 2170 [153]"          CHR$            TAB(STR$ASC    "
  273. 2180 [153]"          MID$TANASC(null)TO(null)TOTO(null)       (null)   "
  274. 2190 [153]"           POKE   WAIT     FORVALTANTO     (null)  "
  275. 2200 [153]"           POKE   WAIT        FOR(null)     (null) "
  276. 2210 [153]"           POKE   WAIT    FOR(null)TAB(TAB(TAB(TAB(FN    THEN "
  277. 2220 [153]"           POKE   WAIT   FORTHEN(null)    FN     FN"
  278. 2230 [153]"          (null)TAB(TAB(STR$ASC   (null)(null)  (null)FN     (null)"
  279. 2240 [153]"          (null)    (null)   (null)(null)  FN     PEEK"
  280. 2250 [153]"           (null)    (null)   (null)(null)(null)      THEN"
  281. 2260 [153]"            (null)   /TAB(TAB(TAB(TAB(TAB(        "
  282. 2270 [153]"             (null)                "
  283. 2280 [153]"              (null)               "
  284. 2290 [153]"               VALSTR$ASC            "
  285. 2300 [153]"                  TAB(LENTO         "
  286. 2310 [129]I[178]1[164]40:[151]1023[170]I,224:[151]55295[170]I,15
  287. 2315 [151]2024[171]I,224:[151]56296[171]I,15:[130]I
  288. 2320 [129]I[178]1[164]24:[151]1024[170]39[170]40[172]I,224:[151]55296[170]39[170]40[172]I,15
  289. 2325 [151]2023[171]39[171]40[172]I,224:[151]56295[171]39[171]40[172]I,15:[130]I
  290. 2330 DD[178]1000:[141]4000
  291. 2340 [151]53281,6:[142]
  292. 2400 [143]
  293. 2410 [143]    *********************
  294. 2420 [143] ******  FUEL BUNDLE  ******
  295. 2430 [143]    *********************
  296. 2440 [143]
  297. 2442 [153]"LOAD":[151]53281,6:[151]53280,6
  298. 2445 [153]"              CONTFUEL BUNDLEWAIT"
  299. 2450 [153]"PRINT#               TOTOTOTO
  300. 2455 PRINT"              [206][206][206][206][206][205]
  301. 2460 [153]"             (null)(null)(null)(null)(null)(null)(null)(null)
  302. 2465 PRINT"            [206][206][206][206][206][206][206][206][206][165]
  303. 2470 [153]"           (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FN
  304. 2475 PRINT"          [206][206][206][206][206][206][206][206][206][206][206][165]
  305. 2480 [153]"         PRINT#(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FN
  306. 2490 PRINT"        [206][206][206][206][206][206][206][206][206][206][206][206][206]
  307. 2495 [153]"       (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)
  308. 2500 PRINT"      [206][206][206][206][206][206][206][206][206][206][206][206][206]
  309. 2505 [153]"     (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)
  310. 2510 PRINT"    [206][206][206][206][206][206][206][206][206][206][206][206][206]
  311. 2515 [153]"   (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)   TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
  312. 2520 PRINT"  [206][215][215][209][209][209][215][215][206][206][206][206][206]   [182]                  [181]"
  313. 2523 PRINT"  [215][215][209][209][209][209][209][215][215][206][206][206]    [170][163][163][184][184][163][163][163][163][163][163][163][163][163][163][184][184][163][163][180]"
  314. 2525 PRINT"  [215][215][209][209][209][209][209][215][215][206][206]     [182][163][163][184][184][163][163][163][163][163][163][163][163][163][163][184][184][163][163][181]
  315. 2530 [153]"  (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)      +TAB(TAB(FREFRETAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(FREFRETAB(TAB(SGN
  316. 2535 PRINT"   [215][215][209][209][209][215][215][206]       [182][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][181]
  317. 2540 [153]"    (null)(null)(null)(null)(null)(null)         TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  318. 2550 FORI=1TO40:POKE1023+I,224:POKE55295+I,5
  319. 2555 POKE2024-I,224:POKE56296-I,5:NEXTI
  320. 2560 FORI=1TO24:POKE1024+39+40*I,224:POKE55296+39+40*I,5
  321. 2565 POKE2023-39-40*I,224:POKE56295-39-40*I,5:NEXTI
  322. 2566 FORI=1TO5:PRINTLEFT$(CD$,9);TAB(23);"            ":DD=75:GOSUB4000
  323. 2567 PRINTLEFT$(CD$,9);TAB(23);"[144]_ FRONT VIEW":GOSUB4000:NEXTI
  324. 2568 FORI=1TO5:PRINTLEFT$(CD$,23);TAB(23);"           ":DD=75:GOSUB4000
  325. 2569 PRINTLEFT$(CD$,23);TAB(23);"[144]^ SIDE VIEW":GOSUB4000:NEXTI
  326. 2575 DD=1000:GOSUB4000
  327. 2580 POKE53281,6:RETURN
  328. 2600 REM
  329. 2610 REM   **********************
  330. 2620 REM **** NEUTRON CLOSE-UP ****
  331. 2630 REM   **********************
  332. 2640 REM
  333. 2650 PRINT"[147]";:POKE53281,11
  334. 2680 PRINT"[158]                                        [146]";
  335. 2690 PRINT"                                        [146]";
  336. 2700 PRINT"              [146]                          [146]";
  337. 2710 PRINT"          [146]                              [146]";
  338. 2720 PRINT"        [146]                                [146]";
  339. 2730 PRINT"       [146]       [129][169]        [223][146]  [165][165][165][146]    [158]       [146]";
  340. 2740 PRINT"      [146]       [129][169]          [223][146] [223] [146][169]     [158]      [146]";
  341. 2750 PRINT"      [146]       [129]  [213][192][201]  [213][192][201]  [146]   [146]      [158]      [146]";
  342. 2760 PRINT"     [146]        [129]            [146]   [146]      [158]      [146]";
  343. 2770 PRINT"     [146]        [129]   [209]    [209]   [146] [169][146][169]       [158]     [146]";
  344. 2780 PRINT"     [146]        [129]            [169][146][169]        [158]     [146]";
  345. 2790 PRINT"    [146]      [129][169]     [164][164][164][164][164][164]   [146][169]         [158]     [146]";
  346. 2800 PRINT"    [146]      [129] [146][169]    [205]    [206]   [146]           [158]    [146]";
  347. 2810 PRINT"    [146]      [129][223] [167]    [205][164][164][206]    [146]           [158]    [146]";
  348. 2820 PRINT"   [146]          [129][223]          [146][169]            [158]   [146]";
  349. 2830 PRINT"   [146]           [129][223]        [146][169]             [158]   [146]";
  350. 2840 PRINT"  [146]             [129]  [146][183][183][183][183] [146]                [158]  [146]";
  351. 2850 PRINT"  [146]             [129]  [146]    [160][146]                [158]  [146]";
  352. 2860 PRINT" [146]              [129][169] [146]     [223][146]                [158] [146]";
  353. 2870 PRINT" [146]           [129][169]    [146]        [223][146]             [158] [146]";
  354. 2880 PRINT"[161]                                      [161][146]"
  355. 2890 SENT$="THERE'S THE CULPRIT!!":GOSUB2000
  356. 2900 SENT$="NEUTRON[146]!!":GOSUB2000
  357. 2910 GOSUB4000
  358. 2920 POKE53281,6:RETURN
  359. 2950 REM
  360. 2960 REM   ************************
  361. 2970 REM ** EXPLAIN CHAIN REACTION **
  362. 2980 REM   ************************
  363. 2990 REM
  364. 3000 GOSUB 1092
  365. 3010 SENT$="[147] THE RELEASED NEUTRONS BOUNCE AROUND":GOSUB2000
  366. 3020 SENT$=" IN THE MODERATOR OR HEAVY WATER TO":GOSUB2000
  367. 3030 SENT$=" SLOW THEM DOWN. ":GOSUB2000:DD=250:GOSUB4000
  368. 3035 SENT$=" THIS INCREASES THE CHANCE OF THEM":GOSUB2000
  369. 3040 SENT$=" COLLIDING INTO ANOTHER NEUTRON.":GOSUB2000:GOSUB4000
  370. 3050 SENT$=" HOWEVER, SOME NEUTRONS MIGHT BE WASTED":GOSUB2000
  371. 3060 SENT$=" BY BEING ABSORBED BY A NUCLEUS OR THE":GOSUB2000
  372. 3070 SENT$=" MODERATOR.":GOSUB 2000:GOSUB4000
  373. 3080 RETURN
  374. 3100 REM
  375. 3110 REM   ***********************
  376. 3120 REM ** PRODUCING ELECTRICITY **
  377. 3130 REM   ***********************
  378. 3140 REM
  379. 3145 PRINT"[147]":POKE53281,5
  380. 3150 PRINT"      [151][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  381. 3160 PRINT"     [151][170][154][166][166][166][166][166][166][166][166][166][166][166][166][166][151][181]"
  382. 3170 PRINT"     [151][170][154][166][151][207][183][183][183][183][183][183][183][183][208][154][166][166][151][204]    [164][164][164][164][164][164]"
  383. 3180 PRINT"   [151][175][175][186][154][166][151][204][175][175]      [186][154][220][151][187][161][208][164][164][207][172][172][172][172][172][172][208]"
  384. 3190 PRINT"  [151][170][154][166][166][166][166][166][166][166][151][165]     [165][188][188][188][146][162][162][162][162]      [146][186]"
  385. 3200 PRINT" [151][175][186][154][162][185][162][175][185][185][162][151][204][175]    [165][172][172][172][162][162][162][162]      [146][167][183][183][158][205]"
  386. 3210 PRINT"[151][170]           [146][151][165]   [165] [190][161]    [188][188][188][188][188][188][167]  [158][206]"
  387. 3220 PRINT"[151][170] [146][151][207][154]       [146][151][208] [146][151][165]   [165]             [167] [158][206][205]"
  388. 3230 PRINT"[151][170] [146][151][165]       [170] [146][151][165]  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][158][167]  [205]"
  389. 3240 PRINT"[151][170] [146][151][204][156]       [146][151][186] [146][151][165]                  [158][206]  [206][165]"
  390. 3250 PRINT"[151][170]   [168][168][168][168][168]   [146][151][165]                 [158] [165] [206] [165]"
  391. 3260 PRINT"[151][170] [146][151][207][156]       [146][151][208] [146][151][165]                 [158] [165][206]  [205]"
  392. 3270 PRINT"[151][170] [146][151][204][156]       [146][151][186] [146][151][165]                 [158][206] [205]   [205]"
  393. 3280 PRINT"[151][170]   [168][168][168][168][168]   [146][151][165]                [158][206]  [206]   [206][205]"
  394. 3290 PRINT" [163][163][156]       [146][151][163][163]                [158][206][165]  [165]   [165][167]"
  395. 3300 PRINT"   [163][163][163][163][163][163][163]                 [158][167] [205]    [158] [206][205]"
  396. 3310 PRINT"                           [158][206][165]
  397. 3312 [129]I[178]1[164]5:[153]" ":[129]J[178]1[164]150:[130]J
  398. 3315 [153]"STOP^":[129]J[178]1[164]150:[130]J:[130]I
  399. 3320 SENT$[178]"   STOPTHE REACTOR HEATS THE HEAVY WATER":[141]2000
  400. 3325 [153]" "
  401. 3330 [129]I[178]1[164]5:[153]" ":[129]J[178]1[164]150:[130]J
  402. 3335 [153]"STOP_":[129]J[178]1[164]150:[130]J:[130]I
  403. 3340 SENT$[178]"   STOPORDINARY WATER IS TURNED TO STEAM":[141]2000
  404. 3350 [153]" "
  405. 3360 [129]I[178]1[164]5:[153]"";[163]18);" ":[129]J[178]1[164]150:[130]J
  406. 3365 [153]"";[163]18);"STOP^":[129]J[178]1[164]150:[130]J:[130]I
  407. 3370 SENT$[178]"     STOPSTEAM PRESSURE DRIVES TURBINE  ":[141]2000
  408. 3380 [153]"";[163]18);" "
  409. 3390 [129]I[178]1[164]5:[153]"";[163]27);" ":[129]J[178]1[164]150:[130]J
  410. 3395 [153]"";[163]27);"STOP^":[129]J[178]1[164]150:[130]J:[130]I
  411. 3400 SENT$[178]"       STOPTURBINE DRIVES GENERATOR    ":[141]2000
  412. 3410 [153]"";[163]27);" "
  413. 3420 [129]I[178]1[164]5:[153]"";[163]36);" ":[129]J[178]1[164]150:[130]J
  414. 3425 [153]"";[163]36);"STOP_":[129]J[178]1[164]150:[130]J:[130]I
  415. 3430 SENT$[178]"        STOPELECTRICITY IS PRODUCED    ":[141]2000
  416. 3440 [153]"";[163]36);" "
  417. 3450 [153]"CONT":[151]53281,6:[142]
  418. 3500 [143]
  419. 3510 [143]    *******************
  420. 3520 [143] ******  CALANDRIA  ******
  421. 3530 [143]    *******************
  422. 3540 [143]
  423. 3545 [153]"LOAD":[151]53281,13
  424. 3550 [153]"          PRINT#ANDANDANDANDSQRCONTSPC(SPC(SPC(PRINT#(null)ANDANDANDAND
  425. 3555 PRINT"         [152][167][154][166][166][166][166][166][166][166][166][166][166][166][166][166][152][165]
  426. 3560 [153]"         PRINT#THENCONTSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(PRINT#FN
  427. 3565 PRINT"         [152][167][154][162][185][175][185][185][162][185][185][175][175][162][162][185][152][165]
  428. 3570 [153]"       PRINT#ANDANDSQRCONT             WAITPRINT#(null)ANDAND
  429. 3575 PRINT"      [182]                   [146][152][181]
  430. 3580 [153]"      ABS WAITPRINT#(null)(null)CONT             WAITPRINT#(null)(null) WAITPRINT#INT
  431. 3585 PRINT"      [182] [146][152][165] [183][183][183][183][183][183][183][183][183][183][183][183][183] [167] [146][152][181]
  432. 3590 [153]"      ABS WAITPRINT#FN CLRTOTOTOTOTOTOTOTOTOTOTOTOTO PRINT#THEN WAITPRINT#INT
  433. 3595 PRINT"      [182] [146][152][204][175][156]             [146][152][175][186] [146][152][181]
  434. 3600 [153]"      ABS    NOTNOTNOT NOTNOTNOT NOTNOTNOT    WAITPRINT#INT
  435. 3605 PRINT"      [182] [146][152][207][183][156]             [146][152][183][208] [146][152][181]
  436. 3610 [153]"      ABS WAITPRINT#(null)ANDCLR             WAITPRINT#ANDSQR WAITPRINT#INT
  437. 3615 PRINT"      [182]    [168][168][168] [168][168][168] [168][168][168]    [146][152][181]
  438. 3620 [153]"      ABS WAITPRINT#(null)USRCLR             WAITPRINT#USR(null) WAITPRINT#INT
  439. 3625 PRINT"      [182] [146][152][204][175][156]             [146][152][175][186] [146][152][181]
  440. 3630 [153]"      ABS    NOTNOTNOT NOTNOTNOT NOTNOTNOT    WAITPRINT#INT
  441. 3635 PRINT"      [182] [146][152][207][183][156]             [146][152][183][208] [146][152][181]
  442. 3640 [153]"      ABS WAITPRINT#(null)ANDCLR             WAITPRINT#ANDSQR WAITPRINT#INT
  443. 3645 PRINT"      [182]    [168][168][168] [168][168][168] [168][168][168]    [146][152][181]
  444. 3650 [153]"       USRUSRUSRCLR             WAITPRINT#USRUSRUSR
  445. 3655 DD=500:GOSUB4000
  446. 3657 PRINT"";TAB(12);"[129]CALANDRIA":GOSUB4000
  447. 3660 PRINT"";TAB(12);"^[157]FUEL BUNDLE":GOSUB4000
  448. 3670 PRINT"";TAB(23);"[156]_HEAVY WATER[157][157][157][157][157][157][157][157][157][157]MODERATOR":GOSUB4000
  449. 3680 PRINT"";TAB(26);"_HEAVY WATER[157][157][157][157][157][157][157][157][157]COOLANT":GOSUB4000
  450. 3690 PRINT"";TAB(23);"[154]_LIGHT WATER":GOSUB4000
  451. 3695 PRINT"";TAB(23);"[154]_STEAM":GOSUB4000
  452. 3700 POKE53281,6:PRINT"[154]":RETURN
  453. 4000 REM
  454. 4010 REM     **************
  455. 4020 REM  ******  DELAY ******
  456. 4030 REM     **************
  457. 4040 REM
  458. 4050 FORT=1TODD:GETD$:IFD$=""THENNEXTT
  459. 4060 RETURN
  460. 5000 REM WRITTEN BY DEREK LEE
  461. 5010 REM WITH THANKS TO CARY HEATHER
  462.