1040 CLOSE : DS$="SCRN:" : OPEN DS$ FOR OUTPUT AS#3