30001 GOTO31000
31000 IX$="LS001"+STR$(IX(K,.))
31002 DV=PEEK(186):IFDV<8THENDV=8
31004 OPEN15,DV,15,"I0":CLOSE15
31006 OPEN15,DV,15,"R0:"+IX$+"="+IX$
31008 INPUT#15,N1:CLOSE15
31010 IFN1=62THEN23000
60000 D=PEEK(186):N$="HELLO":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END