10 OPEN"com2:1200,n,8,1" AS #1
20 PRINT#1,"ATS10=255S9=0B2A"
30 INPUT Z$
40 PRINT#1,CHR$(&H93)+CHR$(&H0)+CHR$(&H6D);
45 FOR T=0 TO 5000:NEXT T
50 CLOSE#1