� TextThing
8� Generated by WimpWorks on Sat,28 Feb 1998.06:40:57
(� WimpWorks is � Jaffa Software 1995
(
2�
<
FT� �task(� name$,� sprite$,� text$,� side%,� text%,� purp$,� auth$,� ver$,� opt%)
Pname$  ="TextThing"
Zsprite$="!textthing"
dtext$  =""
n
text%  =0
xside%  =-1
�)purp$  ="To remove rubbish from file"
�auth$  ="� Victor Markwart"
�ver$   ="0.03 28 Feb 1998"
�
opt%   =6
��
�
�� �initmenus
�#�loadtemplate("saveas",saveas%)
�,�loadtemplate("CharReplace",CharReplace)
�"�loadtemplate("query1",query1)
�(�loadtemplate("TextThing",TextThing)
�>�iconmenu("Main Menu|[infobox%].Info    |.Default|.Quit|")
��



� �menu_klik(button%)

  � button%<>2 �

"+    �mouse(mx%, my%, mb%, window, icon)

,/    �movewindow(TextThing, mx%-150, my%+50)

6    �openwindow(TextThing)

@  �

J�

T

^)� �window_klik(window%,icon%,button%)

h  Ȏ window% �

r    � TextThing

|    Ȏ icon% �

�'      � icn_save: � Save as default

�

�        �set_options

�        �save_options

�1        � button%=4 � �closewindow(TextThing)

�+      � icn_set: � set for this session

�        �set_options

�1        � button%=4 � �closewindow(TextThing)

�*      � icn_can: �closewindow(window%)

�)      � icn_clr: �clear : �set_values

�/        � button%=4 � �closewindow(window%)

�      � icn_sing:

�        !block%=TextThing
,        ș "Wimp_GetWindowState",,block%
        !block%=CharReplace
(        ș "Wimp_OpenWindow",,block%
&#        �closewindow(TextThing)
0L      � icn_strip_top: icn_strip_top%=�readstate(window%, icn_strip_top)
:L      � icn_strip_con: icn_strip_con%=�readstate(window%, icn_strip_con)
DF      � icn_rep_tab: icn_rep_tab%=�readstate(window%, icn_rep_tab)
N      � icn_rep_tab_dwn:
X7        rep_tab$=�readicon(window%, icn_rep_tab_no)
b(        � rep_tab$="" � rep_tab$="0"
l'        icn_rep_tab_no%=�(rep_tab$)
v        icn_rep_tab_no%-=1
�5        � icn_rep_tab_no% < 0 � icn_rep_tab_no%=0
�'        rep_tab$=�(icn_rep_tab_no%)
�5        �seticon(window%,icn_rep_tab_no,rep_tab$)
�      � icn_rep_tab_up:
�7        rep_tab$=�readicon(window%, icn_rep_tab_no)
�(        � rep_tab$="" � rep_tab$="0"
�'        icn_rep_tab_no%=�(rep_tab$)
�        icn_rep_tab_no%+=1
�'        rep_tab$=�(icn_rep_tab_no%)
�5        �seticon(window%,icn_rep_tab_no,rep_tab$)
�      � icn_rep_lf:
�7        icn_rep_lf%=�readstate(window%, icn_rep_lf)
�        � icn_rep_lf%=� �
A          icn_rep_lf_set=�groupstate(TextThing, 1)-icn_rep_lf
!          Ȏ icn_rep_lf_set �
          � 1: lf_rep$=cr$
           � 2: lf_rep$=lf$
*           � 3: lf_rep$=crlf$
4           � 4: lf_rep$=lfcr$
>          �
H
        �
R      � icn_rep_qu:
\7        icn_rep_qu%=�readstate(window%, icn_rep_qu)
fI        � icn_rep_qu%=� � icn_rep_qu$=�readicon(window%, icn_rep_qu1)
p      � icn_case
z3        icn_case%=�readstate(window%, icn_case)
�        � icn_case%=� �
�=          icn_case_set=�groupstate(TextThing, 2)-icn_case
�
        �
�	    �
�  � CharReplace
�    Ȏ icon% �
�'      � icn_save: � Save as default
�
�        �set_options
�        �save_options
�3        � button%=4 � �closewindow(CharReplace)
�+      � icn_set: � set for this session
�        �set_options
3        � button%=4 � �closewindow(CharReplace)
)      � icn_clr: �clear : �set_values
/        � button%=4 � �closewindow(window%)
$*      � icn_can: �closewindow(window%)
.      � icn_mult:
8        !block%=CharReplace
B,        ș "Wimp_GetWindowState",,block%
L        !block%=TextThing
V(        ș "Wimp_OpenWindow",,block%
`%        �closewindow(CharReplace)
j	    �
t  � query1
~    Ȏ icon% �
�E      � 0: �closewindow(query1) : �open_window(saveas%, -152, 40)
�#      � 1: �closewindow(query1)
�	    �
�  �
��
�
�� �drag_file(file$,type%)
�  infile$=file$
�  oldleaf$=leaf$
�  leaf$=�leafname(file$)
�  � leaf$=oldleaf$ �
�    count%+=1
  �

    count%=0
  �
  temp$=�leaf$,8)+�(count%)
(!  �seticon(saveas%, 1, temp$)
2  Ȏ type% �
<
FI  � &FFF, &FFD, &FE4, &418 : �open_window(saveas%, -152, 40) : � Text
PF  � &1000 : msg$=leaf$ + " is a directory and cannot be converted"
Z#    �warning(msg$, "TextThing")
dI  � &2000 : msg$=leaf$ + " is an application and cannot be converted"
n#    �warning(msg$, "TextThing")
x  
�'    �opendialogue(query1, 369, 336)
�  �
��
�
�1� �open_window(handle%, x_offset%, y_offset%)
� � mx%, my%, mb%, win%, icon%
�&�mouse(mx%, my%, mb%, win%, icon%)
�6�movewindow(handle%, mx%+x_offset%, my%+y_offset%)
��openwindow(handle%)
��
�
�� �set_values
�	  � i
 
9  �setstate(TextThing, icn_strip_top, icn_strip_top%)
9  �setstate(TextThing, icn_strip_con, icn_strip_con%)
"5  �setstate(TextThing, icn_rep_tab, icn_rep_tab%)
,=  �seticon(TextThing, icn_rep_tab_no, �(icn_rep_tab_no%))
6)  icn_rep_tab$=�icn_rep_tab_no%, " ")
@3  �setstate(TextThing, icn_rep_lf, icn_rep_lf%)
J;  �setstate(TextThing, icn_rep_lf + icn_rep_lf_set%, 1)
T  Ȏ icn_rep_lf_set% �
^    � 1 : icn_rep_lf$=cr$
h    � 2 : icn_rep_lf$=lf$
r    � 3 : icn_rep_lf$=crlf$
|    � 4 : icn_rep_lf$=lfcr$
�  
�    icn_rep_lf$="<newline>"
�  �
�3  �setstate(TextThing, icn_rep_qu, icn_rep_qu%)
�3  �seticon(TextThing, icn_rep_qu1, icn_rep_qu$)
�5  �setstate(TextThing, icn_rep_dqu, icn_rep_dqu%)
�5  �seticon(TextThing, icn_rep_dqu1, icn_rep_dqu$)
�/  �setstate(TextThing, icn_case, icn_case%)
�7  �setstate(TextThing, icn_case + icn_case_set%, 1)
� 
�  display$=" " : value%=0
� 
�  � i=0 � 11
<    �seticon(CharReplace, icn_rep0 + i*4, icn_rep_r$(i))
/    �value(icn_rep_r$(i), display$, value%)
7    �seticon(CharReplace, icn_rep1 + i*4, display$)
&<    �seticon(CharReplace, icn_rep2 + i*4, icn_rep_w$(i))
0/    �value(icn_rep_w$(i), display$, value%)
:7    �seticon(CharReplace, icn_rep3 + i*4, display$)
D  �
N 
X  �set_options
b�
l
v� �convert_file(file$)
�  � � �: �#in% : �#out% : �
�
  flag%=0
�
  �houron
� 
�  in%=�(infile$)
�  out%=�(file$)
�
�  ȕ � �#(in%)
�    inchar%=�#in%
�
�    inchar%=chars%?inchar%
�    � inchar%<>2 � flag%=0
� 
    � inchar%>8 �
      �#out%, inchar%
	    �
       Ȏ inchar% �
*        � 0:
4&        � 1: �#out%, icn_rep_tab$;
>        � 2:
H          � flag%=0 �
R$            �#out%, icn_rep_lf$;
\            flag%=1
f          �
p%        � 3: �#out%, icn_rep_qu$;
z&        � 4: �#out%, icn_rep_dqu$;
�      
�=        �warning("This is a bit of a bugger", �(inchar%))
�      �
�	    �
�
�  �
�
�  �#in%
�  �#out%
�*  ș "XOS_CLI","Settype "+file$+" FFF"
�  �houroff
��
�
	� �read_sysvar($name%)
	6ș "XOS_ReadVarVal",name%,result%,100,,3 � ,,dlen%
	result%?(dlen%)=13
	$
=$result%
	.
	8
	B� �start_up
	L  � block% 44
	V  � chars% 256
	`  � sm_qu%(4)
	j  � icn_rep_r$(12)
	t  � icn_rep_w$(12)
	~-� Icon definitions - multiple char window
	�1  icn_save=0: icn_set=1: icn_clr=2: icn_can=3
	�  icn_mult=5: icn_sing=6
	�&  icn_strip_top=7: icn_strip_con=8
	�L  icn_rep_tab=9: icn_rep_tab_no=10:icn_rep_tab_dwn=11: icn_rep_tab_up=12
	�_  icn_rep_lf=13: icn_rep_lf_cr=14: icn_rep_lf_lf=15: icn_rep_lf_crlf=16: icn_rep_lf_lfcr=17
	�#  icn_rep_qu=18: icn_rep_qu1=19
	�%  icn_rep_dqu=20: icn_rep_dqu1=21
	�0  icn_case=22: icn_case_u=23 : icn_case_l=24
	�
	�� single char window
	�6icn_rep0=11: icn_rep1=12: icn_rep2=13: icn_rep3=14
	�
� Global variables

  tab%=9
  lf%=10
  cr%=13
(  lf$=�(lf%)
2  cr$=�(cr%)
<  crlf$=cr$+lf$
F  lfcr$=lf$+cr$
P  space%=32
Z  quote%=34
d  quote$=�(quote%)
n  sm_qu%(0)=144
x  sm_qu%(1)=145
�  sm_qu%(2)=148
�  sm_qu%(3)=149
�  count%=0
�  leaf$="          "
�  name$="TextThing"
�(  version$="0.03 (28 February 1998)"
�
�%  �seticon(infobox%, 7, version$)
�
�O  � ON ERROR LOCAL: CLOSE#in% :  PROCset_defaults: PROCset_values : ENDPROC
�   in%=�(taskdir$+".Options")
� 
�  �#in%, name$
 
  � name$="TextThing" �
    �#in%, icn_strip_top%
"    �#in%, icn_strip_con%
,    �#in%, icn_rep_tab%
6    �#in%, icn_rep_tab_no%
@    �#in%, icn_rep_lf%
J    �#in%, icn_rep_lf_set%
T    �#in%, icn_rep_qu%
^    �#in%, icn_rep_qu$
h    �#in%, icn_rep_dqu%
r    �#in%, icn_rep_dqu$
|    �#in%, icn_case%
�    �#in%, icn_case_set%
�    � i=0 � 11
�      �#in%, icn_rep_r$(i)
�      �#in%, icn_rep_w$(i)
�	    �
�  �
�  �#in%
�
�.  � Now set the values in the dialogue box
�  �set_values
��
�
�� �set_options
  � i, c%, temp$
  temp$=""
  � i=0 � 255
&    chars%?i=i
0  �
:  � i=1 � 8
D    chars%?i=0
N  �
X9  icn_strip_top%=�readstate(TextThing, icn_strip_top)
b  � icn_strip_top%=� �
l    � i=128 � 256
v      chars%?i=0
�	    �
�    chars%?144=144
�    chars%?145=145
�    chars%?148=148
�    chars%?149=149
�  �
�9  icn_strip_con%=�readstate(TextThing, icn_strip_con)
�  � icn_strip_con%=� �
�    � i=0 � 31
�      chars%?i=0
�	    �
�    chars%?9=9
�    chars%?10=10

    chars%?13=13

  �



 5  icn_rep_tab%=�readstate(TextThing, icn_rep_tab)

*#  � icn_rep_tab%=� � chars%?9=1

43  rep_tab$=�readicon(TextThing, icn_rep_tab_no)

>  l=�(rep_tab$)

H  � i=1 � l

R    c%=�(�rep_tab$, i, 1))

\    � ((c%>47) � (c%<58)) �

f      temp$=temp$+�(c%)

p	    �

z  �

�  rep_tab$=temp$

�"  � rep_tab$="" � rep_tab$="0"

�!  icn_rep_tab_no%=�(rep_tab$)

�/  � icn_rep_tab_no% < 0 � icn_rep_tab_no%=0

�)  icn_rep_tab$=�icn_rep_tab_no%, " ")

� 

�3  icn_rep_lf%=�readstate(TextThing, icn_rep_lf)

�  � icn_rep_lf%=� �

�    chars%?10=2

�    chars%?13=2

�<    icn_rep_lf_set%=�groupstate(TextThing, 1)-icn_rep_lf

�    Ȏ icn_rep_lf_set% �

�      � 1 : icn_rep_lf$=cr$
      � 2 : icn_rep_lf$=lf$
!      � 3 : icn_rep_lf$=crlf$
!      � 4 : icn_rep_lf$=lfcr$
$	    �
.  �
8
B
L3  icn_rep_qu%=�readstate(TextThing, icn_rep_qu)
V  � icn_rep_qu%=� �
`    chars%?144=3
j    chars%?145=3
t  �
~3  icn_rep_qu$=�readicon(TextThing, icn_rep_qu1)
�
�5  icn_rep_dqu%=�readstate(TextThing, icn_rep_dqu)
�  � icn_rep_dqu%=� �
�    chars%?148=4
�    chars%?149=4
�  �
�5  icn_rep_dqu$=�readicon(TextThing, icn_rep_dqu1)
�
�/  icn_case%=�readstate(TextThing, icn_case)
�  � icn_case%=� �
�8    icn_case_set%=�groupstate(TextThing, 2)-icn_case
�    Ȏ icn_case_set% �
7      � 1: � i=65 � 122 : chars%?i= chars%?i � 95:�

7      � 2: � i=65 � 122 : chars%?i= chars%?i � 32:�
	    �
  �
(.    � i=65 � 90 : chars%?i=chars%?i � 95:�
2/    � i=97 � 122 : chars%?i=chars%?i � 32:�
<  �
F 
P  value%=0 : DISPLAY$=""
Z  � i=0 � 11
d<    icn_rep_r$(i)=�readicon(CharReplace, icn_rep0 + i*4)
n/    �value(icn_rep_r$(i), display$, value%)
x7    �seticon(CharReplace, icn_rep1 + i*4, display$)
�    icn_rep_r=value%
� 
�<    icn_rep_w$(i)=�readicon(CharReplace, icn_rep2 + i*4)
�/    �value(icn_rep_w$(i), display$, value%)
�7    �seticon(CharReplace, icn_rep3 + i*4, display$)
�    icn_rep_w=value%
�2    � icn_rep_r>8 � chars%?icn_rep_r=icn_rep_w
�  �
��
�
�� �set_defaults
�� default values
�  icn_strip_top%=1
  icn_strip_con%=1
  icn_rep_tab%=0
  icn_rep_tab_no%=2
"  icn_rep_lf%=0
,  icn_rep_lf_set%=2
6  icn_rep_qu%=1
@  icn_rep_qu$="'"
J  icn_rep_dqu%=1
T  icn_rep_dqu$=�(34)
^  icn_case%=0
h  icn_case_set%=1
r  � i=0 � 11
|    icn_rep_r$(i)=""
�    icn_rep_w$(i)=""
�  �
�  �set_values
��
�
�� �save_options
�#  out%=�(taskdir$ + ".Options")
�        �#out%, "TextThing"
�"        �#out%, icn_strip_top%
�"        �#out%, icn_strip_con%
�         �#out%, icn_rep_tab%
�#        �#out%, icn_rep_tab_no%
�        �#out%, icn_rep_lf%
#        �#out%, icn_rep_lf_set%
        �#out%, icn_rep_qu%
        �#out%, icn_rep_qu$
&         �#out%, icn_rep_dqu%
0         �#out%, icn_rep_dqu$
:        �#out%, icn_case%
D!        �#out%, icn_case_set%
N        � i=0 � 11
X#          �#out%, icn_rep_r$(i)
b#          �#out%, icn_rep_w$(i)
l
        �
v        �#out%
��
�
�� �clear
�� default values
�  icn_strip_top%=0
�  icn_strip_con%=0
�  icn_rep_tab%=0
�  icn_rep_tab_no%=2
�  icn_rep_lf%=0
�  icn_rep_lf_set%=2
�  icn_rep_qu%=0
�  icn_rep_qu$="'"
�  icn_rep_dqu%=0
  icn_rep_dqu$=�(34)
  icn_case%=0
  icn_case_set%=1
   � i=0 � 11
*    icn_rep_r$(i)=""
4    icn_rep_w$(i)=""
>  �
H�
R
\&� �value(a$, � display$, � value%)
f  � i, l
p  value%=0
z  display$=" "
� 
�
  l=�(a$)
�  � i=1 � l
�(    � �a$,i,1)=quote$ � �a$,i,1)=" "
�  �
�  � (l >1) �
�    value%=�(a$) � 255
�    � value%<9 � value%=0
�9    � (value%>31) � (value%<127) � display$=�(value%)
�+    � (value%>140) � display$=�(value%)
�  �
� 
�(  � l=1 � display$=a$ : value%=�(a$)

�

$� �menu:� a$,r$,d%
.7ș "Wimp_DecodeMenu",,open%,wimp%,�200,�32) � ,,,a$
8'� �a$,3)="..." � d%=1:a$=�a$,�a$-3)
B&ȕ �a$,�46)>0:a$=�a$,�a$,�46)+1):�
L� d% � a$+="..."
VȎ a$ �
` � "Info    ":� Infobox
j � "Default":�set_defaults
t � "Quit":�closedown
~:�handle_event(11,a$,"")
��
��
�
�"� �handle_event(n%,a$,b$):� p%
�Ȏ n% �
� � 1:�start_up
� � 4:�menu_klik(�(a$))
� � 5:�drag_file(a$,�(b$))
� � 9:�convert_file(a$)
�E � 10:�window_klik(�(a$),�(�b$,�b$,�124)-1)),�(�b$,�b$,�124)+1)))
��
��


"� �handle_event(n%,a$,b$):� p$
Ȏ n% �
� 3:p$=�49
(R� 6:p$="This object belongs to 'TextThing', which is a WimpWorks application."
2�
<=p$
F
P� �ww_internal:�
�

00000000  0d 00 0a 0f f4 20 54 65  78 74 54 68 69 6e 67 0d  |..... TextThing.|
00000010  00 14 38 f4 20 47 65 6e  65 72 61 74 65 64 20 62  |..8. Generated b|
00000020  79 20 57 69 6d 70 57 6f  72 6b 73 20 6f 6e 20 53  |y WimpWorks on S|
00000030  61 74 2c 32 38 20 46 65  62 20 31 39 39 38 2e 30  |at,28 Feb 1998.0|
00000040  36 3a 34 30 3a 35 37 0d  00 1e 28 f4 20 57 69 6d  |6:40:57...(. Wim|
00000050  70 57 6f 72 6b 73 20 69  73 20 a9 20 4a 61 66 66  |pWorks is . Jaff|
00000060  61 20 53 6f 66 74 77 61  72 65 20 31 39 39 35 0d  |a Software 1995.|
00000070  00 28 04 0d 00 32 05 e0  0d 00 3c 04 0d 00 46 54  |.(...2....<...FT|
00000080  dd 20 f2 74 61 73 6b 28  f8 20 6e 61 6d 65 24 2c  |. .task(. name$,|
00000090  f8 20 73 70 72 69 74 65  24 2c f8 20 74 65 78 74  |. sprite$,. text|
000000a0  24 2c f8 20 73 69 64 65  25 2c f8 20 74 65 78 74  |$,. side%,. text|
000000b0  25 2c f8 20 70 75 72 70  24 2c f8 20 61 75 74 68  |%,. purp$,. auth|
000000c0  24 2c f8 20 76 65 72 24  2c f8 20 6f 70 74 25 29  |$,. ver$,. opt%)|
000000d0  0d 00 50 17 6e 61 6d 65  24 20 20 3d 22 54 65 78  |..P.name$  ="Tex|
000000e0  74 54 68 69 6e 67 22 0d  00 5a 18 73 70 72 69 74  |tThing"..Z.sprit|
000000f0  65 24 3d 22 21 74 65 78  74 74 68 69 6e 67 22 0d  |e$="!textthing".|
00000100  00 64 0e 74 65 78 74 24  20 20 3d 22 22 0d 00 6e  |.d.text$  =""..n|
00000110  0d 74 65 78 74 25 20 20  3d 30 0d 00 78 0e 73 69  |.text%  =0..x.si|
00000120  64 65 25 20 20 3d 2d 31  0d 00 82 29 70 75 72 70  |de%  =-1...)purp|
00000130  24 20 20 3d 22 54 6f 20  72 65 6d 6f 76 65 20 72  |$  ="To remove r|
00000140  75 62 62 69 73 68 20 66  72 6f 6d 20 66 69 6c 65  |ubbish from file|
00000150  22 0d 00 8c 1f 61 75 74  68 24 20 20 3d 22 a9 20  |"....auth$  =". |
00000160  56 69 63 74 6f 72 20 4d  61 72 6b 77 61 72 74 22  |Victor Markwart"|
00000170  0d 00 96 1e 76 65 72 24  20 20 20 3d 22 30 2e 30  |....ver$   ="0.0|
00000180  33 20 32 38 20 46 65 62  20 31 39 39 38 22 0d 00  |3 28 Feb 1998"..|
00000190  a0 0d 6f 70 74 25 20 20  20 3d 36 0d 00 aa 05 e1  |..opt%   =6.....|
000001a0  0d 00 b4 04 0d 00 be 10  dd 20 f2 69 6e 69 74 6d  |......... .initm|
000001b0  65 6e 75 73 0d 00 c8 23  f2 6c 6f 61 64 74 65 6d  |enus...#.loadtem|
000001c0  70 6c 61 74 65 28 22 73  61 76 65 61 73 22 2c 73  |plate("saveas",s|
000001d0  61 76 65 61 73 25 29 0d  00 d2 2c f2 6c 6f 61 64  |aveas%)...,.load|
000001e0  74 65 6d 70 6c 61 74 65  28 22 43 68 61 72 52 65  |template("CharRe|
000001f0  70 6c 61 63 65 22 2c 43  68 61 72 52 65 70 6c 61  |place",CharRepla|
00000200  63 65 29 0d 00 dc 22 f2  6c 6f 61 64 74 65 6d 70  |ce)...".loadtemp|
00000210  6c 61 74 65 28 22 71 75  65 72 79 31 22 2c 71 75  |late("query1",qu|
00000220  65 72 79 31 29 0d 00 e6  28 f2 6c 6f 61 64 74 65  |ery1)...(.loadte|
00000230  6d 70 6c 61 74 65 28 22  54 65 78 74 54 68 69 6e  |mplate("TextThin|
00000240  67 22 2c 54 65 78 74 54  68 69 6e 67 29 0d 00 f0  |g",TextThing)...|
00000250  3e f2 69 63 6f 6e 6d 65  6e 75 28 22 4d 61 69 6e  |>.iconmenu("Main|
00000260  20 4d 65 6e 75 7c 5b 69  6e 66 6f 62 6f 78 25 5d  | Menu|[infobox%]|
00000270  2e 49 6e 66 6f 20 20 20  20 7c 2e 44 65 66 61 75  |.Info    |.Defau|
00000280  6c 74 7c 2e 51 75 69 74  7c 22 29 0d 00 fa 05 e1  |lt|.Quit|").....|
00000290  0d 01 04 04 0d 01 0e 19  dd 20 f2 6d 65 6e 75 5f  |......... .menu_|
000002a0  6b 6c 69 6b 28 62 75 74  74 6f 6e 25 29 0d 01 18  |klik(button%)...|
000002b0  14 20 20 e7 20 62 75 74  74 6f 6e 25 3c 3e 32 20  |.  . button%<>2 |
000002c0  8c 0d 01 22 2b 20 20 20  20 f2 6d 6f 75 73 65 28  |..."+    .mouse(|
000002d0  6d 78 25 2c 20 6d 79 25  2c 20 6d 62 25 2c 20 77  |mx%, my%, mb%, w|
000002e0  69 6e 64 6f 77 2c 20 69  63 6f 6e 29 0d 01 2c 2f  |indow, icon)..,/|
000002f0  20 20 20 20 f2 6d 6f 76  65 77 69 6e 64 6f 77 28  |    .movewindow(|
00000300  54 65 78 74 54 68 69 6e  67 2c 20 6d 78 25 2d 31  |TextThing, mx%-1|
00000310  35 30 2c 20 6d 79 25 2b  35 30 29 0d 01 36 1e 20  |50, my%+50)..6. |
00000320  20 20 20 f2 6f 70 65 6e  77 69 6e 64 6f 77 28 54  |   .openwindow(T|
00000330  65 78 74 54 68 69 6e 67  29 0d 01 40 07 20 20 cd  |extThing)..@.  .|
00000340  0d 01 4a 05 e1 0d 01 54  04 0d 01 5e 29 dd 20 f2  |..J....T...^). .|
00000350  77 69 6e 64 6f 77 5f 6b  6c 69 6b 28 77 69 6e 64  |window_klik(wind|
00000360  6f 77 25 2c 69 63 6f 6e  25 2c 62 75 74 74 6f 6e  |ow%,icon%,button|
00000370  25 29 0d 01 68 12 20 20  c8 8e 20 77 69 6e 64 6f  |%)..h.  .. windo|
00000380  77 25 20 ca 0d 01 72 13  20 20 20 20 c9 20 54 65  |w% ...r.    . Te|
00000390  78 74 54 68 69 6e 67 0d  01 7c 12 20 20 20 20 c8  |xtThing..|.    .|
000003a0  8e 20 69 63 6f 6e 25 20  ca 0d 01 86 27 20 20 20  |. icon% ....'   |
000003b0  20 20 20 c9 20 69 63 6e  5f 73 61 76 65 3a 20 f4  |   . icn_save: .|
000003c0  20 53 61 76 65 20 61 73  20 64 65 66 61 75 6c 74  | Save as default|
000003d0  0d 01 90 04 0d 01 9a 18  20 20 20 20 20 20 20 20  |........        |
000003e0  f2 73 65 74 5f 6f 70 74  69 6f 6e 73 0d 01 a4 19  |.set_options....|
000003f0  20 20 20 20 20 20 20 20  f2 73 61 76 65 5f 6f 70  |        .save_op|
00000400  74 69 6f 6e 73 0d 01 ae  31 20 20 20 20 20 20 20  |tions...1       |
00000410  20 e7 20 62 75 74 74 6f  6e 25 3d 34 20 8c 20 f2  | . button%=4 . .|
00000420  63 6c 6f 73 65 77 69 6e  64 6f 77 28 54 65 78 74  |closewindow(Text|
00000430  54 68 69 6e 67 29 0d 01  b8 2b 20 20 20 20 20 20  |Thing)...+      |
00000440  c9 20 69 63 6e 5f 73 65  74 3a 20 f4 20 73 65 74  |. icn_set: . set|
00000450  20 66 6f 72 20 74 68 69  73 20 73 65 73 73 69 6f  | for this sessio|
00000460  6e 0d 01 c2 18 20 20 20  20 20 20 20 20 f2 73 65  |n....        .se|
00000470  74 5f 6f 70 74 69 6f 6e  73 0d 01 cc 31 20 20 20  |t_options...1   |
00000480  20 20 20 20 20 e7 20 62  75 74 74 6f 6e 25 3d 34  |     . button%=4|
00000490  20 8c 20 f2 63 6c 6f 73  65 77 69 6e 64 6f 77 28  | . .closewindow(|
000004a0  54 65 78 74 54 68 69 6e  67 29 0d 01 d6 2a 20 20  |TextThing)...*  |
000004b0  20 20 20 20 c9 20 69 63  6e 5f 63 61 6e 3a 20 f2  |    . icn_can: .|
000004c0  63 6c 6f 73 65 77 69 6e  64 6f 77 28 77 69 6e 64  |closewindow(wind|
000004d0  6f 77 25 29 0d 01 e0 29  20 20 20 20 20 20 c9 20  |ow%)...)      . |
000004e0  69 63 6e 5f 63 6c 72 3a  20 f2 63 6c 65 61 72 20  |icn_clr: .clear |
000004f0  3a 20 f2 73 65 74 5f 76  61 6c 75 65 73 0d 01 ea  |: .set_values...|
00000500  2f 20 20 20 20 20 20 20  20 e7 20 62 75 74 74 6f  |/        . butto|
00000510  6e 25 3d 34 20 8c 20 f2  63 6c 6f 73 65 77 69 6e  |n%=4 . .closewin|
00000520  64 6f 77 28 77 69 6e 64  6f 77 25 29 0d 01 f4 15  |dow(window%)....|
00000530  20 20 20 20 20 20 c9 20  69 63 6e 5f 73 69 6e 67  |      . icn_sing|
00000540  3a 0d 01 fe 1d 20 20 20  20 20 20 20 20 21 62 6c  |:....        !bl|
00000550  6f 63 6b 25 3d 54 65 78  74 54 68 69 6e 67 0d 02  |ock%=TextThing..|
00000560  08 2c 20 20 20 20 20 20  20 20 c8 99 20 22 57 69  |.,        .. "Wi|
00000570  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00000580  65 22 2c 2c 62 6c 6f 63  6b 25 0d 02 12 1f 20 20  |e",,block%....  |
00000590  20 20 20 20 20 20 21 62  6c 6f 63 6b 25 3d 43 68  |      !block%=Ch|
000005a0  61 72 52 65 70 6c 61 63  65 0d 02 1c 28 20 20 20  |arReplace...(   |
000005b0  20 20 20 20 20 c8 99 20  22 57 69 6d 70 5f 4f 70  |     .. "Wimp_Op|
000005c0  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |enWindow",,block|
000005d0  25 0d 02 26 23 20 20 20  20 20 20 20 20 f2 63 6c  |%..&#        .cl|
000005e0  6f 73 65 77 69 6e 64 6f  77 28 54 65 78 74 54 68  |osewindow(TextTh|
000005f0  69 6e 67 29 0d 02 30 4c  20 20 20 20 20 20 c9 20  |ing)..0L      . |
00000600  69 63 6e 5f 73 74 72 69  70 5f 74 6f 70 3a 20 69  |icn_strip_top: i|
00000610  63 6e 5f 73 74 72 69 70  5f 74 6f 70 25 3d a4 72  |cn_strip_top%=.r|
00000620  65 61 64 73 74 61 74 65  28 77 69 6e 64 6f 77 25  |eadstate(window%|
00000630  2c 20 69 63 6e 5f 73 74  72 69 70 5f 74 6f 70 29  |, icn_strip_top)|
00000640  0d 02 3a 4c 20 20 20 20  20 20 c9 20 69 63 6e 5f  |..:L      . icn_|
00000650  73 74 72 69 70 5f 63 6f  6e 3a 20 69 63 6e 5f 73  |strip_con: icn_s|
00000660  74 72 69 70 5f 63 6f 6e  25 3d a4 72 65 61 64 73  |trip_con%=.reads|
00000670  74 61 74 65 28 77 69 6e  64 6f 77 25 2c 20 69 63  |tate(window%, ic|
00000680  6e 5f 73 74 72 69 70 5f  63 6f 6e 29 0d 02 44 46  |n_strip_con)..DF|
00000690  20 20 20 20 20 20 c9 20  69 63 6e 5f 72 65 70 5f  |      . icn_rep_|
000006a0  74 61 62 3a 20 69 63 6e  5f 72 65 70 5f 74 61 62  |tab: icn_rep_tab|
000006b0  25 3d a4 72 65 61 64 73  74 61 74 65 28 77 69 6e  |%=.readstate(win|
000006c0  64 6f 77 25 2c 20 69 63  6e 5f 72 65 70 5f 74 61  |dow%, icn_rep_ta|
000006d0  62 29 0d 02 4e 1c 20 20  20 20 20 20 c9 20 69 63  |b)..N.      . ic|
000006e0  6e 5f 72 65 70 5f 74 61  62 5f 64 77 6e 3a 0d 02  |n_rep_tab_dwn:..|
000006f0  58 37 20 20 20 20 20 20  20 20 72 65 70 5f 74 61  |X7        rep_ta|
00000700  62 24 3d a4 72 65 61 64  69 63 6f 6e 28 77 69 6e  |b$=.readicon(win|
00000710  64 6f 77 25 2c 20 69 63  6e 5f 72 65 70 5f 74 61  |dow%, icn_rep_ta|
00000720  62 5f 6e 6f 29 0d 02 62  28 20 20 20 20 20 20 20  |b_no)..b(       |
00000730  20 e7 20 72 65 70 5f 74  61 62 24 3d 22 22 20 8c  | . rep_tab$="" .|
00000740  20 72 65 70 5f 74 61 62  24 3d 22 30 22 0d 02 6c  | rep_tab$="0"..l|
00000750  27 20 20 20 20 20 20 20  20 69 63 6e 5f 72 65 70  |'        icn_rep|
00000760  5f 74 61 62 5f 6e 6f 25  3d a0 28 72 65 70 5f 74  |_tab_no%=.(rep_t|
00000770  61 62 24 29 0d 02 76 1e  20 20 20 20 20 20 20 20  |ab$)..v.        |
00000780  69 63 6e 5f 72 65 70 5f  74 61 62 5f 6e 6f 25 2d  |icn_rep_tab_no%-|
00000790  3d 31 0d 02 80 35 20 20  20 20 20 20 20 20 e7 20  |=1...5        . |
000007a0  69 63 6e 5f 72 65 70 5f  74 61 62 5f 6e 6f 25 20  |icn_rep_tab_no% |
000007b0  3c 20 30 20 8c 20 69 63  6e 5f 72 65 70 5f 74 61  |< 0 . icn_rep_ta|
000007c0  62 5f 6e 6f 25 3d 30 0d  02 8a 27 20 20 20 20 20  |b_no%=0...'     |
000007d0  20 20 20 72 65 70 5f 74  61 62 24 3d c3 28 69 63  |   rep_tab$=.(ic|
000007e0  6e 5f 72 65 70 5f 74 61  62 5f 6e 6f 25 29 0d 02  |n_rep_tab_no%)..|
000007f0  94 35 20 20 20 20 20 20  20 20 f2 73 65 74 69 63  |.5        .setic|
00000800  6f 6e 28 77 69 6e 64 6f  77 25 2c 69 63 6e 5f 72  |on(window%,icn_r|
00000810  65 70 5f 74 61 62 5f 6e  6f 2c 72 65 70 5f 74 61  |ep_tab_no,rep_ta|
00000820  62 24 29 0d 02 9e 1b 20  20 20 20 20 20 c9 20 69  |b$)....      . i|
00000830  63 6e 5f 72 65 70 5f 74  61 62 5f 75 70 3a 0d 02  |cn_rep_tab_up:..|
00000840  a8 37 20 20 20 20 20 20  20 20 72 65 70 5f 74 61  |.7        rep_ta|
00000850  62 24 3d a4 72 65 61 64  69 63 6f 6e 28 77 69 6e  |b$=.readicon(win|
00000860  64 6f 77 25 2c 20 69 63  6e 5f 72 65 70 5f 74 61  |dow%, icn_rep_ta|
00000870  62 5f 6e 6f 29 0d 02 b2  28 20 20 20 20 20 20 20  |b_no)...(       |
00000880  20 e7 20 72 65 70 5f 74  61 62 24 3d 22 22 20 8c  | . rep_tab$="" .|
00000890  20 72 65 70 5f 74 61 62  24 3d 22 30 22 0d 02 bc  | rep_tab$="0"...|
000008a0  27 20 20 20 20 20 20 20  20 69 63 6e 5f 72 65 70  |'        icn_rep|
000008b0  5f 74 61 62 5f 6e 6f 25  3d a0 28 72 65 70 5f 74  |_tab_no%=.(rep_t|
000008c0  61 62 24 29 0d 02 c6 1e  20 20 20 20 20 20 20 20  |ab$)....        |
000008d0  69 63 6e 5f 72 65 70 5f  74 61 62 5f 6e 6f 25 2b  |icn_rep_tab_no%+|
000008e0  3d 31 0d 02 d0 27 20 20  20 20 20 20 20 20 72 65  |=1...'        re|
000008f0  70 5f 74 61 62 24 3d c3  28 69 63 6e 5f 72 65 70  |p_tab$=.(icn_rep|
00000900  5f 74 61 62 5f 6e 6f 25  29 0d 02 da 35 20 20 20  |_tab_no%)...5   |
00000910  20 20 20 20 20 f2 73 65  74 69 63 6f 6e 28 77 69  |     .seticon(wi|
00000920  6e 64 6f 77 25 2c 69 63  6e 5f 72 65 70 5f 74 61  |ndow%,icn_rep_ta|
00000930  62 5f 6e 6f 2c 72 65 70  5f 74 61 62 24 29 0d 02  |b_no,rep_tab$)..|
00000940  e4 17 20 20 20 20 20 20  c9 20 69 63 6e 5f 72 65  |..      . icn_re|
00000950  70 5f 6c 66 3a 0d 02 ee  37 20 20 20 20 20 20 20  |p_lf:...7       |
00000960  20 69 63 6e 5f 72 65 70  5f 6c 66 25 3d a4 72 65  | icn_rep_lf%=.re|
00000970  61 64 73 74 61 74 65 28  77 69 6e 64 6f 77 25 2c  |adstate(window%,|
00000980  20 69 63 6e 5f 72 65 70  5f 6c 66 29 0d 02 f8 1d  | icn_rep_lf)....|
00000990  20 20 20 20 20 20 20 20  e7 20 69 63 6e 5f 72 65  |        . icn_re|
000009a0  70 5f 6c 66 25 3d b9 20  8c 0d 03 02 41 20 20 20  |p_lf%=. ....A   |
000009b0  20 20 20 20 20 20 20 69  63 6e 5f 72 65 70 5f 6c  |       icn_rep_l|
000009c0  66 5f 73 65 74 3d a4 67  72 6f 75 70 73 74 61 74  |f_set=.groupstat|
000009d0  65 28 54 65 78 74 54 68  69 6e 67 2c 20 31 29 2d  |e(TextThing, 1)-|
000009e0  69 63 6e 5f 72 65 70 5f  6c 66 0d 03 0c 21 20 20  |icn_rep_lf...!  |
000009f0  20 20 20 20 20 20 20 20  c8 8e 20 69 63 6e 5f 72  |        .. icn_r|
00000a00  65 70 5f 6c 66 5f 73 65  74 20 ca 0d 03 16 1e 20  |ep_lf_set ..... |
00000a10  20 20 20 20 20 20 20 20  20 c9 20 31 3a 20 6c 66  |         . 1: lf|
00000a20  5f 72 65 70 24 3d 63 72  24 0d 03 20 1e 20 20 20  |_rep$=cr$.. .   |
00000a30  20 20 20 20 20 20 20 c9  20 32 3a 20 6c 66 5f 72  |       . 2: lf_r|
00000a40  65 70 24 3d 6c 66 24 0d  03 2a 20 20 20 20 20 20  |ep$=lf$..*      |
00000a50  20 20 20 20 20 c9 20 33  3a 20 6c 66 5f 72 65 70  |     . 3: lf_rep|
00000a60  24 3d 63 72 6c 66 24 0d  03 34 20 20 20 20 20 20  |$=crlf$..4      |
00000a70  20 20 20 20 20 c9 20 34  3a 20 6c 66 5f 72 65 70  |     . 4: lf_rep|
00000a80  24 3d 6c 66 63 72 24 0d  03 3e 0f 20 20 20 20 20  |$=lfcr$..>.     |
00000a90  20 20 20 20 20 cb 0d 03  48 0d 20 20 20 20 20 20  |     ...H.      |
00000aa0  20 20 cd 0d 03 52 17 20  20 20 20 20 20 c9 20 69  |  ...R.      . i|
00000ab0  63 6e 5f 72 65 70 5f 71  75 3a 0d 03 5c 37 20 20  |cn_rep_qu:..\7  |
00000ac0  20 20 20 20 20 20 69 63  6e 5f 72 65 70 5f 71 75  |      icn_rep_qu|
00000ad0  25 3d a4 72 65 61 64 73  74 61 74 65 28 77 69 6e  |%=.readstate(win|
00000ae0  64 6f 77 25 2c 20 69 63  6e 5f 72 65 70 5f 71 75  |dow%, icn_rep_qu|
00000af0  29 0d 03 66 49 20 20 20  20 20 20 20 20 e7 20 69  |)..fI        . i|
00000b00  63 6e 5f 72 65 70 5f 71  75 25 3d b9 20 8c 20 69  |cn_rep_qu%=. . i|
00000b10  63 6e 5f 72 65 70 5f 71  75 24 3d a4 72 65 61 64  |cn_rep_qu$=.read|
00000b20  69 63 6f 6e 28 77 69 6e  64 6f 77 25 2c 20 69 63  |icon(window%, ic|
00000b30  6e 5f 72 65 70 5f 71 75  31 29 0d 03 70 14 20 20  |n_rep_qu1)..p.  |
00000b40  20 20 20 20 c9 20 69 63  6e 5f 63 61 73 65 0d 03  |    . icn_case..|
00000b50  7a 33 20 20 20 20 20 20  20 20 69 63 6e 5f 63 61  |z3        icn_ca|
00000b60  73 65 25 3d a4 72 65 61  64 73 74 61 74 65 28 77  |se%=.readstate(w|
00000b70  69 6e 64 6f 77 25 2c 20  69 63 6e 5f 63 61 73 65  |indow%, icn_case|
00000b80  29 0d 03 84 1b 20 20 20  20 20 20 20 20 e7 20 69  |)....        . i|
00000b90  63 6e 5f 63 61 73 65 25  3d b9 20 8c 0d 03 8e 3d  |cn_case%=. ....=|
00000ba0  20 20 20 20 20 20 20 20  20 20 69 63 6e 5f 63 61  |          icn_ca|
00000bb0  73 65 5f 73 65 74 3d a4  67 72 6f 75 70 73 74 61  |se_set=.groupsta|
00000bc0  74 65 28 54 65 78 74 54  68 69 6e 67 2c 20 32 29  |te(TextThing, 2)|
00000bd0  2d 69 63 6e 5f 63 61 73  65 0d 03 98 0d 20 20 20  |-icn_case....   |
00000be0  20 20 20 20 20 cd 0d 03  a2 09 20 20 20 20 cb 0d  |     .....    ..|
00000bf0  03 ac 13 20 20 c9 20 43  68 61 72 52 65 70 6c 61  |...  . CharRepla|
00000c00  63 65 0d 03 b6 12 20 20  20 20 c8 8e 20 69 63 6f  |ce....    .. ico|
00000c10  6e 25 20 ca 0d 03 c0 27  20 20 20 20 20 20 c9 20  |n% ....'      . |
00000c20  69 63 6e 5f 73 61 76 65  3a 20 f4 20 53 61 76 65  |icn_save: . Save|
00000c30  20 61 73 20 64 65 66 61  75 6c 74 0d 03 ca 04 0d  | as default.....|
00000c40  03 d4 18 20 20 20 20 20  20 20 20 f2 73 65 74 5f  |...        .set_|
00000c50  6f 70 74 69 6f 6e 73 0d  03 de 19 20 20 20 20 20  |options....     |
00000c60  20 20 20 f2 73 61 76 65  5f 6f 70 74 69 6f 6e 73  |   .save_options|
00000c70  0d 03 e8 33 20 20 20 20  20 20 20 20 e7 20 62 75  |...3        . bu|
00000c80  74 74 6f 6e 25 3d 34 20  8c 20 f2 63 6c 6f 73 65  |tton%=4 . .close|
00000c90  77 69 6e 64 6f 77 28 43  68 61 72 52 65 70 6c 61  |window(CharRepla|
00000ca0  63 65 29 0d 03 f2 2b 20  20 20 20 20 20 c9 20 69  |ce)...+      . i|
00000cb0  63 6e 5f 73 65 74 3a 20  f4 20 73 65 74 20 66 6f  |cn_set: . set fo|
00000cc0  72 20 74 68 69 73 20 73  65 73 73 69 6f 6e 0d 03  |r this session..|
00000cd0  fc 18 20 20 20 20 20 20  20 20 f2 73 65 74 5f 6f  |..        .set_o|
00000ce0  70 74 69 6f 6e 73 0d 04  06 33 20 20 20 20 20 20  |ptions...3      |
00000cf0  20 20 e7 20 62 75 74 74  6f 6e 25 3d 34 20 8c 20  |  . button%=4 . |
00000d00  f2 63 6c 6f 73 65 77 69  6e 64 6f 77 28 43 68 61  |.closewindow(Cha|
00000d10  72 52 65 70 6c 61 63 65  29 0d 04 10 29 20 20 20  |rReplace)...)   |
00000d20  20 20 20 c9 20 69 63 6e  5f 63 6c 72 3a 20 f2 63  |   . icn_clr: .c|
00000d30  6c 65 61 72 20 3a 20 f2  73 65 74 5f 76 61 6c 75  |lear : .set_valu|
00000d40  65 73 0d 04 1a 2f 20 20  20 20 20 20 20 20 e7 20  |es.../        . |
00000d50  62 75 74 74 6f 6e 25 3d  34 20 8c 20 f2 63 6c 6f  |button%=4 . .clo|
00000d60  73 65 77 69 6e 64 6f 77  28 77 69 6e 64 6f 77 25  |sewindow(window%|
00000d70  29 0d 04 24 2a 20 20 20  20 20 20 c9 20 69 63 6e  |)..$*      . icn|
00000d80  5f 63 61 6e 3a 20 f2 63  6c 6f 73 65 77 69 6e 64  |_can: .closewind|
00000d90  6f 77 28 77 69 6e 64 6f  77 25 29 0d 04 2e 15 20  |ow(window%).... |
00000da0  20 20 20 20 20 c9 20 69  63 6e 5f 6d 75 6c 74 3a  |     . icn_mult:|
00000db0  0d 04 38 1f 20 20 20 20  20 20 20 20 21 62 6c 6f  |..8.        !blo|
00000dc0  63 6b 25 3d 43 68 61 72  52 65 70 6c 61 63 65 0d  |ck%=CharReplace.|
00000dd0  04 42 2c 20 20 20 20 20  20 20 20 c8 99 20 22 57  |.B,        .. "W|
00000de0  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00000df0  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 04 4c 1d 20  |te",,block%..L. |
00000e00  20 20 20 20 20 20 20 21  62 6c 6f 63 6b 25 3d 54  |       !block%=T|
00000e10  65 78 74 54 68 69 6e 67  0d 04 56 28 20 20 20 20  |extThing..V(    |
00000e20  20 20 20 20 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |    .. "Wimp_Ope|
00000e30  6e 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |nWindow",,block%|
00000e40  0d 04 60 25 20 20 20 20  20 20 20 20 f2 63 6c 6f  |..`%        .clo|
00000e50  73 65 77 69 6e 64 6f 77  28 43 68 61 72 52 65 70  |sewindow(CharRep|
00000e60  6c 61 63 65 29 0d 04 6a  09 20 20 20 20 cb 0d 04  |lace)..j.    ...|
00000e70  74 0e 20 20 c9 20 71 75  65 72 79 31 0d 04 7e 12  |t.  . query1..~.|
00000e80  20 20 20 20 c8 8e 20 69  63 6f 6e 25 20 ca 0d 04  |    .. icon% ...|
00000e90  88 45 20 20 20 20 20 20  c9 20 30 3a 20 f2 63 6c  |.E      . 0: .cl|
00000ea0  6f 73 65 77 69 6e 64 6f  77 28 71 75 65 72 79 31  |osewindow(query1|
00000eb0  29 20 3a 20 f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |) : .open_window|
00000ec0  28 73 61 76 65 61 73 25  2c 20 2d 31 35 32 2c 20  |(saveas%, -152, |
00000ed0  34 30 29 0d 04 92 23 20  20 20 20 20 20 c9 20 31  |40)...#      . 1|
00000ee0  3a 20 f2 63 6c 6f 73 65  77 69 6e 64 6f 77 28 71  |: .closewindow(q|
00000ef0  75 65 72 79 31 29 0d 04  9c 09 20 20 20 20 cb 0d  |uery1)....    ..|
00000f00  04 a6 07 20 20 cb 0d 04  b0 05 e1 0d 04 ba 04 0d  |...  ...........|
00000f10  04 c4 1d dd 20 f2 64 72  61 67 5f 66 69 6c 65 28  |.... .drag_file(|
00000f20  66 69 6c 65 24 2c 74 79  70 65 25 29 0d 04 ce 13  |file$,type%)....|
00000f30  20 20 69 6e 66 69 6c 65  24 3d 66 69 6c 65 24 0d  |  infile$=file$.|
00000f40  04 d8 14 20 20 6f 6c 64  6c 65 61 66 24 3d 6c 65  |...  oldleaf$=le|
00000f50  61 66 24 0d 04 e2 1c 20  20 6c 65 61 66 24 3d a4  |af$....  leaf$=.|
00000f60  6c 65 61 66 6e 61 6d 65  28 66 69 6c 65 24 29 0d  |leafname(file$).|
00000f70  04 ec 18 20 20 e7 20 6c  65 61 66 24 3d 6f 6c 64  |...  . leaf$=old|
00000f80  6c 65 61 66 24 20 8c 0d  04 f6 11 20 20 20 20 63  |leaf$ .....    c|
00000f90  6f 75 6e 74 25 2b 3d 31  0d 05 00 07 20 20 cc 0d  |ount%+=1....  ..|
00000fa0  05 0a 10 20 20 20 20 63  6f 75 6e 74 25 3d 30 0d  |...    count%=0.|
00000fb0  05 14 07 20 20 cd 0d 05  1e 1f 20 20 74 65 6d 70  |...  .....  temp|
00000fc0  24 3d c0 6c 65 61 66 24  2c 38 29 2b c3 28 63 6f  |$=.leaf$,8)+.(co|
00000fd0  75 6e 74 25 29 0d 05 28  21 20 20 f2 73 65 74 69  |unt%)..(!  .seti|
00000fe0  63 6f 6e 28 73 61 76 65  61 73 25 2c 20 31 2c 20  |con(saveas%, 1, |
00000ff0  74 65 6d 70 24 29 0d 05  32 10 20 20 c8 8e 20 74  |temp$)..2.  .. t|
00001000  79 70 65 25 20 ca 0d 05  3c 04 0d 05 46 49 20 20  |ype% ...<...FI  |
00001010  c9 20 26 46 46 46 2c 20  26 46 46 44 2c 20 26 46  |. &FFF, &FFD, &F|
00001020  45 34 2c 20 26 34 31 38  20 3a 20 f2 6f 70 65 6e  |E4, &418 : .open|
00001030  5f 77 69 6e 64 6f 77 28  73 61 76 65 61 73 25 2c  |_window(saveas%,|
00001040  20 2d 31 35 32 2c 20 34  30 29 20 3a 20 f4 20 54  | -152, 40) : . T|
00001050  65 78 74 0d 05 50 46 20  20 c9 20 26 31 30 30 30  |ext..PF  . &1000|
00001060  20 3a 20 6d 73 67 24 3d  6c 65 61 66 24 20 2b 20  | : msg$=leaf$ + |
00001070  22 20 69 73 20 61 20 64  69 72 65 63 74 6f 72 79  |" is a directory|
00001080  20 61 6e 64 20 63 61 6e  6e 6f 74 20 62 65 20 63  | and cannot be c|
00001090  6f 6e 76 65 72 74 65 64  22 0d 05 5a 23 20 20 20  |onverted"..Z#   |
000010a0  20 f2 77 61 72 6e 69 6e  67 28 6d 73 67 24 2c 20  | .warning(msg$, |
000010b0  22 54 65 78 74 54 68 69  6e 67 22 29 0d 05 64 49  |"TextThing")..dI|
000010c0  20 20 c9 20 26 32 30 30  30 20 3a 20 6d 73 67 24  |  . &2000 : msg$|
000010d0  3d 6c 65 61 66 24 20 2b  20 22 20 69 73 20 61 6e  |=leaf$ + " is an|
000010e0  20 61 70 70 6c 69 63 61  74 69 6f 6e 20 61 6e 64  | application and|
000010f0  20 63 61 6e 6e 6f 74 20  62 65 20 63 6f 6e 76 65  | cannot be conve|
00001100  72 74 65 64 22 0d 05 6e  23 20 20 20 20 f2 77 61  |rted"..n#    .wa|
00001110  72 6e 69 6e 67 28 6d 73  67 24 2c 20 22 54 65 78  |rning(msg$, "Tex|
00001120  74 54 68 69 6e 67 22 29  0d 05 78 07 20 20 7f 0d  |tThing")..x.  ..|
00001130  05 82 27 20 20 20 20 f2  6f 70 65 6e 64 69 61 6c  |..'    .opendial|
00001140  6f 67 75 65 28 71 75 65  72 79 31 2c 20 33 36 39  |ogue(query1, 369|
00001150  2c 20 33 33 36 29 0d 05  8c 07 20 20 cb 0d 05 96  |, 336)....  ....|
00001160  05 e1 0d 05 a0 04 0d 05  aa 31 dd 20 f2 6f 70 65  |.........1. .ope|
00001170  6e 5f 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 25  |n_window(handle%|
00001180  2c 20 78 5f 6f 66 66 73  65 74 25 2c 20 79 5f 6f  |, x_offset%, y_o|
00001190  66 66 73 65 74 25 29 0d  05 b4 20 ea 20 6d 78 25  |ffset%)... . mx%|
000011a0  2c 20 6d 79 25 2c 20 6d  62 25 2c 20 77 69 6e 25  |, my%, mb%, win%|
000011b0  2c 20 69 63 6f 6e 25 0d  05 be 26 f2 6d 6f 75 73  |, icon%...&.mous|
000011c0  65 28 6d 78 25 2c 20 6d  79 25 2c 20 6d 62 25 2c  |e(mx%, my%, mb%,|
000011d0  20 77 69 6e 25 2c 20 69  63 6f 6e 25 29 0d 05 c8  | win%, icon%)...|
000011e0  36 f2 6d 6f 76 65 77 69  6e 64 6f 77 28 68 61 6e  |6.movewindow(han|
000011f0  64 6c 65 25 2c 20 6d 78  25 2b 78 5f 6f 66 66 73  |dle%, mx%+x_offs|
00001200  65 74 25 2c 20 6d 79 25  2b 79 5f 6f 66 66 73 65  |et%, my%+y_offse|
00001210  74 25 29 0d 05 d2 18 f2  6f 70 65 6e 77 69 6e 64  |t%).....openwind|
00001220  6f 77 28 68 61 6e 64 6c  65 25 29 0d 05 dc 05 e1  |ow(handle%).....|
00001230  0d 05 e6 04 0d 05 f0 11  dd 20 f2 73 65 74 5f 76  |......... .set_v|
00001240  61 6c 75 65 73 0d 05 fa  09 20 20 ea 20 69 0d 06  |alues....  . i..|
00001250  04 05 20 0d 06 0e 39 20  20 f2 73 65 74 73 74 61  |.. ...9  .setsta|
00001260  74 65 28 54 65 78 74 54  68 69 6e 67 2c 20 69 63  |te(TextThing, ic|
00001270  6e 5f 73 74 72 69 70 5f  74 6f 70 2c 20 69 63 6e  |n_strip_top, icn|
00001280  5f 73 74 72 69 70 5f 74  6f 70 25 29 0d 06 18 39  |_strip_top%)...9|
00001290  20 20 f2 73 65 74 73 74  61 74 65 28 54 65 78 74  |  .setstate(Text|
000012a0  54 68 69 6e 67 2c 20 69  63 6e 5f 73 74 72 69 70  |Thing, icn_strip|
000012b0  5f 63 6f 6e 2c 20 69 63  6e 5f 73 74 72 69 70 5f  |_con, icn_strip_|
000012c0  63 6f 6e 25 29 0d 06 22  35 20 20 f2 73 65 74 73  |con%).."5  .sets|
000012d0  74 61 74 65 28 54 65 78  74 54 68 69 6e 67 2c 20  |tate(TextThing, |
000012e0  69 63 6e 5f 72 65 70 5f  74 61 62 2c 20 69 63 6e  |icn_rep_tab, icn|
000012f0  5f 72 65 70 5f 74 61 62  25 29 0d 06 2c 3d 20 20  |_rep_tab%)..,=  |
00001300  f2 73 65 74 69 63 6f 6e  28 54 65 78 74 54 68 69  |.seticon(TextThi|
00001310  6e 67 2c 20 69 63 6e 5f  72 65 70 5f 74 61 62 5f  |ng, icn_rep_tab_|
00001320  6e 6f 2c 20 c3 28 69 63  6e 5f 72 65 70 5f 74 61  |no, .(icn_rep_ta|
00001330  62 5f 6e 6f 25 29 29 0d  06 36 29 20 20 69 63 6e  |b_no%))..6)  icn|
00001340  5f 72 65 70 5f 74 61 62  24 3d c4 69 63 6e 5f 72  |_rep_tab$=.icn_r|
00001350  65 70 5f 74 61 62 5f 6e  6f 25 2c 20 22 20 22 29  |ep_tab_no%, " ")|
00001360  0d 06 40 33 20 20 f2 73  65 74 73 74 61 74 65 28  |..@3  .setstate(|
00001370  54 65 78 74 54 68 69 6e  67 2c 20 69 63 6e 5f 72  |TextThing, icn_r|
00001380  65 70 5f 6c 66 2c 20 69  63 6e 5f 72 65 70 5f 6c  |ep_lf, icn_rep_l|
00001390  66 25 29 0d 06 4a 3b 20  20 f2 73 65 74 73 74 61  |f%)..J;  .setsta|
000013a0  74 65 28 54 65 78 74 54  68 69 6e 67 2c 20 69 63  |te(TextThing, ic|
000013b0  6e 5f 72 65 70 5f 6c 66  20 2b 20 69 63 6e 5f 72  |n_rep_lf + icn_r|
000013c0  65 70 5f 6c 66 5f 73 65  74 25 2c 20 31 29 0d 06  |ep_lf_set%, 1)..|
000013d0  54 1a 20 20 c8 8e 20 69  63 6e 5f 72 65 70 5f 6c  |T.  .. icn_rep_l|
000013e0  66 5f 73 65 74 25 20 ca  0d 06 5e 1d 20 20 20 20  |f_set% ...^.    |
000013f0  c9 20 31 20 3a 20 69 63  6e 5f 72 65 70 5f 6c 66  |. 1 : icn_rep_lf|
00001400  24 3d 63 72 24 0d 06 68  1d 20 20 20 20 c9 20 32  |$=cr$..h.    . 2|
00001410  20 3a 20 69 63 6e 5f 72  65 70 5f 6c 66 24 3d 6c  | : icn_rep_lf$=l|
00001420  66 24 0d 06 72 1f 20 20  20 20 c9 20 33 20 3a 20  |f$..r.    . 3 : |
00001430  69 63 6e 5f 72 65 70 5f  6c 66 24 3d 63 72 6c 66  |icn_rep_lf$=crlf|
00001440  24 0d 06 7c 1f 20 20 20  20 c9 20 34 20 3a 20 69  |$..|.    . 4 : i|
00001450  63 6e 5f 72 65 70 5f 6c  66 24 3d 6c 66 63 72 24  |cn_rep_lf$=lfcr$|
00001460  0d 06 86 07 20 20 7f 0d  06 90 1f 20 20 20 20 69  |....  .....    i|
00001470  63 6e 5f 72 65 70 5f 6c  66 24 3d 22 3c 6e 65 77  |cn_rep_lf$="<new|
00001480  6c 69 6e 65 3e 22 0d 06  9a 07 20 20 cb 0d 06 a4  |line>"....  ....|
00001490  33 20 20 f2 73 65 74 73  74 61 74 65 28 54 65 78  |3  .setstate(Tex|
000014a0  74 54 68 69 6e 67 2c 20  69 63 6e 5f 72 65 70 5f  |tThing, icn_rep_|
000014b0  71 75 2c 20 69 63 6e 5f  72 65 70 5f 71 75 25 29  |qu, icn_rep_qu%)|
000014c0  0d 06 ae 33 20 20 f2 73  65 74 69 63 6f 6e 28 54  |...3  .seticon(T|
000014d0  65 78 74 54 68 69 6e 67  2c 20 69 63 6e 5f 72 65  |extThing, icn_re|
000014e0  70 5f 71 75 31 2c 20 69  63 6e 5f 72 65 70 5f 71  |p_qu1, icn_rep_q|
000014f0  75 24 29 0d 06 b8 35 20  20 f2 73 65 74 73 74 61  |u$)...5  .setsta|
00001500  74 65 28 54 65 78 74 54  68 69 6e 67 2c 20 69 63  |te(TextThing, ic|
00001510  6e 5f 72 65 70 5f 64 71  75 2c 20 69 63 6e 5f 72  |n_rep_dqu, icn_r|
00001520  65 70 5f 64 71 75 25 29  0d 06 c2 35 20 20 f2 73  |ep_dqu%)...5  .s|
00001530  65 74 69 63 6f 6e 28 54  65 78 74 54 68 69 6e 67  |eticon(TextThing|
00001540  2c 20 69 63 6e 5f 72 65  70 5f 64 71 75 31 2c 20  |, icn_rep_dqu1, |
00001550  69 63 6e 5f 72 65 70 5f  64 71 75 24 29 0d 06 cc  |icn_rep_dqu$)...|
00001560  2f 20 20 f2 73 65 74 73  74 61 74 65 28 54 65 78  |/  .setstate(Tex|
00001570  74 54 68 69 6e 67 2c 20  69 63 6e 5f 63 61 73 65  |tThing, icn_case|
00001580  2c 20 69 63 6e 5f 63 61  73 65 25 29 0d 06 d6 37  |, icn_case%)...7|
00001590  20 20 f2 73 65 74 73 74  61 74 65 28 54 65 78 74  |  .setstate(Text|
000015a0  54 68 69 6e 67 2c 20 69  63 6e 5f 63 61 73 65 20  |Thing, icn_case |
000015b0  2b 20 69 63 6e 5f 63 61  73 65 5f 73 65 74 25 2c  |+ icn_case_set%,|
000015c0  20 31 29 0d 06 e0 05 20  0d 06 ea 1d 20 20 64 69  | 1).... ....  di|
000015d0  73 70 6c 61 79 24 3d 22  20 22 20 3a 20 76 61 6c  |splay$=" " : val|
000015e0  75 65 25 3d 30 0d 06 f4  05 20 0d 06 fe 10 20 20  |ue%=0.... ....  |
000015f0  e3 20 69 3d 30 20 b8 20  31 31 0d 07 08 3c 20 20  |. i=0 . 11...<  |
00001600  20 20 f2 73 65 74 69 63  6f 6e 28 43 68 61 72 52  |  .seticon(CharR|
00001610  65 70 6c 61 63 65 2c 20  69 63 6e 5f 72 65 70 30  |eplace, icn_rep0|
00001620  20 2b 20 69 2a 34 2c 20  69 63 6e 5f 72 65 70 5f  | + i*4, icn_rep_|
00001630  72 24 28 69 29 29 0d 07  12 2f 20 20 20 20 f2 76  |r$(i)).../    .v|
00001640  61 6c 75 65 28 69 63 6e  5f 72 65 70 5f 72 24 28  |alue(icn_rep_r$(|
00001650  69 29 2c 20 64 69 73 70  6c 61 79 24 2c 20 76 61  |i), display$, va|
00001660  6c 75 65 25 29 0d 07 1c  37 20 20 20 20 f2 73 65  |lue%)...7    .se|
00001670  74 69 63 6f 6e 28 43 68  61 72 52 65 70 6c 61 63  |ticon(CharReplac|
00001680  65 2c 20 69 63 6e 5f 72  65 70 31 20 2b 20 69 2a  |e, icn_rep1 + i*|
00001690  34 2c 20 64 69 73 70 6c  61 79 24 29 0d 07 26 3c  |4, display$)..&<|
000016a0  20 20 20 20 f2 73 65 74  69 63 6f 6e 28 43 68 61  |    .seticon(Cha|
000016b0  72 52 65 70 6c 61 63 65  2c 20 69 63 6e 5f 72 65  |rReplace, icn_re|
000016c0  70 32 20 2b 20 69 2a 34  2c 20 69 63 6e 5f 72 65  |p2 + i*4, icn_re|
000016d0  70 5f 77 24 28 69 29 29  0d 07 30 2f 20 20 20 20  |p_w$(i))..0/    |
000016e0  f2 76 61 6c 75 65 28 69  63 6e 5f 72 65 70 5f 77  |.value(icn_rep_w|
000016f0  24 28 69 29 2c 20 64 69  73 70 6c 61 79 24 2c 20  |$(i), display$, |
00001700  76 61 6c 75 65 25 29 0d  07 3a 37 20 20 20 20 f2  |value%)..:7    .|
00001710  73 65 74 69 63 6f 6e 28  43 68 61 72 52 65 70 6c  |seticon(CharRepl|
00001720  61 63 65 2c 20 69 63 6e  5f 72 65 70 33 20 2b 20  |ace, icn_rep3 + |
00001730  69 2a 34 2c 20 64 69 73  70 6c 61 79 24 29 0d 07  |i*4, display$)..|
00001740  44 07 20 20 ed 0d 07 4e  05 20 0d 07 58 12 20 20  |D.  ...N. ..X.  |
00001750  f2 73 65 74 5f 6f 70 74  69 6f 6e 73 0d 07 62 05  |.set_options..b.|
00001760  e1 0d 07 6c 04 0d 07 76  1a dd 20 f2 63 6f 6e 76  |...l...v.. .conv|
00001770  65 72 74 5f 66 69 6c 65  28 66 69 6c 65 24 29 0d  |ert_file(file$).|
00001780  07 80 1f 20 20 ee 20 85  20 ea 3a 20 d9 23 69 6e  |...  . . .: .#in|
00001790  25 20 3a 20 d9 23 6f 75  74 25 20 3a 20 e1 0d 07  |% : .#out% : ...|
000017a0  8a 0d 20 20 66 6c 61 67  25 3d 30 0d 07 94 0d 20  |..  flag%=0.... |
000017b0  20 f2 68 6f 75 72 6f 6e  0d 07 9e 05 20 0d 07 a8  | .houron.... ...|
000017c0  14 20 20 69 6e 25 3d 8e  28 69 6e 66 69 6c 65 24  |.  in%=.(infile$|
000017d0  29 0d 07 b2 13 20 20 6f  75 74 25 3d ae 28 66 69  |)....  out%=.(fi|
000017e0  6c 65 24 29 0d 07 bc 04  0d 07 c6 12 20 20 c8 95  |le$)........  ..|
000017f0  20 ac 20 c5 23 28 69 6e  25 29 0d 07 d0 15 20 20  | . .#(in%)....  |
00001800  20 20 69 6e 63 68 61 72  25 3d 9a 23 69 6e 25 0d  |  inchar%=.#in%.|
00001810  07 da 04 0d 07 e4 1e 20  20 20 20 69 6e 63 68 61  |.......    incha|
00001820  72 25 3d 63 68 61 72 73  25 3f 69 6e 63 68 61 72  |r%=chars%?inchar|
00001830  25 0d 07 ee 1e 20 20 20  20 e7 20 69 6e 63 68 61  |%....    . incha|
00001840  72 25 3c 3e 32 20 8c 20  66 6c 61 67 25 3d 30 0d  |r%<>2 . flag%=0.|
00001850  07 f8 05 20 0d 08 02 15  20 20 20 20 e7 20 69 6e  |... ....    . in|
00001860  63 68 61 72 25 3e 38 20  8c 0d 08 0c 19 20 20 20  |char%>8 .....   |
00001870  20 20 20 d5 23 6f 75 74  25 2c 20 69 6e 63 68 61  |   .#out%, incha|
00001880  72 25 0d 08 16 09 20 20  20 20 cc 0d 08 20 16 20  |r%....    ... . |
00001890  20 20 20 20 20 c8 8e 20  69 6e 63 68 61 72 25 20  |     .. inchar% |
000018a0  ca 0d 08 2a 10 20 20 20  20 20 20 20 20 c9 20 30  |...*.        . 0|
000018b0  3a 0d 08 34 26 20 20 20  20 20 20 20 20 c9 20 31  |:..4&        . 1|
000018c0  3a 20 d5 23 6f 75 74 25  2c 20 69 63 6e 5f 72 65  |: .#out%, icn_re|
000018d0  70 5f 74 61 62 24 3b 0d  08 3e 10 20 20 20 20 20  |p_tab$;..>.     |
000018e0  20 20 20 c9 20 32 3a 0d  08 48 19 20 20 20 20 20  |   . 2:..H.     |
000018f0  20 20 20 20 20 e7 20 66  6c 61 67 25 3d 30 20 8c  |     . flag%=0 .|
00001900  0d 08 52 24 20 20 20 20  20 20 20 20 20 20 20 20  |..R$            |
00001910  d5 23 6f 75 74 25 2c 20  69 63 6e 5f 72 65 70 5f  |.#out%, icn_rep_|
00001920  6c 66 24 3b 0d 08 5c 17  20 20 20 20 20 20 20 20  |lf$;..\.        |
00001930  20 20 20 20 66 6c 61 67  25 3d 31 0d 08 66 0f 20  |    flag%=1..f. |
00001940  20 20 20 20 20 20 20 20  20 cd 0d 08 70 25 20 20  |         ...p%  |
00001950  20 20 20 20 20 20 c9 20  33 3a 20 d5 23 6f 75 74  |      . 3: .#out|
00001960  25 2c 20 69 63 6e 5f 72  65 70 5f 71 75 24 3b 0d  |%, icn_rep_qu$;.|
00001970  08 7a 26 20 20 20 20 20  20 20 20 c9 20 34 3a 20  |.z&        . 4: |
00001980  d5 23 6f 75 74 25 2c 20  69 63 6e 5f 72 65 70 5f  |.#out%, icn_rep_|
00001990  64 71 75 24 3b 0d 08 84  0b 20 20 20 20 20 20 7f  |dqu$;....      .|
000019a0  0d 08 8e 3d 20 20 20 20  20 20 20 20 f2 77 61 72  |...=        .war|
000019b0  6e 69 6e 67 28 22 54 68  69 73 20 69 73 20 61 20  |ning("This is a |
000019c0  62 69 74 20 6f 66 20 61  20 62 75 67 67 65 72 22  |bit of a bugger"|
000019d0  2c 20 c3 28 69 6e 63 68  61 72 25 29 29 0d 08 98  |, .(inchar%))...|
000019e0  0b 20 20 20 20 20 20 cb  0d 08 a2 09 20 20 20 20  |.      .....    |
000019f0  cd 0d 08 ac 04 0d 08 b6  07 20 20 ce 0d 08 c0 04  |.........  .....|
00001a00  0d 08 ca 0b 20 20 d9 23  69 6e 25 0d 08 d4 0c 20  |....  .#in%.... |
00001a10  20 d9 23 6f 75 74 25 0d  08 de 2a 20 20 c8 99 20  | .#out%...*  .. |
00001a20  22 58 4f 53 5f 43 4c 49  22 2c 22 53 65 74 74 79  |"XOS_CLI","Setty|
00001a30  70 65 20 22 2b 66 69 6c  65 24 2b 22 20 46 46 46  |pe "+file$+" FFF|
00001a40  22 0d 08 e8 0e 20 20 f2  68 6f 75 72 6f 66 66 0d  |"....  .houroff.|
00001a50  08 f2 05 e1 0d 08 fc 04  0d 09 06 1a dd 20 a4 72  |............. .r|
00001a60  65 61 64 5f 73 79 73 76  61 72 28 24 6e 61 6d 65  |ead_sysvar($name|
00001a70  25 29 0d 09 10 36 c8 99  20 22 58 4f 53 5f 52 65  |%)...6.. "XOS_Re|
00001a80  61 64 56 61 72 56 61 6c  22 2c 6e 61 6d 65 25 2c  |adVarVal",name%,|
00001a90  72 65 73 75 6c 74 25 2c  31 30 30 2c 2c 33 20 b8  |result%,100,,3 .|
00001aa0  20 2c 2c 64 6c 65 6e 25  0d 09 1a 16 72 65 73 75  | ,,dlen%....resu|
00001ab0  6c 74 25 3f 28 64 6c 65  6e 25 29 3d 31 33 0d 09  |lt%?(dlen%)=13..|
00001ac0  24 0d 3d 24 72 65 73 75  6c 74 25 0d 09 2e 04 0d  |$.=$result%.....|
00001ad0  09 38 04 0d 09 42 0f dd  20 f2 73 74 61 72 74 5f  |.8...B.. .start_|
00001ae0  75 70 0d 09 4c 11 20 20  de 20 62 6c 6f 63 6b 25  |up..L.  . block%|
00001af0  20 34 34 0d 09 56 12 20  20 de 20 63 68 61 72 73  | 44..V.  . chars|
00001b00  25 20 32 35 36 0d 09 60  11 20 20 de 20 73 6d 5f  |% 256..`.  . sm_|
00001b10  71 75 25 28 34 29 0d 09  6a 16 20 20 de 20 69 63  |qu%(4)..j.  . ic|
00001b20  6e 5f 72 65 70 5f 72 24  28 31 32 29 0d 09 74 16  |n_rep_r$(12)..t.|
00001b30  20 20 de 20 69 63 6e 5f  72 65 70 5f 77 24 28 31  |  . icn_rep_w$(1|
00001b40  32 29 0d 09 7e 2d f4 20  49 63 6f 6e 20 64 65 66  |2)..~-. Icon def|
00001b50  69 6e 69 74 69 6f 6e 73  20 2d 20 6d 75 6c 74 69  |initions - multi|
00001b60  70 6c 65 20 63 68 61 72  20 77 69 6e 64 6f 77 0d  |ple char window.|
00001b70  09 88 31 20 20 69 63 6e  5f 73 61 76 65 3d 30 3a  |..1  icn_save=0:|
00001b80  20 69 63 6e 5f 73 65 74  3d 31 3a 20 69 63 6e 5f  | icn_set=1: icn_|
00001b90  63 6c 72 3d 32 3a 20 69  63 6e 5f 63 61 6e 3d 33  |clr=2: icn_can=3|
00001ba0  0d 09 92 1c 20 20 69 63  6e 5f 6d 75 6c 74 3d 35  |....  icn_mult=5|
00001bb0  3a 20 69 63 6e 5f 73 69  6e 67 3d 36 0d 09 9c 26  |: icn_sing=6...&|
00001bc0  20 20 69 63 6e 5f 73 74  72 69 70 5f 74 6f 70 3d  |  icn_strip_top=|
00001bd0  37 3a 20 69 63 6e 5f 73  74 72 69 70 5f 63 6f 6e  |7: icn_strip_con|
00001be0  3d 38 0d 09 a6 4c 20 20  69 63 6e 5f 72 65 70 5f  |=8...L  icn_rep_|
00001bf0  74 61 62 3d 39 3a 20 69  63 6e 5f 72 65 70 5f 74  |tab=9: icn_rep_t|
00001c00  61 62 5f 6e 6f 3d 31 30  3a 69 63 6e 5f 72 65 70  |ab_no=10:icn_rep|
00001c10  5f 74 61 62 5f 64 77 6e  3d 31 31 3a 20 69 63 6e  |_tab_dwn=11: icn|
00001c20  5f 72 65 70 5f 74 61 62  5f 75 70 3d 31 32 0d 09  |_rep_tab_up=12..|
00001c30  b0 5f 20 20 69 63 6e 5f  72 65 70 5f 6c 66 3d 31  |._  icn_rep_lf=1|
00001c40  33 3a 20 69 63 6e 5f 72  65 70 5f 6c 66 5f 63 72  |3: icn_rep_lf_cr|
00001c50  3d 31 34 3a 20 69 63 6e  5f 72 65 70 5f 6c 66 5f  |=14: icn_rep_lf_|
00001c60  6c 66 3d 31 35 3a 20 69  63 6e 5f 72 65 70 5f 6c  |lf=15: icn_rep_l|
00001c70  66 5f 63 72 6c 66 3d 31  36 3a 20 69 63 6e 5f 72  |f_crlf=16: icn_r|
00001c80  65 70 5f 6c 66 5f 6c 66  63 72 3d 31 37 0d 09 ba  |ep_lf_lfcr=17...|
00001c90  23 20 20 69 63 6e 5f 72  65 70 5f 71 75 3d 31 38  |#  icn_rep_qu=18|
00001ca0  3a 20 69 63 6e 5f 72 65  70 5f 71 75 31 3d 31 39  |: icn_rep_qu1=19|
00001cb0  0d 09 c4 25 20 20 69 63  6e 5f 72 65 70 5f 64 71  |...%  icn_rep_dq|
00001cc0  75 3d 32 30 3a 20 69 63  6e 5f 72 65 70 5f 64 71  |u=20: icn_rep_dq|
00001cd0  75 31 3d 32 31 0d 09 ce  30 20 20 69 63 6e 5f 63  |u1=21...0  icn_c|
00001ce0  61 73 65 3d 32 32 3a 20  69 63 6e 5f 63 61 73 65  |ase=22: icn_case|
00001cf0  5f 75 3d 32 33 20 3a 20  69 63 6e 5f 63 61 73 65  |_u=23 : icn_case|
00001d00  5f 6c 3d 32 34 0d 09 d8  04 0d 09 e2 18 f4 20 73  |_l=24......... s|
00001d10  69 6e 67 6c 65 20 63 68  61 72 20 77 69 6e 64 6f  |ingle char windo|
00001d20  77 0d 09 ec 36 69 63 6e  5f 72 65 70 30 3d 31 31  |w...6icn_rep0=11|
00001d30  3a 20 69 63 6e 5f 72 65  70 31 3d 31 32 3a 20 69  |: icn_rep1=12: i|
00001d40  63 6e 5f 72 65 70 32 3d  31 33 3a 20 69 63 6e 5f  |cn_rep2=13: icn_|
00001d50  72 65 70 33 3d 31 34 0d  09 f6 04 0d 0a 00 16 f4  |rep3=14.........|
00001d60  20 47 6c 6f 62 61 6c 20  76 61 72 69 61 62 6c 65  | Global variable|
00001d70  73 0d 0a 0a 0c 20 20 74  61 62 25 3d 39 0d 0a 14  |s....  tab%=9...|
00001d80  0c 20 20 6c 66 25 3d 31  30 0d 0a 1e 0c 20 20 63  |.  lf%=10....  c|
00001d90  72 25 3d 31 33 0d 0a 28  10 20 20 6c 66 24 3d bd  |r%=13..(.  lf$=.|
00001da0  28 6c 66 25 29 0d 0a 32  10 20 20 63 72 24 3d bd  |(lf%)..2.  cr$=.|
00001db0  28 63 72 25 29 0d 0a 3c  13 20 20 63 72 6c 66 24  |(cr%)..<.  crlf$|
00001dc0  3d 63 72 24 2b 6c 66 24  0d 0a 46 13 20 20 6c 66  |=cr$+lf$..F.  lf|
00001dd0  63 72 24 3d 6c 66 24 2b  63 72 24 0d 0a 50 0f 20  |cr$=lf$+cr$..P. |
00001de0  20 73 70 61 63 65 25 3d  33 32 0d 0a 5a 0f 20 20  | space%=32..Z.  |
00001df0  71 75 6f 74 65 25 3d 33  34 0d 0a 64 16 20 20 71  |quote%=34..d.  q|
00001e00  75 6f 74 65 24 3d bd 28  71 75 6f 74 65 25 29 0d  |uote$=.(quote%).|
00001e10  0a 6e 13 20 20 73 6d 5f  71 75 25 28 30 29 3d 31  |.n.  sm_qu%(0)=1|
00001e20  34 34 0d 0a 78 13 20 20  73 6d 5f 71 75 25 28 31  |44..x.  sm_qu%(1|
00001e30  29 3d 31 34 35 0d 0a 82  13 20 20 73 6d 5f 71 75  |)=145....  sm_qu|
00001e40  25 28 32 29 3d 31 34 38  0d 0a 8c 13 20 20 73 6d  |%(2)=148....  sm|
00001e50  5f 71 75 25 28 33 29 3d  31 34 39 0d 0a 96 0e 20  |_qu%(3)=149.... |
00001e60  20 63 6f 75 6e 74 25 3d  30 0d 0a a0 18 20 20 6c  | count%=0....  l|
00001e70  65 61 66 24 3d 22 20 20  20 20 20 20 20 20 20 20  |eaf$="          |
00001e80  22 0d 0a aa 17 20 20 6e  61 6d 65 24 3d 22 54 65  |"....  name$="Te|
00001e90  78 74 54 68 69 6e 67 22  0d 0a b4 28 20 20 76 65  |xtThing"...(  ve|
00001ea0  72 73 69 6f 6e 24 3d 22  30 2e 30 33 20 28 32 38  |rsion$="0.03 (28|
00001eb0  20 46 65 62 72 75 61 72  79 20 31 39 39 38 29 22  | February 1998)"|
00001ec0  0d 0a be 04 0d 0a c8 25  20 20 f2 73 65 74 69 63  |.......%  .setic|
00001ed0  6f 6e 28 69 6e 66 6f 62  6f 78 25 2c 20 37 2c 20  |on(infobox%, 7, |
00001ee0  76 65 72 73 69 6f 6e 24  29 0d 0a d2 04 0d 0a dc  |version$).......|
00001ef0  4f 20 20 f4 20 4f 4e 20  45 52 52 4f 52 20 4c 4f  |O  . ON ERROR LO|
00001f00  43 41 4c 3a 20 43 4c 4f  53 45 23 69 6e 25 20 3a  |CAL: CLOSE#in% :|
00001f10  20 20 50 52 4f 43 73 65  74 5f 64 65 66 61 75 6c  |  PROCset_defaul|
00001f20  74 73 3a 20 50 52 4f 43  73 65 74 5f 76 61 6c 75  |ts: PROCset_valu|
00001f30  65 73 20 3a 20 45 4e 44  50 52 4f 43 0d 0a e6 20  |es : ENDPROC... |
00001f40  20 20 69 6e 25 3d 8e 28  74 61 73 6b 64 69 72 24  |  in%=.(taskdir$|
00001f50  2b 22 2e 4f 70 74 69 6f  6e 73 22 29 0d 0a f0 05  |+".Options")....|
00001f60  20 0d 0a fa 12 20 20 e8  23 69 6e 25 2c 20 6e 61  | ....  .#in%, na|
00001f70  6d 65 24 0d 0b 04 05 20  0d 0b 0e 1b 20 20 e7 20  |me$.... ....  . |
00001f80  6e 61 6d 65 24 3d 22 54  65 78 74 54 68 69 6e 67  |name$="TextThing|
00001f90  22 20 8c 0d 0b 18 1d 20  20 20 20 e8 23 69 6e 25  |" .....    .#in%|
00001fa0  2c 20 69 63 6e 5f 73 74  72 69 70 5f 74 6f 70 25  |, icn_strip_top%|
00001fb0  0d 0b 22 1d 20 20 20 20  e8 23 69 6e 25 2c 20 69  |..".    .#in%, i|
00001fc0  63 6e 5f 73 74 72 69 70  5f 63 6f 6e 25 0d 0b 2c  |cn_strip_con%..,|
00001fd0  1b 20 20 20 20 e8 23 69  6e 25 2c 20 69 63 6e 5f  |.    .#in%, icn_|
00001fe0  72 65 70 5f 74 61 62 25  0d 0b 36 1e 20 20 20 20  |rep_tab%..6.    |
00001ff0  e8 23 69 6e 25 2c 20 69  63 6e 5f 72 65 70 5f 74  |.#in%, icn_rep_t|
00002000  61 62 5f 6e 6f 25 0d 0b  40 1a 20 20 20 20 e8 23  |ab_no%..@.    .#|
00002010  69 6e 25 2c 20 69 63 6e  5f 72 65 70 5f 6c 66 25  |in%, icn_rep_lf%|
00002020  0d 0b 4a 1e 20 20 20 20  e8 23 69 6e 25 2c 20 69  |..J.    .#in%, i|
00002030  63 6e 5f 72 65 70 5f 6c  66 5f 73 65 74 25 0d 0b  |cn_rep_lf_set%..|
00002040  54 1a 20 20 20 20 e8 23  69 6e 25 2c 20 69 63 6e  |T.    .#in%, icn|
00002050  5f 72 65 70 5f 71 75 25  0d 0b 5e 1a 20 20 20 20  |_rep_qu%..^.    |
00002060  e8 23 69 6e 25 2c 20 69  63 6e 5f 72 65 70 5f 71  |.#in%, icn_rep_q|
00002070  75 24 0d 0b 68 1b 20 20  20 20 e8 23 69 6e 25 2c  |u$..h.    .#in%,|
00002080  20 69 63 6e 5f 72 65 70  5f 64 71 75 25 0d 0b 72  | icn_rep_dqu%..r|
00002090  1b 20 20 20 20 e8 23 69  6e 25 2c 20 69 63 6e 5f  |.    .#in%, icn_|
000020a0  72 65 70 5f 64 71 75 24  0d 0b 7c 18 20 20 20 20  |rep_dqu$..|.    |
000020b0  e8 23 69 6e 25 2c 20 69  63 6e 5f 63 61 73 65 25  |.#in%, icn_case%|
000020c0  0d 0b 86 1c 20 20 20 20  e8 23 69 6e 25 2c 20 69  |....    .#in%, i|
000020d0  63 6e 5f 63 61 73 65 5f  73 65 74 25 0d 0b 90 12  |cn_case_set%....|
000020e0  20 20 20 20 e3 20 69 3d  30 20 b8 20 31 31 0d 0b  |    . i=0 . 11..|
000020f0  9a 1e 20 20 20 20 20 20  e8 23 69 6e 25 2c 20 69  |..      .#in%, i|
00002100  63 6e 5f 72 65 70 5f 72  24 28 69 29 0d 0b a4 1e  |cn_rep_r$(i)....|
00002110  20 20 20 20 20 20 e8 23  69 6e 25 2c 20 69 63 6e  |      .#in%, icn|
00002120  5f 72 65 70 5f 77 24 28  69 29 0d 0b ae 09 20 20  |_rep_w$(i)....  |
00002130  20 20 ed 0d 0b b8 07 20  20 cd 0d 0b c2 0b 20 20  |  .....  .....  |
00002140  d9 23 69 6e 25 0d 0b cc  04 0d 0b d6 2e 20 20 f4  |.#in%........  .|
00002150  20 4e 6f 77 20 73 65 74  20 74 68 65 20 76 61 6c  | Now set the val|
00002160  75 65 73 20 69 6e 20 74  68 65 20 64 69 61 6c 6f  |ues in the dialo|
00002170  67 75 65 20 62 6f 78 0d  0b e0 11 20 20 f2 73 65  |gue box....  .se|
00002180  74 5f 76 61 6c 75 65 73  0d 0b ea 05 e1 0d 0b f4  |t_values........|
00002190  04 0d 0b fe 12 dd 20 f2  73 65 74 5f 6f 70 74 69  |...... .set_opti|
000021a0  6f 6e 73 0d 0c 08 14 20  20 ea 20 69 2c 20 63 25  |ons....  . i, c%|
000021b0  2c 20 74 65 6d 70 24 0d  0c 12 0e 20 20 74 65 6d  |, temp$....  tem|
000021c0  70 24 3d 22 22 0d 0c 1c  11 20 20 e3 20 69 3d 30  |p$=""....  . i=0|
000021d0  20 b8 20 32 35 35 0d 0c  26 12 20 20 20 20 63 68  | . 255..&.    ch|
000021e0  61 72 73 25 3f 69 3d 69  0d 0c 30 07 20 20 ed 0d  |ars%?i=i..0.  ..|
000021f0  0c 3a 0f 20 20 e3 20 69  3d 31 20 b8 20 38 0d 0c  |.:.  . i=1 . 8..|
00002200  44 12 20 20 20 20 63 68  61 72 73 25 3f 69 3d 30  |D.    chars%?i=0|
00002210  0d 0c 4e 07 20 20 ed 0d  0c 58 39 20 20 69 63 6e  |..N.  ...X9  icn|
00002220  5f 73 74 72 69 70 5f 74  6f 70 25 3d a4 72 65 61  |_strip_top%=.rea|
00002230  64 73 74 61 74 65 28 54  65 78 74 54 68 69 6e 67  |dstate(TextThing|
00002240  2c 20 69 63 6e 5f 73 74  72 69 70 5f 74 6f 70 29  |, icn_strip_top)|
00002250  0d 0c 62 1a 20 20 e7 20  69 63 6e 5f 73 74 72 69  |..b.  . icn_stri|
00002260  70 5f 74 6f 70 25 3d b9  20 8c 0d 0c 6c 15 20 20  |p_top%=. ...l.  |
00002270  20 20 e3 20 69 3d 31 32  38 20 b8 20 32 35 36 0d  |  . i=128 . 256.|
00002280  0c 76 14 20 20 20 20 20  20 63 68 61 72 73 25 3f  |.v.      chars%?|
00002290  69 3d 30 0d 0c 80 09 20  20 20 20 ed 0d 0c 8a 16  |i=0....    .....|
000022a0  20 20 20 20 63 68 61 72  73 25 3f 31 34 34 3d 31  |    chars%?144=1|
000022b0  34 34 0d 0c 94 16 20 20  20 20 63 68 61 72 73 25  |44....    chars%|
000022c0  3f 31 34 35 3d 31 34 35  0d 0c 9e 16 20 20 20 20  |?145=145....    |
000022d0  63 68 61 72 73 25 3f 31  34 38 3d 31 34 38 0d 0c  |chars%?148=148..|
000022e0  a8 16 20 20 20 20 63 68  61 72 73 25 3f 31 34 39  |..    chars%?149|
000022f0  3d 31 34 39 0d 0c b2 07  20 20 cd 0d 0c bc 39 20  |=149....  ....9 |
00002300  20 69 63 6e 5f 73 74 72  69 70 5f 63 6f 6e 25 3d  | icn_strip_con%=|
00002310  a4 72 65 61 64 73 74 61  74 65 28 54 65 78 74 54  |.readstate(TextT|
00002320  68 69 6e 67 2c 20 69 63  6e 5f 73 74 72 69 70 5f  |hing, icn_strip_|
00002330  63 6f 6e 29 0d 0c c6 1a  20 20 e7 20 69 63 6e 5f  |con)....  . icn_|
00002340  73 74 72 69 70 5f 63 6f  6e 25 3d b9 20 8c 0d 0c  |strip_con%=. ...|
00002350  d0 12 20 20 20 20 e3 20  69 3d 30 20 b8 20 33 31  |..    . i=0 . 31|
00002360  0d 0c da 14 20 20 20 20  20 20 63 68 61 72 73 25  |....      chars%|
00002370  3f 69 3d 30 0d 0c e4 09  20 20 20 20 ed 0d 0c ee  |?i=0....    ....|
00002380  12 20 20 20 20 63 68 61  72 73 25 3f 39 3d 39 0d  |.    chars%?9=9.|
00002390  0c f8 14 20 20 20 20 63  68 61 72 73 25 3f 31 30  |...    chars%?10|
000023a0  3d 31 30 0d 0d 02 14 20  20 20 20 63 68 61 72 73  |=10....    chars|
000023b0  25 3f 31 33 3d 31 33 0d  0d 0c 07 20 20 cd 0d 0d  |%?13=13....  ...|
000023c0  16 04 0d 0d 20 35 20 20  69 63 6e 5f 72 65 70 5f  |.... 5  icn_rep_|
000023d0  74 61 62 25 3d a4 72 65  61 64 73 74 61 74 65 28  |tab%=.readstate(|
000023e0  54 65 78 74 54 68 69 6e  67 2c 20 69 63 6e 5f 72  |TextThing, icn_r|
000023f0  65 70 5f 74 61 62 29 0d  0d 2a 23 20 20 e7 20 69  |ep_tab)..*#  . i|
00002400  63 6e 5f 72 65 70 5f 74  61 62 25 3d b9 20 8c 20  |cn_rep_tab%=. . |
00002410  63 68 61 72 73 25 3f 39  3d 31 0d 0d 34 33 20 20  |chars%?9=1..43  |
00002420  72 65 70 5f 74 61 62 24  3d a4 72 65 61 64 69 63  |rep_tab$=.readic|
00002430  6f 6e 28 54 65 78 74 54  68 69 6e 67 2c 20 69 63  |on(TextThing, ic|
00002440  6e 5f 72 65 70 5f 74 61  62 5f 6e 6f 29 0d 0d 3e  |n_rep_tab_no)..>|
00002450  13 20 20 6c 3d a9 28 72  65 70 5f 74 61 62 24 29  |.  l=.(rep_tab$)|
00002460  0d 0d 48 0f 20 20 e3 20  69 3d 31 20 b8 20 6c 0d  |..H.  . i=1 . l.|
00002470  0d 52 1e 20 20 20 20 63  25 3d 97 28 c1 72 65 70  |.R.    c%=.(.rep|
00002480  5f 74 61 62 24 2c 20 69  2c 20 31 29 29 0d 0d 5c  |_tab$, i, 1))..\|
00002490  1f 20 20 20 20 e7 20 28  28 63 25 3e 34 37 29 20  |.    . ((c%>47) |
000024a0  80 20 28 63 25 3c 35 38  29 29 20 8c 0d 0d 66 1b  |. (c%<58)) ...f.|
000024b0  20 20 20 20 20 20 74 65  6d 70 24 3d 74 65 6d 70  |      temp$=temp|
000024c0  24 2b bd 28 63 25 29 0d  0d 70 09 20 20 20 20 cd  |$+.(c%)..p.    .|
000024d0  0d 0d 7a 07 20 20 ed 0d  0d 84 14 20 20 72 65 70  |..z.  .....  rep|
000024e0  5f 74 61 62 24 3d 74 65  6d 70 24 0d 0d 8e 22 20  |_tab$=temp$..." |
000024f0  20 e7 20 72 65 70 5f 74  61 62 24 3d 22 22 20 8c  | . rep_tab$="" .|
00002500  20 72 65 70 5f 74 61 62  24 3d 22 30 22 0d 0d 98  | rep_tab$="0"...|
00002510  21 20 20 69 63 6e 5f 72  65 70 5f 74 61 62 5f 6e  |!  icn_rep_tab_n|
00002520  6f 25 3d a0 28 72 65 70  5f 74 61 62 24 29 0d 0d  |o%=.(rep_tab$)..|
00002530  a2 2f 20 20 e7 20 69 63  6e 5f 72 65 70 5f 74 61  |./  . icn_rep_ta|
00002540  62 5f 6e 6f 25 20 3c 20  30 20 8c 20 69 63 6e 5f  |b_no% < 0 . icn_|
00002550  72 65 70 5f 74 61 62 5f  6e 6f 25 3d 30 0d 0d ac  |rep_tab_no%=0...|
00002560  29 20 20 69 63 6e 5f 72  65 70 5f 74 61 62 24 3d  |)  icn_rep_tab$=|
00002570  c4 69 63 6e 5f 72 65 70  5f 74 61 62 5f 6e 6f 25  |.icn_rep_tab_no%|
00002580  2c 20 22 20 22 29 0d 0d  b6 05 20 0d 0d c0 33 20  |, " ").... ...3 |
00002590  20 69 63 6e 5f 72 65 70  5f 6c 66 25 3d a4 72 65  | icn_rep_lf%=.re|
000025a0  61 64 73 74 61 74 65 28  54 65 78 74 54 68 69 6e  |adstate(TextThin|
000025b0  67 2c 20 69 63 6e 5f 72  65 70 5f 6c 66 29 0d 0d  |g, icn_rep_lf)..|
000025c0  ca 17 20 20 e7 20 69 63  6e 5f 72 65 70 5f 6c 66  |..  . icn_rep_lf|
000025d0  25 3d b9 20 8c 0d 0d d4  13 20 20 20 20 63 68 61  |%=. .....    cha|
000025e0  72 73 25 3f 31 30 3d 32  0d 0d de 13 20 20 20 20  |rs%?10=2....    |
000025f0  63 68 61 72 73 25 3f 31  33 3d 32 0d 0d e8 3c 20  |chars%?13=2...< |
00002600  20 20 20 69 63 6e 5f 72  65 70 5f 6c 66 5f 73 65  |   icn_rep_lf_se|
00002610  74 25 3d a4 67 72 6f 75  70 73 74 61 74 65 28 54  |t%=.groupstate(T|
00002620  65 78 74 54 68 69 6e 67  2c 20 31 29 2d 69 63 6e  |extThing, 1)-icn|
00002630  5f 72 65 70 5f 6c 66 0d  0d f2 1c 20 20 20 20 c8  |_rep_lf....    .|
00002640  8e 20 69 63 6e 5f 72 65  70 5f 6c 66 5f 73 65 74  |. icn_rep_lf_set|
00002650  25 20 ca 0d 0d fc 1f 20  20 20 20 20 20 c9 20 31  |% .....      . 1|
00002660  20 3a 20 69 63 6e 5f 72  65 70 5f 6c 66 24 3d 63  | : icn_rep_lf$=c|
00002670  72 24 0d 0e 06 1f 20 20  20 20 20 20 c9 20 32 20  |r$....      . 2 |
00002680  3a 20 69 63 6e 5f 72 65  70 5f 6c 66 24 3d 6c 66  |: icn_rep_lf$=lf|
00002690  24 0d 0e 10 21 20 20 20  20 20 20 c9 20 33 20 3a  |$...!      . 3 :|
000026a0  20 69 63 6e 5f 72 65 70  5f 6c 66 24 3d 63 72 6c  | icn_rep_lf$=crl|
000026b0  66 24 0d 0e 1a 21 20 20  20 20 20 20 c9 20 34 20  |f$...!      . 4 |
000026c0  3a 20 69 63 6e 5f 72 65  70 5f 6c 66 24 3d 6c 66  |: icn_rep_lf$=lf|
000026d0  63 72 24 0d 0e 24 09 20  20 20 20 cb 0d 0e 2e 07  |cr$..$.    .....|
000026e0  20 20 cd 0d 0e 38 04 0d  0e 42 04 0d 0e 4c 33 20  |  ...8...B...L3 |
000026f0  20 69 63 6e 5f 72 65 70  5f 71 75 25 3d a4 72 65  | icn_rep_qu%=.re|
00002700  61 64 73 74 61 74 65 28  54 65 78 74 54 68 69 6e  |adstate(TextThin|
00002710  67 2c 20 69 63 6e 5f 72  65 70 5f 71 75 29 0d 0e  |g, icn_rep_qu)..|
00002720  56 17 20 20 e7 20 69 63  6e 5f 72 65 70 5f 71 75  |V.  . icn_rep_qu|
00002730  25 3d b9 20 8c 0d 0e 60  14 20 20 20 20 63 68 61  |%=. ...`.    cha|
00002740  72 73 25 3f 31 34 34 3d  33 0d 0e 6a 14 20 20 20  |rs%?144=3..j.   |
00002750  20 63 68 61 72 73 25 3f  31 34 35 3d 33 0d 0e 74  | chars%?145=3..t|
00002760  07 20 20 cd 0d 0e 7e 33  20 20 69 63 6e 5f 72 65  |.  ...~3  icn_re|
00002770  70 5f 71 75 24 3d a4 72  65 61 64 69 63 6f 6e 28  |p_qu$=.readicon(|
00002780  54 65 78 74 54 68 69 6e  67 2c 20 69 63 6e 5f 72  |TextThing, icn_r|
00002790  65 70 5f 71 75 31 29 0d  0e 88 04 0d 0e 92 35 20  |ep_qu1).......5 |
000027a0  20 69 63 6e 5f 72 65 70  5f 64 71 75 25 3d a4 72  | icn_rep_dqu%=.r|
000027b0  65 61 64 73 74 61 74 65  28 54 65 78 74 54 68 69  |eadstate(TextThi|
000027c0  6e 67 2c 20 69 63 6e 5f  72 65 70 5f 64 71 75 29  |ng, icn_rep_dqu)|
000027d0  0d 0e 9c 18 20 20 e7 20  69 63 6e 5f 72 65 70 5f  |....  . icn_rep_|
000027e0  64 71 75 25 3d b9 20 8c  0d 0e a6 14 20 20 20 20  |dqu%=. .....    |
000027f0  63 68 61 72 73 25 3f 31  34 38 3d 34 0d 0e b0 14  |chars%?148=4....|
00002800  20 20 20 20 63 68 61 72  73 25 3f 31 34 39 3d 34  |    chars%?149=4|
00002810  0d 0e ba 07 20 20 cd 0d  0e c4 35 20 20 69 63 6e  |....  ....5  icn|
00002820  5f 72 65 70 5f 64 71 75  24 3d a4 72 65 61 64 69  |_rep_dqu$=.readi|
00002830  63 6f 6e 28 54 65 78 74  54 68 69 6e 67 2c 20 69  |con(TextThing, i|
00002840  63 6e 5f 72 65 70 5f 64  71 75 31 29 0d 0e ce 04  |cn_rep_dqu1)....|
00002850  0d 0e d8 2f 20 20 69 63  6e 5f 63 61 73 65 25 3d  |.../  icn_case%=|
00002860  a4 72 65 61 64 73 74 61  74 65 28 54 65 78 74 54  |.readstate(TextT|
00002870  68 69 6e 67 2c 20 69 63  6e 5f 63 61 73 65 29 0d  |hing, icn_case).|
00002880  0e e2 15 20 20 e7 20 69  63 6e 5f 63 61 73 65 25  |...  . icn_case%|
00002890  3d b9 20 8c 0d 0e ec 38  20 20 20 20 69 63 6e 5f  |=. ....8    icn_|
000028a0  63 61 73 65 5f 73 65 74  25 3d a4 67 72 6f 75 70  |case_set%=.group|
000028b0  73 74 61 74 65 28 54 65  78 74 54 68 69 6e 67 2c  |state(TextThing,|
000028c0  20 32 29 2d 69 63 6e 5f  63 61 73 65 0d 0e f6 1a  | 2)-icn_case....|
000028d0  20 20 20 20 c8 8e 20 69  63 6e 5f 63 61 73 65 5f  |    .. icn_case_|
000028e0  73 65 74 25 20 ca 0d 0f  00 37 20 20 20 20 20 20  |set% ....7      |
000028f0  c9 20 31 3a 20 e3 20 69  3d 36 35 20 b8 20 31 32  |. 1: . i=65 . 12|
00002900  32 20 3a 20 63 68 61 72  73 25 3f 69 3d 20 63 68  |2 : chars%?i= ch|
00002910  61 72 73 25 3f 69 20 80  20 39 35 3a ed 0d 0f 0a  |ars%?i . 95:....|
00002920  37 20 20 20 20 20 20 c9  20 32 3a 20 e3 20 69 3d  |7      . 2: . i=|
00002930  36 35 20 b8 20 31 32 32  20 3a 20 63 68 61 72 73  |65 . 122 : chars|
00002940  25 3f 69 3d 20 63 68 61  72 73 25 3f 69 20 84 20  |%?i= chars%?i . |
00002950  33 32 3a ed 0d 0f 14 09  20 20 20 20 cb 0d 0f 1e  |32:.....    ....|
00002960  07 20 20 cc 0d 0f 28 2e  20 20 20 20 e3 20 69 3d  |.  ...(.    . i=|
00002970  36 35 20 b8 20 39 30 20  3a 20 63 68 61 72 73 25  |65 . 90 : chars%|
00002980  3f 69 3d 63 68 61 72 73  25 3f 69 20 80 20 39 35  |?i=chars%?i . 95|
00002990  3a ed 0d 0f 32 2f 20 20  20 20 e3 20 69 3d 39 37  |:...2/    . i=97|
000029a0  20 b8 20 31 32 32 20 3a  20 63 68 61 72 73 25 3f  | . 122 : chars%?|
000029b0  69 3d 63 68 61 72 73 25  3f 69 20 84 20 33 32 3a  |i=chars%?i . 32:|
000029c0  ed 0d 0f 3c 07 20 20 cd  0d 0f 46 05 20 0d 0f 50  |...<.  ...F. ..P|
000029d0  1c 20 20 76 61 6c 75 65  25 3d 30 20 3a 20 44 49  |.  value%=0 : DI|
000029e0  53 50 4c 41 59 24 3d 22  22 0d 0f 5a 10 20 20 e3  |SPLAY$=""..Z.  .|
000029f0  20 69 3d 30 20 b8 20 31  31 0d 0f 64 3c 20 20 20  | i=0 . 11..d<   |
00002a00  20 69 63 6e 5f 72 65 70  5f 72 24 28 69 29 3d a4  | icn_rep_r$(i)=.|
00002a10  72 65 61 64 69 63 6f 6e  28 43 68 61 72 52 65 70  |readicon(CharRep|
00002a20  6c 61 63 65 2c 20 69 63  6e 5f 72 65 70 30 20 2b  |lace, icn_rep0 +|
00002a30  20 69 2a 34 29 0d 0f 6e  2f 20 20 20 20 f2 76 61  | i*4)..n/    .va|
00002a40  6c 75 65 28 69 63 6e 5f  72 65 70 5f 72 24 28 69  |lue(icn_rep_r$(i|
00002a50  29 2c 20 64 69 73 70 6c  61 79 24 2c 20 76 61 6c  |), display$, val|
00002a60  75 65 25 29 0d 0f 78 37  20 20 20 20 f2 73 65 74  |ue%)..x7    .set|
00002a70  69 63 6f 6e 28 43 68 61  72 52 65 70 6c 61 63 65  |icon(CharReplace|
00002a80  2c 20 69 63 6e 5f 72 65  70 31 20 2b 20 69 2a 34  |, icn_rep1 + i*4|
00002a90  2c 20 64 69 73 70 6c 61  79 24 29 0d 0f 82 18 20  |, display$).... |
00002aa0  20 20 20 69 63 6e 5f 72  65 70 5f 72 3d 76 61 6c  |   icn_rep_r=val|
00002ab0  75 65 25 0d 0f 8c 05 20  0d 0f 96 3c 20 20 20 20  |ue%.... ...<    |
00002ac0  69 63 6e 5f 72 65 70 5f  77 24 28 69 29 3d a4 72  |icn_rep_w$(i)=.r|
00002ad0  65 61 64 69 63 6f 6e 28  43 68 61 72 52 65 70 6c  |eadicon(CharRepl|
00002ae0  61 63 65 2c 20 69 63 6e  5f 72 65 70 32 20 2b 20  |ace, icn_rep2 + |
00002af0  69 2a 34 29 0d 0f a0 2f  20 20 20 20 f2 76 61 6c  |i*4).../    .val|
00002b00  75 65 28 69 63 6e 5f 72  65 70 5f 77 24 28 69 29  |ue(icn_rep_w$(i)|
00002b10  2c 20 64 69 73 70 6c 61  79 24 2c 20 76 61 6c 75  |, display$, valu|
00002b20  65 25 29 0d 0f aa 37 20  20 20 20 f2 73 65 74 69  |e%)...7    .seti|
00002b30  63 6f 6e 28 43 68 61 72  52 65 70 6c 61 63 65 2c  |con(CharReplace,|
00002b40  20 69 63 6e 5f 72 65 70  33 20 2b 20 69 2a 34 2c  | icn_rep3 + i*4,|
00002b50  20 64 69 73 70 6c 61 79  24 29 0d 0f b4 18 20 20  | display$)....  |
00002b60  20 20 69 63 6e 5f 72 65  70 5f 77 3d 76 61 6c 75  |  icn_rep_w=valu|
00002b70  65 25 0d 0f be 32 20 20  20 20 e7 20 69 63 6e 5f  |e%...2    . icn_|
00002b80  72 65 70 5f 72 3e 38 20  8c 20 63 68 61 72 73 25  |rep_r>8 . chars%|
00002b90  3f 69 63 6e 5f 72 65 70  5f 72 3d 69 63 6e 5f 72  |?icn_rep_r=icn_r|
00002ba0  65 70 5f 77 0d 0f c8 07  20 20 ed 0d 0f d2 05 e1  |ep_w....  ......|
00002bb0  0d 0f dc 04 0d 0f e6 13  dd 20 f2 73 65 74 5f 64  |......... .set_d|
00002bc0  65 66 61 75 6c 74 73 0d  0f f0 14 f4 20 64 65 66  |efaults..... def|
00002bd0  61 75 6c 74 20 76 61 6c  75 65 73 0d 0f fa 16 20  |ault values.... |
00002be0  20 69 63 6e 5f 73 74 72  69 70 5f 74 6f 70 25 3d  | icn_strip_top%=|
00002bf0  31 0d 10 04 16 20 20 69  63 6e 5f 73 74 72 69 70  |1....  icn_strip|
00002c00  5f 63 6f 6e 25 3d 31 0d  10 0e 14 20 20 69 63 6e  |_con%=1....  icn|
00002c10  5f 72 65 70 5f 74 61 62  25 3d 30 0d 10 18 17 20  |_rep_tab%=0.... |
00002c20  20 69 63 6e 5f 72 65 70  5f 74 61 62 5f 6e 6f 25  | icn_rep_tab_no%|
00002c30  3d 32 0d 10 22 13 20 20  69 63 6e 5f 72 65 70 5f  |=2..".  icn_rep_|
00002c40  6c 66 25 3d 30 0d 10 2c  17 20 20 69 63 6e 5f 72  |lf%=0..,.  icn_r|
00002c50  65 70 5f 6c 66 5f 73 65  74 25 3d 32 0d 10 36 13  |ep_lf_set%=2..6.|
00002c60  20 20 69 63 6e 5f 72 65  70 5f 71 75 25 3d 31 0d  |  icn_rep_qu%=1.|
00002c70  10 40 15 20 20 69 63 6e  5f 72 65 70 5f 71 75 24  |.@.  icn_rep_qu$|
00002c80  3d 22 27 22 0d 10 4a 14  20 20 69 63 6e 5f 72 65  |="'"..J.  icn_re|
00002c90  70 5f 64 71 75 25 3d 31  0d 10 54 18 20 20 69 63  |p_dqu%=1..T.  ic|
00002ca0  6e 5f 72 65 70 5f 64 71  75 24 3d bd 28 33 34 29  |n_rep_dqu$=.(34)|
00002cb0  0d 10 5e 11 20 20 69 63  6e 5f 63 61 73 65 25 3d  |..^.  icn_case%=|
00002cc0  30 0d 10 68 15 20 20 69  63 6e 5f 63 61 73 65 5f  |0..h.  icn_case_|
00002cd0  73 65 74 25 3d 31 0d 10  72 10 20 20 e3 20 69 3d  |set%=1..r.  . i=|
00002ce0  30 20 b8 20 31 31 0d 10  7c 18 20 20 20 20 69 63  |0 . 11..|.    ic|
00002cf0  6e 5f 72 65 70 5f 72 24  28 69 29 3d 22 22 0d 10  |n_rep_r$(i)=""..|
00002d00  86 18 20 20 20 20 69 63  6e 5f 72 65 70 5f 77 24  |..    icn_rep_w$|
00002d10  28 69 29 3d 22 22 0d 10  90 07 20 20 ed 0d 10 9a  |(i)=""....  ....|
00002d20  11 20 20 f2 73 65 74 5f  76 61 6c 75 65 73 0d 10  |.  .set_values..|
00002d30  a4 05 e1 0d 10 ae 04 0d  10 b8 13 dd 20 f2 73 61  |............ .sa|
00002d40  76 65 5f 6f 70 74 69 6f  6e 73 0d 10 c2 23 20 20  |ve_options...#  |
00002d50  6f 75 74 25 3d ae 28 74  61 73 6b 64 69 72 24 20  |out%=.(taskdir$ |
00002d60  2b 20 22 2e 4f 70 74 69  6f 6e 73 22 29 0d 10 cc  |+ ".Options")...|
00002d70  1f 20 20 20 20 20 20 20  20 f1 23 6f 75 74 25 2c  |.        .#out%,|
00002d80  20 22 54 65 78 74 54 68  69 6e 67 22 0d 10 d6 22  | "TextThing"..."|
00002d90  20 20 20 20 20 20 20 20  f1 23 6f 75 74 25 2c 20  |        .#out%, |
00002da0  69 63 6e 5f 73 74 72 69  70 5f 74 6f 70 25 0d 10  |icn_strip_top%..|
00002db0  e0 22 20 20 20 20 20 20  20 20 f1 23 6f 75 74 25  |."        .#out%|
00002dc0  2c 20 69 63 6e 5f 73 74  72 69 70 5f 63 6f 6e 25  |, icn_strip_con%|
00002dd0  0d 10 ea 20 20 20 20 20  20 20 20 20 f1 23 6f 75  |...         .#ou|
00002de0  74 25 2c 20 69 63 6e 5f  72 65 70 5f 74 61 62 25  |t%, icn_rep_tab%|
00002df0  0d 10 f4 23 20 20 20 20  20 20 20 20 f1 23 6f 75  |...#        .#ou|
00002e00  74 25 2c 20 69 63 6e 5f  72 65 70 5f 74 61 62 5f  |t%, icn_rep_tab_|
00002e10  6e 6f 25 0d 10 fe 1f 20  20 20 20 20 20 20 20 f1  |no%....        .|
00002e20  23 6f 75 74 25 2c 20 69  63 6e 5f 72 65 70 5f 6c  |#out%, icn_rep_l|
00002e30  66 25 0d 11 08 23 20 20  20 20 20 20 20 20 f1 23  |f%...#        .#|
00002e40  6f 75 74 25 2c 20 69 63  6e 5f 72 65 70 5f 6c 66  |out%, icn_rep_lf|
00002e50  5f 73 65 74 25 0d 11 12  1f 20 20 20 20 20 20 20  |_set%....       |
00002e60  20 f1 23 6f 75 74 25 2c  20 69 63 6e 5f 72 65 70  | .#out%, icn_rep|
00002e70  5f 71 75 25 0d 11 1c 1f  20 20 20 20 20 20 20 20  |_qu%....        |
00002e80  f1 23 6f 75 74 25 2c 20  69 63 6e 5f 72 65 70 5f  |.#out%, icn_rep_|
00002e90  71 75 24 0d 11 26 20 20  20 20 20 20 20 20 20 f1  |qu$..&         .|
00002ea0  23 6f 75 74 25 2c 20 69  63 6e 5f 72 65 70 5f 64  |#out%, icn_rep_d|
00002eb0  71 75 25 0d 11 30 20 20  20 20 20 20 20 20 20 f1  |qu%..0         .|
00002ec0  23 6f 75 74 25 2c 20 69  63 6e 5f 72 65 70 5f 64  |#out%, icn_rep_d|
00002ed0  71 75 24 0d 11 3a 1d 20  20 20 20 20 20 20 20 f1  |qu$..:.        .|
00002ee0  23 6f 75 74 25 2c 20 69  63 6e 5f 63 61 73 65 25  |#out%, icn_case%|
00002ef0  0d 11 44 21 20 20 20 20  20 20 20 20 f1 23 6f 75  |..D!        .#ou|
00002f00  74 25 2c 20 69 63 6e 5f  63 61 73 65 5f 73 65 74  |t%, icn_case_set|
00002f10  25 0d 11 4e 16 20 20 20  20 20 20 20 20 e3 20 69  |%..N.        . i|
00002f20  3d 30 20 b8 20 31 31 0d  11 58 23 20 20 20 20 20  |=0 . 11..X#     |
00002f30  20 20 20 20 20 f1 23 6f  75 74 25 2c 20 69 63 6e  |     .#out%, icn|
00002f40  5f 72 65 70 5f 72 24 28  69 29 0d 11 62 23 20 20  |_rep_r$(i)..b#  |
00002f50  20 20 20 20 20 20 20 20  f1 23 6f 75 74 25 2c 20  |        .#out%, |
00002f60  69 63 6e 5f 72 65 70 5f  77 24 28 69 29 0d 11 6c  |icn_rep_w$(i)..l|
00002f70  0d 20 20 20 20 20 20 20  20 ed 0d 11 76 12 20 20  |.        ...v.  |
00002f80  20 20 20 20 20 20 d9 23  6f 75 74 25 0d 11 80 05  |      .#out%....|
00002f90  e1 0d 11 8a 04 0d 11 94  0c dd 20 f2 63 6c 65 61  |.......... .clea|
00002fa0  72 0d 11 9e 14 f4 20 64  65 66 61 75 6c 74 20 76  |r..... default v|
00002fb0  61 6c 75 65 73 0d 11 a8  16 20 20 69 63 6e 5f 73  |alues....  icn_s|
00002fc0  74 72 69 70 5f 74 6f 70  25 3d 30 0d 11 b2 16 20  |trip_top%=0.... |
00002fd0  20 69 63 6e 5f 73 74 72  69 70 5f 63 6f 6e 25 3d  | icn_strip_con%=|
00002fe0  30 0d 11 bc 14 20 20 69  63 6e 5f 72 65 70 5f 74  |0....  icn_rep_t|
00002ff0  61 62 25 3d 30 0d 11 c6  17 20 20 69 63 6e 5f 72  |ab%=0....  icn_r|
00003000  65 70 5f 74 61 62 5f 6e  6f 25 3d 32 0d 11 d0 13  |ep_tab_no%=2....|
00003010  20 20 69 63 6e 5f 72 65  70 5f 6c 66 25 3d 30 0d  |  icn_rep_lf%=0.|
00003020  11 da 17 20 20 69 63 6e  5f 72 65 70 5f 6c 66 5f  |...  icn_rep_lf_|
00003030  73 65 74 25 3d 32 0d 11  e4 13 20 20 69 63 6e 5f  |set%=2....  icn_|
00003040  72 65 70 5f 71 75 25 3d  30 0d 11 ee 15 20 20 69  |rep_qu%=0....  i|
00003050  63 6e 5f 72 65 70 5f 71  75 24 3d 22 27 22 0d 11  |cn_rep_qu$="'"..|
00003060  f8 14 20 20 69 63 6e 5f  72 65 70 5f 64 71 75 25  |..  icn_rep_dqu%|
00003070  3d 30 0d 12 02 18 20 20  69 63 6e 5f 72 65 70 5f  |=0....  icn_rep_|
00003080  64 71 75 24 3d bd 28 33  34 29 0d 12 0c 11 20 20  |dqu$=.(34)....  |
00003090  69 63 6e 5f 63 61 73 65  25 3d 30 0d 12 16 15 20  |icn_case%=0.... |
000030a0  20 69 63 6e 5f 63 61 73  65 5f 73 65 74 25 3d 31  | icn_case_set%=1|
000030b0  0d 12 20 10 20 20 e3 20  69 3d 30 20 b8 20 31 31  |.. .  . i=0 . 11|
000030c0  0d 12 2a 18 20 20 20 20  69 63 6e 5f 72 65 70 5f  |..*.    icn_rep_|
000030d0  72 24 28 69 29 3d 22 22  0d 12 34 18 20 20 20 20  |r$(i)=""..4.    |
000030e0  69 63 6e 5f 72 65 70 5f  77 24 28 69 29 3d 22 22  |icn_rep_w$(i)=""|
000030f0  0d 12 3e 07 20 20 ed 0d  12 48 05 e1 0d 12 52 04  |..>.  ...H....R.|
00003100  0d 12 5c 26 dd 20 f2 76  61 6c 75 65 28 61 24 2c  |..\&. .value(a$,|
00003110  20 f8 20 64 69 73 70 6c  61 79 24 2c 20 f8 20 76  | . display$, . v|
00003120  61 6c 75 65 25 29 0d 12  66 0c 20 20 ea 20 69 2c  |alue%)..f.  . i,|
00003130  20 6c 0d 12 70 0e 20 20  76 61 6c 75 65 25 3d 30  | l..p.  value%=0|
00003140  0d 12 7a 12 20 20 64 69  73 70 6c 61 79 24 3d 22  |..z.  display$="|
00003150  20 22 0d 12 84 05 20 0d  12 8e 0d 20 20 6c 3d a9  | ".... ....  l=.|
00003160  28 61 24 29 0d 12 98 0f  20 20 e3 20 69 3d 31 20  |(a$)....  . i=1 |
00003170  b8 20 6c 0d 12 a2 28 20  20 20 20 e7 20 c1 61 24  |. l...(    . .a$|
00003180  2c 69 2c 31 29 3d 71 75  6f 74 65 24 20 8c 20 c1  |,i,1)=quote$ . .|
00003190  61 24 2c 69 2c 31 29 3d  22 20 22 0d 12 ac 07 20  |a$,i,1)=" ".... |
000031a0  20 ed 0d 12 b6 10 20 20  e7 20 28 6c 20 3e 31 29  | .....  . (l >1)|
000031b0  20 8c 0d 12 c0 1a 20 20  20 20 76 61 6c 75 65 25  | .....    value%|
000031c0  3d a0 28 61 24 29 20 80  20 32 35 35 0d 12 ca 1d  |=.(a$) . 255....|
000031d0  20 20 20 20 e7 20 76 61  6c 75 65 25 3c 39 20 8c  |    . value%<9 .|
000031e0  20 76 61 6c 75 65 25 3d  30 0d 12 d4 39 20 20 20  | value%=0...9   |
000031f0  20 e7 20 28 76 61 6c 75  65 25 3e 33 31 29 20 80  | . (value%>31) .|
00003200  20 28 76 61 6c 75 65 25  3c 31 32 37 29 20 8c 20  | (value%<127) . |
00003210  64 69 73 70 6c 61 79 24  3d bd 28 76 61 6c 75 65  |display$=.(value|
00003220  25 29 0d 12 de 2b 20 20  20 20 e7 20 28 76 61 6c  |%)...+    . (val|
00003230  75 65 25 3e 31 34 30 29  20 8c 20 64 69 73 70 6c  |ue%>140) . displ|
00003240  61 79 24 3d bd 28 76 61  6c 75 65 25 29 0d 12 e8  |ay$=.(value%)...|
00003250  07 20 20 cd 0d 12 f2 05  20 0d 12 fc 28 20 20 e7  |.  ..... ...(  .|
00003260  20 6c 3d 31 20 8c 20 64  69 73 70 6c 61 79 24 3d  | l=1 . display$=|
00003270  61 24 20 3a 20 76 61 6c  75 65 25 3d 97 28 61 24  |a$ : value%=.(a$|
00003280  29 0d 13 06 04 0d 13 10  05 e1 0d 13 1a 04 0d 13  |)...............|
00003290  24 16 dd 20 f2 6d 65 6e  75 3a ea 20 61 24 2c 72  |$.. .menu:. a$,r|
000032a0  24 2c 64 25 0d 13 2e 37  c8 99 20 22 57 69 6d 70  |$,d%...7.. "Wimp|
000032b0  5f 44 65 63 6f 64 65 4d  65 6e 75 22 2c 2c 6f 70  |_DecodeMenu",,op|
000032c0  65 6e 25 2c 77 69 6d 70  25 2c c4 32 30 30 2c bd  |en%,wimp%,.200,.|
000032d0  33 32 29 20 b8 20 2c 2c  2c 61 24 0d 13 38 27 e7  |32) . ,,,a$..8'.|
000032e0  20 c2 61 24 2c 33 29 3d  22 2e 2e 2e 22 20 8c 20  | .a$,3)="..." . |
000032f0  64 25 3d 31 3a 61 24 3d  c0 61 24 2c a9 61 24 2d  |d%=1:a$=.a$,.a$-|
00003300  33 29 0d 13 42 26 c8 95  20 a7 61 24 2c bd 34 36  |3)..B&.. .a$,.46|
00003310  29 3e 30 3a 61 24 3d c1  61 24 2c a7 61 24 2c bd  |)>0:a$=.a$,.a$,.|
00003320  34 36 29 2b 31 29 3a ce  0d 13 4c 14 e7 20 64 25  |46)+1):...L.. d%|
00003330  20 8c 20 61 24 2b 3d 22  2e 2e 2e 22 0d 13 56 0b  | . a$+="..."..V.|
00003340  c8 8e 20 61 24 20 ca 0d  13 60 1b 20 c9 20 22 49  |.. a$ ...`. . "I|
00003350  6e 66 6f 20 20 20 20 22  3a f4 20 49 6e 66 6f 62  |nfo    ":. Infob|
00003360  6f 78 0d 13 6a 1e 20 c9  20 22 44 65 66 61 75 6c  |ox..j. . "Defaul|
00003370  74 22 3a f2 73 65 74 5f  64 65 66 61 75 6c 74 73  |t":.set_defaults|
00003380  0d 13 74 18 20 c9 20 22  51 75 69 74 22 3a f2 63  |..t. . "Quit":.c|
00003390  6c 6f 73 65 64 6f 77 6e  0d 13 7e 1d 7f 3a f2 68  |losedown..~..:.h|
000033a0  61 6e 64 6c 65 5f 65 76  65 6e 74 28 31 31 2c 61  |andle_event(11,a|
000033b0  24 2c 22 22 29 0d 13 88  05 cb 0d 13 92 05 e1 0d  |$,"")...........|
000033c0  13 9c 04 0d 13 a6 22 dd  20 f2 68 61 6e 64 6c 65  |......". .handle|
000033d0  5f 65 76 65 6e 74 28 6e  25 2c 61 24 2c 62 24 29  |_event(n%,a$,b$)|
000033e0  3a ea 20 70 25 0d 13 b0  0b c8 8e 20 6e 25 20 ca  |:. p%...... n% .|
000033f0  0d 13 ba 12 20 c9 20 31  3a f2 73 74 61 72 74 5f  |.... . 1:.start_|
00003400  75 70 0d 13 c4 1a 20 c9  20 34 3a f2 6d 65 6e 75  |up.... . 4:.menu|
00003410  5f 6b 6c 69 6b 28 bb 28  61 24 29 29 0d 13 ce 1d  |_klik(.(a$))....|
00003420  20 c9 20 35 3a f2 64 72  61 67 5f 66 69 6c 65 28  | . 5:.drag_file(|
00003430  61 24 2c bb 28 62 24 29  29 0d 13 d8 1a 20 c9 20  |a$,.(b$)).... . |
00003440  39 3a f2 63 6f 6e 76 65  72 74 5f 66 69 6c 65 28  |9:.convert_file(|
00003450  61 24 29 0d 13 e2 45 20  c9 20 31 30 3a f2 77 69  |a$)...E . 10:.wi|
00003460  6e 64 6f 77 5f 6b 6c 69  6b 28 bb 28 61 24 29 2c  |ndow_klik(.(a$),|
00003470  bb 28 c0 62 24 2c a7 62  24 2c bd 31 32 34 29 2d  |.(.b$,.b$,.124)-|
00003480  31 29 29 2c bb 28 c1 62  24 2c a7 62 24 2c bd 31  |1)),.(.b$,.b$,.1|
00003490  32 34 29 2b 31 29 29 29  0d 13 ec 05 cb 0d 13 f6  |24)+1)))........|
000034a0  05 e1 0d 14 00 04 0d 14  0a 22 dd 20 a4 68 61 6e  |.........". .han|
000034b0  64 6c 65 5f 65 76 65 6e  74 28 6e 25 2c 61 24 2c  |dle_event(n%,a$,|
000034c0  62 24 29 3a ea 20 70 24  0d 14 14 0b c8 8e 20 6e  |b$):. p$...... n|
000034d0  25 20 ca 0d 14 1e 0e c9  20 33 3a 70 24 3d bd 34  |% ...... 3:p$=.4|
000034e0  39 0d 14 28 52 c9 20 36  3a 70 24 3d 22 54 68 69  |9..(R. 6:p$="Thi|
000034f0  73 20 6f 62 6a 65 63 74  20 62 65 6c 6f 6e 67 73  |s object belongs|
00003500  20 74 6f 20 27 54 65 78  74 54 68 69 6e 67 27 2c  | to 'TextThing',|
00003510  20 77 68 69 63 68 20 69  73 20 61 20 57 69 6d 70  | which is a Wimp|
00003520  57 6f 72 6b 73 20 61 70  70 6c 69 63 61 74 69 6f  |Works applicatio|
00003530  6e 2e 22 0d 14 32 05 cb  0d 14 3c 07 3d 70 24 0d  |n."..2....<.=p$.|
00003540  14 46 04 0d 14 50 14 dd  20 f2 77 77 5f 69 6e 74  |.F...P.. .ww_int|
00003550  65 72 6e 61 6c 3a e1 0d  ff                       |ernal:...|
00003559