Add string operations
This commit is contained in:
11
tests/string.grnd
Normal file
11
tests/string.grnd
Normal file
@@ -0,0 +1,11 @@
|
||||
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
|
||||
Reference in New Issue
Block a user