Compucolor.org – Virtual Media

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

10 FOR I= 1TO 100
20 FOR N= 14TO 15:PLOT N
30 FOR J= 16TO 23
40 PLOT 29,J
50 FOR K= 16TO 23
60 PLOT 30,K
70 PLOT 29
80 PLOT 12,2,0,0,242,0,0
90 FOR G= OTO 127STEP 8
100 PLOT G,0,0,127- G,127- G,127,127,G
110 NEXT G
120 PLOT 255
130 NEXT K
140 NEXT J
150 NEXT N
160 NEXT I
170 END