41 lines
212 B
Plaintext
41 lines
212 B
Plaintext
>main
|
|
gto
|
|
:slicer
|
|
=step
|
|
=to
|
|
=from
|
|
=str
|
|
$from
|
|
=i
|
|
\
|
|
=result
|
|
:loop
|
|
$result
|
|
$str
|
|
$i
|
|
idx
|
|
cat
|
|
=result
|
|
$i
|
|
$step
|
|
add
|
|
=i
|
|
$i
|
|
$str
|
|
len
|
|
>loop
|
|
glt
|
|
$result
|
|
ret
|
|
:main
|
|
\Avans Hogeschool
|
|
=text
|
|
$text
|
|
0
|
|
$text
|
|
len
|
|
2
|
|
>slicer
|
|
fun
|
|
end
|