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 / TTMAIN.INC < prev    next >
Text File  |  1979-12-31  |  2KB  |  54 lines
  1.  
  2. (*  Main program *)
  3. BEGIN
  4.   start(Date_Today);
  5.   if ch <> 'N' then begin
  6.   REPEAT
  7.     Clrscr;
  8.     Line(1);
  9.     dis(1,2,'           Database.        M A I N         M E N U           ');
  10.     dis(1,2,infilename);
  11.     Display_Recs_Used;
  12.     gotoxy(1,4);
  13.     writeln('U   Update.    Add new Animal data. ');
  14.     writeln('               Edit previous entered data.');
  15.     writeln('               Find an Animal by Ear  No. or Name.');
  16.     writeln;
  17.     writeln('L   List.      Lists all the Animal to screen or printer.');
  18.     writeln;
  19.     writeln('F   Family.    Lists all the off spring of either a sire or dam.');
  20.     writeln;
  21.     writeln('P   Pedigree.  Displays a pedigree of the Animal for 4 generations.');
  22.     writeln;
  23.     line(16);
  24.     gotoxy(1,17);
  25.     write('            F = Family | L = List | U = Update | P = Pedigree | <ESC> =');
  26.     select(73,17,'QUIT', ['F','P','U','L',#27], Ch);
  27.     clrscr;
  28.     line(1);
  29.     if ch <> #27 then line(16);
  30.     CASE Ch OF
  31.     'U' : Update(Date_Today);
  32.     'F' : Family_Display(Date_Today);
  33.     'L' : List(Date_Today);
  34.     'P' : Pedigree(Date_Today);
  35.     END;
  36.     IF Ch <> #27 THEN
  37.     BEGIN
  38.       ClearFrame;
  39.     END
  40.     ELSE
  41.     BEGIN
  42.       dis(1,17,' ');
  43.       select(1,17,' Are you sure? | Y | N | ',['Y','N'],ch);
  44.       IF ch = 'Y'
  45.         THEN ch := #27;
  46.     END;
  47.     UNTIL Ch = #27;
  48.       CloseFile(DatF);
  49.       CloseIndex(EarIndexFile);
  50.       CloseIndex(NameIndexFile);
  51.     END;
  52.     ClrScr;
  53. END.
  54.