Compucolor.org – Virtual Media

Listing of file='POWER.BAS;01' on disk='vmedia/games4-sector.ccvf'

0 PRINT "K"
5 GOSUB 60000
10 PLOT 6,2,12,14
15 PLOT 27,24
20 PRINT ,,"COMPUCOLOR II NUCLEAR POWER PLANT"
30 PRINT
40 PRINT
50 PRINT ,"THIS PROGRAM SIMULATES THE OPERATION OF A NUCLEAR"
60 PRINT ,"POWER REACTOR. THE OBJECT IS TO OPERATE THE PLANT"
70 PRINT ,"AT A MAXIMUM POWER OUTPUT WITHOUT CAUSING A REACTOR"
80 PRINT ,"MELTDOWN."
90 PRINT
100 PRINT
110 PRINT ,"THE CONTROL RODS ADJUST THE AMOUOT OF HEAT PRODUCED"
121 PRINT ,"BY THE REACTOR. PRIMARY COOLANT TRANSFERS THIS HEAT"
130 PRINT ,"TO THE HEAT EXCHANGER. SECONDARY COOLANT TRANSFERS"
140 PRINT ,"HEAT FROM THE HEAT EXCHANGER TO THE TURBINE, WHERE"
150 PRINT ,"POWER IS PRODUCED, AND FINALLY TO THE COOLING TOWER"
160 PRINT ,"THE EMERGENCY COOLANT IS USED TO HELP SHUT DOWN THE"
170 PRINT ,"REACTOR WHEN OTHER SYSTEMS FAIL. UNLIKE OTHER"
180 PRINT ,"COOLANTS, EMERGENCY COOLANT IS NOT RECYCLED."
190 PRINT
200 PRINT
220 PLOT 3,0,20:PRINT ,,"ENTER 'D' TO SEE REACTOR DIAGRAM"
222 PRINT ,,"ENTER 'I' FOR WORKING INSTRUCTIONS"
224 PRINT ,,"ENTER 'S' TO START OPERATION"
225 PLOT 3,26,29:PRINT "YOUR CHOICE >";
226 GOSUB 10000
227 IF A$= "D"THEN GOSUB 6000:GOTO 220
228 IF A$= "S"GOTO 390
230 PLOT 6,2,12
233 PRINT
235 PRINT ,"THE CONTROLS ARE OPERATED BY TYPING IN THE DESIRED"
240 PRINT ,"CONTROL ROD SETTING AND FLOW RATES.(USE VALUES FROM"
245 PRINT ,"0 TO 100) IF NO ENTRY IS MADE, THE VALUES WILL NOT"
250 PRINT ,"CHANGE. USE THE SPACE BAR TO STEP TO THE DESIRED"
255 PRINT ,"FUNCTIONS. WHEN THE DESIRED ENTRIES HAVE BEEN MADE"
260 PRINT ,"USE THE 'RETURN' KEY TO ADVANCE TO THE NEXT DAY."
265 PRINT ,"THE REACTOR CAN BE OPERATED UNTIL A MELTDOWN OCCURS"
270 PRINT ,"OR THE REACTOR FUEL IS EXHAUSTED. THE FUEL WILL"
275 PRINT ,"LAST FOR ABOUT 100 TO 150 DAYS. WHEN THE FUEL IS"
280 PRINT ,"EXHAUSTED, YOUR PERFORMANCE WILL BE EVALUATED."
285 PRINT
290 PLOT 3,23,29:PRINT "HIT RETURN TO CONTINUE >";
295 GOSUB 10000
300 PLOT 12:PRINT :PRINT
305 PRINT ,"IF YOU WANT TO (OR HAVE TO) REPAIR DAMAGE OR REPLACE"
310 PRINT ,"COOLANT, BRING THE REACTOR TEMPERATURE DOWN BELOW"
315 PRINT ,"100 AND SHUT OFF THE COOLANT FLOWS. THIS WILL CAUSE"
320 PRINT ,"AN AUTOMATIC MAINTENANCE SHUTDOWN AND ALL COOLANT"
325 PRINT ,"WILL BE REPLENISHED AND REPAIRS MADE. THE GREATER"
330 PRINT ,"THE DAMAGE, THE LONGER THE REPAIRS WILL TAKE."
335 PRINT
340 PRINT ,,"WARNING: THIS POWER PLANT HAS"
345 PRINT ,,"NO AUTOMATIC SAFETY DEVICES!!"
350 PRINT :GOTO 220
390 REM INITIATE
400 GOSUB 2000
410 RH= 0
420 RL= 0
430 DAY= 0
440 TT= 0
450 DMGE= 0
455 A= 0:A1= 0:A2= 0
460 REM WRITE REPORT
470 PLOT 6,7,12,14
475 DAY= DAY+ 1
480 PRINT ,,"COMPUCOLOR II NUCLEAR POWER PLANT"
490 PRINT ,,,"STATUS REPORT - DAY"DAY
500 PRINT
505 PRINT
510 PLOT 3,48,4:PRINT "WARNINGS:"
515 PRINT
520 IF RT> 800THEN PRINT TAB( 38)"REACTOR OVERHEATED":RD= RD+ 1- (RT> 850)- (RT> 900)- 2* (RT> 950):PD= PD+ 1:ED= ED+ 1- (RT> 850)
530 IF XT> 500THEN PRINT TAB( 38)"HEAT EXCHANGER OVERHEATED":XD= XD+ 1- (XT> 600):PD= PD+ 1:SD= SD+ 1
540 IF GO> 2000THEN PRINT TAB( 38)"TURBINE OVERLOADED":GD= GD+ 1- (GO> 2500):SD= SD+ 1
550 IF CT> 300THEN PRINT TAB( 38)"COOLING TOWER OVERHEATED":SD= SD+ 1
560 IF GO< 1000THEN PRINT TAB( 38)"POWER OUTPUT LOW"
570 IF EV< 200THEN PRINT TAB( 38)"EMERGENCY COOLANT LOW"
580 IF PV< 100THEN PRINT TAB( 38)"PRIMARY COOLANT LOW":PD= PD+ 1
590 IF SV< 100THEN PRINT TAB( 38)"SECONDARY COOLANT LOW":SD= SD+ 1
600 PLOT 3,0,4
610 PRINT ,"DAMAGE:"
612 PRINT
620 IF RD> 3THEN PRINT "REACTOR CORE DAMAGED"
630 IF PD> 4THEN PRINT "PRIMARY COOLANT LEAK -"PD" / DAY":PV= (PV- PD)* (- ((PV- PD)> 0))
640 IF SD> 4THEN PRINT "SECONDARY COOLANT LEAK -"SD" / DAY":SV= (SV- SD)* (- ((SV- SD)> 0))
650 IF ED> 2THEN PRINT "EMERGENCY COOLANT LEAK -"2* ED" - DAY":EV= (EV- 2* ED)* (- ((EV- 2* ED)> 0))
660 IF PBTHEN PRINT "PRIMARY COOLANT PUMP FAILURE -"10* PD* (- (PD< 10))+ 100* (- (PD> = 10))" %"
670 IF SBTHEN PRINT "SECONDARY COOLANT PUMP FAILURE -"10* SD* (- (SD< 10))+ 100* (- (SD> = 10))" %"
680 IF XBTHEN PRINT "HEAT EXCHANGER FAILURE"
690 IF GBTHEN PRINT "TURBINE FAILURE"
700 PRINT
710 IF RD> 5THEN PLOT 3,20,30:PRINT "MELTDOWN! MELTDOWN! MELTDOWN":GOTO 3000
720 PLOT 3,26,13:PRINT "INDICATORS:"
725 PRINT
730 PRINT ,"     REACTOR TEMP.        (MAX 800)";:PLOT - 17* (RT> 800):PRINT INT (RT)
740 PRINT ,"     HEAT EXCHANGER TEMP. (MAX 500)";:PLOT - 17* (XT> 500):PRINT INT (XT)
750 PRINT ,"     COOLING TOWER TEMP.  (MAX 300)";:PLOT - 17* (CT> 300):PRINT INT (CT)
760 PRINT ,"     POWER OUTPUT      (MAX 2000KW)";:PLOT - 17* (GO> 2000):PRINT INT (GO)" KW"
765 KW= TT/ DAY
770 PRINT ,"     AVERAGE POWER OUTPUT          "INT (KW)" KW/DAY"
780 PRINT
800 PLOT 3,0,22,11,3,24,22:PRINT "CONTROL RODS >";A
810 PLOT 3,0,25,11,3,27,25:PRINT "COOLANTS:"
815 PRINT
820 PLOT 11:PRINT ,,"EMERGENCY  LEVEL- ";EV;"  FLOW-";EF
830 PLOT 11:PRINT ,,"PRIMARY    LEVEL- ";PV;"  FLOW-";PF
840 PLOT 11:PRINT ,,"SECONDARY  LEVEL- ";SV;"  FLOW-";SF
850 IF (100- RL)< 5THEN PLOT 3,17,30:PRINT "REACTOR FUEL EXHAUSTED":GOTO 4000
900 REM GET NEW CONTROL VALUES
910 PLOT 3,43,22
950 A2= A1:A1= A
955 B$= "":FOR I= 1TO 4
960 GOSUB 10000:Z= ASC (A$)
965 IF (Z< > 13)AND (Z< > 32)AND (Z> 57OR Z< 48)GOTO 910
970 B$= B$+ A$:IF Z= 13GOTO 1170
975 IF Z= 32GOTO 990
980 A= VAL (B$):A= A+ (100- A)* (- (A> 100))
985 PRINT A$;:NEXT I
990 PLOT 3,50,27
1005 B$= "":FOR I= 1TO 4
1010 GOSUB 10000:Z= ASC (A$)
1015 IF (Z< > 13AND Z< > 32)AND (Z> 57OR Z< 48)GOTO 990
1020 B$= B$+ A$:IF Z= 13GOTO 1170
1025 IF Z= 32GOTO 1050
1030 EF= VAL (B$):EF= EF+ (100- EF)* (- (EF> 100))
1035 IF EF> EVTHEN EF= EV
1040 PRINT A$;:NEXT I
1050 PLOT 3,50,28
1065 B$= "":FOR I= 1TO 4
1070 GOSUB 10000:Z= ASC (A$)
1075 IF (Z< > 13)AND (Z< > 32)AND (Z> 57OR Z< 48)GOTO 1050
1080 B$= B$+ A$:IF Z= 13GOTO 1170
1085 IF Z= 32GOTO 1110
1090 PF= VAL (B$):PF= PF+ (100- PF)* (- (PF> 100))
1100 PRINT A$;:NEXT I
1110 PLOT 3,50,29
1125 B$= "":FOR I= 1TO 4
1130 GOSUB 10000:Z= ASC (A$)
1135 IF (Z< > 13)AND (Z< > 32)AND (Z> 57OR Z< 48)GOTO 1110
1140 B$= B$+ A$:IF Z= 13GOTO 1170
1145 IF Z= 32GOTO 1165
1150 SF= VAL (B$):SF= SF+ (100- SF)* (- (SF> 100))
1160 PRINT A$;:NEXT I
1165 GOTO 800
1170 IF PF= 0AND SF= 0AND RH< 1AND RT< 100AND A= 0THEN GOSUB 2000:PLOT 3,20,31:PRINT "MAINTENANCE SHUTDOWN -"MD" DAYS":FOR I= 1TO 5E3:NEXT
1180 IF EF> EVTHEN EF= EV
1200 REM  DAMAGE ASSESSMENT AND OPERATION CALCULATIONS
1205 EV= EV- EF+ 2* ED* (ED> 3)
1210 PD= PD+ (PF> 90)* (RND (1)> .95)
1220 SD= SD+ (SF> 90)* (RND (1)> .92)
1230 PB= - (PD> 5)
1240 SB= - (SD> 5)
1250 IF PF> (100- PD* 10)AND PBTHEN PF= - (100- PD* 10)* (100- PD* 10> 0)
1260 IF SF> (100- SD* 10)AND SBTHEN SF= - (100- SD* 10)* (100- SD* 10> 0)
1270 RL= RL+ RH/ 50
1280 RH= (A* 30+ A1* 60+ A2* 10)/ 2500* (100- RL)
1300 PH= PF* (100* (- (PV> 100))- PV* (PV< = 100))/ 350
1310 EH= EF/ 200* (RT- 25)
1320 RT= RT+ RH- EH- PH+ 5* (RT> 25)
1325 RT= 25- (RT- 25)* (RT> 25)
1330 XT= ((RT- 25)* PF+ (CT- 25)* SF)/ (PF+ SF+ 1)+ 25
1340 IF XBTHEN XT= RT* .8+ 5
1350 SH= SF* (- 100* (PV> 100)- PV* (PV< = 1000))/ 350* (XT- CT)
1360 IF XBTHEN SH= SH* .2
1370 GO= SH/ XT* (XT- CT)* 2/ 3
1375 IF GO> 2600THEN GO= 2600
1380 GO= GO* (GO> 0)* (GB= 0)
1390 CT= 25+ ((XT- 25)* (SH- GO)/ (SH+ 1)* .75)
1395 CT= - 25* (CT< = 25)- CT* (CT> 25)
1400 IF XB< 1THEN XB= (XD> 2)* (RND (4)> .9)
1410 IF GB< 1THEN GB= (GD> 4)* (RND (4)> .9)
1420 TT= TT+ GO
1430 GOTO 470
2000 REM MAINTENANCE REPAIR SUBROUTINE
2010 EV= 300
2020 PV= 120
2030 SV= 120
2040 RT= 25
2050 XT= 25
2060 CT= 25
2070 DMGE= DMGE+ 2* RD+ ED+ PD+ XD+ SD+ GD
2080 MD= 5+ 3* (- 10* (RD> 3)- (ED> 3)- (PD> 3)- (SD> 3)+ 2* PB+ 2* SB+ 3* XB+ 3* GB)
2085 DAY= DAY+ MD
2090 RD= - 50
2100 ED= 0
2110 PD= 0
2120 XD= 0
2130 SD= 0
2140 GD= 0
2150 PB= 0
2160 SB= 0
2170 XB= 0
2180 GB= 0
2190 EF= 0:PF= 0:SF= 0
2195 GO= 0
2200 RETURN
3000 REM MELTDOWN ENDING
3005 FOR Q= 14TO 29:PLOT 3,0,Q,11:NEXT
3010 PLOT 3,0,14
3020 IF RD> 6GOTO 3100
3030 PRINT ,"THE REACTOR CORE HAS BEEN DESTROYED BY UNCONTROLLED"
3040 PRINT ,"RUNAWAY. HOWEVER, THE CONTAINMENT BUILDING HAS NOT"
3050 PRINT ,"YET RUPTURED."
3060 PRINT
3070 PRINT ,"INITIATE YOUR EVACUATION PLAN."
3090 GOTO 5000
3100 PRINT ,"THE REACTOR CORE HAS MELTED DOWN AND PRODUCED A STEAM"
3110 PRINT ,"EXPLOSION. THE CONTAINMENT BUILDING HAS RUPTURED."
3120 PRINT ,"LETHAL RADIOACTIVE GASES AND DEBRIS HAVE ESCAPED."
3130 PRINT
3140 PRINT ,"INITIATE YOUR EVACUATION AND RADIATION CLEANUP PLANS"
3150 PRINT ,"AND GET MEDICAL ASSISTANCE."
3190 GOTO 5000
4000 REM EVALUATION OF GAME RESULTS
4005 FOR Q= 4TO 29:PLOT 3,0,Q,11:NEXT Q
4010 PLOT 3,0,14
4020 PRINT ,"OVER A PERIOD OF"DAY" DAYS, YOU HAVE PRODUCED AN"
4030 PRINT ,"AVERAGE POWER OUTPUT OF"KW" KILOWATTS PER DAY."
4050 AKW= 1- (KW> 1000)- (KW> 1200)- (KW> 1500)- (KW> 1800)
4060 PRINT
4070 PRINT ,,"YOUR AVERAGE POWER PRODUCTION RATE IS:"
4080 ON AKWGOTO 4090,4100,4110,4120,4140
4090 PRINT ,,"HORRIBLE! FIND A LESS DEMANDING JOB.":GOTO 4200
4100 PRINT ,,"WAY BELOW YOUR AREA'S POWER NEEDS.":GOTO 4200
4110 PRINT ,,"ADEQUATE. YOU COULD DO BETTER.":GOTO 4200
4120 PRINT ,"EXCELLENT! POWER COSTS IN THE AREA WILL NOT BE INCREASED":GOTO 4200
4140 PRINT ,"NEAR THE MAXIMUM! POWER COSTS IN YOUR AREA WILL DROP."
4200 REM DAMAGE EVALUATION
4210 PRINT
4215 GOSUB 2000
4220 D= 1- (DMGE> 10)- (DMGE> 20)- (DMGE> 30)
4230 PRINT ,"THE EQUIPMENT DAMAGE SUSTAINED DURING THIS PERIOD WAS:"
4250 ON DGOTO 4260,4270,4280,4290
4260 PRINT ,,,,"VERY LIGHT.":GOTO 5000
4270 PRINT ,,,,"MODERATE.":GOTO 5000
4280 PRINT ,,,,"HEAVY.":GOTO 5000
4290 PRINT ,,,,"SEVERE."
5000 REM END
5010 PLOT 3,0,28
5020 PRINT ,,"WOULD YOU LIKE TO PLAY AGAIN >";
5030 GOSUB 10000
5035 PRINT
5040 IF A$< > "N"THEN GOSUB 2000:GOTO 390
5050 END
6000 REM  GRAPHICS
6005 DE= 1000
6010 PLOT 12:PRINT " THIS IS THE REACTOR VESSEL"
6030 RESTORE
6035 PLOT 6,32:REM  COLOR=1
6040 FOR I= 1TO 29
6050 READ X1,X2,Y
6060 PLOT 3,X1,Y:PRINT SPC( X2- X1)
6065 PRINT
6070 NEXT I
6080 DATA 7,9,6,15,17,6,6,18,7,5,19,8,5,7,9,17,19,9,5,6,10,18
6085 DATA 19,10,5,6,11,18,19,11,5,6,12,18,19,12,5,6,13,18,19,13
6087 DATA 5,6,14,18,19,14,5,6,15,18,19,15,5,6,16,18,19,16,5,6,17
6090 DATA 18,19,17,5,6,18,18,19,18,5,7,19,17,19,19,6,18,20
6095 DATA 7,17,21,8,16,22
6155 PLOT 3,64,0
6160 FOR I= 1TO DE:NEXT I
6170 PLOT 6,7,8,11:PRINT "THIS IS THE REACTOR CORE"
6190 PLOT 6,40:REM  COLOR=8
6200 FOR I= 9TO 15
6210 PLOT 3,I,11,27,10:PRINT SPC( 6):PLOT 27,24
6220 NEXT I
6225 PLOT 3,64,0
6230 FOR I= 1TO DE:NEXT I
6240 PRINT :PLOT 6,7,8,11
6250 PRINT "THESE ARE THE CONTROL RODS"
6260 PLOT 6,24,27,10:REM  COLOR=13
6270 PLOT 3,11,2:PRINT SPC( 15)
6280 PLOT 3,13,2:PRINT SPC( 15)
6285 PLOT 3,64,0,27,24
6290 FOR I= 1TO DE:NEXT I
6300 PRINT :PLOT 6,7,8,11
6310 PRINT "THE EMERGENCY COOLANT CAN COOL THE REACTOR IN AN EMERGENCY"
6330 PLOT 6,56:REM  COLOR=2
6340 FOR I= 1TO 36
6350 READ Y,X
6360 PLOT 3,X,Y,32
6370 FOR J= 1TO 50:NEXT
6380 NEXT I
6390 DATA 4,2,4,4,5,2,5,3,5,4,6,2,6,3,6,4,7,3,8,3,9,3,10,3,11,3
6395 DATA 12,3,12,4,12,5,12,6,12,7,12,8,12,9,13,9,14,9,15,9
6400 DATA 16,9,16,8,16,7,16,6,16,5,16,4,16,3,17,3,18,3,19,3
6405 DATA 20,3,22,3,24,3
6407 PLOT 3,64,0
6410 FOR I= 1TO DE:NEXT I
6420 PRINT :PLOT 6,7,8,11
6430 PRINT "THE PRIMARY COOLANT CARRIES HEAT FROM THE REACTOR CORE"
6440 PRINT ,,,"TO THE HEAT EXCHANGER."
6445 PLOT 6,8
6450 FOR I= 1TO 52
6460 READ Y,X
6470 PLOT 3,X,Y,32
6480 FOR J= 1TO 50:NEXT
6490 NEXT I
6495 PLOT 3,64,0
6500 FOR I= 1TO DE:NEXT
6510 DATA 4,25,4,27,5,25,5,26,5,27,6,25,6,26,6,27,7,26,8,26
6515 DATA 9,26,10,26,11,26,12,26,12,25,12,24,12,23,12,22,12,21
6520 DATA 12,20,12,19,12,18,12,17,12,16,12,15,13,15,14,15,15,15
6525 DATA 16,15,16,16,16,17,16,18,16,19,16,20,16,21,16,22,16,23
6527 DATA 16,24,16,25,16,26,16,27,16,28,16,29,16,30,15,30
6528 DATA 14,30,13,30,13,30,12,30,12,29,12,28,12,27
6540 PRINT :PLOT 6,7,8,11,10,11,8
6550 PRINT "THIS IS THE HEAT EXCHANGER"
6560 PLOT 6,40:REM COLOR=5
6570 PLOT 3,28,10:PRINT SPC( 7):PRINT
6580 PLOT 3,34,10,27,10:PRINT SPC( 8):PRINT
6590 PLOT 3,28,10:PRINT SPC( 8):PLOT 27,24:PRINT
6600 PLOT 3,28,18:PRINT SPC( 7):PRINT
6605 PLOT 6,56:REM COLOR=2
6610 PLOT 3,28,12,32,3,28,16,32
6616 PLOT 3,64,0
6617 FOR I= 1TO DE:NEXT I
6620 PRINT :PLOT 6,7,8,11
6630 PRINT "THIS IS THE GENERATOR TURBINE"
6635 PLOT 6,8:REM COLOR=5
6640 PLOT 3,5,25:PRINT SPC( 14):PRINT
6650 PLOT 3,5,31:PRINT SPC( 14):PRINT
6660 PLOT 3,18,25,27,10:PRINT SPC( 7):PRINT
6670 PLOT 3,5,25:PRINT SPC( 7):PLOT 27,24:PRINT
6680 PLOT 6,48:REM  COLOR=0
6690 PLOT 3,2,28:PRINT SPC( 32):PRINT
6700 FOR I= 7TO 15STEP 2
6710 PLOT 3,I,29,32,3,I+ 1,27,32
6720 NEXT I
6725 PLOT 3,64,0
6730 FOR I= 1TO DE:NEXT
6740 PRINT :PLOT 6,7,8,11
6750 PRINT "THIS IS THE COOLING TOWER"
6760 PLOT 6,56:REM COLOR=5
6770 PLOT 3,44,15,27,10:PRINT SPC( 3):PRINT
6780 PLOT 3,56,15:PRINT SPC( 3):PRINT
6790 PLOT 3,45,17:PRINT SPC( 2):PRINT
6800 PLOT 3,55,17:PRINT SPC( 2):PRINT
6810 PLOT 3,46,18:PRINT SPC( 3):PRINT
6820 PLOT 3,54,18:PRINT SPC( 3):PRINT
6830 PLOT 3,47,20:PRINT SPC( 9):PRINT
6840 PLOT 3,53,20:PRINT SPC( 9):PRINT :PLOT 27,24
6850 PLOT 3,54,28,32
6860 PLOT 3,46,28
6870 PLOT 3,45,30:PRINT SPC( 11):PRINT
6875 PLOT 3,64,0
6880 FOR I= 1TO DE:NEXT
6890 PRINT :PLOT 6,7,8,11,10,11,8
6900 PRINT "THE SECONDARY COOLANT CARRIES HEAT FROM THE HEAT EXCHANGER"
6910 PRINT "TO THE TURBINE AND THEN TO THE COOLING TOWER."
6925 PLOT 6,39:REM  COLOR=2
6930 FOR I= 1TO 167
6940 READ Y,X
6950 PLOT 3,X,Y,96
6960 REM FOR J=1 TO 100:NEXT
6970 NEXT I
6980 DATA 4,35,4,37,5,35,5,36,5,37,6,35,6,36,6,37,7,36,8,36,9,36,10,36
6982 DATA 11,36,12,36,12,35,12,34,12,33,12,32,13,32,14,32,15,32,16,32
6984 REM 22
6990 DATA 16,33,16,34,16,35,16,36,17,36,18,36,19,36,20,36,20,35,20,34
6992 DATA 20,33,20,32,20,31,20,30,20,29,20,28,20,27,20,26,20,25,20,24,20,23,20,22,20,21
6994 REM 45
7000 DATA 21,21,22,21,23,21,24,21,24,20,24,19,24,18,24,17,24,16,24,15,24,14,24,13
7001 REM 57
7002 DATA 24,12,24,11,24,10,24,9,24,8,24,7,25,7,26,7,27,7
7003 REM 67
7004 DATA 27,8,27,9,27,10,28,10,28,11,28,12,28,13,29,13,29,14,29,15,29,16
7006 REM 78
7008 DATA 30,16,30,17,30,18,30,19,30,20,30,21,30,22,30,23,30,24,30,25,30,26,30,27
7009 REM 90
7010 DATA 30,28,30,29,30,30,30,31,30,32,30,33,30,34,30,35,30,36
7011 REM 99
7012 DATA 30,37,30,38,30,39,30,40,30,41,30,42,30,43,30,44
7013 REM 107
7014 DATA 29,44,29,45,28,45,28,46,29,46,29,47,29,48,29,49,29,50,29,51
7016 DATA 28,51,28,52,29,52,29,53,29,54,29,55,29,56,29,57,29,58,29,59,29,60
7020 DATA 28,60,27,60,26,60,25,60,24,60,23,60,22,60,21,60,20,60,19,60,18,60,17,60,16,60
7022 DATA 15,60,14,60,13,60,12,60,12,59,12,58,12,57,12,56,12,55,12,54
7024 DATA 12,53,12,52,12,51,12,50,12,49,12,48,12,47,12,46,12,45,12,44
7030 DATA 12,43,12,42,12,41,12,40,12,39,12,38,12,37
7060 PRINT :PLOT 6,7,8,11,10,11,8
7070 PRINT "HIT ANY KEY TO CONTINUE >";:GOSUB 10000
7075 PRINT :PLOT 12
7080 RETURN
10000 REM GET A$
10010 A$= CHR$ (CALL (2))
10015 X= CALL (0)
10020 RETURN
60000 TM= PEEK (32940)+ PEEK (32941)* 256
60010 IF TM> 65500THEN 60060
60020 POKE TM+ 1,50:POKE TM+ 3,15
60030 REM   60027 CHECKS IF MACHINE LANGUAGE ALREADY LOADED
60040 A= 0:FOR N= TM+ 176TO TM+ 182:A= A+ PEEK (N):NEXT
60050 IF A= 1445THEN 60150
60060 AD= 32940:TM= TM- 200:DA= TM:GOSUB 60160:CLEAR 100
60070 TM= PEEK (32940)+ PEEK (32941)* 256
60080 PRINT "WORKING"
60090 RESTORE 60190
60100 REM   60050 LOADS MACHINE LANGUAGE
60110 FOR N= 1TO 200:READ A:IF A> 255THEN N= 220:GOTO 60140
60120 IF A< 0THEN DA= TM- A:AD= TM+ N:GOSUB 60160:GOTO 60140
60130 POKE TM+ N,A
60140 NEXT
60150 AD= 33283:DA= TM+ 8:GOSUB 60160:RETURN
60160 Z1= INT (DA/ 256):Z2= DA- Z1* 256
60170 POKE AD,Z2:N= N+ 1:POKE AD+ 1,Z1:RETURN
60180 REM        MACHINE LANGUAGE DATA
60190 DATA 50,0,15,0,0,0,0,123,254,0,194,-121,30,8,243
60200 DATA 58,-6,87,58,-7,254,0,194,-33,122,50,-7,42,-1
60210 DATA 34,-49,42,-3,34,-46,33,-22,1,50,0,11,120,177
60220 DATA 194,-51,123,238,2,211,4,95,43,124,181,194
60230 DATA -48,58,-5,254,0,202,-100,61,50,-5,58,-49,130
60240 DATA 50,-49,58,-7,103,122,50,-7,84,195,-45,50,-7
60250 DATA 50,-4,50,-2,62,15,50,-3,62,50,50,-1,251,201
60260 DATA 254,1,194,-158,33,0,0,6,4,14,17,17,128,0,25
60270 DATA 126,17,128,255,25,119,35,0,13,194,-133,17,8
60280 DATA 0,25,5,194,-131,201
60290 DATA 254,2,194,-182,245,229,197,205,36,0,194,-166
60300 DATA 95,175,87,50,255,129,193,225,241,201,201
60310 DATA 300