Procedure SetPos(VAR F:Text;
  		 Block, Offset: Integer
		);External;

{*IDENT* SetPos -- set position in text file		}
{*USER*
  SetPos will set the current position of file "F" as given
  by "Block" and "Offset". With GETPOS, this provides a pseudorandom 
  access facility to Text files. Note that Block, Offset MUST be set   
  up by a call to GetPos -- they are in a special format known only 
  to GOD and FCS. 

  SetPos is an OMSI-supplied procedure.
}