PRO del,filename,return_code

fn=rfindfile(filename,count=nfn)

IF nfn GT 0 THEN BEGIN	; nfn can only be 0 or 1 under DOS/Unix
    OPENR,del,fn(0),/GET_LUN,/DELETE
    FREE_LUN,del
    return_code=0
    ENDIF ELSE BEGIN
    MESSAGE,filename+' not found',/INFORMATIONAL
    return_code=1
    ENDELSE

RETURN
END