1INIT
2UTF8 1
3WANTSTATE gm
4
5!79th Column
6PUSH "\e[75G"
7PUSH "A"x5
8  putglyph 0x41 1 0,74
9  putglyph 0x41 1 0,75
10  putglyph 0x41 1 0,76
11  putglyph 0x41 1 0,77
12  putglyph 0x41 1 0,78
13  ?cursor = 0,79
14
15!80th Column Phantom
16PUSH "A"
17  putglyph 0x41 1 0,79
18  ?cursor = 0,79
19
20!Line Wraparound
21PUSH "B"
22  putglyph 0x42 1 1,0
23  ?cursor = 1,1
24
25!Line Wraparound during combined write
26PUSH "\e[78G"
27PUSH "BBBCC"
28  putglyph 0x42 1 1,77
29  putglyph 0x42 1 1,78
30  putglyph 0x42 1 1,79
31  putglyph 0x43 1 2,0
32  putglyph 0x43 1 2,1
33  ?cursor = 2,2
34
35!DEC Auto Wrap Mode
36RESET
37PUSH "\e[?7l"
38PUSH "\e[75G"
39PUSH "D"x6
40  putglyph 0x44 1 0,74
41  putglyph 0x44 1 0,75
42  putglyph 0x44 1 0,76
43  putglyph 0x44 1 0,77
44  putglyph 0x44 1 0,78
45  putglyph 0x44 1 0,79
46  ?cursor = 0,79
47PUSH "D"
48  putglyph 0x44 1 0,79
49  ?cursor = 0,79
50PUSH "\e[?7h"
51
52!80th column causes linefeed on wraparound
53PUSH "\e[25;78HABC"
54  putglyph 0x41 1 24,77
55  putglyph 0x42 1 24,78
56  putglyph 0x43 1 24,79
57  ?cursor = 24,79
58PUSH "D"
59  moverect 1..25,0..80 -> 0..24,0..80
60  putglyph 0x44 1 24,0
61
62!80th column phantom linefeed phantom cancelled by explicit cursor move
63PUSH "\e[25;78HABC"
64  putglyph 0x41 1 24,77
65  putglyph 0x42 1 24,78
66  putglyph 0x43 1 24,79
67  ?cursor = 24,79
68PUSH "\e[25;1HD"
69  putglyph 0x44 1 24,0
70