27 lines
807 B
Text
27 lines
807 B
Text
* Demonstrate an unconditional branch.
|
|
OUTPUT = "Unconditional branch." :(SKIP1.START)
|
|
OUTPUT = "This will not display."
|
|
|
|
* Demonstrate a branch on success.
|
|
SKIP1.START v = 1
|
|
SKIP1.LOOP gt(v, 5) :S(SKIP2.START)
|
|
OUTPUT = "Iteration A" v
|
|
v = v + 1 :(SKIP1.LOOP)
|
|
|
|
* Demonstrate a branch on failure.
|
|
SKIP2.START v = 1
|
|
SKIP2.LOOP le(v, 5) :F(SKIP3.START)
|
|
OUTPUT = "Iteration B" v
|
|
v = v + 1 :(SKIP2.LOOP)
|
|
|
|
* Demonstrate a combined branch.
|
|
* Demonstrate also an indirect branch.
|
|
SKIP3.START v = 0
|
|
label = "SKIP3.LOOP"
|
|
SKIP3.LOOP v = v + 1
|
|
le(v, 5) :S(SKIP3.PRINT)F(EXIT)
|
|
SKIP3.PRINT OUTPUT = "Iteration C" v :($label)
|
|
|
|
EXIT OUTPUT = "Goodbye"
|
|
|
|
END
|