|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 8448 (0x2100)
Types: TextFile
Names: »CRTEST.COB«
└─⟦811637d18⟧ Bits:30005383 Microsoft COBOL-80 v4.01
└─ ⟦this⟧ »CRTEST.COB«
IDENTIFICATION DIVISION.
PROGRAM-ID. CRTEST.
THIS PROGRAM TESTS THE FUNCTIONS OF THE
CRT DRIVERS USED WITH COBOL-80.
AUTHOR. MICROSOFT.
DATE-WRITTEN. 01 JUNE 1980.
SECURITY. NONE.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 ACCEPT-FIELDS.
03 IN-FIELD PIC X(6).
03 IN-CHAR PIC X.
03 ESC-CODE PIC 99.
SCREEN SECTION.
01 BLINK-SCREEN.
03 BLANK SCREEN
VALUE "HIGHLIGHT ($HILIT/$LOLIT) TEST.".
03 LINE 3 BLINK
VALUE "THIS MESSAGE SHOULD BE HIGHLIGHTED.".
03 COLUMN 40
VALUE "THIS SHOULD BE IN NORMAL VIDEO.".
01 BLANK-LINE-SCREEN.
03 LINE 10 PIC X(80) FROM ALL "X".
03 LINE 11 PIC X(80) FROM ALL "X".
03 LINE 12 PIC X(80) FROM ALL "X".
03 LINE 13 PIC X(80) FROM ALL "X".
03 LINE 14 PIC X(80) FROM ALL "X".
03 LINE 11 COLUMN 20 BLANK LINE
VALUE "B".
03 LINE 12 COLUMN 40 BLANK LINE
VALUE "B".
03 LINE 13 COLUMN 60 BLANK LINE
VALUE "B".
PROCEDURE DIVISION.
MAIN.
PERFORM INITIAL-SCREEN.
PERFORM ERASE-TEST.
PERFORM POSITION-TEST.
PERFORM TERMINATOR-TEST.
PERFORM EDIT-TEST.
PERFORM ALARM-TEST.
PERFORM BLINK-TEST.
PERFORM BLANK-LINE-TEST.
DISPLAY (23, 1) "END OF TESTS.".
DISPLAY " ".
STOP RUN.
INITIAL-SCREEN.
DISPLAY " ".
DISPLAY " +++++ CRTEST +++++".
DISPLAY " ".
DISPLAY " THIS PROGRAM TESTS THE CRT DRIVER".
DISPLAY " (24 BY 80 DISPLAY ASSUMED)".
DISPLAY " ".
DISPLAY " ".
ERASE-TEST.
DISPLAY "**********************************".
DISPLAY " ".
DISPLAY "* CURSOR POSITION AND ERASE TEST *".
DISPLAY " ".
DISPLAY "FIRST, LINES 12-24 OF THE".
DISPLAY "SCREEN SHOULD BE ERASED. THEN"
DISPLAY "THE CURSOR SHOULD HOME (TO THE"
DISPLAY "TOP LEFT CORNER) AND THE FULL"
DISPLAY "SCREEN SHOULD BE ERASED."
PERFORM DELAY 10000 TIMES.
DISPLAY (12, 1) ERASE.
PERFORM DELAY 5000 TIMES.
DISPLAY ( 1, 1) ERASE.
PERFORM WAIT-FOR-INPUT.
POSITION-TEST.
DISPLAY ( 1, 2) "* GENERAL CURSOR POSITION TEST *".
DISPLAY ( 2, 1) " ".
DISPLAY ( 3, 1) "THIS TEST DISPLAYS TEXT IN THE"
DISPLAY ( 4, 1) "POSITIONS DESCRIBED BY THE"
DISPLAY ( 5, 1) "TEXT ITSELF."
PERFORM DELAY 5000 TIMES.
DISPLAY ( 1, 1) ERASE.
PERFORM DELAY 10 TIMES.
DISPLAY ( 1, 1) "TOP LEFT CORNER".
DISPLAY (24, 61) "BOTTOM RIGHT CORNER".
DISPLAY ( 1, 65) "TOP RIGHT CORNER".
DISPLAY (24, 1) "BOTTOM LEFT CORNER".
DISPLAY (12, 30) "CENTER (MORE OR LESS)".
DISPLAY ( 1, 35) "TOP CENTER".
DISPLAY (24, 34) "BOTTOM CENTER".
DISPLAY (12, 1) "LEFT CENTER".
DISPLAY (12, 69) "RIGHT CENTER".
PERFORM WAIT-FOR-INPUT.
TERMINATOR-TEST.
DISPLAY (1, 1) ERASE
" * TERMINATOR KEY ($TLIST, $FLIST) TEST *".
DISPLAY (3, 1) "THIS TESTS WHETHER THE TERMINATOR "
"AND FUNCTION KEYS ARE RECOGNIZED CORRECTLY.".
DISPLAY (5, 1) "EACH TIME THE PROMPT IS GIVEN, ENTER "
"ONE OF THE KEYS FROM $TLIST OR $FLIST.".
DISPLAY (6, 1) "THIS PROGRAM WILL RESPOND WITH THE "
"ESCAPE CODE FOR THAT KEY.".
DISPLAY (8, 1) "THE TEST WILL TERMINATE WHEN YOU ENTER "
"ANY NON-SPACE KEY BEFORE THE TERMINATOR.".
MOVE SPACE TO IN-CHAR.
PERFORM GET-TERMINATOR
UNTIL IN-CHAR NOT = SPACE.
GET-TERMINATOR.
DISPLAY (11, 1) ERASE.
DISPLAY (10, 1) "ENTER TERMINATOR KEY: ".
ACCEPT (, ) IN-CHAR WITH PROMPT.
ACCEPT ESC-CODE FROM ESCAPE KEY.
DISPLAY (11, 1) "ESCAPE CODE IS " ESC-CODE.
PERFORM DELAY 2000 TIMES.
EDIT-TEST.
DISPLAY (1, 1) ERASE
" * EDIT KEY ($CLIST, $CURBK) TEST *".
DISPLAY (3, 1) "THE FOLLOWING ABBREVIATIONS ARE USED "
"TO REPRESENT THE EDITING KEYS:".
DISPLAY (5, 10) "ÆLDÅ = LINE (FIELD) DELETE KEY"
(6, 10) "ÆCDÅ = CHARACTER DELETE KEY"
(7, 10) "ÆBSÅ = BACKSPACE KEY"
(8, 10) "ÆFSÅ = FORWARD SPACE KEY".
DISPLAY (10, 1) "ENTER ABCDEÆLDÅ+-XXXÆCDÅ"
"ÆBSÅÆBSÅWÆFSÅYZ ".
MOVE SPACES TO IN-FIELD.
ACCEPT (, ) IN-FIELD.
IF IN-FIELD NOT = "+-WXYZ"
DISPLAY (15, 1) "*** RESULT WAS " IN-FIELD
DISPLAY (16, 1) "SHOULD HAVE BEEN +-WXYZ"
ELSE DISPLAY (15, 1) "RESULT WAS CORRECT.".
PERFORM WAIT-FOR-INPUT.
ALARM-TEST.
DISPLAY (1, 1) ERASE " * ALARM ($ALARM) TEST *".
DISPLAY (3, 1) "THE AUDIBLE TONE SHOULD SOUND "
"WHEN THIS MESSAGE IS PRINTED.".
DISPLAY (5, 1) "TYPE ANY CHARACTER TO CONTINUE.".
ACCEPT (, ) IN-CHAR WITH AUTO-SKIP BEEP.
BLINK-TEST.
DISPLAY BLINK-SCREEN.
PERFORM WAIT-FOR-INPUT.
BLANK-LINE-TEST.
DISPLAY (1, 1) ERASE " * BLANK LINE ($EOL) TEST *".
DISPLAY (3, 1) "LINES 10-14 WILL BE FILLED WITH X.".
DISPLAY (4, 1) "THEN LINES 11-13 SHOULD BE BLANKED "
"FOLLOWING THE 'B' CHARACTER.".
DISPLAY BLANK-LINE-SCREEN.
PERFORM WAIT-FOR-INPUT.
DELAY.
WAIT-FOR-INPUT.
DISPLAY (20, 1) "TYPE ANY CHARACTER TO CONTINUE ".
ACCEPT (, ) IN-CHAR WITH AUTO-SKIP.
«eof»