� >!RunImage
� for TextCheck
"Version$="1.3 (30th Aug 1993)"
(� Chris Allen (15)
2� � Archimedes World
<
F
� no_acr%
PTq=0:no_checks%=0:no_adds%=0:active%=-1:case%=1:real_length%=0:length%=0:prevw%=0
Z�� wimp% 8000, wind% 800, sprite% 14500, menu% 400, info% 800, in% 800, save% 800, sa% 800, infofile% 800, infi% 800, gre% 800, greetin% 800, progress% 800, prog% 800, add% 800, addwrd% 800, pre% 800, preview% 800, help% 500, acr$(no_acr%)
d� addwords$(100)
nsprite%!0=14500
xsprite%!8=16
�!ș "OS_SpriteOp",&109,sprite%
�8ș "OS_SpriteOp",&10A,sprite%,"<Check$Dir>.!Sprites"
�1ș &400C0,200,&4B534154,"TextChecker" � ,han%
�&ș &400D9,,"<Check$Dir>.Templates"
�wimp%!64=sprite%
�5ș &400DB,,greetin%,gre%,gre%+800,-1,"Greeting",0
�#ș &400C1,,greetin% � greethan%
�&�seticon(greethan%,4,"v"+Version$)
�[wimp%!0=greethan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
���err(�,�$)
��
�ș &400C7,,wimp% � r%
�Ȏ r% �

� 0 : Ȏ active% �

$  � -1 : active%=0:�continueload

  � 2 : �spaces

"  � 4 : �load2

,  � 5 : �caps

6  � 6 : �load3

@�  � 7 : active%=3:ș"Hourglass_On":�spaces:� case%=1 percent=(100/length%)/2:ptr%=0:�caps:active%=6:ș"Hourglass_Off" � active%=6:ș"Hourglass_Off"

JH  � 8 : active%=3:ș"Hourglass_On":�caps:active%=6:ș"Hourglass_Off"

T  � 9 : �reprocess2

^  �

hG� 1 : � wimp%!0=Previewhan% �redraw � ș "Wimp_RedrawWindow",,wimp%

r� 2 : ș &400C5,,wimp%

|Y� 3 : ș &400C6,,wimp%:� wimp%!0=savehan% �closesave � � wimp%!0=Previewhan% prevw%=0

�� 6 : �click

�� 7 : �drag_complete

�;� 8 : � wimp%!24=13 �key � ș"Wimp_ProcessKey",wimp%!24

�� 9 : �menuselect

�� 17,18 : Ȏ wimp%!16 �

�  � 0 : �confirm

�  � 3 : �load1

�  � 2 : �save

�  � &502 : �help

��

��

�� �

�
��closesave
Qresponse%=�warning("Closing this window will result in the data being lost.")
j� response%=2 wimp%!0=savehan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%:�
&;active%=0:wimp%!0=Previewhan%:ș &400C6,,wimp%:prevw%=0
0�
:
D��continueload
N3ș &400DB,,wimp%,wind%,wind%+800,-1,"options",0
Xș &400C1,,wimp% � opthan%
b,ș &400DB,,info%,in%,in%+800,-1,"info",0
lș &400C1,,info% � inhan%
v0ș &400DB,,save%,sa%,sa%+800,-1,"save_box",0
�ș &400C1,,save% � savehan%
�8ș &400DB,,infofile%,infi%,infi%+800,-1,"FileInfo",0
�'ș &400C1,,infofile% � InfoFilehan%
�8ș &400DB,,progress%,prog%,prog%+800,-1,"Progress",0
�'ș &400C1,,progress% � Progresshan%
�3ș &400DB,,addwrd%,add%,add%+800,-1,"Addword",0
�$ș &400C1,,addwrd% � Addwordhan%
�4ș &400DB,,preview%,pre%,pre%+800,-1,"Preview",0
�%ș &400C1,,preview% � Previewhan%
�
ș &400DA
��readvalues
��loadcapitals
��load_acronyms
� no_allcaps%
� Allcaps$(no_allcaps%)
�readallcaps
 no_checks%+=no_allcaps%
*�iconbar
4�seticon(opthan%,6,�(Spc%))
>!�seticon(opthan%,10,�(Spc2%))
H!�seticon(opthan%,26,�(Spc3%))
R!�seticon(opthan%,29,�(Spc4%))
\�seticon(inhan%,4,Version$)
f1wimp%!0=greethan%:ș"Wimp_CloseWindow",,wimp%
p�
z
�!��toggleicon(wimp%!0,wimp%!4)
�wimp%!8=&200000:wimp%!12=0
�!ș "Wimp_SetIconState",,wimp%
��
�
�	��key
�"� wimp%!0=opthan% Ȏ wimp%!4 �
�8  � 6:ș"Wimp_SetCaretPosition",opthan%,10,-2,,-1,-1
�9  � 10:ș"Wimp_SetCaretPosition",opthan%,26,-2,,-1,-1
�9  � 26:ș"Wimp_SetCaretPosition",opthan%,29,-2,,-1,-1
�8  � 29:ș"Wimp_SetCaretPosition",opthan%,6,-2,,-1,-1
��
�V� wimp%!0=Addwordhan% �toggleicon(Addwordhan%,5):�use:�toggleicon(Addwordhan%,5):�
3� wimp%!0=savehan% � wimp%!4=1 �getfilename � �
O� �filena$,".")=0 �err(1,"To save, drag the icon to a directory viewer."):�
filename$=filena$
$ș "Wimp_CreateMenu",-1
.
�dothingy
8�
B
L��ok
V� wimp%!8<>1 � wimp%!8<>4 �
`�getfilename
jO� �filena$,".")=0 �err(1,"To save, drag the icon to a directory viewer."):�
tfilename$=filena$:�dothingy
~�
�
���drag_complete
�#ș "Wimp_GetPointerInfo",,wimp%
�-h=wimp%!12:i=wimp%!16:x=wimp%!0:y=wimp%!4
�:wimp%!0=64:wimp%!12=0:wimp%!16=1:wimp%!20=h:wimp%!24=i
�<wimp%!28=x:wimp%!32=y:wimp%!36=length%:wimp%!40=filtype%
�$(wimp%+44)=filena$
�&ș "Wimp_SendMessage",17,wimp%,h,i
��
�
�
��save
�!x=wimp%!0:y=wimp%!4:z=wimp%!8
!filename$=$(wimp%+44)+filena$

#wimp%!0=x:wimp%!12=z:wimp%!16=3
$ș "Wimp_SendMessage",18,wimp%,y
#filename$=�fixstring(filename$)
(
�dothingy
2�
<
F��dothingy
P�� filename$=oldfilename$ response%=�warning("You are saving over your original file.  It would be wise to check it first.  Do you still wish to save it as this?"):� response%=2 �
ZAș "OS_File",10,filename$,filtype%,,newfile%,newfile%+length%
dwimp%!0=savehan%
nș &400C6,,wimp%
x
active%=0
��
�
���calculate
�ș"Hourglass_On"
�Dheight%=0:a=0:ptr%=0:offset%=0:� filtype%=&AF8 �newsearch:a=ptr%
�perc=100/(length%-1)
�� ptr%=a � length%-1
�'ș "Hourglass_Percentage",perc*ptr%
�K� newfile%?ptr%=37 � filtype%=&DDE oldptr%=ptr%:�rforget:ptr%=oldptr%+1
�+� newfile%?ptr%=10 height%+=1:offset%=0
�3� newfile%?ptr%=129 � filtype%=&AF8 offset%+=16
�8� filtype%=&AF8 � newfile%?ptr%=spcchar% offset%+=16
�`� newfile%?ptr%<>10 � newfile%?ptr%<>129 � newfile%?ptr%>31 � newfile%?ptr%<>128 offset%+=16
G� offset%>16*76 height%+=1:offset%=0:� newfile%?(ptr%+1)=10 ptr%+=1
�
height%=1-(36*(height%+2))
"ș"Hourglass_Off"
,�
6
@��redraw
Jș "Hourglass_On"
T+ș "Wimp_RedrawWindow",,wimp% � redraw%
^x=wimp%!4-wimp%!20
h�5
rȕ redraw%
|2y=wimp%!16-wimp%!24-5:line%=0:ptr%=0:offset%=0
�� x+offset%,y
�)a=0:� filtype%=&AF8 �newsearch:a=ptr%
�0� filtype%=&DDE oldptr%=0:�rforget:a=oldptr%
�� ptr%=a � length%-1
�K� newfile%?ptr%=37 � filtype%=&DDE oldptr%=ptr%:�rforget:ptr%=oldptr%+1
�/� newfile%?ptr%=10 y-=36:line%+=1:offset%=0
�;� newfile%?ptr%=129 � filtype%=&AF8 ș 0,32:offset%+=16
�@� filtype%=&AF8 � newfile%?ptr%=spcchar% ș 0,32:offset%+=16
�s� newfile%?ptr%<>10 � newfile%?ptr%<>129 � newfile%?ptr%>31 � newfile%?ptr%<>128 ș 0,newfile%!ptr%:offset%+=16
�K� offset%>16*76 y-=36:line%+=1:offset%=0:� newfile%?(ptr%+1)=10 ptr%+=1
�� x+offset%,y
�6� (36*(line%))>wimp%!16+(-1*wimp%!24) ptr%=length%
��
+ș "Wimp_GetRectangle",,wimp% � redraw%
�
ș "Hourglass_Off"
&�
0
:��load1
Dresponse%=0
No� active%=1 response%=�warning("Loading this file will discard the current processed one."):� response%=2 �
X�� active%=2 � active%=5 response%=�warning("I am currently processing a file, loading and processing another will discard the current one."):� response%=2 �
b<filename$=$(wimp%+44):oldfilename$=�fixstring(filename$)
lw� wimp%!40<>&FFF � wimp%!40<>&AF8 � wimp%!40<>&DDE �err(1,"I can only accept text, 1stWord+ or PipeDream files."):�
vfiltype%=wimp%!40
�Ȏ filtype% �
�)� &FFF : type$="file_fff":spcchar%=32
�)� &AF8 : type$="file_af8":spcchar%=30
�)� &DDE : type$="file_dde":spcchar%=32
��
�"�seticon(savehan%,1,filename$)
�&�seticon(InfoFilehan%,2,filename$)
�>� filtype%=&AF8 �seticon(InfoFilehan%,4,"&AF8 (1stWord+)")
�:� filtype%=&FFF �seticon(InfoFilehan%,4,"&FFF (Text)")
�?� filtype%=&DDE �seticon(InfoFilehan%,4,"&DDE (PipeDream)")
�wimp%!12=wimp%!8:wimp%!16=4
�*ș "Wimp_SendMessage",17,wimp%,wimp%!4
�>� response%=1 wimp%!0=savehan%:ș"Wimp_CloseWindow",,wimp%
/wimp%!0=opthan%:ș"Wimp_CloseWindow",,wimp%
Fwimp%!0=Previewhan%:ș"Wimp_CloseWindow",,wimp%:prevw%=0:height%=1
4wimp%!0=Progresshan%:ș"Wimp_CloseWindow",,wimp%
 $active%=4:�seticonbar("process")
*4ș "Wimp_GetPointerInfo",,wimp%:x=wimp%!0:oldx=x
4�
>
H��reprocess
Rfilename$=oldfilename$+�(0)
\"�seticon(savehan%,1,filename$)
f0wimp%!0=savehan%:ș"Wimp_CloseWindow",,wimp%
p/wimp%!0=opthan%:ș"Wimp_CloseWindow",,wimp%
zFwimp%!0=Previewhan%:ș"Wimp_CloseWindow",,wimp%:prevw%=0:height%=1
�$active%=9:�seticonbar("process")
�G� case%=0 � oldcase%=1 ș "OS_File",12,filename$,file%,0:oldcase%=0
�%� case%=1 � oldcase%=1 oldcase%=0
�%� case%=1 � oldcase%=0 oldcase%=1
� �seticon(InfoFilehan%,8,"0")
�)�seticon(InfoFilehan%,9,"File being")
�+�seticon(InfoFilehan%,10,"reprocessed")
��seticon(Progresshan%,0,"")
��seticon(Progresshan%,2,"")
�length%=real_length%
��
�
���reprocess2
	(� multitask%=1 active%=2 � active%=3
	�� active%=2 �processyes:wimp%!0=Progresshan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp% � �processno:active%=6
	oldcase%=case%
	$
x=oldx
	.�
	8
	B��load2
	L(� multitask%=1 active%=2 � active%=3
	V(ș "OS_File",13,filename$ � ,,,,len%
	`F� len%>real_length% � len%>length% � file% len%, newfile% len%+800
	jlength%=len%
	t%ș "OS_File",12,filename$,file%,0
	~$�seticonsprite(savehan%,0,type$)
	�(�seticonsprite(InfoFilehan%,0,type$)
	�'�seticon(InfoFilehan%,6,�(length%))
	� �seticon(InfoFilehan%,8,"0")
	�)�seticon(InfoFilehan%,9,"File being")
	�)�seticon(InfoFilehan%,10,"processed")
	��seticon(Progresshan%,0,"")
	��seticon(Progresshan%,2,"")
	�oldcase%=case%
	؍� active%=2 �processyes:wimp%!0=Progresshan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp% � �processno:active%=6
	��
	�
	���load3
C� multitask%=1 wimp%!0=Progresshan%:ș"Wimp_CloseWindow",,wimp%

'�seticon(InfoFilehan%,8,�(length%))
[� case%=0 �seticon(InfoFilehan%,9,"Cases were not"):�seticon(InfoFilehan%,10,"checked")
}� case%=1 �seticon(InfoFilehan%,9,"Cases checked with"):�seticon(InfoFilehan%,10,"dictionary of "+�(no_checks%)+" words")
(�seticonbar("!Textcheck")
24wimp%!0=savehan%:ș "Wimp_GetWindowState",,wimp%
<Cwimp%!4=x-100:wimp%!8=0:wimp%!28=-1:ș "Wimp_OpenWindow",,wimp%
F
active%=1
P4ș "Wimp_SetCaretPosition",savehan%,1,260,,-1,-1
Z�
d
n��seticonbar(spritename$)
xwimp%!0=-1:wimp%!4=ichan%
�!ș "Wimp_GetIconState",,wimp%
�ș "Wimp_DeleteIcon",,wimp%
�6wimp%!4=wimp%!8:wimp%!8=wimp%!12:wimp%!12=wimp%!16
�?wimp%!16=wimp%!20:wimp%!20=wimp%!24:$(wimp%+24)=spritename$
�(ș "Wimp_CreateIcon",,wimp% � ichan%
��
�
�0��seticonsprite(wimp%!0,wimp%!4,spritetype$)
�!ș "Wimp_GetIconState",,wimp%
�ș "Wimp_DeleteIcon",,wimp%
�6wimp%!4=wimp%!8:wimp%!8=wimp%!12:wimp%!12=wimp%!16
�?wimp%!16=wimp%!20:wimp%!20=wimp%!24:$(wimp%+24)=spritetype$
�ș "Wimp_CreateIcon",,wimp%
�

��err(wimp%!0,$(wimp%+4))
"E=0
,
Ȏ � �
6o� 11: $(wimp%+4)="File too large/You have used me too many times. I will have to quit. Then reload me.":E=1
@� 19: �
J[� 67788,67798: $(wimp%+4)+=" - try changing the filename in the save box, then saving."
TP� 67779: $(wimp%+4)+=" - you need to unlock the file before saving over it."
^]� 67782: $(wimp%+4)+=" - save on to another disc or make room on this one before saving."
hM� 67785: $(wimp%+4)+=" - try switching the tab on the disc, then saving."
r�
|-ș "Wimp_ReportError",wimp%,1,"TextCheck"
�� E=1 ș &400DD,han%
��
�
�ݤwarning($(wimp%+4))
�8ș "Wimp_ReportError",wimp%,3,"TextCheck" � ,return%
�=return%
�
�
��help
�help%=wimp%
�help%!12=wimp%!8
�help%!16=&503
�Ȏ help%!32 �
�t� -2:t$="This is the TextChecker application written by Chris Allen.|MClick on it to bring up the ":Ȏ active% �
{  � 0:t$+="Options window or drag a file to it to start the processing.|MIt supports Text, 1stWord+ & PipeDream files."
�  � 1:t$+="Preview Text window or drag a file to it to restart the processing.|MIt supports Text, 1stWord+ & PipeDream files."
  � 2,5:t$+="Process window or drag a file to it to restart the processing.|MIt supports Text, 1stWord+ & PipeDream files."
&�
0>� opthan%:t$="This is the options window.|M":Ȏ help%!36 �
:�  � 40:t$+="Click on this icon to tell the program to use the above values":� active%=1 t$+=", but these will only affect the next file to be processed, not the current one, unless it is reprocessed." � t$+="."
DZ  � 39:t$+="Click on this icon to save the optional values, so making them permanent."
N=  � 32:t$+="Click on this icon to load the saved values."
XE  � 23:t$+="Click on this icon to set the values to the default."
bV  � 4:t$+="Click on this icon to increase the number of spaces after a full stop."
lV  � 5:t$+="Click on this icon to decrease the number of spaces after a full stop."
vR  � 9:t$+="Click on this icon to increase the number of spaces between words."
�R  � 8:t$+="Click on this icon to decrease the number of spaces between words."
�d  � 27:t$+="Click on this icon to decrease the number of spaces used to indent a new paragraph."
�d  � 28:t$+="Click on this icon to increase the number of spaces used to indent a new paragraph."
�W  � 30:t$+="Click on this icon to decrease the number of lines between paragraphs."
�W  � 31:t$+="Click on this icon to increase the number of lines between paragraphs."
��  � 16:t$+="Click on this icon to toggle between the program searching through its dictionary to change the cases of some letters or not (Default on)."
��  � 6:t$+="This shows the number of spaces after a full stop (Default 2). Alter the number with the arrow icons or write in it."
Ɓ  � 10:t$+="This shows the number of spaces between words (Default 1). Alter the number with the arrow icons or write in it."
В  � 26:t$+="This shows the number of spaces used to indent a new paragraph (Default 2). Alter the number with the arrow icons or write in it."
څ  � 29:t$+="This shows the number of lines between paragraphs (Default 1). Alter the number with the arrow icons or write in it."
�/  � 0:t$+="Hmmm. Quite a nice icon really."
��
�E� inhan% : t$="Just the info box. Nothing special.":Ȏ help%!36 �

-  � 9:t$="Wow! That's my Christian name."

'  � 10:t$="Yes! That's my surname!"

�

 /� greethan% : t$="!TextCheck is loading..."

*w� Previewhan% : t$="This window shows you what the new processed file looks like before you save it.":Ȏ filtype% �

4|  � &AF8 : t$+="|MDon't worry if there are some strange parts, it is sometimes hard to display 1stWord+ files properly!"

>�  � &DDE : t$+="|MDon't worry if there are some strange sections or some styled lines missing, it is sometimes hard to display PipeDream files properly!"

H�

Ri� Addwordhan% : t$="This is the window where you can add a new word to the dictionary.":Ȏ help%!36 �

\-  � 1:t$+="|MEnter the new word in here."

fE  � 5:t$+="|MClick on this icon to use the word when processing."

p�  � 6:t$+="|MClick on this icon to save the word into the dictionary on the disk and to use the word when processing a file in future."

z�

�k� savehan%:t$="The save box.|MDrag the icon to a directory viewer or type in a filename.":Ȏ help%!36 �

�Z  � 0:t$="The save box.|MDrag this icon to a directory viewer if you want to save it."

�L  � 1:t$="The save box.|MThis is the icon where you type in a filename."

��  � 2:t$="The save box.|MThis icon only saves the file if you have typed in a FULL pathname in the writable icon on the left."

��

�t� InfoFilehan% : t$="This is the file information window, it tells you about your processed file.":Ȏ help%!36 �

�I  � 0:t$+="|MThis is what the icon of the processed file looks like."

�E  � 2:t$+="|MThis shows the full pathname of the processed file."

�@  � 4:t$+="|MThis shows the filetype of the processed file."

�r  � 6:t$+="|MThis shows that when the file was dragged to the program, it was "+�(real_length%)+" bytes long."

�W  � 8:t$+="|MThis shows that the new, processed file is "+�(length%)+" bytes long."

�  � 9,10,11,12,13,14:� active%=2 � active%=5 t$+="|MThis shows that TextCheck is currently working on this file." � t$+="|MThis shows if the program searched through its dictionary of "+�(no_checks%)+" words to change the cases of certain letters."

��
�� Progresshan%:t$="The progress window.|MThis shows how far through the file TextCheck has got.|MClick 'menu' over it to have the option to abort the processing."
�
t$+=�(0)
$1$(help%+20)=t$:help%!0=(((20+�(t$)+1)�4)*4)+4
."ș "Wimp_SendMessage",17,help%
8�
B
L��loadcapitals
V�countcapitals
`K� capital$(no_caps%+100), spare$(no_caps%+100), start%(26), finish%(26)
jno_checks%=no_caps%
t
�readcaps
~�setstartfin
��
�
���setstartfin
�ș "Hourglass_On"
�� b=1 � 26
�(ș "Hourglass_Percentage",(100/26)*b
�s=0:a=1
��
�/� �capital$(a),1,1)=�(b+64) s=1:start%(b)=a
�a+=1
�� s=1 � a>no_caps%
�� b
� c=1 � 25

finish%(c)=start%(c+1)-1
� c
finish%(26)=no_caps%
(ș "Hourglass_Off"
2�
<
F	��use
P�getword
Z� word$="" �
ds=0
n� a=1 � no_caps%
xA� capital$(a)=word$ s=1:�err(1,"Word already in dictionary.")
��
�� a=1 � no_allcaps%
�A� Allcaps$(a)=word$ s=1:�err(1,"Word already in dictionary.")
��
�� a=1 � no_adds%
�?� addwords$(a)=word$ s=1:�err(1,"Word already being used.")
��
�� s=0 no_adds%+=1
�N� no_adds%=101 �err(1,"I can only handle 100 extra words."):no_adds%=100:�
�R� s=0 addwords$(no_adds%)=word$:no_checks%+=1:� but%<>1 ș"Wimp_CreateMenu",-1
��
�
���saveword
�getword
� word$="" �
s=0
"� a=1 � no_caps%
,A� capital$(a)=word$ s=1:�err(1,"Word already in dictionary.")
6�
@� a=1 � no_allcaps%
JA� Allcaps$(a)=word$ s=1:�err(1,"Word already in dictionary.")
T�
^� a=1 � no_adds%
hG� addwords$(a)=word$ s=1:�savedict:� but%<>1 ș"Wimp_CreateMenu",-1
r�
|� s=0 no_adds%+=1
�N� no_adds%=101 �err(1,"I can only handle 100 extra words."):no_adds%=100:�
�Y� s=0 addwords$(no_adds%)="":no_checks%+=1:�savedict:� but%<>1 ș"Wimp_CreateMenu",-1
��
�
���countcapitals
� A%=�("<Check$Dir>.Capitals")
�no_caps%=0
��
�word$=�#A%
�no_caps%+=1
�� �#A%=�
��#A%
��

��readcaps
 A%=�("<Check$Dir>.Capitals")
&� a=1 � no_caps%
0capital$(a)=�#A%
:� a
D�#A%
N�
X
b��readvalues
lc%=case%
vA%=�("<Check$Dir>.Options")
�Spc%=�(�#A%)
�Spc2%=�(�#A%)
�Spc3%=�(�#A%)
�Spc4%=�(�#A%)
�case%=�(�#A%)
�multitask%=�(�#A%)
��#A%
�'� c%<>case% �toggleicon(opthan%,16)
��
�
���savevalues
��setoptinfo
�A%=�("<Check$Dir>.Options")
�#A%,�(Spc%)
�#A%,�(Spc2%)
�#A%,�(Spc3%)
 �#A%,�(Spc4%)
*�#A%,�(case%)
4�#A%,�(multitask%)
>�#A%
H�
R
\��savedict
f!l=start%((�(�word$,1,1)))-64)
p A%=�("<Check$Dir>.Capitals")
z� a=1 � no_caps%
�� a=l �#A%,word$
��#A%,capital$(a)
��
��#A%
�� a=1 � no_caps%
�spare$(a)=capital$(a)
��
�p%=0
�� a=1 � no_caps%
�	p%+=1
�"� a=l capital$(p%)=word$:p%+=1
�capital$(p%)=spare$(a)
��
no_caps%+=1
�setstartfin
�
$
.
��iconbar
8"wimp%!0=-1:wimp%!4=0:wimp%!8=0
B*wimp%!12=70:wimp%!16=75:wimp%!20=&300A
L$(wimp%+24)="!Textcheck"
V(ș "Wimp_CreateIcon",,wimp% � ichan%
`�
j
t��menuselect
~a%=wimp%!0:b%=wimp%!4
�#ș "Wimp_GetPointerInfo",,wimp%
�but%=wimp%!8
�wimp%!0=a%:wimp%!4=b%
�� icon%=3 �
�Ȏ wimp%!0 �
��  � 1 : � �warning("Aborting now will lose the partly processed data.")=2 � � wimp%!0=Progresshan%:ș"Wimp_CloseWindow",,wimp%:active%=0:�seticonbar("!Textcheck"):�
�  � 2 : �confirm
��
��
�� icon%=4 �
�Ȏ wimp%!0 �
�H  � 1 : wimp%!0=Previewhan%:ș"Wimp_CloseWindow",,wimp%:�reprocess:�
  � 2 : �confirm

�
�
Ȏ wimp%!0 �
(z� 1 : � icon%=1 wimp%!0=opthan%:ș "Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș "Wimp_OpenWindow",,wimp% � Ȏ wimp%!4 �
2  � 0 : �loadvalues
<  � 1 : �savevalues
F  � 2 : �default
P  �
Z� 3 : �previewtext
d.� 4 : multitask%=1-multitask%:Ȏ active% �
n]  � 2 : ș"Wimp_CreateMenu",-1:wimp%!0=Progresshan%:ș"Wimp_CloseWindow",,wimp%:active%=7
x]  � 5 : ș"Wimp_CreateMenu",-1:wimp%!0=Progresshan%:ș"Wimp_CloseWindow",,wimp%:active%=8
��
�� 5 : �confirm
��
�A� but%=1 � wimp%!0<>5 wimp%!0=mousx%:wimp%!4=mousy%:�makemenu
��
�
�
��confirm
�Ȏ active% �
�  � 0 : ș &400DD,han%
�n  � 1 : � �warning("You have not saved your processed file.  Do you still wish to quit?")=1 ș &400DD,han%
�_  � 2,5 : � �warning("Still processing file.  Do you still wish to quit?")=1 ș &400DD,han%
��
��

��previewtext
s=0
")� prevw%=0 � height%=1 s=1:�calculate
,wimp%!0=Previewhan%
6#ș "Wimp_GetWindowState",,wimp%
@wimp%!28=-1
Jș "Wimp_OpenWindow",,wimp%
T� s=1 �
^
wimp%!0=0
hwimp%!4=height%
rwimp%!8=1236
|wimp%!12=0
�)ș "Wimp_SetExtent",Previewhan%,wimp%
��
�� prevw%=0 prevw%=1
��
�
���setoptinfo
�wimp%!0=opthan%:wimp%!4=6
�ș &400CE,,wimp%
�Spc%=�($wimp%!28)
�wimp%!0=opthan%:wimp%!4=10
�ș &400CE,,wimp%
�Spc2%=�($wimp%!28)
�wimp%!0=opthan%:wimp%!4=26
ș &400CE,,wimp%
Spc3%=�($wimp%!28)
wimp%!0=opthan%:wimp%!4=29
&ș &400CE,,wimp%
0Spc4%=�($wimp%!28)
:�
D
N��getfilename
Xwimp%!0=savehan%:wimp%!4=1
bș &400CE,,wimp%
lfilena$=$wimp%!28
vfilena$=�fixstring(filena$)
��
�
�ݤfixstring(origname$)
�p=1:name$=""
�ȕ �origname$,p,1)<>�(0)
�name$+=�origname$,p,1):p+=1
��
�
=name$
�
�
��getword
�!wimp%!0=Addwordhan%:wimp%!4=1
�ș &400CE,,wimp%
�word$=$wimp%!28
7� word$="" �err(1,"You need to enter something!"):�
�changecase
�
 
*��justfile
4ȕ �filena$,".")>0
>%filena$=�filena$,�filena$,".")+1)
H�
R�
\
f$��seticon(wimp%!0,wimp%!4,text$)
pș &400CE,,wimp%
z$wimp%!28=text$
�wimp%!8=0:wimp%!12=0
�ș &400CD,,wimp%
��
�
�
��drag
�� wimp%!12<>savehan% �
��getfilename:�justfile
�4wimp%!0=savehan%:ș "Wimp_GetWindowState",,wimp%
�"x=wimp%!4:y=wimp%!16:wimp%!4=0
�!ș "Wimp_GetIconState",,wimp%
�(wimp%!4=5:wimp%!8+=x-4:wimp%!12+=y-4
�wimp%!16+=x+4:wimp%!20+=y+4
�wimp%!24=0:wimp%!28=0
)wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
ș "Wimp_DragBox",,wimp%
�
$
.��click
8#� wimp%!8=16 � wimp%!8=64 �drag
B� wimp%!12=inhan% �
L0� wimp%!8=4 � wimp%!12=opthan% Ȏ wimp%!16 �
Vh� 4 : �setoptinfo:� Spc%<99 Spc%+=1:�seticon(opthan%,6,�(Spc%)) � Spc%=0:�seticon(opthan%,6,�(Spc%))
`h� 5 : �setoptinfo:� Spc%>0 Spc%-=1:�seticon(opthan%,6,�(Spc%)) � Spc%=99:�seticon(opthan%,6,�(Spc%))
jo� 9 : �setoptinfo:� Spc2%<99 Spc2%+=1:�seticon(opthan%,10,�(Spc2%)) � Spc2%=0:�seticon(opthan%,10,�(Spc2%))
to� 8 : �setoptinfo:� Spc2%>0 Spc2%-=1:�seticon(opthan%,10,�(Spc2%)) � Spc2%=99:�seticon(opthan%,10,�(Spc2%))
~p� 27 : �setoptinfo:� Spc3%>0 Spc3%-=1:�seticon(opthan%,26,�(Spc3%)) � Spc3%=99:�seticon(opthan%,26,�(Spc3%))
�p� 28 : �setoptinfo:� Spc3%<99 Spc3%+=1:�seticon(opthan%,26,�(Spc3%)) � Spc3%=0:�seticon(opthan%,26,�(Spc3%))
�p� 30 : �setoptinfo:� Spc4%>0 Spc4%-=1:�seticon(opthan%,29,�(Spc4%)) � Spc4%=99:�seticon(opthan%,29,�(Spc4%))
�p� 31 : �setoptinfo:� Spc4%<99 Spc4%+=1:�seticon(opthan%,29,�(Spc4%)) � Spc4%=0:�seticon(opthan%,29,�(Spc4%))
��� 40 : �setoptinfo:wimp%!0=opthan%:ș"Wimp_CloseWindow",,wimp%:� active%=1 �err(1,"These values will only be used for the next file to be processed, NOT the current one, unless it is reprocessed.")
�.� 39 : �savevalues:�toggleicon(opthan%,39)
�.� 32 : �loadvalues:�toggleicon(opthan%,32)
�+� 23 : �default:�toggleicon(opthan%,23)
�� 16 : case%=1-case%
��
�0� wimp%!8=1 � wimp%!12=opthan% Ȏ wimp%!16 �
�h� 4 : �setoptinfo:� Spc%>0 Spc%-=1:�seticon(opthan%,6,�(Spc%)) � Spc%=99:�seticon(opthan%,6,�(Spc%))
�h� 5 : �setoptinfo:� Spc%<99 Spc%+=1:�seticon(opthan%,6,�(Spc%)) � Spc%=0:�seticon(opthan%,6,�(Spc%))
o� 9 : �setoptinfo:� Spc2%>0 Spc2%-=1:�seticon(opthan%,10,�(Spc2%)) � Spc2%=99:�seticon(opthan%,10,�(Spc2%))

o� 8 : �setoptinfo:� Spc2%<99 Spc2%+=1:�seticon(opthan%,10,�(Spc2%)) � Spc2%=0:�seticon(opthan%,10,�(Spc2%))
�� 40 : �setoptinfo:�toggleicon(opthan%,40):� active%=1 �err(1,"These values will only be used for the next file to be processed, NOT the current one, unless it is reprocessed.")
p� 27 : �setoptinfo:� Spc3%<99 Spc3%+=1:�seticon(opthan%,26,�(Spc3%)) � Spc3%=0:�seticon(opthan%,26,�(Spc3%))
(p� 28 : �setoptinfo:� Spc3%>0 Spc3%-=1:�seticon(opthan%,26,�(Spc3%)) � Spc3%=99:�seticon(opthan%,26,�(Spc3%))
2p� 30 : �setoptinfo:� Spc4%<99 Spc4%+=1:�seticon(opthan%,29,�(Spc4%)) � Spc4%=0:�seticon(opthan%,29,�(Spc4%))
<p� 31 : �setoptinfo:� Spc4%>0 Spc4%-=1:�seticon(opthan%,29,�(Spc4%)) � Spc4%=99:�seticon(opthan%,29,�(Spc4%))
F.� 39 : �savevalues:�toggleicon(opthan%,39)
P.� 32 : �loadvalues:�toggleicon(opthan%,32)
Z+� 23 : �default:�toggleicon(opthan%,23)
d� 16 : case%=1-case%
n�
x(� wimp%!12=savehan% � wimp%!16=2 �ok
�0� wimp%!8=2 � wimp%!12=opthan% s=0:�makemenu
�+� wimp%!12=-2 � wimp%!8=2 s=1:�makemenu
�5� wimp%!8=2 � wimp%!12=Progresshan% s=3:�makemenu
�4� wimp%!8=2 � wimp%!12=Previewhan% s=4:�makemenu
�*� wimp%!8=4 � wimp%!12=-2 Ȏ active% �
�_� 0 : wimp%!0=opthan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
�� 1 : �previewtext
�f� 2,5 : wimp%!0=Progresshan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
��
�5� wimp%!12=Addwordhan% but%=wimp%!8:Ȏ wimp%!16 �
�+  � 5 : �use:�toggleicon(Addwordhan%,5)
�0  � 6 : �saveword:�toggleicon(Addwordhan%,6)
��
�

��loadvalues
"��readvalues:�seticon(opthan%,6,�(Spc%)):�seticon(opthan%,10,�(Spc2%)):�seticon(opthan%,26,�(Spc3%)):�seticon(opthan%,29,�(Spc4%))
,�
6
@
��default
J�c%=case%:Spc%=2:Spc2%=1:Spc3%=2:Spc4%=1:case%=1:�seticon(opthan%,6,�(Spc%)):�seticon(opthan%,10,�(Spc2%)):�seticon(opthan%,26,�(Spc3%)):�seticon(opthan%,29,�(Spc4%))
T'� c%<>case% �toggleicon(opthan%,16)
^�
h
r��makemenu
|$menu%="TextChecker"
�menu%?12=7
�menu%?13=2
�menu%?14=7
�menu%?15=0
�menu%!16=200
�menu%!20=44
�menu%!24=0
�menu%!28=2
�menu%!32=menu%+172
�menu%!36=&07000021
�$(menu%+40)="Info"
�� s=3 �
�menu%!16=150:menu%!28=0
Amenu%!52=0:menu%!56=-1:menu%!60=&07000021:$(menu%+64)="Abort"
Bmenu%!76=&80:menu%!80=-1:menu%!84=&07000021:$(menu%+88)="Quit"
�
&� s=4 �
0menu%!16=175:menu%!28=0
:Emenu%!52=0:menu%!56=-1:menu%!60=&07000021:$(menu%+64)="Reprocess"
DBmenu%!76=&80:menu%!80=-1:menu%!84=&07000021:$(menu%+88)="Quit"
N�
X� s<>3 � s<>4 �
bmenu%!52=0
l*� s=1 menu%!56=-1 � menu%!56=menu%+248
vC� active%=2 � active%=5 menu%!60=&07400021 � menu%!60=&07000021
�:� s=0 $(menu%+64)="Options" � $(menu%+64)="Options..."
�menu%!76=0
�menu%!80=Addwordhan%
�menu%!84=&07000021
�$(menu%+88)="Add word"
�menu%!100=0
�menu%!104=-1
�9� active%=1 menu%!108=&07000021 � menu%!108=&07400021
�$(menu%+112)="Preview Text"
�,� multitask%=1 menu%!124=3 � menu%!124=2
�menu%!128=-1
�menu%!132=&07000021
�$(menu%+136)="Multitask"
menu%!148=&80
menu%!152=-1
menu%!156=&07000021
 $(menu%+160)="Quit"
*�
4$(menu%+172)="Info"
>menu%?184=7
Hmenu%?185=2
Rmenu%?186=7
\menu%?187=0
fmenu%!188=150
pmenu%!192=44
zmenu%!196=0
�menu%!200=0
�menu%!204=inhan%
�menu%!208=&07000021
�$(menu%+212)="Program"
�menu%!224=&80
�menu%!228=InfoFilehan%
�menu%!232=&07000021
�#� active%=0 menu%!232=&07400021
�$(menu%+236)="File"
�� s=0 �
�  $(menu%+248)="Options"
�  menu%?260=7
�  menu%?261=2
  menu%?262=7
  menu%?263=0
  menu%!264=120
$  menu%!268=44
.  menu%!272=0
8  menu%!276=0
B  menu%!280=-1
L  menu%!284=&07000021
V  $(menu%+288)="Load"
`  menu%!300=2
j  menu%!304=-1
t  menu%!308=&07000021
~  $(menu%+312)="Save"
�  menu%!324=&80
�  menu%!328=-1
�  menu%!332=&07000021
�  $(menu%+336)="Default"
��
�!mousx%=wimp%!0:mousy%=wimp%!4
�icon%=s
�8� s=0 ș "Wimp_CreateMenu",,menu%,wimp%!0-70,wimp%!4
�4� s=1 ș "Wimp_CreateMenu",,menu%,wimp%!0-68,410
�8� s=3 ș "Wimp_CreateMenu",,menu%,wimp%!0-70,wimp%!4
�8� s=4 ș "Wimp_CreateMenu",,menu%,wimp%!0-70,wimp%!4
��


��processno
ș "Hourglass_On"
real_length%=length%
(� oldcase%=1 �lowercase
2percent=100/length%
<� case%=1 percent=percent/2
Flength%=0:ptr%=0:oldptr%=0
P� filtype%=&AF8 �search
Z� filtype%<>&DDE �indent
d�spaces
n2� case%=1 ptr%=0:percent=(100/length%)/2:�caps
xș "Hourglass_Off"
��
�
���processyes
�.real_length%=length%:percent=(100/length%)
�>� oldcase%=1 ș"Hourglass_On":�lowercase:ș"Hourglass_Off"
�� case%=1 percent=percent/2
�length%=0:ptr%=0:oldptr%=0
�� filtype%=&AF8 �search
�� filtype%<>&DDE �indent
��spaces
��
�
���newsearch
?ȕ newfile%?ptr%<58 � newfile%?ptr%>126 � newfile%?ptr%<160
ptr%+=1
�
"]� newfile%?(ptr%+1)<58 � newfile%?(ptr%+1)>126 � newfile%?(ptr%+1)<160 ptr%+=1:�newsearch
,�
6
@��search
J?ȕ file%?oldptr%<58 � file%?oldptr%>126 � file%?oldptr%<160
T=newfile%?ptr%=file%?oldptr%:length%+=1:ptr%+=1:oldptr%+=1
^�
h�� file%?(oldptr%+1)<58 � file%?(oldptr%+1)>126 � file%?(oldptr%+1)<160 newfile%?ptr%=file%?oldptr%:length%+=1:ptr%+=1:oldptr%+=1:�search
r�
|
���spaces
�value%=percent*oldptr%
��
�2� filtype%=&DDE � file%?oldptr%=37 �forgetthis
�!� file%?oldptr%=spcchar% �spc
�0� file%?oldptr%=10 � filtype%<>&DDE �newpara
�#� file%?oldptr%=46 �newsentence
�� file%?oldptr%=44 �comma
�#� file%?oldptr%=33 �endsent(33)
�#� file%?oldptr%=63 �endsent(63)
�H� file%?oldptr%=58 � file%?(oldptr%+1)=10 � filtype%=&DDE �colon(58)
�H� file%?oldptr%=59 � file%?(oldptr%+1)=10 � filtype%=&DDE �colon(59)
�I� oldptr%<real_length% newfile%?ptr%=file%?oldptr%:length%+=1:ptr%+=1
 oldptr%+=1
 9� active%=3 ș "Hourglass_Percentage",percent*oldptr%
 &� oldptr%>real_length% � active%=2
 &oldvalue%=value%
 0value%=percent*oldptr%
 :u� active%=2 � oldvalue%<>value% �seticon(Progresshan%,2,�(value%)+"%"):�seticon(Progresshan%,0,�(100-value%)+"%")
 D3� active%=2 �seticon(InfoFilehan%,8,�(length%))
 N_� active%=2 � case%=1 � oldptr%>real_length% ptr%=0:percent=(100/length%)/2:active%=5:�caps
 X:� active%=2 � case%=0 � oldptr%>real_length% active%=6
 b�
 l
 v��colon(ascii)
 �5newfile%?ptr%=ascii:length%+=1:ptr%+=1:oldptr%+=1
 ��
 �2newfile%?ptr%=10:length%+=1:ptr%+=1:oldptr%+=1
 �� file%?oldptr%<>10
 ��indent
 ��
 �
 ���forgetthis
 ��
 �newfile%?ptr%=file%?oldptr%
 �!ptr%+=1:oldptr%+=1:length%+=1
 �� file%?oldptr%=10
 �&� file%?(oldptr%+1)=37 �forgetthis
!�
!
!
��lforget
! �
!*oldptr%+=1
!4� file%?oldptr%=10
!>#� file%?(oldptr%+1)=37 �lforget
!H�
!R
!\
��rforget
!f�
!poldptr%+=1
!z� newfile%?oldptr%=10
!�#� file%?(oldptr%+1)=37 �rforget
!��
!�
!�	��spc
!�($(newfile%+ptr%)=�Spc2%,�(spcchar%))
!�length%+=Spc2%:ptr%+=Spc2%
!�ȕ file%?oldptr%=spcchar%
!�oldptr%+=1
!��
!�b� file%?oldptr%=58 � file%?oldptr%=59 ptr%-=Spc2%:length%-=Spc2%:newfile%?ptr%=file%?oldptr%:�
!�k� file%?(oldptr%-1)=spcchar% � file%?(oldptr%+1)<>spcchar% � file%?(oldptr%+1)<>33 � file%?oldptr%=33 �
!�b� file%?oldptr%=33 � file%?oldptr%=44 ptr%-=Spc2%:length%-=Spc2%:newfile%?ptr%=file%?oldptr%:�
!�`� file%?oldptr%=46 � file%?oldptr%=63 ptr%-=Spc2%:length%-=Spc2%:newfile%?ptr%=file%?oldptr%
"�
"
"��setac
"$� e=1 � �(acr$(acronym%))-2
".'newfile%?(ptr%+e)=file%?(oldptr%+e)
"8� e
"BWptr%+=�(acr$(acronym%))-1:oldptr%+=�(acr$(acronym%))-1:length%+=�(acr$(acronym%))-1
"L+� file%?oldptr%>32 � file%?oldptr%<48 �
"V+� file%?oldptr%>57 � file%?oldptr%<65 �
"`+� file%?oldptr%>90 � file%?oldptr%<97 �
"j-� file%?oldptr%>122 � file%?oldptr%<192 �
"tC$(newfile%+ptr%)=�Spc2%,�(spcchar%)):length%+=Spc2%:ptr%+=Spc2%
"~ȕ file%?oldptr%=spcchar%
"�oldptr%+=1
"��
"��
"�
"���indent
"�$� oldptr%+1>real_length% Sc%=0:�
"�($(newfile%+ptr%)=�Spc3%,�(spcchar%))
"�length%+=Spc3%:ptr%+=Spc3%
"�ȕ file%?oldptr%=spcchar%
"�oldptr%+=1
"��
"�q=1:�capital
#�
#

#��newsentence
#newfile%?ptr%=46
#(	Sc%=0
#28� file%?(oldptr%-1)>47 � file%?(oldptr%-1)<58 Sc%+=1
#<8� file%?(oldptr%+1)>47 � file%?(oldptr%+1)<58 Sc%+=1
#F+� Sc%=2 ptr%+=1:oldptr%+=1:length%+=1:�
#PSc%=0:�acronyms
#Z� Sc%=1 Sc%=0:�
#dQ� file%?(oldptr%+1)=34 � file%?(oldptr%+1)=39 ptr%+=1:oldptr%+=1:length%+=1:�
#nQ� file%?(oldptr%+1)=46 � file%?(oldptr%-1)=46 ptr%+=1:oldptr%+=1:length%+=1:�
#xC� file%?(oldptr%+1)=10 ptr%+=1:oldptr%+=1:length%+=1:�newpara:�
#�!ptr%+=1:oldptr%+=1:length%+=1
#�'$(newfile%+ptr%)=�Spc%,�(spcchar%))
#�length%+=Spc%:ptr%+=Spc%
#�ȕ file%?oldptr%=spcchar%
#�oldptr%+=1
#��
#�!� file%?oldptr%=10 �newpara:�
#��capital
#��
#�
#���endsent(ascii%)
#�newfile%?ptr%=ascii%
#��� file%?(oldptr%-1)=spcchar% � file%?(oldptr%+1)<>spcchar% � file%?(oldptr%+1)<>33 � ascii%=33 ptr%+=1:oldptr%+=1:length%+=1:�
$|� file%?(oldptr%-1)=34 � file%?(oldptr%+1)<>spcchar% � file%?(oldptr%+1)<>33 � ascii%=33 ptr%+=1:oldptr%+=1:length%+=1:�
$|� file%?(oldptr%-1)=39 � file%?(oldptr%+1)<>spcchar% � file%?(oldptr%+1)<>33 � ascii%=33 ptr%+=1:oldptr%+=1:length%+=1:�
$|� file%?(oldptr%-1)=10 � file%?(oldptr%+1)<>spcchar% � file%?(oldptr%+1)<>33 � ascii%=33 ptr%+=1:oldptr%+=1:length%+=1:�
$" � file%?(oldptr%+1)=ascii% �
$,Q� file%?(oldptr%+1)=34 � file%?(oldptr%+1)=39 ptr%+=1:oldptr%+=1:length%+=1:�
$6<� oldptr%+1>real_length% ptr%+=1:oldptr%+=1:length%+=1:�
$@C� file%?(oldptr%+1)=10 ptr%+=1:oldptr%+=1:length%+=1:�newpara:�
$J!ptr%+=1:oldptr%+=1:length%+=1
$T'$(newfile%+ptr%)=�Spc%,�(spcchar%))
$^length%+=Spc%:ptr%+=Spc%
$hȕ file%?oldptr%=spcchar%
$roldptr%+=1
$|�
$��capital
$��
$�
$���comma
$�newfile%?ptr%=44
$�!ptr%+=1:oldptr%+=1:length%+=1
$�	Sc%=0
$�8� file%?(oldptr%-2)>47 � file%?(oldptr%-2)<58 Sc%+=1
$�0� file%?oldptr%>47 � file%?oldptr%<58 Sc%+=1
$�
� Sc%=2 �
$�($(newfile%+ptr%)=�Spc2%,�(spcchar%))
$�length%+=Spc2%:ptr%+=Spc2%
$�ȕ file%?oldptr%=spcchar%
%oldptr%+=1
%�
%�
%&
%0
��capital
%:-� oldptr%+1>real_length% oldptr%+=1:q=0:�
%D?offset%=0:Sc%=0:� file%?oldptr%>64 � file%?oldptr%<91 q=0:�
%N/� file%?oldptr%>47 � file%?oldptr%<58 q=0:�
%X1� file%?oldptr%>191 � file%?oldptr%<215 q=0:�
%b1� file%?oldptr%>215 � file%?oldptr%<224 q=0:�
%l0� file%?oldptr%=163 � file%?oldptr%=36 q=0:�
%v1� file%?oldptr%>187 � file%?oldptr%<191 q=0:�
%�"� file%?oldptr%=33 � q=1 q=0:�
%�"� file%?oldptr%=63 � q=1 q=0:�
%�"� file%?oldptr%=46 � q=1 q=0:�
%�q=0
%�ȕ Sc%=0
%�`� file%?(oldptr%+offset%)>96 � file%?(oldptr%+offset%)<123 file%?(oldptr%+offset%)-=32:Sc%=1
%�a� file%?(oldptr%+offset%)>223 � file%?(oldptr%+offset%)<247 file%?(oldptr%+offset%)-=32:Sc%=1
%�a� file%?(oldptr%+offset%)>247 � file%?(oldptr%+offset%)<256 file%?(oldptr%+offset%)-=32:Sc%=1
%�&� file%?(oldptr%+offset%)=10 Sc%=1
%�C� file%?(oldptr%+offset%)>64 � file%?(oldptr%+offset%)<91 Sc%=1
%�C� file%?(oldptr%+offset%)>47 � file%?(oldptr%+offset%)<58 Sc%=1
%�E� file%?(oldptr%+offset%)>191 � file%?(oldptr%+offset%)<215 Sc%=1
%�E� file%?(oldptr%+offset%)>215 � file%?(oldptr%+offset%)<224 Sc%=1
&D� file%?(oldptr%+offset%)=163 � file%?(oldptr%+offset%)=36 Sc%=1
&E� file%?(oldptr%+offset%)>187 � file%?(oldptr%+offset%)<191 Sc%=1
&offset%+=1
& �
&*�
&4
&>��nextline
&Hnewfile%?ptr%=10
&Rptr%+=1:length%+=1
&\/ȕ file%?oldptr%=10 � oldptr%<=real_length%
&foldptr%+=1
&p�
&z5ȕ file%?oldptr%=spcchar% � oldptr%<=real_length%
&�oldptr%+=1
&��
&��
&�
&�
��newpara
&�offset%=-1
&�Fȕ file%?(oldptr%+offset%)=spcchar% � file%+oldptr%+offset%>=file%
&�offset%-=1
&��
&�2� file%+oldptr%+offset%<file% �reallynewpara:�
&� Ȏ file%?(oldptr%+offset%) �
&�.  � 42,58,59,33,63,46 : �reallynewpara:�:�
&��
')� oldptr%+2>real_length% oldptr%+=2:�
'
�nextline
'�
'$
'.��reallynewpara
'8)� oldptr%+2>real_length% oldptr%+=2:�
'B$$(newfile%+ptr%)=�Spc4%+1,�(10))
'L"length%+=Spc4%+1:ptr%+=Spc4%+1
'Voldptr%+=1
'`0ȕ file%?oldptr%=10 � file%?oldptr%=spcchar%
'joldptr%+=1
't�
'~`� filtype%=&AF8 � file%?oldptr%=12 newfile%?ptr%=file%?oldptr%:ptr%+=1:oldptr%+=1:length%+=1
'��indent
'��
'�
'���acronyms
'�3� file%?(oldptr%-2)>64 � file%?(oldptr%-2)<91 �
'�4� file%?(oldptr%-2)>96 � file%?(oldptr%-2)<123 �
'�5� file%?(oldptr%-2)>191 � file%?(oldptr%-2)<215 �
'�5� file%?(oldptr%-2)>215 � file%?(oldptr%-2)<247 �
'�� file%?(oldptr%-2)>247 �
'�� c=1 � no_acr%
'�len%=�(acr$(c))
'�	s$=""
(� d=-1 � �(acr$(c))-2
(
� oldptr%+d>real_length% �
(s$+=�(file%?(oldptr%+d))
(� d
((4� s$=acr$(c) acronym%=c:�setac:Sc%=1:c=no_acr%+1
(2� c
(<�
(F
(P��checkgram
(Z'� file%?(a-1)>64 � file%?(a-1)<91 �
(d(� file%?(a-1)>96 � file%?(a-1)<123 �
(n)� file%?(a-1)>191 � file%?(a-1)<215 �
(x)� file%?(a-1)>215 � file%?(a-1)<247 �
(�� file%?(a-1)>247 �
(�� c=1 � no_acr%
(�len%=�(acr$(c))
(�	s$=""
(�� d=0 � �(acr$(c))-1
(�� a+d>real_length% �
(�s$+=�(file%?(a+d))
(�� d
(�,� s$=acr$(c) a+=�(acr$(c))-1:c=no_acr%+1
(�� c
(��
(�
(���load_acronyms
)� a=1 � no_acr%
)
� acr$(a)
)	q$=""
)"� b=1 � �(acr$(a))
),q$+=�acr$(a),b,1)
)6q$+="."
)@� b
)Jacr$(a)=q$
)T� a
)^�
)h
)r��readallcaps
)|� a=1 � no_allcaps%
)�� Allcaps$(a)
)��
)��
)�
)�
��caps
)�value%=ptr%*percent+50
)��
)�
flg%=0
)�word$=""
)�0� newfile%?ptr%>64 � newfile%?ptr%<91 flg%=1
)�1� newfile%?ptr%>96 � newfile%?ptr%<123 flg%=1
)�
ȕ flg%=1
)�word$+=�(newfile%?ptr%)
*
flg%=0
*ptr%+=1
*0� newfile%?ptr%=45 � newfile%?ptr%=95 flg%=1
*&0� newfile%?ptr%>47 � newfile%?ptr%<58 flg%=1
*00� newfile%?ptr%>64 � newfile%?ptr%<91 flg%=1
*:1� newfile%?ptr%>96 � newfile%?ptr%<123 flg%=1
*D2� newfile%?ptr%>191 � newfile%?ptr%<215 flg%=1
*N2� newfile%?ptr%>215 � newfile%?ptr%<247 flg%=1
*X� newfile%?ptr%>247 flg%=1
*b�
*l&� word$<>"" �changecase:�searchfor
*v9� active%=3 ș "Hourglass_Percentage",ptr%*percent+50
*�ptr%+=1
*�� ptr%>length% � active%=5
*�oldvalue%=value%
*�value%=ptr%*percent+50
*�u� active%=5 � value%<>oldvalue% �seticon(Progresshan%,2,�(value%)+"%"):�seticon(Progresshan%,0,�(100-value%)+"%")
*�(� active%=5 � ptr%>length% active%=6
*��
*�
*���lowercase
*�0oldptr%=0:� filtype%=&DDE �lforget:b=oldptr%
*�� a=b � real_length%
*�2ș "Hourglass_Percentage",(100/real_length%)*a
*�=� filtype%=&DDE � file%?a=37 oldptr%=a:�lforget:a=oldptr%
+� file%?(a+1)=46 �checkgram
+)� file%?a>64 � file%?a<91 file%?a+=32
++� file%?a>191 � file%?a<215 file%?a+=32
+ +� file%?a>215 � file%?a<224 file%?a+=32
+*�
+4�
+>
+H��changecase
+Rwrd$=""
+\� a=1 � �(word$)
+fl=�(�word$,a,1))
+p� l>96 � l<123 l-=32
+z� l>223 � l<256 l-=32
+�wrd$+=�(l)
+�� a
+�word$=wrd$
+��
+�
+���searchfor
+�-� �(�word$,1,1))<65 � �(�word$,1,1))>90 �
+�l=(�(�word$,1,1)))-64
+�� a=start%(l) � finish%(l)
+�L� word$=capital$(a) newfile%?(ptr%-�(word$))=�(�word$,1,1)):a=finish%(l)
+��
+�� a=1 � no_adds%
+�K� word$=addwords$(a) newfile%?(ptr%-�(word$))=�(�word$,1,1)):a=no_adds%
,�
,� a=1 � no_allcaps%
,i� word$=Allcaps$(a) b=ptr%-�(word$):� c=1 � �(word$):newfile%?b=�(�word$,c,1)):b+=1:� c:a=no_allcaps%
,$� a
,.�
,8
,B� : N.o. of acronyms;
,L	� 166
,V� : Now the acronyms;
,`�� RISC,OS,UK,GB,OK,ok,Ok,No,NO,RAF,RSPCA,RAC,RSPB,NATO,LASAR,EEC,EC,USA,BC,UN,NASA,BASIC,CPU,ROM,CIS,USSR,ARM,PTO,RSVP,ASAP,IBM,EPROM,DM,COBOL,VDU,NEP,NW,PM,FM,am,pm,eg,Eg,no,PC,RGB,PD,HIV,AIDS,SNCF,TGV,GMT,BBC,ITV,FAST,SAE,SEMERC,TUC,TU
,j�� ANSI,EMR,WYSIWYG,STD,CAB,ATC,OHMS,ILO,PO,WHO,HMS,NZ,MoD,SOS,SAS,FA,IT,VIP,OAP,BT,BR,FBI,TV,tv,WAAC,WAAF,YMCA,RE,PE,AA,RAAF,IQ,LBW,IOU,GCSE,RIP,SWIV,SNES,NES,CD,CDROM,SCSI,APDL,VGA,ET,WH,Wh,ERM,DTP,GUI,ASCII,IDE,HCCS,ADFS,RAMFS,RAM,AD,MPG,PS,ps,CAD
,t�� DIY,CMOS,SVGA,DRDOS,DR,DOS,DPI,LPI,EGA,CGA,WW,AM,MP,SW,LP,SE,NE,EG,OTT,OT,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
,~� : N.o. of ALL capitals;
,�	� 137
,�$� : Now the words with all caps;
,��� RISC,OS,RISCOS,UK,GB,OK,RAF,RSPCA,RAC,RSPB,NATO,LASAR,EEC,EC,USA,BC,AD,NASA,CPU,ROM,CIS,USSR,PTO,RSVP,ASAP,IBM,EPROM,DM,COBOL,VDU,NEP,NE,SE,SW,NW,MP,FM,PC,RGB,PD,HIV,AIDS,SNCF,TGV,GMT,BBC,ITV,TUC,STD,ATC,ILO,PO,HMS,NZ,SOS,SAS,SAE,FA,VIP,OAP,BT,FBI
,��� WAAC,WAAF,YMCA,AA,RAAF,IQ,LBW,IOU,GCSE,ARM2,ARM250,ARM3,ARM6,ARM600,ARM7,ARM700,ARM9,ARM900,RISCOS2,RISCOS3,OS2,OS3,SWIV,SNES,NES,CD,CDROM,SCSI,BASICV,BMW,MEMC1A,MEMC,APDL,VGA,SWI,SYS,ERM,DTP,GUI,ASCII,IDE,HCCS,FPA10,ADFS,RAMFS,PS,EMR,ANSI,WYSIWYG
,�y� CMOS,JPEG,CAD,DOS,DRDOS,SVGA,EGA,CGA,SEMERC,DPI,LPI,LP,BBC1,BBC2,BBC3,BBC4,BBC5,CH4,DIY,OTT,MPG,WW,WW1,WW2,WWI,WWII
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 13 f4 20 66 6f  72 20 54 65 78 74 43 68  |..... for TextCh|
00000020  65 63 6b 0d 00 1e 22 56  65 72 73 69 6f 6e 24 3d  |eck..."Version$=|
00000030  22 31 2e 33 20 28 33 30  74 68 20 41 75 67 20 31  |"1.3 (30th Aug 1|
00000040  39 39 33 29 22 0d 00 28  16 f4 20 43 68 72 69 73  |993)"..(.. Chris|
00000050  20 41 6c 6c 65 6e 20 28  31 35 29 0d 00 32 18 f4  | Allen (15)..2..|
00000060  20 a9 20 41 72 63 68 69  6d 65 64 65 73 20 57 6f  | . Archimedes Wo|
00000070  72 6c 64 0d 00 3c 04 0d  00 46 0d f3 20 6e 6f 5f  |rld..<...F.. no_|
00000080  61 63 72 25 0d 00 50 54  71 3d 30 3a 6e 6f 5f 63  |acr%..PTq=0:no_c|
00000090  68 65 63 6b 73 25 3d 30  3a 6e 6f 5f 61 64 64 73  |hecks%=0:no_adds|
000000a0  25 3d 30 3a 61 63 74 69  76 65 25 3d 2d 31 3a 63  |%=0:active%=-1:c|
000000b0  61 73 65 25 3d 31 3a 72  65 61 6c 5f 6c 65 6e 67  |ase%=1:real_leng|
000000c0  74 68 25 3d 30 3a 6c 65  6e 67 74 68 25 3d 30 3a  |th%=0:length%=0:|
000000d0  70 72 65 76 77 25 3d 30  0d 00 5a f2 de 20 77 69  |prevw%=0..Z.. wi|
000000e0  6d 70 25 20 38 30 30 30  2c 20 77 69 6e 64 25 20  |mp% 8000, wind% |
000000f0  38 30 30 2c 20 73 70 72  69 74 65 25 20 31 34 35  |800, sprite% 145|
00000100  30 30 2c 20 6d 65 6e 75  25 20 34 30 30 2c 20 69  |00, menu% 400, i|
00000110  6e 66 6f 25 20 38 30 30  2c 20 69 6e 25 20 38 30  |nfo% 800, in% 80|
00000120  30 2c 20 73 61 76 65 25  20 38 30 30 2c 20 73 61  |0, save% 800, sa|
00000130  25 20 38 30 30 2c 20 69  6e 66 6f 66 69 6c 65 25  |% 800, infofile%|
00000140  20 38 30 30 2c 20 69 6e  66 69 25 20 38 30 30 2c  | 800, infi% 800,|
00000150  20 67 72 65 25 20 38 30  30 2c 20 67 72 65 65 74  | gre% 800, greet|
00000160  69 6e 25 20 38 30 30 2c  20 70 72 6f 67 72 65 73  |in% 800, progres|
00000170  73 25 20 38 30 30 2c 20  70 72 6f 67 25 20 38 30  |s% 800, prog% 80|
00000180  30 2c 20 61 64 64 25 20  38 30 30 2c 20 61 64 64  |0, add% 800, add|
00000190  77 72 64 25 20 38 30 30  2c 20 70 72 65 25 20 38  |wrd% 800, pre% 8|
000001a0  30 30 2c 20 70 72 65 76  69 65 77 25 20 38 30 30  |00, preview% 800|
000001b0  2c 20 68 65 6c 70 25 20  35 30 30 2c 20 61 63 72  |, help% 500, acr|
000001c0  24 28 6e 6f 5f 61 63 72  25 29 0d 00 64 14 de 20  |$(no_acr%)..d.. |
000001d0  61 64 64 77 6f 72 64 73  24 28 31 30 30 29 0d 00  |addwords$(100)..|
000001e0  6e 13 73 70 72 69 74 65  25 21 30 3d 31 34 35 30  |n.sprite%!0=1450|
000001f0  30 0d 00 78 10 73 70 72  69 74 65 25 21 38 3d 31  |0..x.sprite%!8=1|
00000200  36 0d 00 82 21 c8 99 20  22 4f 53 5f 53 70 72 69  |6...!.. "OS_Spri|
00000210  74 65 4f 70 22 2c 26 31  30 39 2c 73 70 72 69 74  |teOp",&109,sprit|
00000220  65 25 0d 00 8c 38 c8 99  20 22 4f 53 5f 53 70 72  |e%...8.. "OS_Spr|
00000230  69 74 65 4f 70 22 2c 26  31 30 41 2c 73 70 72 69  |iteOp",&10A,spri|
00000240  74 65 25 2c 22 3c 43 68  65 63 6b 24 44 69 72 3e  |te%,"<Check$Dir>|
00000250  2e 21 53 70 72 69 74 65  73 22 0d 00 96 31 c8 99  |.!Sprites"...1..|
00000260  20 26 34 30 30 43 30 2c  32 30 30 2c 26 34 42 35  | &400C0,200,&4B5|
00000270  33 34 31 35 34 2c 22 54  65 78 74 43 68 65 63 6b  |34154,"TextCheck|
00000280  65 72 22 20 b8 20 2c 68  61 6e 25 0d 00 a0 26 c8  |er" . ,han%...&.|
00000290  99 20 26 34 30 30 44 39  2c 2c 22 3c 43 68 65 63  |. &400D9,,"<Chec|
000002a0  6b 24 44 69 72 3e 2e 54  65 6d 70 6c 61 74 65 73  |k$Dir>.Templates|
000002b0  22 0d 00 aa 14 77 69 6d  70 25 21 36 34 3d 73 70  |"....wimp%!64=sp|
000002c0  72 69 74 65 25 0d 00 b4  35 c8 99 20 26 34 30 30  |rite%...5.. &400|
000002d0  44 42 2c 2c 67 72 65 65  74 69 6e 25 2c 67 72 65  |DB,,greetin%,gre|
000002e0  25 2c 67 72 65 25 2b 38  30 30 2c 2d 31 2c 22 47  |%,gre%+800,-1,"G|
000002f0  72 65 65 74 69 6e 67 22  2c 30 0d 00 be 23 c8 99  |reeting",0...#..|
00000300  20 26 34 30 30 43 31 2c  2c 67 72 65 65 74 69 6e  | &400C1,,greetin|
00000310  25 20 b8 20 67 72 65 65  74 68 61 6e 25 0d 00 c8  |% . greethan%...|
00000320  26 f2 73 65 74 69 63 6f  6e 28 67 72 65 65 74 68  |&.seticon(greeth|
00000330  61 6e 25 2c 34 2c 22 76  22 2b 56 65 72 73 69 6f  |an%,4,"v"+Versio|
00000340  6e 24 29 0d 00 d2 5b 77  69 6d 70 25 21 30 3d 67  |n$)...[wimp%!0=g|
00000350  72 65 65 74 68 61 6e 25  3a c8 99 22 57 69 6d 70  |reethan%:.."Wimp|
00000360  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00000370  2c 2c 77 69 6d 70 25 3a  77 69 6d 70 25 21 32 38  |,,wimp%:wimp%!28|
00000380  3d 2d 31 3a c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |=-1:.."Wimp_Open|
00000390  57 69 6e 64 6f 77 22 2c  2c 77 69 6d 70 25 0d 00  |Window",,wimp%..|
000003a0  dc 10 ee 85 f2 65 72 72  28 9f 2c f6 24 29 0d 00  |.....err(.,.$)..|
000003b0  e6 05 f5 0d 00 f0 19 c8  99 20 26 34 30 30 43 37  |......... &400C7|
000003c0  2c 2c 77 69 6d 70 25 20  b8 20 72 25 0d 00 fa 0b  |,,wimp% . r%....|
000003d0  c8 8e 20 72 25 20 ca 0d  01 04 16 c9 20 30 20 3a  |.. r% ...... 0 :|
000003e0  20 c8 8e 20 61 63 74 69  76 65 25 20 ca 0d 01 0e  | .. active% ....|
000003f0  24 20 20 c9 20 2d 31 20  3a 20 61 63 74 69 76 65  |$  . -1 : active|
00000400  25 3d 30 3a f2 63 6f 6e  74 69 6e 75 65 6c 6f 61  |%=0:.continueloa|
00000410  64 0d 01 18 13 20 20 c9  20 32 20 3a 20 f2 73 70  |d....  . 2 : .sp|
00000420  61 63 65 73 0d 01 22 12  20 20 c9 20 34 20 3a 20  |aces..".  . 4 : |
00000430  f2 6c 6f 61 64 32 0d 01  2c 11 20 20 c9 20 35 20  |.load2..,.  . 5 |
00000440  3a 20 f2 63 61 70 73 0d  01 36 12 20 20 c9 20 36  |: .caps..6.  . 6|
00000450  20 3a 20 f2 6c 6f 61 64  33 0d 01 40 97 20 20 c9  | : .load3..@.  .|
00000460  20 37 20 3a 20 61 63 74  69 76 65 25 3d 33 3a c8  | 7 : active%=3:.|
00000470  99 22 48 6f 75 72 67 6c  61 73 73 5f 4f 6e 22 3a  |."Hourglass_On":|
00000480  f2 73 70 61 63 65 73 3a  e7 20 63 61 73 65 25 3d  |.spaces:. case%=|
00000490  31 20 70 65 72 63 65 6e  74 3d 28 31 30 30 2f 6c  |1 percent=(100/l|
000004a0  65 6e 67 74 68 25 29 2f  32 3a 70 74 72 25 3d 30  |ength%)/2:ptr%=0|
000004b0  3a f2 63 61 70 73 3a 61  63 74 69 76 65 25 3d 36  |:.caps:active%=6|
000004c0  3a c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |:.."Hourglass_Of|
000004d0  66 22 20 8b 20 61 63 74  69 76 65 25 3d 36 3a c8  |f" . active%=6:.|
000004e0  99 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  |."Hourglass_Off"|
000004f0  0d 01 4a 48 20 20 c9 20  38 20 3a 20 61 63 74 69  |..JH  . 8 : acti|
00000500  76 65 25 3d 33 3a c8 99  22 48 6f 75 72 67 6c 61  |ve%=3:.."Hourgla|
00000510  73 73 5f 4f 6e 22 3a f2  63 61 70 73 3a 61 63 74  |ss_On":.caps:act|
00000520  69 76 65 25 3d 36 3a c8  99 22 48 6f 75 72 67 6c  |ive%=6:.."Hourgl|
00000530  61 73 73 5f 4f 66 66 22  0d 01 54 17 20 20 c9 20  |ass_Off"..T.  . |
00000540  39 20 3a 20 f2 72 65 70  72 6f 63 65 73 73 32 0d  |9 : .reprocess2.|
00000550  01 5e 07 20 20 cb 0d 01  68 47 c9 20 31 20 3a 20  |.^.  ...hG. 1 : |
00000560  e7 20 77 69 6d 70 25 21  30 3d 50 72 65 76 69 65  |. wimp%!0=Previe|
00000570  77 68 61 6e 25 20 f2 72  65 64 72 61 77 20 8b 20  |whan% .redraw . |
00000580  c8 99 20 22 57 69 6d 70  5f 52 65 64 72 61 77 57  |.. "Wimp_RedrawW|
00000590  69 6e 64 6f 77 22 2c 2c  77 69 6d 70 25 0d 01 72  |indow",,wimp%..r|
000005a0  1a c9 20 32 20 3a 20 c8  99 20 26 34 30 30 43 35  |.. 2 : .. &400C5|
000005b0  2c 2c 77 69 6d 70 25 0d  01 7c 59 c9 20 33 20 3a  |,,wimp%..|Y. 3 :|
000005c0  20 c8 99 20 26 34 30 30  43 36 2c 2c 77 69 6d 70  | .. &400C6,,wimp|
000005d0  25 3a e7 20 77 69 6d 70  25 21 30 3d 73 61 76 65  |%:. wimp%!0=save|
000005e0  68 61 6e 25 20 f2 63 6c  6f 73 65 73 61 76 65 20  |han% .closesave |
000005f0  8b 20 e7 20 77 69 6d 70  25 21 30 3d 50 72 65 76  |. . wimp%!0=Prev|
00000600  69 65 77 68 61 6e 25 20  70 72 65 76 77 25 3d 30  |iewhan% prevw%=0|
00000610  0d 01 86 10 c9 20 36 20  3a 20 f2 63 6c 69 63 6b  |..... 6 : .click|
00000620  0d 01 90 18 c9 20 37 20  3a 20 f2 64 72 61 67 5f  |..... 7 : .drag_|
00000630  63 6f 6d 70 6c 65 74 65  0d 01 9a 3b c9 20 38 20  |complete...;. 8 |
00000640  3a 20 e7 20 77 69 6d 70  25 21 32 34 3d 31 33 20  |: . wimp%!24=13 |
00000650  f2 6b 65 79 20 8b 20 c8  99 22 57 69 6d 70 5f 50  |.key . .."Wimp_P|
00000660  72 6f 63 65 73 73 4b 65  79 22 2c 77 69 6d 70 25  |rocessKey",wimp%|
00000670  21 32 34 0d 01 a4 15 c9  20 39 20 3a 20 f2 6d 65  |!24..... 9 : .me|
00000680  6e 75 73 65 6c 65 63 74  0d 01 ae 1b c9 20 31 37  |nuselect..... 17|
00000690  2c 31 38 20 3a 20 c8 8e  20 77 69 6d 70 25 21 31  |,18 : .. wimp%!1|
000006a0  36 20 ca 0d 01 b8 14 20  20 c9 20 30 20 3a 20 f2  |6 .....  . 0 : .|
000006b0  63 6f 6e 66 69 72 6d 0d  01 c2 12 20 20 c9 20 33  |confirm....  . 3|
000006c0  20 3a 20 f2 6c 6f 61 64  31 0d 01 cc 11 20 20 c9  | : .load1....  .|
000006d0  20 32 20 3a 20 f2 73 61  76 65 0d 01 d6 14 20 20  | 2 : .save....  |
000006e0  c9 20 26 35 30 32 20 3a  20 f2 68 65 6c 70 0d 01  |. &502 : .help..|
000006f0  e0 05 cb 0d 01 ea 05 cb  0d 01 f4 07 fd 20 a3 0d  |............. ..|
00000700  01 fe 04 0d 02 08 0f dd  f2 63 6c 6f 73 65 73 61  |.........closesa|
00000710  76 65 0d 02 12 51 72 65  73 70 6f 6e 73 65 25 3d  |ve...Qresponse%=|
00000720  a4 77 61 72 6e 69 6e 67  28 22 43 6c 6f 73 69 6e  |.warning("Closin|
00000730  67 20 74 68 69 73 20 77  69 6e 64 6f 77 20 77 69  |g this window wi|
00000740  6c 6c 20 72 65 73 75 6c  74 20 69 6e 20 74 68 65  |ll result in the|
00000750  20 64 61 74 61 20 62 65  69 6e 67 20 6c 6f 73 74  | data being lost|
00000760  2e 22 29 0d 02 1c 6a e7  20 72 65 73 70 6f 6e 73  |.")...j. respons|
00000770  65 25 3d 32 20 77 69 6d  70 25 21 30 3d 73 61 76  |e%=2 wimp%!0=sav|
00000780  65 68 61 6e 25 3a c8 99  22 57 69 6d 70 5f 47 65  |ehan%:.."Wimp_Ge|
00000790  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 77  |tWindowState",,w|
000007a0  69 6d 70 25 3a 77 69 6d  70 25 21 32 38 3d 2d 31  |imp%:wimp%!28=-1|
000007b0  3a c8 99 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |:.."Wimp_OpenWin|
000007c0  64 6f 77 22 2c 2c 77 69  6d 70 25 3a e1 0d 02 26  |dow",,wimp%:...&|
000007d0  3b 61 63 74 69 76 65 25  3d 30 3a 77 69 6d 70 25  |;active%=0:wimp%|
000007e0  21 30 3d 50 72 65 76 69  65 77 68 61 6e 25 3a c8  |!0=Previewhan%:.|
000007f0  99 20 26 34 30 30 43 36  2c 2c 77 69 6d 70 25 3a  |. &400C6,,wimp%:|
00000800  70 72 65 76 77 25 3d 30  0d 02 30 05 e1 0d 02 3a  |prevw%=0..0....:|
00000810  04 0d 02 44 12 dd f2 63  6f 6e 74 69 6e 75 65 6c  |...D...continuel|
00000820  6f 61 64 0d 02 4e 33 c8  99 20 26 34 30 30 44 42  |oad..N3.. &400DB|
00000830  2c 2c 77 69 6d 70 25 2c  77 69 6e 64 25 2c 77 69  |,,wimp%,wind%,wi|
00000840  6e 64 25 2b 38 30 30 2c  2d 31 2c 22 6f 70 74 69  |nd%+800,-1,"opti|
00000850  6f 6e 73 22 2c 30 0d 02  58 1e c8 99 20 26 34 30  |ons",0..X... &40|
00000860  30 43 31 2c 2c 77 69 6d  70 25 20 b8 20 6f 70 74  |0C1,,wimp% . opt|
00000870  68 61 6e 25 0d 02 62 2c  c8 99 20 26 34 30 30 44  |han%..b,.. &400D|
00000880  42 2c 2c 69 6e 66 6f 25  2c 69 6e 25 2c 69 6e 25  |B,,info%,in%,in%|
00000890  2b 38 30 30 2c 2d 31 2c  22 69 6e 66 6f 22 2c 30  |+800,-1,"info",0|
000008a0  0d 02 6c 1d c8 99 20 26  34 30 30 43 31 2c 2c 69  |..l... &400C1,,i|
000008b0  6e 66 6f 25 20 b8 20 69  6e 68 61 6e 25 0d 02 76  |nfo% . inhan%..v|
000008c0  30 c8 99 20 26 34 30 30  44 42 2c 2c 73 61 76 65  |0.. &400DB,,save|
000008d0  25 2c 73 61 25 2c 73 61  25 2b 38 30 30 2c 2d 31  |%,sa%,sa%+800,-1|
000008e0  2c 22 73 61 76 65 5f 62  6f 78 22 2c 30 0d 02 80  |,"save_box",0...|
000008f0  1f c8 99 20 26 34 30 30  43 31 2c 2c 73 61 76 65  |... &400C1,,save|
00000900  25 20 b8 20 73 61 76 65  68 61 6e 25 0d 02 8a 38  |% . savehan%...8|
00000910  c8 99 20 26 34 30 30 44  42 2c 2c 69 6e 66 6f 66  |.. &400DB,,infof|
00000920  69 6c 65 25 2c 69 6e 66  69 25 2c 69 6e 66 69 25  |ile%,infi%,infi%|
00000930  2b 38 30 30 2c 2d 31 2c  22 46 69 6c 65 49 6e 66  |+800,-1,"FileInf|
00000940  6f 22 2c 30 0d 02 94 27  c8 99 20 26 34 30 30 43  |o",0...'.. &400C|
00000950  31 2c 2c 69 6e 66 6f 66  69 6c 65 25 20 b8 20 49  |1,,infofile% . I|
00000960  6e 66 6f 46 69 6c 65 68  61 6e 25 0d 02 9e 38 c8  |nfoFilehan%...8.|
00000970  99 20 26 34 30 30 44 42  2c 2c 70 72 6f 67 72 65  |. &400DB,,progre|
00000980  73 73 25 2c 70 72 6f 67  25 2c 70 72 6f 67 25 2b  |ss%,prog%,prog%+|
00000990  38 30 30 2c 2d 31 2c 22  50 72 6f 67 72 65 73 73  |800,-1,"Progress|
000009a0  22 2c 30 0d 02 a8 27 c8  99 20 26 34 30 30 43 31  |",0...'.. &400C1|
000009b0  2c 2c 70 72 6f 67 72 65  73 73 25 20 b8 20 50 72  |,,progress% . Pr|
000009c0  6f 67 72 65 73 73 68 61  6e 25 0d 02 b2 33 c8 99  |ogresshan%...3..|
000009d0  20 26 34 30 30 44 42 2c  2c 61 64 64 77 72 64 25  | &400DB,,addwrd%|
000009e0  2c 61 64 64 25 2c 61 64  64 25 2b 38 30 30 2c 2d  |,add%,add%+800,-|
000009f0  31 2c 22 41 64 64 77 6f  72 64 22 2c 30 0d 02 bc  |1,"Addword",0...|
00000a00  24 c8 99 20 26 34 30 30  43 31 2c 2c 61 64 64 77  |$.. &400C1,,addw|
00000a10  72 64 25 20 b8 20 41 64  64 77 6f 72 64 68 61 6e  |rd% . Addwordhan|
00000a20  25 0d 02 c6 34 c8 99 20  26 34 30 30 44 42 2c 2c  |%...4.. &400DB,,|
00000a30  70 72 65 76 69 65 77 25  2c 70 72 65 25 2c 70 72  |preview%,pre%,pr|
00000a40  65 25 2b 38 30 30 2c 2d  31 2c 22 50 72 65 76 69  |e%+800,-1,"Previ|
00000a50  65 77 22 2c 30 0d 02 d0  25 c8 99 20 26 34 30 30  |ew",0...%.. &400|
00000a60  43 31 2c 2c 70 72 65 76  69 65 77 25 20 b8 20 50  |C1,,preview% . P|
00000a70  72 65 76 69 65 77 68 61  6e 25 0d 02 da 0d c8 99  |reviewhan%......|
00000a80  20 26 34 30 30 44 41 0d  02 e4 0f f2 72 65 61 64  | &400DA.....read|
00000a90  76 61 6c 75 65 73 0d 02  ee 11 f2 6c 6f 61 64 63  |values.....loadc|
00000aa0  61 70 69 74 61 6c 73 0d  02 f8 12 f2 6c 6f 61 64  |apitals.....load|
00000ab0  5f 61 63 72 6f 6e 79 6d  73 0d 03 02 11 f3 20 6e  |_acronyms..... n|
00000ac0  6f 5f 61 6c 6c 63 61 70  73 25 0d 03 0c 1b de 20  |o_allcaps%..... |
00000ad0  41 6c 6c 63 61 70 73 24  28 6e 6f 5f 61 6c 6c 63  |Allcaps$(no_allc|
00000ae0  61 70 73 25 29 0d 03 16  10 f2 72 65 61 64 61 6c  |aps%).....readal|
00000af0  6c 63 61 70 73 0d 03 20  1b 6e 6f 5f 63 68 65 63  |lcaps.. .no_chec|
00000b00  6b 73 25 2b 3d 6e 6f 5f  61 6c 6c 63 61 70 73 25  |ks%+=no_allcaps%|
00000b10  0d 03 2a 0c f2 69 63 6f  6e 62 61 72 0d 03 34 1f  |..*..iconbar..4.|
00000b20  f2 73 65 74 69 63 6f 6e  28 6f 70 74 68 61 6e 25  |.seticon(opthan%|
00000b30  2c 36 2c c3 28 53 70 63  25 29 29 0d 03 3e 21 f2  |,6,.(Spc%))..>!.|
00000b40  73 65 74 69 63 6f 6e 28  6f 70 74 68 61 6e 25 2c  |seticon(opthan%,|
00000b50  31 30 2c c3 28 53 70 63  32 25 29 29 0d 03 48 21  |10,.(Spc2%))..H!|
00000b60  f2 73 65 74 69 63 6f 6e  28 6f 70 74 68 61 6e 25  |.seticon(opthan%|
00000b70  2c 32 36 2c c3 28 53 70  63 33 25 29 29 0d 03 52  |,26,.(Spc3%))..R|
00000b80  21 f2 73 65 74 69 63 6f  6e 28 6f 70 74 68 61 6e  |!.seticon(opthan|
00000b90  25 2c 32 39 2c c3 28 53  70 63 34 25 29 29 0d 03  |%,29,.(Spc4%))..|
00000ba0  5c 1f f2 73 65 74 69 63  6f 6e 28 69 6e 68 61 6e  |\..seticon(inhan|
00000bb0  25 2c 34 2c 56 65 72 73  69 6f 6e 24 29 0d 03 66  |%,4,Version$)..f|
00000bc0  31 77 69 6d 70 25 21 30  3d 67 72 65 65 74 68 61  |1wimp%!0=greetha|
00000bd0  6e 25 3a c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |n%:.."Wimp_Close|
00000be0  57 69 6e 64 6f 77 22 2c  2c 77 69 6d 70 25 0d 03  |Window",,wimp%..|
00000bf0  70 05 e1 0d 03 7a 04 0d  03 84 21 dd f2 74 6f 67  |p....z....!..tog|
00000c00  67 6c 65 69 63 6f 6e 28  77 69 6d 70 25 21 30 2c  |gleicon(wimp%!0,|
00000c10  77 69 6d 70 25 21 34 29  0d 03 8e 1e 77 69 6d 70  |wimp%!4)....wimp|
00000c20  25 21 38 3d 26 32 30 30  30 30 30 3a 77 69 6d 70  |%!8=&200000:wimp|
00000c30  25 21 31 32 3d 30 0d 03  98 21 c8 99 20 22 57 69  |%!12=0...!.. "Wi|
00000c40  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00000c50  2c 2c 77 69 6d 70 25 0d  03 a2 05 e1 0d 03 ac 04  |,,wimp%.........|
00000c60  0d 03 b6 09 dd f2 6b 65  79 0d 03 c0 22 e7 20 77  |......key...". w|
00000c70  69 6d 70 25 21 30 3d 6f  70 74 68 61 6e 25 20 c8  |imp%!0=opthan% .|
00000c80  8e 20 77 69 6d 70 25 21  34 20 ca 0d 03 ca 38 20  |. wimp%!4 ....8 |
00000c90  20 c9 20 36 3a c8 99 22  57 69 6d 70 5f 53 65 74  | . 6:.."Wimp_Set|
00000ca0  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 6f  |CaretPosition",o|
00000cb0  70 74 68 61 6e 25 2c 31  30 2c 2d 32 2c 2c 2d 31  |pthan%,10,-2,,-1|
00000cc0  2c 2d 31 0d 03 d4 39 20  20 c9 20 31 30 3a c8 99  |,-1...9  . 10:..|
00000cd0  22 57 69 6d 70 5f 53 65  74 43 61 72 65 74 50 6f  |"Wimp_SetCaretPo|
00000ce0  73 69 74 69 6f 6e 22 2c  6f 70 74 68 61 6e 25 2c  |sition",opthan%,|
00000cf0  32 36 2c 2d 32 2c 2c 2d  31 2c 2d 31 0d 03 de 39  |26,-2,,-1,-1...9|
00000d00  20 20 c9 20 32 36 3a c8  99 22 57 69 6d 70 5f 53  |  . 26:.."Wimp_S|
00000d10  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00000d20  2c 6f 70 74 68 61 6e 25  2c 32 39 2c 2d 32 2c 2c  |,opthan%,29,-2,,|
00000d30  2d 31 2c 2d 31 0d 03 e8  38 20 20 c9 20 32 39 3a  |-1,-1...8  . 29:|
00000d40  c8 99 22 57 69 6d 70 5f  53 65 74 43 61 72 65 74  |.."Wimp_SetCaret|
00000d50  50 6f 73 69 74 69 6f 6e  22 2c 6f 70 74 68 61 6e  |Position",opthan|
00000d60  25 2c 36 2c 2d 32 2c 2c  2d 31 2c 2d 31 0d 03 f2  |%,6,-2,,-1,-1...|
00000d70  05 cb 0d 03 fc 56 e7 20  77 69 6d 70 25 21 30 3d  |.....V. wimp%!0=|
00000d80  41 64 64 77 6f 72 64 68  61 6e 25 20 f2 74 6f 67  |Addwordhan% .tog|
00000d90  67 6c 65 69 63 6f 6e 28  41 64 64 77 6f 72 64 68  |gleicon(Addwordh|
00000da0  61 6e 25 2c 35 29 3a f2  75 73 65 3a f2 74 6f 67  |an%,5):.use:.tog|
00000db0  67 6c 65 69 63 6f 6e 28  41 64 64 77 6f 72 64 68  |gleicon(Addwordh|
00000dc0  61 6e 25 2c 35 29 3a e1  0d 04 06 33 e7 20 77 69  |an%,5):....3. wi|
00000dd0  6d 70 25 21 30 3d 73 61  76 65 68 61 6e 25 20 80  |mp%!0=savehan% .|
00000de0  20 77 69 6d 70 25 21 34  3d 31 20 f2 67 65 74 66  | wimp%!4=1 .getf|
00000df0  69 6c 65 6e 61 6d 65 20  8b 20 e1 0d 04 10 4f e7  |ilename . ....O.|
00000e00  20 a7 66 69 6c 65 6e 61  24 2c 22 2e 22 29 3d 30  | .filena$,".")=0|
00000e10  20 f2 65 72 72 28 31 2c  22 54 6f 20 73 61 76 65  | .err(1,"To save|
00000e20  2c 20 64 72 61 67 20 74  68 65 20 69 63 6f 6e 20  |, drag the icon |
00000e30  74 6f 20 61 20 64 69 72  65 63 74 6f 72 79 20 76  |to a directory v|
00000e40  69 65 77 65 72 2e 22 29  3a e1 0d 04 1a 15 66 69  |iewer."):.....fi|
00000e50  6c 65 6e 61 6d 65 24 3d  66 69 6c 65 6e 61 24 0d  |lename$=filena$.|
00000e60  04 24 1b c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.$... "Wimp_Crea|
00000e70  74 65 4d 65 6e 75 22 2c  2d 31 0d 04 2e 0d f2 64  |teMenu",-1.....d|
00000e80  6f 74 68 69 6e 67 79 0d  04 38 05 e1 0d 04 42 04  |othingy..8....B.|
00000e90  0d 04 4c 08 dd f2 6f 6b  0d 04 56 1f e7 20 77 69  |..L...ok..V.. wi|
00000ea0  6d 70 25 21 38 3c 3e 31  20 80 20 77 69 6d 70 25  |mp%!8<>1 . wimp%|
00000eb0  21 38 3c 3e 34 20 e1 0d  04 60 10 f2 67 65 74 66  |!8<>4 ...`..getf|
00000ec0  69 6c 65 6e 61 6d 65 0d  04 6a 4f e7 20 a7 66 69  |ilename..jO. .fi|
00000ed0  6c 65 6e 61 24 2c 22 2e  22 29 3d 30 20 f2 65 72  |lena$,".")=0 .er|
00000ee0  72 28 31 2c 22 54 6f 20  73 61 76 65 2c 20 64 72  |r(1,"To save, dr|
00000ef0  61 67 20 74 68 65 20 69  63 6f 6e 20 74 6f 20 61  |ag the icon to a|
00000f00  20 64 69 72 65 63 74 6f  72 79 20 76 69 65 77 65  | directory viewe|
00000f10  72 2e 22 29 3a e1 0d 04  74 1f 66 69 6c 65 6e 61  |r."):...t.filena|
00000f20  6d 65 24 3d 66 69 6c 65  6e 61 24 3a f2 64 6f 74  |me$=filena$:.dot|
00000f30  68 69 6e 67 79 0d 04 7e  05 e1 0d 04 88 04 0d 04  |hingy..~........|
00000f40  92 13 dd f2 64 72 61 67  5f 63 6f 6d 70 6c 65 74  |....drag_complet|
00000f50  65 0d 04 9c 23 c8 99 20  22 57 69 6d 70 5f 47 65  |e...#.. "Wimp_Ge|
00000f60  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 77  |tPointerInfo",,w|
00000f70  69 6d 70 25 0d 04 a6 2d  68 3d 77 69 6d 70 25 21  |imp%...-h=wimp%!|
00000f80  31 32 3a 69 3d 77 69 6d  70 25 21 31 36 3a 78 3d  |12:i=wimp%!16:x=|
00000f90  77 69 6d 70 25 21 30 3a  79 3d 77 69 6d 70 25 21  |wimp%!0:y=wimp%!|
00000fa0  34 0d 04 b0 3a 77 69 6d  70 25 21 30 3d 36 34 3a  |4...:wimp%!0=64:|
00000fb0  77 69 6d 70 25 21 31 32  3d 30 3a 77 69 6d 70 25  |wimp%!12=0:wimp%|
00000fc0  21 31 36 3d 31 3a 77 69  6d 70 25 21 32 30 3d 68  |!16=1:wimp%!20=h|
00000fd0  3a 77 69 6d 70 25 21 32  34 3d 69 0d 04 ba 3c 77  |:wimp%!24=i...<w|
00000fe0  69 6d 70 25 21 32 38 3d  78 3a 77 69 6d 70 25 21  |imp%!28=x:wimp%!|
00000ff0  33 32 3d 79 3a 77 69 6d  70 25 21 33 36 3d 6c 65  |32=y:wimp%!36=le|
00001000  6e 67 74 68 25 3a 77 69  6d 70 25 21 34 30 3d 66  |ngth%:wimp%!40=f|
00001010  69 6c 74 79 70 65 25 0d  04 c4 17 24 28 77 69 6d  |iltype%....$(wim|
00001020  70 25 2b 34 34 29 3d 66  69 6c 65 6e 61 24 0d 04  |p%+44)=filena$..|
00001030  ce 26 c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |.&.. "Wimp_SendM|
00001040  65 73 73 61 67 65 22 2c  31 37 2c 77 69 6d 70 25  |essage",17,wimp%|
00001050  2c 68 2c 69 0d 04 d8 05  e1 0d 04 e2 04 0d 04 ec  |,h,i............|
00001060  0a dd f2 73 61 76 65 0d  04 f6 21 78 3d 77 69 6d  |...save...!x=wim|
00001070  70 25 21 30 3a 79 3d 77  69 6d 70 25 21 34 3a 7a  |p%!0:y=wimp%!4:z|
00001080  3d 77 69 6d 70 25 21 38  0d 05 00 21 66 69 6c 65  |=wimp%!8...!file|
00001090  6e 61 6d 65 24 3d 24 28  77 69 6d 70 25 2b 34 34  |name$=$(wimp%+44|
000010a0  29 2b 66 69 6c 65 6e 61  24 0d 05 0a 23 77 69 6d  |)+filena$...#wim|
000010b0  70 25 21 30 3d 78 3a 77  69 6d 70 25 21 31 32 3d  |p%!0=x:wimp%!12=|
000010c0  7a 3a 77 69 6d 70 25 21  31 36 3d 33 0d 05 14 24  |z:wimp%!16=3...$|
000010d0  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
000010e0  73 61 67 65 22 2c 31 38  2c 77 69 6d 70 25 2c 79  |sage",18,wimp%,y|
000010f0  0d 05 1e 23 66 69 6c 65  6e 61 6d 65 24 3d a4 66  |...#filename$=.f|
00001100  69 78 73 74 72 69 6e 67  28 66 69 6c 65 6e 61 6d  |ixstring(filenam|
00001110  65 24 29 0d 05 28 0d f2  64 6f 74 68 69 6e 67 79  |e$)..(..dothingy|
00001120  0d 05 32 05 e1 0d 05 3c  04 0d 05 46 0e dd f2 64  |..2....<...F...d|
00001130  6f 74 68 69 6e 67 79 0d  05 50 b6 e7 20 66 69 6c  |othingy..P.. fil|
00001140  65 6e 61 6d 65 24 3d 6f  6c 64 66 69 6c 65 6e 61  |ename$=oldfilena|
00001150  6d 65 24 20 72 65 73 70  6f 6e 73 65 25 3d a4 77  |me$ response%=.w|
00001160  61 72 6e 69 6e 67 28 22  59 6f 75 20 61 72 65 20  |arning("You are |
00001170  73 61 76 69 6e 67 20 6f  76 65 72 20 79 6f 75 72  |saving over your|
00001180  20 6f 72 69 67 69 6e 61  6c 20 66 69 6c 65 2e 20  | original file. |
00001190  20 49 74 20 77 6f 75 6c  64 20 62 65 20 77 69 73  | It would be wis|
000011a0  65 20 74 6f 20 63 68 65  63 6b 20 69 74 20 66 69  |e to check it fi|
000011b0  72 73 74 2e 20 20 44 6f  20 79 6f 75 20 73 74 69  |rst.  Do you sti|
000011c0  6c 6c 20 77 69 73 68 20  74 6f 20 73 61 76 65 20  |ll wish to save |
000011d0  69 74 20 61 73 20 74 68  69 73 3f 22 29 3a e7 20  |it as this?"):. |
000011e0  72 65 73 70 6f 6e 73 65  25 3d 32 20 e1 0d 05 5a  |response%=2 ...Z|
000011f0  41 c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 31 30  |A.. "OS_File",10|
00001200  2c 66 69 6c 65 6e 61 6d  65 24 2c 66 69 6c 74 79  |,filename$,filty|
00001210  70 65 25 2c 2c 6e 65 77  66 69 6c 65 25 2c 6e 65  |pe%,,newfile%,ne|
00001220  77 66 69 6c 65 25 2b 6c  65 6e 67 74 68 25 0d 05  |wfile%+length%..|
00001230  64 14 77 69 6d 70 25 21  30 3d 73 61 76 65 68 61  |d.wimp%!0=saveha|
00001240  6e 25 0d 05 6e 14 c8 99  20 26 34 30 30 43 36 2c  |n%..n... &400C6,|
00001250  2c 77 69 6d 70 25 0d 05  78 0d 61 63 74 69 76 65  |,wimp%..x.active|
00001260  25 3d 30 0d 05 82 05 e1  0d 05 8c 04 0d 05 96 0f  |%=0.............|
00001270  dd f2 63 61 6c 63 75 6c  61 74 65 0d 05 a0 14 c8  |..calculate.....|
00001280  99 22 48 6f 75 72 67 6c  61 73 73 5f 4f 6e 22 0d  |."Hourglass_On".|
00001290  05 aa 44 68 65 69 67 68  74 25 3d 30 3a 61 3d 30  |..Dheight%=0:a=0|
000012a0  3a 70 74 72 25 3d 30 3a  6f 66 66 73 65 74 25 3d  |:ptr%=0:offset%=|
000012b0  30 3a e7 20 66 69 6c 74  79 70 65 25 3d 26 41 46  |0:. filtype%=&AF|
000012c0  38 20 f2 6e 65 77 73 65  61 72 63 68 3a 61 3d 70  |8 .newsearch:a=p|
000012d0  74 72 25 0d 05 b4 18 70  65 72 63 3d 31 30 30 2f  |tr%....perc=100/|
000012e0  28 6c 65 6e 67 74 68 25  2d 31 29 0d 05 be 18 e3  |(length%-1).....|
000012f0  20 70 74 72 25 3d 61 20  b8 20 6c 65 6e 67 74 68  | ptr%=a . length|
00001300  25 2d 31 0d 05 c8 27 c8  99 20 22 48 6f 75 72 67  |%-1...'.. "Hourg|
00001310  6c 61 73 73 5f 50 65 72  63 65 6e 74 61 67 65 22  |lass_Percentage"|
00001320  2c 70 65 72 63 2a 70 74  72 25 0d 05 d2 4b e7 20  |,perc*ptr%...K. |
00001330  6e 65 77 66 69 6c 65 25  3f 70 74 72 25 3d 33 37  |newfile%?ptr%=37|
00001340  20 80 20 66 69 6c 74 79  70 65 25 3d 26 44 44 45  | . filtype%=&DDE|
00001350  20 6f 6c 64 70 74 72 25  3d 70 74 72 25 3a f2 72  | oldptr%=ptr%:.r|
00001360  66 6f 72 67 65 74 3a 70  74 72 25 3d 6f 6c 64 70  |forget:ptr%=oldp|
00001370  74 72 25 2b 31 0d 05 dc  2b e7 20 6e 65 77 66 69  |tr%+1...+. newfi|
00001380  6c 65 25 3f 70 74 72 25  3d 31 30 20 68 65 69 67  |le%?ptr%=10 heig|
00001390  68 74 25 2b 3d 31 3a 6f  66 66 73 65 74 25 3d 30  |ht%+=1:offset%=0|
000013a0  0d 05 e6 33 e7 20 6e 65  77 66 69 6c 65 25 3f 70  |...3. newfile%?p|
000013b0  74 72 25 3d 31 32 39 20  80 20 66 69 6c 74 79 70  |tr%=129 . filtyp|
000013c0  65 25 3d 26 41 46 38 20  6f 66 66 73 65 74 25 2b  |e%=&AF8 offset%+|
000013d0  3d 31 36 0d 05 f0 38 e7  20 66 69 6c 74 79 70 65  |=16...8. filtype|
000013e0  25 3d 26 41 46 38 20 80  20 6e 65 77 66 69 6c 65  |%=&AF8 . newfile|
000013f0  25 3f 70 74 72 25 3d 73  70 63 63 68 61 72 25 20  |%?ptr%=spcchar% |
00001400  6f 66 66 73 65 74 25 2b  3d 31 36 0d 05 fa 60 e7  |offset%+=16...`.|
00001410  20 6e 65 77 66 69 6c 65  25 3f 70 74 72 25 3c 3e  | newfile%?ptr%<>|
00001420  31 30 20 80 20 6e 65 77  66 69 6c 65 25 3f 70 74  |10 . newfile%?pt|
00001430  72 25 3c 3e 31 32 39 20  80 20 6e 65 77 66 69 6c  |r%<>129 . newfil|
00001440  65 25 3f 70 74 72 25 3e  33 31 20 80 20 6e 65 77  |e%?ptr%>31 . new|
00001450  66 69 6c 65 25 3f 70 74  72 25 3c 3e 31 32 38 20  |file%?ptr%<>128 |
00001460  6f 66 66 73 65 74 25 2b  3d 31 36 0d 06 04 47 e7  |offset%+=16...G.|
00001470  20 6f 66 66 73 65 74 25  3e 31 36 2a 37 36 20 68  | offset%>16*76 h|
00001480  65 69 67 68 74 25 2b 3d  31 3a 6f 66 66 73 65 74  |eight%+=1:offset|
00001490  25 3d 30 3a e7 20 6e 65  77 66 69 6c 65 25 3f 28  |%=0:. newfile%?(|
000014a0  70 74 72 25 2b 31 29 3d  31 30 20 70 74 72 25 2b  |ptr%+1)=10 ptr%+|
000014b0  3d 31 0d 06 0e 05 ed 0d  06 18 1e 68 65 69 67 68  |=1.........heigh|
000014c0  74 25 3d 31 2d 28 33 36  2a 28 68 65 69 67 68 74  |t%=1-(36*(height|
000014d0  25 2b 32 29 29 0d 06 22  15 c8 99 22 48 6f 75 72  |%+2)).."..."Hour|
000014e0  67 6c 61 73 73 5f 4f 66  66 22 0d 06 2c 05 e1 0d  |glass_Off"..,...|
000014f0  06 36 04 0d 06 40 0c dd  f2 72 65 64 72 61 77 0d  |.6...@...redraw.|
00001500  06 4a 15 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |.J... "Hourglass|
00001510  5f 4f 6e 22 0d 06 54 2b  c8 99 20 22 57 69 6d 70  |_On"..T+.. "Wimp|
00001520  5f 52 65 64 72 61 77 57  69 6e 64 6f 77 22 2c 2c  |_RedrawWindow",,|
00001530  77 69 6d 70 25 20 b8 20  72 65 64 72 61 77 25 0d  |wimp% . redraw%.|
00001540  06 5e 16 78 3d 77 69 6d  70 25 21 34 2d 77 69 6d  |.^.x=wimp%!4-wim|
00001550  70 25 21 32 30 0d 06 68  06 ef 35 0d 06 72 0e c8  |p%!20..h..5..r..|
00001560  95 20 72 65 64 72 61 77  25 0d 06 7c 32 79 3d 77  |. redraw%..|2y=w|
00001570  69 6d 70 25 21 31 36 2d  77 69 6d 70 25 21 32 34  |imp%!16-wimp%!24|
00001580  2d 35 3a 6c 69 6e 65 25  3d 30 3a 70 74 72 25 3d  |-5:line%=0:ptr%=|
00001590  30 3a 6f 66 66 73 65 74  25 3d 30 0d 06 86 11 ec  |0:offset%=0.....|
000015a0  20 78 2b 6f 66 66 73 65  74 25 2c 79 0d 06 90 29  | x+offset%,y...)|
000015b0  61 3d 30 3a e7 20 66 69  6c 74 79 70 65 25 3d 26  |a=0:. filtype%=&|
000015c0  41 46 38 20 f2 6e 65 77  73 65 61 72 63 68 3a 61  |AF8 .newsearch:a|
000015d0  3d 70 74 72 25 0d 06 9a  30 e7 20 66 69 6c 74 79  |=ptr%...0. filty|
000015e0  70 65 25 3d 26 44 44 45  20 6f 6c 64 70 74 72 25  |pe%=&DDE oldptr%|
000015f0  3d 30 3a f2 72 66 6f 72  67 65 74 3a 61 3d 6f 6c  |=0:.rforget:a=ol|
00001600  64 70 74 72 25 0d 06 a4  18 e3 20 70 74 72 25 3d  |dptr%..... ptr%=|
00001610  61 20 b8 20 6c 65 6e 67  74 68 25 2d 31 0d 06 ae  |a . length%-1...|
00001620  4b e7 20 6e 65 77 66 69  6c 65 25 3f 70 74 72 25  |K. newfile%?ptr%|
00001630  3d 33 37 20 80 20 66 69  6c 74 79 70 65 25 3d 26  |=37 . filtype%=&|
00001640  44 44 45 20 6f 6c 64 70  74 72 25 3d 70 74 72 25  |DDE oldptr%=ptr%|
00001650  3a f2 72 66 6f 72 67 65  74 3a 70 74 72 25 3d 6f  |:.rforget:ptr%=o|
00001660  6c 64 70 74 72 25 2b 31  0d 06 b8 2f e7 20 6e 65  |ldptr%+1.../. ne|
00001670  77 66 69 6c 65 25 3f 70  74 72 25 3d 31 30 20 79  |wfile%?ptr%=10 y|
00001680  2d 3d 33 36 3a 6c 69 6e  65 25 2b 3d 31 3a 6f 66  |-=36:line%+=1:of|
00001690  66 73 65 74 25 3d 30 0d  06 c2 3b e7 20 6e 65 77  |fset%=0...;. new|
000016a0  66 69 6c 65 25 3f 70 74  72 25 3d 31 32 39 20 80  |file%?ptr%=129 .|
000016b0  20 66 69 6c 74 79 70 65  25 3d 26 41 46 38 20 c8  | filtype%=&AF8 .|
000016c0  99 20 30 2c 33 32 3a 6f  66 66 73 65 74 25 2b 3d  |. 0,32:offset%+=|
000016d0  31 36 0d 06 cc 40 e7 20  66 69 6c 74 79 70 65 25  |16...@. filtype%|
000016e0  3d 26 41 46 38 20 80 20  6e 65 77 66 69 6c 65 25  |=&AF8 . newfile%|
000016f0  3f 70 74 72 25 3d 73 70  63 63 68 61 72 25 20 c8  |?ptr%=spcchar% .|
00001700  99 20 30 2c 33 32 3a 6f  66 66 73 65 74 25 2b 3d  |. 0,32:offset%+=|
00001710  31 36 0d 06 d6 73 e7 20  6e 65 77 66 69 6c 65 25  |16...s. newfile%|
00001720  3f 70 74 72 25 3c 3e 31  30 20 80 20 6e 65 77 66  |?ptr%<>10 . newf|
00001730  69 6c 65 25 3f 70 74 72  25 3c 3e 31 32 39 20 80  |ile%?ptr%<>129 .|
00001740  20 6e 65 77 66 69 6c 65  25 3f 70 74 72 25 3e 33  | newfile%?ptr%>3|
00001750  31 20 80 20 6e 65 77 66  69 6c 65 25 3f 70 74 72  |1 . newfile%?ptr|
00001760  25 3c 3e 31 32 38 20 c8  99 20 30 2c 6e 65 77 66  |%<>128 .. 0,newf|
00001770  69 6c 65 25 21 70 74 72  25 3a 6f 66 66 73 65 74  |ile%!ptr%:offset|
00001780  25 2b 3d 31 36 0d 06 e0  4b e7 20 6f 66 66 73 65  |%+=16...K. offse|
00001790  74 25 3e 31 36 2a 37 36  20 79 2d 3d 33 36 3a 6c  |t%>16*76 y-=36:l|
000017a0  69 6e 65 25 2b 3d 31 3a  6f 66 66 73 65 74 25 3d  |ine%+=1:offset%=|
000017b0  30 3a e7 20 6e 65 77 66  69 6c 65 25 3f 28 70 74  |0:. newfile%?(pt|
000017c0  72 25 2b 31 29 3d 31 30  20 70 74 72 25 2b 3d 31  |r%+1)=10 ptr%+=1|
000017d0  0d 06 ea 11 ec 20 78 2b  6f 66 66 73 65 74 25 2c  |..... x+offset%,|
000017e0  79 0d 06 f4 36 e7 20 28  33 36 2a 28 6c 69 6e 65  |y...6. (36*(line|
000017f0  25 29 29 3e 77 69 6d 70  25 21 31 36 2b 28 2d 31  |%))>wimp%!16+(-1|
00001800  2a 77 69 6d 70 25 21 32  34 29 20 70 74 72 25 3d  |*wimp%!24) ptr%=|
00001810  6c 65 6e 67 74 68 25 0d  06 fe 05 ed 0d 07 08 2b  |length%........+|
00001820  c8 99 20 22 57 69 6d 70  5f 47 65 74 52 65 63 74  |.. "Wimp_GetRect|
00001830  61 6e 67 6c 65 22 2c 2c  77 69 6d 70 25 20 b8 20  |angle",,wimp% . |
00001840  72 65 64 72 61 77 25 0d  07 12 05 ce 0d 07 1c 16  |redraw%.........|
00001850  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |.. "Hourglass_Of|
00001860  66 22 0d 07 26 05 e1 0d  07 30 04 0d 07 3a 0b dd  |f"..&....0...:..|
00001870  f2 6c 6f 61 64 31 0d 07  44 0f 72 65 73 70 6f 6e  |.load1..D.respon|
00001880  73 65 25 3d 30 0d 07 4e  6f e7 20 61 63 74 69 76  |se%=0..No. activ|
00001890  65 25 3d 31 20 72 65 73  70 6f 6e 73 65 25 3d a4  |e%=1 response%=.|
000018a0  77 61 72 6e 69 6e 67 28  22 4c 6f 61 64 69 6e 67  |warning("Loading|
000018b0  20 74 68 69 73 20 66 69  6c 65 20 77 69 6c 6c 20  | this file will |
000018c0  64 69 73 63 61 72 64 20  74 68 65 20 63 75 72 72  |discard the curr|
000018d0  65 6e 74 20 70 72 6f 63  65 73 73 65 64 20 6f 6e  |ent processed on|
000018e0  65 2e 22 29 3a e7 20 72  65 73 70 6f 6e 73 65 25  |e."):. response%|
000018f0  3d 32 20 e1 0d 07 58 a0  e7 20 61 63 74 69 76 65  |=2 ...X.. active|
00001900  25 3d 32 20 84 20 61 63  74 69 76 65 25 3d 35 20  |%=2 . active%=5 |
00001910  72 65 73 70 6f 6e 73 65  25 3d a4 77 61 72 6e 69  |response%=.warni|
00001920  6e 67 28 22 49 20 61 6d  20 63 75 72 72 65 6e 74  |ng("I am current|
00001930  6c 79 20 70 72 6f 63 65  73 73 69 6e 67 20 61 20  |ly processing a |
00001940  66 69 6c 65 2c 20 6c 6f  61 64 69 6e 67 20 61 6e  |file, loading an|
00001950  64 20 70 72 6f 63 65 73  73 69 6e 67 20 61 6e 6f  |d processing ano|
00001960  74 68 65 72 20 77 69 6c  6c 20 64 69 73 63 61 72  |ther will discar|
00001970  64 20 74 68 65 20 63 75  72 72 65 6e 74 20 6f 6e  |d the current on|
00001980  65 2e 22 29 3a e7 20 72  65 73 70 6f 6e 73 65 25  |e."):. response%|
00001990  3d 32 20 e1 0d 07 62 3c  66 69 6c 65 6e 61 6d 65  |=2 ...b<filename|
000019a0  24 3d 24 28 77 69 6d 70  25 2b 34 34 29 3a 6f 6c  |$=$(wimp%+44):ol|
000019b0  64 66 69 6c 65 6e 61 6d  65 24 3d a4 66 69 78 73  |dfilename$=.fixs|
000019c0  74 72 69 6e 67 28 66 69  6c 65 6e 61 6d 65 24 29  |tring(filename$)|
000019d0  0d 07 6c 77 e7 20 77 69  6d 70 25 21 34 30 3c 3e  |..lw. wimp%!40<>|
000019e0  26 46 46 46 20 80 20 77  69 6d 70 25 21 34 30 3c  |&FFF . wimp%!40<|
000019f0  3e 26 41 46 38 20 80 20  77 69 6d 70 25 21 34 30  |>&AF8 . wimp%!40|
00001a00  3c 3e 26 44 44 45 20 f2  65 72 72 28 31 2c 22 49  |<>&DDE .err(1,"I|
00001a10  20 63 61 6e 20 6f 6e 6c  79 20 61 63 63 65 70 74  | can only accept|
00001a20  20 74 65 78 74 2c 20 31  73 74 57 6f 72 64 2b 20  | text, 1stWord+ |
00001a30  6f 72 20 50 69 70 65 44  72 65 61 6d 20 66 69 6c  |or PipeDream fil|
00001a40  65 73 2e 22 29 3a e1 0d  07 76 15 66 69 6c 74 79  |es."):...v.filty|
00001a50  70 65 25 3d 77 69 6d 70  25 21 34 30 0d 07 80 11  |pe%=wimp%!40....|
00001a60  c8 8e 20 66 69 6c 74 79  70 65 25 20 ca 0d 07 8a  |.. filtype% ....|
00001a70  29 c9 20 26 46 46 46 20  3a 20 74 79 70 65 24 3d  |). &FFF : type$=|
00001a80  22 66 69 6c 65 5f 66 66  66 22 3a 73 70 63 63 68  |"file_fff":spcch|
00001a90  61 72 25 3d 33 32 0d 07  94 29 c9 20 26 41 46 38  |ar%=32...). &AF8|
00001aa0  20 3a 20 74 79 70 65 24  3d 22 66 69 6c 65 5f 61  | : type$="file_a|
00001ab0  66 38 22 3a 73 70 63 63  68 61 72 25 3d 33 30 0d  |f8":spcchar%=30.|
00001ac0  07 9e 29 c9 20 26 44 44  45 20 3a 20 74 79 70 65  |..). &DDE : type|
00001ad0  24 3d 22 66 69 6c 65 5f  64 64 65 22 3a 73 70 63  |$="file_dde":spc|
00001ae0  63 68 61 72 25 3d 33 32  0d 07 a8 05 cb 0d 07 b2  |char%=32........|
00001af0  22 f2 73 65 74 69 63 6f  6e 28 73 61 76 65 68 61  |".seticon(saveha|
00001b00  6e 25 2c 31 2c 66 69 6c  65 6e 61 6d 65 24 29 0d  |n%,1,filename$).|
00001b10  07 bc 26 f2 73 65 74 69  63 6f 6e 28 49 6e 66 6f  |..&.seticon(Info|
00001b20  46 69 6c 65 68 61 6e 25  2c 32 2c 66 69 6c 65 6e  |Filehan%,2,filen|
00001b30  61 6d 65 24 29 0d 07 c6  3e e7 20 66 69 6c 74 79  |ame$)...>. filty|
00001b40  70 65 25 3d 26 41 46 38  20 f2 73 65 74 69 63 6f  |pe%=&AF8 .setico|
00001b50  6e 28 49 6e 66 6f 46 69  6c 65 68 61 6e 25 2c 34  |n(InfoFilehan%,4|
00001b60  2c 22 26 41 46 38 20 28  31 73 74 57 6f 72 64 2b  |,"&AF8 (1stWord+|
00001b70  29 22 29 0d 07 d0 3a e7  20 66 69 6c 74 79 70 65  |)")...:. filtype|
00001b80  25 3d 26 46 46 46 20 f2  73 65 74 69 63 6f 6e 28  |%=&FFF .seticon(|
00001b90  49 6e 66 6f 46 69 6c 65  68 61 6e 25 2c 34 2c 22  |InfoFilehan%,4,"|
00001ba0  26 46 46 46 20 28 54 65  78 74 29 22 29 0d 07 da  |&FFF (Text)")...|
00001bb0  3f e7 20 66 69 6c 74 79  70 65 25 3d 26 44 44 45  |?. filtype%=&DDE|
00001bc0  20 f2 73 65 74 69 63 6f  6e 28 49 6e 66 6f 46 69  | .seticon(InfoFi|
00001bd0  6c 65 68 61 6e 25 2c 34  2c 22 26 44 44 45 20 28  |lehan%,4,"&DDE (|
00001be0  50 69 70 65 44 72 65 61  6d 29 22 29 0d 07 e4 1f  |PipeDream)")....|
00001bf0  77 69 6d 70 25 21 31 32  3d 77 69 6d 70 25 21 38  |wimp%!12=wimp%!8|
00001c00  3a 77 69 6d 70 25 21 31  36 3d 34 0d 07 ee 2a c8  |:wimp%!16=4...*.|
00001c10  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
00001c20  61 67 65 22 2c 31 37 2c  77 69 6d 70 25 2c 77 69  |age",17,wimp%,wi|
00001c30  6d 70 25 21 34 0d 07 f8  3e e7 20 72 65 73 70 6f  |mp%!4...>. respo|
00001c40  6e 73 65 25 3d 31 20 77  69 6d 70 25 21 30 3d 73  |nse%=1 wimp%!0=s|
00001c50  61 76 65 68 61 6e 25 3a  c8 99 22 57 69 6d 70 5f  |avehan%:.."Wimp_|
00001c60  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 77 69  |CloseWindow",,wi|
00001c70  6d 70 25 0d 08 02 2f 77  69 6d 70 25 21 30 3d 6f  |mp%.../wimp%!0=o|
00001c80  70 74 68 61 6e 25 3a c8  99 22 57 69 6d 70 5f 43  |pthan%:.."Wimp_C|
00001c90  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 77 69 6d  |loseWindow",,wim|
00001ca0  70 25 0d 08 0c 46 77 69  6d 70 25 21 30 3d 50 72  |p%...Fwimp%!0=Pr|
00001cb0  65 76 69 65 77 68 61 6e  25 3a c8 99 22 57 69 6d  |eviewhan%:.."Wim|
00001cc0  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
00001cd0  77 69 6d 70 25 3a 70 72  65 76 77 25 3d 30 3a 68  |wimp%:prevw%=0:h|
00001ce0  65 69 67 68 74 25 3d 31  0d 08 16 34 77 69 6d 70  |eight%=1...4wimp|
00001cf0  25 21 30 3d 50 72 6f 67  72 65 73 73 68 61 6e 25  |%!0=Progresshan%|
00001d00  3a c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |:.."Wimp_CloseWi|
00001d10  6e 64 6f 77 22 2c 2c 77  69 6d 70 25 0d 08 20 24  |ndow",,wimp%.. $|
00001d20  61 63 74 69 76 65 25 3d  34 3a f2 73 65 74 69 63  |active%=4:.setic|
00001d30  6f 6e 62 61 72 28 22 70  72 6f 63 65 73 73 22 29  |onbar("process")|
00001d40  0d 08 2a 34 c8 99 20 22  57 69 6d 70 5f 47 65 74  |..*4.. "Wimp_Get|
00001d50  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 77 69  |PointerInfo",,wi|
00001d60  6d 70 25 3a 78 3d 77 69  6d 70 25 21 30 3a 6f 6c  |mp%:x=wimp%!0:ol|
00001d70  64 78 3d 78 0d 08 34 05  e1 0d 08 3e 04 0d 08 48  |dx=x..4....>...H|
00001d80  0f dd f2 72 65 70 72 6f  63 65 73 73 0d 08 52 1f  |...reprocess..R.|
00001d90  66 69 6c 65 6e 61 6d 65  24 3d 6f 6c 64 66 69 6c  |filename$=oldfil|
00001da0  65 6e 61 6d 65 24 2b bd  28 30 29 0d 08 5c 22 f2  |ename$+.(0)..\".|
00001db0  73 65 74 69 63 6f 6e 28  73 61 76 65 68 61 6e 25  |seticon(savehan%|
00001dc0  2c 31 2c 66 69 6c 65 6e  61 6d 65 24 29 0d 08 66  |,1,filename$)..f|
00001dd0  30 77 69 6d 70 25 21 30  3d 73 61 76 65 68 61 6e  |0wimp%!0=savehan|
00001de0  25 3a c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |%:.."Wimp_CloseW|
00001df0  69 6e 64 6f 77 22 2c 2c  77 69 6d 70 25 0d 08 70  |indow",,wimp%..p|
00001e00  2f 77 69 6d 70 25 21 30  3d 6f 70 74 68 61 6e 25  |/wimp%!0=opthan%|
00001e10  3a c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |:.."Wimp_CloseWi|
00001e20  6e 64 6f 77 22 2c 2c 77  69 6d 70 25 0d 08 7a 46  |ndow",,wimp%..zF|
00001e30  77 69 6d 70 25 21 30 3d  50 72 65 76 69 65 77 68  |wimp%!0=Previewh|
00001e40  61 6e 25 3a c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |an%:.."Wimp_Clos|
00001e50  65 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 25 3a  |eWindow",,wimp%:|
00001e60  70 72 65 76 77 25 3d 30  3a 68 65 69 67 68 74 25  |prevw%=0:height%|
00001e70  3d 31 0d 08 84 24 61 63  74 69 76 65 25 3d 39 3a  |=1...$active%=9:|
00001e80  f2 73 65 74 69 63 6f 6e  62 61 72 28 22 70 72 6f  |.seticonbar("pro|
00001e90  63 65 73 73 22 29 0d 08  8e 47 e7 20 63 61 73 65  |cess")...G. case|
00001ea0  25 3d 30 20 80 20 6f 6c  64 63 61 73 65 25 3d 31  |%=0 . oldcase%=1|
00001eb0  20 c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 31 32  | .. "OS_File",12|
00001ec0  2c 66 69 6c 65 6e 61 6d  65 24 2c 66 69 6c 65 25  |,filename$,file%|
00001ed0  2c 30 3a 6f 6c 64 63 61  73 65 25 3d 30 0d 08 98  |,0:oldcase%=0...|
00001ee0  25 e7 20 63 61 73 65 25  3d 31 20 80 20 6f 6c 64  |%. case%=1 . old|
00001ef0  63 61 73 65 25 3d 31 20  6f 6c 64 63 61 73 65 25  |case%=1 oldcase%|
00001f00  3d 30 0d 08 a2 25 e7 20  63 61 73 65 25 3d 31 20  |=0...%. case%=1 |
00001f10  80 20 6f 6c 64 63 61 73  65 25 3d 30 20 6f 6c 64  |. oldcase%=0 old|
00001f20  63 61 73 65 25 3d 31 0d  08 ac 20 f2 73 65 74 69  |case%=1... .seti|
00001f30  63 6f 6e 28 49 6e 66 6f  46 69 6c 65 68 61 6e 25  |con(InfoFilehan%|
00001f40  2c 38 2c 22 30 22 29 0d  08 b6 29 f2 73 65 74 69  |,8,"0")...).seti|
00001f50  63 6f 6e 28 49 6e 66 6f  46 69 6c 65 68 61 6e 25  |con(InfoFilehan%|
00001f60  2c 39 2c 22 46 69 6c 65  20 62 65 69 6e 67 22 29  |,9,"File being")|
00001f70  0d 08 c0 2b f2 73 65 74  69 63 6f 6e 28 49 6e 66  |...+.seticon(Inf|
00001f80  6f 46 69 6c 65 68 61 6e  25 2c 31 30 2c 22 72 65  |oFilehan%,10,"re|
00001f90  70 72 6f 63 65 73 73 65  64 22 29 0d 08 ca 1f f2  |processed").....|
00001fa0  73 65 74 69 63 6f 6e 28  50 72 6f 67 72 65 73 73  |seticon(Progress|
00001fb0  68 61 6e 25 2c 30 2c 22  22 29 0d 08 d4 1f f2 73  |han%,0,"").....s|
00001fc0  65 74 69 63 6f 6e 28 50  72 6f 67 72 65 73 73 68  |eticon(Progressh|
00001fd0  61 6e 25 2c 32 2c 22 22  29 0d 08 de 18 6c 65 6e  |an%,2,"")....len|
00001fe0  67 74 68 25 3d 72 65 61  6c 5f 6c 65 6e 67 74 68  |gth%=real_length|
00001ff0  25 0d 08 e8 05 e1 0d 08  f2 04 0d 08 fc 10 dd f2  |%...............|
00002000  72 65 70 72 6f 63 65 73  73 32 0d 09 06 28 e7 20  |reprocess2...(. |
00002010  6d 75 6c 74 69 74 61 73  6b 25 3d 31 20 61 63 74  |multitask%=1 act|
00002020  69 76 65 25 3d 32 20 8b  20 61 63 74 69 76 65 25  |ive%=2 . active%|
00002030  3d 33 0d 09 10 8d e7 20  61 63 74 69 76 65 25 3d  |=3..... active%=|
00002040  32 20 f2 70 72 6f 63 65  73 73 79 65 73 3a 77 69  |2 .processyes:wi|
00002050  6d 70 25 21 30 3d 50 72  6f 67 72 65 73 73 68 61  |mp%!0=Progressha|
00002060  6e 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |n%:.."Wimp_GetWi|
00002070  6e 64 6f 77 53 74 61 74  65 22 2c 2c 77 69 6d 70  |ndowState",,wimp|
00002080  25 3a 77 69 6d 70 25 21  32 38 3d 2d 31 3a c8 99  |%:wimp%!28=-1:..|
00002090  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
000020a0  22 2c 2c 77 69 6d 70 25  20 8b 20 f2 70 72 6f 63  |",,wimp% . .proc|
000020b0  65 73 73 6e 6f 3a 61 63  74 69 76 65 25 3d 36 0d  |essno:active%=6.|
000020c0  09 1a 12 6f 6c 64 63 61  73 65 25 3d 63 61 73 65  |...oldcase%=case|
000020d0  25 0d 09 24 0a 78 3d 6f  6c 64 78 0d 09 2e 05 e1  |%..$.x=oldx.....|
000020e0  0d 09 38 04 0d 09 42 0b  dd f2 6c 6f 61 64 32 0d  |..8...B...load2.|
000020f0  09 4c 28 e7 20 6d 75 6c  74 69 74 61 73 6b 25 3d  |.L(. multitask%=|
00002100  31 20 61 63 74 69 76 65  25 3d 32 20 8b 20 61 63  |1 active%=2 . ac|
00002110  74 69 76 65 25 3d 33 0d  09 56 28 c8 99 20 22 4f  |tive%=3..V(.. "O|
00002120  53 5f 46 69 6c 65 22 2c  31 33 2c 66 69 6c 65 6e  |S_File",13,filen|
00002130  61 6d 65 24 20 b8 20 2c  2c 2c 2c 6c 65 6e 25 0d  |ame$ . ,,,,len%.|
00002140  09 60 46 e7 20 6c 65 6e  25 3e 72 65 61 6c 5f 6c  |.`F. len%>real_l|
00002150  65 6e 67 74 68 25 20 84  20 6c 65 6e 25 3e 6c 65  |ength% . len%>le|
00002160  6e 67 74 68 25 20 de 20  66 69 6c 65 25 20 6c 65  |ngth% . file% le|
00002170  6e 25 2c 20 6e 65 77 66  69 6c 65 25 20 6c 65 6e  |n%, newfile% len|
00002180  25 2b 38 30 30 0d 09 6a  10 6c 65 6e 67 74 68 25  |%+800..j.length%|
00002190  3d 6c 65 6e 25 0d 09 74  25 c8 99 20 22 4f 53 5f  |=len%..t%.. "OS_|
000021a0  46 69 6c 65 22 2c 31 32  2c 66 69 6c 65 6e 61 6d  |File",12,filenam|
000021b0  65 24 2c 66 69 6c 65 25  2c 30 0d 09 7e 24 f2 73  |e$,file%,0..~$.s|
000021c0  65 74 69 63 6f 6e 73 70  72 69 74 65 28 73 61 76  |eticonsprite(sav|
000021d0  65 68 61 6e 25 2c 30 2c  74 79 70 65 24 29 0d 09  |ehan%,0,type$)..|
000021e0  88 28 f2 73 65 74 69 63  6f 6e 73 70 72 69 74 65  |.(.seticonsprite|
000021f0  28 49 6e 66 6f 46 69 6c  65 68 61 6e 25 2c 30 2c  |(InfoFilehan%,0,|
00002200  74 79 70 65 24 29 0d 09  92 27 f2 73 65 74 69 63  |type$)...'.setic|
00002210  6f 6e 28 49 6e 66 6f 46  69 6c 65 68 61 6e 25 2c  |on(InfoFilehan%,|
00002220  36 2c c3 28 6c 65 6e 67  74 68 25 29 29 0d 09 9c  |6,.(length%))...|
00002230  20 f2 73 65 74 69 63 6f  6e 28 49 6e 66 6f 46 69  | .seticon(InfoFi|
00002240  6c 65 68 61 6e 25 2c 38  2c 22 30 22 29 0d 09 a6  |lehan%,8,"0")...|
00002250  29 f2 73 65 74 69 63 6f  6e 28 49 6e 66 6f 46 69  |).seticon(InfoFi|
00002260  6c 65 68 61 6e 25 2c 39  2c 22 46 69 6c 65 20 62  |lehan%,9,"File b|
00002270  65 69 6e 67 22 29 0d 09  b0 29 f2 73 65 74 69 63  |eing")...).setic|
00002280  6f 6e 28 49 6e 66 6f 46  69 6c 65 68 61 6e 25 2c  |on(InfoFilehan%,|
00002290  31 30 2c 22 70 72 6f 63  65 73 73 65 64 22 29 0d  |10,"processed").|
000022a0  09 ba 1f f2 73 65 74 69  63 6f 6e 28 50 72 6f 67  |....seticon(Prog|
000022b0  72 65 73 73 68 61 6e 25  2c 30 2c 22 22 29 0d 09  |resshan%,0,"")..|
000022c0  c4 1f f2 73 65 74 69 63  6f 6e 28 50 72 6f 67 72  |...seticon(Progr|
000022d0  65 73 73 68 61 6e 25 2c  32 2c 22 22 29 0d 09 ce  |esshan%,2,"")...|
000022e0  12 6f 6c 64 63 61 73 65  25 3d 63 61 73 65 25 0d  |.oldcase%=case%.|
000022f0  09 d8 8d e7 20 61 63 74  69 76 65 25 3d 32 20 f2  |.... active%=2 .|
00002300  70 72 6f 63 65 73 73 79  65 73 3a 77 69 6d 70 25  |processyes:wimp%|
00002310  21 30 3d 50 72 6f 67 72  65 73 73 68 61 6e 25 3a  |!0=Progresshan%:|
00002320  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00002330  77 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 3a 77  |wState",,wimp%:w|
00002340  69 6d 70 25 21 32 38 3d  2d 31 3a c8 99 22 57 69  |imp%!28=-1:.."Wi|
00002350  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00002360  77 69 6d 70 25 20 8b 20  f2 70 72 6f 63 65 73 73  |wimp% . .process|
00002370  6e 6f 3a 61 63 74 69 76  65 25 3d 36 0d 09 e2 05  |no:active%=6....|
00002380  e1 0d 09 ec 04 0d 09 f6  0b dd f2 6c 6f 61 64 33  |...........load3|
00002390  0d 0a 00 43 e7 20 6d 75  6c 74 69 74 61 73 6b 25  |...C. multitask%|
000023a0  3d 31 20 77 69 6d 70 25  21 30 3d 50 72 6f 67 72  |=1 wimp%!0=Progr|
000023b0  65 73 73 68 61 6e 25 3a  c8 99 22 57 69 6d 70 5f  |esshan%:.."Wimp_|
000023c0  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 77 69  |CloseWindow",,wi|
000023d0  6d 70 25 0d 0a 0a 27 f2  73 65 74 69 63 6f 6e 28  |mp%...'.seticon(|
000023e0  49 6e 66 6f 46 69 6c 65  68 61 6e 25 2c 38 2c c3  |InfoFilehan%,8,.|
000023f0  28 6c 65 6e 67 74 68 25  29 29 0d 0a 14 5b e7 20  |(length%))...[. |
00002400  63 61 73 65 25 3d 30 20  f2 73 65 74 69 63 6f 6e  |case%=0 .seticon|
00002410  28 49 6e 66 6f 46 69 6c  65 68 61 6e 25 2c 39 2c  |(InfoFilehan%,9,|
00002420  22 43 61 73 65 73 20 77  65 72 65 20 6e 6f 74 22  |"Cases were not"|
00002430  29 3a f2 73 65 74 69 63  6f 6e 28 49 6e 66 6f 46  |):.seticon(InfoF|
00002440  69 6c 65 68 61 6e 25 2c  31 30 2c 22 63 68 65 63  |ilehan%,10,"chec|
00002450  6b 65 64 22 29 0d 0a 1e  7d e7 20 63 61 73 65 25  |ked")...}. case%|
00002460  3d 31 20 f2 73 65 74 69  63 6f 6e 28 49 6e 66 6f  |=1 .seticon(Info|
00002470  46 69 6c 65 68 61 6e 25  2c 39 2c 22 43 61 73 65  |Filehan%,9,"Case|
00002480  73 20 63 68 65 63 6b 65  64 20 77 69 74 68 22 29  |s checked with")|
00002490  3a f2 73 65 74 69 63 6f  6e 28 49 6e 66 6f 46 69  |:.seticon(InfoFi|
000024a0  6c 65 68 61 6e 25 2c 31  30 2c 22 64 69 63 74 69  |lehan%,10,"dicti|
000024b0  6f 6e 61 72 79 20 6f 66  20 22 2b c3 28 6e 6f 5f  |onary of "+.(no_|
000024c0  63 68 65 63 6b 73 25 29  2b 22 20 77 6f 72 64 73  |checks%)+" words|
000024d0  22 29 0d 0a 28 1d f2 73  65 74 69 63 6f 6e 62 61  |")..(..seticonba|
000024e0  72 28 22 21 54 65 78 74  63 68 65 63 6b 22 29 0d  |r("!Textcheck").|
000024f0  0a 32 34 77 69 6d 70 25  21 30 3d 73 61 76 65 68  |.24wimp%!0=saveh|
00002500  61 6e 25 3a c8 99 20 22  57 69 6d 70 5f 47 65 74  |an%:.. "Wimp_Get|
00002510  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 77 69  |WindowState",,wi|
00002520  6d 70 25 0d 0a 3c 43 77  69 6d 70 25 21 34 3d 78  |mp%..<Cwimp%!4=x|
00002530  2d 31 30 30 3a 77 69 6d  70 25 21 38 3d 30 3a 77  |-100:wimp%!8=0:w|
00002540  69 6d 70 25 21 32 38 3d  2d 31 3a c8 99 20 22 57  |imp%!28=-1:.. "W|
00002550  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00002560  2c 77 69 6d 70 25 0d 0a  46 0d 61 63 74 69 76 65  |,wimp%..F.active|
00002570  25 3d 31 0d 0a 50 34 c8  99 20 22 57 69 6d 70 5f  |%=1..P4.. "Wimp_|
00002580  53 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |SetCaretPosition|
00002590  22 2c 73 61 76 65 68 61  6e 25 2c 31 2c 32 36 30  |",savehan%,1,260|
000025a0  2c 2c 2d 31 2c 2d 31 0d  0a 5a 05 e1 0d 0a 64 04  |,,-1,-1..Z....d.|
000025b0  0d 0a 6e 1d dd f2 73 65  74 69 63 6f 6e 62 61 72  |..n...seticonbar|
000025c0  28 73 70 72 69 74 65 6e  61 6d 65 24 29 0d 0a 78  |(spritename$)..x|
000025d0  1d 77 69 6d 70 25 21 30  3d 2d 31 3a 77 69 6d 70  |.wimp%!0=-1:wimp|
000025e0  25 21 34 3d 69 63 68 61  6e 25 0d 0a 82 21 c8 99  |%!4=ichan%...!..|
000025f0  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00002600  61 74 65 22 2c 2c 77 69  6d 70 25 0d 0a 8c 1f c8  |ate",,wimp%.....|
00002610  99 20 22 57 69 6d 70 5f  44 65 6c 65 74 65 49 63  |. "Wimp_DeleteIc|
00002620  6f 6e 22 2c 2c 77 69 6d  70 25 0d 0a 96 36 77 69  |on",,wimp%...6wi|
00002630  6d 70 25 21 34 3d 77 69  6d 70 25 21 38 3a 77 69  |mp%!4=wimp%!8:wi|
00002640  6d 70 25 21 38 3d 77 69  6d 70 25 21 31 32 3a 77  |mp%!8=wimp%!12:w|
00002650  69 6d 70 25 21 31 32 3d  77 69 6d 70 25 21 31 36  |imp%!12=wimp%!16|
00002660  0d 0a a0 3f 77 69 6d 70  25 21 31 36 3d 77 69 6d  |...?wimp%!16=wim|
00002670  70 25 21 32 30 3a 77 69  6d 70 25 21 32 30 3d 77  |p%!20:wimp%!20=w|
00002680  69 6d 70 25 21 32 34 3a  24 28 77 69 6d 70 25 2b  |imp%!24:$(wimp%+|
00002690  32 34 29 3d 73 70 72 69  74 65 6e 61 6d 65 24 0d  |24)=spritename$.|
000026a0  0a aa 28 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..(.. "Wimp_Crea|
000026b0  74 65 49 63 6f 6e 22 2c  2c 77 69 6d 70 25 20 b8  |teIcon",,wimp% .|
000026c0  20 69 63 68 61 6e 25 0d  0a b4 05 e1 0d 0a be 04  | ichan%.........|
000026d0  0d 0a c8 30 dd f2 73 65  74 69 63 6f 6e 73 70 72  |...0..seticonspr|
000026e0  69 74 65 28 77 69 6d 70  25 21 30 2c 77 69 6d 70  |ite(wimp%!0,wimp|
000026f0  25 21 34 2c 73 70 72 69  74 65 74 79 70 65 24 29  |%!4,spritetype$)|
00002700  0d 0a d2 21 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...!.. "Wimp_Get|
00002710  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 69 6d 70  |IconState",,wimp|
00002720  25 0d 0a dc 1f c8 99 20  22 57 69 6d 70 5f 44 65  |%...... "Wimp_De|
00002730  6c 65 74 65 49 63 6f 6e  22 2c 2c 77 69 6d 70 25  |leteIcon",,wimp%|
00002740  0d 0a e6 36 77 69 6d 70  25 21 34 3d 77 69 6d 70  |...6wimp%!4=wimp|
00002750  25 21 38 3a 77 69 6d 70  25 21 38 3d 77 69 6d 70  |%!8:wimp%!8=wimp|
00002760  25 21 31 32 3a 77 69 6d  70 25 21 31 32 3d 77 69  |%!12:wimp%!12=wi|
00002770  6d 70 25 21 31 36 0d 0a  f0 3f 77 69 6d 70 25 21  |mp%!16...?wimp%!|
00002780  31 36 3d 77 69 6d 70 25  21 32 30 3a 77 69 6d 70  |16=wimp%!20:wimp|
00002790  25 21 32 30 3d 77 69 6d  70 25 21 32 34 3a 24 28  |%!20=wimp%!24:$(|
000027a0  77 69 6d 70 25 2b 32 34  29 3d 73 70 72 69 74 65  |wimp%+24)=sprite|
000027b0  74 79 70 65 24 0d 0a fa  1f c8 99 20 22 57 69 6d  |type$...... "Wim|
000027c0  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 77  |p_CreateIcon",,w|
000027d0  69 6d 70 25 0d 0b 04 05  e1 0d 0b 0e 04 0d 0b 18  |imp%............|
000027e0  1d dd f2 65 72 72 28 77  69 6d 70 25 21 30 2c 24  |...err(wimp%!0,$|
000027f0  28 77 69 6d 70 25 2b 34  29 29 0d 0b 22 07 45 3d  |(wimp%+4))..".E=|
00002800  30 0d 0b 2c 0a c8 8e 20  9f 20 ca 0d 0b 36 6f c9  |0..,... . ...6o.|
00002810  20 31 31 3a 20 24 28 77  69 6d 70 25 2b 34 29 3d  | 11: $(wimp%+4)=|
00002820  22 46 69 6c 65 20 74 6f  6f 20 6c 61 72 67 65 2f  |"File too large/|
00002830  59 6f 75 20 68 61 76 65  20 75 73 65 64 20 6d 65  |You have used me|
00002840  20 74 6f 6f 20 6d 61 6e  79 20 74 69 6d 65 73 2e  | too many times.|
00002850  20 49 20 77 69 6c 6c 20  68 61 76 65 20 74 6f 20  | I will have to |
00002860  71 75 69 74 2e 20 54 68  65 6e 20 72 65 6c 6f 61  |quit. Then reloa|
00002870  64 20 6d 65 2e 22 3a 45  3d 31 0d 0b 40 0b c9 20  |d me.":E=1..@.. |
00002880  31 39 3a 20 e1 0d 0b 4a  5b c9 20 36 37 37 38 38  |19: ...J[. 67788|
00002890  2c 36 37 37 39 38 3a 20  24 28 77 69 6d 70 25 2b  |,67798: $(wimp%+|
000028a0  34 29 2b 3d 22 20 2d 20  74 72 79 20 63 68 61 6e  |4)+=" - try chan|
000028b0  67 69 6e 67 20 74 68 65  20 66 69 6c 65 6e 61 6d  |ging the filenam|
000028c0  65 20 69 6e 20 74 68 65  20 73 61 76 65 20 62 6f  |e in the save bo|
000028d0  78 2c 20 74 68 65 6e 20  73 61 76 69 6e 67 2e 22  |x, then saving."|
000028e0  0d 0b 54 50 c9 20 36 37  37 37 39 3a 20 24 28 77  |..TP. 67779: $(w|
000028f0  69 6d 70 25 2b 34 29 2b  3d 22 20 2d 20 79 6f 75  |imp%+4)+=" - you|
00002900  20 6e 65 65 64 20 74 6f  20 75 6e 6c 6f 63 6b 20  | need to unlock |
00002910  74 68 65 20 66 69 6c 65  20 62 65 66 6f 72 65 20  |the file before |
00002920  73 61 76 69 6e 67 20 6f  76 65 72 20 69 74 2e 22  |saving over it."|
00002930  0d 0b 5e 5d c9 20 36 37  37 38 32 3a 20 24 28 77  |..^]. 67782: $(w|
00002940  69 6d 70 25 2b 34 29 2b  3d 22 20 2d 20 73 61 76  |imp%+4)+=" - sav|
00002950  65 20 6f 6e 20 74 6f 20  61 6e 6f 74 68 65 72 20  |e on to another |
00002960  64 69 73 63 20 6f 72 20  6d 61 6b 65 20 72 6f 6f  |disc or make roo|
00002970  6d 20 6f 6e 20 74 68 69  73 20 6f 6e 65 20 62 65  |m on this one be|
00002980  66 6f 72 65 20 73 61 76  69 6e 67 2e 22 0d 0b 68  |fore saving."..h|
00002990  4d c9 20 36 37 37 38 35  3a 20 24 28 77 69 6d 70  |M. 67785: $(wimp|
000029a0  25 2b 34 29 2b 3d 22 20  2d 20 74 72 79 20 73 77  |%+4)+=" - try sw|
000029b0  69 74 63 68 69 6e 67 20  74 68 65 20 74 61 62 20  |itching the tab |
000029c0  6f 6e 20 74 68 65 20 64  69 73 63 2c 20 74 68 65  |on the disc, the|
000029d0  6e 20 73 61 76 69 6e 67  2e 22 0d 0b 72 05 cb 0d  |n saving."..r...|
000029e0  0b 7c 2d c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |.|-.. "Wimp_Repo|
000029f0  72 74 45 72 72 6f 72 22  2c 77 69 6d 70 25 2c 31  |rtError",wimp%,1|
00002a00  2c 22 54 65 78 74 43 68  65 63 6b 22 0d 0b 86 18  |,"TextCheck"....|
00002a10  e7 20 45 3d 31 20 c8 99  20 26 34 30 30 44 44 2c  |. E=1 .. &400DD,|
00002a20  68 61 6e 25 0d 0b 90 05  e1 0d 0b 9a 04 0d 0b a4  |han%............|
00002a30  19 dd a4 77 61 72 6e 69  6e 67 28 24 28 77 69 6d  |...warning($(wim|
00002a40  70 25 2b 34 29 29 0d 0b  ae 38 c8 99 20 22 57 69  |p%+4))...8.. "Wi|
00002a50  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
00002a60  77 69 6d 70 25 2c 33 2c  22 54 65 78 74 43 68 65  |wimp%,3,"TextChe|
00002a70  63 6b 22 20 b8 20 2c 72  65 74 75 72 6e 25 0d 0b  |ck" . ,return%..|
00002a80  b8 0c 3d 72 65 74 75 72  6e 25 0d 0b c2 04 0d 0b  |..=return%......|
00002a90  cc 0a dd f2 68 65 6c 70  0d 0b d6 0f 68 65 6c 70  |....help....help|
00002aa0  25 3d 77 69 6d 70 25 0d  0b e0 14 68 65 6c 70 25  |%=wimp%....help%|
00002ab0  21 31 32 3d 77 69 6d 70  25 21 38 0d 0b ea 11 68  |!12=wimp%!8....h|
00002ac0  65 6c 70 25 21 31 36 3d  26 35 30 33 0d 0b f4 11  |elp%!16=&503....|
00002ad0  c8 8e 20 68 65 6c 70 25  21 33 32 20 ca 0d 0b fe  |.. help%!32 ....|
00002ae0  74 c9 20 2d 32 3a 74 24  3d 22 54 68 69 73 20 69  |t. -2:t$="This i|
00002af0  73 20 74 68 65 20 54 65  78 74 43 68 65 63 6b 65  |s the TextChecke|
00002b00  72 20 61 70 70 6c 69 63  61 74 69 6f 6e 20 77 72  |r application wr|
00002b10  69 74 74 65 6e 20 62 79  20 43 68 72 69 73 20 41  |itten by Chris A|
00002b20  6c 6c 65 6e 2e 7c 4d 43  6c 69 63 6b 20 6f 6e 20  |llen.|MClick on |
00002b30  69 74 20 74 6f 20 62 72  69 6e 67 20 75 70 20 74  |it to bring up t|
00002b40  68 65 20 22 3a c8 8e 20  61 63 74 69 76 65 25 20  |he ":.. active% |
00002b50  ca 0d 0c 08 7b 20 20 c9  20 30 3a 74 24 2b 3d 22  |....{  . 0:t$+="|
00002b60  4f 70 74 69 6f 6e 73 20  77 69 6e 64 6f 77 20 6f  |Options window o|
00002b70  72 20 64 72 61 67 20 61  20 66 69 6c 65 20 74 6f  |r drag a file to|
00002b80  20 69 74 20 74 6f 20 73  74 61 72 74 20 74 68 65  | it to start the|
00002b90  20 70 72 6f 63 65 73 73  69 6e 67 2e 7c 4d 49 74  | processing.|MIt|
00002ba0  20 73 75 70 70 6f 72 74  73 20 54 65 78 74 2c 20  | supports Text, |
00002bb0  31 73 74 57 6f 72 64 2b  20 26 20 50 69 70 65 44  |1stWord+ & PipeD|
00002bc0  72 65 61 6d 20 66 69 6c  65 73 2e 22 0d 0c 12 82  |ream files."....|
00002bd0  20 20 c9 20 31 3a 74 24  2b 3d 22 50 72 65 76 69  |  . 1:t$+="Previ|
00002be0  65 77 20 54 65 78 74 20  77 69 6e 64 6f 77 20 6f  |ew Text window o|
00002bf0  72 20 64 72 61 67 20 61  20 66 69 6c 65 20 74 6f  |r drag a file to|
00002c00  20 69 74 20 74 6f 20 72  65 73 74 61 72 74 20 74  | it to restart t|
00002c10  68 65 20 70 72 6f 63 65  73 73 69 6e 67 2e 7c 4d  |he processing.|M|
00002c20  49 74 20 73 75 70 70 6f  72 74 73 20 54 65 78 74  |It supports Text|
00002c30  2c 20 31 73 74 57 6f 72  64 2b 20 26 20 50 69 70  |, 1stWord+ & Pip|
00002c40  65 44 72 65 61 6d 20 66  69 6c 65 73 2e 22 0d 0c  |eDream files."..|
00002c50  1c 7f 20 20 c9 20 32 2c  35 3a 74 24 2b 3d 22 50  |..  . 2,5:t$+="P|
00002c60  72 6f 63 65 73 73 20 77  69 6e 64 6f 77 20 6f 72  |rocess window or|
00002c70  20 64 72 61 67 20 61 20  66 69 6c 65 20 74 6f 20  | drag a file to |
00002c80  69 74 20 74 6f 20 72 65  73 74 61 72 74 20 74 68  |it to restart th|
00002c90  65 20 70 72 6f 63 65 73  73 69 6e 67 2e 7c 4d 49  |e processing.|MI|
00002ca0  74 20 73 75 70 70 6f 72  74 73 20 54 65 78 74 2c  |t supports Text,|
00002cb0  20 31 73 74 57 6f 72 64  2b 20 26 20 50 69 70 65  | 1stWord+ & Pipe|
00002cc0  44 72 65 61 6d 20 66 69  6c 65 73 2e 22 0d 0c 26  |Dream files."..&|
00002cd0  05 cb 0d 0c 30 3e c9 20  6f 70 74 68 61 6e 25 3a  |....0>. opthan%:|
00002ce0  74 24 3d 22 54 68 69 73  20 69 73 20 74 68 65 20  |t$="This is the |
00002cf0  6f 70 74 69 6f 6e 73 20  77 69 6e 64 6f 77 2e 7c  |options window.||
00002d00  4d 22 3a c8 8e 20 68 65  6c 70 25 21 33 36 20 ca  |M":.. help%!36 .|
00002d10  0d 0c 3a d6 20 20 c9 20  34 30 3a 74 24 2b 3d 22  |..:.  . 40:t$+="|
00002d20  43 6c 69 63 6b 20 6f 6e  20 74 68 69 73 20 69 63  |Click on this ic|
00002d30  6f 6e 20 74 6f 20 74 65  6c 6c 20 74 68 65 20 70  |on to tell the p|
00002d40  72 6f 67 72 61 6d 20 74  6f 20 75 73 65 20 74 68  |rogram to use th|
00002d50  65 20 61 62 6f 76 65 20  76 61 6c 75 65 73 22 3a  |e above values":|
00002d60  e7 20 61 63 74 69 76 65  25 3d 31 20 74 24 2b 3d  |. active%=1 t$+=|
00002d70  22 2c 20 62 75 74 20 74  68 65 73 65 20 77 69 6c  |", but these wil|
00002d80  6c 20 6f 6e 6c 79 20 61  66 66 65 63 74 20 74 68  |l only affect th|
00002d90  65 20 6e 65 78 74 20 66  69 6c 65 20 74 6f 20 62  |e next file to b|
00002da0  65 20 70 72 6f 63 65 73  73 65 64 2c 20 6e 6f 74  |e processed, not|
00002db0  20 74 68 65 20 63 75 72  72 65 6e 74 20 6f 6e 65  | the current one|
00002dc0  2c 20 75 6e 6c 65 73 73  20 69 74 20 69 73 20 72  |, unless it is r|
00002dd0  65 70 72 6f 63 65 73 73  65 64 2e 22 20 8b 20 74  |eprocessed." . t|
00002de0  24 2b 3d 22 2e 22 0d 0c  44 5a 20 20 c9 20 33 39  |$+="."..DZ  . 39|
00002df0  3a 74 24 2b 3d 22 43 6c  69 63 6b 20 6f 6e 20 74  |:t$+="Click on t|
00002e00  68 69 73 20 69 63 6f 6e  20 74 6f 20 73 61 76 65  |his icon to save|
00002e10  20 74 68 65 20 6f 70 74  69 6f 6e 61 6c 20 76 61  | the optional va|
00002e20  6c 75 65 73 2c 20 73 6f  20 6d 61 6b 69 6e 67 20  |lues, so making |
00002e30  74 68 65 6d 20 70 65 72  6d 61 6e 65 6e 74 2e 22  |them permanent."|
00002e40  0d 0c 4e 3d 20 20 c9 20  33 32 3a 74 24 2b 3d 22  |..N=  . 32:t$+="|
00002e50  43 6c 69 63 6b 20 6f 6e  20 74 68 69 73 20 69 63  |Click on this ic|
00002e60  6f 6e 20 74 6f 20 6c 6f  61 64 20 74 68 65 20 73  |on to load the s|
00002e70  61 76 65 64 20 76 61 6c  75 65 73 2e 22 0d 0c 58  |aved values."..X|
00002e80  45 20 20 c9 20 32 33 3a  74 24 2b 3d 22 43 6c 69  |E  . 23:t$+="Cli|
00002e90  63 6b 20 6f 6e 20 74 68  69 73 20 69 63 6f 6e 20  |ck on this icon |
00002ea0  74 6f 20 73 65 74 20 74  68 65 20 76 61 6c 75 65  |to set the value|
00002eb0  73 20 74 6f 20 74 68 65  20 64 65 66 61 75 6c 74  |s to the default|
00002ec0  2e 22 0d 0c 62 56 20 20  c9 20 34 3a 74 24 2b 3d  |."..bV  . 4:t$+=|
00002ed0  22 43 6c 69 63 6b 20 6f  6e 20 74 68 69 73 20 69  |"Click on this i|
00002ee0  63 6f 6e 20 74 6f 20 69  6e 63 72 65 61 73 65 20  |con to increase |
00002ef0  74 68 65 20 6e 75 6d 62  65 72 20 6f 66 20 73 70  |the number of sp|
00002f00  61 63 65 73 20 61 66 74  65 72 20 61 20 66 75 6c  |aces after a ful|
00002f10  6c 20 73 74 6f 70 2e 22  0d 0c 6c 56 20 20 c9 20  |l stop."..lV  . |
00002f20  35 3a 74 24 2b 3d 22 43  6c 69 63 6b 20 6f 6e 20  |5:t$+="Click on |
00002f30  74 68 69 73 20 69 63 6f  6e 20 74 6f 20 64 65 63  |this icon to dec|
00002f40  72 65 61 73 65 20 74 68  65 20 6e 75 6d 62 65 72  |rease the number|
00002f50  20 6f 66 20 73 70 61 63  65 73 20 61 66 74 65 72  | of spaces after|
00002f60  20 61 20 66 75 6c 6c 20  73 74 6f 70 2e 22 0d 0c  | a full stop."..|
00002f70  76 52 20 20 c9 20 39 3a  74 24 2b 3d 22 43 6c 69  |vR  . 9:t$+="Cli|
00002f80  63 6b 20 6f 6e 20 74 68  69 73 20 69 63 6f 6e 20  |ck on this icon |
00002f90  74 6f 20 69 6e 63 72 65  61 73 65 20 74 68 65 20  |to increase the |
00002fa0  6e 75 6d 62 65 72 20 6f  66 20 73 70 61 63 65 73  |number of spaces|
00002fb0  20 62 65 74 77 65 65 6e  20 77 6f 72 64 73 2e 22  | between words."|
00002fc0  0d 0c 80 52 20 20 c9 20  38 3a 74 24 2b 3d 22 43  |...R  . 8:t$+="C|
00002fd0  6c 69 63 6b 20 6f 6e 20  74 68 69 73 20 69 63 6f  |lick on this ico|
00002fe0  6e 20 74 6f 20 64 65 63  72 65 61 73 65 20 74 68  |n to decrease th|
00002ff0  65 20 6e 75 6d 62 65 72  20 6f 66 20 73 70 61 63  |e number of spac|
00003000  65 73 20 62 65 74 77 65  65 6e 20 77 6f 72 64 73  |es between words|
00003010  2e 22 0d 0c 8a 64 20 20  c9 20 32 37 3a 74 24 2b  |."...d  . 27:t$+|
00003020  3d 22 43 6c 69 63 6b 20  6f 6e 20 74 68 69 73 20  |="Click on this |
00003030  69 63 6f 6e 20 74 6f 20  64 65 63 72 65 61 73 65  |icon to decrease|
00003040  20 74 68 65 20 6e 75 6d  62 65 72 20 6f 66 20 73  | the number of s|
00003050  70 61 63 65 73 20 75 73  65 64 20 74 6f 20 69 6e  |paces used to in|
00003060  64 65 6e 74 20 61 20 6e  65 77 20 70 61 72 61 67  |dent a new parag|
00003070  72 61 70 68 2e 22 0d 0c  94 64 20 20 c9 20 32 38  |raph."...d  . 28|
00003080  3a 74 24 2b 3d 22 43 6c  69 63 6b 20 6f 6e 20 74  |:t$+="Click on t|
00003090  68 69 73 20 69 63 6f 6e  20 74 6f 20 69 6e 63 72  |his icon to incr|
000030a0  65 61 73 65 20 74 68 65  20 6e 75 6d 62 65 72 20  |ease the number |
000030b0  6f 66 20 73 70 61 63 65  73 20 75 73 65 64 20 74  |of spaces used t|
000030c0  6f 20 69 6e 64 65 6e 74  20 61 20 6e 65 77 20 70  |o indent a new p|
000030d0  61 72 61 67 72 61 70 68  2e 22 0d 0c 9e 57 20 20  |aragraph."...W  |
000030e0  c9 20 33 30 3a 74 24 2b  3d 22 43 6c 69 63 6b 20  |. 30:t$+="Click |
000030f0  6f 6e 20 74 68 69 73 20  69 63 6f 6e 20 74 6f 20  |on this icon to |
00003100  64 65 63 72 65 61 73 65  20 74 68 65 20 6e 75 6d  |decrease the num|
00003110  62 65 72 20 6f 66 20 6c  69 6e 65 73 20 62 65 74  |ber of lines bet|
00003120  77 65 65 6e 20 70 61 72  61 67 72 61 70 68 73 2e  |ween paragraphs.|
00003130  22 0d 0c a8 57 20 20 c9  20 33 31 3a 74 24 2b 3d  |"...W  . 31:t$+=|
00003140  22 43 6c 69 63 6b 20 6f  6e 20 74 68 69 73 20 69  |"Click on this i|
00003150  63 6f 6e 20 74 6f 20 69  6e 63 72 65 61 73 65 20  |con to increase |
00003160  74 68 65 20 6e 75 6d 62  65 72 20 6f 66 20 6c 69  |the number of li|
00003170  6e 65 73 20 62 65 74 77  65 65 6e 20 70 61 72 61  |nes between para|
00003180  67 72 61 70 68 73 2e 22  0d 0c b2 9b 20 20 c9 20  |graphs."....  . |
00003190  31 36 3a 74 24 2b 3d 22  43 6c 69 63 6b 20 6f 6e  |16:t$+="Click on|
000031a0  20 74 68 69 73 20 69 63  6f 6e 20 74 6f 20 74 6f  | this icon to to|
000031b0  67 67 6c 65 20 62 65 74  77 65 65 6e 20 74 68 65  |ggle between the|
000031c0  20 70 72 6f 67 72 61 6d  20 73 65 61 72 63 68 69  | program searchi|
000031d0  6e 67 20 74 68 72 6f 75  67 68 20 69 74 73 20 64  |ng through its d|
000031e0  69 63 74 69 6f 6e 61 72  79 20 74 6f 20 63 68 61  |ictionary to cha|
000031f0  6e 67 65 20 74 68 65 20  63 61 73 65 73 20 6f 66  |nge the cases of|
00003200  20 73 6f 6d 65 20 6c 65  74 74 65 72 73 20 6f 72  | some letters or|
00003210  20 6e 6f 74 20 28 44 65  66 61 75 6c 74 20 6f 6e  | not (Default on|
00003220  29 2e 22 0d 0c bc 84 20  20 c9 20 36 3a 74 24 2b  |)."....  . 6:t$+|
00003230  3d 22 54 68 69 73 20 73  68 6f 77 73 20 74 68 65  |="This shows the|
00003240  20 6e 75 6d 62 65 72 20  6f 66 20 73 70 61 63 65  | number of space|
00003250  73 20 61 66 74 65 72 20  61 20 66 75 6c 6c 20 73  |s after a full s|
00003260  74 6f 70 20 28 44 65 66  61 75 6c 74 20 32 29 2e  |top (Default 2).|
00003270  20 41 6c 74 65 72 20 74  68 65 20 6e 75 6d 62 65  | Alter the numbe|
00003280  72 20 77 69 74 68 20 74  68 65 20 61 72 72 6f 77  |r with the arrow|
00003290  20 69 63 6f 6e 73 20 6f  72 20 77 72 69 74 65 20  | icons or write |
000032a0  69 6e 20 69 74 2e 22 0d  0c c6 81 20 20 c9 20 31  |in it."....  . 1|
000032b0  30 3a 74 24 2b 3d 22 54  68 69 73 20 73 68 6f 77  |0:t$+="This show|
000032c0  73 20 74 68 65 20 6e 75  6d 62 65 72 20 6f 66 20  |s the number of |
000032d0  73 70 61 63 65 73 20 62  65 74 77 65 65 6e 20 77  |spaces between w|
000032e0  6f 72 64 73 20 28 44 65  66 61 75 6c 74 20 31 29  |ords (Default 1)|
000032f0  2e 20 41 6c 74 65 72 20  74 68 65 20 6e 75 6d 62  |. Alter the numb|
00003300  65 72 20 77 69 74 68 20  74 68 65 20 61 72 72 6f  |er with the arro|
00003310  77 20 69 63 6f 6e 73 20  6f 72 20 77 72 69 74 65  |w icons or write|
00003320  20 69 6e 20 69 74 2e 22  0d 0c d0 92 20 20 c9 20  | in it."....  . |
00003330  32 36 3a 74 24 2b 3d 22  54 68 69 73 20 73 68 6f  |26:t$+="This sho|
00003340  77 73 20 74 68 65 20 6e  75 6d 62 65 72 20 6f 66  |ws the number of|
00003350  20 73 70 61 63 65 73 20  75 73 65 64 20 74 6f 20  | spaces used to |
00003360  69 6e 64 65 6e 74 20 61  20 6e 65 77 20 70 61 72  |indent a new par|
00003370  61 67 72 61 70 68 20 28  44 65 66 61 75 6c 74 20  |agraph (Default |
00003380  32 29 2e 20 41 6c 74 65  72 20 74 68 65 20 6e 75  |2). Alter the nu|
00003390  6d 62 65 72 20 77 69 74  68 20 74 68 65 20 61 72  |mber with the ar|
000033a0  72 6f 77 20 69 63 6f 6e  73 20 6f 72 20 77 72 69  |row icons or wri|
000033b0  74 65 20 69 6e 20 69 74  2e 22 0d 0c da 85 20 20  |te in it."....  |
000033c0  c9 20 32 39 3a 74 24 2b  3d 22 54 68 69 73 20 73  |. 29:t$+="This s|
000033d0  68 6f 77 73 20 74 68 65  20 6e 75 6d 62 65 72 20  |hows the number |
000033e0  6f 66 20 6c 69 6e 65 73  20 62 65 74 77 65 65 6e  |of lines between|
000033f0  20 70 61 72 61 67 72 61  70 68 73 20 28 44 65 66  | paragraphs (Def|
00003400  61 75 6c 74 20 31 29 2e  20 41 6c 74 65 72 20 74  |ault 1). Alter t|
00003410  68 65 20 6e 75 6d 62 65  72 20 77 69 74 68 20 74  |he number with t|
00003420  68 65 20 61 72 72 6f 77  20 69 63 6f 6e 73 20 6f  |he arrow icons o|
00003430  72 20 77 72 69 74 65 20  69 6e 20 69 74 2e 22 0d  |r write in it.".|
00003440  0c e4 2f 20 20 c9 20 30  3a 74 24 2b 3d 22 48 6d  |../  . 0:t$+="Hm|
00003450  6d 6d 2e 20 51 75 69 74  65 20 61 20 6e 69 63 65  |mm. Quite a nice|
00003460  20 69 63 6f 6e 20 72 65  61 6c 6c 79 2e 22 0d 0c  | icon really."..|
00003470  ee 05 cb 0d 0c f8 45 c9  20 69 6e 68 61 6e 25 20  |......E. inhan% |
00003480  3a 20 74 24 3d 22 4a 75  73 74 20 74 68 65 20 69  |: t$="Just the i|
00003490  6e 66 6f 20 62 6f 78 2e  20 4e 6f 74 68 69 6e 67  |nfo box. Nothing|
000034a0  20 73 70 65 63 69 61 6c  2e 22 3a c8 8e 20 68 65  | special.":.. he|
000034b0  6c 70 25 21 33 36 20 ca  0d 0d 02 2d 20 20 c9 20  |lp%!36 ....-  . |
000034c0  39 3a 74 24 3d 22 57 6f  77 21 20 54 68 61 74 27  |9:t$="Wow! That'|
000034d0  73 20 6d 79 20 43 68 72  69 73 74 69 61 6e 20 6e  |s my Christian n|
000034e0  61 6d 65 2e 22 0d 0d 0c  27 20 20 c9 20 31 30 3a  |ame."...'  . 10:|
000034f0  74 24 3d 22 59 65 73 21  20 54 68 61 74 27 73 20  |t$="Yes! That's |
00003500  6d 79 20 73 75 72 6e 61  6d 65 21 22 0d 0d 16 05  |my surname!"....|
00003510  cb 0d 0d 20 2f c9 20 67  72 65 65 74 68 61 6e 25  |... /. greethan%|
00003520  20 3a 20 74 24 3d 22 21  54 65 78 74 43 68 65 63  | : t$="!TextChec|
00003530  6b 20 69 73 20 6c 6f 61  64 69 6e 67 2e 2e 2e 22  |k is loading..."|
00003540  0d 0d 2a 77 c9 20 50 72  65 76 69 65 77 68 61 6e  |..*w. Previewhan|
00003550  25 20 3a 20 74 24 3d 22  54 68 69 73 20 77 69 6e  |% : t$="This win|
00003560  64 6f 77 20 73 68 6f 77  73 20 79 6f 75 20 77 68  |dow shows you wh|
00003570  61 74 20 74 68 65 20 6e  65 77 20 70 72 6f 63 65  |at the new proce|
00003580  73 73 65 64 20 66 69 6c  65 20 6c 6f 6f 6b 73 20  |ssed file looks |
00003590  6c 69 6b 65 20 62 65 66  6f 72 65 20 79 6f 75 20  |like before you |
000035a0  73 61 76 65 20 69 74 2e  22 3a c8 8e 20 66 69 6c  |save it.":.. fil|
000035b0  74 79 70 65 25 20 ca 0d  0d 34 7c 20 20 c9 20 26  |type% ...4|  . &|
000035c0  41 46 38 20 3a 20 74 24  2b 3d 22 7c 4d 44 6f 6e  |AF8 : t$+="|MDon|
000035d0  27 74 20 77 6f 72 72 79  20 69 66 20 74 68 65 72  |'t worry if ther|
000035e0  65 20 61 72 65 20 73 6f  6d 65 20 73 74 72 61 6e  |e are some stran|
000035f0  67 65 20 70 61 72 74 73  2c 20 69 74 20 69 73 20  |ge parts, it is |
00003600  73 6f 6d 65 74 69 6d 65  73 20 68 61 72 64 20 74  |sometimes hard t|
00003610  6f 20 64 69 73 70 6c 61  79 20 31 73 74 57 6f 72  |o display 1stWor|
00003620  64 2b 20 66 69 6c 65 73  20 70 72 6f 70 65 72 6c  |d+ files properl|
00003630  79 21 22 0d 0d 3e 9d 20  20 c9 20 26 44 44 45 20  |y!"..>.  . &DDE |
00003640  3a 20 74 24 2b 3d 22 7c  4d 44 6f 6e 27 74 20 77  |: t$+="|MDon't w|
00003650  6f 72 72 79 20 69 66 20  74 68 65 72 65 20 61 72  |orry if there ar|
00003660  65 20 73 6f 6d 65 20 73  74 72 61 6e 67 65 20 73  |e some strange s|
00003670  65 63 74 69 6f 6e 73 20  6f 72 20 73 6f 6d 65 20  |ections or some |
00003680  73 74 79 6c 65 64 20 6c  69 6e 65 73 20 6d 69 73  |styled lines mis|
00003690  73 69 6e 67 2c 20 69 74  20 69 73 20 73 6f 6d 65  |sing, it is some|
000036a0  74 69 6d 65 73 20 68 61  72 64 20 74 6f 20 64 69  |times hard to di|
000036b0  73 70 6c 61 79 20 50 69  70 65 44 72 65 61 6d 20  |splay PipeDream |
000036c0  66 69 6c 65 73 20 70 72  6f 70 65 72 6c 79 21 22  |files properly!"|
000036d0  0d 0d 48 05 cb 0d 0d 52  69 c9 20 41 64 64 77 6f  |..H....Ri. Addwo|
000036e0  72 64 68 61 6e 25 20 3a  20 74 24 3d 22 54 68 69  |rdhan% : t$="Thi|
000036f0  73 20 69 73 20 74 68 65  20 77 69 6e 64 6f 77 20  |s is the window |
00003700  77 68 65 72 65 20 79 6f  75 20 63 61 6e 20 61 64  |where you can ad|
00003710  64 20 61 20 6e 65 77 20  77 6f 72 64 20 74 6f 20  |d a new word to |
00003720  74 68 65 20 64 69 63 74  69 6f 6e 61 72 79 2e 22  |the dictionary."|
00003730  3a c8 8e 20 68 65 6c 70  25 21 33 36 20 ca 0d 0d  |:.. help%!36 ...|
00003740  5c 2d 20 20 c9 20 31 3a  74 24 2b 3d 22 7c 4d 45  |\-  . 1:t$+="|ME|
00003750  6e 74 65 72 20 74 68 65  20 6e 65 77 20 77 6f 72  |nter the new wor|
00003760  64 20 69 6e 20 68 65 72  65 2e 22 0d 0d 66 45 20  |d in here."..fE |
00003770  20 c9 20 35 3a 74 24 2b  3d 22 7c 4d 43 6c 69 63  | . 5:t$+="|MClic|
00003780  6b 20 6f 6e 20 74 68 69  73 20 69 63 6f 6e 20 74  |k on this icon t|
00003790  6f 20 75 73 65 20 74 68  65 20 77 6f 72 64 20 77  |o use the word w|
000037a0  68 65 6e 20 70 72 6f 63  65 73 73 69 6e 67 2e 22  |hen processing."|
000037b0  0d 0d 70 8b 20 20 c9 20  36 3a 74 24 2b 3d 22 7c  |..p.  . 6:t$+="||
000037c0  4d 43 6c 69 63 6b 20 6f  6e 20 74 68 69 73 20 69  |MClick on this i|
000037d0  63 6f 6e 20 74 6f 20 73  61 76 65 20 74 68 65 20  |con to save the |
000037e0  77 6f 72 64 20 69 6e 74  6f 20 74 68 65 20 64 69  |word into the di|
000037f0  63 74 69 6f 6e 61 72 79  20 6f 6e 20 74 68 65 20  |ctionary on the |
00003800  64 69 73 6b 20 61 6e 64  20 74 6f 20 75 73 65 20  |disk and to use |
00003810  74 68 65 20 77 6f 72 64  20 77 68 65 6e 20 70 72  |the word when pr|
00003820  6f 63 65 73 73 69 6e 67  20 61 20 66 69 6c 65 20  |ocessing a file |
00003830  69 6e 20 66 75 74 75 72  65 2e 22 0d 0d 7a 05 cb  |in future."..z..|
00003840  0d 0d 84 6b c9 20 73 61  76 65 68 61 6e 25 3a 74  |...k. savehan%:t|
00003850  24 3d 22 54 68 65 20 73  61 76 65 20 62 6f 78 2e  |$="The save box.|
00003860  7c 4d 44 72 61 67 20 74  68 65 20 69 63 6f 6e 20  ||MDrag the icon |
00003870  74 6f 20 61 20 64 69 72  65 63 74 6f 72 79 20 76  |to a directory v|
00003880  69 65 77 65 72 20 6f 72  20 74 79 70 65 20 69 6e  |iewer or type in|
00003890  20 61 20 66 69 6c 65 6e  61 6d 65 2e 22 3a c8 8e  | a filename.":..|
000038a0  20 68 65 6c 70 25 21 33  36 20 ca 0d 0d 8e 5a 20  | help%!36 ....Z |
000038b0  20 c9 20 30 3a 74 24 3d  22 54 68 65 20 73 61 76  | . 0:t$="The sav|
000038c0  65 20 62 6f 78 2e 7c 4d  44 72 61 67 20 74 68 69  |e box.|MDrag thi|
000038d0  73 20 69 63 6f 6e 20 74  6f 20 61 20 64 69 72 65  |s icon to a dire|
000038e0  63 74 6f 72 79 20 76 69  65 77 65 72 20 69 66 20  |ctory viewer if |
000038f0  79 6f 75 20 77 61 6e 74  20 74 6f 20 73 61 76 65  |you want to save|
00003900  20 69 74 2e 22 0d 0d 98  4c 20 20 c9 20 31 3a 74  | it."...L  . 1:t|
00003910  24 3d 22 54 68 65 20 73  61 76 65 20 62 6f 78 2e  |$="The save box.|
00003920  7c 4d 54 68 69 73 20 69  73 20 74 68 65 20 69 63  ||MThis is the ic|
00003930  6f 6e 20 77 68 65 72 65  20 79 6f 75 20 74 79 70  |on where you typ|
00003940  65 20 69 6e 20 61 20 66  69 6c 65 6e 61 6d 65 2e  |e in a filename.|
00003950  22 0d 0d a2 82 20 20 c9  20 32 3a 74 24 3d 22 54  |"....  . 2:t$="T|
00003960  68 65 20 73 61 76 65 20  62 6f 78 2e 7c 4d 54 68  |he save box.|MTh|
00003970  69 73 20 69 63 6f 6e 20  6f 6e 6c 79 20 73 61 76  |is icon only sav|
00003980  65 73 20 74 68 65 20 66  69 6c 65 20 69 66 20 79  |es the file if y|
00003990  6f 75 20 68 61 76 65 20  74 79 70 65 64 20 69 6e  |ou have typed in|
000039a0  20 61 20 46 55 4c 4c 20  70 61 74 68 6e 61 6d 65  | a FULL pathname|
000039b0  20 69 6e 20 74 68 65 20  77 72 69 74 61 62 6c 65  | in the writable|
000039c0  20 69 63 6f 6e 20 6f 6e  20 74 68 65 20 6c 65 66  | icon on the lef|
000039d0  74 2e 22 0d 0d ac 05 cb  0d 0d b6 74 c9 20 49 6e  |t."........t. In|
000039e0  66 6f 46 69 6c 65 68 61  6e 25 20 3a 20 74 24 3d  |foFilehan% : t$=|
000039f0  22 54 68 69 73 20 69 73  20 74 68 65 20 66 69 6c  |"This is the fil|
00003a00  65 20 69 6e 66 6f 72 6d  61 74 69 6f 6e 20 77 69  |e information wi|
00003a10  6e 64 6f 77 2c 20 69 74  20 74 65 6c 6c 73 20 79  |ndow, it tells y|
00003a20  6f 75 20 61 62 6f 75 74  20 79 6f 75 72 20 70 72  |ou about your pr|
00003a30  6f 63 65 73 73 65 64 20  66 69 6c 65 2e 22 3a c8  |ocessed file.":.|
00003a40  8e 20 68 65 6c 70 25 21  33 36 20 ca 0d 0d c0 49  |. help%!36 ....I|
00003a50  20 20 c9 20 30 3a 74 24  2b 3d 22 7c 4d 54 68 69  |  . 0:t$+="|MThi|
00003a60  73 20 69 73 20 77 68 61  74 20 74 68 65 20 69 63  |s is what the ic|
00003a70  6f 6e 20 6f 66 20 74 68  65 20 70 72 6f 63 65 73  |on of the proces|
00003a80  73 65 64 20 66 69 6c 65  20 6c 6f 6f 6b 73 20 6c  |sed file looks l|
00003a90  69 6b 65 2e 22 0d 0d ca  45 20 20 c9 20 32 3a 74  |ike."...E  . 2:t|
00003aa0  24 2b 3d 22 7c 4d 54 68  69 73 20 73 68 6f 77 73  |$+="|MThis shows|
00003ab0  20 74 68 65 20 66 75 6c  6c 20 70 61 74 68 6e 61  | the full pathna|
00003ac0  6d 65 20 6f 66 20 74 68  65 20 70 72 6f 63 65 73  |me of the proces|
00003ad0  73 65 64 20 66 69 6c 65  2e 22 0d 0d d4 40 20 20  |sed file."...@  |
00003ae0  c9 20 34 3a 74 24 2b 3d  22 7c 4d 54 68 69 73 20  |. 4:t$+="|MThis |
00003af0  73 68 6f 77 73 20 74 68  65 20 66 69 6c 65 74 79  |shows the filety|
00003b00  70 65 20 6f 66 20 74 68  65 20 70 72 6f 63 65 73  |pe of the proces|
00003b10  73 65 64 20 66 69 6c 65  2e 22 0d 0d de 72 20 20  |sed file."...r  |
00003b20  c9 20 36 3a 74 24 2b 3d  22 7c 4d 54 68 69 73 20  |. 6:t$+="|MThis |
00003b30  73 68 6f 77 73 20 74 68  61 74 20 77 68 65 6e 20  |shows that when |
00003b40  74 68 65 20 66 69 6c 65  20 77 61 73 20 64 72 61  |the file was dra|
00003b50  67 67 65 64 20 74 6f 20  74 68 65 20 70 72 6f 67  |gged to the prog|
00003b60  72 61 6d 2c 20 69 74 20  77 61 73 20 22 2b c3 28  |ram, it was "+.(|
00003b70  72 65 61 6c 5f 6c 65 6e  67 74 68 25 29 2b 22 20  |real_length%)+" |
00003b80  62 79 74 65 73 20 6c 6f  6e 67 2e 22 0d 0d e8 57  |bytes long."...W|
00003b90  20 20 c9 20 38 3a 74 24  2b 3d 22 7c 4d 54 68 69  |  . 8:t$+="|MThi|
00003ba0  73 20 73 68 6f 77 73 20  74 68 61 74 20 74 68 65  |s shows that the|
00003bb0  20 6e 65 77 2c 20 70 72  6f 63 65 73 73 65 64 20  | new, processed |
00003bc0  66 69 6c 65 20 69 73 20  22 2b c3 28 6c 65 6e 67  |file is "+.(leng|
00003bd0  74 68 25 29 2b 22 20 62  79 74 65 73 20 6c 6f 6e  |th%)+" bytes lon|
00003be0  67 2e 22 0d 0d f2 fc 20  20 c9 20 39 2c 31 30 2c  |g."....  . 9,10,|
00003bf0  31 31 2c 31 32 2c 31 33  2c 31 34 3a e7 20 61 63  |11,12,13,14:. ac|
00003c00  74 69 76 65 25 3d 32 20  84 20 61 63 74 69 76 65  |tive%=2 . active|
00003c10  25 3d 35 20 74 24 2b 3d  22 7c 4d 54 68 69 73 20  |%=5 t$+="|MThis |
00003c20  73 68 6f 77 73 20 74 68  61 74 20 54 65 78 74 43  |shows that TextC|
00003c30  68 65 63 6b 20 69 73 20  63 75 72 72 65 6e 74 6c  |heck is currentl|
00003c40  79 20 77 6f 72 6b 69 6e  67 20 6f 6e 20 74 68 69  |y working on thi|
00003c50  73 20 66 69 6c 65 2e 22  20 8b 20 74 24 2b 3d 22  |s file." . t$+="|
00003c60  7c 4d 54 68 69 73 20 73  68 6f 77 73 20 69 66 20  ||MThis shows if |
00003c70  74 68 65 20 70 72 6f 67  72 61 6d 20 73 65 61 72  |the program sear|
00003c80  63 68 65 64 20 74 68 72  6f 75 67 68 20 69 74 73  |ched through its|
00003c90  20 64 69 63 74 69 6f 6e  61 72 79 20 6f 66 20 22  | dictionary of "|
00003ca0  2b c3 28 6e 6f 5f 63 68  65 63 6b 73 25 29 2b 22  |+.(no_checks%)+"|
00003cb0  20 77 6f 72 64 73 20 74  6f 20 63 68 61 6e 67 65  | words to change|
00003cc0  20 74 68 65 20 63 61 73  65 73 20 6f 66 20 63 65  | the cases of ce|
00003cd0  72 74 61 69 6e 20 6c 65  74 74 65 72 73 2e 22 0d  |rtain letters.".|
00003ce0  0d fc 05 cb 0d 0e 06 a6  c9 20 50 72 6f 67 72 65  |......... Progre|
00003cf0  73 73 68 61 6e 25 3a 74  24 3d 22 54 68 65 20 70  |sshan%:t$="The p|
00003d00  72 6f 67 72 65 73 73 20  77 69 6e 64 6f 77 2e 7c  |rogress window.||
00003d10  4d 54 68 69 73 20 73 68  6f 77 73 20 68 6f 77 20  |MThis shows how |
00003d20  66 61 72 20 74 68 72 6f  75 67 68 20 74 68 65 20  |far through the |
00003d30  66 69 6c 65 20 54 65 78  74 43 68 65 63 6b 20 68  |file TextCheck h|
00003d40  61 73 20 67 6f 74 2e 7c  4d 43 6c 69 63 6b 20 27  |as got.|MClick '|
00003d50  6d 65 6e 75 27 20 6f 76  65 72 20 69 74 20 74 6f  |menu' over it to|
00003d60  20 68 61 76 65 20 74 68  65 20 6f 70 74 69 6f 6e  | have the option|
00003d70  20 74 6f 20 61 62 6f 72  74 20 74 68 65 20 70 72  | to abort the pr|
00003d80  6f 63 65 73 73 69 6e 67  2e 22 0d 0e 10 05 cb 0d  |ocessing."......|
00003d90  0e 1a 0c 74 24 2b 3d bd  28 30 29 0d 0e 24 31 24  |...t$+=.(0)..$1$|
00003da0  28 68 65 6c 70 25 2b 32  30 29 3d 74 24 3a 68 65  |(help%+20)=t$:he|
00003db0  6c 70 25 21 30 3d 28 28  28 32 30 2b a9 28 74 24  |lp%!0=(((20+.(t$|
00003dc0  29 2b 31 29 81 34 29 2a  34 29 2b 34 0d 0e 2e 22  |)+1).4)*4)+4..."|
00003dd0  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00003de0  73 61 67 65 22 2c 31 37  2c 68 65 6c 70 25 0d 0e  |sage",17,help%..|
00003df0  38 05 e1 0d 0e 42 04 0d  0e 4c 12 dd f2 6c 6f 61  |8....B...L...loa|
00003e00  64 63 61 70 69 74 61 6c  73 0d 0e 56 12 f2 63 6f  |dcapitals..V..co|
00003e10  75 6e 74 63 61 70 69 74  61 6c 73 0d 0e 60 4b de  |untcapitals..`K.|
00003e20  20 63 61 70 69 74 61 6c  24 28 6e 6f 5f 63 61 70  | capital$(no_cap|
00003e30  73 25 2b 31 30 30 29 2c  20 73 70 61 72 65 24 28  |s%+100), spare$(|
00003e40  6e 6f 5f 63 61 70 73 25  2b 31 30 30 29 2c 20 73  |no_caps%+100), s|
00003e50  74 61 72 74 25 28 32 36  29 2c 20 66 69 6e 69 73  |tart%(26), finis|
00003e60  68 25 28 32 36 29 0d 0e  6a 17 6e 6f 5f 63 68 65  |h%(26)..j.no_che|
00003e70  63 6b 73 25 3d 6e 6f 5f  63 61 70 73 25 0d 0e 74  |cks%=no_caps%..t|
00003e80  0d f2 72 65 61 64 63 61  70 73 0d 0e 7e 10 f2 73  |..readcaps..~..s|
00003e90  65 74 73 74 61 72 74 66  69 6e 0d 0e 88 05 e1 0d  |etstartfin......|
00003ea0  0e 92 04 0d 0e 9c 11 dd  f2 73 65 74 73 74 61 72  |.........setstar|
00003eb0  74 66 69 6e 0d 0e a6 15  c8 99 20 22 48 6f 75 72  |tfin...... "Hour|
00003ec0  67 6c 61 73 73 5f 4f 6e  22 0d 0e b0 0e e3 20 62  |glass_On"..... b|
00003ed0  3d 31 20 b8 20 32 36 0d  0e ba 28 c8 99 20 22 48  |=1 . 26...(.. "H|
00003ee0  6f 75 72 67 6c 61 73 73  5f 50 65 72 63 65 6e 74  |ourglass_Percent|
00003ef0  61 67 65 22 2c 28 31 30  30 2f 32 36 29 2a 62 0d  |age",(100/26)*b.|
00003f00  0e c4 0b 73 3d 30 3a 61  3d 31 0d 0e ce 05 f5 0d  |...s=0:a=1......|
00003f10  0e d8 2f e7 20 c1 63 61  70 69 74 61 6c 24 28 61  |../. .capital$(a|
00003f20  29 2c 31 2c 31 29 3d bd  28 62 2b 36 34 29 20 73  |),1,1)=.(b+64) s|
00003f30  3d 31 3a 73 74 61 72 74  25 28 62 29 3d 61 0d 0e  |=1:start%(b)=a..|
00003f40  e2 08 61 2b 3d 31 0d 0e  ec 16 fd 20 73 3d 31 20  |..a+=1..... s=1 |
00003f50  84 20 61 3e 6e 6f 5f 63  61 70 73 25 0d 0e f6 07  |. a>no_caps%....|
00003f60  ed 20 62 0d 0f 00 0e e3  20 63 3d 31 20 b8 20 32  |. b..... c=1 . 2|
00003f70  35 0d 0f 0a 1c 66 69 6e  69 73 68 25 28 63 29 3d  |5....finish%(c)=|
00003f80  73 74 61 72 74 25 28 63  2b 31 29 2d 31 0d 0f 14  |start%(c+1)-1...|
00003f90  07 ed 20 63 0d 0f 1e 18  66 69 6e 69 73 68 25 28  |.. c....finish%(|
00003fa0  32 36 29 3d 6e 6f 5f 63  61 70 73 25 0d 0f 28 16  |26)=no_caps%..(.|
00003fb0  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |.. "Hourglass_Of|
00003fc0  66 22 0d 0f 32 05 e1 0d  0f 3c 04 0d 0f 46 09 dd  |f"..2....<...F..|
00003fd0  f2 75 73 65 0d 0f 50 0c  f2 67 65 74 77 6f 72 64  |.use..P..getword|
00003fe0  0d 0f 5a 10 e7 20 77 6f  72 64 24 3d 22 22 20 e1  |..Z.. word$="" .|
00003ff0  0d 0f 64 07 73 3d 30 0d  0f 6e 14 e3 20 61 3d 31  |..d.s=0..n.. a=1|
00004000  20 b8 20 6e 6f 5f 63 61  70 73 25 0d 0f 78 41 e7  | . no_caps%..xA.|
00004010  20 63 61 70 69 74 61 6c  24 28 61 29 3d 77 6f 72  | capital$(a)=wor|
00004020  64 24 20 73 3d 31 3a f2  65 72 72 28 31 2c 22 57  |d$ s=1:.err(1,"W|
00004030  6f 72 64 20 61 6c 72 65  61 64 79 20 69 6e 20 64  |ord already in d|
00004040  69 63 74 69 6f 6e 61 72  79 2e 22 29 0d 0f 82 05  |ictionary.")....|
00004050  ed 0d 0f 8c 17 e3 20 61  3d 31 20 b8 20 6e 6f 5f  |...... a=1 . no_|
00004060  61 6c 6c 63 61 70 73 25  0d 0f 96 41 e7 20 41 6c  |allcaps%...A. Al|
00004070  6c 63 61 70 73 24 28 61  29 3d 77 6f 72 64 24 20  |lcaps$(a)=word$ |
00004080  73 3d 31 3a f2 65 72 72  28 31 2c 22 57 6f 72 64  |s=1:.err(1,"Word|
00004090  20 61 6c 72 65 61 64 79  20 69 6e 20 64 69 63 74  | already in dict|
000040a0  69 6f 6e 61 72 79 2e 22  29 0d 0f a0 05 ed 0d 0f  |ionary.").......|
000040b0  aa 14 e3 20 61 3d 31 20  b8 20 6e 6f 5f 61 64 64  |... a=1 . no_add|
000040c0  73 25 0d 0f b4 3f e7 20  61 64 64 77 6f 72 64 73  |s%...?. addwords|
000040d0  24 28 61 29 3d 77 6f 72  64 24 20 73 3d 31 3a f2  |$(a)=word$ s=1:.|
000040e0  65 72 72 28 31 2c 22 57  6f 72 64 20 61 6c 72 65  |err(1,"Word alre|
000040f0  61 64 79 20 62 65 69 6e  67 20 75 73 65 64 2e 22  |ady being used."|
00004100  29 0d 0f be 05 ed 0d 0f  c8 15 e7 20 73 3d 30 20  |).......... s=0 |
00004110  6e 6f 5f 61 64 64 73 25  2b 3d 31 0d 0f d2 4e e7  |no_adds%+=1...N.|
00004120  20 6e 6f 5f 61 64 64 73  25 3d 31 30 31 20 f2 65  | no_adds%=101 .e|
00004130  72 72 28 31 2c 22 49 20  63 61 6e 20 6f 6e 6c 79  |rr(1,"I can only|
00004140  20 68 61 6e 64 6c 65 20  31 30 30 20 65 78 74 72  | handle 100 extr|
00004150  61 20 77 6f 72 64 73 2e  22 29 3a 6e 6f 5f 61 64  |a words."):no_ad|
00004160  64 73 25 3d 31 30 30 3a  e1 0d 0f dc 52 e7 20 73  |ds%=100:....R. s|
00004170  3d 30 20 61 64 64 77 6f  72 64 73 24 28 6e 6f 5f  |=0 addwords$(no_|
00004180  61 64 64 73 25 29 3d 77  6f 72 64 24 3a 6e 6f 5f  |adds%)=word$:no_|
00004190  63 68 65 63 6b 73 25 2b  3d 31 3a e7 20 62 75 74  |checks%+=1:. but|
000041a0  25 3c 3e 31 20 c8 99 22  57 69 6d 70 5f 43 72 65  |%<>1 .."Wimp_Cre|
000041b0  61 74 65 4d 65 6e 75 22  2c 2d 31 0d 0f e6 05 e1  |ateMenu",-1.....|
000041c0  0d 0f f0 04 0d 0f fa 0e  dd f2 73 61 76 65 77 6f  |..........savewo|
000041d0  72 64 0d 10 04 0c f2 67  65 74 77 6f 72 64 0d 10  |rd.....getword..|
000041e0  0e 10 e7 20 77 6f 72 64  24 3d 22 22 20 e1 0d 10  |... word$="" ...|
000041f0  18 07 73 3d 30 0d 10 22  14 e3 20 61 3d 31 20 b8  |..s=0..".. a=1 .|
00004200  20 6e 6f 5f 63 61 70 73  25 0d 10 2c 41 e7 20 63  | no_caps%..,A. c|
00004210  61 70 69 74 61 6c 24 28  61 29 3d 77 6f 72 64 24  |apital$(a)=word$|
00004220  20 73 3d 31 3a f2 65 72  72 28 31 2c 22 57 6f 72  | s=1:.err(1,"Wor|
00004230  64 20 61 6c 72 65 61 64  79 20 69 6e 20 64 69 63  |d already in dic|
00004240  74 69 6f 6e 61 72 79 2e  22 29 0d 10 36 05 ed 0d  |tionary.")..6...|
00004250  10 40 17 e3 20 61 3d 31  20 b8 20 6e 6f 5f 61 6c  |.@.. a=1 . no_al|
00004260  6c 63 61 70 73 25 0d 10  4a 41 e7 20 41 6c 6c 63  |lcaps%..JA. Allc|
00004270  61 70 73 24 28 61 29 3d  77 6f 72 64 24 20 73 3d  |aps$(a)=word$ s=|
00004280  31 3a f2 65 72 72 28 31  2c 22 57 6f 72 64 20 61  |1:.err(1,"Word a|
00004290  6c 72 65 61 64 79 20 69  6e 20 64 69 63 74 69 6f  |lready in dictio|
000042a0  6e 61 72 79 2e 22 29 0d  10 54 05 ed 0d 10 5e 14  |nary.")..T....^.|
000042b0  e3 20 61 3d 31 20 b8 20  6e 6f 5f 61 64 64 73 25  |. a=1 . no_adds%|
000042c0  0d 10 68 47 e7 20 61 64  64 77 6f 72 64 73 24 28  |..hG. addwords$(|
000042d0  61 29 3d 77 6f 72 64 24  20 73 3d 31 3a f2 73 61  |a)=word$ s=1:.sa|
000042e0  76 65 64 69 63 74 3a e7  20 62 75 74 25 3c 3e 31  |vedict:. but%<>1|
000042f0  20 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  | .."Wimp_CreateM|
00004300  65 6e 75 22 2c 2d 31 0d  10 72 05 ed 0d 10 7c 15  |enu",-1..r....|.|
00004310  e7 20 73 3d 30 20 6e 6f  5f 61 64 64 73 25 2b 3d  |. s=0 no_adds%+=|
00004320  31 0d 10 86 4e e7 20 6e  6f 5f 61 64 64 73 25 3d  |1...N. no_adds%=|
00004330  31 30 31 20 f2 65 72 72  28 31 2c 22 49 20 63 61  |101 .err(1,"I ca|
00004340  6e 20 6f 6e 6c 79 20 68  61 6e 64 6c 65 20 31 30  |n only handle 10|
00004350  30 20 65 78 74 72 61 20  77 6f 72 64 73 2e 22 29  |0 extra words.")|
00004360  3a 6e 6f 5f 61 64 64 73  25 3d 31 30 30 3a e1 0d  |:no_adds%=100:..|
00004370  10 90 59 e7 20 73 3d 30  20 61 64 64 77 6f 72 64  |..Y. s=0 addword|
00004380  73 24 28 6e 6f 5f 61 64  64 73 25 29 3d 22 22 3a  |s$(no_adds%)="":|
00004390  6e 6f 5f 63 68 65 63 6b  73 25 2b 3d 31 3a f2 73  |no_checks%+=1:.s|
000043a0  61 76 65 64 69 63 74 3a  e7 20 62 75 74 25 3c 3e  |avedict:. but%<>|
000043b0  31 20 c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |1 .."Wimp_Create|
000043c0  4d 65 6e 75 22 2c 2d 31  0d 10 9a 05 e1 0d 10 a4  |Menu",-1........|
000043d0  04 0d 10 ae 13 dd f2 63  6f 75 6e 74 63 61 70 69  |.......countcapi|
000043e0  74 61 6c 73 0d 10 b8 20  41 25 3d 8e 28 22 3c 43  |tals... A%=.("<C|
000043f0  68 65 63 6b 24 44 69 72  3e 2e 43 61 70 69 74 61  |heck$Dir>.Capita|
00004400  6c 73 22 29 0d 10 c2 0e  6e 6f 5f 63 61 70 73 25  |ls")....no_caps%|
00004410  3d 30 0d 10 cc 05 f5 0d  10 d6 0e 77 6f 72 64 24  |=0.........word$|
00004420  3d be 23 41 25 0d 10 e0  0f 6e 6f 5f 63 61 70 73  |=.#A%....no_caps|
00004430  25 2b 3d 31 0d 10 ea 0c  fd 20 c5 23 41 25 3d b9  |%+=1..... .#A%=.|
00004440  0d 10 f4 08 d9 23 41 25  0d 10 fe 05 e1 0d 11 08  |.....#A%........|
00004450  04 0d 11 12 0e dd f2 72  65 61 64 63 61 70 73 0d  |.......readcaps.|
00004460  11 1c 20 41 25 3d 8e 28  22 3c 43 68 65 63 6b 24  |.. A%=.("<Check$|
00004470  44 69 72 3e 2e 43 61 70  69 74 61 6c 73 22 29 0d  |Dir>.Capitals").|
00004480  11 26 14 e3 20 61 3d 31  20 b8 20 6e 6f 5f 63 61  |.&.. a=1 . no_ca|
00004490  70 73 25 0d 11 30 14 63  61 70 69 74 61 6c 24 28  |ps%..0.capital$(|
000044a0  61 29 3d be 23 41 25 0d  11 3a 07 ed 20 61 0d 11  |a)=.#A%..:.. a..|
000044b0  44 08 d9 23 41 25 0d 11  4e 05 e1 0d 11 58 04 0d  |D..#A%..N....X..|
000044c0  11 62 10 dd f2 72 65 61  64 76 61 6c 75 65 73 0d  |.b...readvalues.|
000044d0  11 6c 0c 63 25 3d 63 61  73 65 25 0d 11 76 1f 41  |.l.c%=case%..v.A|
000044e0  25 3d 8e 28 22 3c 43 68  65 63 6b 24 44 69 72 3e  |%=.("<Check$Dir>|
000044f0  2e 4f 70 74 69 6f 6e 73  22 29 0d 11 80 10 53 70  |.Options")....Sp|
00004500  63 25 3d bb 28 be 23 41  25 29 0d 11 8a 11 53 70  |c%=.(.#A%)....Sp|
00004510  63 32 25 3d bb 28 be 23  41 25 29 0d 11 94 11 53  |c2%=.(.#A%)....S|
00004520  70 63 33 25 3d bb 28 be  23 41 25 29 0d 11 9e 11  |pc3%=.(.#A%)....|
00004530  53 70 63 34 25 3d bb 28  be 23 41 25 29 0d 11 a8  |Spc4%=.(.#A%)...|
00004540  11 63 61 73 65 25 3d bb  28 be 23 41 25 29 0d 11  |.case%=.(.#A%)..|
00004550  b2 16 6d 75 6c 74 69 74  61 73 6b 25 3d bb 28 be  |..multitask%=.(.|
00004560  23 41 25 29 0d 11 bc 08  d9 23 41 25 0d 11 c6 27  |#A%).....#A%...'|
00004570  e7 20 63 25 3c 3e 63 61  73 65 25 20 f2 74 6f 67  |. c%<>case% .tog|
00004580  67 6c 65 69 63 6f 6e 28  6f 70 74 68 61 6e 25 2c  |gleicon(opthan%,|
00004590  31 36 29 0d 11 d0 05 e1  0d 11 da 04 0d 11 e4 10  |16).............|
000045a0  dd f2 73 61 76 65 76 61  6c 75 65 73 0d 11 ee 0f  |..savevalues....|
000045b0  f2 73 65 74 6f 70 74 69  6e 66 6f 0d 11 f8 1f 41  |.setoptinfo....A|
000045c0  25 3d ae 28 22 3c 43 68  65 63 6b 24 44 69 72 3e  |%=.("<Check$Dir>|
000045d0  2e 4f 70 74 69 6f 6e 73  22 29 0d 12 02 10 d5 23  |.Options").....#|
000045e0  41 25 2c c3 28 53 70 63  25 29 0d 12 0c 11 d5 23  |A%,.(Spc%).....#|
000045f0  41 25 2c c3 28 53 70 63  32 25 29 0d 12 16 11 d5  |A%,.(Spc2%).....|
00004600  23 41 25 2c c3 28 53 70  63 33 25 29 0d 12 20 11  |#A%,.(Spc3%).. .|
00004610  d5 23 41 25 2c c3 28 53  70 63 34 25 29 0d 12 2a  |.#A%,.(Spc4%)..*|
00004620  11 d5 23 41 25 2c c3 28  63 61 73 65 25 29 0d 12  |..#A%,.(case%)..|
00004630  34 16 d5 23 41 25 2c c3  28 6d 75 6c 74 69 74 61  |4..#A%,.(multita|
00004640  73 6b 25 29 0d 12 3e 08  d9 23 41 25 0d 12 48 05  |sk%)..>..#A%..H.|
00004650  e1 0d 12 52 04 0d 12 5c  0e dd f2 73 61 76 65 64  |...R...\...saved|
00004660  69 63 74 0d 12 66 21 6c  3d 73 74 61 72 74 25 28  |ict..f!l=start%(|
00004670  28 97 28 c1 77 6f 72 64  24 2c 31 2c 31 29 29 29  |(.(.word$,1,1)))|
00004680  2d 36 34 29 0d 12 70 20  41 25 3d ae 28 22 3c 43  |-64)..p A%=.("<C|
00004690  68 65 63 6b 24 44 69 72  3e 2e 43 61 70 69 74 61  |heck$Dir>.Capita|
000046a0  6c 73 22 29 0d 12 7a 14  e3 20 61 3d 31 20 b8 20  |ls")..z.. a=1 . |
000046b0  6e 6f 5f 63 61 70 73 25  0d 12 84 14 e7 20 61 3d  |no_caps%..... a=|
000046c0  6c 20 d5 23 41 25 2c 77  6f 72 64 24 0d 12 8e 14  |l .#A%,word$....|
000046d0  d5 23 41 25 2c 63 61 70  69 74 61 6c 24 28 61 29  |.#A%,capital$(a)|
000046e0  0d 12 98 05 ed 0d 12 a2  08 d9 23 41 25 0d 12 ac  |..........#A%...|
000046f0  14 e3 20 61 3d 31 20 b8  20 6e 6f 5f 63 61 70 73  |.. a=1 . no_caps|
00004700  25 0d 12 b6 19 73 70 61  72 65 24 28 61 29 3d 63  |%....spare$(a)=c|
00004710  61 70 69 74 61 6c 24 28  61 29 0d 12 c0 05 ed 0d  |apital$(a)......|
00004720  12 ca 08 70 25 3d 30 0d  12 d4 14 e3 20 61 3d 31  |...p%=0..... a=1|
00004730  20 b8 20 6e 6f 5f 63 61  70 73 25 0d 12 de 09 70  | . no_caps%....p|
00004740  25 2b 3d 31 0d 12 e8 22  e7 20 61 3d 6c 20 63 61  |%+=1...". a=l ca|
00004750  70 69 74 61 6c 24 28 70  25 29 3d 77 6f 72 64 24  |pital$(p%)=word$|
00004760  3a 70 25 2b 3d 31 0d 12  f2 1a 63 61 70 69 74 61  |:p%+=1....capita|
00004770  6c 24 28 70 25 29 3d 73  70 61 72 65 24 28 61 29  |l$(p%)=spare$(a)|
00004780  0d 12 fc 05 ed 0d 13 06  0f 6e 6f 5f 63 61 70 73  |.........no_caps|
00004790  25 2b 3d 31 0d 13 10 10  f2 73 65 74 73 74 61 72  |%+=1.....setstar|
000047a0  74 66 69 6e 0d 13 1a 05  e1 0d 13 24 04 0d 13 2e  |tfin.......$....|
000047b0  0d dd f2 69 63 6f 6e 62  61 72 0d 13 38 22 77 69  |...iconbar..8"wi|
000047c0  6d 70 25 21 30 3d 2d 31  3a 77 69 6d 70 25 21 34  |mp%!0=-1:wimp%!4|
000047d0  3d 30 3a 77 69 6d 70 25  21 38 3d 30 0d 13 42 2a  |=0:wimp%!8=0..B*|
000047e0  77 69 6d 70 25 21 31 32  3d 37 30 3a 77 69 6d 70  |wimp%!12=70:wimp|
000047f0  25 21 31 36 3d 37 35 3a  77 69 6d 70 25 21 32 30  |%!16=75:wimp%!20|
00004800  3d 26 33 30 30 41 0d 13  4c 1c 24 28 77 69 6d 70  |=&300A..L.$(wimp|
00004810  25 2b 32 34 29 3d 22 21  54 65 78 74 63 68 65 63  |%+24)="!Textchec|
00004820  6b 22 0d 13 56 28 c8 99  20 22 57 69 6d 70 5f 43  |k"..V(.. "Wimp_C|
00004830  72 65 61 74 65 49 63 6f  6e 22 2c 2c 77 69 6d 70  |reateIcon",,wimp|
00004840  25 20 b8 20 69 63 68 61  6e 25 0d 13 60 05 e1 0d  |% . ichan%..`...|
00004850  13 6a 04 0d 13 74 10 dd  f2 6d 65 6e 75 73 65 6c  |.j...t...menusel|
00004860  65 63 74 0d 13 7e 19 61  25 3d 77 69 6d 70 25 21  |ect..~.a%=wimp%!|
00004870  30 3a 62 25 3d 77 69 6d  70 25 21 34 0d 13 88 23  |0:b%=wimp%!4...#|
00004880  c8 99 20 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |.. "Wimp_GetPoin|
00004890  74 65 72 49 6e 66 6f 22  2c 2c 77 69 6d 70 25 0d  |terInfo",,wimp%.|
000048a0  13 92 10 62 75 74 25 3d  77 69 6d 70 25 21 38 0d  |...but%=wimp%!8.|
000048b0  13 9c 19 77 69 6d 70 25  21 30 3d 61 25 3a 77 69  |...wimp%!0=a%:wi|
000048c0  6d 70 25 21 34 3d 62 25  0d 13 a6 0f e7 20 69 63  |mp%!4=b%..... ic|
000048d0  6f 6e 25 3d 33 20 8c 0d  13 b0 10 c8 8e 20 77 69  |on%=3 ....... wi|
000048e0  6d 70 25 21 30 20 ca 0d  13 ba a8 20 20 c9 20 31  |mp%!0 .....  . 1|
000048f0  20 3a 20 e7 20 a4 77 61  72 6e 69 6e 67 28 22 41  | : . .warning("A|
00004900  62 6f 72 74 69 6e 67 20  6e 6f 77 20 77 69 6c 6c  |borting now will|
00004910  20 6c 6f 73 65 20 74 68  65 20 70 61 72 74 6c 79  | lose the partly|
00004920  20 70 72 6f 63 65 73 73  65 64 20 64 61 74 61 2e  | processed data.|
00004930  22 29 3d 32 20 e1 20 8b  20 77 69 6d 70 25 21 30  |")=2 . . wimp%!0|
00004940  3d 50 72 6f 67 72 65 73  73 68 61 6e 25 3a c8 99  |=Progresshan%:..|
00004950  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
00004960  77 22 2c 2c 77 69 6d 70  25 3a 61 63 74 69 76 65  |w",,wimp%:active|
00004970  25 3d 30 3a f2 73 65 74  69 63 6f 6e 62 61 72 28  |%=0:.seticonbar(|
00004980  22 21 54 65 78 74 63 68  65 63 6b 22 29 3a e1 0d  |"!Textcheck"):..|
00004990  13 c4 14 20 20 c9 20 32  20 3a 20 f2 63 6f 6e 66  |...  . 2 : .conf|
000049a0  69 72 6d 0d 13 ce 05 cb  0d 13 d8 05 cd 0d 13 e2  |irm.............|
000049b0  0f e7 20 69 63 6f 6e 25  3d 34 20 8c 0d 13 ec 10  |.. icon%=4 .....|
000049c0  c8 8e 20 77 69 6d 70 25  21 30 20 ca 0d 13 f6 48  |.. wimp%!0 ....H|
000049d0  20 20 c9 20 31 20 3a 20  77 69 6d 70 25 21 30 3d  |  . 1 : wimp%!0=|
000049e0  50 72 65 76 69 65 77 68  61 6e 25 3a c8 99 22 57  |Previewhan%:.."W|
000049f0  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00004a00  2c 2c 77 69 6d 70 25 3a  f2 72 65 70 72 6f 63 65  |,,wimp%:.reproce|
00004a10  73 73 3a e1 0d 14 00 14  20 20 c9 20 32 20 3a 20  |ss:.....  . 2 : |
00004a20  f2 63 6f 6e 66 69 72 6d  0d 14 0a 05 cb 0d 14 14  |.confirm........|
00004a30  05 cd 0d 14 1e 10 c8 8e  20 77 69 6d 70 25 21 30  |........ wimp%!0|
00004a40  20 ca 0d 14 28 7a c9 20  31 20 3a 20 e7 20 69 63  | ...(z. 1 : . ic|
00004a50  6f 6e 25 3d 31 20 77 69  6d 70 25 21 30 3d 6f 70  |on%=1 wimp%!0=op|
00004a60  74 68 61 6e 25 3a c8 99  20 22 57 69 6d 70 5f 47  |than%:.. "Wimp_G|
00004a70  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00004a80  77 69 6d 70 25 3a 77 69  6d 70 25 21 32 38 3d 2d  |wimp%:wimp%!28=-|
00004a90  31 3a c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |1:.. "Wimp_OpenW|
00004aa0  69 6e 64 6f 77 22 2c 2c  77 69 6d 70 25 20 8b 20  |indow",,wimp% . |
00004ab0  c8 8e 20 77 69 6d 70 25  21 34 20 ca 0d 14 32 17  |.. wimp%!4 ...2.|
00004ac0  20 20 c9 20 30 20 3a 20  f2 6c 6f 61 64 76 61 6c  |  . 0 : .loadval|
00004ad0  75 65 73 0d 14 3c 17 20  20 c9 20 31 20 3a 20 f2  |ues..<.  . 1 : .|
00004ae0  73 61 76 65 76 61 6c 75  65 73 0d 14 46 14 20 20  |savevalues..F.  |
00004af0  c9 20 32 20 3a 20 f2 64  65 66 61 75 6c 74 0d 14  |. 2 : .default..|
00004b00  50 07 20 20 cb 0d 14 5a  16 c9 20 33 20 3a 20 f2  |P.  ...Z.. 3 : .|
00004b10  70 72 65 76 69 65 77 74  65 78 74 0d 14 64 2e c9  |previewtext..d..|
00004b20  20 34 20 3a 20 6d 75 6c  74 69 74 61 73 6b 25 3d  | 4 : multitask%=|
00004b30  31 2d 6d 75 6c 74 69 74  61 73 6b 25 3a c8 8e 20  |1-multitask%:.. |
00004b40  61 63 74 69 76 65 25 20  ca 0d 14 6e 5d 20 20 c9  |active% ...n]  .|
00004b50  20 32 20 3a 20 c8 99 22  57 69 6d 70 5f 43 72 65  | 2 : .."Wimp_Cre|
00004b60  61 74 65 4d 65 6e 75 22  2c 2d 31 3a 77 69 6d 70  |ateMenu",-1:wimp|
00004b70  25 21 30 3d 50 72 6f 67  72 65 73 73 68 61 6e 25  |%!0=Progresshan%|
00004b80  3a c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |:.."Wimp_CloseWi|
00004b90  6e 64 6f 77 22 2c 2c 77  69 6d 70 25 3a 61 63 74  |ndow",,wimp%:act|
00004ba0  69 76 65 25 3d 37 0d 14  78 5d 20 20 c9 20 35 20  |ive%=7..x]  . 5 |
00004bb0  3a 20 c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |: .."Wimp_Create|
00004bc0  4d 65 6e 75 22 2c 2d 31  3a 77 69 6d 70 25 21 30  |Menu",-1:wimp%!0|
00004bd0  3d 50 72 6f 67 72 65 73  73 68 61 6e 25 3a c8 99  |=Progresshan%:..|
00004be0  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
00004bf0  77 22 2c 2c 77 69 6d 70  25 3a 61 63 74 69 76 65  |w",,wimp%:active|
00004c00  25 3d 38 0d 14 82 05 cb  0d 14 8c 12 c9 20 35 20  |%=8.......... 5 |
00004c10  3a 20 f2 63 6f 6e 66 69  72 6d 0d 14 96 05 cb 0d  |: .confirm......|
00004c20  14 a0 41 e7 20 62 75 74  25 3d 31 20 80 20 77 69  |..A. but%=1 . wi|
00004c30  6d 70 25 21 30 3c 3e 35  20 77 69 6d 70 25 21 30  |mp%!0<>5 wimp%!0|
00004c40  3d 6d 6f 75 73 78 25 3a  77 69 6d 70 25 21 34 3d  |=mousx%:wimp%!4=|
00004c50  6d 6f 75 73 79 25 3a f2  6d 61 6b 65 6d 65 6e 75  |mousy%:.makemenu|
00004c60  0d 14 aa 05 e1 0d 14 b4  04 0d 14 be 0d dd f2 63  |...............c|
00004c70  6f 6e 66 69 72 6d 0d 14  c8 10 c8 8e 20 61 63 74  |onfirm...... act|
00004c80  69 76 65 25 20 ca 0d 14  d2 1a 20 20 c9 20 30 20  |ive% .....  . 0 |
00004c90  3a 20 c8 99 20 26 34 30  30 44 44 2c 68 61 6e 25  |: .. &400DD,han%|
00004ca0  0d 14 dc 6e 20 20 c9 20  31 20 3a 20 e7 20 a4 77  |...n  . 1 : . .w|
00004cb0  61 72 6e 69 6e 67 28 22  59 6f 75 20 68 61 76 65  |arning("You have|
00004cc0  20 6e 6f 74 20 73 61 76  65 64 20 79 6f 75 72 20  | not saved your |
00004cd0  70 72 6f 63 65 73 73 65  64 20 66 69 6c 65 2e 20  |processed file. |
00004ce0  20 44 6f 20 79 6f 75 20  73 74 69 6c 6c 20 77 69  | Do you still wi|
00004cf0  73 68 20 74 6f 20 71 75  69 74 3f 22 29 3d 31 20  |sh to quit?")=1 |
00004d00  c8 99 20 26 34 30 30 44  44 2c 68 61 6e 25 0d 14  |.. &400DD,han%..|
00004d10  e6 5f 20 20 c9 20 32 2c  35 20 3a 20 e7 20 a4 77  |._  . 2,5 : . .w|
00004d20  61 72 6e 69 6e 67 28 22  53 74 69 6c 6c 20 70 72  |arning("Still pr|
00004d30  6f 63 65 73 73 69 6e 67  20 66 69 6c 65 2e 20 20  |ocessing file.  |
00004d40  44 6f 20 79 6f 75 20 73  74 69 6c 6c 20 77 69 73  |Do you still wis|
00004d50  68 20 74 6f 20 71 75 69  74 3f 22 29 3d 31 20 c8  |h to quit?")=1 .|
00004d60  99 20 26 34 30 30 44 44  2c 68 61 6e 25 0d 14 f0  |. &400DD,han%...|
00004d70  05 cb 0d 14 fa 05 e1 0d  15 04 04 0d 15 0e 11 dd  |................|
00004d80  f2 70 72 65 76 69 65 77  74 65 78 74 0d 15 18 07  |.previewtext....|
00004d90  73 3d 30 0d 15 22 29 e7  20 70 72 65 76 77 25 3d  |s=0.."). prevw%=|
00004da0  30 20 80 20 68 65 69 67  68 74 25 3d 31 20 73 3d  |0 . height%=1 s=|
00004db0  31 3a f2 63 61 6c 63 75  6c 61 74 65 0d 15 2c 17  |1:.calculate..,.|
00004dc0  77 69 6d 70 25 21 30 3d  50 72 65 76 69 65 77 68  |wimp%!0=Previewh|
00004dd0  61 6e 25 0d 15 36 23 c8  99 20 22 57 69 6d 70 5f  |an%..6#.. "Wimp_|
00004de0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00004df0  2c 77 69 6d 70 25 0d 15  40 0f 77 69 6d 70 25 21  |,wimp%..@.wimp%!|
00004e00  32 38 3d 2d 31 0d 15 4a  1f c8 99 20 22 57 69 6d  |28=-1..J... "Wim|
00004e10  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 77  |p_OpenWindow",,w|
00004e20  69 6d 70 25 0d 15 54 0b  e7 20 73 3d 31 20 8c 0d  |imp%..T.. s=1 ..|
00004e30  15 5e 0d 77 69 6d 70 25  21 30 3d 30 0d 15 68 13  |.^.wimp%!0=0..h.|
00004e40  77 69 6d 70 25 21 34 3d  68 65 69 67 68 74 25 0d  |wimp%!4=height%.|
00004e50  15 72 10 77 69 6d 70 25  21 38 3d 31 32 33 36 0d  |.r.wimp%!8=1236.|
00004e60  15 7c 0e 77 69 6d 70 25  21 31 32 3d 30 0d 15 86  |.|.wimp%!12=0...|
00004e70  29 c8 99 20 22 57 69 6d  70 5f 53 65 74 45 78 74  |).. "Wimp_SetExt|
00004e80  65 6e 74 22 2c 50 72 65  76 69 65 77 68 61 6e 25  |ent",Previewhan%|
00004e90  2c 77 69 6d 70 25 0d 15  90 05 cd 0d 15 9a 17 e7  |,wimp%..........|
00004ea0  20 70 72 65 76 77 25 3d  30 20 70 72 65 76 77 25  | prevw%=0 prevw%|
00004eb0  3d 31 0d 15 a4 05 e1 0d  15 ae 04 0d 15 b8 10 dd  |=1..............|
00004ec0  f2 73 65 74 6f 70 74 69  6e 66 6f 0d 15 c2 1d 77  |.setoptinfo....w|
00004ed0  69 6d 70 25 21 30 3d 6f  70 74 68 61 6e 25 3a 77  |imp%!0=opthan%:w|
00004ee0  69 6d 70 25 21 34 3d 36  0d 15 cc 14 c8 99 20 26  |imp%!4=6...... &|
00004ef0  34 30 30 43 45 2c 2c 77  69 6d 70 25 0d 15 d6 15  |400CE,,wimp%....|
00004f00  53 70 63 25 3d bb 28 24  77 69 6d 70 25 21 32 38  |Spc%=.($wimp%!28|
00004f10  29 0d 15 e0 1e 77 69 6d  70 25 21 30 3d 6f 70 74  |)....wimp%!0=opt|
00004f20  68 61 6e 25 3a 77 69 6d  70 25 21 34 3d 31 30 0d  |han%:wimp%!4=10.|
00004f30  15 ea 14 c8 99 20 26 34  30 30 43 45 2c 2c 77 69  |..... &400CE,,wi|
00004f40  6d 70 25 0d 15 f4 16 53  70 63 32 25 3d bb 28 24  |mp%....Spc2%=.($|
00004f50  77 69 6d 70 25 21 32 38  29 0d 15 fe 1e 77 69 6d  |wimp%!28)....wim|
00004f60  70 25 21 30 3d 6f 70 74  68 61 6e 25 3a 77 69 6d  |p%!0=opthan%:wim|
00004f70  70 25 21 34 3d 32 36 0d  16 08 14 c8 99 20 26 34  |p%!4=26...... &4|
00004f80  30 30 43 45 2c 2c 77 69  6d 70 25 0d 16 12 16 53  |00CE,,wimp%....S|
00004f90  70 63 33 25 3d bb 28 24  77 69 6d 70 25 21 32 38  |pc3%=.($wimp%!28|
00004fa0  29 0d 16 1c 1e 77 69 6d  70 25 21 30 3d 6f 70 74  |)....wimp%!0=opt|
00004fb0  68 61 6e 25 3a 77 69 6d  70 25 21 34 3d 32 39 0d  |han%:wimp%!4=29.|
00004fc0  16 26 14 c8 99 20 26 34  30 30 43 45 2c 2c 77 69  |.&... &400CE,,wi|
00004fd0  6d 70 25 0d 16 30 16 53  70 63 34 25 3d bb 28 24  |mp%..0.Spc4%=.($|
00004fe0  77 69 6d 70 25 21 32 38  29 0d 16 3a 05 e1 0d 16  |wimp%!28)..:....|
00004ff0  44 04 0d 16 4e 11 dd f2  67 65 74 66 69 6c 65 6e  |D...N...getfilen|
00005000  61 6d 65 0d 16 58 1e 77  69 6d 70 25 21 30 3d 73  |ame..X.wimp%!0=s|
00005010  61 76 65 68 61 6e 25 3a  77 69 6d 70 25 21 34 3d  |avehan%:wimp%!4=|
00005020  31 0d 16 62 14 c8 99 20  26 34 30 30 43 45 2c 2c  |1..b... &400CE,,|
00005030  77 69 6d 70 25 0d 16 6c  15 66 69 6c 65 6e 61 24  |wimp%..l.filena$|
00005040  3d 24 77 69 6d 70 25 21  32 38 0d 16 76 1f 66 69  |=$wimp%!28..v.fi|
00005050  6c 65 6e 61 24 3d a4 66  69 78 73 74 72 69 6e 67  |lena$=.fixstring|
00005060  28 66 69 6c 65 6e 61 24  29 0d 16 80 05 e1 0d 16  |(filena$).......|
00005070  8a 04 0d 16 94 1a dd a4  66 69 78 73 74 72 69 6e  |........fixstrin|
00005080  67 28 6f 72 69 67 6e 61  6d 65 24 29 0d 16 9e 10  |g(origname$)....|
00005090  70 3d 31 3a 6e 61 6d 65  24 3d 22 22 0d 16 a8 1c  |p=1:name$=""....|
000050a0  c8 95 20 c1 6f 72 69 67  6e 61 6d 65 24 2c 70 2c  |.. .origname$,p,|
000050b0  31 29 3c 3e bd 28 30 29  0d 16 b2 1f 6e 61 6d 65  |1)<>.(0)....name|
000050c0  24 2b 3d c1 6f 72 69 67  6e 61 6d 65 24 2c 70 2c  |$+=.origname$,p,|
000050d0  31 29 3a 70 2b 3d 31 0d  16 bc 05 ce 0d 16 c6 0a  |1):p+=1.........|
000050e0  3d 6e 61 6d 65 24 0d 16  d0 04 0d 16 da 0d dd f2  |=name$..........|
000050f0  67 65 74 77 6f 72 64 0d  16 e4 21 77 69 6d 70 25  |getword...!wimp%|
00005100  21 30 3d 41 64 64 77 6f  72 64 68 61 6e 25 3a 77  |!0=Addwordhan%:w|
00005110  69 6d 70 25 21 34 3d 31  0d 16 ee 14 c8 99 20 26  |imp%!4=1...... &|
00005120  34 30 30 43 45 2c 2c 77  69 6d 70 25 0d 16 f8 13  |400CE,,wimp%....|
00005130  77 6f 72 64 24 3d 24 77  69 6d 70 25 21 32 38 0d  |word$=$wimp%!28.|
00005140  17 02 37 e7 20 77 6f 72  64 24 3d 22 22 20 f2 65  |..7. word$="" .e|
00005150  72 72 28 31 2c 22 59 6f  75 20 6e 65 65 64 20 74  |rr(1,"You need t|
00005160  6f 20 65 6e 74 65 72 20  73 6f 6d 65 74 68 69 6e  |o enter somethin|
00005170  67 21 22 29 3a e1 0d 17  0c 0f f2 63 68 61 6e 67  |g!"):......chang|
00005180  65 63 61 73 65 0d 17 16  05 e1 0d 17 20 04 0d 17  |ecase....... ...|
00005190  2a 0e dd f2 6a 75 73 74  66 69 6c 65 0d 17 34 16  |*...justfile..4.|
000051a0  c8 95 20 a7 66 69 6c 65  6e 61 24 2c 22 2e 22 29  |.. .filena$,".")|
000051b0  3e 30 0d 17 3e 25 66 69  6c 65 6e 61 24 3d c1 66  |>0..>%filena$=.f|
000051c0  69 6c 65 6e 61 24 2c a7  66 69 6c 65 6e 61 24 2c  |ilena$,.filena$,|
000051d0  22 2e 22 29 2b 31 29 0d  17 48 05 ce 0d 17 52 05  |".")+1)..H....R.|
000051e0  e1 0d 17 5c 04 0d 17 66  24 dd f2 73 65 74 69 63  |...\...f$..setic|
000051f0  6f 6e 28 77 69 6d 70 25  21 30 2c 77 69 6d 70 25  |on(wimp%!0,wimp%|
00005200  21 34 2c 74 65 78 74 24  29 0d 17 70 14 c8 99 20  |!4,text$)..p... |
00005210  26 34 30 30 43 45 2c 2c  77 69 6d 70 25 0d 17 7a  |&400CE,,wimp%..z|
00005220  13 24 77 69 6d 70 25 21  32 38 3d 74 65 78 74 24  |.$wimp%!28=text$|
00005230  0d 17 84 18 77 69 6d 70  25 21 38 3d 30 3a 77 69  |....wimp%!8=0:wi|
00005240  6d 70 25 21 31 32 3d 30  0d 17 8e 14 c8 99 20 26  |mp%!12=0...... &|
00005250  34 30 30 43 44 2c 2c 77  69 6d 70 25 0d 17 98 05  |400CD,,wimp%....|
00005260  e1 0d 17 a2 04 0d 17 ac  0a dd f2 64 72 61 67 0d  |...........drag.|
00005270  17 b6 1a e7 20 77 69 6d  70 25 21 31 32 3c 3e 73  |.... wimp%!12<>s|
00005280  61 76 65 68 61 6e 25 20  e1 0d 17 c0 1a f2 67 65  |avehan% ......ge|
00005290  74 66 69 6c 65 6e 61 6d  65 3a f2 6a 75 73 74 66  |tfilename:.justf|
000052a0  69 6c 65 0d 17 ca 34 77  69 6d 70 25 21 30 3d 73  |ile...4wimp%!0=s|
000052b0  61 76 65 68 61 6e 25 3a  c8 99 20 22 57 69 6d 70  |avehan%:.. "Wimp|
000052c0  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
000052d0  2c 2c 77 69 6d 70 25 0d  17 d4 22 78 3d 77 69 6d  |,,wimp%..."x=wim|
000052e0  70 25 21 34 3a 79 3d 77  69 6d 70 25 21 31 36 3a  |p%!4:y=wimp%!16:|
000052f0  77 69 6d 70 25 21 34 3d  30 0d 17 de 21 c8 99 20  |wimp%!4=0...!.. |
00005300  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00005310  74 65 22 2c 2c 77 69 6d  70 25 0d 17 e8 28 77 69  |te",,wimp%...(wi|
00005320  6d 70 25 21 34 3d 35 3a  77 69 6d 70 25 21 38 2b  |mp%!4=5:wimp%!8+|
00005330  3d 78 2d 34 3a 77 69 6d  70 25 21 31 32 2b 3d 79  |=x-4:wimp%!12+=y|
00005340  2d 34 0d 17 f2 1f 77 69  6d 70 25 21 31 36 2b 3d  |-4....wimp%!16+=|
00005350  78 2b 34 3a 77 69 6d 70  25 21 32 30 2b 3d 79 2b  |x+4:wimp%!20+=y+|
00005360  34 0d 17 fc 19 77 69 6d  70 25 21 32 34 3d 30 3a  |4....wimp%!24=0:|
00005370  77 69 6d 70 25 21 32 38  3d 30 0d 18 06 29 77 69  |wimp%!28=0...)wi|
00005380  6d 70 25 21 33 32 3d 26  37 46 46 46 46 46 46 46  |mp%!32=&7FFFFFFF|
00005390  3a 77 69 6d 70 25 21 33  36 3d 26 37 46 46 46 46  |:wimp%!36=&7FFFF|
000053a0  46 46 46 0d 18 10 1c c8  99 20 22 57 69 6d 70 5f  |FFF...... "Wimp_|
000053b0  44 72 61 67 42 6f 78 22  2c 2c 77 69 6d 70 25 0d  |DragBox",,wimp%.|
000053c0  18 1a 05 e1 0d 18 24 04  0d 18 2e 0b dd f2 63 6c  |......$.......cl|
000053d0  69 63 6b 0d 18 38 23 e7  20 77 69 6d 70 25 21 38  |ick..8#. wimp%!8|
000053e0  3d 31 36 20 84 20 77 69  6d 70 25 21 38 3d 36 34  |=16 . wimp%!8=64|
000053f0  20 f2 64 72 61 67 0d 18  42 17 e7 20 77 69 6d 70  | .drag..B.. wimp|
00005400  25 21 31 32 3d 69 6e 68  61 6e 25 20 e1 0d 18 4c  |%!12=inhan% ...L|
00005410  30 e7 20 77 69 6d 70 25  21 38 3d 34 20 80 20 77  |0. wimp%!8=4 . w|
00005420  69 6d 70 25 21 31 32 3d  6f 70 74 68 61 6e 25 20  |imp%!12=opthan% |
00005430  c8 8e 20 77 69 6d 70 25  21 31 36 20 ca 0d 18 56  |.. wimp%!16 ...V|
00005440  68 c9 20 34 20 3a 20 f2  73 65 74 6f 70 74 69 6e  |h. 4 : .setoptin|
00005450  66 6f 3a e7 20 53 70 63  25 3c 39 39 20 53 70 63  |fo:. Spc%<99 Spc|
00005460  25 2b 3d 31 3a f2 73 65  74 69 63 6f 6e 28 6f 70  |%+=1:.seticon(op|
00005470  74 68 61 6e 25 2c 36 2c  c3 28 53 70 63 25 29 29  |than%,6,.(Spc%))|
00005480  20 8b 20 53 70 63 25 3d  30 3a f2 73 65 74 69 63  | . Spc%=0:.setic|
00005490  6f 6e 28 6f 70 74 68 61  6e 25 2c 36 2c c3 28 53  |on(opthan%,6,.(S|
000054a0  70 63 25 29 29 0d 18 60  68 c9 20 35 20 3a 20 f2  |pc%))..`h. 5 : .|
000054b0  73 65 74 6f 70 74 69 6e  66 6f 3a e7 20 53 70 63  |setoptinfo:. Spc|
000054c0  25 3e 30 20 53 70 63 25  2d 3d 31 3a f2 73 65 74  |%>0 Spc%-=1:.set|
000054d0  69 63 6f 6e 28 6f 70 74  68 61 6e 25 2c 36 2c c3  |icon(opthan%,6,.|
000054e0  28 53 70 63 25 29 29 20  8b 20 53 70 63 25 3d 39  |(Spc%)) . Spc%=9|
000054f0  39 3a f2 73 65 74 69 63  6f 6e 28 6f 70 74 68 61  |9:.seticon(optha|
00005500  6e 25 2c 36 2c c3 28 53  70 63 25 29 29 0d 18 6a  |n%,6,.(Spc%))..j|
00005510  6f c9 20 39 20 3a 20 f2  73 65 74 6f 70 74 69 6e  |o. 9 : .setoptin|
00005520  66 6f 3a e7 20 53 70 63  32 25 3c 39 39 20 53 70  |fo:. Spc2%<99 Sp|
00005530  63 32 25 2b 3d 31 3a f2  73 65 74 69 63 6f 6e 28  |c2%+=1:.seticon(|
00005540  6f 70 74 68 61 6e 25 2c  31 30 2c c3 28 53 70 63  |opthan%,10,.(Spc|
00005550  32 25 29 29 20 8b 20 53  70 63 32 25 3d 30 3a f2  |2%)) . Spc2%=0:.|
00005560  73 65 74 69 63 6f 6e 28  6f 70 74 68 61 6e 25 2c  |seticon(opthan%,|
00005570  31 30 2c c3 28 53 70 63  32 25 29 29 0d 18 74 6f  |10,.(Spc2%))..to|
00005580  c9 20 38 20 3a 20 f2 73  65 74 6f 70 74 69 6e 66  |. 8 : .setoptinf|
00005590  6f 3a e7 20 53 70 63 32  25 3e 30 20 53 70 63 32  |o:. Spc2%>0 Spc2|
000055a0  25 2d 3d 31 3a f2 73 65  74 69 63 6f 6e 28 6f 70  |%-=1:.seticon(op|
000055b0  74 68 61 6e 25 2c 31 30  2c c3 28 53 70 63 32 25  |than%,10,.(Spc2%|
000055c0  29 29 20 8b 20 53 70 63  32 25 3d 39 39 3a f2 73  |)) . Spc2%=99:.s|
000055d0  65 74 69 63 6f 6e 28 6f  70 74 68 61 6e 25 2c 31  |eticon(opthan%,1|
000055e0  30 2c c3 28 53 70 63 32  25 29 29 0d 18 7e 70 c9  |0,.(Spc2%))..~p.|
000055f0  20 32 37 20 3a 20 f2 73  65 74 6f 70 74 69 6e 66  | 27 : .setoptinf|
00005600  6f 3a e7 20 53 70 63 33  25 3e 30 20 53 70 63 33  |o:. Spc3%>0 Spc3|
00005610  25 2d 3d 31 3a f2 73 65  74 69 63 6f 6e 28 6f 70  |%-=1:.seticon(op|
00005620  74 68 61 6e 25 2c 32 36  2c c3 28 53 70 63 33 25  |than%,26,.(Spc3%|
00005630  29 29 20 8b 20 53 70 63  33 25 3d 39 39 3a f2 73  |)) . Spc3%=99:.s|
00005640  65 74 69 63 6f 6e 28 6f  70 74 68 61 6e 25 2c 32  |eticon(opthan%,2|
00005650  36 2c c3 28 53 70 63 33  25 29 29 0d 18 88 70 c9  |6,.(Spc3%))...p.|
00005660  20 32 38 20 3a 20 f2 73  65 74 6f 70 74 69 6e 66  | 28 : .setoptinf|
00005670  6f 3a e7 20 53 70 63 33  25 3c 39 39 20 53 70 63  |o:. Spc3%<99 Spc|
00005680  33 25 2b 3d 31 3a f2 73  65 74 69 63 6f 6e 28 6f  |3%+=1:.seticon(o|
00005690  70 74 68 61 6e 25 2c 32  36 2c c3 28 53 70 63 33  |pthan%,26,.(Spc3|
000056a0  25 29 29 20 8b 20 53 70  63 33 25 3d 30 3a f2 73  |%)) . Spc3%=0:.s|
000056b0  65 74 69 63 6f 6e 28 6f  70 74 68 61 6e 25 2c 32  |eticon(opthan%,2|
000056c0  36 2c c3 28 53 70 63 33  25 29 29 0d 18 92 70 c9  |6,.(Spc3%))...p.|
000056d0  20 33 30 20 3a 20 f2 73  65 74 6f 70 74 69 6e 66  | 30 : .setoptinf|
000056e0  6f 3a e7 20 53 70 63 34  25 3e 30 20 53 70 63 34  |o:. Spc4%>0 Spc4|
000056f0  25 2d 3d 31 3a f2 73 65  74 69 63 6f 6e 28 6f 70  |%-=1:.seticon(op|
00005700  74 68 61 6e 25 2c 32 39  2c c3 28 53 70 63 34 25  |than%,29,.(Spc4%|
00005710  29 29 20 8b 20 53 70 63  34 25 3d 39 39 3a f2 73  |)) . Spc4%=99:.s|
00005720  65 74 69 63 6f 6e 28 6f  70 74 68 61 6e 25 2c 32  |eticon(opthan%,2|
00005730  39 2c c3 28 53 70 63 34  25 29 29 0d 18 9c 70 c9  |9,.(Spc4%))...p.|
00005740  20 33 31 20 3a 20 f2 73  65 74 6f 70 74 69 6e 66  | 31 : .setoptinf|
00005750  6f 3a e7 20 53 70 63 34  25 3c 39 39 20 53 70 63  |o:. Spc4%<99 Spc|
00005760  34 25 2b 3d 31 3a f2 73  65 74 69 63 6f 6e 28 6f  |4%+=1:.seticon(o|
00005770  70 74 68 61 6e 25 2c 32  39 2c c3 28 53 70 63 34  |pthan%,29,.(Spc4|
00005780  25 29 29 20 8b 20 53 70  63 34 25 3d 30 3a f2 73  |%)) . Spc4%=0:.s|
00005790  65 74 69 63 6f 6e 28 6f  70 74 68 61 6e 25 2c 32  |eticon(opthan%,2|
000057a0  39 2c c3 28 53 70 63 34  25 29 29 0d 18 a6 c9 c9  |9,.(Spc4%)).....|
000057b0  20 34 30 20 3a 20 f2 73  65 74 6f 70 74 69 6e 66  | 40 : .setoptinf|
000057c0  6f 3a 77 69 6d 70 25 21  30 3d 6f 70 74 68 61 6e  |o:wimp%!0=opthan|
000057d0  25 3a c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |%:.."Wimp_CloseW|
000057e0  69 6e 64 6f 77 22 2c 2c  77 69 6d 70 25 3a e7 20  |indow",,wimp%:. |
000057f0  61 63 74 69 76 65 25 3d  31 20 f2 65 72 72 28 31  |active%=1 .err(1|
00005800  2c 22 54 68 65 73 65 20  76 61 6c 75 65 73 20 77  |,"These values w|
00005810  69 6c 6c 20 6f 6e 6c 79  20 62 65 20 75 73 65 64  |ill only be used|
00005820  20 66 6f 72 20 74 68 65  20 6e 65 78 74 20 66 69  | for the next fi|
00005830  6c 65 20 74 6f 20 62 65  20 70 72 6f 63 65 73 73  |le to be process|
00005840  65 64 2c 20 4e 4f 54 20  74 68 65 20 63 75 72 72  |ed, NOT the curr|
00005850  65 6e 74 20 6f 6e 65 2c  20 75 6e 6c 65 73 73 20  |ent one, unless |
00005860  69 74 20 69 73 20 72 65  70 72 6f 63 65 73 73 65  |it is reprocesse|
00005870  64 2e 22 29 0d 18 b0 2e  c9 20 33 39 20 3a 20 f2  |d.")..... 39 : .|
00005880  73 61 76 65 76 61 6c 75  65 73 3a f2 74 6f 67 67  |savevalues:.togg|
00005890  6c 65 69 63 6f 6e 28 6f  70 74 68 61 6e 25 2c 33  |leicon(opthan%,3|
000058a0  39 29 0d 18 ba 2e c9 20  33 32 20 3a 20 f2 6c 6f  |9)..... 32 : .lo|
000058b0  61 64 76 61 6c 75 65 73  3a f2 74 6f 67 67 6c 65  |advalues:.toggle|
000058c0  69 63 6f 6e 28 6f 70 74  68 61 6e 25 2c 33 32 29  |icon(opthan%,32)|
000058d0  0d 18 c4 2b c9 20 32 33  20 3a 20 f2 64 65 66 61  |...+. 23 : .defa|
000058e0  75 6c 74 3a f2 74 6f 67  67 6c 65 69 63 6f 6e 28  |ult:.toggleicon(|
000058f0  6f 70 74 68 61 6e 25 2c  32 33 29 0d 18 ce 18 c9  |opthan%,23).....|
00005900  20 31 36 20 3a 20 63 61  73 65 25 3d 31 2d 63 61  | 16 : case%=1-ca|
00005910  73 65 25 0d 18 d8 05 cb  0d 18 e2 30 e7 20 77 69  |se%........0. wi|
00005920  6d 70 25 21 38 3d 31 20  80 20 77 69 6d 70 25 21  |mp%!8=1 . wimp%!|
00005930  31 32 3d 6f 70 74 68 61  6e 25 20 c8 8e 20 77 69  |12=opthan% .. wi|
00005940  6d 70 25 21 31 36 20 ca  0d 18 ec 68 c9 20 34 20  |mp%!16 ....h. 4 |
00005950  3a 20 f2 73 65 74 6f 70  74 69 6e 66 6f 3a e7 20  |: .setoptinfo:. |
00005960  53 70 63 25 3e 30 20 53  70 63 25 2d 3d 31 3a f2  |Spc%>0 Spc%-=1:.|
00005970  73 65 74 69 63 6f 6e 28  6f 70 74 68 61 6e 25 2c  |seticon(opthan%,|
00005980  36 2c c3 28 53 70 63 25  29 29 20 8b 20 53 70 63  |6,.(Spc%)) . Spc|
00005990  25 3d 39 39 3a f2 73 65  74 69 63 6f 6e 28 6f 70  |%=99:.seticon(op|
000059a0  74 68 61 6e 25 2c 36 2c  c3 28 53 70 63 25 29 29  |than%,6,.(Spc%))|
000059b0  0d 18 f6 68 c9 20 35 20  3a 20 f2 73 65 74 6f 70  |...h. 5 : .setop|
000059c0  74 69 6e 66 6f 3a e7 20  53 70 63 25 3c 39 39 20  |tinfo:. Spc%<99 |
000059d0  53 70 63 25 2b 3d 31 3a  f2 73 65 74 69 63 6f 6e  |Spc%+=1:.seticon|
000059e0  28 6f 70 74 68 61 6e 25  2c 36 2c c3 28 53 70 63  |(opthan%,6,.(Spc|
000059f0  25 29 29 20 8b 20 53 70  63 25 3d 30 3a f2 73 65  |%)) . Spc%=0:.se|
00005a00  74 69 63 6f 6e 28 6f 70  74 68 61 6e 25 2c 36 2c  |ticon(opthan%,6,|
00005a10  c3 28 53 70 63 25 29 29  0d 19 00 6f c9 20 39 20  |.(Spc%))...o. 9 |
00005a20  3a 20 f2 73 65 74 6f 70  74 69 6e 66 6f 3a e7 20  |: .setoptinfo:. |
00005a30  53 70 63 32 25 3e 30 20  53 70 63 32 25 2d 3d 31  |Spc2%>0 Spc2%-=1|
00005a40  3a f2 73 65 74 69 63 6f  6e 28 6f 70 74 68 61 6e  |:.seticon(opthan|
00005a50  25 2c 31 30 2c c3 28 53  70 63 32 25 29 29 20 8b  |%,10,.(Spc2%)) .|
00005a60  20 53 70 63 32 25 3d 39  39 3a f2 73 65 74 69 63  | Spc2%=99:.setic|
00005a70  6f 6e 28 6f 70 74 68 61  6e 25 2c 31 30 2c c3 28  |on(opthan%,10,.(|
00005a80  53 70 63 32 25 29 29 0d  19 0a 6f c9 20 38 20 3a  |Spc2%))...o. 8 :|
00005a90  20 f2 73 65 74 6f 70 74  69 6e 66 6f 3a e7 20 53  | .setoptinfo:. S|
00005aa0  70 63 32 25 3c 39 39 20  53 70 63 32 25 2b 3d 31  |pc2%<99 Spc2%+=1|
00005ab0  3a f2 73 65 74 69 63 6f  6e 28 6f 70 74 68 61 6e  |:.seticon(opthan|
00005ac0  25 2c 31 30 2c c3 28 53  70 63 32 25 29 29 20 8b  |%,10,.(Spc2%)) .|
00005ad0  20 53 70 63 32 25 3d 30  3a f2 73 65 74 69 63 6f  | Spc2%=0:.setico|
00005ae0  6e 28 6f 70 74 68 61 6e  25 2c 31 30 2c c3 28 53  |n(opthan%,10,.(S|
00005af0  70 63 32 25 29 29 0d 19  14 b5 c9 20 34 30 20 3a  |pc2%))..... 40 :|
00005b00  20 f2 73 65 74 6f 70 74  69 6e 66 6f 3a f2 74 6f  | .setoptinfo:.to|
00005b10  67 67 6c 65 69 63 6f 6e  28 6f 70 74 68 61 6e 25  |ggleicon(opthan%|
00005b20  2c 34 30 29 3a e7 20 61  63 74 69 76 65 25 3d 31  |,40):. active%=1|
00005b30  20 f2 65 72 72 28 31 2c  22 54 68 65 73 65 20 76  | .err(1,"These v|
00005b40  61 6c 75 65 73 20 77 69  6c 6c 20 6f 6e 6c 79 20  |alues will only |
00005b50  62 65 20 75 73 65 64 20  66 6f 72 20 74 68 65 20  |be used for the |
00005b60  6e 65 78 74 20 66 69 6c  65 20 74 6f 20 62 65 20  |next file to be |
00005b70  70 72 6f 63 65 73 73 65  64 2c 20 4e 4f 54 20 74  |processed, NOT t|
00005b80  68 65 20 63 75 72 72 65  6e 74 20 6f 6e 65 2c 20  |he current one, |
00005b90  75 6e 6c 65 73 73 20 69  74 20 69 73 20 72 65 70  |unless it is rep|
00005ba0  72 6f 63 65 73 73 65 64  2e 22 29 0d 19 1e 70 c9  |rocessed.")...p.|
00005bb0  20 32 37 20 3a 20 f2 73  65 74 6f 70 74 69 6e 66  | 27 : .setoptinf|
00005bc0  6f 3a e7 20 53 70 63 33  25 3c 39 39 20 53 70 63  |o:. Spc3%<99 Spc|
00005bd0  33 25 2b 3d 31 3a f2 73  65 74 69 63 6f 6e 28 6f  |3%+=1:.seticon(o|
00005be0  70 74 68 61 6e 25 2c 32  36 2c c3 28 53 70 63 33  |pthan%,26,.(Spc3|
00005bf0  25 29 29 20 8b 20 53 70  63 33 25 3d 30 3a f2 73  |%)) . Spc3%=0:.s|
00005c00  65 74 69 63 6f 6e 28 6f  70 74 68 61 6e 25 2c 32  |eticon(opthan%,2|
00005c10  36 2c c3 28 53 70 63 33  25 29 29 0d 19 28 70 c9  |6,.(Spc3%))..(p.|
00005c20  20 32 38 20 3a 20 f2 73  65 74 6f 70 74 69 6e 66  | 28 : .setoptinf|
00005c30  6f 3a e7 20 53 70 63 33  25 3e 30 20 53 70 63 33  |o:. Spc3%>0 Spc3|
00005c40  25 2d 3d 31 3a f2 73 65  74 69 63 6f 6e 28 6f 70  |%-=1:.seticon(op|
00005c50  74 68 61 6e 25 2c 32 36  2c c3 28 53 70 63 33 25  |than%,26,.(Spc3%|
00005c60  29 29 20 8b 20 53 70 63  33 25 3d 39 39 3a f2 73  |)) . Spc3%=99:.s|
00005c70  65 74 69 63 6f 6e 28 6f  70 74 68 61 6e 25 2c 32  |eticon(opthan%,2|
00005c80  36 2c c3 28 53 70 63 33  25 29 29 0d 19 32 70 c9  |6,.(Spc3%))..2p.|
00005c90  20 33 30 20 3a 20 f2 73  65 74 6f 70 74 69 6e 66  | 30 : .setoptinf|
00005ca0  6f 3a e7 20 53 70 63 34  25 3c 39 39 20 53 70 63  |o:. Spc4%<99 Spc|
00005cb0  34 25 2b 3d 31 3a f2 73  65 74 69 63 6f 6e 28 6f  |4%+=1:.seticon(o|
00005cc0  70 74 68 61 6e 25 2c 32  39 2c c3 28 53 70 63 34  |pthan%,29,.(Spc4|
00005cd0  25 29 29 20 8b 20 53 70  63 34 25 3d 30 3a f2 73  |%)) . Spc4%=0:.s|
00005ce0  65 74 69 63 6f 6e 28 6f  70 74 68 61 6e 25 2c 32  |eticon(opthan%,2|
00005cf0  39 2c c3 28 53 70 63 34  25 29 29 0d 19 3c 70 c9  |9,.(Spc4%))..<p.|
00005d00  20 33 31 20 3a 20 f2 73  65 74 6f 70 74 69 6e 66  | 31 : .setoptinf|
00005d10  6f 3a e7 20 53 70 63 34  25 3e 30 20 53 70 63 34  |o:. Spc4%>0 Spc4|
00005d20  25 2d 3d 31 3a f2 73 65  74 69 63 6f 6e 28 6f 70  |%-=1:.seticon(op|
00005d30  74 68 61 6e 25 2c 32 39  2c c3 28 53 70 63 34 25  |than%,29,.(Spc4%|
00005d40  29 29 20 8b 20 53 70 63  34 25 3d 39 39 3a f2 73  |)) . Spc4%=99:.s|
00005d50  65 74 69 63 6f 6e 28 6f  70 74 68 61 6e 25 2c 32  |eticon(opthan%,2|
00005d60  39 2c c3 28 53 70 63 34  25 29 29 0d 19 46 2e c9  |9,.(Spc4%))..F..|
00005d70  20 33 39 20 3a 20 f2 73  61 76 65 76 61 6c 75 65  | 39 : .savevalue|
00005d80  73 3a f2 74 6f 67 67 6c  65 69 63 6f 6e 28 6f 70  |s:.toggleicon(op|
00005d90  74 68 61 6e 25 2c 33 39  29 0d 19 50 2e c9 20 33  |than%,39)..P.. 3|
00005da0  32 20 3a 20 f2 6c 6f 61  64 76 61 6c 75 65 73 3a  |2 : .loadvalues:|
00005db0  f2 74 6f 67 67 6c 65 69  63 6f 6e 28 6f 70 74 68  |.toggleicon(opth|
00005dc0  61 6e 25 2c 33 32 29 0d  19 5a 2b c9 20 32 33 20  |an%,32)..Z+. 23 |
00005dd0  3a 20 f2 64 65 66 61 75  6c 74 3a f2 74 6f 67 67  |: .default:.togg|
00005de0  6c 65 69 63 6f 6e 28 6f  70 74 68 61 6e 25 2c 32  |leicon(opthan%,2|
00005df0  33 29 0d 19 64 18 c9 20  31 36 20 3a 20 63 61 73  |3)..d.. 16 : cas|
00005e00  65 25 3d 31 2d 63 61 73  65 25 0d 19 6e 05 cb 0d  |e%=1-case%..n...|
00005e10  19 78 28 e7 20 77 69 6d  70 25 21 31 32 3d 73 61  |.x(. wimp%!12=sa|
00005e20  76 65 68 61 6e 25 20 80  20 77 69 6d 70 25 21 31  |vehan% . wimp%!1|
00005e30  36 3d 32 20 f2 6f 6b 0d  19 82 30 e7 20 77 69 6d  |6=2 .ok...0. wim|
00005e40  70 25 21 38 3d 32 20 80  20 77 69 6d 70 25 21 31  |p%!8=2 . wimp%!1|
00005e50  32 3d 6f 70 74 68 61 6e  25 20 73 3d 30 3a f2 6d  |2=opthan% s=0:.m|
00005e60  61 6b 65 6d 65 6e 75 0d  19 8c 2b e7 20 77 69 6d  |akemenu...+. wim|
00005e70  70 25 21 31 32 3d 2d 32  20 80 20 77 69 6d 70 25  |p%!12=-2 . wimp%|
00005e80  21 38 3d 32 20 73 3d 31  3a f2 6d 61 6b 65 6d 65  |!8=2 s=1:.makeme|
00005e90  6e 75 0d 19 96 35 e7 20  77 69 6d 70 25 21 38 3d  |nu...5. wimp%!8=|
00005ea0  32 20 80 20 77 69 6d 70  25 21 31 32 3d 50 72 6f  |2 . wimp%!12=Pro|
00005eb0  67 72 65 73 73 68 61 6e  25 20 73 3d 33 3a f2 6d  |gresshan% s=3:.m|
00005ec0  61 6b 65 6d 65 6e 75 0d  19 a0 34 e7 20 77 69 6d  |akemenu...4. wim|
00005ed0  70 25 21 38 3d 32 20 80  20 77 69 6d 70 25 21 31  |p%!8=2 . wimp%!1|
00005ee0  32 3d 50 72 65 76 69 65  77 68 61 6e 25 20 73 3d  |2=Previewhan% s=|
00005ef0  34 3a f2 6d 61 6b 65 6d  65 6e 75 0d 19 aa 2a e7  |4:.makemenu...*.|
00005f00  20 77 69 6d 70 25 21 38  3d 34 20 80 20 77 69 6d  | wimp%!8=4 . wim|
00005f10  70 25 21 31 32 3d 2d 32  20 c8 8e 20 61 63 74 69  |p%!12=-2 .. acti|
00005f20  76 65 25 20 ca 0d 19 b4  5f c9 20 30 20 3a 20 77  |ve% ...._. 0 : w|
00005f30  69 6d 70 25 21 30 3d 6f  70 74 68 61 6e 25 3a c8  |imp%!0=opthan%:.|
00005f40  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
00005f50  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 3a 77 69  |State",,wimp%:wi|
00005f60  6d 70 25 21 32 38 3d 2d  31 3a c8 99 22 57 69 6d  |mp%!28=-1:.."Wim|
00005f70  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 77  |p_OpenWindow",,w|
00005f80  69 6d 70 25 0d 19 be 16  c9 20 31 20 3a 20 f2 70  |imp%..... 1 : .p|
00005f90  72 65 76 69 65 77 74 65  78 74 0d 19 c8 66 c9 20  |reviewtext...f. |
00005fa0  32 2c 35 20 3a 20 77 69  6d 70 25 21 30 3d 50 72  |2,5 : wimp%!0=Pr|
00005fb0  6f 67 72 65 73 73 68 61  6e 25 3a c8 99 22 57 69  |ogresshan%:.."Wi|
00005fc0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00005fd0  65 22 2c 2c 77 69 6d 70  25 3a 77 69 6d 70 25 21  |e",,wimp%:wimp%!|
00005fe0  32 38 3d 2d 31 3a c8 99  22 57 69 6d 70 5f 4f 70  |28=-1:.."Wimp_Op|
00005ff0  65 6e 57 69 6e 64 6f 77  22 2c 2c 77 69 6d 70 25  |enWindow",,wimp%|
00006000  0d 19 d2 05 cb 0d 19 dc  35 e7 20 77 69 6d 70 25  |........5. wimp%|
00006010  21 31 32 3d 41 64 64 77  6f 72 64 68 61 6e 25 20  |!12=Addwordhan% |
00006020  62 75 74 25 3d 77 69 6d  70 25 21 38 3a c8 8e 20  |but%=wimp%!8:.. |
00006030  77 69 6d 70 25 21 31 36  20 ca 0d 19 e6 2b 20 20  |wimp%!16 ....+  |
00006040  c9 20 35 20 3a 20 f2 75  73 65 3a f2 74 6f 67 67  |. 5 : .use:.togg|
00006050  6c 65 69 63 6f 6e 28 41  64 64 77 6f 72 64 68 61  |leicon(Addwordha|
00006060  6e 25 2c 35 29 0d 19 f0  30 20 20 c9 20 36 20 3a  |n%,5)...0  . 6 :|
00006070  20 f2 73 61 76 65 77 6f  72 64 3a f2 74 6f 67 67  | .saveword:.togg|
00006080  6c 65 69 63 6f 6e 28 41  64 64 77 6f 72 64 68 61  |leicon(Addwordha|
00006090  6e 25 2c 36 29 0d 19 fa  05 cb 0d 1a 04 05 e1 0d  |n%,6)...........|
000060a0  1a 0e 04 0d 1a 18 10 dd  f2 6c 6f 61 64 76 61 6c  |.........loadval|
000060b0  75 65 73 0d 1a 22 85 f2  72 65 61 64 76 61 6c 75  |ues.."..readvalu|
000060c0  65 73 3a f2 73 65 74 69  63 6f 6e 28 6f 70 74 68  |es:.seticon(opth|
000060d0  61 6e 25 2c 36 2c c3 28  53 70 63 25 29 29 3a f2  |an%,6,.(Spc%)):.|
000060e0  73 65 74 69 63 6f 6e 28  6f 70 74 68 61 6e 25 2c  |seticon(opthan%,|
000060f0  31 30 2c c3 28 53 70 63  32 25 29 29 3a f2 73 65  |10,.(Spc2%)):.se|
00006100  74 69 63 6f 6e 28 6f 70  74 68 61 6e 25 2c 32 36  |ticon(opthan%,26|
00006110  2c c3 28 53 70 63 33 25  29 29 3a f2 73 65 74 69  |,.(Spc3%)):.seti|
00006120  63 6f 6e 28 6f 70 74 68  61 6e 25 2c 32 39 2c c3  |con(opthan%,29,.|
00006130  28 53 70 63 34 25 29 29  0d 1a 2c 05 e1 0d 1a 36  |(Spc4%))..,....6|
00006140  04 0d 1a 40 0d dd f2 64  65 66 61 75 6c 74 0d 1a  |...@...default..|
00006150  4a a9 63 25 3d 63 61 73  65 25 3a 53 70 63 25 3d  |J.c%=case%:Spc%=|
00006160  32 3a 53 70 63 32 25 3d  31 3a 53 70 63 33 25 3d  |2:Spc2%=1:Spc3%=|
00006170  32 3a 53 70 63 34 25 3d  31 3a 63 61 73 65 25 3d  |2:Spc4%=1:case%=|
00006180  31 3a f2 73 65 74 69 63  6f 6e 28 6f 70 74 68 61  |1:.seticon(optha|
00006190  6e 25 2c 36 2c c3 28 53  70 63 25 29 29 3a f2 73  |n%,6,.(Spc%)):.s|
000061a0  65 74 69 63 6f 6e 28 6f  70 74 68 61 6e 25 2c 31  |eticon(opthan%,1|
000061b0  30 2c c3 28 53 70 63 32  25 29 29 3a f2 73 65 74  |0,.(Spc2%)):.set|
000061c0  69 63 6f 6e 28 6f 70 74  68 61 6e 25 2c 32 36 2c  |icon(opthan%,26,|
000061d0  c3 28 53 70 63 33 25 29  29 3a f2 73 65 74 69 63  |.(Spc3%)):.setic|
000061e0  6f 6e 28 6f 70 74 68 61  6e 25 2c 32 39 2c c3 28  |on(opthan%,29,.(|
000061f0  53 70 63 34 25 29 29 0d  1a 54 27 e7 20 63 25 3c  |Spc4%))..T'. c%<|
00006200  3e 63 61 73 65 25 20 f2  74 6f 67 67 6c 65 69 63  |>case% .toggleic|
00006210  6f 6e 28 6f 70 74 68 61  6e 25 2c 31 36 29 0d 1a  |on(opthan%,16)..|
00006220  5e 05 e1 0d 1a 68 04 0d  1a 72 0e dd f2 6d 61 6b  |^....h...r...mak|
00006230  65 6d 65 6e 75 0d 1a 7c  18 24 6d 65 6e 75 25 3d  |emenu..|.$menu%=|
00006240  22 54 65 78 74 43 68 65  63 6b 65 72 22 0d 1a 86  |"TextChecker"...|
00006250  0e 6d 65 6e 75 25 3f 31  32 3d 37 0d 1a 90 0e 6d  |.menu%?12=7....m|
00006260  65 6e 75 25 3f 31 33 3d  32 0d 1a 9a 0e 6d 65 6e  |enu%?13=2....men|
00006270  75 25 3f 31 34 3d 37 0d  1a a4 0e 6d 65 6e 75 25  |u%?14=7....menu%|
00006280  3f 31 35 3d 30 0d 1a ae  10 6d 65 6e 75 25 21 31  |?15=0....menu%!1|
00006290  36 3d 32 30 30 0d 1a b8  0f 6d 65 6e 75 25 21 32  |6=200....menu%!2|
000062a0  30 3d 34 34 0d 1a c2 0e  6d 65 6e 75 25 21 32 34  |0=44....menu%!24|
000062b0  3d 30 0d 1a cc 0e 6d 65  6e 75 25 21 32 38 3d 32  |=0....menu%!28=2|
000062c0  0d 1a d6 16 6d 65 6e 75  25 21 33 32 3d 6d 65 6e  |....menu%!32=men|
000062d0  75 25 2b 31 37 32 0d 1a  e0 16 6d 65 6e 75 25 21  |u%+172....menu%!|
000062e0  33 36 3d 26 30 37 30 30  30 30 32 31 0d 1a ea 16  |36=&07000021....|
000062f0  24 28 6d 65 6e 75 25 2b  34 30 29 3d 22 49 6e 66  |$(menu%+40)="Inf|
00006300  6f 22 0d 1a f4 0b e7 20  73 3d 33 20 8c 0d 1a fe  |o"..... s=3 ....|
00006310  1b 6d 65 6e 75 25 21 31  36 3d 31 35 30 3a 6d 65  |.menu%!16=150:me|
00006320  6e 75 25 21 32 38 3d 30  0d 1b 08 41 6d 65 6e 75  |nu%!28=0...Amenu|
00006330  25 21 35 32 3d 30 3a 6d  65 6e 75 25 21 35 36 3d  |%!52=0:menu%!56=|
00006340  2d 31 3a 6d 65 6e 75 25  21 36 30 3d 26 30 37 30  |-1:menu%!60=&070|
00006350  30 30 30 32 31 3a 24 28  6d 65 6e 75 25 2b 36 34  |00021:$(menu%+64|
00006360  29 3d 22 41 62 6f 72 74  22 0d 1b 12 42 6d 65 6e  |)="Abort"...Bmen|
00006370  75 25 21 37 36 3d 26 38  30 3a 6d 65 6e 75 25 21  |u%!76=&80:menu%!|
00006380  38 30 3d 2d 31 3a 6d 65  6e 75 25 21 38 34 3d 26  |80=-1:menu%!84=&|
00006390  30 37 30 30 30 30 32 31  3a 24 28 6d 65 6e 75 25  |07000021:$(menu%|
000063a0  2b 38 38 29 3d 22 51 75  69 74 22 0d 1b 1c 05 cd  |+88)="Quit".....|
000063b0  0d 1b 26 0b e7 20 73 3d  34 20 8c 0d 1b 30 1b 6d  |..&.. s=4 ...0.m|
000063c0  65 6e 75 25 21 31 36 3d  31 37 35 3a 6d 65 6e 75  |enu%!16=175:menu|
000063d0  25 21 32 38 3d 30 0d 1b  3a 45 6d 65 6e 75 25 21  |%!28=0..:Emenu%!|
000063e0  35 32 3d 30 3a 6d 65 6e  75 25 21 35 36 3d 2d 31  |52=0:menu%!56=-1|
000063f0  3a 6d 65 6e 75 25 21 36  30 3d 26 30 37 30 30 30  |:menu%!60=&07000|
00006400  30 32 31 3a 24 28 6d 65  6e 75 25 2b 36 34 29 3d  |021:$(menu%+64)=|
00006410  22 52 65 70 72 6f 63 65  73 73 22 0d 1b 44 42 6d  |"Reprocess"..DBm|
00006420  65 6e 75 25 21 37 36 3d  26 38 30 3a 6d 65 6e 75  |enu%!76=&80:menu|
00006430  25 21 38 30 3d 2d 31 3a  6d 65 6e 75 25 21 38 34  |%!80=-1:menu%!84|
00006440  3d 26 30 37 30 30 30 30  32 31 3a 24 28 6d 65 6e  |=&07000021:$(men|
00006450  75 25 2b 38 38 29 3d 22  51 75 69 74 22 0d 1b 4e  |u%+88)="Quit"..N|
00006460  05 cd 0d 1b 58 13 e7 20  73 3c 3e 33 20 80 20 73  |....X.. s<>3 . s|
00006470  3c 3e 34 20 8c 0d 1b 62  0e 6d 65 6e 75 25 21 35  |<>4 ...b.menu%!5|
00006480  32 3d 30 0d 1b 6c 2a e7  20 73 3d 31 20 6d 65 6e  |2=0..l*. s=1 men|
00006490  75 25 21 35 36 3d 2d 31  20 8b 20 6d 65 6e 75 25  |u%!56=-1 . menu%|
000064a0  21 35 36 3d 6d 65 6e 75  25 2b 32 34 38 0d 1b 76  |!56=menu%+248..v|
000064b0  43 e7 20 61 63 74 69 76  65 25 3d 32 20 84 20 61  |C. active%=2 . a|
000064c0  63 74 69 76 65 25 3d 35  20 6d 65 6e 75 25 21 36  |ctive%=5 menu%!6|
000064d0  30 3d 26 30 37 34 30 30  30 32 31 20 8b 20 6d 65  |0=&07400021 . me|
000064e0  6e 75 25 21 36 30 3d 26  30 37 30 30 30 30 32 31  |nu%!60=&07000021|
000064f0  0d 1b 80 3a e7 20 73 3d  30 20 24 28 6d 65 6e 75  |...:. s=0 $(menu|
00006500  25 2b 36 34 29 3d 22 4f  70 74 69 6f 6e 73 22 20  |%+64)="Options" |
00006510  8b 20 24 28 6d 65 6e 75  25 2b 36 34 29 3d 22 4f  |. $(menu%+64)="O|
00006520  70 74 69 6f 6e 73 2e 2e  2e 22 0d 1b 8a 0e 6d 65  |ptions..."....me|
00006530  6e 75 25 21 37 36 3d 30  0d 1b 94 18 6d 65 6e 75  |nu%!76=0....menu|
00006540  25 21 38 30 3d 41 64 64  77 6f 72 64 68 61 6e 25  |%!80=Addwordhan%|
00006550  0d 1b 9e 16 6d 65 6e 75  25 21 38 34 3d 26 30 37  |....menu%!84=&07|
00006560  30 30 30 30 32 31 0d 1b  a8 1a 24 28 6d 65 6e 75  |000021....$(menu|
00006570  25 2b 38 38 29 3d 22 41  64 64 20 77 6f 72 64 22  |%+88)="Add word"|
00006580  0d 1b b2 0f 6d 65 6e 75  25 21 31 30 30 3d 30 0d  |....menu%!100=0.|
00006590  1b bc 10 6d 65 6e 75 25  21 31 30 34 3d 2d 31 0d  |...menu%!104=-1.|
000065a0  1b c6 39 e7 20 61 63 74  69 76 65 25 3d 31 20 6d  |..9. active%=1 m|
000065b0  65 6e 75 25 21 31 30 38  3d 26 30 37 30 30 30 30  |enu%!108=&070000|
000065c0  32 31 20 8b 20 6d 65 6e  75 25 21 31 30 38 3d 26  |21 . menu%!108=&|
000065d0  30 37 34 30 30 30 32 31  0d 1b d0 1f 24 28 6d 65  |07400021....$(me|
000065e0  6e 75 25 2b 31 31 32 29  3d 22 50 72 65 76 69 65  |nu%+112)="Previe|
000065f0  77 20 54 65 78 74 22 0d  1b da 2c e7 20 6d 75 6c  |w Text"...,. mul|
00006600  74 69 74 61 73 6b 25 3d  31 20 6d 65 6e 75 25 21  |titask%=1 menu%!|
00006610  31 32 34 3d 33 20 8b 20  6d 65 6e 75 25 21 31 32  |124=3 . menu%!12|
00006620  34 3d 32 0d 1b e4 10 6d  65 6e 75 25 21 31 32 38  |4=2....menu%!128|
00006630  3d 2d 31 0d 1b ee 17 6d  65 6e 75 25 21 31 33 32  |=-1....menu%!132|
00006640  3d 26 30 37 30 30 30 30  32 31 0d 1b f8 1c 24 28  |=&07000021....$(|
00006650  6d 65 6e 75 25 2b 31 33  36 29 3d 22 4d 75 6c 74  |menu%+136)="Mult|
00006660  69 74 61 73 6b 22 0d 1c  02 11 6d 65 6e 75 25 21  |itask"....menu%!|
00006670  31 34 38 3d 26 38 30 0d  1c 0c 10 6d 65 6e 75 25  |148=&80....menu%|
00006680  21 31 35 32 3d 2d 31 0d  1c 16 17 6d 65 6e 75 25  |!152=-1....menu%|
00006690  21 31 35 36 3d 26 30 37  30 30 30 30 32 31 0d 1c  |!156=&07000021..|
000066a0  20 17 24 28 6d 65 6e 75  25 2b 31 36 30 29 3d 22  | .$(menu%+160)="|
000066b0  51 75 69 74 22 0d 1c 2a  05 cd 0d 1c 34 17 24 28  |Quit"..*....4.$(|
000066c0  6d 65 6e 75 25 2b 31 37  32 29 3d 22 49 6e 66 6f  |menu%+172)="Info|
000066d0  22 0d 1c 3e 0f 6d 65 6e  75 25 3f 31 38 34 3d 37  |"..>.menu%?184=7|
000066e0  0d 1c 48 0f 6d 65 6e 75  25 3f 31 38 35 3d 32 0d  |..H.menu%?185=2.|
000066f0  1c 52 0f 6d 65 6e 75 25  3f 31 38 36 3d 37 0d 1c  |.R.menu%?186=7..|
00006700  5c 0f 6d 65 6e 75 25 3f  31 38 37 3d 30 0d 1c 66  |\.menu%?187=0..f|
00006710  11 6d 65 6e 75 25 21 31  38 38 3d 31 35 30 0d 1c  |.menu%!188=150..|
00006720  70 10 6d 65 6e 75 25 21  31 39 32 3d 34 34 0d 1c  |p.menu%!192=44..|
00006730  7a 0f 6d 65 6e 75 25 21  31 39 36 3d 30 0d 1c 84  |z.menu%!196=0...|
00006740  0f 6d 65 6e 75 25 21 32  30 30 3d 30 0d 1c 8e 14  |.menu%!200=0....|
00006750  6d 65 6e 75 25 21 32 30  34 3d 69 6e 68 61 6e 25  |menu%!204=inhan%|
00006760  0d 1c 98 17 6d 65 6e 75  25 21 32 30 38 3d 26 30  |....menu%!208=&0|
00006770  37 30 30 30 30 32 31 0d  1c a2 1a 24 28 6d 65 6e  |7000021....$(men|
00006780  75 25 2b 32 31 32 29 3d  22 50 72 6f 67 72 61 6d  |u%+212)="Program|
00006790  22 0d 1c ac 11 6d 65 6e  75 25 21 32 32 34 3d 26  |"....menu%!224=&|
000067a0  38 30 0d 1c b6 1a 6d 65  6e 75 25 21 32 32 38 3d  |80....menu%!228=|
000067b0  49 6e 66 6f 46 69 6c 65  68 61 6e 25 0d 1c c0 17  |InfoFilehan%....|
000067c0  6d 65 6e 75 25 21 32 33  32 3d 26 30 37 30 30 30  |menu%!232=&07000|
000067d0  30 32 31 0d 1c ca 23 e7  20 61 63 74 69 76 65 25  |021...#. active%|
000067e0  3d 30 20 6d 65 6e 75 25  21 32 33 32 3d 26 30 37  |=0 menu%!232=&07|
000067f0  34 30 30 30 32 31 0d 1c  d4 17 24 28 6d 65 6e 75  |400021....$(menu|
00006800  25 2b 32 33 36 29 3d 22  46 69 6c 65 22 0d 1c de  |%+236)="File"...|
00006810  0b e7 20 73 3d 30 20 8c  0d 1c e8 1c 20 20 24 28  |.. s=0 .....  $(|
00006820  6d 65 6e 75 25 2b 32 34  38 29 3d 22 4f 70 74 69  |menu%+248)="Opti|
00006830  6f 6e 73 22 0d 1c f2 11  20 20 6d 65 6e 75 25 3f  |ons"....  menu%?|
00006840  32 36 30 3d 37 0d 1c fc  11 20 20 6d 65 6e 75 25  |260=7....  menu%|
00006850  3f 32 36 31 3d 32 0d 1d  06 11 20 20 6d 65 6e 75  |?261=2....  menu|
00006860  25 3f 32 36 32 3d 37 0d  1d 10 11 20 20 6d 65 6e  |%?262=7....  men|
00006870  75 25 3f 32 36 33 3d 30  0d 1d 1a 13 20 20 6d 65  |u%?263=0....  me|
00006880  6e 75 25 21 32 36 34 3d  31 32 30 0d 1d 24 12 20  |nu%!264=120..$. |
00006890  20 6d 65 6e 75 25 21 32  36 38 3d 34 34 0d 1d 2e  | menu%!268=44...|
000068a0  11 20 20 6d 65 6e 75 25  21 32 37 32 3d 30 0d 1d  |.  menu%!272=0..|
000068b0  38 11 20 20 6d 65 6e 75  25 21 32 37 36 3d 30 0d  |8.  menu%!276=0.|
000068c0  1d 42 12 20 20 6d 65 6e  75 25 21 32 38 30 3d 2d  |.B.  menu%!280=-|
000068d0  31 0d 1d 4c 19 20 20 6d  65 6e 75 25 21 32 38 34  |1..L.  menu%!284|
000068e0  3d 26 30 37 30 30 30 30  32 31 0d 1d 56 19 20 20  |=&07000021..V.  |
000068f0  24 28 6d 65 6e 75 25 2b  32 38 38 29 3d 22 4c 6f  |$(menu%+288)="Lo|
00006900  61 64 22 0d 1d 60 11 20  20 6d 65 6e 75 25 21 33  |ad"..`.  menu%!3|
00006910  30 30 3d 32 0d 1d 6a 12  20 20 6d 65 6e 75 25 21  |00=2..j.  menu%!|
00006920  33 30 34 3d 2d 31 0d 1d  74 19 20 20 6d 65 6e 75  |304=-1..t.  menu|
00006930  25 21 33 30 38 3d 26 30  37 30 30 30 30 32 31 0d  |%!308=&07000021.|
00006940  1d 7e 19 20 20 24 28 6d  65 6e 75 25 2b 33 31 32  |.~.  $(menu%+312|
00006950  29 3d 22 53 61 76 65 22  0d 1d 88 13 20 20 6d 65  |)="Save"....  me|
00006960  6e 75 25 21 33 32 34 3d  26 38 30 0d 1d 92 12 20  |nu%!324=&80.... |
00006970  20 6d 65 6e 75 25 21 33  32 38 3d 2d 31 0d 1d 9c  | menu%!328=-1...|
00006980  19 20 20 6d 65 6e 75 25  21 33 33 32 3d 26 30 37  |.  menu%!332=&07|
00006990  30 30 30 30 32 31 0d 1d  a6 1c 20 20 24 28 6d 65  |000021....  $(me|
000069a0  6e 75 25 2b 33 33 36 29  3d 22 44 65 66 61 75 6c  |nu%+336)="Defaul|
000069b0  74 22 0d 1d b0 05 cd 0d  1d ba 21 6d 6f 75 73 78  |t"........!mousx|
000069c0  25 3d 77 69 6d 70 25 21  30 3a 6d 6f 75 73 79 25  |%=wimp%!0:mousy%|
000069d0  3d 77 69 6d 70 25 21 34  0d 1d c4 0b 69 63 6f 6e  |=wimp%!4....icon|
000069e0  25 3d 73 0d 1d ce 38 e7  20 73 3d 30 20 c8 99 20  |%=s...8. s=0 .. |
000069f0  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00006a00  22 2c 2c 6d 65 6e 75 25  2c 77 69 6d 70 25 21 30  |",,menu%,wimp%!0|
00006a10  2d 37 30 2c 77 69 6d 70  25 21 34 0d 1d d8 34 e7  |-70,wimp%!4...4.|
00006a20  20 73 3d 31 20 c8 99 20  22 57 69 6d 70 5f 43 72  | s=1 .. "Wimp_Cr|
00006a30  65 61 74 65 4d 65 6e 75  22 2c 2c 6d 65 6e 75 25  |eateMenu",,menu%|
00006a40  2c 77 69 6d 70 25 21 30  2d 36 38 2c 34 31 30 0d  |,wimp%!0-68,410.|
00006a50  1d e2 38 e7 20 73 3d 33  20 c8 99 20 22 57 69 6d  |..8. s=3 .. "Wim|
00006a60  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 6d  |p_CreateMenu",,m|
00006a70  65 6e 75 25 2c 77 69 6d  70 25 21 30 2d 37 30 2c  |enu%,wimp%!0-70,|
00006a80  77 69 6d 70 25 21 34 0d  1d ec 38 e7 20 73 3d 34  |wimp%!4...8. s=4|
00006a90  20 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  | .. "Wimp_Create|
00006aa0  4d 65 6e 75 22 2c 2c 6d  65 6e 75 25 2c 77 69 6d  |Menu",,menu%,wim|
00006ab0  70 25 21 30 2d 37 30 2c  77 69 6d 70 25 21 34 0d  |p%!0-70,wimp%!4.|
00006ac0  1d f6 05 e1 0d 1e 00 04  0d 1e 0a 0f dd f2 70 72  |..............pr|
00006ad0  6f 63 65 73 73 6e 6f 0d  1e 14 15 c8 99 20 22 48  |ocessno...... "H|
00006ae0  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 1e 1e 18  |ourglass_On"....|
00006af0  72 65 61 6c 5f 6c 65 6e  67 74 68 25 3d 6c 65 6e  |real_length%=len|
00006b00  67 74 68 25 0d 1e 28 1b  e7 20 6f 6c 64 63 61 73  |gth%..(.. oldcas|
00006b10  65 25 3d 31 20 f2 6c 6f  77 65 72 63 61 73 65 0d  |e%=1 .lowercase.|
00006b20  1e 32 17 70 65 72 63 65  6e 74 3d 31 30 30 2f 6c  |.2.percent=100/l|
00006b30  65 6e 67 74 68 25 0d 1e  3c 1f e7 20 63 61 73 65  |ength%..<.. case|
00006b40  25 3d 31 20 70 65 72 63  65 6e 74 3d 70 65 72 63  |%=1 percent=perc|
00006b50  65 6e 74 2f 32 0d 1e 46  1e 6c 65 6e 67 74 68 25  |ent/2..F.length%|
00006b60  3d 30 3a 70 74 72 25 3d  30 3a 6f 6c 64 70 74 72  |=0:ptr%=0:oldptr|
00006b70  25 3d 30 0d 1e 50 1b e7  20 66 69 6c 74 79 70 65  |%=0..P.. filtype|
00006b80  25 3d 26 41 46 38 20 f2  73 65 61 72 63 68 0d 1e  |%=&AF8 .search..|
00006b90  5a 1c e7 20 66 69 6c 74  79 70 65 25 3c 3e 26 44  |Z.. filtype%<>&D|
00006ba0  44 45 20 f2 69 6e 64 65  6e 74 0d 1e 64 0b f2 73  |DE .indent..d..s|
00006bb0  70 61 63 65 73 0d 1e 6e  32 e7 20 63 61 73 65 25  |paces..n2. case%|
00006bc0  3d 31 20 70 74 72 25 3d  30 3a 70 65 72 63 65 6e  |=1 ptr%=0:percen|
00006bd0  74 3d 28 31 30 30 2f 6c  65 6e 67 74 68 25 29 2f  |t=(100/length%)/|
00006be0  32 3a f2 63 61 70 73 0d  1e 78 16 c8 99 20 22 48  |2:.caps..x... "H|
00006bf0  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 0d 1e 82  |ourglass_Off"...|
00006c00  05 e1 0d 1e 8c 04 0d 1e  96 10 dd f2 70 72 6f 63  |............proc|
00006c10  65 73 73 79 65 73 0d 1e  a0 2e 72 65 61 6c 5f 6c  |essyes....real_l|
00006c20  65 6e 67 74 68 25 3d 6c  65 6e 67 74 68 25 3a 70  |ength%=length%:p|
00006c30  65 72 63 65 6e 74 3d 28  31 30 30 2f 6c 65 6e 67  |ercent=(100/leng|
00006c40  74 68 25 29 0d 1e aa 3e  e7 20 6f 6c 64 63 61 73  |th%)...>. oldcas|
00006c50  65 25 3d 31 20 c8 99 22  48 6f 75 72 67 6c 61 73  |e%=1 .."Hourglas|
00006c60  73 5f 4f 6e 22 3a f2 6c  6f 77 65 72 63 61 73 65  |s_On":.lowercase|
00006c70  3a c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |:.."Hourglass_Of|
00006c80  66 22 0d 1e b4 1f e7 20  63 61 73 65 25 3d 31 20  |f"..... case%=1 |
00006c90  70 65 72 63 65 6e 74 3d  70 65 72 63 65 6e 74 2f  |percent=percent/|
00006ca0  32 0d 1e be 1e 6c 65 6e  67 74 68 25 3d 30 3a 70  |2....length%=0:p|
00006cb0  74 72 25 3d 30 3a 6f 6c  64 70 74 72 25 3d 30 0d  |tr%=0:oldptr%=0.|
00006cc0  1e c8 1b e7 20 66 69 6c  74 79 70 65 25 3d 26 41  |.... filtype%=&A|
00006cd0  46 38 20 f2 73 65 61 72  63 68 0d 1e d2 1c e7 20  |F8 .search..... |
00006ce0  66 69 6c 74 79 70 65 25  3c 3e 26 44 44 45 20 f2  |filtype%<>&DDE .|
00006cf0  69 6e 64 65 6e 74 0d 1e  dc 0b f2 73 70 61 63 65  |indent.....space|
00006d00  73 0d 1e e6 05 e1 0d 1e  f0 04 0d 1e fa 0f dd f2  |s...............|
00006d10  6e 65 77 73 65 61 72 63  68 0d 1f 04 3f c8 95 20  |newsearch...?.. |
00006d20  6e 65 77 66 69 6c 65 25  3f 70 74 72 25 3c 35 38  |newfile%?ptr%<58|
00006d30  20 84 20 6e 65 77 66 69  6c 65 25 3f 70 74 72 25  | . newfile%?ptr%|
00006d40  3e 31 32 36 20 80 20 6e  65 77 66 69 6c 65 25 3f  |>126 . newfile%?|
00006d50  70 74 72 25 3c 31 36 30  0d 1f 0e 0b 70 74 72 25  |ptr%<160....ptr%|
00006d60  2b 3d 31 0d 1f 18 05 ce  0d 1f 22 5d e7 20 6e 65  |+=1......."]. ne|
00006d70  77 66 69 6c 65 25 3f 28  70 74 72 25 2b 31 29 3c  |wfile%?(ptr%+1)<|
00006d80  35 38 20 84 20 6e 65 77  66 69 6c 65 25 3f 28 70  |58 . newfile%?(p|
00006d90  74 72 25 2b 31 29 3e 31  32 36 20 80 20 6e 65 77  |tr%+1)>126 . new|
00006da0  66 69 6c 65 25 3f 28 70  74 72 25 2b 31 29 3c 31  |file%?(ptr%+1)<1|
00006db0  36 30 20 70 74 72 25 2b  3d 31 3a f2 6e 65 77 73  |60 ptr%+=1:.news|
00006dc0  65 61 72 63 68 0d 1f 2c  05 e1 0d 1f 36 04 0d 1f  |earch..,....6...|
00006dd0  40 0c dd f2 73 65 61 72  63 68 0d 1f 4a 3f c8 95  |@...search..J?..|
00006de0  20 66 69 6c 65 25 3f 6f  6c 64 70 74 72 25 3c 35  | file%?oldptr%<5|
00006df0  38 20 84 20 66 69 6c 65  25 3f 6f 6c 64 70 74 72  |8 . file%?oldptr|
00006e00  25 3e 31 32 36 20 80 20  66 69 6c 65 25 3f 6f 6c  |%>126 . file%?ol|
00006e10  64 70 74 72 25 3c 31 36  30 0d 1f 54 3d 6e 65 77  |dptr%<160..T=new|
00006e20  66 69 6c 65 25 3f 70 74  72 25 3d 66 69 6c 65 25  |file%?ptr%=file%|
00006e30  3f 6f 6c 64 70 74 72 25  3a 6c 65 6e 67 74 68 25  |?oldptr%:length%|
00006e40  2b 3d 31 3a 70 74 72 25  2b 3d 31 3a 6f 6c 64 70  |+=1:ptr%+=1:oldp|
00006e50  74 72 25 2b 3d 31 0d 1f  5e 05 ce 0d 1f 68 8c e7  |tr%+=1..^....h..|
00006e60  20 66 69 6c 65 25 3f 28  6f 6c 64 70 74 72 25 2b  | file%?(oldptr%+|
00006e70  31 29 3c 35 38 20 84 20  66 69 6c 65 25 3f 28 6f  |1)<58 . file%?(o|
00006e80  6c 64 70 74 72 25 2b 31  29 3e 31 32 36 20 80 20  |ldptr%+1)>126 . |
00006e90  66 69 6c 65 25 3f 28 6f  6c 64 70 74 72 25 2b 31  |file%?(oldptr%+1|
00006ea0  29 3c 31 36 30 20 6e 65  77 66 69 6c 65 25 3f 70  |)<160 newfile%?p|
00006eb0  74 72 25 3d 66 69 6c 65  25 3f 6f 6c 64 70 74 72  |tr%=file%?oldptr|
00006ec0  25 3a 6c 65 6e 67 74 68  25 2b 3d 31 3a 70 74 72  |%:length%+=1:ptr|
00006ed0  25 2b 3d 31 3a 6f 6c 64  70 74 72 25 2b 3d 31 3a  |%+=1:oldptr%+=1:|
00006ee0  f2 73 65 61 72 63 68 0d  1f 72 05 e1 0d 1f 7c 04  |.search..r....|.|
00006ef0  0d 1f 86 0c dd f2 73 70  61 63 65 73 0d 1f 90 1a  |......spaces....|
00006f00  76 61 6c 75 65 25 3d 70  65 72 63 65 6e 74 2a 6f  |value%=percent*o|
00006f10  6c 64 70 74 72 25 0d 1f  9a 05 f5 0d 1f a4 32 e7  |ldptr%........2.|
00006f20  20 66 69 6c 74 79 70 65  25 3d 26 44 44 45 20 80  | filtype%=&DDE .|
00006f30  20 66 69 6c 65 25 3f 6f  6c 64 70 74 72 25 3d 33  | file%?oldptr%=3|
00006f40  37 20 f2 66 6f 72 67 65  74 74 68 69 73 0d 1f ae  |7 .forgetthis...|
00006f50  21 e7 20 66 69 6c 65 25  3f 6f 6c 64 70 74 72 25  |!. file%?oldptr%|
00006f60  3d 73 70 63 63 68 61 72  25 20 f2 73 70 63 0d 1f  |=spcchar% .spc..|
00006f70  b8 30 e7 20 66 69 6c 65  25 3f 6f 6c 64 70 74 72  |.0. file%?oldptr|
00006f80  25 3d 31 30 20 80 20 66  69 6c 74 79 70 65 25 3c  |%=10 . filtype%<|
00006f90  3e 26 44 44 45 20 f2 6e  65 77 70 61 72 61 0d 1f  |>&DDE .newpara..|
00006fa0  c2 23 e7 20 66 69 6c 65  25 3f 6f 6c 64 70 74 72  |.#. file%?oldptr|
00006fb0  25 3d 34 36 20 f2 6e 65  77 73 65 6e 74 65 6e 63  |%=46 .newsentenc|
00006fc0  65 0d 1f cc 1d e7 20 66  69 6c 65 25 3f 6f 6c 64  |e..... file%?old|
00006fd0  70 74 72 25 3d 34 34 20  f2 63 6f 6d 6d 61 0d 1f  |ptr%=44 .comma..|
00006fe0  d6 23 e7 20 66 69 6c 65  25 3f 6f 6c 64 70 74 72  |.#. file%?oldptr|
00006ff0  25 3d 33 33 20 f2 65 6e  64 73 65 6e 74 28 33 33  |%=33 .endsent(33|
00007000  29 0d 1f e0 23 e7 20 66  69 6c 65 25 3f 6f 6c 64  |)...#. file%?old|
00007010  70 74 72 25 3d 36 33 20  f2 65 6e 64 73 65 6e 74  |ptr%=63 .endsent|
00007020  28 36 33 29 0d 1f ea 48  e7 20 66 69 6c 65 25 3f  |(63)...H. file%?|
00007030  6f 6c 64 70 74 72 25 3d  35 38 20 80 20 66 69 6c  |oldptr%=58 . fil|
00007040  65 25 3f 28 6f 6c 64 70  74 72 25 2b 31 29 3d 31  |e%?(oldptr%+1)=1|
00007050  30 20 80 20 66 69 6c 74  79 70 65 25 3d 26 44 44  |0 . filtype%=&DD|
00007060  45 20 f2 63 6f 6c 6f 6e  28 35 38 29 0d 1f f4 48  |E .colon(58)...H|
00007070  e7 20 66 69 6c 65 25 3f  6f 6c 64 70 74 72 25 3d  |. file%?oldptr%=|
00007080  35 39 20 80 20 66 69 6c  65 25 3f 28 6f 6c 64 70  |59 . file%?(oldp|
00007090  74 72 25 2b 31 29 3d 31  30 20 80 20 66 69 6c 74  |tr%+1)=10 . filt|
000070a0  79 70 65 25 3d 26 44 44  45 20 f2 63 6f 6c 6f 6e  |ype%=&DDE .colon|
000070b0  28 35 39 29 0d 1f fe 49  e7 20 6f 6c 64 70 74 72  |(59)...I. oldptr|
000070c0  25 3c 72 65 61 6c 5f 6c  65 6e 67 74 68 25 20 6e  |%<real_length% n|
000070d0  65 77 66 69 6c 65 25 3f  70 74 72 25 3d 66 69 6c  |ewfile%?ptr%=fil|
000070e0  65 25 3f 6f 6c 64 70 74  72 25 3a 6c 65 6e 67 74  |e%?oldptr%:lengt|
000070f0  68 25 2b 3d 31 3a 70 74  72 25 2b 3d 31 0d 20 08  |h%+=1:ptr%+=1. .|
00007100  0e 6f 6c 64 70 74 72 25  2b 3d 31 0d 20 12 39 e7  |.oldptr%+=1. .9.|
00007110  20 61 63 74 69 76 65 25  3d 33 20 c8 99 20 22 48  | active%=3 .. "H|
00007120  6f 75 72 67 6c 61 73 73  5f 50 65 72 63 65 6e 74  |ourglass_Percent|
00007130  61 67 65 22 2c 70 65 72  63 65 6e 74 2a 6f 6c 64  |age",percent*old|
00007140  70 74 72 25 0d 20 1c 26  fd 20 6f 6c 64 70 74 72  |ptr%. .&. oldptr|
00007150  25 3e 72 65 61 6c 5f 6c  65 6e 67 74 68 25 20 84  |%>real_length% .|
00007160  20 61 63 74 69 76 65 25  3d 32 0d 20 26 14 6f 6c  | active%=2. &.ol|
00007170  64 76 61 6c 75 65 25 3d  76 61 6c 75 65 25 0d 20  |dvalue%=value%. |
00007180  30 1a 76 61 6c 75 65 25  3d 70 65 72 63 65 6e 74  |0.value%=percent|
00007190  2a 6f 6c 64 70 74 72 25  0d 20 3a 75 e7 20 61 63  |*oldptr%. :u. ac|
000071a0  74 69 76 65 25 3d 32 20  80 20 6f 6c 64 76 61 6c  |tive%=2 . oldval|
000071b0  75 65 25 3c 3e 76 61 6c  75 65 25 20 f2 73 65 74  |ue%<>value% .set|
000071c0  69 63 6f 6e 28 50 72 6f  67 72 65 73 73 68 61 6e  |icon(Progresshan|
000071d0  25 2c 32 2c c3 28 76 61  6c 75 65 25 29 2b 22 25  |%,2,.(value%)+"%|
000071e0  22 29 3a f2 73 65 74 69  63 6f 6e 28 50 72 6f 67  |"):.seticon(Prog|
000071f0  72 65 73 73 68 61 6e 25  2c 30 2c c3 28 31 30 30  |resshan%,0,.(100|
00007200  2d 76 61 6c 75 65 25 29  2b 22 25 22 29 0d 20 44  |-value%)+"%"). D|
00007210  33 e7 20 61 63 74 69 76  65 25 3d 32 20 f2 73 65  |3. active%=2 .se|
00007220  74 69 63 6f 6e 28 49 6e  66 6f 46 69 6c 65 68 61  |ticon(InfoFileha|
00007230  6e 25 2c 38 2c c3 28 6c  65 6e 67 74 68 25 29 29  |n%,8,.(length%))|
00007240  0d 20 4e 5f e7 20 61 63  74 69 76 65 25 3d 32 20  |. N_. active%=2 |
00007250  80 20 63 61 73 65 25 3d  31 20 80 20 6f 6c 64 70  |. case%=1 . oldp|
00007260  74 72 25 3e 72 65 61 6c  5f 6c 65 6e 67 74 68 25  |tr%>real_length%|
00007270  20 70 74 72 25 3d 30 3a  70 65 72 63 65 6e 74 3d  | ptr%=0:percent=|
00007280  28 31 30 30 2f 6c 65 6e  67 74 68 25 29 2f 32 3a  |(100/length%)/2:|
00007290  61 63 74 69 76 65 25 3d  35 3a f2 63 61 70 73 0d  |active%=5:.caps.|
000072a0  20 58 3a e7 20 61 63 74  69 76 65 25 3d 32 20 80  | X:. active%=2 .|
000072b0  20 63 61 73 65 25 3d 30  20 80 20 6f 6c 64 70 74  | case%=0 . oldpt|
000072c0  72 25 3e 72 65 61 6c 5f  6c 65 6e 67 74 68 25 20  |r%>real_length% |
000072d0  61 63 74 69 76 65 25 3d  36 0d 20 62 05 e1 0d 20  |active%=6. b... |
000072e0  6c 04 0d 20 76 12 dd f2  63 6f 6c 6f 6e 28 61 73  |l.. v...colon(as|
000072f0  63 69 69 29 0d 20 80 35  6e 65 77 66 69 6c 65 25  |cii). .5newfile%|
00007300  3f 70 74 72 25 3d 61 73  63 69 69 3a 6c 65 6e 67  |?ptr%=ascii:leng|
00007310  74 68 25 2b 3d 31 3a 70  74 72 25 2b 3d 31 3a 6f  |th%+=1:ptr%+=1:o|
00007320  6c 64 70 74 72 25 2b 3d  31 0d 20 8a 05 f5 0d 20  |ldptr%+=1. .... |
00007330  94 32 6e 65 77 66 69 6c  65 25 3f 70 74 72 25 3d  |.2newfile%?ptr%=|
00007340  31 30 3a 6c 65 6e 67 74  68 25 2b 3d 31 3a 70 74  |10:length%+=1:pt|
00007350  72 25 2b 3d 31 3a 6f 6c  64 70 74 72 25 2b 3d 31  |r%+=1:oldptr%+=1|
00007360  0d 20 9e 17 fd 20 66 69  6c 65 25 3f 6f 6c 64 70  |. ... file%?oldp|
00007370  74 72 25 3c 3e 31 30 0d  20 a8 0b f2 69 6e 64 65  |tr%<>10. ...inde|
00007380  6e 74 0d 20 b2 05 e1 0d  20 bc 04 0d 20 c6 10 dd  |nt. .... ... ...|
00007390  f2 66 6f 72 67 65 74 74  68 69 73 0d 20 d0 05 f5  |.forgetthis. ...|
000073a0  0d 20 da 1f 6e 65 77 66  69 6c 65 25 3f 70 74 72  |. ..newfile%?ptr|
000073b0  25 3d 66 69 6c 65 25 3f  6f 6c 64 70 74 72 25 0d  |%=file%?oldptr%.|
000073c0  20 e4 21 70 74 72 25 2b  3d 31 3a 6f 6c 64 70 74  | .!ptr%+=1:oldpt|
000073d0  72 25 2b 3d 31 3a 6c 65  6e 67 74 68 25 2b 3d 31  |r%+=1:length%+=1|
000073e0  0d 20 ee 16 fd 20 66 69  6c 65 25 3f 6f 6c 64 70  |. ... file%?oldp|
000073f0  74 72 25 3d 31 30 0d 20  f8 26 e7 20 66 69 6c 65  |tr%=10. .&. file|
00007400  25 3f 28 6f 6c 64 70 74  72 25 2b 31 29 3d 33 37  |%?(oldptr%+1)=37|
00007410  20 f2 66 6f 72 67 65 74  74 68 69 73 0d 21 02 05  | .forgetthis.!..|
00007420  e1 0d 21 0c 04 0d 21 16  0d dd f2 6c 66 6f 72 67  |..!...!....lforg|
00007430  65 74 0d 21 20 05 f5 0d  21 2a 0e 6f 6c 64 70 74  |et.! ...!*.oldpt|
00007440  72 25 2b 3d 31 0d 21 34  16 fd 20 66 69 6c 65 25  |r%+=1.!4.. file%|
00007450  3f 6f 6c 64 70 74 72 25  3d 31 30 0d 21 3e 23 e7  |?oldptr%=10.!>#.|
00007460  20 66 69 6c 65 25 3f 28  6f 6c 64 70 74 72 25 2b  | file%?(oldptr%+|
00007470  31 29 3d 33 37 20 f2 6c  66 6f 72 67 65 74 0d 21  |1)=37 .lforget.!|
00007480  48 05 e1 0d 21 52 04 0d  21 5c 0d dd f2 72 66 6f  |H...!R..!\...rfo|
00007490  72 67 65 74 0d 21 66 05  f5 0d 21 70 0e 6f 6c 64  |rget.!f...!p.old|
000074a0  70 74 72 25 2b 3d 31 0d  21 7a 19 fd 20 6e 65 77  |ptr%+=1.!z.. new|
000074b0  66 69 6c 65 25 3f 6f 6c  64 70 74 72 25 3d 31 30  |file%?oldptr%=10|
000074c0  0d 21 84 23 e7 20 66 69  6c 65 25 3f 28 6f 6c 64  |.!.#. file%?(old|
000074d0  70 74 72 25 2b 31 29 3d  33 37 20 f2 72 66 6f 72  |ptr%+1)=37 .rfor|
000074e0  67 65 74 0d 21 8e 05 e1  0d 21 98 04 0d 21 a2 09  |get.!....!...!..|
000074f0  dd f2 73 70 63 0d 21 ac  28 24 28 6e 65 77 66 69  |..spc.!.($(newfi|
00007500  6c 65 25 2b 70 74 72 25  29 3d c4 53 70 63 32 25  |le%+ptr%)=.Spc2%|
00007510  2c bd 28 73 70 63 63 68  61 72 25 29 29 0d 21 b6  |,.(spcchar%)).!.|
00007520  1e 6c 65 6e 67 74 68 25  2b 3d 53 70 63 32 25 3a  |.length%+=Spc2%:|
00007530  70 74 72 25 2b 3d 53 70  63 32 25 0d 21 c0 1d c8  |ptr%+=Spc2%.!...|
00007540  95 20 66 69 6c 65 25 3f  6f 6c 64 70 74 72 25 3d  |. file%?oldptr%=|
00007550  73 70 63 63 68 61 72 25  0d 21 ca 0e 6f 6c 64 70  |spcchar%.!..oldp|
00007560  74 72 25 2b 3d 31 0d 21  d4 05 ce 0d 21 de 62 e7  |tr%+=1.!....!.b.|
00007570  20 66 69 6c 65 25 3f 6f  6c 64 70 74 72 25 3d 35  | file%?oldptr%=5|
00007580  38 20 84 20 66 69 6c 65  25 3f 6f 6c 64 70 74 72  |8 . file%?oldptr|
00007590  25 3d 35 39 20 70 74 72  25 2d 3d 53 70 63 32 25  |%=59 ptr%-=Spc2%|
000075a0  3a 6c 65 6e 67 74 68 25  2d 3d 53 70 63 32 25 3a  |:length%-=Spc2%:|
000075b0  6e 65 77 66 69 6c 65 25  3f 70 74 72 25 3d 66 69  |newfile%?ptr%=fi|
000075c0  6c 65 25 3f 6f 6c 64 70  74 72 25 3a e1 0d 21 e8  |le%?oldptr%:..!.|
000075d0  6b e7 20 66 69 6c 65 25  3f 28 6f 6c 64 70 74 72  |k. file%?(oldptr|
000075e0  25 2d 31 29 3d 73 70 63  63 68 61 72 25 20 80 20  |%-1)=spcchar% . |
000075f0  66 69 6c 65 25 3f 28 6f  6c 64 70 74 72 25 2b 31  |file%?(oldptr%+1|
00007600  29 3c 3e 73 70 63 63 68  61 72 25 20 80 20 66 69  |)<>spcchar% . fi|
00007610  6c 65 25 3f 28 6f 6c 64  70 74 72 25 2b 31 29 3c  |le%?(oldptr%+1)<|
00007620  3e 33 33 20 80 20 66 69  6c 65 25 3f 6f 6c 64 70  |>33 . file%?oldp|
00007630  74 72 25 3d 33 33 20 e1  0d 21 f2 62 e7 20 66 69  |tr%=33 ..!.b. fi|
00007640  6c 65 25 3f 6f 6c 64 70  74 72 25 3d 33 33 20 84  |le%?oldptr%=33 .|
00007650  20 66 69 6c 65 25 3f 6f  6c 64 70 74 72 25 3d 34  | file%?oldptr%=4|
00007660  34 20 70 74 72 25 2d 3d  53 70 63 32 25 3a 6c 65  |4 ptr%-=Spc2%:le|
00007670  6e 67 74 68 25 2d 3d 53  70 63 32 25 3a 6e 65 77  |ngth%-=Spc2%:new|
00007680  66 69 6c 65 25 3f 70 74  72 25 3d 66 69 6c 65 25  |file%?ptr%=file%|
00007690  3f 6f 6c 64 70 74 72 25  3a e1 0d 21 fc 60 e7 20  |?oldptr%:..!.`. |
000076a0  66 69 6c 65 25 3f 6f 6c  64 70 74 72 25 3d 34 36  |file%?oldptr%=46|
000076b0  20 84 20 66 69 6c 65 25  3f 6f 6c 64 70 74 72 25  | . file%?oldptr%|
000076c0  3d 36 33 20 70 74 72 25  2d 3d 53 70 63 32 25 3a  |=63 ptr%-=Spc2%:|
000076d0  6c 65 6e 67 74 68 25 2d  3d 53 70 63 32 25 3a 6e  |length%-=Spc2%:n|
000076e0  65 77 66 69 6c 65 25 3f  70 74 72 25 3d 66 69 6c  |ewfile%?ptr%=fil|
000076f0  65 25 3f 6f 6c 64 70 74  72 25 0d 22 06 05 e1 0d  |e%?oldptr%."....|
00007700  22 10 04 0d 22 1a 0b dd  f2 73 65 74 61 63 0d 22  |"..."....setac."|
00007710  24 1f e3 20 65 3d 31 20  b8 20 a9 28 61 63 72 24  |$.. e=1 . .(acr$|
00007720  28 61 63 72 6f 6e 79 6d  25 29 29 2d 32 0d 22 2e  |(acronym%))-2.".|
00007730  27 6e 65 77 66 69 6c 65  25 3f 28 70 74 72 25 2b  |'newfile%?(ptr%+|
00007740  65 29 3d 66 69 6c 65 25  3f 28 6f 6c 64 70 74 72  |e)=file%?(oldptr|
00007750  25 2b 65 29 0d 22 38 07  ed 20 65 0d 22 42 57 70  |%+e)."8.. e."BWp|
00007760  74 72 25 2b 3d a9 28 61  63 72 24 28 61 63 72 6f  |tr%+=.(acr$(acro|
00007770  6e 79 6d 25 29 29 2d 31  3a 6f 6c 64 70 74 72 25  |nym%))-1:oldptr%|
00007780  2b 3d a9 28 61 63 72 24  28 61 63 72 6f 6e 79 6d  |+=.(acr$(acronym|
00007790  25 29 29 2d 31 3a 6c 65  6e 67 74 68 25 2b 3d a9  |%))-1:length%+=.|
000077a0  28 61 63 72 24 28 61 63  72 6f 6e 79 6d 25 29 29  |(acr$(acronym%))|
000077b0  2d 31 0d 22 4c 2b e7 20  66 69 6c 65 25 3f 6f 6c  |-1."L+. file%?ol|
000077c0  64 70 74 72 25 3e 33 32  20 80 20 66 69 6c 65 25  |dptr%>32 . file%|
000077d0  3f 6f 6c 64 70 74 72 25  3c 34 38 20 e1 0d 22 56  |?oldptr%<48 .."V|
000077e0  2b e7 20 66 69 6c 65 25  3f 6f 6c 64 70 74 72 25  |+. file%?oldptr%|
000077f0  3e 35 37 20 80 20 66 69  6c 65 25 3f 6f 6c 64 70  |>57 . file%?oldp|
00007800  74 72 25 3c 36 35 20 e1  0d 22 60 2b e7 20 66 69  |tr%<65 .."`+. fi|
00007810  6c 65 25 3f 6f 6c 64 70  74 72 25 3e 39 30 20 80  |le%?oldptr%>90 .|
00007820  20 66 69 6c 65 25 3f 6f  6c 64 70 74 72 25 3c 39  | file%?oldptr%<9|
00007830  37 20 e1 0d 22 6a 2d e7  20 66 69 6c 65 25 3f 6f  |7 .."j-. file%?o|
00007840  6c 64 70 74 72 25 3e 31  32 32 20 80 20 66 69 6c  |ldptr%>122 . fil|
00007850  65 25 3f 6f 6c 64 70 74  72 25 3c 31 39 32 20 e1  |e%?oldptr%<192 .|
00007860  0d 22 74 43 24 28 6e 65  77 66 69 6c 65 25 2b 70  |."tC$(newfile%+p|
00007870  74 72 25 29 3d c4 53 70  63 32 25 2c bd 28 73 70  |tr%)=.Spc2%,.(sp|
00007880  63 63 68 61 72 25 29 29  3a 6c 65 6e 67 74 68 25  |cchar%)):length%|
00007890  2b 3d 53 70 63 32 25 3a  70 74 72 25 2b 3d 53 70  |+=Spc2%:ptr%+=Sp|
000078a0  63 32 25 0d 22 7e 1d c8  95 20 66 69 6c 65 25 3f  |c2%."~... file%?|
000078b0  6f 6c 64 70 74 72 25 3d  73 70 63 63 68 61 72 25  |oldptr%=spcchar%|
000078c0  0d 22 88 0e 6f 6c 64 70  74 72 25 2b 3d 31 0d 22  |."..oldptr%+=1."|
000078d0  92 05 ce 0d 22 9c 05 e1  0d 22 a6 04 0d 22 b0 0c  |...."...."..."..|
000078e0  dd f2 69 6e 64 65 6e 74  0d 22 ba 24 e7 20 6f 6c  |..indent.".$. ol|
000078f0  64 70 74 72 25 2b 31 3e  72 65 61 6c 5f 6c 65 6e  |dptr%+1>real_len|
00007900  67 74 68 25 20 53 63 25  3d 30 3a e1 0d 22 c4 28  |gth% Sc%=0:..".(|
00007910  24 28 6e 65 77 66 69 6c  65 25 2b 70 74 72 25 29  |$(newfile%+ptr%)|
00007920  3d c4 53 70 63 33 25 2c  bd 28 73 70 63 63 68 61  |=.Spc3%,.(spccha|
00007930  72 25 29 29 0d 22 ce 1e  6c 65 6e 67 74 68 25 2b  |r%))."..length%+|
00007940  3d 53 70 63 33 25 3a 70  74 72 25 2b 3d 53 70 63  |=Spc3%:ptr%+=Spc|
00007950  33 25 0d 22 d8 1d c8 95  20 66 69 6c 65 25 3f 6f  |3%.".... file%?o|
00007960  6c 64 70 74 72 25 3d 73  70 63 63 68 61 72 25 0d  |ldptr%=spcchar%.|
00007970  22 e2 0e 6f 6c 64 70 74  72 25 2b 3d 31 0d 22 ec  |"..oldptr%+=1.".|
00007980  05 ce 0d 22 f6 10 71 3d  31 3a f2 63 61 70 69 74  |..."..q=1:.capit|
00007990  61 6c 0d 23 00 05 e1 0d  23 0a 04 0d 23 14 11 dd  |al.#....#...#...|
000079a0  f2 6e 65 77 73 65 6e 74  65 6e 63 65 0d 23 1e 14  |.newsentence.#..|
000079b0  6e 65 77 66 69 6c 65 25  3f 70 74 72 25 3d 34 36  |newfile%?ptr%=46|
000079c0  0d 23 28 09 53 63 25 3d  30 0d 23 32 38 e7 20 66  |.#(.Sc%=0.#28. f|
000079d0  69 6c 65 25 3f 28 6f 6c  64 70 74 72 25 2d 31 29  |ile%?(oldptr%-1)|
000079e0  3e 34 37 20 80 20 66 69  6c 65 25 3f 28 6f 6c 64  |>47 . file%?(old|
000079f0  70 74 72 25 2d 31 29 3c  35 38 20 53 63 25 2b 3d  |ptr%-1)<58 Sc%+=|
00007a00  31 0d 23 3c 38 e7 20 66  69 6c 65 25 3f 28 6f 6c  |1.#<8. file%?(ol|
00007a10  64 70 74 72 25 2b 31 29  3e 34 37 20 80 20 66 69  |dptr%+1)>47 . fi|
00007a20  6c 65 25 3f 28 6f 6c 64  70 74 72 25 2b 31 29 3c  |le%?(oldptr%+1)<|
00007a30  35 38 20 53 63 25 2b 3d  31 0d 23 46 2b e7 20 53  |58 Sc%+=1.#F+. S|
00007a40  63 25 3d 32 20 70 74 72  25 2b 3d 31 3a 6f 6c 64  |c%=2 ptr%+=1:old|
00007a50  70 74 72 25 2b 3d 31 3a  6c 65 6e 67 74 68 25 2b  |ptr%+=1:length%+|
00007a60  3d 31 3a e1 0d 23 50 13  53 63 25 3d 30 3a f2 61  |=1:..#P.Sc%=0:.a|
00007a70  63 72 6f 6e 79 6d 73 0d  23 5a 13 e7 20 53 63 25  |cronyms.#Z.. Sc%|
00007a80  3d 31 20 53 63 25 3d 30  3a e1 0d 23 64 51 e7 20  |=1 Sc%=0:..#dQ. |
00007a90  66 69 6c 65 25 3f 28 6f  6c 64 70 74 72 25 2b 31  |file%?(oldptr%+1|
00007aa0  29 3d 33 34 20 84 20 66  69 6c 65 25 3f 28 6f 6c  |)=34 . file%?(ol|
00007ab0  64 70 74 72 25 2b 31 29  3d 33 39 20 70 74 72 25  |dptr%+1)=39 ptr%|
00007ac0  2b 3d 31 3a 6f 6c 64 70  74 72 25 2b 3d 31 3a 6c  |+=1:oldptr%+=1:l|
00007ad0  65 6e 67 74 68 25 2b 3d  31 3a e1 0d 23 6e 51 e7  |ength%+=1:..#nQ.|
00007ae0  20 66 69 6c 65 25 3f 28  6f 6c 64 70 74 72 25 2b  | file%?(oldptr%+|
00007af0  31 29 3d 34 36 20 84 20  66 69 6c 65 25 3f 28 6f  |1)=46 . file%?(o|
00007b00  6c 64 70 74 72 25 2d 31  29 3d 34 36 20 70 74 72  |ldptr%-1)=46 ptr|
00007b10  25 2b 3d 31 3a 6f 6c 64  70 74 72 25 2b 3d 31 3a  |%+=1:oldptr%+=1:|
00007b20  6c 65 6e 67 74 68 25 2b  3d 31 3a e1 0d 23 78 43  |length%+=1:..#xC|
00007b30  e7 20 66 69 6c 65 25 3f  28 6f 6c 64 70 74 72 25  |. file%?(oldptr%|
00007b40  2b 31 29 3d 31 30 20 70  74 72 25 2b 3d 31 3a 6f  |+1)=10 ptr%+=1:o|
00007b50  6c 64 70 74 72 25 2b 3d  31 3a 6c 65 6e 67 74 68  |ldptr%+=1:length|
00007b60  25 2b 3d 31 3a f2 6e 65  77 70 61 72 61 3a e1 0d  |%+=1:.newpara:..|
00007b70  23 82 21 70 74 72 25 2b  3d 31 3a 6f 6c 64 70 74  |#.!ptr%+=1:oldpt|
00007b80  72 25 2b 3d 31 3a 6c 65  6e 67 74 68 25 2b 3d 31  |r%+=1:length%+=1|
00007b90  0d 23 8c 27 24 28 6e 65  77 66 69 6c 65 25 2b 70  |.#.'$(newfile%+p|
00007ba0  74 72 25 29 3d c4 53 70  63 25 2c bd 28 73 70 63  |tr%)=.Spc%,.(spc|
00007bb0  63 68 61 72 25 29 29 0d  23 96 1c 6c 65 6e 67 74  |char%)).#..lengt|
00007bc0  68 25 2b 3d 53 70 63 25  3a 70 74 72 25 2b 3d 53  |h%+=Spc%:ptr%+=S|
00007bd0  70 63 25 0d 23 a0 1d c8  95 20 66 69 6c 65 25 3f  |pc%.#.... file%?|
00007be0  6f 6c 64 70 74 72 25 3d  73 70 63 63 68 61 72 25  |oldptr%=spcchar%|
00007bf0  0d 23 aa 0e 6f 6c 64 70  74 72 25 2b 3d 31 0d 23  |.#..oldptr%+=1.#|
00007c00  b4 05 ce 0d 23 be 21 e7  20 66 69 6c 65 25 3f 6f  |....#.!. file%?o|
00007c10  6c 64 70 74 72 25 3d 31  30 20 f2 6e 65 77 70 61  |ldptr%=10 .newpa|
00007c20  72 61 3a e1 0d 23 c8 0c  f2 63 61 70 69 74 61 6c  |ra:..#...capital|
00007c30  0d 23 d2 05 e1 0d 23 dc  04 0d 23 e6 15 dd f2 65  |.#....#...#....e|
00007c40  6e 64 73 65 6e 74 28 61  73 63 69 69 25 29 0d 23  |ndsent(ascii%).#|
00007c50  f0 18 6e 65 77 66 69 6c  65 25 3f 70 74 72 25 3d  |..newfile%?ptr%=|
00007c60  61 73 63 69 69 25 0d 23  fa 82 e7 20 66 69 6c 65  |ascii%.#... file|
00007c70  25 3f 28 6f 6c 64 70 74  72 25 2d 31 29 3d 73 70  |%?(oldptr%-1)=sp|
00007c80  63 63 68 61 72 25 20 80  20 66 69 6c 65 25 3f 28  |cchar% . file%?(|
00007c90  6f 6c 64 70 74 72 25 2b  31 29 3c 3e 73 70 63 63  |oldptr%+1)<>spcc|
00007ca0  68 61 72 25 20 80 20 66  69 6c 65 25 3f 28 6f 6c  |har% . file%?(ol|
00007cb0  64 70 74 72 25 2b 31 29  3c 3e 33 33 20 80 20 61  |dptr%+1)<>33 . a|
00007cc0  73 63 69 69 25 3d 33 33  20 70 74 72 25 2b 3d 31  |scii%=33 ptr%+=1|
00007cd0  3a 6f 6c 64 70 74 72 25  2b 3d 31 3a 6c 65 6e 67  |:oldptr%+=1:leng|
00007ce0  74 68 25 2b 3d 31 3a e1  0d 24 04 7c e7 20 66 69  |th%+=1:..$.|. fi|
00007cf0  6c 65 25 3f 28 6f 6c 64  70 74 72 25 2d 31 29 3d  |le%?(oldptr%-1)=|
00007d00  33 34 20 80 20 66 69 6c  65 25 3f 28 6f 6c 64 70  |34 . file%?(oldp|
00007d10  74 72 25 2b 31 29 3c 3e  73 70 63 63 68 61 72 25  |tr%+1)<>spcchar%|
00007d20  20 80 20 66 69 6c 65 25  3f 28 6f 6c 64 70 74 72  | . file%?(oldptr|
00007d30  25 2b 31 29 3c 3e 33 33  20 80 20 61 73 63 69 69  |%+1)<>33 . ascii|
00007d40  25 3d 33 33 20 70 74 72  25 2b 3d 31 3a 6f 6c 64  |%=33 ptr%+=1:old|
00007d50  70 74 72 25 2b 3d 31 3a  6c 65 6e 67 74 68 25 2b  |ptr%+=1:length%+|
00007d60  3d 31 3a e1 0d 24 0e 7c  e7 20 66 69 6c 65 25 3f  |=1:..$.|. file%?|
00007d70  28 6f 6c 64 70 74 72 25  2d 31 29 3d 33 39 20 80  |(oldptr%-1)=39 .|
00007d80  20 66 69 6c 65 25 3f 28  6f 6c 64 70 74 72 25 2b  | file%?(oldptr%+|
00007d90  31 29 3c 3e 73 70 63 63  68 61 72 25 20 80 20 66  |1)<>spcchar% . f|
00007da0  69 6c 65 25 3f 28 6f 6c  64 70 74 72 25 2b 31 29  |ile%?(oldptr%+1)|
00007db0  3c 3e 33 33 20 80 20 61  73 63 69 69 25 3d 33 33  |<>33 . ascii%=33|
00007dc0  20 70 74 72 25 2b 3d 31  3a 6f 6c 64 70 74 72 25  | ptr%+=1:oldptr%|
00007dd0  2b 3d 31 3a 6c 65 6e 67  74 68 25 2b 3d 31 3a e1  |+=1:length%+=1:.|
00007de0  0d 24 18 7c e7 20 66 69  6c 65 25 3f 28 6f 6c 64  |.$.|. file%?(old|
00007df0  70 74 72 25 2d 31 29 3d  31 30 20 80 20 66 69 6c  |ptr%-1)=10 . fil|
00007e00  65 25 3f 28 6f 6c 64 70  74 72 25 2b 31 29 3c 3e  |e%?(oldptr%+1)<>|
00007e10  73 70 63 63 68 61 72 25  20 80 20 66 69 6c 65 25  |spcchar% . file%|
00007e20  3f 28 6f 6c 64 70 74 72  25 2b 31 29 3c 3e 33 33  |?(oldptr%+1)<>33|
00007e30  20 80 20 61 73 63 69 69  25 3d 33 33 20 70 74 72  | . ascii%=33 ptr|
00007e40  25 2b 3d 31 3a 6f 6c 64  70 74 72 25 2b 3d 31 3a  |%+=1:oldptr%+=1:|
00007e50  6c 65 6e 67 74 68 25 2b  3d 31 3a e1 0d 24 22 20  |length%+=1:..$" |
00007e60  e7 20 66 69 6c 65 25 3f  28 6f 6c 64 70 74 72 25  |. file%?(oldptr%|
00007e70  2b 31 29 3d 61 73 63 69  69 25 20 e1 0d 24 2c 51  |+1)=ascii% ..$,Q|
00007e80  e7 20 66 69 6c 65 25 3f  28 6f 6c 64 70 74 72 25  |. file%?(oldptr%|
00007e90  2b 31 29 3d 33 34 20 84  20 66 69 6c 65 25 3f 28  |+1)=34 . file%?(|
00007ea0  6f 6c 64 70 74 72 25 2b  31 29 3d 33 39 20 70 74  |oldptr%+1)=39 pt|
00007eb0  72 25 2b 3d 31 3a 6f 6c  64 70 74 72 25 2b 3d 31  |r%+=1:oldptr%+=1|
00007ec0  3a 6c 65 6e 67 74 68 25  2b 3d 31 3a e1 0d 24 36  |:length%+=1:..$6|
00007ed0  3c e7 20 6f 6c 64 70 74  72 25 2b 31 3e 72 65 61  |<. oldptr%+1>rea|
00007ee0  6c 5f 6c 65 6e 67 74 68  25 20 70 74 72 25 2b 3d  |l_length% ptr%+=|
00007ef0  31 3a 6f 6c 64 70 74 72  25 2b 3d 31 3a 6c 65 6e  |1:oldptr%+=1:len|
00007f00  67 74 68 25 2b 3d 31 3a  e1 0d 24 40 43 e7 20 66  |gth%+=1:..$@C. f|
00007f10  69 6c 65 25 3f 28 6f 6c  64 70 74 72 25 2b 31 29  |ile%?(oldptr%+1)|
00007f20  3d 31 30 20 70 74 72 25  2b 3d 31 3a 6f 6c 64 70  |=10 ptr%+=1:oldp|
00007f30  74 72 25 2b 3d 31 3a 6c  65 6e 67 74 68 25 2b 3d  |tr%+=1:length%+=|
00007f40  31 3a f2 6e 65 77 70 61  72 61 3a e1 0d 24 4a 21  |1:.newpara:..$J!|
00007f50  70 74 72 25 2b 3d 31 3a  6f 6c 64 70 74 72 25 2b  |ptr%+=1:oldptr%+|
00007f60  3d 31 3a 6c 65 6e 67 74  68 25 2b 3d 31 0d 24 54  |=1:length%+=1.$T|
00007f70  27 24 28 6e 65 77 66 69  6c 65 25 2b 70 74 72 25  |'$(newfile%+ptr%|
00007f80  29 3d c4 53 70 63 25 2c  bd 28 73 70 63 63 68 61  |)=.Spc%,.(spccha|
00007f90  72 25 29 29 0d 24 5e 1c  6c 65 6e 67 74 68 25 2b  |r%)).$^.length%+|
00007fa0  3d 53 70 63 25 3a 70 74  72 25 2b 3d 53 70 63 25  |=Spc%:ptr%+=Spc%|
00007fb0  0d 24 68 1d c8 95 20 66  69 6c 65 25 3f 6f 6c 64  |.$h... file%?old|
00007fc0  70 74 72 25 3d 73 70 63  63 68 61 72 25 0d 24 72  |ptr%=spcchar%.$r|
00007fd0  0e 6f 6c 64 70 74 72 25  2b 3d 31 0d 24 7c 05 ce  |.oldptr%+=1.$|..|
00007fe0  0d 24 86 0c f2 63 61 70  69 74 61 6c 0d 24 90 05  |.$...capital.$..|
00007ff0  e1 0d 24 9a 04 0d 24 a4  0b dd f2 63 6f 6d 6d 61  |..$...$....comma|
00008000  0d 24 ae 14 6e 65 77 66  69 6c 65 25 3f 70 74 72  |.$..newfile%?ptr|
00008010  25 3d 34 34 0d 24 b8 21  70 74 72 25 2b 3d 31 3a  |%=44.$.!ptr%+=1:|
00008020  6f 6c 64 70 74 72 25 2b  3d 31 3a 6c 65 6e 67 74  |oldptr%+=1:lengt|
00008030  68 25 2b 3d 31 0d 24 c2  09 53 63 25 3d 30 0d 24  |h%+=1.$..Sc%=0.$|
00008040  cc 38 e7 20 66 69 6c 65  25 3f 28 6f 6c 64 70 74  |.8. file%?(oldpt|
00008050  72 25 2d 32 29 3e 34 37  20 80 20 66 69 6c 65 25  |r%-2)>47 . file%|
00008060  3f 28 6f 6c 64 70 74 72  25 2d 32 29 3c 35 38 20  |?(oldptr%-2)<58 |
00008070  53 63 25 2b 3d 31 0d 24  d6 30 e7 20 66 69 6c 65  |Sc%+=1.$.0. file|
00008080  25 3f 6f 6c 64 70 74 72  25 3e 34 37 20 80 20 66  |%?oldptr%>47 . f|
00008090  69 6c 65 25 3f 6f 6c 64  70 74 72 25 3c 35 38 20  |ile%?oldptr%<58 |
000080a0  53 63 25 2b 3d 31 0d 24  e0 0d e7 20 53 63 25 3d  |Sc%+=1.$... Sc%=|
000080b0  32 20 e1 0d 24 ea 28 24  28 6e 65 77 66 69 6c 65  |2 ..$.($(newfile|
000080c0  25 2b 70 74 72 25 29 3d  c4 53 70 63 32 25 2c bd  |%+ptr%)=.Spc2%,.|
000080d0  28 73 70 63 63 68 61 72  25 29 29 0d 24 f4 1e 6c  |(spcchar%)).$..l|
000080e0  65 6e 67 74 68 25 2b 3d  53 70 63 32 25 3a 70 74  |ength%+=Spc2%:pt|
000080f0  72 25 2b 3d 53 70 63 32  25 0d 24 fe 1d c8 95 20  |r%+=Spc2%.$.... |
00008100  66 69 6c 65 25 3f 6f 6c  64 70 74 72 25 3d 73 70  |file%?oldptr%=sp|
00008110  63 63 68 61 72 25 0d 25  08 0e 6f 6c 64 70 74 72  |cchar%.%..oldptr|
00008120  25 2b 3d 31 0d 25 12 05  ce 0d 25 1c 05 e1 0d 25  |%+=1.%....%....%|
00008130  26 04 0d 25 30 0d dd f2  63 61 70 69 74 61 6c 0d  |&..%0...capital.|
00008140  25 3a 2d e7 20 6f 6c 64  70 74 72 25 2b 31 3e 72  |%:-. oldptr%+1>r|
00008150  65 61 6c 5f 6c 65 6e 67  74 68 25 20 6f 6c 64 70  |eal_length% oldp|
00008160  74 72 25 2b 3d 31 3a 71  3d 30 3a e1 0d 25 44 3f  |tr%+=1:q=0:..%D?|
00008170  6f 66 66 73 65 74 25 3d  30 3a 53 63 25 3d 30 3a  |offset%=0:Sc%=0:|
00008180  e7 20 66 69 6c 65 25 3f  6f 6c 64 70 74 72 25 3e  |. file%?oldptr%>|
00008190  36 34 20 80 20 66 69 6c  65 25 3f 6f 6c 64 70 74  |64 . file%?oldpt|
000081a0  72 25 3c 39 31 20 71 3d  30 3a e1 0d 25 4e 2f e7  |r%<91 q=0:..%N/.|
000081b0  20 66 69 6c 65 25 3f 6f  6c 64 70 74 72 25 3e 34  | file%?oldptr%>4|
000081c0  37 20 80 20 66 69 6c 65  25 3f 6f 6c 64 70 74 72  |7 . file%?oldptr|
000081d0  25 3c 35 38 20 71 3d 30  3a e1 0d 25 58 31 e7 20  |%<58 q=0:..%X1. |
000081e0  66 69 6c 65 25 3f 6f 6c  64 70 74 72 25 3e 31 39  |file%?oldptr%>19|
000081f0  31 20 80 20 66 69 6c 65  25 3f 6f 6c 64 70 74 72  |1 . file%?oldptr|
00008200  25 3c 32 31 35 20 71 3d  30 3a e1 0d 25 62 31 e7  |%<215 q=0:..%b1.|
00008210  20 66 69 6c 65 25 3f 6f  6c 64 70 74 72 25 3e 32  | file%?oldptr%>2|
00008220  31 35 20 80 20 66 69 6c  65 25 3f 6f 6c 64 70 74  |15 . file%?oldpt|
00008230  72 25 3c 32 32 34 20 71  3d 30 3a e1 0d 25 6c 30  |r%<224 q=0:..%l0|
00008240  e7 20 66 69 6c 65 25 3f  6f 6c 64 70 74 72 25 3d  |. file%?oldptr%=|
00008250  31 36 33 20 84 20 66 69  6c 65 25 3f 6f 6c 64 70  |163 . file%?oldp|
00008260  74 72 25 3d 33 36 20 71  3d 30 3a e1 0d 25 76 31  |tr%=36 q=0:..%v1|
00008270  e7 20 66 69 6c 65 25 3f  6f 6c 64 70 74 72 25 3e  |. file%?oldptr%>|
00008280  31 38 37 20 80 20 66 69  6c 65 25 3f 6f 6c 64 70  |187 . file%?oldp|
00008290  74 72 25 3c 31 39 31 20  71 3d 30 3a e1 0d 25 80  |tr%<191 q=0:..%.|
000082a0  22 e7 20 66 69 6c 65 25  3f 6f 6c 64 70 74 72 25  |". file%?oldptr%|
000082b0  3d 33 33 20 80 20 71 3d  31 20 71 3d 30 3a e1 0d  |=33 . q=1 q=0:..|
000082c0  25 8a 22 e7 20 66 69 6c  65 25 3f 6f 6c 64 70 74  |%.". file%?oldpt|
000082d0  72 25 3d 36 33 20 80 20  71 3d 31 20 71 3d 30 3a  |r%=63 . q=1 q=0:|
000082e0  e1 0d 25 94 22 e7 20 66  69 6c 65 25 3f 6f 6c 64  |..%.". file%?old|
000082f0  70 74 72 25 3d 34 36 20  80 20 71 3d 31 20 71 3d  |ptr%=46 . q=1 q=|
00008300  30 3a e1 0d 25 9e 07 71  3d 30 0d 25 a8 0c c8 95  |0:..%..q=0.%....|
00008310  20 53 63 25 3d 30 0d 25  b2 60 e7 20 66 69 6c 65  | Sc%=0.%.`. file|
00008320  25 3f 28 6f 6c 64 70 74  72 25 2b 6f 66 66 73 65  |%?(oldptr%+offse|
00008330  74 25 29 3e 39 36 20 80  20 66 69 6c 65 25 3f 28  |t%)>96 . file%?(|
00008340  6f 6c 64 70 74 72 25 2b  6f 66 66 73 65 74 25 29  |oldptr%+offset%)|
00008350  3c 31 32 33 20 66 69 6c  65 25 3f 28 6f 6c 64 70  |<123 file%?(oldp|
00008360  74 72 25 2b 6f 66 66 73  65 74 25 29 2d 3d 33 32  |tr%+offset%)-=32|
00008370  3a 53 63 25 3d 31 0d 25  bc 61 e7 20 66 69 6c 65  |:Sc%=1.%.a. file|
00008380  25 3f 28 6f 6c 64 70 74  72 25 2b 6f 66 66 73 65  |%?(oldptr%+offse|
00008390  74 25 29 3e 32 32 33 20  80 20 66 69 6c 65 25 3f  |t%)>223 . file%?|
000083a0  28 6f 6c 64 70 74 72 25  2b 6f 66 66 73 65 74 25  |(oldptr%+offset%|
000083b0  29 3c 32 34 37 20 66 69  6c 65 25 3f 28 6f 6c 64  |)<247 file%?(old|
000083c0  70 74 72 25 2b 6f 66 66  73 65 74 25 29 2d 3d 33  |ptr%+offset%)-=3|
000083d0  32 3a 53 63 25 3d 31 0d  25 c6 61 e7 20 66 69 6c  |2:Sc%=1.%.a. fil|
000083e0  65 25 3f 28 6f 6c 64 70  74 72 25 2b 6f 66 66 73  |e%?(oldptr%+offs|
000083f0  65 74 25 29 3e 32 34 37  20 80 20 66 69 6c 65 25  |et%)>247 . file%|
00008400  3f 28 6f 6c 64 70 74 72  25 2b 6f 66 66 73 65 74  |?(oldptr%+offset|
00008410  25 29 3c 32 35 36 20 66  69 6c 65 25 3f 28 6f 6c  |%)<256 file%?(ol|
00008420  64 70 74 72 25 2b 6f 66  66 73 65 74 25 29 2d 3d  |dptr%+offset%)-=|
00008430  33 32 3a 53 63 25 3d 31  0d 25 d0 26 e7 20 66 69  |32:Sc%=1.%.&. fi|
00008440  6c 65 25 3f 28 6f 6c 64  70 74 72 25 2b 6f 66 66  |le%?(oldptr%+off|
00008450  73 65 74 25 29 3d 31 30  20 53 63 25 3d 31 0d 25  |set%)=10 Sc%=1.%|
00008460  da 43 e7 20 66 69 6c 65  25 3f 28 6f 6c 64 70 74  |.C. file%?(oldpt|
00008470  72 25 2b 6f 66 66 73 65  74 25 29 3e 36 34 20 80  |r%+offset%)>64 .|
00008480  20 66 69 6c 65 25 3f 28  6f 6c 64 70 74 72 25 2b  | file%?(oldptr%+|
00008490  6f 66 66 73 65 74 25 29  3c 39 31 20 53 63 25 3d  |offset%)<91 Sc%=|
000084a0  31 0d 25 e4 43 e7 20 66  69 6c 65 25 3f 28 6f 6c  |1.%.C. file%?(ol|
000084b0  64 70 74 72 25 2b 6f 66  66 73 65 74 25 29 3e 34  |dptr%+offset%)>4|
000084c0  37 20 80 20 66 69 6c 65  25 3f 28 6f 6c 64 70 74  |7 . file%?(oldpt|
000084d0  72 25 2b 6f 66 66 73 65  74 25 29 3c 35 38 20 53  |r%+offset%)<58 S|
000084e0  63 25 3d 31 0d 25 ee 45  e7 20 66 69 6c 65 25 3f  |c%=1.%.E. file%?|
000084f0  28 6f 6c 64 70 74 72 25  2b 6f 66 66 73 65 74 25  |(oldptr%+offset%|
00008500  29 3e 31 39 31 20 80 20  66 69 6c 65 25 3f 28 6f  |)>191 . file%?(o|
00008510  6c 64 70 74 72 25 2b 6f  66 66 73 65 74 25 29 3c  |ldptr%+offset%)<|
00008520  32 31 35 20 53 63 25 3d  31 0d 25 f8 45 e7 20 66  |215 Sc%=1.%.E. f|
00008530  69 6c 65 25 3f 28 6f 6c  64 70 74 72 25 2b 6f 66  |ile%?(oldptr%+of|
00008540  66 73 65 74 25 29 3e 32  31 35 20 80 20 66 69 6c  |fset%)>215 . fil|
00008550  65 25 3f 28 6f 6c 64 70  74 72 25 2b 6f 66 66 73  |e%?(oldptr%+offs|
00008560  65 74 25 29 3c 32 32 34  20 53 63 25 3d 31 0d 26  |et%)<224 Sc%=1.&|
00008570  02 44 e7 20 66 69 6c 65  25 3f 28 6f 6c 64 70 74  |.D. file%?(oldpt|
00008580  72 25 2b 6f 66 66 73 65  74 25 29 3d 31 36 33 20  |r%+offset%)=163 |
00008590  84 20 66 69 6c 65 25 3f  28 6f 6c 64 70 74 72 25  |. file%?(oldptr%|
000085a0  2b 6f 66 66 73 65 74 25  29 3d 33 36 20 53 63 25  |+offset%)=36 Sc%|
000085b0  3d 31 0d 26 0c 45 e7 20  66 69 6c 65 25 3f 28 6f  |=1.&.E. file%?(o|
000085c0  6c 64 70 74 72 25 2b 6f  66 66 73 65 74 25 29 3e  |ldptr%+offset%)>|
000085d0  31 38 37 20 80 20 66 69  6c 65 25 3f 28 6f 6c 64  |187 . file%?(old|
000085e0  70 74 72 25 2b 6f 66 66  73 65 74 25 29 3c 31 39  |ptr%+offset%)<19|
000085f0  31 20 53 63 25 3d 31 0d  26 16 0e 6f 66 66 73 65  |1 Sc%=1.&..offse|
00008600  74 25 2b 3d 31 0d 26 20  05 ce 0d 26 2a 05 e1 0d  |t%+=1.& ...&*...|
00008610  26 34 04 0d 26 3e 0e dd  f2 6e 65 78 74 6c 69 6e  |&4..&>...nextlin|
00008620  65 0d 26 48 14 6e 65 77  66 69 6c 65 25 3f 70 74  |e.&H.newfile%?pt|
00008630  72 25 3d 31 30 0d 26 52  16 70 74 72 25 2b 3d 31  |r%=10.&R.ptr%+=1|
00008640  3a 6c 65 6e 67 74 68 25  2b 3d 31 0d 26 5c 2f c8  |:length%+=1.&\/.|
00008650  95 20 66 69 6c 65 25 3f  6f 6c 64 70 74 72 25 3d  |. file%?oldptr%=|
00008660  31 30 20 80 20 6f 6c 64  70 74 72 25 3c 3d 72 65  |10 . oldptr%<=re|
00008670  61 6c 5f 6c 65 6e 67 74  68 25 0d 26 66 0e 6f 6c  |al_length%.&f.ol|
00008680  64 70 74 72 25 2b 3d 31  0d 26 70 05 ce 0d 26 7a  |dptr%+=1.&p...&z|
00008690  35 c8 95 20 66 69 6c 65  25 3f 6f 6c 64 70 74 72  |5.. file%?oldptr|
000086a0  25 3d 73 70 63 63 68 61  72 25 20 80 20 6f 6c 64  |%=spcchar% . old|
000086b0  70 74 72 25 3c 3d 72 65  61 6c 5f 6c 65 6e 67 74  |ptr%<=real_lengt|
000086c0  68 25 0d 26 84 0e 6f 6c  64 70 74 72 25 2b 3d 31  |h%.&..oldptr%+=1|
000086d0  0d 26 8e 05 ce 0d 26 98  05 e1 0d 26 a2 04 0d 26  |.&....&....&...&|
000086e0  ac 0d dd f2 6e 65 77 70  61 72 61 0d 26 b6 0e 6f  |....newpara.&..o|
000086f0  66 66 73 65 74 25 3d 2d  31 0d 26 c0 46 c8 95 20  |ffset%=-1.&.F.. |
00008700  66 69 6c 65 25 3f 28 6f  6c 64 70 74 72 25 2b 6f  |file%?(oldptr%+o|
00008710  66 66 73 65 74 25 29 3d  73 70 63 63 68 61 72 25  |ffset%)=spcchar%|
00008720  20 80 20 66 69 6c 65 25  2b 6f 6c 64 70 74 72 25  | . file%+oldptr%|
00008730  2b 6f 66 66 73 65 74 25  3e 3d 66 69 6c 65 25 0d  |+offset%>=file%.|
00008740  26 ca 0e 6f 66 66 73 65  74 25 2d 3d 31 0d 26 d4  |&..offset%-=1.&.|
00008750  05 ce 0d 26 de 32 e7 20  66 69 6c 65 25 2b 6f 6c  |...&.2. file%+ol|
00008760  64 70 74 72 25 2b 6f 66  66 73 65 74 25 3c 66 69  |dptr%+offset%<fi|
00008770  6c 65 25 20 f2 72 65 61  6c 6c 79 6e 65 77 70 61  |le% .reallynewpa|
00008780  72 61 3a e1 0d 26 e8 20  c8 8e 20 66 69 6c 65 25  |ra:..&. .. file%|
00008790  3f 28 6f 6c 64 70 74 72  25 2b 6f 66 66 73 65 74  |?(oldptr%+offset|
000087a0  25 29 20 ca 0d 26 f2 2e  20 20 c9 20 34 32 2c 35  |%) ..&..  . 42,5|
000087b0  38 2c 35 39 2c 33 33 2c  36 33 2c 34 36 20 3a 20  |8,59,33,63,46 : |
000087c0  f2 72 65 61 6c 6c 79 6e  65 77 70 61 72 61 3a cb  |.reallynewpara:.|
000087d0  3a e1 0d 26 fc 05 cb 0d  27 06 29 e7 20 6f 6c 64  |:..&....'.). old|
000087e0  70 74 72 25 2b 32 3e 72  65 61 6c 5f 6c 65 6e 67  |ptr%+2>real_leng|
000087f0  74 68 25 20 6f 6c 64 70  74 72 25 2b 3d 32 3a e1  |th% oldptr%+=2:.|
00008800  0d 27 10 0d f2 6e 65 78  74 6c 69 6e 65 0d 27 1a  |.'...nextline.'.|
00008810  05 e1 0d 27 24 04 0d 27  2e 13 dd f2 72 65 61 6c  |...'$..'....real|
00008820  6c 79 6e 65 77 70 61 72  61 0d 27 38 29 e7 20 6f  |lynewpara.'8). o|
00008830  6c 64 70 74 72 25 2b 32  3e 72 65 61 6c 5f 6c 65  |ldptr%+2>real_le|
00008840  6e 67 74 68 25 20 6f 6c  64 70 74 72 25 2b 3d 32  |ngth% oldptr%+=2|
00008850  3a e1 0d 27 42 24 24 28  6e 65 77 66 69 6c 65 25  |:..'B$$(newfile%|
00008860  2b 70 74 72 25 29 3d c4  53 70 63 34 25 2b 31 2c  |+ptr%)=.Spc4%+1,|
00008870  bd 28 31 30 29 29 0d 27  4c 22 6c 65 6e 67 74 68  |.(10)).'L"length|
00008880  25 2b 3d 53 70 63 34 25  2b 31 3a 70 74 72 25 2b  |%+=Spc4%+1:ptr%+|
00008890  3d 53 70 63 34 25 2b 31  0d 27 56 0e 6f 6c 64 70  |=Spc4%+1.'V.oldp|
000088a0  74 72 25 2b 3d 31 0d 27  60 30 c8 95 20 66 69 6c  |tr%+=1.'`0.. fil|
000088b0  65 25 3f 6f 6c 64 70 74  72 25 3d 31 30 20 84 20  |e%?oldptr%=10 . |
000088c0  66 69 6c 65 25 3f 6f 6c  64 70 74 72 25 3d 73 70  |file%?oldptr%=sp|
000088d0  63 63 68 61 72 25 0d 27  6a 0e 6f 6c 64 70 74 72  |cchar%.'j.oldptr|
000088e0  25 2b 3d 31 0d 27 74 05  ce 0d 27 7e 60 e7 20 66  |%+=1.'t...'~`. f|
000088f0  69 6c 74 79 70 65 25 3d  26 41 46 38 20 80 20 66  |iltype%=&AF8 . f|
00008900  69 6c 65 25 3f 6f 6c 64  70 74 72 25 3d 31 32 20  |ile%?oldptr%=12 |
00008910  6e 65 77 66 69 6c 65 25  3f 70 74 72 25 3d 66 69  |newfile%?ptr%=fi|
00008920  6c 65 25 3f 6f 6c 64 70  74 72 25 3a 70 74 72 25  |le%?oldptr%:ptr%|
00008930  2b 3d 31 3a 6f 6c 64 70  74 72 25 2b 3d 31 3a 6c  |+=1:oldptr%+=1:l|
00008940  65 6e 67 74 68 25 2b 3d  31 0d 27 88 0b f2 69 6e  |ength%+=1.'...in|
00008950  64 65 6e 74 0d 27 92 05  e1 0d 27 9c 04 0d 27 a6  |dent.'....'...'.|
00008960  0e dd f2 61 63 72 6f 6e  79 6d 73 0d 27 b0 33 e7  |...acronyms.'.3.|
00008970  20 66 69 6c 65 25 3f 28  6f 6c 64 70 74 72 25 2d  | file%?(oldptr%-|
00008980  32 29 3e 36 34 20 80 20  66 69 6c 65 25 3f 28 6f  |2)>64 . file%?(o|
00008990  6c 64 70 74 72 25 2d 32  29 3c 39 31 20 e1 0d 27  |ldptr%-2)<91 ..'|
000089a0  ba 34 e7 20 66 69 6c 65  25 3f 28 6f 6c 64 70 74  |.4. file%?(oldpt|
000089b0  72 25 2d 32 29 3e 39 36  20 80 20 66 69 6c 65 25  |r%-2)>96 . file%|
000089c0  3f 28 6f 6c 64 70 74 72  25 2d 32 29 3c 31 32 33  |?(oldptr%-2)<123|
000089d0  20 e1 0d 27 c4 35 e7 20  66 69 6c 65 25 3f 28 6f  | ..'.5. file%?(o|
000089e0  6c 64 70 74 72 25 2d 32  29 3e 31 39 31 20 80 20  |ldptr%-2)>191 . |
000089f0  66 69 6c 65 25 3f 28 6f  6c 64 70 74 72 25 2d 32  |file%?(oldptr%-2|
00008a00  29 3c 32 31 35 20 e1 0d  27 ce 35 e7 20 66 69 6c  |)<215 ..'.5. fil|
00008a10  65 25 3f 28 6f 6c 64 70  74 72 25 2d 32 29 3e 32  |e%?(oldptr%-2)>2|
00008a20  31 35 20 80 20 66 69 6c  65 25 3f 28 6f 6c 64 70  |15 . file%?(oldp|
00008a30  74 72 25 2d 32 29 3c 32  34 37 20 e1 0d 27 d8 1d  |tr%-2)<247 ..'..|
00008a40  e7 20 66 69 6c 65 25 3f  28 6f 6c 64 70 74 72 25  |. file%?(oldptr%|
00008a50  2d 32 29 3e 32 34 37 20  e1 0d 27 e2 13 e3 20 63  |-2)>247 ..'... c|
00008a60  3d 31 20 b8 20 6e 6f 5f  61 63 72 25 0d 27 ec 13  |=1 . no_acr%.'..|
00008a70  6c 65 6e 25 3d a9 28 61  63 72 24 28 63 29 29 0d  |len%=.(acr$(c)).|
00008a80  27 f6 09 73 24 3d 22 22  0d 28 00 19 e3 20 64 3d  |'..s$="".(... d=|
00008a90  2d 31 20 b8 20 a9 28 61  63 72 24 28 63 29 29 2d  |-1 . .(acr$(c))-|
00008aa0  32 0d 28 0a 1e e7 20 6f  6c 64 70 74 72 25 2b 64  |2.(... oldptr%+d|
00008ab0  3e 72 65 61 6c 5f 6c 65  6e 67 74 68 25 20 e1 0d  |>real_length% ..|
00008ac0  28 14 1c 73 24 2b 3d bd  28 66 69 6c 65 25 3f 28  |(..s$+=.(file%?(|
00008ad0  6f 6c 64 70 74 72 25 2b  64 29 29 0d 28 1e 07 ed  |oldptr%+d)).(...|
00008ae0  20 64 0d 28 28 34 e7 20  73 24 3d 61 63 72 24 28  | d.((4. s$=acr$(|
00008af0  63 29 20 61 63 72 6f 6e  79 6d 25 3d 63 3a f2 73  |c) acronym%=c:.s|
00008b00  65 74 61 63 3a 53 63 25  3d 31 3a 63 3d 6e 6f 5f  |etac:Sc%=1:c=no_|
00008b10  61 63 72 25 2b 31 0d 28  32 07 ed 20 63 0d 28 3c  |acr%+1.(2.. c.(<|
00008b20  05 e1 0d 28 46 04 0d 28  50 0f dd f2 63 68 65 63  |...(F..(P...chec|
00008b30  6b 67 72 61 6d 0d 28 5a  27 e7 20 66 69 6c 65 25  |kgram.(Z'. file%|
00008b40  3f 28 61 2d 31 29 3e 36  34 20 80 20 66 69 6c 65  |?(a-1)>64 . file|
00008b50  25 3f 28 61 2d 31 29 3c  39 31 20 e1 0d 28 64 28  |%?(a-1)<91 ..(d(|
00008b60  e7 20 66 69 6c 65 25 3f  28 61 2d 31 29 3e 39 36  |. file%?(a-1)>96|
00008b70  20 80 20 66 69 6c 65 25  3f 28 61 2d 31 29 3c 31  | . file%?(a-1)<1|
00008b80  32 33 20 e1 0d 28 6e 29  e7 20 66 69 6c 65 25 3f  |23 ..(n). file%?|
00008b90  28 61 2d 31 29 3e 31 39  31 20 80 20 66 69 6c 65  |(a-1)>191 . file|
00008ba0  25 3f 28 61 2d 31 29 3c  32 31 35 20 e1 0d 28 78  |%?(a-1)<215 ..(x|
00008bb0  29 e7 20 66 69 6c 65 25  3f 28 61 2d 31 29 3e 32  |). file%?(a-1)>2|
00008bc0  31 35 20 80 20 66 69 6c  65 25 3f 28 61 2d 31 29  |15 . file%?(a-1)|
00008bd0  3c 32 34 37 20 e1 0d 28  82 17 e7 20 66 69 6c 65  |<247 ..(... file|
00008be0  25 3f 28 61 2d 31 29 3e  32 34 37 20 e1 0d 28 8c  |%?(a-1)>247 ..(.|
00008bf0  13 e3 20 63 3d 31 20 b8  20 6e 6f 5f 61 63 72 25  |.. c=1 . no_acr%|
00008c00  0d 28 96 13 6c 65 6e 25  3d a9 28 61 63 72 24 28  |.(..len%=.(acr$(|
00008c10  63 29 29 0d 28 a0 09 73  24 3d 22 22 0d 28 aa 18  |c)).(..s$="".(..|
00008c20  e3 20 64 3d 30 20 b8 20  a9 28 61 63 72 24 28 63  |. d=0 . .(acr$(c|
00008c30  29 29 2d 31 0d 28 b4 18  e7 20 61 2b 64 3e 72 65  |))-1.(... a+d>re|
00008c40  61 6c 5f 6c 65 6e 67 74  68 25 20 e1 0d 28 be 16  |al_length% ..(..|
00008c50  73 24 2b 3d bd 28 66 69  6c 65 25 3f 28 61 2b 64  |s$+=.(file%?(a+d|
00008c60  29 29 0d 28 c8 07 ed 20  64 0d 28 d2 2c e7 20 73  |)).(... d.(.,. s|
00008c70  24 3d 61 63 72 24 28 63  29 20 61 2b 3d a9 28 61  |$=acr$(c) a+=.(a|
00008c80  63 72 24 28 63 29 29 2d  31 3a 63 3d 6e 6f 5f 61  |cr$(c))-1:c=no_a|
00008c90  63 72 25 2b 31 0d 28 dc  07 ed 20 63 0d 28 e6 05  |cr%+1.(... c.(..|
00008ca0  e1 0d 28 f0 04 0d 28 fa  13 dd f2 6c 6f 61 64 5f  |..(...(....load_|
00008cb0  61 63 72 6f 6e 79 6d 73  0d 29 04 13 e3 20 61 3d  |acronyms.)... a=|
00008cc0  31 20 b8 20 6e 6f 5f 61  63 72 25 0d 29 0e 0d f3  |1 . no_acr%.)...|
00008cd0  20 61 63 72 24 28 61 29  0d 29 18 09 71 24 3d 22  | acr$(a).)..q$="|
00008ce0  22 0d 29 22 16 e3 20 62  3d 31 20 b8 20 a9 28 61  |".)".. b=1 . .(a|
00008cf0  63 72 24 28 61 29 29 0d  29 2c 15 71 24 2b 3d c1  |cr$(a)).),.q$+=.|
00008d00  61 63 72 24 28 61 29 2c  62 2c 31 29 0d 29 36 0b  |acr$(a),b,1).)6.|
00008d10  71 24 2b 3d 22 2e 22 0d  29 40 07 ed 20 62 0d 29  |q$+=".".)@.. b.)|
00008d20  4a 0e 61 63 72 24 28 61  29 3d 71 24 0d 29 54 07  |J.acr$(a)=q$.)T.|
00008d30  ed 20 61 0d 29 5e 05 e1  0d 29 68 04 0d 29 72 11  |. a.)^...)h..)r.|
00008d40  dd f2 72 65 61 64 61 6c  6c 63 61 70 73 0d 29 7c  |..readallcaps.)||
00008d50  17 e3 20 61 3d 31 20 b8  20 6e 6f 5f 61 6c 6c 63  |.. a=1 . no_allc|
00008d60  61 70 73 25 0d 29 86 11  f3 20 41 6c 6c 63 61 70  |aps%.)... Allcap|
00008d70  73 24 28 61 29 0d 29 90  05 ed 0d 29 9a 05 e1 0d  |s$(a).)....)....|
00008d80  29 a4 04 0d 29 ae 0a dd  f2 63 61 70 73 0d 29 b8  |)...)....caps.).|
00008d90  1a 76 61 6c 75 65 25 3d  70 74 72 25 2a 70 65 72  |.value%=ptr%*per|
00008da0  63 65 6e 74 2b 35 30 0d  29 c2 05 f5 0d 29 cc 0a  |cent+50.)....)..|
00008db0  66 6c 67 25 3d 30 0d 29  d6 0c 77 6f 72 64 24 3d  |flg%=0.)..word$=|
00008dc0  22 22 0d 29 e0 30 e7 20  6e 65 77 66 69 6c 65 25  |"".).0. newfile%|
00008dd0  3f 70 74 72 25 3e 36 34  20 80 20 6e 65 77 66 69  |?ptr%>64 . newfi|
00008de0  6c 65 25 3f 70 74 72 25  3c 39 31 20 66 6c 67 25  |le%?ptr%<91 flg%|
00008df0  3d 31 0d 29 ea 31 e7 20  6e 65 77 66 69 6c 65 25  |=1.).1. newfile%|
00008e00  3f 70 74 72 25 3e 39 36  20 80 20 6e 65 77 66 69  |?ptr%>96 . newfi|
00008e10  6c 65 25 3f 70 74 72 25  3c 31 32 33 20 66 6c 67  |le%?ptr%<123 flg|
00008e20  25 3d 31 0d 29 f4 0d c8  95 20 66 6c 67 25 3d 31  |%=1.).... flg%=1|
00008e30  0d 29 fe 1b 77 6f 72 64  24 2b 3d bd 28 6e 65 77  |.)..word$+=.(new|
00008e40  66 69 6c 65 25 3f 70 74  72 25 29 0d 2a 08 0a 66  |file%?ptr%).*..f|
00008e50  6c 67 25 3d 30 0d 2a 12  0b 70 74 72 25 2b 3d 31  |lg%=0.*..ptr%+=1|
00008e60  0d 2a 1c 30 e7 20 6e 65  77 66 69 6c 65 25 3f 70  |.*.0. newfile%?p|
00008e70  74 72 25 3d 34 35 20 84  20 6e 65 77 66 69 6c 65  |tr%=45 . newfile|
00008e80  25 3f 70 74 72 25 3d 39  35 20 66 6c 67 25 3d 31  |%?ptr%=95 flg%=1|
00008e90  0d 2a 26 30 e7 20 6e 65  77 66 69 6c 65 25 3f 70  |.*&0. newfile%?p|
00008ea0  74 72 25 3e 34 37 20 80  20 6e 65 77 66 69 6c 65  |tr%>47 . newfile|
00008eb0  25 3f 70 74 72 25 3c 35  38 20 66 6c 67 25 3d 31  |%?ptr%<58 flg%=1|
00008ec0  0d 2a 30 30 e7 20 6e 65  77 66 69 6c 65 25 3f 70  |.*00. newfile%?p|
00008ed0  74 72 25 3e 36 34 20 80  20 6e 65 77 66 69 6c 65  |tr%>64 . newfile|
00008ee0  25 3f 70 74 72 25 3c 39  31 20 66 6c 67 25 3d 31  |%?ptr%<91 flg%=1|
00008ef0  0d 2a 3a 31 e7 20 6e 65  77 66 69 6c 65 25 3f 70  |.*:1. newfile%?p|
00008f00  74 72 25 3e 39 36 20 80  20 6e 65 77 66 69 6c 65  |tr%>96 . newfile|
00008f10  25 3f 70 74 72 25 3c 31  32 33 20 66 6c 67 25 3d  |%?ptr%<123 flg%=|
00008f20  31 0d 2a 44 32 e7 20 6e  65 77 66 69 6c 65 25 3f  |1.*D2. newfile%?|
00008f30  70 74 72 25 3e 31 39 31  20 80 20 6e 65 77 66 69  |ptr%>191 . newfi|
00008f40  6c 65 25 3f 70 74 72 25  3c 32 31 35 20 66 6c 67  |le%?ptr%<215 flg|
00008f50  25 3d 31 0d 2a 4e 32 e7  20 6e 65 77 66 69 6c 65  |%=1.*N2. newfile|
00008f60  25 3f 70 74 72 25 3e 32  31 35 20 80 20 6e 65 77  |%?ptr%>215 . new|
00008f70  66 69 6c 65 25 3f 70 74  72 25 3c 32 34 37 20 66  |file%?ptr%<247 f|
00008f80  6c 67 25 3d 31 0d 2a 58  1e e7 20 6e 65 77 66 69  |lg%=1.*X.. newfi|
00008f90  6c 65 25 3f 70 74 72 25  3e 32 34 37 20 66 6c 67  |le%?ptr%>247 flg|
00008fa0  25 3d 31 0d 2a 62 05 ce  0d 2a 6c 26 e7 20 77 6f  |%=1.*b...*l&. wo|
00008fb0  72 64 24 3c 3e 22 22 20  f2 63 68 61 6e 67 65 63  |rd$<>"" .changec|
00008fc0  61 73 65 3a f2 73 65 61  72 63 68 66 6f 72 0d 2a  |ase:.searchfor.*|
00008fd0  76 39 e7 20 61 63 74 69  76 65 25 3d 33 20 c8 99  |v9. active%=3 ..|
00008fe0  20 22 48 6f 75 72 67 6c  61 73 73 5f 50 65 72 63  | "Hourglass_Perc|
00008ff0  65 6e 74 61 67 65 22 2c  70 74 72 25 2a 70 65 72  |entage",ptr%*per|
00009000  63 65 6e 74 2b 35 30 0d  2a 80 0b 70 74 72 25 2b  |cent+50.*..ptr%+|
00009010  3d 31 0d 2a 8a 1e fd 20  70 74 72 25 3e 6c 65 6e  |=1.*... ptr%>len|
00009020  67 74 68 25 20 84 20 61  63 74 69 76 65 25 3d 35  |gth% . active%=5|
00009030  0d 2a 94 14 6f 6c 64 76  61 6c 75 65 25 3d 76 61  |.*..oldvalue%=va|
00009040  6c 75 65 25 0d 2a 9e 1a  76 61 6c 75 65 25 3d 70  |lue%.*..value%=p|
00009050  74 72 25 2a 70 65 72 63  65 6e 74 2b 35 30 0d 2a  |tr%*percent+50.*|
00009060  a8 75 e7 20 61 63 74 69  76 65 25 3d 35 20 80 20  |.u. active%=5 . |
00009070  76 61 6c 75 65 25 3c 3e  6f 6c 64 76 61 6c 75 65  |value%<>oldvalue|
00009080  25 20 f2 73 65 74 69 63  6f 6e 28 50 72 6f 67 72  |% .seticon(Progr|
00009090  65 73 73 68 61 6e 25 2c  32 2c c3 28 76 61 6c 75  |esshan%,2,.(valu|
000090a0  65 25 29 2b 22 25 22 29  3a f2 73 65 74 69 63 6f  |e%)+"%"):.setico|
000090b0  6e 28 50 72 6f 67 72 65  73 73 68 61 6e 25 2c 30  |n(Progresshan%,0|
000090c0  2c c3 28 31 30 30 2d 76  61 6c 75 65 25 29 2b 22  |,.(100-value%)+"|
000090d0  25 22 29 0d 2a b2 28 e7  20 61 63 74 69 76 65 25  |%").*.(. active%|
000090e0  3d 35 20 80 20 70 74 72  25 3e 6c 65 6e 67 74 68  |=5 . ptr%>length|
000090f0  25 20 61 63 74 69 76 65  25 3d 36 0d 2a bc 05 e1  |% active%=6.*...|
00009100  0d 2a c6 04 0d 2a d0 0f  dd f2 6c 6f 77 65 72 63  |.*...*....lowerc|
00009110  61 73 65 0d 2a da 30 6f  6c 64 70 74 72 25 3d 30  |ase.*.0oldptr%=0|
00009120  3a e7 20 66 69 6c 74 79  70 65 25 3d 26 44 44 45  |:. filtype%=&DDE|
00009130  20 f2 6c 66 6f 72 67 65  74 3a 62 3d 6f 6c 64 70  | .lforget:b=oldp|
00009140  74 72 25 0d 2a e4 18 e3  20 61 3d 62 20 b8 20 72  |tr%.*... a=b . r|
00009150  65 61 6c 5f 6c 65 6e 67  74 68 25 0d 2a ee 32 c8  |eal_length%.*.2.|
00009160  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 50 65 72  |. "Hourglass_Per|
00009170  63 65 6e 74 61 67 65 22  2c 28 31 30 30 2f 72 65  |centage",(100/re|
00009180  61 6c 5f 6c 65 6e 67 74  68 25 29 2a 61 0d 2a f8  |al_length%)*a.*.|
00009190  3d e7 20 66 69 6c 74 79  70 65 25 3d 26 44 44 45  |=. filtype%=&DDE|
000091a0  20 80 20 66 69 6c 65 25  3f 61 3d 33 37 20 6f 6c  | . file%?a=37 ol|
000091b0  64 70 74 72 25 3d 61 3a  f2 6c 66 6f 72 67 65 74  |dptr%=a:.lforget|
000091c0  3a 61 3d 6f 6c 64 70 74  72 25 0d 2b 02 1f e7 20  |:a=oldptr%.+... |
000091d0  66 69 6c 65 25 3f 28 61  2b 31 29 3d 34 36 20 f2  |file%?(a+1)=46 .|
000091e0  63 68 65 63 6b 67 72 61  6d 0d 2b 0c 29 e7 20 66  |checkgram.+.). f|
000091f0  69 6c 65 25 3f 61 3e 36  34 20 80 20 66 69 6c 65  |ile%?a>64 . file|
00009200  25 3f 61 3c 39 31 20 66  69 6c 65 25 3f 61 2b 3d  |%?a<91 file%?a+=|
00009210  33 32 0d 2b 16 2b e7 20  66 69 6c 65 25 3f 61 3e  |32.+.+. file%?a>|
00009220  31 39 31 20 80 20 66 69  6c 65 25 3f 61 3c 32 31  |191 . file%?a<21|
00009230  35 20 66 69 6c 65 25 3f  61 2b 3d 33 32 0d 2b 20  |5 file%?a+=32.+ |
00009240  2b e7 20 66 69 6c 65 25  3f 61 3e 32 31 35 20 80  |+. file%?a>215 .|
00009250  20 66 69 6c 65 25 3f 61  3c 32 32 34 20 66 69 6c  | file%?a<224 fil|
00009260  65 25 3f 61 2b 3d 33 32  0d 2b 2a 05 ed 0d 2b 34  |e%?a+=32.+*...+4|
00009270  05 e1 0d 2b 3e 04 0d 2b  48 10 dd f2 63 68 61 6e  |...+>..+H...chan|
00009280  67 65 63 61 73 65 0d 2b  52 0b 77 72 64 24 3d 22  |gecase.+R.wrd$="|
00009290  22 0d 2b 5c 14 e3 20 61  3d 31 20 b8 20 a9 28 77  |".+\.. a=1 . .(w|
000092a0  6f 72 64 24 29 0d 2b 66  14 6c 3d 97 28 c1 77 6f  |ord$).+f.l=.(.wo|
000092b0  72 64 24 2c 61 2c 31 29  29 0d 2b 70 18 e7 20 6c  |rd$,a,1)).+p.. l|
000092c0  3e 39 36 20 80 20 6c 3c  31 32 33 20 6c 2d 3d 33  |>96 . l<123 l-=3|
000092d0  32 0d 2b 7a 19 e7 20 6c  3e 32 32 33 20 80 20 6c  |2.+z.. l>223 . l|
000092e0  3c 32 35 36 20 6c 2d 3d  33 32 0d 2b 84 0e 77 72  |<256 l-=32.+..wr|
000092f0  64 24 2b 3d bd 28 6c 29  0d 2b 8e 07 ed 20 61 0d  |d$+=.(l).+... a.|
00009300  2b 98 0e 77 6f 72 64 24  3d 77 72 64 24 0d 2b a2  |+..word$=wrd$.+.|
00009310  05 e1 0d 2b ac 04 0d 2b  b6 0f dd f2 73 65 61 72  |...+...+....sear|
00009320  63 68 66 6f 72 0d 2b c0  2d e7 20 97 28 c1 77 6f  |chfor.+.-. .(.wo|
00009330  72 64 24 2c 31 2c 31 29  29 3c 36 35 20 84 20 97  |rd$,1,1))<65 . .|
00009340  28 c1 77 6f 72 64 24 2c  31 2c 31 29 29 3e 39 30  |(.word$,1,1))>90|
00009350  20 e1 0d 2b ca 19 6c 3d  28 97 28 c1 77 6f 72 64  | ..+..l=(.(.word|
00009360  24 2c 31 2c 31 29 29 29  2d 36 34 0d 2b d4 1e e3  |$,1,1)))-64.+...|
00009370  20 61 3d 73 74 61 72 74  25 28 6c 29 20 b8 20 66  | a=start%(l) . f|
00009380  69 6e 69 73 68 25 28 6c  29 0d 2b de 4c e7 20 77  |inish%(l).+.L. w|
00009390  6f 72 64 24 3d 63 61 70  69 74 61 6c 24 28 61 29  |ord$=capital$(a)|
000093a0  20 6e 65 77 66 69 6c 65  25 3f 28 70 74 72 25 2d  | newfile%?(ptr%-|
000093b0  a9 28 77 6f 72 64 24 29  29 3d 97 28 c1 77 6f 72  |.(word$))=.(.wor|
000093c0  64 24 2c 31 2c 31 29 29  3a 61 3d 66 69 6e 69 73  |d$,1,1)):a=finis|
000093d0  68 25 28 6c 29 0d 2b e8  05 ed 0d 2b f2 14 e3 20  |h%(l).+....+... |
000093e0  61 3d 31 20 b8 20 6e 6f  5f 61 64 64 73 25 0d 2b  |a=1 . no_adds%.+|
000093f0  fc 4b e7 20 77 6f 72 64  24 3d 61 64 64 77 6f 72  |.K. word$=addwor|
00009400  64 73 24 28 61 29 20 6e  65 77 66 69 6c 65 25 3f  |ds$(a) newfile%?|
00009410  28 70 74 72 25 2d a9 28  77 6f 72 64 24 29 29 3d  |(ptr%-.(word$))=|
00009420  97 28 c1 77 6f 72 64 24  2c 31 2c 31 29 29 3a 61  |.(.word$,1,1)):a|
00009430  3d 6e 6f 5f 61 64 64 73  25 0d 2c 06 05 ed 0d 2c  |=no_adds%.,....,|
00009440  10 17 e3 20 61 3d 31 20  b8 20 6e 6f 5f 61 6c 6c  |... a=1 . no_all|
00009450  63 61 70 73 25 0d 2c 1a  69 e7 20 77 6f 72 64 24  |caps%.,.i. word$|
00009460  3d 41 6c 6c 63 61 70 73  24 28 61 29 20 62 3d 70  |=Allcaps$(a) b=p|
00009470  74 72 25 2d a9 28 77 6f  72 64 24 29 3a e3 20 63  |tr%-.(word$):. c|
00009480  3d 31 20 b8 20 a9 28 77  6f 72 64 24 29 3a 6e 65  |=1 . .(word$):ne|
00009490  77 66 69 6c 65 25 3f 62  3d 97 28 c1 77 6f 72 64  |wfile%?b=.(.word|
000094a0  24 2c 63 2c 31 29 29 3a  62 2b 3d 31 3a ed 20 63  |$,c,1)):b+=1:. c|
000094b0  3a 61 3d 6e 6f 5f 61 6c  6c 63 61 70 73 25 0d 2c  |:a=no_allcaps%.,|
000094c0  24 07 ed 20 61 0d 2c 2e  05 e1 0d 2c 38 04 0d 2c  |$.. a.,....,8..,|
000094d0  42 19 f4 20 3a 20 4e 2e  6f 2e 20 6f 66 20 61 63  |B.. : N.o. of ac|
000094e0  72 6f 6e 79 6d 73 3b 0d  2c 4c 09 dc 20 31 36 36  |ronyms;.,L.. 166|
000094f0  0d 2c 56 19 f4 20 3a 20  4e 6f 77 20 74 68 65 20  |.,V.. : Now the |
00009500  61 63 72 6f 6e 79 6d 73  3b 0d 2c 60 f1 dc 20 52  |acronyms;.,`.. R|
00009510  49 53 43 2c 4f 53 2c 55  4b 2c 47 42 2c 4f 4b 2c  |ISC,OS,UK,GB,OK,|
00009520  6f 6b 2c 4f 6b 2c 4e 6f  2c 4e 4f 2c 52 41 46 2c  |ok,Ok,No,NO,RAF,|
00009530  52 53 50 43 41 2c 52 41  43 2c 52 53 50 42 2c 4e  |RSPCA,RAC,RSPB,N|
00009540  41 54 4f 2c 4c 41 53 41  52 2c 45 45 43 2c 45 43  |ATO,LASAR,EEC,EC|
00009550  2c 55 53 41 2c 42 43 2c  55 4e 2c 4e 41 53 41 2c  |,USA,BC,UN,NASA,|
00009560  42 41 53 49 43 2c 43 50  55 2c 52 4f 4d 2c 43 49  |BASIC,CPU,ROM,CI|
00009570  53 2c 55 53 53 52 2c 41  52 4d 2c 50 54 4f 2c 52  |S,USSR,ARM,PTO,R|
00009580  53 56 50 2c 41 53 41 50  2c 49 42 4d 2c 45 50 52  |SVP,ASAP,IBM,EPR|
00009590  4f 4d 2c 44 4d 2c 43 4f  42 4f 4c 2c 56 44 55 2c  |OM,DM,COBOL,VDU,|
000095a0  4e 45 50 2c 4e 57 2c 50  4d 2c 46 4d 2c 61 6d 2c  |NEP,NW,PM,FM,am,|
000095b0  70 6d 2c 65 67 2c 45 67  2c 6e 6f 2c 50 43 2c 52  |pm,eg,Eg,no,PC,R|
000095c0  47 42 2c 50 44 2c 48 49  56 2c 41 49 44 53 2c 53  |GB,PD,HIV,AIDS,S|
000095d0  4e 43 46 2c 54 47 56 2c  47 4d 54 2c 42 42 43 2c  |NCF,TGV,GMT,BBC,|
000095e0  49 54 56 2c 46 41 53 54  2c 53 41 45 2c 53 45 4d  |ITV,FAST,SAE,SEM|
000095f0  45 52 43 2c 54 55 43 2c  54 55 0d 2c 6a fd dc 20  |ERC,TUC,TU.,j.. |
00009600  41 4e 53 49 2c 45 4d 52  2c 57 59 53 49 57 59 47  |ANSI,EMR,WYSIWYG|
00009610  2c 53 54 44 2c 43 41 42  2c 41 54 43 2c 4f 48 4d  |,STD,CAB,ATC,OHM|
00009620  53 2c 49 4c 4f 2c 50 4f  2c 57 48 4f 2c 48 4d 53  |S,ILO,PO,WHO,HMS|
00009630  2c 4e 5a 2c 4d 6f 44 2c  53 4f 53 2c 53 41 53 2c  |,NZ,MoD,SOS,SAS,|
00009640  46 41 2c 49 54 2c 56 49  50 2c 4f 41 50 2c 42 54  |FA,IT,VIP,OAP,BT|
00009650  2c 42 52 2c 46 42 49 2c  54 56 2c 74 76 2c 57 41  |,BR,FBI,TV,tv,WA|
00009660  41 43 2c 57 41 41 46 2c  59 4d 43 41 2c 52 45 2c  |AC,WAAF,YMCA,RE,|
00009670  50 45 2c 41 41 2c 52 41  41 46 2c 49 51 2c 4c 42  |PE,AA,RAAF,IQ,LB|
00009680  57 2c 49 4f 55 2c 47 43  53 45 2c 52 49 50 2c 53  |W,IOU,GCSE,RIP,S|
00009690  57 49 56 2c 53 4e 45 53  2c 4e 45 53 2c 43 44 2c  |WIV,SNES,NES,CD,|
000096a0  43 44 52 4f 4d 2c 53 43  53 49 2c 41 50 44 4c 2c  |CDROM,SCSI,APDL,|
000096b0  56 47 41 2c 45 54 2c 57  48 2c 57 68 2c 45 52 4d  |VGA,ET,WH,Wh,ERM|
000096c0  2c 44 54 50 2c 47 55 49  2c 41 53 43 49 49 2c 49  |,DTP,GUI,ASCII,I|
000096d0  44 45 2c 48 43 43 53 2c  41 44 46 53 2c 52 41 4d  |DE,HCCS,ADFS,RAM|
000096e0  46 53 2c 52 41 4d 2c 41  44 2c 4d 50 47 2c 50 53  |FS,RAM,AD,MPG,PS|
000096f0  2c 70 73 2c 43 41 44 0d  2c 74 83 dc 20 44 49 59  |,ps,CAD.,t.. DIY|
00009700  2c 43 4d 4f 53 2c 53 56  47 41 2c 44 52 44 4f 53  |,CMOS,SVGA,DRDOS|
00009710  2c 44 52 2c 44 4f 53 2c  44 50 49 2c 4c 50 49 2c  |,DR,DOS,DPI,LPI,|
00009720  45 47 41 2c 43 47 41 2c  57 57 2c 41 4d 2c 4d 50  |EGA,CGA,WW,AM,MP|
00009730  2c 53 57 2c 4c 50 2c 53  45 2c 4e 45 2c 45 47 2c  |,SW,LP,SE,NE,EG,|
00009740  4f 54 54 2c 4f 54 2c 41  2c 42 2c 43 2c 44 2c 45  |OTT,OT,A,B,C,D,E|
00009750  2c 46 2c 47 2c 48 2c 49  2c 4a 2c 4b 2c 4c 2c 4d  |,F,G,H,I,J,K,L,M|
00009760  2c 4e 2c 4f 2c 50 2c 51  2c 52 2c 53 2c 54 2c 55  |,N,O,P,Q,R,S,T,U|
00009770  2c 56 2c 57 2c 58 2c 59  2c 5a 0d 2c 7e 1d f4 20  |,V,W,X,Y,Z.,~.. |
00009780  3a 20 4e 2e 6f 2e 20 6f  66 20 41 4c 4c 20 63 61  |: N.o. of ALL ca|
00009790  70 69 74 61 6c 73 3b 0d  2c 88 09 dc 20 31 33 37  |pitals;.,... 137|
000097a0  0d 2c 92 24 f4 20 3a 20  4e 6f 77 20 74 68 65 20  |.,.$. : Now the |
000097b0  77 6f 72 64 73 20 77 69  74 68 20 61 6c 6c 20 63  |words with all c|
000097c0  61 70 73 3b 0d 2c 9c fd  dc 20 52 49 53 43 2c 4f  |aps;.,... RISC,O|
000097d0  53 2c 52 49 53 43 4f 53  2c 55 4b 2c 47 42 2c 4f  |S,RISCOS,UK,GB,O|
000097e0  4b 2c 52 41 46 2c 52 53  50 43 41 2c 52 41 43 2c  |K,RAF,RSPCA,RAC,|
000097f0  52 53 50 42 2c 4e 41 54  4f 2c 4c 41 53 41 52 2c  |RSPB,NATO,LASAR,|
00009800  45 45 43 2c 45 43 2c 55  53 41 2c 42 43 2c 41 44  |EEC,EC,USA,BC,AD|
00009810  2c 4e 41 53 41 2c 43 50  55 2c 52 4f 4d 2c 43 49  |,NASA,CPU,ROM,CI|
00009820  53 2c 55 53 53 52 2c 50  54 4f 2c 52 53 56 50 2c  |S,USSR,PTO,RSVP,|
00009830  41 53 41 50 2c 49 42 4d  2c 45 50 52 4f 4d 2c 44  |ASAP,IBM,EPROM,D|
00009840  4d 2c 43 4f 42 4f 4c 2c  56 44 55 2c 4e 45 50 2c  |M,COBOL,VDU,NEP,|
00009850  4e 45 2c 53 45 2c 53 57  2c 4e 57 2c 4d 50 2c 46  |NE,SE,SW,NW,MP,F|
00009860  4d 2c 50 43 2c 52 47 42  2c 50 44 2c 48 49 56 2c  |M,PC,RGB,PD,HIV,|
00009870  41 49 44 53 2c 53 4e 43  46 2c 54 47 56 2c 47 4d  |AIDS,SNCF,TGV,GM|
00009880  54 2c 42 42 43 2c 49 54  56 2c 54 55 43 2c 53 54  |T,BBC,ITV,TUC,ST|
00009890  44 2c 41 54 43 2c 49 4c  4f 2c 50 4f 2c 48 4d 53  |D,ATC,ILO,PO,HMS|
000098a0  2c 4e 5a 2c 53 4f 53 2c  53 41 53 2c 53 41 45 2c  |,NZ,SOS,SAS,SAE,|
000098b0  46 41 2c 56 49 50 2c 4f  41 50 2c 42 54 2c 46 42  |FA,VIP,OAP,BT,FB|
000098c0  49 0d 2c a6 fd dc 20 57  41 41 43 2c 57 41 41 46  |I.,... WAAC,WAAF|
000098d0  2c 59 4d 43 41 2c 41 41  2c 52 41 41 46 2c 49 51  |,YMCA,AA,RAAF,IQ|
000098e0  2c 4c 42 57 2c 49 4f 55  2c 47 43 53 45 2c 41 52  |,LBW,IOU,GCSE,AR|
000098f0  4d 32 2c 41 52 4d 32 35  30 2c 41 52 4d 33 2c 41  |M2,ARM250,ARM3,A|
00009900  52 4d 36 2c 41 52 4d 36  30 30 2c 41 52 4d 37 2c  |RM6,ARM600,ARM7,|
00009910  41 52 4d 37 30 30 2c 41  52 4d 39 2c 41 52 4d 39  |ARM700,ARM9,ARM9|
00009920  30 30 2c 52 49 53 43 4f  53 32 2c 52 49 53 43 4f  |00,RISCOS2,RISCO|
00009930  53 33 2c 4f 53 32 2c 4f  53 33 2c 53 57 49 56 2c  |S3,OS2,OS3,SWIV,|
00009940  53 4e 45 53 2c 4e 45 53  2c 43 44 2c 43 44 52 4f  |SNES,NES,CD,CDRO|
00009950  4d 2c 53 43 53 49 2c 42  41 53 49 43 56 2c 42 4d  |M,SCSI,BASICV,BM|
00009960  57 2c 4d 45 4d 43 31 41  2c 4d 45 4d 43 2c 41 50  |W,MEMC1A,MEMC,AP|
00009970  44 4c 2c 56 47 41 2c 53  57 49 2c 53 59 53 2c 45  |DL,VGA,SWI,SYS,E|
00009980  52 4d 2c 44 54 50 2c 47  55 49 2c 41 53 43 49 49  |RM,DTP,GUI,ASCII|
00009990  2c 49 44 45 2c 48 43 43  53 2c 46 50 41 31 30 2c  |,IDE,HCCS,FPA10,|
000099a0  41 44 46 53 2c 52 41 4d  46 53 2c 50 53 2c 45 4d  |ADFS,RAMFS,PS,EM|
000099b0  52 2c 41 4e 53 49 2c 57  59 53 49 57 59 47 0d 2c  |R,ANSI,WYSIWYG.,|
000099c0  b0 79 dc 20 43 4d 4f 53  2c 4a 50 45 47 2c 43 41  |.y. CMOS,JPEG,CA|
000099d0  44 2c 44 4f 53 2c 44 52  44 4f 53 2c 53 56 47 41  |D,DOS,DRDOS,SVGA|
000099e0  2c 45 47 41 2c 43 47 41  2c 53 45 4d 45 52 43 2c  |,EGA,CGA,SEMERC,|
000099f0  44 50 49 2c 4c 50 49 2c  4c 50 2c 42 42 43 31 2c  |DPI,LPI,LP,BBC1,|
00009a00  42 42 43 32 2c 42 42 43  33 2c 42 42 43 34 2c 42  |BBC2,BBC3,BBC4,B|
00009a10  42 43 35 2c 43 48 34 2c  44 49 59 2c 4f 54 54 2c  |BC5,CH4,DIY,OTT,|
00009a20  4d 50 47 2c 57 57 2c 57  57 31 2c 57 57 32 2c 57  |MPG,WW,WW1,WW2,W|
00009a30  57 49 2c 57 57 49 49 0d  ff                       |WI,WWII..|
00009a39