home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / dict.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  62 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 voice
  2. 1 'By Charles Arceneaux, "Creative Computing", Jun 83, Model 100 version by Russ Hall.
  3. 2 MAXFILES=2:CLEAR10000:DEFINTA-Z
  4. 4 PRINT:PRINT:PRINTTAB(8)"<S>pelling Checker":PRINTTAB(8)"<D>ictionary Builder":PRINT:GOSUB1000:IFK$="D"ORK$="d"THENDB=1:GOTO10
  5. 8 KEY1,"  R=":KEY2,"rcrd":KEY3,"  T=":KEY4,"temp":KEY5,"  N=":KEY6,"skip":KEY7,"  Q=":KEY8,"quit":SCREEN,1
  6. 10 DIMT$(122),W$(999):RV$=CHR$(27)+"p":NV$=CHR$(27)+"q"
  7. 20 PRINT"Loading words...":OPEN"WORDS.DO"FORINPUTAS1:INPUT#1,Z$:IFLEN(Z$)>4THENC=15:D=6ELSEC=5:D=2
  8. 30 IFEOF(1)THEN100
  9. 40 INPUT#1,A$:W$(A)=A$:A=A+1
  10. 70 GOTO30
  11. 100 CLOSE1:IFDB=1THENOPEN"TEMP.DO"FORINPUTAS1:PRINT"New words:":GOTO452
  12. 130 FORI=31TO122:READT$(I):NEXT
  13. 170 DATA =,=,=,=,=,=,=,=,',=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=
  14. 180 DATA =,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,=,=,=,=,=
  15. 190 DATA =,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
  16. 200 OPEN"TEMP.DO"FOROUTPUTAS2
  17. 210 BEEP:INPUT"Source Document";B$:B$=B$+".DO"
  18. 220 OPEN B$ FOR INPUTAS1
  19. 350 IFEOF(1)THEN870
  20. 355 IFDB=1THEN452
  21. 360 W$="":C$=INPUT$(1,1)
  22. 380 B$=T$(ASC(C$)):IFB$="="THEN350
  23. 400 IFEOF(1)THEN870
  24. 410 W$=W$+B$:C$=INPUT$(1,1)
  25. 420 B$=T$(ASC(C$)):IFB$="="THEN450
  26. 440 GOTO400
  27. 450 PRINT" "W$;
  28. 452 IFDB=1THENIFEOF(1)THEN870
  29. 454 IFDB=1THENINPUT#1,W$:PRINTW$", ";
  30. 460 IFLEN(W$)<DTHEN350
  31. 465 IFLEN(W$)>15THENPRINTRV$"¢-LEN REJECT"NV$;:GOTO350
  32. 470 H=A-1:L=0:S=INT(H/2)
  33. 480 IFW$=W$(S)THEN350
  34. 490 IFW$<W$(S)THENH=S:S=INT((H-L)/2+L):GOTO510
  35. 500 IFW$>W$(S)THENL=S:S=INT((H-L)/2+L)
  36. 510 IFH-L>1THEN480
  37. 520 IFW$=W$(H)THEN350
  38. 530 IFW$=W$(L)THEN350
  39. 540 K=L
  40. 550 IFW$(L)<W$THENK=H
  41. 560 IFDB=1THEN620
  42. 565 IFLEN(W$)>CTHEN350
  43. 570 PRINTRV$"¢-Misspelled";NV$;:GOSUB1000
  44. 590 IFK$="Q"ORK$="q"THEN870
  45. 600 IFK$="R"ORK$="r"THEN620
  46. 605 IFK$="T"ORK$="t"THEN615
  47. 610 GOTO350
  48. 615 PRINT#2,W$",";:GOTO350
  49. 620 IFK<>0THEN670
  50. 630 FORJ=ATO1STEP-1:W$(J)=W$(J-1):NEXT:GOTO700
  51. 670 FORJ=ATOKSTEP-1:W$(J)=W$(J-1):NEXT
  52. 700 W$(K)=W$:A=A+1
  53. 730 IFDB=1THEN452ELSEGOTO350
  54. 870 PRINT"END OF WORK..."
  55. 924 CLOSE1:KILL"WORDS.DO":OPEN"WORDS.DO"FOROUTPUTAS1:PRINT#1,Z$",";
  56. 925 FORI=0TOA-1:PRINT#1,W$(I)",";:NEXT
  57. 930 PRINT"FILE 'WORDS.DO' REWRITTEN."
  58. 940 IFDB=1THENKILL"TEMP.DO"
  59. 950 CALL23164,0,23366:CALL27795:SCREEN,0:BEEP:END
  60. 1000 K$=INKEY$:IFK$=""THEN1000
  61. 1010 RETURN
  62.