This routine returns a screen type.
Specification
01 screen-type PIC 1(8) BIT.
CALL "CBL_GET_VGA_MODE" USING screen-type.
Interface
Specifies the area used to store the screen type as follows:
Bit 0: Monochrome screen
Bit 1: Reserved
Bit 2: Reserved
Bit 3: EGA-type screen
Bit 4: VGA-type screen
Bit 5: Reserved
Bit 6: Reserved
Bit 7: Reserved
Return code
None
Note
This subroutine returns only "VGA-type screen".