Need help

 BBS: Inland Empire Archive
Date: 03-06-93 (10:15)             Number: 336
From: ROB MCKEE                    Refer#: NONE
  To: DANNY ROBINSON                Recvd: NO  
Subj: Need help                      Conf: (2) Quik_Bas

Hi Danny!
   You wrote to All:

 DR> Does anybody have a routine that uses BIOS calls to get the
 DR> current  screen color attribute?  Would appreciate any help.

 ' For PDS ' $INCLUDE: 'qbx.bi' 'Erase the other
 ' For Qb45 ' $INCLUDE: 'qb.bi'
 DEFINT A-Z
 DIM r AS RegType
 Row = CSRLIN: Col = POS(0)
 r.ax = &H200 'SetCursorLocation
 r.bx = &H0  ' VideoPageNumber
 r.dx = ((Row - 1) * 256) + (Col - 1)
 Interrupt &H10, r, r
 r.ax = &H800 ' Read Character/Attrib at
              ' current Bios Cursor Location
 r.bx = PageNumber0to7
 Interrupt &H10, r, r
 AttribChar& = (r.ax AND &H7FFF&)
 AttribChar& = (AttribChar&) or -(r.ax AND &H8000&)
 Attrib = (AttribChar& AND &HFF00&) \ 256
 char = AttribChar& AND &HFF
 LOCATE 23, 1
 PRINT Attrib, char


  SysOp 1:125/411 1am to 5am Mail - Rob
           PST    2am to 5am Freq's

--- timEd/B6
 * Origin: Flyer_Proof_Computer_Svs,Richmond_CA,MO,V32B (1:125/411)