home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / diff.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  23 lines
  1. 1 'DIFF.BA by Phil Wheeler 6/23/87
  2. 2 'revised by Robert Benson 3/1/96
  3. 10 MAXFILES=3:CLEAR1000:DEFSTRA-K:DEFINTL-Z:ONERRORGOTO27
  4. 11 A=" Enter 1st File ":B=" Enter 2nd File ":C=" <CR> to END":D=STRING$(12," "):E=CHR$(27)+"p":F=CHR$(27)+"q"
  5. 12 CLS:PRINTE" Text Comparer, Max Line Length 256 Chr."F;:FILES
  6. 13 X=CSRLIN:IFX=7THENX=6
  7. 14 PRINTE;A;F;C;:IFGG=""THENINPUTGGELSEPRINT"? "GG:GOTO17
  8. 15 IFGG=""GOTO29ELSEOPENGGFORINPUTAS1
  9. 16 Y=CSRLIN:IFY=7THENY=6
  10. 17 PRINT@X*40,A;D:PRINTE;B;F;C;:INPUTHH
  11. 18 IFHH=""GOTO29ELSEOPENHHFORINPUTAS2
  12. 19 PRINT@Y*40,B;D:PRINTE" Resultant File "F;C;:INPUTFF:OPENFFFOROUTPUTAS3
  13. 20 CLS:PRINT@175,"WORKING...."
  14. 21 N=N+1:LINEINPUT#1,G:LINEINPUT#2,H:IFG=HGOTO26
  15. 22 M=M+1:J=MID$(STR$(M),2,3):K=MID$(STR$(N),2,3):L=12-LEN(J+K)
  16. 23 PRINT#3,"***** ERROR #"J" "STRING$(L,"*")" LINE #"K" *****":PRINT#3,
  17. 24 PRINT#3,G:PRINT#3,STRING$(39,"-")
  18. 25 PRINT#3,H:PRINT#3,:BEEP
  19. 26 IFEOF(1)OREOF(2)ORN=24THENPRINT#3,CHR$(26);:GOTO29ELSE21
  20. 27 IFERL=15THENGG="":CLOSE1:RESUME12
  21. 28 IFERL=18THENHH="":CLOSE2:RESUME12
  22. 29 CLOSE:MAXFILES=1:MENU
  23.