home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c100 / 5.ddi / PCTECH.ZIP / F11F12.SRC < prev    next >
Encoding:
Text File  |  1989-10-09  |  138 b   |  7 lines
  1. FUNCTION F11F12Present : Boolean;
  2.  
  3. BEGIN
  4.   IF MEM[$0040:$00F0] = 0 THEN F11F12Present := False
  5.     ELSE F11F12Present := True
  6. END;
  7.