Listing of file='COLCHT.BAS;01' on disk='vmedia/demos-sector.ccvf'
500 REM ********** CREATE A COLOUR CHART **********
510 PLOT 6,2,12,15,27,24
515 DATA BLACK,RED,GREEN,YELLOW,BLUE,MAGENTA,CYAN,WHITE
520 FOR I= 0TO 7:READ A$(I):NEXT I:PLOT 27,10,6,6
530 FOR J= 0TO 7:PLOT 3,J* 7+ 11,0:PRINT RIGHT$ (" "+ A$(J),7)
535 NEXT J
540 PLOT 27,24,6,3:FOR I= 0TO 7:PLOT 6,3
550 Y= I* 3+ 8:PLOT 3,0,Y+ 1:PRINT A$(I)
560 FOR J= 0TO 7:C= J+ I* 8:X= J* 7+ 9:PLOT 3,X,Y:PRINT " ";C
570 PLOT 3,X,Y+ 1,6,C:PRINT "TEST":PLOT 3,X,Y+ 2
575 PRINT "''''''":NEXT J,I
580 GOTO 580