home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
CPM
/
TURBOPAS
/
TP-UTIL.ARK
/
WHICH.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1986-01-06
|
384b
|
15 lines
PROGRAM WHICH_DISPLAY; { For the IBM PC! }
TYPE BYTE_PTR = ^BYTE;
VAR BP : BYTE_PTR;
B : BYTE;
BEGIN
BP := PTR($0030,$0410); { Address of equipment flag byte }
B := BP^;
IF B AND $30 = $30 THEN WRITELN('Monochrome display installed!')
ELSE WRITELN('Color graphics adapter installed!')
END.
σσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσ