& NUCLEAR POWER PLANT SIMULATION,:C FOR PET COMPUTERI:j BY IVAN SMITH & HUME SMITHp: BASED ON S. R. BERGGREN, CREATIVE COMPUTING DECEMBER 1980 PAGE 128 FF: REVISED 23 DECEMBER 1980 40 158,0:B$"":" ";:167,0 A$:A$""11/ Z(A$):Z9415A Z48Z5711_A$;:B$B$A$:(B$)311r167,1:" ";:(59468,14:R(TI):BL$" ")T1$" ԠҠҠ"*T2$" , ":,""T1$:7)" . ":Z47:5300b.5)"AS MODIFIED BY THE STAFF OF"0" , ":5300:Z482"HIS PROGRAM SIMULATES THE OPERATION OF"<"A NUCLEAR POWER REACTOR.";:5300:" HE OBJECT"1F"IS TO OPERATE THE PLANT AT AS HIGH A"fP"POWER OUTPUT AS POSSIBLE";:5300:", WITHOUT"Z"CAUSING A REACTOR MELTDOWN.":5300\Z517:18)"MELTDOWN":Z6150:Z6^18)"MELTDOWN":Z6150:Z6,Z5:5310d"O YOU WANT INSTRUCTIONS";:Z$:Z$"N"350*fZ$"Y"100Zn"HE CONTROL RODS ADJUST THE AMOUNT OF"x"HEAT PRODUCED BY THE REACTOR.":Z411:5300"HE PRIMARY COOLANT TRANSFERS THIS""HEAT TO THE HEAT EXCHANGER.":5300 "HE SECONDARY COOLANT PICKS UP THE HEAT"Q "FROM THE HEAT EXCHANGER";:5300:", AND TRANSFERS" "IT TO THE TURBINE";:5300:", WHICH DRIVES" "THE ELECTRIC GENERATOR.";:5300:" HE SECONDARY" "COOLANT THEN GOES TO THE COOLING TOWER,":53001 "AND THEN BACK TO THE HEAT EXCHANGER.":5300:5310a "HE EMERGENCY COOLANT IS USED TO HELP" "SHUT DOWN THE REACTOR";:Z411:5300:" WHEN OTHER SYSTEMS" "FAIL.":5300:"NLIKE THE OTHER COOLANTS," "EMERGENCY COOLANT IS NOT RECYCLED.":53003 "HIS MEANS YOUR SUPPLY OF EMERGENCY"a "COOLANT IS LIMITED.":5300:5310:Z413 "N INCREASED FLOW OF PRIMARY COOLANT" "WILL LOWER THE REACTOR CORE TEMPERATURE":5300 "AND WILL RAISE THE HEAT EXCHANGER" "TEMPERATURE.":53009 "N INCREASED FLOW OF SECONDARY COOLANT"v "WILL LOWER THE HEAT EXCHANGER":"TEMPERATURE";:5300 ", AND WILL INCREASE THE":"POWER GENERATED";:5300 ", BUT WILL RAISE THE" "COOLING TOWER TEMPERATURE.":5300:5310:Z413) "UCCESSFUL OPERATION DEPENDS ON"J "GETTING A BALANCE";:5300 ", BETWEEN THE":"HIGH TEMPERATURES NEEDED FOR" "POWER GENERATION";:5300:" AND THE" "TEMPERATURE LIMITS OF THE MACHINERY.":5300:5310"NTER TO SEE REACTOR DIAGRAM.";"NTER FOR WORKING INSTRUCTIONS."_"NTER TO START OPERATION."""13);:A$:A$"D"6000:220A$"S"390A$"I"226"HE CONTROLS ARE OPERATED BY TYPING IN""THE DESIRED CONTROL ROD SETTING";:Z413:5300:" AND"Q"FLOW RATES.":5300:"SE VALUES FROM 0 TO 100.";:5300" F NO ENTRY":"IS MADE, THE PREVIOUS SETTINGS WILL""REMAIN UNCHANGED.":5300"SE "(34)"^"(34)" TO STEP TO THE DIFFERENT""FUNCTIONS.";:5300:" HEN THE DESIRED"Q"ENTRIES HAVE BEEN MADE, THE":"NEXT DAY'S CONDITIONS";} " WILL BE":"CALCULATED.":5300:5310"HE REACTOR CAN BE KEPT OPERATING UNTIL""THE REACTOR FUEL IS EXHAUSTED";:Z413:5300:", OR""UNTIL A MELTDOWN OCCURS.":5300:Z517:8)"MELTDOWN":Z6150:Z6^8)"MELTDOWN":Z6150:Z6,Z5"HE FUEL WILL LAST ABOUT 100 TO 150""DAYS";:5300:", DEPENDING ON HOW MUCH""ENERGY IS PRODUCED EACH DAY.":5300""HEN THE FUEL IS EXAHSTED, YOUR"B'"PERFORMANCE WILL BE SUMMARIZED.":5300:5310,"F YOU WANT TO REPAIR DAMAGE OR REPLACE":"COOLANT";:Z41115300:", BRING THE REACTOR TEMPERATURE"6"DOWN BELOW 100";:5300:", AND SHUT OFF THE";"COOLANT FLOWS.";:5300:" HIS WILL CAUSE"I@"AN AUTOMATIC MAINTENANCE SHUTDOWN.":5300E"EPAIRS WILL BE MADE";:5300:", AND ALL COOLANT"J"WILL BE REPLENISHED.":5300O"HE GREATER THE DAMAGE, THE LONGER"T"THE REPAIRS WILL TAKE.":5300:5310^""13)":":c7)"ӠҠԠ"ph3)"Ϡ !!":Z413:5300j"HE OPERATOR";:Z44:5300:", (YOU)";:5300l", IS RESPONSIBLE"n"FOR SAFE OPERATION OF ALL EQUIPMENT."r5300:5310:220 INITIATE2000,RH0:RL0:TT0=DAY%0:D4%0]QP%1((2).57)((2).95)}QS%1((2).57)((2).95) QP%=QUALIFY OF PRIMARY LOOP WORKMANSHIP, QS%=SAME FOR SECONDARY LOOP  1 FOR FIRST-CLASS WORK, 2 FOR SECOND-CLASS, 3 FOR THIRD-CLASSDMGE%0.A%0:A1%0:A2%0SDAY%DAY%1:"";: WRITE REPORT}RT%800XT%500CT%300GZ%2000480GZ%1000(DAY%D4%8)480EV%200PV%100SV%100480RD%3PD%4SD%4ED%2480PB%0SB%0XB%0GB%0480700T1$"T2$;DAY%""9":":SW1JRT%800520" EACTOR OVERHEATED":RD%RD%1(RT%850)(RT%900)2(RT%950)PD%PD%1:ED%ED%1(RT%850):SW2XT%500530 " EAT EXCHANGER OVERHEATED" XD%XD%1(XT%600):PD%PD%1:SD%SD%1:SW20GZ%2000540M" URBINE OVERLOADED"uTD%TD%1(GZ%2500):SD%SD%1:SW2CT%300" OOLING TOWER OVERHEATED":SD%SD%1:SW2&GZ%1000" OWER OUTPUT LOW":SW20EV%100" MERGENCY COOLANT LOW":SW2>:PV%100" RIMARY COOLANT LOW":PD%PD%1:SW2vDSV%100" ECONDARY COOLANT LOW":SD%SD%1:SW2NSW600,610X11)"ONE"b":":SW1lRD%3"REACTOR CORE DAMAGED":SW2vPD%5640 x"RIMARY COOLANT LEAK:";PD%;"/DAY"4zPV%(PV%PD%)(((PV%PD%)0)):SW2CSD%5650n"ECONDARY COOLANT LEAK:";SD%;"/DAY"SV%(SV%SD%)(((SV%SD%)0)):SW2ED%3660"MERGENCY COOLNAT LEAK:";2ED%;"/DAY"EV%(EV%2ED%)(((EV%2ED%)0)):SW2 PB%06703"RIMARY COOLANT PUMP FAILURE:";e10PD%((PD%10))100((PD%10));"%":SW2tSB%0680"ECONDARY COOLANT PUMP FAILURE:";10SD%((SD%10))100((SD%10));"%":SW2XB%0"EAT EXCHANGER FAILURE":SW2GB%0"URBINE FAILURE":SW2+SW694,696;11)"ONE"E5310[""T1$:T2$;DAY%RD%5" ! ! !":3000""12)"ONTROL ROD POSITION:"A%"%""EMPERATURES: "2" EACTOR 800"R25)""RT%T7%:33)""RT%^T7%RT%z" EAT EXCHANGER 500"25)""XT%T8%:33)""XT%T8%XT%" OOLING TOWER 300"25)""CT%T9%:33)""CT%T9%CT%" OWER OUTPUT (MAX. 2000):"GZ%"K">KW%TTDAY%:VE(24TT.055)gVE$(VE):VE10000VE$"$"VE$:770VE$"$"(VE$,(VE$)3)" "(VE$,3)" VERAGE POWER OUTPUT:"KW%"K" " ALUE OF ENERGY PRODUCED: "VE$*"OOLANTS: Š"C4" MERGENCY"16)EV%22)ED%"/DAY"33)EF%t>" RIMARY"16)PV%22)PD%"/DAY"33)PF%H" ECONDARY"16)SV%22)SD%"/DAY"33)SF%R(100RL)5"EACTOR FUEL EXHAUSTED":4000 GRET NEW CONTROL VALUES A2%A1%:A1%A% 216,23::BL$I 216,23::"ONTROL ROD POSITION?";:10X B$""960 A%(B$):A%A%(100A%)((A%100)) 216,23::BL$ 216,23::"MERGENCY COOLANT FLOW?";:10 B$""1000 EF%(B$):EF%EF%(100EF%)((EF%100))!216,23::BL$=!216,23::"RIMARY COOLANT FLOW?";:10M!B$""1040z!PF%(B$):PF%PF%(100PF%)((PF%100))!216,23::BL$!216,23::"ECONDARY COOLANT FLOW?";:10!$B$""1100!.SF%(B$):SF%SF%(100SF%)((SF%100)) "LPF%0SF%0RH1RT%100A%01120*"V1140C"`2000:216,23::BL$u"b216,23::"AINTENANCE SHUTDOWN:"MD%"DAYS.""jI15000:I"tEF%EV%EF%EV%" DAMAGE ASSESSMENT AND OPERATION CALCULATIONS"EV%EV%EF%2ED%(ED%3)#QP%1211,1213,1215: LEAKAGE POSSIBILITIEST#PD%PD%(PF%65)((2).9998)(PF%90)((2).996)#PD%PD%(PF%95)((2).95)(4000(2)DAY%):1220#PD%PD%(PF%55)((2).9995)(PF%80)((2).993)#PD%PD%(PF%92)((2).94)(2700(2)DAY%):1220/$PD%PD%(PF%40)((2).999)(PF%70)((2).985)`$PD%PD%(PF%87)((2).93)(1400(2)DAY%)x$QS%1221,1223,1225$SD%SD%(SF%75)((2).9997)(SF%93)((2).995)$SD%SD%(SF%97)((2).94)(3000(2)DAY%):1230%SD%SD%(SF%60)((2).9992)(SF%85)((2).99)S%SD%SD%(SF%94)((2).92)(2400(2)DAY%):1230%SD%SD%(SF%40)((2).9985)(SF%78)((2).98)%SD%SD%(SF%89)((2).9)(1800(2)DAY%)%PB%(PD%5)%SB%(SD%5)&PF%(100PD%10)PB%0PF%(100PD%10)((100PD%100))Y&SF%(100SD%10)SB%0SF%(100SD%10)((100SD%100))i&RLRLRH50&RH(A%30A1%60A2%10)2500(100RL)&PHPF%(100((PV%100))PV%((PV%100)))350&EHEF%200(RT%25)'(RT%RT%RHEHPH5((RT%25))#'-RT%25(RT%25)((RT%25))V'2XT%((RT%25)PF%(CT%25)SF%)(PF%SF%1)25n'<XB%0XT%RT%.85'FSHSF%(100((PV%100))PV%((PV%100)))350(XT%CT%)'PXB%0SHSH.2'ZGZ%SHXT%(XT%CT%)23'_GZ%2600GZ%2600(dGZ%GZ%((GZ%0))((GB%0))@(nCT%25((XT%25)(SHGZ%)(SH1).75)h(sCT%25((CT%25))CT%((CT%25))(xXB%1XB%((XD%2))(((4).9))(GB%1GB%((GD%4))(((4).9))(TTTTGZ%(460( MAINTENANCE REPAIR SUBROUTINE)EV%300:PV%120:SV%120.)QP%1((2).57)((2).95)N)QS%1((2).57)((2).95)`)RT%25:T7%25r)XT%25:T8%25) CT%25:T9%25)DMGE%DMGE%2RD%ED%PD%XD%SD%GD%) MD%53(10((RD%3))(ED%3)(PD%3)(SD%3)2PB%2SB%3XB%3GB%)*"DAY%DAY%MD%:D4%DAY%**RD%0)*4ED%03*>PD%0=*HXD%0G*RSD%0Q*\GD%0[*fPB%0e*pSB%0o*zXB%0y*GB%0*EF%0:PF%0:SF%0*GZ%0** "": MELTDOWN ENDING* RD%63100* " HE REACTOR CORE HAS BEEN DESTROYED"#+ "BY UNCONTROLLED THERMAL RUNAWAY."P+ "OWEVER, THE CONTAINMENT BUILDING HAS"i+ "NOT YET RUPTURED."+ " NITIATE YOUR EVACUATION PLAN.":3200+ " HE REACTOR CORE HAS MELTED DOWN AND"+! "PRODUCED A STEAM EXPLOSION. HE",& "CONTANMENT BUILDING HAS RUPTURED."A,+ "LETHAL RADIOACTIVE GASSES AND DEBRIS"V,0 "HAVE ESCAPED."|,5 " NITIATE YOUR EVACUATION AND",: "RADIATION CLEANUP PLANS AND GET MEDICAL",? "ASSISTANCE.", "", Z5130- " Β "- Z611003Z5:Z6O- " Β Β"f- Z611003Z6:Z6n- Z5- 216,21::5000- EVALUATION OF GAME-" VER A PERIOD OF"DA%"DAYS, YOU HAVE"-"PRODUCED AN AVERAGE POWER OUTPUT OF".""KW%"K."M.AK%1(KW%799)(KW%899)(KW%999)(KW%1099)(KW%1199)(KW%1299)o.AK%AK%(KW%1399)(KW%1499)." OUR AVERAGE POWER PRODUCTION RATE IS".AK%4032,4034,4036,4038,4040,4042,4044,4050,4055/"HORRIBLE! IND A LESS DEMANDING JOB.":4060?/"BAD. OUR AREA HAD":"FREQUENT BLACKOUTS.":4060~/"PRETTY BAD. OUR AREA HAD":"FREQUENT BLACKOUTS.":4060/"WAY BELOW YOUR AREA'S POWER NEEDS":4060/"NOT GOOD. OUR AREA HAD BROWNOUTS.":40600"NOT BAD. OUR AREA'S POWER NEEDS"*0"WERE SUPPLIED - JUST.":4060W0"ADEQUATE. OU COULD DO BETTER.":40600"EXCELLENT! OWER RATES IN YOUR AREA WILL"0"NOT NE INCREASED.":40600"NEAR THE MAXIMUM! OWER COSTS IN YOUR"0"AREA WILL DROP SIGNIFIGANTLY."12000(1D%1(DM%10)(DM%20)(DM%30)T1" HE EQUIPMENT DAMAGE SUSTAINED WAS"p1D%4080,4085,4090,40951"VERY LIGHT.":50001"MODERATE.":50001"SERIOUS.":50001"SEVERE."1 END2"OULD YOU LIKE TO TRY AGAIN";A$:A$(A$,1)2A$"Y"2000:390#2"":-2B$""82I14@2A$T2 (A$)945140a2B$""p2OUT%(B$)v22(A$)1350583:11702B$B$A$2(A$;22I2<2J6163Z4:J6:Z4Z43:: DELAY 3216,23::" RESS TO CONTINUE...";3359410,4,4:216,23::BL$;:ZZ$:U3pZD$""3u"":ZD$"HIS IS THE REACTOR VESSEL "3z"   "3"  "3ZZ14:"  ":3"   "4"  "4" "+4Z411:5300:5310]4ZD$"HIS IS THE CORE "t4""4ZZ13:" ":45300:53104ZD$"HIS IS THE EMERGENCY COOLANT "4" "4" "5" " 5" "5" ")5" "45" "H5ZZ13:" ":X55300:53105ZD$"HESE ARE THE CONTROL RODS "5""5)""55)""55)""55)""55)""5Z411:5300:5310)6ZD$"HIS IS THE PRIMARY COOLANT LOOP ">6""12)""M612)""Z6 13)""g6 13)""|68)" "615)""68)" "65300:53106$ZD$"HIS IS THE HEAT EXCHANGER "7)""14)""7.14)""#7314)""57814)""G7=14)""]7BZ411:5300:53107LZD$"HIS IS THE SECONDARY COOLANT LOOP "7Q""17)""7V17)""7[18)""7\18)""7`16)""8j16)""33)""8o16)""33)""08t18)""33)""E8y18)""33)""S8~33)""a833)""o833)""821)""33)""821)""85300:53108ZD$"HIS IS THE TURBINE "9""17)""917)"")917)""<917)""L95300:53109ZD$"HIS IS THE ELECTRIC GENERATOR "9""10)""910)" "910)""910)""9Z411:5300:5310%:ZD$"HIS IS THE COOLING TOWER "G:""24)""31)""_:24)""30)""w:25)""29)"":26)""29)"":26)""29)"":26)""29)"":25)""29)"":25)" ":5300:5310$;ZD$"HIS IS THE COMPLETE DIAGRAM. "?;5300:"":59468,14:W;(# VARIABLE PREFIXES;2# A-CONTROL RODS, C-COOLING TOWER, E-EMERGENCY COOLANT, G-TURBINE;7# P-PRIMARY COOLANT, R-REACTOR, S-SECONDARY COOLANT,X-HEAT EXCHANGER;<# VARIABLE SUFFIXESC# 1200-1260 PUMP FAILURE ASSESSMENT6># 1270-1430 PLANT OPERATING ALGORITHTMSg># 2000-2200 MAINTENANCE SHUTDOWN SUBROUTITNE># 3000-3190 MELTDOWN ENDING># 4000-4290 EVALUATITON OF GAME RESULTS># 5000-5070 END># 6000-7060 PLANT DIAGRAM SUBROUTINE?# 9000-9190 REMARKS(?# APPLE NUCLEAR POWER PLANTD?# BY STEPHEN R BERGGREN