blob: b222cf8575c6ea491d9c2564790a2bdd84389793 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
{ %norun }
program tw23819;
type
fixstring = string [ 255 ] ;
t9496 = ( t94, t96 ) ;
tSD = ( sdSingle94, sdSingle96, sdDOuble94, sdDouble96 ) ;
tg = ( G0, G1, G2, G3 ) ;
tG13 = G1..G3 ;
tl = #$40..#$7f ;
ESCstring = string [ 7 ] ;
tgl9496 = {packed} object
sd : tSD ;
g : tg ;
l : tl ;
n : t9496 ;
procedure Put ( const pESCseq : ESCstring ) ;
end ;
procedure tgl9496.Put ( const pESCseq : ESCstring ) ;
var
yp : tgl9496 ;
locals : record
Lst : FixString ;
gc : Char ;
gp,
letp : LongInt ;
xp : tgl9496 ;
end ;
begin
end ;
begin
end.
|
