| 12345678910111213141516171819202122232425262728293031323334353637383940414243 |
- # Basic test for gotos/labels.
- >skip # try basic skip
- 0 10 "ERROR" -->
- !.
- ~:skip
- fun:
- 10
- ~:inFunc
- 20
- >outOfFunc
- 30
- 0 10 "ERROR" -->
- .
- # loop made with gotos:
- 0 10 "test loop:" -->
- 10 # 10 iterations
- ~:loopStart
- $0 !! ? >loopEnd .
- 0 10 "- in loop" -->
- --
- >loopStart
- ~:loopEnd
- # try jump into a function
- 0 "try to jump inside a function: " -->
- >inFunc
- ~:outOfFunc
- 20 = ?
- "OK" -->
- ;
- "ERROR" -->
- .
- 10 ->
- 0 10 "all seems OK" -->
|
