REM01377764
REM #bbcmicrobot 🚀
MO.2
B=HIMEM
H=300
FORi=0TOH
IFi<8VDU5,19,i,i?(PAGE+5)-48;0;
B!RND(B*2)=1285
N.
F.j=99TOB
X=RND(1):Y=RND(1)
IFRND(9)>5THENC=-RND(2):Y=-(Y^4)ELSEC=1:Y=-LN(Y^.3)
A=.2:S=4
FORk%=0TO2
X=X+FNN(X+Y*3)+FNN(Y)
Y=Y+FNN(Y+X*3)+FNN(X)
S=S+S
A=A/2
N.
IFj>B-H THENX=RND(6)/6:Y=Y/3:C=0ELSEY=Y+.5
X=X*PI*2
s=650+SINX*Y*H
t=650+COSX*Y*H-s/4
GC.0,C+POINT(s,t)AND7
IFC=0GC.0,4
PL.69,s,t
N.
REP.U.0
DEFFNN(x)
x=x*S
f=x-INTx
i=99*INTx
a=SINi
b=SIN(i+99)
=((a-INTa)*(1-f)+(b-INTb)*f)*A