0 ' Club 100 Library - 415/939-1246 BBS 937-5039 NEWSLETTER, 392-8856 VOICE 5 ' TYPING ERROR FINDER. 6 ' 7 ' 10 CLEARFRE(0)-2500:DEFINTA-T:DEFSTRU-Z:ONERRORGOTO400:CLS:SCREEN0,0:PRINT:FILES:INPUT"Which file to check";U:M=LEN(U):FORK=1TOM:IFASC(MID$(U,K,1))>96THENMID$(U,K)=(CHR$(ASC(MID$(U,K,1))-32)+RIGHT$(U,M-K)) 15 IF U="Menu"THEN MENU 20 NEXT:IFINSTR(U,".")THENM=M-3ELSEU=U+".DO" 30 CLS:PRINT@280,TIME$:OPENUFORINPUTAS1:X=U 36 A=ASC(INPUT$(1,1)):IFEOF(1)THEN45ELSEIFA=32THENS=S+1:PRINT@40,S 40 GOTO36 45 S=70+(.70*S)-(.00032*S^2) 50 CLOSE:DIMW(S),F(S):GOSUB200:C=50:K=0 51 OPENUFORINPUTAS1 52 A=ASC(INPUT$(1,1)):IFEOF(1)THEN70ELSEIFA>90GOTO53ELSEIFA>64THENA=A+32ELSEIFA>33GOTO53ELSEIFA=32ORA=13GOTO54ELSE52 53 Z=Z+CHR$(A):GOTO52 54 IFLEN(Z)<1ANDF<2THEN52ELSEA=ASC(RIGHT$(Z,1)):IFA<48ORA>122OR(A>57ANDA<65)OR(A>90ANDA<97)THENZ=LEFT$(Z,LEN(Z)-1):IFLEN(Z)>0GOTO54ELSE59 55 A=ASC(LEFT$(Z,1)):IFA<48ORA>122OR(A>57ANDA<65)OR(A>90ANDA<97)THENZ=RIGHT$(Z,LEN(Z)-1):IFLEN(Z)>0GOTO55ELSE59 56 IFF>0THENJ=50ELSEIFZ=U(0)THENK=K+1:U(K)=Z:ELSEU(0)=Z 57 J=J+1:IFZ=W(J)THENF(J)=F(J)+1:GOTO59:ELSEIFJ<=CTHEN57:ELSEIFF<1THENPRINT@121,C:C=C+1:W(C)=Z 59 J=0:IFBMOD2THENPRINT@90," WAIT "ELSEPRINT@90,CHR$(27);"p WAIT ";CHR$(27)+"q" 60 B=B+1:Z="":IFF<2GOTO52 70 IFF<1THENU="":F=1:ELSERETURN 71 CLOSE:V2=TIME$:PRINT@260,V2;:FORD=-1408TO-1639STEP-11:IFPEEK(D)THENFORH=0TO7:U=U+CHR$(PEEK(D+3+H)):NEXT:PRINT@165,U:IF(RIGHT$(U,2)="DO"ANDLEFT$(X,M)<>LEFT$(U,M))THENGOSUB51 74 CLOSE:U="":NEXT 76 F=2:Z="e":FORII=129TO608:IFPEEK(II)>128THENGOSUB56:PRINTZ:Z=CHR$(PEEK(II)-96):ELSEIFPEEK(II)>64THENZ=Z+CHR$(PEEK(II)+32) 78 NEXT 80 CLS:BEEP:PRINT@85,"STANDBY FOR RESULTS":V1=TIME$:PRINTV1:FORI=1TO1000:NEXT:BEEP:FORI=51TOC:IFF(I)>0THEN90ELSEPRINT" ";W(I):B=B+1:IFBMOD7THEN90ELSEPRINT"HIT ANY KEY TO CONTINUE"; 87 Y=INKEY$:IFY=""THEN87ELSEPRINT 90 NEXT:IFK>0THENPRINT"The Following words appear to be doubled":FORI=1TO1000:NEXT:FORI=1TOK:PRINT" ";U(I):NEXT 94 PRINT"*****ALL DONE*****" 96 QW$=INKEY$:IFQW$=""THEN 96 98 IFQW$="B" THEN MENU 100 IFQW$="M" THEN RUN 110 IFQW$="A" THEN 80 ELSE 96 200 W(1)="the":W(2)="of":W(3)="and":W(4)="to":W(5)="a":W(6)="in":W(7)="that":W(8)="is":W(9)="was":W(10)="he":W(11)="for":W(12)="it":W(13)="with":W(14)="as":W(15)="his":W(16)="on":W(17)="be":W(18)="at":W(19)="by":W(20)="i":W(21)="this":W(22)="had" 210 W(23)="not":W(24)="are":W(25)="but":W(26)="from":W(27)="or":W(28)="have":W(29)="an":W(30)="they":W(31)="which":W(32)="one":W(33)="were":W(34)="you":W(35)="all":W(36)="her":W(37)="she":W(38)="there":W(39)="would":W(40)="their":W(41)="we" 220 W(42)="him":W(43)="been":W(44)="has":W(45)="when":W(46)="who":W(47)="will":W(48)="no":W(49)="more":W(50)="if":RETURN 400 PRINT@280,"Error=";ERR,"in line";ERL;:T=VAL(RIGHT$(TIME$,2)) 410 PRINTSTRING$(20,7); 420 IFVAL(RIGHT$(TIME$,2))=TTHEN410ELSEM$=INKEY$:IFM$=""GOTO420ELSERUN