WOW!

//Get the polynomial coefficients
L1(2)3L1(1)L1(3)3+L1(4>A
3(L1(1)L1(2)2+L1(3>B
3(L1(2)L1(1>C
Input "Steps:",S
S>dim(L2
(Ans1)⁻¹>θ
6Aθ³
Fill(Ans,L2
2Bθ²Ans>L2(1
cumSum(L2>L2
Aθ³Bθ²+Cθ>L2(1
cumSum(L2>L2
L1(1>L2(1
cumSum(L2>L2
code = Input Z
95/Z>A
3>B
95>C
63>D
{0>L2
int(A*4096/C+1>P
int(B*4096/D+1>Q
0>J
int(Pseq(X,X,0,94)/4096>L1
For(A,0,92P/4096
sum(L1=A>D
For(B,2,Ans
J
real(12,1,95,0,95,63,1 # draw vert white line from (95,0) to (95,63); update
StorePic 2
real(12,7,Ans+1,0,96,64,1 #draw white rectangle; (Ans+1,0) to bot right; update
StorePic 1
real(3,2,0,1,1 # recall pic 2 by overwrite; update; full screen
If Ans
real(12,7,0,0,Ans1,64,1 # draw white rect; top left to (Ans1,64); update
real(4,3,1,1 # scroll screen right by 1px and update
real(3,1,2,1,1 # recall pic 1 by OR; update; full screen
End
J+D>J
End
Advertisement
Advertisement