mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
39 lines
797 B
ObjectPascal
Executable File
39 lines
797 B
ObjectPascal
Executable File
{ %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.
|