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/2.vm/screen.mu | |
parent | 23fd294d85959c6b476bcdc35ed6ad508cc99b8f (diff) | |
download | mu-2a4088119cf41175457414dfa59bd4064b8f0562.tar.gz |
5852
Diffstat (limited to 'archive/2.vm/screen.mu')
-rw-r--r-- | archive/2.vm/screen.mu | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/archive/2.vm/screen.mu b/archive/2.vm/screen.mu deleted file mode 100644 index 58ecaa60..00000000 --- a/archive/2.vm/screen.mu +++ /dev/null @@ -1,29 +0,0 @@ -# example program: managing the display using 'screen' objects - -# The zero screen below means 'use the real screen'. Tests can also use fake -# screens. -def main [ - open-console - clear-screen null/screen # non-scrolling app - 10:char <- copy 97/a - print null/screen, 10:char/a, 1/red, 2/green - 1:num/raw, 2:num/raw <- cursor-position null/screen - wait-for-event null/console - clear-screen null/screen - move-cursor null/screen, 0/row, 4/column - 10:char <- copy 98/b - print null/screen, 10:char - wait-for-event null/console - move-cursor null/screen, 0/row, 0/column - clear-line null/screen - wait-for-event null/console - cursor-down null/screen - wait-for-event null/console - cursor-right null/screen - wait-for-event null/console - cursor-left null/screen - wait-for-event null/console - cursor-up null/screen - wait-for-event null/console - close-console -] |