home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / baswiz19.zip / VESAINFO.BAS < prev    next >
BASIC Source File  |  1993-01-31  |  2KB  |  56 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |         BASWIZ  Copyright (c) 1990-1993  Thomas G. Hanlin III        |
  4. '   |                                                                      |
  5. '   |                       The BASIC Wizard's Library                     |
  6. '   |                                                                      |
  7. '   +----------------------------------------------------------------------+
  8. '
  9. '  This demo provides a quick example for the BasWiz VESA info routines.
  10.  
  11.    DECLARE FUNCTION VesaChrHeight% ()
  12.    DECLARE FUNCTION VesaChrWidth% ()
  13.    DECLARE FUNCTION VesaColors& ()
  14.    DECLARE FUNCTION VesaFindFirst% ()
  15.    DECLARE FUNCTION VesaFindNext% ()
  16.    DECLARE FUNCTION VesaIsMono% ()
  17.    DECLARE FUNCTION VesaIsText% ()
  18.    DECLARE FUNCTION VesaScrHeight% ()
  19.    DECLARE FUNCTION VesaScrWidth% ()
  20.    DECLARE SUB VesaVersion (MajorV%, MinorV%)
  21.  
  22.    DEFINT A-Z
  23.  
  24.    VesaVersion MajorV, MinorV
  25.    IF MajorV = 0 AND MinorV = 0 THEN
  26.       PRINT "Sorry, but you do not have VESA support."
  27.       END
  28.    END IF
  29.  
  30.    VMode = VesaFindFirst
  31.    DO UNTIL VMode = -1
  32.       CLS
  33.       PRINT "VESAINFO  Copyright (c) 1993  Thomas G. Hanlin III"
  34.       PRINT "Demo program for BasWiz shows available VESA modes"
  35.       PRINT
  36.       PRINT "VESA Mode : &H"; HEX$(VMode)
  37.       PRINT "Mode Type : ";
  38.       IF VesaIsText THEN PRINT "Text "; ELSE PRINT "Graphics ";
  39.       IF VesaIsMono THEN PRINT "(mono)" ELSE PRINT "(color)"
  40.       PRINT "Resolution:"; VesaScrWidth; "x"; VesaScrHeight;
  41.       IF VesaIsText THEN PRINT "chars" ELSE PRINT "pixels"
  42.       PRINT "Char Size :"; VesaChrWidth; "x"; VesaChrHeight
  43.       PRINT "Colors    :"; VesaColors&
  44.       PRINT
  45.       PRINT
  46.       PRINT
  47.       PRINT "-- press a key to view next available mode --"
  48.       VMode = VesaFindNext
  49.       DO
  50.       LOOP WHILE LEN(INKEY$)
  51.       DO
  52.          ky$ = INKEY$
  53.       LOOP UNTIL LEN(ky$)
  54.       IF ky$ = CHR$(27) OR ky$ = CHR$(3) THEN EXIT DO
  55.    LOOP
  56.