home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / match.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  36 lines
  1. 0 'MATCH.100 (v3.0)  Bill Templeton   [75655,1056]  27Apr87
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE 
  3. 2 ' Copyright 1987  All rights reserved
  4. 3 ' Compares contents of 2 ASCII files
  5. 4 '   .DO - no conversion required
  6. 5 '   .BA - convert to ASCII (.DO)
  7. 6 '   .CO - convert to ASCII (.DO)
  8. 7 ' POKE63038,0... turns scroll `on'
  9. 8 ' To return to Menu, early in program
  10. 9 '    press 'q', 'Q' or 'ESC'
  11. 10 CLEAR1000:MAXFILES=3:DEFSTRE,N,R:E=CHR$(27):R=E+"p":N=E+"q
  12. 11 CLS:PRINT@0,RSPACE$(15)"MATCH.100"SPACE$(16)N;:POKE63038,191:ONERRORGOTO26
  13. 12 FILES:PRINT@280,R" Name of File A (.DO): "N;:INPUTA$:PRINTSPACE$(39):PRINTR" Name of File B (.DO): "N;:INPUTB$
  14. 13 IFINSTR("qQ",A$)ORINSTR("qQ",B$)THENMENU
  15. 14 CLOSE:OPENA$FORINPUTAS1:OPENB$FORINPUTAS2
  16. 15 PRINTR" Output to: 1-LCD  2-RAM  3-DSK  4-LPT "N;:Q$=INPUT$(1):Q=VAL(Q$):PRINTN:PRINTSPACE$(39):IFQ$=ETHENMENU
  17. 16 IFQ<1ORQ>4THEN15
  18. 17 IFQ=1THENF$="lcd:
  19. 18 IFQ=2THENF$="tigers
  20. 19 IFQ=3THENGOSUB28:F$="0:tigers.do
  21. 20 IFQ=4THENGOSUB29:F$="lpt:
  22. 21 OPENF$FOROUTPUTAS3:CLS:PRINT@133,R"  Working...  "N:PRINT@280,:PRINT#3,"<<< START >>>
  23. 22 LINEINPUT#1,X$:LINEINPUT#2,Y$:IFX$<>Y$THENBEEP:PRINT#3,"---":PRINT#3,X$:PRINT#3,Y$:PRINT#3,"---":X$="":Y$="
  24. 23 IFEOF(1)ANDEOF(2)THENSOUND3900,7:SOUND3900,7:PRINT#3,"<<< EOF 1 and 2 >>>":MAXFILES=1:MENU
  25. 24 IFEOF(1)THENSOUND3300,7:SOUND3300,7:PRINT#3,"<<< EOF 1 >>>":MAXFILES=1:MENU
  26. 25 IFEOF(2)THENSOUND2900,7:SOUND2900,7:PRINT#3,"<<< EOF 2 >>>":MAXFILES=1:MENUELSE22
  27. 26 IFERR=52THENPRINTRSPACE$(8)"Enter correct filenames!"SPACE$(8)N:FORT=1TO999:NEXT:RESUME11
  28. 27 IFERRTHENPRINTRSPACE$(11)"Error"ERR"in line"ERLSPACE$(11)N:END
  29. 28 IFINP(130)AND7=2THENPRINTRSPACE$(11)"Connect Disk Drive"SPACE$(11)N:FORT=1TO999:NEXT:GOTO15ELSERETURN
  30. 29 IFINP(187)AND6THENPRINTRSPACE$(13)"Is Printer on?"SPACE$(13)N:FORT=1TO999:NEXT:GOTO15ELSE21
  31. 30 '        *** Optional ***
  32. 31 'To input a CHARACTER, instead of a   LINE, at a time from each file,
  33. 32 'Save memory... delete CLEAR1000         in line 10
  34. 33 'change line 22 to:                      X$=INPUT$(1,1):Y$=INPUT$(1,2)...
  35. 34 'WARNING - it takes about 8 times longer to compare 2 files!
  36.