home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG027.ARC / VARIABLE.INC < prev   
Text File  |  1979-12-31  |  2KB  |  58 lines
  1.  
  2. TYPE
  3.   str1    =  STRING[1];
  4.   str3    =  STRING[3];
  5.   str5    =  STRING[5];
  6.   str11   =  STRING[11];
  7.   str14   =  STRING[14];
  8.   str20   =  STRING[20];
  9.   str40   =  STRING[40];
  10.   Str80   =  STRING[80];
  11.   AnyStr  =  STRING[255];
  12.  
  13. (*  character set type *)
  14.   CharSet =  SET OF CHAR;
  15.  
  16.   Animal_rec = RECORD
  17.                  rec_no         : INTEGER;
  18.                  Ear_No         : str5;
  19.                  Name           : str20;
  20.                  Sex            : str1;
  21.                  Date_Born      : str11; {eg 20 Aug 1986}
  22.                  Date_died      : str11;
  23.                  Sire           : str5; {holds Ear number of}
  24.                  Dam            : str5;
  25.                  Comment_1      : str40; {Live weight at four weeks}
  26.                  Comment_2      : str40;
  27.                  Comment_3      : str40;
  28.                  Date_Mated     : str11;
  29.                  Partner        : str5;
  30.                END;
  31.  
  32.   Months    = ARRAY[1..12] OF str3;
  33.  
  34. VAR 
  35.   Ch            : CHAR;
  36.   Month         : Months;
  37.   yy,
  38.   ww,
  39.   dd,
  40.   i             : INTEGER;
  41.   Q             : TEXT;
  42.   infile        : FILE OF Animal_rec;
  43.   Animal        : Animal_rec;
  44.   Animal_Table  : ARRAY[1..6]  OF Animal_rec;
  45.   List_Table    : ARRAY[1..12] OF Animal_Rec;
  46.   found         : BOOLEAN;
  47.   Date_Today    : str14;
  48.   InfileName    : str14;
  49.   Iday,Imonth,
  50.   Iyear         : INTEGER;
  51.  
  52. procedure Display_Recs_Used;
  53. begin
  54.   gotoxy(60,2);
  55.   Write(filesize(infile): 5,' RECORDS IN USE');
  56. end;
  57.  
  58.