home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / powsound.ocb < prev    next >
Text File  |  1996-01-29  |  991b  |  23 lines
  1. 000010 IDENTIFICATION    DIVISION.
  2. 000020 CLASS-ID.    POWSOUND.
  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. 000075*//for win32:update
  9. 000080*    01 POW-SOUNDNAME    PIC X(128).
  10. 000085    01 POW-SOUNDNAME    PIC X(260).
  11. 000090 PROCEDURE    DIVISION.
  12. 000095*//for win32:update
  13. 000100*       FUNCTION MOVE OF POW-SOUNDNAME (BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)) IS EXTERNAL
  14. 000105       FUNCTION MOVE OF POW-SOUNDNAME (BY CONTENT TYPE IS ALPHANUMERIC PIC X(260)) IS EXTERNAL
  15. 000110            REPLACING NAME BY "XPOWSOUNDSETSOUNDNAME" .
  16. 000115*//for win32:update
  17. 000120*    FUNCTION REFERENCE OF POW-SOUNDNAME () IS EXTERNAL BY VALUE PIC X(128)
  18. 000125       FUNCTION REFERENCE OF POW-SOUNDNAME () IS EXTERNAL BY VALUE PIC X(260)
  19. 000130            REPLACING NAME BY "XPOWSOUNDGETSOUNDNAME" .
  20. 000140       FUNCTION PLAY () IS EXTERNAL
  21. 000150            REPLACING NAME BY "XPOWSOUNDPLAY" .
  22. 000160 END CLASS POWSOUND.
  23.