*V 0
B200=-1.
C200=-1.
*P C100
M=Q
N=R
*CRATLOP
D=(P#0#0)+2.
K=0.01-D+2.
*J DONE
R=(P#-1#0)+0.
S=(P#1#0)+0.
*P P#5#0
I=24.
*CCOLLOP
*U HERE
C99=T
D99=U-1.
F=(P#0#0)*R
E99=D+41.
*P@ C99,E99
P#0#0 = (P#0#0)+F
AA99=M
AB99=N+S-1.
*P@ AA99,AB99
P##=(P#0#0)-F
*P@ C99,D99
*P P#1#0
I=I-1.
*J COLLOP
*P P#-29#1
%=1.
*J RATLOP
*CDONE
%=1.