home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / compiler / cobol650 / cobsrc / boxdemo.cob < prev    next >
Text File  |  1990-09-05  |  2KB  |  44 lines
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. asmtest.
  3.        ENVIRONMENT DIVISION.
  4.        DATA DIVISION.
  5.        WORKING-STORAGE SECTION.
  6.        01 WORK-AREAS.
  7.           05 LPARM1              PIC 9 COMP-0 VALUE 6.
  8.           05 LPARM2              PIC 99 COMP-0 VALUE 20.
  9.           05 LPARM3              PIC 99 COMP-0 VALUE 40.
  10.           05 LPARM4 PIC 9 COMP-0 VALUE 8.
  11.           05 LPARM5 PIC 99 COMP-0 VALUE 79.
  12.           05 LPARM6 PIC X VALUE 'S'.
  13.           05 LPARM7 PIC X VALUE 'R'.
  14.       * SOUND ON IS ANYTHING NOT 0
  15.           05 LPARM8 PIC 9 COMP-0 VALUE 0.
  16.           05 LPARM9 PIC 9 COMP-0 VALUE 1.
  17.        01 TESTKEY PIC X.
  18.        SCREEN SECTION.
  19.        01 BLNK-SCREEN.
  20.           03 BLANK SCREEN.
  21.        01 RED-SCREEN.
  22.           03 BLANK SCREEN
  23.              BACKGROUND-COLOR 1 FOREGROUND-COLOR 3.
  24.        PROCEDURE DIVISION.
  25.         01-START.
  26.             DISPLAY BLNK-SCREEN.
  27.             display 'this is a test to show how'.
  28.             display 'you may use windows'.
  29.             call 'SAVRST' using lparm6.
  30.             DISPLAY BLNK-SCREEN.
  31.             DISPLAY "SOUND IS OFF".
  32.             CALL 'WINDOW' USING LPARM1 LPARM2 LPARM3 LPARM4 LPARM5 
  33.                                 LPARM8 . 
  34.               ACCEPT TESTKEY.
  35.             DISPLAY BLNK-SCREEN.
  36.             DISPLAY "SOUND IS ON".
  37.             CALL 'WINDOW' USING LPARM1 LPARM2 LPARM3 LPARM4 LPARM5 
  38.                                 LPARM9 . 
  39.               ACCEPT TESTKEY.
  40.             call 'SAVRST' using lparm7.
  41.             ACCEPT TESTKEY.
  42.             DISPLAY BLNK-SCREEN.
  43.             STOP RUN.
  44.