home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FILUTL / LDIFF12S.ARC / MYTYPE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-15  |  1.2 KB  |  58 lines
  1. (*---------------------------------------------------------------------------*)
  2. (*mytype.pas ö─ùpÆΦï`âtâ@âCâï       (C) ÄOû╪ÿaòF NIFTY SDR SDI00147 1989/2/12*)
  3. (*$B-,F-,I-,N-                                                               *)
  4. (*---------------------------------------------------------------------------*)
  5. UNIT MyType;
  6.  
  7.  
  8. INTERFACE
  9.  
  10.  
  11. USES
  12.    Dos;
  13.  
  14.  
  15. CONST
  16.    EOS      = #$00;
  17.    NUL      = #$00;
  18.    STOP     = #$03;
  19.    BEL      = #$07;
  20.    BS       = #$08;
  21.    ESC      = #$1B;
  22.    CR       = #$0D;
  23.    LF       = #$0A;
  24.    TAB      = #$09;
  25.    SPACE    = #$20;
  26.    DEL      = #$7F;
  27.    CRLF     = #$0D#$0A;
  28.  
  29.    MaxPathP = 1028;
  30.    MaxWrkP  = 2048;
  31.  
  32. TYPE
  33.    Str1    = STRING[1];
  34.    Str2    = STRING[2];
  35.    Str3    = STRING[3];
  36.    Str4    = STRING[4];
  37.    Str5    = STRING[5];
  38.    Str6    = STRING[6];
  39.    Str8    = STRING[8];
  40.    Str9    = STRING[9];
  41.    Str10   = STRING[10];
  42.    Str12   = STRING[12];
  43.    Str13   = STRING[13];
  44.    Str16   = STRING[16];
  45.    Str18   = STRING[18];
  46.    Str26   = STRING[26];
  47.    Str53   = STRING[53];
  48.    Str80   = STRING[80];
  49.    Str160  = STRING[160];
  50.    HexStr  = STRING[8];
  51.    Cset    = SET OF CHAR;
  52.  
  53.  
  54. IMPLEMENTATION
  55.  
  56.  
  57. END.
  58.