Compucolor.org – Virtual Media

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

10 DEF FN R(X)= INT (X* RND (1))
20 FOR I= 0TO 3:READ D(I):NEXT I
30 DATA 10,25,28,26:
40 PLOT 6,0,12,27,24
50 PLOT 3,FN R(64),FN R(32)
60 FOR I= 1TO 500
70 PLOT 6,FN R(8)* 8
80 PLOT 32,32
90 PLOT D(FN R(4))
100 NEXT I
110 GOTO 40
120 END