home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PCTV1N4.ZIP / PRINTSCR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-09-13  |  138 b   |  9 lines
  1. PROCEDURE PrintScreen(TurnOn: Boolean);
  2.  
  3. BEGIN
  4.   IF TurnOn THEN
  5.     MEM[$0050:$0000] := 0
  6.   ELSE
  7.     MEM[$0050:$0000] := 1;
  8. END;
  9.