home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / powanime.ocb < prev    next >
Text File  |  1995-12-19  |  460b  |  15 lines
  1. 000010 IDENTIFICATION    DIVISION.
  2. 000020 CLASS-ID.    POWANIME.
  3. 000030 ENVIRONMENT    DIVISION.
  4. 000040 CLASS        SECTION.
  5. 000050     INHERIT POWWND EXTERNAL.        *> âNâëâXîpÅ│é╠ïLÅq
  6. 000060 DATA        DIVISION.
  7. 000070 CLASS        SECTION.
  8. 000080*
  9. 000090 PROCEDURE    DIVISION.
  10. 000100       FUNCTION PLAY () IS EXTERNAL
  11. 000110            REPLACING NAME BY "XPOWPLAYANIME" .
  12. 000120       FUNCTION PAUSE () IS EXTERNAL
  13. 000130            REPLACING NAME BY "XPOWPAUSEANIME" .
  14. 000140 END CLASS POWANIME.
  15.