� >!RunImage
� � Andrew Hunter, 1995
� Setup proggy
(%� Extensions by Justin Fletcher -
2� SET :
<C�     DEST <dir> sets destination directory (instead of GETDIR)
FA�     LEAF <name> sets the leaf to install from (from GETDIR)
P1�     <num> <expr> sets a variable to a value
Z:�     *<var> <value> sets a system variable to a value
d/� IF RPC <then>    : Executed if OS >= 3.50
n/� IF PreRPC <then> : Executed if OS  < 3.50
x:
�5� alter this value to copy larger files in one go
�scsize%=64*1024
�:
�8� � ș "Wimp_CloseDown":ș "Hourglass_Smash":�:� �:�
�ș "Hourglass_On"
�	�init
�ș "Hourglass_Off"
�
�
�nextline
�
�9� � waiting% � �newtext(statushandle%,0,"Working...")
�	�poll
�*�newtext(statushandle%,0,"Exiting...")

�losefonts

�

:

"
��init

,/� block% 2048,tblock% 1024,scratch% scsize%

6Aș "Wimp_Initialise",200,&4B534154,"Setup" � ver%,taskhandle%

@ș "Hourglass_LEDs",1

J*waiting%=�:actionwind%=0:actiontype%=0

T�loadtemplates

^

hș "Hourglass_LEDs",2

r/� var%(255),choice$(8),stack%(255):stptr%=0

|� cline$(50):scpos%=-1

�� readme$(512)

��readscript

�newer%=�

�fast%=�

��

�:

���loadtemplates

�� ind% 16384,fonts% 256

�+� w_msg% 1024,w_ques% 1024,w_opts% 1024

�!� w_upd% 1024,w_saveout% 1024

�!� w_rads% 1024,w_viewer% 1024

�� x=0 � 255:fonts%?x=0:�

�endind%=ind%+16384
3ș "Wimp_OpenTemplate",,"<Setup$Dir>.Templates"
Nș "Wimp_LoadTemplate",,block%,ind%,endind%,fonts%,"Backdrop"+�13 � ,,ind%
block%!64=1
&0ș "Wimp_CreateWindow",,block% � backhandle%
0
:Mș "Wimp_LoadTemplate",,w_msg%,ind%,endind%,fonts%,"Message"+�13 � ,,ind%
Dw_msg%!64=1
NOș "Wimp_LoadTemplate",,w_ques%,ind%,endind%,fonts%,"Question"+�13 � ,,ind%
Xw_ques%!64=1
bNș "Wimp_LoadTemplate",,w_opts%,ind%,endind%,fonts%,"Options"+�13 � ,,ind%
lw_opts%!64=1
vLș "Wimp_LoadTemplate",,w_rads%,ind%,endind%,fonts%,"Radio"+�13 � ,,ind%
�w_rads%!64=1
�Lș "Wimp_LoadTemplate",,w_upd%,ind%,endind%,fonts%,"Update"+�13 � ,,ind%
�w_upd%!64=1
�Qș "Wimp_LoadTemplate",,w_saveout%,ind%,endind%,fonts%,"SaveOut"+�13 � ,,ind%
�w_saveout%!64=1
�Oș "Wimp_LoadTemplate",,w_viewer%,ind%,endind%,fonts%,"ReadMe"+�13 � ,,ind%
�w_viewer%!64=1
�
�Lș "Wimp_LoadTemplate",,block%,ind%,endind%,fonts%,"Status"+�13 � ,,ind%
�block%!64=1
�
�2ș "Wimp_CreateWindow",,block% � statushandle%
�
ș "Wimp_CloseTemplate"
'�openwindowbig(backhandle%):� Gerph
�openwindow(statushandle%)
 �
*:
4
� Gerph->
>��openwindowbig(whandle%)
H!block%=whandle%
R$ș "Wimp_GetWindowState",,block%
\5block%!4=0:block%!8=0:block%!12=1E6:block%!16=1E6
fblock%!28=-1
p ș "Wimp_OpenWindow",,block%
z-block%!4=2:ș "Wimp_GetIconState",,block%
� ș "Wimp_DeleteIcon",,block%
�*ș "OS_ReadModeVariable",-1,4 � ,,xeig
�1ș "OS_ReadModeVariable",-1,11 � ,,xwindlimit
�xmax=xwindlimit<<xeig
�)block%!8=xmax-64-(block%!16-block%!8)
�Fblock%!16=xmax-64:block%!4=whandle%:ș "Wimp_CreateIcon",,block%+4
��
�
� <-Gerph
�
���openwindow(whandle%)
� � width,height,top,right,x,y
�I� (whandle%=actionwind% � actiontype%<>-1) � whandle%=statushandle% �
�? !block%=4:block%!4=5:block%!8=11:block%!12=12:block%!16=-1
. ș "OS_ReadVduVariables",block%,block%+20
< right=block%!28+1<<block%!20:top=block%!32+1<<block%!24
6 !block%=whandle%:ș "Wimp_GetWindowState",,block%
$7 width=block%!4-block%!12:height=block%!16-block%!8
.\ x=(right-width)/2+width:� whandle%<>statushandle% �y=(top-height)/2+height �y=block%!16
8? block%!4=x:block%!8=y-height:block%!12=x-width:block%!16=y
B. block%!28=-1:ș "Wimp_OpenWindow",,block%
L �
V�
` !block%=whandle%
j% ș "Wimp_GetWindowState",,block%
t block%!28=-1
~! ș "Wimp_OpenWindow",,block%
��
��
�:
���redraw
�ș "Hourglass_On"
�ș "Hourglass_LEDs",1
�*ș "Wimp_RedrawWindow",,block% � more%
�wh%=!block%
�xO%=block%!4-block%!20
�yO%=block%!16-block%!24
�
�ȕ more%


minx%=block%!28-xO%
miny%=block%!32-yO%
maxx%=block%!36-xO%
(maxy%=block%!40-yO%
2
<Ȏ wh% �
F� backhandle%:�fade
P,� actionwind%:� actiontype%=-1 � �readme
Z�
d
n*ș "Wimp_GetRectangle",,block% � more%
x�
�
�ș "Hourglass_Off"
��
�:
�
��poll
�quit%=�
��
�U� � waiting% ș "Wimp_Poll",,block% � reason% � ș "Wimp_Poll",1,block% � reason%
�Ȏ reason% �
�
� 0:�null
�
�� 1:�redraw
�$� 2:ș "Wimp_OpenWindow",,block%
%� 3:ș "Wimp_CloseWindow",,block%
� actiontype%=-1 �
� !block%=actionwind% �
""ș "Wimp_DeleteWindow",,block%
,waiting%=�
6*�newtext(statushandle%,0,"Working...")
@�
J�
T
^� 6:
h �action(block%!12,block%!16)
r
|� 7:
��dragend
�
�� 17,18:
�Ȏ block%!16 �
�� 0:quit%=�
�� 2:�savedout
�� 3:�dragin
��
�
��
�� quit%
��
�:

� Gerph->

��fade
*ș "OS_ReadModeVariable",-1,5 � ,,yeig
&1ș "OS_ReadModeVariable",-1,12 � ,,ywindlimit
0ysize=ywindlimit<<yeig
:miny%=miny% � � 7
D� y%=miny% � maxy% � 8
Ncol%=ysize+y%
Xcol%=col%/(ysize/256)
b-ș "ColourTrans_SetGCOL",col%<<24,,,256,0
l(ȓ Ȑ xO%+minx%,yO%+y%,maxx%-minx%,8
v�
��
�
� <-Gerph
�:
���readscript
�� line$(1024)
�slines%=-1
�O%=�("<Setup$Dir>.Script")
�
��
�slines%+=1
�line$(slines%)=�#O%
�
� �#O%
�
�#O%
�
:
 ��losefonts
*� x=0 � 255
4ȕ fonts%?x>0
>ș "Font_LoseFont",x
Hfonts%?x-=1
R�
\�
f�
p:
z��nextline
�� scpos%>=slines% � �
�
scpos%+=1
��interpret(line$(scpos%))
�[� scpos%>=slines% � �newtext(statushandle%,0,"Finished!"): �newtext(statushandle%,1,"")
�
�A� waiting% � �newtext(statushandle%,0,"Waiting for input...")
��
�:
���interpret(line$)
�� line$="" � �
��seperate(line$)
�
�Ȏ command$ �
	
� "NAME":
	5ș "Wimp_ForceRedraw",backhandle%,0,-128,1280,-32
	"�newtext(backhandle%,0,param$)
	$"�newtext(backhandle%,1,param$)
	.
	8� "MESSAGE":
	B0ș "Wimp_CreateWindow",,w_msg% � actionwind%
	Lactiontype%=1:waiting%=�
	V�openwindow(actionwind%)
	`"�newtext(actionwind%,0,param$)
	j
	t	� "":
	~
	�� "GETDIR":
	��saveout
	�
	�� "SET":
	�Ȏ cline$(1) �
	�# � "DEST":installdir$=cline$(2)
	� � "LEAF":leaf$=cline$(2)
	� 
	�  � �(param$)<>0 �
	�&   var%(�(cline$(1)))=�(cline$(2))
	�  �
	�   � �param$,1)="*" �
&    ș "XOS_CLI","Set "+�param$,2)

   �
  �
�
(
2� "END":quit%=�
<
F
� "GOTO":
P�goto(param$)
Z
d� "GOSUB":
n
stptr%+=1
xstack%(stptr%)=scpos%
��goto(param$)
�
�� "RETURN":
�I� stptr%<=0 � � 0,"Stack underflow at line "+�(scpos%+1)+" of script"
�scpos%=stack%(stptr%)
�
stptr%-=1
�
�� "CHOICE":
�
�opencbox
�
�� "SWAPDISC":
�
�swapdisc
�
� "OPTIONS":
�optrad(1)

"� "RADIOS":
,�optrad(2)
6
@
� "FAST":
J'� cline$(1)="OFF" fast%=� � fast%=�
T
^� "CHDIR":
h�checkdir(cline$(1))
r
|� "COMPARE":
�!�compare(cline$(1),cline$(2))
�
�
� "VIEW":
��openviewer
�
�� "NEWER":
�'newer%=�:� cline$(1)="OFF" newer%=�
�
�� "INSTALL":
�9src$="<Setup$Dir>.Files.Program."+leaf$+"."+cline$(1)
�5� cline$(2)<>"" � dst$=cline$(2) � dst$=cline$(1)
�dst$=installdir$+"."+dst$
��copy(src$,dst$,newer%)


� "COPY":
src$=cline$(1)
&dst$=cline$(2)
0L� src$="" � dst$="" � � 0,"Invalid syntax at line "+�scpos%+" of script"
:�copy(src$,dst$,newer%)
D
N� "DELETE":
X�delete(cline$(1))
b
l� "UPDATE":
v
�udate
�
�� "IF":
��if
�
�:
�B� 0,"Command not recognised at line "+�(scpos%+1)+" of script"
��
�
��
�:
���seperate(line$)
�� l$
�cline$()=""

-words%=-1:line$=�strip(line$):command$=""

� �line$,1)="|" � �

� �line$,1)=":" � �

 � line$="" � �

*

4l$=line$

>ȕ �l$," ")

H
words%+=1

R"cline$(words%)=�l$,�l$," ")-1)

\l$=�l$,�l$," ")+1)

fl$=�strip(l$)

p�

z

�words%+=1:cline$(words%)=l$

�command$=cline$(0)

� param$=�line$,�line$," ")+1)

�param$=�strip(param$)

�

��

�:

�ݤstrip(line$)

�� l$:l$=line$

�ȕ �l$,1)=" ":l$=�l$,2):�

�#ȕ �l$,1)=" ":l$=�l$,�(l$)-1):�

�=l$

�:
&��newtext(whandle%,ihandle%,text$)
� addr%
'addr%=�getindptr(whandle%,ihandle%)
$$addr%=text$
.(�seticonstate(whandle%,ihandle%,0,0)
8�
B:
L"ݤgetindptr(whandle%,ihandle%)
V!tblock%=whandle%
`tblock%!4=ihandle%
j#ș "Wimp_GetIconState",,tblock%
t'� (tblock%!24 � 1<<8) � =tblock%!28
~=-1
�:
�1��seticonstate(whandle%,ihandle%,eor%,clear%)
�!tblock%=whandle%
�tblock%!4=ihandle%
�tblock%!8=eor%
�tblock%!12=clear%
�#ș "Wimp_SetIconState",,tblock%
��
�:
�ݤgetstr(addr%)
�� s$,s%
�	s$=""
ȕ ?addr%<>0


s%=?addr%
� s%>31 s$+=�s% � s$+="."
addr%+=1
(�
2=s$
<:
F
��null
P� � waiting% �
Zș "Hourglass_On"
d
n
� fast% �
xș "Hourglass_LEDs",2
��=0
��
�
�nextline
�� waiting% � quit% � �>100
��
�
�
�nextline
�
��
�
�ș "Hourglass_Off"
��
��
:
��action(whandle%,ihandle%)
� whandle%=actionwind% �
"
, Ȏ actiontype% �
6	 � 1:
@
J � ihandle%=1 �
T !block%=actionwind%
^# ș "Wimp_DeleteWindow",,block%
h actionwind%=0
r actiontype%=0
| waiting%=�
� �
�
�	 � 7:
�
� � ihandle%=1 �
�
�+ ș "XOS_File",17,swapfile$ � type%;ss%
� � (ss% � 1) type%=0
�
� � type%<>0 �
� !block%=actionwind%
�# ș "Wimp_DeleteWindow",,block%
� actionwind%=0
 actiontype%=0
 waiting%=�
 �openlarge(backhandle%)
& �
0 � 7
: �
D
N �
X
b	 � 2:
l
v � ihandle%>0 �
� var%(actvar%)=ihandle%
� !block%=actionwind%
�# ș "Wimp_DeleteWindow",,block%
� actionwind%=0
� actiontype%=0
� waiting%=�
� �
�
� � 3,4:
� � ihandle%=10 �
� select%=0
�
� � x%=2 � 9
@ � �geticonsel(actionwind%,x%) � select%=select% � 1<<(x%-1)
 �

 # � select%<>0 � actiontype%=3 �
* var%(actvar%)=select%
4
> !block%=actionwind%
H# ș "Wimp_DeleteWindow",,block%
R actionwind%=0
\ actiontype%=0
f waiting%=�
p �
z �7
� �
�
� �
�
�	 � 5:
� � ihandle%=1 �
� temp%=tblock%+64
�" !tblock%=whandle%:tblock%!4=1
�$ ș "Wimp_GetIconState",,tblock%
�
� !temp%=whandle%
�$ ș "Wimp_GetWindowState",,temp%
� tblock%!8+=temp%!4
 tblock%!12+=temp%!16+44
 tblock%!16+=temp%!4
 tblock%!20+=temp%!16
$
.= ș "DragASprite_Start",%10000101,1,"Directory",tblock%+8
8* �seticonstate(whandle%,1,1<<22,1<<22)
B � PROCshade(whandle%,1)
L �
V�
`
j�
t� whandle%=backhandle% �
~ Ȏ ihandle% �
�  � 2:� Abort
�   quit%=�
� �
��
�
�9� � waiting% � �newtext(statushandle%,0,"Working...")
��
�:
���goto(label$)
�� f%,x%
�label$=":"+label$
�
	f%=-1


� x%=0 � slines%
&� �strip(line$(x%))=label$ � f%=x%
(�
2
<0� f%<0 � � 0,"Label '"+label$+"' not found!"
F
scpos%=f%
P�
Z:
d��opencbox
n� x%,w$
x
�choices%=�(cline$(1))
�X� choices%<1 � choices%>4 � � 0,"Too many choices at line "+�(scpos%+1)+" of script"
�
�1ș "Wimp_CreateWindow",,w_ques% � actionwind%
�actiontype%=2:waiting%=�
�
�� x%=2 � choices%+1
�choice$(x%-1)=cline$(x%)
��
�
�!actvar%=�(cline$(choices%+2))
�]� actvar%<0 � actvar%>255 � � 0,"Variable out of range at line "+�(scpos%+1)+" of script"
�
	w$=""
� x%=choices%+3 � words%
w$+=cline$(x%)+" "
"�
,w$=�strip(w$)
6�newtext(actionwind%,0,w$)
@
J� x%=1 � choices%
T(�newtext(actionwind%,x%,choice$(x%))
^�
h
r� choices%<4 �
|� x%=choices%+1 � 4
�!block%=actionwind%
�block%!4=x%
� ș "Wimp_DeleteIcon",,block%
��
��
�
��openwindow(actionwind%)
��
�:
���if
�� w$,x%,base,start%
�Ȏ cline$(1) �
� � "RPC","PreRPC"
1  ș "OS_Module",18,"UtilityModule" � ,,,base
0  base=(base+base!&14):ȕ ?base<>9:base+=1:�
#  os_version=�(�getstr(base+1))
&2  � os_version<3.50 �exp$="FALSE" �exp$="TRUE"
0,  � cline$(1)="PreRPC" �exp$="NOT "+exp$
:  start%=2
D 
N4  exp$="var%("+cline$(1)+")"+cline$(2)+cline$(3)
X  start%=4
b�
l
v� �(exp$) �
�
�	w$=""
�� x%=start% � words%
�w$+=cline$(x%)+" "
��
��interpret(w$)
�
��
��
�:
���optrad(type%)
�� x%,w$,w%
�
choices%=�(cline$(1))
X� choices%<1 � choices%>8 � � 0,"Too many choices at line "+�(scpos%+1)+" of script"

 Ȏ type% �
* � 1:w%=w_opts%:actiontype%=3
4 � 2:w%=w_rads%:actiontype%=4
>:� 0,"Type error!"
H�
R
\,ș "Wimp_CreateWindow",,w% � actionwind%
fwaiting%=�
p
z� x%=2 � choices%+1
�choice$(x%-1)=cline$(x%)
��
�
�!actvar%=�(cline$(choices%+2))
�]� actvar%<0 � actvar%>255 � � 0,"Variable out of range at line "+�(scpos%+1)+" of script"
�
�	w$=""
�� x%=choices%+3 � words%
�w$+=cline$(x%)+" "
��
�w$=�strip(w$)
��newtext(actionwind%,0,w$)
�
� x%=2 � choices%+1
*�newtext(actionwind%,x%,choice$(x%-1))
�
$
.� choices%<8 �
8� x%=choices%+2 � 9
B!block%=actionwind%
Lblock%!4=x%
V ș "Wimp_DeleteIcon",,block%
`�
j�
t
~�openwindow(actionwind%)
��
�:
�#ݤgeticonsel(whandle%,ihandle%)
�!tblock%=whandle%
�tblock%!4=ihandle%
�#ș "Wimp_GetIconState",,tblock%
�=(tblock%!24 � &200000)<>0
�:
�
��saveout
�� x%,w$
�waiting%=�
�actiontype%=5
4ș "Wimp_CreateWindow",,w_saveout% � actionwind%


5�newtext(actionwind%,1,cline$(1)):leaf$=cline$(1)
	w$=""
(� x%=2 � words%
2w$+=cline$(x%)+" "
<�
Fw$=�strip(w$)
P�newtext(actionwind%,0,w$)
Z
d�openwindow(actionwind%)
n�openshrunk(backhandle%)
x5x%=�checkfile("<Setup$Dir>.Files.Program."+leaf$)
�1� x%<=1 � 0,"Directory '"+leaf$+"' not found"
�leafdate%=filedate%
��
�:
�
��dragend
�ș "DragASprite_Stop"
�Ȏ actiontype% �
�� 5:
�(�seticonstate(actionwind%,1,0,1<<22)
�
�%ș "Wimp_GetPointerInfo",,tblock%
�
�!block%=256
block%!12=0
block%!16=1
block%!20=tblock%!12
"block%!24=tblock%!16
,block%!28=!tblock%
6block%!32=tblock%!4
@block%!36=-1
Jblock%!40=&2000
T$(block%+44)=leaf$
^
h7ș "Wimp_SendMessage",18,block%,block%!20,block%!24
r�
|�
�:
���savedout
�� x%
�
�	ok%=�
� filename$=�getstr(block%+44)
�
�Ȏ actiontype% �
�� 5:
�� �filename$,"<Wimp$") �
�	ok%=�
��
�x%=�checkfile(filename$)

+� x%=2 � filedate%>leafdate% � newer% �
!tblock%=0
&d$(tblock%+4)="This directory already exists, and is newer than my files! Shall I write over it?"
0Eș "Wimp_ReportError",tblock%,%10011,"Query from Setup" � ,click%
:� click%=2 � ok%=�
D�
N
X� x%=1 �
b	ok%=�
l!tblock%=0
v\$(tblock%+4)="This already exists as a file. To install over it, first delete the file."
�Gș "Wimp_ReportError",tblock%,%10001,"Message from Setup" � ,click%
��
�
�� ok% �
�x%=�checkfile(filename$)
�� x%=0 � "CDIR "+filename$
�
�%�newtext(actionwind%,0,filename$)
�waiting%=�
��openlarge(backhandle%)
�installdir$=filename$
� � "SET tmp$dir "+installdir$
�
!tblock%=actionwind%
#ș "Wimp_DeleteWindow",,tblock%
actiontype%=0
 actionwind%=0
*�
4
>�
H�
R
\� ok% �
f"block%!12=block%!8:block%!16=3
p.ș "Wimp_SendMessage",18,block%,block%!4,0
zș "Wimp_CreateMenu",,-1
��
�
�9� � waiting% � �newtext(statushandle%,0,"Working...")
��
�:
���openshrunk(whandle%)
�!tblock%=whandle%
�%ș "Wimp_GetWindowState",,tblock%
�tblock%!8+=128
�!ș "Wimp_OpenWindow",,tblock%
��
�:
���openlarge(whandle%)
!tblock%=whandle%
%ș "Wimp_GetWindowState",,tblock%
tblock%!8-=128
$!ș "Wimp_OpenWindow",,tblock%
.�
8:
Bݤcheckfile(fn$)
L� type%,load%,exec%,fd%
Vfiledate%=-1
`,ș "OS_File",17,fn$ � type%,,load%,exec%
j� type%=0 � =type%
tfd%=load% � 255
~exec%=exec% � (� 255)
�&filedate%=(fd%<<16) � (exec%>>>16)
�
=type%
�:
���openviewer
�waiting%=�
�actiontype%=-1
�3ș "Wimp_CreateWindow",,w_viewer% � actionwind%
�
�%O%=�("<Setup$Dir>.Files."+param$)
�viewlines%=0
��
�viewlines%+=1
readme$(viewlines%)=�#O%


� �#O%
�#O%

(!tblock%=0
2tblock%!4=-(viewlines%*32)
<tblock%!8=1232
Ftblock%!12=0
P+ș "Wimp_SetExtent",actionwind%,tblock%
Z
d�openwindow(actionwind%)
n�
x:
���readme
�� x%,y%,x1%,x2%
�
�x1%=(minx%)/16-1
�x2%=(maxx%)/16+1
�� x1%<1 x1%=1
�� x2%>80 x2%=80
�x2%-=x1%
�
�2� y%=(miny% � 32)*32-32 � (maxy% � 32)*32 � 32
�
�� xO%+x1%*16,yO%+y%
�x%=-(y%/32)
1� x1%<�(readme$(x%)) �;�readme$(x%),x1%,x2%);

�
"�
,:
6ݤtail(n$)
@� x$
J	x$=""
Tȕ �n$,".")
^x$+=�n$,�n$,"."))
hn$=�n$,�n$,".")+1)
r�
|x$=�x$)
�=x$
�:
� ��copy(source$,dest$,newer%)
�'ș "OS_GSTrans",source$,tblock%,255
�source$=�getstr(tblock%)
�%ș "OS_GSTrans",dest$,tblock%,255
�dest$=�getstr(tblock%)
�
�*�newtext(statushandle%,0,"Copying...")
�dir$=�tail(dest$)
��checkdir(dir$)
��copy1(source$,dest$)
�*�newtext(statushandle%,0,"Working...")
 !�newtext(statushandle%,1,"-")
 �
 :
 &��checkdir(dir$)
 0� d$,n$
 :
 D$ș "OS_GSTrans",dir$,tblock%,255
 Ndir$=�getstr(tblock%)
 X
 b ș "OS_File",17,dir$ � type%
 lK� type%=1 � � 1,"Unrecoverable error: cannot copy over file '"+dir$+"'"
 v� type%=2 � �
 �
 �n$=dir$
 �	d$=""
 �stpos%=�n$,"$")+1
 �!� stpos%<=1 � stpos%=�n$,".")
 �
 �d$=�n$,stpos%-1)
 �n$=�n$,stpos%+1)
 ��
 �
 �ș "OS_File",17,d$ � type%
 �I� type%=1 � � 1,"Unrecoverable error: cannot copy over file '"+d$+"'"
 �� type%=0 �
!� "CDIR "+d$
!�
!stpos%=�n$,".")
! � stpos%<=0 stpos%=�(n$)+1
!*d$+="."+�n$,stpos%-1)
!4n$=�n$,stpos%+1)
!>
!H� n$=""
!R
!\ș "OS_File",17,d$ � type%
!fI� type%=1 � � 1,"Unrecoverable error: cannot copy over file '"+d$+"'"
!p� type%=0 �
!z� "CDIR "+d$
!��
!�
!��
!�:
!���copy1(src$,dest$)
!�
� pointer
!�
pointer=0
!� ș "OS_File",17,src$ � type%
!�
!�� type%=1 �type%=3 �
!�  opt%=(1<<14)+(1<<13)+(1<<1)
!�
!� � newer% � opt%+=1<<12
" !tblock%=scratch%
" tblock%!4=scsize%
"9 ș "OS_FSControl",26,src$,dest$,opt%,4,5,6,7,tblock%
"$�
".�
"8
"B�checkdir(dest$)
"L
"V�
"`? ș "OS_GBPB",9,src$,tblock%,1,pointer,64 � ,,,read,pointer
"j � read=1 �
"t  f$=""
"~
  i%=0
"�  f$=�getstr(tblock%)
"�  �copy2(f$,src$,dest$)
"� �
"�� pointer=-1
"��
"�:
"���copy2(f$,src$,dest$)
"�'ș "OS_File",17,src$+"."+f$ � type%
"�.�newtext(statushandle%,1,�src$+"."+f$,39))
"�5� type%=0 � � 1,"Strange error during copying!":�
"�� type%=1 � type%=3�
"�
#opt%=(1<<14)+(1<<13)+(1<<1)
#

#� newer% � opt%+=1<<12
#!tblock%=scratch%
#(tblock%!4=scsize%
#2Fș "OS_FSControl",26,src$+"."+f$,dest$+"."+f$,opt%,4,5,6,7,tblock%
#<
#F�
#P�checkdir(dest$+"."+f$)
#Z$�copy1(src$+"."+f$,dest$+"."+f$)
#d�
#n�
#x:
#���udate
#�udir$=cline$(1)
#�0ș "Wimp_CreateWindow",,w_upd% � actionwind%
#�
#�	w$=""
#�� x%=2 � words%
#�w$+=cline$(x%)+" "
#��
#��newtext(actionwind%,1,w$)
#�w$=�strip(w$)
#�
#�actiontype%=6
#��openwindow(actionwind%)
$waiting%=�
$�openshrunk(backhandle%)
$�
$":
$,ݤleaf(n$)
$6ȕ �n$,".")
$@n$=�n$,�n$,".")+1)
$J�
$T=n$
$^:
$h��dragin
$r� actiontype%=5 � �savedout
$|� actiontype%=6 �
$�fn$=�getstr(block%+44)
$�.� block%!40<>&2000 � �leaf(fn$)<>udir$ � �
$�
$�)ud$="<Setup$Dir>.Files.System."+udir$
$�
$�5opt%=(1<<14)+(1<<13)+(1<<12)+(1<<9)+(1<<1)+(1<<0)
$�!tblock%=scratch%
$�tblock%!4=scsize%
$�
$�+�newtext(statushandle%,0,"Updating...")
$�1ș "OS_FSControl",26,ud$,fn$,opt%,,,,,tblock%
$�
$�!tblock%=actionwind%
%#ș "Wimp_DeleteWindow",,tblock%
%actiontype%=0
%
%&5waiting%=0:�newtext(statushandle%,0,"Working...")
%0�openlarge(backhandle%)
%:
%D�
%N
%X� actiontype%=7 �
%b-� block%!40<>&2000 � block%!40<>&1000 � �
%l)� "SET Setup$Dir "+�getstr(block%+44)
%v
%�*ș "XOS_File",17,swapfile$ � type%;ss%
%�� (ss% � 1) type%=0
%�
%�� type%<>0 �
%�!block%=actionwind%
%�"ș "Wimp_DeleteWindow",,block%
%�actionwind%=0
%�actiontype%=0
%�waiting%=�
%�
%��openlarge(backhandle%)
%��
%�� "SET Setup$Dir ADFS::0.$"
&� 7
&�
&
& �
&*�
&4:
&>��swapdisc
&H,swapfile$="<Setup$Dir>.Files."+cline$(1)
&R%ș "OS_File",17,swapfile$ � type%
&\
&f� type%=0 �
&p	w$=""
&z� x%=2 � words%
&�w$+=cline$(x%)+" "
&��
&�w$=�strip(w$)
&�
&�0ș "Wimp_CreateWindow",,w_msg% � actionwind%
&�actiontype%=7:waiting%=�
&��openwindow(actionwind%)
&��newtext(actionwind%,0,w$)
&�
&�� "SET Setup$Dir ADFS::0.$"
&��openshrunk(backhandle%)
&��
&��
':
'��delete(fn$)
'� fn$="" � �
'$+ș "OS_FSControl",27,fn$,,(1<<0)+(1<<1)
'.�
'8:
'B��compare(f1$,f2$)
'L� leafdate%,x%,y%
'V*x%=�checkfile(f1$):leafdate%=filedate%
'`y%=�checkfile(f2$)
'j
't� filedate%>leafdate% �
'~!tblock%=0
'�
'�	w$=""
'�� x%=3 � words%
'�w$+=cline$(x%)+" "
'��
'�w$=�strip(w$)
'�
'�$(tblock%+4)=w$
'�Eș "Wimp_ReportError",tblock%,%10011,"Query from Setup" � ,click%
'�� click%=2 � quit%=�
'��
'�
(�
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 1b f4 20 a9 20  41 6e 64 72 65 77 20 48  |..... . Andrew H|
00000020  75 6e 74 65 72 2c 20 31  39 39 35 0d 00 1e 12 f4  |unter, 1995.....|
00000030  20 53 65 74 75 70 20 70  72 6f 67 67 79 0d 00 28  | Setup proggy..(|
00000040  25 f4 20 45 78 74 65 6e  73 69 6f 6e 73 20 62 79  |%. Extensions by|
00000050  20 4a 75 73 74 69 6e 20  46 6c 65 74 63 68 65 72  | Justin Fletcher|
00000060  20 2d 0d 00 32 0b f4 20  53 45 54 20 3a 0d 00 3c  | -..2.. SET :..<|
00000070  43 f4 20 20 20 20 20 44  45 53 54 20 3c 64 69 72  |C.     DEST <dir|
00000080  3e 20 73 65 74 73 20 64  65 73 74 69 6e 61 74 69  |> sets destinati|
00000090  6f 6e 20 64 69 72 65 63  74 6f 72 79 20 28 69 6e  |on directory (in|
000000a0  73 74 65 61 64 20 6f 66  20 47 45 54 44 49 52 29  |stead of GETDIR)|
000000b0  0d 00 46 41 f4 20 20 20  20 20 4c 45 41 46 20 3c  |..FA.     LEAF <|
000000c0  6e 61 6d 65 3e 20 73 65  74 73 20 74 68 65 20 6c  |name> sets the l|
000000d0  65 61 66 20 74 6f 20 69  6e 73 74 61 6c 6c 20 66  |eaf to install f|
000000e0  72 6f 6d 20 28 66 72 6f  6d 20 47 45 54 44 49 52  |rom (from GETDIR|
000000f0  29 0d 00 50 31 f4 20 20  20 20 20 3c 6e 75 6d 3e  |)..P1.     <num>|
00000100  20 3c 65 78 70 72 3e 20  73 65 74 73 20 61 20 76  | <expr> sets a v|
00000110  61 72 69 61 62 6c 65 20  74 6f 20 61 20 76 61 6c  |ariable to a val|
00000120  75 65 0d 00 5a 3a f4 20  20 20 20 20 2a 3c 76 61  |ue..Z:.     *<va|
00000130  72 3e 20 3c 76 61 6c 75  65 3e 20 73 65 74 73 20  |r> <value> sets |
00000140  61 20 73 79 73 74 65 6d  20 76 61 72 69 61 62 6c  |a system variabl|
00000150  65 20 74 6f 20 61 20 76  61 6c 75 65 0d 00 64 2f  |e to a value..d/|
00000160  f4 20 49 46 20 52 50 43  20 3c 74 68 65 6e 3e 20  |. IF RPC <then> |
00000170  20 20 20 3a 20 45 78 65  63 75 74 65 64 20 69 66  |   : Executed if|
00000180  20 4f 53 20 3e 3d 20 33  2e 35 30 0d 00 6e 2f f4  | OS >= 3.50..n/.|
00000190  20 49 46 20 50 72 65 52  50 43 20 3c 74 68 65 6e  | IF PreRPC <then|
000001a0  3e 20 3a 20 45 78 65 63  75 74 65 64 20 69 66 20  |> : Executed if |
000001b0  4f 53 20 20 3c 20 33 2e  35 30 0d 00 78 05 3a 0d  |OS  < 3.50..x.:.|
000001c0  00 82 35 f4 20 61 6c 74  65 72 20 74 68 69 73 20  |..5. alter this |
000001d0  76 61 6c 75 65 20 74 6f  20 63 6f 70 79 20 6c 61  |value to copy la|
000001e0  72 67 65 72 20 66 69 6c  65 73 20 69 6e 20 6f 6e  |rger files in on|
000001f0  65 20 67 6f 0d 00 8c 13  73 63 73 69 7a 65 25 3d  |e go....scsize%=|
00000200  36 34 2a 31 30 32 34 0d  00 96 05 3a 0d 00 a0 38  |64*1024....:...8|
00000210  ee 20 85 20 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |. . .. "Wimp_Clo|
00000220  73 65 44 6f 77 6e 22 3a  c8 99 20 22 48 6f 75 72  |seDown":.. "Hour|
00000230  67 6c 61 73 73 5f 53 6d  61 73 68 22 3a f6 3a f1  |glass_Smash":.:.|
00000240  20 9e 3a e0 0d 00 aa 15  c8 99 20 22 48 6f 75 72  | .:....... "Hour|
00000250  67 6c 61 73 73 5f 4f 6e  22 0d 00 b4 09 f2 69 6e  |glass_On".....in|
00000260  69 74 0d 00 be 16 c8 99  20 22 48 6f 75 72 67 6c  |it...... "Hourgl|
00000270  61 73 73 5f 4f 66 66 22  0d 00 c8 04 0d 00 d2 0d  |ass_Off"........|
00000280  f2 6e 65 78 74 6c 69 6e  65 0d 00 dc 04 0d 00 e6  |.nextline.......|
00000290  39 e7 20 ac 20 77 61 69  74 69 6e 67 25 20 8c 20  |9. . waiting% . |
000002a0  f2 6e 65 77 74 65 78 74  28 73 74 61 74 75 73 68  |.newtext(statush|
000002b0  61 6e 64 6c 65 25 2c 30  2c 22 57 6f 72 6b 69 6e  |andle%,0,"Workin|
000002c0  67 2e 2e 2e 22 29 0d 00  f0 09 f2 70 6f 6c 6c 0d  |g...").....poll.|
000002d0  00 fa 2a f2 6e 65 77 74  65 78 74 28 73 74 61 74  |..*.newtext(stat|
000002e0  75 73 68 61 6e 64 6c 65  25 2c 30 2c 22 45 78 69  |ushandle%,0,"Exi|
000002f0  74 69 6e 67 2e 2e 2e 22  29 0d 01 04 0e f2 6c 6f  |ting...").....lo|
00000300  73 65 66 6f 6e 74 73 0d  01 0e 05 e0 0d 01 18 05  |sefonts.........|
00000310  3a 0d 01 22 0a dd f2 69  6e 69 74 0d 01 2c 2f de  |:.."...init..,/.|
00000320  20 62 6c 6f 63 6b 25 20  32 30 34 38 2c 74 62 6c  | block% 2048,tbl|
00000330  6f 63 6b 25 20 31 30 32  34 2c 73 63 72 61 74 63  |ock% 1024,scratc|
00000340  68 25 20 73 63 73 69 7a  65 25 0d 01 36 41 c8 99  |h% scsize%..6A..|
00000350  20 22 57 69 6d 70 5f 49  6e 69 74 69 61 6c 69 73  | "Wimp_Initialis|
00000360  65 22 2c 32 30 30 2c 26  34 42 35 33 34 31 35 34  |e",200,&4B534154|
00000370  2c 22 53 65 74 75 70 22  20 b8 20 76 65 72 25 2c  |,"Setup" . ver%,|
00000380  74 61 73 6b 68 61 6e 64  6c 65 25 0d 01 40 19 c8  |taskhandle%..@..|
00000390  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4c 45 44  |. "Hourglass_LED|
000003a0  73 22 2c 31 0d 01 4a 2a  77 61 69 74 69 6e 67 25  |s",1..J*waiting%|
000003b0  3d a3 3a 61 63 74 69 6f  6e 77 69 6e 64 25 3d 30  |=.:actionwind%=0|
000003c0  3a 61 63 74 69 6f 6e 74  79 70 65 25 3d 30 0d 01  |:actiontype%=0..|
000003d0  54 12 f2 6c 6f 61 64 74  65 6d 70 6c 61 74 65 73  |T..loadtemplates|
000003e0  0d 01 5e 04 0d 01 68 19  c8 99 20 22 48 6f 75 72  |..^...h... "Hour|
000003f0  67 6c 61 73 73 5f 4c 45  44 73 22 2c 32 0d 01 72  |glass_LEDs",2..r|
00000400  2f de 20 76 61 72 25 28  32 35 35 29 2c 63 68 6f  |/. var%(255),cho|
00000410  69 63 65 24 28 38 29 2c  73 74 61 63 6b 25 28 32  |ice$(8),stack%(2|
00000420  35 35 29 3a 73 74 70 74  72 25 3d 30 0d 01 7c 1a  |55):stptr%=0..|.|
00000430  de 20 63 6c 69 6e 65 24  28 35 30 29 3a 73 63 70  |. cline$(50):scp|
00000440  6f 73 25 3d 2d 31 0d 01  86 12 de 20 72 65 61 64  |os%=-1..... read|
00000450  6d 65 24 28 35 31 32 29  0d 01 90 0f f2 72 65 61  |me$(512).....rea|
00000460  64 73 63 72 69 70 74 0d  01 9a 0c 6e 65 77 65 72  |dscript....newer|
00000470  25 3d b9 0d 01 a4 0b 66  61 73 74 25 3d a3 0d 01  |%=.....fast%=...|
00000480  ae 05 e1 0d 01 b8 05 3a  0d 01 c2 13 dd f2 6c 6f  |.......:......lo|
00000490  61 64 74 65 6d 70 6c 61  74 65 73 0d 01 cc 1b de  |adtemplates.....|
000004a0  20 69 6e 64 25 20 31 36  33 38 34 2c 66 6f 6e 74  | ind% 16384,font|
000004b0  73 25 20 32 35 36 0d 01  d6 2b de 20 77 5f 6d 73  |s% 256...+. w_ms|
000004c0  67 25 20 31 30 32 34 2c  77 5f 71 75 65 73 25 20  |g% 1024,w_ques% |
000004d0  31 30 32 34 2c 77 5f 6f  70 74 73 25 20 31 30 32  |1024,w_opts% 102|
000004e0  34 0d 01 e0 21 de 20 77  5f 75 70 64 25 20 31 30  |4...!. w_upd% 10|
000004f0  32 34 2c 77 5f 73 61 76  65 6f 75 74 25 20 31 30  |24,w_saveout% 10|
00000500  32 34 0d 01 ea 21 de 20  77 5f 72 61 64 73 25 20  |24...!. w_rads% |
00000510  31 30 32 34 2c 77 5f 76  69 65 77 65 72 25 20 31  |1024,w_viewer% 1|
00000520  30 32 34 0d 01 f4 1c e3  20 78 3d 30 20 b8 20 32  |024..... x=0 . 2|
00000530  35 35 3a 66 6f 6e 74 73  25 3f 78 3d 30 3a ed 0d  |55:fonts%?x=0:..|
00000540  01 fe 16 65 6e 64 69 6e  64 25 3d 69 6e 64 25 2b  |...endind%=ind%+|
00000550  31 36 33 38 34 0d 02 08  33 c8 99 20 22 57 69 6d  |16384...3.. "Wim|
00000560  70 5f 4f 70 65 6e 54 65  6d 70 6c 61 74 65 22 2c  |p_OpenTemplate",|
00000570  2c 22 3c 53 65 74 75 70  24 44 69 72 3e 2e 54 65  |,"<Setup$Dir>.Te|
00000580  6d 70 6c 61 74 65 73 22  0d 02 12 4e c8 99 20 22  |mplates"...N.. "|
00000590  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
000005a0  65 22 2c 2c 62 6c 6f 63  6b 25 2c 69 6e 64 25 2c  |e",,block%,ind%,|
000005b0  65 6e 64 69 6e 64 25 2c  66 6f 6e 74 73 25 2c 22  |endind%,fonts%,"|
000005c0  42 61 63 6b 64 72 6f 70  22 2b bd 31 33 20 b8 20  |Backdrop"+.13 . |
000005d0  2c 2c 69 6e 64 25 0d 02  1c 0f 62 6c 6f 63 6b 25  |,,ind%....block%|
000005e0  21 36 34 3d 31 0d 02 26  30 c8 99 20 22 57 69 6d  |!64=1..&0.. "Wim|
000005f0  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000600  2c 62 6c 6f 63 6b 25 20  b8 20 62 61 63 6b 68 61  |,block% . backha|
00000610  6e 64 6c 65 25 0d 02 30  04 0d 02 3a 4d c8 99 20  |ndle%..0...:M.. |
00000620  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00000630  74 65 22 2c 2c 77 5f 6d  73 67 25 2c 69 6e 64 25  |te",,w_msg%,ind%|
00000640  2c 65 6e 64 69 6e 64 25  2c 66 6f 6e 74 73 25 2c  |,endind%,fonts%,|
00000650  22 4d 65 73 73 61 67 65  22 2b bd 31 33 20 b8 20  |"Message"+.13 . |
00000660  2c 2c 69 6e 64 25 0d 02  44 0f 77 5f 6d 73 67 25  |,,ind%..D.w_msg%|
00000670  21 36 34 3d 31 0d 02 4e  4f c8 99 20 22 57 69 6d  |!64=1..NO.. "Wim|
00000680  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00000690  2c 77 5f 71 75 65 73 25  2c 69 6e 64 25 2c 65 6e  |,w_ques%,ind%,en|
000006a0  64 69 6e 64 25 2c 66 6f  6e 74 73 25 2c 22 51 75  |dind%,fonts%,"Qu|
000006b0  65 73 74 69 6f 6e 22 2b  bd 31 33 20 b8 20 2c 2c  |estion"+.13 . ,,|
000006c0  69 6e 64 25 0d 02 58 10  77 5f 71 75 65 73 25 21  |ind%..X.w_ques%!|
000006d0  36 34 3d 31 0d 02 62 4e  c8 99 20 22 57 69 6d 70  |64=1..bN.. "Wimp|
000006e0  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
000006f0  77 5f 6f 70 74 73 25 2c  69 6e 64 25 2c 65 6e 64  |w_opts%,ind%,end|
00000700  69 6e 64 25 2c 66 6f 6e  74 73 25 2c 22 4f 70 74  |ind%,fonts%,"Opt|
00000710  69 6f 6e 73 22 2b bd 31  33 20 b8 20 2c 2c 69 6e  |ions"+.13 . ,,in|
00000720  64 25 0d 02 6c 10 77 5f  6f 70 74 73 25 21 36 34  |d%..l.w_opts%!64|
00000730  3d 31 0d 02 76 4c c8 99  20 22 57 69 6d 70 5f 4c  |=1..vL.. "Wimp_L|
00000740  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 77 5f  |oadTemplate",,w_|
00000750  72 61 64 73 25 2c 69 6e  64 25 2c 65 6e 64 69 6e  |rads%,ind%,endin|
00000760  64 25 2c 66 6f 6e 74 73  25 2c 22 52 61 64 69 6f  |d%,fonts%,"Radio|
00000770  22 2b bd 31 33 20 b8 20  2c 2c 69 6e 64 25 0d 02  |"+.13 . ,,ind%..|
00000780  80 10 77 5f 72 61 64 73  25 21 36 34 3d 31 0d 02  |..w_rads%!64=1..|
00000790  8a 4c c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |.L.. "Wimp_LoadT|
000007a0  65 6d 70 6c 61 74 65 22  2c 2c 77 5f 75 70 64 25  |emplate",,w_upd%|
000007b0  2c 69 6e 64 25 2c 65 6e  64 69 6e 64 25 2c 66 6f  |,ind%,endind%,fo|
000007c0  6e 74 73 25 2c 22 55 70  64 61 74 65 22 2b bd 31  |nts%,"Update"+.1|
000007d0  33 20 b8 20 2c 2c 69 6e  64 25 0d 02 94 0f 77 5f  |3 . ,,ind%....w_|
000007e0  75 70 64 25 21 36 34 3d  31 0d 02 9e 51 c8 99 20  |upd%!64=1...Q.. |
000007f0  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00000800  74 65 22 2c 2c 77 5f 73  61 76 65 6f 75 74 25 2c  |te",,w_saveout%,|
00000810  69 6e 64 25 2c 65 6e 64  69 6e 64 25 2c 66 6f 6e  |ind%,endind%,fon|
00000820  74 73 25 2c 22 53 61 76  65 4f 75 74 22 2b bd 31  |ts%,"SaveOut"+.1|
00000830  33 20 b8 20 2c 2c 69 6e  64 25 0d 02 a8 13 77 5f  |3 . ,,ind%....w_|
00000840  73 61 76 65 6f 75 74 25  21 36 34 3d 31 0d 02 b2  |saveout%!64=1...|
00000850  4f c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |O.. "Wimp_LoadTe|
00000860  6d 70 6c 61 74 65 22 2c  2c 77 5f 76 69 65 77 65  |mplate",,w_viewe|
00000870  72 25 2c 69 6e 64 25 2c  65 6e 64 69 6e 64 25 2c  |r%,ind%,endind%,|
00000880  66 6f 6e 74 73 25 2c 22  52 65 61 64 4d 65 22 2b  |fonts%,"ReadMe"+|
00000890  bd 31 33 20 b8 20 2c 2c  69 6e 64 25 0d 02 bc 12  |.13 . ,,ind%....|
000008a0  77 5f 76 69 65 77 65 72  25 21 36 34 3d 31 0d 02  |w_viewer%!64=1..|
000008b0  c6 04 0d 02 d0 4c c8 99  20 22 57 69 6d 70 5f 4c  |.....L.. "Wimp_L|
000008c0  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 62 6c  |oadTemplate",,bl|
000008d0  6f 63 6b 25 2c 69 6e 64  25 2c 65 6e 64 69 6e 64  |ock%,ind%,endind|
000008e0  25 2c 66 6f 6e 74 73 25  2c 22 53 74 61 74 75 73  |%,fonts%,"Status|
000008f0  22 2b bd 31 33 20 b8 20  2c 2c 69 6e 64 25 0d 02  |"+.13 . ,,ind%..|
00000900  da 0f 62 6c 6f 63 6b 25  21 36 34 3d 31 0d 02 e4  |..block%!64=1...|
00000910  04 0d 02 ee 32 c8 99 20  22 57 69 6d 70 5f 43 72  |....2.. "Wimp_Cr|
00000920  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |eateWindow",,blo|
00000930  63 6b 25 20 b8 20 73 74  61 74 75 73 68 61 6e 64  |ck% . statushand|
00000940  6c 65 25 0d 02 f8 04 0d  03 02 1b c8 99 20 22 57  |le%.......... "W|
00000950  69 6d 70 5f 43 6c 6f 73  65 54 65 6d 70 6c 61 74  |imp_CloseTemplat|
00000960  65 22 0d 03 0c 27 f2 6f  70 65 6e 77 69 6e 64 6f  |e"...'.openwindo|
00000970  77 62 69 67 28 62 61 63  6b 68 61 6e 64 6c 65 25  |wbig(backhandle%|
00000980  29 3a f4 20 47 65 72 70  68 0d 03 16 1e f2 6f 70  |):. Gerph.....op|
00000990  65 6e 77 69 6e 64 6f 77  28 73 74 61 74 75 73 68  |enwindow(statush|
000009a0  61 6e 64 6c 65 25 29 0d  03 20 05 e1 0d 03 2a 05  |andle%).. ....*.|
000009b0  3a 0d 03 34 0d f4 20 47  65 72 70 68 2d 3e 0d 03  |:..4.. Gerph->..|
000009c0  3e 1d dd f2 6f 70 65 6e  77 69 6e 64 6f 77 62 69  |>...openwindowbi|
000009d0  67 28 77 68 61 6e 64 6c  65 25 29 0d 03 48 14 21  |g(whandle%)..H.!|
000009e0  62 6c 6f 63 6b 25 3d 77  68 61 6e 64 6c 65 25 0d  |block%=whandle%.|
000009f0  03 52 24 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |.R$.. "Wimp_GetW|
00000a00  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6f  |indowState",,blo|
00000a10  63 6b 25 0d 03 5c 35 62  6c 6f 63 6b 25 21 34 3d  |ck%..\5block%!4=|
00000a20  30 3a 62 6c 6f 63 6b 25  21 38 3d 30 3a 62 6c 6f  |0:block%!8=0:blo|
00000a30  63 6b 25 21 31 32 3d 31  45 36 3a 62 6c 6f 63 6b  |ck%!12=1E6:block|
00000a40  25 21 31 36 3d 31 45 36  0d 03 66 10 62 6c 6f 63  |%!16=1E6..f.bloc|
00000a50  6b 25 21 32 38 3d 2d 31  0d 03 70 20 c8 99 20 22  |k%!28=-1..p .. "|
00000a60  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000a70  2c 2c 62 6c 6f 63 6b 25  0d 03 7a 2d 62 6c 6f 63  |,,block%..z-bloc|
00000a80  6b 25 21 34 3d 32 3a c8  99 20 22 57 69 6d 70 5f  |k%!4=2:.. "Wimp_|
00000a90  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00000aa0  6c 6f 63 6b 25 0d 03 84  20 c8 99 20 22 57 69 6d  |lock%... .. "Wim|
00000ab0  70 5f 44 65 6c 65 74 65  49 63 6f 6e 22 2c 2c 62  |p_DeleteIcon",,b|
00000ac0  6c 6f 63 6b 25 0d 03 8e  2a c8 99 20 22 4f 53 5f  |lock%...*.. "OS_|
00000ad0  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00000ae0  22 2c 2d 31 2c 34 20 b8  20 2c 2c 78 65 69 67 0d  |",-1,4 . ,,xeig.|
00000af0  03 98 31 c8 99 20 22 4f  53 5f 52 65 61 64 4d 6f  |..1.. "OS_ReadMo|
00000b00  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 31  |deVariable",-1,1|
00000b10  31 20 b8 20 2c 2c 78 77  69 6e 64 6c 69 6d 69 74  |1 . ,,xwindlimit|
00000b20  0d 03 a2 19 78 6d 61 78  3d 78 77 69 6e 64 6c 69  |....xmax=xwindli|
00000b30  6d 69 74 3c 3c 78 65 69  67 0d 03 ac 29 62 6c 6f  |mit<<xeig...)blo|
00000b40  63 6b 25 21 38 3d 78 6d  61 78 2d 36 34 2d 28 62  |ck%!8=xmax-64-(b|
00000b50  6c 6f 63 6b 25 21 31 36  2d 62 6c 6f 63 6b 25 21  |lock%!16-block%!|
00000b60  38 29 0d 03 b6 46 62 6c  6f 63 6b 25 21 31 36 3d  |8)...Fblock%!16=|
00000b70  78 6d 61 78 2d 36 34 3a  62 6c 6f 63 6b 25 21 34  |xmax-64:block%!4|
00000b80  3d 77 68 61 6e 64 6c 65  25 3a c8 99 20 22 57 69  |=whandle%:.. "Wi|
00000b90  6d 70 5f 43 72 65 61 74  65 49 63 6f 6e 22 2c 2c  |mp_CreateIcon",,|
00000ba0  62 6c 6f 63 6b 25 2b 34  0d 03 c0 05 e1 0d 03 ca  |block%+4........|
00000bb0  0d f4 20 3c 2d 47 65 72  70 68 0d 03 d4 04 0d 03  |.. <-Gerph......|
00000bc0  de 1a dd f2 6f 70 65 6e  77 69 6e 64 6f 77 28 77  |....openwindow(w|
00000bd0  68 61 6e 64 6c 65 25 29  0d 03 e8 20 ea 20 77 69  |handle%)... . wi|
00000be0  64 74 68 2c 68 65 69 67  68 74 2c 74 6f 70 2c 72  |dth,height,top,r|
00000bf0  69 67 68 74 2c 78 2c 79  0d 03 f2 49 e7 20 28 77  |ight,x,y...I. (w|
00000c00  68 61 6e 64 6c 65 25 3d  61 63 74 69 6f 6e 77 69  |handle%=actionwi|
00000c10  6e 64 25 20 80 20 61 63  74 69 6f 6e 74 79 70 65  |nd% . actiontype|
00000c20  25 3c 3e 2d 31 29 20 84  20 77 68 61 6e 64 6c 65  |%<>-1) . whandle|
00000c30  25 3d 73 74 61 74 75 73  68 61 6e 64 6c 65 25 20  |%=statushandle% |
00000c40  8c 0d 03 fc 3f 20 21 62  6c 6f 63 6b 25 3d 34 3a  |....? !block%=4:|
00000c50  62 6c 6f 63 6b 25 21 34  3d 35 3a 62 6c 6f 63 6b  |block%!4=5:block|
00000c60  25 21 38 3d 31 31 3a 62  6c 6f 63 6b 25 21 31 32  |%!8=11:block%!12|
00000c70  3d 31 32 3a 62 6c 6f 63  6b 25 21 31 36 3d 2d 31  |=12:block%!16=-1|
00000c80  0d 04 06 2e 20 c8 99 20  22 4f 53 5f 52 65 61 64  |.... .. "OS_Read|
00000c90  56 64 75 56 61 72 69 61  62 6c 65 73 22 2c 62 6c  |VduVariables",bl|
00000ca0  6f 63 6b 25 2c 62 6c 6f  63 6b 25 2b 32 30 0d 04  |ock%,block%+20..|
00000cb0  10 3c 20 72 69 67 68 74  3d 62 6c 6f 63 6b 25 21  |.< right=block%!|
00000cc0  32 38 2b 31 3c 3c 62 6c  6f 63 6b 25 21 32 30 3a  |28+1<<block%!20:|
00000cd0  74 6f 70 3d 62 6c 6f 63  6b 25 21 33 32 2b 31 3c  |top=block%!32+1<|
00000ce0  3c 62 6c 6f 63 6b 25 21  32 34 0d 04 1a 36 20 21  |<block%!24...6 !|
00000cf0  62 6c 6f 63 6b 25 3d 77  68 61 6e 64 6c 65 25 3a  |block%=whandle%:|
00000d00  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
00000d10  6f 77 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |owState",,block%|
00000d20  0d 04 24 37 20 77 69 64  74 68 3d 62 6c 6f 63 6b  |..$7 width=block|
00000d30  25 21 34 2d 62 6c 6f 63  6b 25 21 31 32 3a 68 65  |%!4-block%!12:he|
00000d40  69 67 68 74 3d 62 6c 6f  63 6b 25 21 31 36 2d 62  |ight=block%!16-b|
00000d50  6c 6f 63 6b 25 21 38 0d  04 2e 5c 20 78 3d 28 72  |lock%!8...\ x=(r|
00000d60  69 67 68 74 2d 77 69 64  74 68 29 2f 32 2b 77 69  |ight-width)/2+wi|
00000d70  64 74 68 3a e7 20 77 68  61 6e 64 6c 65 25 3c 3e  |dth:. whandle%<>|
00000d80  73 74 61 74 75 73 68 61  6e 64 6c 65 25 20 8c 79  |statushandle% .y|
00000d90  3d 28 74 6f 70 2d 68 65  69 67 68 74 29 2f 32 2b  |=(top-height)/2+|
00000da0  68 65 69 67 68 74 20 8b  79 3d 62 6c 6f 63 6b 25  |height .y=block%|
00000db0  21 31 36 0d 04 38 3f 20  62 6c 6f 63 6b 25 21 34  |!16..8? block%!4|
00000dc0  3d 78 3a 62 6c 6f 63 6b  25 21 38 3d 79 2d 68 65  |=x:block%!8=y-he|
00000dd0  69 67 68 74 3a 62 6c 6f  63 6b 25 21 31 32 3d 78  |ight:block%!12=x|
00000de0  2d 77 69 64 74 68 3a 62  6c 6f 63 6b 25 21 31 36  |-width:block%!16|
00000df0  3d 79 0d 04 42 2e 20 62  6c 6f 63 6b 25 21 32 38  |=y..B. block%!28|
00000e00  3d 2d 31 3a c8 99 20 22  57 69 6d 70 5f 4f 70 65  |=-1:.. "Wimp_Ope|
00000e10  6e 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |nWindow",,block%|
00000e20  0d 04 4c 06 20 e1 0d 04  56 05 cc 0d 04 60 15 20  |..L. ...V....`. |
00000e30  21 62 6c 6f 63 6b 25 3d  77 68 61 6e 64 6c 65 25  |!block%=whandle%|
00000e40  0d 04 6a 25 20 c8 99 20  22 57 69 6d 70 5f 47 65  |..j% .. "Wimp_Ge|
00000e50  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00000e60  6c 6f 63 6b 25 0d 04 74  11 20 62 6c 6f 63 6b 25  |lock%..t. block%|
00000e70  21 32 38 3d 2d 31 0d 04  7e 21 20 c8 99 20 22 57  |!28=-1..~! .. "W|
00000e80  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00000e90  2c 62 6c 6f 63 6b 25 0d  04 88 05 cd 0d 04 92 05  |,block%.........|
00000ea0  e1 0d 04 9c 05 3a 0d 04  a6 0c dd f2 72 65 64 72  |.....:......redr|
00000eb0  61 77 0d 04 b0 15 c8 99  20 22 48 6f 75 72 67 6c  |aw...... "Hourgl|
00000ec0  61 73 73 5f 4f 6e 22 0d  04 ba 19 c8 99 20 22 48  |ass_On"...... "H|
00000ed0  6f 75 72 67 6c 61 73 73  5f 4c 45 44 73 22 2c 31  |ourglass_LEDs",1|
00000ee0  0d 04 c4 2a c8 99 20 22  57 69 6d 70 5f 52 65 64  |...*.. "Wimp_Red|
00000ef0  72 61 77 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |rawWindow",,bloc|
00000f00  6b 25 20 b8 20 6d 6f 72  65 25 0d 04 ce 0f 77 68  |k% . more%....wh|
00000f10  25 3d 21 62 6c 6f 63 6b  25 0d 04 d8 1a 78 4f 25  |%=!block%....xO%|
00000f20  3d 62 6c 6f 63 6b 25 21  34 2d 62 6c 6f 63 6b 25  |=block%!4-block%|
00000f30  21 32 30 0d 04 e2 1b 79  4f 25 3d 62 6c 6f 63 6b  |!20....yO%=block|
00000f40  25 21 31 36 2d 62 6c 6f  63 6b 25 21 32 34 0d 04  |%!16-block%!24..|
00000f50  ec 04 0d 04 f6 0c c8 95  20 6d 6f 72 65 25 0d 05  |........ more%..|
00000f60  00 04 0d 05 0a 17 6d 69  6e 78 25 3d 62 6c 6f 63  |......minx%=bloc|
00000f70  6b 25 21 32 38 2d 78 4f  25 0d 05 14 17 6d 69 6e  |k%!28-xO%....min|
00000f80  79 25 3d 62 6c 6f 63 6b  25 21 33 32 2d 79 4f 25  |y%=block%!32-yO%|
00000f90  0d 05 1e 17 6d 61 78 78  25 3d 62 6c 6f 63 6b 25  |....maxx%=block%|
00000fa0  21 33 36 2d 78 4f 25 0d  05 28 17 6d 61 78 79 25  |!36-xO%..(.maxy%|
00000fb0  3d 62 6c 6f 63 6b 25 21  34 30 2d 79 4f 25 0d 05  |=block%!40-yO%..|
00000fc0  32 04 0d 05 3c 0c c8 8e  20 77 68 25 20 ca 0d 05  |2...<... wh% ...|
00000fd0  46 17 c9 20 62 61 63 6b  68 61 6e 64 6c 65 25 3a  |F.. backhandle%:|
00000fe0  f2 66 61 64 65 0d 05 50  2c c9 20 61 63 74 69 6f  |.fade..P,. actio|
00000ff0  6e 77 69 6e 64 25 3a e7  20 61 63 74 69 6f 6e 74  |nwind%:. actiont|
00001000  79 70 65 25 3d 2d 31 20  8c 20 f2 72 65 61 64 6d  |ype%=-1 . .readm|
00001010  65 0d 05 5a 05 cb 0d 05  64 04 0d 05 6e 2a c8 99  |e..Z....d...n*..|
00001020  20 22 57 69 6d 70 5f 47  65 74 52 65 63 74 61 6e  | "Wimp_GetRectan|
00001030  67 6c 65 22 2c 2c 62 6c  6f 63 6b 25 20 b8 20 6d  |gle",,block% . m|
00001040  6f 72 65 25 0d 05 78 05  ce 0d 05 82 04 0d 05 8c  |ore%..x.........|
00001050  16 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00001060  66 66 22 0d 05 96 05 e1  0d 05 a0 05 3a 0d 05 aa  |ff".........:...|
00001070  0a dd f2 70 6f 6c 6c 0d  05 b4 0b 71 75 69 74 25  |...poll....quit%|
00001080  3d a3 0d 05 be 05 f5 0d  05 c8 55 e7 20 ac 20 77  |=.........U. . w|
00001090  61 69 74 69 6e 67 25 20  c8 99 20 22 57 69 6d 70  |aiting% .. "Wimp|
000010a0  5f 50 6f 6c 6c 22 2c 2c  62 6c 6f 63 6b 25 20 b8  |_Poll",,block% .|
000010b0  20 72 65 61 73 6f 6e 25  20 8b 20 c8 99 20 22 57  | reason% . .. "W|
000010c0  69 6d 70 5f 50 6f 6c 6c  22 2c 31 2c 62 6c 6f 63  |imp_Poll",1,bloc|
000010d0  6b 25 20 b8 20 72 65 61  73 6f 6e 25 0d 05 d2 10  |k% . reason%....|
000010e0  c8 8e 20 72 65 61 73 6f  6e 25 20 ca 0d 05 dc 0d  |.. reason% .....|
000010f0  c9 20 30 3a f2 6e 75 6c  6c 0d 05 e6 04 0d 05 f0  |. 0:.null.......|
00001100  0f c9 20 31 3a f2 72 65  64 72 61 77 0d 05 fa 24  |.. 1:.redraw...$|
00001110  c9 20 32 3a c8 99 20 22  57 69 6d 70 5f 4f 70 65  |. 2:.. "Wimp_Ope|
00001120  6e 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |nWindow",,block%|
00001130  0d 06 04 25 c9 20 33 3a  c8 99 20 22 57 69 6d 70  |...%. 3:.. "Wimp|
00001140  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 62  |_CloseWindow",,b|
00001150  6c 6f 63 6b 25 0d 06 0e  16 e7 20 61 63 74 69 6f  |lock%..... actio|
00001160  6e 74 79 70 65 25 3d 2d  31 20 8c 0d 06 18 1b e7  |ntype%=-1 ......|
00001170  20 21 62 6c 6f 63 6b 25  3d 61 63 74 69 6f 6e 77  | !block%=actionw|
00001180  69 6e 64 25 20 8c 0d 06  22 22 c8 99 20 22 57 69  |ind% ..."".. "Wi|
00001190  6d 70 5f 44 65 6c 65 74  65 57 69 6e 64 6f 77 22  |mp_DeleteWindow"|
000011a0  2c 2c 62 6c 6f 63 6b 25  0d 06 2c 0e 77 61 69 74  |,,block%..,.wait|
000011b0  69 6e 67 25 3d a3 0d 06  36 2a f2 6e 65 77 74 65  |ing%=...6*.newte|
000011c0  78 74 28 73 74 61 74 75  73 68 61 6e 64 6c 65 25  |xt(statushandle%|
000011d0  2c 30 2c 22 57 6f 72 6b  69 6e 67 2e 2e 2e 22 29  |,0,"Working...")|
000011e0  0d 06 40 05 cd 0d 06 4a  05 cd 0d 06 54 04 0d 06  |..@....J....T...|
000011f0  5e 08 c9 20 36 3a 0d 06  68 20 f2 61 63 74 69 6f  |^.. 6:..h .actio|
00001200  6e 28 62 6c 6f 63 6b 25  21 31 32 2c 62 6c 6f 63  |n(block%!12,bloc|
00001210  6b 25 21 31 36 29 0d 06  72 04 0d 06 7c 08 c9 20  |k%!16)..r...|.. |
00001220  37 3a 0d 06 86 0c f2 64  72 61 67 65 6e 64 0d 06  |7:.....dragend..|
00001230  90 04 0d 06 9a 0c c9 20  31 37 2c 31 38 3a 0d 06  |....... 17,18:..|
00001240  a4 12 c8 8e 20 62 6c 6f  63 6b 25 21 31 36 20 ca  |.... block%!16 .|
00001250  0d 06 ae 0f c9 20 30 3a  71 75 69 74 25 3d b9 0d  |..... 0:quit%=..|
00001260  06 b8 11 c9 20 32 3a f2  73 61 76 65 64 6f 75 74  |.... 2:.savedout|
00001270  0d 06 c2 0f c9 20 33 3a  f2 64 72 61 67 69 6e 0d  |..... 3:.dragin.|
00001280  06 cc 05 cb 0d 06 d6 04  0d 06 e0 05 cb 0d 06 ea  |................|
00001290  0b fd 20 71 75 69 74 25  0d 06 f4 05 e1 0d 06 fe  |.. quit%........|
000012a0  05 3a 0d 07 08 0d f4 20  47 65 72 70 68 2d 3e 0d  |.:..... Gerph->.|
000012b0  07 12 0a dd f2 66 61 64  65 0d 07 1c 2a c8 99 20  |.....fade...*.. |
000012c0  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
000012d0  61 62 6c 65 22 2c 2d 31  2c 35 20 b8 20 2c 2c 79  |able",-1,5 . ,,y|
000012e0  65 69 67 0d 07 26 31 c8  99 20 22 4f 53 5f 52 65  |eig..&1.. "OS_Re|
000012f0  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
00001300  2d 31 2c 31 32 20 b8 20  2c 2c 79 77 69 6e 64 6c  |-1,12 . ,,ywindl|
00001310  69 6d 69 74 0d 07 30 1a  79 73 69 7a 65 3d 79 77  |imit..0.ysize=yw|
00001320  69 6e 64 6c 69 6d 69 74  3c 3c 79 65 69 67 0d 07  |indlimit<<yeig..|
00001330  3a 15 6d 69 6e 79 25 3d  6d 69 6e 79 25 20 80 20  |:.miny%=miny% . |
00001340  ac 20 37 0d 07 44 1a e3  20 79 25 3d 6d 69 6e 79  |. 7..D.. y%=miny|
00001350  25 20 b8 20 6d 61 78 79  25 20 88 20 38 0d 07 4e  |% . maxy% . 8..N|
00001360  11 63 6f 6c 25 3d 79 73  69 7a 65 2b 79 25 0d 07  |.col%=ysize+y%..|
00001370  58 19 63 6f 6c 25 3d 63  6f 6c 25 2f 28 79 73 69  |X.col%=col%/(ysi|
00001380  7a 65 2f 32 35 36 29 0d  07 62 2d c8 99 20 22 43  |ze/256)..b-.. "C|
00001390  6f 6c 6f 75 72 54 72 61  6e 73 5f 53 65 74 47 43  |olourTrans_SetGC|
000013a0  4f 4c 22 2c 63 6f 6c 25  3c 3c 32 34 2c 2c 2c 32  |OL",col%<<24,,,2|
000013b0  35 36 2c 30 0d 07 6c 28  c8 93 20 c8 90 20 78 4f  |56,0..l(.. .. xO|
000013c0  25 2b 6d 69 6e 78 25 2c  79 4f 25 2b 79 25 2c 6d  |%+minx%,yO%+y%,m|
000013d0  61 78 78 25 2d 6d 69 6e  78 25 2c 38 0d 07 76 05  |axx%-minx%,8..v.|
000013e0  ed 0d 07 80 05 e1 0d 07  8a 0d f4 20 3c 2d 47 65  |........... <-Ge|
000013f0  72 70 68 0d 07 94 05 3a  0d 07 9e 10 dd f2 72 65  |rph....:......re|
00001400  61 64 73 63 72 69 70 74  0d 07 a8 11 de 20 6c 69  |adscript..... li|
00001410  6e 65 24 28 31 30 32 34  29 0d 07 b2 0e 73 6c 69  |ne$(1024)....sli|
00001420  6e 65 73 25 3d 2d 31 0d  07 bc 1e 4f 25 3d 8e 28  |nes%=-1....O%=.(|
00001430  22 3c 53 65 74 75 70 24  44 69 72 3e 2e 53 63 72  |"<Setup$Dir>.Scr|
00001440  69 70 74 22 29 0d 07 c6  04 0d 07 d0 05 f5 0d 07  |ipt")...........|
00001450  da 0e 73 6c 69 6e 65 73  25 2b 3d 31 0d 07 e4 17  |..slines%+=1....|
00001460  6c 69 6e 65 24 28 73 6c  69 6e 65 73 25 29 3d be  |line$(slines%)=.|
00001470  23 4f 25 0d 07 ee 0a fd  20 c5 23 4f 25 0d 07 f8  |#O%..... .#O%...|
00001480  04 0d 08 02 08 d9 23 4f  25 0d 08 0c 05 e1 0d 08  |......#O%.......|
00001490  16 05 3a 0d 08 20 0f dd  f2 6c 6f 73 65 66 6f 6e  |..:.. ...losefon|
000014a0  74 73 0d 08 2a 0f e3 20  78 3d 30 20 b8 20 32 35  |ts..*.. x=0 . 25|
000014b0  35 0d 08 34 11 c8 95 20  66 6f 6e 74 73 25 3f 78  |5..4... fonts%?x|
000014c0  3e 30 0d 08 3e 18 c8 99  20 22 46 6f 6e 74 5f 4c  |>0..>... "Font_L|
000014d0  6f 73 65 46 6f 6e 74 22  2c 78 0d 08 48 0f 66 6f  |oseFont",x..H.fo|
000014e0  6e 74 73 25 3f 78 2d 3d  31 0d 08 52 05 ce 0d 08  |nts%?x-=1..R....|
000014f0  5c 05 ed 0d 08 66 05 e1  0d 08 70 05 3a 0d 08 7a  |\....f....p.:..z|
00001500  0e dd f2 6e 65 78 74 6c  69 6e 65 0d 08 84 19 e7  |...nextline.....|
00001510  20 73 63 70 6f 73 25 3e  3d 73 6c 69 6e 65 73 25  | scpos%>=slines%|
00001520  20 8c 20 e1 0d 08 8e 0d  73 63 70 6f 73 25 2b 3d  | . .....scpos%+=|
00001530  31 0d 08 98 1d f2 69 6e  74 65 72 70 72 65 74 28  |1.....interpret(|
00001540  6c 69 6e 65 24 28 73 63  70 6f 73 25 29 29 0d 08  |line$(scpos%))..|
00001550  a2 5b e7 20 73 63 70 6f  73 25 3e 3d 73 6c 69 6e  |.[. scpos%>=slin|
00001560  65 73 25 20 8c 20 f2 6e  65 77 74 65 78 74 28 73  |es% . .newtext(s|
00001570  74 61 74 75 73 68 61 6e  64 6c 65 25 2c 30 2c 22  |tatushandle%,0,"|
00001580  46 69 6e 69 73 68 65 64  21 22 29 3a 20 f2 6e 65  |Finished!"): .ne|
00001590  77 74 65 78 74 28 73 74  61 74 75 73 68 61 6e 64  |wtext(statushand|
000015a0  6c 65 25 2c 31 2c 22 22  29 0d 08 ac 04 0d 08 b6  |le%,1,"").......|
000015b0  41 e7 20 77 61 69 74 69  6e 67 25 20 8c 20 f2 6e  |A. waiting% . .n|
000015c0  65 77 74 65 78 74 28 73  74 61 74 75 73 68 61 6e  |ewtext(statushan|
000015d0  64 6c 65 25 2c 30 2c 22  57 61 69 74 69 6e 67 20  |dle%,0,"Waiting |
000015e0  66 6f 72 20 69 6e 70 75  74 2e 2e 2e 22 29 0d 08  |for input...")..|
000015f0  c0 05 e1 0d 08 ca 05 3a  0d 08 d4 16 dd f2 69 6e  |.......:......in|
00001600  74 65 72 70 72 65 74 28  6c 69 6e 65 24 29 0d 08  |terpret(line$)..|
00001610  de 12 e7 20 6c 69 6e 65  24 3d 22 22 20 8c 20 e1  |... line$="" . .|
00001620  0d 08 e8 14 f2 73 65 70  65 72 61 74 65 28 6c 69  |.....seperate(li|
00001630  6e 65 24 29 0d 08 f2 04  0d 08 fc 11 c8 8e 20 63  |ne$).......... c|
00001640  6f 6d 6d 61 6e 64 24 20  ca 0d 09 06 0d c9 20 22  |ommand$ ...... "|
00001650  4e 41 4d 45 22 3a 0d 09  10 35 c8 99 20 22 57 69  |NAME":...5.. "Wi|
00001660  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00001670  62 61 63 6b 68 61 6e 64  6c 65 25 2c 30 2c 2d 31  |backhandle%,0,-1|
00001680  32 38 2c 31 32 38 30 2c  2d 33 32 0d 09 1a 22 f2  |28,1280,-32...".|
00001690  6e 65 77 74 65 78 74 28  62 61 63 6b 68 61 6e 64  |newtext(backhand|
000016a0  6c 65 25 2c 30 2c 70 61  72 61 6d 24 29 0d 09 24  |le%,0,param$)..$|
000016b0  22 f2 6e 65 77 74 65 78  74 28 62 61 63 6b 68 61  |".newtext(backha|
000016c0  6e 64 6c 65 25 2c 31 2c  70 61 72 61 6d 24 29 0d  |ndle%,1,param$).|
000016d0  09 2e 04 0d 09 38 10 c9  20 22 4d 45 53 53 41 47  |.....8.. "MESSAG|
000016e0  45 22 3a 0d 09 42 30 c8  99 20 22 57 69 6d 70 5f  |E":..B0.. "Wimp_|
000016f0  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 77  |CreateWindow",,w|
00001700  5f 6d 73 67 25 20 b8 20  61 63 74 69 6f 6e 77 69  |_msg% . actionwi|
00001710  6e 64 25 0d 09 4c 1c 61  63 74 69 6f 6e 74 79 70  |nd%..L.actiontyp|
00001720  65 25 3d 31 3a 77 61 69  74 69 6e 67 25 3d b9 0d  |e%=1:waiting%=..|
00001730  09 56 1c f2 6f 70 65 6e  77 69 6e 64 6f 77 28 61  |.V..openwindow(a|
00001740  63 74 69 6f 6e 77 69 6e  64 25 29 0d 09 60 22 f2  |ctionwind%)..`".|
00001750  6e 65 77 74 65 78 74 28  61 63 74 69 6f 6e 77 69  |newtext(actionwi|
00001760  6e 64 25 2c 30 2c 70 61  72 61 6d 24 29 0d 09 6a  |nd%,0,param$)..j|
00001770  04 0d 09 74 09 c9 20 22  22 3a 0d 09 7e 04 0d 09  |...t.. "":..~...|
00001780  88 0f c9 20 22 47 45 54  44 49 52 22 3a 0d 09 92  |... "GETDIR":...|
00001790  0c f2 73 61 76 65 6f 75  74 0d 09 9c 04 0d 09 a6  |..saveout.......|
000017a0  0c c9 20 22 53 45 54 22  3a 0d 09 b0 12 c8 8e 20  |.. "SET":...... |
000017b0  63 6c 69 6e 65 24 28 31  29 20 ca 0d 09 ba 23 20  |cline$(1) ....# |
000017c0  c9 20 22 44 45 53 54 22  3a 69 6e 73 74 61 6c 6c  |. "DEST":install|
000017d0  64 69 72 24 3d 63 6c 69  6e 65 24 28 32 29 0d 09  |dir$=cline$(2)..|
000017e0  c4 1d 20 c9 20 22 4c 45  41 46 22 3a 6c 65 61 66  |.. . "LEAF":leaf|
000017f0  24 3d 63 6c 69 6e 65 24  28 32 29 0d 09 ce 06 20  |$=cline$(2).... |
00001800  7f 0d 09 d8 16 20 20 e7  20 bb 28 70 61 72 61 6d  |.....  . .(param|
00001810  24 29 3c 3e 30 20 8c 0d  09 e2 26 20 20 20 76 61  |$)<>0 ....&   va|
00001820  72 25 28 bb 28 63 6c 69  6e 65 24 28 31 29 29 29  |r%(.(cline$(1)))|
00001830  3d a0 28 63 6c 69 6e 65  24 28 32 29 29 0d 09 ec  |=.(cline$(2))...|
00001840  07 20 20 cc 0d 09 f6 19  20 20 20 e7 20 c0 70 61  |.  .....   . .pa|
00001850  72 61 6d 24 2c 31 29 3d  22 2a 22 20 8c 0d 0a 00  |ram$,1)="*" ....|
00001860  26 20 20 20 20 c8 99 20  22 58 4f 53 5f 43 4c 49  |&    .. "XOS_CLI|
00001870  22 2c 22 53 65 74 20 22  2b c1 70 61 72 61 6d 24  |","Set "+.param$|
00001880  2c 32 29 0d 0a 0a 08 20  20 20 cd 0d 0a 14 07 20  |,2)....   ..... |
00001890  20 cd 0d 0a 1e 05 cb 0d  0a 28 04 0d 0a 32 13 c9  | ........(...2..|
000018a0  20 22 45 4e 44 22 3a 71  75 69 74 25 3d b9 0d 0a  | "END":quit%=...|
000018b0  3c 04 0d 0a 46 0d c9 20  22 47 4f 54 4f 22 3a 0d  |<...F.. "GOTO":.|
000018c0  0a 50 11 f2 67 6f 74 6f  28 70 61 72 61 6d 24 29  |.P..goto(param$)|
000018d0  0d 0a 5a 04 0d 0a 64 0e  c9 20 22 47 4f 53 55 42  |..Z...d.. "GOSUB|
000018e0  22 3a 0d 0a 6e 0d 73 74  70 74 72 25 2b 3d 31 0d  |":..n.stptr%+=1.|
000018f0  0a 78 19 73 74 61 63 6b  25 28 73 74 70 74 72 25  |.x.stack%(stptr%|
00001900  29 3d 73 63 70 6f 73 25  0d 0a 82 11 f2 67 6f 74  |)=scpos%.....got|
00001910  6f 28 70 61 72 61 6d 24  29 0d 0a 8c 04 0d 0a 96  |o(param$).......|
00001920  0f c9 20 22 52 45 54 55  52 4e 22 3a 0d 0a a0 49  |.. "RETURN":...I|
00001930  e7 20 73 74 70 74 72 25  3c 3d 30 20 8c 20 85 20  |. stptr%<=0 . . |
00001940  30 2c 22 53 74 61 63 6b  20 75 6e 64 65 72 66 6c  |0,"Stack underfl|
00001950  6f 77 20 61 74 20 6c 69  6e 65 20 22 2b c3 28 73  |ow at line "+.(s|
00001960  63 70 6f 73 25 2b 31 29  2b 22 20 6f 66 20 73 63  |cpos%+1)+" of sc|
00001970  72 69 70 74 22 0d 0a aa  19 73 63 70 6f 73 25 3d  |ript"....scpos%=|
00001980  73 74 61 63 6b 25 28 73  74 70 74 72 25 29 0d 0a  |stack%(stptr%)..|
00001990  b4 0d 73 74 70 74 72 25  2d 3d 31 0d 0a be 04 0d  |..stptr%-=1.....|
000019a0  0a c8 0f c9 20 22 43 48  4f 49 43 45 22 3a 0d 0a  |.... "CHOICE":..|
000019b0  d2 0d f2 6f 70 65 6e 63  62 6f 78 0d 0a dc 04 0d  |...opencbox.....|
000019c0  0a e6 11 c9 20 22 53 57  41 50 44 49 53 43 22 3a  |.... "SWAPDISC":|
000019d0  0d 0a f0 0d f2 73 77 61  70 64 69 73 63 0d 0a fa  |.....swapdisc...|
000019e0  04 0d 0b 04 10 c9 20 22  4f 50 54 49 4f 4e 53 22  |...... "OPTIONS"|
000019f0  3a 0d 0b 0e 0e f2 6f 70  74 72 61 64 28 31 29 0d  |:.....optrad(1).|
00001a00  0b 18 04 0d 0b 22 0f c9  20 22 52 41 44 49 4f 53  |.....".. "RADIOS|
00001a10  22 3a 0d 0b 2c 0e f2 6f  70 74 72 61 64 28 32 29  |":..,..optrad(2)|
00001a20  0d 0b 36 04 0d 0b 40 0d  c9 20 22 46 41 53 54 22  |..6...@.. "FAST"|
00001a30  3a 0d 0b 4a 27 e7 20 63  6c 69 6e 65 24 28 31 29  |:..J'. cline$(1)|
00001a40  3d 22 4f 46 46 22 20 66  61 73 74 25 3d a3 20 8b  |="OFF" fast%=. .|
00001a50  20 66 61 73 74 25 3d b9  0d 0b 54 04 0d 0b 5e 0e  | fast%=...T...^.|
00001a60  c9 20 22 43 48 44 49 52  22 3a 0d 0b 68 18 f2 63  |. "CHDIR":..h..c|
00001a70  68 65 63 6b 64 69 72 28  63 6c 69 6e 65 24 28 31  |heckdir(cline$(1|
00001a80  29 29 0d 0b 72 04 0d 0b  7c 10 c9 20 22 43 4f 4d  |))..r...|.. "COM|
00001a90  50 41 52 45 22 3a 0d 0b  86 21 f2 63 6f 6d 70 61  |PARE":...!.compa|
00001aa0  72 65 28 63 6c 69 6e 65  24 28 31 29 2c 63 6c 69  |re(cline$(1),cli|
00001ab0  6e 65 24 28 32 29 29 0d  0b 90 04 0d 0b 9a 0d c9  |ne$(2)).........|
00001ac0  20 22 56 49 45 57 22 3a  0d 0b a4 0f f2 6f 70 65  | "VIEW":.....ope|
00001ad0  6e 76 69 65 77 65 72 0d  0b ae 04 0d 0b b8 0e c9  |nviewer.........|
00001ae0  20 22 4e 45 57 45 52 22  3a 0d 0b c2 27 6e 65 77  | "NEWER":...'new|
00001af0  65 72 25 3d b9 3a e7 20  63 6c 69 6e 65 24 28 31  |er%=.:. cline$(1|
00001b00  29 3d 22 4f 46 46 22 20  6e 65 77 65 72 25 3d a3  |)="OFF" newer%=.|
00001b10  0d 0b cc 04 0d 0b d6 10  c9 20 22 49 4e 53 54 41  |......... "INSTA|
00001b20  4c 4c 22 3a 0d 0b e0 39  73 72 63 24 3d 22 3c 53  |LL":...9src$="<S|
00001b30  65 74 75 70 24 44 69 72  3e 2e 46 69 6c 65 73 2e  |etup$Dir>.Files.|
00001b40  50 72 6f 67 72 61 6d 2e  22 2b 6c 65 61 66 24 2b  |Program."+leaf$+|
00001b50  22 2e 22 2b 63 6c 69 6e  65 24 28 31 29 0d 0b ea  |"."+cline$(1)...|
00001b60  35 e7 20 63 6c 69 6e 65  24 28 32 29 3c 3e 22 22  |5. cline$(2)<>""|
00001b70  20 8c 20 64 73 74 24 3d  63 6c 69 6e 65 24 28 32  | . dst$=cline$(2|
00001b80  29 20 8b 20 64 73 74 24  3d 63 6c 69 6e 65 24 28  |) . dst$=cline$(|
00001b90  31 29 0d 0b f4 1d 64 73  74 24 3d 69 6e 73 74 61  |1)....dst$=insta|
00001ba0  6c 6c 64 69 72 24 2b 22  2e 22 2b 64 73 74 24 0d  |lldir$+"."+dst$.|
00001bb0  0b fe 1b f2 63 6f 70 79  28 73 72 63 24 2c 64 73  |....copy(src$,ds|
00001bc0  74 24 2c 6e 65 77 65 72  25 29 0d 0c 08 04 0d 0c  |t$,newer%)......|
00001bd0  12 0d c9 20 22 43 4f 50  59 22 3a 0d 0c 1c 12 73  |... "COPY":....s|
00001be0  72 63 24 3d 63 6c 69 6e  65 24 28 31 29 0d 0c 26  |rc$=cline$(1)..&|
00001bf0  12 64 73 74 24 3d 63 6c  69 6e 65 24 28 32 29 0d  |.dst$=cline$(2).|
00001c00  0c 30 4c e7 20 73 72 63  24 3d 22 22 20 84 20 64  |.0L. src$="" . d|
00001c10  73 74 24 3d 22 22 20 8c  20 85 20 30 2c 22 49 6e  |st$="" . . 0,"In|
00001c20  76 61 6c 69 64 20 73 79  6e 74 61 78 20 61 74 20  |valid syntax at |
00001c30  6c 69 6e 65 20 22 2b c3  73 63 70 6f 73 25 2b 22  |line "+.scpos%+"|
00001c40  20 6f 66 20 73 63 72 69  70 74 22 0d 0c 3a 1b f2  | of script"..:..|
00001c50  63 6f 70 79 28 73 72 63  24 2c 64 73 74 24 2c 6e  |copy(src$,dst$,n|
00001c60  65 77 65 72 25 29 0d 0c  44 04 0d 0c 4e 0f c9 20  |ewer%)..D...N.. |
00001c70  22 44 45 4c 45 54 45 22  3a 0d 0c 58 16 f2 64 65  |"DELETE":..X..de|
00001c80  6c 65 74 65 28 63 6c 69  6e 65 24 28 31 29 29 0d  |lete(cline$(1)).|
00001c90  0c 62 04 0d 0c 6c 0f c9  20 22 55 50 44 41 54 45  |.b...l.. "UPDATE|
00001ca0  22 3a 0d 0c 76 0a f2 75  64 61 74 65 0d 0c 80 04  |":..v..udate....|
00001cb0  0d 0c 8a 0b c9 20 22 49  46 22 3a 0d 0c 94 07 f2  |..... "IF":.....|
00001cc0  69 66 0d 0c 9e 04 0d 0c  a8 06 7f 3a 0d 0c b2 42  |if.........:...B|
00001cd0  85 20 30 2c 22 43 6f 6d  6d 61 6e 64 20 6e 6f 74  |. 0,"Command not|
00001ce0  20 72 65 63 6f 67 6e 69  73 65 64 20 61 74 20 6c  | recognised at l|
00001cf0  69 6e 65 20 22 2b c3 28  73 63 70 6f 73 25 2b 31  |ine "+.(scpos%+1|
00001d00  29 2b 22 20 6f 66 20 73  63 72 69 70 74 22 0d 0c  |)+" of script"..|
00001d10  bc 05 cb 0d 0c c6 04 0d  0c d0 05 e1 0d 0c da 05  |................|
00001d20  3a 0d 0c e4 15 dd f2 73  65 70 65 72 61 74 65 28  |:......seperate(|
00001d30  6c 69 6e 65 24 29 0d 0c  ee 08 ea 20 6c 24 0d 0c  |line$)..... l$..|
00001d40  f8 0f 63 6c 69 6e 65 24  28 29 3d 22 22 0d 0d 02  |..cline$()=""...|
00001d50  2d 77 6f 72 64 73 25 3d  2d 31 3a 6c 69 6e 65 24  |-words%=-1:line$|
00001d60  3d a4 73 74 72 69 70 28  6c 69 6e 65 24 29 3a 63  |=.strip(line$):c|
00001d70  6f 6d 6d 61 6e 64 24 3d  22 22 0d 0d 0c 17 e7 20  |ommand$=""..... |
00001d80  c0 6c 69 6e 65 24 2c 31  29 3d 22 7c 22 20 8c 20  |.line$,1)="|" . |
00001d90  e1 0d 0d 16 17 e7 20 c0  6c 69 6e 65 24 2c 31 29  |...... .line$,1)|
00001da0  3d 22 3a 22 20 8c 20 e1  0d 0d 20 12 e7 20 6c 69  |=":" . ... .. li|
00001db0  6e 65 24 3d 22 22 20 8c  20 e1 0d 0d 2a 04 0d 0d  |ne$="" . ...*...|
00001dc0  34 0c 6c 24 3d 6c 69 6e  65 24 0d 0d 3e 0f c8 95  |4.l$=line$..>...|
00001dd0  20 a7 6c 24 2c 22 20 22  29 0d 0d 48 0d 77 6f 72  | .l$," ")..H.wor|
00001de0  64 73 25 2b 3d 31 0d 0d  52 22 63 6c 69 6e 65 24  |ds%+=1..R"cline$|
00001df0  28 77 6f 72 64 73 25 29  3d c0 6c 24 2c a7 6c 24  |(words%)=.l$,.l$|
00001e00  2c 22 20 22 29 2d 31 29  0d 0d 5c 16 6c 24 3d c1  |," ")-1)..\.l$=.|
00001e10  6c 24 2c a7 6c 24 2c 22  20 22 29 2b 31 29 0d 0d  |l$,.l$," ")+1)..|
00001e20  66 11 6c 24 3d a4 73 74  72 69 70 28 6c 24 29 0d  |f.l$=.strip(l$).|
00001e30  0d 70 05 ce 0d 0d 7a 04  0d 0d 84 1f 77 6f 72 64  |.p....z.....word|
00001e40  73 25 2b 3d 31 3a 63 6c  69 6e 65 24 28 77 6f 72  |s%+=1:cline$(wor|
00001e50  64 73 25 29 3d 6c 24 0d  0d 8e 16 63 6f 6d 6d 61  |ds%)=l$....comma|
00001e60  6e 64 24 3d 63 6c 69 6e  65 24 28 30 29 0d 0d 98  |nd$=cline$(0)...|
00001e70  20 70 61 72 61 6d 24 3d  c1 6c 69 6e 65 24 2c a7  | param$=.line$,.|
00001e80  6c 69 6e 65 24 2c 22 20  22 29 2b 31 29 0d 0d a2  |line$," ")+1)...|
00001e90  19 70 61 72 61 6d 24 3d  a4 73 74 72 69 70 28 70  |.param$=.strip(p|
00001ea0  61 72 61 6d 24 29 0d 0d  ac 04 0d 0d b6 05 e1 0d  |aram$)..........|
00001eb0  0d c0 05 3a 0d 0d ca 12  dd a4 73 74 72 69 70 28  |...:......strip(|
00001ec0  6c 69 6e 65 24 29 0d 0d  d4 11 ea 20 6c 24 3a 6c  |line$)..... l$:l|
00001ed0  24 3d 6c 69 6e 65 24 0d  0d de 1d c8 95 20 c0 6c  |$=line$...... .l|
00001ee0  24 2c 31 29 3d 22 20 22  3a 6c 24 3d c1 6c 24 2c  |$,1)=" ":l$=.l$,|
00001ef0  32 29 3a ce 0d 0d e8 23  c8 95 20 c2 6c 24 2c 31  |2):....#.. .l$,1|
00001f00  29 3d 22 20 22 3a 6c 24  3d c0 6c 24 2c a9 28 6c  |)=" ":l$=.l$,.(l|
00001f10  24 29 2d 31 29 3a ce 0d  0d f2 07 3d 6c 24 0d 0d  |$)-1):.....=l$..|
00001f20  fc 05 3a 0d 0e 06 26 dd  f2 6e 65 77 74 65 78 74  |..:...&..newtext|
00001f30  28 77 68 61 6e 64 6c 65  25 2c 69 68 61 6e 64 6c  |(whandle%,ihandl|
00001f40  65 25 2c 74 65 78 74 24  29 0d 0e 10 0b ea 20 61  |e%,text$)..... a|
00001f50  64 64 72 25 0d 0e 1a 27  61 64 64 72 25 3d a4 67  |ddr%...'addr%=.g|
00001f60  65 74 69 6e 64 70 74 72  28 77 68 61 6e 64 6c 65  |etindptr(whandle|
00001f70  25 2c 69 68 61 6e 64 6c  65 25 29 0d 0e 24 10 24  |%,ihandle%)..$.$|
00001f80  61 64 64 72 25 3d 74 65  78 74 24 0d 0e 2e 28 f2  |addr%=text$...(.|
00001f90  73 65 74 69 63 6f 6e 73  74 61 74 65 28 77 68 61  |seticonstate(wha|
00001fa0  6e 64 6c 65 25 2c 69 68  61 6e 64 6c 65 25 2c 30  |ndle%,ihandle%,0|
00001fb0  2c 30 29 0d 0e 38 05 e1  0d 0e 42 05 3a 0d 0e 4c  |,0)..8....B.:..L|
00001fc0  22 dd a4 67 65 74 69 6e  64 70 74 72 28 77 68 61  |"..getindptr(wha|
00001fd0  6e 64 6c 65 25 2c 69 68  61 6e 64 6c 65 25 29 0d  |ndle%,ihandle%).|
00001fe0  0e 56 15 21 74 62 6c 6f  63 6b 25 3d 77 68 61 6e  |.V.!tblock%=whan|
00001ff0  64 6c 65 25 0d 0e 60 16  74 62 6c 6f 63 6b 25 21  |dle%..`.tblock%!|
00002000  34 3d 69 68 61 6e 64 6c  65 25 0d 0e 6a 23 c8 99  |4=ihandle%..j#..|
00002010  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00002020  61 74 65 22 2c 2c 74 62  6c 6f 63 6b 25 0d 0e 74  |ate",,tblock%..t|
00002030  27 e7 20 28 74 62 6c 6f  63 6b 25 21 32 34 20 80  |'. (tblock%!24 .|
00002040  20 31 3c 3c 38 29 20 8c  20 3d 74 62 6c 6f 63 6b  | 1<<8) . =tblock|
00002050  25 21 32 38 0d 0e 7e 07  3d 2d 31 0d 0e 88 05 3a  |%!28..~.=-1....:|
00002060  0d 0e 92 31 dd f2 73 65  74 69 63 6f 6e 73 74 61  |...1..seticonsta|
00002070  74 65 28 77 68 61 6e 64  6c 65 25 2c 69 68 61 6e  |te(whandle%,ihan|
00002080  64 6c 65 25 2c 65 6f 72  25 2c 63 6c 65 61 72 25  |dle%,eor%,clear%|
00002090  29 0d 0e 9c 15 21 74 62  6c 6f 63 6b 25 3d 77 68  |)....!tblock%=wh|
000020a0  61 6e 64 6c 65 25 0d 0e  a6 16 74 62 6c 6f 63 6b  |andle%....tblock|
000020b0  25 21 34 3d 69 68 61 6e  64 6c 65 25 0d 0e b0 12  |%!4=ihandle%....|
000020c0  74 62 6c 6f 63 6b 25 21  38 3d 65 6f 72 25 0d 0e  |tblock%!8=eor%..|
000020d0  ba 15 74 62 6c 6f 63 6b  25 21 31 32 3d 63 6c 65  |..tblock%!12=cle|
000020e0  61 72 25 0d 0e c4 23 c8  99 20 22 57 69 6d 70 5f  |ar%...#.. "Wimp_|
000020f0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 74  |SetIconState",,t|
00002100  62 6c 6f 63 6b 25 0d 0e  ce 05 e1 0d 0e d8 05 3a  |block%.........:|
00002110  0d 0e e2 13 dd a4 67 65  74 73 74 72 28 61 64 64  |......getstr(add|
00002120  72 25 29 0d 0e ec 0b ea  20 73 24 2c 73 25 0d 0e  |r%)..... s$,s%..|
00002130  f6 09 73 24 3d 22 22 0d  0f 00 10 c8 95 20 3f 61  |..s$=""...... ?a|
00002140  64 64 72 25 3c 3e 30 0d  0f 0a 0d 73 25 3d 3f 61  |ddr%<>0....s%=?a|
00002150  64 64 72 25 0d 0f 14 1d  e7 20 73 25 3e 33 31 20  |ddr%..... s%>31 |
00002160  73 24 2b 3d bd 73 25 20  8b 20 73 24 2b 3d 22 2e  |s$+=.s% . s$+=".|
00002170  22 0d 0f 1e 0c 61 64 64  72 25 2b 3d 31 0d 0f 28  |"....addr%+=1..(|
00002180  05 ce 0d 0f 32 07 3d 73  24 0d 0f 3c 05 3a 0d 0f  |....2.=s$..<.:..|
00002190  46 0a dd f2 6e 75 6c 6c  0d 0f 50 12 e7 20 ac 20  |F...null..P.. . |
000021a0  77 61 69 74 69 6e 67 25  20 8c 0d 0f 5a 15 c8 99  |waiting% ...Z...|
000021b0  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 6e 22 0d  | "Hourglass_On".|
000021c0  0f 64 04 0d 0f 6e 0d e7  20 66 61 73 74 25 20 8c  |.d...n.. fast% .|
000021d0  0d 0f 78 19 c8 99 20 22  48 6f 75 72 67 6c 61 73  |..x... "Hourglas|
000021e0  73 5f 4c 45 44 73 22 2c  32 0d 0f 82 07 d1 3d 30  |s_LEDs",2.....=0|
000021f0  0d 0f 8c 05 f5 0d 0f 96  0d f2 6e 65 78 74 6c 69  |..........nextli|
00002200  6e 65 0d 0f a0 1e fd 20  77 61 69 74 69 6e 67 25  |ne..... waiting%|
00002210  20 84 20 71 75 69 74 25  20 84 20 91 3e 31 30 30  | . quit% . .>100|
00002220  0d 0f aa 05 cc 0d 0f b4  04 0d 0f be 0d f2 6e 65  |..............ne|
00002230  78 74 6c 69 6e 65 0d 0f  c8 04 0d 0f d2 05 cd 0d  |xtline..........|
00002240  0f dc 04 0d 0f e6 16 c8  99 20 22 48 6f 75 72 67  |......... "Hourg|
00002250  6c 61 73 73 5f 4f 66 66  22 0d 0f f0 05 cd 0d 0f  |lass_Off".......|
00002260  fa 05 e1 0d 10 04 05 3a  0d 10 0e 1f dd f2 61 63  |.......:......ac|
00002270  74 69 6f 6e 28 77 68 61  6e 64 6c 65 25 2c 69 68  |tion(whandle%,ih|
00002280  61 6e 64 6c 65 25 29 0d  10 18 1c e7 20 77 68 61  |andle%)..... wha|
00002290  6e 64 6c 65 25 3d 61 63  74 69 6f 6e 77 69 6e 64  |ndle%=actionwind|
000022a0  25 20 8c 0d 10 22 04 0d  10 2c 15 20 c8 8e 20 61  |% ..."...,. .. a|
000022b0  63 74 69 6f 6e 74 79 70  65 25 20 ca 0d 10 36 09  |ctiontype% ...6.|
000022c0  20 c9 20 31 3a 0d 10 40  04 0d 10 4a 13 20 e7 20  | . 1:..@...J. . |
000022d0  69 68 61 6e 64 6c 65 25  3d 31 20 8c 0d 10 54 18  |ihandle%=1 ...T.|
000022e0  20 21 62 6c 6f 63 6b 25  3d 61 63 74 69 6f 6e 77  | !block%=actionw|
000022f0  69 6e 64 25 0d 10 5e 23  20 c8 99 20 22 57 69 6d  |ind%..^# .. "Wim|
00002300  70 5f 44 65 6c 65 74 65  57 69 6e 64 6f 77 22 2c  |p_DeleteWindow",|
00002310  2c 62 6c 6f 63 6b 25 0d  10 68 12 20 61 63 74 69  |,block%..h. acti|
00002320  6f 6e 77 69 6e 64 25 3d  30 0d 10 72 12 20 61 63  |onwind%=0..r. ac|
00002330  74 69 6f 6e 74 79 70 65  25 3d 30 0d 10 7c 0f 20  |tiontype%=0..|. |
00002340  77 61 69 74 69 6e 67 25  3d a3 0d 10 86 06 20 cd  |waiting%=..... .|
00002350  0d 10 90 04 0d 10 9a 09  20 c9 20 37 3a 0d 10 a4  |........ . 7:...|
00002360  04 0d 10 ae 13 20 e7 20  69 68 61 6e 64 6c 65 25  |..... . ihandle%|
00002370  3d 31 20 8c 0d 10 b8 04  0d 10 c2 2b 20 c8 99 20  |=1 ........+ .. |
00002380  22 58 4f 53 5f 46 69 6c  65 22 2c 31 37 2c 73 77  |"XOS_File",17,sw|
00002390  61 70 66 69 6c 65 24 20  b8 20 74 79 70 65 25 3b  |apfile$ . type%;|
000023a0  73 73 25 0d 10 cc 18 20  e7 20 28 73 73 25 20 80  |ss%.... . (ss% .|
000023b0  20 31 29 20 74 79 70 65  25 3d 30 0d 10 d6 04 0d  | 1) type%=0.....|
000023c0  10 e0 11 20 e7 20 74 79  70 65 25 3c 3e 30 20 8c  |... . type%<>0 .|
000023d0  0d 10 ea 18 20 21 62 6c  6f 63 6b 25 3d 61 63 74  |.... !block%=act|
000023e0  69 6f 6e 77 69 6e 64 25  0d 10 f4 23 20 c8 99 20  |ionwind%...# .. |
000023f0  22 57 69 6d 70 5f 44 65  6c 65 74 65 57 69 6e 64  |"Wimp_DeleteWind|
00002400  6f 77 22 2c 2c 62 6c 6f  63 6b 25 0d 10 fe 12 20  |ow",,block%.... |
00002410  61 63 74 69 6f 6e 77 69  6e 64 25 3d 30 0d 11 08  |actionwind%=0...|
00002420  12 20 61 63 74 69 6f 6e  74 79 70 65 25 3d 30 0d  |. actiontype%=0.|
00002430  11 12 0f 20 77 61 69 74  69 6e 67 25 3d a3 0d 11  |... waiting%=...|
00002440  1c 1c 20 f2 6f 70 65 6e  6c 61 72 67 65 28 62 61  |.. .openlarge(ba|
00002450  63 6b 68 61 6e 64 6c 65  25 29 0d 11 26 06 20 cc  |ckhandle%)..&. .|
00002460  0d 11 30 08 20 ef 20 37  0d 11 3a 06 20 cd 0d 11  |..0. . 7..:. ...|
00002470  44 04 0d 11 4e 06 20 cd  0d 11 58 04 0d 11 62 09  |D...N. ...X...b.|
00002480  20 c9 20 32 3a 0d 11 6c  04 0d 11 76 13 20 e7 20  | . 2:..l...v. . |
00002490  69 68 61 6e 64 6c 65 25  3e 30 20 8c 0d 11 80 1b  |ihandle%>0 .....|
000024a0  20 76 61 72 25 28 61 63  74 76 61 72 25 29 3d 69  | var%(actvar%)=i|
000024b0  68 61 6e 64 6c 65 25 0d  11 8a 18 20 21 62 6c 6f  |handle%.... !blo|
000024c0  63 6b 25 3d 61 63 74 69  6f 6e 77 69 6e 64 25 0d  |ck%=actionwind%.|
000024d0  11 94 23 20 c8 99 20 22  57 69 6d 70 5f 44 65 6c  |..# .. "Wimp_Del|
000024e0  65 74 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |eteWindow",,bloc|
000024f0  6b 25 0d 11 9e 12 20 61  63 74 69 6f 6e 77 69 6e  |k%.... actionwin|
00002500  64 25 3d 30 0d 11 a8 12  20 61 63 74 69 6f 6e 74  |d%=0.... actiont|
00002510  79 70 65 25 3d 30 0d 11  b2 0f 20 77 61 69 74 69  |ype%=0.... waiti|
00002520  6e 67 25 3d a3 0d 11 bc  06 20 cd 0d 11 c6 04 0d  |ng%=..... ......|
00002530  11 d0 0b 20 c9 20 33 2c  34 3a 0d 11 da 14 20 e7  |... . 3,4:.... .|
00002540  20 69 68 61 6e 64 6c 65  25 3d 31 30 20 8c 0d 11  | ihandle%=10 ...|
00002550  e4 0e 20 73 65 6c 65 63  74 25 3d 30 0d 11 ee 04  |.. select%=0....|
00002560  0d 11 f8 0f 20 e3 20 78  25 3d 32 20 b8 20 39 0d  |.... . x%=2 . 9.|
00002570  12 02 40 20 e7 20 a4 67  65 74 69 63 6f 6e 73 65  |..@ . .geticonse|
00002580  6c 28 61 63 74 69 6f 6e  77 69 6e 64 25 2c 78 25  |l(actionwind%,x%|
00002590  29 20 8c 20 73 65 6c 65  63 74 25 3d 73 65 6c 65  |) . select%=sele|
000025a0  63 74 25 20 84 20 31 3c  3c 28 78 25 2d 31 29 0d  |ct% . 1<<(x%-1).|
000025b0  12 0c 06 20 ed 0d 12 16  04 0d 12 20 23 20 e7 20  |... ....... # . |
000025c0  73 65 6c 65 63 74 25 3c  3e 30 20 84 20 61 63 74  |select%<>0 . act|
000025d0  69 6f 6e 74 79 70 65 25  3d 33 20 8c 0d 12 2a 1a  |iontype%=3 ...*.|
000025e0  20 76 61 72 25 28 61 63  74 76 61 72 25 29 3d 73  | var%(actvar%)=s|
000025f0  65 6c 65 63 74 25 0d 12  34 04 0d 12 3e 18 20 21  |elect%..4...>. !|
00002600  62 6c 6f 63 6b 25 3d 61  63 74 69 6f 6e 77 69 6e  |block%=actionwin|
00002610  64 25 0d 12 48 23 20 c8  99 20 22 57 69 6d 70 5f  |d%..H# .. "Wimp_|
00002620  44 65 6c 65 74 65 57 69  6e 64 6f 77 22 2c 2c 62  |DeleteWindow",,b|
00002630  6c 6f 63 6b 25 0d 12 52  12 20 61 63 74 69 6f 6e  |lock%..R. action|
00002640  77 69 6e 64 25 3d 30 0d  12 5c 12 20 61 63 74 69  |wind%=0..\. acti|
00002650  6f 6e 74 79 70 65 25 3d  30 0d 12 66 0f 20 77 61  |ontype%=0..f. wa|
00002660  69 74 69 6e 67 25 3d a3  0d 12 70 06 20 cc 0d 12  |iting%=...p. ...|
00002670  7a 07 20 ef 37 0d 12 84  06 20 cd 0d 12 8e 04 0d  |z. .7.... ......|
00002680  12 98 06 20 cd 0d 12 a2  04 0d 12 ac 09 20 c9 20  |... ......... . |
00002690  35 3a 0d 12 b6 13 20 e7  20 69 68 61 6e 64 6c 65  |5:.... . ihandle|
000026a0  25 3d 31 20 8c 0d 12 c0  15 20 74 65 6d 70 25 3d  |%=1 ..... temp%=|
000026b0  74 62 6c 6f 63 6b 25 2b  36 34 0d 12 ca 22 20 21  |tblock%+64..." !|
000026c0  74 62 6c 6f 63 6b 25 3d  77 68 61 6e 64 6c 65 25  |tblock%=whandle%|
000026d0  3a 74 62 6c 6f 63 6b 25  21 34 3d 31 0d 12 d4 24  |:tblock%!4=1...$|
000026e0  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  | .. "Wimp_GetIco|
000026f0  6e 53 74 61 74 65 22 2c  2c 74 62 6c 6f 63 6b 25  |nState",,tblock%|
00002700  0d 12 de 04 0d 12 e8 14  20 21 74 65 6d 70 25 3d  |........ !temp%=|
00002710  77 68 61 6e 64 6c 65 25  0d 12 f2 24 20 c8 99 20  |whandle%...$ .. |
00002720  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00002730  74 61 74 65 22 2c 2c 74  65 6d 70 25 0d 12 fc 17  |tate",,temp%....|
00002740  20 74 62 6c 6f 63 6b 25  21 38 2b 3d 74 65 6d 70  | tblock%!8+=temp|
00002750  25 21 34 0d 13 06 1c 20  74 62 6c 6f 63 6b 25 21  |%!4.... tblock%!|
00002760  31 32 2b 3d 74 65 6d 70  25 21 31 36 2b 34 34 0d  |12+=temp%!16+44.|
00002770  13 10 18 20 74 62 6c 6f  63 6b 25 21 31 36 2b 3d  |... tblock%!16+=|
00002780  74 65 6d 70 25 21 34 0d  13 1a 19 20 74 62 6c 6f  |temp%!4.... tblo|
00002790  63 6b 25 21 32 30 2b 3d  74 65 6d 70 25 21 31 36  |ck%!20+=temp%!16|
000027a0  0d 13 24 04 0d 13 2e 3d  20 c8 99 20 22 44 72 61  |..$....= .. "Dra|
000027b0  67 41 53 70 72 69 74 65  5f 53 74 61 72 74 22 2c  |gASprite_Start",|
000027c0  25 31 30 30 30 30 31 30  31 2c 31 2c 22 44 69 72  |%10000101,1,"Dir|
000027d0  65 63 74 6f 72 79 22 2c  74 62 6c 6f 63 6b 25 2b  |ectory",tblock%+|
000027e0  38 0d 13 38 2a 20 f2 73  65 74 69 63 6f 6e 73 74  |8..8* .seticonst|
000027f0  61 74 65 28 77 68 61 6e  64 6c 65 25 2c 31 2c 31  |ate(whandle%,1,1|
00002800  3c 3c 32 32 2c 31 3c 3c  32 32 29 0d 13 42 1c 20  |<<22,1<<22)..B. |
00002810  f4 20 50 52 4f 43 73 68  61 64 65 28 77 68 61 6e  |. PROCshade(whan|
00002820  64 6c 65 25 2c 31 29 0d  13 4c 06 20 cd 0d 13 56  |dle%,1)..L. ...V|
00002830  05 cb 0d 13 60 04 0d 13  6a 05 cd 0d 13 74 1c e7  |....`...j....t..|
00002840  20 77 68 61 6e 64 6c 65  25 3d 62 61 63 6b 68 61  | whandle%=backha|
00002850  6e 64 6c 65 25 20 8c 0d  13 7e 12 20 c8 8e 20 69  |ndle% ...~. .. i|
00002860  68 61 6e 64 6c 65 25 20  ca 0d 13 88 11 20 20 c9  |handle% .....  .|
00002870  20 32 3a f4 20 41 62 6f  72 74 0d 13 92 0e 20 20  | 2:. Abort....  |
00002880  20 71 75 69 74 25 3d b9  0d 13 9c 06 20 cb 0d 13  | quit%=..... ...|
00002890  a6 05 cd 0d 13 b0 04 0d  13 ba 39 e7 20 ac 20 77  |..........9. . w|
000028a0  61 69 74 69 6e 67 25 20  8c 20 f2 6e 65 77 74 65  |aiting% . .newte|
000028b0  78 74 28 73 74 61 74 75  73 68 61 6e 64 6c 65 25  |xt(statushandle%|
000028c0  2c 30 2c 22 57 6f 72 6b  69 6e 67 2e 2e 2e 22 29  |,0,"Working...")|
000028d0  0d 13 c4 05 e1 0d 13 ce  05 3a 0d 13 d8 12 dd f2  |.........:......|
000028e0  67 6f 74 6f 28 6c 61 62  65 6c 24 29 0d 13 e2 0b  |goto(label$)....|
000028f0  ea 20 66 25 2c 78 25 0d  13 ec 15 6c 61 62 65 6c  |. f%,x%....label|
00002900  24 3d 22 3a 22 2b 6c 61  62 65 6c 24 0d 13 f6 04  |$=":"+label$....|
00002910  0d 14 00 09 66 25 3d 2d  31 0d 14 0a 04 0d 14 14  |....f%=-1.......|
00002920  14 e3 20 78 25 3d 30 20  b8 20 73 6c 69 6e 65 73  |.. x%=0 . slines|
00002930  25 0d 14 1e 26 e7 20 a4  73 74 72 69 70 28 6c 69  |%...&. .strip(li|
00002940  6e 65 24 28 78 25 29 29  3d 6c 61 62 65 6c 24 20  |ne$(x%))=label$ |
00002950  8c 20 66 25 3d 78 25 0d  14 28 05 ed 0d 14 32 04  |. f%=x%..(....2.|
00002960  0d 14 3c 30 e7 20 66 25  3c 30 20 8c 20 85 20 30  |..<0. f%<0 . . 0|
00002970  2c 22 4c 61 62 65 6c 20  27 22 2b 6c 61 62 65 6c  |,"Label '"+label|
00002980  24 2b 22 27 20 6e 6f 74  20 66 6f 75 6e 64 21 22  |$+"' not found!"|
00002990  0d 14 46 0d 73 63 70 6f  73 25 3d 66 25 0d 14 50  |..F.scpos%=f%..P|
000029a0  05 e1 0d 14 5a 05 3a 0d  14 64 0e dd f2 6f 70 65  |....Z.:..d...ope|
000029b0  6e 63 62 6f 78 0d 14 6e  0b ea 20 78 25 2c 77 24  |ncbox..n.. x%,w$|
000029c0  0d 14 78 04 0d 14 82 19  63 68 6f 69 63 65 73 25  |..x.....choices%|
000029d0  3d bb 28 63 6c 69 6e 65  24 28 31 29 29 0d 14 8c  |=.(cline$(1))...|
000029e0  58 e7 20 63 68 6f 69 63  65 73 25 3c 31 20 84 20  |X. choices%<1 . |
000029f0  63 68 6f 69 63 65 73 25  3e 34 20 8c 20 85 20 30  |choices%>4 . . 0|
00002a00  2c 22 54 6f 6f 20 6d 61  6e 79 20 63 68 6f 69 63  |,"Too many choic|
00002a10  65 73 20 61 74 20 6c 69  6e 65 20 22 2b c3 28 73  |es at line "+.(s|
00002a20  63 70 6f 73 25 2b 31 29  2b 22 20 6f 66 20 73 63  |cpos%+1)+" of sc|
00002a30  72 69 70 74 22 0d 14 96  04 0d 14 a0 31 c8 99 20  |ript".......1.. |
00002a40  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00002a50  6f 77 22 2c 2c 77 5f 71  75 65 73 25 20 b8 20 61  |ow",,w_ques% . a|
00002a60  63 74 69 6f 6e 77 69 6e  64 25 0d 14 aa 1c 61 63  |ctionwind%....ac|
00002a70  74 69 6f 6e 74 79 70 65  25 3d 32 3a 77 61 69 74  |tiontype%=2:wait|
00002a80  69 6e 67 25 3d b9 0d 14  b4 04 0d 14 be 17 e3 20  |ing%=.......... |
00002a90  78 25 3d 32 20 b8 20 63  68 6f 69 63 65 73 25 2b  |x%=2 . choices%+|
00002aa0  31 0d 14 c8 1c 63 68 6f  69 63 65 24 28 78 25 2d  |1....choice$(x%-|
00002ab0  31 29 3d 63 6c 69 6e 65  24 28 78 25 29 0d 14 d2  |1)=cline$(x%)...|
00002ac0  05 ed 0d 14 dc 04 0d 14  e6 21 61 63 74 76 61 72  |.........!actvar|
00002ad0  25 3d bb 28 63 6c 69 6e  65 24 28 63 68 6f 69 63  |%=.(cline$(choic|
00002ae0  65 73 25 2b 32 29 29 0d  14 f0 5d e7 20 61 63 74  |es%+2))...]. act|
00002af0  76 61 72 25 3c 30 20 84  20 61 63 74 76 61 72 25  |var%<0 . actvar%|
00002b00  3e 32 35 35 20 8c 20 85  20 30 2c 22 56 61 72 69  |>255 . . 0,"Vari|
00002b10  61 62 6c 65 20 6f 75 74  20 6f 66 20 72 61 6e 67  |able out of rang|
00002b20  65 20 61 74 20 6c 69 6e  65 20 22 2b c3 28 73 63  |e at line "+.(sc|
00002b30  70 6f 73 25 2b 31 29 2b  22 20 6f 66 20 73 63 72  |pos%+1)+" of scr|
00002b40  69 70 74 22 0d 14 fa 04  0d 15 04 09 77 24 3d 22  |ipt"........w$="|
00002b50  22 0d 15 0e 1c e3 20 78  25 3d 63 68 6f 69 63 65  |"..... x%=choice|
00002b60  73 25 2b 33 20 b8 20 77  6f 72 64 73 25 0d 15 18  |s%+3 . words%...|
00002b70  16 77 24 2b 3d 63 6c 69  6e 65 24 28 78 25 29 2b  |.w$+=cline$(x%)+|
00002b80  22 20 22 0d 15 22 05 ed  0d 15 2c 11 77 24 3d a4  |" ".."....,.w$=.|
00002b90  73 74 72 69 70 28 77 24  29 0d 15 36 1e f2 6e 65  |strip(w$)..6..ne|
00002ba0  77 74 65 78 74 28 61 63  74 69 6f 6e 77 69 6e 64  |wtext(actionwind|
00002bb0  25 2c 30 2c 77 24 29 0d  15 40 04 0d 15 4a 15 e3  |%,0,w$)..@...J..|
00002bc0  20 78 25 3d 31 20 b8 20  63 68 6f 69 63 65 73 25  | x%=1 . choices%|
00002bd0  0d 15 54 28 f2 6e 65 77  74 65 78 74 28 61 63 74  |..T(.newtext(act|
00002be0  69 6f 6e 77 69 6e 64 25  2c 78 25 2c 63 68 6f 69  |ionwind%,x%,choi|
00002bf0  63 65 24 28 78 25 29 29  0d 15 5e 05 ed 0d 15 68  |ce$(x%))..^....h|
00002c00  04 0d 15 72 12 e7 20 63  68 6f 69 63 65 73 25 3c  |...r.. choices%<|
00002c10  34 20 8c 0d 15 7c 17 e3  20 78 25 3d 63 68 6f 69  |4 ...|.. x%=choi|
00002c20  63 65 73 25 2b 31 20 b8  20 34 0d 15 86 17 21 62  |ces%+1 . 4....!b|
00002c30  6c 6f 63 6b 25 3d 61 63  74 69 6f 6e 77 69 6e 64  |lock%=actionwind|
00002c40  25 0d 15 90 0f 62 6c 6f  63 6b 25 21 34 3d 78 25  |%....block%!4=x%|
00002c50  0d 15 9a 20 c8 99 20 22  57 69 6d 70 5f 44 65 6c  |... .. "Wimp_Del|
00002c60  65 74 65 49 63 6f 6e 22  2c 2c 62 6c 6f 63 6b 25  |eteIcon",,block%|
00002c70  0d 15 a4 05 ed 0d 15 ae  05 cd 0d 15 b8 04 0d 15  |................|
00002c80  c2 1c f2 6f 70 65 6e 77  69 6e 64 6f 77 28 61 63  |...openwindow(ac|
00002c90  74 69 6f 6e 77 69 6e 64  25 29 0d 15 cc 05 e1 0d  |tionwind%)......|
00002ca0  15 d6 05 3a 0d 15 e0 08  dd f2 69 66 0d 15 ea 17  |...:......if....|
00002cb0  ea 20 77 24 2c 78 25 2c  62 61 73 65 2c 73 74 61  |. w$,x%,base,sta|
00002cc0  72 74 25 0d 15 f4 12 c8  8e 20 63 6c 69 6e 65 24  |rt%...... cline$|
00002cd0  28 31 29 20 ca 0d 15 fe  15 20 c9 20 22 52 50 43  |(1) ..... . "RPC|
00002ce0  22 2c 22 50 72 65 52 50  43 22 0d 16 08 31 20 20  |","PreRPC"...1  |
00002cf0  c8 99 20 22 4f 53 5f 4d  6f 64 75 6c 65 22 2c 31  |.. "OS_Module",1|
00002d00  38 2c 22 55 74 69 6c 69  74 79 4d 6f 64 75 6c 65  |8,"UtilityModule|
00002d10  22 20 b8 20 2c 2c 2c 62  61 73 65 0d 16 12 30 20  |" . ,,,base...0 |
00002d20  20 62 61 73 65 3d 28 62  61 73 65 2b 62 61 73 65  | base=(base+base|
00002d30  21 26 31 34 29 3a c8 95  20 3f 62 61 73 65 3c 3e  |!&14):.. ?base<>|
00002d40  39 3a 62 61 73 65 2b 3d  31 3a ce 0d 16 1c 23 20  |9:base+=1:....# |
00002d50  20 6f 73 5f 76 65 72 73  69 6f 6e 3d bb 28 a4 67  | os_version=.(.g|
00002d60  65 74 73 74 72 28 62 61  73 65 2b 31 29 29 0d 16  |etstr(base+1))..|
00002d70  26 32 20 20 e7 20 6f 73  5f 76 65 72 73 69 6f 6e  |&2  . os_version|
00002d80  3c 33 2e 35 30 20 8c 65  78 70 24 3d 22 46 41 4c  |<3.50 .exp$="FAL|
00002d90  53 45 22 20 8b 65 78 70  24 3d 22 54 52 55 45 22  |SE" .exp$="TRUE"|
00002da0  0d 16 30 2c 20 20 e7 20  63 6c 69 6e 65 24 28 31  |..0,  . cline$(1|
00002db0  29 3d 22 50 72 65 52 50  43 22 20 8c 65 78 70 24  |)="PreRPC" .exp$|
00002dc0  3d 22 4e 4f 54 20 22 2b  65 78 70 24 0d 16 3a 0e  |="NOT "+exp$..:.|
00002dd0  20 20 73 74 61 72 74 25  3d 32 0d 16 44 06 20 7f  |  start%=2..D. .|
00002de0  0d 16 4e 34 20 20 65 78  70 24 3d 22 76 61 72 25  |..N4  exp$="var%|
00002df0  28 22 2b 63 6c 69 6e 65  24 28 31 29 2b 22 29 22  |("+cline$(1)+")"|
00002e00  2b 63 6c 69 6e 65 24 28  32 29 2b 63 6c 69 6e 65  |+cline$(2)+cline|
00002e10  24 28 33 29 0d 16 58 0e  20 20 73 74 61 72 74 25  |$(3)..X.  start%|
00002e20  3d 34 0d 16 62 05 cb 0d  16 6c 04 0d 16 76 0f e7  |=4..b....l...v..|
00002e30  20 a0 28 65 78 70 24 29  20 8c 0d 16 80 04 0d 16  | .(exp$) .......|
00002e40  8a 09 77 24 3d 22 22 0d  16 94 18 e3 20 78 25 3d  |..w$=""..... x%=|
00002e50  73 74 61 72 74 25 20 b8  20 77 6f 72 64 73 25 0d  |start% . words%.|
00002e60  16 9e 16 77 24 2b 3d 63  6c 69 6e 65 24 28 78 25  |...w$+=cline$(x%|
00002e70  29 2b 22 20 22 0d 16 a8  05 ed 0d 16 b2 12 f2 69  |)+" "..........i|
00002e80  6e 74 65 72 70 72 65 74  28 77 24 29 0d 16 bc 04  |nterpret(w$)....|
00002e90  0d 16 c6 05 cd 0d 16 d0  05 e1 0d 16 da 05 3a 0d  |..............:.|
00002ea0  16 e4 13 dd f2 6f 70 74  72 61 64 28 74 79 70 65  |.....optrad(type|
00002eb0  25 29 0d 16 ee 0e ea 20  78 25 2c 77 24 2c 77 25  |%)..... x%,w$,w%|
00002ec0  0d 16 f8 04 0d 17 02 19  63 68 6f 69 63 65 73 25  |........choices%|
00002ed0  3d bb 28 63 6c 69 6e 65  24 28 31 29 29 0d 17 0c  |=.(cline$(1))...|
00002ee0  58 e7 20 63 68 6f 69 63  65 73 25 3c 31 20 84 20  |X. choices%<1 . |
00002ef0  63 68 6f 69 63 65 73 25  3e 38 20 8c 20 85 20 30  |choices%>8 . . 0|
00002f00  2c 22 54 6f 6f 20 6d 61  6e 79 20 63 68 6f 69 63  |,"Too many choic|
00002f10  65 73 20 61 74 20 6c 69  6e 65 20 22 2b c3 28 73  |es at line "+.(s|
00002f20  63 70 6f 73 25 2b 31 29  2b 22 20 6f 66 20 73 63  |cpos%+1)+" of sc|
00002f30  72 69 70 74 22 0d 17 16  04 0d 17 20 0e c8 8e 20  |ript"...... ... |
00002f40  74 79 70 65 25 20 ca 0d  17 2a 20 c9 20 31 3a 77  |type% ...* . 1:w|
00002f50  25 3d 77 5f 6f 70 74 73  25 3a 61 63 74 69 6f 6e  |%=w_opts%:action|
00002f60  74 79 70 65 25 3d 33 0d  17 34 20 c9 20 32 3a 77  |type%=3..4 . 2:w|
00002f70  25 3d 77 5f 72 61 64 73  25 3a 61 63 74 69 6f 6e  |%=w_rads%:action|
00002f80  74 79 70 65 25 3d 34 0d  17 3e 17 7f 3a 85 20 30  |type%=4..>..:. 0|
00002f90  2c 22 54 79 70 65 20 65  72 72 6f 72 21 22 0d 17  |,"Type error!"..|
00002fa0  48 05 cb 0d 17 52 04 0d  17 5c 2c c8 99 20 22 57  |H....R...\,.. "W|
00002fb0  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00002fc0  22 2c 2c 77 25 20 b8 20  61 63 74 69 6f 6e 77 69  |",,w% . actionwi|
00002fd0  6e 64 25 0d 17 66 0e 77  61 69 74 69 6e 67 25 3d  |nd%..f.waiting%=|
00002fe0  b9 0d 17 70 04 0d 17 7a  17 e3 20 78 25 3d 32 20  |...p...z.. x%=2 |
00002ff0  b8 20 63 68 6f 69 63 65  73 25 2b 31 0d 17 84 1c  |. choices%+1....|
00003000  63 68 6f 69 63 65 24 28  78 25 2d 31 29 3d 63 6c  |choice$(x%-1)=cl|
00003010  69 6e 65 24 28 78 25 29  0d 17 8e 05 ed 0d 17 98  |ine$(x%)........|
00003020  04 0d 17 a2 21 61 63 74  76 61 72 25 3d bb 28 63  |....!actvar%=.(c|
00003030  6c 69 6e 65 24 28 63 68  6f 69 63 65 73 25 2b 32  |line$(choices%+2|
00003040  29 29 0d 17 ac 5d e7 20  61 63 74 76 61 72 25 3c  |))...]. actvar%<|
00003050  30 20 84 20 61 63 74 76  61 72 25 3e 32 35 35 20  |0 . actvar%>255 |
00003060  8c 20 85 20 30 2c 22 56  61 72 69 61 62 6c 65 20  |. . 0,"Variable |
00003070  6f 75 74 20 6f 66 20 72  61 6e 67 65 20 61 74 20  |out of range at |
00003080  6c 69 6e 65 20 22 2b c3  28 73 63 70 6f 73 25 2b  |line "+.(scpos%+|
00003090  31 29 2b 22 20 6f 66 20  73 63 72 69 70 74 22 0d  |1)+" of script".|
000030a0  17 b6 04 0d 17 c0 09 77  24 3d 22 22 0d 17 ca 1c  |.......w$=""....|
000030b0  e3 20 78 25 3d 63 68 6f  69 63 65 73 25 2b 33 20  |. x%=choices%+3 |
000030c0  b8 20 77 6f 72 64 73 25  0d 17 d4 16 77 24 2b 3d  |. words%....w$+=|
000030d0  63 6c 69 6e 65 24 28 78  25 29 2b 22 20 22 0d 17  |cline$(x%)+" "..|
000030e0  de 05 ed 0d 17 e8 11 77  24 3d a4 73 74 72 69 70  |.......w$=.strip|
000030f0  28 77 24 29 0d 17 f2 1e  f2 6e 65 77 74 65 78 74  |(w$).....newtext|
00003100  28 61 63 74 69 6f 6e 77  69 6e 64 25 2c 30 2c 77  |(actionwind%,0,w|
00003110  24 29 0d 17 fc 04 0d 18  06 17 e3 20 78 25 3d 32  |$)......... x%=2|
00003120  20 b8 20 63 68 6f 69 63  65 73 25 2b 31 0d 18 10  | . choices%+1...|
00003130  2a f2 6e 65 77 74 65 78  74 28 61 63 74 69 6f 6e  |*.newtext(action|
00003140  77 69 6e 64 25 2c 78 25  2c 63 68 6f 69 63 65 24  |wind%,x%,choice$|
00003150  28 78 25 2d 31 29 29 0d  18 1a 05 ed 0d 18 24 04  |(x%-1)).......$.|
00003160  0d 18 2e 12 e7 20 63 68  6f 69 63 65 73 25 3c 38  |..... choices%<8|
00003170  20 8c 0d 18 38 17 e3 20  78 25 3d 63 68 6f 69 63  | ...8.. x%=choic|
00003180  65 73 25 2b 32 20 b8 20  39 0d 18 42 17 21 62 6c  |es%+2 . 9..B.!bl|
00003190  6f 63 6b 25 3d 61 63 74  69 6f 6e 77 69 6e 64 25  |ock%=actionwind%|
000031a0  0d 18 4c 0f 62 6c 6f 63  6b 25 21 34 3d 78 25 0d  |..L.block%!4=x%.|
000031b0  18 56 20 c8 99 20 22 57  69 6d 70 5f 44 65 6c 65  |.V .. "Wimp_Dele|
000031c0  74 65 49 63 6f 6e 22 2c  2c 62 6c 6f 63 6b 25 0d  |teIcon",,block%.|
000031d0  18 60 05 ed 0d 18 6a 05  cd 0d 18 74 04 0d 18 7e  |.`....j....t...~|
000031e0  1c f2 6f 70 65 6e 77 69  6e 64 6f 77 28 61 63 74  |..openwindow(act|
000031f0  69 6f 6e 77 69 6e 64 25  29 0d 18 88 05 e1 0d 18  |ionwind%).......|
00003200  92 05 3a 0d 18 9c 23 dd  a4 67 65 74 69 63 6f 6e  |..:...#..geticon|
00003210  73 65 6c 28 77 68 61 6e  64 6c 65 25 2c 69 68 61  |sel(whandle%,iha|
00003220  6e 64 6c 65 25 29 0d 18  a6 15 21 74 62 6c 6f 63  |ndle%)....!tbloc|
00003230  6b 25 3d 77 68 61 6e 64  6c 65 25 0d 18 b0 16 74  |k%=whandle%....t|
00003240  62 6c 6f 63 6b 25 21 34  3d 69 68 61 6e 64 6c 65  |block%!4=ihandle|
00003250  25 0d 18 ba 23 c8 99 20  22 57 69 6d 70 5f 47 65  |%...#.. "Wimp_Ge|
00003260  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 74 62 6c  |tIconState",,tbl|
00003270  6f 63 6b 25 0d 18 c4 1e  3d 28 74 62 6c 6f 63 6b  |ock%....=(tblock|
00003280  25 21 32 34 20 80 20 26  32 30 30 30 30 30 29 3c  |%!24 . &200000)<|
00003290  3e 30 0d 18 ce 05 3a 0d  18 d8 0d dd f2 73 61 76  |>0....:......sav|
000032a0  65 6f 75 74 0d 18 e2 0b  ea 20 78 25 2c 77 24 0d  |eout..... x%,w$.|
000032b0  18 ec 0e 77 61 69 74 69  6e 67 25 3d b9 0d 18 f6  |...waiting%=....|
000032c0  11 61 63 74 69 6f 6e 74  79 70 65 25 3d 35 0d 19  |.actiontype%=5..|
000032d0  00 34 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.4.. "Wimp_Creat|
000032e0  65 57 69 6e 64 6f 77 22  2c 2c 77 5f 73 61 76 65  |eWindow",,w_save|
000032f0  6f 75 74 25 20 b8 20 61  63 74 69 6f 6e 77 69 6e  |out% . actionwin|
00003300  64 25 0d 19 0a 04 0d 19  14 35 f2 6e 65 77 74 65  |d%.......5.newte|
00003310  78 74 28 61 63 74 69 6f  6e 77 69 6e 64 25 2c 31  |xt(actionwind%,1|
00003320  2c 63 6c 69 6e 65 24 28  31 29 29 3a 6c 65 61 66  |,cline$(1)):leaf|
00003330  24 3d 63 6c 69 6e 65 24  28 31 29 0d 19 1e 09 77  |$=cline$(1)....w|
00003340  24 3d 22 22 0d 19 28 13  e3 20 78 25 3d 32 20 b8  |$=""..(.. x%=2 .|
00003350  20 77 6f 72 64 73 25 0d  19 32 16 77 24 2b 3d 63  | words%..2.w$+=c|
00003360  6c 69 6e 65 24 28 78 25  29 2b 22 20 22 0d 19 3c  |line$(x%)+" "..<|
00003370  05 ed 0d 19 46 11 77 24  3d a4 73 74 72 69 70 28  |....F.w$=.strip(|
00003380  77 24 29 0d 19 50 1e f2  6e 65 77 74 65 78 74 28  |w$)..P..newtext(|
00003390  61 63 74 69 6f 6e 77 69  6e 64 25 2c 30 2c 77 24  |actionwind%,0,w$|
000033a0  29 0d 19 5a 04 0d 19 64  1c f2 6f 70 65 6e 77 69  |)..Z...d..openwi|
000033b0  6e 64 6f 77 28 61 63 74  69 6f 6e 77 69 6e 64 25  |ndow(actionwind%|
000033c0  29 0d 19 6e 1c f2 6f 70  65 6e 73 68 72 75 6e 6b  |)..n..openshrunk|
000033d0  28 62 61 63 6b 68 61 6e  64 6c 65 25 29 0d 19 78  |(backhandle%)..x|
000033e0  35 78 25 3d a4 63 68 65  63 6b 66 69 6c 65 28 22  |5x%=.checkfile("|
000033f0  3c 53 65 74 75 70 24 44  69 72 3e 2e 46 69 6c 65  |<Setup$Dir>.File|
00003400  73 2e 50 72 6f 67 72 61  6d 2e 22 2b 6c 65 61 66  |s.Program."+leaf|
00003410  24 29 0d 19 82 31 e7 20  78 25 3c 3d 31 20 85 20  |$)...1. x%<=1 . |
00003420  30 2c 22 44 69 72 65 63  74 6f 72 79 20 27 22 2b  |0,"Directory '"+|
00003430  6c 65 61 66 24 2b 22 27  20 6e 6f 74 20 66 6f 75  |leaf$+"' not fou|
00003440  6e 64 22 0d 19 8c 17 6c  65 61 66 64 61 74 65 25  |nd"....leafdate%|
00003450  3d 66 69 6c 65 64 61 74  65 25 0d 19 96 05 e1 0d  |=filedate%......|
00003460  19 a0 05 3a 0d 19 aa 0d  dd f2 64 72 61 67 65 6e  |...:......dragen|
00003470  64 0d 19 b4 19 c8 99 20  22 44 72 61 67 41 53 70  |d...... "DragASp|
00003480  72 69 74 65 5f 53 74 6f  70 22 0d 19 be 14 c8 8e  |rite_Stop"......|
00003490  20 61 63 74 69 6f 6e 74  79 70 65 25 20 ca 0d 19  | actiontype% ...|
000034a0  c8 08 c9 20 35 3a 0d 19  d2 28 f2 73 65 74 69 63  |... 5:...(.setic|
000034b0  6f 6e 73 74 61 74 65 28  61 63 74 69 6f 6e 77 69  |onstate(actionwi|
000034c0  6e 64 25 2c 31 2c 30 2c  31 3c 3c 32 32 29 0d 19  |nd%,1,0,1<<22)..|
000034d0  dc 04 0d 19 e6 25 c8 99  20 22 57 69 6d 70 5f 47  |.....%.. "Wimp_G|
000034e0  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
000034f0  74 62 6c 6f 63 6b 25 0d  19 f0 04 0d 19 fa 0f 21  |tblock%........!|
00003500  62 6c 6f 63 6b 25 3d 32  35 36 0d 1a 04 0f 62 6c  |block%=256....bl|
00003510  6f 63 6b 25 21 31 32 3d  30 0d 1a 0e 0f 62 6c 6f  |ock%!12=0....blo|
00003520  63 6b 25 21 31 36 3d 31  0d 1a 18 18 62 6c 6f 63  |ck%!16=1....bloc|
00003530  6b 25 21 32 30 3d 74 62  6c 6f 63 6b 25 21 31 32  |k%!20=tblock%!12|
00003540  0d 1a 22 18 62 6c 6f 63  6b 25 21 32 34 3d 74 62  |..".block%!24=tb|
00003550  6c 6f 63 6b 25 21 31 36  0d 1a 2c 16 62 6c 6f 63  |lock%!16..,.bloc|
00003560  6b 25 21 32 38 3d 21 74  62 6c 6f 63 6b 25 0d 1a  |k%!28=!tblock%..|
00003570  36 17 62 6c 6f 63 6b 25  21 33 32 3d 74 62 6c 6f  |6.block%!32=tblo|
00003580  63 6b 25 21 34 0d 1a 40  10 62 6c 6f 63 6b 25 21  |ck%!4..@.block%!|
00003590  33 36 3d 2d 31 0d 1a 4a  13 62 6c 6f 63 6b 25 21  |36=-1..J.block%!|
000035a0  34 30 3d 26 32 30 30 30  0d 1a 54 16 24 28 62 6c  |40=&2000..T.$(bl|
000035b0  6f 63 6b 25 2b 34 34 29  3d 6c 65 61 66 24 0d 1a  |ock%+44)=leaf$..|
000035c0  5e 04 0d 1a 68 37 c8 99  20 22 57 69 6d 70 5f 53  |^...h7.. "Wimp_S|
000035d0  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 38 2c 62  |endMessage",18,b|
000035e0  6c 6f 63 6b 25 2c 62 6c  6f 63 6b 25 21 32 30 2c  |lock%,block%!20,|
000035f0  62 6c 6f 63 6b 25 21 32  34 0d 1a 72 05 cb 0d 1a  |block%!24..r....|
00003600  7c 05 e1 0d 1a 86 05 3a  0d 1a 90 0e dd f2 73 61  ||......:......sa|
00003610  76 65 64 6f 75 74 0d 1a  9a 08 ea 20 78 25 0d 1a  |vedout..... x%..|
00003620  a4 04 0d 1a ae 09 6f 6b  25 3d b9 0d 1a b8 20 66  |......ok%=.... f|
00003630  69 6c 65 6e 61 6d 65 24  3d a4 67 65 74 73 74 72  |ilename$=.getstr|
00003640  28 62 6c 6f 63 6b 25 2b  34 34 29 0d 1a c2 04 0d  |(block%+44).....|
00003650  1a cc 14 c8 8e 20 61 63  74 69 6f 6e 74 79 70 65  |..... actiontype|
00003660  25 20 ca 0d 1a d6 08 c9  20 35 3a 0d 1a e0 1c e7  |% ...... 5:.....|
00003670  20 a7 66 69 6c 65 6e 61  6d 65 24 2c 22 3c 57 69  | .filename$,"<Wi|
00003680  6d 70 24 22 29 20 8c 0d  1a ea 09 6f 6b 25 3d a3  |mp$") .....ok%=.|
00003690  0d 1a f4 05 cc 0d 1a fe  1c 78 25 3d a4 63 68 65  |.........x%=.che|
000036a0  63 6b 66 69 6c 65 28 66  69 6c 65 6e 61 6d 65 24  |ckfile(filename$|
000036b0  29 0d 1b 08 04 0d 1b 12  2b e7 20 78 25 3d 32 20  |).......+. x%=2 |
000036c0  80 20 66 69 6c 65 64 61  74 65 25 3e 6c 65 61 66  |. filedate%>leaf|
000036d0  64 61 74 65 25 20 80 20  6e 65 77 65 72 25 20 8c  |date% . newer% .|
000036e0  0d 1b 1c 0e 21 74 62 6c  6f 63 6b 25 3d 30 0d 1b  |....!tblock%=0..|
000036f0  26 64 24 28 74 62 6c 6f  63 6b 25 2b 34 29 3d 22  |&d$(tblock%+4)="|
00003700  54 68 69 73 20 64 69 72  65 63 74 6f 72 79 20 61  |This directory a|
00003710  6c 72 65 61 64 79 20 65  78 69 73 74 73 2c 20 61  |lready exists, a|
00003720  6e 64 20 69 73 20 6e 65  77 65 72 20 74 68 61 6e  |nd is newer than|
00003730  20 6d 79 20 66 69 6c 65  73 21 20 53 68 61 6c 6c  | my files! Shall|
00003740  20 49 20 77 72 69 74 65  20 6f 76 65 72 20 69 74  | I write over it|
00003750  3f 22 0d 1b 30 45 c8 99  20 22 57 69 6d 70 5f 52  |?"..0E.. "Wimp_R|
00003760  65 70 6f 72 74 45 72 72  6f 72 22 2c 74 62 6c 6f  |eportError",tblo|
00003770  63 6b 25 2c 25 31 30 30  31 31 2c 22 51 75 65 72  |ck%,%10011,"Quer|
00003780  79 20 66 72 6f 6d 20 53  65 74 75 70 22 20 b8 20  |y from Setup" . |
00003790  2c 63 6c 69 63 6b 25 0d  1b 3a 16 e7 20 63 6c 69  |,click%..:.. cli|
000037a0  63 6b 25 3d 32 20 8c 20  6f 6b 25 3d a3 0d 1b 44  |ck%=2 . ok%=...D|
000037b0  05 cd 0d 1b 4e 04 0d 1b  58 0c e7 20 78 25 3d 31  |....N...X.. x%=1|
000037c0  20 8c 0d 1b 62 09 6f 6b  25 3d a3 0d 1b 6c 0e 21  | ...b.ok%=...l.!|
000037d0  74 62 6c 6f 63 6b 25 3d  30 0d 1b 76 5c 24 28 74  |tblock%=0..v\$(t|
000037e0  62 6c 6f 63 6b 25 2b 34  29 3d 22 54 68 69 73 20  |block%+4)="This |
000037f0  61 6c 72 65 61 64 79 20  65 78 69 73 74 73 20 61  |already exists a|
00003800  73 20 61 20 66 69 6c 65  2e 20 54 6f 20 69 6e 73  |s a file. To ins|
00003810  74 61 6c 6c 20 6f 76 65  72 20 69 74 2c 20 66 69  |tall over it, fi|
00003820  72 73 74 20 64 65 6c 65  74 65 20 74 68 65 20 66  |rst delete the f|
00003830  69 6c 65 2e 22 0d 1b 80  47 c8 99 20 22 57 69 6d  |ile."...G.. "Wim|
00003840  70 5f 52 65 70 6f 72 74  45 72 72 6f 72 22 2c 74  |p_ReportError",t|
00003850  62 6c 6f 63 6b 25 2c 25  31 30 30 30 31 2c 22 4d  |block%,%10001,"M|
00003860  65 73 73 61 67 65 20 66  72 6f 6d 20 53 65 74 75  |essage from Setu|
00003870  70 22 20 b8 20 2c 63 6c  69 63 6b 25 0d 1b 8a 05  |p" . ,click%....|
00003880  cd 0d 1b 94 04 0d 1b 9e  0b e7 20 6f 6b 25 20 8c  |.......... ok% .|
00003890  0d 1b a8 1c 78 25 3d a4  63 68 65 63 6b 66 69 6c  |....x%=.checkfil|
000038a0  65 28 66 69 6c 65 6e 61  6d 65 24 29 0d 1b b2 1e  |e(filename$)....|
000038b0  e7 20 78 25 3d 30 20 ff  20 22 43 44 49 52 20 22  |. x%=0 . "CDIR "|
000038c0  2b 66 69 6c 65 6e 61 6d  65 24 0d 1b bc 04 0d 1b  |+filename$......|
000038d0  c6 25 f2 6e 65 77 74 65  78 74 28 61 63 74 69 6f  |.%.newtext(actio|
000038e0  6e 77 69 6e 64 25 2c 30  2c 66 69 6c 65 6e 61 6d  |nwind%,0,filenam|
000038f0  65 24 29 0d 1b d0 0e 77  61 69 74 69 6e 67 25 3d  |e$)....waiting%=|
00003900  a3 0d 1b da 1b f2 6f 70  65 6e 6c 61 72 67 65 28  |......openlarge(|
00003910  62 61 63 6b 68 61 6e 64  6c 65 25 29 0d 1b e4 19  |backhandle%)....|
00003920  69 6e 73 74 61 6c 6c 64  69 72 24 3d 66 69 6c 65  |installdir$=file|
00003930  6e 61 6d 65 24 0d 1b ee  20 ff 20 22 53 45 54 20  |name$... . "SET |
00003940  74 6d 70 24 64 69 72 20  22 2b 69 6e 73 74 61 6c  |tmp$dir "+instal|
00003950  6c 64 69 72 24 0d 1b f8  04 0d 1c 02 18 21 74 62  |ldir$........!tb|
00003960  6c 6f 63 6b 25 3d 61 63  74 69 6f 6e 77 69 6e 64  |lock%=actionwind|
00003970  25 0d 1c 0c 23 c8 99 20  22 57 69 6d 70 5f 44 65  |%...#.. "Wimp_De|
00003980  6c 65 74 65 57 69 6e 64  6f 77 22 2c 2c 74 62 6c  |leteWindow",,tbl|
00003990  6f 63 6b 25 0d 1c 16 11  61 63 74 69 6f 6e 74 79  |ock%....actionty|
000039a0  70 65 25 3d 30 0d 1c 20  11 61 63 74 69 6f 6e 77  |pe%=0.. .actionw|
000039b0  69 6e 64 25 3d 30 0d 1c  2a 05 cd 0d 1c 34 04 0d  |ind%=0..*....4..|
000039c0  1c 3e 05 cd 0d 1c 48 05  cb 0d 1c 52 04 0d 1c 5c  |.>....H....R...\|
000039d0  0b e7 20 6f 6b 25 20 8c  0d 1c 66 22 62 6c 6f 63  |.. ok% ...f"bloc|
000039e0  6b 25 21 31 32 3d 62 6c  6f 63 6b 25 21 38 3a 62  |k%!12=block%!8:b|
000039f0  6c 6f 63 6b 25 21 31 36  3d 33 0d 1c 70 2e c8 99  |lock%!16=3..p...|
00003a00  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00003a10  67 65 22 2c 31 38 2c 62  6c 6f 63 6b 25 2c 62 6c  |ge",18,block%,bl|
00003a20  6f 63 6b 25 21 34 2c 30  0d 1c 7a 1c c8 99 20 22  |ock%!4,0..z... "|
00003a30  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00003a40  2c 2c 2d 31 0d 1c 84 05  cd 0d 1c 8e 04 0d 1c 98  |,,-1............|
00003a50  39 e7 20 ac 20 77 61 69  74 69 6e 67 25 20 8c 20  |9. . waiting% . |
00003a60  f2 6e 65 77 74 65 78 74  28 73 74 61 74 75 73 68  |.newtext(statush|
00003a70  61 6e 64 6c 65 25 2c 30  2c 22 57 6f 72 6b 69 6e  |andle%,0,"Workin|
00003a80  67 2e 2e 2e 22 29 0d 1c  a2 05 e1 0d 1c ac 05 3a  |g...").........:|
00003a90  0d 1c b6 1a dd f2 6f 70  65 6e 73 68 72 75 6e 6b  |......openshrunk|
00003aa0  28 77 68 61 6e 64 6c 65  25 29 0d 1c c0 15 21 74  |(whandle%)....!t|
00003ab0  62 6c 6f 63 6b 25 3d 77  68 61 6e 64 6c 65 25 0d  |block%=whandle%.|
00003ac0  1c ca 25 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |..%.. "Wimp_GetW|
00003ad0  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 74 62 6c  |indowState",,tbl|
00003ae0  6f 63 6b 25 0d 1c d4 12  74 62 6c 6f 63 6b 25 21  |ock%....tblock%!|
00003af0  38 2b 3d 31 32 38 0d 1c  de 21 c8 99 20 22 57 69  |8+=128...!.. "Wi|
00003b00  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00003b10  74 62 6c 6f 63 6b 25 0d  1c e8 05 e1 0d 1c f2 05  |tblock%.........|
00003b20  3a 0d 1c fc 19 dd f2 6f  70 65 6e 6c 61 72 67 65  |:......openlarge|
00003b30  28 77 68 61 6e 64 6c 65  25 29 0d 1d 06 15 21 74  |(whandle%)....!t|
00003b40  62 6c 6f 63 6b 25 3d 77  68 61 6e 64 6c 65 25 0d  |block%=whandle%.|
00003b50  1d 10 25 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |..%.. "Wimp_GetW|
00003b60  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 74 62 6c  |indowState",,tbl|
00003b70  6f 63 6b 25 0d 1d 1a 12  74 62 6c 6f 63 6b 25 21  |ock%....tblock%!|
00003b80  38 2d 3d 31 32 38 0d 1d  24 21 c8 99 20 22 57 69  |8-=128..$!.. "Wi|
00003b90  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00003ba0  74 62 6c 6f 63 6b 25 0d  1d 2e 05 e1 0d 1d 38 05  |tblock%.......8.|
00003bb0  3a 0d 1d 42 14 dd a4 63  68 65 63 6b 66 69 6c 65  |:..B...checkfile|
00003bc0  28 66 6e 24 29 0d 1d 4c  1b ea 20 74 79 70 65 25  |(fn$)..L.. type%|
00003bd0  2c 6c 6f 61 64 25 2c 65  78 65 63 25 2c 66 64 25  |,load%,exec%,fd%|
00003be0  0d 1d 56 10 66 69 6c 65  64 61 74 65 25 3d 2d 31  |..V.filedate%=-1|
00003bf0  0d 1d 60 2c c8 99 20 22  4f 53 5f 46 69 6c 65 22  |..`,.. "OS_File"|
00003c00  2c 31 37 2c 66 6e 24 20  b8 20 74 79 70 65 25 2c  |,17,fn$ . type%,|
00003c10  2c 6c 6f 61 64 25 2c 65  78 65 63 25 0d 1d 6a 16  |,load%,exec%..j.|
00003c20  e7 20 74 79 70 65 25 3d  30 20 8c 20 3d 74 79 70  |. type%=0 . =typ|
00003c30  65 25 0d 1d 74 13 66 64  25 3d 6c 6f 61 64 25 20  |e%..t.fd%=load% |
00003c40  80 20 32 35 35 0d 1d 7e  19 65 78 65 63 25 3d 65  |. 255..~.exec%=e|
00003c50  78 65 63 25 20 80 20 28  ac 20 32 35 35 29 0d 1d  |xec% . (. 255)..|
00003c60  88 26 66 69 6c 65 64 61  74 65 25 3d 28 66 64 25  |.&filedate%=(fd%|
00003c70  3c 3c 31 36 29 20 84 20  28 65 78 65 63 25 3e 3e  |<<16) . (exec%>>|
00003c80  3e 31 36 29 0d 1d 92 0a  3d 74 79 70 65 25 0d 1d  |>16)....=type%..|
00003c90  9c 05 3a 0d 1d a6 10 dd  f2 6f 70 65 6e 76 69 65  |..:......openvie|
00003ca0  77 65 72 0d 1d b0 0e 77  61 69 74 69 6e 67 25 3d  |wer....waiting%=|
00003cb0  b9 0d 1d ba 12 61 63 74  69 6f 6e 74 79 70 65 25  |.....actiontype%|
00003cc0  3d 2d 31 0d 1d c4 33 c8  99 20 22 57 69 6d 70 5f  |=-1...3.. "Wimp_|
00003cd0  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 77  |CreateWindow",,w|
00003ce0  5f 76 69 65 77 65 72 25  20 b8 20 61 63 74 69 6f  |_viewer% . actio|
00003cf0  6e 77 69 6e 64 25 0d 1d  ce 04 0d 1d d8 25 4f 25  |nwind%.......%O%|
00003d00  3d 8e 28 22 3c 53 65 74  75 70 24 44 69 72 3e 2e  |=.("<Setup$Dir>.|
00003d10  46 69 6c 65 73 2e 22 2b  70 61 72 61 6d 24 29 0d  |Files."+param$).|
00003d20  1d e2 10 76 69 65 77 6c  69 6e 65 73 25 3d 30 0d  |...viewlines%=0.|
00003d30  1d ec 05 f5 0d 1d f6 11  76 69 65 77 6c 69 6e 65  |........viewline|
00003d40  73 25 2b 3d 31 0d 1e 00  1c 72 65 61 64 6d 65 24  |s%+=1....readme$|
00003d50  28 76 69 65 77 6c 69 6e  65 73 25 29 3d be 23 4f  |(viewlines%)=.#O|
00003d60  25 0d 1e 0a 0a fd 20 c5  23 4f 25 0d 1e 14 08 d9  |%..... .#O%.....|
00003d70  23 4f 25 0d 1e 1e 04 0d  1e 28 0e 21 74 62 6c 6f  |#O%......(.!tblo|
00003d80  63 6b 25 3d 30 0d 1e 32  1e 74 62 6c 6f 63 6b 25  |ck%=0..2.tblock%|
00003d90  21 34 3d 2d 28 76 69 65  77 6c 69 6e 65 73 25 2a  |!4=-(viewlines%*|
00003da0  33 32 29 0d 1e 3c 12 74  62 6c 6f 63 6b 25 21 38  |32)..<.tblock%!8|
00003db0  3d 31 32 33 32 0d 1e 46  10 74 62 6c 6f 63 6b 25  |=1232..F.tblock%|
00003dc0  21 31 32 3d 30 0d 1e 50  2b c8 99 20 22 57 69 6d  |!12=0..P+.. "Wim|
00003dd0  70 5f 53 65 74 45 78 74  65 6e 74 22 2c 61 63 74  |p_SetExtent",act|
00003de0  69 6f 6e 77 69 6e 64 25  2c 74 62 6c 6f 63 6b 25  |ionwind%,tblock%|
00003df0  0d 1e 5a 04 0d 1e 64 1c  f2 6f 70 65 6e 77 69 6e  |..Z...d..openwin|
00003e00  64 6f 77 28 61 63 74 69  6f 6e 77 69 6e 64 25 29  |dow(actionwind%)|
00003e10  0d 1e 6e 05 e1 0d 1e 78  05 3a 0d 1e 82 0c dd f2  |..n....x.:......|
00003e20  72 65 61 64 6d 65 0d 1e  8c 13 ea 20 78 25 2c 79  |readme..... x%,y|
00003e30  25 2c 78 31 25 2c 78 32  25 0d 1e 96 04 0d 1e a0  |%,x1%,x2%.......|
00003e40  14 78 31 25 3d 28 6d 69  6e 78 25 29 2f 31 36 2d  |.x1%=(minx%)/16-|
00003e50  31 0d 1e aa 14 78 32 25  3d 28 6d 61 78 78 25 29  |1....x2%=(maxx%)|
00003e60  2f 31 36 2b 31 0d 1e b4  11 e7 20 78 31 25 3c 31  |/16+1..... x1%<1|
00003e70  20 78 31 25 3d 31 0d 1e  be 13 e7 20 78 32 25 3e  | x1%=1..... x2%>|
00003e80  38 30 20 78 32 25 3d 38  30 0d 1e c8 0c 78 32 25  |80 x2%=80....x2%|
00003e90  2d 3d 78 31 25 0d 1e d2  04 0d 1e dc 32 e3 20 79  |-=x1%.......2. y|
00003ea0  25 3d 28 6d 69 6e 79 25  20 81 20 33 32 29 2a 33  |%=(miny% . 32)*3|
00003eb0  32 2d 33 32 20 b8 20 28  6d 61 78 79 25 20 81 20  |2-32 . (maxy% . |
00003ec0  33 32 29 2a 33 32 20 88  20 33 32 0d 1e e6 04 0d  |32)*32 . 32.....|
00003ed0  1e f0 17 ec 20 78 4f 25  2b 78 31 25 2a 31 36 2c  |.... xO%+x1%*16,|
00003ee0  79 4f 25 2b 79 25 0d 1e  fa 0f 78 25 3d 2d 28 79  |yO%+y%....x%=-(y|
00003ef0  25 2f 33 32 29 0d 1f 04  31 e7 20 78 31 25 3c a9  |%/32)...1. x1%<.|
00003f00  28 72 65 61 64 6d 65 24  28 78 25 29 29 20 f1 3b  |(readme$(x%)) .;|
00003f10  c1 72 65 61 64 6d 65 24  28 78 25 29 2c 78 31 25  |.readme$(x%),x1%|
00003f20  2c 78 32 25 29 3b 0d 1f  0e 04 0d 1f 18 05 ed 0d  |,x2%);..........|
00003f30  1f 22 05 e1 0d 1f 2c 05  3a 0d 1f 36 0e dd a4 74  |."....,.:..6...t|
00003f40  61 69 6c 28 6e 24 29 0d  1f 40 08 ea 20 78 24 0d  |ail(n$)..@.. x$.|
00003f50  1f 4a 09 78 24 3d 22 22  0d 1f 54 0f c8 95 20 a7  |.J.x$=""..T... .|
00003f60  6e 24 2c 22 2e 22 29 0d  1f 5e 15 78 24 2b 3d c0  |n$,".")..^.x$+=.|
00003f70  6e 24 2c a7 6e 24 2c 22  2e 22 29 29 0d 1f 68 16  |n$,.n$,"."))..h.|
00003f80  6e 24 3d c1 6e 24 2c a7  6e 24 2c 22 2e 22 29 2b  |n$=.n$,.n$,".")+|
00003f90  31 29 0d 1f 72 05 ce 0d  1f 7c 0b 78 24 3d c0 78  |1)..r....|.x$=.x|
00003fa0  24 29 0d 1f 86 07 3d 78  24 0d 1f 90 05 3a 0d 1f  |$)....=x$....:..|
00003fb0  9a 20 dd f2 63 6f 70 79  28 73 6f 75 72 63 65 24  |. ..copy(source$|
00003fc0  2c 64 65 73 74 24 2c 6e  65 77 65 72 25 29 0d 1f  |,dest$,newer%)..|
00003fd0  a4 27 c8 99 20 22 4f 53  5f 47 53 54 72 61 6e 73  |.'.. "OS_GSTrans|
00003fe0  22 2c 73 6f 75 72 63 65  24 2c 74 62 6c 6f 63 6b  |",source$,tblock|
00003ff0  25 2c 32 35 35 0d 1f ae  1c 73 6f 75 72 63 65 24  |%,255....source$|
00004000  3d a4 67 65 74 73 74 72  28 74 62 6c 6f 63 6b 25  |=.getstr(tblock%|
00004010  29 0d 1f b8 25 c8 99 20  22 4f 53 5f 47 53 54 72  |)...%.. "OS_GSTr|
00004020  61 6e 73 22 2c 64 65 73  74 24 2c 74 62 6c 6f 63  |ans",dest$,tbloc|
00004030  6b 25 2c 32 35 35 0d 1f  c2 1a 64 65 73 74 24 3d  |k%,255....dest$=|
00004040  a4 67 65 74 73 74 72 28  74 62 6c 6f 63 6b 25 29  |.getstr(tblock%)|
00004050  0d 1f cc 04 0d 1f d6 2a  f2 6e 65 77 74 65 78 74  |.......*.newtext|
00004060  28 73 74 61 74 75 73 68  61 6e 64 6c 65 25 2c 30  |(statushandle%,0|
00004070  2c 22 43 6f 70 79 69 6e  67 2e 2e 2e 22 29 0d 1f  |,"Copying...")..|
00004080  e0 15 64 69 72 24 3d a4  74 61 69 6c 28 64 65 73  |..dir$=.tail(des|
00004090  74 24 29 0d 1f ea 13 f2  63 68 65 63 6b 64 69 72  |t$).....checkdir|
000040a0  28 64 69 72 24 29 0d 1f  f4 19 f2 63 6f 70 79 31  |(dir$).....copy1|
000040b0  28 73 6f 75 72 63 65 24  2c 64 65 73 74 24 29 0d  |(source$,dest$).|
000040c0  1f fe 2a f2 6e 65 77 74  65 78 74 28 73 74 61 74  |..*.newtext(stat|
000040d0  75 73 68 61 6e 64 6c 65  25 2c 30 2c 22 57 6f 72  |ushandle%,0,"Wor|
000040e0  6b 69 6e 67 2e 2e 2e 22  29 0d 20 08 21 f2 6e 65  |king..."). .!.ne|
000040f0  77 74 65 78 74 28 73 74  61 74 75 73 68 61 6e 64  |wtext(statushand|
00004100  6c 65 25 2c 31 2c 22 2d  22 29 0d 20 12 05 e1 0d  |le%,1,"-"). ....|
00004110  20 1c 05 3a 0d 20 26 14  dd f2 63 68 65 63 6b 64  | ..:. &...checkd|
00004120  69 72 28 64 69 72 24 29  0d 20 30 0b ea 20 64 24  |ir(dir$). 0.. d$|
00004130  2c 6e 24 0d 20 3a 04 0d  20 44 24 c8 99 20 22 4f  |,n$. :.. D$.. "O|
00004140  53 5f 47 53 54 72 61 6e  73 22 2c 64 69 72 24 2c  |S_GSTrans",dir$,|
00004150  74 62 6c 6f 63 6b 25 2c  32 35 35 0d 20 4e 19 64  |tblock%,255. N.d|
00004160  69 72 24 3d a4 67 65 74  73 74 72 28 74 62 6c 6f  |ir$=.getstr(tblo|
00004170  63 6b 25 29 0d 20 58 04  0d 20 62 20 c8 99 20 22  |ck%). X.. b .. "|
00004180  4f 53 5f 46 69 6c 65 22  2c 31 37 2c 64 69 72 24  |OS_File",17,dir$|
00004190  20 b8 20 74 79 70 65 25  0d 20 6c 4b e7 20 74 79  | . type%. lK. ty|
000041a0  70 65 25 3d 31 20 8c 20  85 20 31 2c 22 55 6e 72  |pe%=1 . . 1,"Unr|
000041b0  65 63 6f 76 65 72 61 62  6c 65 20 65 72 72 6f 72  |ecoverable error|
000041c0  3a 20 63 61 6e 6e 6f 74  20 63 6f 70 79 20 6f 76  |: cannot copy ov|
000041d0  65 72 20 66 69 6c 65 20  27 22 2b 64 69 72 24 2b  |er file '"+dir$+|
000041e0  22 27 22 0d 20 76 11 e7  20 74 79 70 65 25 3d 32  |"'". v.. type%=2|
000041f0  20 8c 20 e1 0d 20 80 04  0d 20 8a 0b 6e 24 3d 64  | . .. ... ..n$=d|
00004200  69 72 24 0d 20 94 09 64  24 3d 22 22 0d 20 9e 15  |ir$. ..d$="". ..|
00004210  73 74 70 6f 73 25 3d a7  6e 24 2c 22 24 22 29 2b  |stpos%=.n$,"$")+|
00004220  31 0d 20 a8 21 e7 20 73  74 70 6f 73 25 3c 3d 31  |1. .!. stpos%<=1|
00004230  20 8c 20 73 74 70 6f 73  25 3d a7 6e 24 2c 22 2e  | . stpos%=.n$,".|
00004240  22 29 0d 20 b2 04 0d 20  bc 14 64 24 3d c0 6e 24  |"). ... ..d$=.n$|
00004250  2c 73 74 70 6f 73 25 2d  31 29 0d 20 c6 14 6e 24  |,stpos%-1). ..n$|
00004260  3d c1 6e 24 2c 73 74 70  6f 73 25 2b 31 29 0d 20  |=.n$,stpos%+1). |
00004270  d0 05 f5 0d 20 da 04 0d  20 e4 1e c8 99 20 22 4f  |.... ... .... "O|
00004280  53 5f 46 69 6c 65 22 2c  31 37 2c 64 24 20 b8 20  |S_File",17,d$ . |
00004290  74 79 70 65 25 0d 20 ee  49 e7 20 74 79 70 65 25  |type%. .I. type%|
000042a0  3d 31 20 8c 20 85 20 31  2c 22 55 6e 72 65 63 6f  |=1 . . 1,"Unreco|
000042b0  76 65 72 61 62 6c 65 20  65 72 72 6f 72 3a 20 63  |verable error: c|
000042c0  61 6e 6e 6f 74 20 63 6f  70 79 20 6f 76 65 72 20  |annot copy over |
000042d0  66 69 6c 65 20 27 22 2b  64 24 2b 22 27 22 0d 20  |file '"+d$+"'". |
000042e0  f8 0f e7 20 74 79 70 65  25 3d 30 20 8c 0d 21 02  |... type%=0 ..!.|
000042f0  10 ff 20 22 43 44 49 52  20 22 2b 64 24 0d 21 0c  |.. "CDIR "+d$.!.|
00004300  05 cd 0d 21 16 13 73 74  70 6f 73 25 3d a7 6e 24  |...!..stpos%=.n$|
00004310  2c 22 2e 22 29 0d 21 20  1e e7 20 73 74 70 6f 73  |,".").! .. stpos|
00004320  25 3c 3d 30 20 73 74 70  6f 73 25 3d a9 28 6e 24  |%<=0 stpos%=.(n$|
00004330  29 2b 31 0d 21 2a 19 64  24 2b 3d 22 2e 22 2b c0  |)+1.!*.d$+="."+.|
00004340  6e 24 2c 73 74 70 6f 73  25 2d 31 29 0d 21 34 14  |n$,stpos%-1).!4.|
00004350  6e 24 3d c1 6e 24 2c 73  74 70 6f 73 25 2b 31 29  |n$=.n$,stpos%+1)|
00004360  0d 21 3e 04 0d 21 48 0b  fd 20 6e 24 3d 22 22 0d  |.!>..!H.. n$="".|
00004370  21 52 04 0d 21 5c 1e c8  99 20 22 4f 53 5f 46 69  |!R..!\... "OS_Fi|
00004380  6c 65 22 2c 31 37 2c 64  24 20 b8 20 74 79 70 65  |le",17,d$ . type|
00004390  25 0d 21 66 49 e7 20 74  79 70 65 25 3d 31 20 8c  |%.!fI. type%=1 .|
000043a0  20 85 20 31 2c 22 55 6e  72 65 63 6f 76 65 72 61  | . 1,"Unrecovera|
000043b0  62 6c 65 20 65 72 72 6f  72 3a 20 63 61 6e 6e 6f  |ble error: canno|
000043c0  74 20 63 6f 70 79 20 6f  76 65 72 20 66 69 6c 65  |t copy over file|
000043d0  20 27 22 2b 64 24 2b 22  27 22 0d 21 70 0f e7 20  | '"+d$+"'".!p.. |
000043e0  74 79 70 65 25 3d 30 20  8c 0d 21 7a 10 ff 20 22  |type%=0 ..!z.. "|
000043f0  43 44 49 52 20 22 2b 64  24 0d 21 84 05 cd 0d 21  |CDIR "+d$.!....!|
00004400  8e 04 0d 21 98 05 e1 0d  21 a2 05 3a 0d 21 ac 17  |...!....!..:.!..|
00004410  dd f2 63 6f 70 79 31 28  73 72 63 24 2c 64 65 73  |..copy1(src$,des|
00004420  74 24 29 0d 21 b6 0d ea  20 70 6f 69 6e 74 65 72  |t$).!... pointer|
00004430  0d 21 c0 0d 70 6f 69 6e  74 65 72 3d 30 0d 21 ca  |.!..pointer=0.!.|
00004440  20 c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 31 37  | .. "OS_File",17|
00004450  2c 73 72 63 24 20 b8 20  74 79 70 65 25 0d 21 d4  |,src$ . type%.!.|
00004460  04 0d 21 de 18 e7 20 74  79 70 65 25 3d 31 20 84  |..!... type%=1 .|
00004470  74 79 70 65 25 3d 33 20  8c 0d 21 e8 20 20 6f 70  |type%=3 ..!.  op|
00004480  74 25 3d 28 31 3c 3c 31  34 29 2b 28 31 3c 3c 31  |t%=(1<<14)+(1<<1|
00004490  33 29 2b 28 31 3c 3c 31  29 0d 21 f2 04 0d 21 fc  |3)+(1<<1).!...!.|
000044a0  1b 20 e7 20 6e 65 77 65  72 25 20 8c 20 6f 70 74  |. . newer% . opt|
000044b0  25 2b 3d 31 3c 3c 31 32  0d 22 06 16 20 21 74 62  |%+=1<<12.".. !tb|
000044c0  6c 6f 63 6b 25 3d 73 63  72 61 74 63 68 25 0d 22  |lock%=scratch%."|
000044d0  10 16 20 74 62 6c 6f 63  6b 25 21 34 3d 73 63 73  |.. tblock%!4=scs|
000044e0  69 7a 65 25 0d 22 1a 39  20 c8 99 20 22 4f 53 5f  |ize%.".9 .. "OS_|
000044f0  46 53 43 6f 6e 74 72 6f  6c 22 2c 32 36 2c 73 72  |FSControl",26,sr|
00004500  63 24 2c 64 65 73 74 24  2c 6f 70 74 25 2c 34 2c  |c$,dest$,opt%,4,|
00004510  35 2c 36 2c 37 2c 74 62  6c 6f 63 6b 25 0d 22 24  |5,6,7,tblock%."$|
00004520  05 e1 0d 22 2e 05 cd 0d  22 38 04 0d 22 42 14 f2  |..."...."8.."B..|
00004530  63 68 65 63 6b 64 69 72  28 64 65 73 74 24 29 0d  |checkdir(dest$).|
00004540  22 4c 04 0d 22 56 05 f5  0d 22 60 3f 20 c8 99 20  |"L.."V..."`? .. |
00004550  22 4f 53 5f 47 42 50 42  22 2c 39 2c 73 72 63 24  |"OS_GBPB",9,src$|
00004560  2c 74 62 6c 6f 63 6b 25  2c 31 2c 70 6f 69 6e 74  |,tblock%,1,point|
00004570  65 72 2c 36 34 20 b8 20  2c 2c 2c 72 65 61 64 2c  |er,64 . ,,,read,|
00004580  70 6f 69 6e 74 65 72 0d  22 6a 0f 20 e7 20 72 65  |pointer."j. . re|
00004590  61 64 3d 31 20 8c 0d 22  74 0b 20 20 66 24 3d 22  |ad=1 .."t.  f$="|
000045a0  22 0d 22 7e 0a 20 20 69  25 3d 30 0d 22 88 19 20  |"."~.  i%=0.".. |
000045b0  20 66 24 3d a4 67 65 74  73 74 72 28 74 62 6c 6f  | f$=.getstr(tblo|
000045c0  63 6b 25 29 0d 22 92 1b  20 20 f2 63 6f 70 79 32  |ck%)."..  .copy2|
000045d0  28 66 24 2c 73 72 63 24  2c 64 65 73 74 24 29 0d  |(f$,src$,dest$).|
000045e0  22 9c 06 20 cd 0d 22 a6  10 fd 20 70 6f 69 6e 74  |".. .."... point|
000045f0  65 72 3d 2d 31 0d 22 b0  05 e1 0d 22 ba 05 3a 0d  |er=-1."...."..:.|
00004600  22 c4 1a dd f2 63 6f 70  79 32 28 66 24 2c 73 72  |"....copy2(f$,sr|
00004610  63 24 2c 64 65 73 74 24  29 0d 22 ce 27 c8 99 20  |c$,dest$).".'.. |
00004620  22 4f 53 5f 46 69 6c 65  22 2c 31 37 2c 73 72 63  |"OS_File",17,src|
00004630  24 2b 22 2e 22 2b 66 24  20 b8 20 74 79 70 65 25  |$+"."+f$ . type%|
00004640  0d 22 d8 2e f2 6e 65 77  74 65 78 74 28 73 74 61  |."...newtext(sta|
00004650  74 75 73 68 61 6e 64 6c  65 25 2c 31 2c c2 73 72  |tushandle%,1,.sr|
00004660  63 24 2b 22 2e 22 2b 66  24 2c 33 39 29 29 0d 22  |c$+"."+f$,39))."|
00004670  e2 35 e7 20 74 79 70 65  25 3d 30 20 8c 20 85 20  |.5. type%=0 . . |
00004680  31 2c 22 53 74 72 61 6e  67 65 20 65 72 72 6f 72  |1,"Strange error|
00004690  20 64 75 72 69 6e 67 20  63 6f 70 79 69 6e 67 21  | during copying!|
000046a0  22 3a e0 0d 22 ec 18 e7  20 74 79 70 65 25 3d 31  |":.."... type%=1|
000046b0  20 84 20 74 79 70 65 25  3d 33 8c 0d 22 f6 04 0d  | . type%=3.."...|
000046c0  23 00 1f 6f 70 74 25 3d  28 31 3c 3c 31 34 29 2b  |#..opt%=(1<<14)+|
000046d0  28 31 3c 3c 31 33 29 2b  28 31 3c 3c 31 29 0d 23  |(1<<13)+(1<<1).#|
000046e0  0a 04 0d 23 14 1a e7 20  6e 65 77 65 72 25 20 8c  |...#... newer% .|
000046f0  20 6f 70 74 25 2b 3d 31  3c 3c 31 32 0d 23 1e 15  | opt%+=1<<12.#..|
00004700  21 74 62 6c 6f 63 6b 25  3d 73 63 72 61 74 63 68  |!tblock%=scratch|
00004710  25 0d 23 28 15 74 62 6c  6f 63 6b 25 21 34 3d 73  |%.#(.tblock%!4=s|
00004720  63 73 69 7a 65 25 0d 23  32 46 c8 99 20 22 4f 53  |csize%.#2F.. "OS|
00004730  5f 46 53 43 6f 6e 74 72  6f 6c 22 2c 32 36 2c 73  |_FSControl",26,s|
00004740  72 63 24 2b 22 2e 22 2b  66 24 2c 64 65 73 74 24  |rc$+"."+f$,dest$|
00004750  2b 22 2e 22 2b 66 24 2c  6f 70 74 25 2c 34 2c 35  |+"."+f$,opt%,4,5|
00004760  2c 36 2c 37 2c 74 62 6c  6f 63 6b 25 0d 23 3c 04  |,6,7,tblock%.#<.|
00004770  0d 23 46 05 cc 0d 23 50  1b f2 63 68 65 63 6b 64  |.#F...#P..checkd|
00004780  69 72 28 64 65 73 74 24  2b 22 2e 22 2b 66 24 29  |ir(dest$+"."+f$)|
00004790  0d 23 5a 24 f2 63 6f 70  79 31 28 73 72 63 24 2b  |.#Z$.copy1(src$+|
000047a0  22 2e 22 2b 66 24 2c 64  65 73 74 24 2b 22 2e 22  |"."+f$,dest$+"."|
000047b0  2b 66 24 29 0d 23 64 05  cd 0d 23 6e 05 e1 0d 23  |+f$).#d...#n...#|
000047c0  78 05 3a 0d 23 82 0b dd  f2 75 64 61 74 65 0d 23  |x.:.#....udate.#|
000047d0  8c 13 75 64 69 72 24 3d  63 6c 69 6e 65 24 28 31  |..udir$=cline$(1|
000047e0  29 0d 23 96 30 c8 99 20  22 57 69 6d 70 5f 43 72  |).#.0.. "Wimp_Cr|
000047f0  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 77 5f 75  |eateWindow",,w_u|
00004800  70 64 25 20 b8 20 61 63  74 69 6f 6e 77 69 6e 64  |pd% . actionwind|
00004810  25 0d 23 a0 04 0d 23 aa  09 77 24 3d 22 22 0d 23  |%.#...#..w$="".#|
00004820  b4 13 e3 20 78 25 3d 32  20 b8 20 77 6f 72 64 73  |... x%=2 . words|
00004830  25 0d 23 be 16 77 24 2b  3d 63 6c 69 6e 65 24 28  |%.#..w$+=cline$(|
00004840  78 25 29 2b 22 20 22 0d  23 c8 05 ed 0d 23 d2 1e  |x%)+" ".#....#..|
00004850  f2 6e 65 77 74 65 78 74  28 61 63 74 69 6f 6e 77  |.newtext(actionw|
00004860  69 6e 64 25 2c 31 2c 77  24 29 0d 23 dc 11 77 24  |ind%,1,w$).#..w$|
00004870  3d a4 73 74 72 69 70 28  77 24 29 0d 23 e6 04 0d  |=.strip(w$).#...|
00004880  23 f0 11 61 63 74 69 6f  6e 74 79 70 65 25 3d 36  |#..actiontype%=6|
00004890  0d 23 fa 1c f2 6f 70 65  6e 77 69 6e 64 6f 77 28  |.#...openwindow(|
000048a0  61 63 74 69 6f 6e 77 69  6e 64 25 29 0d 24 04 0e  |actionwind%).$..|
000048b0  77 61 69 74 69 6e 67 25  3d b9 0d 24 0e 1c f2 6f  |waiting%=..$...o|
000048c0  70 65 6e 73 68 72 75 6e  6b 28 62 61 63 6b 68 61  |penshrunk(backha|
000048d0  6e 64 6c 65 25 29 0d 24  18 05 e1 0d 24 22 05 3a  |ndle%).$....$".:|
000048e0  0d 24 2c 0e dd a4 6c 65  61 66 28 6e 24 29 0d 24  |.$,...leaf(n$).$|
000048f0  36 0f c8 95 20 a7 6e 24  2c 22 2e 22 29 0d 24 40  |6... .n$,".").$@|
00004900  16 6e 24 3d c1 6e 24 2c  a7 6e 24 2c 22 2e 22 29  |.n$=.n$,.n$,".")|
00004910  2b 31 29 0d 24 4a 05 ce  0d 24 54 07 3d 6e 24 0d  |+1).$J...$T.=n$.|
00004920  24 5e 05 3a 0d 24 68 0c  dd f2 64 72 61 67 69 6e  |$^.:.$h...dragin|
00004930  0d 24 72 1f e7 20 61 63  74 69 6f 6e 74 79 70 65  |.$r.. actiontype|
00004940  25 3d 35 20 8c 20 f2 73  61 76 65 64 6f 75 74 0d  |%=5 . .savedout.|
00004950  24 7c 15 e7 20 61 63 74  69 6f 6e 74 79 70 65 25  |$|.. actiontype%|
00004960  3d 36 20 8c 0d 24 86 1a  66 6e 24 3d a4 67 65 74  |=6 ..$..fn$=.get|
00004970  73 74 72 28 62 6c 6f 63  6b 25 2b 34 34 29 0d 24  |str(block%+44).$|
00004980  90 2e e7 20 62 6c 6f 63  6b 25 21 34 30 3c 3e 26  |... block%!40<>&|
00004990  32 30 30 30 20 84 20 a4  6c 65 61 66 28 66 6e 24  |2000 . .leaf(fn$|
000049a0  29 3c 3e 75 64 69 72 24  20 8c 20 e1 0d 24 9a 04  |)<>udir$ . ..$..|
000049b0  0d 24 a4 29 75 64 24 3d  22 3c 53 65 74 75 70 24  |.$.)ud$="<Setup$|
000049c0  44 69 72 3e 2e 46 69 6c  65 73 2e 53 79 73 74 65  |Dir>.Files.Syste|
000049d0  6d 2e 22 2b 75 64 69 72  24 0d 24 ae 04 0d 24 b8  |m."+udir$.$...$.|
000049e0  35 6f 70 74 25 3d 28 31  3c 3c 31 34 29 2b 28 31  |5opt%=(1<<14)+(1|
000049f0  3c 3c 31 33 29 2b 28 31  3c 3c 31 32 29 2b 28 31  |<<13)+(1<<12)+(1|
00004a00  3c 3c 39 29 2b 28 31 3c  3c 31 29 2b 28 31 3c 3c  |<<9)+(1<<1)+(1<<|
00004a10  30 29 0d 24 c2 15 21 74  62 6c 6f 63 6b 25 3d 73  |0).$..!tblock%=s|
00004a20  63 72 61 74 63 68 25 0d  24 cc 15 74 62 6c 6f 63  |cratch%.$..tbloc|
00004a30  6b 25 21 34 3d 73 63 73  69 7a 65 25 0d 24 d6 04  |k%!4=scsize%.$..|
00004a40  0d 24 e0 2b f2 6e 65 77  74 65 78 74 28 73 74 61  |.$.+.newtext(sta|
00004a50  74 75 73 68 61 6e 64 6c  65 25 2c 30 2c 22 55 70  |tushandle%,0,"Up|
00004a60  64 61 74 69 6e 67 2e 2e  2e 22 29 0d 24 ea 31 c8  |dating...").$.1.|
00004a70  99 20 22 4f 53 5f 46 53  43 6f 6e 74 72 6f 6c 22  |. "OS_FSControl"|
00004a80  2c 32 36 2c 75 64 24 2c  66 6e 24 2c 6f 70 74 25  |,26,ud$,fn$,opt%|
00004a90  2c 2c 2c 2c 2c 74 62 6c  6f 63 6b 25 0d 24 f4 04  |,,,,,tblock%.$..|
00004aa0  0d 24 fe 18 21 74 62 6c  6f 63 6b 25 3d 61 63 74  |.$..!tblock%=act|
00004ab0  69 6f 6e 77 69 6e 64 25  0d 25 08 23 c8 99 20 22  |ionwind%.%.#.. "|
00004ac0  57 69 6d 70 5f 44 65 6c  65 74 65 57 69 6e 64 6f  |Wimp_DeleteWindo|
00004ad0  77 22 2c 2c 74 62 6c 6f  63 6b 25 0d 25 12 11 61  |w",,tblock%.%..a|
00004ae0  63 74 69 6f 6e 74 79 70  65 25 3d 30 0d 25 1c 04  |ctiontype%=0.%..|
00004af0  0d 25 26 35 77 61 69 74  69 6e 67 25 3d 30 3a f2  |.%&5waiting%=0:.|
00004b00  6e 65 77 74 65 78 74 28  73 74 61 74 75 73 68 61  |newtext(statusha|
00004b10  6e 64 6c 65 25 2c 30 2c  22 57 6f 72 6b 69 6e 67  |ndle%,0,"Working|
00004b20  2e 2e 2e 22 29 0d 25 30  1b f2 6f 70 65 6e 6c 61  |...").%0..openla|
00004b30  72 67 65 28 62 61 63 6b  68 61 6e 64 6c 65 25 29  |rge(backhandle%)|
00004b40  0d 25 3a 04 0d 25 44 05  cd 0d 25 4e 04 0d 25 58  |.%:..%D...%N..%X|
00004b50  15 e7 20 61 63 74 69 6f  6e 74 79 70 65 25 3d 37  |.. actiontype%=7|
00004b60  20 8c 0d 25 62 2d e7 20  62 6c 6f 63 6b 25 21 34  | ..%b-. block%!4|
00004b70  30 3c 3e 26 32 30 30 30  20 80 20 62 6c 6f 63 6b  |0<>&2000 . block|
00004b80  25 21 34 30 3c 3e 26 31  30 30 30 20 8c 20 e1 0d  |%!40<>&1000 . ..|
00004b90  25 6c 29 ff 20 22 53 45  54 20 53 65 74 75 70 24  |%l). "SET Setup$|
00004ba0  44 69 72 20 22 2b a4 67  65 74 73 74 72 28 62 6c  |Dir "+.getstr(bl|
00004bb0  6f 63 6b 25 2b 34 34 29  0d 25 76 04 0d 25 80 2a  |ock%+44).%v..%.*|
00004bc0  c8 99 20 22 58 4f 53 5f  46 69 6c 65 22 2c 31 37  |.. "XOS_File",17|
00004bd0  2c 73 77 61 70 66 69 6c  65 24 20 b8 20 74 79 70  |,swapfile$ . typ|
00004be0  65 25 3b 73 73 25 0d 25  8a 17 e7 20 28 73 73 25  |e%;ss%.%... (ss%|
00004bf0  20 80 20 31 29 20 74 79  70 65 25 3d 30 0d 25 94  | . 1) type%=0.%.|
00004c00  04 0d 25 9e 10 e7 20 74  79 70 65 25 3c 3e 30 20  |..%... type%<>0 |
00004c10  8c 0d 25 a8 17 21 62 6c  6f 63 6b 25 3d 61 63 74  |..%..!block%=act|
00004c20  69 6f 6e 77 69 6e 64 25  0d 25 b2 22 c8 99 20 22  |ionwind%.%.".. "|
00004c30  57 69 6d 70 5f 44 65 6c  65 74 65 57 69 6e 64 6f  |Wimp_DeleteWindo|
00004c40  77 22 2c 2c 62 6c 6f 63  6b 25 0d 25 bc 11 61 63  |w",,block%.%..ac|
00004c50  74 69 6f 6e 77 69 6e 64  25 3d 30 0d 25 c6 11 61  |tionwind%=0.%..a|
00004c60  63 74 69 6f 6e 74 79 70  65 25 3d 30 0d 25 d0 0e  |ctiontype%=0.%..|
00004c70  77 61 69 74 69 6e 67 25  3d a3 0d 25 da 04 0d 25  |waiting%=..%...%|
00004c80  e4 1b f2 6f 70 65 6e 6c  61 72 67 65 28 62 61 63  |...openlarge(bac|
00004c90  6b 68 61 6e 64 6c 65 25  29 0d 25 ee 05 cc 0d 25  |khandle%).%....%|
00004ca0  f8 1f ff 20 22 53 45 54  20 53 65 74 75 70 24 44  |... "SET Setup$D|
00004cb0  69 72 20 41 44 46 53 3a  3a 30 2e 24 22 0d 26 02  |ir ADFS::0.$".&.|
00004cc0  07 ef 20 37 0d 26 0c 05  cd 0d 26 16 04 0d 26 20  |.. 7.&....&...& |
00004cd0  05 cd 0d 26 2a 05 e1 0d  26 34 05 3a 0d 26 3e 0e  |...&*...&4.:.&>.|
00004ce0  dd f2 73 77 61 70 64 69  73 63 0d 26 48 2c 73 77  |..swapdisc.&H,sw|
00004cf0  61 70 66 69 6c 65 24 3d  22 3c 53 65 74 75 70 24  |apfile$="<Setup$|
00004d00  44 69 72 3e 2e 46 69 6c  65 73 2e 22 2b 63 6c 69  |Dir>.Files."+cli|
00004d10  6e 65 24 28 31 29 0d 26  52 25 c8 99 20 22 4f 53  |ne$(1).&R%.. "OS|
00004d20  5f 46 69 6c 65 22 2c 31  37 2c 73 77 61 70 66 69  |_File",17,swapfi|
00004d30  6c 65 24 20 b8 20 74 79  70 65 25 0d 26 5c 04 0d  |le$ . type%.&\..|
00004d40  26 66 0f e7 20 74 79 70  65 25 3d 30 20 8c 0d 26  |&f.. type%=0 ..&|
00004d50  70 09 77 24 3d 22 22 0d  26 7a 13 e3 20 78 25 3d  |p.w$="".&z.. x%=|
00004d60  32 20 b8 20 77 6f 72 64  73 25 0d 26 84 16 77 24  |2 . words%.&..w$|
00004d70  2b 3d 63 6c 69 6e 65 24  28 78 25 29 2b 22 20 22  |+=cline$(x%)+" "|
00004d80  0d 26 8e 05 ed 0d 26 98  11 77 24 3d a4 73 74 72  |.&....&..w$=.str|
00004d90  69 70 28 77 24 29 0d 26  a2 04 0d 26 ac 30 c8 99  |ip(w$).&...&.0..|
00004da0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00004db0  64 6f 77 22 2c 2c 77 5f  6d 73 67 25 20 b8 20 61  |dow",,w_msg% . a|
00004dc0  63 74 69 6f 6e 77 69 6e  64 25 0d 26 b6 1c 61 63  |ctionwind%.&..ac|
00004dd0  74 69 6f 6e 74 79 70 65  25 3d 37 3a 77 61 69 74  |tiontype%=7:wait|
00004de0  69 6e 67 25 3d b9 0d 26  c0 1c f2 6f 70 65 6e 77  |ing%=..&...openw|
00004df0  69 6e 64 6f 77 28 61 63  74 69 6f 6e 77 69 6e 64  |indow(actionwind|
00004e00  25 29 0d 26 ca 1e f2 6e  65 77 74 65 78 74 28 61  |%).&...newtext(a|
00004e10  63 74 69 6f 6e 77 69 6e  64 25 2c 30 2c 77 24 29  |ctionwind%,0,w$)|
00004e20  0d 26 d4 04 0d 26 de 1f  ff 20 22 53 45 54 20 53  |.&...&... "SET S|
00004e30  65 74 75 70 24 44 69 72  20 41 44 46 53 3a 3a 30  |etup$Dir ADFS::0|
00004e40  2e 24 22 0d 26 e8 1c f2  6f 70 65 6e 73 68 72 75  |.$".&...openshru|
00004e50  6e 6b 28 62 61 63 6b 68  61 6e 64 6c 65 25 29 0d  |nk(backhandle%).|
00004e60  26 f2 05 cd 0d 26 fc 05  e1 0d 27 06 05 3a 0d 27  |&....&....'..:.'|
00004e70  10 11 dd f2 64 65 6c 65  74 65 28 66 6e 24 29 0d  |....delete(fn$).|
00004e80  27 1a 10 e7 20 66 6e 24  3d 22 22 20 8c 20 e1 0d  |'... fn$="" . ..|
00004e90  27 24 2b c8 99 20 22 4f  53 5f 46 53 43 6f 6e 74  |'$+.. "OS_FSCont|
00004ea0  72 6f 6c 22 2c 32 37 2c  66 6e 24 2c 2c 28 31 3c  |rol",27,fn$,,(1<|
00004eb0  3c 30 29 2b 28 31 3c 3c  31 29 0d 27 2e 05 e1 0d  |<0)+(1<<1).'....|
00004ec0  27 38 05 3a 0d 27 42 16  dd f2 63 6f 6d 70 61 72  |'8.:.'B...compar|
00004ed0  65 28 66 31 24 2c 66 32  24 29 0d 27 4c 15 ea 20  |e(f1$,f2$).'L.. |
00004ee0  6c 65 61 66 64 61 74 65  25 2c 78 25 2c 79 25 0d  |leafdate%,x%,y%.|
00004ef0  27 56 2a 78 25 3d a4 63  68 65 63 6b 66 69 6c 65  |'V*x%=.checkfile|
00004f00  28 66 31 24 29 3a 6c 65  61 66 64 61 74 65 25 3d  |(f1$):leafdate%=|
00004f10  66 69 6c 65 64 61 74 65  25 0d 27 60 16 79 25 3d  |filedate%.'`.y%=|
00004f20  a4 63 68 65 63 6b 66 69  6c 65 28 66 32 24 29 0d  |.checkfile(f2$).|
00004f30  27 6a 04 0d 27 74 1b e7  20 66 69 6c 65 64 61 74  |'j..'t.. filedat|
00004f40  65 25 3e 6c 65 61 66 64  61 74 65 25 20 8c 0d 27  |e%>leafdate% ..'|
00004f50  7e 0e 21 74 62 6c 6f 63  6b 25 3d 30 0d 27 88 04  |~.!tblock%=0.'..|
00004f60  0d 27 92 09 77 24 3d 22  22 0d 27 9c 13 e3 20 78  |.'..w$="".'... x|
00004f70  25 3d 33 20 b8 20 77 6f  72 64 73 25 0d 27 a6 16  |%=3 . words%.'..|
00004f80  77 24 2b 3d 63 6c 69 6e  65 24 28 78 25 29 2b 22  |w$+=cline$(x%)+"|
00004f90  20 22 0d 27 b0 05 ed 0d  27 ba 11 77 24 3d a4 73  | ".'....'..w$=.s|
00004fa0  74 72 69 70 28 77 24 29  0d 27 c4 04 0d 27 ce 13  |trip(w$).'...'..|
00004fb0  24 28 74 62 6c 6f 63 6b  25 2b 34 29 3d 77 24 0d  |$(tblock%+4)=w$.|
00004fc0  27 d8 45 c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |'.E.. "Wimp_Repo|
00004fd0  72 74 45 72 72 6f 72 22  2c 74 62 6c 6f 63 6b 25  |rtError",tblock%|
00004fe0  2c 25 31 30 30 31 31 2c  22 51 75 65 72 79 20 66  |,%10011,"Query f|
00004ff0  72 6f 6d 20 53 65 74 75  70 22 20 b8 20 2c 63 6c  |rom Setup" . ,cl|
00005000  69 63 6b 25 0d 27 e2 18  e7 20 63 6c 69 63 6b 25  |ick%.'... click%|
00005010  3d 32 20 8c 20 71 75 69  74 25 3d b9 0d 27 ec 05  |=2 . quit%=..'..|
00005020  cd 0d 27 f6 04 0d 28 00  05 e1 0d ff              |..'...(.....|
0000502c