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