home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / coder.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  27 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 CLEAR2000:MAXFILES=2:PRINT"Phase 3 Coding file
  11. 110 OPEN":SCWRK"FORINPUTAS1:OPEN"SCWRK"FOROUTPUTAS2
  12. 120 IFEOF(1)<>0THEN220ELSELINEINPUT#1,A$:N$=LEFT$(A$,1):IFA$=E$THEN120
  13. 130 IFINSTR(1,A$,"-")<>0 OR INSTR(1,A$,"/")<>0THEN120
  14. 140 E$=A$
  15. 150 FORX=LEN(A$)TO3STEP-1
  16. 160 IFLEFT$(A$,X)=LEFT$(H$,X)THEN210
  17. 170 NEXTX
  18. 180 IFH$=""THEN190ELSEPRINT#2,""
  19. 190 L=0:PRINT#2,A$;:L=LEN(A$)
  20. 200 PRINT@280,A$"      ";:H$=A$:GOTO120
  21. 210 IFL>245THEN180ELSEK$=CHR$(128+X)+RIGHT$(A$,LEN(A$)-X):PRINT#2,K$;:L=L+LEN(K$):GOTO200
  22. 220 CLOSE:PRINT@240,"Phase 4 Replacing :ZD"+N$:OPEN"SCWRK"FORINPUTAS1:OPEN":ZD"+N$FOROUTPUTAS2
  23. 230 IFEOF(1)=0THENLINEINPUT#1,A$:PRINT#2,A$:GOTO230
  24. 240 CLOSE:BEEP:PRINT"Dictionary Complete":LOAD":cmpres
  25. 10 'Spell Checker    By Patrick Ellison
  26. 20 '(C)1989 ALL RIGHTS RESERVED
  27. 30 'I grant a software licenc