added more files in between, expanded code significantly

This commit is contained in:
Bob Polis
2020-09-28 14:11:51 +02:00
parent 6ea02554cf
commit 6626600c6a
5 changed files with 342 additions and 2 deletions

View File

@ -0,0 +1,90 @@
\ !"#$%&'()*+,-./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