Listing of file='CCHRT.BAS;01' on disk='vmedia/isc_demos-sector.ccvf'
10 REM COLOR SHADES 20 OUT 8,199:POKE 33278,0:GOTO 100 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 100: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 10 46 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 "TOWERS":RUN 100 PLOT 15,30,16,29,18,12,14,27,24 200 FOR BG= 0TO 7 250 FOR J= 1TO 2 300 FOR FG= 0TO 7 400 PLOT 6,BG* 8+ FG 500 FOR I= 1TO 8 600 PLOT 96 700 NEXT I 800 NEXT FG 850 NEXT J 900 NEXT BG 910 PLOT 8,6,7:PRINT "BLACK" 915 PLOT 10 920 PLOT 9,6,8:PRINT "RED" 925 PLOT 10 930 PLOT 9,9,6,16:PRINT "GREEN" 935 PLOT 10 940 PLOT 9,9,9,6,24:PRINT "YELLOW" 945 PLOT 10 950 PLOT 9,9,9,9,6,32:PRINT "D. BLUE" 955 PLOT 10 960 PLOT 9,9,9,9,9,6,40:PRINT "MAGENTA" 965 PLOT 10 970 PLOT 9,9,9,9,9,9,6,48:PRINT "L. BLUE" 975 PLOT 10 980 PLOT 9,9,9,9,9,9,9,6,56:PRINT "WHITE" 985 PLOT 28,28 1000 PLOT 6,2,15,27,11 1010 GOTO 30