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

Text File | 1991-08-07 | 268 b | 21 lines

# include "strings.h"

procedure first{(var c:CharOfString; var s: String)};
{
* c initialised to point to the first char of s
*
* precondition
*     s <> ''
}
begin
    with c do begin
        KIND := true; { -- head record }
          HD := s;
         POS := 1
    end
end{ -- first};