Advertisement
invisibowl

TI-BASIC String to Number

Apr 14th, 2015
300
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.49 KB | None | 0 0
  1. 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
  2. Input "",Str9
  3. Lbl 0
  4. "ABCDEFGHIJKLMNOPQRSTUVWXYZthetaabcdefghijklmnopqrstuvwxyz0123456789->Str0
  5. DelVar A0->dim(L2
  6. Lbl 0
  7. For(W,1,length(Str9
  8. inString(Str0,sub(Str9,W,1->C
  9. C-27(C>27)-27(C>53->C
  10. If C:Then
  11. 1+int(log(C->L2(W //length of the number
  12. Else
  13. 1->L2(W
  14. End
  15. C/10^(L2(W->C
  16. A+C->A
  17. A10^(L2(W->A
  18. End
  19. Output(1,1,A
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement