home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / PIBASY.ZIP / GLOBTYPE.GLO < prev    next >
Encoding:
Text File  |  1987-11-11  |  511 b   |  24 lines
  1.                         (* Global Declarations *)
  2. CONST
  3.  
  4.                    (* 8086/8088 hardware flags *)
  5.  
  6.    Carry_Flag     = 1;
  7.    Parity_Flag    = 4;
  8.    Aux_Carry_Flag = 16;
  9.    Zero_Flag      = 64;
  10.    Sign_Flag      = 128;
  11.  
  12. TYPE
  13.  
  14.    AnyStr   = STRING[255]  (* Matches any string for parameter passing *);
  15.  
  16.    ShortStr = STRING[30]   (* Short string *);
  17.  
  18.    KeyStr   = STRING[65]   (* Function key string *);
  19.  
  20.    FileStr  = STRING[65]   (* File name string *);
  21.  
  22.    Text_File = TEXT;
  23.  
  24.