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: '' 'Erase the other
 ' For Qb45 ' $INCLUDE: ''
 DIM r AS RegType
 Row = CSRLIN: Col = POS(0) = &H200 'SetCursorLocation
 r.bx = &H0  ' VideoPageNumber
 r.dx = ((Row - 1) * 256) + (Col - 1)
 Interrupt &H10, r, r = &H800 ' Read Character/Attrib at
              ' current Bios Cursor Location
 r.bx = PageNumber0to7
 Interrupt &H10, r, r
 AttribChar& = ( AND &H7FFF&)
 AttribChar& = (AttribChar&) or -( 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)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET