date and time created 83/02/11 15:45:08 by rrh

[unix-history] / usr / src / usr.bin / pascal / libpc / unixio.h

(* Copyright (c) 1979 Regents of the University of California *)

const
sccsid = '@(#)unixio.h 1.1 %G%';

type
fileptr = record
       cnt :integer
       end;

function TELL(
var     fptr :text)
{returns} :fileptr;

 external;

procedure SEEK(
var    fptr :text;
var    cnt :fileptr);

 external;

procedure APPEND(
var    fptr :text);

  external;