' NUCLEAR DEMO (FOR COMMODORE 64)7 PARA$(50)eREADAA,BB:FORZ=AATOBB:READW:POKEZ,W:NEXTDATA 826,849,162,128,160,0,132,33,134,34,177,33,73,128,145,33 DATA 200,208,247,232,224,132,208,240,96,0 CD$""& CU$""8 555: TITLEO 1600: NARRATIONU ^[ _~ ` ************************ a ****** SINGLE FISSION ****** b ************************ c d53281,11:53280,11 iS1$"" nA$""1 xS2$""R AA$""| OS$" ߒ ":OS$OS$OS$ BB$"" FR$"  " SP$"  " NU$"   " ""20)NU$ X14641484 X1,32 X,46/ I150:I6 XC X1,224N X16| ""20)OS$:I120:I:53281,8 """20)NU$:I110:I:53281,11 ,X 6""21)FR$ @""21)FR$ JN11448:N21488:N31528 TI0152% ^N1I,46:N2I,46:N3I,46J hN1I2,32:N2I2,32:N3I2,32Q rIv |N1I2,32:N2I2,32:N3I2,32 410:53281,6:53280,6 SENT$" A GREAT DEAL OF ENERGY IS RELEASED":2000 SENT$" IN THE FORM OF HEAT.":2000:DD250:4000D SENT$" THIS HEAT IS USED TO PRODUCE STEAM.":2000:4000x SENT$" ALSO, NOTICE THAT MORE NEUTRONS":2000 SENT$" WERE KNOCKED OUT AFTER THE": 2000 SENT$" COLLISION AND VIBRATION ...":2000:DD750:4000   ************************8 ****** MOVE FRAGMENTS ******Z ************************`{S1$;A$;FR$;S2$;A$;FR$S1$;A$;SP$;S2$;A$;SP$S2$"";A$"";FR$;S2$"";A$"";SP$AA$;BB$;FR$;AA$;BB$;SP$ S2$"";A$"";FR$;S2$"";A$"";SP$>AA$"";"";FR$;AA$"";"";SP$qS2$"";A$"";FR$;S2$"";A$"";SP$AA$"";"";FR$;AA$"";"";SP$S2$"";A$"";FR$;S2$"";A$"";SP$ AA$"";"";FR$;AA$"";"";SP$ES2$"";A$"";FR$;S2$"";A$"";SP$vAA$"";"";FR$;AA$"";"";SP$S2$"";A$"";FR$;S2$"";A$"";SP$AA$"";"";FR$;AA$"";"";SP$(&S2$"";A$"";FR$;S2$"";A$"";SP$.(4+R, ********************s- ****** TITLE PAGE ******. ********************/053265,275"";5);" :5);" ɲɲ'D5);"  ߒ ݠݠݠ QN5);" bX15);"b14);" ߒ  l14);"   v13);"   13);" ߒ   13);"   13);"   ?13);" ߒ  \14);"  p 950: BORDERv| ******************* ****** POWER PLANT ****** *******************TEST0:"";:53281,9:53280,67" ߦ ";l" ߦ ";"  ";" ";"  ";J"  ߒ  ";"  ߒ ߒ  ";"    ";"    ";; "   ";x"  ߒ   "; "  Υ  ";*"   ";+4"   ";j>"  ߒ Υ  ";H"   ";R"   ";\"  ";Rf"  ߒ  ";p"   ";z"   ";" ͤͤ  ";/" ";e" NUCLEAR POWER PLANT AERIAL VIEW  ";" ";:56295,5:2023,224RE$"   "(CD$,7);11);RE$:Y175:(CD$,11);10);RE$:Y175:5(CD$,15);9);RE$:Y175:V(CD$,19);8);RE$:Y175:| TEST4 TESTTEST1:"";:695DD1000:4000"":53281,6: ******************** ****** TITLE BORDER ****** ********************X2:Y7:J2112:53281,J:53280,JL I1 40 2|1023I,81:55295I,X:1024I,81:55296I,Y2024I,81:56296I,X:2023I,81:56295I,YI:53281,J1:53280,J1 I123 2198440I,81:5625640I,X:198440(I1),81:5625640(I1),Yb$106340I,81:5533540I,X:106340(I1),81:5533540(I1),Yi.I|8ZX:XY:YZ:J=53281,6:53280,6BDE **********************F ****** CHAIN REACTION ******G ********************** HL"";:53281,12AVM$" ":N$""M`I124`j15);M$ ftwy15);M$;""Z0:J12:I110X((1)111):Y((1)7)(CD$,X2);ZY2);N$I:Z24:J (CD$,8);" ":" "(CD$,8);8);N$D(CD$,20);10);N$"  "(CD$,10);24);" ":24);" "(CD$,10);30);N$  ...... MOVE NEUTRONS ......N10:N224(CD$,8);N1);" ."(N1N112N15(CD$,N2);11);" .":N2N21.<I175::N181310eFI113:53281,8:J120::53281,11:J110:J:IP53281,12:(CD$,7);8);" ":1370:1390Z(CD$,20);10);"":T120:Td(CD$,20);10);"":nI914 x(CD$,8);I);" :":1370:I8 (CD$,8);I);" ":1370X X17:II1:Y((1)15)2w (CD$,Y);I);".":1370 (CD$,Y);I);" ":1370: (CD$,11);23);".":1370 (CD$,11);23);" ":1370!I2529:(CD$,11);I);" .":1370!J135:J:I *********************H **** URANIUM PELLET ****+R ******************** +\6+f"":53281,0]+p" Ƥ "+z" "+" Ҥ̤ "+"  "+"  "',"  Σ "Q,"  "w," ϣ ͥ "," "," "," / "-" "5-" "[-" "-" ä "- I140:1023I,224:55295I,15- 2024I,224:56296I,15:I- I124:10243940I,224:552963940I,15. 20233940I,224:562953940I,15:I1. DD1000:4000@.$ 53281,6:F.` e.j *********************.t ****** FUEL BUNDLE ******.~ *********************. . "":53281,6:53280,6. " FUEL BUNDLE"/ " "/ " >/ " [/ " Υx/ " Υ/ " Υ/ " Υ/ " / " 0 " 0 " 50 " a0 " 0 " "0 " "0 " 1 " D1 " p1 " 1 I140:1023I,224:55295I,51 2024I,224:56296I,5:I1 I124:10243940I,224:552963940I,5 2 20233940I,224:562953940I,5:I?2 I15:(CD$,9);23);" ":DD75:4000k2 (CD$,9);23);"_ FRONT VIEW":4000:I2 I15:(CD$,23);23);" ":DD75:40002 (CD$,23);23);"^ SIDE VIEW":4000:I2 DD1000:40002 53281,6:2( 32 **********************33< **** NEUTRON CLOSE-UP ****R3F **********************X3P l3Z "";:53281,113x " ";3 " ";4 "  ";=4 "  ";r4 "  ";4 "  ߒ   ";4 "  ߒ   ";#5 "    ";^5 "    ";5 "    ";5 "   "; 6 "   ";F6 "    ";6 "  ͤ  ";6 "   ";6 "   ";,7 "    ";g7" "    ";7, "   ߒ  ";76 "   ߒ  ";8@ " "W8J SENT$"THERE'S THE CULPRIT!!":20008T SENT$"NEUTRON!!":20008^ 40008h 53281,6:8 8 ************************9 ** EXPLAIN CHAIN REACTION **$9 *************************9 59 1092r9 SENT$" THE RELEASED NEUTRONS BOUNCE AROUND":20009 SENT$" IN THE MODERATOR OR HEAVY WATER TO":20009 SENT$" SLOW THEM DOWN. ":2000:DD250:4000: SENT$" THIS INCREASES THE CHANCE OF THEM":2000K: SENT$" COLLIDING INTO ANOTHER NEUTRON.":2000:4000: SENT$" HOWEVER, SOME NEUTRONS MIGHT BE WASTED":2000: SENT$" BY BEING ABSORBED BY A NUCLEUS OR THE":2000: SENT$" MODERATOR.": 2000:4000: : ;& ***********************4;0 ** PRODUCING ELECTRICITY **T;: ***********************Z;D m;I "":53281,5;N " ";X " ";b " ϷК ";l " ̯ ܗФϬ"- " "B> "  Υ "q> " "> " Υ> I15:" ":J1150:J> "^":J1150:J:IK? SENT$" THE REACTOR HEATS THE HEAVY WATER":2000m? " "? I15:" ":J1150:J? "_":J1150:J:I@ SENT$" ORDINARY WATER IS TURNED TO STEAM":2000/@ " "_@ I15:"";18);" ":J1150:J@% "";18);"^":J1150:J:I@* SENT$" STEAM PRESSURE DRIVES TURBINE ":2000@4 "";18);" "'A> I15:"";27);" ":J1150:JTAC "";27);"^":J1150:J:IAH SENT$" TURBINE DRIVES GENERATOR ":2000AR "";27);" "A\ I15:"";36);" ":J1150:JBa "";36);"_":J1150:J:IhBf SENT$" ELECTRICITY IS PRODUCED ":2000Bp "";36);" "Bz "":53281,6:B B *******************B ****** CALANDRIA ******B *******************C C "":53281,134C " ̯VC " xC " C " C "  ̯C "  D "  К  >D"   jD"   D "  ̯  D"  D"  Ϸ  E"  ̯  @E"  nE$"  Ϸ  E)"  ̯  E."  E3"  Ϸ  F8"  ̯  DF="  iFB"  zFGDD500:4000FI"";12);"CALANDRIA":4000FL"";12);"^FUEL BUNDLE":40002GV"";23);"_HEAVY WATERMODERATOR":4000tG`"";26);"_HEAVY WATERCOOLANT":4000Gj"";23);"_LIGHT WATER":4000Go"";23);"_STEAM":4000Gt53281,6:"":GG ************** H ****** DELAY ******&H **************,HFHT1DD:D$:D$""TLHgH WRITTEN BY DEREK LEEH WITH THANKS TO CARY HEATHERIOIPIaAB`OIRIOIPIRISILHIx,0,,0)9,0 AƮX`؅*")  ЍРi(`"qAqQ` @a`xbPyb !u"}tAoAnAnAnAjaqn@AnCbao~AXA"***E  * *" nQQq~ Au.|~\y~1}:}uq~Q~Q~Qn}~{~@un_j~qXQB&!W11 >1>61 ~QQq}| @}|u }~P]y@~1}:}uqq~QQ}l}{u~@uo~q~qXqBG11   & BPQqQ@ @QHQxbwPyJ 1u }y~uQzQjnAnAjQziQz@QjsSBai~Q~@B""""!E"1" "1"*3"" "l`PQqQ` @Q`x`Pyb 1u"}tA{Aj~AnAujQzaQzQnA`o~A~ E " *nQQq}l @u,}~@]y~1}:}tqqznqQl}{ul@unjqo~qXqBn*.!G* 11  .1 ..1 n~UQq}| @u| ~Py@~1}:}uqq~qQl{u|@un}~~qXq@>n<.>G*11 >1>.ސ1 L8/( ȩee( ȩee eee8i؅Hh(#e湰溥L` 6e` i _ ii i _i i _ ii i _ i _ _ie e e ee e e e e _ _ii _ i _ _i i i e e e i _ _ii _ _ii _ _i _i i _ i ii _ _i _ i i _ _i _i i i i _ _ _ _i _ _ _ i _ _i _ i i _ ___ _ ii _ _ i _ _ _ _i _i _i _i i _i _ _ i _i i _ _ i _i i i i ` i i _ ` 0 y y y y y& y, yu y y5 y> yF y, y y y y;w;x;x;x;w;w;x;v;x;w;w;x;x;x;w;w;w;x;w;w;w;w;w;w;w;w;x;w;w;x;x;w