home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug027.arc / TTCONST.INC < prev    next >
Text File  |  1979-12-31  |  512b  |  20 lines
  1. label
  2.   stop;
  3.  
  4. Const
  5.   foot3 = '                                  | ^Z = ABORT      | <ESC> = FINISHED    |';
  6.   foot4 = ' ^Z = Abort Date | ^M = Leave date Unchanged | ^E = Back | ^X = Forward   |';
  7.  
  8.   Animal_Rec_Size = 200;
  9.   MaxDataRecSize = Animal_Rec_Size;
  10.   MaxKeyLen      = 20;
  11.   PageSize       = 16;
  12.   Order          = 8;
  13.   PageStackSize  = 5;
  14.   MaxHeight      = 5;
  15.  
  16. VAR
  17.  
  18.   NoOfRecs       : integer;
  19.  
  20.