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