1INIT
2WANTSCREEN
3
4RESET
5
6!Plain
7PUSH "A"
8  ?screen_cell 0,0 = {0x41} width=1 attrs={} fg=rgb(240,240,240) bg=rgb(0,0,0)
9
10!Bold
11PUSH "\e[1mB"
12  ?screen_cell 0,1 = {0x42} width=1 attrs={B} fg=rgb(240,240,240) bg=rgb(0,0,0)
13
14!Italic
15PUSH "\e[3mC"
16  ?screen_cell 0,2 = {0x43} width=1 attrs={BI} fg=rgb(240,240,240) bg=rgb(0,0,0)
17
18!Underline
19PUSH "\e[4mD"
20  ?screen_cell 0,3 = {0x44} width=1 attrs={BU1I} fg=rgb(240,240,240) bg=rgb(0,0,0)
21
22!Reset
23PUSH "\e[mE"
24  ?screen_cell 0,4 = {0x45} width=1 attrs={} fg=rgb(240,240,240) bg=rgb(0,0,0)
25
26!Font
27PUSH "\e[11mF\e[m"
28  ?screen_cell 0,5 = {0x46} width=1 attrs={F1} fg=rgb(240,240,240) bg=rgb(0,0,0)
29
30!Foreground
31PUSH "\e[31mG\e[m"
32  ?screen_cell 0,6 = {0x47} width=1 attrs={} fg=idx(1) bg=rgb(0,0,0)
33
34!Background
35PUSH "\e[42mH\e[m"
36  ?screen_cell 0,7 = {0x48} width=1 attrs={} fg=rgb(240,240,240) bg=idx(2)
37
38!EL sets reverse and colours to end of line
39PUSH "\e[H\e[7;33;44m\e[K"
40  ?screen_cell 0,0  = {} width=1 attrs={R} fg=idx(3) bg=idx(4)
41  ?screen_cell 0,79 = {} width=1 attrs={R} fg=idx(3) bg=idx(4)
42
43!DECSCNM xors reverse for entire screen
44PUSH "\e[?5h"
45  ?screen_cell 0,0  = {} width=1 attrs={} fg=idx(3) bg=idx(4)
46  ?screen_cell 0,79 = {} width=1 attrs={} fg=idx(3) bg=idx(4)
47  ?screen_cell 1,0  = {} width=1 attrs={R} fg=rgb(240,240,240) bg=rgb(0,0,0)
48PUSH "\e[?5\$p"
49  output "\e[?5;1\$y"
50PUSH "\e[?5l"
51  ?screen_cell 0,0  = {} width=1 attrs={R} fg=idx(3) bg=idx(4)
52  ?screen_cell 0,79 = {} width=1 attrs={R} fg=idx(3) bg=idx(4)
53  ?screen_cell 1,0  = {} width=1 attrs={} fg=rgb(240,240,240) bg=rgb(0,0,0)
54PUSH "\e[?5\$p"
55  output "\e[?5;2\$y"
56