home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PCTV1N4.ZIP / MGET.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-07-28  |  507 b   |  20 lines
  1. { mget.pas -- Retrieve multiple strings from TSR }
  2. program mget;
  3. uses crt, utransfer;
  4. var
  5.    s : string;       { String to receive transfer }
  6.    n : word;         { Number of bytes transferred }
  7. begin
  8.    ClearBlock;       { Reset TSR's buffer }
  9.    repeat
  10.       n := GetBlock( @s, sizeof(s) );  { Get data from TSR }
  11.       if n <> 0 then 
  12.       begin
  13.          ClearBlock;       { Erase old string }
  14.          writeln( s )      { Display string }
  15.       end { if }
  16.    until s = 'exit'
  17. end.
  18.  
  19.  
  20.