3050 OPEN XDDA$+NA$+EXT$ FOR INPUT AS #1