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))
    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"

    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