home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / cobol600 / box.cob < prev    next >
Encoding:
Text File  |  1990-07-07  |  1.1 KB  |  33 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.        01 TESTKEY PIC X.
  15.        SCREEN SECTION.
  16.        01 BLNK-SCREEN.
  17.           03 BLANK SCREEN
  18.              BACKGROUND-COLOR 1 FOREGROUND-COLOR 15.
  19.        01 RED-SCREEN.
  20.           03 BLANK SCREEN
  21.              BACKGROUND-COLOR 1 FOREGROUND-COLOR 3.
  22.        PROCEDURE DIVISION.
  23.         01-START.
  24.         display 'this is a test to show how'.
  25.             display 'you may use windows'.
  26.             call 'SRST' using lparm6.
  27.             DISPLAY RED-SCREEN.
  28.  
  29.             CALL 'WIN286' USING LPARM1, LPARM2, LPARM3, LPARM4, LPARM5.
  30.             accept testkey.
  31.             call 'SRST' using lparm7.
  32.             STOP RUN.
  33.