home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / KBDBUF.ZIP / KBDBUF.PAS
Encoding:
Pascal/Delphi Source File  |  1988-07-31  |  435 b   |  18 lines
  1. {$C-} Program KeyboardBufferTest;
  2.   Var S: String[16];
  3.       I: Integer;
  4.  
  5.   Begin
  6.     Write('Enter a string to put in the keyboard buffer: ');
  7.     ReadLn(S);
  8.     S:=S+Chr(13);
  9.     Mem[$40:26]:=30;
  10.     Mem[$40:28]:=30+2*Length(S);
  11.     For I:=1 To Length(S) Do
  12.       Mem[$40:28+2*I]:=Ord(S[I]);
  13.   End.
  14.  
  15.   For an interesting effect, run this in memory inside Turbo and give it a
  16. string of 10 or 15 'R's
  17.   -  Bela Lubkin
  18.