home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG047.ARC / SW-CPM.BAS < prev    next >
BASIC Source File  |  1979-12-31  |  512b  |  19 lines
  1. 10 PRINT CHR$(26)
  2. 20 FILES : PRINT : PRINT
  3. 30 INPUT "Input Filename "; INFILE$
  4. 40 INPUT "Output Filename "; OUTFILE$
  5. 50 OPEN "I",#1,INFILE$
  6. 60 OPEN "O",#2,OUTFILE$
  7. 70 WHILE NOT EOF(1)
  8. 80    A$ = INPUT$(1,#1)
  9. 90    IF A$ = CHR$(30) THEN A$ = CHR$(141) + CHR$(10)    
  10. 100    IF A$ = CHR$(31) THEN A$ = CHR$(160)
  11. 110 IF A$ = CHR$(13) THEN A$ =  CHR$(13) + CHR$(10)
  12. 120    PRINT#2,A$;
  13. 130    PRINT A$;
  14. 140 WEND
  15. 150 CLOSE : END
  16. $ = CHR$(160)
  17. 110 IF A$ = CHR$(13) THEN A$ =  CHR$(13) + CHR$(10)
  18. 120    PRINT#2,A$;
  19. 130    PR