home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol6n20.zip / PROFIL.ZIP / DECLARE.PRF < prev    next >
Text File  |  1987-01-10  |  544b  |  20 lines
  1. const
  2.   Copyright : string[80] = 'Copyright 1987 by Peter J. Becker' ;
  3.  
  4. type
  5.   string80   = string[80] ;
  6.   string255  = string[255] ;
  7.   string4    = string[4] ;
  8.   string5    = string[5] ;
  9.   BinType    = array[0..4095] of integer ;
  10.   Registers  = Record
  11.                  case Integer Of
  12.                     1 : ( AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags : Integer );
  13.                     2 : ( AL,AH,BL,BH,CL,CH,DL,DH : Byte );
  14.                  end;
  15.  
  16. var
  17.   Regs       : Registers ;
  18.   Bin        : ^BinType ;
  19.   Command    : string255;
  20.