100 OPEN "I",#1,"KMD.LOG"
110 OPEN "O",#2,"QWK.TXT"
130 PRINT:PRINT:PRINT
140 IF EOF(1) THEN 210
150 LINE INPUT#1,A$
160 T=T+1
170 PRINT MID$(A$,14,8)+"."+MID$(A$,22,3);TAB(15);T;:PRINT CHR$(13);
180 PRINT#2,LEFT$(A$,14,8)+","+MID$(A$,22,3)
200 GOTO 140
210 PRINT:PRINT"All Done!":CLOSE:END