home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / splchk.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  31 lines

  1. 0 'SPLCHK.BA  Copyright 1986 David W. Willman
  2. 1 CLEAR256:GOSUB12:PRINT"Insert Dictionary disk #1 in drive then":GOSUB24
  3. 2 MAXFILES=3:DIMF(25):DN=1:ONERRORGOTO22:FORN=65TO90:GOSUB11:GOSUB25:F(N-65)=DN:CLOSE:NEXT
  4. 3 GOSUB12:FILES:LINEINPUT"What file to check: ";A$:IFA$=""THEN17ELSEIFRIGHT$(A$,3)<>".DO"THENA$=A$+".DO"
  5. 4 F$=A$:C$=A$:OPENF$FORINPUTAS2:OPEN"SUSPEC"FOROUTPUTAS3:C=0:D$=""
  6. 5 IFEOF(2)THEN18ELSEGOSUB19
  7. 6 IFN=CTHEN7ELSECLOSE1:IFDN=F(N-65)THENGOSUB28ELSEDN=F(N-65):GOSUB29:GOSUB12:GOSUB20:GOSUB24:GOSUB28
  8. 7 IFB$=D$THEN5ELSEIFB$<D$THEN9
  9. 8 IFEOF(1)THEN10ELSELINEINPUT#1,D$:IFD$=B$THEN5ELSEIFD$<B$THEN8
  10. 9 PRINT#3,B$:GOTO5
  11. 10 PRINT#3,B$:IFEOF(2)THEN18ELSEGOSUB19:IFC=NTHEN10ELSE6
  12. 11 F$="0:DICT-"+CHR$(N)+".DO":RETURN
  13. 12 BEEP:CLS:PRINT:RETURN
  14. 13 PRINTCHR$(27)"p";:RETURN
  15. 14 PRINTCHR$(27)"q";:RETURN
  16. 15 IFF$=A$THENGOSUB13:PRINT"File "F$" was not found.":GOSUB14:GOSUB24:GOTO17ELSE26
  17. 16 GOSUB13:PRINT"Error #"ERR"in Line #"ERL:GOSUB14:RETURN
  18. 17 CLEAR256:MAXFILES=1:BEEP:MENU
  19. 18 CLOSE:KILLC$:OPEN"SUSPEC"FORINPUTAS3:IFNOTEOF(3)THEN17ELSECLOSE:KILL"SUSPEC.DO":GOSUB12:PRINT"All words appear in dictionary.":GOSUB24:GOTO17
  20. 19 INPUT#2,B$:N=ASC(LEFT$(B$,1))-32:RETURN
  21. 20 GOSUB13:PRINT"Please insert Dictionary disk #"STR$(DN)".":GOSUB14:RETURN
  22. 21 GOSUB13:PRINT"Please remove disk and turn on drive.":GOSUB14:RETURN
  23. 22 GOSUB29:GOSUB12:IFERR=52THEN15ELSEIFERR=68THENGOSUB20:GOSUB24:GOTO2ELSEIFERR=71THENGOSUB21:GOSUB24:GOTO1ELSEGOSUB16:GOSUB24:GOTO17
  24. 23 CLS:PRINT:PRINT"Checking Dictionary file "F$:RETURN
  25. 24 PRINT"Hit any key to continue.(Q=Quit)";:K$=INPUT$(1):IFK$="Q"ORK$="q"THEN17ELSERETURN
  26. 25 OPENF$FORINPUTAS1:RETURN
  27. 26 IFN=65THENDN=1ELSEDN=DN+1
  28. 27 GOSUB20:GOSUB24:A$=F$:RESUME
  29. 28 C=N:GOSUB11:A$=F$:GOSUB25:GOTO23
  30. 29 FORK=0TO600:NEXT:RETURN
  31.