660 CLOSE#3 : KS=0 : DS$="SCRN:" : XA$=".TXT"