Listing of file='DISPLY.BAS;01' on disk='vmedia/isc_demos-sector.ccvf'
20 POKE 33278,0:OUT 8,199:CLEAR :DIM D$(2) 30 DATA "POWER","OCEAN" 35 RESTORE 30:FOR D= 1TO 2:READ D$(D):NEXT D:D= 1:GOTO 90 40 OUT 8,207:FOR I= 1TO 200:A= PEEK (33278):IF A= 13THEN PLOT 3,64,0:LOAD "MENU":RUN 50 IF A= 32AND D= 1THEN OUT 8,199:POKE 33278,0:GOTO 20 55 IF A= 32AND D= 2THEN OUT 8,199:POKE 33278,0:GOTO 90 60 IF A= 72OR A= 104THEN 220 70 NEXT I:D= D+ 1:IF D> 2THEN 200 90 PLOT 6,2,12,29,27,88,3,64,0,27,4:PRINT "LOA ";D$(D);".DIS;1":PLOT 27,27 100 PLOT 6,2,29,3,63,31,31,46,15,6,0,3,64,0 110 GOTO 40 200 PLOT 27,88,15,6,2,29,3,63,31,32,3,64,0:LOAD "MODULO":RUN 220 PLOT 6,2,12,15,29:PRINT "LOADING DEMO INSTRUCTIONS...":PLOT 3,64,0:LOAD "HELP":RUN