0 'SPLCHK.BA Copyright 1986 David W. Willman 1 CLEAR256:GOSUB12:PRINT"Insert Dictionary disk #1 in drive then":GOSUB24 2 MAXFILES=3:DIMF(25):DN=1:ONERRORGOTO22:FORN=65TO90:GOSUB11:GOSUB25:F(N-65)=DN:CLOSE:NEXT 3 GOSUB12:FILES:LINEINPUT"What file to check: ";A$:IFA$=""THEN17ELSEIFRIGHT$(A$,3)<>".DO"THENA$=A$+".DO" 4 F$=A$:C$=A$:OPENF$FORINPUTAS2:OPEN"SUSPEC"FOROUTPUTAS3:C=0:D$="" 5 IFEOF(2)THEN18ELSEGOSUB19 6 IFN=CTHEN7ELSECLOSE1:IFDN=F(N-65)THENGOSUB28ELSEDN=F(N-65):GOSUB29:GOSUB12:GOSUB20:GOSUB24:GOSUB28 7 IFB$=D$THEN5ELSEIFB$