forked from ground/ground-old
12 lines
170 B
Plaintext
12 lines
170 B
Plaintext
|
input &str
|
||
|
|
getstrsize $str &size
|
||
|
|
set &idx 0
|
||
|
|
@loop
|
||
|
|
getstrcharat $str $idx &char
|
||
|
|
println $char
|
||
|
|
add 1 $idx &idx
|
||
|
|
equal $idx $size &cond
|
||
|
|
if $cond %loopend
|
||
|
|
jump %loop
|
||
|
|
@loopend
|