home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / rcpm / qwik4v1.lbr / DOFOR.BZS / DOFOR.BAS
Encoding:
BASIC Source File  |  1987-12-20  |  384 b   |  13 lines
  1. 100 OPEN "I",#1,"QWIK4.TXT"
  2. 110 OPEN "O",#2,"FOR"
  3. 120 PRINT#2,"----"
  4. 130 PRINT:PRINT:PRINT
  5. 140 IF EOF(1) THEN 210
  6. 150 LINE INPUT#1,A$
  7. 160 T=T+1
  8. 170 PRINT LEFT$(A$,8)+"."+MID$(A$,9,3);TAB(15);T;:PRINT CHR$(13);
  9. 180 PRINT#2,LEFT$(A$,8)+"."+MID$(A$,9,3)+"   "+MID$(A$,12,60)
  10. 190 PRINT#2,"----"
  11. 200 GOTO 140
  12. 210 PRINT:PRINT"All Done!":CLOSE:END
  13.