10 DV=PEEK(186):IFDV<8THENDV=8
11 PRINT""
12 UC=4613:HC=4675:HK=4739
90 SYS4608,224
100 .DO:.EE:.WB:.UN E%:.OF
101 END
60000 D=PEEK(186):GOSUB60008:N$=N$+".DOT"
60001 OPEN1,D,15,"I0":PRINT#1,"S0:"+N$:CLOSE1:SAVEN$,D:END
60008 N$="DOT"
60009 RETURN