1 REM SCRAM---VERSION 1.3›2 N1=1:N0=N1-N1:X=N0:Y=N0:A=N0:I=N0:N2=N1+N1:N3=N2+N1:N4=N3+N1:N5=N4+N1:N6=N5+N1:N7=N6+N1:N8=N7+N1:GOTO 1000›4 COLOR B:PLOT X,Y:DRAWTO X,Y-N4:PLOT X+N1,Y:DRAWTO X+N1,Y-N4:PLOT X+N2,Y:DRAWTO X+N2,Y-N4:COLOR C:GOTO N5+N›5 PLOT X+N1,Y-N1:DRAWTO X+N1,Y-N3:RETURN ›6 PLOT X,Y-N1:DRAWTO X,Y-N3:PLOT X+N2,Y-N1:DRAWTO X+N2,Y-N4:RETURN ›7 PLOT X,Y-N3:DRAWTO X+N1,Y-N3:PLOT X+N1,Y-N1:DRAWTO X+N2,Y-N1:RETURN ›8 PLOT X,Y-N1:DRAWTO X,Y-N3:PLOT X+N1,Y-N1:PLOT X+N1,Y-N3:RETURN ›9 PLOT X,Y:PLOT X+N1,Y:DRAWTO X+N1,Y-N4:PLOT X,Y-N1:PLOT X+N2,Y-N4:COLOR B:PLOT X+N1,Y-N2:RETURN ›10 PLOT X,Y-N1:PLOT X+N1,Y-N1:PLOT X+N1,Y-N3:PLOT X+N2,Y-N3:RETURN ›11 PLOT X+N1,Y-N1:PLOT X+N1,Y-N3:PLOT X+N2,Y-N3:RETURN ›12 PLOT X,Y:DRAWTO X,Y-N3:PLOT X+N1,Y:DRAWTO X+N1,Y-N3:RETURN ›13 PLOT X+N1,Y-N1:PLOT X+N1,Y-N3:RETURN ›14 PLOT X,Y-N1:PLOT X+N1,Y-N1:PLOT X+N1,Y-N3:RETURN ›15 PLOT X,Y:DRAWTO X,Y-N4:PLOT X+N1,Y:DRAWTO X+N1,Y-N4:PLOT X+N2,Y:DRAWTO X+N2,Y-N4:RETURN ›24 IF STRIG(N0)=N0 THEN FUNC=RDNG(DEVICE):GOSUB 8020:RETURN ›25 FLAG=N0:A=STICK(N0):IF A=N15 THEN RETURN ›26 SOUND N0,N50,N8,N8:POKE N77,N0:X=DEVICE:DEVICE=PEEK(N10*(X-N1)+A+PMBASE+4777):FUNC=RDNG(DEVICE)›27 POKE N1726+N5,DEVICE-N1:A=USR(PMBASE+721,X-N1):SOUND N0,N0,N0,N0:RETURN ›100 IF RDNG(N1)=N0 THEN REACTORPOWER=REACTORPOWER*0.99›110 H=S3*S4/(S3+S4):A=S2*(S6+H)/(S2+S6+H)/S5:Q2=A*REACTORPOWER/(A+N1):Q5=REACTORPOWER-Q2:H=H/S6:Q3=H*Q2/(N1+H)›120 A=Q3*S1*S2*S3*S4/1750000:TURBPOW=TURBPOW+(A-TURBPOW)/N4:IF TURBPOW>999 THEN TURBPOW=999›130 Q6=Q2-Q3:AC=N50+Q3/S4:GOSUB N24:AS=N50+Q6/S6:AP=N50+Q5/S5:AR=AP+REACTORPOWER/S1:TC=TC+(AC-TC)/N24›150 TS=TS+(AS-TS)/N24:TP=TP+(AP-TP)/N24:TR=TR+(AR-TR)/N24:A=(TP/N3+N256)*VP:PP=PP+(A-PP)/(PRZRLVL+N1)›160 IF PP>N3000 THEN A=(PP-2500)/2000000:IF A>BS THEN BS=A›170 VP=VP-PP*(1E-04*(DEVSET(N3)+DEVSET(N2)/N5)+BS)+N2*IP:IF VPN3 THEN PQ=N3›180 FOR I=N1 TO N8:OLDTEMP(I)=TEMP(I):NEXT I:TCRIT=212+33.8*PP^0.33333:TEMP(N3)=TP+(TR-TP)/(N3+DEVSET(N5)/N4)›190 TEMP(N2)=TP-(TP-TS)/(1.5+DEVSET(N5)/N4):TEMP(N4)=TS-(TS-TC)/(N6+DEVSET(N7)/N2)›195 TEMP(N5)=TEMP(N3)-DEVSET(N7)*(TEMP(N3)-TS)/N16:GOSUB N24:TEMP(N6)=TC:TEMP(N7)=TC-(TC-N50)/(1.3+DEVSET(N9)/N9)›196 TEMP(N1)=TR:TEMP(N8)=TURBPOW›198 POKE CURSX,N4:POKE CURSY,N3:? INT(TCRIT);" F ";:POKE CURSY,N1:POKE CURSX,N4:? INT(PP);" PSI ";›200 FOR I=N1 TO N8:Y=TEMPY(I):A$=STR$(INT(TEMP(I))):C=N0:B=N2:IF I>N2 THEN C=N3:IF I=N8 THEN C=N0:B=N3›210 X=TEMPX(I)-N10-N10:FOR J=N4 TO N1 STEP -N1:N=N10:IF LEN(A$)>=J THEN N=VAL(A$(LEN(A$)-J+N1,LEN(A$)-J+N1))›220 X=X+N4:GOSUB N4:NEXT J›222 COLOR C:PLOT X+N2,Y+N2:DRAWTO TEMPX(I)-N16,Y+N2:PLOT X+N2,Y-N6:DRAWTO TEMPX(I)-N16,Y-N6:COLOR B›224 IF INT(TEMP(I))INT(OLDTEMP(I)) THEN PLOT X+N2,Y-N6:DRAWTO TEMPX(I)-N4*LEN(A$),Y-N6›227 IF TRN23 THEN PRZRLVL=N23›280 A=USR(PMBASE+523,PRZRLVL):A=INT(N40+N8-PQ*N4):COLOR N0:FOR I=A TO N40+N6:PLOT N50+N1,I:DRAWTO N50+N13,I:NEXT I›310 ALVL=ALVL+(INT(N40-N3000*S3/TP)-ALVL)/N4:IF ALVL=BADLUCK THEN GOTO N400›350 Z=INT(N8*RND(N3)+N2):IF ULIM(Z)=N0 THEN GOTO N400›355 IF Z>N4 AND ULIM(Z)<=MAX(Z)-RDNG(Z) THEN GOTO N400›370 ULIM(Z)=ULIM(Z)-N1:GOSUB 8900:A=PMBASE+934:J=PEEK(A):FOR I=N1 TO N77:POKE A,J+INT(N3*RND(N3))-N1›380 SOUND N3,N100+N40+INT(N40*RND(N9)),N8,N8:NEXT I:POKE A,J›390 FOR I=N1 TO N15:SOUND N3,N64,N10,N15-I:SOUND N0,N16+N16,N10,N15-I:NEXT I›400 IP=N0:IF LI>N77 THEN GOTO N400+N10›402 IF PPA THEN COLOR N3:PLOT N50+N1,Y:DRAWTO N64,Y:IF Y=N77 THEN A=N0:GOSUB 8610›410 S5=N3*IP:IF S5N77 THEN GOTO N400+N40›432 IS=DEVSET(N8)*DEVSET(N4)›434 A=LS:LS=LS+IS/N16:Y=INT(LS):IF Y>A THEN COLOR N3:PLOT N100+N13,Y:DRAWTO 126,Y:IF Y=N77 THEN A=N0:GOSUB 8670›440 S6=N2*IS:IF S62300 THEN CTTC=CTTC-(TR-2300)/N100:IF CTTCN40 THEN S1=N40›504 IF S1<0.4 THEN S1=0.4›510 IF TR<5000 THEN GOTO 590›520 POKE CURSY,N0:POKE CURSX,N16+N1:? "ÍÅÌÔÄÏ×Î¡":Z=PMBASE+CURSY-N16:A=N50:SOUND N2,N8,N8,N8:POKE N1726,N13›525 SOUND N3,N100+N100,N4,N4:J=N0:FOR I=N50 TO N77+N3:A=A-N1:IF AINT(I/N2) THEN X=N50›528 SOUND N1,X,N10,N10›530 FOR K=I TO A STEP -N2:POKE K+Z,PEEK(1768+INT((I-K)/N2)):POKE K+Z-N1,PEEK(1768+INT((I-K+N1)/N2))›535 J=J+N1:SETCOLOR N4,J,N6:SETCOLOR N2,J+N8,N6:NEXT K:NEXT I›540 SETCOLOR N4,N9,N6:SOUND N1,N0,N0,N0:SOUND N2,N0,N0,N0:SETCOLOR N2,N0,N0:GOTO 9900›590 IF TR>N2*N100 THEN GOTO N100›600 POKE CURSY,N0:POKE CURSX,N15:? "ÃÏÌÄ ÓÈÕÔÄÏ×Î":GOTO 9900›1000 N9=N8+N1:N10=N9+N1:N14=N7+N7:N13=N9+N4:N15=N9+N6:N16=N8+N8:N18=N9+N9:N23=N18+N5:N24=N23+N1:N40=N24+N16›1002 N50=N5*N10:N77=77:N100=N50+N50:N256=N16*N16:CURSY=656:CURSX=CURSY+N1:N3000=3000:TINY=0.03:POKE 82,N1›1006 N400=N4*N100:N64=N40+N24:N1726=1726:DIM A$(N10),DEVX(N10),DEVY(N10),DEVSET(N10),ULIM(N10),MAX(N10),RDNG(N10)›1008 DIM TEMP(N8),TEMPX(N8),TEMPY(N8),E$(898),OLDTEMP(N8),F$(33),G$(44),H$(256)›1010 E$(1,90)="Ø©ÀÔ „Ëî¿¿ ¾º®Ã½Ô…Î½Þ…Ï¥)ª½Ä‘Î˜i(¨èÀ Ðñ© …Ð¦Ð¥Ý!ÐJ},! ÿ½,Ð¨Œ¼"›1011 E$(91,180)="½…Ñ¥X}7…Î¥Y}B…Ï¼½ª±Î$Ñ0JJÐ À0 Ð -¼‘ÎÈÊÐãÆÐ©©…Ð¦Ð¥ÝqÐ/}}q¥X}M…Î¥Y"›1012 E$(181,270)="}Y…Ï½‰…ÑIÿ…Ì ½}0 ÐÞ}…Ñ0ÐqÄ½•…Í½»½e)ªð±Î%Ì‘Î˜i(¨æÏî»ÊÐë®»±ÎÑ‘Î˜i(¨"›1013 E$(271,360)="æÏèäÍð ©½±Î%Ì‘Î˜i(¨æÏèäÍðÎ½ÐçðÌ¦Ð½¡0ÞeÞeþeÆÐ‹LbäHæË¥Ë8éÐ©xÐ©ŽÐ©’Ðh@é"›1014 E$(361,450)="ÐÐh@éÐ©OÐ©EO%NÐ©:ÐºEO%NÐh@©$EO%N ÔÐh@hhhi¹ GÀ…ÔÁ…Õ±Ô)?‘ÔˆÌ¹°ô"›1015 E$(451,540)="±Ô À‘ÔˆÀÐõ` "›1016 E$(541,630)=" hhhªð© JÊÐüð,ƒ034ƒ¦èŽ(Ž)Žw`hhhð ª©0JÊÐüð,~0/~¦"›1017 E$(631,720)="èŽ$Žr`hhhðJ©°J12‚„…¦èŽ&Ž'ŽuŽvŽxŽy`hhhðJ©°J†‡ˆ56¦èŽz"›1018 E$(721,810)="Ž{Ž|Ž*Ž+`hhªh¨© \ä`hhhi¨ÂÀ…Ô®Áè†Õ À©‘ÔˆÀ´° ÌÂ° pÀ©°ì ‘Ô`hhhªð©0JÊÐü"›1019 E$(811,898)="€,.0¦èŽsŽtŽ!Ž#Ž%`hhh Ð,}0-}¦èŽ Žq`hhhª½Ô…Ô½Þ…Õ ©ÿ‘Ô˜i(¨À Ðó`"›1020 POKE ADR(E$)+862,34:POKE 752,N1:PMBASE=PEEK(106)-20:POKE 54279,PMBASE:PMBASE=N256*PMBASE›1021 F$(1,33)="h¥X…Ì¥Y…Í ¢©ÿ‘ÌÈÐûèæÍàÐô‘ÌÈû`"›1022 G$(1,44)="hh…Íh…Ìh…Ïh…Îh…Ñh…Ð ¢±Ì‘ÎÈÐèæÍæÏÄÐÐðäÑÐì`"›1023 H$(1,90)=" (êõñêðøêXÀ 8X8È8 Ï(iijjLáããk"›1024 H$(91,180)=" ÿÿÿ0À0À0ÀÀ$G====N5..4<ÿÿÿÿÿÿ5<"›1025 H$(181,256)="%%%5%ùÿ ÿ€m²UUUUÿÿÿÿªªªªÿÿÿÿTîÍ?¦0¢éqyt{x{wzw{<>~ÿÿÿ~tT"›1040 ALVL=N2:FOR I=N1 TO N13:READ A:POKE PMBASE+370+I,A:NEXT I:DATA 0,33,27,25,22,21,18,16,13,12,10,7,6›1042 GRAPHICS N7:SETCOLOR N4,N9,N6:SETCOLOR N2,N0,N0:A=USR(ADR(F$))›1043 POKE 752,N1:? "} ÂÕÉÌÄÉÎÇ ÎÕÃÌÅÁÒ ÐÏ×ÅÒ ÐÌÁÎÔ":POKE CURSX,N1:POKE CURSY,N0›1044 FOR I=N1 TO N9:READ X,Y,Z:COLOR N0:PLOT X,Y:DRAWTO Z,Y:COLOR N2:PLOT X,Y-N1:DRAWTO Z,Y-N1›1045 PLOT X,Y+N1:DRAWTO Z,Y+N1:NEXT I›1046 DATA 30,15,94,30,52,48,41,77,50,46,24,62,54,59,98,79,77,98›1047 DATA 103,77,112,102,37,129,116,59,141›1048 FOR I=N1 TO N14:READ X,Y,Z:COLOR N0:PLOT X,Y:DRAWTO X,Z:COLOR N2:PLOT X+N1,Y:DRAWTO X+N1,Z›1049 PLOT X-N1,Y:DRAWTO X-N1,Z:NEXT I›1050 DATA 34,53,71,40,48,51,61,25,35,68,16,58,70,16,58,73,16,58,75,16,58,80,60,77,103,38,46,105,38,53›1060 DATA 108,38,46,110,38,53,140,53,59,105,21,36›1080 FOR I=N1 TO N40:READ A:POKE 959+I,A:NEXT I›1090 DATA 0,31,58,77,46,33,96,95,109,137,0,60,27,67,60,78,60,78,60,80,9,0,0,0,4,0,2,0,2,0,9,1,1,1,4,4,2,3,2,9›1100 FOR I=N1 TO N10:DEVX(I)=PEEK(959+I):DEVY(I)=PEEK(969+I):NEXT I›1111 POKE N1726+N5,N1›1120 COLOR N1:FOR I=N2 TO N4:X=DEVX(I):Y=DEVY(I)›1130 FOR J=N0 TO N2:PLOT X+J,Y+J:DRAWTO X+N6-J,Y+J:PLOT X+J,Y+N5-J:DRAWTO X+N6-J,Y+N5-J:NEXT J:NEXT I›1150 FOR I=N5 TO N9:X=DEVX(I):Y=DEVY(I):COLOR N1:PLOT X,Y-N3:DRAWTO X,Y-N6:PLOT X+N1,Y-N2:DRAWTO X+N1,Y-N7›1160 PLOT X+N2,Y-N1:DRAWTO X+N2,Y-N8:FOR J=N3 TO N7:PLOT X+J,Y:DRAWTO X+J,Y-N9:NEXT J›1170 PLOT X+N8,Y-N1:DRAWTO X+N8,Y-N8:PLOT X+N9,Y-N2:DRAWTO X+N9,Y-N7:PLOT X+N10,Y-N3:DRAWTO X+N10,Y-N6›1180 NEXT I›1200 FOR I=N1 TO N5:READ A,X,Y:COLOR N2:PLOT X,Y:FOR J=N1 TO A:READ X,Y:DRAWTO X,Y:NEXT J›1210 READ X,Y,N,Z:COLOR N0:FOR J=Y TO Z:PLOT X,J:DRAWTO N,J:NEXT J:NEXT I›1230 DATA 4,50,76,50,63,65,63,65,78,50,78,64,68,51,77›1240 DATA 4,64,35,64,48,50,48,50,35,63,35,63,46,51,47›1250 DATA 4,112,76,112,63,127,63,127,78,112,78,126,69,113,77›1260 DATA 4,34,47,46,47,46,23,34,23,34,47,45,24,35,46›1280 DATA 10,30,11,30,55,26,59,29,55,25,59,12,59,8,55,11,59,7,55,7,11,30,11,29,12,8,54›1284 COLOR N0:FOR I=N1 TO N4:READ X,Y,A:PLOT X,Y:DRAWTO A,Y:NEXT I:COLOR N2›1286 DATA 9,55,28,10,56,27,11,57,26,12,58,25›1290 FOR J=-N1 TO N1 STEP N2:READ X,Y:PLOT X,Y:FOR I=N1 TO 16:READ A,B:DRAWTO X+J*A,B:NEXT I:RESTORE 1294:NEXT J›1294 DATA 140,11,4,11,5,12,8,13,9,14,9,15,8,18,7,21,6,26,7,31,8,36,9,40,10,43,14,46,10,47,4,48,0,48›1296 RESTORE 1310:PLOT 132,N16:DRAWTO 135,N16+N1:DRAWTO 136,N18:DRAWTO 144,N18:DRAWTO 145,N16+N1:DRAWTO 148,N16›1300 READ X,Y:COLOR N2:PLOT X,Y:FOR I=N1 TO N10:READ X,Y:DRAWTO X,Y:NEXT I›1310 DATA 124,50,127,46,130,52,134,48,136,53,140,48,144,53,146,48,150,52,153,46,156,50›1320 COLOR N0:FOR I=N9 TO N16+N5:PLOT 112,I:DRAWTO 129,I:NEXT I›1360 COLOR N2:FOR I=N1 TO N6:READ X,Y,A:PLOT X,Y:DRAWTO A,Y:NEXT I›1370 DATA 69,11,74,68,12,75,67,13,76,67,61,76,68,62,75,69,63,74›1380 COLOR N0:FOR I=N1 TO N5:PLOT I+I+93,N16+N1+I:DRAWTO I+I+93,13-I:PLOT I+I+94,17+I:DRAWTO I+I+94,13-I:NEXT I›1385 FOR I=N1 TO N4:PLOT N100+N4+I,N16+N6:DRAWTO N100+N4+I,N8:NEXT I›1390 COLOR N2:FOR Y=N4 TO N10:READ A:PLOT N18-A,Y:DRAWTO N18+N1+A,Y:NEXT Y:DATA 3,6,8,9,10,12,12›1430 COLOR N2:FOR I=N1 TO N10+N1:READ X,Y:PLOT X,Y:NEXT I›1435 DATA 71,15,71,59,72,15,72,59,62,24,102,37,103,46,106,37,107,46,107,37,108,46›1440 COLOR N0:FOR I=N1 TO N10+N1:READ X,Y:PLOT X,Y:NEXT I:DATA 139,59,61,35,81,77,104,45,108,45,30,15,30,52,109,45›1445 DATA 46,24,40,48,40,47›1630 COLOR N0:PLOT N100+N9,N15:DRAWTO 112,N15:PLOT 111,N18:DRAWTO 111,N9+N3›1650 ? " ×ÁÉÔÉÎÇ ÆÏÒ ÎÒÃ ÌÉÃÅÎÓÅ "›1660 G$(N24,N24+N1)="©":A=USR(ADR(G$),N0,PMBASE+384,546):G$(N24,N24+N1)="±Ì"›1670 COLOR N2:FOR I=N1 TO N8:READ X,Y:POKE PMBASE+620+I,X:POKE PMBASE+628+I,Y:PLOT X,Y-N5:NEXT I:COLOR N0›1680 PLOT X,Y-N5:DATA 27,40,27,54,53,10,95,54,95,10,125,32,149,68,129,17›1700 A=USR(ADR(G$),ADR(E$),PMBASE+4320,638)›1710 A=USR(ADR(G$),ADR(E$)+638,PMBASE+1024,N100-N4)›1720 A=USR(ADR(G$),ADR(E$)+734,PMBASE+512,N100+N6)›1722 A=USR(ADR(G$),ADR(E$)+840,PMBASE+896,N24+N4)›1724 A=USR(ADR(G$),ADR(E$)+868,PMBASE+721,N24+N6)›1730 A=USR(ADR(G$),ADR(H$),1536,N256)›1800 POKE 559,N50-N4:POKE N1726+N3,INT(PMBASE/N256)+N1:POKE 53277,N3›1830 POKE 53257,N1:FOR J=PMBASE+664 TO PMBASE+678:POKE J,N256-N1:NEXT J:POKE 53258,N3›1840 FOR J=PMBASE+791 TO PMBASE+805:POKE J,N24+N7:NEXT J:FOR J=PMBASE+807 TO PMBASE+818:POKE J,127:NEXT J›1850 POKE 53259,N3:POKE PMBASE+927,252:POKE 707,28:POKE 53260,244›1870 FOR J=PMBASE+415 TO PMBASE+423:POKE J,192:NEXT J:FOR J=PMBASE+424 TO PMBASE+432:POKE J,56:NEXT J›1880 FOR J=PMBASE+433 TO PMBASE+442:POKE J,48:NEXT J:POKE 53253,74:POKE 53254,148:POKE 53255,120›1890 POKE 705,56:POKE 706,216:POKE 1726,13›1900 A=PMBASE+4652:X=INT(A/N256):POKE 513,X:POKE 512,A-N256*X›1910 POKE PMBASE+938,141:POKE PMBASE+950,141:POKE PMBASE+958,141:POKE PMBASE+1014,141›1920 FOR I=N0 TO N9:READ A:A=A+PMBASE+1120:C=INT(A/N256):POKE 1748+I,A-C*N256:POKE 1758+I,C:NEXT I›1930 DATA 244,2446,1133,2738,2015,2886,1744,2626,1869,2953›1940 POKE N1726+N5,N0:POKE 623,N4›2900 FOR I=N1 TO N8:TEMPX(I)=PEEK(PMBASE+620+I):TEMPY(I)=PEEK(PMBASE+628+I):TEMP(I)=N0:NEXT I›3000 FOR I=N1 TO N10:DEVX(I)=PEEK(959+I):DEVY(I)=PEEK(969+I):DEVSET(I)=PEEK(979+I):RDNG(I)=DEVSET(I):POKE N77,N0›3010 ULIM(I)=PEEK(989+I):MAX(I)=ULIM(I):NEXT I:NETNRG=N0:WRKRS=N77+N3›3020 A=USR(PMBASE+512,PMBASE+4320)›3030 REACTORPOWER=2700:TR=CURSY:TP=587:TS=526:TC=95:Q2=2684:Q3=2670:Q5=N16:Q6=14.3:PP=2260:VP=N5:LS=67:LI=LS›3040 S1=N40:CTTC=S1:S2=43.5:S3=6.2:S4=60:S5=TINY:S6=TINY:BS=N0:IP=N0:IS=N0:TURBPOW=953:PQ=N1/N2:STBUB=22000›3050 FOR DEVICE=N2 TO N9:FUNC=RDNG(DEVICE):GOSUB 8200:NEXT DEVICE›3060 DEVICE=N1:A=N2:FOR FUNC=N0 TO N9:GOSUB 8110:NEXT FUNC:ALVL=N2:BADLUCK=N0›3070 COLOR N3:FOR Y=N64 TO 67:PLOT 126,Y:DRAWTO N100+N13,Y:PLOT N64,Y:DRAWTO N50+N1,Y:NEXT Y›3080 COLOR N0:FOR Y=N64+N4 TO N77:PLOT 126,Y:DRAWTO N100+N13,Y:PLOT N64,Y:DRAWTO N50+N1,Y:NEXT Y›3090 COLOR N3:FOR I=36 TO N40+N5:PLOT N50+N1,I:DRAWTO N64-N1,I:NEXT I›3130 FOR J=PMBASE+680 TO PMBASE+688:POKE J,213:NEXT J:FOR J=PMBASE+689 TO PMBASE+719:POKE J,N0:NEXT J›7200 ? "} RCS PRESSURE RISK":B=N1:C=N3:N=N0:X=DEVX(N10)+N4›7205 Y=DEVY(N10)-N3:GOSUB N4›7210 ? :? " BOILING TEMP WORKERS NET ENERGY":POKE CURSX,N16+N5:? "80";:POKE CURSX,35:? "MWH";:GOTO N100›8020 IF STICK(N0)=N13 AND FUNC>N0 THEN FUNC=FUNC-N1:A=N0:GOTO 8100›8030 IF STICK(N0)=N14 AND FUNCN1 THEN GOTO 8200›8105 REACTORPOWER=270*(FUNC+N1):SOUND N0,N100-N10*FUNC,N8,N8›8110 FOR J=N14 TO N16+N6 STEP N4:COLOR N0:PLOT J,N23-FUNC+N5*A:PLOT J+N1,N23-FUNC+N5*A›8115 POKE N1726,INT(1.5*FUNC)›8120 COLOR N1:PLOT J,N16+N16-FUNC-N4*A:PLOT J+N1,N16+N16-FUNC-N4*A:NEXT J:SOUND N0,N0,N0,N0:RETURN ›8200 IF DEVICE>N4 THEN GOTO 8300›8210 IF ULIM(DEVICE)=N1 THEN DEVSET(DEVICE)=FUNC›8220 IF FUNC=N1 THEN SOUND N0,N50,N10,N8:COLOR N0›8230 IF FUNC=N0 THEN SOUND N0,N100,N10,N8:COLOR N1›8240 GOSUB 8540+N5*N6*DEVICE:SOUND N0,N0,N0,N0›8250 PLOT DEVX(DEVICE)+N3,DEVY(DEVICE):DRAWTO DEVX(DEVICE)+N3,DEVY(DEVICE)+N5:RETURN ›8300 SOUND N0,N14-FUNC,N2,N8:N=FUNC:B=N3:C=N1:IF DEVICE=N10 THEN B=N1:C=N3›8310 X=DEVX(DEVICE)+N4:Y=DEVY(DEVICE)-N3:GOSUB N4:SOUND N0,N0,N0,N0›8320 GOTO 8290+DEVICE*N10›8340 A=USR(PMBASE+572,FUNC):RETURN ›8350 GOTO 8600›8360 A=USR(PMBASE+1024,FUNC):RETURN ›8370 GOTO 8660›8380 A=USR(PMBASE+1075,FUNC):RETURN ›8390 BADLUCK=FUNC:NETNRG=N0:RETURN ›8600 A=RDNG(N2)*RDNG(N6):IF LI>N77 THEN A=N0›8610 A=USR(PMBASE+4923,A):RETURN ›8630 A=RDNG(N3):A=USR(PMBASE+896,A):RETURN ›8660 A=RDNG(N4)*RDNG(N8):IF LS>N77 THEN A=N0›8670 A=USR(PMBASE+4882,A):RETURN ›8700 IF FLAG=N1 OR DEVICE=N1 OR DEVICE=N10 THEN RETURN ›8710 FLAG=N1:POKE CURSX,21:POKE CURSY,N3:IF WRKRSRDNG(Z) THEN DEVSET(Z)=RDNG(Z)›8920 RETURN ›9000 COLOR N3:IF Y>N77 THEN GOTO 9020›9010 PLOT X,Y:DRAWTO X+N13,Y›9020 PLOT X,Y-N1:DRAWTO X+N13,Y-N1:RETURN ›9900 POKE CURSX,N9:? "ÐÒÅÓÓ ÓÔÁÒÔ ÔÏ ÓÔÁÒÔ ÏÖÅÒ":SOUND N3,N0,N0,N0›9910 IF PEEK(53279)/N2>INT(PEEK(53279)/N2) THEN GOTO 9910›9920 POKE N1726+N5,N0:A=USR(PMBASE+721,DEVICE-N1):? "}";:GOTO N3000›