home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / GLEN / MASK.ZIP / GETVIDMO.INC < prev    next >
Text File  |  1988-01-03  |  222b  |  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.