home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 13 / CDA13.ISO / cdactual / demobin / share / program / Pascal / AIM.ZIP / AIMVAR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-06-29  |  1.5 KB  |  33 lines
  1.  
  2. {***************************************************************************}
  3. {*                                                                         *}
  4. {*      AIMVAR.PAS          Copyright - Matt Goodrich                      *}
  5. {*                              Jun 29, 1991                               *}
  6. {*                                                                         *}
  7. {*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *}
  8. {*                                                                         *}
  9. {*      Maintenance History :                                              *}
  10. {*                                                                         *}
  11. {*  1.A  MG  6/29/91 - Initial keyin.                                      *}
  12. {*                                                                         *}
  13. {***************************************************************************}
  14.  
  15. CONST
  16.   RecLenDataMax  = 4096;
  17.   HeaderBuffSize = 108;
  18.  
  19.  
  20. VAR
  21.   AimBuffer   : ARRAY [1..AimBlockSIze] OF BYTE;  {read buffer to Aimdex}
  22.   CharsRead   : INTEGER;
  23.   CharsWrit   : INTEGER;
  24.   DataBuffer  : ARRAY [1..RecLenDataMax] OF CHAR;
  25.   HashNumb    : LONGINT;
  26.   SeekPos     : LONGINT;
  27.   ValError    : INTEGER;
  28.   WhichBit    : INTEGER;
  29.  
  30.  {**************************************************************************}
  31.  {                          End of AIMVAR.PAS                               }
  32.  {**************************************************************************}
  33.