forked from ground/ground
12 lines
194 B
Plaintext
12 lines
194 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
|