home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pctchnqs
/
1990
/
number4
/
mget.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-07-28
|
507b
|
20 lines
{ mget.pas -- Retrieve multiple strings from TSR }
program mget;
uses crt, utransfer;
var
s : string; { String to receive transfer }
n : word; { Number of bytes transferred }
begin
ClearBlock; { Reset TSR's buffer }
repeat
n := GetBlock( @s, sizeof(s) ); { Get data from TSR }
if n <> 0 then
begin
ClearBlock; { Erase old string }
writeln( s ) { Display string }
end { if }
until s = 'exit'
end.