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