0GR:COLOR=7:FORR=0TO24:PLOTRND(1)*40,RND(1)*24:NEXT
1FORX=0TO10STEP.1:Y=R-1.75*SQR(100-X*X):A=12+X/2-RND(1)*X:COLOR=13:HLIN12-X,AATY:COLOR=12:HLINA,12+XATY:NEXT
4COLOR=9:FORI=1TO7:X=0:T=I*I*I/24:Y=23+T
5C=NOTC:Q=2+RND(1)*T:IFX+Q>39THENNEXT:END
6IFCTHENHLINX,X+QATY
7X=X+Q:GOTO5
