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 / TTVAR.INC < prev    next >
Text File  |  1979-12-31  |  2KB  |  59 lines
  1.  
  2.  
  3. TYPE
  4.   str1    =  STRING[1];
  5.   str3    =  STRING[3];
  6.   str5    =  STRING[5];
  7.   str11   =  STRING[11];
  8.   str14   =  STRING[14];
  9.   str20   =  STRING[20];
  10.   str40   =  STRING[40];
  11.   Str80   =  STRING[80];
  12.   AnyStr  =  STRING[255];
  13.  
  14. (*  character set type *)
  15.   CharSet =  SET OF CHAR;
  16.  
  17.   Animal_rec = RECORD
  18.                  rec_no         : INTEGER;
  19.                  Ear_No         : str5;
  20.                  Name           : str20;
  21.                  Sex            : str1;
  22.                  Date_Born      : str11; {eg 20 Aug 1986}
  23.                  Date_died      : str11;
  24.                  Sire           : str5; {holds Ear number of}
  25.                  Dam            : str5;
  26.                  Comment_1      : str40; {Live weight at four weeks}
  27.                  Comment_2      : str40;
  28.                  Comment_3      : str40;
  29.                  Date_Mated     : str11;
  30.                  Partner        : str5;
  31.                END;
  32.  
  33.   Months    = array[1..12] of str3;
  34.  
  35. VAR
  36.   Ch            : CHAR;
  37.   Month         : Months;
  38.   yy,
  39.   ww,
  40.   dd,
  41.   i,DataF       : INTEGER;
  42.   Q             : text;
  43.   DatF          : DataFile;
  44.   EarIndexFile,
  45.   NameIndexFile : IndexFile;
  46.   Animal        : Animal_rec;
  47.   Animal_Table  : ARRAY[1..6]  OF Animal_rec;
  48.   List_Table    : array[1..12] of Animal_Rec;
  49.   Date_Today    : str14;
  50.   InfileName    : str14;
  51.   Iday,Imonth,
  52.   Iyear         : integer;
  53.   RR            : integer;
  54.  
  55. procedure Display_Recs_Used;
  56. begin
  57.   gotoxy(60,2);
  58.   write(UsedRecs(DatF): 5,' RECORDS IN USE');
  59. end;