13 lines
255 B
Text
13 lines
255 B
Text
:"ABCDEFGHIJKLMNOPQRSTUVWXYZ→Str0
|
|
:".→Str2
|
|
:For(N,1,length(Str1
|
|
:If inString(Str0,sub(Str1,N,1
|
|
:Then
|
|
:inString(Str0,sub(Str1,N,1
|
|
:Ans+13-26(Ans>13
|
|
:Str2+sub(Str0,Ans,1→Str2
|
|
:Else
|
|
:Str2+sub(Str1,N,1→Str2
|
|
:End
|
|
:End
|
|
:sub(Str2,2,length(Str2)-1→Str1
|