home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PCTV1N4.ZIP / PUT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-07-28  |  469 b   |  17 lines
  1. { put.pas -- Transfer a string to the passive TSR's buffer }
  2. program put;
  3. uses crt, utransfer;
  4. var
  5.    s : string;       { String to transfer }
  6.    n : word;         { Number of bytes transferred }
  7. begin
  8.    write( 'Enter a string: ' );
  9.    readln( s );
  10.    n := PutBlock( @s, length( s ) + 1, 1 );  { 1 = data-type code }
  11.    if transferError <> 0 then
  12.    begin
  13.       writeln( 'ERROR: Code #', transferError );
  14.       halt( transferError )
  15.    end { if }
  16. end.
  17.