100 OPEN "I",#1,"QWIK4.TXT"
110 OPEN "O",#2,"FOR"
120 PRINT#2,"----"
130 PRINT:PRINT:PRINT
140 IF EOF(1) THEN 210
150 LINE INPUT#1,A$
160 T=T+1
170 PRINT LEFT$(A$,8)+"."+MID$(A$,9,3);TAB(15);T;:PRINT CHR$(13);
180 PRINT#2,LEFT$(A$,8)+"."+MID$(A$,9,3)+"   "+MID$(A$,12,60)
190 PRINT#2,"----"
200 GOTO 140
210 PRINT:PRINT"All Done!":CLOSE:END