Listing of file='REACTR.BAS;01' on disk='vmedia/isc_demos-sector.ccvf'
10 REM KY REACTR
20 OUT 8,199:POKE 33278,0:GOTO 60
30 PLOT 27,88,15,3,63,31,6,6,31,46,15,6,0,3,64,0:OUT 8,207
40 FOR I= 1TO 200:A= PEEK (33278):IF A= 13THEN OUT 8,207:PLOT 27,88,15,6,0,3,63,31,32,3,64,0:LOAD "MENU":RUN
45 IF A= 32THEN OUT 8,199:GOTO 10
47 IF A= 72OR A= 104THEN OUT 8,199:PLOT 6,2,12,15,29:PRINT "LOADING DEMO INSTRUCTIONS...":PLOT 3,64,0:LOAD "HELP":RUN
50 NEXT I:OUT 8,199:IF PEEK (33284)= 1THEN PLOT 27,88,15,6,0,3,63,31,32,3,64,0:LOAD "RNDCK":RUN
60 PLOT 6,2,12,27,24,6,15,3,0,0,14,29
70 RESTORE :PRINT " REACTOR CHARGE "
80 PLOT 6,6,2,0,25,242,30,25,30,42,0,42,0,25,255
90 PLOT 2,0,57,242,30,57,30,74,0,74,0,57,255
100 PLOT 2,0,89,242,30,89,30,106,0,106,0,89,255
110 PLOT 2,31,30,242,47,30,255
120 PLOT 2,31,94,242,47,94,255
130 PLOT 2,246,30,48,94,255
140 PLOT 2,31,62,242,59,62,59,70,69,70,255
150 PLOT 2,79,16,242,102,16,102,51,79,51,79,16,255
160 PLOT 2,79,80,242,102,80,102,115,79,115,79,80,255
170 PLOT 2,78,113,242,70,113,70,49,78,49,255
180 PLOT 2,103,82,242,111,82,111,22,103,22,255,2,112,74,242,127,74,255
190 PLOT 2,83,52,242,83,70,78,70,255
200 PLOT 2,84,116,242,84,122,73,122,255
210 PLOT 14,3,3,6:PRINT "TANK - A":PLOT 15,3,3,8:PRINT "10.00 FEET"
220 PLOT 14,3,3,14:PRINT "TANK - B":PLOT 15,3,3,16:PRINT "6.04 FEET"
230 PLOT 14,3,3,22:PRINT "TANK - C":PLOT 15,3,3,24:PRINT "4.04 FEET"
240 PLOT 3,28,0:PRINT "VENT":PLOT 3,26,1:PRINT "08 SV-07"
250 PLOT 3,41,4,14:PRINT "VESSEL 1":PLOT 15,3,41,7:PRINT "97.1 DEGC"
260 PLOT 3,41,9:PRINT "74.5 PSIG "
270 PLOT 3,41,20,14:PRINT "VESSEL 2":PLOT 15,3,41,23:PRINT "95.2 DEGC"
280 PLOT 3,41,25:PRINT "81.9 PSIG"
290 PLOT 3,38,13:PRINT "VENT TO
DRYERS"
300 PLOT 3,29,24:PRINT " VALVE
STATUS"
310 FOR I= 1TO 3:PLOT 3,18,5+ (I- 1)* 8,6,6:PRINT "0";CHR$ (48+ I):PLOT 3,16,6+ (I- 1)* 8
320 PLOT 6,6:PRINT "SV-0";CHR$ (48+ I)
330 PLOT 3,16,10+ (I- 1)* 8:READ A$(I):PRINT A$(I)
340 PLOT 3,27,24+ I* 2:READ B$(I):PRINT B$(I):NEXT
350 PLOT 3,29,4:PRINT "06
SV-05":PLOT 3,29,12:PRINT "SV-04 05"
360 PLOT 3,34,20:PRINT "07
SV-06"
370 PLOT 3,46,16:PRINT "09
SV-08":PLOT 3,59,16:PRINT "SV-11 12"
380 PLOT 3,56,8:PRINT "10
SV-09":PLOT 3,52,28:PRINT " 11
SV-10"
390 PLOT 3,3,29:PRINT "COURTESY OF":PLOT 3,0,30:PRINT "TAYLOR INSTRUMENTS"
400 PLOT 6,30,3,18,8:PRINT " ":PLOT 6,14,3,18,16:PRINT " ":PLOT 3,18,24:PRINT " "
410 PLOT 6,22,3,31,14:PRINT " "
420 PLOT 3,59,13,6,30:PRINT " ":PLOT 3,53,26:PRINT " "
430 PLOT 6,14,3,53,11:PRINT " ":PLOT 6,22,3,38,1:PRINT " "
440 PLOT 6,22,3,41,17:PRINT " ":PLOT 6,14,3,34,18:PRINT " "
450 PLOT 3,34,4,6,30:PRINT " "
460 PLOT 6,6,3,36,1,30,125,3,63,13,123,3,38,14,125
470 PLOT 3,64,0,29:GOTO 30
480 DATA "894.4
GAL"," CLOSED","862.3
GAL"," MID","3276.7
GAL"
490 DATA " {} OPEN"