;*******************************
; MOSEFX.M68
;
; by Dave Heyliger - AMUS Staff
;
; Clears MOOSE.SYS if it gets
; mucked up.
;*******************************

SEARCH SYS
SEARCH SYSSYM

.OFINI
.OFDEF	MOOSYS,14
.OFSIZ	IMPSIZ

GETIMP	IMPSIZ,A3

LEA	A2,BUFFER
LEA	A4,MOOSYS(A3)
FILNAM	@A4
SRCH	@A4,A1
MOVB	#777,D4
LOOP:	MOVB	#0,(A1)+
	DECB	D4
	BNE	LOOP
EXIT

BUFFER:	ASCII	/MOOSE.SYS/
	EVEN
END

.