$ � >:4.Speech.!Diction.!RunImage

 
; � Speech! Dictionary program (C)1991 David J. Hoskins.
 

 
H title$="Speech Dictionary":name$="NewSpeech!":dir$="<Diction$Dir>."
2/ type%=&FFA:filesize%=64*1024:buffsize%=500
P5 � bk% 550,buff% buffsize%,file% 64*1024,name% 12
Z buffend%=buff%+buffsize%
n. ș "Wimp_Initialise",200,&4B534154,title$
x- ș "Wimp_OpenTemplate",,dir$+"Templates"
� $name%="Window"
�< ș "Wimp_LoadTemplate",,bk%+4,buff%,buffend%,-1,name%,0
� ș "Wimp_CloseTemplate"
� bk%!28=-1
�) ș "Wimp_CreateWindow",,bk%+4 � han%
�, ș "OS_File",255,dir$+"Speech!",file%,0
� 
� �doupdate
� 
� !bk%=han%
� ș "Wimp_OpenWindow",,bk%
� quit%=�
� �

( ș "Wimp_Poll",&81932,bk% � reason%

 Ȏ reason% �

# � 2: ș "Wimp_OpenWindow",,bk%

"	 � 3:

, ș "Wimp_CloseWindow",,bk%

6 quit%=�

@	 � 6:

J � bk%!12=han% � bk%!16=0 �

T Ȏ � �

^& � (bk%!8 � &50) <> 0: �start_drag

h �

r �

| � 7: �end_drag

� � 17,18: �receive

� �

� � quit%

� ș "Wimp_CloseDown"

� �

� :

� � �start_drag

� � ox%,oy%,col%,row%

�- bk%!0=han%:ș "Wimp_GetWindowState",,bk%

� ox%=bk%!4-bk%!20

� oy%=bk%!16-bk%!24

�( bk%!4=0:ș "Wimp_GetIconState",,bk%

� bk%!4=5
 bk%!8+=ox%:bk%!12+=oy%
 bk%!16+=ox%:bk%!20+=oy%
 bk%!24=0:bk%!28=0
&+ ș "OS_ReadModeVariable",-1,1 � ,,col%
0 bk%!32=col%*16+16
:+ ș "OS_ReadModeVariable",-1,2 � ,,row%
D bk%!36=row%*32+32
N ș "Wimp_DragBox",,bk%
X �
b :
l � �end_drag
v" ș "Wimp_GetPointerInfo",,bk%
�  bk%!20=bk%!12:bk%!24=bk%!16
� bk%!28=bk%!0:bk%!32=bk%!4
� bk%!36=filesize%
� bk%!40=type%
� $(bk%+44)=name$+�(0)
�  bk%!0=(44+�(name$)+4) � &FC
�
 bk%!12=0
�
 bk%!16=1
�/ ș "Wimp_SendMessage",17,bk%,bk%!20,bk%!24
� �
� :
� � �receive
� Ȏ bk%!16 �
 � 0: quit%=�
	 � 2:
1 ș "OS_File",10,bk%+44,type%,,file%,fileend%
 E bk%!8=bk%!12:bk%!16=3:ș "Wimp_SendMessage",17,bk%,bk%!20,bk%!24
* quit%=�
4 �
> �
� ��assemble
� 
� � opt%=0 � 2 � 2
* dic%=�(dir$+"Dictionary"):P%=diction%

[OPT opt%
 
$0.dictionary              ; alphabet pointers
. 
8@ EQUD other-dictionary:EQUD aa-dictionary:EQUD bb-dictionary
B= EQUD cc-dictionary:EQUD dd-dictionary:EQUD ee-dictionary
L= EQUD ff-dictionary:EQUD gg-dictionary:EQUD hh-dictionary
V= EQUD ii-dictionary:EQUD jj-dictionary:EQUD kk-dictionary
`= EQUD ll-dictionary:EQUD mm-dictionary:EQUD nn-dictionary
j= EQUD oo-dictionary:EQUD pp-dictionary:EQUD qq-dictionary
t= EQUD rr-dictionary:EQUD ss-dictionary:EQUD tt-dictionary
~= EQUD uu-dictionary:EQUD vv-dictionary:EQUD ww-dictionary
�= EQUD xx-dictionary:EQUD yy-dictionary:EQUD zz-dictionary
� 
�!.aa ]�getnext("aa"):[opt opt%
�(.bb ]�getnext("bb"):[opt opt%:EQUB 0
�(.cc ]�getnext("cc"):[opt opt%:EQUB 0
�(.dd ]�getnext("dd"):[opt opt%:EQUB 0
�(.ee ]�getnext("ee"):[opt opt%:EQUB 0
�(.ff ]�getnext("ff"):[opt opt%:EQUB 0
�(.gg ]�getnext("gg"):[opt opt%:EQUB 0
�(.hh ]�getnext("hh"):[opt opt%:EQUB 0
�(.ii ]�getnext("ii"):[opt opt%:EQUB 0
�(.jj ]�getnext("jj"):[opt opt%:EQUB 0
(.kk ]�getnext("kk"):[opt opt%:EQUB 0

(.ll ]�getnext("ll"):[opt opt%:EQUB 0
(.mm ]�getnext("mm"):[opt opt%:EQUB 0
(.nn ]�getnext("nn"):[opt opt%:EQUB 0
((.oo ]�getnext("oo"):[opt opt%:EQUB 0
2(.pp ]�getnext("pp"):[opt opt%:EQUB 0
<(.qq ]�getnext("qq"):[opt opt%:EQUB 0
F(.rr ]�getnext("rr"):[opt opt%:EQUB 0
P(.ss ]�getnext("ss"):[opt opt%:EQUB 0
Z(.tt ]�getnext("tt"):[opt opt%:EQUB 0
d(.uu ]�getnext("uu"):[opt opt%:EQUB 0
n(.vv ]�getnext("vv"):[opt opt%:EQUB 0
x(.ww ]�getnext("ww"):[opt opt%:EQUB 0
�(.xx ]�getnext("xx"):[opt opt%:EQUB 0
�(.yy ]�getnext("yy"):[opt opt%:EQUB 0
�(.zz ]�getnext("zz"):[opt opt%:EQUB 0
�..other ]�getnext("other"):[opt opt%:EQUB 0
�
 ALIGN
�
]�#dic%:�
� �
� 
� ��getnext(head$)
� 
� � A%=�#dic%:� A%=46
�> F%=�:� T%=1 � �head$:A%=�#dic%:� �(�head$,T%,1))<>A% F%=�
�< �:� F%=� � &804C03,"Can't find "+head$+" in dictionary"
/ �:F%=�:A$="":� A%=�#dic%:� A%>31 A$=A$+�A%
 � A$="." F%=�:A%=10
G � A%=10 � �#dic%:� F%=� � A$<>"" � �A$,1)<>" " [OPT opt%:EQUS A$:]
" � F%=�:�#dic%=�#dic%-1
, �
6 
@ ��doupdate
E7 ș "Spch_GetDictionary" � diction%:diction%+=file%
H ș "Hourglass_On"
J �assemble
O# filesize%=P%-file%:fileend%=P%
T ș "Hourglass_Off"
r �
�

00000000  0d 00 00 24 20 f4 20 3e  3a 34 2e 53 70 65 65 63  |...$ . >:4.Speec|
00000010  68 2e 21 44 69 63 74 69  6f 6e 2e 21 52 75 6e 49  |h.!Diction.!RunI|
00000020  6d 61 67 65 0d 00 01 05  20 0d 00 02 3b 20 f4 20  |mage.... ...; . |
00000030  53 70 65 65 63 68 21 20  44 69 63 74 69 6f 6e 61  |Speech! Dictiona|
00000040  72 79 20 70 72 6f 67 72  61 6d 20 28 43 29 31 39  |ry program (C)19|
00000050  39 31 20 44 61 76 69 64  20 4a 2e 20 48 6f 73 6b  |91 David J. Hosk|
00000060  69 6e 73 2e 0d 00 03 05  20 0d 00 0a 05 20 0d 00  |ins..... .... ..|
00000070  14 48 20 74 69 74 6c 65  24 3d 22 53 70 65 65 63  |.H title$="Speec|
00000080  68 20 44 69 63 74 69 6f  6e 61 72 79 22 3a 6e 61  |h Dictionary":na|
00000090  6d 65 24 3d 22 4e 65 77  53 70 65 65 63 68 21 22  |me$="NewSpeech!"|
000000a0  3a 64 69 72 24 3d 22 3c  44 69 63 74 69 6f 6e 24  |:dir$="<Diction$|
000000b0  44 69 72 3e 2e 22 0d 00  32 2f 20 74 79 70 65 25  |Dir>."..2/ type%|
000000c0  3d 26 46 46 41 3a 66 69  6c 65 73 69 7a 65 25 3d  |=&FFA:filesize%=|
000000d0  36 34 2a 31 30 32 34 3a  62 75 66 66 73 69 7a 65  |64*1024:buffsize|
000000e0  25 3d 35 30 30 0d 00 50  35 20 de 20 62 6b 25 20  |%=500..P5 . bk% |
000000f0  35 35 30 2c 62 75 66 66  25 20 62 75 66 66 73 69  |550,buff% buffsi|
00000100  7a 65 25 2c 66 69 6c 65  25 20 36 34 2a 31 30 32  |ze%,file% 64*102|
00000110  34 2c 6e 61 6d 65 25 20  31 32 0d 00 5a 1d 20 62  |4,name% 12..Z. b|
00000120  75 66 66 65 6e 64 25 3d  62 75 66 66 25 2b 62 75  |uffend%=buff%+bu|
00000130  66 66 73 69 7a 65 25 0d  00 6e 2e 20 c8 99 20 22  |ffsize%..n. .. "|
00000140  57 69 6d 70 5f 49 6e 69  74 69 61 6c 69 73 65 22  |Wimp_Initialise"|
00000150  2c 32 30 30 2c 26 34 42  35 33 34 31 35 34 2c 74  |,200,&4B534154,t|
00000160  69 74 6c 65 24 0d 00 78  2d 20 c8 99 20 22 57 69  |itle$..x- .. "Wi|
00000170  6d 70 5f 4f 70 65 6e 54  65 6d 70 6c 61 74 65 22  |mp_OpenTemplate"|
00000180  2c 2c 64 69 72 24 2b 22  54 65 6d 70 6c 61 74 65  |,,dir$+"Template|
00000190  73 22 0d 00 82 14 20 24  6e 61 6d 65 25 3d 22 57  |s".... $name%="W|
000001a0  69 6e 64 6f 77 22 0d 00  8c 3c 20 c8 99 20 22 57  |indow"...< .. "W|
000001b0  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
000001c0  22 2c 2c 62 6b 25 2b 34  2c 62 75 66 66 25 2c 62  |",,bk%+4,buff%,b|
000001d0  75 66 66 65 6e 64 25 2c  2d 31 2c 6e 61 6d 65 25  |uffend%,-1,name%|
000001e0  2c 30 0d 00 96 1c 20 c8  99 20 22 57 69 6d 70 5f  |,0.... .. "Wimp_|
000001f0  43 6c 6f 73 65 54 65 6d  70 6c 61 74 65 22 0d 00  |CloseTemplate"..|
00000200  a0 0e 20 62 6b 25 21 32  38 3d 2d 31 0d 00 aa 29  |.. bk%!28=-1...)|
00000210  20 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  | .. "Wimp_Create|
00000220  57 69 6e 64 6f 77 22 2c  2c 62 6b 25 2b 34 20 b8  |Window",,bk%+4 .|
00000230  20 68 61 6e 25 0d 00 b4  2c 20 c8 99 20 22 4f 53  | han%..., .. "OS|
00000240  5f 46 69 6c 65 22 2c 32  35 35 2c 64 69 72 24 2b  |_File",255,dir$+|
00000250  22 53 70 65 65 63 68 21  22 2c 66 69 6c 65 25 2c  |"Speech!",file%,|
00000260  30 0d 00 be 05 20 0d 00  c8 0e 20 f2 64 6f 75 70  |0.... .... .doup|
00000270  64 61 74 65 0d 00 d2 05  20 0d 00 dc 0e 20 21 62  |date.... .... !b|
00000280  6b 25 3d 68 61 6e 25 0d  00 e6 1e 20 c8 99 20 22  |k%=han%.... .. "|
00000290  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
000002a0  2c 2c 62 6b 25 0d 00 f0  0c 20 71 75 69 74 25 3d  |,,bk%.... quit%=|
000002b0  a3 0d 00 fa 06 20 f5 0d  01 04 28 20 c8 99 20 22  |..... ....( .. "|
000002c0  57 69 6d 70 5f 50 6f 6c  6c 22 2c 26 38 31 39 33  |Wimp_Poll",&8193|
000002d0  32 2c 62 6b 25 20 b8 20  72 65 61 73 6f 6e 25 0d  |2,bk% . reason%.|
000002e0  01 0e 11 20 c8 8e 20 72  65 61 73 6f 6e 25 20 ca  |... .. reason% .|
000002f0  0d 01 18 23 20 c9 20 32  3a 20 c8 99 20 22 57 69  |...# . 2: .. "Wi|
00000300  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00000310  62 6b 25 0d 01 22 09 20  c9 20 33 3a 0d 01 2c 1f  |bk%..". . 3:..,.|
00000320  20 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  | .. "Wimp_CloseW|
00000330  69 6e 64 6f 77 22 2c 2c  62 6b 25 0d 01 36 0c 20  |indow",,bk%..6. |
00000340  71 75 69 74 25 3d b9 0d  01 40 09 20 c9 20 36 3a  |quit%=...@. . 6:|
00000350  0d 01 4a 1f 20 e7 20 62  6b 25 21 31 32 3d 68 61  |..J. . bk%!12=ha|
00000360  6e 25 20 80 20 62 6b 25  21 31 36 3d 30 20 8c 0d  |n% . bk%!16=0 ..|
00000370  01 54 0b 20 c8 8e 20 b9  20 ca 0d 01 5e 26 20 c9  |.T. .. . ...^& .|
00000380  20 28 62 6b 25 21 38 20  80 20 26 35 30 29 20 3c  | (bk%!8 . &50) <|
00000390  3e 20 30 3a 20 f2 73 74  61 72 74 5f 64 72 61 67  |> 0: .start_drag|
000003a0  0d 01 68 06 20 cb 0d 01  72 06 20 cd 0d 01 7c 13  |..h. ...r. ...|.|
000003b0  20 c9 20 37 3a 20 f2 65  6e 64 5f 64 72 61 67 0d  | . 7: .end_drag.|
000003c0  01 86 16 20 c9 20 31 37  2c 31 38 3a 20 f2 72 65  |... . 17,18: .re|
000003d0  63 65 69 76 65 0d 01 90  06 20 cb 0d 01 9a 0c 20  |ceive.... ..... |
000003e0  fd 20 71 75 69 74 25 0d  01 a4 18 20 c8 99 20 22  |. quit%.... .. "|
000003f0  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 0d  |Wimp_CloseDown".|
00000400  01 ae 06 20 e0 0d 01 b8  06 20 3a 0d 01 c2 12 20  |... ..... :.... |
00000410  dd 20 f2 73 74 61 72 74  5f 64 72 61 67 0d 01 cc  |. .start_drag...|
00000420  18 20 ea 20 6f 78 25 2c  6f 79 25 2c 63 6f 6c 25  |. . ox%,oy%,col%|
00000430  2c 72 6f 77 25 0d 01 d6  2d 20 62 6b 25 21 30 3d  |,row%...- bk%!0=|
00000440  68 61 6e 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |han%:.. "Wimp_Ge|
00000450  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00000460  6b 25 0d 01 e0 15 20 6f  78 25 3d 62 6b 25 21 34  |k%.... ox%=bk%!4|
00000470  2d 62 6b 25 21 32 30 0d  01 ea 16 20 6f 79 25 3d  |-bk%!20.... oy%=|
00000480  62 6b 25 21 31 36 2d 62  6b 25 21 32 34 0d 01 f4  |bk%!16-bk%!24...|
00000490  28 20 62 6b 25 21 34 3d  30 3a c8 99 20 22 57 69  |( bk%!4=0:.. "Wi|
000004a0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
000004b0  2c 2c 62 6b 25 0d 01 fe  0c 20 62 6b 25 21 34 3d  |,,bk%.... bk%!4=|
000004c0  35 0d 02 08 1b 20 62 6b  25 21 38 2b 3d 6f 78 25  |5.... bk%!8+=ox%|
000004d0  3a 62 6b 25 21 31 32 2b  3d 6f 79 25 0d 02 12 1c  |:bk%!12+=oy%....|
000004e0  20 62 6b 25 21 31 36 2b  3d 6f 78 25 3a 62 6b 25  | bk%!16+=ox%:bk%|
000004f0  21 32 30 2b 3d 6f 79 25  0d 02 1c 16 20 62 6b 25  |!20+=oy%.... bk%|
00000500  21 32 34 3d 30 3a 62 6b  25 21 32 38 3d 30 0d 02  |!24=0:bk%!28=0..|
00000510  26 2b 20 c8 99 20 22 4f  53 5f 52 65 61 64 4d 6f  |&+ .. "OS_ReadMo|
00000520  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 31  |deVariable",-1,1|
00000530  20 b8 20 2c 2c 63 6f 6c  25 0d 02 30 16 20 62 6b  | . ,,col%..0. bk|
00000540  25 21 33 32 3d 63 6f 6c  25 2a 31 36 2b 31 36 0d  |%!32=col%*16+16.|
00000550  02 3a 2b 20 c8 99 20 22  4f 53 5f 52 65 61 64 4d  |.:+ .. "OS_ReadM|
00000560  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 2d 31 2c  |odeVariable",-1,|
00000570  32 20 b8 20 2c 2c 72 6f  77 25 0d 02 44 16 20 62  |2 . ,,row%..D. b|
00000580  6b 25 21 33 36 3d 72 6f  77 25 2a 33 32 2b 33 32  |k%!36=row%*32+32|
00000590  0d 02 4e 1b 20 c8 99 20  22 57 69 6d 70 5f 44 72  |..N. .. "Wimp_Dr|
000005a0  61 67 42 6f 78 22 2c 2c  62 6b 25 0d 02 58 06 20  |agBox",,bk%..X. |
000005b0  e1 0d 02 62 06 20 3a 0d  02 6c 10 20 dd 20 f2 65  |...b. :..l. . .e|
000005c0  6e 64 5f 64 72 61 67 0d  02 76 22 20 c8 99 20 22  |nd_drag..v" .. "|
000005d0  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
000005e0  6e 66 6f 22 2c 2c 62 6b  25 0d 02 80 20 20 62 6b  |nfo",,bk%...  bk|
000005f0  25 21 32 30 3d 62 6b 25  21 31 32 3a 62 6b 25 21  |%!20=bk%!12:bk%!|
00000600  32 34 3d 62 6b 25 21 31  36 0d 02 8a 1e 20 62 6b  |24=bk%!16.... bk|
00000610  25 21 32 38 3d 62 6b 25  21 30 3a 62 6b 25 21 33  |%!28=bk%!0:bk%!3|
00000620  32 3d 62 6b 25 21 34 0d  02 94 15 20 62 6b 25 21  |2=bk%!4.... bk%!|
00000630  33 36 3d 66 69 6c 65 73  69 7a 65 25 0d 02 9e 11  |36=filesize%....|
00000640  20 62 6b 25 21 34 30 3d  74 79 70 65 25 0d 02 a8  | bk%!40=type%...|
00000650  19 20 24 28 62 6b 25 2b  34 34 29 3d 6e 61 6d 65  |. $(bk%+44)=name|
00000660  24 2b bd 28 30 29 0d 02  b2 20 20 62 6b 25 21 30  |$+.(0)...  bk%!0|
00000670  3d 28 34 34 2b a9 28 6e  61 6d 65 24 29 2b 34 29  |=(44+.(name$)+4)|
00000680  20 80 20 26 46 43 0d 02  bc 0d 20 62 6b 25 21 31  | . &FC.... bk%!1|
00000690  32 3d 30 0d 02 c6 0d 20  62 6b 25 21 31 36 3d 31  |2=0.... bk%!16=1|
000006a0  0d 02 d0 2f 20 c8 99 20  22 57 69 6d 70 5f 53 65  |.../ .. "Wimp_Se|
000006b0  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 62 6b  |ndMessage",17,bk|
000006c0  25 2c 62 6b 25 21 32 30  2c 62 6b 25 21 32 34 0d  |%,bk%!20,bk%!24.|
000006d0  02 da 06 20 e1 0d 02 e4  06 20 3a 0d 02 ee 0f 20  |... ..... :.... |
000006e0  dd 20 f2 72 65 63 65 69  76 65 0d 02 f8 10 20 c8  |. .receive.... .|
000006f0  8e 20 62 6b 25 21 31 36  20 ca 0d 03 02 11 20 c9  |. bk%!16 ..... .|
00000700  20 30 3a 20 71 75 69 74  25 3d b9 0d 03 0c 09 20  | 0: quit%=..... |
00000710  c9 20 32 3a 0d 03 16 31  20 c8 99 20 22 4f 53 5f  |. 2:...1 .. "OS_|
00000720  46 69 6c 65 22 2c 31 30  2c 62 6b 25 2b 34 34 2c  |File",10,bk%+44,|
00000730  74 79 70 65 25 2c 2c 66  69 6c 65 25 2c 66 69 6c  |type%,,file%,fil|
00000740  65 65 6e 64 25 0d 03 20  45 20 62 6b 25 21 38 3d  |eend%.. E bk%!8=|
00000750  62 6b 25 21 31 32 3a 62  6b 25 21 31 36 3d 33 3a  |bk%!12:bk%!16=3:|
00000760  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00000770  73 61 67 65 22 2c 31 37  2c 62 6b 25 2c 62 6b 25  |sage",17,bk%,bk%|
00000780  21 32 30 2c 62 6b 25 21  32 34 0d 03 2a 0c 20 71  |!20,bk%!24..*. q|
00000790  75 69 74 25 3d b9 0d 03  34 06 20 cb 0d 03 3e 06  |uit%=...4. ...>.|
000007a0  20 e1 0d 03 e8 0f 20 dd  f2 61 73 73 65 6d 62 6c  | ..... ..assembl|
000007b0  65 0d 03 f2 05 20 0d 03  fc 15 20 e3 20 6f 70 74  |e.... .... . opt|
000007c0  25 3d 30 20 b8 20 32 20  88 20 32 0d 04 06 2a 20  |%=0 . 2 . 2...* |
000007d0  64 69 63 25 3d 8e 28 64  69 72 24 2b 22 44 69 63  |dic%=.(dir$+"Dic|
000007e0  74 69 6f 6e 61 72 79 22  29 3a 50 25 3d 64 69 63  |tionary"):P%=dic|
000007f0  74 69 6f 6e 25 0d 04 10  0d 5b 4f 50 54 20 6f 70  |tion%....[OPT op|
00000800  74 25 0d 04 1a 05 20 0d  04 24 30 2e 64 69 63 74  |t%.... ..$0.dict|
00000810  69 6f 6e 61 72 79 20 20  20 20 20 20 20 20 20 20  |ionary          |
00000820  20 20 20 20 3b 20 61 6c  70 68 61 62 65 74 20 70  |    ; alphabet p|
00000830  6f 69 6e 74 65 72 73 0d  04 2e 05 20 0d 04 38 40  |ointers.... ..8@|
00000840  20 45 51 55 44 20 6f 74  68 65 72 2d 64 69 63 74  | EQUD other-dict|
00000850  69 6f 6e 61 72 79 3a 45  51 55 44 20 61 61 2d 64  |ionary:EQUD aa-d|
00000860  69 63 74 69 6f 6e 61 72  79 3a 45 51 55 44 20 62  |ictionary:EQUD b|
00000870  62 2d 64 69 63 74 69 6f  6e 61 72 79 0d 04 42 3d  |b-dictionary..B=|
00000880  20 45 51 55 44 20 63 63  2d 64 69 63 74 69 6f 6e  | EQUD cc-diction|
00000890  61 72 79 3a 45 51 55 44  20 64 64 2d 64 69 63 74  |ary:EQUD dd-dict|
000008a0  69 6f 6e 61 72 79 3a 45  51 55 44 20 65 65 2d 64  |ionary:EQUD ee-d|
000008b0  69 63 74 69 6f 6e 61 72  79 0d 04 4c 3d 20 45 51  |ictionary..L= EQ|
000008c0  55 44 20 66 66 2d 64 69  63 74 69 6f 6e 61 72 79  |UD ff-dictionary|
000008d0  3a 45 51 55 44 20 67 67  2d 64 69 63 74 69 6f 6e  |:EQUD gg-diction|
000008e0  61 72 79 3a 45 51 55 44  20 68 68 2d 64 69 63 74  |ary:EQUD hh-dict|
000008f0  69 6f 6e 61 72 79 0d 04  56 3d 20 45 51 55 44 20  |ionary..V= EQUD |
00000900  69 69 2d 64 69 63 74 69  6f 6e 61 72 79 3a 45 51  |ii-dictionary:EQ|
00000910  55 44 20 6a 6a 2d 64 69  63 74 69 6f 6e 61 72 79  |UD jj-dictionary|
00000920  3a 45 51 55 44 20 6b 6b  2d 64 69 63 74 69 6f 6e  |:EQUD kk-diction|
00000930  61 72 79 0d 04 60 3d 20  45 51 55 44 20 6c 6c 2d  |ary..`= EQUD ll-|
00000940  64 69 63 74 69 6f 6e 61  72 79 3a 45 51 55 44 20  |dictionary:EQUD |
00000950  6d 6d 2d 64 69 63 74 69  6f 6e 61 72 79 3a 45 51  |mm-dictionary:EQ|
00000960  55 44 20 6e 6e 2d 64 69  63 74 69 6f 6e 61 72 79  |UD nn-dictionary|
00000970  0d 04 6a 3d 20 45 51 55  44 20 6f 6f 2d 64 69 63  |..j= EQUD oo-dic|
00000980  74 69 6f 6e 61 72 79 3a  45 51 55 44 20 70 70 2d  |tionary:EQUD pp-|
00000990  64 69 63 74 69 6f 6e 61  72 79 3a 45 51 55 44 20  |dictionary:EQUD |
000009a0  71 71 2d 64 69 63 74 69  6f 6e 61 72 79 0d 04 74  |qq-dictionary..t|
000009b0  3d 20 45 51 55 44 20 72  72 2d 64 69 63 74 69 6f  |= EQUD rr-dictio|
000009c0  6e 61 72 79 3a 45 51 55  44 20 73 73 2d 64 69 63  |nary:EQUD ss-dic|
000009d0  74 69 6f 6e 61 72 79 3a  45 51 55 44 20 74 74 2d  |tionary:EQUD tt-|
000009e0  64 69 63 74 69 6f 6e 61  72 79 0d 04 7e 3d 20 45  |dictionary..~= E|
000009f0  51 55 44 20 75 75 2d 64  69 63 74 69 6f 6e 61 72  |QUD uu-dictionar|
00000a00  79 3a 45 51 55 44 20 76  76 2d 64 69 63 74 69 6f  |y:EQUD vv-dictio|
00000a10  6e 61 72 79 3a 45 51 55  44 20 77 77 2d 64 69 63  |nary:EQUD ww-dic|
00000a20  74 69 6f 6e 61 72 79 0d  04 88 3d 20 45 51 55 44  |tionary...= EQUD|
00000a30  20 78 78 2d 64 69 63 74  69 6f 6e 61 72 79 3a 45  | xx-dictionary:E|
00000a40  51 55 44 20 79 79 2d 64  69 63 74 69 6f 6e 61 72  |QUD yy-dictionar|
00000a50  79 3a 45 51 55 44 20 7a  7a 2d 64 69 63 74 69 6f  |y:EQUD zz-dictio|
00000a60  6e 61 72 79 0d 04 92 05  20 0d 04 9c 21 2e 61 61  |nary.... ...!.aa|
00000a70  20 5d f2 67 65 74 6e 65  78 74 28 22 61 61 22 29  | ].getnext("aa")|
00000a80  3a 5b 6f 70 74 20 6f 70  74 25 0d 04 a6 28 2e 62  |:[opt opt%...(.b|
00000a90  62 20 5d f2 67 65 74 6e  65 78 74 28 22 62 62 22  |b ].getnext("bb"|
00000aa0  29 3a 5b 6f 70 74 20 6f  70 74 25 3a 45 51 55 42  |):[opt opt%:EQUB|
00000ab0  20 30 0d 04 b0 28 2e 63  63 20 5d f2 67 65 74 6e  | 0...(.cc ].getn|
00000ac0  65 78 74 28 22 63 63 22  29 3a 5b 6f 70 74 20 6f  |ext("cc"):[opt o|
00000ad0  70 74 25 3a 45 51 55 42  20 30 0d 04 ba 28 2e 64  |pt%:EQUB 0...(.d|
00000ae0  64 20 5d f2 67 65 74 6e  65 78 74 28 22 64 64 22  |d ].getnext("dd"|
00000af0  29 3a 5b 6f 70 74 20 6f  70 74 25 3a 45 51 55 42  |):[opt opt%:EQUB|
00000b00  20 30 0d 04 c4 28 2e 65  65 20 5d f2 67 65 74 6e  | 0...(.ee ].getn|
00000b10  65 78 74 28 22 65 65 22  29 3a 5b 6f 70 74 20 6f  |ext("ee"):[opt o|
00000b20  70 74 25 3a 45 51 55 42  20 30 0d 04 ce 28 2e 66  |pt%:EQUB 0...(.f|
00000b30  66 20 5d f2 67 65 74 6e  65 78 74 28 22 66 66 22  |f ].getnext("ff"|
00000b40  29 3a 5b 6f 70 74 20 6f  70 74 25 3a 45 51 55 42  |):[opt opt%:EQUB|
00000b50  20 30 0d 04 d8 28 2e 67  67 20 5d f2 67 65 74 6e  | 0...(.gg ].getn|
00000b60  65 78 74 28 22 67 67 22  29 3a 5b 6f 70 74 20 6f  |ext("gg"):[opt o|
00000b70  70 74 25 3a 45 51 55 42  20 30 0d 04 e2 28 2e 68  |pt%:EQUB 0...(.h|
00000b80  68 20 5d f2 67 65 74 6e  65 78 74 28 22 68 68 22  |h ].getnext("hh"|
00000b90  29 3a 5b 6f 70 74 20 6f  70 74 25 3a 45 51 55 42  |):[opt opt%:EQUB|
00000ba0  20 30 0d 04 ec 28 2e 69  69 20 5d f2 67 65 74 6e  | 0...(.ii ].getn|
00000bb0  65 78 74 28 22 69 69 22  29 3a 5b 6f 70 74 20 6f  |ext("ii"):[opt o|
00000bc0  70 74 25 3a 45 51 55 42  20 30 0d 04 f6 28 2e 6a  |pt%:EQUB 0...(.j|
00000bd0  6a 20 5d f2 67 65 74 6e  65 78 74 28 22 6a 6a 22  |j ].getnext("jj"|
00000be0  29 3a 5b 6f 70 74 20 6f  70 74 25 3a 45 51 55 42  |):[opt opt%:EQUB|
00000bf0  20 30 0d 05 00 28 2e 6b  6b 20 5d f2 67 65 74 6e  | 0...(.kk ].getn|
00000c00  65 78 74 28 22 6b 6b 22  29 3a 5b 6f 70 74 20 6f  |ext("kk"):[opt o|
00000c10  70 74 25 3a 45 51 55 42  20 30 0d 05 0a 28 2e 6c  |pt%:EQUB 0...(.l|
00000c20  6c 20 5d f2 67 65 74 6e  65 78 74 28 22 6c 6c 22  |l ].getnext("ll"|
00000c30  29 3a 5b 6f 70 74 20 6f  70 74 25 3a 45 51 55 42  |):[opt opt%:EQUB|
00000c40  20 30 0d 05 14 28 2e 6d  6d 20 5d f2 67 65 74 6e  | 0...(.mm ].getn|
00000c50  65 78 74 28 22 6d 6d 22  29 3a 5b 6f 70 74 20 6f  |ext("mm"):[opt o|
00000c60  70 74 25 3a 45 51 55 42  20 30 0d 05 1e 28 2e 6e  |pt%:EQUB 0...(.n|
00000c70  6e 20 5d f2 67 65 74 6e  65 78 74 28 22 6e 6e 22  |n ].getnext("nn"|
00000c80  29 3a 5b 6f 70 74 20 6f  70 74 25 3a 45 51 55 42  |):[opt opt%:EQUB|
00000c90  20 30 0d 05 28 28 2e 6f  6f 20 5d f2 67 65 74 6e  | 0..((.oo ].getn|
00000ca0  65 78 74 28 22 6f 6f 22  29 3a 5b 6f 70 74 20 6f  |ext("oo"):[opt o|
00000cb0  70 74 25 3a 45 51 55 42  20 30 0d 05 32 28 2e 70  |pt%:EQUB 0..2(.p|
00000cc0  70 20 5d f2 67 65 74 6e  65 78 74 28 22 70 70 22  |p ].getnext("pp"|
00000cd0  29 3a 5b 6f 70 74 20 6f  70 74 25 3a 45 51 55 42  |):[opt opt%:EQUB|
00000ce0  20 30 0d 05 3c 28 2e 71  71 20 5d f2 67 65 74 6e  | 0..<(.qq ].getn|
00000cf0  65 78 74 28 22 71 71 22  29 3a 5b 6f 70 74 20 6f  |ext("qq"):[opt o|
00000d00  70 74 25 3a 45 51 55 42  20 30 0d 05 46 28 2e 72  |pt%:EQUB 0..F(.r|
00000d10  72 20 5d f2 67 65 74 6e  65 78 74 28 22 72 72 22  |r ].getnext("rr"|
00000d20  29 3a 5b 6f 70 74 20 6f  70 74 25 3a 45 51 55 42  |):[opt opt%:EQUB|
00000d30  20 30 0d 05 50 28 2e 73  73 20 5d f2 67 65 74 6e  | 0..P(.ss ].getn|
00000d40  65 78 74 28 22 73 73 22  29 3a 5b 6f 70 74 20 6f  |ext("ss"):[opt o|
00000d50  70 74 25 3a 45 51 55 42  20 30 0d 05 5a 28 2e 74  |pt%:EQUB 0..Z(.t|
00000d60  74 20 5d f2 67 65 74 6e  65 78 74 28 22 74 74 22  |t ].getnext("tt"|
00000d70  29 3a 5b 6f 70 74 20 6f  70 74 25 3a 45 51 55 42  |):[opt opt%:EQUB|
00000d80  20 30 0d 05 64 28 2e 75  75 20 5d f2 67 65 74 6e  | 0..d(.uu ].getn|
00000d90  65 78 74 28 22 75 75 22  29 3a 5b 6f 70 74 20 6f  |ext("uu"):[opt o|
00000da0  70 74 25 3a 45 51 55 42  20 30 0d 05 6e 28 2e 76  |pt%:EQUB 0..n(.v|
00000db0  76 20 5d f2 67 65 74 6e  65 78 74 28 22 76 76 22  |v ].getnext("vv"|
00000dc0  29 3a 5b 6f 70 74 20 6f  70 74 25 3a 45 51 55 42  |):[opt opt%:EQUB|
00000dd0  20 30 0d 05 78 28 2e 77  77 20 5d f2 67 65 74 6e  | 0..x(.ww ].getn|
00000de0  65 78 74 28 22 77 77 22  29 3a 5b 6f 70 74 20 6f  |ext("ww"):[opt o|
00000df0  70 74 25 3a 45 51 55 42  20 30 0d 05 82 28 2e 78  |pt%:EQUB 0...(.x|
00000e00  78 20 5d f2 67 65 74 6e  65 78 74 28 22 78 78 22  |x ].getnext("xx"|
00000e10  29 3a 5b 6f 70 74 20 6f  70 74 25 3a 45 51 55 42  |):[opt opt%:EQUB|
00000e20  20 30 0d 05 8c 28 2e 79  79 20 5d f2 67 65 74 6e  | 0...(.yy ].getn|
00000e30  65 78 74 28 22 79 79 22  29 3a 5b 6f 70 74 20 6f  |ext("yy"):[opt o|
00000e40  70 74 25 3a 45 51 55 42  20 30 0d 05 96 28 2e 7a  |pt%:EQUB 0...(.z|
00000e50  7a 20 5d f2 67 65 74 6e  65 78 74 28 22 7a 7a 22  |z ].getnext("zz"|
00000e60  29 3a 5b 6f 70 74 20 6f  70 74 25 3a 45 51 55 42  |):[opt opt%:EQUB|
00000e70  20 30 0d 05 a0 2e 2e 6f  74 68 65 72 20 5d f2 67  | 0.....other ].g|
00000e80  65 74 6e 65 78 74 28 22  6f 74 68 65 72 22 29 3a  |etnext("other"):|
00000e90  5b 6f 70 74 20 6f 70 74  25 3a 45 51 55 42 20 30  |[opt opt%:EQUB 0|
00000ea0  0d 05 aa 0a 20 41 4c 49  47 4e 0d 05 b4 0d 5d d9  |.... ALIGN....].|
00000eb0  23 64 69 63 25 3a ed 0d  05 be 06 20 e1 0d 05 c8  |#dic%:..... ....|
00000ec0  05 20 0d 05 d2 15 20 dd  f2 67 65 74 6e 65 78 74  |. .... ..getnext|
00000ed0  28 68 65 61 64 24 29 0d  05 dc 05 20 0d 05 e6 18  |(head$).... ....|
00000ee0  20 f5 20 41 25 3d 9a 23  64 69 63 25 3a fd 20 41  | . A%=.#dic%:. A|
00000ef0  25 3d 34 36 0d 05 f0 3e  20 46 25 3d b9 3a e3 20  |%=46...> F%=.:. |
00000f00  54 25 3d 31 20 b8 20 a9  68 65 61 64 24 3a 41 25  |T%=1 . .head$:A%|
00000f10  3d 9a 23 64 69 63 25 3a  e7 20 97 28 c1 68 65 61  |=.#dic%:. .(.hea|
00000f20  64 24 2c 54 25 2c 31 29  29 3c 3e 41 25 20 46 25  |d$,T%,1))<>A% F%|
00000f30  3d a3 0d 05 fa 3c 20 ed  3a e7 20 46 25 3d a3 20  |=....< .:. F%=. |
00000f40  85 20 26 38 30 34 43 30  33 2c 22 43 61 6e 27 74  |. &804C03,"Can't|
00000f50  20 66 69 6e 64 20 22 2b  68 65 61 64 24 2b 22 20  | find "+head$+" |
00000f60  69 6e 20 64 69 63 74 69  6f 6e 61 72 79 22 0d 06  |in dictionary"..|
00000f70  04 2f 20 f5 3a 46 25 3d  a3 3a 41 24 3d 22 22 3a  |./ .:F%=.:A$="":|
00000f80  f5 20 41 25 3d 9a 23 64  69 63 25 3a e7 20 41 25  |. A%=.#dic%:. A%|
00000f90  3e 33 31 20 41 24 3d 41  24 2b bd 41 25 0d 06 0e  |>31 A$=A$+.A%...|
00000fa0  18 20 e7 20 41 24 3d 22  2e 22 20 46 25 3d b9 3a  |. . A$="." F%=.:|
00000fb0  41 25 3d 31 30 0d 06 18  47 20 fd 20 41 25 3d 31  |A%=10...G . A%=1|
00000fc0  30 20 84 20 c5 23 64 69  63 25 3a e7 20 46 25 3d  |0 . .#dic%:. F%=|
00000fd0  a3 20 80 20 41 24 3c 3e  22 22 20 80 20 c0 41 24  |. . A$<>"" . .A$|
00000fe0  2c 31 29 3c 3e 22 20 22  20 5b 4f 50 54 20 6f 70  |,1)<>" " [OPT op|
00000ff0  74 25 3a 45 51 55 53 20  41 24 3a 5d 0d 06 22 1b  |t%:EQUS A$:]..".|
00001000  20 fd 20 46 25 3d b9 3a  cf 23 64 69 63 25 3d 8f  | . F%=.:.#dic%=.|
00001010  23 64 69 63 25 2d 31 0d  06 2c 06 20 e1 0d 06 36  |#dic%-1..,. ...6|
00001020  05 20 0d 06 40 0f 20 dd  f2 64 6f 75 70 64 61 74  |. ..@. ..doupdat|
00001030  65 0d 06 45 37 20 c8 99  20 22 53 70 63 68 5f 47  |e..E7 .. "Spch_G|
00001040  65 74 44 69 63 74 69 6f  6e 61 72 79 22 20 b8 20  |etDictionary" . |
00001050  64 69 63 74 69 6f 6e 25  3a 64 69 63 74 69 6f 6e  |diction%:diction|
00001060  25 2b 3d 66 69 6c 65 25  0d 06 48 16 20 c8 99 20  |%+=file%..H. .. |
00001070  22 48 6f 75 72 67 6c 61  73 73 5f 4f 6e 22 0d 06  |"Hourglass_On"..|
00001080  4a 0e 20 f2 61 73 73 65  6d 62 6c 65 0d 06 4f 23  |J. .assemble..O#|
00001090  20 66 69 6c 65 73 69 7a  65 25 3d 50 25 2d 66 69  | filesize%=P%-fi|
000010a0  6c 65 25 3a 66 69 6c 65  65 6e 64 25 3d 50 25 0d  |le%:fileend%=P%.|
000010b0  06 54 17 20 c8 99 20 22  48 6f 75 72 67 6c 61 73  |.T. .. "Hourglas|
000010c0  73 5f 4f 66 66 22 0d 06  72 06 20 e1 0d ff        |s_Off"..r. ...|
000010ce