17 lines
433 B
Plaintext
17 lines
433 B
Plaintext
#include <jambo.h>
|
|
|
|
Main
|
|
Void 'x,y,z'
|
|
Let list ( x := "a","b","c" )
|
|
Let list ( y := "A","B","C","D","E" )
|
|
Let list ( z := 1,2,3,4 )
|
|
i=1, error=0
|
|
Loop
|
|
[i++]
|
|
Try ; Get 'x', Print it ; Catch 'error'; Print (" ") ; Finish
|
|
Try ; Get 'y', Print it ; Catch 'error'; Print (" ") ; Finish
|
|
Try ; Get 'z', Print it ; Catch 'error'; Print (" ") ; Finish
|
|
Prnl
|
|
Back if less-equal (i, 5)
|
|
End
|