1INIT
2WANTSTATE g
3
4!Single Width, Single Height
5RESET
6PUSH "\e#5"
7PUSH "Hello"
8  putglyph 0x48 1 0,0
9  putglyph 0x65 1 0,1
10  putglyph 0x6c 1 0,2
11  putglyph 0x6c 1 0,3
12  putglyph 0x6f 1 0,4
13
14!Double Width, Single Height
15RESET
16PUSH "\e#6"
17PUSH "Hello"
18  putglyph 0x48 1 0,0 dwl
19  putglyph 0x65 1 0,1 dwl
20  putglyph 0x6c 1 0,2 dwl
21  putglyph 0x6c 1 0,3 dwl
22  putglyph 0x6f 1 0,4 dwl
23  ?cursor = 0,5
24PUSH "\e[40GAB"
25  putglyph 0x41 1 0,39 dwl
26  putglyph 0x42 1 1,0
27  ?cursor = 1,1
28
29!Double Height
30RESET
31PUSH "\e#3"
32PUSH "Hello"
33  putglyph 0x48 1 0,0 dwl dhl-top
34  putglyph 0x65 1 0,1 dwl dhl-top
35  putglyph 0x6c 1 0,2 dwl dhl-top
36  putglyph 0x6c 1 0,3 dwl dhl-top
37  putglyph 0x6f 1 0,4 dwl dhl-top
38  ?cursor = 0,5
39PUSH "\r\n\e#4"
40PUSH "Hello"
41  putglyph 0x48 1 1,0 dwl dhl-bottom
42  putglyph 0x65 1 1,1 dwl dhl-bottom
43  putglyph 0x6c 1 1,2 dwl dhl-bottom
44  putglyph 0x6c 1 1,3 dwl dhl-bottom
45  putglyph 0x6f 1 1,4 dwl dhl-bottom
46  ?cursor = 1,5
47
48!Double Width scrolling
49RESET
50PUSH "\e[20H\e#6ABC"
51  putglyph 0x41 1 19,0 dwl
52  putglyph 0x42 1 19,1 dwl
53  putglyph 0x43 1 19,2 dwl
54PUSH "\e[25H\n"
55PUSH "\e[19;4HDE"
56  putglyph 0x44 1 18,3 dwl
57  putglyph 0x45 1 18,4 dwl
58PUSH "\e[H\eM"
59PUSH "\e[20;6HFG"
60  putglyph 0x46 1 19,5 dwl
61  putglyph 0x47 1 19,6 dwl
62