home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / typo.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  41 lines
  1. 0 ' Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 392-8856 VOICE
  2. 5 ' TYPING ERROR FINDER.
  3. 6 '
  4. 7 '
  5. 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))
  6. 15 IF U="Menu"THEN MENU
  7. 20 NEXT:IFINSTR(U,".")THENM=M-3ELSEU=U+".DO"
  8. 30 CLS:PRINT@280,TIME$:OPENUFORINPUTAS1:X=U
  9. 36 A=ASC(INPUT$(1,1)):IFEOF(1)THEN45ELSEIFA=32THENS=S+1:PRINT@40,S
  10. 40 GOTO36
  11. 45 S=70+(.70*S)-(.00032*S^2)
  12. 50 CLOSE:DIMW(S),F(S):GOSUB200:C=50:K=0
  13. 51 OPENUFORINPUTAS1
  14. 52 A=ASC(INPUT$(1,1)):IFEOF(1)THEN70ELSEIFA>90GOTO53ELSEIFA>64THENA=A+32ELSEIFA>33GOTO53ELSEIFA=32ORA=13GOTO54ELSE52
  15. 53 Z=Z+CHR$(A):GOTO52
  16. 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
  17. 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
  18. 56 IFF>0THENJ=50ELSEIFZ=U(0)THENK=K+1:U(K)=Z:ELSEU(0)=Z
  19. 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
  20. 59 J=0:IFBMOD2THENPRINT@90," WAIT "ELSEPRINT@90,CHR$(27);"p WAIT ";CHR$(27)+"q"
  21. 60 B=B+1:Z="":IFF<2GOTO52
  22. 70 IFF<1THENU="":F=1:ELSERETURN
  23. 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
  24. 74 CLOSE:U="":NEXT
  25. 76 F=2:Z="e":FORII=129TO608:IFPEEK(II)>128THENGOSUB56:PRINTZ:Z=CHR$(PEEK(II)-96):ELSEIFPEEK(II)>64THENZ=Z+CHR$(PEEK(II)+32)
  26. 78 NEXT
  27. 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";
  28. 87 Y=INKEY$:IFY=""THEN87ELSEPRINT
  29. 90 NEXT:IFK>0THENPRINT"The Following words appear to be doubled":FORI=1TO1000:NEXT:FORI=1TOK:PRINT"    ";U(I):NEXT
  30. 94 PRINT"*****ALL DONE*****"
  31. 96 QW$=INKEY$:IFQW$=""THEN 96
  32. 98 IFQW$="B" THEN MENU
  33. 100 IFQW$="M" THEN RUN
  34. 110 IFQW$="A" THEN 80 ELSE 96
  35. 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"
  36. 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"
  37. 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
  38. 400 PRINT@280,"Error=";ERR,"in line";ERL;:T=VAL(RIGHT$(TIME$,2))
  39. 410 PRINTSTRING$(20,7);
  40. 420 IFVAL(RIGHT$(TIME$,2))=TTHEN410ELSEM$=INKEY$:IFM$=""GOTO420ELSERUN
  41.