Listing of file='COLOUR.BAS;01' on disk='vmedia/demos-sector.ccvf'
5 PLOT 12 10 PLOT 29,23 20 PRINT "WHITE" 30 GOSUB 1000 40 PLOT 17 50 PRINT "RED" 60 GOSUB 1000 70 PLOT 18 80 PRINT "GREEN" 90 GOSUB 1000 100 PLOT 19 110 PRINT "YELLOW" 120 GOSUB 1000 130 PLOT 20 140 PRINT "BLUE" 150 GOSUB 1000 160 PLOT 21 170 PRINT "MAGENTA" 180 GOSUB 1000 190 PLOT 22 200 PRINT "CYAN" 210 GOSUB 1000 220 PLOT 18,15 240 PRINT "SMALL LETTERS" 250 GOSUB 1000 260 PLOT 14,31 270 PRINT "BLINKING" 275 PLOT 15,14 280 GOSUB 1000 290 PRINT "DIFFERENT BACKGROUND COLOURS" 300 PLOT 30,17:PRINT 310 PLOT 18:PRINT 320 PLOT 19:PRINT 330 PLOT 20:PRINT 340 PLOT 21:PRINT 350 PLOT 22:PRINT 355 FOR D= 0TO 3000:NEXT D 360 PLOT 15 370 FOR X= 016TO 23 380 FOR Y= 16TO 23 390 IF X= YTHEN 420 395 IF X> YTHEN 420 400 PLOT 30,Y,29,X 410 PRINT "````````````````````````````````````````````````````````````````" 415 FOR D= 0TO 250:NEXT D 420 NEXT Y 430 NEXT X 440 PLOT 14,29,18,30,16 450 END 1000 FOR D= 0TO 1000:NEXT D 1010 RETURN