Code:
:Prompt Str1
:Equ►String(Str1,Y₁
:DelVar Y₂
:For(A,1,length(Str1
:If inString("+-",sub(Str1,A,1
:Then
:If sub(Str1,A,1)="+"
:Then
:Y₂+1→Y₂
:Else
:Y₂-1→Y₂
:End
:Else
:If inString("ABCDEFGHIJKLMNOPQRSTUVWXYZ",sub(Str1,A,1
:Then
:If A<length(Str1) and inString("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ",sub(Str1,A+1,1
:Then
:If A<length(Str1)-1 and inString("0123456789",sub(Str1,A+2,1
:Then
:sub(Str1,A,3→Str2
:Else
:sub(Str1,A,1→Str2
:End
:Else
:If A<length(Str1)-1 and inString("0123456789",sub(Str1,A+1,1
:Then
:sub(Str1,A,2→Str2
:Else
:sub(Str1,A,1→Str2
:End
:End
:End
:Y₁(Str2→Y₁(Str2)+Y₂
:End
:Y₁
I checked it in the editor, there were multiple error. What do you guys think?
