blob: d00163a1b23e4427b75dc14bcbe8268992f5db0f (
plain) (
blame)
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
|
# example program: managing the display
recipe main [
open-console
print-character-to-display 97, 1/red, 2/green
1:number/raw, 2:number/raw <- cursor-position-on-display
wait-for-some-interaction
clear-display
move-cursor-on-display 0, 4
print-character-to-display 98
wait-for-some-interaction
move-cursor-on-display 0, 0
clear-line-on-display
wait-for-some-interaction
move-cursor-down-on-display
wait-for-some-interaction
move-cursor-right-on-display
wait-for-some-interaction
move-cursor-left-on-display
wait-for-some-interaction
move-cursor-up-on-display
wait-for-some-interaction
#? $print [aaa] #? 1
close-console
]
|