6000 PRINT#3,TAB(KES*(L-KM)+17); : PRINT#3,USING A$;X;