0 'Club 100 Library - 415/939-1246 BBS 937-5039 NEWSLETTER, 932-8856 voice 1 'By Charles Arceneaux, "Creative Computing", Jun 83, Model 100 version by Russ Hall. 2 MAXFILES=2:CLEAR10000:DEFINTA-Z 4 PRINT:PRINT:PRINTTAB(8)"pelling Checker":PRINTTAB(8)"ictionary Builder":PRINT:GOSUB1000:IFK$="D"ORK$="d"THENDB=1:GOTO10 8 KEY1," R=":KEY2,"rcrd":KEY3," T=":KEY4,"temp":KEY5," N=":KEY6,"skip":KEY7," Q=":KEY8,"quit":SCREEN,1 10 DIMT$(122),W$(999):RV$=CHR$(27)+"p":NV$=CHR$(27)+"q" 20 PRINT"Loading words...":OPEN"WORDS.DO"FORINPUTAS1:INPUT#1,Z$:IFLEN(Z$)>4THENC=15:D=6ELSEC=5:D=2 30 IFEOF(1)THEN100 40 INPUT#1,A$:W$(A)=A$:A=A+1 70 GOTO30 100 CLOSE1:IFDB=1THENOPEN"TEMP.DO"FORINPUTAS1:PRINT"New words:":GOTO452 130 FORI=31TO122:READT$(I):NEXT 170 DATA =,=,=,=,=,=,=,=,',=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,= 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,=,=,=,=,= 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 200 OPEN"TEMP.DO"FOROUTPUTAS2 210 BEEP:INPUT"Source Document";B$:B$=B$+".DO" 220 OPEN B$ FOR INPUTAS1 350 IFEOF(1)THEN870 355 IFDB=1THEN452 360 W$="":C$=INPUT$(1,1) 380 B$=T$(ASC(C$)):IFB$="="THEN350 400 IFEOF(1)THEN870 410 W$=W$+B$:C$=INPUT$(1,1) 420 B$=T$(ASC(C$)):IFB$="="THEN450 440 GOTO400 450 PRINT" "W$; 452 IFDB=1THENIFEOF(1)THEN870 454 IFDB=1THENINPUT#1,W$:PRINTW$", "; 460 IFLEN(W$)15THENPRINTRV$"›-LEN REJECT"NV$;:GOTO350 470 H=A-1:L=0:S=INT(H/2) 480 IFW$=W$(S)THEN350 490 IFW$W$(S)THENL=S:S=INT((H-L)/2+L) 510 IFH-L>1THEN480 520 IFW$=W$(H)THEN350 530 IFW$=W$(L)THEN350 540 K=L 550 IFW$(L)CTHEN350 570 PRINTRV$"›-Misspelled";NV$;:GOSUB1000 590 IFK$="Q"ORK$="q"THEN870 600 IFK$="R"ORK$="r"THEN620 605 IFK$="T"ORK$="t"THEN615 610 GOTO350 615 PRINT#2,W$",";:GOTO350 620 IFK<>0THEN670 630 FORJ=ATO1STEP-1:W$(J)=W$(J-1):NEXT:GOTO700 670 FORJ=ATOKSTEP-1:W$(J)=W$(J-1):NEXT 700 W$(K)=W$:A=A+1 730 IFDB=1THEN452ELSEGOTO350 870 PRINT"END OF WORK..." 924 CLOSE1:KILL"WORDS.DO":OPEN"WORDS.DO"FOROUTPUTAS1:PRINT#1,Z$","; 925 FORI=0TOA-1:PRINT#1,W$(I)",";:NEXT 930 PRINT"FILE 'WORDS.DO' REWRITTEN." 940 IFDB=1THENKILL"TEMP.DO" 950 CALL23164,0,23366:CALL27795:SCREEN,0:BEEP:END 1000 K$=INKEY$:IFK$=""THEN1000 1010 RETURN