1655 PRINT#3,TAB(13*(K-KM)+13);S;"-";TC$(S);