def main [
open-console
10:char <- copy 97/a
print 0/screen, 10:char/a, 2/red
1:num/raw, 2:num/raw <- cursor-position 0/screen
wait-for-event 0/console
clear-screen 0/screen
move-cursor 0/screen, 0/row, 4/column
10:char <- copy 98/b
print 0/screen, 10:char
wait-for-event 0/console
move-cursor 0/screen, 0/row, 0/column
clear-line 0/screen
wait-for-event 0/console
cursor-down 0/screen
wait-for-event 0/console
cursor-right 0/screen
wait-for-event 0/console
cursor-left 0/screen
wait-for-event 0/console
cursor-up 0/screen
wait-for-event 0/console
close-console
]