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