home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
filutl
/
ldiff12s.arc
/
MYTYPE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-07-15
|
1KB
|
58 lines
(*---------------------------------------------------------------------------*)
(*mytype.pas ö─ùpÆΦï`âtâ@âCâï (C) ÄOû╪ÿaòF NIFTY SDR SDI00147 1989/2/12*)
(*$B-,F-,I-,N- *)
(*---------------------------------------------------------------------------*)
UNIT MyType;
INTERFACE
USES
Dos;
CONST
EOS = #$00;
NUL = #$00;
STOP = #$03;
BEL = #$07;
BS = #$08;
ESC = #$1B;
CR = #$0D;
LF = #$0A;
TAB = #$09;
SPACE = #$20;
DEL = #$7F;
CRLF = #$0D#$0A;
MaxPathP = 1028;
MaxWrkP = 2048;
TYPE
Str1 = STRING[1];
Str2 = STRING[2];
Str3 = STRING[3];
Str4 = STRING[4];
Str5 = STRING[5];
Str6 = STRING[6];
Str8 = STRING[8];
Str9 = STRING[9];
Str10 = STRING[10];
Str12 = STRING[12];
Str13 = STRING[13];
Str16 = STRING[16];
Str18 = STRING[18];
Str26 = STRING[26];
Str53 = STRING[53];
Str80 = STRING[80];
Str160 = STRING[160];
HexStr = STRING[8];
Cset = SET OF CHAR;
IMPLEMENTATION
END.