home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / animation.prc < prev    next >
Text File  |  1997-03-11  |  1KB  |  52 lines
  1. @POWER POWSHEET SHEET1 *
  2. @POWER POWANIME ANIME1 STARTANIME
  3.  ENVIRONMENT DIVISION.
  4.  DATA        DIVISION.
  5.  PROCEDURE   DIVISION.
  6.         MOVE "Animation is being played."
  7.           TO POW-TEXT OF LABEL3.
  8.  
  9. @POWER POWANIME ANIME1 ENDANIME
  10.  ENVIRONMENT DIVISION.
  11.  DATA        DIVISION.
  12.  PROCEDURE   DIVISION.
  13.  
  14.  
  15. @POWER POWPSBTN PUSH1 CLICK
  16.  ENVIRONMENT DIVISION.
  17.  DATA        DIVISION.
  18.  PROCEDURE   DIVISION.
  19. *> Play animation.
  20.         CALL PLAY OF ANIME1.
  21. *> Set string in the LABEL-item.
  22.         IF PROGRAM-STATUS = ZERO
  23.         THEN
  24.           MOVE "Animation is being played."
  25.             TO POW-TEXT OF LABEL3
  26.         END-IF
  27.  
  28. @POWER POWPSBTN PUSH2 CLICK
  29.  ENVIRONMENT DIVISION.
  30.  DATA        DIVISION.
  31.  PROCEDURE   DIVISION.
  32. *> Pause animation.
  33.         CALL PAUSE OF ANIME1.
  34. *> Set string in the LABEL-item.
  35.         IF PROGRAM-STATUS = ZERO
  36.         THEN
  37.           MOVE "Animation is paused."
  38.             TO POW-TEXT OF LABEL3
  39.         END-IF
  40.  
  41. @POWER POWPSBTN PUSH3 CLICK
  42.  ENVIRONMENT DIVISION.
  43.  DATA        DIVISION.
  44.  PROCEDURE   DIVISION.
  45. *> End animation.
  46.         IF PROGRAM-STATUS = ZERO
  47.         THEN
  48.           MOVE "Animation is ended."
  49.             TO POW-TEXT OF LABEL3
  50.         END-IF
  51.          CALL CLOSESHEET OF SHEET1. 
  52.