title	Module from library BASE_2 : FTELL
	name	('FTELL')
	maclib	baselib.lib

; Return current file position for next sequential read

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0 July 1994

; ENTRY	Reg pair DE points to OPENED FCB

; EXIT	Reg HL holds low and middle byte of random record
;	Accu holds high byte

	entry	ftell

	extrn	setrnd,decrrn

ftell:
	call	setrnd		; Get record value
	jp	decrrn		; .. get previous value

	end