0 Members and 2 Guests are viewing this topic.
It will keep subtracting 10000 from A and adding 1 to B until A is under 9999 again. Though, if the original addition to A gives a result more than 65535, it won't work properly.Edit: typo
:[04D3F640]->Str1::For(D,0,9):0->A:For(B,0,3):A*256+{Str1+B}->C^10->A:C/10->{Str1+B}:End:Output(15-D,0,A+'0'▶Frac):End:Disp i