title	Module from library HILIB_2 : @KILL
	name	('@KILL')
	maclib	baselib.lib

; Language : BASIC

; Kill file

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

;		Version 1.0, August 1987

; ENTRY	Reg pair HL points to string describing file

; EXIT	Carry set on file name error and Accu holds 64

; NOTE	The default FCB at 005ch will be overwritten

	entry	@kill

	extrn	@assig,delete

@kill:
	ld	de,fcb
	push	de
	call	@assig		; Assign file
	pop	de
	ld	a,64
	ret	c		; Error
	call	delete		; Delete
	or	a
	ret

	end