Home » Archimedes archive » Acorn User » AU 1997-10 A.adf » Extras » Apple][e/PD/FileAct/!FileAct/!RunImage
Apple][e/PD/FileAct/!FileAct/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1997-10 A.adf » Extras |
| Filename: | Apple][e/PD/FileAct/!FileAct/!RunImage |
| Read OK: | ✔ |
| File size: | 1814 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM>!RunImage
2ONERRORPROCa(ERR,""):END
3PROCj:PROCk:ONERRORPROCa(ERR,"")
4REPEAT:SYSaa%,F%,b%TOba%:CASEba%OF
5WHEN0:PROCl
6WHEN2:PROCm
7WHEN3:PROCn
8WHEN6:PROCo
9WHEN8:PROCp
10WHEN9:PROCq
11WHEN17,18:PROCr
12ENDCASE
13UNTILFALSE
14DEFPROCl:IFINKEY(-8)THENIFINKEY(-9)THENSYSca%,-1:ENDPROC
15SYSda%,,a%:IF!a%<>-1THENENDPROC
16q%=1:c=FALSE:G%=(-INKEY(-1))<<0OR(-INKEY(-2))<<1OR(-INKEY(-3))<<2:WHILEq%<=m%ANDNOTc:IFb%(q%)=G%THENIFINKEY(c%(q%))THENc=TRUE:SYST%,b$(q%)
17q%+=1:ENDWHILE:ENDPROC
18DEFPROCm:e%=b%!0:CASEe%OF
19WHENn%,c%:SYSU%,1,b%
20ENDCASE
21ENDPROC
22DEFPROCn:e%=b%!0:CASEe%OF
23WHENn%,c%:SYSea%,,b%
24ENDCASE
25ENDPROC
26DEFPROCo:fa%=b%!8:e%=b%!12:I%=b%!16:CASEe%OF
27WHEN-2:IFI%=ga%ELSEENDPROC
28CASEfa%AND7OF
29WHENha%:o$="FileAct"+CHR$1+"Info"+CHR$2+"w"+CHR$3+CHR$1+"Control"+CHR$2+"w"+CHR$3+CHR$1+"Status"+CHR$2+"^Status"+CHR$1+"Save"+CHR$1+"Load"+CHR$1+"Default"+CHR$1+"Kill"+CHR$3+CHR$1+"Quit":a%!0=n%:a%!4=c%:SYSia%,o$,x%,X%,a%TO,,,,,H%:SYSja%,1,x%,H%
30ENDCASE
31ENDCASE
32ENDPROC
33DEFPROCp:e%=b%!0:CASEe%OF
34WHENn%,c%:SYSka%,b%!24
35ENDCASE
36ENDPROC
37DEFPROCq:SYSla%,x%,b%TOp$,q$:CASEp$OF
38WHEN"Quit":PROCb
39WHEN"Control":SYSU%,26,c%,a%(3)
40WHEN"Status":CASEq$OF
41WHEN"Save":PROCf(1)
42WHEN"Load":PROCc(1)
43WHEN"Default":PROCc(2)
44WHEN"Kill":PROCf(2)
45ENDCASE
46ENDCASE
47SYSma%,,a%:IF(a%!8)ANDna%THENSYSoa%,,x%
48ENDPROC
49DEFPROCr:pa%=b%!4:Y%=b%!16:e%=b%!20:I%=b%!24:CASEY%OF
50WHEN0:PROCb
51WHEN3,5:SYSZ%,b%+44TOa$:qa%=b%!40:g%=0:CASEY%OF
52WHEN3:CASEe%OF
53WHEN-2:g%=FNb
54WHENc%:g%=l%:WHILE(g%>0)AND(a%(g%)<>I%):g%-=1:ENDWHILE
55ENDCASE
56WHEN5:CASETRUEOF
57WHENINKEY(-3):g%=FNc
58WHENINKEY(-2):g%=FNd
59ENDCASE
60ENDCASE
61IFg%<=1THENENDPROC
62ra%=g%:SYS_%,5,a$TOo%;f%:IF(f%AND1<<0)<>0THENENDPROC
63IF(o%AND1<<1)<>0ANDFNfTHEN
64PROCg(a$)
65ELSE:PROCd(a$)
66ENDIF
67SYSsa%,4,b%
68ENDCASE
69ENDPROC
70DEFPROCg(g$):LOCALh%,a$::h%=0:PROCd(g$):REPEAT:SYSta%,10,g$,a%,1,h%,256,"*"TO,,,,h%:IFh%<>-1THEN
71SYSZ%,a%+20TOa$:IF((a%!16)AND1<<1)<>0THEN
72PROCg(g$+"."+a$)
73ELSE:PROCd(g$+"."+a$)
74ENDIF
75ENDIF
76UNTILh%=-1:ENDPROC
77DEFPROCd(a$)::SYSua%,37,a$,a%,,,y%TO,,a$:SYSva%,"FileAct$ObName",a$,LENa$,0,4:PROCs(a$,FNe(ra%)):ENDPROC
78DEFPROCs(a$,r$):LOCALh$,i$,l$,j$,m$:LOCALs$,p%,c$,r%,s%,z%::s$=a$:p%=LENs$:WHILE(MID$(s$,p%,1)<>".")AND(p%>0):p%-=1:ENDWHILE:j$=MID$(s$,p%+1):m$=LEFT$(s$,p%-1):h$="":p%=INSTR(s$,":"):IFp%>1THEN
79h$=LEFT$(a$,p%-1):s$=MID$(s$,p%+1)
80ENDIF
81i$="":IFLEFT$(s$,1)=":"THEN
82p%=INSTR(s$,"."):IFp%>0THENi$=MID$(s$,2,p%-2):s$=MID$(s$,p%+1)
83ENDIF
84l$=LEFT$(s$,LENs$-LENj$-1):c$=r$:p%=INSTR(c$,"%"):WHILEp%>0:s$=MID$(c$,p%+1,1):IF(s$>="A")AND(s$<="Z")THEN
85r%=VALMID$(c$,p%+2,3):s%=VALMID$(c$,p%+5,3):z%=8
86ELSE:z%=2:s$=CHR$(ASCs$-32)
87ENDIF
88CASEs$OF
89WHEN"S":s$=h$
90WHEN"M":s$=i$
91WHEN"D":s$=l$
92WHEN"L":s$=j$
93WHEN"P":s$=m$
94WHEN"F":s$=a$
95OTHERWISE:s$=""
96ENDCASE
97IFz%=8THEN
98IFr%<=0THENr%=LENs$+r%
99IFs%<=0THENs%=LENs$+s%
100s$=MID$(s$,r%,s%)
101ENDIF
102c$=LEFT$(c$,p%-1)+s$+MID$(c$,p%+z%):p%=INSTR(c$,"%"):ENDWHILE:SYST%,c$:ENDPROC
103DEFPROCk:::`%=0:n$="FileAct":k$="<FileAct$Dir>.Status":wa%=256:y%=2048:PROCt("<FileAct$Dir>.Templates",D%,V%):IFy%<V%THENy%=V%
104X%=512:xa%=1536:ya%=256:l%=8:DIMb% wa%:DIMa% y%:DIMx% X%:DIMza% xa%:DIMj% ya%:DIMa%(l%):FORd%=0TOya%-1:j%?d%=0:NEXT:PROCu:::P%=a%:[OPT0:EQUD3:EQUD5:EQUD0: ]:SYS"Wimp_Initialise",310,&4B534154,n$,a%TOV%,`%:IFV%<310THENPROCa(-2,"Sorry, I need WIMP 3.10 or later."):END
105ga%=FNg("!fileact"):::SYS"Wimp_OpenTemplate",,"<FileAct$Dir>.Templates":A%=za%:Aa%=za%+xa%:SYSBa%,1,a%,A%,Aa%,-1,"info",0TOn%,,A%:SYSJ%,n%,6,t$:SYSJ%,n%,7,u$:B%=39:Ca%=1:Da%=2:Ea%=3:FORd%=1TOl%:a%(d%)=28+d%:NEXT
106SYSBa%,1,a%,A%,Aa%,-1,"control",0TOc%,,A%:SYS"Wimp_CloseTemplate":::m%=0:d$=FNh("FileAct$KeyActDir")+".KeyDefs":IFd$<>""THEN
107SYS_%,5,d$TOo%;f%:IF(f%AND1<<0)<>0OR(o%AND1<<0)=0THENd$=""
108ENDIF
109IFd$<>""THEN
110a=OPENIN(d$):FORFa%=1TO2:t%=0:PTR#a=0:WHILENOTEOF#a:b$=GET$#a:IFINSTR("nsca",LEFT$(b$,1))>0THEN
111RESTORE+0
112DATA TAB,96
113DATA A,65
114DATA B,100
115DATA C,82
116DATA D,50
117DATA E,34
118DATA F,67
119DATA G,83
120DATA H,84
121DATA I,37
122DATA J,69
123DATA K,70
124DATA L,86
125DATA M,101
126DATA N,85
127DATA O,54
128DATA P,55
129DATA Q,16
130DATA R,51
131DATA S,81
132DATA T,35
133DATA U,53
134DATA V,99
135DATA W,33
136DATA X,66
137DATA Y,68
138DATA Z,97
139DATA 0,39
140DATA 1,48
141DATA 2,49
142DATA 3,17
143DATA 4,18
144DATA 5,19
145DATA 6,52
146DATA 7,36
147DATA 8,21
148DATA 9,38
149DATA "",0
150REPEAT:READe$,Ga%:c=(MID$(b$,2,LEN(e$))=e$):UNTIL(e$="")ORc:IFe$<>""THEN
151G%=INSTR("nsc?a???",LEFT$(b$,1))-1:b$=MID$(b$,LEN(e$)+3):t%+=1:IFFa%=2THEN
152b%(t%)=G%:c%(t%)=-Ga%-1:b$(t%)=b$
153ENDIF
154ENDIF
155ENDIF
156ENDWHILE:IFFa%=1THEN
157m%=t%:DIMb%(m%):DIMc%(m%):DIMb$(m%)
158ENDIF
159NEXT:CLOSE#a
160ENDIF
161::na%=1<<0:ha%=1<<1:Ha%=1<<2:F%=1<<4OR1<<5OR1<<11OR1<<12:IFm%=0THENF%=F%OR1<<0
162PROCc(3)::ENDPROC
163DEFPROCc(C%):LOCALa:LOCALK%,L%,N%:LOCALa$():LOCALd%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCv:PROCa(ERR,""):ENDPROC
164DIMa$(l%)::j%?B%=0:K%=1:L%=1:N%=1:a$()="":a$(2)="Echo %f":a$(3)="SetType %f Text":a$(4)="SetType %f Data":a$(5)="Stamp %f":a$(6)="Access %f WR":a$(7)="Rename %f %p.%L001-01":a$(8)="FileInfo %f.*":CASEC%OF
165WHEN1,3:a=OPENIN(k$):IFa<>0THEN
166PROCw(a):INPUT#a,j%?B%:INPUT#a,K%:INPUT#a,L%:INPUT#a,N%:FORd%=2TOl%:INPUT#a,a$(d%):NEXT:PROCx
167ELSE:IFC%=1THENPROCa(-3,"I cannot find my status. Have you saved it ?"):ENDPROC
168ENDIF
169ENDCASE
170SYSIa%,c%,j%:PROCy(K%):PROCz(L%):PROCA(N%):FORd%=2TOl%:SYSJ%,c%,a%(d%),a$(d%):NEXT:ENDPROC
171DEFPROCf(C%):LOCALb:LOCALd%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCB:PROCa(ERR,""):ENDPROC
172:CASEC%OF
173WHEN1:PROCC(k$):b=FNi:SYSJa%,c%,j%:PRINT#b,j%?B%:PRINT#b,FNb:PRINT#b,FNc:PRINT#b,FNd:FORd%=2TOl%:PRINT#b,FNe(d%):NEXT:PROCD
174WHEN2:SYSKa%,6,k$
175ENDCASE
176ENDPROC
177DEFFNj(u%):SYSJa%,c%,j%:=(j%?u%)=1
178DEFPROCe(u%,v%):SYSLa%,c%,u%,v%:ENDPROC
179DEFFNa(v%):SYSMa%,c%,v%TO,,v%:=v%
180DEFPROCy(v%):PROCe(Ca%,v%):ENDPROC
181DEFPROCz(v%):PROCe(Da%,v%):ENDPROC
182DEFPROCA(v%):PROCe(Ea%,v%):ENDPROC
183DEFFNf:=FNj(B%)
184DEFFNb:=FNa(Ca%)
185DEFFNc:=FNa(Da%)
186DEFFNd:=FNa(Ea%)
187DEFFNe(u%):SYSNa%,c%,a%(u%)TO,,V$:=V$
188DEFPROCa(E%,f$):LOCALw%,Oa%:LOCALERROR:ONERRORLOCALRESTOREERROR:VDU7:QUIT
189:IFf$=""THENf$=REPORT$
190IFE%>=0THENf$="Unexpected error '"+f$+"' (code "+STR$ERL+")"
191IFE%<0THENa%!0=0ELSEa%!0=E%
192$(a%+4)=f$+CHR$0:CASEE%OF
193WHEN-1:w%=5
194WHEN-2:w%=6
195WHEN-3:w%=21
196OTHERWISE:w%=7
197ENDCASE
198SYSPa%,a%,w%,n$TO,Oa%:IFOa%=2THENPROCb
199ENDPROC
200DEFPROCb::SYS"XWimp_CloseDown",`%,&4B534154:END
201DEFFNg(a$)::SYSQa%,40,,a$TO,,,W%,H%,,M%:SYSRa%,M%,4TO,,V%:W%=W%<<V%:SYSRa%,M%,5TO,,V%:H%=H%<<V%:O%=H%-68:P%=Sa%:[OPT0:EQUD-1:EQUD0:EQUD-O%/2:EQUD W%:EQUD68+O%/2:EQUD654323714:EQUS a$+STRING$(12-LENa$,CHR$0): ]:SYSTa%,,Sa%TOH%:=H%
202DEFFNh(a$)::SYSUa%,a$,STRING$(255,CHR$0),255,0,3TO,V$:=V$
203DEFFNi::=i%
204DEFPROCt(a$,RETURNVa%,RETURNQ%):LOCALa,h%,R%::Va%=0:Q%=0:a=OPENIN(a$):PTR#a=16:REPEAT:h%=BGET#aORBGET#a<<8ORBGET#a<<16ORBGET#a<<24:IFh%<>0THEN
205Va%+=1:R%=BGET#aORBGET#a<<8ORBGET#a<<16ORBGET#a<<24:IFR%>Q%THENQ%=R%
206PTR#a=16+PTR#a
207ENDIF
208UNTILh%=0:CLOSE#a:ENDPROC
209DEFPROCu::k%=0:i%=0:ENDPROC
210DEFPROCv::PROCh(TRUE):ENDPROC
211DEFPROCw(Wa%)::k%=Wa%:ENDPROC
212DEFPROCx::PROCh(FALSE):ENDPROC
213DEFPROCB::PROCi(TRUE):ENDPROC
214DEFPROCC(a$)::SYSS%,128+15,a$TOi%:ENDPROC
215DEFPROCD::PROCi(FALSE):ENDPROC
216DEFPROCh(d)::IFk%<>0THEN
217IFdTHEN
218SYSXa%,0,k%
219ELSE:SYSS%,0,k%
220ENDIF
221IFi%=k%THENi%=0
222k%=0
223ENDIF
224ENDPROC
225DEFPROCi(d)::IFi%<>0THEN
226IFdTHEN
227SYSXa%,0,i%
228ELSE:SYSS%,0,i%
229ENDIF
230IFk%=i%THENk%=0
231i%=0
232ENDIF
233ENDPROC
234DEFPROCj::Ya%=256:DIMSa% Ya%:t$="� Zeridajh 1990..1997":u$="2.20 (04 Apr 1997)":aa%=262343:ca%=262354:da%=262355:T%=262366:U%=301204:ea%=262342:ia%=301206:ja%=301207:ka%=262364:la%=301208:ma%=262351:oa%=262356:Z%=301199:_%=131080
235sa%=301210:ta%=12:ua%=41:va%=36:Ba%=301205:J%=301185:Ia%=301197:Ja%=301196:Ka%=8:La%=301195:Ma%=301194:Na%=301184:Pa%=262367:Qa%=262377:Ra%=53:Ta%=262338:Ua%=131107:S%=13:Xa%=131085:ENDPROC
�>!RunImage
��a(�,""):�
�j:�k:��a(�,"")
�:șaa%,F%,b%�ba%:Ȏba%�
�0:�l
�2:�m
�3:�n
�6:�o
�8:�p
�9:�q
�17,18:�r
�
��
��l:�(-8)��(-9)�șca%,-1:�
șda%,,a%:�!a%<>-1��
eq%=1:c=�:G%=(-�(-1))<<0�(-�(-2))<<1�(-�(-3))<<2:ȕq%<=m%��c:�b%(q%)=G%��(c%(q%))�c=�:șT%,b$(q%)
q%+=1:�:�
��m:e%=b%!0:Ȏe%�
�n%,c%:șU%,1,b%
�
�
��n:e%=b%!0:Ȏe%�
�n%,c%:șea%,,b%
�
�
(��o:fa%=b%!8:e%=b%!12:I%=b%!16:Ȏe%�
�-2:�I%=ga%��
Ȏfa%�7�
��ha%:o$="FileAct"+�1+"Info"+�2+"w"+�3+�1+"Control"+�2+"w"+�3+�1+"Status"+�2+"^Status"+�1+"Save"+�1+"Load"+�1+"Default"+�1+"Kill"+�3+�1+"Quit":a%!0=n%:a%!4=c%:șia%,o$,x%,X%,a%�,,,,,H%:șja%,1,x%,H%
�
�
�
!��p:e%=b%!0:Ȏe%�
"�n%,c%:șka%,b%!24
#�
$�
% ��q:șla%,x%,b%�p$,q$:Ȏp$�
&�"Quit":�b
' �"Control":șU%,26,c%,a%(3)
(�"Status":Ȏq$�
)�"Save":�f(1)
*�"Load":�c(1)
+�"Default":�c(2)
,�"Kill":�f(2)
-�
.�
/#șma%,,a%:�(a%!8)�na%�șoa%,,x%
0�
11��r:pa%=b%!4:Y%=b%!16:e%=b%!20:I%=b%!24:ȎY%�
2 �0:�b
3+�3,5:șZ%,b%+44�a$:qa%=b%!40:g%=0:ȎY%�
4 �3:Ȏe%�
5
�-2:g%=�b
6+�c%:g%=l%:ȕ(g%>0)�(a%(g%)<>I%):g%-=1:�
7�
8 �5:Ȏ��
9ɦ(-3):g%=�c
:ɦ(-2):g%=�d
;�
<�
= �g%<=1��
>*ra%=g%:ș_%,5,a$�o%;f%:�(f%�1<<0)<>0��
?�(o%�1<<1)<>0��f�
@
�g(a$)
A �:�d(a$)
B�
Cșsa%,4,b%
D�
E�
FM��g(g$):�h%,a$::h%=0:�d(g$):�:șta%,10,g$,a%,1,h%,256,"*"�,,,,h%:�h%<>-1�
G%șZ%,a%+20�a$:�((a%!16)�1<<1)<>0�
H�g(g$+"."+a$)
I�:�d(g$+"."+a$)
J�
K�
L �h%=-1:�
MX��d(a$)::șua%,37,a$,a%,,,y%�,,a$:șva%,"FileAct$ObName",a$,�a$,0,4:�s(a$,�e(ra%)):�
N���s(a$,r$):�h$,i$,l$,j$,m$:�s$,p%,c$,r%,s%,z%::s$=a$:p%=�s$:ȕ(�s$,p%,1)<>".")�(p%>0):p%-=1:�:j$=�s$,p%+1):m$=�s$,p%-1):h$="":p%=�s$,":"):�p%>1�
O h$=�a$,p%-1):s$=�s$,p%+1)
P�
Qi$="":�s$,1)=":"�
R1p%=�s$,"."):�p%>0�i$=�s$,2,p%-2):s$=�s$,p%+1)
S�
TSl$=�s$,�s$-�j$-1):c$=r$:p%=�c$,"%"):ȕp%>0:s$=�c$,p%+1,1):�(s$>="A")�(s$<="Z")�
U(r%=��c$,p%+2,3):s%=��c$,p%+5,3):z%=8
V�:z%=2:s$=�(�s$-32)
W�
X Ȏs$�
Y�"S":s$=h$
Z�"M":s$=i$
[�"D":s$=l$
\�"L":s$=j$
]�"P":s$=m$
^�"F":s$=a$
_ :s$=""
`�
a
�z%=8�
b�r%<=0�r%=�s$+r%
c�s%<=0�s%=�s$+s%
ds$=�s$,r%,s%)
e�
f6c$=�c$,p%-1)+s$+�c$,p%+z%):p%=�c$,"%"):�:șT%,c$:�
gv��k:::`%=0:n$="FileAct":k$="<FileAct$Dir>.Status":wa%=256:y%=2048:�t("<FileAct$Dir>.Templates",D%,V%):�y%<V%�y%=V%
h�X%=512:xa%=1536:ya%=256:l%=8:�b% wa%:�a% y%:�x% X%:�za% xa%:�j% ya%:�a%(l%):�d%=0�ya%-1:j%?d%=0:�:�u:::P%=a%:[OPT0:EQUD3:EQUD5:EQUD0: ]:ș"Wimp_Initialise",310,&4B534154,n$,a%�V%,`%:�V%<310��a(-2,"Sorry, I need WIMP 3.10 or later."):�
i�ga%=�g("!fileact"):::ș"Wimp_OpenTemplate",,"<FileAct$Dir>.Templates":A%=za%:Aa%=za%+xa%:șBa%,1,a%,A%,Aa%,-1,"info",0�n%,,A%:șJ%,n%,6,t$:șJ%,n%,7,u$:B%=39:Ca%=1:Da%=2:Ea%=3:�d%=1�l%:a%(d%)=28+d%:�
jxșBa%,1,a%,A%,Aa%,-1,"control",0�c%,,A%:ș"Wimp_CloseTemplate":::m%=0:d$=�h("FileAct$KeyActDir")+".KeyDefs":�d$<>""�
k3ș_%,5,d$�o%;f%:�(f%�1<<0)<>0�(o%�1<<0)=0�d$=""
l�
m �d$<>""�
nAa=�(d$):�Fa%=1�2:t%=0:�#a=0:ȕ��#a:b$=�#a:�"nsca",�b$,1))>0�
o�+0
p � TAB,96
q
� A,65
r � B,100
s
� C,82
t
� D,50
u
� E,34
v
� F,67
w
� G,83
x
� H,84
y
� I,37
z
� J,69
{
� K,70
|
� L,86
} � M,101
~
� N,85
� O,54
�
� P,55
�
� Q,16
�
� R,51
�
� S,81
�
� T,35
�
� U,53
�
� V,99
�
� W,33
�
� X,66
�
� Y,68
�
� Z,97
�
� 0,39
�
� 1,48
�
� 2,49
�
� 3,17
�
� 4,18
�
� 5,19
�
� 6,52
�
� 7,36
�
� 8,21
�
� 9,38
�
� "",0
�5�:�e$,Ga%:c=(�b$,2,�(e$))=e$):�(e$="")�c:�e$<>""�
�:G%=�"nsc?a???",�b$,1))-1:b$=�b$,�(e$)+3):t%+=1:�Fa%=2�
�%b%(t%)=G%:c%(t%)=-Ga%-1:b$(t%)=b$
��
��
��
�
�:�Fa%=1�
�!m%=t%:�b%(m%):�c%(m%):�b$(m%)
��
� �:�#a
��
�J::na%=1<<0:ha%=1<<1:Ha%=1<<2:F%=1<<4�1<<5�1<<11�1<<12:�m%=0�F%=F%�1<<0
� �c(3)::�
�9��c(C%):�a:�K%,L%,N%:�a$():�d%:�:��:�v:�a(�,""):�
���a$(l%)::j%?B%=0:K%=1:L%=1:N%=1:a$()="":a$(2)="Echo %f":a$(3)="SetType %f Text":a$(4)="SetType %f Data":a$(5)="Stamp %f":a$(6)="Access %f WR":a$(7)="Rename %f %p.%L001-01":a$(8)="FileInfo %f.*":ȎC%�
��1,3:a=�(k$):�a<>0�
�A�w(a):�#a,j%?B%:�#a,K%:�#a,L%:�#a,N%:�d%=2�l%:�#a,a$(d%):�:�x
�C�:�C%=1��a(-3,"I cannot find my status. Have you saved it ?"):�
��
��
�GșIa%,c%,j%:�y(K%):�z(L%):�A(N%):�d%=2�l%:șJ%,c%,a%(d%),a$(d%):�:�
�)��f(C%):�b:�d%:�:��:�B:�a(�,""):�
�
:ȎC%�
�V�1:�C(k$):b=�i:șJa%,c%,j%:�#b,j%?B%:�#b,�b:�#b,�c:�#b,�d:�d%=2�l%:�#b,�e(d%):�:�D
��2:șKa%,6,k$
��
��
�"ݤj(u%):șJa%,c%,j%:=(j%?u%)=1
� ��e(u%,v%):șLa%,c%,u%,v%:�
� ݤa(v%):șMa%,c%,v%�,,v%:=v%
���y(v%):�e(Ca%,v%):�
���z(v%):�e(Da%,v%):�
���A(v%):�e(Ea%,v%):�
�ݤf:=�j(B%)
�ݤb:=�a(Ca%)
�ݤc:=�a(Da%)
�ݤd:=�a(Ea%)
�$ݤe(u%):șNa%,c%,a%(u%)�,,V$:=V$
�%��a(E%,f$):�w%,Oa%:�:��:�7:Ș
�:�f$=""�f$=�$
�7�E%>=0�f$="Unexpected error '"+f$+"' (code "+Þ+")"
��E%<0�a%!0=0�a%!0=E%
�$(a%+4)=f$+�0:ȎE%�
� �-1:w%=5
� �-2:w%=6
�
�-3:w%=21
�
:w%=7
��
�!șPa%,a%,w%,n$�,Oa%:�Oa%=2��b
��
�+��b::ș"XWimp_CloseDown",`%,&4B534154:�
��ݤg(a$)::șQa%,40,,a$�,,,W%,H%,,M%:șRa%,M%,4�,,V%:W%=W%<<V%:șRa%,M%,5�,,V%:H%=H%<<V%:O%=H%-68:P%=Sa%:[OPT0:EQUD-1:EQUD0:EQUD-O%/2:EQUD W%:EQUD68+O%/2:EQUD654323714:EQUS a$+�12-�a$,�0): ]:șTa%,,Sa%�H%:=H%
�.ݤh(a$)::șUa%,a$,�255,�0),255,0,3�,V$:=V$
� ݤi::=i%
�`��t(a$,�Va%,�Q%):�a,h%,R%::Va%=0:Q%=0:a=�(a$):�#a=16:�:h%=�#a��#a<<8��#a<<16��#a<<24:�h%<>0�
�5Va%+=1:R%=�#a��#a<<8��#a<<16��#a<<24:�R%>Q%�Q%=R%
��#a=16+�#a
��
��h%=0:�#a:�
���u::k%=0:i%=0:�
���v::�h(�):�
���w(Wa%)::k%=Wa%:�
���x::�h(�):�
���B::�i(�):�
� ��C(a$)::șS%,128+15,a$�i%:�
���D::�i(�):�
���h(d)::�k%<>0�
��d�
�șXa%,0,k%
��:șS%,0,k%
��
��i%=k%�i%=0
�k%=0
��
��
���i(d)::�i%<>0�
��d�
�șXa%,0,i%
��:șS%,0,i%
��
��k%=i%�k%=0
�i%=0
��
��
����j::Ya%=256:�Sa% Ya%:t$="� Zeridajh 1990..1997":u$="2.20 (04 Apr 1997)":aa%=262343:ca%=262354:da%=262355:T%=262366:U%=301204:ea%=262342:ia%=301206:ja%=301207:ka%=262364:la%=301208:ma%=262351:oa%=262356:Z%=301199:_%=131080
�sa%=301210:ta%=12:ua%=41:va%=36:Ba%=301205:J%=301185:Ia%=301197:Ja%=301196:Ka%=8:La%=301195:Ma%=301194:Na%=301184:Pa%=262367:Qa%=262377:Ra%=53:Ta%=262338:Ua%=131107:S%=13:Xa%=131085:�
� 00000000 0d 00 01 0f f4 3e 21 52 75 6e 49 6d 61 67 65 0d |.....>!RunImage.|
00000010 00 02 10 ee 85 f2 61 28 9f 2c 22 22 29 3a e0 0d |......a(.,""):..|
00000020 00 03 14 f2 6a 3a f2 6b 3a ee 85 f2 61 28 9f 2c |....j:.k:...a(.,|
00000030 22 22 29 0d 00 04 1c f5 3a c8 99 61 61 25 2c 46 |"").....:..aa%,F|
00000040 25 2c 62 25 b8 62 61 25 3a c8 8e 62 61 25 ca 0d |%,b%.ba%:..ba%..|
00000050 00 05 09 c9 30 3a f2 6c 0d 00 06 09 c9 32 3a f2 |....0:.l.....2:.|
00000060 6d 0d 00 07 09 c9 33 3a f2 6e 0d 00 08 09 c9 36 |m.....3:.n.....6|
00000070 3a f2 6f 0d 00 09 09 c9 38 3a f2 70 0d 00 0a 09 |:.o.....8:.p....|
00000080 c9 39 3a f2 71 0d 00 0b 0d c9 31 37 2c 31 38 3a |.9:.q.....17,18:|
00000090 f2 72 0d 00 0c 05 cb 0d 00 0d 06 fd a3 0d 00 0e |.r..............|
000000a0 20 dd f2 6c 3a e7 a6 28 2d 38 29 8c e7 a6 28 2d | ..l:..(-8)...(-|
000000b0 39 29 8c c8 99 63 61 25 2c 2d 31 3a e1 0d 00 0f |9)...ca%,-1:....|
000000c0 18 c8 99 64 61 25 2c 2c 61 25 3a e7 21 61 25 3c |...da%,,a%:.!a%<|
000000d0 3e 2d 31 8c e1 0d 00 10 65 71 25 3d 31 3a 63 3d |>-1.....eq%=1:c=|
000000e0 a3 3a 47 25 3d 28 2d a6 28 2d 31 29 29 3c 3c 30 |.:G%=(-.(-1))<<0|
000000f0 84 28 2d a6 28 2d 32 29 29 3c 3c 31 84 28 2d a6 |.(-.(-2))<<1.(-.|
00000100 28 2d 33 29 29 3c 3c 32 3a c8 95 71 25 3c 3d 6d |(-3))<<2:..q%<=m|
00000110 25 80 ac 63 3a e7 62 25 28 71 25 29 3d 47 25 8c |%..c:.b%(q%)=G%.|
00000120 e7 a6 28 63 25 28 71 25 29 29 8c 63 3d b9 3a c8 |..(c%(q%)).c=.:.|
00000130 99 54 25 2c 62 24 28 71 25 29 0d 00 11 0d 71 25 |.T%,b$(q%)....q%|
00000140 2b 3d 31 3a ce 3a e1 0d 00 12 15 dd f2 6d 3a 65 |+=1:.:.......m:e|
00000150 25 3d 62 25 21 30 3a c8 8e 65 25 ca 0d 00 13 14 |%=b%!0:..e%.....|
00000160 c9 6e 25 2c 63 25 3a c8 99 55 25 2c 31 2c 62 25 |.n%,c%:..U%,1,b%|
00000170 0d 00 14 05 cb 0d 00 15 05 e1 0d 00 16 15 dd f2 |................|
00000180 6e 3a 65 25 3d 62 25 21 30 3a c8 8e 65 25 ca 0d |n:e%=b%!0:..e%..|
00000190 00 17 14 c9 6e 25 2c 63 25 3a c8 99 65 61 25 2c |....n%,c%:..ea%,|
000001a0 2c 62 25 0d 00 18 05 cb 0d 00 19 05 e1 0d 00 1a |,b%.............|
000001b0 28 dd f2 6f 3a 66 61 25 3d 62 25 21 38 3a 65 25 |(..o:fa%=b%!8:e%|
000001c0 3d 62 25 21 31 32 3a 49 25 3d 62 25 21 31 36 3a |=b%!12:I%=b%!16:|
000001d0 c8 8e 65 25 ca 0d 00 1b 11 c9 2d 32 3a e7 49 25 |..e%......-2:.I%|
000001e0 3d 67 61 25 8b e1 0d 00 1c 0c c8 8e 66 61 25 80 |=ga%........fa%.|
000001f0 37 ca 0d 00 1d c9 c9 68 61 25 3a 6f 24 3d 22 46 |7......ha%:o$="F|
00000200 69 6c 65 41 63 74 22 2b bd 31 2b 22 49 6e 66 6f |ileAct"+.1+"Info|
00000210 22 2b bd 32 2b 22 77 22 2b bd 33 2b bd 31 2b 22 |"+.2+"w"+.3+.1+"|
00000220 43 6f 6e 74 72 6f 6c 22 2b bd 32 2b 22 77 22 2b |Control"+.2+"w"+|
00000230 bd 33 2b bd 31 2b 22 53 74 61 74 75 73 22 2b bd |.3+.1+"Status"+.|
00000240 32 2b 22 5e 53 74 61 74 75 73 22 2b bd 31 2b 22 |2+"^Status"+.1+"|
00000250 53 61 76 65 22 2b bd 31 2b 22 4c 6f 61 64 22 2b |Save"+.1+"Load"+|
00000260 bd 31 2b 22 44 65 66 61 75 6c 74 22 2b bd 31 2b |.1+"Default"+.1+|
00000270 22 4b 69 6c 6c 22 2b bd 33 2b bd 31 2b 22 51 75 |"Kill"+.3+.1+"Qu|
00000280 69 74 22 3a 61 25 21 30 3d 6e 25 3a 61 25 21 34 |it":a%!0=n%:a%!4|
00000290 3d 63 25 3a c8 99 69 61 25 2c 6f 24 2c 78 25 2c |=c%:..ia%,o$,x%,|
000002a0 58 25 2c 61 25 b8 2c 2c 2c 2c 2c 48 25 3a c8 99 |X%,a%.,,,,,H%:..|
000002b0 6a 61 25 2c 31 2c 78 25 2c 48 25 0d 00 1e 05 cb |ja%,1,x%,H%.....|
000002c0 0d 00 1f 05 cb 0d 00 20 05 e1 0d 00 21 15 dd f2 |....... ....!...|
000002d0 70 3a 65 25 3d 62 25 21 30 3a c8 8e 65 25 ca 0d |p:e%=b%!0:..e%..|
000002e0 00 22 16 c9 6e 25 2c 63 25 3a c8 99 6b 61 25 2c |."..n%,c%:..ka%,|
000002f0 62 25 21 32 34 0d 00 23 05 cb 0d 00 24 05 e1 0d |b%!24..#....$...|
00000300 00 25 1f dd f2 71 3a c8 99 6c 61 25 2c 78 25 2c |.%...q:..la%,x%,|
00000310 62 25 b8 70 24 2c 71 24 3a c8 8e 70 24 ca 0d 00 |b%.p$,q$:..p$...|
00000320 26 0e c9 22 51 75 69 74 22 3a f2 62 0d 00 27 1f |&.."Quit":.b..'.|
00000330 c9 22 43 6f 6e 74 72 6f 6c 22 3a c8 99 55 25 2c |."Control":..U%,|
00000340 32 36 2c 63 25 2c 61 25 28 33 29 0d 00 28 13 c9 |26,c%,a%(3)..(..|
00000350 22 53 74 61 74 75 73 22 3a c8 8e 71 24 ca 0d 00 |"Status":..q$...|
00000360 29 11 c9 22 53 61 76 65 22 3a f2 66 28 31 29 0d |).."Save":.f(1).|
00000370 00 2a 11 c9 22 4c 6f 61 64 22 3a f2 63 28 31 29 |.*.."Load":.c(1)|
00000380 0d 00 2b 14 c9 22 44 65 66 61 75 6c 74 22 3a f2 |..+.."Default":.|
00000390 63 28 32 29 0d 00 2c 11 c9 22 4b 69 6c 6c 22 3a |c(2)..,.."Kill":|
000003a0 f2 66 28 32 29 0d 00 2d 05 cb 0d 00 2e 05 cb 0d |.f(2)..-........|
000003b0 00 2f 23 c8 99 6d 61 25 2c 2c 61 25 3a e7 28 61 |./#..ma%,,a%:.(a|
000003c0 25 21 38 29 80 6e 61 25 8c c8 99 6f 61 25 2c 2c |%!8).na%...oa%,,|
000003d0 78 25 0d 00 30 05 e1 0d 00 31 31 dd f2 72 3a 70 |x%..0....11..r:p|
000003e0 61 25 3d 62 25 21 34 3a 59 25 3d 62 25 21 31 36 |a%=b%!4:Y%=b%!16|
000003f0 3a 65 25 3d 62 25 21 32 30 3a 49 25 3d 62 25 21 |:e%=b%!20:I%=b%!|
00000400 32 34 3a c8 8e 59 25 ca 0d 00 32 09 c9 30 3a f2 |24:..Y%...2..0:.|
00000410 62 0d 00 33 2b c9 33 2c 35 3a c8 99 5a 25 2c 62 |b..3+.3,5:..Z%,b|
00000420 25 2b 34 34 b8 61 24 3a 71 61 25 3d 62 25 21 34 |%+44.a$:qa%=b%!4|
00000430 30 3a 67 25 3d 30 3a c8 8e 59 25 ca 0d 00 34 0c |0:g%=0:..Y%...4.|
00000440 c9 33 3a c8 8e 65 25 ca 0d 00 35 0d c9 2d 32 3a |.3:..e%...5..-2:|
00000450 67 25 3d a4 62 0d 00 36 2b c9 63 25 3a 67 25 3d |g%=.b..6+.c%:g%=|
00000460 6c 25 3a c8 95 28 67 25 3e 30 29 80 28 61 25 28 |l%:..(g%>0).(a%(|
00000470 67 25 29 3c 3e 49 25 29 3a 67 25 2d 3d 31 3a ce |g%)<>I%):g%-=1:.|
00000480 0d 00 37 05 cb 0d 00 38 0b c9 35 3a c8 8e b9 ca |..7....8..5:....|
00000490 0d 00 39 10 c9 a6 28 2d 33 29 3a 67 25 3d a4 63 |..9...(-3):g%=.c|
000004a0 0d 00 3a 10 c9 a6 28 2d 32 29 3a 67 25 3d a4 64 |..:...(-2):g%=.d|
000004b0 0d 00 3b 05 cb 0d 00 3c 05 cb 0d 00 3d 0c e7 67 |..;....<....=..g|
000004c0 25 3c 3d 31 8c e1 0d 00 3e 2a 72 61 25 3d 67 25 |%<=1....>*ra%=g%|
000004d0 3a c8 99 5f 25 2c 35 2c 61 24 b8 6f 25 3b 66 25 |:.._%,5,a$.o%;f%|
000004e0 3a e7 28 66 25 80 31 3c 3c 30 29 3c 3e 30 8c e1 |:.(f%.1<<0)<>0..|
000004f0 0d 00 3f 15 e7 28 6f 25 80 31 3c 3c 31 29 3c 3e |..?..(o%.1<<1)<>|
00000500 30 80 a4 66 8c 0d 00 40 0a f2 67 28 61 24 29 0d |0..f...@..g(a$).|
00000510 00 41 0c cc 3a f2 64 28 61 24 29 0d 00 42 05 cd |.A..:.d(a$)..B..|
00000520 0d 00 43 0e c8 99 73 61 25 2c 34 2c 62 25 0d 00 |..C...sa%,4,b%..|
00000530 44 05 cb 0d 00 45 05 e1 0d 00 46 4d dd f2 67 28 |D....E....FM..g(|
00000540 67 24 29 3a ea 68 25 2c 61 24 3a 3a 68 25 3d 30 |g$):.h%,a$::h%=0|
00000550 3a f2 64 28 67 24 29 3a f5 3a c8 99 74 61 25 2c |:.d(g$):.:..ta%,|
00000560 31 30 2c 67 24 2c 61 25 2c 31 2c 68 25 2c 32 35 |10,g$,a%,1,h%,25|
00000570 36 2c 22 2a 22 b8 2c 2c 2c 2c 68 25 3a e7 68 25 |6,"*".,,,,h%:.h%|
00000580 3c 3e 2d 31 8c 0d 00 47 25 c8 99 5a 25 2c 61 25 |<>-1...G%..Z%,a%|
00000590 2b 32 30 b8 61 24 3a e7 28 28 61 25 21 31 36 29 |+20.a$:.((a%!16)|
000005a0 80 31 3c 3c 31 29 3c 3e 30 8c 0d 00 48 11 f2 67 |.1<<1)<>0...H..g|
000005b0 28 67 24 2b 22 2e 22 2b 61 24 29 0d 00 49 13 cc |(g$+"."+a$)..I..|
000005c0 3a f2 64 28 67 24 2b 22 2e 22 2b 61 24 29 0d 00 |:.d(g$+"."+a$)..|
000005d0 4a 05 cd 0d 00 4b 05 cd 0d 00 4c 0c fd 68 25 3d |J....K....L..h%=|
000005e0 2d 31 3a e1 0d 00 4d 58 dd f2 64 28 61 24 29 3a |-1:...MX..d(a$):|
000005f0 3a c8 99 75 61 25 2c 33 37 2c 61 24 2c 61 25 2c |:..ua%,37,a$,a%,|
00000600 2c 2c 79 25 b8 2c 2c 61 24 3a c8 99 76 61 25 2c |,,y%.,,a$:..va%,|
00000610 22 46 69 6c 65 41 63 74 24 4f 62 4e 61 6d 65 22 |"FileAct$ObName"|
00000620 2c 61 24 2c a9 61 24 2c 30 2c 34 3a f2 73 28 61 |,a$,.a$,0,4:.s(a|
00000630 24 2c a4 65 28 72 61 25 29 29 3a e1 0d 00 4e 94 |$,.e(ra%)):...N.|
00000640 dd f2 73 28 61 24 2c 72 24 29 3a ea 68 24 2c 69 |..s(a$,r$):.h$,i|
00000650 24 2c 6c 24 2c 6a 24 2c 6d 24 3a ea 73 24 2c 70 |$,l$,j$,m$:.s$,p|
00000660 25 2c 63 24 2c 72 25 2c 73 25 2c 7a 25 3a 3a 73 |%,c$,r%,s%,z%::s|
00000670 24 3d 61 24 3a 70 25 3d a9 73 24 3a c8 95 28 c1 |$=a$:p%=.s$:..(.|
00000680 73 24 2c 70 25 2c 31 29 3c 3e 22 2e 22 29 80 28 |s$,p%,1)<>".").(|
00000690 70 25 3e 30 29 3a 70 25 2d 3d 31 3a ce 3a 6a 24 |p%>0):p%-=1:.:j$|
000006a0 3d c1 73 24 2c 70 25 2b 31 29 3a 6d 24 3d c0 73 |=.s$,p%+1):m$=.s|
000006b0 24 2c 70 25 2d 31 29 3a 68 24 3d 22 22 3a 70 25 |$,p%-1):h$="":p%|
000006c0 3d a7 73 24 2c 22 3a 22 29 3a e7 70 25 3e 31 8c |=.s$,":"):.p%>1.|
000006d0 0d 00 4f 1d 68 24 3d c0 61 24 2c 70 25 2d 31 29 |..O.h$=.a$,p%-1)|
000006e0 3a 73 24 3d c1 73 24 2c 70 25 2b 31 29 0d 00 50 |:s$=.s$,p%+1)..P|
000006f0 05 cd 0d 00 51 16 69 24 3d 22 22 3a e7 c0 73 24 |....Q.i$="":..s$|
00000700 2c 31 29 3d 22 3a 22 8c 0d 00 52 31 70 25 3d a7 |,1)=":"...R1p%=.|
00000710 73 24 2c 22 2e 22 29 3a e7 70 25 3e 30 8c 69 24 |s$,"."):.p%>0.i$|
00000720 3d c1 73 24 2c 32 2c 70 25 2d 32 29 3a 73 24 3d |=.s$,2,p%-2):s$=|
00000730 c1 73 24 2c 70 25 2b 31 29 0d 00 53 05 cd 0d 00 |.s$,p%+1)..S....|
00000740 54 53 6c 24 3d c0 73 24 2c a9 73 24 2d a9 6a 24 |TSl$=.s$,.s$-.j$|
00000750 2d 31 29 3a 63 24 3d 72 24 3a 70 25 3d a7 63 24 |-1):c$=r$:p%=.c$|
00000760 2c 22 25 22 29 3a c8 95 70 25 3e 30 3a 73 24 3d |,"%"):..p%>0:s$=|
00000770 c1 63 24 2c 70 25 2b 31 2c 31 29 3a e7 28 73 24 |.c$,p%+1,1):.(s$|
00000780 3e 3d 22 41 22 29 80 28 73 24 3c 3d 22 5a 22 29 |>="A").(s$<="Z")|
00000790 8c 0d 00 55 28 72 25 3d bb c1 63 24 2c 70 25 2b |...U(r%=..c$,p%+|
000007a0 32 2c 33 29 3a 73 25 3d bb c1 63 24 2c 70 25 2b |2,3):s%=..c$,p%+|
000007b0 35 2c 33 29 3a 7a 25 3d 38 0d 00 56 17 cc 3a 7a |5,3):z%=8..V..:z|
000007c0 25 3d 32 3a 73 24 3d bd 28 97 73 24 2d 33 32 29 |%=2:s$=.(.s$-32)|
000007d0 0d 00 57 05 cd 0d 00 58 09 c8 8e 73 24 ca 0d 00 |..W....X...s$...|
000007e0 59 0e c9 22 53 22 3a 73 24 3d 68 24 0d 00 5a 0e |Y.."S":s$=h$..Z.|
000007f0 c9 22 4d 22 3a 73 24 3d 69 24 0d 00 5b 0e c9 22 |."M":s$=i$..[.."|
00000800 44 22 3a 73 24 3d 6c 24 0d 00 5c 0e c9 22 4c 22 |D":s$=l$..\.."L"|
00000810 3a 73 24 3d 6a 24 0d 00 5d 0e c9 22 50 22 3a 73 |:s$=j$..].."P":s|
00000820 24 3d 6d 24 0d 00 5e 0e c9 22 46 22 3a 73 24 3d |$=m$..^.."F":s$=|
00000830 61 24 0d 00 5f 0b 7f 3a 73 24 3d 22 22 0d 00 60 |a$.._..:s$=""..`|
00000840 05 cb 0d 00 61 0a e7 7a 25 3d 38 8c 0d 00 62 14 |....a..z%=8...b.|
00000850 e7 72 25 3c 3d 30 8c 72 25 3d a9 73 24 2b 72 25 |.r%<=0.r%=.s$+r%|
00000860 0d 00 63 14 e7 73 25 3c 3d 30 8c 73 25 3d a9 73 |..c..s%<=0.s%=.s|
00000870 24 2b 73 25 0d 00 64 11 73 24 3d c1 73 24 2c 72 |$+s%..d.s$=.s$,r|
00000880 25 2c 73 25 29 0d 00 65 05 cd 0d 00 66 36 63 24 |%,s%)..e....f6c$|
00000890 3d c0 63 24 2c 70 25 2d 31 29 2b 73 24 2b c1 63 |=.c$,p%-1)+s$+.c|
000008a0 24 2c 70 25 2b 7a 25 29 3a 70 25 3d a7 63 24 2c |$,p%+z%):p%=.c$,|
000008b0 22 25 22 29 3a ce 3a c8 99 54 25 2c 63 24 3a e1 |"%"):.:..T%,c$:.|
000008c0 0d 00 67 76 dd f2 6b 3a 3a 3a 60 25 3d 30 3a 6e |..gv..k:::`%=0:n|
000008d0 24 3d 22 46 69 6c 65 41 63 74 22 3a 6b 24 3d 22 |$="FileAct":k$="|
000008e0 3c 46 69 6c 65 41 63 74 24 44 69 72 3e 2e 53 74 |<FileAct$Dir>.St|
000008f0 61 74 75 73 22 3a 77 61 25 3d 32 35 36 3a 79 25 |atus":wa%=256:y%|
00000900 3d 32 30 34 38 3a f2 74 28 22 3c 46 69 6c 65 41 |=2048:.t("<FileA|
00000910 63 74 24 44 69 72 3e 2e 54 65 6d 70 6c 61 74 65 |ct$Dir>.Template|
00000920 73 22 2c 44 25 2c 56 25 29 3a e7 79 25 3c 56 25 |s",D%,V%):.y%<V%|
00000930 8c 79 25 3d 56 25 0d 00 68 ee 58 25 3d 35 31 32 |.y%=V%..h.X%=512|
00000940 3a 78 61 25 3d 31 35 33 36 3a 79 61 25 3d 32 35 |:xa%=1536:ya%=25|
00000950 36 3a 6c 25 3d 38 3a de 62 25 20 77 61 25 3a de |6:l%=8:.b% wa%:.|
00000960 61 25 20 79 25 3a de 78 25 20 58 25 3a de 7a 61 |a% y%:.x% X%:.za|
00000970 25 20 78 61 25 3a de 6a 25 20 79 61 25 3a de 61 |% xa%:.j% ya%:.a|
00000980 25 28 6c 25 29 3a e3 64 25 3d 30 b8 79 61 25 2d |%(l%):.d%=0.ya%-|
00000990 31 3a 6a 25 3f 64 25 3d 30 3a ed 3a f2 75 3a 3a |1:j%?d%=0:.:.u::|
000009a0 3a 50 25 3d 61 25 3a 5b 4f 50 54 30 3a 45 51 55 |:P%=a%:[OPT0:EQU|
000009b0 44 33 3a 45 51 55 44 35 3a 45 51 55 44 30 3a 20 |D3:EQUD5:EQUD0: |
000009c0 5d 3a c8 99 22 57 69 6d 70 5f 49 6e 69 74 69 61 |]:.."Wimp_Initia|
000009d0 6c 69 73 65 22 2c 33 31 30 2c 26 34 42 35 33 34 |lise",310,&4B534|
000009e0 31 35 34 2c 6e 24 2c 61 25 b8 56 25 2c 60 25 3a |154,n$,a%.V%,`%:|
000009f0 e7 56 25 3c 33 31 30 8c f2 61 28 2d 32 2c 22 53 |.V%<310..a(-2,"S|
00000a00 6f 72 72 79 2c 20 49 20 6e 65 65 64 20 57 49 4d |orry, I need WIM|
00000a10 50 20 33 2e 31 30 20 6f 72 20 6c 61 74 65 72 2e |P 3.10 or later.|
00000a20 22 29 3a e0 0d 00 69 cb 67 61 25 3d a4 67 28 22 |"):...i.ga%=.g("|
00000a30 21 66 69 6c 65 61 63 74 22 29 3a 3a 3a c8 99 22 |!fileact"):::.."|
00000a40 57 69 6d 70 5f 4f 70 65 6e 54 65 6d 70 6c 61 74 |Wimp_OpenTemplat|
00000a50 65 22 2c 2c 22 3c 46 69 6c 65 41 63 74 24 44 69 |e",,"<FileAct$Di|
00000a60 72 3e 2e 54 65 6d 70 6c 61 74 65 73 22 3a 41 25 |r>.Templates":A%|
00000a70 3d 7a 61 25 3a 41 61 25 3d 7a 61 25 2b 78 61 25 |=za%:Aa%=za%+xa%|
00000a80 3a c8 99 42 61 25 2c 31 2c 61 25 2c 41 25 2c 41 |:..Ba%,1,a%,A%,A|
00000a90 61 25 2c 2d 31 2c 22 69 6e 66 6f 22 2c 30 b8 6e |a%,-1,"info",0.n|
00000aa0 25 2c 2c 41 25 3a c8 99 4a 25 2c 6e 25 2c 36 2c |%,,A%:..J%,n%,6,|
00000ab0 74 24 3a c8 99 4a 25 2c 6e 25 2c 37 2c 75 24 3a |t$:..J%,n%,7,u$:|
00000ac0 42 25 3d 33 39 3a 43 61 25 3d 31 3a 44 61 25 3d |B%=39:Ca%=1:Da%=|
00000ad0 32 3a 45 61 25 3d 33 3a e3 64 25 3d 31 b8 6c 25 |2:Ea%=3:.d%=1.l%|
00000ae0 3a 61 25 28 64 25 29 3d 32 38 2b 64 25 3a ed 0d |:a%(d%)=28+d%:..|
00000af0 00 6a 78 c8 99 42 61 25 2c 31 2c 61 25 2c 41 25 |.jx..Ba%,1,a%,A%|
00000b00 2c 41 61 25 2c 2d 31 2c 22 63 6f 6e 74 72 6f 6c |,Aa%,-1,"control|
00000b10 22 2c 30 b8 63 25 2c 2c 41 25 3a c8 99 22 57 69 |",0.c%,,A%:.."Wi|
00000b20 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 74 65 |mp_CloseTemplate|
00000b30 22 3a 3a 3a 6d 25 3d 30 3a 64 24 3d a4 68 28 22 |":::m%=0:d$=.h("|
00000b40 46 69 6c 65 41 63 74 24 4b 65 79 41 63 74 44 69 |FileAct$KeyActDi|
00000b50 72 22 29 2b 22 2e 4b 65 79 44 65 66 73 22 3a e7 |r")+".KeyDefs":.|
00000b60 64 24 3c 3e 22 22 8c 0d 00 6b 33 c8 99 5f 25 2c |d$<>""...k3.._%,|
00000b70 35 2c 64 24 b8 6f 25 3b 66 25 3a e7 28 66 25 80 |5,d$.o%;f%:.(f%.|
00000b80 31 3c 3c 30 29 3c 3e 30 84 28 6f 25 80 31 3c 3c |1<<0)<>0.(o%.1<<|
00000b90 30 29 3d 30 8c 64 24 3d 22 22 0d 00 6c 05 cd 0d |0)=0.d$=""..l...|
00000ba0 00 6d 0c e7 64 24 3c 3e 22 22 8c 0d 00 6e 41 61 |.m..d$<>""...nAa|
00000bb0 3d 8e 28 64 24 29 3a e3 46 61 25 3d 31 b8 32 3a |=.(d$):.Fa%=1.2:|
00000bc0 74 25 3d 30 3a cf 23 61 3d 30 3a c8 95 ac c5 23 |t%=0:.#a=0:....#|
00000bd0 61 3a 62 24 3d be 23 61 3a e7 a7 22 6e 73 63 61 |a:b$=.#a:.."nsca|
00000be0 22 2c c0 62 24 2c 31 29 29 3e 30 8c 0d 00 6f 07 |",.b$,1))>0...o.|
00000bf0 f7 2b 30 0d 00 70 0c dc 20 54 41 42 2c 39 36 0d |.+0..p.. TAB,96.|
00000c00 00 71 0a dc 20 41 2c 36 35 0d 00 72 0b dc 20 42 |.q.. A,65..r.. B|
00000c10 2c 31 30 30 0d 00 73 0a dc 20 43 2c 38 32 0d 00 |,100..s.. C,82..|
00000c20 74 0a dc 20 44 2c 35 30 0d 00 75 0a dc 20 45 2c |t.. D,50..u.. E,|
00000c30 33 34 0d 00 76 0a dc 20 46 2c 36 37 0d 00 77 0a |34..v.. F,67..w.|
00000c40 dc 20 47 2c 38 33 0d 00 78 0a dc 20 48 2c 38 34 |. G,83..x.. H,84|
00000c50 0d 00 79 0a dc 20 49 2c 33 37 0d 00 7a 0a dc 20 |..y.. I,37..z.. |
00000c60 4a 2c 36 39 0d 00 7b 0a dc 20 4b 2c 37 30 0d 00 |J,69..{.. K,70..|
00000c70 7c 0a dc 20 4c 2c 38 36 0d 00 7d 0b dc 20 4d 2c ||.. L,86..}.. M,|
00000c80 31 30 31 0d 00 7e 0a dc 20 4e 2c 38 35 0d 00 7f |101..~.. N,85...|
00000c90 0a dc 20 4f 2c 35 34 0d 00 80 0a dc 20 50 2c 35 |.. O,54..... P,5|
00000ca0 35 0d 00 81 0a dc 20 51 2c 31 36 0d 00 82 0a dc |5..... Q,16.....|
00000cb0 20 52 2c 35 31 0d 00 83 0a dc 20 53 2c 38 31 0d | R,51..... S,81.|
00000cc0 00 84 0a dc 20 54 2c 33 35 0d 00 85 0a dc 20 55 |.... T,35..... U|
00000cd0 2c 35 33 0d 00 86 0a dc 20 56 2c 39 39 0d 00 87 |,53..... V,99...|
00000ce0 0a dc 20 57 2c 33 33 0d 00 88 0a dc 20 58 2c 36 |.. W,33..... X,6|
00000cf0 36 0d 00 89 0a dc 20 59 2c 36 38 0d 00 8a 0a dc |6..... Y,68.....|
00000d00 20 5a 2c 39 37 0d 00 8b 0a dc 20 30 2c 33 39 0d | Z,97..... 0,39.|
00000d10 00 8c 0a dc 20 31 2c 34 38 0d 00 8d 0a dc 20 32 |.... 1,48..... 2|
00000d20 2c 34 39 0d 00 8e 0a dc 20 33 2c 31 37 0d 00 8f |,49..... 3,17...|
00000d30 0a dc 20 34 2c 31 38 0d 00 90 0a dc 20 35 2c 31 |.. 4,18..... 5,1|
00000d40 39 0d 00 91 0a dc 20 36 2c 35 32 0d 00 92 0a dc |9..... 6,52.....|
00000d50 20 37 2c 33 36 0d 00 93 0a dc 20 38 2c 32 31 0d | 7,36..... 8,21.|
00000d60 00 94 0a dc 20 39 2c 33 38 0d 00 95 0a dc 20 22 |.... 9,38..... "|
00000d70 22 2c 30 0d 00 96 35 f5 3a f3 65 24 2c 47 61 25 |",0...5.:.e$,Ga%|
00000d80 3a 63 3d 28 c1 62 24 2c 32 2c a9 28 65 24 29 29 |:c=(.b$,2,.(e$))|
00000d90 3d 65 24 29 3a fd 28 65 24 3d 22 22 29 84 63 3a |=e$):.(e$="").c:|
00000da0 e7 65 24 3c 3e 22 22 8c 0d 00 97 3a 47 25 3d a7 |.e$<>""....:G%=.|
00000db0 22 6e 73 63 3f 61 3f 3f 3f 22 2c c0 62 24 2c 31 |"nsc?a???",.b$,1|
00000dc0 29 29 2d 31 3a 62 24 3d c1 62 24 2c a9 28 65 24 |))-1:b$=.b$,.(e$|
00000dd0 29 2b 33 29 3a 74 25 2b 3d 31 3a e7 46 61 25 3d |)+3):t%+=1:.Fa%=|
00000de0 32 8c 0d 00 98 25 62 25 28 74 25 29 3d 47 25 3a |2....%b%(t%)=G%:|
00000df0 63 25 28 74 25 29 3d 2d 47 61 25 2d 31 3a 62 24 |c%(t%)=-Ga%-1:b$|
00000e00 28 74 25 29 3d 62 24 0d 00 99 05 cd 0d 00 9a 05 |(t%)=b$.........|
00000e10 cd 0d 00 9b 05 cd 0d 00 9c 0d ce 3a e7 46 61 25 |...........:.Fa%|
00000e20 3d 31 8c 0d 00 9d 21 6d 25 3d 74 25 3a de 62 25 |=1....!m%=t%:.b%|
00000e30 28 6d 25 29 3a de 63 25 28 6d 25 29 3a de 62 24 |(m%):.c%(m%):.b$|
00000e40 28 6d 25 29 0d 00 9e 05 cd 0d 00 9f 09 ed 3a d9 |(m%)..........:.|
00000e50 23 61 0d 00 a0 05 cd 0d 00 a1 4a 3a 3a 6e 61 25 |#a........J::na%|
00000e60 3d 31 3c 3c 30 3a 68 61 25 3d 31 3c 3c 31 3a 48 |=1<<0:ha%=1<<1:H|
00000e70 61 25 3d 31 3c 3c 32 3a 46 25 3d 31 3c 3c 34 84 |a%=1<<2:F%=1<<4.|
00000e80 31 3c 3c 35 84 31 3c 3c 31 31 84 31 3c 3c 31 32 |1<<5.1<<11.1<<12|
00000e90 3a e7 6d 25 3d 30 8c 46 25 3d 46 25 84 31 3c 3c |:.m%=0.F%=F%.1<<|
00000ea0 30 0d 00 a2 0c f2 63 28 33 29 3a 3a e1 0d 00 a3 |0.....c(3)::....|
00000eb0 39 dd f2 63 28 43 25 29 3a ea 61 3a ea 4b 25 2c |9..c(C%):.a:.K%,|
00000ec0 4c 25 2c 4e 25 3a ea 61 24 28 29 3a ea 64 25 3a |L%,N%:.a$():.d%:|
00000ed0 ea 85 3a ee 85 ea f7 85 3a f2 76 3a f2 61 28 9f |..:.....:.v:.a(.|
00000ee0 2c 22 22 29 3a e1 0d 00 a4 cb de 61 24 28 6c 25 |,""):......a$(l%|
00000ef0 29 3a 3a 6a 25 3f 42 25 3d 30 3a 4b 25 3d 31 3a |)::j%?B%=0:K%=1:|
00000f00 4c 25 3d 31 3a 4e 25 3d 31 3a 61 24 28 29 3d 22 |L%=1:N%=1:a$()="|
00000f10 22 3a 61 24 28 32 29 3d 22 45 63 68 6f 20 25 66 |":a$(2)="Echo %f|
00000f20 22 3a 61 24 28 33 29 3d 22 53 65 74 54 79 70 65 |":a$(3)="SetType|
00000f30 20 25 66 20 54 65 78 74 22 3a 61 24 28 34 29 3d | %f Text":a$(4)=|
00000f40 22 53 65 74 54 79 70 65 20 25 66 20 44 61 74 61 |"SetType %f Data|
00000f50 22 3a 61 24 28 35 29 3d 22 53 74 61 6d 70 20 25 |":a$(5)="Stamp %|
00000f60 66 22 3a 61 24 28 36 29 3d 22 41 63 63 65 73 73 |f":a$(6)="Access|
00000f70 20 25 66 20 57 52 22 3a 61 24 28 37 29 3d 22 52 | %f WR":a$(7)="R|
00000f80 65 6e 61 6d 65 20 25 66 20 25 70 2e 25 4c 30 30 |ename %f %p.%L00|
00000f90 31 2d 30 31 22 3a 61 24 28 38 29 3d 22 46 69 6c |1-01":a$(8)="Fil|
00000fa0 65 49 6e 66 6f 20 25 66 2e 2a 22 3a c8 8e 43 25 |eInfo %f.*":..C%|
00000fb0 ca 0d 00 a5 17 c9 31 2c 33 3a 61 3d 8e 28 6b 24 |......1,3:a=.(k$|
00000fc0 29 3a e7 61 3c 3e 30 8c 0d 00 a6 41 f2 77 28 61 |):.a<>0....A.w(a|
00000fd0 29 3a e8 23 61 2c 6a 25 3f 42 25 3a e8 23 61 2c |):.#a,j%?B%:.#a,|
00000fe0 4b 25 3a e8 23 61 2c 4c 25 3a e8 23 61 2c 4e 25 |K%:.#a,L%:.#a,N%|
00000ff0 3a e3 64 25 3d 32 b8 6c 25 3a e8 23 61 2c 61 24 |:.d%=2.l%:.#a,a$|
00001000 28 64 25 29 3a ed 3a f2 78 0d 00 a7 43 cc 3a e7 |(d%):.:.x...C.:.|
00001010 43 25 3d 31 8c f2 61 28 2d 33 2c 22 49 20 63 61 |C%=1..a(-3,"I ca|
00001020 6e 6e 6f 74 20 66 69 6e 64 20 6d 79 20 73 74 61 |nnot find my sta|
00001030 74 75 73 2e 20 48 61 76 65 20 79 6f 75 20 73 61 |tus. Have you sa|
00001040 76 65 64 20 69 74 20 3f 22 29 3a e1 0d 00 a8 05 |ved it ?"):.....|
00001050 cd 0d 00 a9 05 cb 0d 00 aa 47 c8 99 49 61 25 2c |.........G..Ia%,|
00001060 63 25 2c 6a 25 3a f2 79 28 4b 25 29 3a f2 7a 28 |c%,j%:.y(K%):.z(|
00001070 4c 25 29 3a f2 41 28 4e 25 29 3a e3 64 25 3d 32 |L%):.A(N%):.d%=2|
00001080 b8 6c 25 3a c8 99 4a 25 2c 63 25 2c 61 25 28 64 |.l%:..J%,c%,a%(d|
00001090 25 29 2c 61 24 28 64 25 29 3a ed 3a e1 0d 00 ab |%),a$(d%):.:....|
000010a0 29 dd f2 66 28 43 25 29 3a ea 62 3a ea 64 25 3a |)..f(C%):.b:.d%:|
000010b0 ea 85 3a ee 85 ea f7 85 3a f2 42 3a f2 61 28 9f |..:.....:.B:.a(.|
000010c0 2c 22 22 29 3a e1 0d 00 ac 0a 3a c8 8e 43 25 ca |,""):.....:..C%.|
000010d0 0d 00 ad 56 c9 31 3a f2 43 28 6b 24 29 3a 62 3d |...V.1:.C(k$):b=|
000010e0 a4 69 3a c8 99 4a 61 25 2c 63 25 2c 6a 25 3a f1 |.i:..Ja%,c%,j%:.|
000010f0 23 62 2c 6a 25 3f 42 25 3a f1 23 62 2c a4 62 3a |#b,j%?B%:.#b,.b:|
00001100 f1 23 62 2c a4 63 3a f1 23 62 2c a4 64 3a e3 64 |.#b,.c:.#b,.d:.d|
00001110 25 3d 32 b8 6c 25 3a f1 23 62 2c a4 65 28 64 25 |%=2.l%:.#b,.e(d%|
00001120 29 3a ed 3a f2 44 0d 00 ae 11 c9 32 3a c8 99 4b |):.:.D.....2:..K|
00001130 61 25 2c 36 2c 6b 24 0d 00 af 05 cb 0d 00 b0 05 |a%,6,k$.........|
00001140 e1 0d 00 b1 22 dd a4 6a 28 75 25 29 3a c8 99 4a |...."..j(u%):..J|
00001150 61 25 2c 63 25 2c 6a 25 3a 3d 28 6a 25 3f 75 25 |a%,c%,j%:=(j%?u%|
00001160 29 3d 31 0d 00 b2 1f dd f2 65 28 75 25 2c 76 25 |)=1......e(u%,v%|
00001170 29 3a c8 99 4c 61 25 2c 63 25 2c 75 25 2c 76 25 |):..La%,c%,u%,v%|
00001180 3a e1 0d 00 b3 20 dd a4 61 28 76 25 29 3a c8 99 |:.... ..a(v%):..|
00001190 4d 61 25 2c 63 25 2c 76 25 b8 2c 2c 76 25 3a 3d |Ma%,c%,v%.,,v%:=|
000011a0 76 25 0d 00 b4 18 dd f2 79 28 76 25 29 3a f2 65 |v%......y(v%):.e|
000011b0 28 43 61 25 2c 76 25 29 3a e1 0d 00 b5 18 dd f2 |(Ca%,v%):.......|
000011c0 7a 28 76 25 29 3a f2 65 28 44 61 25 2c 76 25 29 |z(v%):.e(Da%,v%)|
000011d0 3a e1 0d 00 b6 18 dd f2 41 28 76 25 29 3a f2 65 |:.......A(v%):.e|
000011e0 28 45 61 25 2c 76 25 29 3a e1 0d 00 b7 0f dd a4 |(Ea%,v%):.......|
000011f0 66 3a 3d a4 6a 28 42 25 29 0d 00 b8 10 dd a4 62 |f:=.j(B%)......b|
00001200 3a 3d a4 61 28 43 61 25 29 0d 00 b9 10 dd a4 63 |:=.a(Ca%)......c|
00001210 3a 3d a4 61 28 44 61 25 29 0d 00 ba 10 dd a4 64 |:=.a(Da%)......d|
00001220 3a 3d a4 61 28 45 61 25 29 0d 00 bb 24 dd a4 65 |:=.a(Ea%)...$..e|
00001230 28 75 25 29 3a c8 99 4e 61 25 2c 63 25 2c 61 25 |(u%):..Na%,c%,a%|
00001240 28 75 25 29 b8 2c 2c 56 24 3a 3d 56 24 0d 00 bc |(u%).,,V$:=V$...|
00001250 25 dd f2 61 28 45 25 2c 66 24 29 3a ea 77 25 2c |%..a(E%,f$):.w%,|
00001260 4f 61 25 3a ea 85 3a ee 85 ea f7 85 3a ef 37 3a |Oa%:..:.....:.7:|
00001270 c8 98 0d 00 bd 11 3a e7 66 24 3d 22 22 8c 66 24 |......:.f$="".f$|
00001280 3d f6 24 0d 00 be 37 e7 45 25 3e 3d 30 8c 66 24 |=.$...7.E%>=0.f$|
00001290 3d 22 55 6e 65 78 70 65 63 74 65 64 20 65 72 72 |="Unexpected err|
000012a0 6f 72 20 27 22 2b 66 24 2b 22 27 20 28 63 6f 64 |or '"+f$+"' (cod|
000012b0 65 20 22 2b c3 9e 2b 22 29 22 0d 00 bf 18 e7 45 |e "+..+")".....E|
000012c0 25 3c 30 8c 61 25 21 30 3d 30 8b 61 25 21 30 3d |%<0.a%!0=0.a%!0=|
000012d0 45 25 0d 00 c0 17 24 28 61 25 2b 34 29 3d 66 24 |E%....$(a%+4)=f$|
000012e0 2b bd 30 3a c8 8e 45 25 ca 0d 00 c1 0c c9 2d 31 |+.0:..E%......-1|
000012f0 3a 77 25 3d 35 0d 00 c2 0c c9 2d 32 3a 77 25 3d |:w%=5.....-2:w%=|
00001300 36 0d 00 c3 0d c9 2d 33 3a 77 25 3d 32 31 0d 00 |6.....-3:w%=21..|
00001310 c4 0a 7f 3a 77 25 3d 37 0d 00 c5 05 cb 0d 00 c6 |...:w%=7........|
00001320 21 c8 99 50 61 25 2c 61 25 2c 77 25 2c 6e 24 b8 |!..Pa%,a%,w%,n$.|
00001330 2c 4f 61 25 3a e7 4f 61 25 3d 32 8c f2 62 0d 00 |,Oa%:.Oa%=2..b..|
00001340 c7 05 e1 0d 00 c8 2b dd f2 62 3a 3a c8 99 22 58 |......+..b::.."X|
00001350 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 2c |Wimp_CloseDown",|
00001360 60 25 2c 26 34 42 35 33 34 31 35 34 3a e0 0d 00 |`%,&4B534154:...|
00001370 c9 d2 dd a4 67 28 61 24 29 3a 3a c8 99 51 61 25 |....g(a$)::..Qa%|
00001380 2c 34 30 2c 2c 61 24 b8 2c 2c 2c 57 25 2c 48 25 |,40,,a$.,,,W%,H%|
00001390 2c 2c 4d 25 3a c8 99 52 61 25 2c 4d 25 2c 34 b8 |,,M%:..Ra%,M%,4.|
000013a0 2c 2c 56 25 3a 57 25 3d 57 25 3c 3c 56 25 3a c8 |,,V%:W%=W%<<V%:.|
000013b0 99 52 61 25 2c 4d 25 2c 35 b8 2c 2c 56 25 3a 48 |.Ra%,M%,5.,,V%:H|
000013c0 25 3d 48 25 3c 3c 56 25 3a 4f 25 3d 48 25 2d 36 |%=H%<<V%:O%=H%-6|
000013d0 38 3a 50 25 3d 53 61 25 3a 5b 4f 50 54 30 3a 45 |8:P%=Sa%:[OPT0:E|
000013e0 51 55 44 2d 31 3a 45 51 55 44 30 3a 45 51 55 44 |QUD-1:EQUD0:EQUD|
000013f0 2d 4f 25 2f 32 3a 45 51 55 44 20 57 25 3a 45 51 |-O%/2:EQUD W%:EQ|
00001400 55 44 36 38 2b 4f 25 2f 32 3a 45 51 55 44 36 35 |UD68+O%/2:EQUD65|
00001410 34 33 32 33 37 31 34 3a 45 51 55 53 20 61 24 2b |4323714:EQUS a$+|
00001420 c4 31 32 2d a9 61 24 2c bd 30 29 3a 20 5d 3a c8 |.12-.a$,.0): ]:.|
00001430 99 54 61 25 2c 2c 53 61 25 b8 48 25 3a 3d 48 25 |.Ta%,,Sa%.H%:=H%|
00001440 0d 00 ca 2e dd a4 68 28 61 24 29 3a 3a c8 99 55 |......h(a$)::..U|
00001450 61 25 2c 61 24 2c c4 32 35 35 2c bd 30 29 2c 32 |a%,a$,.255,.0),2|
00001460 35 35 2c 30 2c 33 b8 2c 56 24 3a 3d 56 24 0d 00 |55,0,3.,V$:=V$..|
00001470 cb 0c dd a4 69 3a 3a 3d 69 25 0d 00 cc 60 dd f2 |....i::=i%...`..|
00001480 74 28 61 24 2c f8 56 61 25 2c f8 51 25 29 3a ea |t(a$,.Va%,.Q%):.|
00001490 61 2c 68 25 2c 52 25 3a 3a 56 61 25 3d 30 3a 51 |a,h%,R%::Va%=0:Q|
000014a0 25 3d 30 3a 61 3d 8e 28 61 24 29 3a cf 23 61 3d |%=0:a=.(a$):.#a=|
000014b0 31 36 3a f5 3a 68 25 3d 9a 23 61 84 9a 23 61 3c |16:.:h%=.#a..#a<|
000014c0 3c 38 84 9a 23 61 3c 3c 31 36 84 9a 23 61 3c 3c |<8..#a<<16..#a<<|
000014d0 32 34 3a e7 68 25 3c 3e 30 8c 0d 00 cd 35 56 61 |24:.h%<>0....5Va|
000014e0 25 2b 3d 31 3a 52 25 3d 9a 23 61 84 9a 23 61 3c |%+=1:R%=.#a..#a<|
000014f0 3c 38 84 9a 23 61 3c 3c 31 36 84 9a 23 61 3c 3c |<8..#a<<16..#a<<|
00001500 32 34 3a e7 52 25 3e 51 25 8c 51 25 3d 52 25 0d |24:.R%>Q%.Q%=R%.|
00001510 00 ce 0e cf 23 61 3d 31 36 2b 8f 23 61 0d 00 cf |....#a=16+.#a...|
00001520 05 cd 0d 00 d0 0f fd 68 25 3d 30 3a d9 23 61 3a |.......h%=0:.#a:|
00001530 e1 0d 00 d1 14 dd f2 75 3a 3a 6b 25 3d 30 3a 69 |.......u::k%=0:i|
00001540 25 3d 30 3a e1 0d 00 d2 10 dd f2 76 3a 3a f2 68 |%=0:.......v::.h|
00001550 28 b9 29 3a e1 0d 00 d3 16 dd f2 77 28 57 61 25 |(.):.......w(Wa%|
00001560 29 3a 3a 6b 25 3d 57 61 25 3a e1 0d 00 d4 10 dd |)::k%=Wa%:......|
00001570 f2 78 3a 3a f2 68 28 a3 29 3a e1 0d 00 d5 10 dd |.x::.h(.):......|
00001580 f2 42 3a 3a f2 69 28 b9 29 3a e1 0d 00 d6 20 dd |.B::.i(.):.... .|
00001590 f2 43 28 61 24 29 3a 3a c8 99 53 25 2c 31 32 38 |.C(a$)::..S%,128|
000015a0 2b 31 35 2c 61 24 b8 69 25 3a e1 0d 00 d7 10 dd |+15,a$.i%:......|
000015b0 f2 44 3a 3a f2 69 28 a3 29 3a e1 0d 00 d8 13 dd |.D::.i(.):......|
000015c0 f2 68 28 64 29 3a 3a e7 6b 25 3c 3e 30 8c 0d 00 |.h(d)::.k%<>0...|
000015d0 d9 07 e7 64 8c 0d 00 da 0e c8 99 58 61 25 2c 30 |...d.......Xa%,0|
000015e0 2c 6b 25 0d 00 db 0f cc 3a c8 99 53 25 2c 30 2c |,k%.....:..S%,0,|
000015f0 6b 25 0d 00 dc 05 cd 0d 00 dd 0f e7 69 25 3d 6b |k%..........i%=k|
00001600 25 8c 69 25 3d 30 0d 00 de 08 6b 25 3d 30 0d 00 |%.i%=0....k%=0..|
00001610 df 05 cd 0d 00 e0 05 e1 0d 00 e1 13 dd f2 69 28 |..............i(|
00001620 64 29 3a 3a e7 69 25 3c 3e 30 8c 0d 00 e2 07 e7 |d)::.i%<>0......|
00001630 64 8c 0d 00 e3 0e c8 99 58 61 25 2c 30 2c 69 25 |d.......Xa%,0,i%|
00001640 0d 00 e4 0f cc 3a c8 99 53 25 2c 30 2c 69 25 0d |.....:..S%,0,i%.|
00001650 00 e5 05 cd 0d 00 e6 0f e7 6b 25 3d 69 25 8c 6b |.........k%=i%.k|
00001660 25 3d 30 0d 00 e7 08 69 25 3d 30 0d 00 e8 05 cd |%=0....i%=0.....|
00001670 0d 00 e9 05 e1 0d 00 ea e2 dd f2 6a 3a 3a 59 61 |...........j::Ya|
00001680 25 3d 32 35 36 3a de 53 61 25 20 59 61 25 3a 74 |%=256:.Sa% Ya%:t|
00001690 24 3d 22 a9 20 5a 65 72 69 64 61 6a 68 20 31 39 |$=". Zeridajh 19|
000016a0 39 30 2e 2e 31 39 39 37 22 3a 75 24 3d 22 32 2e |90..1997":u$="2.|
000016b0 32 30 20 28 30 34 20 41 70 72 20 31 39 39 37 29 |20 (04 Apr 1997)|
000016c0 22 3a 61 61 25 3d 32 36 32 33 34 33 3a 63 61 25 |":aa%=262343:ca%|
000016d0 3d 32 36 32 33 35 34 3a 64 61 25 3d 32 36 32 33 |=262354:da%=2623|
000016e0 35 35 3a 54 25 3d 32 36 32 33 36 36 3a 55 25 3d |55:T%=262366:U%=|
000016f0 33 30 31 32 30 34 3a 65 61 25 3d 32 36 32 33 34 |301204:ea%=26234|
00001700 32 3a 69 61 25 3d 33 30 31 32 30 36 3a 6a 61 25 |2:ia%=301206:ja%|
00001710 3d 33 30 31 32 30 37 3a 6b 61 25 3d 32 36 32 33 |=301207:ka%=2623|
00001720 36 34 3a 6c 61 25 3d 33 30 31 32 30 38 3a 6d 61 |64:la%=301208:ma|
00001730 25 3d 32 36 32 33 35 31 3a 6f 61 25 3d 32 36 32 |%=262351:oa%=262|
00001740 33 35 36 3a 5a 25 3d 33 30 31 31 39 39 3a 5f 25 |356:Z%=301199:_%|
00001750 3d 31 33 31 30 38 30 0d 00 eb bb 73 61 25 3d 33 |=131080....sa%=3|
00001760 30 31 32 31 30 3a 74 61 25 3d 31 32 3a 75 61 25 |01210:ta%=12:ua%|
00001770 3d 34 31 3a 76 61 25 3d 33 36 3a 42 61 25 3d 33 |=41:va%=36:Ba%=3|
00001780 30 31 32 30 35 3a 4a 25 3d 33 30 31 31 38 35 3a |01205:J%=301185:|
00001790 49 61 25 3d 33 30 31 31 39 37 3a 4a 61 25 3d 33 |Ia%=301197:Ja%=3|
000017a0 30 31 31 39 36 3a 4b 61 25 3d 38 3a 4c 61 25 3d |01196:Ka%=8:La%=|
000017b0 33 30 31 31 39 35 3a 4d 61 25 3d 33 30 31 31 39 |301195:Ma%=30119|
000017c0 34 3a 4e 61 25 3d 33 30 31 31 38 34 3a 50 61 25 |4:Na%=301184:Pa%|
000017d0 3d 32 36 32 33 36 37 3a 51 61 25 3d 32 36 32 33 |=262367:Qa%=2623|
000017e0 37 37 3a 52 61 25 3d 35 33 3a 54 61 25 3d 32 36 |77:Ra%=53:Ta%=26|
000017f0 32 33 33 38 3a 55 61 25 3d 31 33 31 31 30 37 3a |2338:Ua%=131107:|
00001800 53 25 3d 31 33 3a 58 61 25 3d 31 33 31 30 38 35 |S%=13:Xa%=131085|
00001810 3a e1 0d ff |:...|
00001814 
.