Looking for code

 BBS: Inland Empire Archive
Date: 12-14-92 (17:57)             Number: 265
From: DAVE NAPLES                  Refer#: NONE
  To: JOHN WOODGATE                 Recvd: NO  
Subj: Looking for code               Conf: (2) Quik_Bas
劾I know 3 ways to get that information, here's the
pathetic way.
塒様様様様様様様様様様様様様様様様様様様様様様様様様様様様様
様様様様様様様

    The NON-pathetic way runs thusly (remember, ya gotta have
QB.LIB ta run this:)

'$INCLUDE: 'qb.bi'

DIM regs AS RegType, regsx AS RegTypeX

regsx.ax = &H1A00
INTERRUPTX &H10, regsx, regsx
vmode = VAL("&H" + RIGHT$(HEX$(regsx.bx), 2))
SELECT CASE vmode
    CASE 0
        monitor$ = "No card installed"
    CASE 1
        monitor$ = "MDA Display"
    CASE 2
        monitor$ = "CGA Display"
    CASE 4
        monitor$ = "EGA or EGA Mutlisync Display"
    CASE 5
        monitor$ = "EGA Mono Display"
    CASE 7
        monitor$ = "VGA Analog Mono Display"
    CASE 8
        monitor$ = "VGA Analog or VGA Analog Multisync Display"
    CASE 255
        monitor$ = "Unknown Video Card Type"
END SELECT

    That does the trick. Hope it helps.


                        The Resident Scholar

  MegaMail 2.10 #0:"Do me WILD, baby!" - P. Schlafly

--- SLMAIL v3.0/WL  (#0109)
 * Origin: Burleigh's BBS - 703-898-8153/898-2980
Philez,Jamez,Mzgz,K-Rad! (1:274/6)
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