home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / PBWIZ19 / PBWIZ19.ZIP / VESAINFO.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-03-01  |  2.2 KB  |  60 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |         PBWIZ  Copyright (c) 1991-1993  Thomas G. Hanlin III         |
  4. '   |                      3544 E. Southern Ave. #104                      |
  5. '   |                            Mesa, AZ 85204                            |
  6. '   |                                                                      |
  7. '   |                      PowerBASIC Wizard's Library                     |
  8. '   |                                                                      |
  9. '   +----------------------------------------------------------------------+
  10.  
  11.    $DIM ARRAY
  12.  
  13.    DECLARE FUNCTION VesaChrHeight% ()
  14.    DECLARE FUNCTION VesaChrWidth% ()
  15.    DECLARE FUNCTION VesaColors& ()
  16.    DECLARE FUNCTION VesaFindFirst% ()
  17.    DECLARE FUNCTION VesaFindNext% ()
  18.    DECLARE FUNCTION VesaIsText% ()
  19.    DECLARE FUNCTION VesaIsMono% ()
  20.    DECLARE FUNCTION VesaScrHeight% ()
  21.    DECLARE FUNCTION VesaScrWidth% ()
  22.    DECLARE SUB VesaVersion (INTEGER, INTEGER)
  23.  
  24.    $LINK "pbwiz.pbl"
  25.  
  26.    DEFINT A-Z
  27.  
  28.    VesaVersion MajorV, MinorV
  29.    IF MajorV = 0 AND MinorV = 0 THEN
  30.       PRINT "Sorry, but you do not have VESA support."
  31.       END
  32.    END IF
  33.  
  34.    VMode = VesaFindFirst
  35.    DO UNTIL VMode = -1
  36.       CLS
  37.       PRINT "VESAINFO  Copyright (c) 1993  Thomas G. Hanlin III"
  38.       PRINT "Demo program for PBWiz shows available VESA modes"
  39.       PRINT
  40.       PRINT "VESA Mode : &H"; HEX$(VMode)
  41.       PRINT "Mode Type : ";
  42.       IF VesaIsText THEN PRINT "Text "; ELSE PRINT "Graphics ";
  43.       IF VesaIsMono THEN PRINT "(mono)" ELSE PRINT "(color)"
  44.       PRINT "Resolution:"; VesaScrWidth; "x"; VesaScrHeight;
  45.       IF VesaIsText THEN PRINT "chars" ELSE PRINT "pixels"
  46.       PRINT "Char Size :"; VesaChrWidth; "x"; VesaChrHeight
  47.       PRINT "Colors    :"; VesaColors&
  48.       PRINT
  49.       PRINT
  50.       PRINT
  51.       PRINT "-- press a key to view next available mode --"
  52.       VMode = VesaFindNext
  53.       DO
  54.       LOOP WHILE LEN(INKEY$)
  55.       DO
  56.          ky$ = INKEY$
  57.       LOOP UNTIL LEN(ky$)
  58.       IF ky$ = CHR$(27) OR ky$ = CHR$(3) THEN EXIT DO
  59.    LOOP
  60.