" Sample Cel Module " {| Type <- 'Cel Sample'. Author <- 'Dru Nelson'. Info <- 'test of block methods and compiler cases'. Root <- {| zoob. x <-> 5. y <-> 5. d <-> 0. z <-> 0. i <-> 0. s <-> 'zork'. Start <+ { i: (3 * 4) - 5 - 1. 'i = ' print. i print. '\n' print. i: 3 * 4 - 5 - 1. 'i = ' print. i print. '\n' print. i: (3 * 4 - 5 - 1). 'i = ' print. i print. '\n' print. i: 3 + (4 * 5). 'i = ' print. i print. '\n' print. i: 3 + 4 * 5. 'i = ' print. i print. '\n' print. i: 3 * 4 - 5. 'i = ' print. i print. '\n' print. i: 3 * (4 - 5). 'i = ' print. i print. '\n' print. (x = 5) ifTrue: { ' x = 5 is true.\n' print. } ifFalse: { ' x = 5 is false.\n' print. }. (x = 9) ifTrue: { ' x = 9 is true.\n' print. } ifFalse: { ' x = 9 is false.\n' print. }. { y > 0 } whileTrue: { y: y - 1. 'y = ' print. y print. '\n' print. }. d: { x: x + 1 }. d value. 'd block x = ' print. x print. '\n' print. x: 2. { x > 5 } whileFalse: { x: x + 1. 'x = ' print. x print. '\n' print. }. z: { | i <- 10 | i: i + 10. x: x + i. }. z value. 'z block x = ' print. x print. '\n' print. } |} |}