Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- If Ans:Goto 0 //if it's being used as a subprogram with Str9 already filled in, it can be run with 0:prgmSTR2NUM to skip the input step. Otherwise it's run with 1:prgmSTR2NUM
- Input "",Str9
- Lbl 0
- "ABCDEFGHIJKLMNOPQRSTUVWXYZthetaabcdefghijklmnopqrstuvwxyz0123456789->Str0
- DelVar A0->dim(L2
- Lbl 0
- For(W,1,length(Str9
- inString(Str0,sub(Str9,W,1->C
- C-27(C>27)-27(C>53->C
- If C:Then
- 1+int(log(C->L2(W //length of the number
- Else
- 1->L2(W
- End
- C/10^(L2(W->C
- A+C->A
- A10^(L2(W->A
- End
- Output(1,1,A
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement