10 'Spell Checker    By Patrick Ellison
20 '(C)1989 ALL RIGHTS RESERVED
30 'I grant a software licence to any
40 'user that downloads this program
50 'to use any way seen fit. But I
60 'retain ALL ownership to the
70 'programming as long as the
80 'copyright notice stays on ALL
90 'copies TKS. MICRO ACE 703-641-4863
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)
110 LINEINPUT"File to Check->RAM:";F$:OPEN"terms"FORAPPENDAS1:CLOSE#1:OPENF$FORINPUTAS1
120 BK$="›"+CHR$(8):ES$=" "+CHR$(8)
130 IFEOF(1)<>0THENENDELSELINEINPUT#1,A$:RR=RR+1:PRINT:T=T+LEN(A$):A$=A$+" ":L=LEN(A$):IFL=0THENT=T+1:GOTO130
140 GOSUB330:FORX=1TOL:I$=INKEY$:B$=MID$(A$,X,1):PRINTB$;:D$=B$:IFB$="'"THENW$=W$+"'":GOTO170
150 IFINSTR(1,"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ",B$)<>0THEN160ELSE180
160 W$=W$+CHR$(ASC(B$)AND95)
170 IFX>LTHEN130ELSENEXTX
180 IFLEN(W$)<2THENW$="":GOTO170ELSEIFLEFT$(W$,1)="'"THENW$=RIGHT$(W$,LEN(W$)-1)
190 CLOSE#2:OPEN"terms"FORINPUTAS2
200 IFEOF(2)=0THENLINEINPUT#2,C$ELSE230
210 IFC$=W$THENW$="":GOTO170
220 GOTO200
230 CLOSE#2:OPEN":ZD"+LEFT$(W$,1)FORINPUTAS2
240 GOTO350
250 CLOSE#2:PRINTES$;:BEEP:FORS=0TOLEN(W$):PRINTCHR$(8);:NEXTS
260 PRINTCHR$(27)+"p";:PRINTW$;:PRINTCHR$(27)+"q";
270 I$=INKEY$:IFI$="S"ORI$="s"THEN290ELSEIFI$="A"ORI$="a"THEN300ELSEIFI$="i"ORI$="I"THEN320
280 GOTO270
290 OPEN"terms"FORAPPENDAS2:PRINT#2,W$:GOTO310
300 OPEN":ZD"+LEFT$(W$,1)FORAPPENDAS2:PRINT#2,W$
310 CLOSE#2
320 PRINTD$;:W$="":GOTO170
330 T$=STR$(T)+" Bytes"+STR$(RR)+" Lines  Spell Ver 1.10"
340 FORTT=1TOLEN(T$):POKE65063+TT,ASC(MID$(T$,TT,1)):NEXTTT:RETURN
350 IFEOF(2)<>0THEN250ELSELINEINPUT#2,C$:LC=LEN(C$):PC=1:LW=LEN(W$):IFLW>3THENLW=3
360 IFLEFT$(C$,LW)<>LEFT$(W$,LW)THEN350
370 PRINTBK$;:L$="":PC=1
380 IFPC>LCTHEN410
390 T$=MID$(C$,PC,1):IFASC(T$)>127THEN410
400 L$=L$+T$:PC=PC+1:IFPC>LCTHEN410ELSE380
410 IFASC(LEFT$(L$,1))>127THENL$=LEFT$(HC$,ASC(LEFT$(L$,1))-128)+RIGHT$(L$,LEN(L$)-1)
420 HC$=L$:IFL$=W$THENPRINTES$;:W$="":GOTO170
430 IFPC>LCTHENPRINTES$;:GOTO350ELSEL$=T$:PC=PC+1:GOTO380
10 'Spell Checker    By Patrick Ellison
20 '(C)1989 ALL RIGHTS RESERVED
30 'I grant a softwar