6a0f71b9 ^
1ead3562 ^
34c27410 ^
290fe117 ^
4d6b5173 ^
ce87c19e ^
bc643692 ^
1 2 3 4
5
6
7
8
9
10
11
12 13
14
15
16
# example program: reading events from keyboard or mouse # # Keeps printing 'a' until you press a key or click on the mouse. def main [ local-scope open-console { e:event, found?:boolean <- check-for-interaction break-if found? print-character-to-display 97, 7/white loop } close-console $print e, 10/newline ]