13 lines
No EOL
397 B
Text
Executable file
13 lines
No EOL
397 B
Text
Executable file
(setglobal Example0!
|
|
(let
|
|
(mm/81 =
|
|
(function param/82
|
|
(catch
|
|
(let (switcher/85 =a (-2+ param/82))
|
|
(if (isout 2 switcher/85) (exit 1)
|
|
(switch* switcher/85
|
|
case int 0: (observe 2)
|
|
case int 1: (observe 3)
|
|
case int 2: (observe 4))))
|
|
with (1) (observe 5))))
|
|
(makeblock 0 mm/81))) |