Repeat 0 ClrHome Disp "Binary 2 Decimal DelVar AClrlist L1 Input "",Str1 length(Str1 -> N seq(inString("01",sub(Str1,A,1)),A,1,N,1 //This line just checks to make sure that only a 1 or a zero was used for the input. If you don't think that's necessary, just take out this line of code, and remove the "If-Then" statement (as well as the extra "End"). If you do this, it will go much faster. If not(0=min(Ans Then seq(expr(sub(Str1,A,1)),A,1,N,1 -> L1 seq(N-A,A,1,N,1 Pause sum(L1*2^Ans End End
Just hit 2nd Mode to quit.
Cleanup is already taken care of.
Oh yeah, N is a finance variable.