Compucolor.org – Virtual Media

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

100 PLOT  6,2
110 PLOT  12
120 FOR  I= 1 TO  50
130 X =  RND (1)* 128
140 Y =  RND (1)* 128
150 C =  RND (1)* 7+ 1
160 PLOT  6,C
170 PLOT  2
180 PLOT  242
190 PLOT  X,Y
200 PLOT  255
210 NEXT  I
220 GOTO  100