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

Text File | 1991-08-07 | 217 b | 15 lines

# include "strings.h"

procedure initS{(var s: String)};
{
* Initialises s to be the empty or null string ''
* This is a copy of newS for those people that prefer the name initS!
}
begin
    s := nil
end{ -- initS};