Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/misc/volume2/pstrings/part01/writelnS.p

Text File | 1991-08-07 | 241 b | 18 lines

# include "strings.h"

procedure writelnS{(var f: Text; s: String)};
{
* Write the dynamic string s to file f followed by an eoln marker
*
* precondition:
*    f open for writing
}
begin
    writeS(f, s);
    writeln(f)
end{ -- writelnS};