home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / spell.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  46 lines
  1. 10 'Spell Checker    By Patrick Ellison
  2. 20 '(C)1989 ALL RIGHTS RESERVED
  3. 30 'I grant a software licence to any
  4. 40 'user that downloads this program
  5. 50 'to use any way seen fit. But I
  6. 60 'retain ALL ownership to the
  7. 70 'programming as long as the
  8. 80 'copyright notice stays on ALL
  9. 90 'copies TKS. MICRO ACE 703-641-4863
  10. 100 CLS:PRINTCHR$(27)+"Q";:MAXFILES=3:CLEAR1500,MAXRAM:PRINT"Spell Checker    Ver 1.10":PRINT"(C)1989 By Patrick Ellison":PRINT:FILES:LINE(0,20)-(200,20):LINE-(200,0):LINE(0,18)-(198,18):LINE-(198,0)
  11. 110 LINEINPUT"File to Check->RAM:";F$:OPEN"terms"FORAPPENDAS1:CLOSE#1:OPENF$FORINPUTAS1
  12. 120 BK$="¢"+CHR$(8):ES$=" "+CHR$(8)
  13. 130 IFEOF(1)<>0THENENDELSELINEINPUT#1,A$:RR=RR+1:PRINT:T=T+LEN(A$):A$=A$+" ":L=LEN(A$):IFL=0THENT=T+1:GOTO130
  14. 140 GOSUB330:FORX=1TOL:I$=INKEY$:B$=MID$(A$,X,1):PRINTB$;:D$=B$:IFB$="'"THENW$=W$+"'":GOTO170
  15. 150 IFINSTR(1,"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ",B$)<>0THEN160ELSE180
  16. 160 W$=W$+CHR$(ASC(B$)AND95)
  17. 170 IFX>LTHEN130ELSENEXTX
  18. 180 IFLEN(W$)<2THENW$="":GOTO170ELSEIFLEFT$(W$,1)="'"THENW$=RIGHT$(W$,LEN(W$)-1)
  19. 190 CLOSE#2:OPEN"terms"FORINPUTAS2
  20. 200 IFEOF(2)=0THENLINEINPUT#2,C$ELSE230
  21. 210 IFC$=W$THENW$="":GOTO170
  22. 220 GOTO200
  23. 230 CLOSE#2:OPEN":ZD"+LEFT$(W$,1)FORINPUTAS2
  24. 240 GOTO350
  25. 250 CLOSE#2:PRINTES$;:BEEP:FORS=0TOLEN(W$):PRINTCHR$(8);:NEXTS
  26. 260 PRINTCHR$(27)+"p";:PRINTW$;:PRINTCHR$(27)+"q";
  27. 270 I$=INKEY$:IFI$="S"ORI$="s"THEN290ELSEIFI$="A"ORI$="a"THEN300ELSEIFI$="i"ORI$="I"THEN320
  28. 280 GOTO270
  29. 290 OPEN"terms"FORAPPENDAS2:PRINT#2,W$:GOTO310
  30. 300 OPEN":ZD"+LEFT$(W$,1)FORAPPENDAS2:PRINT#2,W$
  31. 310 CLOSE#2
  32. 320 PRINTD$;:W$="":GOTO170
  33. 330 T$=STR$(T)+" Bytes"+STR$(RR)+" Lines  Spell Ver 1.10"
  34. 340 FORTT=1TOLEN(T$):POKE65063+TT,ASC(MID$(T$,TT,1)):NEXTTT:RETURN
  35. 350 IFEOF(2)<>0THEN250ELSELINEINPUT#2,C$:LC=LEN(C$):PC=1:LW=LEN(W$):IFLW>3THENLW=3
  36. 360 IFLEFT$(C$,LW)<>LEFT$(W$,LW)THEN350
  37. 370 PRINTBK$;:L$="":PC=1
  38. 380 IFPC>LCTHEN410
  39. 390 T$=MID$(C$,PC,1):IFASC(T$)>127THEN410
  40. 400 L$=L$+T$:PC=PC+1:IFPC>LCTHEN410ELSE380
  41. 410 IFASC(LEFT$(L$,1))>127THENL$=LEFT$(HC$,ASC(LEFT$(L$,1))-128)+RIGHT$(L$,LEN(L$)-1)
  42. 420 HC$=L$:IFL$=W$THENPRINTES$;:W$="":GOTO170
  43. 430 IFPC>LCTHENPRINTES$;:GOTO350ELSEL$=T$:PC=PC+1:GOTO380
  44. 10 'Spell Checker    By Patrick Ellison
  45. 20 '(C)1989 ALL RIGHTS RESERVED
  46. 30 'I grant a softwar