home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / educ / math / 027 / setreset.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1991-03-31  |  1.1 KB  |  30 lines
  1. PROGRAM SETRESET;   { sets caps and num lock on + printer to emphasized }
  2.                     { pitch then resets all of them to off + emphasized }
  3.                     { off, and allows test of keyboard and printer.     }
  4.                     { I close Labcoat with an attempt to reset your     }
  5.                     { printer and keyboard.  If you have troubles with  }
  6.                     { this, look for these orders in Labcoat, Evaluate, }
  7.                     { etc. source, comment them out and recompile. This }
  8.                     { program is just to show them all as examples.     }
  9.  
  10.  
  11.  
  12.   VAR Y,Z : STRING[45];
  13.  
  14. BEGIN
  15.  
  16.   MEM[$40:$17] := MEM[$40:$17] OR $40;    { Caps Lock On }
  17.   MEM[$40:$17] := MEM[$40:$17] OR $20;    { Num Lock On }
  18.  
  19.   WRITE('INPUT A STRING (up to 45 char.): ');
  20.   READLN(Y);
  21.   WRITELN(LST, (CHR(27)), (CHR(69)),y);   { Printer - Emphasized Pitch On }
  22.  
  23.   MEM[$40:$17] := MEM[$40:$17] AND $40;   { Caps Lock Off }
  24.   MEM[$40:$17] := MEM[$40:$17] AND $20;   { Num Lock Off }
  25.  
  26.   WRITE('Now Try It Again: ');
  27.   READLN(Z);
  28.   writeln(lst, (chr(27)), (chr(70)),z);   { Printer - Emphasized Pitch Off }
  29.  
  30. END.