BeebDisk/SPELL

Home » Archimedes archive » Acorn Computing » 1994 03 subscription disc.adf » 9403s » BeebDisk/SPELL

BeebDisk/SPELL

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Acorn Computing » 1994 03 subscription disc.adf » 9403s
Filename:	BeebDisk/SPELL
Read OK:	✔
File size:	1C3B bytes
Load address:	0000
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Archimedes archive » Acorn Computing » 1994 03 subscription disc.adf » 9403s » BeebDisk/SPELL
AEW website » mu » mu_5_25_discs_Micro_User_12_01_D-MU12_01.ssd » SPELL

File contents

   10REM"��p�p� �����ʠ* ���B ���. ���p ���P ���A ���. ���= ���6 ���4 ���0 ���0 ���p ���O ���. ���p ���R ���U ���N ���� ��� ���pL��***************************************************************************************************
   20REM Cumulative Dictionary
   30REM by Mark R.Bannister 1993
   40REM
   50MODE7:VDU23;8202;0;0;0;
   60CLOSE#0:Z=RND(-TIME)
   70DIM code% 400,M$(4)
   80DIM ptr(9),f$(9),cum$(500)
   90C%=RND(4)+129
  100PROCassemble
  110*FX4,1
  120ONERRORCLOSE#0:IFERR<>17:A%=4:X%=0:Y%=0:CALL&FFF4:MODE7:REPORT:PRINT:END ELSEVDU26,12
  130FORI=0 TO1:PRINTCHR$(C%)CHR$157CHR$(C%+2)CHR$141SPC6"Cumulative Dictionary":NEXT
  140PRINTCHR$(C%+2)CHR$157CHR$(C%)SPC5"by Mark R. Bannister 1993"
  150REPEATreturn%=FALSE
  160RESTORE330:VDU28,4,24,39,7
  170FORM%=0 TO4:READM$(M%):PRINTSPC2CHR$(C%)M$(M%):IFM%=0 ORM%=3:PRINT
  180NEXT:ch%=0:oh%=FNhighlight(0,10)
  190*FX21
  200REPEAT:REPEAT
  210REPEATk%=GET-138:UNTILk%=0 ORk%=1 ORk%=-125
  220k%=-k%*2+1:UNTIL((ch%+k%)>-1 AND(ch%+k%)<5)ORk%=251
  230IFk%<>251:ch%=ch%+k%:oh%=FNhighlight(ch%,oh%) ELSEreturn%=TRUE
  240UNTILreturn%
  250VDU28,0,24,39,6
  260IFch%=0:PROCword_check
  270IFch%=1:PROCcreate
  280IFch%=2:PROCview
  290IFch%=3:PROCcount_files
  300IFch%=4:CLOSE#0:A%=4:X%=0:Y%=0:CALL&FFF4:MODE7:END
  310CLS
  320UNTILFALSE
  330DATAWord check ascii file,Create new dictionary files,View/edit dictionary,Count words,Quit
  340DEFFNhighlight(h%,oh%):h%=h%*2:IFh%>2:h%=h%-1
  350IFh%>4:h%=h%-1
  360PRINTTAB(0,h%)CHR$(C%)CHR$157CHR$(C%+2)TAB(0,oh%)SPC2CHR$(C%)TAB(32,h%)CHR$156
  370=h%
  380DEFFNyn:*FX21
  390PRINT" (Y/N)";
  400REPEATA$=CHR$(GET AND&DF)
  410UNTILA$="Y" ORA$="N"
  420PRINTA$
  430=(A$="Y")
  440DEFPROCcreate
  450CLS:PRINTCHR$(C%+2)"Enter correct disc and press space...":*FX21
  460REPEATUNTILGET=32:CLS
  470X=OPENUP("_A"):CLOSE#X
  480IFX<>0:PRINTCHR$(C%+2)"Dictionary files already exist.":TIME=0:REPEATUNTILTIME>200:ENDPROC
  490PRINTCHR$(C%+2)SPC3"Creating...please wait..."
  500FORI=ASC"Z" TOASC"A" STEP-1
  510X=OPENOUT("_"+CHR$I):FORK=0 TO&FFC STEP4:BPUT#X,0:BPUT#X,0:BPUT#X,0:BPUT#X,0:NEXT:CLOSE#X
  520NEXT
  530ENDPROC
  540DEFPROCassemble
  550word%=&900:wordt%=&980
  560FORpass=0 TO2 STEP2:P%=code%
  570[OPTpass
  580.openup
  590LDX#word% MOD256:LDY#word% DIV256
  600LDA#&C0:JSR&FFCE:STA&8F:RTS
  610.close
  620LDY&8F:LDA#0:JMP&FFCE
  630.pointer_start
  640LDA#0:STA&8A:STA&8B:STA&8C:STA&8D
  650LDY&8F:LDX#&8A:LDA#1:JMP&FFDA
  660.pointer_end
  670JSRpointer_start
  680.pe_loop
  690LDY&8F:LDX#&8A:LDA#0:JSR&FFDA
  700JSR&FFD7:BCSpeo:CMP#0:BNEpe_loop
  710.peo
  720LDY&8F:LDX#&8A:LDA#1:JMP&FFDA
  730.sort:LDA#0:STA&8E
  740JSRpointer_start
  750.swap_loop
  760LDY&8F:LDX#&8A:LDA#0:JSR&FFDA
  770LDX#255:.loo2:JSR&FFD7:BCSexloo
  780CMP#0:BEQexloo
  790INX:STAwordt%,X:CMP#13:BNEloo2
  800LDX#255:.loo3:JSR&FFD7:BCSexloo
  810CMP#0:BEQexloo
  820INX:STAword%,X:CMP#13:BNEloo3
  830LDY&8F:LDX#&8A:LDA#1:JSR&FFDA
  840LDX#255:JSRcheck_order
  850BEQmrb:JSRswap_items:.mrb
  860LDY&8F:LDX#&8A:LDA#1:JSR&FFDA
  870.mrb2:JSR&FFD7:BCSexloo
  880CMP#0:BEQexloo
  890CMP#13:BNEmrb2:JMPswap_loop
  900.exloo:LDA&8E:BEQexloo2
  910JSRpointer_start
  920LDA#0:STA&8E:JMPswap_loop
  930.exloo2:RTS
  940.check_order
  950INX:LDAword%,X:CMP#13:BEQcheckssw
  960LDAwordt%,X:CMP#13:BEQno_swap
  970CMPword%,X
  980BEQcheck_order:BCCno_swap
  990JMPsay_swap
 1000.checkssw:LDAwordt%,X:CMP#13
 1010BEQno_swap:JMPsay_swap
 1020.no_swap:LDA#0:RTS
 1030.say_swap:LDA#1:RTS
 1040.say_eof:LDA#2:RTS
 1050.swap_items
 1060LDY&8F:LDX#&8A:LDA#1:JSR&FFDA
 1070LDX#255:.swi1
 1080INX:LDAword%,X:JSR&FFD4
 1090CMP#13:BNEswi1
 1100LDX#255:.swi2
 1110INX:LDAwordt%,X:JSR&FFD4
 1120CMP#13:BNEswi2:LDA#1:STA&8E:RTS
 1130.add_word:JSRpointer_end
 1140LDX#255:.add_dict
 1150INX:LDAword%,X:JSR&FFD4
 1160CMP#13:BNEadd_dict:RTS
 1170.check_word
 1180JSRpointer_start
 1190LDX#255:LDY&8F:.check_dict
 1200INX:JSR&FFD7:BCSword_ok
 1210CMP#13:BEQword_ok:CMPword%,X
 1220BEQcheck_dict:BCSbad_word
 1230.next_word:JSR&FFD7:BCSbad_word
 1240CMP#0:BEQbad_word
 1250CMP#13:BNEnext_word
 1260.nwbck:LDX#255:JMPcheck_dict
 1270.word_ok:LDAword%,X:CMP#13:BNEnwbck:LDA#1:STA&8E:RTS
 1280.bad_word:LDA#0:STA&8E:RTS
 1290.count
 1300LDY&8F:JSR&FFD7:BCScountout
 1310CMP#0:BEQcountout
 1320CMP#13:BNEcount
 1330LDA#1:STA&8E:RTS
 1340.countout:LDA#0:STA&8E:RTS
 1350]:NEXT
 1360ENDPROC
 1370DEFPROCword_check
 1380REPEAT
 1390CLS:PRINTCHR$(C%)"Filename of text file to check?"'CHR$(C%+2);:*FX21
 1400INPUT":"F$:$word%=F$
 1410CALLopenup:IF?&8F=0:VDU7:PRINT''CHR$(C%)"File doesn't exist.":TIME=0:REPEATUNTILTIME>200
 1420UNTIL?&8F>0
 1430CALLclose:CLS
 1440PRINTCHR$(C%)"Automatically add words to dictionary?"'CHR$(C%+2)"(Yes/No)";:*FX21
 1450REPEATA$=CHR$(GET AND&DF)
 1460UNTILA$="Y" ORA$="N"
 1470add%=(A$="Y")
 1480IFNOTadd%:CLS:PRINTCHR$(C%)"Accumulation mode?"'CHR$(C%+2)"(Yes/No)";:A%=21:X%=0:Y%=0:CALL&FFF4:REPEATA$=CHR$(GET AND&DF):UNTILA$="Y" ORA$="N":accm%=(A$="Y")
 1490CLS:acnt%=0:X=OPENIN(F$):REPEAT
 1500W$=FNgetword(X)
 1510CLS:PRINTCHR$(C%+2);W$
 1520IFNOTFNeof(X) ORW$<>"":PROCcod(W$,add%):CALLclose
 1530UNTILFNeof(X)
 1540CLOSE#X
 1550IFaccm% THENPROCcum_finish
 1560ENDPROC
 1570DEFFNgetword(X)
 1580W$="":REPEAT:E=FALSE
 1590C=BGET#X:IF(C>=ASC"A" ANDC<=ASC"Z") OR(C>=ASC"a" ANDC<=ASC"z") THENW$=W$+CHR$(C AND&DF):E=TRUE
 1600IFW$<>"" ANDC=ASC"'" THENW$=W$+"'":E=TRUE
 1610UNTIL(NOTE ANDW$<>"") ORFNeof(X)
 1620IFRIGHT$(W$,1)="'" THENW$=LEFT$(W$,LENW$-1)
 1630IFW$="" ANDNOTFNeof(X) THEN1580
 1640=W$
 1650DEFPROCcod(W$,add%)
 1660$word%="_"+LEFT$(W$,1)
 1670CALLopenup
 1680$word%=RIGHT$(W$,LENW$-1)
 1690CALLcheck_word
 1700IF?&8E=1:ENDPROC
 1710IFadd% THEN1780
 1720PRINTCHR$(C%)"..is not in the current dictionary"'
 1730IFaccm% ANDacnt%<500:acnt%=acnt%+1:cum$(acnt%)=W$:TIME=0:REPEATUNTILTIME>10:ENDPROC
 1740PRINTCHR$(C%+2)"I - ignore; A - add to dictionary":*FX21
 1750REPEATA$=CHR$(GET AND&DF)
 1760UNTILA$="I" ORA$="A"
 1770IFA$="I":CLS:ENDPROC
 1780$word%=RIGHT$(W$,LENW$-1)
 1790CALLadd_word:CALLsort:CLS
 1800ENDPROC
 1810DEFFNbget:W$=""
 1820REPEAT:W=BGET#X
 1830IFW<>13:W$=W$+CHR$W
 1840UNTILW=13
 1850=W$
 1860DEFPROCnext
 1870IFNOTFNeof(X):ENDPROC
 1880CALLclose
 1890F$=CHR$(ASCF$+1)
 1900IFF$>"Z" THENF$="A"
 1910$word%="_"+F$:CALLopenup:X=?&8F
 1920IFFNeof(X):GOTO1880
 1930ENDPROC
 1940DEFPROCshow
 1950I=0:REPEATI=I+1
 1960ptr(I)=PTR#X:f$(I)=F$
 1970PRINTCHR$(C%+2);STR$I;") ";F$;FNbget
 1980PROCnext
 1990UNTILI=9
 2000ENDPROC
 2010DEFPROCview
 2020CLS:F$="A"
 2030$word%="_"+F$:CALLopenup:X=?&8F
 2040PROCnext
 2050PROCshow
 2060PRINT''CHR$(C%)"Press 1-";STR$I;" to select an item"'CHR$(C%)"      A-Z for a new word list"'CHR$(C%)"        + to add a new word  "'CHR$(C%)"        @ for the next word list"
 2070*FX21
 2080REPEATA$=GET$
 2090UNTIL(A$>="1" ANDA$<=STR$I) OR(CHR$(ASCA$ AND&DF)>="A" ANDCHR$(ASCA$ AND&DF)<="Z") ORA$="+" ORA$=";" ORA$="@"
 2100IFA$=";" ORA$="+":CLS:A$=FNnewword
 2110IFA$="@":CLS:GOTO2040
 2120IFA$>="A" ANDA$<="Z":CLS:CALLclose:F$=A$:GOTO2030
 2130I=ASCA$-48:CALLclose:F$=f$(I):$word%="_"+F$:CALLopenup:X=?&8F:PTR#X=ptr(I):W$=FNbget
 2140IFW$="":VDU7:PRINT''CHR$(C%+2)"Cannot alter single letters":TIME=0:REPEATUNTILTIME>200:CLS:PTR#X=ptr(I):GOTO2050
 2150CLS:PRINTCHR$(C%+2)F$;W$''CHR$(C%)"Press: A to alter"'CHR$(C%)SPC7"D to delete"'CHR$(C%)SPC7"I to ignore":*FX21
 2160REPEATA$=CHR$(GET AND&DF)
 2170UNTILA$="A" ORA$="D" ORA$="I"
 2180IFA$="I" THENCLS:PTR#X=ptr(I):GOTO2050
 2190IFA$="D":PROCdelete:CLS:CALLclose:GOTO2030
 2200PROCdelete:CLS:PRINTCHR$(C%+2)"Please enter correct spelling"'CHR$(C%)":";:*FX21
 2210INPUT""W$
 2220$word%=RIGHT$(W$,LENW$-1)
 2230CALLadd_word:CALLsort
 2240CLS:CALLclose:GOTO2030
 2250DEFPROCdelete
 2260PTR#X=ptr(I):FORQ=1 TOLENW$:BPUT#X,ASC"Z":NEXT:CALLsort
 2270CALLpointer_end
 2280PTR#X=PTR#X-Q
 2290FORR=1 TOQ:BPUT#X,0:NEXT
 2300ENDPROC
 2310DEFFNnewword
 2320PRINTCHR$(C%+2)"Please enter new word"'CHR$(C%)":";:*FX21
 2330INPUT""W$
 2340IFLENW$>0 THENX$=W$:W$="":FORmm=1 TOLENX$:W$=W$+CHR$(ASC(MID$(X$,mm,1)) AND&DF):NEXT
 2350IFW$="" ORLEFT$(W$,1)<"A" ORLEFT$(W$,1)>"Z" THENVDU7:PRINT''CHR$(C%+2)"Bad word - not entered":TIME=0:REPEATUNTILTIME>200:="@"
 2360CALLclose
 2370$word%="_"+LEFT$(W$,1)
 2380CALLopenup
 2390$word%=RIGHT$(W$,LENW$-1)
 2400CALLadd_word:CALLsort
 2410=LEFT$(W$,1)
 2420DEFPROCcum_finish
 2430IFacnt%=0:ENDPROC
 2440FORq=1 TOacnt%:CLS
 2450PRINTCHR$(C%+2)cum$(q)'CHR$(C%)"..is not in the current dictionary"'
 2460PRINTCHR$(C%+2)"I - ignore; A - add to dictionary":*FX21
 2470REPEATA$=CHR$(GET AND&DF)
 2480UNTILA$="I" ORA$="A"
 2490IFA$="I":GOTO2530
 2500$word%="_"+LEFT$(cum$(q),1):CALLopenup:$word%=RIGHT$(cum$(q),LENcum$(q)-1)
 2510CALLcheck_word:IF?&8E=1 THEN2530
 2520CALLadd_word:CALLsort:CALLclose
 2530NEXT
 2540ENDPROC
 2550DEFPROCcount_files
 2560CLS:j%=0
 2570FORI=ASC"A" TOASC"Y" STEP2
 2580PRINTCHR$(C%+2)CHR$(I);" = ";
 2590$word%="_"+CHR$I:CALLopenup
 2600i%=0:?&8E=0:REPEAT
 2610CALLcount:i%=i%+?&8E:j%=j%+?&8E
 2620UNTIL?&8E=0:CALLclose
 2630PRINTSTR$i%;TAB(20);CHR$(C%+2);CHR$(I+1);" = ";
 2640$word%="_"+CHR$(I+1):CALLopenup
 2650i%=0:?&8E=0:REPEAT
 2660CALLcount:i%=i%+?&8E:j%=j%+?&8E
 2670UNTIL?&8E=0:CALLclose
 2680PRINTSTR$i%
 2690NEXT
 2700PRINT''CHR$(C%)"TOTAL: ";STR$j%
 2710*FX21
 2720REPEATUNTILGET
 2730ENDPROC
 2740DEFFNeof(X)
 2750IFEOF#X THEN=TRUE
 2760t=PTR#X:t2=BGET#X
 2770PTR#X=t:=(t2=0)


��"��p�p� ���ʠ* �B �. �p �P �A �. �= �6 �4 �0 �0 �p �O �. �p �R �U �N �� � �pL�***************************************************************************************************
� Cumulative Dictionary
� by Mark R.Bannister 1993
(�
2�7:�23;8202;0;0;0;
<�#0:Z=�(-�)
F� code% 400,M$(4)
P� ptr(9),f$(9),cum$(500)
ZC%=�(4)+129
d
�assemble
n
*FX4,1
x7��#0:�<>17:A%=4:X%=0:Y%=0:�&FFF4:�7:�:�:� ��26,12
�<�I=0 �1:�(C%)�157�(C%+2)�141�6"Cumulative Dictionary":�
�2�(C%+2)�157�(C%)�5"by Mark R. Bannister 1993"
��return%=�
���DJA:�28,4,24,39,7
�1�M%=0 �4:�M$(M%):�2�(C%)M$(M%):�M%=0 �M%=3:�
� �:ch%=0:oh%=�highlight(0,10)
�	*FX21
��:�
�"�k%=�-138:�k%=0 �k%=1 �k%=-125
�0k%=-k%*2+1:�((ch%+k%)>-1 �(ch%+k%)<5)�k%=251
�:�k%<>251:ch%=ch%+k%:oh%=�highlight(ch%,oh%) �return%=�
��return%
��28,0,24,39,6
�ch%=0:�word_check
�ch%=1:�create
�ch%=2:�view
"�ch%=3:�count_files
,)�ch%=4:�#0:A%=4:X%=0:Y%=0:�&FFF4:�7:�
6�
@��
J\�Word check ascii file,Create new dictionary files,View/edit dictionary,Count words,Quit
T-ݤhighlight(h%,oh%):h%=h%*2:�h%>2:h%=h%-1
^�h%>4:h%=h%-1
h4�0,h%)�(C%)�157�(C%+2)�0,oh%)�2�(C%)�32,h%)�156
r=h%
|ݤyn:*FX21
��" (Y/N)";
��A$=�(� �&DF)
��A$="Y" �A$="N"
��A$
�
=(A$="Y")
���create
�;�:�(C%+2)"Enter correct disc and press space...":*FX21
����=32:�
�X=�("_A"):�#X
�A�X<>0:�(C%+2)"Dictionary files already exist.":�=0:���>200:�
�)�(C%+2)�3"Creating...please wait..."
��I=�"Z" ��"A" �-1
�;X=�("_"+�I):�K=0 �&FFC �4:�#X,0:�#X,0:�#X,0:�#X,0:�:�#X
�
�
��assemble
&word%=&900:wordt%=&980
0�pass=0 �2 �2:P%=code%
:[OPTpass
D.openup
N!LDX#word% �256:LDY#word% �256
XLDA#&C0:JSR&FFCE:STA&8F:RTS
b
.close
lLDY&8F:LDA#0:JMP&FFCE
v.pointer_start
�%LDA#0:STA&8A:STA&8B:STA&8C:STA&8D
�!LDY&8F:LDX#&8A:LDA#1:JMP&FFDA
�.pointer_end
�JSRpointer_start
�.pe_loop
�!LDY&8F:LDX#&8A:LDA#0:JSR&FFDA
�$JSR&FFD7:BCSpeo:CMP#0:BNEpe_loop
�.peo
�!LDY&8F:LDX#&8A:LDA#1:JMP&FFDA
�.sort:LDA#0:STA&8E
�JSRpointer_start
�.swap_loop
�!LDY&8F:LDX#&8A:LDA#0:JSR&FFDA
#LDX#255:.loo2:JSR&FFD7:BCSexloo
CMP#0:BEQexloo
"INX:STAwordt%,X:CMP#13:BNEloo2
 #LDX#255:.loo3:JSR&FFD7:BCSexloo
*CMP#0:BEQexloo
4!INX:STAword%,X:CMP#13:BNEloo3
>!LDY&8F:LDX#&8A:LDA#1:JSR&FFDA
HLDX#255:JSRcheck_order
RBEQmrb:JSRswap_items:.mrb
\!LDY&8F:LDX#&8A:LDA#1:JSR&FFDA
f.mrb2:JSR&FFD7:BCSexloo
pCMP#0:BEQexloo
zCMP#13:BNEmrb2:JMPswap_loop
�.exloo:LDA&8E:BEQexloo2
�JSRpointer_start
�LDA#0:STA&8E:JMPswap_loop
�.exloo2:RTS
�.check_order
�%INX:LDAword%,X:CMP#13:BEQcheckssw
�!LDAwordt%,X:CMP#13:BEQno_swap
�CMPword%,X
�BEQcheck_order:BCCno_swap
�JMPsay_swap
� .checkssw:LDAwordt%,X:CMP#13
�BEQno_swap:JMPsay_swap
�.no_swap:LDA#0:RTS
.say_swap:LDA#1:RTS
.say_eof:LDA#2:RTS
.swap_items
$!LDY&8F:LDX#&8A:LDA#1:JSR&FFDA
.LDX#255:.swi1
8INX:LDAword%,X:JSR&FFD4
BCMP#13:BNEswi1
LLDX#255:.swi2
VINX:LDAwordt%,X:JSR&FFD4
`#CMP#13:BNEswi2:LDA#1:STA&8E:RTS
j.add_word:JSRpointer_end
tLDX#255:.add_dict
~INX:LDAword%,X:JSR&FFD4
�CMP#13:BNEadd_dict:RTS
�.check_word
�JSRpointer_start
�LDX#255:LDY&8F:.check_dict
�INX:JSR&FFD7:BCSword_ok
� CMP#13:BEQword_ok:CMPword%,X
�BEQcheck_dict:BCSbad_word
�#.next_word:JSR&FFD7:BCSbad_word
�CMP#0:BEQbad_word
�CMP#13:BNEnext_word
� .nwbck:LDX#255:JMPcheck_dict
�8.word_ok:LDAword%,X:CMP#13:BNEnwbck:LDA#1:STA&8E:RTS
.bad_word:LDA#0:STA&8E:RTS


.count
LDY&8F:JSR&FFD7:BCScountout
CMP#0:BEQcountout
(CMP#13:BNEcount
2LDA#1:STA&8E:RTS
<.countout:LDA#0:STA&8E:RTS
F]:�
P�
Z��word_check
d�
n<�:�(C%)"Filename of text file to check?"'�(C%+2);:*FX21
x�":"F$:$word%=F$
�@�openup:�?&8F=0:�7:�''�(C%)"File doesn't exist.":�=0:���>200
��?&8F>0
��close:�
�K�(C%)"Automatically add words to dictionary?"'�(C%+2)"(Yes/No)";:*FX21
��A$=�(� �&DF)
��A$="Y" �A$="N"
�add%=(A$="Y")
�~�add%:�:�(C%)"Accumulation mode?"'�(C%+2)"(Yes/No)";:A%=21:X%=0:Y%=0:�&FFF4:�A$=�(� �&DF):�A$="Y" �A$="N":accm%=(A$="Y")
��:acnt%=0:X=�(F$):�
�W$=�getword(X)
��:�(C%+2);W$
�*笤eof(X) �W$<>"":�cod(W$,add%):�close
���eof(X)
�#X
�accm% ��cum_finish
�
"ݤgetword(X)
,W$="":�:E=�
6FC=�#X:�(C>=�"A" �C<=�"Z") �(C>=�"a" �C<=�"z") �W$=W$+�(C �&DF):E=�
@"�W$<>"" �C=�"'" �W$=W$+"'":E=�
J�(�E �W$<>"") ��eof(X)
T��W$,1)="'" �W$=�W$,�W$-1)
^�W$="" ���eof(X) ��TlF
h=W$
r��cod(W$,add%)
|$word%="_"+�W$,1)
��openup
�$word%=�W$,�W$-1)
��check_word
�
�?&8E=1:�
��add% ��dtF
�/�(C%)"..is not in the current dictionary"'
�?�accm% �acnt%<500:acnt%=acnt%+1:cum$(acnt%)=W$:�=0:���>10:�
�5�(C%+2)"I - ignore; A - add to dictionary":*FX21
��A$=�(� �&DF)
��A$="I" �A$="A"
��A$="I":�:�
�$word%=�W$,�W$-1)
��add_word:�sort:�
�
ݤbget:W$=""
�:W=�#X
&�W<>13:W$=W$+�W
0	�W=13
:=W$
D
��next
N笤eof(X):�
X
�close
bF$=�(�F$+1)
l�F$>"Z" �F$="A"
v $word%="_"+F$:�openup:X=?&8F
��eof(X):�DXG
��
�
��show
�I=0:�I=I+1
�ptr(I)=�#X:f$(I)=F$
��(C%+2);�I;") ";F$;�bget
�	�next
��I=9
��
�
��view
��:F$="A"
� $word%="_"+F$:�openup:X=?&8F
�	�next
	�show
��''�(C%)"Press 1-";�I;" to select an item"'�(C%)"      A-Z for a new word list"'�(C%)"        + to add a new word  "'�(C%)"        @ for the next word list"
	*FX21
 	�A$=�
*T�(A$>="1" �A$<=�I) �(�(�A$ �&DF)>="A" ��(�A$ �&DF)<="Z") �A$="+" �A$=";" �A$="@"
4!�A$=";" �A$="+":�:A$=�newword
>�A$="@":�:�dxG
H*�A$>="A" �A$<="Z":�:�close:F$=A$:�dnG
RMI=�A$-48:�close:F$=f$(I):$word%="_"+F$:�openup:X=?&8F:�#X=ptr(I):W$=�bget
\T�W$="":�7:�''�(C%+2)"Cannot alter single letters":�=0:���>200:�:�#X=ptr(I):�TBH
f]�:�(C%+2)F$;W$''�(C%)"Press: A to alter"'�(C%)�7"D to delete"'�(C%)�7"I to ignore":*FX21
p�A$=�(� �&DF)
z�A$="A" �A$="D" �A$="I"
��A$="I" ��:�#X=ptr(I):�TBH
�"�A$="D":�delete:�:�close:�dnG
�E�delete:�:�(C%+2)"Please enter correct spelling"'�(C%)":";:*FX21
�	�""W$
�$word%=�W$,�W$-1)
��add_word:�sort
��:�close:�dnG
���delete
�)�#X=ptr(I):�Q=1 ��W$:�#X,�"Z":�:�sort
��pointer_end
�
�#X=�#X-Q
��R=1 �Q:�#X,0:�
��
	
ݤnewword
	3�(C%+2)"Please enter new word"'�(C%)":";:*FX21
		�""W$
	$?�W$>0 �X$=W$:W$="":�mm=1 ��X$:W$=W$+�(�(�X$,mm,1)) �&DF):�
	.Z�W$="" ��W$,1)<"A" ��W$,1)>"Z" ��7:�''�(C%+2)"Bad word - not entered":�=0:���>200:="@"
	8
�close
	B$word%="_"+�W$,1)
	L�openup
	V$word%=�W$,�W$-1)
	`�add_word:�sort
	j=�W$,1)
	t��cum_finish
	~�acnt%=0:�
	��q=1 �acnt%:�
	�>�(C%+2)cum$(q)'�(C%)"..is not in the current dictionary"'
	�5�(C%+2)"I - ignore; A - add to dictionary":*FX21
	��A$=�(� �&DF)
	��A$="I" �A$="A"
	��A$="I":�dbI
	�>$word%="_"+�cum$(q),1):�openup:$word%=�cum$(q),�cum$(q)-1)
	��check_word:�?&8E=1 ��dbI
	��add_word:�sort:�close
	��
	��
	���count_files

�:j%=0

�I=�"A" ��"Y" �2
�(C%+2)�(I);" = ";
$word%="_"+�I:�openup
(i%=0:?&8E=0:�
2 �count:i%=i%+?&8E:j%=j%+?&8E
<�?&8E=0:�close
F#��i%;�20);�(C%+2);�(I+1);" = ";
P$word%="_"+�(I+1):�openup
Zi%=0:?&8E=0:�
d �count:i%=i%+?&8E:j%=j%+?&8E
n�?&8E=0:�close
x��i%
��
��''�(C%)"TOTAL: ";�j%
�	*FX21
����
��
�ݤeof(X)
���#X �=�
�t=�#X:t2=�#X
��#X=t:=(t2=0)
�

00000000  0d 00 0a ea f4 22 15 a9  0e 85 70 c6 70 a9 15 20  |....."....p.p.. |
00000010  ee ff a9 8a a2 01 ca a0  2a 20 f4 ff a0 42 20 f4  |........* ...B .|
00000020  ff a0 2e 20 f4 ff a4 70  20 f4 ff a0 50 20 f4 ff  |... ...p ...P ..|
00000030  a0 41 20 f4 ff a0 2e 20  f4 ff a0 3d 20 f4 ff a0  |.A .... ...= ...|
00000040  36 20 f4 ff a0 34 20 f4  ff a0 30 20 f4 ff a0 30  |6 ...4 ...0 ...0|
00000050  20 f4 ff a4 70 20 f4 ff  a0 4f 20 f4 ff a0 2e 20  | ...p ...O .... |
00000060  f4 ff a4 70 20 f4 ff a0  52 20 f4 ff a0 55 20 f4  |...p ...R ...U .|
00000070  ff a0 4e 20 f4 ff a0 07  88 20 f4 ff a0 0b 20 f4  |..N ..... .... .|
00000080  ff a4 70 4c f4 ff 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..pL..**********|
00000090  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000000e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 06 0d 00 14 1b f4 20  |*********...... |
000000f0  43 75 6d 75 6c 61 74 69  76 65 20 44 69 63 74 69  |Cumulative Dicti|
00000100  6f 6e 61 72 79 0d 00 1e  1e f4 20 62 79 20 4d 61  |onary..... by Ma|
00000110  72 6b 20 52 2e 42 61 6e  6e 69 73 74 65 72 20 31  |rk R.Bannister 1|
00000120  39 39 33 0d 00 28 05 f4  0d 00 32 16 eb 37 3a ef  |993..(....2..7:.|
00000130  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 0d 00  |23;8202;0;0;0;..|
00000140  3c 0f d9 23 30 3a 5a 3d  b3 28 2d 91 29 0d 00 46  |<..#0:Z=.(-.)..F|
00000150  15 de 20 63 6f 64 65 25  20 34 30 30 2c 4d 24 28  |.. code% 400,M$(|
00000160  34 29 0d 00 50 1c de 20  70 74 72 28 39 29 2c 66  |4)..P.. ptr(9),f|
00000170  24 28 39 29 2c 63 75 6d  24 28 35 30 30 29 0d 00  |$(9),cum$(500)..|
00000180  5a 0f 43 25 3d b3 28 34  29 2b 31 32 39 0d 00 64  |Z.C%=.(4)+129..d|
00000190  0d f2 61 73 73 65 6d 62  6c 65 0d 00 6e 0a 2a 46  |..assemble..n.*F|
000001a0  58 34 2c 31 0d 00 78 37  ee 85 d9 23 30 3a e7 9f  |X4,1..x7...#0:..|
000001b0  3c 3e 31 37 3a 41 25 3d  34 3a 58 25 3d 30 3a 59  |<>17:A%=4:X%=0:Y|
000001c0  25 3d 30 3a d6 26 46 46  46 34 3a eb 37 3a f6 3a  |%=0:.&FFF4:.7:.:|
000001d0  f1 3a e0 20 8b ef 32 36  2c 31 32 0d 00 82 3c e3  |.:. ..26,12...<.|
000001e0  49 3d 30 20 b8 31 3a f1  bd 28 43 25 29 bd 31 35  |I=0 .1:..(C%).15|
000001f0  37 bd 28 43 25 2b 32 29  bd 31 34 31 89 36 22 43  |7.(C%+2).141.6"C|
00000200  75 6d 75 6c 61 74 69 76  65 20 44 69 63 74 69 6f  |umulative Dictio|
00000210  6e 61 72 79 22 3a ed 0d  00 8c 32 f1 bd 28 43 25  |nary":....2..(C%|
00000220  2b 32 29 bd 31 35 37 bd  28 43 25 29 89 35 22 62  |+2).157.(C%).5"b|
00000230  79 20 4d 61 72 6b 20 52  2e 20 42 61 6e 6e 69 73  |y Mark R. Bannis|
00000240  74 65 72 20 31 39 39 33  22 0d 00 96 0e f5 72 65  |ter 1993".....re|
00000250  74 75 72 6e 25 3d a3 0d  00 a0 17 f7 8d 44 4a 41  |turn%=.......DJA|
00000260  3a ef 32 38 2c 34 2c 32  34 2c 33 39 2c 37 0d 00  |:.28,4,24,39,7..|
00000270  aa 31 e3 4d 25 3d 30 20  b8 34 3a f3 4d 24 28 4d  |.1.M%=0 .4:.M$(M|
00000280  25 29 3a f1 89 32 bd 28  43 25 29 4d 24 28 4d 25  |%):..2.(C%)M$(M%|
00000290  29 3a e7 4d 25 3d 30 20  84 4d 25 3d 33 3a f1 0d  |):.M%=0 .M%=3:..|
000002a0  00 b4 20 ed 3a 63 68 25  3d 30 3a 6f 68 25 3d a4  |.. .:ch%=0:oh%=.|
000002b0  68 69 67 68 6c 69 67 68  74 28 30 2c 31 30 29 0d  |highlight(0,10).|
000002c0  00 be 09 2a 46 58 32 31  0d 00 c8 07 f5 3a f5 0d  |...*FX21.....:..|
000002d0  00 d2 22 f5 6b 25 3d a5  2d 31 33 38 3a fd 6b 25  |..".k%=.-138:.k%|
000002e0  3d 30 20 84 6b 25 3d 31  20 84 6b 25 3d 2d 31 32  |=0 .k%=1 .k%=-12|
000002f0  35 0d 00 dc 30 6b 25 3d  2d 6b 25 2a 32 2b 31 3a  |5...0k%=-k%*2+1:|
00000300  fd 28 28 63 68 25 2b 6b  25 29 3e 2d 31 20 80 28  |.((ch%+k%)>-1 .(|
00000310  63 68 25 2b 6b 25 29 3c  35 29 84 6b 25 3d 32 35  |ch%+k%)<5).k%=25|
00000320  31 0d 00 e6 3a e7 6b 25  3c 3e 32 35 31 3a 63 68  |1...:.k%<>251:ch|
00000330  25 3d 63 68 25 2b 6b 25  3a 6f 68 25 3d a4 68 69  |%=ch%+k%:oh%=.hi|
00000340  67 68 6c 69 67 68 74 28  63 68 25 2c 6f 68 25 29  |ghlight(ch%,oh%)|
00000350  20 8b 72 65 74 75 72 6e  25 3d b9 0d 00 f0 0c fd  | .return%=......|
00000360  72 65 74 75 72 6e 25 0d  00 fa 11 ef 32 38 2c 30  |return%.....28,0|
00000370  2c 32 34 2c 33 39 2c 36  0d 01 04 16 e7 63 68 25  |,24,39,6.....ch%|
00000380  3d 30 3a f2 77 6f 72 64  5f 63 68 65 63 6b 0d 01  |=0:.word_check..|
00000390  0e 12 e7 63 68 25 3d 31  3a f2 63 72 65 61 74 65  |...ch%=1:.create|
000003a0  0d 01 18 10 e7 63 68 25  3d 32 3a f2 76 69 65 77  |.....ch%=2:.view|
000003b0  0d 01 22 17 e7 63 68 25  3d 33 3a f2 63 6f 75 6e  |.."..ch%=3:.coun|
000003c0  74 5f 66 69 6c 65 73 0d  01 2c 29 e7 63 68 25 3d  |t_files..,).ch%=|
000003d0  34 3a d9 23 30 3a 41 25  3d 34 3a 58 25 3d 30 3a  |4:.#0:A%=4:X%=0:|
000003e0  59 25 3d 30 3a d6 26 46  46 46 34 3a eb 37 3a e0  |Y%=0:.&FFF4:.7:.|
000003f0  0d 01 36 05 db 0d 01 40  06 fd a3 0d 01 4a 5c dc  |..6....@.....J\.|
00000400  57 6f 72 64 20 63 68 65  63 6b 20 61 73 63 69 69  |Word check ascii|
00000410  20 66 69 6c 65 2c 43 72  65 61 74 65 20 6e 65 77  | file,Create new|
00000420  20 64 69 63 74 69 6f 6e  61 72 79 20 66 69 6c 65  | dictionary file|
00000430  73 2c 56 69 65 77 2f 65  64 69 74 20 64 69 63 74  |s,View/edit dict|
00000440  69 6f 6e 61 72 79 2c 43  6f 75 6e 74 20 77 6f 72  |ionary,Count wor|
00000450  64 73 2c 51 75 69 74 0d  01 54 2d dd a4 68 69 67  |ds,Quit..T-..hig|
00000460  68 6c 69 67 68 74 28 68  25 2c 6f 68 25 29 3a 68  |hlight(h%,oh%):h|
00000470  25 3d 68 25 2a 32 3a e7  68 25 3e 32 3a 68 25 3d  |%=h%*2:.h%>2:h%=|
00000480  68 25 2d 31 0d 01 5e 11  e7 68 25 3e 34 3a 68 25  |h%-1..^..h%>4:h%|
00000490  3d 68 25 2d 31 0d 01 68  34 f1 8a 30 2c 68 25 29  |=h%-1..h4..0,h%)|
000004a0  bd 28 43 25 29 bd 31 35  37 bd 28 43 25 2b 32 29  |.(C%).157.(C%+2)|
000004b0  8a 30 2c 6f 68 25 29 89  32 bd 28 43 25 29 8a 33  |.0,oh%).2.(C%).3|
000004c0  32 2c 68 25 29 bd 31 35  36 0d 01 72 07 3d 68 25  |2,h%).156..r.=h%|
000004d0  0d 01 7c 0e dd a4 79 6e  3a 2a 46 58 32 31 0d 01  |..|...yn:*FX21..|
000004e0  86 0e f1 22 20 28 59 2f  4e 29 22 3b 0d 01 90 11  |..." (Y/N)";....|
000004f0  f5 41 24 3d bd 28 a5 20  80 26 44 46 29 0d 01 9a  |.A$=.(. .&DF)...|
00000500  13 fd 41 24 3d 22 59 22  20 84 41 24 3d 22 4e 22  |..A$="Y" .A$="N"|
00000510  0d 01 a4 07 f1 41 24 0d  01 ae 0d 3d 28 41 24 3d  |.....A$....=(A$=|
00000520  22 59 22 29 0d 01 b8 0c  dd f2 63 72 65 61 74 65  |"Y")......create|
00000530  0d 01 c2 3b db 3a f1 bd  28 43 25 2b 32 29 22 45  |...;.:..(C%+2)"E|
00000540  6e 74 65 72 20 63 6f 72  72 65 63 74 20 64 69 73  |nter correct dis|
00000550  63 20 61 6e 64 20 70 72  65 73 73 20 73 70 61 63  |c and press spac|
00000560  65 2e 2e 2e 22 3a 2a 46  58 32 31 0d 01 cc 0c f5  |e...":*FX21.....|
00000570  fd a5 3d 33 32 3a db 0d  01 d6 11 58 3d ad 28 22  |..=32:.....X=.("|
00000580  5f 41 22 29 3a d9 23 58  0d 01 e0 41 e7 58 3c 3e  |_A"):.#X...A.X<>|
00000590  30 3a f1 bd 28 43 25 2b  32 29 22 44 69 63 74 69  |0:..(C%+2)"Dicti|
000005a0  6f 6e 61 72 79 20 66 69  6c 65 73 20 61 6c 72 65  |onary files alre|
000005b0  61 64 79 20 65 78 69 73  74 2e 22 3a d1 3d 30 3a  |ady exist.":.=0:|
000005c0  f5 fd 91 3e 32 30 30 3a  e1 0d 01 ea 29 f1 bd 28  |...>200:....)..(|
000005d0  43 25 2b 32 29 89 33 22  43 72 65 61 74 69 6e 67  |C%+2).3"Creating|
000005e0  2e 2e 2e 70 6c 65 61 73  65 20 77 61 69 74 2e 2e  |...please wait..|
000005f0  2e 22 0d 01 f4 15 e3 49  3d 97 22 5a 22 20 b8 97  |.".....I=."Z" ..|
00000600  22 41 22 20 88 2d 31 0d  01 fe 3b 58 3d ae 28 22  |"A" .-1...;X=.("|
00000610  5f 22 2b bd 49 29 3a e3  4b 3d 30 20 b8 26 46 46  |_"+.I):.K=0 .&FF|
00000620  43 20 88 34 3a d5 23 58  2c 30 3a d5 23 58 2c 30  |C .4:.#X,0:.#X,0|
00000630  3a d5 23 58 2c 30 3a d5  23 58 2c 30 3a ed 3a d9  |:.#X,0:.#X,0:.:.|
00000640  23 58 0d 02 08 05 ed 0d  02 12 05 e1 0d 02 1c 0e  |#X..............|
00000650  dd f2 61 73 73 65 6d 62  6c 65 0d 02 26 1a 77 6f  |..assemble..&.wo|
00000660  72 64 25 3d 26 39 30 30  3a 77 6f 72 64 74 25 3d  |rd%=&900:wordt%=|
00000670  26 39 38 30 0d 02 30 1a  e3 70 61 73 73 3d 30 20  |&980..0..pass=0 |
00000680  b8 32 20 88 32 3a 50 25  3d 63 6f 64 65 25 0d 02  |.2 .2:P%=code%..|
00000690  3a 0c 5b 4f 50 54 70 61  73 73 0d 02 44 0b 2e 6f  |:.[OPTpass..D..o|
000006a0  70 65 6e 75 70 0d 02 4e  21 4c 44 58 23 77 6f 72  |penup..N!LDX#wor|
000006b0  64 25 20 83 32 35 36 3a  4c 44 59 23 77 6f 72 64  |d% .256:LDY#word|
000006c0  25 20 81 32 35 36 0d 02  58 1f 4c 44 41 23 26 43  |% .256..X.LDA#&C|
000006d0  30 3a 4a 53 52 26 46 46  43 45 3a 53 54 41 26 38  |0:JSR&FFCE:STA&8|
000006e0  46 3a 52 54 53 0d 02 62  0a 2e 63 6c 6f 73 65 0d  |F:RTS..b..close.|
000006f0  02 6c 19 4c 44 59 26 38  46 3a 4c 44 41 23 30 3a  |.l.LDY&8F:LDA#0:|
00000700  4a 4d 50 26 46 46 43 45  0d 02 76 12 2e 70 6f 69  |JMP&FFCE..v..poi|
00000710  6e 74 65 72 5f 73 74 61  72 74 0d 02 80 25 4c 44  |nter_start...%LD|
00000720  41 23 30 3a 53 54 41 26  38 41 3a 53 54 41 26 38  |A#0:STA&8A:STA&8|
00000730  42 3a 53 54 41 26 38 43  3a 53 54 41 26 38 44 0d  |B:STA&8C:STA&8D.|
00000740  02 8a 21 4c 44 59 26 38  46 3a 4c 44 58 23 26 38  |..!LDY&8F:LDX#&8|
00000750  41 3a 4c 44 41 23 31 3a  4a 4d 50 26 46 46 44 41  |A:LDA#1:JMP&FFDA|
00000760  0d 02 94 10 2e 70 6f 69  6e 74 65 72 5f 65 6e 64  |.....pointer_end|
00000770  0d 02 9e 14 4a 53 52 70  6f 69 6e 74 65 72 5f 73  |....JSRpointer_s|
00000780  74 61 72 74 0d 02 a8 0c  2e 70 65 5f 6c 6f 6f 70  |tart.....pe_loop|
00000790  0d 02 b2 21 4c 44 59 26  38 46 3a 4c 44 58 23 26  |...!LDY&8F:LDX#&|
000007a0  38 41 3a 4c 44 41 23 30  3a 4a 53 52 26 46 46 44  |8A:LDA#0:JSR&FFD|
000007b0  41 0d 02 bc 24 4a 53 52  26 46 46 44 37 3a 42 43  |A...$JSR&FFD7:BC|
000007c0  53 70 65 6f 3a 43 4d 50  23 30 3a 42 4e 45 70 65  |Speo:CMP#0:BNEpe|
000007d0  5f 6c 6f 6f 70 0d 02 c6  08 2e 70 65 6f 0d 02 d0  |_loop.....peo...|
000007e0  21 4c 44 59 26 38 46 3a  4c 44 58 23 26 38 41 3a  |!LDY&8F:LDX#&8A:|
000007f0  4c 44 41 23 31 3a 4a 4d  50 26 46 46 44 41 0d 02  |LDA#1:JMP&FFDA..|
00000800  da 16 2e 73 6f 72 74 3a  4c 44 41 23 30 3a 53 54  |...sort:LDA#0:ST|
00000810  41 26 38 45 0d 02 e4 14  4a 53 52 70 6f 69 6e 74  |A&8E....JSRpoint|
00000820  65 72 5f 73 74 61 72 74  0d 02 ee 0e 2e 73 77 61  |er_start.....swa|
00000830  70 5f 6c 6f 6f 70 0d 02  f8 21 4c 44 59 26 38 46  |p_loop...!LDY&8F|
00000840  3a 4c 44 58 23 26 38 41  3a 4c 44 41 23 30 3a 4a  |:LDX#&8A:LDA#0:J|
00000850  53 52 26 46 46 44 41 0d  03 02 23 4c 44 58 23 32  |SR&FFDA...#LDX#2|
00000860  35 35 3a 2e 6c 6f 6f 32  3a 4a 53 52 26 46 46 44  |55:.loo2:JSR&FFD|
00000870  37 3a 42 43 53 65 78 6c  6f 6f 0d 03 0c 12 43 4d  |7:BCSexloo....CM|
00000880  50 23 30 3a 42 45 51 65  78 6c 6f 6f 0d 03 16 22  |P#0:BEQexloo..."|
00000890  49 4e 58 3a 53 54 41 77  6f 72 64 74 25 2c 58 3a  |INX:STAwordt%,X:|
000008a0  43 4d 50 23 31 33 3a 42  4e 45 6c 6f 6f 32 0d 03  |CMP#13:BNEloo2..|
000008b0  20 23 4c 44 58 23 32 35  35 3a 2e 6c 6f 6f 33 3a  | #LDX#255:.loo3:|
000008c0  4a 53 52 26 46 46 44 37  3a 42 43 53 65 78 6c 6f  |JSR&FFD7:BCSexlo|
000008d0  6f 0d 03 2a 12 43 4d 50  23 30 3a 42 45 51 65 78  |o..*.CMP#0:BEQex|
000008e0  6c 6f 6f 0d 03 34 21 49  4e 58 3a 53 54 41 77 6f  |loo..4!INX:STAwo|
000008f0  72 64 25 2c 58 3a 43 4d  50 23 31 33 3a 42 4e 45  |rd%,X:CMP#13:BNE|
00000900  6c 6f 6f 33 0d 03 3e 21  4c 44 59 26 38 46 3a 4c  |loo3..>!LDY&8F:L|
00000910  44 58 23 26 38 41 3a 4c  44 41 23 31 3a 4a 53 52  |DX#&8A:LDA#1:JSR|
00000920  26 46 46 44 41 0d 03 48  1a 4c 44 58 23 32 35 35  |&FFDA..H.LDX#255|
00000930  3a 4a 53 52 63 68 65 63  6b 5f 6f 72 64 65 72 0d  |:JSRcheck_order.|
00000940  03 52 1d 42 45 51 6d 72  62 3a 4a 53 52 73 77 61  |.R.BEQmrb:JSRswa|
00000950  70 5f 69 74 65 6d 73 3a  2e 6d 72 62 0d 03 5c 21  |p_items:.mrb..\!|
00000960  4c 44 59 26 38 46 3a 4c  44 58 23 26 38 41 3a 4c  |LDY&8F:LDX#&8A:L|
00000970  44 41 23 31 3a 4a 53 52  26 46 46 44 41 0d 03 66  |DA#1:JSR&FFDA..f|
00000980  1b 2e 6d 72 62 32 3a 4a  53 52 26 46 46 44 37 3a  |..mrb2:JSR&FFD7:|
00000990  42 43 53 65 78 6c 6f 6f  0d 03 70 12 43 4d 50 23  |BCSexloo..p.CMP#|
000009a0  30 3a 42 45 51 65 78 6c  6f 6f 0d 03 7a 1f 43 4d  |0:BEQexloo..z.CM|
000009b0  50 23 31 33 3a 42 4e 45  6d 72 62 32 3a 4a 4d 50  |P#13:BNEmrb2:JMP|
000009c0  73 77 61 70 5f 6c 6f 6f  70 0d 03 84 1b 2e 65 78  |swap_loop.....ex|
000009d0  6c 6f 6f 3a 4c 44 41 26  38 45 3a 42 45 51 65 78  |loo:LDA&8E:BEQex|
000009e0  6c 6f 6f 32 0d 03 8e 14  4a 53 52 70 6f 69 6e 74  |loo2....JSRpoint|
000009f0  65 72 5f 73 74 61 72 74  0d 03 98 1d 4c 44 41 23  |er_start....LDA#|
00000a00  30 3a 53 54 41 26 38 45  3a 4a 4d 50 73 77 61 70  |0:STA&8E:JMPswap|
00000a10  5f 6c 6f 6f 70 0d 03 a2  0f 2e 65 78 6c 6f 6f 32  |_loop.....exloo2|
00000a20  3a 52 54 53 0d 03 ac 10  2e 63 68 65 63 6b 5f 6f  |:RTS.....check_o|
00000a30  72 64 65 72 0d 03 b6 25  49 4e 58 3a 4c 44 41 77  |rder...%INX:LDAw|
00000a40  6f 72 64 25 2c 58 3a 43  4d 50 23 31 33 3a 42 45  |ord%,X:CMP#13:BE|
00000a50  51 63 68 65 63 6b 73 73  77 0d 03 c0 21 4c 44 41  |Qcheckssw...!LDA|
00000a60  77 6f 72 64 74 25 2c 58  3a 43 4d 50 23 31 33 3a  |wordt%,X:CMP#13:|
00000a70  42 45 51 6e 6f 5f 73 77  61 70 0d 03 ca 0e 43 4d  |BEQno_swap....CM|
00000a80  50 77 6f 72 64 25 2c 58  0d 03 d4 1d 42 45 51 63  |Pword%,X....BEQc|
00000a90  68 65 63 6b 5f 6f 72 64  65 72 3a 42 43 43 6e 6f  |heck_order:BCCno|
00000aa0  5f 73 77 61 70 0d 03 de  0f 4a 4d 50 73 61 79 5f  |_swap....JMPsay_|
00000ab0  73 77 61 70 0d 03 e8 20  2e 63 68 65 63 6b 73 73  |swap... .checkss|
00000ac0  77 3a 4c 44 41 77 6f 72  64 74 25 2c 58 3a 43 4d  |w:LDAwordt%,X:CM|
00000ad0  50 23 31 33 0d 03 f2 1a  42 45 51 6e 6f 5f 73 77  |P#13....BEQno_sw|
00000ae0  61 70 3a 4a 4d 50 73 61  79 5f 73 77 61 70 0d 03  |ap:JMPsay_swap..|
00000af0  fc 16 2e 6e 6f 5f 73 77  61 70 3a 4c 44 41 23 30  |...no_swap:LDA#0|
00000b00  3a 52 54 53 0d 04 06 17  2e 73 61 79 5f 73 77 61  |:RTS.....say_swa|
00000b10  70 3a 4c 44 41 23 31 3a  52 54 53 0d 04 10 16 2e  |p:LDA#1:RTS.....|
00000b20  73 61 79 5f 65 6f 66 3a  4c 44 41 23 32 3a 52 54  |say_eof:LDA#2:RT|
00000b30  53 0d 04 1a 0f 2e 73 77  61 70 5f 69 74 65 6d 73  |S.....swap_items|
00000b40  0d 04 24 21 4c 44 59 26  38 46 3a 4c 44 58 23 26  |..$!LDY&8F:LDX#&|
00000b50  38 41 3a 4c 44 41 23 31  3a 4a 53 52 26 46 46 44  |8A:LDA#1:JSR&FFD|
00000b60  41 0d 04 2e 11 4c 44 58  23 32 35 35 3a 2e 73 77  |A....LDX#255:.sw|
00000b70  69 31 0d 04 38 1b 49 4e  58 3a 4c 44 41 77 6f 72  |i1..8.INX:LDAwor|
00000b80  64 25 2c 58 3a 4a 53 52  26 46 46 44 34 0d 04 42  |d%,X:JSR&FFD4..B|
00000b90  12 43 4d 50 23 31 33 3a  42 4e 45 73 77 69 31 0d  |.CMP#13:BNEswi1.|
00000ba0  04 4c 11 4c 44 58 23 32  35 35 3a 2e 73 77 69 32  |.L.LDX#255:.swi2|
00000bb0  0d 04 56 1c 49 4e 58 3a  4c 44 41 77 6f 72 64 74  |..V.INX:LDAwordt|
00000bc0  25 2c 58 3a 4a 53 52 26  46 46 44 34 0d 04 60 23  |%,X:JSR&FFD4..`#|
00000bd0  43 4d 50 23 31 33 3a 42  4e 45 73 77 69 32 3a 4c  |CMP#13:BNEswi2:L|
00000be0  44 41 23 31 3a 53 54 41  26 38 45 3a 52 54 53 0d  |DA#1:STA&8E:RTS.|
00000bf0  04 6a 1c 2e 61 64 64 5f  77 6f 72 64 3a 4a 53 52  |.j..add_word:JSR|
00000c00  70 6f 69 6e 74 65 72 5f  65 6e 64 0d 04 74 15 4c  |pointer_end..t.L|
00000c10  44 58 23 32 35 35 3a 2e  61 64 64 5f 64 69 63 74  |DX#255:.add_dict|
00000c20  0d 04 7e 1b 49 4e 58 3a  4c 44 41 77 6f 72 64 25  |..~.INX:LDAword%|
00000c30  2c 58 3a 4a 53 52 26 46  46 44 34 0d 04 88 1a 43  |,X:JSR&FFD4....C|
00000c40  4d 50 23 31 33 3a 42 4e  45 61 64 64 5f 64 69 63  |MP#13:BNEadd_dic|
00000c50  74 3a 52 54 53 0d 04 92  0f 2e 63 68 65 63 6b 5f  |t:RTS.....check_|
00000c60  77 6f 72 64 0d 04 9c 14  4a 53 52 70 6f 69 6e 74  |word....JSRpoint|
00000c70  65 72 5f 73 74 61 72 74  0d 04 a6 1e 4c 44 58 23  |er_start....LDX#|
00000c80  32 35 35 3a 4c 44 59 26  38 46 3a 2e 63 68 65 63  |255:LDY&8F:.chec|
00000c90  6b 5f 64 69 63 74 0d 04  b0 1b 49 4e 58 3a 4a 53  |k_dict....INX:JS|
00000ca0  52 26 46 46 44 37 3a 42  43 53 77 6f 72 64 5f 6f  |R&FFD7:BCSword_o|
00000cb0  6b 0d 04 ba 20 43 4d 50  23 31 33 3a 42 45 51 77  |k... CMP#13:BEQw|
00000cc0  6f 72 64 5f 6f 6b 3a 43  4d 50 77 6f 72 64 25 2c  |ord_ok:CMPword%,|
00000cd0  58 0d 04 c4 1d 42 45 51  63 68 65 63 6b 5f 64 69  |X....BEQcheck_di|
00000ce0  63 74 3a 42 43 53 62 61  64 5f 77 6f 72 64 0d 04  |ct:BCSbad_word..|
00000cf0  ce 23 2e 6e 65 78 74 5f  77 6f 72 64 3a 4a 53 52  |.#.next_word:JSR|
00000d00  26 46 46 44 37 3a 42 43  53 62 61 64 5f 77 6f 72  |&FFD7:BCSbad_wor|
00000d10  64 0d 04 d8 15 43 4d 50  23 30 3a 42 45 51 62 61  |d....CMP#0:BEQba|
00000d20  64 5f 77 6f 72 64 0d 04  e2 17 43 4d 50 23 31 33  |d_word....CMP#13|
00000d30  3a 42 4e 45 6e 65 78 74  5f 77 6f 72 64 0d 04 ec  |:BNEnext_word...|
00000d40  20 2e 6e 77 62 63 6b 3a  4c 44 58 23 32 35 35 3a  | .nwbck:LDX#255:|
00000d50  4a 4d 50 63 68 65 63 6b  5f 64 69 63 74 0d 04 f6  |JMPcheck_dict...|
00000d60  38 2e 77 6f 72 64 5f 6f  6b 3a 4c 44 41 77 6f 72  |8.word_ok:LDAwor|
00000d70  64 25 2c 58 3a 43 4d 50  23 31 33 3a 42 4e 45 6e  |d%,X:CMP#13:BNEn|
00000d80  77 62 63 6b 3a 4c 44 41  23 31 3a 53 54 41 26 38  |wbck:LDA#1:STA&8|
00000d90  45 3a 52 54 53 0d 05 00  1e 2e 62 61 64 5f 77 6f  |E:RTS.....bad_wo|
00000da0  72 64 3a 4c 44 41 23 30  3a 53 54 41 26 38 45 3a  |rd:LDA#0:STA&8E:|
00000db0  52 54 53 0d 05 0a 0a 2e  63 6f 75 6e 74 0d 05 14  |RTS.....count...|
00000dc0  1f 4c 44 59 26 38 46 3a  4a 53 52 26 46 46 44 37  |.LDY&8F:JSR&FFD7|
00000dd0  3a 42 43 53 63 6f 75 6e  74 6f 75 74 0d 05 1e 15  |:BCScountout....|
00000de0  43 4d 50 23 30 3a 42 45  51 63 6f 75 6e 74 6f 75  |CMP#0:BEQcountou|
00000df0  74 0d 05 28 13 43 4d 50  23 31 33 3a 42 4e 45 63  |t..(.CMP#13:BNEc|
00000e00  6f 75 6e 74 0d 05 32 14  4c 44 41 23 31 3a 53 54  |ount..2.LDA#1:ST|
00000e10  41 26 38 45 3a 52 54 53  0d 05 3c 1e 2e 63 6f 75  |A&8E:RTS..<..cou|
00000e20  6e 74 6f 75 74 3a 4c 44  41 23 30 3a 53 54 41 26  |ntout:LDA#0:STA&|
00000e30  38 45 3a 52 54 53 0d 05  46 07 5d 3a ed 0d 05 50  |8E:RTS..F.]:...P|
00000e40  05 e1 0d 05 5a 10 dd f2  77 6f 72 64 5f 63 68 65  |....Z...word_che|
00000e50  63 6b 0d 05 64 05 f5 0d  05 6e 3c db 3a f1 bd 28  |ck..d....n<.:..(|
00000e60  43 25 29 22 46 69 6c 65  6e 61 6d 65 20 6f 66 20  |C%)"Filename of |
00000e70  74 65 78 74 20 66 69 6c  65 20 74 6f 20 63 68 65  |text file to che|
00000e80  63 6b 3f 22 27 bd 28 43  25 2b 32 29 3b 3a 2a 46  |ck?"'.(C%+2);:*F|
00000e90  58 32 31 0d 05 78 14 e8  22 3a 22 46 24 3a 24 77  |X21..x..":"F$:$w|
00000ea0  6f 72 64 25 3d 46 24 0d  05 82 40 d6 6f 70 65 6e  |ord%=F$...@.open|
00000eb0  75 70 3a e7 3f 26 38 46  3d 30 3a ef 37 3a f1 27  |up:.?&8F=0:.7:.'|
00000ec0  27 bd 28 43 25 29 22 46  69 6c 65 20 64 6f 65 73  |'.(C%)"File does|
00000ed0  6e 27 74 20 65 78 69 73  74 2e 22 3a d1 3d 30 3a  |n't exist.":.=0:|
00000ee0  f5 fd 91 3e 32 30 30 0d  05 8c 0b fd 3f 26 38 46  |...>200.....?&8F|
00000ef0  3e 30 0d 05 96 0c d6 63  6c 6f 73 65 3a db 0d 05  |>0.....close:...|
00000f00  a0 4b f1 bd 28 43 25 29  22 41 75 74 6f 6d 61 74  |.K..(C%)"Automat|
00000f10  69 63 61 6c 6c 79 20 61  64 64 20 77 6f 72 64 73  |ically add words|
00000f20  20 74 6f 20 64 69 63 74  69 6f 6e 61 72 79 3f 22  | to dictionary?"|
00000f30  27 bd 28 43 25 2b 32 29  22 28 59 65 73 2f 4e 6f  |'.(C%+2)"(Yes/No|
00000f40  29 22 3b 3a 2a 46 58 32  31 0d 05 aa 11 f5 41 24  |)";:*FX21.....A$|
00000f50  3d bd 28 a5 20 80 26 44  46 29 0d 05 b4 13 fd 41  |=.(. .&DF).....A|
00000f60  24 3d 22 59 22 20 84 41  24 3d 22 4e 22 0d 05 be  |$="Y" .A$="N"...|
00000f70  11 61 64 64 25 3d 28 41  24 3d 22 59 22 29 0d 05  |.add%=(A$="Y")..|
00000f80  c8 7e e7 ac 61 64 64 25  3a db 3a f1 bd 28 43 25  |.~..add%:.:..(C%|
00000f90  29 22 41 63 63 75 6d 75  6c 61 74 69 6f 6e 20 6d  |)"Accumulation m|
00000fa0  6f 64 65 3f 22 27 bd 28  43 25 2b 32 29 22 28 59  |ode?"'.(C%+2)"(Y|
00000fb0  65 73 2f 4e 6f 29 22 3b  3a 41 25 3d 32 31 3a 58  |es/No)";:A%=21:X|
00000fc0  25 3d 30 3a 59 25 3d 30  3a d6 26 46 46 46 34 3a  |%=0:Y%=0:.&FFF4:|
00000fd0  f5 41 24 3d bd 28 a5 20  80 26 44 46 29 3a fd 41  |.A$=.(. .&DF):.A|
00000fe0  24 3d 22 59 22 20 84 41  24 3d 22 4e 22 3a 61 63  |$="Y" .A$="N":ac|
00000ff0  63 6d 25 3d 28 41 24 3d  22 59 22 29 0d 05 d2 17  |cm%=(A$="Y")....|
00001000  db 3a 61 63 6e 74 25 3d  30 3a 58 3d 8e 28 46 24  |.:acnt%=0:X=.(F$|
00001010  29 3a f5 0d 05 dc 12 57  24 3d a4 67 65 74 77 6f  |):.....W$=.getwo|
00001020  72 64 28 58 29 0d 05 e6  11 db 3a f1 bd 28 43 25  |rd(X).....:..(C%|
00001030  2b 32 29 3b 57 24 0d 05  f0 2a e7 ac a4 65 6f 66  |+2);W$...*...eof|
00001040  28 58 29 20 84 57 24 3c  3e 22 22 3a f2 63 6f 64  |(X) .W$<>"":.cod|
00001050  28 57 24 2c 61 64 64 25  29 3a d6 63 6c 6f 73 65  |(W$,add%):.close|
00001060  0d 05 fa 0c fd a4 65 6f  66 28 58 29 0d 06 04 07  |......eof(X)....|
00001070  d9 23 58 0d 06 0e 17 e7  61 63 63 6d 25 20 8c f2  |.#X.....accm% ..|
00001080  63 75 6d 5f 66 69 6e 69  73 68 0d 06 18 05 e1 0d  |cum_finish......|
00001090  06 22 10 dd a4 67 65 74  77 6f 72 64 28 58 29 0d  |."...getword(X).|
000010a0  06 2c 0f 57 24 3d 22 22  3a f5 3a 45 3d a3 0d 06  |.,.W$="":.:E=...|
000010b0  36 46 43 3d 9a 23 58 3a  e7 28 43 3e 3d 97 22 41  |6FC=.#X:.(C>=."A|
000010c0  22 20 80 43 3c 3d 97 22  5a 22 29 20 84 28 43 3e  |" .C<=."Z") .(C>|
000010d0  3d 97 22 61 22 20 80 43  3c 3d 97 22 7a 22 29 20  |=."a" .C<=."z") |
000010e0  8c 57 24 3d 57 24 2b bd  28 43 20 80 26 44 46 29  |.W$=W$+.(C .&DF)|
000010f0  3a 45 3d b9 0d 06 40 22  e7 57 24 3c 3e 22 22 20  |:E=...@".W$<>"" |
00001100  80 43 3d 97 22 27 22 20  8c 57 24 3d 57 24 2b 22  |.C=."'" .W$=W$+"|
00001110  27 22 3a 45 3d b9 0d 06  4a 1a fd 28 ac 45 20 80  |'":E=...J..(.E .|
00001120  57 24 3c 3e 22 22 29 20  84 a4 65 6f 66 28 58 29  |W$<>"") ..eof(X)|
00001130  0d 06 54 1e e7 c2 57 24  2c 31 29 3d 22 27 22 20  |..T...W$,1)="'" |
00001140  8c 57 24 3d c0 57 24 2c  a9 57 24 2d 31 29 0d 06  |.W$=.W$,.W$-1)..|
00001150  5e 1a e7 57 24 3d 22 22  20 80 ac a4 65 6f 66 28  |^..W$="" ...eof(|
00001160  58 29 20 8c 8d 54 6c 46  0d 06 68 07 3d 57 24 0d  |X) ..TlF..h.=W$.|
00001170  06 72 12 dd f2 63 6f 64  28 57 24 2c 61 64 64 25  |.r...cod(W$,add%|
00001180  29 0d 06 7c 15 24 77 6f  72 64 25 3d 22 5f 22 2b  |)..|.$word%="_"+|
00001190  c0 57 24 2c 31 29 0d 06  86 0b d6 6f 70 65 6e 75  |.W$,1).....openu|
000011a0  70 0d 06 90 15 24 77 6f  72 64 25 3d c2 57 24 2c  |p....$word%=.W$,|
000011b0  a9 57 24 2d 31 29 0d 06  9a 0f d6 63 68 65 63 6b  |.W$-1).....check|
000011c0  5f 77 6f 72 64 0d 06 a4  0d e7 3f 26 38 45 3d 31  |_word.....?&8E=1|
000011d0  3a e1 0d 06 ae 0f e7 61  64 64 25 20 8c 8d 64 74  |:......add% ..dt|
000011e0  46 0d 06 b8 2f f1 bd 28  43 25 29 22 2e 2e 69 73  |F.../..(C%)"..is|
000011f0  20 6e 6f 74 20 69 6e 20  74 68 65 20 63 75 72 72  | not in the curr|
00001200  65 6e 74 20 64 69 63 74  69 6f 6e 61 72 79 22 27  |ent dictionary"'|
00001210  0d 06 c2 3f e7 61 63 63  6d 25 20 80 61 63 6e 74  |...?.accm% .acnt|
00001220  25 3c 35 30 30 3a 61 63  6e 74 25 3d 61 63 6e 74  |%<500:acnt%=acnt|
00001230  25 2b 31 3a 63 75 6d 24  28 61 63 6e 74 25 29 3d  |%+1:cum$(acnt%)=|
00001240  57 24 3a d1 3d 30 3a f5  fd 91 3e 31 30 3a e1 0d  |W$:.=0:...>10:..|
00001250  06 cc 35 f1 bd 28 43 25  2b 32 29 22 49 20 2d 20  |..5..(C%+2)"I - |
00001260  69 67 6e 6f 72 65 3b 20  41 20 2d 20 61 64 64 20  |ignore; A - add |
00001270  74 6f 20 64 69 63 74 69  6f 6e 61 72 79 22 3a 2a  |to dictionary":*|
00001280  46 58 32 31 0d 06 d6 11  f5 41 24 3d bd 28 a5 20  |FX21.....A$=.(. |
00001290  80 26 44 46 29 0d 06 e0  13 fd 41 24 3d 22 49 22  |.&DF).....A$="I"|
000012a0  20 84 41 24 3d 22 41 22  0d 06 ea 0f e7 41 24 3d  | .A$="A".....A$=|
000012b0  22 49 22 3a db 3a e1 0d  06 f4 15 24 77 6f 72 64  |"I":.:.....$word|
000012c0  25 3d c2 57 24 2c a9 57  24 2d 31 29 0d 06 fe 15  |%=.W$,.W$-1)....|
000012d0  d6 61 64 64 5f 77 6f 72  64 3a d6 73 6f 72 74 3a  |.add_word:.sort:|
000012e0  db 0d 07 08 05 e1 0d 07  12 10 dd a4 62 67 65 74  |............bget|
000012f0  3a 57 24 3d 22 22 0d 07  1c 0b f5 3a 57 3d 9a 23  |:W$="".....:W=.#|
00001300  58 0d 07 26 13 e7 57 3c  3e 31 33 3a 57 24 3d 57  |X..&..W<>13:W$=W|
00001310  24 2b bd 57 0d 07 30 09  fd 57 3d 31 33 0d 07 3a  |$+.W..0..W=13..:|
00001320  07 3d 57 24 0d 07 44 0a  dd f2 6e 65 78 74 0d 07  |.=W$..D...next..|
00001330  4e 0f e7 ac a4 65 6f 66  28 58 29 3a e1 0d 07 58  |N....eof(X):...X|
00001340  0a d6 63 6c 6f 73 65 0d  07 62 0f 46 24 3d bd 28  |..close..b.F$=.(|
00001350  97 46 24 2b 31 29 0d 07  6c 13 e7 46 24 3e 22 5a  |.F$+1)..l..F$>"Z|
00001360  22 20 8c 46 24 3d 22 41  22 0d 07 76 20 24 77 6f  |" .F$="A"..v $wo|
00001370  72 64 25 3d 22 5f 22 2b  46 24 3a d6 6f 70 65 6e  |rd%="_"+F$:.open|
00001380  75 70 3a 58 3d 3f 26 38  46 0d 07 80 12 e7 a4 65  |up:X=?&8F......e|
00001390  6f 66 28 58 29 3a e5 8d  44 58 47 0d 07 8a 05 e1  |of(X):..DXG.....|
000013a0  0d 07 94 0a dd f2 73 68  6f 77 0d 07 9e 0e 49 3d  |......show....I=|
000013b0  30 3a f5 49 3d 49 2b 31  0d 07 a8 17 70 74 72 28  |0:.I=I+1....ptr(|
000013c0  49 29 3d 8f 23 58 3a 66  24 28 49 29 3d 46 24 0d  |I)=.#X:f$(I)=F$.|
000013d0  07 b2 1d f1 bd 28 43 25  2b 32 29 3b c3 49 3b 22  |.....(C%+2);.I;"|
000013e0  29 20 22 3b 46 24 3b a4  62 67 65 74 0d 07 bc 09  |) ";F$;.bget....|
000013f0  f2 6e 65 78 74 0d 07 c6  08 fd 49 3d 39 0d 07 d0  |.next.....I=9...|
00001400  05 e1 0d 07 da 0a dd f2  76 69 65 77 0d 07 e4 0c  |........view....|
00001410  db 3a 46 24 3d 22 41 22  0d 07 ee 20 24 77 6f 72  |.:F$="A"... $wor|
00001420  64 25 3d 22 5f 22 2b 46  24 3a d6 6f 70 65 6e 75  |d%="_"+F$:.openu|
00001430  70 3a 58 3d 3f 26 38 46  0d 07 f8 09 f2 6e 65 78  |p:X=?&8F.....nex|
00001440  74 0d 08 02 09 f2 73 68  6f 77 0d 08 0c a0 f1 27  |t.....show.....'|
00001450  27 bd 28 43 25 29 22 50  72 65 73 73 20 31 2d 22  |'.(C%)"Press 1-"|
00001460  3b c3 49 3b 22 20 74 6f  20 73 65 6c 65 63 74 20  |;.I;" to select |
00001470  61 6e 20 69 74 65 6d 22  27 bd 28 43 25 29 22 20  |an item"'.(C%)" |
00001480  20 20 20 20 20 41 2d 5a  20 66 6f 72 20 61 20 6e  |     A-Z for a n|
00001490  65 77 20 77 6f 72 64 20  6c 69 73 74 22 27 bd 28  |ew word list"'.(|
000014a0  43 25 29 22 20 20 20 20  20 20 20 20 2b 20 74 6f  |C%)"        + to|
000014b0  20 61 64 64 20 61 20 6e  65 77 20 77 6f 72 64 20  | add a new word |
000014c0  20 22 27 bd 28 43 25 29  22 20 20 20 20 20 20 20  | "'.(C%)"       |
000014d0  20 40 20 66 6f 72 20 74  68 65 20 6e 65 78 74 20  | @ for the next |
000014e0  77 6f 72 64 20 6c 69 73  74 22 0d 08 16 09 2a 46  |word list"....*F|
000014f0  58 32 31 0d 08 20 09 f5  41 24 3d be 0d 08 2a 54  |X21.. ..A$=...*T|
00001500  fd 28 41 24 3e 3d 22 31  22 20 80 41 24 3c 3d c3  |.(A$>="1" .A$<=.|
00001510  49 29 20 84 28 bd 28 97  41 24 20 80 26 44 46 29  |I) .(.(.A$ .&DF)|
00001520  3e 3d 22 41 22 20 80 bd  28 97 41 24 20 80 26 44  |>="A" ..(.A$ .&D|
00001530  46 29 3c 3d 22 5a 22 29  20 84 41 24 3d 22 2b 22  |F)<="Z") .A$="+"|
00001540  20 84 41 24 3d 22 3b 22  20 84 41 24 3d 22 40 22  | .A$=";" .A$="@"|
00001550  0d 08 34 21 e7 41 24 3d  22 3b 22 20 84 41 24 3d  |..4!.A$=";" .A$=|
00001560  22 2b 22 3a db 3a 41 24  3d a4 6e 65 77 77 6f 72  |"+":.:A$=.newwor|
00001570  64 0d 08 3e 13 e7 41 24  3d 22 40 22 3a db 3a e5  |d..>..A$="@":.:.|
00001580  8d 64 78 47 0d 08 48 2a  e7 41 24 3e 3d 22 41 22  |.dxG..H*.A$>="A"|
00001590  20 80 41 24 3c 3d 22 5a  22 3a db 3a d6 63 6c 6f  | .A$<="Z":.:.clo|
000015a0  73 65 3a 46 24 3d 41 24  3a e5 8d 64 6e 47 0d 08  |se:F$=A$:..dnG..|
000015b0  52 4d 49 3d 97 41 24 2d  34 38 3a d6 63 6c 6f 73  |RMI=.A$-48:.clos|
000015c0  65 3a 46 24 3d 66 24 28  49 29 3a 24 77 6f 72 64  |e:F$=f$(I):$word|
000015d0  25 3d 22 5f 22 2b 46 24  3a d6 6f 70 65 6e 75 70  |%="_"+F$:.openup|
000015e0  3a 58 3d 3f 26 38 46 3a  cf 23 58 3d 70 74 72 28  |:X=?&8F:.#X=ptr(|
000015f0  49 29 3a 57 24 3d a4 62  67 65 74 0d 08 5c 54 e7  |I):W$=.bget..\T.|
00001600  57 24 3d 22 22 3a ef 37  3a f1 27 27 bd 28 43 25  |W$="":.7:.''.(C%|
00001610  2b 32 29 22 43 61 6e 6e  6f 74 20 61 6c 74 65 72  |+2)"Cannot alter|
00001620  20 73 69 6e 67 6c 65 20  6c 65 74 74 65 72 73 22  | single letters"|
00001630  3a d1 3d 30 3a f5 fd 91  3e 32 30 30 3a db 3a cf  |:.=0:...>200:.:.|
00001640  23 58 3d 70 74 72 28 49  29 3a e5 8d 54 42 48 0d  |#X=ptr(I):..TBH.|
00001650  08 66 5d db 3a f1 bd 28  43 25 2b 32 29 46 24 3b  |.f].:..(C%+2)F$;|
00001660  57 24 27 27 bd 28 43 25  29 22 50 72 65 73 73 3a  |W$''.(C%)"Press:|
00001670  20 41 20 74 6f 20 61 6c  74 65 72 22 27 bd 28 43  | A to alter"'.(C|
00001680  25 29 89 37 22 44 20 74  6f 20 64 65 6c 65 74 65  |%).7"D to delete|
00001690  22 27 bd 28 43 25 29 89  37 22 49 20 74 6f 20 69  |"'.(C%).7"I to i|
000016a0  67 6e 6f 72 65 22 3a 2a  46 58 32 31 0d 08 70 11  |gnore":*FX21..p.|
000016b0  f5 41 24 3d bd 28 a5 20  80 26 44 46 29 0d 08 7a  |.A$=.(. .&DF)..z|
000016c0  1b fd 41 24 3d 22 41 22  20 84 41 24 3d 22 44 22  |..A$="A" .A$="D"|
000016d0  20 84 41 24 3d 22 49 22  0d 08 84 1f e7 41 24 3d  | .A$="I".....A$=|
000016e0  22 49 22 20 8c db 3a cf  23 58 3d 70 74 72 28 49  |"I" ..:.#X=ptr(I|
000016f0  29 3a e5 8d 54 42 48 0d  08 8e 22 e7 41 24 3d 22  |):..TBH...".A$="|
00001700  44 22 3a f2 64 65 6c 65  74 65 3a db 3a d6 63 6c  |D":.delete:.:.cl|
00001710  6f 73 65 3a e5 8d 64 6e  47 0d 08 98 45 f2 64 65  |ose:..dnG...E.de|
00001720  6c 65 74 65 3a db 3a f1  bd 28 43 25 2b 32 29 22  |lete:.:..(C%+2)"|
00001730  50 6c 65 61 73 65 20 65  6e 74 65 72 20 63 6f 72  |Please enter cor|
00001740  72 65 63 74 20 73 70 65  6c 6c 69 6e 67 22 27 bd  |rect spelling"'.|
00001750  28 43 25 29 22 3a 22 3b  3a 2a 46 58 32 31 0d 08  |(C%)":";:*FX21..|
00001760  a2 09 e8 22 22 57 24 0d  08 ac 15 24 77 6f 72 64  |...""W$....$word|
00001770  25 3d c2 57 24 2c a9 57  24 2d 31 29 0d 08 b6 13  |%=.W$,.W$-1)....|
00001780  d6 61 64 64 5f 77 6f 72  64 3a d6 73 6f 72 74 0d  |.add_word:.sort.|
00001790  08 c0 12 db 3a d6 63 6c  6f 73 65 3a e5 8d 64 6e  |....:.close:..dn|
000017a0  47 0d 08 ca 0c dd f2 64  65 6c 65 74 65 0d 08 d4  |G......delete...|
000017b0  29 cf 23 58 3d 70 74 72  28 49 29 3a e3 51 3d 31  |).#X=ptr(I):.Q=1|
000017c0  20 b8 a9 57 24 3a d5 23  58 2c 97 22 5a 22 3a ed  | ..W$:.#X,."Z":.|
000017d0  3a d6 73 6f 72 74 0d 08  de 10 d6 70 6f 69 6e 74  |:.sort.....point|
000017e0  65 72 5f 65 6e 64 0d 08  e8 0d cf 23 58 3d 8f 23  |er_end.....#X=.#|
000017f0  58 2d 51 0d 08 f2 13 e3  52 3d 31 20 b8 51 3a d5  |X-Q.....R=1 .Q:.|
00001800  23 58 2c 30 3a ed 0d 08  fc 05 e1 0d 09 06 0d dd  |#X,0:...........|
00001810  a4 6e 65 77 77 6f 72 64  0d 09 10 33 f1 bd 28 43  |.newword...3..(C|
00001820  25 2b 32 29 22 50 6c 65  61 73 65 20 65 6e 74 65  |%+2)"Please ente|
00001830  72 20 6e 65 77 20 77 6f  72 64 22 27 bd 28 43 25  |r new word"'.(C%|
00001840  29 22 3a 22 3b 3a 2a 46  58 32 31 0d 09 1a 09 e8  |)":";:*FX21.....|
00001850  22 22 57 24 0d 09 24 3f  e7 a9 57 24 3e 30 20 8c  |""W$..$?..W$>0 .|
00001860  58 24 3d 57 24 3a 57 24  3d 22 22 3a e3 6d 6d 3d  |X$=W$:W$="":.mm=|
00001870  31 20 b8 a9 58 24 3a 57  24 3d 57 24 2b bd 28 97  |1 ..X$:W$=W$+.(.|
00001880  28 c1 58 24 2c 6d 6d 2c  31 29 29 20 80 26 44 46  |(.X$,mm,1)) .&DF|
00001890  29 3a ed 0d 09 2e 5a e7  57 24 3d 22 22 20 84 c0  |):....Z.W$="" ..|
000018a0  57 24 2c 31 29 3c 22 41  22 20 84 c0 57 24 2c 31  |W$,1)<"A" ..W$,1|
000018b0  29 3e 22 5a 22 20 8c ef  37 3a f1 27 27 bd 28 43  |)>"Z" ..7:.''.(C|
000018c0  25 2b 32 29 22 42 61 64  20 77 6f 72 64 20 2d 20  |%+2)"Bad word - |
000018d0  6e 6f 74 20 65 6e 74 65  72 65 64 22 3a d1 3d 30  |not entered":.=0|
000018e0  3a f5 fd 91 3e 32 30 30  3a 3d 22 40 22 0d 09 38  |:...>200:="@"..8|
000018f0  0a d6 63 6c 6f 73 65 0d  09 42 15 24 77 6f 72 64  |..close..B.$word|
00001900  25 3d 22 5f 22 2b c0 57  24 2c 31 29 0d 09 4c 0b  |%="_"+.W$,1)..L.|
00001910  d6 6f 70 65 6e 75 70 0d  09 56 15 24 77 6f 72 64  |.openup..V.$word|
00001920  25 3d c2 57 24 2c a9 57  24 2d 31 29 0d 09 60 13  |%=.W$,.W$-1)..`.|
00001930  d6 61 64 64 5f 77 6f 72  64 3a d6 73 6f 72 74 0d  |.add_word:.sort.|
00001940  09 6a 0b 3d c0 57 24 2c  31 29 0d 09 74 10 dd f2  |.j.=.W$,1)..t...|
00001950  63 75 6d 5f 66 69 6e 69  73 68 0d 09 7e 0e e7 61  |cum_finish..~..a|
00001960  63 6e 74 25 3d 30 3a e1  0d 09 88 11 e3 71 3d 31  |cnt%=0:......q=1|
00001970  20 b8 61 63 6e 74 25 3a  db 0d 09 92 3e f1 bd 28  | .acnt%:....>..(|
00001980  43 25 2b 32 29 63 75 6d  24 28 71 29 27 bd 28 43  |C%+2)cum$(q)'.(C|
00001990  25 29 22 2e 2e 69 73 20  6e 6f 74 20 69 6e 20 74  |%)"..is not in t|
000019a0  68 65 20 63 75 72 72 65  6e 74 20 64 69 63 74 69  |he current dicti|
000019b0  6f 6e 61 72 79 22 27 0d  09 9c 35 f1 bd 28 43 25  |onary"'...5..(C%|
000019c0  2b 32 29 22 49 20 2d 20  69 67 6e 6f 72 65 3b 20  |+2)"I - ignore; |
000019d0  41 20 2d 20 61 64 64 20  74 6f 20 64 69 63 74 69  |A - add to dicti|
000019e0  6f 6e 61 72 79 22 3a 2a  46 58 32 31 0d 09 a6 11  |onary":*FX21....|
000019f0  f5 41 24 3d bd 28 a5 20  80 26 44 46 29 0d 09 b0  |.A$=.(. .&DF)...|
00001a00  13 fd 41 24 3d 22 49 22  20 84 41 24 3d 22 41 22  |..A$="I" .A$="A"|
00001a10  0d 09 ba 11 e7 41 24 3d  22 49 22 3a e5 8d 64 62  |.....A$="I":..db|
00001a20  49 0d 09 c4 3e 24 77 6f  72 64 25 3d 22 5f 22 2b  |I...>$word%="_"+|
00001a30  c0 63 75 6d 24 28 71 29  2c 31 29 3a d6 6f 70 65  |.cum$(q),1):.ope|
00001a40  6e 75 70 3a 24 77 6f 72  64 25 3d c2 63 75 6d 24  |nup:$word%=.cum$|
00001a50  28 71 29 2c a9 63 75 6d  24 28 71 29 2d 31 29 0d  |(q),.cum$(q)-1).|
00001a60  09 ce 1d d6 63 68 65 63  6b 5f 77 6f 72 64 3a e7  |....check_word:.|
00001a70  3f 26 38 45 3d 31 20 8c  8d 64 62 49 0d 09 d8 1a  |?&8E=1 ..dbI....|
00001a80  d6 61 64 64 5f 77 6f 72  64 3a d6 73 6f 72 74 3a  |.add_word:.sort:|
00001a90  d6 63 6c 6f 73 65 0d 09  e2 05 ed 0d 09 ec 05 e1  |.close..........|
00001aa0  0d 09 f6 11 dd f2 63 6f  75 6e 74 5f 66 69 6c 65  |......count_file|
00001ab0  73 0d 0a 00 0a db 3a 6a  25 3d 30 0d 0a 0a 14 e3  |s.....:j%=0.....|
00001ac0  49 3d 97 22 41 22 20 b8  97 22 59 22 20 88 32 0d  |I=."A" .."Y" .2.|
00001ad0  0a 14 17 f1 bd 28 43 25  2b 32 29 bd 28 49 29 3b  |.....(C%+2).(I);|
00001ae0  22 20 3d 20 22 3b 0d 0a  1e 19 24 77 6f 72 64 25  |" = ";....$word%|
00001af0  3d 22 5f 22 2b bd 49 3a  d6 6f 70 65 6e 75 70 0d  |="_"+.I:.openup.|
00001b00  0a 28 11 69 25 3d 30 3a  3f 26 38 45 3d 30 3a f5  |.(.i%=0:?&8E=0:.|
00001b10  0d 0a 32 20 d6 63 6f 75  6e 74 3a 69 25 3d 69 25  |..2 .count:i%=i%|
00001b20  2b 3f 26 38 45 3a 6a 25  3d 6a 25 2b 3f 26 38 45  |+?&8E:j%=j%+?&8E|
00001b30  0d 0a 3c 12 fd 3f 26 38  45 3d 30 3a d6 63 6c 6f  |..<..?&8E=0:.clo|
00001b40  73 65 0d 0a 46 23 f1 c3  69 25 3b 8a 32 30 29 3b  |se..F#..i%;.20);|
00001b50  bd 28 43 25 2b 32 29 3b  bd 28 49 2b 31 29 3b 22  |.(C%+2);.(I+1);"|
00001b60  20 3d 20 22 3b 0d 0a 50  1d 24 77 6f 72 64 25 3d  | = ";..P.$word%=|
00001b70  22 5f 22 2b bd 28 49 2b  31 29 3a d6 6f 70 65 6e  |"_"+.(I+1):.open|
00001b80  75 70 0d 0a 5a 11 69 25  3d 30 3a 3f 26 38 45 3d  |up..Z.i%=0:?&8E=|
00001b90  30 3a f5 0d 0a 64 20 d6  63 6f 75 6e 74 3a 69 25  |0:...d .count:i%|
00001ba0  3d 69 25 2b 3f 26 38 45  3a 6a 25 3d 6a 25 2b 3f  |=i%+?&8E:j%=j%+?|
00001bb0  26 38 45 0d 0a 6e 12 fd  3f 26 38 45 3d 30 3a d6  |&8E..n..?&8E=0:.|
00001bc0  63 6c 6f 73 65 0d 0a 78  08 f1 c3 69 25 0d 0a 82  |close..x...i%...|
00001bd0  05 ed 0d 0a 8c 19 f1 27  27 bd 28 43 25 29 22 54  |.......''.(C%)"T|
00001be0  4f 54 41 4c 3a 20 22 3b  c3 6a 25 0d 0a 96 09 2a  |OTAL: ";.j%....*|
00001bf0  46 58 32 31 0d 0a a0 07  f5 fd a5 0d 0a aa 05 e1  |FX21............|
00001c00  0d 0a b4 0c dd a4 65 6f  66 28 58 29 0d 0a be 0c  |......eof(X)....|
00001c10  e7 c5 23 58 20 8c 3d b9  0d 0a c8 10 74 3d 8f 23  |..#X .=.....t=.#|
00001c20  58 3a 74 32 3d 9a 23 58  0d 0a d2 11 cf 23 58 3d  |X:t2=.#X.....#X=|
00001c30  74 3a 3d 28 74 32 3d 30  29 0d ff                 |t:=(t2=0)..|
00001c3b

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .