diff options
author | Kartik Agaram <vc@akkartik.com> | 2020-01-01 17:04:37 -0800 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2020-01-01 17:04:37 -0800 |
commit | 2a4088119cf41175457414dfa59bd4064b8f0562 (patch) | |
tree | 64fe184e399f9870ebd481a90eec34d51e5dff68 /archive/1.vm/console.mu | |
parent | 23fd294d85959c6b476bcdc35ed6ad508cc99b8f (diff) | |
download | mu-2a4088119cf41175457414dfa59bd4064b8f0562.tar.gz |
5852
Diffstat (limited to 'archive/1.vm/console.mu')
-rw-r--r-- | archive/1.vm/console.mu | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/archive/1.vm/console.mu b/archive/1.vm/console.mu new file mode 100644 index 00000000..cc81c232 --- /dev/null +++ b/archive/1.vm/console.mu @@ -0,0 +1,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?:bool <- check-for-interaction + break-if found? + print-character-to-display 97, 7/white + loop + } + close-console + $print e, 10/newline +] |