mu/screen.mu

30 lines
871 B
Plaintext
Raw Normal View History

2015-05-11 19:00:50 +00:00
# example program: managing the display using 'screen' objects
2016-08-14 12:49:45 +00:00
2015-05-11 19:00:50 +00:00
# The zero screen below means 'use the real screen'. Tests can also use fake
# screens.
def main [
2015-06-22 06:53:17 +00:00
open-console
2018-06-17 18:20:53 +00:00
clear-screen null/screen # non-scrolling app
10:char <- copy 97/a
2018-06-17 18:20:53 +00:00
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
2018-06-17 18:20:53 +00:00
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
2015-06-22 06:53:17 +00:00
close-console
]