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)