Listing of file='COLTST.BAS;01' on disk='vmedia/demos-sector.ccvf'
10 PLOT 6,2,12,15,27,24
20 DATA BLACK,RED,GREEN,YELLOW,BLUE,MAGENTA,CYAN,WHITE
30 FOR I= 0TO 7:READ A$(I):NEXT I:PLOT 27,10,6,6
40 FOR J= 0TO 7:PLOT 3,J* 7+ 11,0:PRINT RIGHT$ (" "+ A$(J),7):NEXT J
50 PLOT 27,24,6,3:FOR I= 0TO 7:PLOT 6,3
60 Y= I* 3+ 8:PLOT 3,0,Y+ 1:PRINT A$(I)
70 FOR J= 0TO 7:C= J+ I* 8:X= J* 7+ 9:PLOT 3,X,Y,6,7:PRINT " ";C
570 PLOT 3,X,Y+ 1,6,C:PRINT " TEST ":PLOT 3,X,Y+ 2:PRINT "``````":NEXT J,I
580 GOTO 580
590 PRINT "