39 lines
833 B
Plaintext
39 lines
833 B
Plaintext
Module Inner {
|
|
long x=random(1, 2)
|
|
on x goto 90, 100
|
|
090 print "can print here if is "+x // if x=1
|
|
100 Print "ok"
|
|
gosub 500
|
|
alfa: // no statement here only comments because : is also statement separator
|
|
print "ok too"
|
|
integer c
|
|
Every 100 { // every 100 miliseconds this block executed
|
|
c++
|
|
gosub printc
|
|
if c>9 then 200
|
|
}
|
|
print "no print here"
|
|
200 Gosub exitUsingGoto
|
|
Every 100 { // every 100 miliseconds this block executed
|
|
c++
|
|
gosub printc
|
|
if c>19 then exit
|
|
}
|
|
gosub 500
|
|
try ok {
|
|
on x gosub 400, 1234
|
|
}
|
|
if ok else print error$ // sub not found (if x=2)
|
|
goto 1234 ' not exist so this is an exit from module
|
|
400 print "can print here if is "+x // if x=1
|
|
end
|
|
printc:
|
|
Print c
|
|
return
|
|
500 Print "exit from block using exit" : return
|
|
exitUsingGoto:
|
|
Print "exit from block using goto"
|
|
return
|
|
}
|
|
Inner
|