Compucolor.org – Virtual Media

Listing of file='INCRE.BAS;01' on disk='vmedia/taylor_2-sector.ccvf'

10 PLOT 12,6,6
20 PLOT 2,63,63
30 PLOT 251
40 I= 1
60 FOR X= 1TO 4
65 I= I+ 1
70 FOR K= 1TO I
80 ON XGOTO 210,220,230,240
90 NEXT K
100 NEXT X
110 IF I< 40THEN GOTO 60
120 PLOT 255:GOTO 10
210 PLOT 1
215 GOTO 90
220 PLOT 4
225 GOTO 90
230 PLOT 2
235 GOTO 90
240 PLOT 8
245 GOTO 90
500 END