Compucolor.org – Virtual Media

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

5 REM  PROGRAM 6.7
6 REM  MYSTERY PROGRAM USING INCREMENTAL POINT PLOT
10 PLOT 6,6,12
20 PLOT 2,0,127,251
30 INC= 154:GOSUB 100
40 INC= 89:GOSUB 100
50 INC= 101:GOSUB 100
60 INC= 166:GOSUB 100
70 PLOT 255
80 END
99
100 FOR J= 1TO 63:PLOT INC:NEXT :RETURN