added goto
This commit is contained in:
12
tests/goto.sl
Normal file
12
tests/goto.sl
Normal file
@@ -0,0 +1,12 @@
|
||||
import stdlib/stdlib.sl
|
||||
import stdlib/io.sl
|
||||
|
||||
word main
|
||||
3
|
||||
label loop
|
||||
dup puti cr
|
||||
1 -
|
||||
dup 0 >
|
||||
if goto loop end
|
||||
drop
|
||||
end
|
||||
Reference in New Issue
Block a user