home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / cmpres.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  47 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 PRINT"Setup":OPEN":SCFLUS"FOROUTPUTAS1:CLOSE
  11. 110 CLS:CLEAR1500,MAXRAM:MAXFILES=2:LINEINPUT"Dictionary File to Process ";F$:F$=CHR$(ASC(F$)AND95):R=0:PRINT
  12. 120 OPEN":ZD"+F$FORINPUTAS1:OPEN"SCWRK"FOROUTPUTAS2:PRINT"Phase 1 :ZD"F$" to full text
  13. 130 IFEOF(1)<>0THEN270ELSEZ=Z+1:PRINT@106,USING"####";Z;:LINEINPUT#1,A$:H$="":L$="":L=LEN(A$):P=1:IFFRE(0)<3000THENGOSUB220
  14. 140 IF A$=""THEN130
  15. 150 IFASC(MID$(A$,P,1))>127THEN170
  16. 160 L$=L$+MID$(A$,P,1):GOTO180
  17. 170 GOSUB200:L$=MID$(A$,P,1)
  18. 180 P=P+1:IFP>LTHENGOSUB200:GOTO130
  19. 190 GOTO150
  20. 200 IFASC(LEFT$(L$,1))>127THENL$=LEFT$(H$,ASC(LEFT$(L$,1))-128)+RIGHT$(L$,LEN(L$)-1)
  21. 210 PRINT#2,L$:H$=L$:L$="":RETURN
  22. 220 PRINT:PRINTCHR$(27)+"pFlushing Memory.."CHR$(27)+"q":CLOSE:OPEN":SCFLUS"FORAPPENDAS2:OPEN"scwrk"FORINPUTAS1
  23. 230 IFEOF(1)=0THENLINEINPUT#1,H$:PRINT#2,H$:GOTO230
  24. 240 CLOSE:OPEN"scwrk"FOROUTPUTAS2:OPEN":ZD"+F$FORINPUTAS1
  25. 250 LINEINPUT#1,H$:IFA$=H$THENPRINT@120,STRING$(39,32):RETURN
  26. 260 GOTO250
  27. 270 CLOSE:PRINT:PRINTTAB(8)"Moving File to disk.":OPEN"scwrk"FORINPUTAS1:OPEN":scflus"FORAPPENDAS2
  28. 280 IFEOF(1)=0THENLINEINPUT#1,A$ELSE310
  29. 290 IFINSTR(1,A$,"/")<>0ORINSTR(1,A$,"-")<>0THEN280
  30. 300 PRINT#2,A$:GOTO280
  31. 310 CLOSE:OPEN"scwrk"FOROUTPUTAS1:CLOSE:PRINT"Phase 2 Sorting":CLEAR0:CLEARFRE(0)-15000:DIMB$(900):OPEN":SCWRK"FOROUTPUTAS1:CLOSE
  32. 320 FORL=65TO90:B=99:PRINT@176,CHR$(L):CLOSE:OPEN"SCWRK"FOROUTPUTAS2
  33. 330 CLOSE#1:OPEN":SCFLUS"FORINPUTAS1
  34. 340 IFEOF(1)<>0THEN390
  35. 350 LINEINPUT#1,A$:O$=MID$(A$,2,1)
  36. 360 IFASC(O$)>LTHENIFASC(O$)<BTHENB=ASC(O$)
  37. 370 IFO$=CHR$(L)THENPRINT#2,A$
  38. 380 GOTO340
  39. 390 CLOSE:OPEN":SCWRK"FORAPPENDAS#2:OPEN"SCWRK"FORINPUTAS1:R=0
  40. 400 IFEOF(1)<>0THEN410ELSER=R+1:LINEINPUT#1,B$(R):GOTO400
  41. 410 FORX=1TOR:Z$=CHR$(254):FORY=1TOR
  42. 420 IFB$(Y)<Z$THENZ$=B$(Y):Z=Y
  43. 430 NEXTY:IFB$(Z)<>CHR$(255)THENPRINT#2,B$(Z):PRINT@200,B$(Z)"        "
  44. 440 B$(Z)=CHR$(255):NEXTX:CLOSE:L=B-1
  45. 450 NEXTL:CLOSE:PRINT@200,STRING$(39,32)
  46. 460 PRINT@160,"":RUN":CODER"
  47. 10 'Spell Checker    By Pat