Listing of file='WEAVE.BAS;01' on disk='vmedia/taylor_2-sector.ccvf'
1 PLOT 27,24,15 5 PLOT 6,6,12 7 Y= 0 10 FOR BG= 0TO 7 15 X= 1 20 FOR FG= 1TO 16 30 PLOT 6,BG* 8+ FG 50 PLOT 3,X,0 60 FOR A= 1TO 31 70 PLOT 96,96,96 80 PLOT 10,26,26,26 85 NEXT A 90 X= X+ 4 100 NEXT FG 102 Y= 1 105 FOR FG= 1TO 10 120 PLOT 6,BG* 8+ FG 140 PLOT 3,0,Y 145 FOR K= 1TO 2 150 FOR J= 1TO 8 155 FOR I= 1TO 5 160 PLOT 96 165 NEXT I 167 PLOT 25,25,25 170 NEXT J 172 NEXT K 175 Y= Y+ 3 180 NEXT FG 200 NEXT BG 220 GOTO 7