BBS: Inland Empire Archive
Date: 09-11-92 (09:54) Number: 295
From: BOB PERKINS Refer#: NONE
To: WALTON DELL Recvd: NO
Subj: Re: CGA or Mono? Conf: (2) Quik_Bas
WD> How can I tell if a mono or color moniter is being used,
WD> WITHOUT using ON ERROR? Right now I just use ON ERROR with
WD> a WIDTH 40 (can still use NOGRAPH.OBJ), but I'd like to be
WD> able to stub out error traping!
Bits 4 and 5 of the equipment byte are supposed to indicate whether you
have 40x25 color, 80x25 color, or 80x25 mono. There is an
old text file around usually called peekpoke.zip on BBSs
that has a bunch of this stuff in it. I haven't tested the
code below, so you may have to debug it. :-)
def seg = &H40
equipment% = peek(&H10)
select case equipment% AND 48
case 16: print "40x25 color"
case 32: print "80x25 color"
case 48: print "80x25 mono"
--- Msg V4.5
* Origin: Reciprocity Failure (1:124/4115.236)