C TITLE S C R T C H C DELETS A FILE FROM PACK COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR,LPFR,DATME COMMON IFRMAT(3,20) CALL SLECTF(ANSWER('FILE ID TO BE DELETED?')) CALL DELETF CALL EXIT END