Compucolor.org – Virtual Media

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

5 PLOT 12
10 Y= INT (RND (1)* 127):X= INT (RND (1)* 127):C= INT (RND (1)* 8+ 16)
20 PLOT 2,64,64,242,Y,X,255
25 IF X= 100THEN PLOT 12
30 PLOT C:GOTO 10