Code: Select all
0REM BBC Boing Ball by Steve McCrea with assist by Paul Malin
1MO.2:$@%="6456565611117777":F.I%=0TO15:V.19,I%,@%?I%-48;0;5:N.:F.X%=0TO79:GC.0,6+(1A.X%):MOVE16*X%+8,0:PL.1,0,1024:N.:GC.0,2:F.Y%=0TO31:MOVE0,32*Y%:PL.1,1280,0:N.
2V.23;13,48;0;0;0:GC.0,1:F.Y%=30TO426S.8:H=ABS(230-Y%)/200:W%=200*SQR(1-H*H):MOVE1054+(Y%-230)/2,Y%:PL.1,W%,-W%/2:N.
3F.J%=0TO7:F.X%=0TO27:C=75*COS(X%*PI/28):GC.0,8+(7A.X%+J%*4):F.K%=J%TOJ%+1:Q=K%*PI/8:U=C*SINQ:V=75*COSQ:PL.84+SGNX%,1004+U*3+V,270+V*3-U:N.,,:X%=48:U%=0:T%=0
4A%=&600+X%+80*INT(U%*2.5-U%*U%*.1):*FX19
5P%=6+((1A.X%-4)=0):Q%=6+((1A.X%-5)=0):R%=8+(7A.X%):S%=8+(7A.X%+4):T%=(T%+1)MOD96:X%=ABS(T%-48):U%=T%MOD24:V.23;12,A%/256;0;0;0,23;13,A%;0;0;0,19,6,P%;0;19,7,Q%;0;19,R%,1;0;19,S%,7;0;:G.4