Compucolor.org – Virtual Media

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