blob: b1f5d6985305c8217e8bdd68585331b6236064f2 [file] [log] [blame]
Bram Moolenaare4f25e42017-07-07 11:54:15 +02001INIT
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