91 lines
625 B
Plaintext
91 lines
625 B
Plaintext
|
\ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
|
||
|
|
=printable-ascii
|
||
|
|
>main
|
||
|
|
gto
|
||
|
|
:shifter
|
||
|
|
=to-be-shifted
|
||
|
|
\
|
||
|
|
=shifted
|
||
|
|
0
|
||
|
|
=j
|
||
|
|
:shifter-loop
|
||
|
|
$shifted
|
||
|
|
$to-be-shifted
|
||
|
|
$j
|
||
|
|
idx
|
||
|
|
>asc
|
||
|
|
fun
|
||
|
|
inc
|
||
|
|
>chr
|
||
|
|
fun
|
||
|
|
cat
|
||
|
|
=shifted
|
||
|
|
$j
|
||
|
|
inc
|
||
|
|
=j
|
||
|
|
$j
|
||
|
|
$to-be-shifted
|
||
|
|
len
|
||
|
|
>shifter-loop
|
||
|
|
glt
|
||
|
|
$shifted
|
||
|
|
ret
|
||
|
|
:asc
|
||
|
|
=ch
|
||
|
|
$printable-ascii
|
||
|
|
$ch
|
||
|
|
0
|
||
|
|
>find
|
||
|
|
fun
|
||
|
|
32
|
||
|
|
add
|
||
|
|
ret
|
||
|
|
:chr
|
||
|
|
=code
|
||
|
|
$printable-ascii
|
||
|
|
$code
|
||
|
|
32
|
||
|
|
sub
|
||
|
|
idx
|
||
|
|
ret
|
||
|
|
:find
|
||
|
|
=i
|
||
|
|
=term
|
||
|
|
=text
|
||
|
|
$i
|
||
|
|
:loop
|
||
|
|
=_
|
||
|
|
$text
|
||
|
|
$i
|
||
|
|
dup
|
||
|
|
$term
|
||
|
|
len
|
||
|
|
add
|
||
|
|
slc
|
||
|
|
=part
|
||
|
|
$i
|
||
|
|
dup
|
||
|
|
inc
|
||
|
|
=i
|
||
|
|
$i
|
||
|
|
$text
|
||
|
|
len
|
||
|
|
$term
|
||
|
|
len
|
||
|
|
sub
|
||
|
|
>not-found
|
||
|
|
ggt
|
||
|
|
$part
|
||
|
|
$term
|
||
|
|
>loop
|
||
|
|
gne
|
||
|
|
ret
|
||
|
|
:not-found
|
||
|
|
neg
|
||
|
|
ret
|
||
|
|
:main
|
||
|
|
\sws-`miha,qd,mihy,dv
|
||
|
|
>shifter
|
||
|
|
fun
|
||
|
|
rev
|