SynthRedo

0->dim(L1
ClrHome
Input "DIVISOR",B
Repeat 0
ClrHome
Disp "USE[+] TO ADD","A NUMBER","USE [ENTER] TO","FINISH","USE [~]","IF NEEDED NOT","[-]
Repeat 5=abs(K-|E2
getKey->K
End
If K=95
Then
Input "NEW NUMBER",A
A->L1(1+dim(L1))
End
If K=105 and dim(L1
Then
Repeat L1(1
augment({L1(1)},seq(L1(T)B+L1(T+1),T,1,dim(L1)-->L1
End
seq(L1(X),X,1+sum(not(cumSum(L1))),max((L1 xor 0)cumSum(L1 or 1
If not(L1(1)) and dim(L1)<=3
Then
Goto 1
Else
For(U,1,dim(L1
Text(1,32U,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ,U,2),L1(U
End
End
End
End0->dim(L1
ClrHome
Input "DIVISOR",B
Repeat 0
ClrHome
Disp "USE[+] TO ADD","A NUMBER","USE [ENTER] TO","FINISH","USE [~]","IF NEEDED NOT","[-]
Repeat 5=abs(K-|E2
getKey->K
End
If K=95
Then
Input "NEW NUMBER",A
A->L1(1+dim(L1))
End
If K=105 and dim(L1
Then
Repeat L1(1
augment({L1(1)},seq(L1(T)B+L1(T+1),T,1,dim(L1)-->L1
End
seq(L1(X),X,1+sum(not(cumSum(L1))),max((L1 xor 0)cumSum(L1 or 1
If not(L1(1)) and dim(L1)<=3
Then
Goto 1
Else
For(U,1,dim(L1
Text(1,32U,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ,U,2),L1(U
End
End