home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
cobol
/
compiler
/
cobol600
/
box.cob
< prev
next >
Wrap
Text File
|
1990-07-07
|
1KB
|
33 lines
IDENTIFICATION DIVISION.
PROGRAM-ID. asmtest.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WORK-AREAS.
05 LPARM1 PIC 9 COMP-0 VALUE 6.
05 LPARM2 PIC 99 COMP-0 VALUE 20.
05 LPARM3 PIC 99 COMP-0 VALUE 40.
05 LPARM4 PIC 9 COMP-0 VALUE 8.
05 LPARM5 PIC 99 COMP-0 VALUE 79.
05 LPARM6 PIC X VALUE 'S'.
05 LPARM7 PIC X VALUE 'R'.
01 TESTKEY PIC X.
SCREEN SECTION.
01 BLNK-SCREEN.
03 BLANK SCREEN
BACKGROUND-COLOR 1 FOREGROUND-COLOR 15.
01 RED-SCREEN.
03 BLANK SCREEN
BACKGROUND-COLOR 1 FOREGROUND-COLOR 3.
PROCEDURE DIVISION.
01-START.
display 'this is a test to show how'.
display 'you may use windows'.
call 'SRST' using lparm6.
DISPLAY RED-SCREEN.
CALL 'WIN286' USING LPARM1, LPARM2, LPARM3, LPARM4, LPARM5.
accept testkey.
call 'SRST' using lparm7.
STOP RUN.