home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / pcmag / vol7n14.arc / NOPRTSC.PAS < prev    next >
Pascal/Delphi Source File  |  1988-06-30  |  428b  |  17 lines
  1. {$R+,C-}
  2. PROGRAM No_PrtSc;
  3. VAR
  4.   Printing : Boolean ABSOLUTE $50 : 0;
  5.   CH       : Char;
  6. CONST
  7.   status : ARRAY[Boolean] OF STRING[7] = ('enable', 'disable');
  8. BEGIN
  9.   WriteLn('The PrtSc key is ', status[Printing], 'd.');
  10.   Write('Shall I ', status[NOT Printing], ' it? (Y/N)');
  11.   REPEAT
  12.     Read(Kbd, CH);
  13.     CH := UpCase(CH);
  14.   UNTIL (CH = 'Y') OR (CH = 'N');
  15.   IF CH = 'Y' THEN Printing := NOT Printing;
  16. END.
  17.