1INIT
2WANTSTATE
3
4RESET
5
6!RIS homes cursor
7PUSH "\e[5;5H"
8  ?cursor = 4,4
9WANTSTATE +m
10PUSH "\ec"
11  ?cursor = 0,0
12WANTSTATE -m
13
14!RIS cancels scrolling region
15PUSH "\e[5;10r"
16WANTSTATE +s
17PUSH "\ec\e[25H\n"
18  scrollrect 0..25,0..80 => +1,+0
19WANTSTATE -s
20
21!RIS erases screen
22PUSH "ABCDE"
23WANTSTATE +e
24PUSH "\ec"
25  erase 0..25,0..80
26WANTSTATE -e
27
28!RIS clears tabstops
29PUSH "\e[5G\eH\e[G\t"
30  ?cursor = 0,4
31PUSH "\ec\t"
32  ?cursor = 0,8
33