Listing of file='COLSQR.BAS;01' on disk='vmedia/demos-sector.ccvf'
10 REM COLOURED SQUARES 20 PLOT 27,24,15,29,6,0,12 40 IN= 1:C= 1 50 FOR Y= 0TO 31STEP 4 60 FOR X= 0TO 63STEP 8 70 C= C+ IN:PLOT 6,C 80 FOR I= YTO Y+ 3:PLOT 3,X,I 90 PRINT "''''''''":REM 8 NULLS 100 NEXT I,X,Y 110 FOR W= 1TO 600:NEXT 120 IF IN= 1THEN IN= - 1:C= 64:GOTO 50 130 PLOT 27,11,6,2,8