home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug027.arc / PED1.PAS < prev    next >
Pascal/Delphi Source File  |  1979-12-31  |  1KB  |  27 lines
  1. PROGRAM Animal_Roots;
  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 1  Writen September 5th 1986 by Peter Billing}
  10.  
  11. {$I CONST.INC}
  12. {$I VARIABLE.INC}   {Types and variables}
  13. {$I GENERAL1.INC}   {General purpose routines}
  14. {$I AGE.INC}        {Age routine}
  15. {$I GENERAL2.INC}   {Find_Ear, Display_Form, Display_Rabbit,  F_Table InputStr}
  16. {$I DATE.INC}       {Date input routine}
  17. {$I PRINTER.INC}    {Printer routine for 12 & 13 }
  18. {$I START.INC}      {Startup of Program}
  19. {$I INPUT.INC}      {Update starts here. InputRabbit routine}
  20. {$I EDIT.INC}       {Edit routine}
  21. {$I UPDATE.INC}     {Update Main includes Add and Find routines}
  22. {$I SORT.INC}       {Sort routine}
  23. {$I FAMILY.INC}     {Family Display}
  24. {$I PEDIGREE.INC}   {Pedigree Display}
  25. {$I LIST.INC}       {List routine}
  26. {$I MAIN.INC}       {Main program}
  27.