home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / pbwiz / vgademo.bas < prev    next >
BASIC Source File  |  1994-04-10  |  3KB  |  96 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |         PBWIZ  Copyright (c) 1991-1994  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 SUB GetDisplay (INTEGER, INTEGER)
  14.    DECLARE SUB G13Box (BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER)
  15.    DECLARE SUB G13Color (BYVAL INTEGER, BYVAL INTEGER)
  16.    DECLARE SUB G13Locate (BYVAL INTEGER, BYVAL INTEGER)
  17.    DECLARE SUB G13Mode (BYVAL INTEGER)
  18.    DECLARE SUB G13Polygon (INTEGER, INTEGER, INTEGER, INTEGER, SINGLE)
  19.    DECLARE SUB G13Write (STRING)
  20.    DECLARE SUB G13WriteLn (STRING)
  21.    DECLARE SUB GN0Cls ()
  22.    DECLARE SUB GN0Color (BYVAL INTEGER, BYVAL INTEGER)
  23.    DECLARE SUB GN0Locate (BYVAL INTEGER, BYVAL INTEGER)
  24.    DECLARE SUB GN0Mode (BYVAL INTEGER)
  25.    DECLARE SUB GN0ShowBMP (STRING, INTEGER, INTEGER, INTEGER)
  26.    DECLARE SUB GN0Write (STRING)
  27.    DECLARE SUB GN0WriteLn (STRING)
  28.  
  29.    $LINK "pbwiz.pbl"
  30.  
  31.    DEFINT A-Z
  32.  
  33.    RANDOMIZE TIMER
  34.  
  35.    GetDisplay Adapter, Mono
  36.  
  37.    IF Adapter <> 6 THEN
  38.       PRINT "Sorry.  VGADEMO requires a VGA to run."
  39.       END
  40.    END IF
  41.  
  42.    G13Mode 1                 ' ...put into low-res VGA mode
  43.    G13Color 4, 2
  44.    G13WriteLn "PBWiz gives you access to 256-color VGA"
  45.    G13Color 0, 3
  46.    G13WriteLn "modes from  320x200 to 360x480  on any "
  47.    G13Color 7, 1
  48.    G13WriteLn "standard VGA.   This is 320x200.   The "
  49.    G13Color 5, 8
  50.    G13WriteLn "360x480 mode is shown on the next page."
  51.    G13WriteLn ""
  52.    G13Color 4, 14
  53.    G13WriteLn "Full text & graphics support included. "
  54.    FOR Y = 0 TO 31
  55.       G13Color Y + 16, 0
  56.       G13Box Y, Y + 64, 319 - Y, (64 - Y) + 120, (Y = 100)
  57.       IF Y > 15 THEN
  58.          G13Polygon Y * 15 - 194, 112, 5, INT(RND * 6 + 1) + 2, .75 * 3.141593
  59.          G13Color 64 - Y, 0
  60.          G13Polygon Y * 15 - 194, 136, 5, INT(RND * 6 + 1) + 2, 0
  61.       END IF
  62.    NEXT
  63.    G13Locate 25, 14
  64.    G13Color 15, 4
  65.    G13Write "Press any key"
  66.  
  67.    DO
  68.    LOOP WHILE LEN(INKEY$)
  69.    DO
  70.       ky$ = INKEY$
  71.    LOOP UNTIL LEN(ky$)
  72.  
  73.    GN0Mode 1
  74.  
  75.    GN0Cls
  76.    GN0Color 50, 0
  77.    GN0WriteLn "This is a 256-color 360 x 480 graphics mode"
  78.    GN0WriteLn "which works on any normal VGA.  It provides"
  79.    GN0WriteLn "nearly 3x the screen area of the standard"
  80.    GN0WriteLn "320 x 200  VGA high-color mode."
  81.    GN0WriteLn ""
  82.    GN0WriteLn "You can read and write Windows bitmaps"
  83.    GN0WriteLn "(.BMP picture files) in 256 colors, too."
  84.  
  85.    GN0ShowBMP "GDEMO.BMP", 76, 100, ErrCode
  86.  
  87.    GN0Locate 60, 6
  88.    GN0Write "Press any key"
  89.  
  90.    DO
  91.    LOOP WHILE LEN(INKEY$)
  92.    DO
  93.    LOOP UNTIL LEN(INKEY$)
  94.  
  95.    GN0Mode 0                 ' restore text mode
  96.