Compucolor.org – Virtual Media

Listing of file='6P11.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'

5 REM  PROGRAM 6.11
6 REM  MYSTERY PROGRAM
10 PLOT 6,6,12,3,64,0
20 PLOT 2
30 PLOT 250
40 PLOT 30,0,125
50 PLOT 247
60 FOR Y= 0TO 63
70   PLOT 34
80 NEXT
90 PLOT 2
100 PLOT 255
110 PLOT 6,4
120 PLOT 2
130 S= 0
139
140 FOR Y= 0TO 112STEP 16
149
150   FOR X= 30TO 114STEP 24
160     PLOT 250
170     PLOT X+ 12* S,Y,X+ 12* S+ 11
180     PLOT 247
190     FOR J= 1TO 7:PLOT 34:NEXT
200     PLOT 2
210   NEXT
219
220   S= 1+ (S= 1):REM  TOGGLE
230 NEXT
239
240 PLOT 255