screen.mu


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

# example program: managing the display using 'screen' objects
#
# The zero screen below means 'use the real screen'. Tests can also use fake
# screens.

recipe main [
  switch-to-display
  print-character 0:literal/screen, 97:literal
  1:number/raw, 2:number/raw <- cursor-position 0:literal/screen
  wait-for-key 0:literal/keyboard
  clear-screen 0:literal/screen
  move-cursor 0:literal/screen, 0:literal/row, 4:literal/column
  print-character 0:literal/screen, 98:literal
  wait-for-key 0:literal/keyboard
  move-cursor 0:literal/screen, 0:literal/row, 0:literal/column
  clear-line 0:literal/screen
  wait-for-key 0:literal/keyboard
  cursor-down 0:literal/screen
  wait-for-key 0:literal/keyboard
  cursor-right 0:literal/screen
  wait-for-key 0:literal/keyboard
  cursor-left 0:literal/screen
  wait-for-key 0:literal/keyboard
  cursor-up 0:literal/screen
  wait-for-key 0:literal/keyboard
  return-to-console
]