home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST1012.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-31  |  450 b   |  14 lines
  1. Function GetVideoMode : Byte;
  2. { This function will place a Turbo Pascal variable directly    }
  3. { into the Video Display Data Area where the current video     }
  4. { mode is stored.                                              }
  5.  
  6. Var
  7.   Crt_Mode : Byte Absolute $40:$49;
  8.                          { Location in VDDA where mode is kept }
  9.  
  10. Begin
  11.   GetVideoMode := Crt_Mode;
  12.                          { Assign this value to function name  }
  13. End;
  14.