home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / fixlib.bas < prev    next >
Encoding:
BASIC Source File  |  1984-09-30  |  512 b   |  13 lines
  1. 5 INPUT "File name (no extension)?",NAM$
  2. 7 PRINT "Output file will be ";NAM$;".new"
  3. 10 OPEN NAM$+".lbr" AS #1 LEN=128
  4. 20 FIELD #1,128 AS L$
  5. 30 GET #1
  6. 40 OPEN NAM$+".new" FOR OUTPUT AS #2
  7. 50 WHILE NOT EOF(1)
  8. 60 GET #1
  9. 70 A$=L$
  10. 80 PRINT #2,A$;
  11. 90 WEND
  12. 100 CLOSE: END
  13.