home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / GWU Demos / chop.ads < prev    next >
Encoding:
Text File  |  1993-02-03  |  139 b   |  11 lines  |  [TEXT/GADA]
  1. --::::::::::
  2. --chop.ads
  3. --::::::::::
  4. PACKAGE Chop IS
  5.  
  6.   TASK TYPE Stick IS
  7.     ENTRY Pick_Up;
  8.     ENTRY Put_Down;
  9.   END Stick;
  10.  
  11. END Chop;