home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug027.arc / PED2.PAS < prev    next >
Pascal/Delphi Source File  |  1979-12-31  |  1KB  |  31 lines
  1. PROGRAM Pedigree;
  2.   (*$V-,C+,U+*)
  3. { This program has the follwing main functions:
  4.        1  Keep a History of each Animal
  5.        2  Show the Pedigree of each animal
  6.        3  Show the off-spring of each Sire
  7.        4  Show the off-spring of each Dame
  8. }
  9. {Version 2  Writen September 25th 1986 by Peter Billing}
  10. {This version uses Turbo Tool Box and Microbee PCG}
  11.  
  12. {$I TTCONST.INC}    {Consts for Tool Box}
  13. {$I ACCESS.BOX}
  14. {$I GETKEY.BOX}
  15. {$I ADDKEY.BOX}
  16. {$I DELKEY.BOX}
  17. {$I TTVAR.INC}      {Types and variables}
  18. {$I GENERAL1.INC}   {General purpose routines}
  19. {$I AGE.INC}        {Age routine}
  20. {$I TTGEN2.INC}     {Display_Form, Display_Rabbit,  F_Table InputStr}
  21. {$I TTDATE.INC}       {Date input routine}
  22. {$I PRINTER.INC}    {Printer routine for TTFAMILY & TTPED }
  23. {$I TTINPUT.INC}    {Update starts here. InputRabbit routine}
  24. {$I TTEDIT.INC}     {Edit routine}
  25. {$I TTUPDATE.INC}   {Update Main includes Add and Find routines}
  26. {$I TTSTART.INC}    {Startup of Program}
  27. {$I TTFAMILY.INC}   {Family Display}
  28. {$I TTPED.INC}      {Pedigree Display}
  29. {$I TTLIST.INC}     {List routine}
  30. {$I TTMAIN.INC}     {Main program}
  31.