1 # example program: reading events from keyboard or mouse
 2 #
 3 # Keeps printing 'a' until you press a key or click on the mouse.
 4 
 5 def main [
 6   local-scope
 7   open-console
 8   clear-screen 0/screen  # non-scrolling app
 9   {
10   ¦ e:event, found?:bool <- check-for-interaction
11   ¦ break-if found?
12   ¦ print-character-to-display 97, 7/white
13   ¦ loop
14   }
15   close-console
16   $print e, 10/newline
17 ]