home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / window / mask10 / getvidmo.inc < prev    next >
Encoding:
Text File  |  1988-01-02  |  222 b   |  10 lines
  1. ' ******  CALL GETVIDMODE(VIDMOD%) ******
  2. '   RETURNS video mode
  3. '   EGA = 3 :  CGA = 3 : Monochrome or Hurcules = 7 : Compaq = 2
  4. SUB GETVIDMODE(Video.Mode%) STATIC
  5.     def seg=0
  6.     Video.Mode% = PEEK(&H449)
  7. END SUB
  8.  
  9.  
  10.