home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / basic / fc13.zip / FC.BAS next >
BASIC Source File  |  1985-08-18  |  774b  |  24 lines
  1. 10 INPUT "Enter original file name-",IF1$:OPEN IF1$ FOR INPUT  AS 1
  2. 20 INPUT "Enter modified file name-",IF2$:OPEN IF2$ FOR INPUT  AS 2
  3. 30 INPUT "Enter   change file name-",OF$: OPEN OF$  FOR OUTPUT AS 3
  4. 40 GOSUB 90:GOSUB 160
  5. 50 IF N1=N2 THEN IF L1$=L2$ THEN 40 ELSE PRINT #3,L2$:GOTO 40
  6. 60 IF N1>N2 THEN PRINT #3,L2$: GOSUB 160: GOTO 50
  7. 70 PRINT #3,N1
  8. 80 GOSUB 90: GOTO 50
  9. 90 IF EOF(1) THEN 110
  10. 100 LINE INPUT #1,L1$: N1=VAL(L1$): RETURN
  11. 110 IF NOT EOF(2) THEN PRINT #3,L2$
  12. 120 WHILE NOT EOF(2)
  13. 130 LINE INPUT #2,L2$:PRINT #3,L2$
  14. 140 WEND
  15. 150 GOTO 220
  16. 160 IF EOF(2) THEN 180
  17. 170 LINE INPUT #2,L2$: N2=VAL(L2$): RETURN
  18. 180 PRINT #3,N1
  19. 190 WHILE NOT EOF(1)
  20. 200 LINE INPUT #1,L1$: N2=VAL(L1$):PRINT #3,N2
  21. 210 WEND
  22. 220 CLOSE:PRINT "End of scan"
  23. 230 END
  24.