972 OPEN XDDA$+A$+EXT$ FOR INPUT AS#1