Compucolor.org – Virtual Media

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