1INIT
2WANTSTATE g
3
4!Default
5RESET
6PUSH "#"
7  putglyph 0x23 1 0,0
8
9!Designate G0=UK
10RESET
11PUSH "\e(A"
12PUSH "#"
13  putglyph 0x00a3 1 0,0
14
15!Designate G0=DEC drawing
16RESET
17PUSH "\e(0"
18PUSH "a"
19  putglyph 0x2592 1 0,0
20
21!Designate G1 + LS1
22RESET
23PUSH "\e)0"
24PUSH "a"
25  putglyph 0x61 1 0,0
26PUSH "\x0e"
27PUSH "a"
28  putglyph 0x2592 1 0,1
29!LS0
30PUSH "\x0f"
31PUSH "a"
32  putglyph 0x61 1 0,2
33
34!Designate G2 + LS2
35PUSH "\e*0"
36PUSH "a"
37  putglyph 0x61 1 0,3
38PUSH "\en"
39PUSH "a"
40  putglyph 0x2592 1 0,4
41PUSH "\x0f"
42PUSH "a"
43  putglyph 0x61 1 0,5
44
45!Designate G3 + LS3
46PUSH "\e+0"
47PUSH "a"
48  putglyph 0x61 1 0,6
49PUSH "\eo"
50PUSH "a"
51  putglyph 0x2592 1 0,7
52PUSH "\x0f"
53PUSH "a"
54  putglyph 0x61 1 0,8
55
56!SS2
57PUSH "a\x{8e}aa"
58  putglyph 0x61 1 0,9
59  putglyph 0x2592 1 0,10
60  putglyph 0x61 1 0,11
61
62!SS3
63PUSH "a\x{8f}aa"
64  putglyph 0x61 1 0,12
65  putglyph 0x2592 1 0,13
66  putglyph 0x61 1 0,14
67
68!LS1R
69RESET
70PUSH "\e~"
71PUSH "\xe1"
72  putglyph 0x61 1 0,0
73PUSH "\e)0"
74PUSH "\xe1"
75  putglyph 0x2592 1 0,1
76
77!LS2R
78RESET
79PUSH "\e}"
80PUSH "\xe1"
81  putglyph 0x61 1 0,0
82PUSH "\e*0"
83PUSH "\xe1"
84  putglyph 0x2592 1 0,1
85
86!LS3R
87RESET
88PUSH "\e|"
89PUSH "\xe1"
90  putglyph 0x61 1 0,0
91PUSH "\e+0"
92PUSH "\xe1"
93  putglyph 0x2592 1 0,1
94
95UTF8 1
96
97!Mixed US-ASCII and UTF-8
98# U+0108 == 0xc4 0x88
99RESET
100PUSH "\e(B"
101PUSH "AB\xc4\x88D"
102  putglyph 0x0041 1 0,0
103  putglyph 0x0042 1 0,1
104  putglyph 0x0108 1 0,2
105  putglyph 0x0044 1 0,3
106