1 GSCREEN(G_ENABLE,256,256)
2 LOOP N, 10
3 (X,Y,R)=(RAND(256),RAND(256),RAND(40)+20)
4 GOSUB BALL, (X,Y,R,RAND(2),RAND(2),RAND(2))
5 LOOPEND; END
6 .BALL(X+,Y+,R+,RED,GREEN,BLUE)
7 LOOP I, R; C=I*2+55
8 GCIRCLE(X+I/2,Y+I/2,R-I,,GCOLOR(RED*255+C,GREEN*255+C,BLUE*255+C),G_FILL)
9 LOOPEND; GFLUSH(); RETURN,(R-,Y-,X-)
