Q>,pxZ(*[R0>Cy>xG  >~+N #= Égo|gxG>'55ʙ9v" GSљ e͘w>E.  îLEARR! 6 REBASIC RUN ka k,,,NUCLEAR C4,0:0,31,0,39::J$"N U C L E A R - P O W E R - P L A N T" j(11,2);J$:(12,2); ((J$),"=")r20 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! N U C L E A R-P O W E R-P L A N T ! BY STEPHEN R.BERGGREN ON APPLE II !( BEARBEITET FUER Z 9001 VERSION !D2 VON D. SCHENK/ 8122 RADEBEUL !n< NIZZASTRASSE 31 !F 13.7.1985 !G**********************************HI++++f}r kc 85/4 durch : p.e.++++JP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!2Z0,31,0,39:3,7:_dUHO$(12):UCLR$(126)(28):UI$"" jnUA$""x:7);UI$;"***NUCLEAR-POWER-PLANT***";UA$:::}7,1~" "DIESES PROGRAMM SIMULIERT DIE 2"ARBEITSWEISE EINES KERNREAKTORS. `"IHRE AUFGABE IST ES DEN REAKTOR OPTIMAL"ZU BETREIBEN,SO DASS EINE MAXIMALE "STROMPRODUKTION GEWAERLEISTET IST, "BEI VERMEIDUNG EINES 'G.A.U.'! "(G.A.U.=GROESSTER DENKBARER UNFALL= F"SCHMELZEN DES REAKTORKERNS) t"KADMIUMSTAEBE (NEUTRONENFAENGER) "KONTROLLIEREN DIE WAERMEPRODUKTION "DES REAKTORS. " - 6,0:(23,14);"DRUECKEN SIE BITTE >ENTER<? յ(13)250f 7,1::::"DIE PRIMAERKUEHLUNG"; " TRANSPORTIERT DIESE WAERME ZU EINEM WAERMETAUSCHER,VON DORT "; "TRANSPORTIERT SIE EIN SEKUNDAERER KUEHL-KREISLAUF ZUR ";' ""DAMPFTURBINE,WELCHE DEN ELEKTR. STROM ERZEUGT UND";B ," SCHLIESSLICH ZU ";| 6"EINEM KUEHLTURM. ZUSAETZLICH ZU":"DIESEN BEIDEN "; @"KUEHLSYSTEMEN BESITZT DER REAKTOR NOCH EINE NOTKUEHLUNG. "; J"SIE WIRD BENOETIGT UM DEN REAKTOR BEI EINEM AUS- FALL DER BEIDEN ";Q T" HAUPTKUEHLSYSTEME ABZU-SCHALTEN. IM GEGENSATZ ZU DIESEN STELLT "; ^"DIE NOTKUEHLUNG KEINEN GESCHLOSSENEN KREISLAUF DAR!" h:6;"START?...(S) ERLAEUTERUNGEN ?...(E)" rT$:T$"S"730 |T$"E"400370 :UCLR$;UHO$: "DIE KONTROLLEN WERDEN BEDIENT DURCH DIE EINGABE DER ";~ "GEWUENSCHTEN WERTE FUER DIE STELLUNG DER KADMIUMSTAEBE UND "; "DER":"DURCHFLUSSMENGEN DER KUEHLSYSTEME! DIE EINGEGEBENEN WERTE "; "STELLEN PROZENT-":"ANGABEN DAR, BENUTZEN SIE ALSO WERTE ";L "IM BEREICH VON 0-100! ERFOLGT KEINE EINGABEBLEIBEN DIE "; "LAUFENDEN EINSTELLUNGEN ER- HALTEN. BENUTZEN SIE DIE ENTER"; "-TASTE ZUR BEENDIGUNG DER EINZELNEN EINGABEN. DER REAKTOR ";"KANN BETRIEBEN WERDEN BIS DER KERNBRENNSTOFF VERBRAUCHT ";E"IST ODER EIN G.A.U. DAS SPIEL BEENDET!"u6,0;(23,13);"DRUECKEN SIE BITTE >ENTER< յ(13)520::"DER BRENNSTOFF REICHT ";&"FUER CA. 100-150 TAGE,IM ANSCHLUSS DARAN WIRD IHR ";00"VOR- GEHEN BEWERTET. ZUR DURCHFUEHRUNG VON REPARATUREN ";{:"ODER ZUM AUSTAUSCH DES":"KUEHLMITTELS MUSS DIE REAKTORTEMPERATUR ";D"UNTER 100 GRAD GEBRACHT UND DIE ";N"KUEHLUNGABGESCHALTET WERDEN! SOLCHE ";X"BETRIEBS- BEDINGUNGEN BEWIRKEN AUTOMATISCH EINE "; Ob"GESAMTABSCHALTUNG UND ALLE REPARATUREN UND DER ERSATZ ";l"DES KUEHLMITTELS WERDEN DURCHGEFUEHRT. DIE REPARATURZEIT IST ";v"AB-HAENGIG VON DER SCHWERE DES DEFEKTS!"6,0;(23,13);"DRUECKEN SIE BITTE >ENTER<" յ(13)650::::::B:23;10);"W A R N U N G ! ! !":|3);UI$;"DIESER REAKTOR VERFUEGT UEBER KEINE": "AUTOMATISCHEN SICHERHEITSEINRICHTUNGEN!";UA$:12)"START?...(S)"մ"S"7307101670:P0 VRH0:VQL0:DAY0:VTT0:DMGE0:A0:A10:A20*VQL04DAY0G WRITE REPORTU DAYDAY1j7,1::0,4,0,39 6,0::7);UI$ "****NUCLEAR-POWER-PLANT****"UA$*47)"REAKTOR-STATUS-REPORT TAG:";DAY>7,1:5,31,0,39H:22;UI$"ACHTUNG:"UA$::2R RT800"REAKTOR IST UEBERHITZT!!":2380g\XT500"WAERMETAUSCHER IST UEBERHITZT!!":2410fGO2000"TURBINE IST UEBERLASTET!!":2420pCT300"KUEHLTURM IST UEBERHITZT!!":SDSD1:PP1:zGO1000"DIE ENERGIEABGABE AN DAS STROMNETZ IST ":2430LEV200"WASSERSTAND DES NOTKUEHLSYSTEMS IST ZU":10000PV100"FUELLSTAND DES PRIMAERKUEHLSYSTEMS IST ZU":2440SV100"FUELLSTAND DES SEKUNDAERKUEHLSYSTEMS ZU":2450(23,32);">ENTER<"յ(13)9357,1::UI$"DEFEKTE:"UA$:DRD3"REAKTORKERN IST BESCHAEDIGT!":PP1:~PD4"DER PRIMAERKREISLAUF LECKT-";PD;"L/TAG":2460SD4"DER SEKUNDAERKREISLAUF IST UNDICHT!":2470ED2"NOTKUEHLUNG UNDICHT!WASSERVERLUST:";2ED;:24903PB"LEISTUNGSABFALL DER PRIMAERKUEHLWASSER- PUMPE UM":2500sSB"LEISTUNGSABFALL DER SEKUNDAERKUEHLWASSER-PUMPE":2510XB"AUSFALL DES WAERMETAUSCHERS!!":PP1:GB"TURBINENDEFEKT!!!":PP1::(23,31);">ENTER<"  յ(13)1035Ԟ(23,32);" "KRD518,7;" G.A.U. G.A.U. G.A.U. G.A.U. "UA$:1740V7,1:q$UI$;"MESSWERTE:"UA$:}.Z(RT)8"REAKTORTEMP.(MAX.800):"Z: :;"WAERMETAUSCHERTEMP.";BO(XT)L"(MAX.500):"O:VF(CT)$`"KUEHLTURMTEMP.(MAX.300):"F: :"ERZEUGTE LEISTUNG";0jB(GO)at"(MAX.2000KW):"B;"KW": p~KWVTTDAY|H(KW)"DURCHSCHNITTLICHE LEISTUNGSABGABE:"H: :34);"KW/TAG"((GO10SF10PF10EF10(1)30)),1,0,0,31,0(23,32);">ENTER<"յ(13)1185ԙS"KADMIUMSTAEBE:";A;:20)UI$"KUEHLSYSTEME:"UA$::"PRIMAERSYSTEM: WASSERSTAND";PV;: :21);"DURCHFLUSS"PF:"SEKUNDAERSYSTEM: WASSERSTAND";SV:21);"DURCHFLUSS"SF:"NOTKUEHLSYSTEM: WASSERSTAND";EV:221);"DURCHFLUSS"EFh(100VQL)5:UI$"DER KERNBRENNSTOFF IST":2520 EINGABE NEUER DATEN A2A1:A1A:E1A:0,7 :X$"KADMIUMSTAEBE "2350:AE(100E)(E100):E02:E1PF:X$"PRIMAERKREIS ":2350<PFE(100E)(E100):E0CF:E1SF:X$"SEKUNDAERKREIS":2350gPSFE(100E)(E100):E0:P0:SE1EF:X$"NOTKUEHLUNG ":2350VEFE(100E)(E100):E0:EEVEFEVZPF0SF0RH1RT100A01670:2530dEFEVEFEV"n DAMAGE ASSESSMENT AND OPERATIONCALCULATION<xEVEVEF2ED(ED3)[PDPD(PF90)((9).85)zSDSD(SF90)((9).82)PB(PD5)SB(SD5)PF(100PD10)PB0PF(100PD10)(100PD100)SF(100SD10)SB0SF(100SD10)(100SD100)VQLVQLVRH50EVRH(A30A160A210)2500(100VQL)rVPHPF(100(PV100)PV(PV100))350VEHEF200(RT25)RTRTVRHVEHVPH5(RT25)RT25(RT25)(RT25)XT((RT25)PF(CT25)SF)(PFSF1)25XBXTRT.85;VSH(SF(100(PV100)PV(PV100))350)(XTCT)NXBVSHVSH.2"VSHXT(XTCT)2332000GO32000GOVSHXT(XTCT)23,GO2600GO26006GOGO(GO0)(GB0)@25((XT25)(VSHGO)(VSH1).75)30000CT31000:1620"JCT1.2(((XT25)(VSHGO)(VSH1)).75)BTCT25(CT25)CT(CT25)b^XB1XB(XD2)((1).9)hGB1GB(GD4)((1).9)rVTTVTTGO|770 REPARATURROUTINEEV300:PV120:SV120:RT25:XT25:CT25DMGEDMGE2RDEDPDXDSDGDB MD53(10(RD3)(ED3)(PD3)(SD3)2PB2SB3XB3GB)Q DAYDAYMD RD0:PD0:ED0:XD0:SD0:GD0:PB0:SB0:XB0:GB0:EF0:PF0:SF0:GO0   G.A.U.-ENDE 75,0,0,0,31,40  RD6RT9101850,!"DER REAKTORKERN WURDE DURCH UEBERMAESSIGE THERMISCHE"d!"BELASTUNG ZERSTOERT!! GLUECKLICHER WEISEIST DER "!"SICHERHEITSBEHAELTER NICHT GERISSEN!"!!"BENUTZEN SIE IHREN'KATASTROPHENPLAN'UND EVAKUIEREN SIE"!"DIE BEVOELKERUNG!"!&!02270:"::"DER REAKTORKERN IST ZUSAMMEN GESCHMOLZENUND ES GAB";X"D" EINE DAMPFEXPLOSION!!""N"DER SICHERHEITSBEHAELTER IST GEBORSTEN""X"UND TOETLICHE RADIOAKTIVE GASE UND RADIOAKTIVE PARTIKEL";"b" ENTWEICHEN!""l%#v"BEGINNEN SIE SOFORT MIT DER EVAKUIERUNG DER BEVOELKERUNG"D#"UND DER DEKONTAMINATION"~#"DES VERSEUCHTEN GEBIETES.VERSUCHEN SIE MOEGLICHST"#"SCHNELL MEDIZINISCHE HILFE ZU BEKOMMEN!!"#2270# SPIELENDE UND BEWERTUNG#$"UEBER EINEN ZEITRAUM VON";DAY;"TAGEN HABEN SIE " D$"DURCHSCHNITTLICH EINE STROMMENGE"q$"VON";KW;"KILOWATT PRO TAG PRODUZIERT/"w$$AKW1(KW1000)(KW1200)(KW1400)(KW1750)$"NACH DER MEINUNG EINES GREMIUMS VON ANERKANNTEN EXPERTEN" %"IST IHRE LEISTUNG",%AKW2060,2080,2100,2110,2140i% "UNDISKUTABEL SCLECHT! SUCHEN SIE SICH EINEN WENIGER"%"SCHWIERIGEN BERUF.":2160% "WEIT UNTER DEM ENERGIEBEDARF IHRER REGION GEBLIEBEN!!"%*"BESUCHEN SIE EINEN FORTBILDUNGSKURS.":21609&4"ANGEMESSEN! SIE KOENNTEN SICH JEDOCH VERBESSERN!":2160}&>"AUSGEZEICHNET! DIE ENERGIEKOSTEN IN IHRER REGION KOENNEN"&H"KONSTANT GEHALTEN WERDEN"&R2160&\"NAHE DEM MAXIMUM! DIE STROMKOSTEN IN IHRER REGION KOENNEN" 'f"DEUTLICH GESENKT WERDEN"!'p DAMAGE EVALUTION''zV'1670:D1(DMGE10)(DMGE20)(DMGE30)'"DIE IN DIESEM ZEITRAUM AUFGETRETENEN SCHAEDEN UND DIE"'"DAMIT VERBUNDENEN KOSTEN WAREN";'D2220,2230,2240,2260'" SEHR GERING!":2270("IM RAHMEN DER ERWARTUNGEN!":2270\("SEHR HOCH! DIE GRENZEN DER WIRTSCHAFT- LICHKEIT SIND"s("ERREICHT!":2270("UNTRAGBAR HOCH! MELDEN SIE KONKURS AN!"( END("MOECHTEN SIE ES NOCH EINMAL VERSUCHEN?(J/N)"(T$:T$"J"730 )T$"N"23202290) :0,31,0,39Z) (10);UI$;"SCHADE!"UA$;UCO$;(45);(12);"AUF WIEDERSEHEN!"`)$ ). X$;:W$"":" (0-100)";W$:W$""EE1::E(W$) )8 E0E100"UNERLAUBTE EINGABE":3 :2350)B )L RDRD1(RT850)(RT900)2(RT950):DPD1*V EDED1(RT850):PP1'*` : 860\*j XDXD1(XD600):PDPD1:SDSD1:PP1:: 870*t GDGD1(GO2500):SDSD1:PP1:: 880*~ :"ZU GERING!!":PP1::900* "NIEDRIG!!":PDPD1:PP1:: 920* "NIEDRIG!!":SDSD1:PP1:: 930)+ PV(PVPD)((PVPD)0):PP1:: 970j+ "WASSERVERLUST:";SD;"L/TAG":SV(SVSD)((SVSD)0):PP1:s+ 980+ "l/TAG":EV(EV2ED)((EV2ED)0):PP1:: 990+ 10PD(PD10)100(PD10);"%":PP1:: 1000, 10SD(SD10)100(SD10);"%":PP1:: 1010C, "VERBRAUCHT!"UA$:(22,30);VRL:::1960z, :;2);UI$"AUTOMATISCHE GESAMTABSCHALTUNG FUER":, ;MD;"TAGE";UA$:I0100MD:I:: 1380,'"NIEDRIG":PP1:9105,w:" Was?":1510:XZ(ZX$):XZXXXZ11665 -|XYXZ(X