home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pctchnqs
/
1990
/
number4
/
put.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-07-28
|
469b
|
17 lines
{ put.pas -- Transfer a string to the passive TSR's buffer }
program put;
uses crt, utransfer;
var
s : string; { String to transfer }
n : word; { Number of bytes transferred }
begin
write( 'Enter a string: ' );
readln( s );
n := PutBlock( @s, length( s ) + 1, 1 ); { 1 = data-type code }
if transferError <> 0 then
begin
writeln( 'ERROR: Code #', transferError );
halt( transferError )
end { if }
end.