10 PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,0
15 D=PEEK(186)
20 A$="HELLO CONNECT":B$="L[207]A$,D"+CHR$(13)+"R[213]"+CHR$(13)
30 FORX=1TO10:POKE630+X,ASC(MID$(B$,X)):NEXT:POKE198,10:END
10000 D=PEEK(186):N$="HELLO":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END