Re: CGA or Mono?

 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)    'we just need the first byte
  select case equipment% AND 48
    case 16: print "40x25 color"
    case 32: print "80x25 color"
    case 48: print "80x25 mono"
  end select


--- Msg V4.5
 * Origin: Reciprocity Failure  (1:124/4115.236)