home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / spokes.prc < prev    next >
Text File  |  1997-03-14  |  915b  |  33 lines
  1. @POWER POWSHEET SHEET1 *
  2. @POWER POWIMBTN IMBTN1 CLICK
  3.  ENVIRONMENT DIVISION.
  4.  DATA        DIVISION.
  5.  PROCEDURE   DIVISION.
  6. * Open the Custom Racing sheet.
  7.         CALL OPENSHEET OF SHEET1 USING "RACING".
  8.  
  9. @POWER POWIMBTN IMBTN2 CLICK
  10.  ENVIRONMENT DIVISION.
  11.  DATA        DIVISION.
  12.  PROCEDURE   DIVISION.
  13. * Open the Biking Club sheet.
  14.         CALL OPENSHEET OF SHEET1 USING "CLUB".
  15. @POWER POWIMBTN IMBTN3 CLICK
  16.  ENVIRONMENT DIVISION.
  17.  DATA        DIVISION.
  18.  PROCEDURE   DIVISION.
  19. * Open the Bicycle Repair sheet.
  20.         CALL OPENSHEET OF SHEET1 USING "REPAIR".
  21. @POWER POWIMBTN IMBTN4 CLICK
  22.  ENVIRONMENT DIVISION.
  23.  DATA        DIVISION.
  24.  PROCEDURE   DIVISION.
  25. * Open the Shop Hours and Directions sheet.
  26.         CALL OPENSHEET OF SHEET1 USING "HOURS".
  27. @POWER POWMENU MENU2 CLICK
  28.  ENVIRONMENT DIVISION.
  29.  DATA        DIVISION.
  30.  PROCEDURE   DIVISION.
  31. * Close the sample application.
  32.         CALL CLOSESHEET OF SHEET1.
  33.