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

{*IDENT* GETPOS -- return position in text file		}
{*USER*
  GETPOS will return the current position of file "F" in "Block" 
  and "Offset". With SETPOS, 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. 

  GETPOS is an OMSI-supplied procedure.
}