Home » Archimedes archive » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95 » !AWFeb95/Goodies/BasicComp/v1_24/fe/!RunImage
!AWFeb95/Goodies/BasicComp/v1_24/fe/!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 » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95 |
| Filename: | !AWFeb95/Goodies/BasicComp/v1_24/fe/!RunImage |
| Read OK: | ✔ |
| File size: | 7F3F bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM><In$Dir>.!RunImage
2REMProduced by BasCompress v1.30 (09 Sep 1992)
3ONERRORPROCO
4PROCKy(20,12):Ly%=-2:Py%=FALSE:Ny%=Py%:PROCF("<BasicV$Lib>.CAsm",1):PROCF("<BasicV$Lib>.Template",1):X_%=Py%:PROChy("stdio, stdlib, string, message, wimp"):PROCFy(2000,FALSE,FALSE):PROCF("<BasicV$Lib>.FileType",1):PROCF("<BasicV$Lib>.IntMath",4):PROCF("<BasicV$Lib>.ModeInfo",1)
5PROCF("<BasicV$Lib>.Wimp",20):m%=TRUE:b%=FNg("<BasCompressFE$Dir>",-1,C_%):IFC_%>0THEN
6ERROR!b%,"BasCompressFE can't load its' message file: "+FNN(b%+4)
7ENDIF:ay%=3:`%=23:Uu%=8:R%=4:zJ%=0:Oy%=1:MJ%=3:Ry%=4:Fu%=6:Ky%=7:zu%=9:py%=10:VJ%=0:FJ%=1:d_%=2:E_%=3:Au%=4:a_%=5:t_%=6:XJ%=7:iJ%=0:w_%=1:L_%=2:uJ%=3:yJ%=4:Ju%=0:n_%=1:OJ%=2:HJ%=3:BJ%=4:GJ%=5:Mu%=6:G_%=0:Gu%=1:Zu%=2:LJ%=3:ZJ%=4:kJ%=5:ku%=0:QJ%=1:b_%=2
8EJ%=3:DJ%=4:tJ%=5:eJ%=6:j_%=0:PJ%=1:fJ%=2:`J%=0:Cu%=1:gJ%=2:dJ%=3:SJ%=4:NJ%=5:RJ%=6:nJ%=0:g_%=1:hJ%=2:h_%=0:CJ%=1:jJ%=2:V=0:K=1:qy=2:Ey=3:zy=4:Ty=4:S=8:J=-1:Y=0:Ky=1:dy=2:P=1:Q=2:W=3:Ny=4:y=0:Ly=11:Hy=22:b$="":c$="":iy%=0:yy%=0:DIMM%(R%):DIMS%(R%)
9DIMZ%(R%):by%=-1:fy%=-1:z$="":Z=P:s_%=-1:R=y:PROCuy("BasCompressFE",1,24,1,10,1992):Ny%=Py%:PROCSy:PROCK:IFFNx(X%)
10ONERRORPROCO
11PROCJy:REPEAT:PROCB_:UNTILFALSE:END
12DEFPROCa:LOCALmy,n:IFC%AND2THEN
13S%=P%:YJ%=C%:O%=P%:P%=0:C%=C%OR4:[OPTC%:ALIGN:]:P%=S%:C%=YJ%
14ENDIF:[OPTC%:ALIGN:.B:.Jy DCD0:._ DCD0:.h DCD0:.C DCD0:DCD0:.m DCD0:DCD0:.x DCD0:.o DCD0:.p DCD0:.i DCD0:.l DCD0:DCD0:DCD0:DCD0:DCD0:DCD0:.Fy DCD0:DCD0:.` DCD0:.w DCD0:.t DCD0:.j DCD0:.b DCD0:.Wy DCD0:.Cy DCD0:.Zy DCD0:.My DCD0:.q DCD0:.z DCD0:DCD0:DCD0
15DCD0:DCD0:DCD0:.g DCD0:.Py DCD0:DCD0:.f DCD0:.Gy DCD0:.k DCD0:.Ay DCD0:.c DCD0:.By DCD0:.L:ALIGN:.my:EQUS"[0,w>,m>,m>,m>,m>,m>,dm>,>":DCB0:EQUS"[100,<t>,<t>,<t>,<t>,<s<t>,d<s<t>,<t>":DCB0:EQUS"[200,w>,<t>,<t>,m>,m>,<tm>":DCB0
16EQUS"[300,<t>,<t>,<t>,<t>,<t>,<t>":DCB0:EQUS"[400,<t>,<t>":DCB0:EQUS"[250,i4":DCB0:EQUS"[500,w>,<t>,<t>,<t>,<t>,<t>,<t>":DCB0:EQUS"[600,<t>,<t>,i256":DCB0:EQUS"[700,w>,m>,m>,w>,<t>":DCB0:EQUS"[800,m>,m>,w>":DCB0:EQUS"<t[900,>,>,>,>,>":DCB0
17EQUS"[300,<t>,<t>,<t>,<t>,<t>,<t>":DCB0:EQUS"[1000,m>,m>,w>":DCB0:EQUS"<t[900,>,>,>,>,>":DCB0:EQUS"[400,<t>,<t>":DCB0:EQUS"[1100,>,d>,<t>,<t>,<t>,<t>,<t>":DCB0:ALIGN:.n DCD0:DCD0:DCD0:ALIGN:.jy:FNP:STMFD(A)!,{4-9,M}:SUB A,A,#L-B:MOV2,#L-B:ADR1,B
18MOV0,A:BL ky:ADR1,n+4:ADR0,my:BL ry:STRvc0,n:ADRvc0,n:ADD A,A,#L-B:LDMFD(A)!,{4-9,pc}:]:PROCoy:ENDPROC
19DEFPROCt:ENDPROC
20DEFPROCiy:I%=FNV("Order",s%):X%=FNG("Control",0,+1):q%=FNV("SaveAs",+1):PROCwy:ENDPROC
21DEFPROCpy(U%,D%,V%,F%):IF(V%AND1)THEN
22IFNOTFNM(z$)THEN
23U%=FNO(z$)
24ENDIF
25ELSE:PROCD_(X%,-1)
26ENDIF:ENDPROC
27DEFPROCey:CASE!W%OF
28OTHERWISE:SYS&400c5,,W%
29ENDCASE:ENDPROC
30DEFPROCzy:SYS&400c6,,W%:ENDPROC
31DEFPROCU_:LOCALK_%:LOCALERROR:ONERRORLOCALRESTOREERROR:SYS&606c1:PROCx
32SYS&606c0:SYS&400c8,,W%TOK_%:WHILEK_%:SYS&81681,,W%:SYS&400ca,,W%TOK_%:ENDWHILE:SYS&606c1:ENDPROC
33DEFPROCM_:LOCALT%,F%,d%:T%=W%!0:F%=W%!4:d%=W%!24:CASET%OF
34WHENq%:PROCky(F%,d%)
35WHENX%:PROC`(F%,d%)
36OTHERWISE:SYS&400dc,d%
37ENDCASE:ENDPROC
38DEFPROCh:PROCS:ENDPROC
39DEFPROCHy:LOCALF$,T%,F%,A%,Z%,u%:F$="":T%=W%!32:F%=W%!36:CASET%OF
40WHEN-2:F$="IconBar"
41WHENo%:F$="ProgInfo"
42WHENI%:F$="Order":IFFNz(F%)THEN
43PROCy(F%,Z%,u%):IFu%=STHEN
44F$+=",R"
45ELSE:F$+=","+CHR$(ASC("A")+u%)
46ENDIF
47ELSE:F$+=",_"
48ENDIF
49WHENX%:F$="Control":IFF%=-1THEN
50F$+=",_"
51ELSE:F$+=","+STR$(F%)
52ENDIF
53WHENq%:PROCj("SaveAsType",Z):F$="SaveAs"
54ENDCASE:IFF$<>""THEN
55PROCi("H"+F$,W%+20):IFW%?20THEN
56W%!16=1283:W%!12=W%!8:A%=W%+20:WHILE?A%:A%+=1:ENDWHILE:IFA%>=(W%+256)THENA%=W%+255:?A%=0
57W%!0=(A%-W%+4)AND-4:SYS&400e7,17,W%,W%!4
58ENDIF
59ENDIF:ENDPROC
60DEFPROCg:PROCdy(-1):ENDPROC
61DEFPROCS_:ENDPROC
62DEFPROCS:ONERRORPRINT"Error in error handler: ";REPORT$:END
63PROCCy:CALLv:IFm%THEN
64SYS&a1683,Qy%
65ENDIF:SYS&400dd:END:ENDPROC
66DEFPROCTy:LOCALU%,D%,V%,Q%,F%,n%,u%:U%=W%!0:D%=W%!4:V%=W%!8:Q%=W%!12:F%=W%!16:CASEV%OF
67WHEN2:CASEQ%OF
68WHEN-2:PROCD:D%=96+(44*mJ%)+(24*aJ%):SYS&400d4,,sy%,U%-64,D%
69WHENX%:PROCD:SYS&400d4,,sy%,U%-64,D%
70ENDCASE
71WHEN1*16,4*16:CASEQ%OF
72WHENX%:CASEF%OF
73WHENMJ%:Z=P:PROCR(Q%,F%,V%,"FileName_Control")
74WHENFu%:Z=Q:PROCR(Q%,F%,V%,"FileName_Control")
75WHENzJ%:Z=W:PROCR(Q%,F%,V%,"FileName_Control")
76ENDCASE
77WHENq%:CASEF%OF
78WHEN1:PROCR(Q%,F%,V%,"FileName_SaveAs")
79ENDCASE
80ENDCASE
81OTHERWISE:CASEQ%OF
82WHEN-2:PROCpy(U%,D%,V%,F%)
83WHENe_%:PROCQ_(U%,D%,V%,F%)
84WHENq%:PROCZ_(U%,D%,V%,F%)
85WHENo%:PROCMy(U%,D%,V%,F%)
86WHENI%:PROCV_(U%,D%,V%,F%)
87WHENX%:PROCqy(U%,D%,V%,F%)
88ENDCASE
89ENDCASE:ENDPROC
90DEFPROCMy(U%,D%,V%,F%):CASEF%OF
91WHEN14,15:PROCM(Fy%,FN_(0)):IFV%<>1THEN
92PROCQ
93ENDIF
94ENDCASE:ENDPROC
95DEFPROC`y:By%=FALSE:_y%=&1040a31+0:ENDPROC
96DEFPROCD:LOCALA%:mJ%=8:aJ%=1:A%=USR(jy):sy%=!A%:yy%=A%!4:iy%=A%!8:$yy%=STR$(a):$iy%=D$:By%=_y%:ENDPROC
97DEFPROCay:LOCALU%,D%,ly%,r%,e%,x%:U%=W%!24:D%=W%!28:ly%=W%!32:r%=W%!36:e%=W%!40:x%=p%:CASEBy%OF
98WHEN_y%:CASEly%OF
99WHENVJ%:SYS&400e8,,o%,U%,D%
100WHENd_%:CASEr%OF
101WHENG_%:Z=W:PROCI:SYS&400e8,,q%,U%,D%
102OTHERWISE:PROCM(x%,"Unexpected MenuWarning Message")
103ENDCASE
104WHENE_%:CASEr%OF
105WHENG_%:Z=P:PROCI:SYS&400e8,,q%,U%,D%
106OTHERWISE:PROCM(x%,"Unexpected MenuWarning Message")
107ENDCASE
108WHENa_%:CASEr%OF
109WHENiJ%:Z=Q:PROCI:SYS&400e8,,q%,U%,D%
110WHENw_%:CASEe%OF
111WHENhJ%:R=Ly:PROC_(S%()):SYS&400e8,,I%,U%,D%
112OTHERWISE:PROCM(x%,"Unexpected MenuWarning Message")
113ENDCASE
114WHENL_%:CASEe%OF
115WHENjJ%:R=Hy:PROC_(M%()):SYS&400e8,,I%,U%,D%
116OTHERWISE:PROCM(x%,"Unexpected MenuWarning Message")
117ENDCASE
118WHENuJ%:R=y:PROC_(Z%()):SYS&400e8,,I%,U%,D%
119OTHERWISE:PROCM(x%,"Unexpected MenuWarning Message")
120ENDCASE
121OTHERWISE:PROCM(x%,"Unexpected MenuWarning Message")
122ENDCASE
123OTHERWISE:PROCM(x%,"Unexpected MenuWarning Message")
124ENDCASE:ENDPROC
125DEFPROCC_:LOCALly%,M%,o_%,p_%,rJ%,r%,A%,e%:LOCALj%:M%=FNA(512):SYS&400cf,,M%:o_%=M%!0:p_%=M%!4:rJ%=M%!8:PROCC(M%,512):ly%=!W%:r%=W%!4:e%=W%!8:j%=W%!12:CASEBy%OF
126WHEN_y%:CASEly%OF
127WHENFJ%:CASEr%OF
128WHENJu%:PROCZ(Jy)
129WHENn_%:PROCZ(_)
130WHENOJ%:PROCZ(h)
131WHENHJ%:PROCZ(C):PROCZ(C+4):PROCZ(C+12)
132WHENBJ%:PROCZ(m)
133WHENGJ%:PROCZ(x)
134WHENMu%:PROCZ(o)
135ENDCASE
136WHENd_%:CASEr%OF
137WHENGu%:PROCZ(p)
138WHENZu%:PROCZ(i)
139WHENLJ%:IFe%<>-1THEN
140PROCZ(l+(e%<<2))
141ENDIF
142WHENZJ%:IFe%<>-1THEN
143PROCZ(Fy+(e%<<2))
144ENDIF
145WHENkJ%:CASEe%OF
146WHEN-1:PROCZ(`)
147WHEN0:a=VAL($yy%)
148ENDCASE
149ENDCASE
150WHENE_%:CASEr%OF
151WHENQJ%:PROCZ(w)
152WHENb_%:PROCZ(t)
153WHENEJ%:PROCZ(j)
154WHENDJ%:PROCZ(b)
155WHENtJ%:PROCZ(Wy)
156WHENeJ%:PROCZ(Cy)
157ENDCASE
158WHENAu%:CASEr%OF
159WHENfJ%:PROCd($iy%)
160WHENj_%:PROCZ(Zy)
161WHENPJ%:PROCZ(My)
162ENDCASE
163WHENa_%:CASEr%OF
164WHENw_%:CASEe%OF
165WHENnJ%:IFj%<>-1THEN
166!q=j%
167ENDIF
168WHENg_%:IFj%<>-1THEN
169PROCZ(z+(j%<<2))
170ENDIF
171ENDCASE
172WHENL_%:CASEe%OF
173WHENh_%:IFj%<>-1THEN
174!g=j%
175ENDIF
176WHENCJ%:IFj%<>-1THEN
177PROCZ(Py+(j%<<2))
178ENDIF
179ENDCASE
180WHENyJ%:PROCZ(f)
181ENDCASE
182WHENt_%:CASEr%OF
183WHEN`J%:PROCA_
184WHENCu%:PROCgy
185WHENgJ%:PROCZ(Gy)
186WHENdJ%:PROCZ(k)
187WHENSJ%:PROCZ(Ay)
188WHENNJ%:PROCZ(c)
189WHENRJ%:PROCZ(By)
190ENDCASE
191WHENXJ%:PROCh
192ENDCASE
193ENDCASE:IFrJ%=1THEN
194CASEBy%OF
195WHEN_y%:PROCD
196ENDCASE:SYS&400d4,,sy%,o_%,p_%
197ELSE:PROCQ
198ENDIF:ENDPROC
199DEFPROCQ:SYS&400d4,,-1:By%=FALSE:ENDPROC
200DEFPROCZ(y%):!y%=(!y%=0):ENDPROC
201DEFPROCd(A$):IFA$=""THEN
202A$=c$
203ENDIF:D$=A$:PROCN(X%,py%,D$):ENDPROC
204DEFPROCk(A$):IFA$=""THEN
205A$=E$
206ENDIF:C$=A$:PROCN(X%,Oy%,A$):ENDPROC
207DEFPROCX_(A$):IFA$=""THEN
208A$=R$
209ENDIF:W$=A$:PROCN(X%,Ky%,A$):ENDPROC
210DEFPROCRy(A$):IFA$=""THEN
211A$=K$
212ENDIF:P$=A$:PROCN(X%,Ry%,A$):ENDPROC
213DEFPROCx:IFPy%THEN
214ERRORERR,REPORT$+" ["+STR$(ERL)+"]"
215ELSE:ERRORERR,REPORT$
216ENDIF:PROCS:ENDPROC
217DEFPROCgy:PROCb:PROCK:ENDPROC
218DEFPROCSy:LOCALJ%,_$,Sl%:PROCb:D$=c$:C$=E$:W$=R$:P$=K$:J%=OPENIN("<BasCompressFE$Dir>.Choices"):IFJ%THEN
219LOCALERROR:ONERRORLOCALRESTOREERROR:CLOSE#J%:ENDPROC
220SYS12,4,J%,B,L-B:PROCz(J%,M%()):PROCz(J%,S%()):PROCz(J%,Z%()):INPUT#J%,P$:K$=P$:INPUT#J%,W$:R$=W$:INPUT#J%,C$:E$=C$:CLOSE#J%:RESTOREERROR
221ENDIF:ENDPROC
222DEFPROCz(J%,RETURNA%()):LOCALZ%:FORZ%=0TOR%-1:INPUT#J%,A%(Z%):NEXTZ%:ENDPROC
223DEFPROCA_:LOCALJ%:J%=OPENOUT("<BasCompressFE$Dir>.Choices"):IFJ%THEN
224LOCALERROR:ONERRORLOCALRESTOREERROR:CLOSE#J%:PROCx
225SYS12,2,J%,B,L-B:PROCs(J%,M%()):PROCs(J%,S%()):PROCs(J%,Z%()):PRINT#J%,FNS(P$):PRINT#J%,FNS(W$):PRINT#J%,FNS(C$):CLOSE#J%:RESTOREERROR
226ENDIF:ENDPROC
227DEFPROCs(J%,A%()):LOCALZ%:FORZ%=0TOR%-1:PRINT#J%,A%(Z%):NEXTZ%:ENDPROC
228DEFPROCb:LOCALF:!Jy=FALSE:!_=TRUE:!h=TRUE:!C=TRUE:C!4=(!C=0):C!12=(!C=0):!m=TRUE:!x=TRUE:!o=FALSE:!p=TRUE:!i=TRUE:FORF=0TO5:l!(F<<2)=TRUE:NEXTF:FORF=0TO1:Fy!(F<<2)=TRUE:NEXTF:!`=FALSE:a=16:!w=TRUE:!t=TRUE:!j=TRUE:!b=TRUE:!Wy=TRUE:!Cy=FALSE:!Zy=FALSE:!My=FALSE:!q=3:FORF=0TO5:z!(F<<2)=TRUE:NEXTF:!g=3:FORF=0TO1:Py!(F<<2)=TRUE:NEXTF:!f=FALSE:!Gy=FALSE:!k=TRUE:!Ay=TRUE
229!c=FALSE:!By=FALSE:M%()=J:S%()=J:Z%()=J:M%()=V,K:S%()=V,K:Z%()=V,K,Ey:K$="Log":E$="Output":R$="XRef":ENDPROC
230DEFPROCK:PROCV(X%,py%,D$,c$):PROCV(X%,Ry%,P$,K$):PROCV(X%,Ky%,W$,R$):PROCV(X%,Oy%,C$,E$):ENDPROC
231DEFPROCqy(U%,D%,V%,F%):ENDPROC
232DEFPROC`(F%,d%):CASEd%OF
233WHEN13,398,399:CASEF%OF
234WHENRy%:Z=P
235WHENKy%:Z=Q
236WHENOy%:Z=W
237WHENpy%:Z=Ny
238ENDCASE:PROCT(FNF(X%,F%)):IFd%=398THENPROCjy(X%,F%)
239IFd%=399THENPROCsy(X%,F%)
240IFd%=13THENPROCcy
241WHEN27:PROCK
242OTHERWISE:SYS&400dc,d%
243ENDCASE:ENDPROC
244DEFPROC_(A%()):LOCALZ%,n%,G%:IFFNa("Order",I%)THEN
245ELSE:Z%=0:WHILEZ%<R%ANDA%(Z%)<>J:n%=A%(Z%)AND(NOTS):FORG%=0TOTy:PROCB(I%,FNC(G%,Z%),n%=G%):NEXTG%:PROCB(I%,`%+Z%,A%(Z%)ANDS):Z%+=1:ENDWHILE:WHILEZ%<R%:FORG%=0TOTy:PROCB(I%,FNC(G%,Z%),FALSE):NEXTG%:PROCB(I%,`%+Z%,FALSE):Z%+=1:ENDWHILE
246ENDIF:ENDPROC
247DEFPROCV_(U%,D%,V%,F%):CASEROF
248WHENy:PROCe(Z%(),V%,F%)
249WHENHy:PROCe(M%(),V%,F%)
250WHENLy:PROCe(S%(),V%,F%)
251ENDCASE:ENDPROC
252DEFPROCe(RETURNA%(),V%,F%):LOCALZ%,G%,u%,Y%,n%:IFFNz(F%)THEN
253PROCy(F%,Z%,u%):n%=NOTS:IF(A%(Z%)ANDn%)=u%THEN
254IFFNf(I%,F%)=FALSETHEN
255PROCo(A%(),Z%)
256ENDIF
257ELSE:IFu%=STHEN
258IFA%(Z%)=JTHEN
259PROCB(I%,F%,FALSE)
260ELSE:A%(Z%)=A%(Z%)EORS:PROCv(A%(),Z%)
261ENDIF
262ELSE:IFA%(Z%)=JTHEN
263A%(Z%)=u%
264ELSE:A%(Z%)=(A%(Z%)ANDS)ORu%
265ENDIF:PROCv(A%(),Z%):G%=0:Y%=FALSE:REPEAT:IFG%<>Z%THEN
266Y%=((A%(G%)ANDn%)=u%):IFY%THEN
267PROCGy(A%(),Z%)
268ENDIF
269ENDIF:G%+=1:UNTILY%ORG%>=R%
270ENDIF
271ENDIF
272ENDIF:ENDPROC
273DEFPROCv(RETURNA%(),RETURNZ%):LOCALY%:Y%=(Z%<=0):WHILENOTY%:Y%=(A%(Z%-1)<>J):IFNOTY%THEN
274Z%-=1:PROCo(A%(),Z%):Y%=(Z%<=0)
275ENDIF:ENDWHILE:ENDPROC
276DEFPROCo(RETURNA%(),Z%):LOCALG%,Y%,A_%:G%=Z%:REPEAT:A%(G%)=J:PROCB(I%,`%+G%,FALSE):G%+=1:Y%=(G%>=R%):IFNOTY%THEN
277Y%=(A%(G%)=J):IFNOTY%THEN
278A%(G%-1)=A%(G%):PROCB(I%,FNC(A%(G%),G%-1),TRUE):PROCB(I%,FNC(A%(G%),G%),FALSE):A_%=A%(G%)ANDS:PROCB(I%,`%+G%-1,A_%)
279ENDIF
280ENDIF:UNTILY%:ENDPROC
281DEFPROCGy(RETURNA%(),G%):LOCALZ%,Y%:Z%=0:Y%=FALSE:WHILEFNu(A%(),Z%):Z%+=1:ENDWHILE:PROCB(I%,FNC(A%(G%),G%),FALSE):A%(G%)=Z%OR(A%(G%)ANDS):PROCB(I%,FNC(A%(G%),G%),TRUE):ENDPROC
282DEFFNu(A%(),Z%):LOCALZ_%,G%:G%=0:Z_%=FALSE:WHILEG%<R%AND(NOTZ_%):Z_%=((A%(G%)AND(NOTS))=Z%):G%+=1:ENDWHILE:=Z_%
283DEFFNz(F%):=(F%>=ay%)AND(F%<(`%+R%))
284DEFPROCy(F%,RETURNu_%,RETURND_%):IFF%>=`%THEN
285D_%=S
286ELSE:D_%=(F%-ay%)DIVR%
287ENDIF:u_%=(F%-ay%)MODR%:ENDPROC
288DEFFNC(D_%,u_%):=(((D_%AND(NOTS))*R%)+ay%)+u_%
289DEFPROCky(F%,d%):CASEd%OF
290WHEN13,398:PROCT(FNF(q%,2)):PROCQ
291WHEN27:PROCQ
292OTHERWISE:SYS&400dc,d%
293ENDCASE:ENDPROC
294DEFPROCZ_(U%,D%,V%,F%):CASEF%OF
295WHEN0:PROCT(FNF(q%,2)):IFV%AND1THEN
296PROCD:SYS&400d4,,sy%
297ELSE:PROCQ
298ENDIF
299ENDCASE:ENDPROC
300DEFPROCI:IFFNa("SaveAs",q%)THEN
301ELSE:PROCN(q%,2,FNY):IFZ=WTHEN
302PROCp(q%,1,"file_"+STR$~(r))
303ELSE:PROCp(q%,1,"file_"+STR$~(I))
304ENDIF
305ENDIF:ENDPROC
306DEFFNY:LOCALM$:CASEZOF
307WHENP:M$=P$
308WHENQ:M$=W$
309WHENW:M$=C$
310WHENNy:M$=D$
311ENDCASE:=M$
312DEFPROCV(Q%,Z%,M$,p$):IFM$=""THENM$=p$
313PROCN(Q%,Z%,M$):ENDPROC
314DEFFN_Dragged_FileName_Control:CASEZOF
315WHENP:PROCL(FNF(X%,Ry%))
316WHENQ:PROCL(FNF(X%,Ky%))
317WHENW:PROCL(FNF(X%,Oy%))
318ENDCASE:=0
319DEFFN_Dragged_FileName_SaveAs:PROCL(FNF(q%,2)):=0
320DEFPROCL(S$):LOCALQ%,Z%,M%,U%,D%:M%=FNA(320):SYS&400cf,,M%:Q%=M%!12:Z%=M%!16:IF(Q%<>-2)AND(Q%<>X%)THEN
321IFS$=""THEN
322CASEZOF
323WHENP:S$=K$
324WHENQ:S$=R$
325WHENW:S$=E$
326ENDCASE
327ELSE:S$=FNS(S$)
328ENDIF:U%=!M%:D%=M%!4:!M%=(LEN(S$)+48)AND-4:M%!12=0:M%!16=1:M%!20=Q%:M%!24=Z%:M%!28=U%:M%!32=D%:M%!36=-1:M%!40=I:$(M%+44)=S$+CHR$(0):SYS&400e7,17,M%,Q%,Z%:s_%=M%!8
329ENDIF:PROCC(M%,320):ENDPROC
330DEFPROCT(S$):IFS$<>FNYTHEN
331CASEZOF
332WHENP:PROCRy(S$)
333WHENQ:PROCX_(S$)
334WHENW:PROCk(S$)
335WHENNy:PROCd(S$)
336ENDCASE
337ENDIF:PROCI:PROCK:ENDPROC
338DEFPROCly:CASEW%!12OF
339WHEN0:CASEW%!8OF
340WHENby%:SYS&400de,"/"+P$:by%=-1
341WHENfy%:SYS&400de,"/"+W$:fy%=-1
342ENDCASE
343ENDCASE:ENDPROC
344DEFPROCyy:LOCALF_%,`$,T%,F%,U%,D%:`$=FNB(W%+44):F_%=W%!40:T%=W%!20:F%=W%!24:U%=W%!28:D%=W%!32:CASEF_%OF
345WHENr:PROCOy
346ENDCASE:ENDPROC
347DEFPROCL_:LOCALF_%,e$,T%,F%,U%,D%:T%=W%!20:F%=W%!24:U%=W%!28:D%=W%!32:F_%=W%!40:e$=FNN(W%+44):CASEF_%OF
348WHENr:U%=FNO(e$)
349WHENI:IFNOTFNM(e$)THEN
350PROCd(e$)
351ENDIF
352OTHERWISE:PROCM(Fy%,FN_(1))
353ENDCASE:ENDPROC
354DEFPROCW_:LOCALS$,ny%:IF(W%!12)<>s_%THEN
355PROCJ(10)
356ELSE:ny%=TRUE:S$=FNB(W%+44):CASEW%!40OF
357WHENI:PROCT(S$):ny%=FALSE
358OTHERWISE:PROCJ(10):ny%=FALSE
359ENDCASE:IFny%THEN
360W%!12=ky%:W%!16=3:SYS&400e7,18,W%,W%!20,W%!24:oJ%=W%!8
361ENDIF
362ENDIF:ENDPROC
363DEFPROCQy:ENDPROC
364DEFPROCBy:ENDPROC
365DEFFNE(J$):LOCALZ%,S%:IFJ$<>""THEN
366FORZ%=1TOLEN(J$):S%=INSTR("ABCDEFGHIJKLMNOPQRSTUVWXYZ",MID$(J$,Z%,1)):IFS%>0THENMID$(J$,Z%,1)=CHR$(S%+ASC("a")-1)
367NEXTZ%
368ENDIF:=J$
369DEFFNM(M$):=(FNS(M$)="")OR(FNE(M$)=b$)OR(INSTR(M$,".")<1)
370DEFFNO(L$):LOCALZ$,Z%:IF!ByAND(NOTFNM(C$))THEN
371Z%=INSTR(L$,"."):IFZ%>0THEN
372Z$=LEFT$(C$,LEN(C$)-LEN(FNS(C$)))+FNS(L$):PROCk(Z$)
373ENDIF
374ENDIF:z$=L$:Z$="":IF!Jy<>0THENZ$+=" -MultiDEF"
375IF!_<>0THENZ$+=" -WEndRtn"
376IF!h<>0THENZ$+=" -Number"
377IF!C=0THENZ$+=" -SWI"
378IF!m=0THENZ$+=" -SWIBad"
379IF!x=0THENZ$+=" -SWIExist"
380IF!o<>0THENZ$+=" -Library"
381IF!i=0THENZ$+=" -Unused"
382IFNOTFNM(C$)THEN
383IF!p=0THENZ$+=" -Single"
384Z$+=" -ReduceVar "+FNq(l):Z$+=" -ReduceRtn "+FNL(Fy):IF!`<>0THENZ$+=" -ListOut "+STR$(a)
385ENDIF:IFNOTFNM(P$)THEN
386IF!w=0THENZ$+=" -Stats"
387IF!t=0THENZ$+=" -EVAL"
388IF!j=0THENZ$+=" -DATA"
389IF!b=0THENZ$+=" -READ"
390IF!Wy=0THENZ$+=" -GOTO"
391IF!Cy<>0THENZ$+=" -List"
392ENDIF:IFNOTFNM(D$)THEN
393IF!Zy<>0THENZ$+=" -UnusedS"
394IF!My<>0THENZ$+=" -WSpLabel"
395ENDIF:IFFNM(W$)THEN
396Z$+=" -XRef 0"
397ELSE:Z$+=" -XVar "+STR$(!q):Z$+=" -XIncVar "+FNq(z):Z$+=" -XRtn "+STR$(!g):Z$+=" -XIncRtn "+FNL(Py):Z$+=" -SRef "+FND(Z%()):Z$+=" -SVar "+FND(S%()):Z$+=" -SRtn "+FND(M%()):IF!f=0THENZ$+=" -Deleted"
398ENDIF:PROCq("BasCompress$Options",Z$):PROCE("BasCompress$Special",D$):PROCE("BasCompress$XRef",W$):PROCE("BasCompress$Out",C$):PROCE("BasCompress$Log",P$):IF!cTHEN
399PROCq("Main",L$):L$="<Main>"
400ENDIF:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCU(Y):PROCx
401IFFNM(P$)THEN
402PROCU(dy):SYS&400de,"BasCompress "+L$+" { > null: }"
403ELSE:PROCU(Ky):SYS&400de,"BasCompress "+L$
404ENDIF:RESTOREERROR:PROCU(Y):IF((!k)<>0)AND(NOTFNM(P$))THEN
405PROCn(by%,P$)
406ENDIF:IF((!Ay)<>0)AND(NOTFNM(W$))THEN
407PROCn(fy%,W$)
408ENDIF:IF((!Gy)<>0)AND(NOTFNM(C$))THEN
409SYS&400de,C$
410ENDIF:=0
411DEFPROCn(RETURNOu%,_$):LOCALS%,Zy%,vJ%,Pl%:SYS8,5,_$TOvJ%,,Zy%,,a%:IFvJ%<>0THEN
412S%=FNA(256):S%!20=-1:S%!28=0:S%!32=0:S%!36=a%:S%!40=(Zy%AND&fff00)>>8:PROCH(S%+44,_$):S%!0=(LEN(_$)+1+3+44)AND(NOT3):S%!12=0:S%!16=5:SYS&400e7,18,S%,0:Ou%=S%!8:PROCC(S%,256)
413ENDIF:ENDPROC
414DEFPROCq(v$,d$):LOCALS%:S%=FNA(512):PROCH(S%,v$):PROCH(S%+256,d$):SYS36,S%,S%+256,LEN(d$),0,0:PROCC(S%,512):ENDPROC
415DEFPROCE(v$,d$):IFFNM(d$)THEN
416SYS&20024,v$,0,-1,0,2
417ELSE:PROCq(v$,d$)
418ENDIF:ENDPROC
419DEFFND(A%()):LOCALZ%,G%,A$,J$:A$="":Z%=0:G%=TRUE:WHILEG%ANDZ%<R%:CASEA%(Z%)AND(NOTS)OF
420WHENV:J$="N"
421WHENzy:J$="D"
422WHENqy:J$="U"
423WHENK:J$="T"
424WHENEy:J$="P"
425OTHERWISEG%=FALSE
426ENDCASE:IFG%THEN
427IFA%(Z%)ANDSTHEN
428A$+=FNE(J$)
429ELSE:A$+=J$
430ENDIF:Z%+=1
431ENDIF:ENDWHILE:IFLEN(A$)=0THENA$=""""""
432=A$
433DEFFNq(U):LOCALA$:A$="":IFU!0THENA$+="i"
434IFU!4THENA$+="r"
435IFU!8THENA$+="s"
436IFU!12THENA$+="I"
437IFU!16THENA$+="R"
438IFU!20THENA$+="S"
439IFLEN(A$)=0THENA$=""""""
440=A$
441DEFFNL(U):LOCALA$:A$="":IFU!0THENA$+="p"
442IFU!4THENA$+="f"
443IFLEN(A$)=0THENA$=""""""
444=A$
15481DEFFNU=13
15482DEFPROCKy(m_%,bu%):LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%LibHandler: hard_initialise")
15483IFFNU<bu%THEN
15484ERROR0,"LibHandler too old"
15485ENDIF:IFm_%<1THEN
15486ERROR1,"LibHandler: bad max librarys parameter"
15487ENDIF:`y%=m_%:DIMM$(`y%-1):DIMJ%(`y%-1):O_%=0:DIMl%256:oy%=40:K%=0:Ly%=12:bJ%=FALSE:DIMA$(oy%-1):Gy%=FALSE:Ny%=FALSE:ENDPROC
15488DEFPROCF(G$,fu%):LOCALZy%,Z%,I$,t$:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.LibHandler: load_library")
15489Z%=0:Zy%=TRUE:I$=MID$(G$,1+INSTR(G$,".")):WHILEZ%<O_%ANDZy%:Zy%=(I$<>M$(Z%)):IFZy%THEN
15490Z%+=1
15491ENDIF:ENDWHILE:IFZy%THEN
15492IFZ%=`y%THEN
15493ERROR0,"LibHandler: Too many librarys to load!"
15494ENDIF:M$(Z%)=I$:t$="'"+G$+"' does not have a FN_":LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA(t$+I$+"_version")
15495J%(Z%)=EVAL("FN_"+I$+"_version"):RESTOREERROR:O_%+=1:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA(t$+"_hard_initialise_"+I$)
15496IFEVAL("FN_hard_initialise_"+I$)THEN
15497ERROR1,"Library file '"+G$+"'s hard init'ion failed"
15498ENDIF:RESTOREERROR
15499ENDIF:IFfu%>J%(Z%)THEN
15500ERROR1,"Library file '"+G$+"' too old"
15501ENDIF:ENDPROC
15502DEFPROCA(B$):IFGy%THEN
15503IFNy%THEN
15504ERRORERR,REPORT$+" ["+STR$ERL+"]."
15505ELSE:ERRORERR,REPORT$
15506ENDIF
15507ELSE:IFNOTbJ%THEN
15508IFK%=oy%THEN
15509A(oy%-1)="Errors too deep!!!!!":PROCO
15510ENDIF:IFRIGHT$(B$,2)=": "THEN
15511B$=LEFT$(B$,LEN(B$)-2)
15512ENDIF:IFNy%THEN
15513A$(K%)=REPORT$
15514ELSE:IFK%=0THEN
15515A$(K%)="Error `"+REPORT$+"' (line ":A$(K%)+=STR$(ERL)+") in ":A$(K%)+="`"+B$+"'"
15516ELSE:A$(K%)="`"+B$+"'"
15517ENDIF
15518ENDIF:K%+=1:ERRORERR,""
15519ENDIF
15520ENDIF:ENDPROC
15521DEFPROCO:LOCALt%,Ay$:ONERROR:REPORT:PRINT"::"+STR$(ERL):END
15522IFGy%THEN
15523IFNy%THEN
15524PROCM(ERR,REPORT$+" ["+STR$(ERL)+"]."):PROCS:END
15525ELSE:PROCM(ERR,REPORT$):IFERR=p%THEN
15526PROCS:END
15527ENDIF
15528ENDIF
15529ELSE:IFLy%=-2THEN
15530IFK%>0THEN
15531ERROREXTERR,A$(0)
15532ELSE:ERROREXTERR,REPORT$
15533ENDIF:END
15534ENDIF:IFLy%=-3THEN
15535$l%="TASK":SYS&400c0,200,!l%,"LibHandler"+CHR$(0):IFK%THEN
15536FORt%=0TOK%-1:IFt%<(K%-1)THEN
15537PROCw(A$(t%)+" in")
15538ELSE:PROCw(A$(t%))
15539ENDIF:NEXTt%
15540ELSE:PROCw(REPORT$+" (line "STR$(ERL)+")")
15541ENDIF:SYS&600dd:END
15542ENDIF:IFLy%>=0THEN
15543MODELy%
15544ENDIF:PRINT"An error has occured...":PRINT:IFK%THEN
15545FORt%=0TOK%-1:COLOUR((7-(t%<<1))AND6)+1:PRINTA$(t%);:IFt%<(K%-1)THEN
15546PRINT" in ";
15547ENDIF:NEXTt%
15548ELSE:PRINTREPORT$;" (line ";STR$(ERL);")"
15549ENDIF:PRINT:COLOUR7:END
15550ENDIF:ENDPROC
15551DEFPROCw(Y$):LOCALlJ%:lJ%=20+(LEN(Y$)+5)AND-4:!l%=lJ%:l%!16=&804c0:$(l%+20)=Y$:l%?(20+LEN(Y$))=10:l%?(21+LEN(Y$))=0:SYS&600e7,17,l%,0:ENDPROC
15552DEFFN_CAsm_version=10
15553DEFFN_hard_initialise_CAsm:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.CAsm: hard_initialise")
15554PROCF("<BasicV_Assembler$Lib>.Misc",27):SYS5,"RMEnsure CAssembler 0.03 RMLoad System:Modules.CAssembler":SYS5,"If ""<CAsm$Dir>""="""" Then Set CAsm$Dir <d>.Library.CAsm":CAsmLibrary_stdlib=1:CAsmLibrary_stdio=2:CAsmLibrary_string=3:fJ=4:mi=5:qu=6:Bi=7
15555CAsmLibrary_wimp=8:M_=9:CAsmLibrary_message=10:Ki=11:ou=12:El=13:fi=14:ku=15:Di=16:A_=17:su=18:ql=19:ci=20:q_=21:j_=22:Hl=23:fl=24:p_=25:Xa=26:s=26:Au=0:Gu=1:du=2:HJ=3:E_=4:O_=5:w_=6:gi=7:py=8:Z_=9:E=10:X=11:u=12:A=13:M=14:PJ=15:ay=&6d734143:g%=0
15556Sy%=13:O=0:G=0:d=10*1024:ty=d+(1*1024):X_%=TRUE:vy=FALSE:=0
15557DEFPROChy(Q$):LOCALS%,h%,E%,L%,O%,P%,C%,G$:LOCALERROR:ONERRORLOCALRESTOREERROR:SYS&400ec,Vy%,-1:PROCA("%.CAsm: ClaimCAsmLibrary")
15558Vy%=HIMEM-32768:SYS&400ec,Vy%+32768,-1TOL%:L%+=32768:O%=Vy%+32768:P%=0:C%=14:IFO%=L%THEN
15559ERROR1,"Not enough memory to start application"
15560ENDIF:IFg%<>0THEN
15561ERROR1,"Only one call to ClaimCAsmLibrary allowed"
15562ENDIF:DIMU_%s*8:DIMS$(s):IFFNh_DEFAULT
15563WHILEQ$<>"":G$=LEFT$(Q$,INSTR(Q$,",")-1):LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("Attempted to claim the non-existent library: `"+G$+"'!")
15564h%=EVAL("CAsmLibrary_"+G$):RESTOREERROR:E%=U_%:S%=E%+(g%*8):WHILES%>E%:IF!E%=h%THEN
15565E%=S%+1
15566ELSE:E%+=8
15567ENDIF:ENDWHILE:IFE%=S%THEN
15568IFg%>=sTHEN
15569ERROR1,"Too many librarys have been claimed!"
15570ENDIF:!S%=h%:S$(h%)=G$:g%+=1:O%=Vy%+32768:P%=0:IFFNZ("FNh_"+G$)
15571ENDIF:Q$=MID$(Q$,LEN(G$)+2):WHILEASC(Q$)=ASC(" "):Q$=MID$(Q$,2):ENDWHILE:ENDWHILE:SYS&400ec,Vy%,-1:RESTOREERROR:ENDPROC
15572DEFPROCf:LOCAL_%,S%,Z%,z%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.CAsm: AssembleCAsmTables")
15573IFg%=0THEN
15574IFFNh_DEFAULT
15575ENDIF:z%=U_%:Z%=g%:IF(C%AND2)=0THEN
15576DIMS%g%*4:SYS79,g%,S%+&c0000000,3,,z%,8
15577ENDIF:[OPTC%:.Dy DCDay:DCDny:]:WHILEZ%>0:[OPTC%:DCD!z%:DCDz%!4:]:z%+=8:Z%-=1:ENDWHILE:[OPTC%:DCD0:]:[OPTC%:ALIGN:.e:]:S%=P%:IFFNjumpblock_DEFAULT
15578ny=(P%-S%)>>2:Z%=g%:z%=U_%:WHILEZ%>0:S%=P%:IFFNZ("FNjumpblock_"+S$(!z%))
15579z%!4=(P%-S%)>>2:z%+=8:Z%-=1:ENDWHILE:ENDPROC
15580DEFPROCvy:LOCALSy:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.CAsm: AssembleCAsmBasic")
15581[OPTC%:ALIGN:.Vy:STMFD(A)!,{4-5,M}:BL P%+(13<<2):.Sy DCDDy-Sy:DCDe-Sy:DCDO-Sy:DCDG:DCDd:.D:DCD0:DCD0:DCD0:DCD0:LDR A,D:LDMFD(A)!,{E,X,u,M}:MOVpc,M:BIC5,M,#&fc000003:LDMIA5,{0-4}:ADD0,0,5:ADD1,1,5:ADD2,2,5:MOV5,#0:SWI &fcb80:STRvc0,D+(1<<2)
15582STRvc1,D+(3<<2):LDMFD(A)!,{4-5,pc}:.v:FNP:MOV2,M:MOV1,A:MOV0,E:SWI &fcb81:MOVvc1,#0:STRvc1,D+(3<<2):MOVpc,2:MOV13,12:]:O=P%:PROCW:PROCt:G=(G+3)AND-4:P%+=G-1:O%+=G-1:[OPTC%:DCB0:]:ENDPROC
15583DEFPROCZy:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.CAsm: AssembleCAsmApplication")
15584IFP%<>32768THENERROR1,"Expect P% to be &8000"
15585[OPTC%:ADR4,T:MOV5,#fy:SWI &fcb80:FNT("vc",2,yu):Bvc _y:SWI 43:.T:DCDDy-T:DCDe-T:DCDO-T:DCDG:DCDd:DCDty:]:ENDPROC
15586DEFFNP:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.CAsm: StartCAssemblerSession")
15587[OPTC%:STMFD(A)!,{E,X,u,M}:MOV X,pc:FNT("",M,D):STR A,[M],#4:LDMIA(M)!,{E,u,A}:AND X,X,#&fc000003:ORR M,M,X:]:=0
15588DEFFNN(A%):LOCALN$:N$="":WHILE?A%:N$+=CHR$(?A%):A%+=1:ENDWHILE:=N$
15589DEFFNy(A%,B%):LOCALN$:N$="":WHILEB%>=0AND?A%:N$+=CHR$(?A%):A%+=1:B%-=1:ENDWHILE:=N$
15590DEFPROCH(A%,N$):$A%=N$:A%?LEN(N$)=0:ENDPROC
15591DEFFNZ(n$):LOCALERROR:ONERRORLOCALRESTOREERROR:PROCny
15592=EVAL(n$)
15593DEFPROCny:IFX_%THEN
15594ERRORERR,REPORT$+" (evaluating `"+n$+"')"
15595ELSE:ERRORERR,REPORT$
15596ENDIF:ENDPROC
15597DEFPROCFy(qy%,Jy%,i_%):LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.CAsm: assemble_CAsm")
15598PROCF("<BasicV$Lib>.Heap",8):PROCF("<BasicV$Lib>.Message",1):IFFNw(qy%,Jy%,i_%,0)
15599CALLVy:ONERRORCALLv:PROCO
15600ENDPROC
15601DEFPROCW:IFC%AND4THEN
15602SYS&606c4,(O%-f%)*100DIVH%
15603ELSE:SYS&606c4,(P%-f%)*100DIVH%
15604ENDIF:ENDPROC
15605DEFFNw(qy%,Jy%,i_%,Uy%):LOCALL%,O%,P%,C%,Fl%,H%:LOCALPu:LOCALOJ,sJ,DJ,zJ,YJ,UJ:LOCALgy,oy,ji:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.CAsm: assemble_CAsm_External")
15606IFUy%=0THEN
15607PROCF("<BasicV$Lib>.Heap",8):PROCF("<BasicV$Lib>.Message",1)
15608ENDIF:DIMf%qy%:Pu=A:OJ=1<<31:sJ=1<<30:DJ=1<<29:zJ=1<<28:YJ=1<<27:UJ=1<<26:gy=1<<17:oy=256:ji=oy+gy:SYS&606c0:LOCALERROR:ONERRORLOCALRESTOREERROR:SYS&606c1:PROCA("hourglass")
15609H%=qy%:L%=f%+qy%:IFJy%<>0THENJy%=4
15610FORC%=8+Jy%TO10+Jy%STEP2:IF(C%AND4)<>0THEN
15611O%=f%:IFUy%=1THEN
15612P%=32768
15613ELSE:P%=0
15614ENDIF
15615ELSE:O%=0:P%=f%
15616ENDIF:CASEUy%OF
15617WHEN1:PROCW:PROCZy:PROCW:PROCa:PROCW:PROCf:O=P%:PROCW:PROCt:G=(G+3)AND-4
15618WHEN0:PROCW:PROCa:PROCW:PROCH_:PROCW:PROCJ_:PROCW:PROCf:PROCW:PROCvy
15619WHEN2:PROCW:PROCa
15620ENDCASE:IFC%AND4THENL%=O%ELSEL%=P%
15621IF(C%AND2)=0THEN
15622SYS&dcb93,0,f%,L%-f%
15623ENDIF:H%=L%-f%:NEXTC%:SYS&606c1:IFJy%THEN
15624IFUy%=0THEN
15625Vy+=f%:v+=f%
15626ENDIF
15627ENDIF:IFvyANDUy%<>2THEN
15628IFJy%THEN
15629H%=e:IFUy%THENH%-=32768
15630ELSE:ERROR1,"CAsmTablesInBSS TRUE without offset assembly?"
15631ENDIF
15632ENDIF:IFi_%THEN
15633PRINT"Assembled to &";~H%;" = ";((H%*10+512)DIV1024)/10;"K":PRINT"Could assemble with ";qy%-H%;" less"
15634ENDIF:=H%
15635DEFFN_Template_version=3
15636DEFFN_hard_initialise_Template:LOCALc%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.Template: hard_initialise")
15637jy%=FALSE:=0
15638DEFPROCfy:LOCALa%,c%,w%,M%,O$,z_%:O$="<"+H$+"$Dir>.Sprites":a%=FNH(O$):IFa%>0THEN
15639PROCX(s%,a%+16):s%!0=a%+16:s%!4=0:s%!8=16:s%!12=16:SYS&2002e,522,s%,O$TOc%;w%:IFFNJ(w%)THEN
15640PROCP("Reason","Sprites"):PROCc(c%):PROCJ(4):PROCS
15641ENDIF
15642ELSE:s%=0
15643ENDIF:PROCVy("Templates"):IFjy%THEN
15644IFs%>0THEN
15645PROCu("ProgInfo",s%,"ProgInfo")
15646ELSE:PROCu("ProgInfo",+1,"ProgInfo")
15647ENDIF:o%=0
15648ELSE:IFs%>0THEN
15649o%=FNG("ProgInfo",z_%,s%)
15650ELSE:o%=FNG("ProgInfo",z_%,+1)
15651ENDIF
15652ENDIF:e_%=FNG("Query",z_%,+1):PROCiy:ENDPROC
15653DEFPROCVy(A$):LOCALy_%,h%,a%,c%,w%,N%:LOCALSu%,O$,Ay%,ey%:O$="<"+H$+"$Dir>."+A$:a%=FNH(O$):IFa%<=0THEN
15654PROCP("Reason",A$):PROCP("Sys","Not found"):PROCJ(4):PROCS
15655ENDIF:PROCX(h%,a%):PROCX(Ay%,a%+N):ey%=Ay%+Iy:Su%=Ay%+N:SYS&600d9,,O$TOc%;w%:IFFNJ(w%)THEN
15656PROCP("Reason","Templates"):PROCc(c%):PROCJ(4):SYS&600da:PROCS
15657ENDIF:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCNy
15658zy%=0:REPEAT:ey%!0=ASC("*"):SYS&600db,,Su%,h%,h%+a%,-1,ey%,zy%TOc%,,y_%,,,,zy%;w%:IFFNJ(w%)THEN
15659PROCY(c%):SYS&600da:PROCS
15660ENDIF:IFzy%THEN
15661FORw%=0TO11:IFey%?w%=13THENey%?w%=0:w%=12
15662NEXTw%:Ay%!yy=y_%-h%:Ay%!by=h%:N%=FNb(Ay%):IFN%=0THEN
15663PROCJ(16):SYS&600da:PROCS
15664ENDIF:N%!H=!xy%:!xy%=N%
15665ENDIF:UNTILzy%=0:RESTOREERROR:SYS&400da:PROCr(Ay%):PROCr(h%):ENDPROC
15666DEFPROCNy:SYS&600da:PROCA("Template"):ENDPROC
15667DEFFNG(X$,du%,S_%):=FNm(X$,du%,S_%,"")
15668DEFFNm(X$,du%,S_%,B$):LOCALN%,cJ%,J%:N%=FNW(X$):IFN%=0THEN
15669PROCS
15670ENDIF:cJ%=N%+N:cJ%!64=S_%:IFB$<>""THEN
15671J%=FNZ("FN"+B$)
15672ENDIF:IFFNI(N%,J%)THEN
15673PROCS
15674ENDIF:PROCl(N%):=J%
15675DEFPROCu(X$,S_%,B$):LOCALN%,Q%:N%=FNW(X$):IFN%=0THEN
15676PROCS
15677ENDIF:Q%=N%+N:Q%!64=S_%:IFB$<>""THEN
15678Q%=FNZ("FN"+B$+"("+STR$(Q%)+")")
15679ENDIF:ENDPROC
15680DEFFNV(X$,S_%):LOCALN%,Q%:N%=FNW(X$):IFN%=0THEN
15681PROCS
15682ENDIF:Q%=N%+N:Q%!64=S_%:=0
15683DEFFNa(X$,RETURNwy%):LOCALN%,My%:My%=FALSE:IFwy%<=0THEN
15684N%=FNW(X$):IFN%THEN
15685My%=FNI(N%,wy%):IFMy%=FALSETHEN
15686PROCl(N%)
15687ENDIF
15688ELSE:My%=TRUE
15689ENDIF
15690ENDIF:=My%
15691DEFFNd(X$):LOCALN%,A$,x%:N%=!xy%:x%=FALSE:WHILEN%AND(NOTx%):x%=(FNy(N%+Iy,12)=X$):IFNOTx%THEN
15692N%=N%!H
15693ENDIF:ENDWHILE:=N%
15694DEFFNW(X$):LOCALN%:N%=FNd(X$):IFN%=0THEN
15695PROCP("Reason",X$):PROCJ(3)
15696ENDIF:=N%
15697DEFFNI(N%,RETURNwy%):SYS&600c1,,N%+NTOwy%;N%:N%=FNJ(N%):IFN%THEN
15698PROCY(wy%):wy%=0
15699ENDIF:=N%
15700DEFPROCl(N%):LOCALS%:S%=xy%:WHILE!S%<>0AND!S%<>N%:S%=!S%+H:ENDWHILE:IF!S%=N%THEN
15701!S%=N%!H:N%!H=0:PROCr(N%)
15702ENDIF:ENDPROC
15703DEFFNj(A%):=USR(xy)
15704DEFFNb(A%):A%=FNj(A%):IFA%=0THEN
15705PROCJ(16)
15706ENDIF:=A%
15707DEFPROCoy:IF(C%AND2)=0THENPROCIy("Template")
15708[OPTC%:ALIGN:.xy:FNP:B hy:]:ENDPROC
15709DEFFN_Declare_Local_Variables_Template:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("@.Template")
15710DIMxy%4:!xy%=0:P%=0:[OPTC%:.H DCD0:.lJ DCD0:.by DCD0:.yy DCD0:.Iy DCD0:DCD0:DCD0:.N:]:=0
15711DEFFNh_DEFAULT:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("@.h.DEFAULT")
15712jl=16:Wi=1<<30:Fl=0:_l=1:qJ=2:Ca=3:RJ=4:pJ=5:`i=6:NJ=7:oi=8:Ol=1<<0:fy=1<<1:hi=1<<2:=0
15713DEFFNjumpblock_DEFAULT:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("@.h.DEFAULT")
15714[OPTC%ANDSy%:.si DCDx_:.Uu DCDtl:.ZJ DCDe_:.V_ DCDMi:.s_ DCDDu:.XJ DCDcl:.cJ DCDHi:.k_ DCDSl:._y DCDul:]:=0
15715DEFFNh_stdio:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("@.h.stdio")
15716WJ=0:wi=17:kl=34:=0
15717DEFFNjumpblock_stdio:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("@.h.stdio")
15718[OPTC%ANDSy%:.el DCDiJ:.oJ DCDzl:.Q_ DCDhl:.Ma DCD`l:.F_ DCDIJ:.wu%DCDau%:.tu%DCDru%:.vu%DCDxu%:.Pi DCDol:.al DCDAi:.Ui DCDxi:.Ni DCDni:.Zl DCDLu:]:=0
15719DEFFNh_stdlib:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("@.h.stdlib")
15720=0
15721DEFFNjumpblock_stdlib:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("@.h.stdlib")
15722[OPTC%ANDSy%:.Oy DCDhu:.cy DCDJl:.Pa DCDVi:.ey DCDll:.tJ DCDh_:.D_ DCDZa:.bl DCDQl:.J_ DCDQa:.__ DCD`u:.K_ DCDxJ:.S_ DCDdJ:.a_ DCDwJ:.Tu DCDP_:.Pl DCDt_:.uu DCDXl:]:=0
15723DEFFNh_string:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("@.h.string")
15724P%=0:[OPTC%:.Fu DCB0:.c_ DCB0:.Oi DCB0:.aJ DCB0:.nu DCB0:.Ul DCB0:.Bl DCB0:]:=0
15725DEFFNjumpblock_string:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("@.h.string")
15726[OPTC%ANDSy%:.SJ DCDuJ:.bJ DCDwl:.vJ DCDb_:.Ou DCDH_:.Kl DCDru:.ky DCDFi:.ly DCDTJ:.QJ DCDml:.f_ DCDZi:.Ei DCDjJ:.ei DCDI_:.Ti DCDg_:.nJ DCDRu:.Y_ DCDCu:.C_ DCDMu:._J DCDvi:.Yi DCDmJ:.eJ DCDSu:.VJ DCDT_:.cu DCDy_:.zu DCDR_:.vu DCDri:.mu DCDTl
15727._i DCDv_:.Nl DCDBJ:.qi DCDu_:.Gi DCDrJ:.Ji DCDJu:.vl DCDyJ:.Ii DCDUa:.Gl DCD`J:.il DCDtu:.dl DCDMJ:._u DCDgu:.ju DCDn_:.au DCDd_:.Wu DCDDa:.Bu DCDFJ:.m_ DCDr_:.Ml DCDJa:.Yu DCDpu:.G_ DCDIl:]:=0
15728DEFFNh_message:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("@.h.message")
15729=0
15730DEFFNjumpblock_message:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("@.h.message")
15731[OPTC%ANDSy%:.sy DCDWa:.W_ DCD`_:.li DCDAl:.Sa DCDiu:.X_ DCDlu:]:=0
15732DEFFNh_wimp:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("@.h.wimp")
15733Nu=12:N_=0:P%=0:[OPTC%:.Qy DCB0:.Cl DCB0:.uy DCB0:.z_ DCB0:.ai DCB0:.Uy DCB0:.Na DCB0:.iy DCB0:.wy DCB0:.Qu DCB0:.Xu DCB0:.Hu DCB0:.Ga DCB0:.Vl DCB0:.i_ DCB0:.Xi DCB0:.EJ DCB0:]:P%=0:[OPTC%:.Aa DCB0:.Si DCB0:.Yy DCB0:.wu DCB0:.Eu DCB0:.Zu DCB0
15734.LJ DCB0:.ii DCB0:.CJ DCB0:.Rl DCB0:.sl DCB0:.xu DCB0:]:P%=0:[OPTC%:.Wl DCB0:.kJ DCB0:.Fa DCB0:.gJ DCB0:.Vu DCB0:]:=0
15735DEFFNjumpblock_wimp:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("@.h.wimp")
15736[OPTC%ANDSy%:.Ba DCDLl:.Iu DCDrl:.GJ DCDU_:.Ci DCDpl:.ry DCDl_:.Li DCDyl:.`y DCDhJ:.Yl DCDzi:.hy DCDo_:.KJ DCDKu:.L_ DCDgl:.bi DCDeu:.bu DCDDl:.ui DCDnl:.Ri DCDB_:.ki DCDdi:.yi DCDpi:.fu DCDAJ:]:=0
15737DEFPROCwy:LOCALTy%,A_%,U$:LOCALDATA:RESTORE+0:IFjy%THEN
15738Ty%=!(FNW("ProgInfo")+N+88+(16<<5)+20)
15739ELSE:Ty%=FNe(o%,16)
15740ENDIF:READU$:A_%=ASC(U$):U$=MID$(U$,2):WHILEU$<>"":?Ty%=ASC(U$)EORA_%:U$=MID$(U$,2):Ty%+=1:ENDWHILE:?Ty%=0
15741DATA"�����������",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
15742ENDPROC
15743DEFPROCXy:LOCALM%:Xy%=13:DIMvy%Xy%:DIMqJ%LEN (H$)+2+1:M%=FNA(512):M%!0=-1:M%!4=0:M%!8=-16:M%!12=68+(Xy%-5)*8*2:M%!16=84:M%!20=&1700312b:M%!24=vy%:$vy%="":$qJ%="S!BC":M%!28=qJ%:M%!32=Xy%:SYS&400c2,,M%TOUJ%:PROCC(M%,512):PROCU(Y):ENDPROC
15744DEFPROCU(KJ%):IFKJ%<>YTHEN
15745PROCj("IconBar",KJ%+1):$vy%=LEFT$(FNv("IconBar"),Xy%-1)
15746ELSE:$vy%=LEFT$("UnRegistered",Xy%-1)
15747ENDIF:PROCxy(-1,UJ%,0,0,0):ENDPROC
15748DEFFN_FileType_version=1
15749DEFFN_hard_initialise_FileType:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.FileType: hard_initialise_FileType")
15750I=4095:JJ=4093:r=4091:xl=4089:=0
15751DEFFN_IntMath_version=4
15752DEFFN_hard_initialise_IntMath=0
15753DEFFN_ModeInfo_version=5
15754DEFFN_hard_initialise_ModeInfo=0
15755DEFPROCdy(v%):SYS53,v%,1TO,,q_%:q_%+=1:SYS53,v%,2TO,,x_%:x_%+=1:SYS53,v%,3TO,,wJ%:wJ%+=1:SYS53,v%,4TO,,Wu%:SYS53,v%,5TO,,Bu%:SYS53,v%,6TO,,Qu%:SYS53,v%,7TO,,_u%:SYS53,v%,9TO,,r_%:JJ%=1<<r_%:SYS53,v%,11TO,,my%:my%+=1:SYS53,v%,12TO,,ty%:ty%+=1:Vu%=my%DIVq_%:hu%=ty%DIVx_%
15756uy%=(my%<<Wu%)-1:ry%=(ty%<<Bu%)-1:eu%=32DIVJJ%:ENDPROC
15757DEFFN_Wimp_version=27
15758DEFFN_hard_initialise_Wimp:LOCALc%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.Wimp: hard_initialise_Wimp")
15759IFFNU<12THEN
15760ERROR1,"%.Wimp needs more recent version of the LibHandler"
15761ENDIF:SYS&400f2,0TOc%:IFc%=0THEN
15762ERROR0,"Application needs to be run from the desktop"
15763ENDIF:PROCF("<BasicV$Lib>.Heap",8):PROCF("<BasicV$Lib>.Message",3):PROCF("<BasicV$Lib>.Template",1):Gy%=FALSE:Dy%=3*1024:PROCX(dy%,Dy%):Dy%+=dy%:Cy%=dy%:PROCX(W%,512):m$="":x$="":H_%=0:H$="Application":T$="0.00 (01-Jan-1900)":Qy%=-1:p%=2400:Fy%=2401:Du%=16*1024:m%=FALSE:=0
15764DEFFNJ(Xu%):=(Xu%AND1)<>0
15765DEFPROCcy:SYS&400d2,-1,-1:ENDPROC
15766DEFFNx(T%):SYS&dcb8d,Yy,T%,-1:=TRUE
15767DEFPROCD_(Q%,qu%):LOCALS%:S%=FNA(128):!S%=Q%:SYS&400cb,,S%:S%!28=qu%:SYS&400e7,2,S%,Q%:PROCC(S%,128):ENDPROC
15768DEFPROCxy(T%,F%,IJ%,nu%,mu%):LOCALM%:M%=FNA(16):M%!0=T%:M%!4=F%:M%!8=nu%<<IJ%:M%!12=mu%<<IJ%:SYS&400cd,,M%:PROCC(M%,16):ENDPROC
15769DEFFNf(T%,F%):SYS&dcb8c,wy,T%,F%TOF%:=F%
15770DEFPROCB(T%,F%,ou%):SYS&dcb8c,iy,T%,F%,ou%:ENDPROC
15771DEFPROCp(T%,F%,y$):LOCALM%,Zl%,lu%,Al%,Cl%,`u%,pu%:M%=FNA(64):!M%=T%:M%!4=F%:SYS&400ce,,M%:IF((M%!24)AND259)<>2THEN
15772PROCG("Bad rename icon to "+y$)
15773ENDIF:SYS&400c4,,M%:$(M%+28)=y$:M%!4=T%:SYS&400c2,,M%+4:SYS&400d1,T%,M%!8,M%!12,M%!16,M%!20:PROCC(M%,64):ENDPROC
15774DEFPROCjy(Q%,Z%):SYS&dcb8c,Uy,Q%,Z%,+1:ENDPROC
15775DEFPROCsy(Q%,Z%):SYS&dcb8c,Uy,Q%,Z%,-1:ENDPROC
15776DEFPROCM(WJ%,F$):LOCALM%:M%=FNA(300):M%!0=WJ%:$(M%+4)=F$+CHR$(0):PROCY(M%):PROCC(M%,300):ENDPROC
15777DEFPROCG(F$):ERRORp%,F$:ENDPROC
15778DEFPROCJ(WJ%):LOCALM%:M%=FNA(300):M%!0=Fy%:PROCi("LE"+STR$(WJ%),M%+4):PROCY(M%):PROCC(M%,300):ENDPROC
15779DEFPROCY(Yu%):SYS&400df,Yu%,1,H$:ENDPROC
15780DEFPROCUy:LOCALM%:M%=FNA(256):M%?0=1:M%?1=0:M%?2=0:M%?3=0:M%?4=0:M%?5=uy%MOD256:M%?6=uy%DIV256:M%?7=ry%MOD256:M%?8=ry%DIV256:SYS7,21,M%:!M%=e_%:SYS&400c6,,M%:PROCC(M%,256):ENDPROC
15781DEFPROCQ_(U%,D%,V%,F%):LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.Wimp: Mouse_Click_Query")
15782PROCUy:U%=FNZ("FN_Stop_Action_"+k$+"("+STR$(F%=0)+")"):ENDPROC
15783DEFFNB(S%):LOCALf$:f$="":WHILE?S%>31:f$+=CHR$(?S%):S%+=1:ENDWHILE:=f$
15784DEFFNS(M$):WHILEINSTR(M$,"."):M$=MID$(M$,INSTR(M$,".")+1):ENDWHILE:=M$
15785DEFPROCN(T%,F%,J$):SYS&dcb8c,uy,T%,F%,J$:ENDPROC
15786DEFFNF(Q%,Z%):SYS&dcb8c,Qy,Q%,Z%TOQ%:=FNB(Q%)
15787DEFFNe(Q%,Z%):SYS&dcb8c,Qy,Q%,Z%TOQ%:=Q%
15788DEFFNH(S$):LOCALc%,a%,w%:SYS&20008,17,S$TOc%,,,,a%;w%:IFFNJ(w%)THEN
15789PROCP("Reason",FNS(S$)):PROCc(c%):PROCG(FNR(4))
15790ENDIF:IFc%<>1THEN
15791a%=-1
15792ENDIF:=a%
15793DEFFNA(Hy%):LOCALMy%:IF(Cy%+Hy%)<Dy%THEN
15794My%=Cy%:Cy%+=Hy%
15795ELSE:PROCG("Wimp Stack full")
15796ENDIF:=My%
15797DEFPROCJy:Cy%=dy%:ENDPROC
15798DEFPROCC(hy%,Hy%):IF(hy%<dy%)OR(hy%>Dy%)THEN
15799PROCG("Release_Stack: Invalid stack chunk")
15800ELSE:IF(Hy%<0)OR((hy%+Hy%)>Dy%)THEN
15801PROCG("Release_Stack: Invalid chunk size")
15802ELSE:Cy%-=Hy%:IFCy%<>hy%THEN
15803PROCG("Release_Stack: Bad pop")
15804ENDIF
15805ENDIF
15806ENDIF:ENDPROC
15807DEFPROCuy(_$,y%,Lu%,ju%,Hu%,iu%):T$=STR$(y%)+"."+RIGHT$("0"+STR$(Lu%),2):T$+=" ("+RIGHT$("0"+STR$(ju%),2)+"-":T$+=MID$("CBJanFebMarAprMayJunJulAugSepOctNovDec",Hu%*3,3):T$+="-"+RIGHT$("19"+STR$(iu%),4)+")":H$=_$:PROCP("App",H$):SYS&400c0,200,&4b534154,_$TOy%,Qy%:ONERRORPROCG_
15808SYS&606c0:IFy%<200THEN
15809ERRORp%,FNR(5)
15810ENDIF:IFm%THEN
15811SYS&81682,Qy%
15812ENDIF:Gy%=TRUE:PROCfy:PROC`y:Gy%=-2:PROCXy:PROCmy:IFjy%=0THEN
15813PROCN(o%,7,T$)
15814ENDIF:oJ%=-1:ky%=-1:P_%=-1:M_%=-1:pJ%=FALSE:_J%=-1:Pu%=-1:w$="":g$="":PROCg:SYS&606c1:ENDPROC
15815DEFPROCG_:SYS&606c1:IFPy%THEN
15816PROCM(Fy%,REPORT$+" ["+STR$ERL+"]")
15817ELSE:PROCM(Fy%,REPORT$)
15818ENDIF:PROCS:END:ENDPROC
15819DEFFNProgInfo(Q%):PROCH(Q%!(88+(7<<5)+20),T$):=0
15820DEFPROCB_:LOCALB_%,k_%:k_%=TRUE:IFm%THEN
15821cy%=cy%ANDNOT(49)
15822ENDIF:REPEAT:SYS&400c7,cy%,W%TOB_%:IFm%THENSYS&81686,B_%,,Qy%
15823CASEB_%OF
15824WHEN0:PROCN_
15825WHEN1:PROCU_
15826WHEN2:PROCey
15827WHEN3:PROCzy
15828WHEN4:PROC_y
15829WHEN5:PROCPy
15830WHEN6:PROCTy
15831WHEN7:PROCby
15832WHEN8:PROCM_
15833WHEN9:PROCC_
15834WHEN10:PROCP_
15835WHEN11:PROCDy
15836WHEN12:PROCT_
15837WHEN17:PROCm
15838WHEN18:PROCI_
15839WHEN19:PROCly
15840ENDCASE:UNTILNOT(k_%):ENDPROC
15841DEFPROC_y:IFNOT(m%)THEN
15842PROCM(p%,"Unexpected Pointer_Leaving_Window")
15843ENDIF:ENDPROC
15844DEFPROCPy:IFNOT(m%)THEN
15845PROCM(p%,"Unexpected Pointer_Entering_Window")
15846ENDIF:ENDPROC
15847DEFPROCP_:PROCG("Unexpected Scroll_Request"):ENDPROC
15848DEFPROCDy:PROCG("Unexpected Lose_Caret"):ENDPROC
15849DEFPROCT_:PROCG("Unexpected Gain_Caret"):ENDPROC
15850DEFPROCmy:DIMZ$(10):DIMF%(DIM(Z$(),1)):s$="�":Z$()=s$:F%()=-1:f_%=0:cy%=6193:ENDPROC
15851DEFPROCN_:LOCAL_%,q$,z%,W_%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.Wimp: Null_Reason_Code")
15852_%=DIM(Z$(),1):WHILE_%>0:_%-=1:q$=Z$(_%):IFq$<>s$THEN
15853z%=F%(_%):IFz%=-1THEN
15854W_%=FNZ("FN_Null_Reason_"+q$)
15855ELSE:W_%=FNZ("FN_Null_Reason_"+q$+"("+STR$(z%)+")")
15856ENDIF:IFW_%AND(Z$(_%)=q$)AND(F%(_%)=z%)THEN
15857Z$(_%)=s$:f_%-=1
15858ENDIF
15859ENDIF:ENDWHILE:ENDPROC
15860DEFPROCby:LOCALU%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.Wimp: User_Drag")
15861U%=FNZ("FN_Dragged_"+x$):IFH_%<>(1*16)THEN
15862PROCQ
15863ENDIF:SYS&400d0,,-1:x$="":ENDPROC
15864DEFPROCR(T%,F%,Iu%,B$):LOCALS%,E%,N_%,Q_%:S%=FNA(64):E%=FNA(256):S%!0=T%:S%!4=F%:SYS&400ce,,S%:E%!0=T%:SYS&400cb,,E%:N_%=E%!20:Q_%=E%!24:S%!0=T%:S%!4=5:S%!8+=E%!4-N_%:S%!12+=E%!16-Q_%:S%!16+=E%!4-N_%:S%!20+=E%!16-Q_%:S%!24=0:S%!28=0:S%!32=uy%:S%!36=ry%
15865SYS&400d0,,S%:PROCC(E%,256):PROCC(S%,64):x$=B$:H_%=Iu%:ENDPROC
15866DEFPROCI_:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.Wimp: User_Message_Recorded")
15867PROCm:ENDPROC
15868DEFPROCm:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.Wimp: User_Message")
15869CASEW%!16OF
15870WHEN0:PROCS
15871WHEN1:PROCyy
15872WHEN2:PROCW_
15873WHEN3:PROCL_
15874WHEN4:PROCQy
15875WHEN5:PROCBy
15876WHEN6:PROCAy
15877WHEN7:PROCWy
15878WHEN8:PROCh
15879WHEN9:PROCS_
15880WHEN1282:PROCHy
15881WHEN&400c0:PROCay
15882WHEN&400c1:PROCg
15883WHEN&400c5:PROCF_
15884ENDCASE:ENDPROC
15885DEFPROCF_:ENDPROC
15886DEFPROCWy:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("Message_RAM_Transmit: ")
15887IFW%!12<>M_%THEN
15888PROCM(Fy%,"Unexpected RAM_Transmit message")
15889ELSE:J_%+=W%!24:IF(W%!24)=__%THEN
15890PROCYy
15891ELSE:IFFNZ("FN_RAM_Load_Completed_"+w$+"("+STR$(J_%)+")")THEN
15892PROCJ(6)
15893ENDIF
15894ENDIF
15895ENDIF:ENDPROC
15896DEFPROCYy:LOCALRAM_start%:IFFNZ("FN_RAM_Load_"+w$+"("+STR$(J_%)+", "+STR$(__%)+", RAM_start%)")THEN
15897IFJ_%<>0THEN
15898PROCJ(7)
15899ELSE:IFFNZ("FN_RAM_Load_Failed_"+w$)
15900PROCEy
15901ENDIF
15902ELSE:W%!12=W%!8:W%!16=6:W%!20=RAM_start%:W%!24=__%:SYS&400e7,18,W%,W%!4:M_%=W%!8
15903ENDIF:ENDPROC
15904DEFPROCEy:LOCALMl%:SYS&20023,"Wimp$Scrap",0,-1,0,3TO,,gy%:IFgy%=0THEN
15905PROCJ(8)
15906ELSE:$(W%+44)="<Wimp$Scrap>"+CHR$(0):W%!36=-1:W%!16=2:W%!12=Pu%:W%!0=60:SYS&400e7,17,W%,_J%:P_%=W%!8:M_%=P_%:pJ%=FALSE
15907ENDIF:ENDPROC
15908DEFPROCOy:LOCALMl%:SYS&20023,"Wimp$Scrap",0,-1,0,3TO,,gy%:IFgy%=0THEN
15909PROCJ(8)
15910ELSE:$(W%+44)="<Wimp$Scrap>"+CHR$(0):W%!36=-1:W%!16=2:W%!12=W%!8:W%!0=60:SYS&400e7,17,W%,W%!4:P_%=W%!8
15911ENDIF:ENDPROC
15912DEFPROCAy:LOCALLa,RAM_start%,RAM_length%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("Message_RAM_Fetch: ")
15913IFW%!12<>ky%THEN
15914PROCJ(9)
15915ELSE:IFg$=""THEN
15916ELSE:IFFNZ("FN_RAM_Save_"+g$+"("+STR$(c_%)+", "+STR$(W%!24)+", RAM_start%, RAM_length%)")THEN
15917ELSE:c_%+=RAM_length%:SYS&400f1,Qy%,RAM_start%,W%!4,W%!20,RAM_length%:W%!12=W%!8:W%!16=7:W%!24=RAM_length%:SYS&400e7,17-(RAM_length%=(W%!24)),W%,W%!4:ky%=W%!8
15918ENDIF
15919ENDIF
15920ENDIF:ENDPROC
15921DEFFN_Misc_version=34
15922DEFFN_hard_initialise_Misc:LOCALZ%,n%,_%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.Misc: hard_initialise_Misc")
15923IFFNU<12THENERROR1,"Needs newer %.LibHandler"
15924TJ%=13:u$=CHR$(TJ%):xJ%=10:h$=CHR$(xJ%):i$=u$+h$:ti=256:DIMC%(15,1):n%=255:_%=3:FORZ%=0TO15:C%(Z%,0)=n%:C%(Z%,1)=_%:n%=FNK(n%,2):_%=FNK(_%,2):NEXTZ%:j$="":Nu%=100:su%=&7fff00:uu%=TRUE:Ru%=0:DIMJl%16:=0
15925DEFFNT(V$,Wy%,yu%):LOCALEy%,R_%,Y_%,I_%,T_%:i%=FNh(V$):IFC%AND2=0THEN
15926[OPTC%:DCD0:DCD0:]
15927ELSE:Ey%=yu%-P%-8:IFABS(Ey%)>65535THENERROR1,"adrl out of range"
15928Y_%=ABS(Ey%)AND255:R_%=ABS(Ey%)AND65280:IFEy%>=0THEN
15929I_%=i%OR(&28f0000+(Wy%<<12)+Y_%):T_%=i%OR(&2800c00+(Wy%<<16)+(Wy%<<12)+(R_%>>8))
15930ELSE:I_%=i%OR(&24f0000+(Wy%<<12)+Y_%):T_%=i%OR(&2400c00+(Wy%<<16)+(Wy%<<12)+(R_%>>8))
15931ENDIF:[OPTC%:DCDI_%:DCDT_%:]
15932ENDIF:=0
15933DEFFNK(U%,Yy%):LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.Misc: rol")
15934Yy%=Yy%MOD32:=(U%<<Yy%)OR(((NOT((-1)>>>Yy%))ANDU%)>>>(32-Yy%))
15935DEFPROCIy(M$):LOCALv_%,l_%,AJ%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.Misc: Define_Local_Variables(`"+M$+"')")
15936v_%=P%:l_%=O%:AJ%=C%:IF(C%AND4)=0THEN
15937O%=P%
15938ENDIF:P%=0:C%=C%OR6:P%=EVAL("FN_Declare_Local_Variables_"+M$):P%=v_%:O%=l_%:C%=AJ%:ENDPROC
15939DEFFNh(V$):LOCALi%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.Misc: FNcc")
15940IFV$=""ORV$=" "THEN=14<<28
15941IFV$="lo"THEN=3<<28
15942IFV$="hs"THEN=2<<28
15943i%=INSTR("eqnecsccmiplvsvchilsgeltgtlealnv",V$):IFi%MOD2THEN=((i%-1)>>1)<<28
15944ERROR1,"Unrecognised condition code `"+V$+"'":=0
15945DEFFN_Heap_version=8
15946DEFFN_hard_initialise_Heap:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.Heap: hard_initialise_Heap")
15947=0
15948DEFFNs(RETURNIy%,A%):Iy%=USR(sJ%):IF!k%THENIy%=0
15949=!k%
15950DEFPROCX(RETURNIy%,Hy%):IFFNs(Iy%,Hy%)THEN
15951Iy%=!k%:ERROR!Iy%,FNN(Iy%+4)
15952ENDIF:ENDPROC
15953DEFPROCr(RETURNA%):IFFNt(A%)THEN
15954A%=!k%:ERROR!A%,FNN(A%+4)
15955ENDIF:ENDPROC
15956DEFFNt(RETURNA%):CALL`_%:A%=0:=!k%
15957DEFPROCH_:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.Heap: assembler")
15958[OPTC%:FNX(sJ%,Oy):FNX(`_%,cy):FNX(cu%,ey):ALIGN:.k%DCD0:]:ENDPROC
15959DEFFNX(RETURNEu%,gu%):[OPTC%:ALIGN:.Eu%:FNP:STMFD(A)!,{M}:MOV M,#0:STR M,k%:BL gu%:STRvs0,k%:LDMFD(A)!,{pc}^:]:=0
15960DEFFN_Message_version=4
15961DEFFN_hard_initialise_Message:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.Message: hard_initialise_Message")
15962Qi=31:SYS5,"RMEnsure CAssembler 0.01 RMLoad System:Modules.CAssembler":DIMRy 256:=0
15963DEFFNg(l$,Ku%,RETURNC_%):LOCALA%:SYS&fcb83,l$+".Messages.",Ku%,0TOA%,C_%:IFC_%=0THENCALLXy
15964=A%
15965DEFFNr(J%,a$,V_%):SYS&fcb85,a$,V_%,J%TOV_%;J%:=V_%AND((J%AND2)=2)
15966DEFFNn(J%,a$,Y$):LOCALy%:SYS&fcb85,a$,Y$,J%TOy%;J%:=y%AND((J%AND2)=2)
15967DEFFNc(J%):LOCALy%:SYS&fcb86,J%TOy%;J%:=y%AND((J%AND2)=2)
15968DEFFNQ(J%,a$):LOCALy%:SYS&fcb84,a$,Ry,256,J%,0TOy%,J%:?J%=13:=$Ry
15969DEFPROCty(J%,a$,Tu%):J%=FNr(J%,a$,Tu%):ENDPROC
15970DEFPROCLy(J%,a$,Y$):J%=FNn(J%,a$,Y$):ENDPROC
15971DEFPROCry(J%):J%=FNc(J%):ENDPROC
15972DEFFN_(_%):=FNQ(b%,"E"+STR$(_%))
15973DEFFNv(r$):=FNQ(b%,r$)
15974DEFPROCj(r$,_%):PROCty(b%,r$,_%):ENDPROC
15975DEFPROCP(r$,o$):PROCLy(b%,r$,o$):ENDPROC
15976DEFPROCi(r$,B%):SYS&dcb84,r$,B%,256,b%,0:ENDPROC
15977DEFPROCCy:PROCry(b%):ENDPROC
15978DEFPROCc(V%):IFV%<=0THEN
15979PROCP("Sys",""):PROCP("SysN","")
15980ELSE:PROCP("Sys",FNB(V%+4)):PROCP("SysN",STR$~(!V%))
15981ENDIF:ENDPROC
15982DEFFNR(_%):=FNQ(b%,"LE"+STR$(_%))
15983DEFPROCJ_:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCA("%.Message: assemble")
15984[OPTC%:ALIGN:.Xy:FNP:B sy:]:IFC%AND4THENXy+=f%
15985ENDPROC
�><In$Dir>.!RunImage
0�Produced by BasCompress v1.30 (09 Sep 1992)
��O
��Ky(20,12):Ly%=-2:Py%=�:Ny%=Py%:�F("<BasicV$Lib>.CAsm",1):�F("<BasicV$Lib>.Template",1):X_%=Py%:�hy("stdio, stdlib, string, message, wimp"):�Fy(2000,�,�):�F("<BasicV$Lib>.FileType",1):�F("<BasicV$Lib>.IntMath",4):�F("<BasicV$Lib>.ModeInfo",1)
O�F("<BasicV$Lib>.Wimp",20):m%=�:b%=�g("<BasCompressFE$Dir>",-1,C_%):�C_%>0�
@�!b%,"BasCompressFE can't load its' message file: "+�N(b%+4)
��:ay%=3:`%=23:Uu%=8:R%=4:zJ%=0:Oy%=1:MJ%=3:Ry%=4:Fu%=6:Ky%=7:zu%=9:py%=10:VJ%=0:FJ%=1:d_%=2:E_%=3:Au%=4:a_%=5:t_%=6:XJ%=7:iJ%=0:w_%=1:L_%=2:uJ%=3:yJ%=4:Ju%=0:n_%=1:OJ%=2:HJ%=3:BJ%=4:GJ%=5:Mu%=6:G_%=0:Gu%=1:Zu%=2:LJ%=3:ZJ%=4:kJ%=5:ku%=0:QJ%=1:b_%=2
�EJ%=3:DJ%=4:tJ%=5:eJ%=6:j_%=0:PJ%=1:fJ%=2:`J%=0:Cu%=1:gJ%=2:dJ%=3:SJ%=4:NJ%=5:RJ%=6:nJ%=0:g_%=1:hJ%=2:h_%=0:CJ%=1:jJ%=2:V=0:K=1:qy=2:Ey=3:zy=4:Ty=4:S=8:J=-1:Y=0:Ky=1:dy=2:P=1:Q=2:W=3:Ny=4:y=0:Ly=11:Hy=22:b$="":c$="":iy%=0:yy%=0:�M%(R%):�S%(R%)
i�Z%(R%):by%=-1:fy%=-1:z$="":Z=P:s_%=-1:R=y:�uy("BasCompressFE",1,24,1,10,1992):Ny%=Py%:�Sy:�K:�x(X%)
��O
�Jy:�:�B_:��:�
��a:�my,n:�C%�2�
?S%=P%:YJ%=C%:O%=P%:P%=0:C%=C%�4:[OPTC%:ALIGN:]:P%=S%:C%=YJ%
��:[OPTC%:ALIGN:.B:.Jy DCD0:._ DCD0:.h DCD0:.C DCD0:DCD0:.m DCD0:DCD0:.x DCD0:.o DCD0:.p DCD0:.i DCD0:.l DCD0:DCD0:DCD0:DCD0:DCD0:DCD0:.Fy DCD0:DCD0:.` DCD0:.w DCD0:.t DCD0:.j DCD0:.b DCD0:.Wy DCD0:.Cy DCD0:.Zy DCD0:.My DCD0:.q DCD0:.z DCD0:DCD0:DCD0
�DCD0:DCD0:DCD0:.g DCD0:.Py DCD0:DCD0:.f DCD0:.Gy DCD0:.k DCD0:.Ay DCD0:.c DCD0:.By DCD0:.L:ALIGN:.my:EQUS"[0,w>,m>,m>,m>,m>,m>,dm>,>":DCB0:EQUS"[100,<t>,<t>,<t>,<t>,<s<t>,d<s<t>,<t>":DCB0:EQUS"[200,w>,<t>,<t>,m>,m>,<tm>":DCB0
�EQUS"[300,<t>,<t>,<t>,<t>,<t>,<t>":DCB0:EQUS"[400,<t>,<t>":DCB0:EQUS"[250,i4":DCB0:EQUS"[500,w>,<t>,<t>,<t>,<t>,<t>,<t>":DCB0:EQUS"[600,<t>,<t>,i256":DCB0:EQUS"[700,w>,m>,m>,w>,<t>":DCB0:EQUS"[800,m>,m>,w>":DCB0:EQUS"<t[900,>,>,>,>,>":DCB0
�EQUS"[300,<t>,<t>,<t>,<t>,<t>,<t>":DCB0:EQUS"[1000,m>,m>,w>":DCB0:EQUS"<t[900,>,>,>,>,>":DCB0:EQUS"[400,<t>,<t>":DCB0:EQUS"[1100,>,d>,<t>,<t>,<t>,<t>,<t>":DCB0:ALIGN:.n DCD0:DCD0:DCD0:ALIGN:.jy:�P:STMFD(A)!,{4-9,M}:SUB A,A,#L-B:MOV2,#L-B:ADR1,B
aMOV0,A:BL ky:ADR1,n+4:ADR0,my:BL ry:STRvc0,n:ADRvc0,n:ADD A,A,#L-B:LDMFD(A)!,{4-9,pc}:]:�oy:�
��t:�
I��iy:I%=�V("Order",s%):X%=�G("Control",0,+1):q%=�V("SaveAs",+1):�wy:�
��py(U%,D%,V%,F%):�(V%�1)�
笤M(z$)�
U%=�O(z$)
�
�:�D_(X%,-1)
�:�
��ey:Ȏ!W%�
:ș&400c5,,W%
�:�
��zy:ș&400c6,,W%:�
"��U_:�K_%:�:��:ș&606c1:�x
Nș&606c0:ș&400c8,,W%�K_%:ȕK_%:ș&81681,,W%:ș&400ca,,W%�K_%:�:ș&606c1:�
!1��M_:�T%,F%,d%:T%=W%!0:F%=W%!4:d%=W%!24:ȎT%�
"�q%:�ky(F%,d%)
#�X%:�`(F%,d%)
$:ș&400dc,d%
%�:�
& ��h:�S:�
'9��Hy:�F$,T%,F%,A%,Z%,u%:F$="":T%=W%!32:F%=W%!36:ȎT%�
(�-2:F$="IconBar"
)�o%:F$="ProgInfo"
*�I%:F$="Order":�z(F%)�
+�y(F%,Z%,u%):�u%=S�
, F$+=",R"
-�:F$+=","+�(�("A")+u%)
.�
/�:F$+=",_"
0�
1 �X%:F$="Control":�F%=-1�
2 F$+=",_"
3�:F$+=","+�(F%)
4�
5&�q%:�j("SaveAsType",Z):F$="SaveAs"
6�:�F$<>""�
7 �i("H"+F$,W%+20):�W%?20�
8NW%!16=1283:W%!12=W%!8:A%=W%+20:ȕ?A%:A%+=1:�:�A%>=(W%+256)�A%=W%+255:?A%=0
9)W%!0=(A%-W%+4)�-4:ș&400e7,17,W%,W%!4
:�
;�:�
<��g:�dy(-1):�
=
��S_:�
>*��S:��"Error in error handler: ";�$:�
?�Cy:�v:�m%�
@ș&a1683,Qy%
A�:ș&400dd:�:�
BN��Ty:�U%,D%,V%,Q%,F%,n%,u%:U%=W%!0:D%=W%!4:V%=W%!8:Q%=W%!12:F%=W%!16:ȎV%�
C �2:ȎQ%�
D9�-2:�D:D%=96+(44*mJ%)+(24*aJ%):ș&400d4,,sy%,U%-64,D%
E!�X%:�D:ș&400d4,,sy%,U%-64,D%
F�
G�1*16,4*16:ȎQ%�
H
�X%:ȎF%�
I,�MJ%:Z=P:�R(Q%,F%,V%,"FileName_Control")
J,�Fu%:Z=Q:�R(Q%,F%,V%,"FileName_Control")
K,�zJ%:Z=W:�R(Q%,F%,V%,"FileName_Control")
L�
M
�q%:ȎF%�
N%�1:�R(Q%,F%,V%,"FileName_SaveAs")
O�
P�
Q :ȎQ%�
R�-2:�py(U%,D%,V%,F%)
S�e_%:�Q_(U%,D%,V%,F%)
T�q%:�Z_(U%,D%,V%,F%)
U�o%:�My(U%,D%,V%,F%)
V�I%:�V_(U%,D%,V%,F%)
W�X%:�qy(U%,D%,V%,F%)
X�
Y�:�
Z��My(U%,D%,V%,F%):ȎF%�
[ �14,15:�M(Fy%,�_(0)):�V%<>1�
\�Q
]�
^�:�
_ ��`y:By%=�:_y%=&1040a31+0:�
`V��D:�A%:mJ%=8:aJ%=1:A%=�(jy):sy%=!A%:yy%=A%!4:iy%=A%!8:$yy%=�(a):$iy%=D$:By%=_y%:�
aW��ay:�U%,D%,ly%,r%,e%,x%:U%=W%!24:D%=W%!28:ly%=W%!32:r%=W%!36:e%=W%!40:x%=p%:ȎBy%�
b�_y%:Ȏly%�
c�VJ%:ș&400e8,,o%,U%,D%
d�d_%:Ȏr%�
e"�G_%:Z=W:�I:ș&400e8,,q%,U%,D%
f-:�M(x%,"Unexpected MenuWarning Message")
g�
h�E_%:Ȏr%�
i"�G_%:Z=P:�I:ș&400e8,,q%,U%,D%
j-:�M(x%,"Unexpected MenuWarning Message")
k�
l�a_%:Ȏr%�
m"�iJ%:Z=Q:�I:ș&400e8,,q%,U%,D%
n�w_%:Ȏe%�
o)�hJ%:R=Ly:�_(S%()):ș&400e8,,I%,U%,D%
p-:�M(x%,"Unexpected MenuWarning Message")
q�
r�L_%:Ȏe%�
s)�jJ%:R=Hy:�_(M%()):ș&400e8,,I%,U%,D%
t-:�M(x%,"Unexpected MenuWarning Message")
u�
v(�uJ%:R=y:�_(Z%()):ș&400e8,,I%,U%,D%
w-:�M(x%,"Unexpected MenuWarning Message")
x�
y-:�M(x%,"Unexpected MenuWarning Message")
z�
{-:�M(x%,"Unexpected MenuWarning Message")
|�:�
}���C_:�ly%,M%,o_%,p_%,rJ%,r%,A%,e%:�j%:M%=�A(512):ș&400cf,,M%:o_%=M%!0:p_%=M%!4:rJ%=M%!8:�C(M%,512):ly%=!W%:r%=W%!4:e%=W%!8:j%=W%!12:ȎBy%�
~�_y%:Ȏly%�
�FJ%:Ȏr%�
��Ju%:�Z(Jy)
��n_%:�Z(_)
��OJ%:�Z(h)
� �HJ%:�Z(C):�Z(C+4):�Z(C+12)
��BJ%:�Z(m)
��GJ%:�Z(x)
��Mu%:�Z(o)
��
��d_%:Ȏr%�
��Gu%:�Z(p)
��Zu%:�Z(i)
��LJ%:�e%<>-1�
��Z(l+(e%<<2))
��
��ZJ%:�e%<>-1�
��Z(Fy+(e%<<2))
��
��kJ%:Ȏe%�
�
�-1:�Z(`)
��0:a=�($yy%)
��
��
��E_%:Ȏr%�
��QJ%:�Z(w)
��b_%:�Z(t)
��EJ%:�Z(j)
��DJ%:�Z(b)
��tJ%:�Z(Wy)
��eJ%:�Z(Cy)
��
��Au%:Ȏr%�
��fJ%:�d($iy%)
��j_%:�Z(Zy)
��PJ%:�Z(My)
��
��a_%:Ȏr%�
��w_%:Ȏe%�
��nJ%:�j%<>-1�
� !q=j%
��
��g_%:�j%<>-1�
��Z(z+(j%<<2))
��
��
��L_%:Ȏe%�
��h_%:�j%<>-1�
� !g=j%
��
��CJ%:�j%<>-1�
��Z(Py+(j%<<2))
��
��
��yJ%:�Z(f)
��
��t_%:Ȏr%�
� �`J%:�A_
� �Cu%:�gy
��gJ%:�Z(Gy)
��dJ%:�Z(k)
��SJ%:�Z(Ay)
��NJ%:�Z(c)
��RJ%:�Z(By)
��
� �XJ%:�h
��
�
�:�rJ%=1�
�
ȎBy%�
� �_y%:�D
��:ș&400d4,,sy%,o_%,p_%
��:�Q
��:�
� ��Q:ș&400d4,,-1:By%=�:�
���Z(y%):!y%=(!y%=0):�
���d(A$):�A$=""�
� A$=c$
��:D$=A$:�N(X%,py%,D$):�
���k(A$):�A$=""�
� A$=E$
��:C$=A$:�N(X%,Oy%,A$):�
���X_(A$):�A$=""�
� A$=R$
��:W$=A$:�N(X%,Ky%,A$):�
���Ry(A$):�A$=""�
� A$=K$
��:P$=A$:�N(X%,Ry%,A$):�
�
��x:�Py%�
���,�$+" ["+�(�)+"]"
� �:��,�$
�
�:�S:�
���gy:�b:�K:�
�W��Sy:�J%,_$,Sl%:�b:D$=c$:C$=E$:W$=R$:P$=K$:J%=�("<BasCompressFE$Dir>.Choices"):�J%�
��:��:�#J%:�
�iș12,4,J%,B,L-B:�z(J%,M%()):�z(J%,S%()):�z(J%,Z%()):�#J%,P$:K$=P$:�#J%,W$:R$=W$:�#J%,C$:E$=C$:�#J%:��
��:�
�2��z(J%,�A%()):�Z%:�Z%=0�R%-1:�#J%,A%(Z%):�Z%:�
�5��A_:�J%:J%=�("<BasCompressFE$Dir>.Choices"):�J%�
��:��:�#J%:�x
�cș12,2,J%,B,L-B:�s(J%,M%()):�s(J%,S%()):�s(J%,Z%()):�#J%,�S(P$):�#J%,�S(W$):�#J%,�S(C$):�#J%:��
��:�
�1��s(J%,A%()):�Z%:�Z%=0�R%-1:�#J%,A%(Z%):�Z%:�
���b:�F:!Jy=�:!_=�:!h=�:!C=�:C!4=(!C=0):C!12=(!C=0):!m=�:!x=�:!o=�:!p=�:!i=�:�F=0�5:l!(F<<2)=�:�F:�F=0�1:Fy!(F<<2)=�:�F:!`=�:a=16:!w=�:!t=�:!j=�:!b=�:!Wy=�:!Cy=�:!Zy=�:!My=�:!q=3:�F=0�5:z!(F<<2)=�:�F:!g=3:�F=0�1:Py!(F<<2)=�:�F:!f=�:!Gy=�:!k=�:!Ay=�
�b!c=�:!By=�:M%()=J:S%()=J:Z%()=J:M%()=V,K:S%()=V,K:Z%()=V,K,Ey:K$="Log":E$="Output":R$="XRef":�
�M��K:�V(X%,py%,D$,c$):�V(X%,Ry%,P$,K$):�V(X%,Ky%,W$,R$):�V(X%,Oy%,C$,E$):�
���qy(U%,D%,V%,F%):�
���`(F%,d%):Ȏd%�
��13,398,399:ȎF%�
� �Ry%:Z=P
� �Ky%:Z=Q
� �Oy%:Z=W
�
�py%:Z=Ny
�&�:�T(�F(X%,F%)):�d%=398��jy(X%,F%)
��d%=399��sy(X%,F%)
��d%=13��cy
�
�27:�K
�:ș&400dc,d%
��:�
�(��_(A%()):�Z%,n%,G%:�a("Order",I%)�
���:Z%=0:ȕZ%<R%�A%(Z%)<>J:n%=A%(Z%)�(�S):�G%=0�Ty:�B(I%,�C(G%,Z%),n%=G%):�G%:�B(I%,`%+Z%,A%(Z%)�S):Z%+=1:�:ȕZ%<R%:�G%=0�Ty:�B(I%,�C(G%,Z%),�):�G%:�B(I%,`%+Z%,�):Z%+=1:�
��:�
���V_(U%,D%,V%,F%):ȎR�
��y:�e(Z%(),V%,F%)
��Hy:�e(M%(),V%,F%)
��Ly:�e(S%(),V%,F%)
��:�
�-��e(�A%(),V%,F%):�Z%,G%,u%,Y%,n%:�z(F%)�
�'�y(F%,Z%,u%):n%=�S:�(A%(Z%)�n%)=u%�
��f(I%,F%)=��
��o(A%(),Z%)
�
�:�u%=S�
�A%(Z%)=J�
�B(I%,F%,�)
!�:A%(Z%)=A%(Z%)�S:�v(A%(),Z%)
�
�:�A%(Z%)=J�
A%(Z%)=u%
�:A%(Z%)=(A%(Z%)�S)�u%
&�:�v(A%(),Z%):G%=0:Y%=�:�:�G%<>Z%�
Y%=((A%(G%)�n%)=u%):�Y%�
�Gy(A%(),Z%)
�
�:G%+=1:�Y%�G%>=R%
�
�
�:�
>��v(�A%(),�Z%):�Y%:Y%=(Z%<=0):ȕ�Y%:Y%=(A%(Z%-1)<>J):�Y%�
Z%-=1:�o(A%(),Z%):Y%=(Z%<=0)
�:�:�
T��o(�A%(),Z%):�G%,Y%,A_%:G%=Z%:�:A%(G%)=J:�B(I%,`%+G%,�):G%+=1:Y%=(G%>=R%):�Y%�
Y%=(A%(G%)=J):�Y%�
cA%(G%-1)=A%(G%):�B(I%,�C(A%(G%),G%-1),�):�B(I%,�C(A%(G%),G%),�):A_%=A%(G%)�S:�B(I%,`%+G%-1,A_%)
�
�:�Y%:�
~��Gy(�A%(),G%):�Z%,Y%:Z%=0:Y%=�:ȕ�u(A%(),Z%):Z%+=1:�:�B(I%,�C(A%(G%),G%),�):A%(G%)=Z%�(A%(G%)�S):�B(I%,�C(A%(G%),G%),�):�
Vݤu(A%(),Z%):�Z_%,G%:G%=0:Z_%=�:ȕG%<R%�(�Z_%):Z_%=((A%(G%)�(�S))=Z%):G%+=1:�:=Z_%
#ݤz(F%):=(F%>=ay%)�(F%<(`%+R%))
��y(F%,�u_%,�D_%):�F%>=`%�
D_%=S
�:D_%=(F%-ay%)�R%
�:u_%=(F%-ay%)�R%:�
+ݤC(D_%,u_%):=(((D_%�(�S))*R%)+ay%)+u_%
!��ky(F%,d%):Ȏd%�
"�13,398:�T(�F(q%,2)):�Q
#
�27:�Q
$:ș&400dc,d%
%�:�
&��Z_(U%,D%,V%,F%):ȎF%�
'�0:�T(�F(q%,2)):�V%�1�
(�D:ș&400d4,,sy%
)�:�Q
*�
+�:�
,��I:�a("SaveAs",q%)�
-�:�N(q%,2,�Y):�Z=W�
.�p(q%,1,"file_"+�~(r))
/ �:�p(q%,1,"file_"+�~(I))
0�
1�:�
2ݤY:�M$:ȎZ�
3 �P:M$=P$
4 �Q:M$=W$
5 �W:M$=C$
6
�Ny:M$=D$
7 �:=M$
8!��V(Q%,Z%,M$,p$):�M$=""�M$=p$
9�N(Q%,Z%,M$):�
:$ݤ_Dragged_FileName_Control:ȎZ�
;�P:�L(�F(X%,Ry%))
<�Q:�L(�F(X%,Ky%))
=�W:�L(�F(X%,Oy%))
>�:=0
?.ݤ_Dragged_FileName_SaveAs:�L(�F(q%,2)):=0
@Y��L(S$):�Q%,Z%,M%,U%,D%:M%=�A(320):ș&400cf,,M%:Q%=M%!12:Z%=M%!16:�(Q%<>-2)�(Q%<>X%)�
A �S$=""�
BȎZ�
C �P:S$=K$
D �Q:S$=R$
E �W:S$=E$
F�
G�:S$=�S(S$)
H��:U%=!M%:D%=M%!4:!M%=(�(S$)+48)�-4:M%!12=0:M%!16=1:M%!20=Q%:M%!24=Z%:M%!28=U%:M%!32=D%:M%!36=-1:M%!40=I:$(M%+44)=S$+�(0):ș&400e7,17,M%,Q%,Z%:s_%=M%!8
I�:�C(M%,320):�
J��T(S$):�S$<>�Y�
KȎZ�
L�P:�Ry(S$)
M�Q:�X_(S$)
N
�W:�k(S$)
O�Ny:�d(S$)
P�
Q
�:�I:�K:�
R��ly:ȎW%!12�
S�0:ȎW%!8�
T �by%:ș&400de,"/"+P$:by%=-1
U �fy%:ș&400de,"/"+W$:fy%=-1
V�
W�:�
X^��yy:�F_%,`$,T%,F%,U%,D%:`$=�B(W%+44):F_%=W%!40:T%=W%!20:F%=W%!24:U%=W%!28:D%=W%!32:ȎF_%�
Y
�r:�Oy
Z�:�
[^��L_:�F_%,e$,T%,F%,U%,D%:T%=W%!20:F%=W%!24:U%=W%!28:D%=W%!32:F_%=W%!40:e$=�N(W%+44):ȎF_%�
\�r:U%=�O(e$)
]�I:笤M(e$)�
^
�d(e$)
_�
`:�M(Fy%,�_(1))
a�:�
b ��W_:�S$,ny%:�(W%!12)<>s_%�
c
�J(10)
d!�:ny%=�:S$=�B(W%+44):ȎW%!40�
e�I:�T(S$):ny%=�
f:�J(10):ny%=�
g �:�ny%�
h9W%!12=ky%:W%!16=3:ș&400e7,18,W%,W%!20,W%!24:oJ%=W%!8
i�
j�:�
k
��Qy:�
l
��By:�
mݤE(J$):�Z%,S%:�J$<>""�
nZ�Z%=1��(J$):S%=�"ABCDEFGHIJKLMNOPQRSTUVWXYZ",�J$,Z%,1)):�S%>0��J$,Z%,1)=�(S%+�("a")-1)
o�Z%
p �:=J$
q1ݤM(M$):=(�S(M$)="")�(�E(M$)=b$)�(�M$,".")<1)
r"ݤO(L$):�Z$,Z%:�!By�(��M(C$))�
sZ%=�L$,"."):�Z%>0�
t)Z$=�C$,�(C$)-�(�S(C$)))+�S(L$):�k(Z$)
u�
v*�:z$=L$:Z$="":�!Jy<>0�Z$+=" -MultiDEF"
w�!_<>0�Z$+=" -WEndRtn"
x�!h<>0�Z$+=" -Number"
y�!C=0�Z$+=" -SWI"
z�!m=0�Z$+=" -SWIBad"
{�!x=0�Z$+=" -SWIExist"
|�!o<>0�Z$+=" -Library"
}�!i=0�Z$+=" -Unused"
~
笤M(C$)�
�!p=0�Z$+=" -Single"
�SZ$+=" -ReduceVar "+�q(l):Z$+=" -ReduceRtn "+�L(Fy):�!`<>0�Z$+=" -ListOut "+�(a)
��:笤M(P$)�
��!w=0�Z$+=" -Stats"
��!t=0�Z$+=" -EVAL"
��!j=0�Z$+=" -DATA"
��!b=0�Z$+=" -READ"
��!Wy=0�Z$+=" -GOTO"
��!Cy<>0�Z$+=" -List"
��:笤M(D$)�
��!Zy<>0�Z$+=" -UnusedS"
� �!My<>0�Z$+=" -WSpLabel"
��:�M(W$)�
�Z$+=" -XRef 0"
���:Z$+=" -XVar "+�(!q):Z$+=" -XIncVar "+�q(z):Z$+=" -XRtn "+�(!g):Z$+=" -XIncRtn "+�L(Py):Z$+=" -SRef "+�D(Z%()):Z$+=" -SVar "+�D(S%()):Z$+=" -SRtn "+�D(M%()):�!f=0�Z$+=" -Deleted"
���:�q("BasCompress$Options",Z$):�E("BasCompress$Special",D$):�E("BasCompress$XRef",W$):�E("BasCompress$Out",C$):�E("BasCompress$Log",P$):�!c�
� �q("Main",L$):L$="<Main>"
��:�:��:�U(Y):�x
� �M(P$)�
�4�U(dy):ș&400de,"BasCompress "+L$+" { > null: }"
�'�:�U(Ky):ș&400de,"BasCompress "+L$
�$�:��:�U(Y):�((!k)<>0)�(��M(P$))�
��n(by%,P$)
� �:�((!Ay)<>0)�(��M(W$))�
��n(fy%,W$)
� �:�((!Gy)<>0)�(��M(C$))�
�ș&400de,C$
��:=0
�?��n(�Ou%,_$):�S%,Zy%,vJ%,Pl%:ș8,5,_$�vJ%,,Zy%,,a%:�vJ%<>0�
��S%=�A(256):S%!20=-1:S%!28=0:S%!32=0:S%!36=a%:S%!40=(Zy%�&fff00)>>8:�H(S%+44,_$):S%!0=(�(_$)+1+3+44)�(�3):S%!12=0:S%!16=5:ș&400e7,18,S%,0:Ou%=S%!8:�C(S%,256)
��:�
�[��q(v$,d$):�S%:S%=�A(512):�H(S%,v$):�H(S%+256,d$):ș36,S%,S%+256,�(d$),0,0:�C(S%,512):�
���E(v$,d$):�M(d$)�
�ș&20024,v$,0,-1,0,2
��:�q(v$,d$)
��:�
�DݤD(A%()):�Z%,G%,A$,J$:A$="":Z%=0:G%=�:ȕG%�Z%<R%:ȎA%(Z%)�(�S)�
�
�V:J$="N"
��zy:J$="D"
��qy:J$="U"
�
�K:J$="T"
��Ey:J$="P"
� G%=�
�
�:�G%�
��A%(Z%)�S�
�A$+=�E(J$)
� �:A$+=J$
� �:Z%+=1
��:�:�(A$)=0�A$=""""""
�=A$
�!ݤq(U):�A$:A$="":�U!0�A$+="i"
��U!4�A$+="r"
��U!8�A$+="s"
��U!12�A$+="I"
��U!16�A$+="R"
��U!20�A$+="S"
��(A$)=0�A$=""""""
�=A$
�!ݤL(U):�A$:A$="":�U!0�A$+="p"
��U!4�A$+="f"
��(A$)=0�A$=""""""
�=A$
<y
ݤU=13
<z=��Ky(m_%,bu%):�:��:�A("%LibHandler: hard_initialise")
<{ �U<bu%�
<|�0,"LibHandler too old"
<}
�:�m_%<1�
<~/�1,"LibHandler: bad max librarys parameter"
<b�:`y%=m_%:�M$(`y%-1):�J%(`y%-1):O_%=0:�l%256:oy%=40:K%=0:Ly%=12:bJ%=�:�A$(oy%-1):Gy%=�:Ny%=�:�
<�G��F(G$,fu%):�Zy%,Z%,I$,t$:�:��:�A("%.LibHandler: load_library")
<�EZ%=0:Zy%=�:I$=�G$,1+�G$,".")):ȕZ%<O_%�Zy%:Zy%=(I$<>M$(Z%)):�Zy%�
<� Z%+=1
<�
�:�:�Zy%�
<� �Z%=`y%�
<�/�0,"LibHandler: Too many librarys to load!"
<�O�:M$(Z%)=I$:t$="'"+G$+"' does not have a FN_":�:��:�A(t$+I$+"_version")
<�RJ%(Z%)=�("FN_"+I$+"_version"):��:O_%+=1:�:��:�A(t$+"_hard_initialise_"+I$)
<�!�("FN_hard_initialise_"+I$)�
<�4�1,"Library file '"+G$+"'s hard init'ion failed"
<��:��
<��:�fu%>J%(Z%)�
<�&�1,"Library file '"+G$+"' too old"
<��:�
<���A(B$):�Gy%�
<� �Ny%�
<���,�$+" ["+Þ+"]."
<� �:��,�$
<��
<� �:�bJ%�
<� �K%=oy%�
<�&A(oy%-1)="Errors too deep!!!!!":�O
<��:��B$,2)=": "�
<�B$=�B$,�(B$)-2)
<� �:�Ny%�
<�
A$(K%)=�$
<� �:�K%=0�
<�JA$(K%)="Error `"+�$+"' (line ":A$(K%)+=�(�)+") in ":A$(K%)+="`"+B$+"'"
<��:A$(K%)="`"+B$+"'"
<��
<��:K%+=1:��,""
<��
<��:�
<�!��O:�t%,Ay$:�:�:�"::"+�(�):�
<� �Gy%�
<� �Ny%�
<� �M(�,�$+" ["+�(�)+"]."):�S:�
<��:�M(�,�$):�=p%�
<��S:�
<��
<��
<��:�Ly%=-2�
<�
�K%>0�
<�
���,A$(0)
<� �:���,�$
<��:�
<��:�Ly%=-3�
<�6$l%="TASK":ș&400c0,200,!l%,"LibHandler"+�(0):�K%�
<��t%=0�K%-1:�t%<(K%-1)�
<��w(A$(t%)+" in")
<��:�w(A$(t%))
<� �:�t%
<� �:�w(�$+" (line "�(�)+")")
<��:ș&600dd:�
<��:�Ly%>=0�
<��Ly%
<�'�:�"An error has occured...":�:�K%�
<�6�t%=0�K%-1:�((7-(t%<<1))�6)+1:�A$(t%);:�t%<(K%-1)�
<� �" in ";
<� �:�t%
<� �:�$;" (line ";�(�);")"
<� �:�:�7:�
<��:�
<�y��w(Y$):�lJ%:lJ%=20+(�(Y$)+5)�-4:!l%=lJ%:l%!16=&804c0:$(l%+20)=Y$:l%?(20+�(Y$))=10:l%?(21+�(Y$))=0:ș&600e7,17,l%,0:�
<�ݤ_CAsm_version=10
<�Bݤ_hard_initialise_CAsm:�:��:�A("%.CAsm: hard_initialise")
<��F("<BasicV_Assembler$Lib>.Misc",27):ș5,"RMEnsure CAssembler 0.03 RMLoad System:Modules.CAssembler":ș5,"If ""<CAsm$Dir>""="""" Then Set CAsm$Dir <d>.Library.CAsm":CAsmLibrary_stdlib=1:CAsmLibrary_stdio=2:CAsmLibrary_string=3:fJ=4:mi=5:qu=6:Bi=7
<�CAsmLibrary_wimp=8:M_=9:CAsmLibrary_message=10:Ki=11:ou=12:El=13:fi=14:ku=15:Di=16:A_=17:su=18:ql=19:ci=20:q_=21:j_=22:Hl=23:fl=24:p_=25:Xa=26:s=26:Au=0:Gu=1:du=2:HJ=3:E_=4:O_=5:w_=6:gi=7:py=8:Z_=9:E=10:X=11:u=12:A=13:M=14:PJ=15:ay=&6d734143:g%=0
<�8Sy%=13:O=0:G=0:d=10*1024:ty=d+(1*1024):X_%=�:vy=�:=0
<�]��hy(Q$):�S%,h%,E%,L%,O%,P%,C%,G$:�:��:ș&400ec,Vy%,-1:�A("%.CAsm: ClaimCAsmLibrary")
<�RVy%=�-32768:ș&400ec,Vy%+32768,-1�L%:L%+=32768:O%=Vy%+32768:P%=0:C%=14:�O%=L%�
<�/�1,"Not enough memory to start application"
<�
�:�g%<>0�
<�2�1,"Only one call to ClaimCAsmLibrary allowed"
<� �:�U_%s*8:�S$(s):�h_DEFAULT
<�eȕQ$<>"":G$=�Q$,�Q$,",")-1):�:��:�A("Attempted to claim the non-existent library: `"+G$+"'!")
<�Ch%=�("CAsmLibrary_"+G$):��:E%=U_%:S%=E%+(g%*8):ȕS%>E%:�!E%=h%�
<� E%=S%+1
<� �:E%+=8
<��:�:�E%=S%�
<� �g%>=s�
<�-�1,"Too many librarys have been claimed!"
<�=�:!S%=h%:S$(h%)=G$:g%+=1:O%=Vy%+32768:P%=0:�Z("FNh_"+G$)
<�G�:Q$=�Q$,�(G$)+2):ȕ�(Q$)=�(" "):Q$=�Q$,2):�:�:ș&400ec,Vy%,-1:��:�
<�>��f:�_%,S%,Z%,z%:�:��:�A("%.CAsm: AssembleCAsmTables")
<�
�g%=0�
<��h_DEFAULT
<� �:z%=U_%:Z%=g%:�(C%�2)=0�
<�(�S%g%*4:ș79,g%,S%+&c0000000,3,,z%,8
<م�:[OPTC%:.Dy DCDay:DCDny:]:ȕZ%>0:[OPTC%:DCD!z%:DCDz%!4:]:z%+=8:Z%-=1:�:[OPTC%:DCD0:]:[OPTC%:ALIGN:.e:]:S%=P%:�jumpblock_DEFAULT
<�Gny=(P%-S%)>>2:Z%=g%:z%=U_%:ȕZ%>0:S%=P%:�Z("FNjumpblock_"+S$(!z%))
<�#z%!4=(P%-S%)>>2:z%+=8:Z%-=1:�:�
<�5��vy:�Sy:�:��:�A("%.CAsm: AssembleCAsmBasic")
<��[OPTC%:ALIGN:.Vy:STMFD(A)!,{4-5,M}:BL P%+(13<<2):.Sy DCDDy-Sy:DCDe-Sy:DCDO-Sy:DCDG:DCDd:.D:DCD0:DCD0:DCD0:DCD0:LDR A,D:LDMFD(A)!,{E,X,u,M}:MOVpc,M:BIC5,M,#&fc000003:LDMIA5,{0-4}:ADD0,0,5:ADD1,1,5:ADD2,2,5:MOV5,#0:SWI &fcb80:STRvc0,D+(1<<2)
<ޯSTRvc1,D+(3<<2):LDMFD(A)!,{4-5,pc}:.v:�P:MOV2,M:MOV1,A:MOV0,E:SWI &fcb81:MOVvc1,#0:STRvc1,D+(3<<2):MOVpc,2:MOV13,12:]:O=P%:�W:�t:G=(G+3)�-4:P%+=G-1:O%+=G-1:[OPTC%:DCB0:]:�
<�7��Zy:�:��:�A("%.CAsm: AssembleCAsmApplication")
<�)�P%<>32768��1,"Expect P% to be &8000"
<�n[OPTC%:ADR4,T:MOV5,#fy:SWI &fcb80:�T("vc",2,yu):Bvc _y:SWI 43:.T:DCDDy-T:DCDe-T:DCDO-T:DCDG:DCDd:DCDty:]:�
<�5ݤP:�:��:�A("%.CAsm: StartCAssemblerSession")
<�p[OPTC%:STMFD(A)!,{E,X,u,M}:MOV X,pc:�T("",M,D):STR A,[M],#4:LDMIA(M)!,{E,u,A}:� X,X,#&fc000003:�R M,M,X:]:=0
<�2ݤN(A%):�N$:N$="":ȕ?A%:N$+=�(?A%):A%+=1:�:=N$
<�Aݤy(A%,B%):�N$:N$="":ȕB%>=0�?A%:N$+=�(?A%):A%+=1:B%-=1:�:=N$
<�"��H(A%,N$):$A%=N$:A%?�(N$)=0:�
<�ݤZ(n$):�:��:�ny
<�
=�(n$)
<���ny:�X_%�
<�"��,�$+" (evaluating `"+n$+"')"
<� �:��,�$
<��:�
<�:��Fy(qy%,Jy%,i_%):�:��:�A("%.CAsm: assemble_CAsm")
<�M�F("<BasicV$Lib>.Heap",8):�F("<BasicV$Lib>.Message",1):�w(qy%,Jy%,i_%,0)
<��Vy:��v:�O
<��
<���W:�C%�4�
<�ș&606c4,(O%-f%)*100�H%
<� �:ș&606c4,(P%-f%)*100�H%
<��:�
<�{ݤw(qy%,Jy%,i_%,Uy%):�L%,O%,P%,C%,Fl%,H%:�Pu:�OJ,sJ,DJ,zJ,YJ,UJ:�gy,oy,ji:�:��:�A("%.CAsm: assemble_CAsm_External")
<� �Uy%=0�
<�:�F("<BasicV$Lib>.Heap",8):�F("<BasicV$Lib>.Message",1)
<���:�f%qy%:Pu=A:OJ=1<<31:sJ=1<<30:DJ=1<<29:zJ=1<<28:YJ=1<<27:UJ=1<<26:gy=1<<17:oy=256:ji=oy+gy:ș&606c0:�:��:ș&606c1:�A("hourglass")
<�"H%=qy%:L%=f%+qy%:�Jy%<>0�Jy%=4
<�"�C%=8+Jy%�10+Jy%�2:�(C%�4)<>0�
<�O%=f%:�Uy%=1�
<� P%=32768
<�
�:P%=0
<��
<��:O%=0:P%=f%
= �:ȎUy%�
=/�1:�W:�Zy:�W:�a:�W:�f:O=P%:�W:�t:G=(G+3)�-4
='�0:�W:�a:�W:�H_:�W:�J_:�W:�f:�W:�vy
= �2:�W:�a
=�:�C%�4�L%=O%�L%=P%
=�(C%�2)=0�
=ș&dcb93,0,f%,L%-f%
=!�:H%=L%-f%:�C%:ș&606c1:�Jy%�
= �Uy%=0�
= Vy+=f%:v+=f%
=
�
= �:�vy�Uy%<>2�
= �Jy%�
=
H%=e:�Uy%�H%-=32768
=8�:�1,"CAsmTablesInBSS TRUE without offset assembly?"
=�
= �:�i_%�
=`�"Assembled to &";~H%;" = ";((H%*10+512)�1024)/10;"K":�"Could assemble with ";qy%-H%;" less"
= �:=H%
=ݤ_Template_version=3
=Nݤ_hard_initialise_Template:�c%:�:��:�A("%.Template: hard_initialise")
= jy%=�:=0
=G��fy:�a%,c%,w%,M%,O$,z_%:O$="<"+H$+"$Dir>.Sprites":a%=�H(O$):�a%>0�
=U�X(s%,a%+16):s%!0=a%+16:s%!4=0:s%!8=16:s%!12=16:ș&2002e,522,s%,O$�c%;w%:�J(w%)�
=*�P("Reason","Sprites"):�c(c%):�J(4):�S
=�
=
�:s%=0
= �:�Vy("Templates"):�jy%�
=
�s%>0�
= �u("ProgInfo",s%,"ProgInfo")
= "�:�u("ProgInfo",+1,"ProgInfo")
=
�:o%=0
= �:�s%>0�
=! o%=�G("ProgInfo",z_%,s%)
=" �:o%=�G("ProgInfo",z_%,+1)
=#�
=$"�:e_%=�G("Query",z_%,+1):�iy:�
=%X��Vy(A$):�y_%,h%,a%,c%,w%,N%:�Su%,O$,Ay%,ey%:O$="<"+H$+"$Dir>."+A$:a%=�H(O$):�a%<=0�
=&2�P("Reason",A$):�P("Sys","Not found"):�J(4):�S
='M�:�X(h%,a%):�X(Ay%,a%+N):ey%=Ay%+Iy:Su%=Ay%+N:ș&600d9,,O$�c%;w%:�J(w%)�
=(5�P("Reason","Templates"):�c(c%):�J(4):ș&600da:�S
=)�:�:��:�Ny
=*Uzy%=0:�:ey%!0=�("*"):ș&600db,,Su%,h%,h%+a%,-1,ey%,zy%�c%,,y_%,,,,zy%;w%:�J(w%)�
=+�Y(c%):ș&600da:�S
=, �:�zy%�
=-&�w%=0�11:�ey%?w%=13�ey%?w%=0:w%=12
=.1�w%:Ay%!yy=y_%-h%:Ay%!by=h%:N%=�b(Ay%):�N%=0�
=/�J(16):ș&600da:�S
=0�:N%!H=!xy%:!xy%=N%
=1)�:�zy%=0:��:ș&400da:�r(Ay%):�r(h%):�
=2"��Ny:ș&600da:�A("Template"):�
=3&ݤG(X$,du%,S_%):=�m(X$,du%,S_%,"")
=42ݤm(X$,du%,S_%,B$):�N%,cJ%,J%:N%=�W(X$):�N%=0�
=5�S
=6"�:cJ%=N%+N:cJ%!64=S_%:�B$<>""�
=7J%=�Z("FN"+B$)
=8�:�I(N%,J%)�
=9�S
=:�:�l(N%):=J%
=;*��u(X$,S_%,B$):�N%,Q%:N%=�W(X$):�N%=0�
=<�S
== �:Q%=N%+N:Q%!64=S_%:�B$<>""�
=> Q%=�Z("FN"+B$+"("+�(Q%)+")")
=?�:�
=@'ݤV(X$,S_%):�N%,Q%:N%=�W(X$):�N%=0�
=A�S
=B�:Q%=N%+N:Q%!64=S_%:=0
=C'ݤa(X$,�wy%):�N%,My%:My%=�:�wy%<=0�
=DN%=�W(X$):�N%�
=EMy%=�I(N%,wy%):�My%=��
=F
�l(N%)
=G�
=H �:My%=�
=I�
=J
�:=My%
=KHݤd(X$):�N%,A$,x%:N%=!xy%:x%=�:ȕN%�(�x%):x%=(�y(N%+Iy,12)=X$):�x%�
=L N%=N%!H
=M �:�:=N%
=N ݤW(X$):�N%:N%=�d(X$):�N%=0�
=O�P("Reason",X$):�J(3)
=P �:=N%
=Q5ݤI(N%,�wy%):ș&600c1,,N%+N�wy%;N%:N%=�J(N%):�N%�
=R�Y(wy%):wy%=0
=S �:=N%
=T;��l(N%):�S%:S%=xy%:ȕ!S%<>0�!S%<>N%:S%=!S%+H:�:�!S%=N%�
=U!S%=N%!H:N%!H=0:�r(N%)
=V�:�
=Wݤj(A%):=�(xy)
=X ݤb(A%):A%=�j(A%):�A%=0�
=Y
�J(16)
=Z �:=A%
=["��oy:�(C%�2)=0��Iy("Template")
=\ [OPTC%:ALIGN:.xy:�P:B hy:]:�
=]Aݤ_Declare_Local_Variables_Template:�:��:�A("@.Template")
=^Z�xy%4:!xy%=0:P%=0:[OPTC%:.H DCD0:.lJ DCD0:.by DCD0:.yy DCD0:.Iy DCD0:DCD0:DCD0:.N:]:=0
=_*ݤh_DEFAULT:�:��:�A("@.h.DEFAULT")
=`Zjl=16:Wi=1<<30:Fl=0:_l=1:qJ=2:Ca=3:RJ=4:pJ=5:`i=6:NJ=7:oi=8:Ol=1<<0:fy=1<<1:hi=1<<2:=0
=a2ݤjumpblock_DEFAULT:�:��:�A("@.h.DEFAULT")
=bm[OPTC%�Sy%:.si DCDx_:.Uu DCDtl:.ZJ DCDe_:.V_ DCDMi:.s_ DCDDu:.XJ DCDcl:.cJ DCDHi:.k_ DCDSl:._y DCDul:]:=0
=c&ݤh_stdio:�:��:�A("@.h.stdio")
=dWJ=0:wi=17:kl=34:=0
=e.ݤjumpblock_stdio:�:��:�A("@.h.stdio")
=f�[OPTC%�Sy%:.el DCDiJ:.oJ DCDzl:.Q_ DCDhl:.Ma DCD`l:.F_ DCDIJ:.wu%DCDau%:.tu%DCDru%:.vu%DCDxu%:.Pi DCDol:.al DCDAi:.Ui DCDxi:.Ni DCDni:.Zl DCDLu:]:=0
=g(ݤh_stdlib:�:��:�A("@.h.stdlib")
=h=0
=i0ݤjumpblock_stdlib:�:��:�A("@.h.stdlib")
=j�[OPTC%�Sy%:.Oy DCDhu:.cy DCDJl:.Pa DCDVi:.ey DCDll:.tJ DCDh_:.D_ DCDZa:.bl DCDQl:.J_ DCDQa:.__ DCD`u:.K_ DCDxJ:.S_ DCDdJ:.a_ DCDwJ:.Tu DCDP_:.Pl DCDt_:.uu DCDXl:]:=0
=k(ݤh_string:�:��:�A("@.h.string")
=lSP%=0:[OPTC%:.Fu DCB0:.c_ DCB0:.Oi DCB0:.aJ DCB0:.nu DCB0:.Ul DCB0:.Bl DCB0:]:=0
=m0ݤjumpblock_string:�:��:�A("@.h.string")
=n�[OPTC%�Sy%:.SJ DCDuJ:.bJ DCDwl:.vJ DCDb_:.Ou DCDH_:.Kl DCDru:.ky DCDFi:.ly DCDTJ:.QJ DCDml:.f_ DCDZi:.Ei DCDjJ:.ei DCDI_:.Ti DCDg_:.nJ DCDRu:.Y_ DCDCu:.C_ DCDMu:._J DCDvi:.Yi DCDmJ:.eJ DCDSu:.VJ DCDT_:.cu DCDy_:.zu DCDR_:.vu DCDri:.mu DCDTl
=o�._i DCDv_:.Nl DCDBJ:.qi DCDu_:.Gi DCDrJ:.Ji DCDJu:.vl DCDyJ:.Ii DCDUa:.Gl DCD`J:.il DCDtu:.dl DCDMJ:._u DCDgu:.ju DCDn_:.au DCDd_:.Wu DCDDa:.Bu DCDFJ:.m_ DCDr_:.Ml DCDJa:.Yu DCDpu:.G_ DCDIl:]:=0
=p*ݤh_message:�:��:�A("@.h.message")
=q=0
=r2ݤjumpblock_message:�:��:�A("@.h.message")
=sE[OPTC%�Sy%:.sy DCDWa:.W_ DCD`_:.li DCDAl:.Sa DCDiu:.X_ DCDlu:]:=0
=t$ݤh_wimp:�:��:�A("@.h.wimp")
=u�Nu=12:N_=0:P%=0:[OPTC%:.Qy DCB0:.Cl DCB0:.uy DCB0:.z_ DCB0:.ai DCB0:.Uy DCB0:.Na DCB0:.iy DCB0:.wy DCB0:.Qu DCB0:.Xu DCB0:.Hu DCB0:.Ga DCB0:.Vl DCB0:.i_ DCB0:.Xi DCB0:.EJ DCB0:]:P%=0:[OPTC%:.Aa DCB0:.Si DCB0:.Yy DCB0:.wu DCB0:.Eu DCB0:.Zu DCB0
=vy.LJ DCB0:.ii DCB0:.CJ DCB0:.Rl DCB0:.sl DCB0:.xu DCB0:]:P%=0:[OPTC%:.Wl DCB0:.kJ DCB0:.Fa DCB0:.gJ DCB0:.Vu DCB0:]:=0
=w,ݤjumpblock_wimp:�:��:�A("@.h.wimp")
=x�[OPTC%�Sy%:.Ba DCDLl:.Iu DCDrl:.GJ DCDU_:.Ci DCDpl:.ry DCDl_:.Li DCDyl:.`y DCDhJ:.Yl DCDzi:.hy DCDo_:.KJ DCDKu:.L_ DCDgl:.bi DCDeu:.bu DCDDl:.ui DCDnl:.Ri DCDB_:.ki DCDdi:.yi DCDpi:.fu DCDAJ:]:=0
=y!��wy:�Ty%,A_%,U$:��:�+0:�jy%�
=z)Ty%=!(�W("ProgInfo")+N+88+(16<<5)+20)
={�:Ty%=�e(o%,16)
=|O�:�U$:A_%=�(U$):U$=�U$,2):ȕU$<>"":?Ty%=�(U$)�A_%:U$=�U$,2):Ty%+=1:�:?Ty%=0
=}8�"�����������",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
=~�
=���Xy:�M%:Xy%=13:�vy%Xy%:�qJ%� (H$)+2+1:M%=�A(512):M%!0=-1:M%!4=0:M%!8=-16:M%!12=68+(Xy%-5)*8*2:M%!16=84:M%!20=&1700312b:M%!24=vy%:$vy%="":$qJ%="S!BC":M%!28=qJ%:M%!32=Xy%:ș&400c2,,M%�UJ%:�C(M%,512):�U(Y):�
=���U(KJ%):�KJ%<>Y�
=�2�j("IconBar",KJ%+1):$vy%=��v("IconBar"),Xy%-1)
=�!�:$vy%=�"UnRegistered",Xy%-1)
=��:�xy(-1,UJ%,0,0,0):�
=�ݤ_FileType_version=1
=�Sݤ_hard_initialise_FileType:�:��:�A("%.FileType: hard_initialise_FileType")
=�$I=4095:JJ=4093:r=4091:xl=4089:=0
=�ݤ_IntMath_version=4
=� ݤ_hard_initialise_IntMath=0
=�ݤ_ModeInfo_version=5
=�!ݤ_hard_initialise_ModeInfo=0
=����dy(v%):ș53,v%,1�,,q_%:q_%+=1:ș53,v%,2�,,x_%:x_%+=1:ș53,v%,3�,,wJ%:wJ%+=1:ș53,v%,4�,,Wu%:ș53,v%,5�,,Bu%:ș53,v%,6�,,Qu%:ș53,v%,7�,,_u%:ș53,v%,9�,,r_%:JJ%=1<<r_%:ș53,v%,11�,,my%:my%+=1:ș53,v%,12�,,ty%:ty%+=1:Vu%=my%�q_%:hu%=ty%�x_%
=�2uy%=(my%<<Wu%)-1:ry%=(ty%<<Bu%)-1:eu%=32�JJ%:�
=�ݤ_Wimp_version=27
=�Kݤ_hard_initialise_Wimp:�c%:�:��:�A("%.Wimp: hard_initialise_Wimp")
=� �U<12�
=�;�1,"%.Wimp needs more recent version of the LibHandler"
=��:ș&400f2,0�c%:�c%=0�
=�5�0,"Application needs to be run from the desktop"
=���:�F("<BasicV$Lib>.Heap",8):�F("<BasicV$Lib>.Message",3):�F("<BasicV$Lib>.Template",1):Gy%=�:Dy%=3*1024:�X(dy%,Dy%):Dy%+=dy%:Cy%=dy%:�X(W%,512):m$="":x$="":H_%=0:H$="Application":T$="0.00 (01-Jan-1900)":Qy%=-1:p%=2400:Fy%=2401:Du%=16*1024:m%=�:=0
=�ݤJ(Xu%):=(Xu%�1)<>0
=���cy:ș&400d2,-1,-1:�
=� ݤx(T%):ș&dcb8d,Yy,T%,-1:=�
=�[��D_(Q%,qu%):�S%:S%=�A(128):!S%=Q%:ș&400cb,,S%:S%!28=qu%:ș&400e7,2,S%,Q%:�C(S%,128):�
=�o��xy(T%,F%,IJ%,nu%,mu%):�M%:M%=�A(16):M%!0=T%:M%!4=F%:M%!8=nu%<<IJ%:M%!12=mu%<<IJ%:ș&400cd,,M%:�C(M%,16):�
=�'ݤf(T%,F%):ș&dcb8c,wy,T%,F%�F%:=F%
=�*��B(T%,F%,ou%):ș&dcb8c,iy,T%,F%,ou%:�
=�f��p(T%,F%,y$):�M%,Zl%,lu%,Al%,Cl%,`u%,pu%:M%=�A(64):!M%=T%:M%!4=F%:ș&400ce,,M%:�((M%!24)�259)<>2�
=� �G("Bad rename icon to "+y$)
=�d�:ș&400c4,,M%:$(M%+28)=y$:M%!4=T%:ș&400c2,,M%+4:ș&400d1,T%,M%!8,M%!12,M%!16,M%!20:�C(M%,64):�
=�&��jy(Q%,Z%):ș&dcb8c,Uy,Q%,Z%,+1:�
=�&��sy(Q%,Z%):ș&dcb8c,Uy,Q%,Z%,-1:�
=�K��M(WJ%,F$):�M%:M%=�A(300):M%!0=WJ%:$(M%+4)=F$+�(0):�Y(M%):�C(M%,300):�
=���G(F$):�p%,F$:�
=�M��J(WJ%):�M%:M%=�A(300):M%!0=Fy%:�i("LE"+�(WJ%),M%+4):�Y(M%):�C(M%,300):�
=� ��Y(Yu%):ș&400df,Yu%,1,H$:�
=����Uy:�M%:M%=�A(256):M%?0=1:M%?1=0:M%?2=0:M%?3=0:M%?4=0:M%?5=uy%�256:M%?6=uy%�256:M%?7=ry%�256:M%?8=ry%�256:ș7,21,M%:!M%=e_%:ș&400c6,,M%:�C(M%,256):�
=�>��Q_(U%,D%,V%,F%):�:��:�A("%.Wimp: Mouse_Click_Query")
=�5�Uy:U%=�Z("FN_Stop_Action_"+k$+"("+�(F%=0)+")"):�
=�5ݤB(S%):�f$:f$="":ȕ?S%>31:f$+=�(?S%):S%+=1:�:=f$
=�/ݤS(M$):ȕ�M$,"."):M$=�M$,�M$,".")+1):�:=M$
=�(��N(T%,F%,J$):ș&dcb8c,uy,T%,F%,J$:�
=�+ݤF(Q%,Z%):ș&dcb8c,Qy,Q%,Z%�Q%:=�B(Q%)
=�'ݤe(Q%,Z%):ș&dcb8c,Qy,Q%,Z%�Q%:=Q%
=�9ݤH(S$):�c%,a%,w%:ș&20008,17,S$�c%,,,,a%;w%:�J(w%)�
=�(�P("Reason",�S(S$)):�c(c%):�G(�R(4))
=�
�:�c%<>1�
=� a%=-1
=� �:=a%
=�!ݤA(Hy%):�My%:�(Cy%+Hy%)<Dy%�
=�My%=Cy%:Cy%+=Hy%
=��:�G("Wimp Stack full")
=�
�:=My%
=���Jy:Cy%=dy%:�
=�&��C(hy%,Hy%):�(hy%<dy%)�(hy%>Dy%)�
=�,�G("Release_Stack: Invalid stack chunk")
=� �:�(Hy%<0)�((hy%+Hy%)>Dy%)�
=�+�G("Release_Stack: Invalid chunk size")
=��:Cy%-=Hy%:�Cy%<>hy%�
=� �G("Release_Stack: Bad pop")
=��
=��
=��:�
=����uy(_$,y%,Lu%,ju%,Hu%,iu%):T$=�(y%)+"."+�"0"+�(Lu%),2):T$+=" ("+�"0"+�(ju%),2)+"-":T$+=�"CBJanFebMarAprMayJunJulAugSepOctNovDec",Hu%*3,3):T$+="-"+�"19"+�(iu%),4)+")":H$=_$:�P("App",H$):ș&400c0,200,&4b534154,_$�y%,Qy%:��G_
=�ș&606c0:�y%<200�
=�
�p%,�R(5)
=�
�:�m%�
=�ș&81682,Qy%
=�*�:Gy%=�:�fy:�`y:Gy%=-2:�Xy:�my:�jy%=0�
=��N(o%,7,T$)
=�O�:oJ%=-1:ky%=-1:P_%=-1:M_%=-1:pJ%=�:_J%=-1:Pu%=-1:w$="":g$="":�g:ș&606c1:�
=���G_:ș&606c1:�Py%�
=��M(Fy%,�$+" ["+Þ+"]")
=��:�M(Fy%,�$)
=� �:�S:�:�
=�.ݤProgInfo(Q%):�H(Q%!(88+(7<<5)+20),T$):=0
=� ��B_:�B_%,k_%:k_%=�:�m%�
=�cy%=cy%��(49)
=�1�:�:ș&400c7,cy%,W%�B_%:�m%�ș&81686,B_%,,Qy%
=�
ȎB_%�
=�
�0:�N_
=�
�1:�U_
=�
�2:�ey
=�
�3:�zy
=�
�4:�_y
=�
�5:�Py
=�
�6:�Ty
=�
�7:�by
=�
�8:�M_
=�
�9:�C_
=� �10:�P_
=� �11:�Dy
=� �12:�T_
=�
�17:�m
=� �18:�I_
=� �19:�ly
=��:��(k_%):�
=���_y:�(m%)�
=�.�M(p%,"Unexpected Pointer_Leaving_Window")
=��:�
=���Py:�(m%)�
=�/�M(p%,"Unexpected Pointer_Entering_Window")
=��:�
=�*��P_:�G("Unexpected Scroll_Request"):�
=�&��Dy:�G("Unexpected Lose_Caret"):�
=�&��T_:�G("Unexpected Gain_Caret"):�
=�G��my:�Z$(10):�F%(�(Z$(),1)):s$="�":Z$()=s$:F%()=-1:f_%=0:cy%=6193:�
=�>��N_:�_%,q$,z%,W_%:�:��:�A("%.Wimp: Null_Reason_Code")
=�0_%=�(Z$(),1):ȕ_%>0:_%-=1:q$=Z$(_%):�q$<>s$�
=�z%=F%(_%):�z%=-1�
=� W_%=�Z("FN_Null_Reason_"+q$)
=�0�:W_%=�Z("FN_Null_Reason_"+q$+"("+�(z%)+")")
=�#�:�W_%�(Z$(_%)=q$)�(F%(_%)=z%)�
=�Z$(_%)=s$:f_%-=1
=��
=� �:�:�
=�-��by:�U%:�:��:�A("%.Wimp: User_Drag")
=�)U%=�Z("FN_Dragged_"+x$):�H_%<>(1*16)�
=��Q
=��:ș&400d0,,-1:x$="":�
=����R(T%,F%,Iu%,B$):�S%,E%,N_%,Q_%:S%=�A(64):E%=�A(256):S%!0=T%:S%!4=F%:ș&400ce,,S%:E%!0=T%:ș&400cb,,E%:N_%=E%!20:Q_%=E%!24:S%!0=T%:S%!4=5:S%!8+=E%!4-N_%:S%!12+=E%!16-Q_%:S%!16+=E%!4-N_%:S%!20+=E%!16-Q_%:S%!24=0:S%!28=0:S%!32=uy%:S%!36=ry%
=�5ș&400d0,,S%:�C(E%,256):�C(S%,64):x$=B$:H_%=Iu%:�
=�5��I_:�:��:�A("%.Wimp: User_Message_Recorded")
=��m:�
=�+��m:�:��:�A("%.Wimp: User_Message")
=� ȎW%!16�
=� �0:�S
=�
�1:�yy
>
�2:�W_
>
�3:�L_
>
�4:�Qy
>
�5:�By
>
�6:�Ay
>
�7:�Wy
> �8:�h
>
�9:�S_
>
�1282:�Hy
> �&400c0:�ay
>
�&400c1:�g
> �&400c5:�F_
> �:�
>
��F_:�
>.��Wy:�:��:�A("Message_RAM_Transmit: ")
>�W%!12<>M_%�
>-�M(Fy%,"Unexpected RAM_Transmit message")
> �:J_%+=W%!24:�(W%!24)=__%�
>�Yy
>6�:�Z("FN_RAM_Load_Completed_"+w$+"("+�(J_%)+")")�
> �J(6)
>�
>�
>�:�
>S��Yy:�RAM_start%:�Z("FN_RAM_Load_"+w$+"("+�(J_%)+", "+�(__%)+", RAM_start%)")�
> �J_%<>0�
> �J(7)
>#�:�Z("FN_RAM_Load_Failed_"+w$)
> �Ey
> �
> P�:W%!12=W%!8:W%!16=6:W%!20=RAM_start%:W%!24=__%:ș&400e7,18,W%,W%!4:M_%=W%!8
> �:�
> :��Ey:�Ml%:ș&20023,"Wimp$Scrap",0,-1,0,3�,,gy%:�gy%=0�
>! �J(8)
>"o�:$(W%+44)="<Wimp$Scrap>"+�(0):W%!36=-1:W%!16=2:W%!12=Pu%:W%!0=60:ș&400e7,17,W%,_J%:P_%=W%!8:M_%=P_%:pJ%=�
>#�:�
>$:��Oy:�Ml%:ș&20023,"Wimp$Scrap",0,-1,0,3�,,gy%:�gy%=0�
>% �J(8)
>&c�:$(W%+44)="<Wimp$Scrap>"+�(0):W%!36=-1:W%!16=2:W%!12=W%!8:W%!0=60:ș&400e7,17,W%,W%!4:P_%=W%!8
>'�:�
>(F��Ay:�La,RAM_start%,RAM_length%:�:��:�A("Message_RAM_Fetch: ")
>)�W%!12<>ky%�
>* �J(9)
>+
�:�g$=""�
>,S�:�Z("FN_RAM_Save_"+g$+"("+�(c_%)+", "+�(W%!24)+", RAM_start%, RAM_length%)")�
>-��:c_%+=RAM_length%:ș&400f1,Qy%,RAM_start%,W%!4,W%!20,RAM_length%:W%!12=W%!8:W%!16=7:W%!24=RAM_length%:ș&400e7,17-(RAM_length%=(W%!24)),W%,W%!4:ky%=W%!8
>.�
>/�
>0�:�
>1ݤ_Misc_version=34
>2Qݤ_hard_initialise_Misc:�Z%,n%,_%:�:��:�A("%.Misc: hard_initialise_Misc")
>3(�U<12��1,"Needs newer %.LibHandler"
>4�TJ%=13:u$=�(TJ%):xJ%=10:h$=�(xJ%):i$=u$+h$:ti=256:�C%(15,1):n%=255:_%=3:�Z%=0�15:C%(Z%,0)=n%:C%(Z%,1)=_%:n%=�K(n%,2):_%=�K(_%,2):�Z%:j$="":Nu%=100:su%=&7fff00:uu%=�:Ru%=0:�Jl%16:=0
>5;ݤT(V$,Wy%,yu%):�Ey%,R_%,Y_%,I_%,T_%:i%=�h(V$):�C%�2=0�
>6[OPTC%:DCD0:DCD0:]
>77�:Ey%=yu%-P%-8:�(Ey%)>65535��1,"adrl out of range"
>8,Y_%=�(Ey%)�255:R_%=�(Ey%)�65280:�Ey%>=0�
>9RI_%=i%�(&28f0000+(Wy%<<12)+Y_%):T_%=i%�(&2800c00+(Wy%<<16)+(Wy%<<12)+(R_%>>8))
>:T�:I_%=i%�(&24f0000+(Wy%<<12)+Y_%):T_%=i%�(&2400c00+(Wy%<<16)+(Wy%<<12)+(R_%>>8))
>; �:[OPTC%:DCDI_%:DCDT_%:]
><�:=0
>=*ݤK(U%,Yy%):�:��:�A("%.Misc: rol")
>>;Yy%=Yy%�32:=(U%<<Yy%)�(((�((-1)>>>Yy%))�U%)>>>(32-Yy%))
>?Q��Iy(M$):�v_%,l_%,AJ%:�:��:�A("%.Misc: Define_Local_Variables(`"+M$+"')")
>@#v_%=P%:l_%=O%:AJ%=C%:�(C%�4)=0�
>A O%=P%
>BP�:P%=0:C%=C%�6:P%=�("FN_Declare_Local_Variables_"+M$):P%=v_%:O%=l_%:C%=AJ%:�
>C+ݤh(V$):�i%:�:��:�A("%.Misc: FNcc")
>D�V$=""�V$=" "�=14<<28
>E�V$="lo"�=3<<28
>F�V$="hs"�=2<<28
>GEi%=�"eqnecsccmiplvsvchilsgeltgtlealnv",V$):�i%�2�=((i%-1)>>1)<<28
>H0�1,"Unrecognised condition code `"+V$+"'":=0
>Iݤ_Heap_version=8
>JGݤ_hard_initialise_Heap:�:��:�A("%.Heap: hard_initialise_Heap")
>K=0
>L&ݤs(�Iy%,A%):Iy%=�(sJ%):�!k%�Iy%=0
>M=!k%
>N ��X(�Iy%,Hy%):�s(Iy%,Hy%)�
>OIy%=!k%:�!Iy%,�N(Iy%+4)
>P�:�
>Q��r(�A%):�t(A%)�
>RA%=!k%:�!A%,�N(A%+4)
>S�:�
>Tݤt(�A%):�`_%:A%=0:=!k%
>U)��H_:�:��:�A("%.Heap: assembler")
>V=[OPTC%:�X(sJ%,Oy):�X(`_%,cy):�X(cu%,ey):ALIGN:.k%DCD0:]:�
>WlݤX(�Eu%,gu%):[OPTC%:ALIGN:.Eu%:�P:STMFD(A)!,{M}:MOV M,#0:STR M,k%:BL gu%:STRvs0,k%:LDMFD(A)!,{pc}^:]:=0
>Xݤ_Message_version=4
>YPݤ_hard_initialise_Message:�:��:�A("%.Message: hard_initialise_Message")
>ZTQi=31:ș5,"RMEnsure CAssembler 0.01 RMLoad System:Modules.CAssembler":�Ry 256:=0
>[Iݤg(l$,Ku%,�C_%):�A%:ș&fcb83,l$+".Messages.",Ku%,0�A%,C_%:�C_%=0��Xy
>\=A%
>]<ݤr(J%,a$,V_%):ș&fcb85,a$,V_%,J%�V_%;J%:=V_%�((J%�2)=2)
>^<ݤn(J%,a$,Y$):�y%:ș&fcb85,a$,Y$,J%�y%;J%:=y%�((J%�2)=2)
>_0ݤc(J%):�y%:ș&fcb86,J%�y%;J%:=y%�((J%�2)=2)
>`<ݤQ(J%,a$):�y%:ș&fcb84,a$,Ry,256,J%,0�y%,J%:?J%=13:=$Ry
>a&��ty(J%,a$,Tu%):J%=�r(J%,a$,Tu%):�
>b$��Ly(J%,a$,Y$):J%=�n(J%,a$,Y$):�
>c��ry(J%):J%=�c(J%):�
>d ݤ_(_%):=�Q(b%,"E"+�(_%))
>eݤv(r$):=�Q(b%,r$)
>f ��j(r$,_%):�ty(b%,r$,_%):�
>g ��P(r$,o$):�Ly(b%,r$,o$):�
>h(��i(r$,B%):ș&dcb84,r$,B%,256,b%,0:�
>i��Cy:�ry(b%):�
>j��c(V%):�V%<=0�
>k �P("Sys",""):�P("SysN","")
>l+�:�P("Sys",�B(V%+4)):�P("SysN",�~(!V%))
>m�:�
>n ݤR(_%):=�Q(b%,"LE"+�(_%))
>o+��J_:�:��:�A("%.Message: assemble")
>p+[OPTC%:ALIGN:.Xy:�P:B sy:]:�C%�4�Xy+=f%
>q�
� 00000000 0d 00 01 18 f4 3e 3c 49 6e 24 44 69 72 3e 2e 21 |.....><In$Dir>.!|
00000010 52 75 6e 49 6d 61 67 65 0d 00 02 30 f4 50 72 6f |RunImage...0.Pro|
00000020 64 75 63 65 64 20 62 79 20 42 61 73 43 6f 6d 70 |duced by BasComp|
00000030 72 65 73 73 20 76 31 2e 33 30 20 28 30 39 20 53 |ress v1.30 (09 S|
00000040 65 70 20 31 39 39 32 29 0d 00 03 08 ee 85 f2 4f |ep 1992).......O|
00000050 0d 00 04 f6 f2 4b 79 28 32 30 2c 31 32 29 3a 4c |.....Ky(20,12):L|
00000060 79 25 3d 2d 32 3a 50 79 25 3d a3 3a 4e 79 25 3d |y%=-2:Py%=.:Ny%=|
00000070 50 79 25 3a f2 46 28 22 3c 42 61 73 69 63 56 24 |Py%:.F("<BasicV$|
00000080 4c 69 62 3e 2e 43 41 73 6d 22 2c 31 29 3a f2 46 |Lib>.CAsm",1):.F|
00000090 28 22 3c 42 61 73 69 63 56 24 4c 69 62 3e 2e 54 |("<BasicV$Lib>.T|
000000a0 65 6d 70 6c 61 74 65 22 2c 31 29 3a 58 5f 25 3d |emplate",1):X_%=|
000000b0 50 79 25 3a f2 68 79 28 22 73 74 64 69 6f 2c 20 |Py%:.hy("stdio, |
000000c0 73 74 64 6c 69 62 2c 20 73 74 72 69 6e 67 2c 20 |stdlib, string, |
000000d0 6d 65 73 73 61 67 65 2c 20 77 69 6d 70 22 29 3a |message, wimp"):|
000000e0 f2 46 79 28 32 30 30 30 2c a3 2c a3 29 3a f2 46 |.Fy(2000,.,.):.F|
000000f0 28 22 3c 42 61 73 69 63 56 24 4c 69 62 3e 2e 46 |("<BasicV$Lib>.F|
00000100 69 6c 65 54 79 70 65 22 2c 31 29 3a f2 46 28 22 |ileType",1):.F("|
00000110 3c 42 61 73 69 63 56 24 4c 69 62 3e 2e 49 6e 74 |<BasicV$Lib>.Int|
00000120 4d 61 74 68 22 2c 34 29 3a f2 46 28 22 3c 42 61 |Math",4):.F("<Ba|
00000130 73 69 63 56 24 4c 69 62 3e 2e 4d 6f 64 65 49 6e |sicV$Lib>.ModeIn|
00000140 66 6f 22 2c 31 29 0d 00 05 4f f2 46 28 22 3c 42 |fo",1)...O.F("<B|
00000150 61 73 69 63 56 24 4c 69 62 3e 2e 57 69 6d 70 22 |asicV$Lib>.Wimp"|
00000160 2c 32 30 29 3a 6d 25 3d b9 3a 62 25 3d a4 67 28 |,20):m%=.:b%=.g(|
00000170 22 3c 42 61 73 43 6f 6d 70 72 65 73 73 46 45 24 |"<BasCompressFE$|
00000180 44 69 72 3e 22 2c 2d 31 2c 43 5f 25 29 3a e7 43 |Dir>",-1,C_%):.C|
00000190 5f 25 3e 30 8c 0d 00 06 40 85 21 62 25 2c 22 42 |_%>0....@.!b%,"B|
000001a0 61 73 43 6f 6d 70 72 65 73 73 46 45 20 63 61 6e |asCompressFE can|
000001b0 27 74 20 6c 6f 61 64 20 69 74 73 27 20 6d 65 73 |'t load its' mes|
000001c0 73 61 67 65 20 66 69 6c 65 3a 20 22 2b a4 4e 28 |sage file: "+.N(|
000001d0 62 25 2b 34 29 0d 00 07 fb cd 3a 61 79 25 3d 33 |b%+4).....:ay%=3|
000001e0 3a 60 25 3d 32 33 3a 55 75 25 3d 38 3a 52 25 3d |:`%=23:Uu%=8:R%=|
000001f0 34 3a 7a 4a 25 3d 30 3a 4f 79 25 3d 31 3a 4d 4a |4:zJ%=0:Oy%=1:MJ|
00000200 25 3d 33 3a 52 79 25 3d 34 3a 46 75 25 3d 36 3a |%=3:Ry%=4:Fu%=6:|
00000210 4b 79 25 3d 37 3a 7a 75 25 3d 39 3a 70 79 25 3d |Ky%=7:zu%=9:py%=|
00000220 31 30 3a 56 4a 25 3d 30 3a 46 4a 25 3d 31 3a 64 |10:VJ%=0:FJ%=1:d|
00000230 5f 25 3d 32 3a 45 5f 25 3d 33 3a 41 75 25 3d 34 |_%=2:E_%=3:Au%=4|
00000240 3a 61 5f 25 3d 35 3a 74 5f 25 3d 36 3a 58 4a 25 |:a_%=5:t_%=6:XJ%|
00000250 3d 37 3a 69 4a 25 3d 30 3a 77 5f 25 3d 31 3a 4c |=7:iJ%=0:w_%=1:L|
00000260 5f 25 3d 32 3a 75 4a 25 3d 33 3a 79 4a 25 3d 34 |_%=2:uJ%=3:yJ%=4|
00000270 3a 4a 75 25 3d 30 3a 6e 5f 25 3d 31 3a 4f 4a 25 |:Ju%=0:n_%=1:OJ%|
00000280 3d 32 3a 48 4a 25 3d 33 3a 42 4a 25 3d 34 3a 47 |=2:HJ%=3:BJ%=4:G|
00000290 4a 25 3d 35 3a 4d 75 25 3d 36 3a 47 5f 25 3d 30 |J%=5:Mu%=6:G_%=0|
000002a0 3a 47 75 25 3d 31 3a 5a 75 25 3d 32 3a 4c 4a 25 |:Gu%=1:Zu%=2:LJ%|
000002b0 3d 33 3a 5a 4a 25 3d 34 3a 6b 4a 25 3d 35 3a 6b |=3:ZJ%=4:kJ%=5:k|
000002c0 75 25 3d 30 3a 51 4a 25 3d 31 3a 62 5f 25 3d 32 |u%=0:QJ%=1:b_%=2|
000002d0 0d 00 08 f7 45 4a 25 3d 33 3a 44 4a 25 3d 34 3a |....EJ%=3:DJ%=4:|
000002e0 74 4a 25 3d 35 3a 65 4a 25 3d 36 3a 6a 5f 25 3d |tJ%=5:eJ%=6:j_%=|
000002f0 30 3a 50 4a 25 3d 31 3a 66 4a 25 3d 32 3a 60 4a |0:PJ%=1:fJ%=2:`J|
00000300 25 3d 30 3a 43 75 25 3d 31 3a 67 4a 25 3d 32 3a |%=0:Cu%=1:gJ%=2:|
00000310 64 4a 25 3d 33 3a 53 4a 25 3d 34 3a 4e 4a 25 3d |dJ%=3:SJ%=4:NJ%=|
00000320 35 3a 52 4a 25 3d 36 3a 6e 4a 25 3d 30 3a 67 5f |5:RJ%=6:nJ%=0:g_|
00000330 25 3d 31 3a 68 4a 25 3d 32 3a 68 5f 25 3d 30 3a |%=1:hJ%=2:h_%=0:|
00000340 43 4a 25 3d 31 3a 6a 4a 25 3d 32 3a 56 3d 30 3a |CJ%=1:jJ%=2:V=0:|
00000350 4b 3d 31 3a 71 79 3d 32 3a 45 79 3d 33 3a 7a 79 |K=1:qy=2:Ey=3:zy|
00000360 3d 34 3a 54 79 3d 34 3a 53 3d 38 3a 4a 3d 2d 31 |=4:Ty=4:S=8:J=-1|
00000370 3a 59 3d 30 3a 4b 79 3d 31 3a 64 79 3d 32 3a 50 |:Y=0:Ky=1:dy=2:P|
00000380 3d 31 3a 51 3d 32 3a 57 3d 33 3a 4e 79 3d 34 3a |=1:Q=2:W=3:Ny=4:|
00000390 79 3d 30 3a 4c 79 3d 31 31 3a 48 79 3d 32 32 3a |y=0:Ly=11:Hy=22:|
000003a0 62 24 3d 22 22 3a 63 24 3d 22 22 3a 69 79 25 3d |b$="":c$="":iy%=|
000003b0 30 3a 79 79 25 3d 30 3a de 4d 25 28 52 25 29 3a |0:yy%=0:.M%(R%):|
000003c0 de 53 25 28 52 25 29 0d 00 09 69 de 5a 25 28 52 |.S%(R%)...i.Z%(R|
000003d0 25 29 3a 62 79 25 3d 2d 31 3a 66 79 25 3d 2d 31 |%):by%=-1:fy%=-1|
000003e0 3a 7a 24 3d 22 22 3a 5a 3d 50 3a 73 5f 25 3d 2d |:z$="":Z=P:s_%=-|
000003f0 31 3a 52 3d 79 3a f2 75 79 28 22 42 61 73 43 6f |1:R=y:.uy("BasCo|
00000400 6d 70 72 65 73 73 46 45 22 2c 31 2c 32 34 2c 31 |mpressFE",1,24,1|
00000410 2c 31 30 2c 31 39 39 32 29 3a 4e 79 25 3d 50 79 |,10,1992):Ny%=Py|
00000420 25 3a f2 53 79 3a f2 4b 3a e7 a4 78 28 58 25 29 |%:.Sy:.K:..x(X%)|
00000430 0d 00 0a 08 ee 85 f2 4f 0d 00 0b 12 f2 4a 79 3a |.......O.....Jy:|
00000440 f5 3a f2 42 5f 3a fd a3 3a e0 0d 00 0c 14 dd f2 |.:.B_:..:.......|
00000450 61 3a ea 6d 79 2c 6e 3a e7 43 25 80 32 8c 0d 00 |a:.my,n:.C%.2...|
00000460 0d 3f 53 25 3d 50 25 3a 59 4a 25 3d 43 25 3a 4f |.?S%=P%:YJ%=C%:O|
00000470 25 3d 50 25 3a 50 25 3d 30 3a 43 25 3d 43 25 84 |%=P%:P%=0:C%=C%.|
00000480 34 3a 5b 4f 50 54 43 25 3a 41 4c 49 47 4e 3a 5d |4:[OPTC%:ALIGN:]|
00000490 3a 50 25 3d 53 25 3a 43 25 3d 59 4a 25 0d 00 0e |:P%=S%:C%=YJ%...|
000004a0 fd cd 3a 5b 4f 50 54 43 25 3a 41 4c 49 47 4e 3a |..:[OPTC%:ALIGN:|
000004b0 2e 42 3a 2e 4a 79 20 44 43 44 30 3a 2e 5f 20 44 |.B:.Jy DCD0:._ D|
000004c0 43 44 30 3a 2e 68 20 44 43 44 30 3a 2e 43 20 44 |CD0:.h DCD0:.C D|
000004d0 43 44 30 3a 44 43 44 30 3a 2e 6d 20 44 43 44 30 |CD0:DCD0:.m DCD0|
000004e0 3a 44 43 44 30 3a 2e 78 20 44 43 44 30 3a 2e 6f |:DCD0:.x DCD0:.o|
000004f0 20 44 43 44 30 3a 2e 70 20 44 43 44 30 3a 2e 69 | DCD0:.p DCD0:.i|
00000500 20 44 43 44 30 3a 2e 6c 20 44 43 44 30 3a 44 43 | DCD0:.l DCD0:DC|
00000510 44 30 3a 44 43 44 30 3a 44 43 44 30 3a 44 43 44 |D0:DCD0:DCD0:DCD|
00000520 30 3a 44 43 44 30 3a 2e 46 79 20 44 43 44 30 3a |0:DCD0:.Fy DCD0:|
00000530 44 43 44 30 3a 2e 60 20 44 43 44 30 3a 2e 77 20 |DCD0:.` DCD0:.w |
00000540 44 43 44 30 3a 2e 74 20 44 43 44 30 3a 2e 6a 20 |DCD0:.t DCD0:.j |
00000550 44 43 44 30 3a 2e 62 20 44 43 44 30 3a 2e 57 79 |DCD0:.b DCD0:.Wy|
00000560 20 44 43 44 30 3a 2e 43 79 20 44 43 44 30 3a 2e | DCD0:.Cy DCD0:.|
00000570 5a 79 20 44 43 44 30 3a 2e 4d 79 20 44 43 44 30 |Zy DCD0:.My DCD0|
00000580 3a 2e 71 20 44 43 44 30 3a 2e 7a 20 44 43 44 30 |:.q DCD0:.z DCD0|
00000590 3a 44 43 44 30 3a 44 43 44 30 0d 00 0f e5 44 43 |:DCD0:DCD0....DC|
000005a0 44 30 3a 44 43 44 30 3a 44 43 44 30 3a 2e 67 20 |D0:DCD0:DCD0:.g |
000005b0 44 43 44 30 3a 2e 50 79 20 44 43 44 30 3a 44 43 |DCD0:.Py DCD0:DC|
000005c0 44 30 3a 2e 66 20 44 43 44 30 3a 2e 47 79 20 44 |D0:.f DCD0:.Gy D|
000005d0 43 44 30 3a 2e 6b 20 44 43 44 30 3a 2e 41 79 20 |CD0:.k DCD0:.Ay |
000005e0 44 43 44 30 3a 2e 63 20 44 43 44 30 3a 2e 42 79 |DCD0:.c DCD0:.By|
000005f0 20 44 43 44 30 3a 2e 4c 3a 41 4c 49 47 4e 3a 2e | DCD0:.L:ALIGN:.|
00000600 6d 79 3a 45 51 55 53 22 5b 30 2c 77 3e 2c 6d 3e |my:EQUS"[0,w>,m>|
00000610 2c 6d 3e 2c 6d 3e 2c 6d 3e 2c 6d 3e 2c 64 6d 3e |,m>,m>,m>,m>,dm>|
00000620 2c 3e 22 3a 44 43 42 30 3a 45 51 55 53 22 5b 31 |,>":DCB0:EQUS"[1|
00000630 30 30 2c 3c 74 3e 2c 3c 74 3e 2c 3c 74 3e 2c 3c |00,<t>,<t>,<t>,<|
00000640 74 3e 2c 3c 73 3c 74 3e 2c 64 3c 73 3c 74 3e 2c |t>,<s<t>,d<s<t>,|
00000650 3c 74 3e 22 3a 44 43 42 30 3a 45 51 55 53 22 5b |<t>":DCB0:EQUS"[|
00000660 32 30 30 2c 77 3e 2c 3c 74 3e 2c 3c 74 3e 2c 6d |200,w>,<t>,<t>,m|
00000670 3e 2c 6d 3e 2c 3c 74 6d 3e 22 3a 44 43 42 30 0d |>,m>,<tm>":DCB0.|
00000680 00 10 f3 45 51 55 53 22 5b 33 30 30 2c 3c 74 3e |...EQUS"[300,<t>|
00000690 2c 3c 74 3e 2c 3c 74 3e 2c 3c 74 3e 2c 3c 74 3e |,<t>,<t>,<t>,<t>|
000006a0 2c 3c 74 3e 22 3a 44 43 42 30 3a 45 51 55 53 22 |,<t>":DCB0:EQUS"|
000006b0 5b 34 30 30 2c 3c 74 3e 2c 3c 74 3e 22 3a 44 43 |[400,<t>,<t>":DC|
000006c0 42 30 3a 45 51 55 53 22 5b 32 35 30 2c 69 34 22 |B0:EQUS"[250,i4"|
000006d0 3a 44 43 42 30 3a 45 51 55 53 22 5b 35 30 30 2c |:DCB0:EQUS"[500,|
000006e0 77 3e 2c 3c 74 3e 2c 3c 74 3e 2c 3c 74 3e 2c 3c |w>,<t>,<t>,<t>,<|
000006f0 74 3e 2c 3c 74 3e 2c 3c 74 3e 22 3a 44 43 42 30 |t>,<t>,<t>":DCB0|
00000700 3a 45 51 55 53 22 5b 36 30 30 2c 3c 74 3e 2c 3c |:EQUS"[600,<t>,<|
00000710 74 3e 2c 69 32 35 36 22 3a 44 43 42 30 3a 45 51 |t>,i256":DCB0:EQ|
00000720 55 53 22 5b 37 30 30 2c 77 3e 2c 6d 3e 2c 6d 3e |US"[700,w>,m>,m>|
00000730 2c 77 3e 2c 3c 74 3e 22 3a 44 43 42 30 3a 45 51 |,w>,<t>":DCB0:EQ|
00000740 55 53 22 5b 38 30 30 2c 6d 3e 2c 6d 3e 2c 77 3e |US"[800,m>,m>,w>|
00000750 22 3a 44 43 42 30 3a 45 51 55 53 22 3c 74 5b 39 |":DCB0:EQUS"<t[9|
00000760 30 30 2c 3e 2c 3e 2c 3e 2c 3e 2c 3e 22 3a 44 43 |00,>,>,>,>,>":DC|
00000770 42 30 0d 00 11 f8 45 51 55 53 22 5b 33 30 30 2c |B0....EQUS"[300,|
00000780 3c 74 3e 2c 3c 74 3e 2c 3c 74 3e 2c 3c 74 3e 2c |<t>,<t>,<t>,<t>,|
00000790 3c 74 3e 2c 3c 74 3e 22 3a 44 43 42 30 3a 45 51 |<t>,<t>":DCB0:EQ|
000007a0 55 53 22 5b 31 30 30 30 2c 6d 3e 2c 6d 3e 2c 77 |US"[1000,m>,m>,w|
000007b0 3e 22 3a 44 43 42 30 3a 45 51 55 53 22 3c 74 5b |>":DCB0:EQUS"<t[|
000007c0 39 30 30 2c 3e 2c 3e 2c 3e 2c 3e 2c 3e 22 3a 44 |900,>,>,>,>,>":D|
000007d0 43 42 30 3a 45 51 55 53 22 5b 34 30 30 2c 3c 74 |CB0:EQUS"[400,<t|
000007e0 3e 2c 3c 74 3e 22 3a 44 43 42 30 3a 45 51 55 53 |>,<t>":DCB0:EQUS|
000007f0 22 5b 31 31 30 30 2c 3e 2c 64 3e 2c 3c 74 3e 2c |"[1100,>,d>,<t>,|
00000800 3c 74 3e 2c 3c 74 3e 2c 3c 74 3e 2c 3c 74 3e 22 |<t>,<t>,<t>,<t>"|
00000810 3a 44 43 42 30 3a 41 4c 49 47 4e 3a 2e 6e 20 44 |:DCB0:ALIGN:.n D|
00000820 43 44 30 3a 44 43 44 30 3a 44 43 44 30 3a 41 4c |CD0:DCD0:DCD0:AL|
00000830 49 47 4e 3a 2e 6a 79 3a a4 50 3a 53 54 4d 46 44 |IGN:.jy:.P:STMFD|
00000840 28 41 29 21 2c 7b 34 2d 39 2c 4d 7d 3a 53 55 42 |(A)!,{4-9,M}:SUB|
00000850 20 41 2c 41 2c 23 4c 2d 42 3a 4d 4f 56 32 2c 23 | A,A,#L-B:MOV2,#|
00000860 4c 2d 42 3a 41 44 52 31 2c 42 0d 00 12 61 4d 4f |L-B:ADR1,B...aMO|
00000870 56 30 2c 41 3a 42 4c 20 6b 79 3a 41 44 52 31 2c |V0,A:BL ky:ADR1,|
00000880 6e 2b 34 3a 41 44 52 30 2c 6d 79 3a 42 4c 20 72 |n+4:ADR0,my:BL r|
00000890 79 3a 53 54 52 76 63 30 2c 6e 3a 41 44 52 76 63 |y:STRvc0,n:ADRvc|
000008a0 30 2c 6e 3a 41 44 44 20 41 2c 41 2c 23 4c 2d 42 |0,n:ADD A,A,#L-B|
000008b0 3a 4c 44 4d 46 44 28 41 29 21 2c 7b 34 2d 39 2c |:LDMFD(A)!,{4-9,|
000008c0 70 63 7d 3a 5d 3a f2 6f 79 3a e1 0d 00 13 09 dd |pc}:]:.oy:......|
000008d0 f2 74 3a e1 0d 00 14 49 dd f2 69 79 3a 49 25 3d |.t:....I..iy:I%=|
000008e0 a4 56 28 22 4f 72 64 65 72 22 2c 73 25 29 3a 58 |.V("Order",s%):X|
000008f0 25 3d a4 47 28 22 43 6f 6e 74 72 6f 6c 22 2c 30 |%=.G("Control",0|
00000900 2c 2b 31 29 3a 71 25 3d a4 56 28 22 53 61 76 65 |,+1):q%=.V("Save|
00000910 41 73 22 2c 2b 31 29 3a f2 77 79 3a e1 0d 00 15 |As",+1):.wy:....|
00000920 1e dd f2 70 79 28 55 25 2c 44 25 2c 56 25 2c 46 |...py(U%,D%,V%,F|
00000930 25 29 3a e7 28 56 25 80 31 29 8c 0d 00 16 0d e7 |%):.(V%.1)......|
00000940 ac a4 4d 28 7a 24 29 8c 0d 00 17 0d 55 25 3d a4 |..M(z$).....U%=.|
00000950 4f 28 7a 24 29 0d 00 18 05 cd 0d 00 19 10 cc 3a |O(z$)..........:|
00000960 f2 44 5f 28 58 25 2c 2d 31 29 0d 00 1a 07 cd 3a |.D_(X%,-1).....:|
00000970 e1 0d 00 1b 0f dd f2 65 79 3a c8 8e 21 57 25 ca |.......ey:..!W%.|
00000980 0d 00 1c 12 7f 3a c8 99 26 34 30 30 63 35 2c 2c |.....:..&400c5,,|
00000990 57 25 0d 00 1d 07 cb 3a e1 0d 00 1e 17 dd f2 7a |W%.....:.......z|
000009a0 79 3a c8 99 26 34 30 30 63 36 2c 2c 57 25 3a e1 |y:..&400c6,,W%:.|
000009b0 0d 00 1f 22 dd f2 55 5f 3a ea 4b 5f 25 3a ea 85 |..."..U_:.K_%:..|
000009c0 3a ee 85 ea f7 85 3a c8 99 26 36 30 36 63 31 3a |:.....:..&606c1:|
000009d0 f2 78 0d 00 20 4e c8 99 26 36 30 36 63 30 3a c8 |.x.. N..&606c0:.|
000009e0 99 26 34 30 30 63 38 2c 2c 57 25 b8 4b 5f 25 3a |.&400c8,,W%.K_%:|
000009f0 c8 95 4b 5f 25 3a c8 99 26 38 31 36 38 31 2c 2c |..K_%:..&81681,,|
00000a00 57 25 3a c8 99 26 34 30 30 63 61 2c 2c 57 25 b8 |W%:..&400ca,,W%.|
00000a10 4b 5f 25 3a ce 3a c8 99 26 36 30 36 63 31 3a e1 |K_%:.:..&606c1:.|
00000a20 0d 00 21 31 dd f2 4d 5f 3a ea 54 25 2c 46 25 2c |..!1..M_:.T%,F%,|
00000a30 64 25 3a 54 25 3d 57 25 21 30 3a 46 25 3d 57 25 |d%:T%=W%!0:F%=W%|
00000a40 21 34 3a 64 25 3d 57 25 21 32 34 3a c8 8e 54 25 |!4:d%=W%!24:..T%|
00000a50 ca 0d 00 22 12 c9 71 25 3a f2 6b 79 28 46 25 2c |..."..q%:.ky(F%,|
00000a60 64 25 29 0d 00 23 11 c9 58 25 3a f2 60 28 46 25 |d%)..#..X%:.`(F%|
00000a70 2c 64 25 29 0d 00 24 11 7f 3a c8 99 26 34 30 30 |,d%)..$..:..&400|
00000a80 64 63 2c 64 25 0d 00 25 07 cb 3a e1 0d 00 26 0c |dc,d%..%..:...&.|
00000a90 dd f2 68 3a f2 53 3a e1 0d 00 27 39 dd f2 48 79 |..h:.S:...'9..Hy|
00000aa0 3a ea 46 24 2c 54 25 2c 46 25 2c 41 25 2c 5a 25 |:.F$,T%,F%,A%,Z%|
00000ab0 2c 75 25 3a 46 24 3d 22 22 3a 54 25 3d 57 25 21 |,u%:F$="":T%=W%!|
00000ac0 33 32 3a 46 25 3d 57 25 21 33 36 3a c8 8e 54 25 |32:F%=W%!36:..T%|
00000ad0 ca 0d 00 28 14 c9 2d 32 3a 46 24 3d 22 49 63 6f |...(..-2:F$="Ico|
00000ae0 6e 42 61 72 22 0d 00 29 15 c9 6f 25 3a 46 24 3d |nBar"..)..o%:F$=|
00000af0 22 50 72 6f 67 49 6e 66 6f 22 0d 00 2a 1b c9 49 |"ProgInfo"..*..I|
00000b00 25 3a 46 24 3d 22 4f 72 64 65 72 22 3a e7 a4 7a |%:F$="Order":..z|
00000b10 28 46 25 29 8c 0d 00 2b 17 f2 79 28 46 25 2c 5a |(F%)...+..y(F%,Z|
00000b20 25 2c 75 25 29 3a e7 75 25 3d 53 8c 0d 00 2c 0c |%,u%):.u%=S...,.|
00000b30 46 24 2b 3d 22 2c 52 22 0d 00 2d 1a cc 3a 46 24 |F$+=",R"..-..:F$|
00000b40 2b 3d 22 2c 22 2b bd 28 97 28 22 41 22 29 2b 75 |+=","+.(.("A")+u|
00000b50 25 29 0d 00 2e 05 cd 0d 00 2f 0e cc 3a 46 24 2b |%)......./..:F$+|
00000b60 3d 22 2c 5f 22 0d 00 30 05 cd 0d 00 31 1c c9 58 |=",_"..0....1..X|
00000b70 25 3a 46 24 3d 22 43 6f 6e 74 72 6f 6c 22 3a e7 |%:F$="Control":.|
00000b80 46 25 3d 2d 31 8c 0d 00 32 0c 46 24 2b 3d 22 2c |F%=-1...2.F$+=",|
00000b90 5f 22 0d 00 33 13 cc 3a 46 24 2b 3d 22 2c 22 2b |_"..3..:F$+=","+|
00000ba0 c3 28 46 25 29 0d 00 34 05 cd 0d 00 35 26 c9 71 |.(F%)..4....5&.q|
00000bb0 25 3a f2 6a 28 22 53 61 76 65 41 73 54 79 70 65 |%:.j("SaveAsType|
00000bc0 22 2c 5a 29 3a 46 24 3d 22 53 61 76 65 41 73 22 |",Z):F$="SaveAs"|
00000bd0 0d 00 36 0e cb 3a e7 46 24 3c 3e 22 22 8c 0d 00 |..6..:.F$<>""...|
00000be0 37 1c f2 69 28 22 48 22 2b 46 24 2c 57 25 2b 32 |7..i("H"+F$,W%+2|
00000bf0 30 29 3a e7 57 25 3f 32 30 8c 0d 00 38 4e 57 25 |0):.W%?20...8NW%|
00000c00 21 31 36 3d 31 32 38 33 3a 57 25 21 31 32 3d 57 |!16=1283:W%!12=W|
00000c10 25 21 38 3a 41 25 3d 57 25 2b 32 30 3a c8 95 3f |%!8:A%=W%+20:..?|
00000c20 41 25 3a 41 25 2b 3d 31 3a ce 3a e7 41 25 3e 3d |A%:A%+=1:.:.A%>=|
00000c30 28 57 25 2b 32 35 36 29 8c 41 25 3d 57 25 2b 32 |(W%+256).A%=W%+2|
00000c40 35 35 3a 3f 41 25 3d 30 0d 00 39 29 57 25 21 30 |55:?A%=0..9)W%!0|
00000c50 3d 28 41 25 2d 57 25 2b 34 29 80 2d 34 3a c8 99 |=(A%-W%+4).-4:..|
00000c60 26 34 30 30 65 37 2c 31 37 2c 57 25 2c 57 25 21 |&400e7,17,W%,W%!|
00000c70 34 0d 00 3a 05 cd 0d 00 3b 07 cd 3a e1 0d 00 3c |4..:....;..:...<|
00000c80 11 dd f2 67 3a f2 64 79 28 2d 31 29 3a e1 0d 00 |...g:.dy(-1):...|
00000c90 3d 0a dd f2 53 5f 3a e1 0d 00 3e 2a dd f2 53 3a |=...S_:...>*..S:|
00000ca0 ee 85 f1 22 45 72 72 6f 72 20 69 6e 20 65 72 72 |..."Error in err|
00000cb0 6f 72 20 68 61 6e 64 6c 65 72 3a 20 22 3b f6 24 |or handler: ";.$|
00000cc0 3a e0 0d 00 3f 0f f2 43 79 3a d6 76 3a e7 6d 25 |:...?..Cy:.v:.m%|
00000cd0 8c 0d 00 40 10 c8 99 26 61 31 36 38 33 2c 51 79 |...@...&a1683,Qy|
00000ce0 25 0d 00 41 12 cd 3a c8 99 26 34 30 30 64 64 3a |%..A..:..&400dd:|
00000cf0 e0 3a e1 0d 00 42 4e dd f2 54 79 3a ea 55 25 2c |.:...BN..Ty:.U%,|
00000d00 44 25 2c 56 25 2c 51 25 2c 46 25 2c 6e 25 2c 75 |D%,V%,Q%,F%,n%,u|
00000d10 25 3a 55 25 3d 57 25 21 30 3a 44 25 3d 57 25 21 |%:U%=W%!0:D%=W%!|
00000d20 34 3a 56 25 3d 57 25 21 38 3a 51 25 3d 57 25 21 |4:V%=W%!8:Q%=W%!|
00000d30 31 32 3a 46 25 3d 57 25 21 31 36 3a c8 8e 56 25 |12:F%=W%!16:..V%|
00000d40 ca 0d 00 43 0c c9 32 3a c8 8e 51 25 ca 0d 00 44 |...C..2:..Q%...D|
00000d50 39 c9 2d 32 3a f2 44 3a 44 25 3d 39 36 2b 28 34 |9.-2:.D:D%=96+(4|
00000d60 34 2a 6d 4a 25 29 2b 28 32 34 2a 61 4a 25 29 3a |4*mJ%)+(24*aJ%):|
00000d70 c8 99 26 34 30 30 64 34 2c 2c 73 79 25 2c 55 25 |..&400d4,,sy%,U%|
00000d80 2d 36 34 2c 44 25 0d 00 45 21 c9 58 25 3a f2 44 |-64,D%..E!.X%:.D|
00000d90 3a c8 99 26 34 30 30 64 34 2c 2c 73 79 25 2c 55 |:..&400d4,,sy%,U|
00000da0 25 2d 36 34 2c 44 25 0d 00 46 05 cb 0d 00 47 14 |%-64,D%..F....G.|
00000db0 c9 31 2a 31 36 2c 34 2a 31 36 3a c8 8e 51 25 ca |.1*16,4*16:..Q%.|
00000dc0 0d 00 48 0d c9 58 25 3a c8 8e 46 25 ca 0d 00 49 |..H..X%:..F%...I|
00000dd0 2c c9 4d 4a 25 3a 5a 3d 50 3a f2 52 28 51 25 2c |,.MJ%:Z=P:.R(Q%,|
00000de0 46 25 2c 56 25 2c 22 46 69 6c 65 4e 61 6d 65 5f |F%,V%,"FileName_|
00000df0 43 6f 6e 74 72 6f 6c 22 29 0d 00 4a 2c c9 46 75 |Control")..J,.Fu|
00000e00 25 3a 5a 3d 51 3a f2 52 28 51 25 2c 46 25 2c 56 |%:Z=Q:.R(Q%,F%,V|
00000e10 25 2c 22 46 69 6c 65 4e 61 6d 65 5f 43 6f 6e 74 |%,"FileName_Cont|
00000e20 72 6f 6c 22 29 0d 00 4b 2c c9 7a 4a 25 3a 5a 3d |rol")..K,.zJ%:Z=|
00000e30 57 3a f2 52 28 51 25 2c 46 25 2c 56 25 2c 22 46 |W:.R(Q%,F%,V%,"F|
00000e40 69 6c 65 4e 61 6d 65 5f 43 6f 6e 74 72 6f 6c 22 |ileName_Control"|
00000e50 29 0d 00 4c 05 cb 0d 00 4d 0d c9 71 25 3a c8 8e |)..L....M..q%:..|
00000e60 46 25 ca 0d 00 4e 25 c9 31 3a f2 52 28 51 25 2c |F%...N%.1:.R(Q%,|
00000e70 46 25 2c 56 25 2c 22 46 69 6c 65 4e 61 6d 65 5f |F%,V%,"FileName_|
00000e80 53 61 76 65 41 73 22 29 0d 00 4f 05 cb 0d 00 50 |SaveAs")..O....P|
00000e90 05 cb 0d 00 51 0b 7f 3a c8 8e 51 25 ca 0d 00 52 |....Q..:..Q%...R|
00000ea0 18 c9 2d 32 3a f2 70 79 28 55 25 2c 44 25 2c 56 |..-2:.py(U%,D%,V|
00000eb0 25 2c 46 25 29 0d 00 53 19 c9 65 5f 25 3a f2 51 |%,F%)..S..e_%:.Q|
00000ec0 5f 28 55 25 2c 44 25 2c 56 25 2c 46 25 29 0d 00 |_(U%,D%,V%,F%)..|
00000ed0 54 18 c9 71 25 3a f2 5a 5f 28 55 25 2c 44 25 2c |T..q%:.Z_(U%,D%,|
00000ee0 56 25 2c 46 25 29 0d 00 55 18 c9 6f 25 3a f2 4d |V%,F%)..U..o%:.M|
00000ef0 79 28 55 25 2c 44 25 2c 56 25 2c 46 25 29 0d 00 |y(U%,D%,V%,F%)..|
00000f00 56 18 c9 49 25 3a f2 56 5f 28 55 25 2c 44 25 2c |V..I%:.V_(U%,D%,|
00000f10 56 25 2c 46 25 29 0d 00 57 18 c9 58 25 3a f2 71 |V%,F%)..W..X%:.q|
00000f20 79 28 55 25 2c 44 25 2c 56 25 2c 46 25 29 0d 00 |y(U%,D%,V%,F%)..|
00000f30 58 05 cb 0d 00 59 07 cb 3a e1 0d 00 5a 1b dd f2 |X....Y..:...Z...|
00000f40 4d 79 28 55 25 2c 44 25 2c 56 25 2c 46 25 29 3a |My(U%,D%,V%,F%):|
00000f50 c8 8e 46 25 ca 0d 00 5b 20 c9 31 34 2c 31 35 3a |..F%...[ .14,15:|
00000f60 f2 4d 28 46 79 25 2c a4 5f 28 30 29 29 3a e7 56 |.M(Fy%,._(0)):.V|
00000f70 25 3c 3e 31 8c 0d 00 5c 06 f2 51 0d 00 5d 05 cd |%<>1...\..Q..]..|
00000f80 0d 00 5e 07 cb 3a e1 0d 00 5f 1f dd f2 60 79 3a |..^..:..._...`y:|
00000f90 42 79 25 3d a3 3a 5f 79 25 3d 26 31 30 34 30 61 |By%=.:_y%=&1040a|
00000fa0 33 31 2b 30 3a e1 0d 00 60 56 dd f2 44 3a ea 41 |31+0:...`V..D:.A|
00000fb0 25 3a 6d 4a 25 3d 38 3a 61 4a 25 3d 31 3a 41 25 |%:mJ%=8:aJ%=1:A%|
00000fc0 3d ba 28 6a 79 29 3a 73 79 25 3d 21 41 25 3a 79 |=.(jy):sy%=!A%:y|
00000fd0 79 25 3d 41 25 21 34 3a 69 79 25 3d 41 25 21 38 |y%=A%!4:iy%=A%!8|
00000fe0 3a 24 79 79 25 3d c3 28 61 29 3a 24 69 79 25 3d |:$yy%=.(a):$iy%=|
00000ff0 44 24 3a 42 79 25 3d 5f 79 25 3a e1 0d 00 61 57 |D$:By%=_y%:...aW|
00001000 dd f2 61 79 3a ea 55 25 2c 44 25 2c 6c 79 25 2c |..ay:.U%,D%,ly%,|
00001010 72 25 2c 65 25 2c 78 25 3a 55 25 3d 57 25 21 32 |r%,e%,x%:U%=W%!2|
00001020 34 3a 44 25 3d 57 25 21 32 38 3a 6c 79 25 3d 57 |4:D%=W%!28:ly%=W|
00001030 25 21 33 32 3a 72 25 3d 57 25 21 33 36 3a 65 25 |%!32:r%=W%!36:e%|
00001040 3d 57 25 21 34 30 3a 78 25 3d 70 25 3a c8 8e 42 |=W%!40:x%=p%:..B|
00001050 79 25 ca 0d 00 62 0f c9 5f 79 25 3a c8 8e 6c 79 |y%...b.._y%:..ly|
00001060 25 ca 0d 00 63 1b c9 56 4a 25 3a c8 99 26 34 30 |%...c..VJ%:..&40|
00001070 30 65 38 2c 2c 6f 25 2c 55 25 2c 44 25 0d 00 64 |0e8,,o%,U%,D%..d|
00001080 0e c9 64 5f 25 3a c8 8e 72 25 ca 0d 00 65 22 c9 |..d_%:..r%...e".|
00001090 47 5f 25 3a 5a 3d 57 3a f2 49 3a c8 99 26 34 30 |G_%:Z=W:.I:..&40|
000010a0 30 65 38 2c 2c 71 25 2c 55 25 2c 44 25 0d 00 66 |0e8,,q%,U%,D%..f|
000010b0 2d 7f 3a f2 4d 28 78 25 2c 22 55 6e 65 78 70 65 |-.:.M(x%,"Unexpe|
000010c0 63 74 65 64 20 4d 65 6e 75 57 61 72 6e 69 6e 67 |cted MenuWarning|
000010d0 20 4d 65 73 73 61 67 65 22 29 0d 00 67 05 cb 0d | Message")..g...|
000010e0 00 68 0e c9 45 5f 25 3a c8 8e 72 25 ca 0d 00 69 |.h..E_%:..r%...i|
000010f0 22 c9 47 5f 25 3a 5a 3d 50 3a f2 49 3a c8 99 26 |".G_%:Z=P:.I:..&|
00001100 34 30 30 65 38 2c 2c 71 25 2c 55 25 2c 44 25 0d |400e8,,q%,U%,D%.|
00001110 00 6a 2d 7f 3a f2 4d 28 78 25 2c 22 55 6e 65 78 |.j-.:.M(x%,"Unex|
00001120 70 65 63 74 65 64 20 4d 65 6e 75 57 61 72 6e 69 |pected MenuWarni|
00001130 6e 67 20 4d 65 73 73 61 67 65 22 29 0d 00 6b 05 |ng Message")..k.|
00001140 cb 0d 00 6c 0e c9 61 5f 25 3a c8 8e 72 25 ca 0d |...l..a_%:..r%..|
00001150 00 6d 22 c9 69 4a 25 3a 5a 3d 51 3a f2 49 3a c8 |.m".iJ%:Z=Q:.I:.|
00001160 99 26 34 30 30 65 38 2c 2c 71 25 2c 55 25 2c 44 |.&400e8,,q%,U%,D|
00001170 25 0d 00 6e 0e c9 77 5f 25 3a c8 8e 65 25 ca 0d |%..n..w_%:..e%..|
00001180 00 6f 29 c9 68 4a 25 3a 52 3d 4c 79 3a f2 5f 28 |.o).hJ%:R=Ly:._(|
00001190 53 25 28 29 29 3a c8 99 26 34 30 30 65 38 2c 2c |S%()):..&400e8,,|
000011a0 49 25 2c 55 25 2c 44 25 0d 00 70 2d 7f 3a f2 4d |I%,U%,D%..p-.:.M|
000011b0 28 78 25 2c 22 55 6e 65 78 70 65 63 74 65 64 20 |(x%,"Unexpected |
000011c0 4d 65 6e 75 57 61 72 6e 69 6e 67 20 4d 65 73 73 |MenuWarning Mess|
000011d0 61 67 65 22 29 0d 00 71 05 cb 0d 00 72 0e c9 4c |age")..q....r..L|
000011e0 5f 25 3a c8 8e 65 25 ca 0d 00 73 29 c9 6a 4a 25 |_%:..e%...s).jJ%|
000011f0 3a 52 3d 48 79 3a f2 5f 28 4d 25 28 29 29 3a c8 |:R=Hy:._(M%()):.|
00001200 99 26 34 30 30 65 38 2c 2c 49 25 2c 55 25 2c 44 |.&400e8,,I%,U%,D|
00001210 25 0d 00 74 2d 7f 3a f2 4d 28 78 25 2c 22 55 6e |%..t-.:.M(x%,"Un|
00001220 65 78 70 65 63 74 65 64 20 4d 65 6e 75 57 61 72 |expected MenuWar|
00001230 6e 69 6e 67 20 4d 65 73 73 61 67 65 22 29 0d 00 |ning Message")..|
00001240 75 05 cb 0d 00 76 28 c9 75 4a 25 3a 52 3d 79 3a |u....v(.uJ%:R=y:|
00001250 f2 5f 28 5a 25 28 29 29 3a c8 99 26 34 30 30 65 |._(Z%()):..&400e|
00001260 38 2c 2c 49 25 2c 55 25 2c 44 25 0d 00 77 2d 7f |8,,I%,U%,D%..w-.|
00001270 3a f2 4d 28 78 25 2c 22 55 6e 65 78 70 65 63 74 |:.M(x%,"Unexpect|
00001280 65 64 20 4d 65 6e 75 57 61 72 6e 69 6e 67 20 4d |ed MenuWarning M|
00001290 65 73 73 61 67 65 22 29 0d 00 78 05 cb 0d 00 79 |essage")..x....y|
000012a0 2d 7f 3a f2 4d 28 78 25 2c 22 55 6e 65 78 70 65 |-.:.M(x%,"Unexpe|
000012b0 63 74 65 64 20 4d 65 6e 75 57 61 72 6e 69 6e 67 |cted MenuWarning|
000012c0 20 4d 65 73 73 61 67 65 22 29 0d 00 7a 05 cb 0d | Message")..z...|
000012d0 00 7b 2d 7f 3a f2 4d 28 78 25 2c 22 55 6e 65 78 |.{-.:.M(x%,"Unex|
000012e0 70 65 63 74 65 64 20 4d 65 6e 75 57 61 72 6e 69 |pected MenuWarni|
000012f0 6e 67 20 4d 65 73 73 61 67 65 22 29 0d 00 7c 07 |ng Message")..|.|
00001300 cb 3a e1 0d 00 7d 8f dd f2 43 5f 3a ea 6c 79 25 |.:...}...C_:.ly%|
00001310 2c 4d 25 2c 6f 5f 25 2c 70 5f 25 2c 72 4a 25 2c |,M%,o_%,p_%,rJ%,|
00001320 72 25 2c 41 25 2c 65 25 3a ea 6a 25 3a 4d 25 3d |r%,A%,e%:.j%:M%=|
00001330 a4 41 28 35 31 32 29 3a c8 99 26 34 30 30 63 66 |.A(512):..&400cf|
00001340 2c 2c 4d 25 3a 6f 5f 25 3d 4d 25 21 30 3a 70 5f |,,M%:o_%=M%!0:p_|
00001350 25 3d 4d 25 21 34 3a 72 4a 25 3d 4d 25 21 38 3a |%=M%!4:rJ%=M%!8:|
00001360 f2 43 28 4d 25 2c 35 31 32 29 3a 6c 79 25 3d 21 |.C(M%,512):ly%=!|
00001370 57 25 3a 72 25 3d 57 25 21 34 3a 65 25 3d 57 25 |W%:r%=W%!4:e%=W%|
00001380 21 38 3a 6a 25 3d 57 25 21 31 32 3a c8 8e 42 79 |!8:j%=W%!12:..By|
00001390 25 ca 0d 00 7e 0f c9 5f 79 25 3a c8 8e 6c 79 25 |%...~.._y%:..ly%|
000013a0 ca 0d 00 7f 0e c9 46 4a 25 3a c8 8e 72 25 ca 0d |......FJ%:..r%..|
000013b0 00 80 0f c9 4a 75 25 3a f2 5a 28 4a 79 29 0d 00 |....Ju%:.Z(Jy)..|
000013c0 81 0e c9 6e 5f 25 3a f2 5a 28 5f 29 0d 00 82 0e |...n_%:.Z(_)....|
000013d0 c9 4f 4a 25 3a f2 5a 28 68 29 0d 00 83 1f c9 48 |.OJ%:.Z(h).....H|
000013e0 4a 25 3a f2 5a 28 43 29 3a f2 5a 28 43 2b 34 29 |J%:.Z(C):.Z(C+4)|
000013f0 3a f2 5a 28 43 2b 31 32 29 0d 00 84 0e c9 42 4a |:.Z(C+12).....BJ|
00001400 25 3a f2 5a 28 6d 29 0d 00 85 0e c9 47 4a 25 3a |%:.Z(m).....GJ%:|
00001410 f2 5a 28 78 29 0d 00 86 0e c9 4d 75 25 3a f2 5a |.Z(x).....Mu%:.Z|
00001420 28 6f 29 0d 00 87 05 cb 0d 00 88 0e c9 64 5f 25 |(o)..........d_%|
00001430 3a c8 8e 72 25 ca 0d 00 89 0e c9 47 75 25 3a f2 |:..r%......Gu%:.|
00001440 5a 28 70 29 0d 00 8a 0e c9 5a 75 25 3a f2 5a 28 |Z(p).....Zu%:.Z(|
00001450 69 29 0d 00 8b 11 c9 4c 4a 25 3a e7 65 25 3c 3e |i).....LJ%:.e%<>|
00001460 2d 31 8c 0d 00 8c 11 f2 5a 28 6c 2b 28 65 25 3c |-1......Z(l+(e%<|
00001470 3c 32 29 29 0d 00 8d 05 cd 0d 00 8e 11 c9 5a 4a |<2))..........ZJ|
00001480 25 3a e7 65 25 3c 3e 2d 31 8c 0d 00 8f 12 f2 5a |%:.e%<>-1......Z|
00001490 28 46 79 2b 28 65 25 3c 3c 32 29 29 0d 00 90 05 |(Fy+(e%<<2))....|
000014a0 cd 0d 00 91 0e c9 6b 4a 25 3a c8 8e 65 25 ca 0d |......kJ%:..e%..|
000014b0 00 92 0d c9 2d 31 3a f2 5a 28 60 29 0d 00 93 10 |....-1:.Z(`)....|
000014c0 c9 30 3a 61 3d bb 28 24 79 79 25 29 0d 00 94 05 |.0:a=.($yy%)....|
000014d0 cb 0d 00 95 05 cb 0d 00 96 0e c9 45 5f 25 3a c8 |...........E_%:.|
000014e0 8e 72 25 ca 0d 00 97 0e c9 51 4a 25 3a f2 5a 28 |.r%......QJ%:.Z(|
000014f0 77 29 0d 00 98 0e c9 62 5f 25 3a f2 5a 28 74 29 |w).....b_%:.Z(t)|
00001500 0d 00 99 0e c9 45 4a 25 3a f2 5a 28 6a 29 0d 00 |.....EJ%:.Z(j)..|
00001510 9a 0e c9 44 4a 25 3a f2 5a 28 62 29 0d 00 9b 0f |...DJ%:.Z(b)....|
00001520 c9 74 4a 25 3a f2 5a 28 57 79 29 0d 00 9c 0f c9 |.tJ%:.Z(Wy).....|
00001530 65 4a 25 3a f2 5a 28 43 79 29 0d 00 9d 05 cb 0d |eJ%:.Z(Cy)......|
00001540 00 9e 0e c9 41 75 25 3a c8 8e 72 25 ca 0d 00 9f |....Au%:..r%....|
00001550 11 c9 66 4a 25 3a f2 64 28 24 69 79 25 29 0d 00 |..fJ%:.d($iy%)..|
00001560 a0 0f c9 6a 5f 25 3a f2 5a 28 5a 79 29 0d 00 a1 |...j_%:.Z(Zy)...|
00001570 0f c9 50 4a 25 3a f2 5a 28 4d 79 29 0d 00 a2 05 |..PJ%:.Z(My)....|
00001580 cb 0d 00 a3 0e c9 61 5f 25 3a c8 8e 72 25 ca 0d |......a_%:..r%..|
00001590 00 a4 0e c9 77 5f 25 3a c8 8e 65 25 ca 0d 00 a5 |....w_%:..e%....|
000015a0 11 c9 6e 4a 25 3a e7 6a 25 3c 3e 2d 31 8c 0d 00 |..nJ%:.j%<>-1...|
000015b0 a6 09 21 71 3d 6a 25 0d 00 a7 05 cd 0d 00 a8 11 |..!q=j%.........|
000015c0 c9 67 5f 25 3a e7 6a 25 3c 3e 2d 31 8c 0d 00 a9 |.g_%:.j%<>-1....|
000015d0 11 f2 5a 28 7a 2b 28 6a 25 3c 3c 32 29 29 0d 00 |..Z(z+(j%<<2))..|
000015e0 aa 05 cd 0d 00 ab 05 cb 0d 00 ac 0e c9 4c 5f 25 |.............L_%|
000015f0 3a c8 8e 65 25 ca 0d 00 ad 11 c9 68 5f 25 3a e7 |:..e%......h_%:.|
00001600 6a 25 3c 3e 2d 31 8c 0d 00 ae 09 21 67 3d 6a 25 |j%<>-1.....!g=j%|
00001610 0d 00 af 05 cd 0d 00 b0 11 c9 43 4a 25 3a e7 6a |..........CJ%:.j|
00001620 25 3c 3e 2d 31 8c 0d 00 b1 12 f2 5a 28 50 79 2b |%<>-1......Z(Py+|
00001630 28 6a 25 3c 3c 32 29 29 0d 00 b2 05 cd 0d 00 b3 |(j%<<2))........|
00001640 05 cb 0d 00 b4 0e c9 79 4a 25 3a f2 5a 28 66 29 |.......yJ%:.Z(f)|
00001650 0d 00 b5 05 cb 0d 00 b6 0e c9 74 5f 25 3a c8 8e |..........t_%:..|
00001660 72 25 ca 0d 00 b7 0c c9 60 4a 25 3a f2 41 5f 0d |r%......`J%:.A_.|
00001670 00 b8 0c c9 43 75 25 3a f2 67 79 0d 00 b9 0f c9 |....Cu%:.gy.....|
00001680 67 4a 25 3a f2 5a 28 47 79 29 0d 00 ba 0e c9 64 |gJ%:.Z(Gy).....d|
00001690 4a 25 3a f2 5a 28 6b 29 0d 00 bb 0f c9 53 4a 25 |J%:.Z(k).....SJ%|
000016a0 3a f2 5a 28 41 79 29 0d 00 bc 0e c9 4e 4a 25 3a |:.Z(Ay).....NJ%:|
000016b0 f2 5a 28 63 29 0d 00 bd 0f c9 52 4a 25 3a f2 5a |.Z(c).....RJ%:.Z|
000016c0 28 42 79 29 0d 00 be 05 cb 0d 00 bf 0b c9 58 4a |(By)..........XJ|
000016d0 25 3a f2 68 0d 00 c0 05 cb 0d 00 c1 0d cb 3a e7 |%:.h..........:.|
000016e0 72 4a 25 3d 31 8c 0d 00 c2 0a c8 8e 42 79 25 ca |rJ%=1.......By%.|
000016f0 0d 00 c3 0b c9 5f 79 25 3a f2 44 0d 00 c4 1b cb |....._y%:.D.....|
00001700 3a c8 99 26 34 30 30 64 34 2c 2c 73 79 25 2c 6f |:..&400d4,,sy%,o|
00001710 5f 25 2c 70 5f 25 0d 00 c5 08 cc 3a f2 51 0d 00 |_%,p_%.....:.Q..|
00001720 c6 07 cd 3a e1 0d 00 c7 1c dd f2 51 3a c8 99 26 |...:.......Q:..&|
00001730 34 30 30 64 34 2c 2c 2d 31 3a 42 79 25 3d a3 3a |400d4,,-1:By%=.:|
00001740 e1 0d 00 c8 19 dd f2 5a 28 79 25 29 3a 21 79 25 |.......Z(y%):!y%|
00001750 3d 28 21 79 25 3d 30 29 3a e1 0d 00 c9 13 dd f2 |=(!y%=0):.......|
00001760 64 28 41 24 29 3a e7 41 24 3d 22 22 8c 0d 00 ca |d(A$):.A$=""....|
00001770 09 41 24 3d 63 24 0d 00 cb 1b cd 3a 44 24 3d 41 |.A$=c$.....:D$=A|
00001780 24 3a f2 4e 28 58 25 2c 70 79 25 2c 44 24 29 3a |$:.N(X%,py%,D$):|
00001790 e1 0d 00 cc 13 dd f2 6b 28 41 24 29 3a e7 41 24 |.......k(A$):.A$|
000017a0 3d 22 22 8c 0d 00 cd 09 41 24 3d 45 24 0d 00 ce |="".....A$=E$...|
000017b0 1b cd 3a 43 24 3d 41 24 3a f2 4e 28 58 25 2c 4f |..:C$=A$:.N(X%,O|
000017c0 79 25 2c 41 24 29 3a e1 0d 00 cf 14 dd f2 58 5f |y%,A$):.......X_|
000017d0 28 41 24 29 3a e7 41 24 3d 22 22 8c 0d 00 d0 09 |(A$):.A$="".....|
000017e0 41 24 3d 52 24 0d 00 d1 1b cd 3a 57 24 3d 41 24 |A$=R$.....:W$=A$|
000017f0 3a f2 4e 28 58 25 2c 4b 79 25 2c 41 24 29 3a e1 |:.N(X%,Ky%,A$):.|
00001800 0d 00 d2 14 dd f2 52 79 28 41 24 29 3a e7 41 24 |......Ry(A$):.A$|
00001810 3d 22 22 8c 0d 00 d3 09 41 24 3d 4b 24 0d 00 d4 |="".....A$=K$...|
00001820 1b cd 3a 50 24 3d 41 24 3a f2 4e 28 58 25 2c 52 |..:P$=A$:.N(X%,R|
00001830 79 25 2c 41 24 29 3a e1 0d 00 d5 0d dd f2 78 3a |y%,A$):.......x:|
00001840 e7 50 79 25 8c 0d 00 d6 17 85 9f 2c f6 24 2b 22 |.Py%.......,.$+"|
00001850 20 5b 22 2b c3 28 9e 29 2b 22 5d 22 0d 00 d7 0b | ["+.(.)+"]"....|
00001860 cc 3a 85 9f 2c f6 24 0d 00 d8 0a cd 3a f2 53 3a |.:..,.$.....:.S:|
00001870 e1 0d 00 d9 10 dd f2 67 79 3a f2 62 3a f2 4b 3a |.......gy:.b:.K:|
00001880 e1 0d 00 da 57 dd f2 53 79 3a ea 4a 25 2c 5f 24 |....W..Sy:.J%,_$|
00001890 2c 53 6c 25 3a f2 62 3a 44 24 3d 63 24 3a 43 24 |,Sl%:.b:D$=c$:C$|
000018a0 3d 45 24 3a 57 24 3d 52 24 3a 50 24 3d 4b 24 3a |=E$:W$=R$:P$=K$:|
000018b0 4a 25 3d 8e 28 22 3c 42 61 73 43 6f 6d 70 72 65 |J%=.("<BasCompre|
000018c0 73 73 46 45 24 44 69 72 3e 2e 43 68 6f 69 63 65 |ssFE$Dir>.Choice|
000018d0 73 22 29 3a e7 4a 25 8c 0d 00 db 13 ea 85 3a ee |s"):.J%.......:.|
000018e0 85 ea f7 85 3a d9 23 4a 25 3a e1 0d 00 dc 69 c8 |....:.#J%:....i.|
000018f0 99 31 32 2c 34 2c 4a 25 2c 42 2c 4c 2d 42 3a f2 |.12,4,J%,B,L-B:.|
00001900 7a 28 4a 25 2c 4d 25 28 29 29 3a f2 7a 28 4a 25 |z(J%,M%()):.z(J%|
00001910 2c 53 25 28 29 29 3a f2 7a 28 4a 25 2c 5a 25 28 |,S%()):.z(J%,Z%(|
00001920 29 29 3a e8 23 4a 25 2c 50 24 3a 4b 24 3d 50 24 |)):.#J%,P$:K$=P$|
00001930 3a e8 23 4a 25 2c 57 24 3a 52 24 3d 57 24 3a e8 |:.#J%,W$:R$=W$:.|
00001940 23 4a 25 2c 43 24 3a 45 24 3d 43 24 3a d9 23 4a |#J%,C$:E$=C$:.#J|
00001950 25 3a f7 85 0d 00 dd 07 cd 3a e1 0d 00 de 32 dd |%:.......:....2.|
00001960 f2 7a 28 4a 25 2c f8 41 25 28 29 29 3a ea 5a 25 |.z(J%,.A%()):.Z%|
00001970 3a e3 5a 25 3d 30 b8 52 25 2d 31 3a e8 23 4a 25 |:.Z%=0.R%-1:.#J%|
00001980 2c 41 25 28 5a 25 29 3a ed 5a 25 3a e1 0d 00 df |,A%(Z%):.Z%:....|
00001990 35 dd f2 41 5f 3a ea 4a 25 3a 4a 25 3d ae 28 22 |5..A_:.J%:J%=.("|
000019a0 3c 42 61 73 43 6f 6d 70 72 65 73 73 46 45 24 44 |<BasCompressFE$D|
000019b0 69 72 3e 2e 43 68 6f 69 63 65 73 22 29 3a e7 4a |ir>.Choices"):.J|
000019c0 25 8c 0d 00 e0 14 ea 85 3a ee 85 ea f7 85 3a d9 |%.......:.....:.|
000019d0 23 4a 25 3a f2 78 0d 00 e1 63 c8 99 31 32 2c 32 |#J%:.x...c..12,2|
000019e0 2c 4a 25 2c 42 2c 4c 2d 42 3a f2 73 28 4a 25 2c |,J%,B,L-B:.s(J%,|
000019f0 4d 25 28 29 29 3a f2 73 28 4a 25 2c 53 25 28 29 |M%()):.s(J%,S%()|
00001a00 29 3a f2 73 28 4a 25 2c 5a 25 28 29 29 3a f1 23 |):.s(J%,Z%()):.#|
00001a10 4a 25 2c a4 53 28 50 24 29 3a f1 23 4a 25 2c a4 |J%,.S(P$):.#J%,.|
00001a20 53 28 57 24 29 3a f1 23 4a 25 2c a4 53 28 43 24 |S(W$):.#J%,.S(C$|
00001a30 29 3a d9 23 4a 25 3a f7 85 0d 00 e2 07 cd 3a e1 |):.#J%:.......:.|
00001a40 0d 00 e3 31 dd f2 73 28 4a 25 2c 41 25 28 29 29 |...1..s(J%,A%())|
00001a50 3a ea 5a 25 3a e3 5a 25 3d 30 b8 52 25 2d 31 3a |:.Z%:.Z%=0.R%-1:|
00001a60 f1 23 4a 25 2c 41 25 28 5a 25 29 3a ed 5a 25 3a |.#J%,A%(Z%):.Z%:|
00001a70 e1 0d 00 e4 fb dd f2 62 3a ea 46 3a 21 4a 79 3d |.......b:.F:!Jy=|
00001a80 a3 3a 21 5f 3d b9 3a 21 68 3d b9 3a 21 43 3d b9 |.:!_=.:!h=.:!C=.|
00001a90 3a 43 21 34 3d 28 21 43 3d 30 29 3a 43 21 31 32 |:C!4=(!C=0):C!12|
00001aa0 3d 28 21 43 3d 30 29 3a 21 6d 3d b9 3a 21 78 3d |=(!C=0):!m=.:!x=|
00001ab0 b9 3a 21 6f 3d a3 3a 21 70 3d b9 3a 21 69 3d b9 |.:!o=.:!p=.:!i=.|
00001ac0 3a e3 46 3d 30 b8 35 3a 6c 21 28 46 3c 3c 32 29 |:.F=0.5:l!(F<<2)|
00001ad0 3d b9 3a ed 46 3a e3 46 3d 30 b8 31 3a 46 79 21 |=.:.F:.F=0.1:Fy!|
00001ae0 28 46 3c 3c 32 29 3d b9 3a ed 46 3a 21 60 3d a3 |(F<<2)=.:.F:!`=.|
00001af0 3a 61 3d 31 36 3a 21 77 3d b9 3a 21 74 3d b9 3a |:a=16:!w=.:!t=.:|
00001b00 21 6a 3d b9 3a 21 62 3d b9 3a 21 57 79 3d b9 3a |!j=.:!b=.:!Wy=.:|
00001b10 21 43 79 3d a3 3a 21 5a 79 3d a3 3a 21 4d 79 3d |!Cy=.:!Zy=.:!My=|
00001b20 a3 3a 21 71 3d 33 3a e3 46 3d 30 b8 35 3a 7a 21 |.:!q=3:.F=0.5:z!|
00001b30 28 46 3c 3c 32 29 3d b9 3a ed 46 3a 21 67 3d 33 |(F<<2)=.:.F:!g=3|
00001b40 3a e3 46 3d 30 b8 31 3a 50 79 21 28 46 3c 3c 32 |:.F=0.1:Py!(F<<2|
00001b50 29 3d b9 3a ed 46 3a 21 66 3d a3 3a 21 47 79 3d |)=.:.F:!f=.:!Gy=|
00001b60 a3 3a 21 6b 3d b9 3a 21 41 79 3d b9 0d 00 e5 62 |.:!k=.:!Ay=....b|
00001b70 21 63 3d a3 3a 21 42 79 3d a3 3a 4d 25 28 29 3d |!c=.:!By=.:M%()=|
00001b80 4a 3a 53 25 28 29 3d 4a 3a 5a 25 28 29 3d 4a 3a |J:S%()=J:Z%()=J:|
00001b90 4d 25 28 29 3d 56 2c 4b 3a 53 25 28 29 3d 56 2c |M%()=V,K:S%()=V,|
00001ba0 4b 3a 5a 25 28 29 3d 56 2c 4b 2c 45 79 3a 4b 24 |K:Z%()=V,K,Ey:K$|
00001bb0 3d 22 4c 6f 67 22 3a 45 24 3d 22 4f 75 74 70 75 |="Log":E$="Outpu|
00001bc0 74 22 3a 52 24 3d 22 58 52 65 66 22 3a e1 0d 00 |t":R$="XRef":...|
00001bd0 e6 4d dd f2 4b 3a f2 56 28 58 25 2c 70 79 25 2c |.M..K:.V(X%,py%,|
00001be0 44 24 2c 63 24 29 3a f2 56 28 58 25 2c 52 79 25 |D$,c$):.V(X%,Ry%|
00001bf0 2c 50 24 2c 4b 24 29 3a f2 56 28 58 25 2c 4b 79 |,P$,K$):.V(X%,Ky|
00001c00 25 2c 57 24 2c 52 24 29 3a f2 56 28 58 25 2c 4f |%,W$,R$):.V(X%,O|
00001c10 79 25 2c 43 24 2c 45 24 29 3a e1 0d 00 e7 17 dd |y%,C$,E$):......|
00001c20 f2 71 79 28 55 25 2c 44 25 2c 56 25 2c 46 25 29 |.qy(U%,D%,V%,F%)|
00001c30 3a e1 0d 00 e8 14 dd f2 60 28 46 25 2c 64 25 29 |:.......`(F%,d%)|
00001c40 3a c8 8e 64 25 ca 0d 00 e9 15 c9 31 33 2c 33 39 |:..d%......13,39|
00001c50 38 2c 33 39 39 3a c8 8e 46 25 ca 0d 00 ea 0c c9 |8,399:..F%......|
00001c60 52 79 25 3a 5a 3d 50 0d 00 eb 0c c9 4b 79 25 3a |Ry%:Z=P.....Ky%:|
00001c70 5a 3d 51 0d 00 ec 0c c9 4f 79 25 3a 5a 3d 57 0d |Z=Q.....Oy%:Z=W.|
00001c80 00 ed 0d c9 70 79 25 3a 5a 3d 4e 79 0d 00 ee 26 |....py%:Z=Ny...&|
00001c90 cb 3a f2 54 28 a4 46 28 58 25 2c 46 25 29 29 3a |.:.T(.F(X%,F%)):|
00001ca0 e7 64 25 3d 33 39 38 8c f2 6a 79 28 58 25 2c 46 |.d%=398..jy(X%,F|
00001cb0 25 29 0d 00 ef 16 e7 64 25 3d 33 39 39 8c f2 73 |%).....d%=399..s|
00001cc0 79 28 58 25 2c 46 25 29 0d 00 f0 0e e7 64 25 3d |y(X%,F%).....d%=|
00001cd0 31 33 8c f2 63 79 0d 00 f1 0a c9 32 37 3a f2 4b |13..cy.....27:.K|
00001ce0 0d 00 f2 11 7f 3a c8 99 26 34 30 30 64 63 2c 64 |.....:..&400dc,d|
00001cf0 25 0d 00 f3 07 cb 3a e1 0d 00 f4 28 dd f2 5f 28 |%.....:....(.._(|
00001d00 41 25 28 29 29 3a ea 5a 25 2c 6e 25 2c 47 25 3a |A%()):.Z%,n%,G%:|
00001d10 e7 a4 61 28 22 4f 72 64 65 72 22 2c 49 25 29 8c |..a("Order",I%).|
00001d20 0d 00 f5 ac cc 3a 5a 25 3d 30 3a c8 95 5a 25 3c |.....:Z%=0:..Z%<|
00001d30 52 25 80 41 25 28 5a 25 29 3c 3e 4a 3a 6e 25 3d |R%.A%(Z%)<>J:n%=|
00001d40 41 25 28 5a 25 29 80 28 ac 53 29 3a e3 47 25 3d |A%(Z%).(.S):.G%=|
00001d50 30 b8 54 79 3a f2 42 28 49 25 2c a4 43 28 47 25 |0.Ty:.B(I%,.C(G%|
00001d60 2c 5a 25 29 2c 6e 25 3d 47 25 29 3a ed 47 25 3a |,Z%),n%=G%):.G%:|
00001d70 f2 42 28 49 25 2c 60 25 2b 5a 25 2c 41 25 28 5a |.B(I%,`%+Z%,A%(Z|
00001d80 25 29 80 53 29 3a 5a 25 2b 3d 31 3a ce 3a c8 95 |%).S):Z%+=1:.:..|
00001d90 5a 25 3c 52 25 3a e3 47 25 3d 30 b8 54 79 3a f2 |Z%<R%:.G%=0.Ty:.|
00001da0 42 28 49 25 2c a4 43 28 47 25 2c 5a 25 29 2c a3 |B(I%,.C(G%,Z%),.|
00001db0 29 3a ed 47 25 3a f2 42 28 49 25 2c 60 25 2b 5a |):.G%:.B(I%,`%+Z|
00001dc0 25 2c a3 29 3a 5a 25 2b 3d 31 3a ce 0d 00 f6 07 |%,.):Z%+=1:.....|
00001dd0 cd 3a e1 0d 00 f7 1a dd f2 56 5f 28 55 25 2c 44 |.:.......V_(U%,D|
00001de0 25 2c 56 25 2c 46 25 29 3a c8 8e 52 ca 0d 00 f8 |%,V%,F%):..R....|
00001df0 15 c9 79 3a f2 65 28 5a 25 28 29 2c 56 25 2c 46 |..y:.e(Z%(),V%,F|
00001e00 25 29 0d 00 f9 16 c9 48 79 3a f2 65 28 4d 25 28 |%).....Hy:.e(M%(|
00001e10 29 2c 56 25 2c 46 25 29 0d 00 fa 16 c9 4c 79 3a |),V%,F%).....Ly:|
00001e20 f2 65 28 53 25 28 29 2c 56 25 2c 46 25 29 0d 00 |.e(S%(),V%,F%)..|
00001e30 fb 07 cb 3a e1 0d 00 fc 2d dd f2 65 28 f8 41 25 |...:....-..e(.A%|
00001e40 28 29 2c 56 25 2c 46 25 29 3a ea 5a 25 2c 47 25 |(),V%,F%):.Z%,G%|
00001e50 2c 75 25 2c 59 25 2c 6e 25 3a e7 a4 7a 28 46 25 |,u%,Y%,n%:..z(F%|
00001e60 29 8c 0d 00 fd 27 f2 79 28 46 25 2c 5a 25 2c 75 |)....'.y(F%,Z%,u|
00001e70 25 29 3a 6e 25 3d ac 53 3a e7 28 41 25 28 5a 25 |%):n%=.S:.(A%(Z%|
00001e80 29 80 6e 25 29 3d 75 25 8c 0d 00 fe 11 e7 a4 66 |).n%)=u%.......f|
00001e90 28 49 25 2c 46 25 29 3d a3 8c 0d 00 ff 0f f2 6f |(I%,F%)=.......o|
00001ea0 28 41 25 28 29 2c 5a 25 29 0d 01 00 05 cd 0d 01 |(A%(),Z%).......|
00001eb0 01 0c cc 3a e7 75 25 3d 53 8c 0d 01 02 0e e7 41 |...:.u%=S......A|
00001ec0 25 28 5a 25 29 3d 4a 8c 0d 01 03 0f f2 42 28 49 |%(Z%)=J......B(I|
00001ed0 25 2c 46 25 2c a3 29 0d 01 04 21 cc 3a 41 25 28 |%,F%,.)...!.:A%(|
00001ee0 5a 25 29 3d 41 25 28 5a 25 29 82 53 3a f2 76 28 |Z%)=A%(Z%).S:.v(|
00001ef0 41 25 28 29 2c 5a 25 29 0d 01 05 05 cd 0d 01 06 |A%(),Z%)........|
00001f00 10 cc 3a e7 41 25 28 5a 25 29 3d 4a 8c 0d 01 07 |..:.A%(Z%)=J....|
00001f10 0d 41 25 28 5a 25 29 3d 75 25 0d 01 08 1a cc 3a |.A%(Z%)=u%.....:|
00001f20 41 25 28 5a 25 29 3d 28 41 25 28 5a 25 29 80 53 |A%(Z%)=(A%(Z%).S|
00001f30 29 84 75 25 0d 01 09 26 cd 3a f2 76 28 41 25 28 |).u%...&.:.v(A%(|
00001f40 29 2c 5a 25 29 3a 47 25 3d 30 3a 59 25 3d a3 3a |),Z%):G%=0:Y%=.:|
00001f50 f5 3a e7 47 25 3c 3e 5a 25 8c 0d 01 0a 1c 59 25 |.:.G%<>Z%.....Y%|
00001f60 3d 28 28 41 25 28 47 25 29 80 6e 25 29 3d 75 25 |=((A%(G%).n%)=u%|
00001f70 29 3a e7 59 25 8c 0d 01 0b 10 f2 47 79 28 41 25 |):.Y%......Gy(A%|
00001f80 28 29 2c 5a 25 29 0d 01 0c 05 cd 0d 01 0d 16 cd |(),Z%)..........|
00001f90 3a 47 25 2b 3d 31 3a fd 59 25 84 47 25 3e 3d 52 |:G%+=1:.Y%.G%>=R|
00001fa0 25 0d 01 0e 05 cd 0d 01 0f 05 cd 0d 01 10 07 cd |%...............|
00001fb0 3a e1 0d 01 11 3e dd f2 76 28 f8 41 25 28 29 2c |:....>..v(.A%(),|
00001fc0 f8 5a 25 29 3a ea 59 25 3a 59 25 3d 28 5a 25 3c |.Z%):.Y%:Y%=(Z%<|
00001fd0 3d 30 29 3a c8 95 ac 59 25 3a 59 25 3d 28 41 25 |=0):...Y%:Y%=(A%|
00001fe0 28 5a 25 2d 31 29 3c 3e 4a 29 3a e7 ac 59 25 8c |(Z%-1)<>J):..Y%.|
00001ff0 0d 01 12 20 5a 25 2d 3d 31 3a f2 6f 28 41 25 28 |... Z%-=1:.o(A%(|
00002000 29 2c 5a 25 29 3a 59 25 3d 28 5a 25 3c 3d 30 29 |),Z%):Y%=(Z%<=0)|
00002010 0d 01 13 09 cd 3a ce 3a e1 0d 01 14 54 dd f2 6f |.....:.:....T..o|
00002020 28 f8 41 25 28 29 2c 5a 25 29 3a ea 47 25 2c 59 |(.A%(),Z%):.G%,Y|
00002030 25 2c 41 5f 25 3a 47 25 3d 5a 25 3a f5 3a 41 25 |%,A_%:G%=Z%:.:A%|
00002040 28 47 25 29 3d 4a 3a f2 42 28 49 25 2c 60 25 2b |(G%)=J:.B(I%,`%+|
00002050 47 25 2c a3 29 3a 47 25 2b 3d 31 3a 59 25 3d 28 |G%,.):G%+=1:Y%=(|
00002060 47 25 3e 3d 52 25 29 3a e7 ac 59 25 8c 0d 01 15 |G%>=R%):..Y%....|
00002070 17 59 25 3d 28 41 25 28 47 25 29 3d 4a 29 3a e7 |.Y%=(A%(G%)=J):.|
00002080 ac 59 25 8c 0d 01 16 63 41 25 28 47 25 2d 31 29 |.Y%....cA%(G%-1)|
00002090 3d 41 25 28 47 25 29 3a f2 42 28 49 25 2c a4 43 |=A%(G%):.B(I%,.C|
000020a0 28 41 25 28 47 25 29 2c 47 25 2d 31 29 2c b9 29 |(A%(G%),G%-1),.)|
000020b0 3a f2 42 28 49 25 2c a4 43 28 41 25 28 47 25 29 |:.B(I%,.C(A%(G%)|
000020c0 2c 47 25 29 2c a3 29 3a 41 5f 25 3d 41 25 28 47 |,G%),.):A_%=A%(G|
000020d0 25 29 80 53 3a f2 42 28 49 25 2c 60 25 2b 47 25 |%).S:.B(I%,`%+G%|
000020e0 2d 31 2c 41 5f 25 29 0d 01 17 05 cd 0d 01 18 0b |-1,A_%).........|
000020f0 cd 3a fd 59 25 3a e1 0d 01 19 7e dd f2 47 79 28 |.:.Y%:....~..Gy(|
00002100 f8 41 25 28 29 2c 47 25 29 3a ea 5a 25 2c 59 25 |.A%(),G%):.Z%,Y%|
00002110 3a 5a 25 3d 30 3a 59 25 3d a3 3a c8 95 a4 75 28 |:Z%=0:Y%=.:...u(|
00002120 41 25 28 29 2c 5a 25 29 3a 5a 25 2b 3d 31 3a ce |A%(),Z%):Z%+=1:.|
00002130 3a f2 42 28 49 25 2c a4 43 28 41 25 28 47 25 29 |:.B(I%,.C(A%(G%)|
00002140 2c 47 25 29 2c a3 29 3a 41 25 28 47 25 29 3d 5a |,G%),.):A%(G%)=Z|
00002150 25 84 28 41 25 28 47 25 29 80 53 29 3a f2 42 28 |%.(A%(G%).S):.B(|
00002160 49 25 2c a4 43 28 41 25 28 47 25 29 2c 47 25 29 |I%,.C(A%(G%),G%)|
00002170 2c b9 29 3a e1 0d 01 1a 56 dd a4 75 28 41 25 28 |,.):....V..u(A%(|
00002180 29 2c 5a 25 29 3a ea 5a 5f 25 2c 47 25 3a 47 25 |),Z%):.Z_%,G%:G%|
00002190 3d 30 3a 5a 5f 25 3d a3 3a c8 95 47 25 3c 52 25 |=0:Z_%=.:..G%<R%|
000021a0 80 28 ac 5a 5f 25 29 3a 5a 5f 25 3d 28 28 41 25 |.(.Z_%):Z_%=((A%|
000021b0 28 47 25 29 80 28 ac 53 29 29 3d 5a 25 29 3a 47 |(G%).(.S))=Z%):G|
000021c0 25 2b 3d 31 3a ce 3a 3d 5a 5f 25 0d 01 1b 23 dd |%+=1:.:=Z_%...#.|
000021d0 a4 7a 28 46 25 29 3a 3d 28 46 25 3e 3d 61 79 25 |.z(F%):=(F%>=ay%|
000021e0 29 80 28 46 25 3c 28 60 25 2b 52 25 29 29 0d 01 |).(F%<(`%+R%))..|
000021f0 1c 1e dd f2 79 28 46 25 2c f8 75 5f 25 2c f8 44 |....y(F%,.u_%,.D|
00002200 5f 25 29 3a e7 46 25 3e 3d 60 25 8c 0d 01 1d 09 |_%):.F%>=`%.....|
00002210 44 5f 25 3d 53 0d 01 1e 15 cc 3a 44 5f 25 3d 28 |D_%=S.....:D_%=(|
00002220 46 25 2d 61 79 25 29 81 52 25 0d 01 1f 17 cd 3a |F%-ay%).R%.....:|
00002230 75 5f 25 3d 28 46 25 2d 61 79 25 29 83 52 25 3a |u_%=(F%-ay%).R%:|
00002240 e1 0d 01 20 2b dd a4 43 28 44 5f 25 2c 75 5f 25 |... +..C(D_%,u_%|
00002250 29 3a 3d 28 28 28 44 5f 25 80 28 ac 53 29 29 2a |):=(((D_%.(.S))*|
00002260 52 25 29 2b 61 79 25 29 2b 75 5f 25 0d 01 21 15 |R%)+ay%)+u_%..!.|
00002270 dd f2 6b 79 28 46 25 2c 64 25 29 3a c8 8e 64 25 |..ky(F%,d%):..d%|
00002280 ca 0d 01 22 1b c9 31 33 2c 33 39 38 3a f2 54 28 |..."..13,398:.T(|
00002290 a4 46 28 71 25 2c 32 29 29 3a f2 51 0d 01 23 0a |.F(q%,2)):.Q..#.|
000022a0 c9 32 37 3a f2 51 0d 01 24 11 7f 3a c8 99 26 34 |.27:.Q..$..:..&4|
000022b0 30 30 64 63 2c 64 25 0d 01 25 07 cb 3a e1 0d 01 |00dc,d%..%..:...|
000022c0 26 1b dd f2 5a 5f 28 55 25 2c 44 25 2c 56 25 2c |&...Z_(U%,D%,V%,|
000022d0 46 25 29 3a c8 8e 46 25 ca 0d 01 27 1a c9 30 3a |F%):..F%...'..0:|
000022e0 f2 54 28 a4 46 28 71 25 2c 32 29 29 3a e7 56 25 |.T(.F(q%,2)):.V%|
000022f0 80 31 8c 0d 01 28 14 f2 44 3a c8 99 26 34 30 30 |.1...(..D:..&400|
00002300 64 34 2c 2c 73 79 25 0d 01 29 08 cc 3a f2 51 0d |d4,,sy%..)..:.Q.|
00002310 01 2a 05 cd 0d 01 2b 07 cb 3a e1 0d 01 2c 19 dd |.*....+..:...,..|
00002320 f2 49 3a e7 a4 61 28 22 53 61 76 65 41 73 22 2c |.I:..a("SaveAs",|
00002330 71 25 29 8c 0d 01 2d 17 cc 3a f2 4e 28 71 25 2c |q%)...-..:.N(q%,|
00002340 32 2c a4 59 29 3a e7 5a 3d 57 8c 0d 01 2e 1a f2 |2,.Y):.Z=W......|
00002350 70 28 71 25 2c 31 2c 22 66 69 6c 65 5f 22 2b c3 |p(q%,1,"file_"+.|
00002360 7e 28 72 29 29 0d 01 2f 1c cc 3a f2 70 28 71 25 |~(r))../..:.p(q%|
00002370 2c 31 2c 22 66 69 6c 65 5f 22 2b c3 7e 28 49 29 |,1,"file_"+.~(I)|
00002380 29 0d 01 30 05 cd 0d 01 31 07 cd 3a e1 0d 01 32 |)..0....1..:...2|
00002390 10 dd a4 59 3a ea 4d 24 3a c8 8e 5a ca 0d 01 33 |...Y:.M$:..Z...3|
000023a0 0c c9 50 3a 4d 24 3d 50 24 0d 01 34 0c c9 51 3a |..P:M$=P$..4..Q:|
000023b0 4d 24 3d 57 24 0d 01 35 0c c9 57 3a 4d 24 3d 43 |M$=W$..5..W:M$=C|
000023c0 24 0d 01 36 0d c9 4e 79 3a 4d 24 3d 44 24 0d 01 |$..6..Ny:M$=D$..|
000023d0 37 09 cb 3a 3d 4d 24 0d 01 38 21 dd f2 56 28 51 |7..:=M$..8!..V(Q|
000023e0 25 2c 5a 25 2c 4d 24 2c 70 24 29 3a e7 4d 24 3d |%,Z%,M$,p$):.M$=|
000023f0 22 22 8c 4d 24 3d 70 24 0d 01 39 12 f2 4e 28 51 |"".M$=p$..9..N(Q|
00002400 25 2c 5a 25 2c 4d 24 29 3a e1 0d 01 3a 24 dd a4 |%,Z%,M$):...:$..|
00002410 5f 44 72 61 67 67 65 64 5f 46 69 6c 65 4e 61 6d |_Dragged_FileNam|
00002420 65 5f 43 6f 6e 74 72 6f 6c 3a c8 8e 5a ca 0d 01 |e_Control:..Z...|
00002430 3b 15 c9 50 3a f2 4c 28 a4 46 28 58 25 2c 52 79 |;..P:.L(.F(X%,Ry|
00002440 25 29 29 0d 01 3c 15 c9 51 3a f2 4c 28 a4 46 28 |%))..<..Q:.L(.F(|
00002450 58 25 2c 4b 79 25 29 29 0d 01 3d 15 c9 57 3a f2 |X%,Ky%))..=..W:.|
00002460 4c 28 a4 46 28 58 25 2c 4f 79 25 29 29 0d 01 3e |L(.F(X%,Oy%))..>|
00002470 08 cb 3a 3d 30 0d 01 3f 2e dd a4 5f 44 72 61 67 |..:=0..?..._Drag|
00002480 67 65 64 5f 46 69 6c 65 4e 61 6d 65 5f 53 61 76 |ged_FileName_Sav|
00002490 65 41 73 3a f2 4c 28 a4 46 28 71 25 2c 32 29 29 |eAs:.L(.F(q%,2))|
000024a0 3a 3d 30 0d 01 40 59 dd f2 4c 28 53 24 29 3a ea |:=0..@Y..L(S$):.|
000024b0 51 25 2c 5a 25 2c 4d 25 2c 55 25 2c 44 25 3a 4d |Q%,Z%,M%,U%,D%:M|
000024c0 25 3d a4 41 28 33 32 30 29 3a c8 99 26 34 30 30 |%=.A(320):..&400|
000024d0 63 66 2c 2c 4d 25 3a 51 25 3d 4d 25 21 31 32 3a |cf,,M%:Q%=M%!12:|
000024e0 5a 25 3d 4d 25 21 31 36 3a e7 28 51 25 3c 3e 2d |Z%=M%!16:.(Q%<>-|
000024f0 32 29 80 28 51 25 3c 3e 58 25 29 8c 0d 01 41 0b |2).(Q%<>X%)...A.|
00002500 e7 53 24 3d 22 22 8c 0d 01 42 08 c8 8e 5a ca 0d |.S$=""...B...Z..|
00002510 01 43 0c c9 50 3a 53 24 3d 4b 24 0d 01 44 0c c9 |.C..P:S$=K$..D..|
00002520 51 3a 53 24 3d 52 24 0d 01 45 0c c9 57 3a 53 24 |Q:S$=R$..E..W:S$|
00002530 3d 45 24 0d 01 46 05 cb 0d 01 47 0f cc 3a 53 24 |=E$..F....G..:S$|
00002540 3d a4 53 28 53 24 29 0d 01 48 9a cd 3a 55 25 3d |=.S(S$)..H..:U%=|
00002550 21 4d 25 3a 44 25 3d 4d 25 21 34 3a 21 4d 25 3d |!M%:D%=M%!4:!M%=|
00002560 28 a9 28 53 24 29 2b 34 38 29 80 2d 34 3a 4d 25 |(.(S$)+48).-4:M%|
00002570 21 31 32 3d 30 3a 4d 25 21 31 36 3d 31 3a 4d 25 |!12=0:M%!16=1:M%|
00002580 21 32 30 3d 51 25 3a 4d 25 21 32 34 3d 5a 25 3a |!20=Q%:M%!24=Z%:|
00002590 4d 25 21 32 38 3d 55 25 3a 4d 25 21 33 32 3d 44 |M%!28=U%:M%!32=D|
000025a0 25 3a 4d 25 21 33 36 3d 2d 31 3a 4d 25 21 34 30 |%:M%!36=-1:M%!40|
000025b0 3d 49 3a 24 28 4d 25 2b 34 34 29 3d 53 24 2b bd |=I:$(M%+44)=S$+.|
000025c0 28 30 29 3a c8 99 26 34 30 30 65 37 2c 31 37 2c |(0):..&400e7,17,|
000025d0 4d 25 2c 51 25 2c 5a 25 3a 73 5f 25 3d 4d 25 21 |M%,Q%,Z%:s_%=M%!|
000025e0 38 0d 01 49 12 cd 3a f2 43 28 4d 25 2c 33 32 30 |8..I..:.C(M%,320|
000025f0 29 3a e1 0d 01 4a 14 dd f2 54 28 53 24 29 3a e7 |):...J...T(S$):.|
00002600 53 24 3c 3e a4 59 8c 0d 01 4b 08 c8 8e 5a ca 0d |S$<>.Y...K...Z..|
00002610 01 4c 0e c9 50 3a f2 52 79 28 53 24 29 0d 01 4d |.L..P:.Ry(S$)..M|
00002620 0e c9 51 3a f2 58 5f 28 53 24 29 0d 01 4e 0d c9 |..Q:.X_(S$)..N..|
00002630 57 3a f2 6b 28 53 24 29 0d 01 4f 0e c9 4e 79 3a |W:.k(S$)..O..Ny:|
00002640 f2 64 28 53 24 29 0d 01 50 05 cb 0d 01 51 0d cd |.d(S$)..P....Q..|
00002650 3a f2 49 3a f2 4b 3a e1 0d 01 52 11 dd f2 6c 79 |:.I:.K:...R...ly|
00002660 3a c8 8e 57 25 21 31 32 ca 0d 01 53 0e c9 30 3a |:..W%!12...S..0:|
00002670 c8 8e 57 25 21 38 ca 0d 01 54 1f c9 62 79 25 3a |..W%!8...T..by%:|
00002680 c8 99 26 34 30 30 64 65 2c 22 2f 22 2b 50 24 3a |..&400de,"/"+P$:|
00002690 62 79 25 3d 2d 31 0d 01 55 1f c9 66 79 25 3a c8 |by%=-1..U..fy%:.|
000026a0 99 26 34 30 30 64 65 2c 22 2f 22 2b 57 24 3a 66 |.&400de,"/"+W$:f|
000026b0 79 25 3d 2d 31 0d 01 56 05 cb 0d 01 57 07 cb 3a |y%=-1..V....W..:|
000026c0 e1 0d 01 58 5e dd f2 79 79 3a ea 46 5f 25 2c 60 |...X^..yy:.F_%,`|
000026d0 24 2c 54 25 2c 46 25 2c 55 25 2c 44 25 3a 60 24 |$,T%,F%,U%,D%:`$|
000026e0 3d a4 42 28 57 25 2b 34 34 29 3a 46 5f 25 3d 57 |=.B(W%+44):F_%=W|
000026f0 25 21 34 30 3a 54 25 3d 57 25 21 32 30 3a 46 25 |%!40:T%=W%!20:F%|
00002700 3d 57 25 21 32 34 3a 55 25 3d 57 25 21 32 38 3a |=W%!24:U%=W%!28:|
00002710 44 25 3d 57 25 21 33 32 3a c8 8e 46 5f 25 ca 0d |D%=W%!32:..F_%..|
00002720 01 59 0a c9 72 3a f2 4f 79 0d 01 5a 07 cb 3a e1 |.Y..r:.Oy..Z..:.|
00002730 0d 01 5b 5e dd f2 4c 5f 3a ea 46 5f 25 2c 65 24 |..[^..L_:.F_%,e$|
00002740 2c 54 25 2c 46 25 2c 55 25 2c 44 25 3a 54 25 3d |,T%,F%,U%,D%:T%=|
00002750 57 25 21 32 30 3a 46 25 3d 57 25 21 32 34 3a 55 |W%!20:F%=W%!24:U|
00002760 25 3d 57 25 21 32 38 3a 44 25 3d 57 25 21 33 32 |%=W%!28:D%=W%!32|
00002770 3a 46 5f 25 3d 57 25 21 34 30 3a 65 24 3d a4 4e |:F_%=W%!40:e$=.N|
00002780 28 57 25 2b 34 34 29 3a c8 8e 46 5f 25 ca 0d 01 |(W%+44):..F_%...|
00002790 5c 10 c9 72 3a 55 25 3d a4 4f 28 65 24 29 0d 01 |\..r:U%=.O(e$)..|
000027a0 5d 10 c9 49 3a e7 ac a4 4d 28 65 24 29 8c 0d 01 |]..I:...M(e$)...|
000027b0 5e 0a f2 64 28 65 24 29 0d 01 5f 05 cd 0d 01 60 |^..d(e$).._....`|
000027c0 13 7f 3a f2 4d 28 46 79 25 2c a4 5f 28 31 29 29 |..:.M(Fy%,._(1))|
000027d0 0d 01 61 07 cb 3a e1 0d 01 62 1f dd f2 57 5f 3a |..a..:...b...W_:|
000027e0 ea 53 24 2c 6e 79 25 3a e7 28 57 25 21 31 32 29 |.S$,ny%:.(W%!12)|
000027f0 3c 3e 73 5f 25 8c 0d 01 63 0a f2 4a 28 31 30 29 |<>s_%...c..J(10)|
00002800 0d 01 64 21 cc 3a 6e 79 25 3d b9 3a 53 24 3d a4 |..d!.:ny%=.:S$=.|
00002810 42 28 57 25 2b 34 34 29 3a c8 8e 57 25 21 34 30 |B(W%+44):..W%!40|
00002820 ca 0d 01 65 13 c9 49 3a f2 54 28 53 24 29 3a 6e |...e..I:.T(S$):n|
00002830 79 25 3d a3 0d 01 66 12 7f 3a f2 4a 28 31 30 29 |y%=...f..:.J(10)|
00002840 3a 6e 79 25 3d a3 0d 01 67 0b cb 3a e7 6e 79 25 |:ny%=...g..:.ny%|
00002850 8c 0d 01 68 39 57 25 21 31 32 3d 6b 79 25 3a 57 |...h9W%!12=ky%:W|
00002860 25 21 31 36 3d 33 3a c8 99 26 34 30 30 65 37 2c |%!16=3:..&400e7,|
00002870 31 38 2c 57 25 2c 57 25 21 32 30 2c 57 25 21 32 |18,W%,W%!20,W%!2|
00002880 34 3a 6f 4a 25 3d 57 25 21 38 0d 01 69 05 cd 0d |4:oJ%=W%!8..i...|
00002890 01 6a 07 cd 3a e1 0d 01 6b 0a dd f2 51 79 3a e1 |.j..:...k...Qy:.|
000028a0 0d 01 6c 0a dd f2 42 79 3a e1 0d 01 6d 1b dd a4 |..l...By:...m...|
000028b0 45 28 4a 24 29 3a ea 5a 25 2c 53 25 3a e7 4a 24 |E(J$):.Z%,S%:.J$|
000028c0 3c 3e 22 22 8c 0d 01 6e 5a e3 5a 25 3d 31 b8 a9 |<>""...nZ.Z%=1..|
000028d0 28 4a 24 29 3a 53 25 3d a7 22 41 42 43 44 45 46 |(J$):S%=."ABCDEF|
000028e0 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 |GHIJKLMNOPQRSTUV|
000028f0 57 58 59 5a 22 2c c1 4a 24 2c 5a 25 2c 31 29 29 |WXYZ",.J$,Z%,1))|
00002900 3a e7 53 25 3e 30 8c c1 4a 24 2c 5a 25 2c 31 29 |:.S%>0..J$,Z%,1)|
00002910 3d bd 28 53 25 2b 97 28 22 61 22 29 2d 31 29 0d |=.(S%+.("a")-1).|
00002920 01 6f 07 ed 5a 25 0d 01 70 09 cd 3a 3d 4a 24 0d |.o..Z%..p..:=J$.|
00002930 01 71 31 dd a4 4d 28 4d 24 29 3a 3d 28 a4 53 28 |.q1..M(M$):=(.S(|
00002940 4d 24 29 3d 22 22 29 84 28 a4 45 28 4d 24 29 3d |M$)="").(.E(M$)=|
00002950 62 24 29 84 28 a7 4d 24 2c 22 2e 22 29 3c 31 29 |b$).(.M$,".")<1)|
00002960 0d 01 72 22 dd a4 4f 28 4c 24 29 3a ea 5a 24 2c |..r"..O(L$):.Z$,|
00002970 5a 25 3a e7 21 42 79 80 28 ac a4 4d 28 43 24 29 |Z%:.!By.(..M(C$)|
00002980 29 8c 0d 01 73 16 5a 25 3d a7 4c 24 2c 22 2e 22 |)...s.Z%=.L$,"."|
00002990 29 3a e7 5a 25 3e 30 8c 0d 01 74 29 5a 24 3d c0 |):.Z%>0...t)Z$=.|
000029a0 43 24 2c a9 28 43 24 29 2d a9 28 a4 53 28 43 24 |C$,.(C$)-.(.S(C$|
000029b0 29 29 29 2b a4 53 28 4c 24 29 3a f2 6b 28 5a 24 |)))+.S(L$):.k(Z$|
000029c0 29 0d 01 75 05 cd 0d 01 76 2a cd 3a 7a 24 3d 4c |)..u....v*.:z$=L|
000029d0 24 3a 5a 24 3d 22 22 3a e7 21 4a 79 3c 3e 30 8c |$:Z$="":.!Jy<>0.|
000029e0 5a 24 2b 3d 22 20 2d 4d 75 6c 74 69 44 45 46 22 |Z$+=" -MultiDEF"|
000029f0 0d 01 77 1a e7 21 5f 3c 3e 30 8c 5a 24 2b 3d 22 |..w..!_<>0.Z$+="|
00002a00 20 2d 57 45 6e 64 52 74 6e 22 0d 01 78 19 e7 21 | -WEndRtn"..x..!|
00002a10 68 3c 3e 30 8c 5a 24 2b 3d 22 20 2d 4e 75 6d 62 |h<>0.Z$+=" -Numb|
00002a20 65 72 22 0d 01 79 15 e7 21 43 3d 30 8c 5a 24 2b |er"..y..!C=0.Z$+|
00002a30 3d 22 20 2d 53 57 49 22 0d 01 7a 18 e7 21 6d 3d |=" -SWI"..z..!m=|
00002a40 30 8c 5a 24 2b 3d 22 20 2d 53 57 49 42 61 64 22 |0.Z$+=" -SWIBad"|
00002a50 0d 01 7b 1a e7 21 78 3d 30 8c 5a 24 2b 3d 22 20 |..{..!x=0.Z$+=" |
00002a60 2d 53 57 49 45 78 69 73 74 22 0d 01 7c 1a e7 21 |-SWIExist"..|..!|
00002a70 6f 3c 3e 30 8c 5a 24 2b 3d 22 20 2d 4c 69 62 72 |o<>0.Z$+=" -Libr|
00002a80 61 72 79 22 0d 01 7d 18 e7 21 69 3d 30 8c 5a 24 |ary"..}..!i=0.Z$|
00002a90 2b 3d 22 20 2d 55 6e 75 73 65 64 22 0d 01 7e 0d |+=" -Unused"..~.|
00002aa0 e7 ac a4 4d 28 43 24 29 8c 0d 01 7f 18 e7 21 70 |...M(C$)......!p|
00002ab0 3d 30 8c 5a 24 2b 3d 22 20 2d 53 69 6e 67 6c 65 |=0.Z$+=" -Single|
00002ac0 22 0d 01 80 53 5a 24 2b 3d 22 20 2d 52 65 64 75 |"...SZ$+=" -Redu|
00002ad0 63 65 56 61 72 20 22 2b a4 71 28 6c 29 3a 5a 24 |ceVar "+.q(l):Z$|
00002ae0 2b 3d 22 20 2d 52 65 64 75 63 65 52 74 6e 20 22 |+=" -ReduceRtn "|
00002af0 2b a4 4c 28 46 79 29 3a e7 21 60 3c 3e 30 8c 5a |+.L(Fy):.!`<>0.Z|
00002b00 24 2b 3d 22 20 2d 4c 69 73 74 4f 75 74 20 22 2b |$+=" -ListOut "+|
00002b10 c3 28 61 29 0d 01 81 0f cd 3a e7 ac a4 4d 28 50 |.(a).....:...M(P|
00002b20 24 29 8c 0d 01 82 17 e7 21 77 3d 30 8c 5a 24 2b |$)......!w=0.Z$+|
00002b30 3d 22 20 2d 53 74 61 74 73 22 0d 01 83 16 e7 21 |=" -Stats".....!|
00002b40 74 3d 30 8c 5a 24 2b 3d 22 20 2d 45 56 41 4c 22 |t=0.Z$+=" -EVAL"|
00002b50 0d 01 84 16 e7 21 6a 3d 30 8c 5a 24 2b 3d 22 20 |.....!j=0.Z$+=" |
00002b60 2d 44 41 54 41 22 0d 01 85 16 e7 21 62 3d 30 8c |-DATA".....!b=0.|
00002b70 5a 24 2b 3d 22 20 2d 52 45 41 44 22 0d 01 86 17 |Z$+=" -READ"....|
00002b80 e7 21 57 79 3d 30 8c 5a 24 2b 3d 22 20 2d 47 4f |.!Wy=0.Z$+=" -GO|
00002b90 54 4f 22 0d 01 87 18 e7 21 43 79 3c 3e 30 8c 5a |TO".....!Cy<>0.Z|
00002ba0 24 2b 3d 22 20 2d 4c 69 73 74 22 0d 01 88 0f cd |$+=" -List".....|
00002bb0 3a e7 ac a4 4d 28 44 24 29 8c 0d 01 89 1b e7 21 |:...M(D$)......!|
00002bc0 5a 79 3c 3e 30 8c 5a 24 2b 3d 22 20 2d 55 6e 75 |Zy<>0.Z$+=" -Unu|
00002bd0 73 65 64 53 22 0d 01 8a 1c e7 21 4d 79 3c 3e 30 |sedS".....!My<>0|
00002be0 8c 5a 24 2b 3d 22 20 2d 57 53 70 4c 61 62 65 6c |.Z$+=" -WSpLabel|
00002bf0 22 0d 01 8b 0e cd 3a e7 a4 4d 28 57 24 29 8c 0d |".....:..M(W$)..|
00002c00 01 8c 12 5a 24 2b 3d 22 20 2d 58 52 65 66 20 30 |...Z$+=" -XRef 0|
00002c10 22 0d 01 8d b7 cc 3a 5a 24 2b 3d 22 20 2d 58 56 |".....:Z$+=" -XV|
00002c20 61 72 20 22 2b c3 28 21 71 29 3a 5a 24 2b 3d 22 |ar "+.(!q):Z$+="|
00002c30 20 2d 58 49 6e 63 56 61 72 20 22 2b a4 71 28 7a | -XIncVar "+.q(z|
00002c40 29 3a 5a 24 2b 3d 22 20 2d 58 52 74 6e 20 22 2b |):Z$+=" -XRtn "+|
00002c50 c3 28 21 67 29 3a 5a 24 2b 3d 22 20 2d 58 49 6e |.(!g):Z$+=" -XIn|
00002c60 63 52 74 6e 20 22 2b a4 4c 28 50 79 29 3a 5a 24 |cRtn "+.L(Py):Z$|
00002c70 2b 3d 22 20 2d 53 52 65 66 20 22 2b a4 44 28 5a |+=" -SRef "+.D(Z|
00002c80 25 28 29 29 3a 5a 24 2b 3d 22 20 2d 53 56 61 72 |%()):Z$+=" -SVar|
00002c90 20 22 2b a4 44 28 53 25 28 29 29 3a 5a 24 2b 3d | "+.D(S%()):Z$+=|
00002ca0 22 20 2d 53 52 74 6e 20 22 2b a4 44 28 4d 25 28 |" -SRtn "+.D(M%(|
00002cb0 29 29 3a e7 21 66 3d 30 8c 5a 24 2b 3d 22 20 2d |)):.!f=0.Z$+=" -|
00002cc0 44 65 6c 65 74 65 64 22 0d 01 8e 90 cd 3a f2 71 |Deleted".....:.q|
00002cd0 28 22 42 61 73 43 6f 6d 70 72 65 73 73 24 4f 70 |("BasCompress$Op|
00002ce0 74 69 6f 6e 73 22 2c 5a 24 29 3a f2 45 28 22 42 |tions",Z$):.E("B|
00002cf0 61 73 43 6f 6d 70 72 65 73 73 24 53 70 65 63 69 |asCompress$Speci|
00002d00 61 6c 22 2c 44 24 29 3a f2 45 28 22 42 61 73 43 |al",D$):.E("BasC|
00002d10 6f 6d 70 72 65 73 73 24 58 52 65 66 22 2c 57 24 |ompress$XRef",W$|
00002d20 29 3a f2 45 28 22 42 61 73 43 6f 6d 70 72 65 73 |):.E("BasCompres|
00002d30 73 24 4f 75 74 22 2c 43 24 29 3a f2 45 28 22 42 |s$Out",C$):.E("B|
00002d40 61 73 43 6f 6d 70 72 65 73 73 24 4c 6f 67 22 2c |asCompress$Log",|
00002d50 50 24 29 3a e7 21 63 8c 0d 01 8f 1d f2 71 28 22 |P$):.!c......q("|
00002d60 4d 61 69 6e 22 2c 4c 24 29 3a 4c 24 3d 22 3c 4d |Main",L$):L$="<M|
00002d70 61 69 6e 3e 22 0d 01 90 17 cd 3a ea 85 3a ee 85 |ain>".....:..:..|
00002d80 ea f7 85 3a f2 55 28 59 29 3a f2 78 0d 01 91 0c |...:.U(Y):.x....|
00002d90 e7 a4 4d 28 50 24 29 8c 0d 01 92 34 f2 55 28 64 |..M(P$)....4.U(d|
00002da0 79 29 3a c8 99 26 34 30 30 64 65 2c 22 42 61 73 |y):..&400de,"Bas|
00002db0 43 6f 6d 70 72 65 73 73 20 22 2b 4c 24 2b 22 20 |Compress "+L$+" |
00002dc0 7b 20 3e 20 6e 75 6c 6c 3a 20 7d 22 0d 01 93 27 |{ > null: }"...'|
00002dd0 cc 3a f2 55 28 4b 79 29 3a c8 99 26 34 30 30 64 |.:.U(Ky):..&400d|
00002de0 65 2c 22 42 61 73 43 6f 6d 70 72 65 73 73 20 22 |e,"BasCompress "|
00002df0 2b 4c 24 0d 01 94 24 cd 3a f7 85 3a f2 55 28 59 |+L$...$.:..:.U(Y|
00002e00 29 3a e7 28 28 21 6b 29 3c 3e 30 29 80 28 ac a4 |):.((!k)<>0).(..|
00002e10 4d 28 50 24 29 29 8c 0d 01 95 0e f2 6e 28 62 79 |M(P$))......n(by|
00002e20 25 2c 50 24 29 0d 01 96 1c cd 3a e7 28 28 21 41 |%,P$).....:.((!A|
00002e30 79 29 3c 3e 30 29 80 28 ac a4 4d 28 57 24 29 29 |y)<>0).(..M(W$))|
00002e40 8c 0d 01 97 0e f2 6e 28 66 79 25 2c 57 24 29 0d |......n(fy%,W$).|
00002e50 01 98 1c cd 3a e7 28 28 21 47 79 29 3c 3e 30 29 |....:.((!Gy)<>0)|
00002e60 80 28 ac a4 4d 28 43 24 29 29 8c 0d 01 99 0f c8 |.(..M(C$))......|
00002e70 99 26 34 30 30 64 65 2c 43 24 0d 01 9a 08 cd 3a |.&400de,C$.....:|
00002e80 3d 30 0d 01 9b 3f dd f2 6e 28 f8 4f 75 25 2c 5f |=0...?..n(.Ou%,_|
00002e90 24 29 3a ea 53 25 2c 5a 79 25 2c 76 4a 25 2c 50 |$):.S%,Zy%,vJ%,P|
00002ea0 6c 25 3a c8 99 38 2c 35 2c 5f 24 b8 76 4a 25 2c |l%:..8,5,_$.vJ%,|
00002eb0 2c 5a 79 25 2c 2c 61 25 3a e7 76 4a 25 3c 3e 30 |,Zy%,,a%:.vJ%<>0|
00002ec0 8c 0d 01 9c a1 53 25 3d a4 41 28 32 35 36 29 3a |.....S%=.A(256):|
00002ed0 53 25 21 32 30 3d 2d 31 3a 53 25 21 32 38 3d 30 |S%!20=-1:S%!28=0|
00002ee0 3a 53 25 21 33 32 3d 30 3a 53 25 21 33 36 3d 61 |:S%!32=0:S%!36=a|
00002ef0 25 3a 53 25 21 34 30 3d 28 5a 79 25 80 26 66 66 |%:S%!40=(Zy%.&ff|
00002f00 66 30 30 29 3e 3e 38 3a f2 48 28 53 25 2b 34 34 |f00)>>8:.H(S%+44|
00002f10 2c 5f 24 29 3a 53 25 21 30 3d 28 a9 28 5f 24 29 |,_$):S%!0=(.(_$)|
00002f20 2b 31 2b 33 2b 34 34 29 80 28 ac 33 29 3a 53 25 |+1+3+44).(.3):S%|
00002f30 21 31 32 3d 30 3a 53 25 21 31 36 3d 35 3a c8 99 |!12=0:S%!16=5:..|
00002f40 26 34 30 30 65 37 2c 31 38 2c 53 25 2c 30 3a 4f |&400e7,18,S%,0:O|
00002f50 75 25 3d 53 25 21 38 3a f2 43 28 53 25 2c 32 35 |u%=S%!8:.C(S%,25|
00002f60 36 29 0d 01 9d 07 cd 3a e1 0d 01 9e 5b dd f2 71 |6).....:....[..q|
00002f70 28 76 24 2c 64 24 29 3a ea 53 25 3a 53 25 3d a4 |(v$,d$):.S%:S%=.|
00002f80 41 28 35 31 32 29 3a f2 48 28 53 25 2c 76 24 29 |A(512):.H(S%,v$)|
00002f90 3a f2 48 28 53 25 2b 32 35 36 2c 64 24 29 3a c8 |:.H(S%+256,d$):.|
00002fa0 99 33 36 2c 53 25 2c 53 25 2b 32 35 36 2c a9 28 |.36,S%,S%+256,.(|
00002fb0 64 24 29 2c 30 2c 30 3a f2 43 28 53 25 2c 35 31 |d$),0,0:.C(S%,51|
00002fc0 32 29 3a e1 0d 01 9f 17 dd f2 45 28 76 24 2c 64 |2):.......E(v$,d|
00002fd0 24 29 3a e7 a4 4d 28 64 24 29 8c 0d 01 a0 18 c8 |$):..M(d$)......|
00002fe0 99 26 32 30 30 32 34 2c 76 24 2c 30 2c 2d 31 2c |.&20024,v$,0,-1,|
00002ff0 30 2c 32 0d 01 a1 0f cc 3a f2 71 28 76 24 2c 64 |0,2.....:.q(v$,d|
00003000 24 29 0d 01 a2 07 cd 3a e1 0d 01 a3 44 dd a4 44 |$).....:....D..D|
00003010 28 41 25 28 29 29 3a ea 5a 25 2c 47 25 2c 41 24 |(A%()):.Z%,G%,A$|
00003020 2c 4a 24 3a 41 24 3d 22 22 3a 5a 25 3d 30 3a 47 |,J$:A$="":Z%=0:G|
00003030 25 3d b9 3a c8 95 47 25 80 5a 25 3c 52 25 3a c8 |%=.:..G%.Z%<R%:.|
00003040 8e 41 25 28 5a 25 29 80 28 ac 53 29 ca 0d 01 a4 |.A%(Z%).(.S)....|
00003050 0d c9 56 3a 4a 24 3d 22 4e 22 0d 01 a5 0e c9 7a |..V:J$="N".....z|
00003060 79 3a 4a 24 3d 22 44 22 0d 01 a6 0e c9 71 79 3a |y:J$="D".....qy:|
00003070 4a 24 3d 22 55 22 0d 01 a7 0d c9 4b 3a 4a 24 3d |J$="U".....K:J$=|
00003080 22 54 22 0d 01 a8 0e c9 45 79 3a 4a 24 3d 22 50 |"T".....Ey:J$="P|
00003090 22 0d 01 a9 09 7f 47 25 3d a3 0d 01 aa 0a cb 3a |".....G%=......:|
000030a0 e7 47 25 8c 0d 01 ab 0e e7 41 25 28 5a 25 29 80 |.G%......A%(Z%).|
000030b0 53 8c 0d 01 ac 0e 41 24 2b 3d a4 45 28 4a 24 29 |S.....A$+=.E(J$)|
000030c0 0d 01 ad 0c cc 3a 41 24 2b 3d 4a 24 0d 01 ae 0b |.....:A$+=J$....|
000030d0 cd 3a 5a 25 2b 3d 31 0d 01 af 1a cd 3a ce 3a e7 |.:Z%+=1.....:.:.|
000030e0 a9 28 41 24 29 3d 30 8c 41 24 3d 22 22 22 22 22 |.(A$)=0.A$="""""|
000030f0 22 0d 01 b0 07 3d 41 24 0d 01 b1 21 dd a4 71 28 |"....=A$...!..q(|
00003100 55 29 3a ea 41 24 3a 41 24 3d 22 22 3a e7 55 21 |U):.A$:A$="":.U!|
00003110 30 8c 41 24 2b 3d 22 69 22 0d 01 b2 10 e7 55 21 |0.A$+="i".....U!|
00003120 34 8c 41 24 2b 3d 22 72 22 0d 01 b3 10 e7 55 21 |4.A$+="r".....U!|
00003130 38 8c 41 24 2b 3d 22 73 22 0d 01 b4 11 e7 55 21 |8.A$+="s".....U!|
00003140 31 32 8c 41 24 2b 3d 22 49 22 0d 01 b5 11 e7 55 |12.A$+="I".....U|
00003150 21 31 36 8c 41 24 2b 3d 22 52 22 0d 01 b6 11 e7 |!16.A$+="R".....|
00003160 55 21 32 30 8c 41 24 2b 3d 22 53 22 0d 01 b7 16 |U!20.A$+="S"....|
00003170 e7 a9 28 41 24 29 3d 30 8c 41 24 3d 22 22 22 22 |..(A$)=0.A$=""""|
00003180 22 22 0d 01 b8 07 3d 41 24 0d 01 b9 21 dd a4 4c |""....=A$...!..L|
00003190 28 55 29 3a ea 41 24 3a 41 24 3d 22 22 3a e7 55 |(U):.A$:A$="":.U|
000031a0 21 30 8c 41 24 2b 3d 22 70 22 0d 01 ba 10 e7 55 |!0.A$+="p".....U|
000031b0 21 34 8c 41 24 2b 3d 22 66 22 0d 01 bb 16 e7 a9 |!4.A$+="f"......|
000031c0 28 41 24 29 3d 30 8c 41 24 3d 22 22 22 22 22 22 |(A$)=0.A$=""""""|
000031d0 0d 01 bc 07 3d 41 24 0d 3c 79 0a dd a4 55 3d 31 |....=A$.<y...U=1|
000031e0 33 0d 3c 7a 3d dd f2 4b 79 28 6d 5f 25 2c 62 75 |3.<z=..Ky(m_%,bu|
000031f0 25 29 3a ea 85 3a ee 85 ea f7 85 3a f2 41 28 22 |%):..:.....:.A("|
00003200 25 4c 69 62 48 61 6e 64 6c 65 72 3a 20 68 61 72 |%LibHandler: har|
00003210 64 5f 69 6e 69 74 69 61 6c 69 73 65 22 29 0d 3c |d_initialise").<|
00003220 7b 0c e7 a4 55 3c 62 75 25 8c 0d 3c 7c 1b 85 30 |{...U<bu%..<|..0|
00003230 2c 22 4c 69 62 48 61 6e 64 6c 65 72 20 74 6f 6f |,"LibHandler too|
00003240 20 6f 6c 64 22 0d 3c 7d 0d cd 3a e7 6d 5f 25 3c | old".<}..:.m_%<|
00003250 31 8c 0d 3c 7e 2f 85 31 2c 22 4c 69 62 48 61 6e |1..<~/.1,"LibHan|
00003260 64 6c 65 72 3a 20 62 61 64 20 6d 61 78 20 6c 69 |dler: bad max li|
00003270 62 72 61 72 79 73 20 70 61 72 61 6d 65 74 65 72 |brarys parameter|
00003280 22 0d 3c 7f 62 cd 3a 60 79 25 3d 6d 5f 25 3a de |".<.b.:`y%=m_%:.|
00003290 4d 24 28 60 79 25 2d 31 29 3a de 4a 25 28 60 79 |M$(`y%-1):.J%(`y|
000032a0 25 2d 31 29 3a 4f 5f 25 3d 30 3a de 6c 25 32 35 |%-1):O_%=0:.l%25|
000032b0 36 3a 6f 79 25 3d 34 30 3a 4b 25 3d 30 3a 4c 79 |6:oy%=40:K%=0:Ly|
000032c0 25 3d 31 32 3a 62 4a 25 3d a3 3a de 41 24 28 6f |%=12:bJ%=.:.A$(o|
000032d0 79 25 2d 31 29 3a 47 79 25 3d a3 3a 4e 79 25 3d |y%-1):Gy%=.:Ny%=|
000032e0 a3 3a e1 0d 3c 80 47 dd f2 46 28 47 24 2c 66 75 |.:..<.G..F(G$,fu|
000032f0 25 29 3a ea 5a 79 25 2c 5a 25 2c 49 24 2c 74 24 |%):.Zy%,Z%,I$,t$|
00003300 3a ea 85 3a ee 85 ea f7 85 3a f2 41 28 22 25 2e |:..:.....:.A("%.|
00003310 4c 69 62 48 61 6e 64 6c 65 72 3a 20 6c 6f 61 64 |LibHandler: load|
00003320 5f 6c 69 62 72 61 72 79 22 29 0d 3c 81 45 5a 25 |_library").<.EZ%|
00003330 3d 30 3a 5a 79 25 3d b9 3a 49 24 3d c1 47 24 2c |=0:Zy%=.:I$=.G$,|
00003340 31 2b a7 47 24 2c 22 2e 22 29 29 3a c8 95 5a 25 |1+.G$,".")):..Z%|
00003350 3c 4f 5f 25 80 5a 79 25 3a 5a 79 25 3d 28 49 24 |<O_%.Zy%:Zy%=(I$|
00003360 3c 3e 4d 24 28 5a 25 29 29 3a e7 5a 79 25 8c 0d |<>M$(Z%)):.Zy%..|
00003370 3c 82 09 5a 25 2b 3d 31 0d 3c 83 0d cd 3a ce 3a |<..Z%+=1.<...:.:|
00003380 e7 5a 79 25 8c 0d 3c 84 0c e7 5a 25 3d 60 79 25 |.Zy%..<...Z%=`y%|
00003390 8c 0d 3c 85 2f 85 30 2c 22 4c 69 62 48 61 6e 64 |..<./.0,"LibHand|
000033a0 6c 65 72 3a 20 54 6f 6f 20 6d 61 6e 79 20 6c 69 |ler: Too many li|
000033b0 62 72 61 72 79 73 20 74 6f 20 6c 6f 61 64 21 22 |brarys to load!"|
000033c0 0d 3c 86 4f cd 3a 4d 24 28 5a 25 29 3d 49 24 3a |.<.O.:M$(Z%)=I$:|
000033d0 74 24 3d 22 27 22 2b 47 24 2b 22 27 20 64 6f 65 |t$="'"+G$+"' doe|
000033e0 73 20 6e 6f 74 20 68 61 76 65 20 61 20 46 4e 5f |s not have a FN_|
000033f0 22 3a ea 85 3a ee 85 ea f7 85 3a f2 41 28 74 24 |":..:.....:.A(t$|
00003400 2b 49 24 2b 22 5f 76 65 72 73 69 6f 6e 22 29 0d |+I$+"_version").|
00003410 3c 87 52 4a 25 28 5a 25 29 3d a0 28 22 46 4e 5f |<.RJ%(Z%)=.("FN_|
00003420 22 2b 49 24 2b 22 5f 76 65 72 73 69 6f 6e 22 29 |"+I$+"_version")|
00003430 3a f7 85 3a 4f 5f 25 2b 3d 31 3a ea 85 3a ee 85 |:..:O_%+=1:..:..|
00003440 ea f7 85 3a f2 41 28 74 24 2b 22 5f 68 61 72 64 |...:.A(t$+"_hard|
00003450 5f 69 6e 69 74 69 61 6c 69 73 65 5f 22 2b 49 24 |_initialise_"+I$|
00003460 29 0d 3c 88 21 e7 a0 28 22 46 4e 5f 68 61 72 64 |).<.!..("FN_hard|
00003470 5f 69 6e 69 74 69 61 6c 69 73 65 5f 22 2b 49 24 |_initialise_"+I$|
00003480 29 8c 0d 3c 89 34 85 31 2c 22 4c 69 62 72 61 72 |)..<.4.1,"Librar|
00003490 79 20 66 69 6c 65 20 27 22 2b 47 24 2b 22 27 73 |y file '"+G$+"'s|
000034a0 20 68 61 72 64 20 69 6e 69 74 27 69 6f 6e 20 66 | hard init'ion f|
000034b0 61 69 6c 65 64 22 0d 3c 8a 08 cd 3a f7 85 0d 3c |ailed".<...:...<|
000034c0 8b 12 cd 3a e7 66 75 25 3e 4a 25 28 5a 25 29 8c |...:.fu%>J%(Z%).|
000034d0 0d 3c 8c 26 85 31 2c 22 4c 69 62 72 61 72 79 20 |.<.&.1,"Library |
000034e0 66 69 6c 65 20 27 22 2b 47 24 2b 22 27 20 74 6f |file '"+G$+"' to|
000034f0 6f 20 6f 6c 64 22 0d 3c 8d 07 cd 3a e1 0d 3c 8e |o old".<...:..<.|
00003500 11 dd f2 41 28 42 24 29 3a e7 47 79 25 8c 0d 3c |...A(B$):.Gy%..<|
00003510 8f 09 e7 4e 79 25 8c 0d 3c 90 16 85 9f 2c f6 24 |...Ny%..<....,.$|
00003520 2b 22 20 5b 22 2b c3 9e 2b 22 5d 2e 22 0d 3c 91 |+" ["+..+"].".<.|
00003530 0b cc 3a 85 9f 2c f6 24 0d 3c 92 05 cd 0d 3c 93 |..:..,.$.<....<.|
00003540 0c cc 3a e7 ac 62 4a 25 8c 0d 3c 94 0c e7 4b 25 |..:..bJ%..<...K%|
00003550 3d 6f 79 25 8c 0d 3c 95 26 41 28 6f 79 25 2d 31 |=oy%..<.&A(oy%-1|
00003560 29 3d 22 45 72 72 6f 72 73 20 74 6f 6f 20 64 65 |)="Errors too de|
00003570 65 70 21 21 21 21 21 22 3a f2 4f 0d 3c 96 13 cd |ep!!!!!":.O.<...|
00003580 3a e7 c2 42 24 2c 32 29 3d 22 3a 20 22 8c 0d 3c |:..B$,2)=": "..<|
00003590 97 13 42 24 3d c0 42 24 2c a9 28 42 24 29 2d 32 |..B$=.B$,.(B$)-2|
000035a0 29 0d 3c 98 0b cd 3a e7 4e 79 25 8c 0d 3c 99 0d |).<...:.Ny%..<..|
000035b0 41 24 28 4b 25 29 3d f6 24 0d 3c 9a 0c cc 3a e7 |A$(K%)=.$.<...:.|
000035c0 4b 25 3d 30 8c 0d 3c 9b 4a 41 24 28 4b 25 29 3d |K%=0..<.JA$(K%)=|
000035d0 22 45 72 72 6f 72 20 60 22 2b f6 24 2b 22 27 20 |"Error `"+.$+"' |
000035e0 28 6c 69 6e 65 20 22 3a 41 24 28 4b 25 29 2b 3d |(line ":A$(K%)+=|
000035f0 c3 28 9e 29 2b 22 29 20 69 6e 20 22 3a 41 24 28 |.(.)+") in ":A$(|
00003600 4b 25 29 2b 3d 22 60 22 2b 42 24 2b 22 27 22 0d |K%)+="`"+B$+"'".|
00003610 3c 9c 17 cc 3a 41 24 28 4b 25 29 3d 22 60 22 2b |<...:A$(K%)="`"+|
00003620 42 24 2b 22 27 22 0d 3c 9d 05 cd 0d 3c 9e 11 cd |B$+"'".<....<...|
00003630 3a 4b 25 2b 3d 31 3a 85 9f 2c 22 22 0d 3c 9f 05 |:K%+=1:..,"".<..|
00003640 cd 0d 3c a0 07 cd 3a e1 0d 3c a1 21 dd f2 4f 3a |..<...:..<.!..O:|
00003650 ea 74 25 2c 41 79 24 3a ee 85 3a f6 3a f1 22 3a |.t%,Ay$:..:.:.":|
00003660 3a 22 2b c3 28 9e 29 3a e0 0d 3c a2 09 e7 47 79 |:"+.(.):..<...Gy|
00003670 25 8c 0d 3c a3 09 e7 4e 79 25 8c 0d 3c a4 20 f2 |%..<...Ny%..<. .|
00003680 4d 28 9f 2c f6 24 2b 22 20 5b 22 2b c3 28 9e 29 |M(.,.$+" ["+.(.)|
00003690 2b 22 5d 2e 22 29 3a f2 53 3a e0 0d 3c a5 15 cc |+"]."):.S:..<...|
000036a0 3a f2 4d 28 9f 2c f6 24 29 3a e7 9f 3d 70 25 8c |:.M(.,.$):..=p%.|
000036b0 0d 3c a6 08 f2 53 3a e0 0d 3c a7 05 cd 0d 3c a8 |.<...S:..<....<.|
000036c0 05 cd 0d 3c a9 0e cc 3a e7 4c 79 25 3d 2d 32 8c |...<...:.Ly%=-2.|
000036d0 0d 3c aa 0a e7 4b 25 3e 30 8c 0d 3c ab 0d 85 a2 |.<...K%>0..<....|
000036e0 9f 2c 41 24 28 30 29 0d 3c ac 0c cc 3a 85 a2 9f |.,A$(0).<...:...|
000036f0 2c f6 24 0d 3c ad 07 cd 3a e0 0d 3c ae 0e cd 3a |,.$.<...:..<...:|
00003700 e7 4c 79 25 3d 2d 33 8c 0d 3c af 36 24 6c 25 3d |.Ly%=-3..<.6$l%=|
00003710 22 54 41 53 4b 22 3a c8 99 26 34 30 30 63 30 2c |"TASK":..&400c0,|
00003720 32 30 30 2c 21 6c 25 2c 22 4c 69 62 48 61 6e 64 |200,!l%,"LibHand|
00003730 6c 65 72 22 2b bd 28 30 29 3a e7 4b 25 8c 0d 3c |ler"+.(0):.K%..<|
00003740 b0 1a e3 74 25 3d 30 b8 4b 25 2d 31 3a e7 74 25 |...t%=0.K%-1:.t%|
00003750 3c 28 4b 25 2d 31 29 8c 0d 3c b1 14 f2 77 28 41 |<(K%-1)..<...w(A|
00003760 24 28 74 25 29 2b 22 20 69 6e 22 29 0d 3c b2 10 |$(t%)+" in").<..|
00003770 cc 3a f2 77 28 41 24 28 74 25 29 29 0d 3c b3 09 |.:.w(A$(t%)).<..|
00003780 cd 3a ed 74 25 0d 3c b4 1e cc 3a f2 77 28 f6 24 |.:.t%.<...:.w(.$|
00003790 2b 22 20 28 6c 69 6e 65 20 22 c3 28 9e 29 2b 22 |+" (line ".(.)+"|
000037a0 29 22 29 0d 3c b5 10 cd 3a c8 99 26 36 30 30 64 |)").<...:..&600d|
000037b0 64 3a e0 0d 3c b6 0e cd 3a e7 4c 79 25 3e 3d 30 |d:..<...:.Ly%>=0|
000037c0 8c 0d 3c b7 08 eb 4c 79 25 0d 3c b8 27 cd 3a f1 |..<...Ly%.<.'.:.|
000037d0 22 41 6e 20 65 72 72 6f 72 20 68 61 73 20 6f 63 |"An error has oc|
000037e0 63 75 72 65 64 2e 2e 2e 22 3a f1 3a e7 4b 25 8c |cured...":.:.K%.|
000037f0 0d 3c b9 36 e3 74 25 3d 30 b8 4b 25 2d 31 3a fb |.<.6.t%=0.K%-1:.|
00003800 28 28 37 2d 28 74 25 3c 3c 31 29 29 80 36 29 2b |((7-(t%<<1)).6)+|
00003810 31 3a f1 41 24 28 74 25 29 3b 3a e7 74 25 3c 28 |1:.A$(t%);:.t%<(|
00003820 4b 25 2d 31 29 8c 0d 3c ba 0c f1 22 20 69 6e 20 |K%-1)..<..." in |
00003830 22 3b 0d 3c bb 09 cd 3a ed 74 25 0d 3c bc 1c cc |";.<...:.t%.<...|
00003840 3a f1 f6 24 3b 22 20 28 6c 69 6e 65 20 22 3b c3 |:..$;" (line ";.|
00003850 28 9e 29 3b 22 29 22 0d 3c bd 0c cd 3a f1 3a fb |(.);")".<...:.:.|
00003860 37 3a e0 0d 3c be 07 cd 3a e1 0d 3c bf 79 dd f2 |7:..<...:..<.y..|
00003870 77 28 59 24 29 3a ea 6c 4a 25 3a 6c 4a 25 3d 32 |w(Y$):.lJ%:lJ%=2|
00003880 30 2b 28 a9 28 59 24 29 2b 35 29 80 2d 34 3a 21 |0+(.(Y$)+5).-4:!|
00003890 6c 25 3d 6c 4a 25 3a 6c 25 21 31 36 3d 26 38 30 |l%=lJ%:l%!16=&80|
000038a0 34 63 30 3a 24 28 6c 25 2b 32 30 29 3d 59 24 3a |4c0:$(l%+20)=Y$:|
000038b0 6c 25 3f 28 32 30 2b a9 28 59 24 29 29 3d 31 30 |l%?(20+.(Y$))=10|
000038c0 3a 6c 25 3f 28 32 31 2b a9 28 59 24 29 29 3d 30 |:l%?(21+.(Y$))=0|
000038d0 3a c8 99 26 36 30 30 65 37 2c 31 37 2c 6c 25 2c |:..&600e7,17,l%,|
000038e0 30 3a e1 0d 3c c0 16 dd a4 5f 43 41 73 6d 5f 76 |0:..<...._CAsm_v|
000038f0 65 72 73 69 6f 6e 3d 31 30 0d 3c c1 42 dd a4 5f |ersion=10.<.B.._|
00003900 68 61 72 64 5f 69 6e 69 74 69 61 6c 69 73 65 5f |hard_initialise_|
00003910 43 41 73 6d 3a ea 85 3a ee 85 ea f7 85 3a f2 41 |CAsm:..:.....:.A|
00003920 28 22 25 2e 43 41 73 6d 3a 20 68 61 72 64 5f 69 |("%.CAsm: hard_i|
00003930 6e 69 74 69 61 6c 69 73 65 22 29 0d 3c c2 fa f2 |nitialise").<...|
00003940 46 28 22 3c 42 61 73 69 63 56 5f 41 73 73 65 6d |F("<BasicV_Assem|
00003950 62 6c 65 72 24 4c 69 62 3e 2e 4d 69 73 63 22 2c |bler$Lib>.Misc",|
00003960 32 37 29 3a c8 99 35 2c 22 52 4d 45 6e 73 75 72 |27):..5,"RMEnsur|
00003970 65 20 43 41 73 73 65 6d 62 6c 65 72 20 30 2e 30 |e CAssembler 0.0|
00003980 33 20 52 4d 4c 6f 61 64 20 53 79 73 74 65 6d 3a |3 RMLoad System:|
00003990 4d 6f 64 75 6c 65 73 2e 43 41 73 73 65 6d 62 6c |Modules.CAssembl|
000039a0 65 72 22 3a c8 99 35 2c 22 49 66 20 22 22 3c 43 |er":..5,"If ""<C|
000039b0 41 73 6d 24 44 69 72 3e 22 22 3d 22 22 22 22 20 |Asm$Dir>""="""" |
000039c0 54 68 65 6e 20 53 65 74 20 43 41 73 6d 24 44 69 |Then Set CAsm$Di|
000039d0 72 20 3c 64 3e 2e 4c 69 62 72 61 72 79 2e 43 41 |r <d>.Library.CA|
000039e0 73 6d 22 3a 43 41 73 6d 4c 69 62 72 61 72 79 5f |sm":CAsmLibrary_|
000039f0 73 74 64 6c 69 62 3d 31 3a 43 41 73 6d 4c 69 62 |stdlib=1:CAsmLib|
00003a00 72 61 72 79 5f 73 74 64 69 6f 3d 32 3a 43 41 73 |rary_stdio=2:CAs|
00003a10 6d 4c 69 62 72 61 72 79 5f 73 74 72 69 6e 67 3d |mLibrary_string=|
00003a20 33 3a 66 4a 3d 34 3a 6d 69 3d 35 3a 71 75 3d 36 |3:fJ=4:mi=5:qu=6|
00003a30 3a 42 69 3d 37 0d 3c c3 fa 43 41 73 6d 4c 69 62 |:Bi=7.<..CAsmLib|
00003a40 72 61 72 79 5f 77 69 6d 70 3d 38 3a 4d 5f 3d 39 |rary_wimp=8:M_=9|
00003a50 3a 43 41 73 6d 4c 69 62 72 61 72 79 5f 6d 65 73 |:CAsmLibrary_mes|
00003a60 73 61 67 65 3d 31 30 3a 4b 69 3d 31 31 3a 6f 75 |sage=10:Ki=11:ou|
00003a70 3d 31 32 3a 45 6c 3d 31 33 3a 66 69 3d 31 34 3a |=12:El=13:fi=14:|
00003a80 6b 75 3d 31 35 3a 44 69 3d 31 36 3a 41 5f 3d 31 |ku=15:Di=16:A_=1|
00003a90 37 3a 73 75 3d 31 38 3a 71 6c 3d 31 39 3a 63 69 |7:su=18:ql=19:ci|
00003aa0 3d 32 30 3a 71 5f 3d 32 31 3a 6a 5f 3d 32 32 3a |=20:q_=21:j_=22:|
00003ab0 48 6c 3d 32 33 3a 66 6c 3d 32 34 3a 70 5f 3d 32 |Hl=23:fl=24:p_=2|
00003ac0 35 3a 58 61 3d 32 36 3a 73 3d 32 36 3a 41 75 3d |5:Xa=26:s=26:Au=|
00003ad0 30 3a 47 75 3d 31 3a 64 75 3d 32 3a 48 4a 3d 33 |0:Gu=1:du=2:HJ=3|
00003ae0 3a 45 5f 3d 34 3a 4f 5f 3d 35 3a 77 5f 3d 36 3a |:E_=4:O_=5:w_=6:|
00003af0 67 69 3d 37 3a 70 79 3d 38 3a 5a 5f 3d 39 3a 45 |gi=7:py=8:Z_=9:E|
00003b00 3d 31 30 3a 58 3d 31 31 3a 75 3d 31 32 3a 41 3d |=10:X=11:u=12:A=|
00003b10 31 33 3a 4d 3d 31 34 3a 50 4a 3d 31 35 3a 61 79 |13:M=14:PJ=15:ay|
00003b20 3d 26 36 64 37 33 34 31 34 33 3a 67 25 3d 30 0d |=&6d734143:g%=0.|
00003b30 3c c4 38 53 79 25 3d 31 33 3a 4f 3d 30 3a 47 3d |<.8Sy%=13:O=0:G=|
00003b40 30 3a 64 3d 31 30 2a 31 30 32 34 3a 74 79 3d 64 |0:d=10*1024:ty=d|
00003b50 2b 28 31 2a 31 30 32 34 29 3a 58 5f 25 3d b9 3a |+(1*1024):X_%=.:|
00003b60 76 79 3d a3 3a 3d 30 0d 3c c5 5d dd f2 68 79 28 |vy=.:=0.<.]..hy(|
00003b70 51 24 29 3a ea 53 25 2c 68 25 2c 45 25 2c 4c 25 |Q$):.S%,h%,E%,L%|
00003b80 2c 4f 25 2c 50 25 2c 43 25 2c 47 24 3a ea 85 3a |,O%,P%,C%,G$:..:|
00003b90 ee 85 ea f7 85 3a c8 99 26 34 30 30 65 63 2c 56 |.....:..&400ec,V|
00003ba0 79 25 2c 2d 31 3a f2 41 28 22 25 2e 43 41 73 6d |y%,-1:.A("%.CAsm|
00003bb0 3a 20 43 6c 61 69 6d 43 41 73 6d 4c 69 62 72 61 |: ClaimCAsmLibra|
00003bc0 72 79 22 29 0d 3c c6 52 56 79 25 3d 93 2d 33 32 |ry").<.RVy%=.-32|
00003bd0 37 36 38 3a c8 99 26 34 30 30 65 63 2c 56 79 25 |768:..&400ec,Vy%|
00003be0 2b 33 32 37 36 38 2c 2d 31 b8 4c 25 3a 4c 25 2b |+32768,-1.L%:L%+|
00003bf0 3d 33 32 37 36 38 3a 4f 25 3d 56 79 25 2b 33 32 |=32768:O%=Vy%+32|
00003c00 37 36 38 3a 50 25 3d 30 3a 43 25 3d 31 34 3a e7 |768:P%=0:C%=14:.|
00003c10 4f 25 3d 4c 25 8c 0d 3c c7 2f 85 31 2c 22 4e 6f |O%=L%..<./.1,"No|
00003c20 74 20 65 6e 6f 75 67 68 20 6d 65 6d 6f 72 79 20 |t enough memory |
00003c30 74 6f 20 73 74 61 72 74 20 61 70 70 6c 69 63 61 |to start applica|
00003c40 74 69 6f 6e 22 0d 3c c8 0d cd 3a e7 67 25 3c 3e |tion".<...:.g%<>|
00003c50 30 8c 0d 3c c9 32 85 31 2c 22 4f 6e 6c 79 20 6f |0..<.2.1,"Only o|
00003c60 6e 65 20 63 61 6c 6c 20 74 6f 20 43 6c 61 69 6d |ne call to Claim|
00003c70 43 41 73 6d 4c 69 62 72 61 72 79 20 61 6c 6c 6f |CAsmLibrary allo|
00003c80 77 65 64 22 0d 3c ca 20 cd 3a de 55 5f 25 73 2a |wed".<. .:.U_%s*|
00003c90 38 3a de 53 24 28 73 29 3a e7 a4 68 5f 44 45 46 |8:.S$(s):..h_DEF|
00003ca0 41 55 4c 54 0d 3c cb 65 c8 95 51 24 3c 3e 22 22 |AULT.<.e..Q$<>""|
00003cb0 3a 47 24 3d c0 51 24 2c a7 51 24 2c 22 2c 22 29 |:G$=.Q$,.Q$,",")|
00003cc0 2d 31 29 3a ea 85 3a ee 85 ea f7 85 3a f2 41 28 |-1):..:.....:.A(|
00003cd0 22 41 74 74 65 6d 70 74 65 64 20 74 6f 20 63 6c |"Attempted to cl|
00003ce0 61 69 6d 20 74 68 65 20 6e 6f 6e 2d 65 78 69 73 |aim the non-exis|
00003cf0 74 65 6e 74 20 6c 69 62 72 61 72 79 3a 20 60 22 |tent library: `"|
00003d00 2b 47 24 2b 22 27 21 22 29 0d 3c cc 43 68 25 3d |+G$+"'!").<.Ch%=|
00003d10 a0 28 22 43 41 73 6d 4c 69 62 72 61 72 79 5f 22 |.("CAsmLibrary_"|
00003d20 2b 47 24 29 3a f7 85 3a 45 25 3d 55 5f 25 3a 53 |+G$):..:E%=U_%:S|
00003d30 25 3d 45 25 2b 28 67 25 2a 38 29 3a c8 95 53 25 |%=E%+(g%*8):..S%|
00003d40 3e 45 25 3a e7 21 45 25 3d 68 25 8c 0d 3c cd 0b |>E%:.!E%=h%..<..|
00003d50 45 25 3d 53 25 2b 31 0d 3c ce 0b cc 3a 45 25 2b |E%=S%+1.<...:E%+|
00003d60 3d 38 0d 3c cf 0f cd 3a ce 3a e7 45 25 3d 53 25 |=8.<...:.:.E%=S%|
00003d70 8c 0d 3c d0 0b e7 67 25 3e 3d 73 8c 0d 3c d1 2d |..<...g%>=s..<.-|
00003d80 85 31 2c 22 54 6f 6f 20 6d 61 6e 79 20 6c 69 62 |.1,"Too many lib|
00003d90 72 61 72 79 73 20 68 61 76 65 20 62 65 65 6e 20 |rarys have been |
00003da0 63 6c 61 69 6d 65 64 21 22 0d 3c d2 3d cd 3a 21 |claimed!".<.=.:!|
00003db0 53 25 3d 68 25 3a 53 24 28 68 25 29 3d 47 24 3a |S%=h%:S$(h%)=G$:|
00003dc0 67 25 2b 3d 31 3a 4f 25 3d 56 79 25 2b 33 32 37 |g%+=1:O%=Vy%+327|
00003dd0 36 38 3a 50 25 3d 30 3a e7 a4 5a 28 22 46 4e 68 |68:P%=0:..Z("FNh|
00003de0 5f 22 2b 47 24 29 0d 3c d3 47 cd 3a 51 24 3d c1 |_"+G$).<.G.:Q$=.|
00003df0 51 24 2c a9 28 47 24 29 2b 32 29 3a c8 95 97 28 |Q$,.(G$)+2):...(|
00003e00 51 24 29 3d 97 28 22 20 22 29 3a 51 24 3d c1 51 |Q$)=.(" "):Q$=.Q|
00003e10 24 2c 32 29 3a ce 3a ce 3a c8 99 26 34 30 30 65 |$,2):.:.:..&400e|
00003e20 63 2c 56 79 25 2c 2d 31 3a f7 85 3a e1 0d 3c d4 |c,Vy%,-1:..:..<.|
00003e30 3e dd f2 66 3a ea 5f 25 2c 53 25 2c 5a 25 2c 7a |>..f:._%,S%,Z%,z|
00003e40 25 3a ea 85 3a ee 85 ea f7 85 3a f2 41 28 22 25 |%:..:.....:.A("%|
00003e50 2e 43 41 73 6d 3a 20 41 73 73 65 6d 62 6c 65 43 |.CAsm: AssembleC|
00003e60 41 73 6d 54 61 62 6c 65 73 22 29 0d 3c d5 0a e7 |AsmTables").<...|
00003e70 67 25 3d 30 8c 0d 3c d6 0f e7 a4 68 5f 44 45 46 |g%=0..<....h_DEF|
00003e80 41 55 4c 54 0d 3c d7 1d cd 3a 7a 25 3d 55 5f 25 |AULT.<...:z%=U_%|
00003e90 3a 5a 25 3d 67 25 3a e7 28 43 25 80 32 29 3d 30 |:Z%=g%:.(C%.2)=0|
00003ea0 8c 0d 3c d8 28 de 53 25 67 25 2a 34 3a c8 99 37 |..<.(.S%g%*4:..7|
00003eb0 39 2c 67 25 2c 53 25 2b 26 63 30 30 30 30 30 30 |9,g%,S%+&c000000|
00003ec0 30 2c 33 2c 2c 7a 25 2c 38 0d 3c d9 85 cd 3a 5b |0,3,,z%,8.<...:[|
00003ed0 4f 50 54 43 25 3a 2e 44 79 20 44 43 44 61 79 3a |OPTC%:.Dy DCDay:|
00003ee0 44 43 44 6e 79 3a 5d 3a c8 95 5a 25 3e 30 3a 5b |DCDny:]:..Z%>0:[|
00003ef0 4f 50 54 43 25 3a 44 43 44 21 7a 25 3a 44 43 44 |OPTC%:DCD!z%:DCD|
00003f00 7a 25 21 34 3a 5d 3a 7a 25 2b 3d 38 3a 5a 25 2d |z%!4:]:z%+=8:Z%-|
00003f10 3d 31 3a ce 3a 5b 4f 50 54 43 25 3a 44 43 44 30 |=1:.:[OPTC%:DCD0|
00003f20 3a 5d 3a 5b 4f 50 54 43 25 3a 41 4c 49 47 4e 3a |:]:[OPTC%:ALIGN:|
00003f30 2e 65 3a 5d 3a 53 25 3d 50 25 3a e7 a4 6a 75 6d |.e:]:S%=P%:..jum|
00003f40 70 62 6c 6f 63 6b 5f 44 45 46 41 55 4c 54 0d 3c |pblock_DEFAULT.<|
00003f50 da 47 6e 79 3d 28 50 25 2d 53 25 29 3e 3e 32 3a |.Gny=(P%-S%)>>2:|
00003f60 5a 25 3d 67 25 3a 7a 25 3d 55 5f 25 3a c8 95 5a |Z%=g%:z%=U_%:..Z|
00003f70 25 3e 30 3a 53 25 3d 50 25 3a e7 a4 5a 28 22 46 |%>0:S%=P%:..Z("F|
00003f80 4e 6a 75 6d 70 62 6c 6f 63 6b 5f 22 2b 53 24 28 |Njumpblock_"+S$(|
00003f90 21 7a 25 29 29 0d 3c db 23 7a 25 21 34 3d 28 50 |!z%)).<.#z%!4=(P|
00003fa0 25 2d 53 25 29 3e 3e 32 3a 7a 25 2b 3d 38 3a 5a |%-S%)>>2:z%+=8:Z|
00003fb0 25 2d 3d 31 3a ce 3a e1 0d 3c dc 35 dd f2 76 79 |%-=1:.:..<.5..vy|
00003fc0 3a ea 53 79 3a ea 85 3a ee 85 ea f7 85 3a f2 41 |:.Sy:..:.....:.A|
00003fd0 28 22 25 2e 43 41 73 6d 3a 20 41 73 73 65 6d 62 |("%.CAsm: Assemb|
00003fe0 6c 65 43 41 73 6d 42 61 73 69 63 22 29 0d 3c dd |leCAsmBasic").<.|
00003ff0 f3 5b 4f 50 54 43 25 3a 41 4c 49 47 4e 3a 2e 56 |.[OPTC%:ALIGN:.V|
00004000 79 3a 53 54 4d 46 44 28 41 29 21 2c 7b 34 2d 35 |y:STMFD(A)!,{4-5|
00004010 2c 4d 7d 3a 42 4c 20 50 25 2b 28 31 33 3c 3c 32 |,M}:BL P%+(13<<2|
00004020 29 3a 2e 53 79 20 44 43 44 44 79 2d 53 79 3a 44 |):.Sy DCDDy-Sy:D|
00004030 43 44 65 2d 53 79 3a 44 43 44 4f 2d 53 79 3a 44 |CDe-Sy:DCDO-Sy:D|
00004040 43 44 47 3a 44 43 44 64 3a 2e 44 3a 44 43 44 30 |CDG:DCDd:.D:DCD0|
00004050 3a 44 43 44 30 3a 44 43 44 30 3a 44 43 44 30 3a |:DCD0:DCD0:DCD0:|
00004060 4c 44 52 20 41 2c 44 3a 4c 44 4d 46 44 28 41 29 |LDR A,D:LDMFD(A)|
00004070 21 2c 7b 45 2c 58 2c 75 2c 4d 7d 3a 4d 4f 56 70 |!,{E,X,u,M}:MOVp|
00004080 63 2c 4d 3a 42 49 43 35 2c 4d 2c 23 26 66 63 30 |c,M:BIC5,M,#&fc0|
00004090 30 30 30 30 33 3a 4c 44 4d 49 41 35 2c 7b 30 2d |00003:LDMIA5,{0-|
000040a0 34 7d 3a 41 44 44 30 2c 30 2c 35 3a 41 44 44 31 |4}:ADD0,0,5:ADD1|
000040b0 2c 31 2c 35 3a 41 44 44 32 2c 32 2c 35 3a 4d 4f |,1,5:ADD2,2,5:MO|
000040c0 56 35 2c 23 30 3a 53 57 49 20 26 66 63 62 38 30 |V5,#0:SWI &fcb80|
000040d0 3a 53 54 52 76 63 30 2c 44 2b 28 31 3c 3c 32 29 |:STRvc0,D+(1<<2)|
000040e0 0d 3c de af 53 54 52 76 63 31 2c 44 2b 28 33 3c |.<..STRvc1,D+(3<|
000040f0 3c 32 29 3a 4c 44 4d 46 44 28 41 29 21 2c 7b 34 |<2):LDMFD(A)!,{4|
00004100 2d 35 2c 70 63 7d 3a 2e 76 3a a4 50 3a 4d 4f 56 |-5,pc}:.v:.P:MOV|
00004110 32 2c 4d 3a 4d 4f 56 31 2c 41 3a 4d 4f 56 30 2c |2,M:MOV1,A:MOV0,|
00004120 45 3a 53 57 49 20 26 66 63 62 38 31 3a 4d 4f 56 |E:SWI &fcb81:MOV|
00004130 76 63 31 2c 23 30 3a 53 54 52 76 63 31 2c 44 2b |vc1,#0:STRvc1,D+|
00004140 28 33 3c 3c 32 29 3a 4d 4f 56 70 63 2c 32 3a 4d |(3<<2):MOVpc,2:M|
00004150 4f 56 31 33 2c 31 32 3a 5d 3a 4f 3d 50 25 3a f2 |OV13,12:]:O=P%:.|
00004160 57 3a f2 74 3a 47 3d 28 47 2b 33 29 80 2d 34 3a |W:.t:G=(G+3).-4:|
00004170 50 25 2b 3d 47 2d 31 3a 4f 25 2b 3d 47 2d 31 3a |P%+=G-1:O%+=G-1:|
00004180 5b 4f 50 54 43 25 3a 44 43 42 30 3a 5d 3a e1 0d |[OPTC%:DCB0:]:..|
00004190 3c df 37 dd f2 5a 79 3a ea 85 3a ee 85 ea f7 85 |<.7..Zy:..:.....|
000041a0 3a f2 41 28 22 25 2e 43 41 73 6d 3a 20 41 73 73 |:.A("%.CAsm: Ass|
000041b0 65 6d 62 6c 65 43 41 73 6d 41 70 70 6c 69 63 61 |embleCAsmApplica|
000041c0 74 69 6f 6e 22 29 0d 3c e0 29 e7 50 25 3c 3e 33 |tion").<.).P%<>3|
000041d0 32 37 36 38 8c 85 31 2c 22 45 78 70 65 63 74 20 |2768..1,"Expect |
000041e0 50 25 20 74 6f 20 62 65 20 26 38 30 30 30 22 0d |P% to be &8000".|
000041f0 3c e1 6e 5b 4f 50 54 43 25 3a 41 44 52 34 2c 54 |<.n[OPTC%:ADR4,T|
00004200 3a 4d 4f 56 35 2c 23 66 79 3a 53 57 49 20 26 66 |:MOV5,#fy:SWI &f|
00004210 63 62 38 30 3a a4 54 28 22 76 63 22 2c 32 2c 79 |cb80:.T("vc",2,y|
00004220 75 29 3a 42 76 63 20 5f 79 3a 53 57 49 20 34 33 |u):Bvc _y:SWI 43|
00004230 3a 2e 54 3a 44 43 44 44 79 2d 54 3a 44 43 44 65 |:.T:DCDDy-T:DCDe|
00004240 2d 54 3a 44 43 44 4f 2d 54 3a 44 43 44 47 3a 44 |-T:DCDO-T:DCDG:D|
00004250 43 44 64 3a 44 43 44 74 79 3a 5d 3a e1 0d 3c e2 |CDd:DCDty:]:..<.|
00004260 35 dd a4 50 3a ea 85 3a ee 85 ea f7 85 3a f2 41 |5..P:..:.....:.A|
00004270 28 22 25 2e 43 41 73 6d 3a 20 53 74 61 72 74 43 |("%.CAsm: StartC|
00004280 41 73 73 65 6d 62 6c 65 72 53 65 73 73 69 6f 6e |AssemblerSession|
00004290 22 29 0d 3c e3 70 5b 4f 50 54 43 25 3a 53 54 4d |").<.p[OPTC%:STM|
000042a0 46 44 28 41 29 21 2c 7b 45 2c 58 2c 75 2c 4d 7d |FD(A)!,{E,X,u,M}|
000042b0 3a 4d 4f 56 20 58 2c 70 63 3a a4 54 28 22 22 2c |:MOV X,pc:.T("",|
000042c0 4d 2c 44 29 3a 53 54 52 20 41 2c 5b 4d 5d 2c 23 |M,D):STR A,[M],#|
000042d0 34 3a 4c 44 4d 49 41 28 4d 29 21 2c 7b 45 2c 75 |4:LDMIA(M)!,{E,u|
000042e0 2c 41 7d 3a 80 20 58 2c 58 2c 23 26 66 63 30 30 |,A}:. X,X,#&fc00|
000042f0 30 30 30 33 3a 84 52 20 4d 2c 4d 2c 58 3a 5d 3a |0003:.R M,M,X:]:|
00004300 3d 30 0d 3c e4 32 dd a4 4e 28 41 25 29 3a ea 4e |=0.<.2..N(A%):.N|
00004310 24 3a 4e 24 3d 22 22 3a c8 95 3f 41 25 3a 4e 24 |$:N$="":..?A%:N$|
00004320 2b 3d bd 28 3f 41 25 29 3a 41 25 2b 3d 31 3a ce |+=.(?A%):A%+=1:.|
00004330 3a 3d 4e 24 0d 3c e5 41 dd a4 79 28 41 25 2c 42 |:=N$.<.A..y(A%,B|
00004340 25 29 3a ea 4e 24 3a 4e 24 3d 22 22 3a c8 95 42 |%):.N$:N$="":..B|
00004350 25 3e 3d 30 80 3f 41 25 3a 4e 24 2b 3d bd 28 3f |%>=0.?A%:N$+=.(?|
00004360 41 25 29 3a 41 25 2b 3d 31 3a 42 25 2d 3d 31 3a |A%):A%+=1:B%-=1:|
00004370 ce 3a 3d 4e 24 0d 3c e6 22 dd f2 48 28 41 25 2c |.:=N$.<."..H(A%,|
00004380 4e 24 29 3a 24 41 25 3d 4e 24 3a 41 25 3f a9 28 |N$):$A%=N$:A%?.(|
00004390 4e 24 29 3d 30 3a e1 0d 3c e7 18 dd a4 5a 28 6e |N$)=0:..<....Z(n|
000043a0 24 29 3a ea 85 3a ee 85 ea f7 85 3a f2 6e 79 0d |$):..:.....:.ny.|
000043b0 3c e8 0a 3d a0 28 6e 24 29 0d 3c e9 0e dd f2 6e |<..=.(n$).<....n|
000043c0 79 3a e7 58 5f 25 8c 0d 3c ea 22 85 9f 2c f6 24 |y:.X_%..<."..,.$|
000043d0 2b 22 20 28 65 76 61 6c 75 61 74 69 6e 67 20 60 |+" (evaluating `|
000043e0 22 2b 6e 24 2b 22 27 29 22 0d 3c eb 0b cc 3a 85 |"+n$+"')".<...:.|
000043f0 9f 2c f6 24 0d 3c ec 07 cd 3a e1 0d 3c ed 3a dd |.,.$.<...:..<.:.|
00004400 f2 46 79 28 71 79 25 2c 4a 79 25 2c 69 5f 25 29 |.Fy(qy%,Jy%,i_%)|
00004410 3a ea 85 3a ee 85 ea f7 85 3a f2 41 28 22 25 2e |:..:.....:.A("%.|
00004420 43 41 73 6d 3a 20 61 73 73 65 6d 62 6c 65 5f 43 |CAsm: assemble_C|
00004430 41 73 6d 22 29 0d 3c ee 4d f2 46 28 22 3c 42 61 |Asm").<.M.F("<Ba|
00004440 73 69 63 56 24 4c 69 62 3e 2e 48 65 61 70 22 2c |sicV$Lib>.Heap",|
00004450 38 29 3a f2 46 28 22 3c 42 61 73 69 63 56 24 4c |8):.F("<BasicV$L|
00004460 69 62 3e 2e 4d 65 73 73 61 67 65 22 2c 31 29 3a |ib>.Message",1):|
00004470 e7 a4 77 28 71 79 25 2c 4a 79 25 2c 69 5f 25 2c |..w(qy%,Jy%,i_%,|
00004480 30 29 0d 3c ef 0f d6 56 79 3a ee 85 d6 76 3a f2 |0).<...Vy:...v:.|
00004490 4f 0d 3c f0 05 e1 0d 3c f1 0e dd f2 57 3a e7 43 |O.<....<....W:.C|
000044a0 25 80 34 8c 0d 3c f2 1b c8 99 26 36 30 36 63 34 |%.4..<....&606c4|
000044b0 2c 28 4f 25 2d 66 25 29 2a 31 30 30 81 48 25 0d |,(O%-f%)*100.H%.|
000044c0 3c f3 1d cc 3a c8 99 26 36 30 36 63 34 2c 28 50 |<...:..&606c4,(P|
000044d0 25 2d 66 25 29 2a 31 30 30 81 48 25 0d 3c f4 07 |%-f%)*100.H%.<..|
000044e0 cd 3a e1 0d 3c f5 7b dd a4 77 28 71 79 25 2c 4a |.:..<.{..w(qy%,J|
000044f0 79 25 2c 69 5f 25 2c 55 79 25 29 3a ea 4c 25 2c |y%,i_%,Uy%):.L%,|
00004500 4f 25 2c 50 25 2c 43 25 2c 46 6c 25 2c 48 25 3a |O%,P%,C%,Fl%,H%:|
00004510 ea 50 75 3a ea 4f 4a 2c 73 4a 2c 44 4a 2c 7a 4a |.Pu:.OJ,sJ,DJ,zJ|
00004520 2c 59 4a 2c 55 4a 3a ea 67 79 2c 6f 79 2c 6a 69 |,YJ,UJ:.gy,oy,ji|
00004530 3a ea 85 3a ee 85 ea f7 85 3a f2 41 28 22 25 2e |:..:.....:.A("%.|
00004540 43 41 73 6d 3a 20 61 73 73 65 6d 62 6c 65 5f 43 |CAsm: assemble_C|
00004550 41 73 6d 5f 45 78 74 65 72 6e 61 6c 22 29 0d 3c |Asm_External").<|
00004560 f6 0b e7 55 79 25 3d 30 8c 0d 3c f7 3a f2 46 28 |...Uy%=0..<.:.F(|
00004570 22 3c 42 61 73 69 63 56 24 4c 69 62 3e 2e 48 65 |"<BasicV$Lib>.He|
00004580 61 70 22 2c 38 29 3a f2 46 28 22 3c 42 61 73 69 |ap",8):.F("<Basi|
00004590 63 56 24 4c 69 62 3e 2e 4d 65 73 73 61 67 65 22 |cV$Lib>.Message"|
000045a0 2c 31 29 0d 3c f8 8b cd 3a de 66 25 71 79 25 3a |,1).<...:.f%qy%:|
000045b0 50 75 3d 41 3a 4f 4a 3d 31 3c 3c 33 31 3a 73 4a |Pu=A:OJ=1<<31:sJ|
000045c0 3d 31 3c 3c 33 30 3a 44 4a 3d 31 3c 3c 32 39 3a |=1<<30:DJ=1<<29:|
000045d0 7a 4a 3d 31 3c 3c 32 38 3a 59 4a 3d 31 3c 3c 32 |zJ=1<<28:YJ=1<<2|
000045e0 37 3a 55 4a 3d 31 3c 3c 32 36 3a 67 79 3d 31 3c |7:UJ=1<<26:gy=1<|
000045f0 3c 31 37 3a 6f 79 3d 32 35 36 3a 6a 69 3d 6f 79 |<17:oy=256:ji=oy|
00004600 2b 67 79 3a c8 99 26 36 30 36 63 30 3a ea 85 3a |+gy:..&606c0:..:|
00004610 ee 85 ea f7 85 3a c8 99 26 36 30 36 63 31 3a f2 |.....:..&606c1:.|
00004620 41 28 22 68 6f 75 72 67 6c 61 73 73 22 29 0d 3c |A("hourglass").<|
00004630 f9 22 48 25 3d 71 79 25 3a 4c 25 3d 66 25 2b 71 |."H%=qy%:L%=f%+q|
00004640 79 25 3a e7 4a 79 25 3c 3e 30 8c 4a 79 25 3d 34 |y%:.Jy%<>0.Jy%=4|
00004650 0d 3c fa 22 e3 43 25 3d 38 2b 4a 79 25 b8 31 30 |.<.".C%=8+Jy%.10|
00004660 2b 4a 79 25 88 32 3a e7 28 43 25 80 34 29 3c 3e |+Jy%.2:.(C%.4)<>|
00004670 30 8c 0d 3c fb 11 4f 25 3d 66 25 3a e7 55 79 25 |0..<..O%=f%:.Uy%|
00004680 3d 31 8c 0d 3c fc 0c 50 25 3d 33 32 37 36 38 0d |=1..<..P%=32768.|
00004690 3c fd 0a cc 3a 50 25 3d 30 0d 3c fe 05 cd 0d 3c |<...:P%=0.<....<|
000046a0 ff 10 cc 3a 4f 25 3d 30 3a 50 25 3d 66 25 0d 3d |...:O%=0:P%=f%.=|
000046b0 00 0c cd 3a c8 8e 55 79 25 ca 0d 3d 01 2f c9 31 |...:..Uy%..=./.1|
000046c0 3a f2 57 3a f2 5a 79 3a f2 57 3a f2 61 3a f2 57 |:.W:.Zy:.W:.a:.W|
000046d0 3a f2 66 3a 4f 3d 50 25 3a f2 57 3a f2 74 3a 47 |:.f:O=P%:.W:.t:G|
000046e0 3d 28 47 2b 33 29 80 2d 34 0d 3d 02 27 c9 30 3a |=(G+3).-4.=.'.0:|
000046f0 f2 57 3a f2 61 3a f2 57 3a f2 48 5f 3a f2 57 3a |.W:.a:.W:.H_:.W:|
00004700 f2 4a 5f 3a f2 57 3a f2 66 3a f2 57 3a f2 76 79 |.J_:.W:.f:.W:.vy|
00004710 0d 3d 03 0c c9 32 3a f2 57 3a f2 61 0d 3d 04 17 |.=...2:.W:.a.=..|
00004720 cb 3a e7 43 25 80 34 8c 4c 25 3d 4f 25 8b 4c 25 |.:.C%.4.L%=O%.L%|
00004730 3d 50 25 0d 3d 05 0e e7 28 43 25 80 32 29 3d 30 |=P%.=...(C%.2)=0|
00004740 8c 0d 3d 06 17 c8 99 26 64 63 62 39 33 2c 30 2c |..=....&dcb93,0,|
00004750 66 25 2c 4c 25 2d 66 25 0d 3d 07 21 cd 3a 48 25 |f%,L%-f%.=.!.:H%|
00004760 3d 4c 25 2d 66 25 3a ed 43 25 3a c8 99 26 36 30 |=L%-f%:.C%:..&60|
00004770 36 63 31 3a e7 4a 79 25 8c 0d 3d 08 0b e7 55 79 |6c1:.Jy%..=...Uy|
00004780 25 3d 30 8c 0d 3d 09 10 56 79 2b 3d 66 25 3a 76 |%=0..=..Vy+=f%:v|
00004790 2b 3d 66 25 0d 3d 0a 05 cd 0d 3d 0b 11 cd 3a e7 |+=f%.=....=...:.|
000047a0 76 79 80 55 79 25 3c 3e 32 8c 0d 3d 0c 09 e7 4a |vy.Uy%<>2..=...J|
000047b0 79 25 8c 0d 3d 0d 17 48 25 3d 65 3a e7 55 79 25 |y%..=..H%=e:.Uy%|
000047c0 8c 48 25 2d 3d 33 32 37 36 38 0d 3d 0e 38 cc 3a |.H%-=32768.=.8.:|
000047d0 85 31 2c 22 43 41 73 6d 54 61 62 6c 65 73 49 6e |.1,"CAsmTablesIn|
000047e0 42 53 53 20 54 52 55 45 20 77 69 74 68 6f 75 74 |BSS TRUE without|
000047f0 20 6f 66 66 73 65 74 20 61 73 73 65 6d 62 6c 79 | offset assembly|
00004800 3f 22 0d 3d 0f 05 cd 0d 3d 10 0b cd 3a e7 69 5f |?".=....=...:.i_|
00004810 25 8c 0d 3d 11 60 f1 22 41 73 73 65 6d 62 6c 65 |%..=.`."Assemble|
00004820 64 20 74 6f 20 26 22 3b 7e 48 25 3b 22 20 3d 20 |d to &";~H%;" = |
00004830 22 3b 28 28 48 25 2a 31 30 2b 35 31 32 29 81 31 |";((H%*10+512).1|
00004840 30 32 34 29 2f 31 30 3b 22 4b 22 3a f1 22 43 6f |024)/10;"K":."Co|
00004850 75 6c 64 20 61 73 73 65 6d 62 6c 65 20 77 69 74 |uld assemble wit|
00004860 68 20 22 3b 71 79 25 2d 48 25 3b 22 20 6c 65 73 |h ";qy%-H%;" les|
00004870 73 22 0d 3d 12 09 cd 3a 3d 48 25 0d 3d 13 19 dd |s".=...:=H%.=...|
00004880 a4 5f 54 65 6d 70 6c 61 74 65 5f 76 65 72 73 69 |._Template_versi|
00004890 6f 6e 3d 33 0d 3d 14 4e dd a4 5f 68 61 72 64 5f |on=3.=.N.._hard_|
000048a0 69 6e 69 74 69 61 6c 69 73 65 5f 54 65 6d 70 6c |initialise_Templ|
000048b0 61 74 65 3a ea 63 25 3a ea 85 3a ee 85 ea f7 85 |ate:.c%:..:.....|
000048c0 3a f2 41 28 22 25 2e 54 65 6d 70 6c 61 74 65 3a |:.A("%.Template:|
000048d0 20 68 61 72 64 5f 69 6e 69 74 69 61 6c 69 73 65 | hard_initialise|
000048e0 22 29 0d 3d 15 0c 6a 79 25 3d a3 3a 3d 30 0d 3d |").=..jy%=.:=0.=|
000048f0 16 47 dd f2 66 79 3a ea 61 25 2c 63 25 2c 77 25 |.G..fy:.a%,c%,w%|
00004900 2c 4d 25 2c 4f 24 2c 7a 5f 25 3a 4f 24 3d 22 3c |,M%,O$,z_%:O$="<|
00004910 22 2b 48 24 2b 22 24 44 69 72 3e 2e 53 70 72 69 |"+H$+"$Dir>.Spri|
00004920 74 65 73 22 3a 61 25 3d a4 48 28 4f 24 29 3a e7 |tes":a%=.H(O$):.|
00004930 61 25 3e 30 8c 0d 3d 17 55 f2 58 28 73 25 2c 61 |a%>0..=.U.X(s%,a|
00004940 25 2b 31 36 29 3a 73 25 21 30 3d 61 25 2b 31 36 |%+16):s%!0=a%+16|
00004950 3a 73 25 21 34 3d 30 3a 73 25 21 38 3d 31 36 3a |:s%!4=0:s%!8=16:|
00004960 73 25 21 31 32 3d 31 36 3a c8 99 26 32 30 30 32 |s%!12=16:..&2002|
00004970 65 2c 35 32 32 2c 73 25 2c 4f 24 b8 63 25 3b 77 |e,522,s%,O$.c%;w|
00004980 25 3a e7 a4 4a 28 77 25 29 8c 0d 3d 18 2a f2 50 |%:..J(w%)..=.*.P|
00004990 28 22 52 65 61 73 6f 6e 22 2c 22 53 70 72 69 74 |("Reason","Sprit|
000049a0 65 73 22 29 3a f2 63 28 63 25 29 3a f2 4a 28 34 |es"):.c(c%):.J(4|
000049b0 29 3a f2 53 0d 3d 19 05 cd 0d 3d 1a 0a cc 3a 73 |):.S.=....=...:s|
000049c0 25 3d 30 0d 3d 1b 1c cd 3a f2 56 79 28 22 54 65 |%=0.=...:.Vy("Te|
000049d0 6d 70 6c 61 74 65 73 22 29 3a e7 6a 79 25 8c 0d |mplates"):.jy%..|
000049e0 3d 1c 0a e7 73 25 3e 30 8c 0d 3d 1d 20 f2 75 28 |=...s%>0..=. .u(|
000049f0 22 50 72 6f 67 49 6e 66 6f 22 2c 73 25 2c 22 50 |"ProgInfo",s%,"P|
00004a00 72 6f 67 49 6e 66 6f 22 29 0d 3d 1e 22 cc 3a f2 |rogInfo").=.".:.|
00004a10 75 28 22 50 72 6f 67 49 6e 66 6f 22 2c 2b 31 2c |u("ProgInfo",+1,|
00004a20 22 50 72 6f 67 49 6e 66 6f 22 29 0d 3d 1f 0a cd |"ProgInfo").=...|
00004a30 3a 6f 25 3d 30 0d 3d 20 0c cc 3a e7 73 25 3e 30 |:o%=0.= ..:.s%>0|
00004a40 8c 0d 3d 21 1c 6f 25 3d a4 47 28 22 50 72 6f 67 |..=!.o%=.G("Prog|
00004a50 49 6e 66 6f 22 2c 7a 5f 25 2c 73 25 29 0d 3d 22 |Info",z_%,s%).="|
00004a60 1e cc 3a 6f 25 3d a4 47 28 22 50 72 6f 67 49 6e |..:o%=.G("ProgIn|
00004a70 66 6f 22 2c 7a 5f 25 2c 2b 31 29 0d 3d 23 05 cd |fo",z_%,+1).=#..|
00004a80 0d 3d 24 22 cd 3a 65 5f 25 3d a4 47 28 22 51 75 |.=$".:e_%=.G("Qu|
00004a90 65 72 79 22 2c 7a 5f 25 2c 2b 31 29 3a f2 69 79 |ery",z_%,+1):.iy|
00004aa0 3a e1 0d 3d 25 58 dd f2 56 79 28 41 24 29 3a ea |:..=%X..Vy(A$):.|
00004ab0 79 5f 25 2c 68 25 2c 61 25 2c 63 25 2c 77 25 2c |y_%,h%,a%,c%,w%,|
00004ac0 4e 25 3a ea 53 75 25 2c 4f 24 2c 41 79 25 2c 65 |N%:.Su%,O$,Ay%,e|
00004ad0 79 25 3a 4f 24 3d 22 3c 22 2b 48 24 2b 22 24 44 |y%:O$="<"+H$+"$D|
00004ae0 69 72 3e 2e 22 2b 41 24 3a 61 25 3d a4 48 28 4f |ir>."+A$:a%=.H(O|
00004af0 24 29 3a e7 61 25 3c 3d 30 8c 0d 3d 26 32 f2 50 |$):.a%<=0..=&2.P|
00004b00 28 22 52 65 61 73 6f 6e 22 2c 41 24 29 3a f2 50 |("Reason",A$):.P|
00004b10 28 22 53 79 73 22 2c 22 4e 6f 74 20 66 6f 75 6e |("Sys","Not foun|
00004b20 64 22 29 3a f2 4a 28 34 29 3a f2 53 0d 3d 27 4d |d"):.J(4):.S.='M|
00004b30 cd 3a f2 58 28 68 25 2c 61 25 29 3a f2 58 28 41 |.:.X(h%,a%):.X(A|
00004b40 79 25 2c 61 25 2b 4e 29 3a 65 79 25 3d 41 79 25 |y%,a%+N):ey%=Ay%|
00004b50 2b 49 79 3a 53 75 25 3d 41 79 25 2b 4e 3a c8 99 |+Iy:Su%=Ay%+N:..|
00004b60 26 36 30 30 64 39 2c 2c 4f 24 b8 63 25 3b 77 25 |&600d9,,O$.c%;w%|
00004b70 3a e7 a4 4a 28 77 25 29 8c 0d 3d 28 35 f2 50 28 |:..J(w%)..=(5.P(|
00004b80 22 52 65 61 73 6f 6e 22 2c 22 54 65 6d 70 6c 61 |"Reason","Templa|
00004b90 74 65 73 22 29 3a f2 63 28 63 25 29 3a f2 4a 28 |tes"):.c(c%):.J(|
00004ba0 34 29 3a c8 99 26 36 30 30 64 61 3a f2 53 0d 3d |4):..&600da:.S.=|
00004bb0 29 12 cd 3a ea 85 3a ee 85 ea f7 85 3a f2 4e 79 |)..:..:.....:.Ny|
00004bc0 0d 3d 2a 55 7a 79 25 3d 30 3a f5 3a 65 79 25 21 |.=*Uzy%=0:.:ey%!|
00004bd0 30 3d 97 28 22 2a 22 29 3a c8 99 26 36 30 30 64 |0=.("*"):..&600d|
00004be0 62 2c 2c 53 75 25 2c 68 25 2c 68 25 2b 61 25 2c |b,,Su%,h%,h%+a%,|
00004bf0 2d 31 2c 65 79 25 2c 7a 79 25 b8 63 25 2c 2c 79 |-1,ey%,zy%.c%,,y|
00004c00 5f 25 2c 2c 2c 2c 7a 79 25 3b 77 25 3a e7 a4 4a |_%,,,,zy%;w%:..J|
00004c10 28 77 25 29 8c 0d 3d 2b 16 f2 59 28 63 25 29 3a |(w%)..=+..Y(c%):|
00004c20 c8 99 26 36 30 30 64 61 3a f2 53 0d 3d 2c 0b cd |..&600da:.S.=,..|
00004c30 3a e7 7a 79 25 8c 0d 3d 2d 26 e3 77 25 3d 30 b8 |:.zy%..=-&.w%=0.|
00004c40 31 31 3a e7 65 79 25 3f 77 25 3d 31 33 8c 65 79 |11:.ey%?w%=13.ey|
00004c50 25 3f 77 25 3d 30 3a 77 25 3d 31 32 0d 3d 2e 31 |%?w%=0:w%=12.=.1|
00004c60 ed 77 25 3a 41 79 25 21 79 79 3d 79 5f 25 2d 68 |.w%:Ay%!yy=y_%-h|
00004c70 25 3a 41 79 25 21 62 79 3d 68 25 3a 4e 25 3d a4 |%:Ay%!by=h%:N%=.|
00004c80 62 28 41 79 25 29 3a e7 4e 25 3d 30 8c 0d 3d 2f |b(Ay%):.N%=0..=/|
00004c90 16 f2 4a 28 31 36 29 3a c8 99 26 36 30 30 64 61 |..J(16):..&600da|
00004ca0 3a f2 53 0d 3d 30 17 cd 3a 4e 25 21 48 3d 21 78 |:.S.=0..:N%!H=!x|
00004cb0 79 25 3a 21 78 79 25 3d 4e 25 0d 3d 31 29 cd 3a |y%:!xy%=N%.=1).:|
00004cc0 fd 7a 79 25 3d 30 3a f7 85 3a c8 99 26 34 30 30 |.zy%=0:..:..&400|
00004cd0 64 61 3a f2 72 28 41 79 25 29 3a f2 72 28 68 25 |da:.r(Ay%):.r(h%|
00004ce0 29 3a e1 0d 3d 32 22 dd f2 4e 79 3a c8 99 26 36 |):..=2"..Ny:..&6|
00004cf0 30 30 64 61 3a f2 41 28 22 54 65 6d 70 6c 61 74 |00da:.A("Templat|
00004d00 65 22 29 3a e1 0d 3d 33 26 dd a4 47 28 58 24 2c |e"):..=3&..G(X$,|
00004d10 64 75 25 2c 53 5f 25 29 3a 3d a4 6d 28 58 24 2c |du%,S_%):=.m(X$,|
00004d20 64 75 25 2c 53 5f 25 2c 22 22 29 0d 3d 34 32 dd |du%,S_%,"").=42.|
00004d30 a4 6d 28 58 24 2c 64 75 25 2c 53 5f 25 2c 42 24 |.m(X$,du%,S_%,B$|
00004d40 29 3a ea 4e 25 2c 63 4a 25 2c 4a 25 3a 4e 25 3d |):.N%,cJ%,J%:N%=|
00004d50 a4 57 28 58 24 29 3a e7 4e 25 3d 30 8c 0d 3d 35 |.W(X$):.N%=0..=5|
00004d60 06 f2 53 0d 3d 36 22 cd 3a 63 4a 25 3d 4e 25 2b |..S.=6".:cJ%=N%+|
00004d70 4e 3a 63 4a 25 21 36 34 3d 53 5f 25 3a e7 42 24 |N:cJ%!64=S_%:.B$|
00004d80 3c 3e 22 22 8c 0d 3d 37 12 4a 25 3d a4 5a 28 22 |<>""..=7.J%=.Z("|
00004d90 46 4e 22 2b 42 24 29 0d 3d 38 11 cd 3a e7 a4 49 |FN"+B$).=8..:..I|
00004da0 28 4e 25 2c 4a 25 29 8c 0d 3d 39 06 f2 53 0d 3d |(N%,J%)..=9..S.=|
00004db0 3a 10 cd 3a f2 6c 28 4e 25 29 3a 3d 4a 25 0d 3d |:..:.l(N%):=J%.=|
00004dc0 3b 2a dd f2 75 28 58 24 2c 53 5f 25 2c 42 24 29 |;*..u(X$,S_%,B$)|
00004dd0 3a ea 4e 25 2c 51 25 3a 4e 25 3d a4 57 28 58 24 |:.N%,Q%:N%=.W(X$|
00004de0 29 3a e7 4e 25 3d 30 8c 0d 3d 3c 06 f2 53 0d 3d |):.N%=0..=<..S.=|
00004df0 3d 20 cd 3a 51 25 3d 4e 25 2b 4e 3a 51 25 21 36 |= .:Q%=N%+N:Q%!6|
00004e00 34 3d 53 5f 25 3a e7 42 24 3c 3e 22 22 8c 0d 3d |4=S_%:.B$<>""..=|
00004e10 3e 20 51 25 3d a4 5a 28 22 46 4e 22 2b 42 24 2b |> Q%=.Z("FN"+B$+|
00004e20 22 28 22 2b c3 28 51 25 29 2b 22 29 22 29 0d 3d |"("+.(Q%)+")").=|
00004e30 3f 07 cd 3a e1 0d 3d 40 27 dd a4 56 28 58 24 2c |?..:..=@'..V(X$,|
00004e40 53 5f 25 29 3a ea 4e 25 2c 51 25 3a 4e 25 3d a4 |S_%):.N%,Q%:N%=.|
00004e50 57 28 58 24 29 3a e7 4e 25 3d 30 8c 0d 3d 41 06 |W(X$):.N%=0..=A.|
00004e60 f2 53 0d 3d 42 1a cd 3a 51 25 3d 4e 25 2b 4e 3a |.S.=B..:Q%=N%+N:|
00004e70 51 25 21 36 34 3d 53 5f 25 3a 3d 30 0d 3d 43 27 |Q%!64=S_%:=0.=C'|
00004e80 dd a4 61 28 58 24 2c f8 77 79 25 29 3a ea 4e 25 |..a(X$,.wy%):.N%|
00004e90 2c 4d 79 25 3a 4d 79 25 3d a3 3a e7 77 79 25 3c |,My%:My%=.:.wy%<|
00004ea0 3d 30 8c 0d 3d 44 12 4e 25 3d a4 57 28 58 24 29 |=0..=D.N%=.W(X$)|
00004eb0 3a e7 4e 25 8c 0d 3d 45 1a 4d 79 25 3d a4 49 28 |:.N%..=E.My%=.I(|
00004ec0 4e 25 2c 77 79 25 29 3a e7 4d 79 25 3d a3 8c 0d |N%,wy%):.My%=...|
00004ed0 3d 46 0a f2 6c 28 4e 25 29 0d 3d 47 05 cd 0d 3d |=F..l(N%).=G...=|
00004ee0 48 0b cc 3a 4d 79 25 3d b9 0d 3d 49 05 cd 0d 3d |H..:My%=..=I...=|
00004ef0 4a 0a cd 3a 3d 4d 79 25 0d 3d 4b 48 dd a4 64 28 |J..:=My%.=KH..d(|
00004f00 58 24 29 3a ea 4e 25 2c 41 24 2c 78 25 3a 4e 25 |X$):.N%,A$,x%:N%|
00004f10 3d 21 78 79 25 3a 78 25 3d a3 3a c8 95 4e 25 80 |=!xy%:x%=.:..N%.|
00004f20 28 ac 78 25 29 3a 78 25 3d 28 a4 79 28 4e 25 2b |(.x%):x%=(.y(N%+|
00004f30 49 79 2c 31 32 29 3d 58 24 29 3a e7 ac 78 25 8c |Iy,12)=X$):..x%.|
00004f40 0d 3d 4c 0b 4e 25 3d 4e 25 21 48 0d 3d 4d 0b cd |.=L.N%=N%!H.=M..|
00004f50 3a ce 3a 3d 4e 25 0d 3d 4e 20 dd a4 57 28 58 24 |:.:=N%.=N ..W(X$|
00004f60 29 3a ea 4e 25 3a 4e 25 3d a4 64 28 58 24 29 3a |):.N%:N%=.d(X$):|
00004f70 e7 4e 25 3d 30 8c 0d 3d 4f 19 f2 50 28 22 52 65 |.N%=0..=O..P("Re|
00004f80 61 73 6f 6e 22 2c 58 24 29 3a f2 4a 28 33 29 0d |ason",X$):.J(3).|
00004f90 3d 50 09 cd 3a 3d 4e 25 0d 3d 51 35 dd a4 49 28 |=P..:=N%.=Q5..I(|
00004fa0 4e 25 2c f8 77 79 25 29 3a c8 99 26 36 30 30 63 |N%,.wy%):..&600c|
00004fb0 31 2c 2c 4e 25 2b 4e b8 77 79 25 3b 4e 25 3a 4e |1,,N%+N.wy%;N%:N|
00004fc0 25 3d a4 4a 28 4e 25 29 3a e7 4e 25 8c 0d 3d 52 |%=.J(N%):.N%..=R|
00004fd0 11 f2 59 28 77 79 25 29 3a 77 79 25 3d 30 0d 3d |..Y(wy%):wy%=0.=|
00004fe0 53 09 cd 3a 3d 4e 25 0d 3d 54 3b dd f2 6c 28 4e |S..:=N%.=T;..l(N|
00004ff0 25 29 3a ea 53 25 3a 53 25 3d 78 79 25 3a c8 95 |%):.S%:S%=xy%:..|
00005000 21 53 25 3c 3e 30 80 21 53 25 3c 3e 4e 25 3a 53 |!S%<>0.!S%<>N%:S|
00005010 25 3d 21 53 25 2b 48 3a ce 3a e7 21 53 25 3d 4e |%=!S%+H:.:.!S%=N|
00005020 25 8c 0d 3d 55 1a 21 53 25 3d 4e 25 21 48 3a 4e |%..=U.!S%=N%!H:N|
00005030 25 21 48 3d 30 3a f2 72 28 4e 25 29 0d 3d 56 07 |%!H=0:.r(N%).=V.|
00005040 cd 3a e1 0d 3d 57 12 dd a4 6a 28 41 25 29 3a 3d |.:..=W...j(A%):=|
00005050 ba 28 78 79 29 0d 3d 58 1c dd a4 62 28 41 25 29 |.(xy).=X...b(A%)|
00005060 3a 41 25 3d a4 6a 28 41 25 29 3a e7 41 25 3d 30 |:A%=.j(A%):.A%=0|
00005070 8c 0d 3d 59 0a f2 4a 28 31 36 29 0d 3d 5a 09 cd |..=Y..J(16).=Z..|
00005080 3a 3d 41 25 0d 3d 5b 22 dd f2 6f 79 3a e7 28 43 |:=A%.=["..oy:.(C|
00005090 25 80 32 29 3d 30 8c f2 49 79 28 22 54 65 6d 70 |%.2)=0..Iy("Temp|
000050a0 6c 61 74 65 22 29 0d 3d 5c 20 5b 4f 50 54 43 25 |late").=\ [OPTC%|
000050b0 3a 41 4c 49 47 4e 3a 2e 78 79 3a a4 50 3a 42 20 |:ALIGN:.xy:.P:B |
000050c0 68 79 3a 5d 3a e1 0d 3d 5d 41 dd a4 5f 44 65 63 |hy:]:..=]A.._Dec|
000050d0 6c 61 72 65 5f 4c 6f 63 61 6c 5f 56 61 72 69 61 |lare_Local_Varia|
000050e0 62 6c 65 73 5f 54 65 6d 70 6c 61 74 65 3a ea 85 |bles_Template:..|
000050f0 3a ee 85 ea f7 85 3a f2 41 28 22 40 2e 54 65 6d |:.....:.A("@.Tem|
00005100 70 6c 61 74 65 22 29 0d 3d 5e 5a de 78 79 25 34 |plate").=^Z.xy%4|
00005110 3a 21 78 79 25 3d 30 3a 50 25 3d 30 3a 5b 4f 50 |:!xy%=0:P%=0:[OP|
00005120 54 43 25 3a 2e 48 20 44 43 44 30 3a 2e 6c 4a 20 |TC%:.H DCD0:.lJ |
00005130 44 43 44 30 3a 2e 62 79 20 44 43 44 30 3a 2e 79 |DCD0:.by DCD0:.y|
00005140 79 20 44 43 44 30 3a 2e 49 79 20 44 43 44 30 3a |y DCD0:.Iy DCD0:|
00005150 44 43 44 30 3a 44 43 44 30 3a 2e 4e 3a 5d 3a 3d |DCD0:DCD0:.N:]:=|
00005160 30 0d 3d 5f 2a dd a4 68 5f 44 45 46 41 55 4c 54 |0.=_*..h_DEFAULT|
00005170 3a ea 85 3a ee 85 ea f7 85 3a f2 41 28 22 40 2e |:..:.....:.A("@.|
00005180 68 2e 44 45 46 41 55 4c 54 22 29 0d 3d 60 5a 6a |h.DEFAULT").=`Zj|
00005190 6c 3d 31 36 3a 57 69 3d 31 3c 3c 33 30 3a 46 6c |l=16:Wi=1<<30:Fl|
000051a0 3d 30 3a 5f 6c 3d 31 3a 71 4a 3d 32 3a 43 61 3d |=0:_l=1:qJ=2:Ca=|
000051b0 33 3a 52 4a 3d 34 3a 70 4a 3d 35 3a 60 69 3d 36 |3:RJ=4:pJ=5:`i=6|
000051c0 3a 4e 4a 3d 37 3a 6f 69 3d 38 3a 4f 6c 3d 31 3c |:NJ=7:oi=8:Ol=1<|
000051d0 3c 30 3a 66 79 3d 31 3c 3c 31 3a 68 69 3d 31 3c |<0:fy=1<<1:hi=1<|
000051e0 3c 32 3a 3d 30 0d 3d 61 32 dd a4 6a 75 6d 70 62 |<2:=0.=a2..jumpb|
000051f0 6c 6f 63 6b 5f 44 45 46 41 55 4c 54 3a ea 85 3a |lock_DEFAULT:..:|
00005200 ee 85 ea f7 85 3a f2 41 28 22 40 2e 68 2e 44 45 |.....:.A("@.h.DE|
00005210 46 41 55 4c 54 22 29 0d 3d 62 6d 5b 4f 50 54 43 |FAULT").=bm[OPTC|
00005220 25 80 53 79 25 3a 2e 73 69 20 44 43 44 78 5f 3a |%.Sy%:.si DCDx_:|
00005230 2e 55 75 20 44 43 44 74 6c 3a 2e 5a 4a 20 44 43 |.Uu DCDtl:.ZJ DC|
00005240 44 65 5f 3a 2e 56 5f 20 44 43 44 4d 69 3a 2e 73 |De_:.V_ DCDMi:.s|
00005250 5f 20 44 43 44 44 75 3a 2e 58 4a 20 44 43 44 63 |_ DCDDu:.XJ DCDc|
00005260 6c 3a 2e 63 4a 20 44 43 44 48 69 3a 2e 6b 5f 20 |l:.cJ DCDHi:.k_ |
00005270 44 43 44 53 6c 3a 2e 5f 79 20 44 43 44 75 6c 3a |DCDSl:._y DCDul:|
00005280 5d 3a 3d 30 0d 3d 63 26 dd a4 68 5f 73 74 64 69 |]:=0.=c&..h_stdi|
00005290 6f 3a ea 85 3a ee 85 ea f7 85 3a f2 41 28 22 40 |o:..:.....:.A("@|
000052a0 2e 68 2e 73 74 64 69 6f 22 29 0d 3d 64 17 57 4a |.h.stdio").=d.WJ|
000052b0 3d 30 3a 77 69 3d 31 37 3a 6b 6c 3d 33 34 3a 3d |=0:wi=17:kl=34:=|
000052c0 30 0d 3d 65 2e dd a4 6a 75 6d 70 62 6c 6f 63 6b |0.=e...jumpblock|
000052d0 5f 73 74 64 69 6f 3a ea 85 3a ee 85 ea f7 85 3a |_stdio:..:.....:|
000052e0 f2 41 28 22 40 2e 68 2e 73 74 64 69 6f 22 29 0d |.A("@.h.stdio").|
000052f0 3d 66 98 5b 4f 50 54 43 25 80 53 79 25 3a 2e 65 |=f.[OPTC%.Sy%:.e|
00005300 6c 20 44 43 44 69 4a 3a 2e 6f 4a 20 44 43 44 7a |l DCDiJ:.oJ DCDz|
00005310 6c 3a 2e 51 5f 20 44 43 44 68 6c 3a 2e 4d 61 20 |l:.Q_ DCDhl:.Ma |
00005320 44 43 44 60 6c 3a 2e 46 5f 20 44 43 44 49 4a 3a |DCD`l:.F_ DCDIJ:|
00005330 2e 77 75 25 44 43 44 61 75 25 3a 2e 74 75 25 44 |.wu%DCDau%:.tu%D|
00005340 43 44 72 75 25 3a 2e 76 75 25 44 43 44 78 75 25 |CDru%:.vu%DCDxu%|
00005350 3a 2e 50 69 20 44 43 44 6f 6c 3a 2e 61 6c 20 44 |:.Pi DCDol:.al D|
00005360 43 44 41 69 3a 2e 55 69 20 44 43 44 78 69 3a 2e |CDAi:.Ui DCDxi:.|
00005370 4e 69 20 44 43 44 6e 69 3a 2e 5a 6c 20 44 43 44 |Ni DCDni:.Zl DCD|
00005380 4c 75 3a 5d 3a 3d 30 0d 3d 67 28 dd a4 68 5f 73 |Lu:]:=0.=g(..h_s|
00005390 74 64 6c 69 62 3a ea 85 3a ee 85 ea f7 85 3a f2 |tdlib:..:.....:.|
000053a0 41 28 22 40 2e 68 2e 73 74 64 6c 69 62 22 29 0d |A("@.h.stdlib").|
000053b0 3d 68 06 3d 30 0d 3d 69 30 dd a4 6a 75 6d 70 62 |=h.=0.=i0..jumpb|
000053c0 6c 6f 63 6b 5f 73 74 64 6c 69 62 3a ea 85 3a ee |lock_stdlib:..:.|
000053d0 85 ea f7 85 3a f2 41 28 22 40 2e 68 2e 73 74 64 |....:.A("@.h.std|
000053e0 6c 69 62 22 29 0d 3d 6a a9 5b 4f 50 54 43 25 80 |lib").=j.[OPTC%.|
000053f0 53 79 25 3a 2e 4f 79 20 44 43 44 68 75 3a 2e 63 |Sy%:.Oy DCDhu:.c|
00005400 79 20 44 43 44 4a 6c 3a 2e 50 61 20 44 43 44 56 |y DCDJl:.Pa DCDV|
00005410 69 3a 2e 65 79 20 44 43 44 6c 6c 3a 2e 74 4a 20 |i:.ey DCDll:.tJ |
00005420 44 43 44 68 5f 3a 2e 44 5f 20 44 43 44 5a 61 3a |DCDh_:.D_ DCDZa:|
00005430 2e 62 6c 20 44 43 44 51 6c 3a 2e 4a 5f 20 44 43 |.bl DCDQl:.J_ DC|
00005440 44 51 61 3a 2e 5f 5f 20 44 43 44 60 75 3a 2e 4b |DQa:.__ DCD`u:.K|
00005450 5f 20 44 43 44 78 4a 3a 2e 53 5f 20 44 43 44 64 |_ DCDxJ:.S_ DCDd|
00005460 4a 3a 2e 61 5f 20 44 43 44 77 4a 3a 2e 54 75 20 |J:.a_ DCDwJ:.Tu |
00005470 44 43 44 50 5f 3a 2e 50 6c 20 44 43 44 74 5f 3a |DCDP_:.Pl DCDt_:|
00005480 2e 75 75 20 44 43 44 58 6c 3a 5d 3a 3d 30 0d 3d |.uu DCDXl:]:=0.=|
00005490 6b 28 dd a4 68 5f 73 74 72 69 6e 67 3a ea 85 3a |k(..h_string:..:|
000054a0 ee 85 ea f7 85 3a f2 41 28 22 40 2e 68 2e 73 74 |.....:.A("@.h.st|
000054b0 72 69 6e 67 22 29 0d 3d 6c 53 50 25 3d 30 3a 5b |ring").=lSP%=0:[|
000054c0 4f 50 54 43 25 3a 2e 46 75 20 44 43 42 30 3a 2e |OPTC%:.Fu DCB0:.|
000054d0 63 5f 20 44 43 42 30 3a 2e 4f 69 20 44 43 42 30 |c_ DCB0:.Oi DCB0|
000054e0 3a 2e 61 4a 20 44 43 42 30 3a 2e 6e 75 20 44 43 |:.aJ DCB0:.nu DC|
000054f0 42 30 3a 2e 55 6c 20 44 43 42 30 3a 2e 42 6c 20 |B0:.Ul DCB0:.Bl |
00005500 44 43 42 30 3a 5d 3a 3d 30 0d 3d 6d 30 dd a4 6a |DCB0:]:=0.=m0..j|
00005510 75 6d 70 62 6c 6f 63 6b 5f 73 74 72 69 6e 67 3a |umpblock_string:|
00005520 ea 85 3a ee 85 ea f7 85 3a f2 41 28 22 40 2e 68 |..:.....:.A("@.h|
00005530 2e 73 74 72 69 6e 67 22 29 0d 3d 6e f4 5b 4f 50 |.string").=n.[OP|
00005540 54 43 25 80 53 79 25 3a 2e 53 4a 20 44 43 44 75 |TC%.Sy%:.SJ DCDu|
00005550 4a 3a 2e 62 4a 20 44 43 44 77 6c 3a 2e 76 4a 20 |J:.bJ DCDwl:.vJ |
00005560 44 43 44 62 5f 3a 2e 4f 75 20 44 43 44 48 5f 3a |DCDb_:.Ou DCDH_:|
00005570 2e 4b 6c 20 44 43 44 72 75 3a 2e 6b 79 20 44 43 |.Kl DCDru:.ky DC|
00005580 44 46 69 3a 2e 6c 79 20 44 43 44 54 4a 3a 2e 51 |DFi:.ly DCDTJ:.Q|
00005590 4a 20 44 43 44 6d 6c 3a 2e 66 5f 20 44 43 44 5a |J DCDml:.f_ DCDZ|
000055a0 69 3a 2e 45 69 20 44 43 44 6a 4a 3a 2e 65 69 20 |i:.Ei DCDjJ:.ei |
000055b0 44 43 44 49 5f 3a 2e 54 69 20 44 43 44 67 5f 3a |DCDI_:.Ti DCDg_:|
000055c0 2e 6e 4a 20 44 43 44 52 75 3a 2e 59 5f 20 44 43 |.nJ DCDRu:.Y_ DC|
000055d0 44 43 75 3a 2e 43 5f 20 44 43 44 4d 75 3a 2e 5f |DCu:.C_ DCDMu:._|
000055e0 4a 20 44 43 44 76 69 3a 2e 59 69 20 44 43 44 6d |J DCDvi:.Yi DCDm|
000055f0 4a 3a 2e 65 4a 20 44 43 44 53 75 3a 2e 56 4a 20 |J:.eJ DCDSu:.VJ |
00005600 44 43 44 54 5f 3a 2e 63 75 20 44 43 44 79 5f 3a |DCDT_:.cu DCDy_:|
00005610 2e 7a 75 20 44 43 44 52 5f 3a 2e 76 75 20 44 43 |.zu DCDR_:.vu DC|
00005620 44 72 69 3a 2e 6d 75 20 44 43 44 54 6c 0d 3d 6f |Dri:.mu DCDTl.=o|
00005630 c6 2e 5f 69 20 44 43 44 76 5f 3a 2e 4e 6c 20 44 |.._i DCDv_:.Nl D|
00005640 43 44 42 4a 3a 2e 71 69 20 44 43 44 75 5f 3a 2e |CDBJ:.qi DCDu_:.|
00005650 47 69 20 44 43 44 72 4a 3a 2e 4a 69 20 44 43 44 |Gi DCDrJ:.Ji DCD|
00005660 4a 75 3a 2e 76 6c 20 44 43 44 79 4a 3a 2e 49 69 |Ju:.vl DCDyJ:.Ii|
00005670 20 44 43 44 55 61 3a 2e 47 6c 20 44 43 44 60 4a | DCDUa:.Gl DCD`J|
00005680 3a 2e 69 6c 20 44 43 44 74 75 3a 2e 64 6c 20 44 |:.il DCDtu:.dl D|
00005690 43 44 4d 4a 3a 2e 5f 75 20 44 43 44 67 75 3a 2e |CDMJ:._u DCDgu:.|
000056a0 6a 75 20 44 43 44 6e 5f 3a 2e 61 75 20 44 43 44 |ju DCDn_:.au DCD|
000056b0 64 5f 3a 2e 57 75 20 44 43 44 44 61 3a 2e 42 75 |d_:.Wu DCDDa:.Bu|
000056c0 20 44 43 44 46 4a 3a 2e 6d 5f 20 44 43 44 72 5f | DCDFJ:.m_ DCDr_|
000056d0 3a 2e 4d 6c 20 44 43 44 4a 61 3a 2e 59 75 20 44 |:.Ml DCDJa:.Yu D|
000056e0 43 44 70 75 3a 2e 47 5f 20 44 43 44 49 6c 3a 5d |CDpu:.G_ DCDIl:]|
000056f0 3a 3d 30 0d 3d 70 2a dd a4 68 5f 6d 65 73 73 61 |:=0.=p*..h_messa|
00005700 67 65 3a ea 85 3a ee 85 ea f7 85 3a f2 41 28 22 |ge:..:.....:.A("|
00005710 40 2e 68 2e 6d 65 73 73 61 67 65 22 29 0d 3d 71 |@.h.message").=q|
00005720 06 3d 30 0d 3d 72 32 dd a4 6a 75 6d 70 62 6c 6f |.=0.=r2..jumpblo|
00005730 63 6b 5f 6d 65 73 73 61 67 65 3a ea 85 3a ee 85 |ck_message:..:..|
00005740 ea f7 85 3a f2 41 28 22 40 2e 68 2e 6d 65 73 73 |...:.A("@.h.mess|
00005750 61 67 65 22 29 0d 3d 73 45 5b 4f 50 54 43 25 80 |age").=sE[OPTC%.|
00005760 53 79 25 3a 2e 73 79 20 44 43 44 57 61 3a 2e 57 |Sy%:.sy DCDWa:.W|
00005770 5f 20 44 43 44 60 5f 3a 2e 6c 69 20 44 43 44 41 |_ DCD`_:.li DCDA|
00005780 6c 3a 2e 53 61 20 44 43 44 69 75 3a 2e 58 5f 20 |l:.Sa DCDiu:.X_ |
00005790 44 43 44 6c 75 3a 5d 3a 3d 30 0d 3d 74 24 dd a4 |DCDlu:]:=0.=t$..|
000057a0 68 5f 77 69 6d 70 3a ea 85 3a ee 85 ea f7 85 3a |h_wimp:..:.....:|
000057b0 f2 41 28 22 40 2e 68 2e 77 69 6d 70 22 29 0d 3d |.A("@.h.wimp").=|
000057c0 75 f7 4e 75 3d 31 32 3a 4e 5f 3d 30 3a 50 25 3d |u.Nu=12:N_=0:P%=|
000057d0 30 3a 5b 4f 50 54 43 25 3a 2e 51 79 20 44 43 42 |0:[OPTC%:.Qy DCB|
000057e0 30 3a 2e 43 6c 20 44 43 42 30 3a 2e 75 79 20 44 |0:.Cl DCB0:.uy D|
000057f0 43 42 30 3a 2e 7a 5f 20 44 43 42 30 3a 2e 61 69 |CB0:.z_ DCB0:.ai|
00005800 20 44 43 42 30 3a 2e 55 79 20 44 43 42 30 3a 2e | DCB0:.Uy DCB0:.|
00005810 4e 61 20 44 43 42 30 3a 2e 69 79 20 44 43 42 30 |Na DCB0:.iy DCB0|
00005820 3a 2e 77 79 20 44 43 42 30 3a 2e 51 75 20 44 43 |:.wy DCB0:.Qu DC|
00005830 42 30 3a 2e 58 75 20 44 43 42 30 3a 2e 48 75 20 |B0:.Xu DCB0:.Hu |
00005840 44 43 42 30 3a 2e 47 61 20 44 43 42 30 3a 2e 56 |DCB0:.Ga DCB0:.V|
00005850 6c 20 44 43 42 30 3a 2e 69 5f 20 44 43 42 30 3a |l DCB0:.i_ DCB0:|
00005860 2e 58 69 20 44 43 42 30 3a 2e 45 4a 20 44 43 42 |.Xi DCB0:.EJ DCB|
00005870 30 3a 5d 3a 50 25 3d 30 3a 5b 4f 50 54 43 25 3a |0:]:P%=0:[OPTC%:|
00005880 2e 41 61 20 44 43 42 30 3a 2e 53 69 20 44 43 42 |.Aa DCB0:.Si DCB|
00005890 30 3a 2e 59 79 20 44 43 42 30 3a 2e 77 75 20 44 |0:.Yy DCB0:.wu D|
000058a0 43 42 30 3a 2e 45 75 20 44 43 42 30 3a 2e 5a 75 |CB0:.Eu DCB0:.Zu|
000058b0 20 44 43 42 30 0d 3d 76 79 2e 4c 4a 20 44 43 42 | DCB0.=vy.LJ DCB|
000058c0 30 3a 2e 69 69 20 44 43 42 30 3a 2e 43 4a 20 44 |0:.ii DCB0:.CJ D|
000058d0 43 42 30 3a 2e 52 6c 20 44 43 42 30 3a 2e 73 6c |CB0:.Rl DCB0:.sl|
000058e0 20 44 43 42 30 3a 2e 78 75 20 44 43 42 30 3a 5d | DCB0:.xu DCB0:]|
000058f0 3a 50 25 3d 30 3a 5b 4f 50 54 43 25 3a 2e 57 6c |:P%=0:[OPTC%:.Wl|
00005900 20 44 43 42 30 3a 2e 6b 4a 20 44 43 42 30 3a 2e | DCB0:.kJ DCB0:.|
00005910 46 61 20 44 43 42 30 3a 2e 67 4a 20 44 43 42 30 |Fa DCB0:.gJ DCB0|
00005920 3a 2e 56 75 20 44 43 42 30 3a 5d 3a 3d 30 0d 3d |:.Vu DCB0:]:=0.=|
00005930 77 2c dd a4 6a 75 6d 70 62 6c 6f 63 6b 5f 77 69 |w,..jumpblock_wi|
00005940 6d 70 3a ea 85 3a ee 85 ea f7 85 3a f2 41 28 22 |mp:..:.....:.A("|
00005950 40 2e 68 2e 77 69 6d 70 22 29 0d 3d 78 c7 5b 4f |@.h.wimp").=x.[O|
00005960 50 54 43 25 80 53 79 25 3a 2e 42 61 20 44 43 44 |PTC%.Sy%:.Ba DCD|
00005970 4c 6c 3a 2e 49 75 20 44 43 44 72 6c 3a 2e 47 4a |Ll:.Iu DCDrl:.GJ|
00005980 20 44 43 44 55 5f 3a 2e 43 69 20 44 43 44 70 6c | DCDU_:.Ci DCDpl|
00005990 3a 2e 72 79 20 44 43 44 6c 5f 3a 2e 4c 69 20 44 |:.ry DCDl_:.Li D|
000059a0 43 44 79 6c 3a 2e 60 79 20 44 43 44 68 4a 3a 2e |CDyl:.`y DCDhJ:.|
000059b0 59 6c 20 44 43 44 7a 69 3a 2e 68 79 20 44 43 44 |Yl DCDzi:.hy DCD|
000059c0 6f 5f 3a 2e 4b 4a 20 44 43 44 4b 75 3a 2e 4c 5f |o_:.KJ DCDKu:.L_|
000059d0 20 44 43 44 67 6c 3a 2e 62 69 20 44 43 44 65 75 | DCDgl:.bi DCDeu|
000059e0 3a 2e 62 75 20 44 43 44 44 6c 3a 2e 75 69 20 44 |:.bu DCDDl:.ui D|
000059f0 43 44 6e 6c 3a 2e 52 69 20 44 43 44 42 5f 3a 2e |CDnl:.Ri DCDB_:.|
00005a00 6b 69 20 44 43 44 64 69 3a 2e 79 69 20 44 43 44 |ki DCDdi:.yi DCD|
00005a10 70 69 3a 2e 66 75 20 44 43 44 41 4a 3a 5d 3a 3d |pi:.fu DCDAJ:]:=|
00005a20 30 0d 3d 79 21 dd f2 77 79 3a ea 54 79 25 2c 41 |0.=y!..wy:.Ty%,A|
00005a30 5f 25 2c 55 24 3a ea dc 3a f7 2b 30 3a e7 6a 79 |_%,U$:..:.+0:.jy|
00005a40 25 8c 0d 3d 7a 29 54 79 25 3d 21 28 a4 57 28 22 |%..=z)Ty%=!(.W("|
00005a50 50 72 6f 67 49 6e 66 6f 22 29 2b 4e 2b 38 38 2b |ProgInfo")+N+88+|
00005a60 28 31 36 3c 3c 35 29 2b 32 30 29 0d 3d 7b 13 cc |(16<<5)+20).={..|
00005a70 3a 54 79 25 3d a4 65 28 6f 25 2c 31 36 29 0d 3d |:Ty%=.e(o%,16).=|
00005a80 7c 4f cd 3a f3 55 24 3a 41 5f 25 3d 97 28 55 24 ||O.:.U$:A_%=.(U$|
00005a90 29 3a 55 24 3d c1 55 24 2c 32 29 3a c8 95 55 24 |):U$=.U$,2):..U$|
00005aa0 3c 3e 22 22 3a 3f 54 79 25 3d 97 28 55 24 29 82 |<>"":?Ty%=.(U$).|
00005ab0 41 5f 25 3a 55 24 3d c1 55 24 2c 32 29 3a 54 79 |A_%:U$=.U$,2):Ty|
00005ac0 25 2b 3d 31 3a ce 3a 3f 54 79 25 3d 30 0d 3d 7d |%+=1:.:?Ty%=0.=}|
00005ad0 38 dc 22 ce 9b a0 bc ab a9 a7 bd ba ab bc ab aa |8.".............|
00005ae0 22 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c |",,,,,,,,,,,,,,,|
00005af0 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c |,,,,,,,,,,,,,,,,|
00005b00 2c 2c 2c 2c 2c 0d 3d 7e 05 e1 0d 3d 7f d1 dd f2 |,,,,,.=~...=....|
00005b10 58 79 3a ea 4d 25 3a 58 79 25 3d 31 33 3a de 76 |Xy:.M%:Xy%=13:.v|
00005b20 79 25 58 79 25 3a de 71 4a 25 a9 20 28 48 24 29 |y%Xy%:.qJ%. (H$)|
00005b30 2b 32 2b 31 3a 4d 25 3d a4 41 28 35 31 32 29 3a |+2+1:M%=.A(512):|
00005b40 4d 25 21 30 3d 2d 31 3a 4d 25 21 34 3d 30 3a 4d |M%!0=-1:M%!4=0:M|
00005b50 25 21 38 3d 2d 31 36 3a 4d 25 21 31 32 3d 36 38 |%!8=-16:M%!12=68|
00005b60 2b 28 58 79 25 2d 35 29 2a 38 2a 32 3a 4d 25 21 |+(Xy%-5)*8*2:M%!|
00005b70 31 36 3d 38 34 3a 4d 25 21 32 30 3d 26 31 37 30 |16=84:M%!20=&170|
00005b80 30 33 31 32 62 3a 4d 25 21 32 34 3d 76 79 25 3a |0312b:M%!24=vy%:|
00005b90 24 76 79 25 3d 22 22 3a 24 71 4a 25 3d 22 53 21 |$vy%="":$qJ%="S!|
00005ba0 42 43 22 3a 4d 25 21 32 38 3d 71 4a 25 3a 4d 25 |BC":M%!28=qJ%:M%|
00005bb0 21 33 32 3d 58 79 25 3a c8 99 26 34 30 30 63 32 |!32=Xy%:..&400c2|
00005bc0 2c 2c 4d 25 b8 55 4a 25 3a f2 43 28 4d 25 2c 35 |,,M%.UJ%:.C(M%,5|
00005bd0 31 32 29 3a f2 55 28 59 29 3a e1 0d 3d 80 15 dd |12):.U(Y):..=...|
00005be0 f2 55 28 4b 4a 25 29 3a e7 4b 4a 25 3c 3e 59 8c |.U(KJ%):.KJ%<>Y.|
00005bf0 0d 3d 81 32 f2 6a 28 22 49 63 6f 6e 42 61 72 22 |.=.2.j("IconBar"|
00005c00 2c 4b 4a 25 2b 31 29 3a 24 76 79 25 3d c0 a4 76 |,KJ%+1):$vy%=..v|
00005c10 28 22 49 63 6f 6e 42 61 72 22 29 2c 58 79 25 2d |("IconBar"),Xy%-|
00005c20 31 29 0d 3d 82 21 cc 3a 24 76 79 25 3d c0 22 55 |1).=.!.:$vy%=."U|
00005c30 6e 52 65 67 69 73 74 65 72 65 64 22 2c 58 79 25 |nRegistered",Xy%|
00005c40 2d 31 29 0d 3d 83 19 cd 3a f2 78 79 28 2d 31 2c |-1).=...:.xy(-1,|
00005c50 55 4a 25 2c 30 2c 30 2c 30 29 3a e1 0d 3d 84 19 |UJ%,0,0,0):..=..|
00005c60 dd a4 5f 46 69 6c 65 54 79 70 65 5f 76 65 72 73 |.._FileType_vers|
00005c70 69 6f 6e 3d 31 0d 3d 85 53 dd a4 5f 68 61 72 64 |ion=1.=.S.._hard|
00005c80 5f 69 6e 69 74 69 61 6c 69 73 65 5f 46 69 6c 65 |_initialise_File|
00005c90 54 79 70 65 3a ea 85 3a ee 85 ea f7 85 3a f2 41 |Type:..:.....:.A|
00005ca0 28 22 25 2e 46 69 6c 65 54 79 70 65 3a 20 68 61 |("%.FileType: ha|
00005cb0 72 64 5f 69 6e 69 74 69 61 6c 69 73 65 5f 46 69 |rd_initialise_Fi|
00005cc0 6c 65 54 79 70 65 22 29 0d 3d 86 24 49 3d 34 30 |leType").=.$I=40|
00005cd0 39 35 3a 4a 4a 3d 34 30 39 33 3a 72 3d 34 30 39 |95:JJ=4093:r=409|
00005ce0 31 3a 78 6c 3d 34 30 38 39 3a 3d 30 0d 3d 87 18 |1:xl=4089:=0.=..|
00005cf0 dd a4 5f 49 6e 74 4d 61 74 68 5f 76 65 72 73 69 |.._IntMath_versi|
00005d00 6f 6e 3d 34 0d 3d 88 20 dd a4 5f 68 61 72 64 5f |on=4.=. .._hard_|
00005d10 69 6e 69 74 69 61 6c 69 73 65 5f 49 6e 74 4d 61 |initialise_IntMa|
00005d20 74 68 3d 30 0d 3d 89 19 dd a4 5f 4d 6f 64 65 49 |th=0.=...._ModeI|
00005d30 6e 66 6f 5f 76 65 72 73 69 6f 6e 3d 35 0d 3d 8a |nfo_version=5.=.|
00005d40 21 dd a4 5f 68 61 72 64 5f 69 6e 69 74 69 61 6c |!.._hard_initial|
00005d50 69 73 65 5f 4d 6f 64 65 49 6e 66 6f 3d 30 0d 3d |ise_ModeInfo=0.=|
00005d60 8b f4 dd f2 64 79 28 76 25 29 3a c8 99 35 33 2c |....dy(v%):..53,|
00005d70 76 25 2c 31 b8 2c 2c 71 5f 25 3a 71 5f 25 2b 3d |v%,1.,,q_%:q_%+=|
00005d80 31 3a c8 99 35 33 2c 76 25 2c 32 b8 2c 2c 78 5f |1:..53,v%,2.,,x_|
00005d90 25 3a 78 5f 25 2b 3d 31 3a c8 99 35 33 2c 76 25 |%:x_%+=1:..53,v%|
00005da0 2c 33 b8 2c 2c 77 4a 25 3a 77 4a 25 2b 3d 31 3a |,3.,,wJ%:wJ%+=1:|
00005db0 c8 99 35 33 2c 76 25 2c 34 b8 2c 2c 57 75 25 3a |..53,v%,4.,,Wu%:|
00005dc0 c8 99 35 33 2c 76 25 2c 35 b8 2c 2c 42 75 25 3a |..53,v%,5.,,Bu%:|
00005dd0 c8 99 35 33 2c 76 25 2c 36 b8 2c 2c 51 75 25 3a |..53,v%,6.,,Qu%:|
00005de0 c8 99 35 33 2c 76 25 2c 37 b8 2c 2c 5f 75 25 3a |..53,v%,7.,,_u%:|
00005df0 c8 99 35 33 2c 76 25 2c 39 b8 2c 2c 72 5f 25 3a |..53,v%,9.,,r_%:|
00005e00 4a 4a 25 3d 31 3c 3c 72 5f 25 3a c8 99 35 33 2c |JJ%=1<<r_%:..53,|
00005e10 76 25 2c 31 31 b8 2c 2c 6d 79 25 3a 6d 79 25 2b |v%,11.,,my%:my%+|
00005e20 3d 31 3a c8 99 35 33 2c 76 25 2c 31 32 b8 2c 2c |=1:..53,v%,12.,,|
00005e30 74 79 25 3a 74 79 25 2b 3d 31 3a 56 75 25 3d 6d |ty%:ty%+=1:Vu%=m|
00005e40 79 25 81 71 5f 25 3a 68 75 25 3d 74 79 25 81 78 |y%.q_%:hu%=ty%.x|
00005e50 5f 25 0d 3d 8c 32 75 79 25 3d 28 6d 79 25 3c 3c |_%.=.2uy%=(my%<<|
00005e60 57 75 25 29 2d 31 3a 72 79 25 3d 28 74 79 25 3c |Wu%)-1:ry%=(ty%<|
00005e70 3c 42 75 25 29 2d 31 3a 65 75 25 3d 33 32 81 4a |<Bu%)-1:eu%=32.J|
00005e80 4a 25 3a e1 0d 3d 8d 16 dd a4 5f 57 69 6d 70 5f |J%:..=...._Wimp_|
00005e90 76 65 72 73 69 6f 6e 3d 32 37 0d 3d 8e 4b dd a4 |version=27.=.K..|
00005ea0 5f 68 61 72 64 5f 69 6e 69 74 69 61 6c 69 73 65 |_hard_initialise|
00005eb0 5f 57 69 6d 70 3a ea 63 25 3a ea 85 3a ee 85 ea |_Wimp:.c%:..:...|
00005ec0 f7 85 3a f2 41 28 22 25 2e 57 69 6d 70 3a 20 68 |..:.A("%.Wimp: h|
00005ed0 61 72 64 5f 69 6e 69 74 69 61 6c 69 73 65 5f 57 |ard_initialise_W|
00005ee0 69 6d 70 22 29 0d 3d 8f 0b e7 a4 55 3c 31 32 8c |imp").=....U<12.|
00005ef0 0d 3d 90 3b 85 31 2c 22 25 2e 57 69 6d 70 20 6e |.=.;.1,"%.Wimp n|
00005f00 65 65 64 73 20 6d 6f 72 65 20 72 65 63 65 6e 74 |eeds more recent|
00005f10 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 68 65 20 | version of the |
00005f20 4c 69 62 48 61 6e 64 6c 65 72 22 0d 3d 91 1a cd |LibHandler".=...|
00005f30 3a c8 99 26 34 30 30 66 32 2c 30 b8 63 25 3a e7 |:..&400f2,0.c%:.|
00005f40 63 25 3d 30 8c 0d 3d 92 35 85 30 2c 22 41 70 70 |c%=0..=.5.0,"App|
00005f50 6c 69 63 61 74 69 6f 6e 20 6e 65 65 64 73 20 74 |lication needs t|
00005f60 6f 20 62 65 20 72 75 6e 20 66 72 6f 6d 20 74 68 |o be run from th|
00005f70 65 20 64 65 73 6b 74 6f 70 22 0d 3d 93 fa cd 3a |e desktop".=...:|
00005f80 f2 46 28 22 3c 42 61 73 69 63 56 24 4c 69 62 3e |.F("<BasicV$Lib>|
00005f90 2e 48 65 61 70 22 2c 38 29 3a f2 46 28 22 3c 42 |.Heap",8):.F("<B|
00005fa0 61 73 69 63 56 24 4c 69 62 3e 2e 4d 65 73 73 61 |asicV$Lib>.Messa|
00005fb0 67 65 22 2c 33 29 3a f2 46 28 22 3c 42 61 73 69 |ge",3):.F("<Basi|
00005fc0 63 56 24 4c 69 62 3e 2e 54 65 6d 70 6c 61 74 65 |cV$Lib>.Template|
00005fd0 22 2c 31 29 3a 47 79 25 3d a3 3a 44 79 25 3d 33 |",1):Gy%=.:Dy%=3|
00005fe0 2a 31 30 32 34 3a f2 58 28 64 79 25 2c 44 79 25 |*1024:.X(dy%,Dy%|
00005ff0 29 3a 44 79 25 2b 3d 64 79 25 3a 43 79 25 3d 64 |):Dy%+=dy%:Cy%=d|
00006000 79 25 3a f2 58 28 57 25 2c 35 31 32 29 3a 6d 24 |y%:.X(W%,512):m$|
00006010 3d 22 22 3a 78 24 3d 22 22 3a 48 5f 25 3d 30 3a |="":x$="":H_%=0:|
00006020 48 24 3d 22 41 70 70 6c 69 63 61 74 69 6f 6e 22 |H$="Application"|
00006030 3a 54 24 3d 22 30 2e 30 30 20 28 30 31 2d 4a 61 |:T$="0.00 (01-Ja|
00006040 6e 2d 31 39 30 30 29 22 3a 51 79 25 3d 2d 31 3a |n-1900)":Qy%=-1:|
00006050 70 25 3d 32 34 30 30 3a 46 79 25 3d 32 34 30 31 |p%=2400:Fy%=2401|
00006060 3a 44 75 25 3d 31 36 2a 31 30 32 34 3a 6d 25 3d |:Du%=16*1024:m%=|
00006070 a3 3a 3d 30 0d 3d 94 18 dd a4 4a 28 58 75 25 29 |.:=0.=....J(Xu%)|
00006080 3a 3d 28 58 75 25 80 31 29 3c 3e 30 0d 3d 95 19 |:=(Xu%.1)<>0.=..|
00006090 dd f2 63 79 3a c8 99 26 34 30 30 64 32 2c 2d 31 |..cy:..&400d2,-1|
000060a0 2c 2d 31 3a e1 0d 3d 96 20 dd a4 78 28 54 25 29 |,-1:..=. ..x(T%)|
000060b0 3a c8 99 26 64 63 62 38 64 2c 59 79 2c 54 25 2c |:..&dcb8d,Yy,T%,|
000060c0 2d 31 3a 3d b9 0d 3d 97 5b dd f2 44 5f 28 51 25 |-1:=..=.[..D_(Q%|
000060d0 2c 71 75 25 29 3a ea 53 25 3a 53 25 3d a4 41 28 |,qu%):.S%:S%=.A(|
000060e0 31 32 38 29 3a 21 53 25 3d 51 25 3a c8 99 26 34 |128):!S%=Q%:..&4|
000060f0 30 30 63 62 2c 2c 53 25 3a 53 25 21 32 38 3d 71 |00cb,,S%:S%!28=q|
00006100 75 25 3a c8 99 26 34 30 30 65 37 2c 32 2c 53 25 |u%:..&400e7,2,S%|
00006110 2c 51 25 3a f2 43 28 53 25 2c 31 32 38 29 3a e1 |,Q%:.C(S%,128):.|
00006120 0d 3d 98 6f dd f2 78 79 28 54 25 2c 46 25 2c 49 |.=.o..xy(T%,F%,I|
00006130 4a 25 2c 6e 75 25 2c 6d 75 25 29 3a ea 4d 25 3a |J%,nu%,mu%):.M%:|
00006140 4d 25 3d a4 41 28 31 36 29 3a 4d 25 21 30 3d 54 |M%=.A(16):M%!0=T|
00006150 25 3a 4d 25 21 34 3d 46 25 3a 4d 25 21 38 3d 6e |%:M%!4=F%:M%!8=n|
00006160 75 25 3c 3c 49 4a 25 3a 4d 25 21 31 32 3d 6d 75 |u%<<IJ%:M%!12=mu|
00006170 25 3c 3c 49 4a 25 3a c8 99 26 34 30 30 63 64 2c |%<<IJ%:..&400cd,|
00006180 2c 4d 25 3a f2 43 28 4d 25 2c 31 36 29 3a e1 0d |,M%:.C(M%,16):..|
00006190 3d 99 27 dd a4 66 28 54 25 2c 46 25 29 3a c8 99 |=.'..f(T%,F%):..|
000061a0 26 64 63 62 38 63 2c 77 79 2c 54 25 2c 46 25 b8 |&dcb8c,wy,T%,F%.|
000061b0 46 25 3a 3d 46 25 0d 3d 9a 2a dd f2 42 28 54 25 |F%:=F%.=.*..B(T%|
000061c0 2c 46 25 2c 6f 75 25 29 3a c8 99 26 64 63 62 38 |,F%,ou%):..&dcb8|
000061d0 63 2c 69 79 2c 54 25 2c 46 25 2c 6f 75 25 3a e1 |c,iy,T%,F%,ou%:.|
000061e0 0d 3d 9b 66 dd f2 70 28 54 25 2c 46 25 2c 79 24 |.=.f..p(T%,F%,y$|
000061f0 29 3a ea 4d 25 2c 5a 6c 25 2c 6c 75 25 2c 41 6c |):.M%,Zl%,lu%,Al|
00006200 25 2c 43 6c 25 2c 60 75 25 2c 70 75 25 3a 4d 25 |%,Cl%,`u%,pu%:M%|
00006210 3d a4 41 28 36 34 29 3a 21 4d 25 3d 54 25 3a 4d |=.A(64):!M%=T%:M|
00006220 25 21 34 3d 46 25 3a c8 99 26 34 30 30 63 65 2c |%!4=F%:..&400ce,|
00006230 2c 4d 25 3a e7 28 28 4d 25 21 32 34 29 80 32 35 |,M%:.((M%!24).25|
00006240 39 29 3c 3e 32 8c 0d 3d 9c 20 f2 47 28 22 42 61 |9)<>2..=. .G("Ba|
00006250 64 20 72 65 6e 61 6d 65 20 69 63 6f 6e 20 74 6f |d rename icon to|
00006260 20 22 2b 79 24 29 0d 3d 9d 64 cd 3a c8 99 26 34 | "+y$).=.d.:..&4|
00006270 30 30 63 34 2c 2c 4d 25 3a 24 28 4d 25 2b 32 38 |00c4,,M%:$(M%+28|
00006280 29 3d 79 24 3a 4d 25 21 34 3d 54 25 3a c8 99 26 |)=y$:M%!4=T%:..&|
00006290 34 30 30 63 32 2c 2c 4d 25 2b 34 3a c8 99 26 34 |400c2,,M%+4:..&4|
000062a0 30 30 64 31 2c 54 25 2c 4d 25 21 38 2c 4d 25 21 |00d1,T%,M%!8,M%!|
000062b0 31 32 2c 4d 25 21 31 36 2c 4d 25 21 32 30 3a f2 |12,M%!16,M%!20:.|
000062c0 43 28 4d 25 2c 36 34 29 3a e1 0d 3d 9e 26 dd f2 |C(M%,64):..=.&..|
000062d0 6a 79 28 51 25 2c 5a 25 29 3a c8 99 26 64 63 62 |jy(Q%,Z%):..&dcb|
000062e0 38 63 2c 55 79 2c 51 25 2c 5a 25 2c 2b 31 3a e1 |8c,Uy,Q%,Z%,+1:.|
000062f0 0d 3d 9f 26 dd f2 73 79 28 51 25 2c 5a 25 29 3a |.=.&..sy(Q%,Z%):|
00006300 c8 99 26 64 63 62 38 63 2c 55 79 2c 51 25 2c 5a |..&dcb8c,Uy,Q%,Z|
00006310 25 2c 2d 31 3a e1 0d 3d a0 4b dd f2 4d 28 57 4a |%,-1:..=.K..M(WJ|
00006320 25 2c 46 24 29 3a ea 4d 25 3a 4d 25 3d a4 41 28 |%,F$):.M%:M%=.A(|
00006330 33 30 30 29 3a 4d 25 21 30 3d 57 4a 25 3a 24 28 |300):M%!0=WJ%:$(|
00006340 4d 25 2b 34 29 3d 46 24 2b bd 28 30 29 3a f2 59 |M%+4)=F$+.(0):.Y|
00006350 28 4d 25 29 3a f2 43 28 4d 25 2c 33 30 30 29 3a |(M%):.C(M%,300):|
00006360 e1 0d 3d a1 14 dd f2 47 28 46 24 29 3a 85 70 25 |..=....G(F$):.p%|
00006370 2c 46 24 3a e1 0d 3d a2 4d dd f2 4a 28 57 4a 25 |,F$:..=.M..J(WJ%|
00006380 29 3a ea 4d 25 3a 4d 25 3d a4 41 28 33 30 30 29 |):.M%:M%=.A(300)|
00006390 3a 4d 25 21 30 3d 46 79 25 3a f2 69 28 22 4c 45 |:M%!0=Fy%:.i("LE|
000063a0 22 2b c3 28 57 4a 25 29 2c 4d 25 2b 34 29 3a f2 |"+.(WJ%),M%+4):.|
000063b0 59 28 4d 25 29 3a f2 43 28 4d 25 2c 33 30 30 29 |Y(M%):.C(M%,300)|
000063c0 3a e1 0d 3d a3 20 dd f2 59 28 59 75 25 29 3a c8 |:..=. ..Y(Yu%):.|
000063d0 99 26 34 30 30 64 66 2c 59 75 25 2c 31 2c 48 24 |.&400df,Yu%,1,H$|
000063e0 3a e1 0d 3d a4 9a dd f2 55 79 3a ea 4d 25 3a 4d |:..=....Uy:.M%:M|
000063f0 25 3d a4 41 28 32 35 36 29 3a 4d 25 3f 30 3d 31 |%=.A(256):M%?0=1|
00006400 3a 4d 25 3f 31 3d 30 3a 4d 25 3f 32 3d 30 3a 4d |:M%?1=0:M%?2=0:M|
00006410 25 3f 33 3d 30 3a 4d 25 3f 34 3d 30 3a 4d 25 3f |%?3=0:M%?4=0:M%?|
00006420 35 3d 75 79 25 83 32 35 36 3a 4d 25 3f 36 3d 75 |5=uy%.256:M%?6=u|
00006430 79 25 81 32 35 36 3a 4d 25 3f 37 3d 72 79 25 83 |y%.256:M%?7=ry%.|
00006440 32 35 36 3a 4d 25 3f 38 3d 72 79 25 81 32 35 36 |256:M%?8=ry%.256|
00006450 3a c8 99 37 2c 32 31 2c 4d 25 3a 21 4d 25 3d 65 |:..7,21,M%:!M%=e|
00006460 5f 25 3a c8 99 26 34 30 30 63 36 2c 2c 4d 25 3a |_%:..&400c6,,M%:|
00006470 f2 43 28 4d 25 2c 32 35 36 29 3a e1 0d 3d a5 3e |.C(M%,256):..=.>|
00006480 dd f2 51 5f 28 55 25 2c 44 25 2c 56 25 2c 46 25 |..Q_(U%,D%,V%,F%|
00006490 29 3a ea 85 3a ee 85 ea f7 85 3a f2 41 28 22 25 |):..:.....:.A("%|
000064a0 2e 57 69 6d 70 3a 20 4d 6f 75 73 65 5f 43 6c 69 |.Wimp: Mouse_Cli|
000064b0 63 6b 5f 51 75 65 72 79 22 29 0d 3d a6 35 f2 55 |ck_Query").=.5.U|
000064c0 79 3a 55 25 3d a4 5a 28 22 46 4e 5f 53 74 6f 70 |y:U%=.Z("FN_Stop|
000064d0 5f 41 63 74 69 6f 6e 5f 22 2b 6b 24 2b 22 28 22 |_Action_"+k$+"("|
000064e0 2b c3 28 46 25 3d 30 29 2b 22 29 22 29 3a e1 0d |+.(F%=0)+")"):..|
000064f0 3d a7 35 dd a4 42 28 53 25 29 3a ea 66 24 3a 66 |=.5..B(S%):.f$:f|
00006500 24 3d 22 22 3a c8 95 3f 53 25 3e 33 31 3a 66 24 |$="":..?S%>31:f$|
00006510 2b 3d bd 28 3f 53 25 29 3a 53 25 2b 3d 31 3a ce |+=.(?S%):S%+=1:.|
00006520 3a 3d 66 24 0d 3d a8 2f dd a4 53 28 4d 24 29 3a |:=f$.=./..S(M$):|
00006530 c8 95 a7 4d 24 2c 22 2e 22 29 3a 4d 24 3d c1 4d |...M$,"."):M$=.M|
00006540 24 2c a7 4d 24 2c 22 2e 22 29 2b 31 29 3a ce 3a |$,.M$,".")+1):.:|
00006550 3d 4d 24 0d 3d a9 28 dd f2 4e 28 54 25 2c 46 25 |=M$.=.(..N(T%,F%|
00006560 2c 4a 24 29 3a c8 99 26 64 63 62 38 63 2c 75 79 |,J$):..&dcb8c,uy|
00006570 2c 54 25 2c 46 25 2c 4a 24 3a e1 0d 3d aa 2b dd |,T%,F%,J$:..=.+.|
00006580 a4 46 28 51 25 2c 5a 25 29 3a c8 99 26 64 63 62 |.F(Q%,Z%):..&dcb|
00006590 38 63 2c 51 79 2c 51 25 2c 5a 25 b8 51 25 3a 3d |8c,Qy,Q%,Z%.Q%:=|
000065a0 a4 42 28 51 25 29 0d 3d ab 27 dd a4 65 28 51 25 |.B(Q%).=.'..e(Q%|
000065b0 2c 5a 25 29 3a c8 99 26 64 63 62 38 63 2c 51 79 |,Z%):..&dcb8c,Qy|
000065c0 2c 51 25 2c 5a 25 b8 51 25 3a 3d 51 25 0d 3d ac |,Q%,Z%.Q%:=Q%.=.|
000065d0 39 dd a4 48 28 53 24 29 3a ea 63 25 2c 61 25 2c |9..H(S$):.c%,a%,|
000065e0 77 25 3a c8 99 26 32 30 30 30 38 2c 31 37 2c 53 |w%:..&20008,17,S|
000065f0 24 b8 63 25 2c 2c 2c 2c 61 25 3b 77 25 3a e7 a4 |$.c%,,,,a%;w%:..|
00006600 4a 28 77 25 29 8c 0d 3d ad 28 f2 50 28 22 52 65 |J(w%)..=.(.P("Re|
00006610 61 73 6f 6e 22 2c a4 53 28 53 24 29 29 3a f2 63 |ason",.S(S$)):.c|
00006620 28 63 25 29 3a f2 47 28 a4 52 28 34 29 29 0d 3d |(c%):.G(.R(4)).=|
00006630 ae 0d cd 3a e7 63 25 3c 3e 31 8c 0d 3d af 09 61 |...:.c%<>1..=..a|
00006640 25 3d 2d 31 0d 3d b0 09 cd 3a 3d 61 25 0d 3d b1 |%=-1.=...:=a%.=.|
00006650 21 dd a4 41 28 48 79 25 29 3a ea 4d 79 25 3a e7 |!..A(Hy%):.My%:.|
00006660 28 43 79 25 2b 48 79 25 29 3c 44 79 25 8c 0d 3d |(Cy%+Hy%)<Dy%..=|
00006670 b2 14 4d 79 25 3d 43 79 25 3a 43 79 25 2b 3d 48 |..My%=Cy%:Cy%+=H|
00006680 79 25 0d 3d b3 1b cc 3a f2 47 28 22 57 69 6d 70 |y%.=...:.G("Wimp|
00006690 20 53 74 61 63 6b 20 66 75 6c 6c 22 29 0d 3d b4 | Stack full").=.|
000066a0 0a cd 3a 3d 4d 79 25 0d 3d b5 12 dd f2 4a 79 3a |..:=My%.=....Jy:|
000066b0 43 79 25 3d 64 79 25 3a e1 0d 3d b6 26 dd f2 43 |Cy%=dy%:..=.&..C|
000066c0 28 68 79 25 2c 48 79 25 29 3a e7 28 68 79 25 3c |(hy%,Hy%):.(hy%<|
000066d0 64 79 25 29 84 28 68 79 25 3e 44 79 25 29 8c 0d |dy%).(hy%>Dy%)..|
000066e0 3d b7 2c f2 47 28 22 52 65 6c 65 61 73 65 5f 53 |=.,.G("Release_S|
000066f0 74 61 63 6b 3a 20 49 6e 76 61 6c 69 64 20 73 74 |tack: Invalid st|
00006700 61 63 6b 20 63 68 75 6e 6b 22 29 0d 3d b8 1f cc |ack chunk").=...|
00006710 3a e7 28 48 79 25 3c 30 29 84 28 28 68 79 25 2b |:.(Hy%<0).((hy%+|
00006720 48 79 25 29 3e 44 79 25 29 8c 0d 3d b9 2b f2 47 |Hy%)>Dy%)..=.+.G|
00006730 28 22 52 65 6c 65 61 73 65 5f 53 74 61 63 6b 3a |("Release_Stack:|
00006740 20 49 6e 76 61 6c 69 64 20 63 68 75 6e 6b 20 73 | Invalid chunk s|
00006750 69 7a 65 22 29 0d 3d ba 19 cc 3a 43 79 25 2d 3d |ize").=...:Cy%-=|
00006760 48 79 25 3a e7 43 79 25 3c 3e 68 79 25 8c 0d 3d |Hy%:.Cy%<>hy%..=|
00006770 bb 20 f2 47 28 22 52 65 6c 65 61 73 65 5f 53 74 |. .G("Release_St|
00006780 61 63 6b 3a 20 42 61 64 20 70 6f 70 22 29 0d 3d |ack: Bad pop").=|
00006790 bc 05 cd 0d 3d bd 05 cd 0d 3d be 07 cd 3a e1 0d |....=....=...:..|
000067a0 3d bf e4 dd f2 75 79 28 5f 24 2c 79 25 2c 4c 75 |=....uy(_$,y%,Lu|
000067b0 25 2c 6a 75 25 2c 48 75 25 2c 69 75 25 29 3a 54 |%,ju%,Hu%,iu%):T|
000067c0 24 3d c3 28 79 25 29 2b 22 2e 22 2b c2 22 30 22 |$=.(y%)+"."+."0"|
000067d0 2b c3 28 4c 75 25 29 2c 32 29 3a 54 24 2b 3d 22 |+.(Lu%),2):T$+="|
000067e0 20 28 22 2b c2 22 30 22 2b c3 28 6a 75 25 29 2c | ("+."0"+.(ju%),|
000067f0 32 29 2b 22 2d 22 3a 54 24 2b 3d c1 22 43 42 4a |2)+"-":T$+=."CBJ|
00006800 61 6e 46 65 62 4d 61 72 41 70 72 4d 61 79 4a 75 |anFebMarAprMayJu|
00006810 6e 4a 75 6c 41 75 67 53 65 70 4f 63 74 4e 6f 76 |nJulAugSepOctNov|
00006820 44 65 63 22 2c 48 75 25 2a 33 2c 33 29 3a 54 24 |Dec",Hu%*3,3):T$|
00006830 2b 3d 22 2d 22 2b c2 22 31 39 22 2b c3 28 69 75 |+="-"+."19"+.(iu|
00006840 25 29 2c 34 29 2b 22 29 22 3a 48 24 3d 5f 24 3a |%),4)+")":H$=_$:|
00006850 f2 50 28 22 41 70 70 22 2c 48 24 29 3a c8 99 26 |.P("App",H$):..&|
00006860 34 30 30 63 30 2c 32 30 30 2c 26 34 62 35 33 34 |400c0,200,&4b534|
00006870 31 35 34 2c 5f 24 b8 79 25 2c 51 79 25 3a ee 85 |154,_$.y%,Qy%:..|
00006880 f2 47 5f 0d 3d c0 15 c8 99 26 36 30 36 63 30 3a |.G_.=....&606c0:|
00006890 e7 79 25 3c 32 30 30 8c 0d 3d c1 0d 85 70 25 2c |.y%<200..=...p%,|
000068a0 a4 52 28 35 29 0d 3d c2 0a cd 3a e7 6d 25 8c 0d |.R(5).=...:.m%..|
000068b0 3d c3 10 c8 99 26 38 31 36 38 32 2c 51 79 25 0d |=....&81682,Qy%.|
000068c0 3d c4 2a cd 3a 47 79 25 3d b9 3a f2 66 79 3a f2 |=.*.:Gy%=.:.fy:.|
000068d0 60 79 3a 47 79 25 3d 2d 32 3a f2 58 79 3a f2 6d |`y:Gy%=-2:.Xy:.m|
000068e0 79 3a e7 6a 79 25 3d 30 8c 0d 3d c5 0f f2 4e 28 |y:.jy%=0..=...N(|
000068f0 6f 25 2c 37 2c 54 24 29 0d 3d c6 4f cd 3a 6f 4a |o%,7,T$).=.O.:oJ|
00006900 25 3d 2d 31 3a 6b 79 25 3d 2d 31 3a 50 5f 25 3d |%=-1:ky%=-1:P_%=|
00006910 2d 31 3a 4d 5f 25 3d 2d 31 3a 70 4a 25 3d a3 3a |-1:M_%=-1:pJ%=.:|
00006920 5f 4a 25 3d 2d 31 3a 50 75 25 3d 2d 31 3a 77 24 |_J%=-1:Pu%=-1:w$|
00006930 3d 22 22 3a 67 24 3d 22 22 3a f2 67 3a c8 99 26 |="":g$="":.g:..&|
00006940 36 30 36 63 31 3a e1 0d 3d c7 17 dd f2 47 5f 3a |606c1:..=....G_:|
00006950 c8 99 26 36 30 36 63 31 3a e7 50 79 25 8c 0d 3d |..&606c1:.Py%..=|
00006960 c8 1a f2 4d 28 46 79 25 2c f6 24 2b 22 20 5b 22 |...M(Fy%,.$+" ["|
00006970 2b c3 9e 2b 22 5d 22 29 0d 3d c9 10 cc 3a f2 4d |+..+"]").=...:.M|
00006980 28 46 79 25 2c f6 24 29 0d 3d ca 0c cd 3a f2 53 |(Fy%,.$).=...:.S|
00006990 3a e0 3a e1 0d 3d cb 2e dd a4 50 72 6f 67 49 6e |:.:..=....ProgIn|
000069a0 66 6f 28 51 25 29 3a f2 48 28 51 25 21 28 38 38 |fo(Q%):.H(Q%!(88|
000069b0 2b 28 37 3c 3c 35 29 2b 32 30 29 2c 54 24 29 3a |+(7<<5)+20),T$):|
000069c0 3d 30 0d 3d cc 1c dd f2 42 5f 3a ea 42 5f 25 2c |=0.=....B_:.B_%,|
000069d0 6b 5f 25 3a 6b 5f 25 3d b9 3a e7 6d 25 8c 0d 3d |k_%:k_%=.:.m%..=|
000069e0 cd 11 63 79 25 3d 63 79 25 80 ac 28 34 39 29 0d |..cy%=cy%..(49).|
000069f0 3d ce 31 cd 3a f5 3a c8 99 26 34 30 30 63 37 2c |=.1.:.:..&400c7,|
00006a00 63 79 25 2c 57 25 b8 42 5f 25 3a e7 6d 25 8c c8 |cy%,W%.B_%:.m%..|
00006a10 99 26 38 31 36 38 36 2c 42 5f 25 2c 2c 51 79 25 |.&81686,B_%,,Qy%|
00006a20 0d 3d cf 0a c8 8e 42 5f 25 ca 0d 3d d0 0a c9 30 |.=....B_%..=...0|
00006a30 3a f2 4e 5f 0d 3d d1 0a c9 31 3a f2 55 5f 0d 3d |:.N_.=...1:.U_.=|
00006a40 d2 0a c9 32 3a f2 65 79 0d 3d d3 0a c9 33 3a f2 |...2:.ey.=...3:.|
00006a50 7a 79 0d 3d d4 0a c9 34 3a f2 5f 79 0d 3d d5 0a |zy.=...4:._y.=..|
00006a60 c9 35 3a f2 50 79 0d 3d d6 0a c9 36 3a f2 54 79 |.5:.Py.=...6:.Ty|
00006a70 0d 3d d7 0a c9 37 3a f2 62 79 0d 3d d8 0a c9 38 |.=...7:.by.=...8|
00006a80 3a f2 4d 5f 0d 3d d9 0a c9 39 3a f2 43 5f 0d 3d |:.M_.=...9:.C_.=|
00006a90 da 0b c9 31 30 3a f2 50 5f 0d 3d db 0b c9 31 31 |...10:.P_.=...11|
00006aa0 3a f2 44 79 0d 3d dc 0b c9 31 32 3a f2 54 5f 0d |:.Dy.=...12:.T_.|
00006ab0 3d dd 0a c9 31 37 3a f2 6d 0d 3d de 0b c9 31 38 |=...17:.m.=...18|
00006ac0 3a f2 49 5f 0d 3d df 0b c9 31 39 3a f2 6c 79 0d |:.I_.=...19:.ly.|
00006ad0 3d e0 0f cb 3a fd ac 28 6b 5f 25 29 3a e1 0d 3d |=...:..(k_%):..=|
00006ae0 e1 10 dd f2 5f 79 3a e7 ac 28 6d 25 29 8c 0d 3d |...._y:..(m%)..=|
00006af0 e2 2e f2 4d 28 70 25 2c 22 55 6e 65 78 70 65 63 |...M(p%,"Unexpec|
00006b00 74 65 64 20 50 6f 69 6e 74 65 72 5f 4c 65 61 76 |ted Pointer_Leav|
00006b10 69 6e 67 5f 57 69 6e 64 6f 77 22 29 0d 3d e3 07 |ing_Window").=..|
00006b20 cd 3a e1 0d 3d e4 10 dd f2 50 79 3a e7 ac 28 6d |.:..=....Py:..(m|
00006b30 25 29 8c 0d 3d e5 2f f2 4d 28 70 25 2c 22 55 6e |%)..=./.M(p%,"Un|
00006b40 65 78 70 65 63 74 65 64 20 50 6f 69 6e 74 65 72 |expected Pointer|
00006b50 5f 45 6e 74 65 72 69 6e 67 5f 57 69 6e 64 6f 77 |_Entering_Window|
00006b60 22 29 0d 3d e6 07 cd 3a e1 0d 3d e7 2a dd f2 50 |").=...:..=.*..P|
00006b70 5f 3a f2 47 28 22 55 6e 65 78 70 65 63 74 65 64 |_:.G("Unexpected|
00006b80 20 53 63 72 6f 6c 6c 5f 52 65 71 75 65 73 74 22 | Scroll_Request"|
00006b90 29 3a e1 0d 3d e8 26 dd f2 44 79 3a f2 47 28 22 |):..=.&..Dy:.G("|
00006ba0 55 6e 65 78 70 65 63 74 65 64 20 4c 6f 73 65 5f |Unexpected Lose_|
00006bb0 43 61 72 65 74 22 29 3a e1 0d 3d e9 26 dd f2 54 |Caret"):..=.&..T|
00006bc0 5f 3a f2 47 28 22 55 6e 65 78 70 65 63 74 65 64 |_:.G("Unexpected|
00006bd0 20 47 61 69 6e 5f 43 61 72 65 74 22 29 3a e1 0d | Gain_Caret"):..|
00006be0 3d ea 47 dd f2 6d 79 3a de 5a 24 28 31 30 29 3a |=.G..my:.Z$(10):|
00006bf0 de 46 25 28 de 28 5a 24 28 29 2c 31 29 29 3a 73 |.F%(.(Z$(),1)):s|
00006c00 24 3d 22 bb 22 3a 5a 24 28 29 3d 73 24 3a 46 25 |$=".":Z$()=s$:F%|
00006c10 28 29 3d 2d 31 3a 66 5f 25 3d 30 3a 63 79 25 3d |()=-1:f_%=0:cy%=|
00006c20 36 31 39 33 3a e1 0d 3d eb 3e dd f2 4e 5f 3a ea |6193:..=.>..N_:.|
00006c30 5f 25 2c 71 24 2c 7a 25 2c 57 5f 25 3a ea 85 3a |_%,q$,z%,W_%:..:|
00006c40 ee 85 ea f7 85 3a f2 41 28 22 25 2e 57 69 6d 70 |.....:.A("%.Wimp|
00006c50 3a 20 4e 75 6c 6c 5f 52 65 61 73 6f 6e 5f 43 6f |: Null_Reason_Co|
00006c60 64 65 22 29 0d 3d ec 30 5f 25 3d de 28 5a 24 28 |de").=.0_%=.(Z$(|
00006c70 29 2c 31 29 3a c8 95 5f 25 3e 30 3a 5f 25 2d 3d |),1):.._%>0:_%-=|
00006c80 31 3a 71 24 3d 5a 24 28 5f 25 29 3a e7 71 24 3c |1:q$=Z$(_%):.q$<|
00006c90 3e 73 24 8c 0d 3d ed 15 7a 25 3d 46 25 28 5f 25 |>s$..=..z%=F%(_%|
00006ca0 29 3a e7 7a 25 3d 2d 31 8c 0d 3d ee 20 57 5f 25 |):.z%=-1..=. W_%|
00006cb0 3d a4 5a 28 22 46 4e 5f 4e 75 6c 6c 5f 52 65 61 |=.Z("FN_Null_Rea|
00006cc0 73 6f 6e 5f 22 2b 71 24 29 0d 3d ef 30 cc 3a 57 |son_"+q$).=.0.:W|
00006cd0 5f 25 3d a4 5a 28 22 46 4e 5f 4e 75 6c 6c 5f 52 |_%=.Z("FN_Null_R|
00006ce0 65 61 73 6f 6e 5f 22 2b 71 24 2b 22 28 22 2b c3 |eason_"+q$+"("+.|
00006cf0 28 7a 25 29 2b 22 29 22 29 0d 3d f0 23 cd 3a e7 |(z%)+")").=.#.:.|
00006d00 57 5f 25 80 28 5a 24 28 5f 25 29 3d 71 24 29 80 |W_%.(Z$(_%)=q$).|
00006d10 28 46 25 28 5f 25 29 3d 7a 25 29 8c 0d 3d f1 14 |(F%(_%)=z%)..=..|
00006d20 5a 24 28 5f 25 29 3d 73 24 3a 66 5f 25 2d 3d 31 |Z$(_%)=s$:f_%-=1|
00006d30 0d 3d f2 05 cd 0d 3d f3 09 cd 3a ce 3a e1 0d 3d |.=....=...:.:..=|
00006d40 f4 2d dd f2 62 79 3a ea 55 25 3a ea 85 3a ee 85 |.-..by:.U%:..:..|
00006d50 ea f7 85 3a f2 41 28 22 25 2e 57 69 6d 70 3a 20 |...:.A("%.Wimp: |
00006d60 55 73 65 72 5f 44 72 61 67 22 29 0d 3d f5 29 55 |User_Drag").=.)U|
00006d70 25 3d a4 5a 28 22 46 4e 5f 44 72 61 67 67 65 64 |%=.Z("FN_Dragged|
00006d80 5f 22 2b 78 24 29 3a e7 48 5f 25 3c 3e 28 31 2a |_"+x$):.H_%<>(1*|
00006d90 31 36 29 8c 0d 3d f6 06 f2 51 0d 3d f7 1a cd 3a |16)..=...Q.=...:|
00006da0 c8 99 26 34 30 30 64 30 2c 2c 2d 31 3a 78 24 3d |..&400d0,,-1:x$=|
00006db0 22 22 3a e1 0d 3d f8 f3 dd f2 52 28 54 25 2c 46 |"":..=....R(T%,F|
00006dc0 25 2c 49 75 25 2c 42 24 29 3a ea 53 25 2c 45 25 |%,Iu%,B$):.S%,E%|
00006dd0 2c 4e 5f 25 2c 51 5f 25 3a 53 25 3d a4 41 28 36 |,N_%,Q_%:S%=.A(6|
00006de0 34 29 3a 45 25 3d a4 41 28 32 35 36 29 3a 53 25 |4):E%=.A(256):S%|
00006df0 21 30 3d 54 25 3a 53 25 21 34 3d 46 25 3a c8 99 |!0=T%:S%!4=F%:..|
00006e00 26 34 30 30 63 65 2c 2c 53 25 3a 45 25 21 30 3d |&400ce,,S%:E%!0=|
00006e10 54 25 3a c8 99 26 34 30 30 63 62 2c 2c 45 25 3a |T%:..&400cb,,E%:|
00006e20 4e 5f 25 3d 45 25 21 32 30 3a 51 5f 25 3d 45 25 |N_%=E%!20:Q_%=E%|
00006e30 21 32 34 3a 53 25 21 30 3d 54 25 3a 53 25 21 34 |!24:S%!0=T%:S%!4|
00006e40 3d 35 3a 53 25 21 38 2b 3d 45 25 21 34 2d 4e 5f |=5:S%!8+=E%!4-N_|
00006e50 25 3a 53 25 21 31 32 2b 3d 45 25 21 31 36 2d 51 |%:S%!12+=E%!16-Q|
00006e60 5f 25 3a 53 25 21 31 36 2b 3d 45 25 21 34 2d 4e |_%:S%!16+=E%!4-N|
00006e70 5f 25 3a 53 25 21 32 30 2b 3d 45 25 21 31 36 2d |_%:S%!20+=E%!16-|
00006e80 51 5f 25 3a 53 25 21 32 34 3d 30 3a 53 25 21 32 |Q_%:S%!24=0:S%!2|
00006e90 38 3d 30 3a 53 25 21 33 32 3d 75 79 25 3a 53 25 |8=0:S%!32=uy%:S%|
00006ea0 21 33 36 3d 72 79 25 0d 3d f9 35 c8 99 26 34 30 |!36=ry%.=.5..&40|
00006eb0 30 64 30 2c 2c 53 25 3a f2 43 28 45 25 2c 32 35 |0d0,,S%:.C(E%,25|
00006ec0 36 29 3a f2 43 28 53 25 2c 36 34 29 3a 78 24 3d |6):.C(S%,64):x$=|
00006ed0 42 24 3a 48 5f 25 3d 49 75 25 3a e1 0d 3d fa 35 |B$:H_%=Iu%:..=.5|
00006ee0 dd f2 49 5f 3a ea 85 3a ee 85 ea f7 85 3a f2 41 |..I_:..:.....:.A|
00006ef0 28 22 25 2e 57 69 6d 70 3a 20 55 73 65 72 5f 4d |("%.Wimp: User_M|
00006f00 65 73 73 61 67 65 5f 52 65 63 6f 72 64 65 64 22 |essage_Recorded"|
00006f10 29 0d 3d fb 08 f2 6d 3a e1 0d 3d fc 2b dd f2 6d |).=...m:..=.+..m|
00006f20 3a ea 85 3a ee 85 ea f7 85 3a f2 41 28 22 25 2e |:..:.....:.A("%.|
00006f30 57 69 6d 70 3a 20 55 73 65 72 5f 4d 65 73 73 61 |Wimp: User_Messa|
00006f40 67 65 22 29 0d 3d fd 0c c8 8e 57 25 21 31 36 ca |ge").=....W%!16.|
00006f50 0d 3d fe 09 c9 30 3a f2 53 0d 3d ff 0a c9 31 3a |.=...0:.S.=...1:|
00006f60 f2 79 79 0d 3e 00 0a c9 32 3a f2 57 5f 0d 3e 01 |.yy.>...2:.W_.>.|
00006f70 0a c9 33 3a f2 4c 5f 0d 3e 02 0a c9 34 3a f2 51 |..3:.L_.>...4:.Q|
00006f80 79 0d 3e 03 0a c9 35 3a f2 42 79 0d 3e 04 0a c9 |y.>...5:.By.>...|
00006f90 36 3a f2 41 79 0d 3e 05 0a c9 37 3a f2 57 79 0d |6:.Ay.>...7:.Wy.|
00006fa0 3e 06 09 c9 38 3a f2 68 0d 3e 07 0a c9 39 3a f2 |>...8:.h.>...9:.|
00006fb0 53 5f 0d 3e 08 0d c9 31 32 38 32 3a f2 48 79 0d |S_.>...1282:.Hy.|
00006fc0 3e 09 0f c9 26 34 30 30 63 30 3a f2 61 79 0d 3e |>...&400c0:.ay.>|
00006fd0 0a 0e c9 26 34 30 30 63 31 3a f2 67 0d 3e 0b 0f |...&400c1:.g.>..|
00006fe0 c9 26 34 30 30 63 35 3a f2 46 5f 0d 3e 0c 07 cb |.&400c5:.F_.>...|
00006ff0 3a e1 0d 3e 0d 0a dd f2 46 5f 3a e1 0d 3e 0e 2e |:..>....F_:..>..|
00007000 dd f2 57 79 3a ea 85 3a ee 85 ea f7 85 3a f2 41 |..Wy:..:.....:.A|
00007010 28 22 4d 65 73 73 61 67 65 5f 52 41 4d 5f 54 72 |("Message_RAM_Tr|
00007020 61 6e 73 6d 69 74 3a 20 22 29 0d 3e 0f 10 e7 57 |ansmit: ").>...W|
00007030 25 21 31 32 3c 3e 4d 5f 25 8c 0d 3e 10 2d f2 4d |%!12<>M_%..>.-.M|
00007040 28 46 79 25 2c 22 55 6e 65 78 70 65 63 74 65 64 |(Fy%,"Unexpected|
00007050 20 52 41 4d 5f 54 72 61 6e 73 6d 69 74 20 6d 65 | RAM_Transmit me|
00007060 73 73 61 67 65 22 29 0d 3e 11 1e cc 3a 4a 5f 25 |ssage").>...:J_%|
00007070 2b 3d 57 25 21 32 34 3a e7 28 57 25 21 32 34 29 |+=W%!24:.(W%!24)|
00007080 3d 5f 5f 25 8c 0d 3e 12 07 f2 59 79 0d 3e 13 36 |=__%..>...Yy.>.6|
00007090 cc 3a e7 a4 5a 28 22 46 4e 5f 52 41 4d 5f 4c 6f |.:..Z("FN_RAM_Lo|
000070a0 61 64 5f 43 6f 6d 70 6c 65 74 65 64 5f 22 2b 77 |ad_Completed_"+w|
000070b0 24 2b 22 28 22 2b c3 28 4a 5f 25 29 2b 22 29 22 |$+"("+.(J_%)+")"|
000070c0 29 8c 0d 3e 14 09 f2 4a 28 36 29 0d 3e 15 05 cd |)..>...J(6).>...|
000070d0 0d 3e 16 05 cd 0d 3e 17 07 cd 3a e1 0d 3e 18 53 |.>....>...:..>.S|
000070e0 dd f2 59 79 3a ea 52 41 4d 5f 73 74 61 72 74 25 |..Yy:.RAM_start%|
000070f0 3a e7 a4 5a 28 22 46 4e 5f 52 41 4d 5f 4c 6f 61 |:..Z("FN_RAM_Loa|
00007100 64 5f 22 2b 77 24 2b 22 28 22 2b c3 28 4a 5f 25 |d_"+w$+"("+.(J_%|
00007110 29 2b 22 2c 20 22 2b c3 28 5f 5f 25 29 2b 22 2c |)+", "+.(__%)+",|
00007120 20 52 41 4d 5f 73 74 61 72 74 25 29 22 29 8c 0d | RAM_start%)")..|
00007130 3e 19 0c e7 4a 5f 25 3c 3e 30 8c 0d 3e 1a 09 f2 |>...J_%<>0..>...|
00007140 4a 28 37 29 0d 3e 1b 23 cc 3a e7 a4 5a 28 22 46 |J(7).>.#.:..Z("F|
00007150 4e 5f 52 41 4d 5f 4c 6f 61 64 5f 46 61 69 6c 65 |N_RAM_Load_Faile|
00007160 64 5f 22 2b 77 24 29 0d 3e 1c 07 f2 45 79 0d 3e |d_"+w$).>...Ey.>|
00007170 1d 05 cd 0d 3e 1e 50 cc 3a 57 25 21 31 32 3d 57 |....>.P.:W%!12=W|
00007180 25 21 38 3a 57 25 21 31 36 3d 36 3a 57 25 21 32 |%!8:W%!16=6:W%!2|
00007190 30 3d 52 41 4d 5f 73 74 61 72 74 25 3a 57 25 21 |0=RAM_start%:W%!|
000071a0 32 34 3d 5f 5f 25 3a c8 99 26 34 30 30 65 37 2c |24=__%:..&400e7,|
000071b0 31 38 2c 57 25 2c 57 25 21 34 3a 4d 5f 25 3d 57 |18,W%,W%!4:M_%=W|
000071c0 25 21 38 0d 3e 1f 07 cd 3a e1 0d 3e 20 3a dd f2 |%!8.>...:..> :..|
000071d0 45 79 3a ea 4d 6c 25 3a c8 99 26 32 30 30 32 33 |Ey:.Ml%:..&20023|
000071e0 2c 22 57 69 6d 70 24 53 63 72 61 70 22 2c 30 2c |,"Wimp$Scrap",0,|
000071f0 2d 31 2c 30 2c 33 b8 2c 2c 67 79 25 3a e7 67 79 |-1,0,3.,,gy%:.gy|
00007200 25 3d 30 8c 0d 3e 21 09 f2 4a 28 38 29 0d 3e 22 |%=0..>!..J(8).>"|
00007210 6f cc 3a 24 28 57 25 2b 34 34 29 3d 22 3c 57 69 |o.:$(W%+44)="<Wi|
00007220 6d 70 24 53 63 72 61 70 3e 22 2b bd 28 30 29 3a |mp$Scrap>"+.(0):|
00007230 57 25 21 33 36 3d 2d 31 3a 57 25 21 31 36 3d 32 |W%!36=-1:W%!16=2|
00007240 3a 57 25 21 31 32 3d 50 75 25 3a 57 25 21 30 3d |:W%!12=Pu%:W%!0=|
00007250 36 30 3a c8 99 26 34 30 30 65 37 2c 31 37 2c 57 |60:..&400e7,17,W|
00007260 25 2c 5f 4a 25 3a 50 5f 25 3d 57 25 21 38 3a 4d |%,_J%:P_%=W%!8:M|
00007270 5f 25 3d 50 5f 25 3a 70 4a 25 3d a3 0d 3e 23 07 |_%=P_%:pJ%=..>#.|
00007280 cd 3a e1 0d 3e 24 3a dd f2 4f 79 3a ea 4d 6c 25 |.:..>$:..Oy:.Ml%|
00007290 3a c8 99 26 32 30 30 32 33 2c 22 57 69 6d 70 24 |:..&20023,"Wimp$|
000072a0 53 63 72 61 70 22 2c 30 2c 2d 31 2c 30 2c 33 b8 |Scrap",0,-1,0,3.|
000072b0 2c 2c 67 79 25 3a e7 67 79 25 3d 30 8c 0d 3e 25 |,,gy%:.gy%=0..>%|
000072c0 09 f2 4a 28 38 29 0d 3e 26 63 cc 3a 24 28 57 25 |..J(8).>&c.:$(W%|
000072d0 2b 34 34 29 3d 22 3c 57 69 6d 70 24 53 63 72 61 |+44)="<Wimp$Scra|
000072e0 70 3e 22 2b bd 28 30 29 3a 57 25 21 33 36 3d 2d |p>"+.(0):W%!36=-|
000072f0 31 3a 57 25 21 31 36 3d 32 3a 57 25 21 31 32 3d |1:W%!16=2:W%!12=|
00007300 57 25 21 38 3a 57 25 21 30 3d 36 30 3a c8 99 26 |W%!8:W%!0=60:..&|
00007310 34 30 30 65 37 2c 31 37 2c 57 25 2c 57 25 21 34 |400e7,17,W%,W%!4|
00007320 3a 50 5f 25 3d 57 25 21 38 0d 3e 27 07 cd 3a e1 |:P_%=W%!8.>'..:.|
00007330 0d 3e 28 46 dd f2 41 79 3a ea 4c 61 2c 52 41 4d |.>(F..Ay:.La,RAM|
00007340 5f 73 74 61 72 74 25 2c 52 41 4d 5f 6c 65 6e 67 |_start%,RAM_leng|
00007350 74 68 25 3a ea 85 3a ee 85 ea f7 85 3a f2 41 28 |th%:..:.....:.A(|
00007360 22 4d 65 73 73 61 67 65 5f 52 41 4d 5f 46 65 74 |"Message_RAM_Fet|
00007370 63 68 3a 20 22 29 0d 3e 29 10 e7 57 25 21 31 32 |ch: ").>)..W%!12|
00007380 3c 3e 6b 79 25 8c 0d 3e 2a 09 f2 4a 28 39 29 0d |<>ky%..>*..J(9).|
00007390 3e 2b 0d cc 3a e7 67 24 3d 22 22 8c 0d 3e 2c 53 |>+..:.g$=""..>,S|
000073a0 cc 3a e7 a4 5a 28 22 46 4e 5f 52 41 4d 5f 53 61 |.:..Z("FN_RAM_Sa|
000073b0 76 65 5f 22 2b 67 24 2b 22 28 22 2b c3 28 63 5f |ve_"+g$+"("+.(c_|
000073c0 25 29 2b 22 2c 20 22 2b c3 28 57 25 21 32 34 29 |%)+", "+.(W%!24)|
000073d0 2b 22 2c 20 52 41 4d 5f 73 74 61 72 74 25 2c 20 |+", RAM_start%, |
000073e0 52 41 4d 5f 6c 65 6e 67 74 68 25 29 22 29 8c 0d |RAM_length%)")..|
000073f0 3e 2d 9d cc 3a 63 5f 25 2b 3d 52 41 4d 5f 6c 65 |>-..:c_%+=RAM_le|
00007400 6e 67 74 68 25 3a c8 99 26 34 30 30 66 31 2c 51 |ngth%:..&400f1,Q|
00007410 79 25 2c 52 41 4d 5f 73 74 61 72 74 25 2c 57 25 |y%,RAM_start%,W%|
00007420 21 34 2c 57 25 21 32 30 2c 52 41 4d 5f 6c 65 6e |!4,W%!20,RAM_len|
00007430 67 74 68 25 3a 57 25 21 31 32 3d 57 25 21 38 3a |gth%:W%!12=W%!8:|
00007440 57 25 21 31 36 3d 37 3a 57 25 21 32 34 3d 52 41 |W%!16=7:W%!24=RA|
00007450 4d 5f 6c 65 6e 67 74 68 25 3a c8 99 26 34 30 30 |M_length%:..&400|
00007460 65 37 2c 31 37 2d 28 52 41 4d 5f 6c 65 6e 67 74 |e7,17-(RAM_lengt|
00007470 68 25 3d 28 57 25 21 32 34 29 29 2c 57 25 2c 57 |h%=(W%!24)),W%,W|
00007480 25 21 34 3a 6b 79 25 3d 57 25 21 38 0d 3e 2e 05 |%!4:ky%=W%!8.>..|
00007490 cd 0d 3e 2f 05 cd 0d 3e 30 07 cd 3a e1 0d 3e 31 |..>/...>0..:..>1|
000074a0 16 dd a4 5f 4d 69 73 63 5f 76 65 72 73 69 6f 6e |..._Misc_version|
000074b0 3d 33 34 0d 3e 32 51 dd a4 5f 68 61 72 64 5f 69 |=34.>2Q.._hard_i|
000074c0 6e 69 74 69 61 6c 69 73 65 5f 4d 69 73 63 3a ea |nitialise_Misc:.|
000074d0 5a 25 2c 6e 25 2c 5f 25 3a ea 85 3a ee 85 ea f7 |Z%,n%,_%:..:....|
000074e0 85 3a f2 41 28 22 25 2e 4d 69 73 63 3a 20 68 61 |.:.A("%.Misc: ha|
000074f0 72 64 5f 69 6e 69 74 69 61 6c 69 73 65 5f 4d 69 |rd_initialise_Mi|
00007500 73 63 22 29 0d 3e 33 28 e7 a4 55 3c 31 32 8c 85 |sc").>3(..U<12..|
00007510 31 2c 22 4e 65 65 64 73 20 6e 65 77 65 72 20 25 |1,"Needs newer %|
00007520 2e 4c 69 62 48 61 6e 64 6c 65 72 22 0d 3e 34 b8 |.LibHandler".>4.|
00007530 54 4a 25 3d 31 33 3a 75 24 3d bd 28 54 4a 25 29 |TJ%=13:u$=.(TJ%)|
00007540 3a 78 4a 25 3d 31 30 3a 68 24 3d bd 28 78 4a 25 |:xJ%=10:h$=.(xJ%|
00007550 29 3a 69 24 3d 75 24 2b 68 24 3a 74 69 3d 32 35 |):i$=u$+h$:ti=25|
00007560 36 3a de 43 25 28 31 35 2c 31 29 3a 6e 25 3d 32 |6:.C%(15,1):n%=2|
00007570 35 35 3a 5f 25 3d 33 3a e3 5a 25 3d 30 b8 31 35 |55:_%=3:.Z%=0.15|
00007580 3a 43 25 28 5a 25 2c 30 29 3d 6e 25 3a 43 25 28 |:C%(Z%,0)=n%:C%(|
00007590 5a 25 2c 31 29 3d 5f 25 3a 6e 25 3d a4 4b 28 6e |Z%,1)=_%:n%=.K(n|
000075a0 25 2c 32 29 3a 5f 25 3d a4 4b 28 5f 25 2c 32 29 |%,2):_%=.K(_%,2)|
000075b0 3a ed 5a 25 3a 6a 24 3d 22 22 3a 4e 75 25 3d 31 |:.Z%:j$="":Nu%=1|
000075c0 30 30 3a 73 75 25 3d 26 37 66 66 66 30 30 3a 75 |00:su%=&7fff00:u|
000075d0 75 25 3d b9 3a 52 75 25 3d 30 3a de 4a 6c 25 31 |u%=.:Ru%=0:.Jl%1|
000075e0 36 3a 3d 30 0d 3e 35 3b dd a4 54 28 56 24 2c 57 |6:=0.>5;..T(V$,W|
000075f0 79 25 2c 79 75 25 29 3a ea 45 79 25 2c 52 5f 25 |y%,yu%):.Ey%,R_%|
00007600 2c 59 5f 25 2c 49 5f 25 2c 54 5f 25 3a 69 25 3d |,Y_%,I_%,T_%:i%=|
00007610 a4 68 28 56 24 29 3a e7 43 25 80 32 3d 30 8c 0d |.h(V$):.C%.2=0..|
00007620 3e 36 16 5b 4f 50 54 43 25 3a 44 43 44 30 3a 44 |>6.[OPTC%:DCD0:D|
00007630 43 44 30 3a 5d 0d 3e 37 37 cc 3a 45 79 25 3d 79 |CD0:].>77.:Ey%=y|
00007640 75 25 2d 50 25 2d 38 3a e7 94 28 45 79 25 29 3e |u%-P%-8:..(Ey%)>|
00007650 36 35 35 33 35 8c 85 31 2c 22 61 64 72 6c 20 6f |65535..1,"adrl o|
00007660 75 74 20 6f 66 20 72 61 6e 67 65 22 0d 3e 38 2c |ut of range".>8,|
00007670 59 5f 25 3d 94 28 45 79 25 29 80 32 35 35 3a 52 |Y_%=.(Ey%).255:R|
00007680 5f 25 3d 94 28 45 79 25 29 80 36 35 32 38 30 3a |_%=.(Ey%).65280:|
00007690 e7 45 79 25 3e 3d 30 8c 0d 3e 39 52 49 5f 25 3d |.Ey%>=0..>9RI_%=|
000076a0 69 25 84 28 26 32 38 66 30 30 30 30 2b 28 57 79 |i%.(&28f0000+(Wy|
000076b0 25 3c 3c 31 32 29 2b 59 5f 25 29 3a 54 5f 25 3d |%<<12)+Y_%):T_%=|
000076c0 69 25 84 28 26 32 38 30 30 63 30 30 2b 28 57 79 |i%.(&2800c00+(Wy|
000076d0 25 3c 3c 31 36 29 2b 28 57 79 25 3c 3c 31 32 29 |%<<16)+(Wy%<<12)|
000076e0 2b 28 52 5f 25 3e 3e 38 29 29 0d 3e 3a 54 cc 3a |+(R_%>>8)).>:T.:|
000076f0 49 5f 25 3d 69 25 84 28 26 32 34 66 30 30 30 30 |I_%=i%.(&24f0000|
00007700 2b 28 57 79 25 3c 3c 31 32 29 2b 59 5f 25 29 3a |+(Wy%<<12)+Y_%):|
00007710 54 5f 25 3d 69 25 84 28 26 32 34 30 30 63 30 30 |T_%=i%.(&2400c00|
00007720 2b 28 57 79 25 3c 3c 31 36 29 2b 28 57 79 25 3c |+(Wy%<<16)+(Wy%<|
00007730 3c 31 32 29 2b 28 52 5f 25 3e 3e 38 29 29 0d 3e |<12)+(R_%>>8)).>|
00007740 3b 1c cd 3a 5b 4f 50 54 43 25 3a 44 43 44 49 5f |;..:[OPTC%:DCDI_|
00007750 25 3a 44 43 44 54 5f 25 3a 5d 0d 3e 3c 08 cd 3a |%:DCDT_%:].><..:|
00007760 3d 30 0d 3e 3d 2a dd a4 4b 28 55 25 2c 59 79 25 |=0.>=*..K(U%,Yy%|
00007770 29 3a ea 85 3a ee 85 ea f7 85 3a f2 41 28 22 25 |):..:.....:.A("%|
00007780 2e 4d 69 73 63 3a 20 72 6f 6c 22 29 0d 3e 3e 3b |.Misc: rol").>>;|
00007790 59 79 25 3d 59 79 25 83 33 32 3a 3d 28 55 25 3c |Yy%=Yy%.32:=(U%<|
000077a0 3c 59 79 25 29 84 28 28 28 ac 28 28 2d 31 29 3e |<Yy%).(((.((-1)>|
000077b0 3e 3e 59 79 25 29 29 80 55 25 29 3e 3e 3e 28 33 |>>Yy%)).U%)>>>(3|
000077c0 32 2d 59 79 25 29 29 0d 3e 3f 51 dd f2 49 79 28 |2-Yy%)).>?Q..Iy(|
000077d0 4d 24 29 3a ea 76 5f 25 2c 6c 5f 25 2c 41 4a 25 |M$):.v_%,l_%,AJ%|
000077e0 3a ea 85 3a ee 85 ea f7 85 3a f2 41 28 22 25 2e |:..:.....:.A("%.|
000077f0 4d 69 73 63 3a 20 44 65 66 69 6e 65 5f 4c 6f 63 |Misc: Define_Loc|
00007800 61 6c 5f 56 61 72 69 61 62 6c 65 73 28 60 22 2b |al_Variables(`"+|
00007810 4d 24 2b 22 27 29 22 29 0d 3e 40 23 76 5f 25 3d |M$+"')").>@#v_%=|
00007820 50 25 3a 6c 5f 25 3d 4f 25 3a 41 4a 25 3d 43 25 |P%:l_%=O%:AJ%=C%|
00007830 3a e7 28 43 25 80 34 29 3d 30 8c 0d 3e 41 09 4f |:.(C%.4)=0..>A.O|
00007840 25 3d 50 25 0d 3e 42 50 cd 3a 50 25 3d 30 3a 43 |%=P%.>BP.:P%=0:C|
00007850 25 3d 43 25 84 36 3a 50 25 3d a0 28 22 46 4e 5f |%=C%.6:P%=.("FN_|
00007860 44 65 63 6c 61 72 65 5f 4c 6f 63 61 6c 5f 56 61 |Declare_Local_Va|
00007870 72 69 61 62 6c 65 73 5f 22 2b 4d 24 29 3a 50 25 |riables_"+M$):P%|
00007880 3d 76 5f 25 3a 4f 25 3d 6c 5f 25 3a 43 25 3d 41 |=v_%:O%=l_%:C%=A|
00007890 4a 25 3a e1 0d 3e 43 2b dd a4 68 28 56 24 29 3a |J%:..>C+..h(V$):|
000078a0 ea 69 25 3a ea 85 3a ee 85 ea f7 85 3a f2 41 28 |.i%:..:.....:.A(|
000078b0 22 25 2e 4d 69 73 63 3a 20 46 4e 63 63 22 29 0d |"%.Misc: FNcc").|
000078c0 3e 44 1a e7 56 24 3d 22 22 84 56 24 3d 22 20 20 |>D..V$="".V$=" |
000078d0 22 8c 3d 31 34 3c 3c 32 38 0d 3e 45 13 e7 56 24 |".=14<<28.>E..V$|
000078e0 3d 22 6c 6f 22 8c 3d 33 3c 3c 32 38 0d 3e 46 13 |="lo".=3<<28.>F.|
000078f0 e7 56 24 3d 22 68 73 22 8c 3d 32 3c 3c 32 38 0d |.V$="hs".=2<<28.|
00007900 3e 47 45 69 25 3d a7 22 65 71 6e 65 63 73 63 63 |>GEi%=."eqnecscc|
00007910 6d 69 70 6c 76 73 76 63 68 69 6c 73 67 65 6c 74 |miplvsvchilsgelt|
00007920 67 74 6c 65 61 6c 6e 76 22 2c 56 24 29 3a e7 69 |gtlealnv",V$):.i|
00007930 25 83 32 8c 3d 28 28 69 25 2d 31 29 3e 3e 31 29 |%.2.=((i%-1)>>1)|
00007940 3c 3c 32 38 0d 3e 48 30 85 31 2c 22 55 6e 72 65 |<<28.>H0.1,"Unre|
00007950 63 6f 67 6e 69 73 65 64 20 63 6f 6e 64 69 74 69 |cognised conditi|
00007960 6f 6e 20 63 6f 64 65 20 60 22 2b 56 24 2b 22 27 |on code `"+V$+"'|
00007970 22 3a 3d 30 0d 3e 49 15 dd a4 5f 48 65 61 70 5f |":=0.>I..._Heap_|
00007980 76 65 72 73 69 6f 6e 3d 38 0d 3e 4a 47 dd a4 5f |version=8.>JG.._|
00007990 68 61 72 64 5f 69 6e 69 74 69 61 6c 69 73 65 5f |hard_initialise_|
000079a0 48 65 61 70 3a ea 85 3a ee 85 ea f7 85 3a f2 41 |Heap:..:.....:.A|
000079b0 28 22 25 2e 48 65 61 70 3a 20 68 61 72 64 5f 69 |("%.Heap: hard_i|
000079c0 6e 69 74 69 61 6c 69 73 65 5f 48 65 61 70 22 29 |nitialise_Heap")|
000079d0 0d 3e 4b 06 3d 30 0d 3e 4c 26 dd a4 73 28 f8 49 |.>K.=0.>L&..s(.I|
000079e0 79 25 2c 41 25 29 3a 49 79 25 3d ba 28 73 4a 25 |y%,A%):Iy%=.(sJ%|
000079f0 29 3a e7 21 6b 25 8c 49 79 25 3d 30 0d 3e 4d 08 |):.!k%.Iy%=0.>M.|
00007a00 3d 21 6b 25 0d 3e 4e 1f dd f2 58 28 f8 49 79 25 |=!k%.>N...X(.Iy%|
00007a10 2c 48 79 25 29 3a e7 a4 73 28 49 79 25 2c 48 79 |,Hy%):..s(Iy%,Hy|
00007a20 25 29 8c 0d 3e 4f 1b 49 79 25 3d 21 6b 25 3a 85 |%)..>O.Iy%=!k%:.|
00007a30 21 49 79 25 2c a4 4e 28 49 79 25 2b 34 29 0d 3e |!Iy%,.N(Iy%+4).>|
00007a40 50 07 cd 3a e1 0d 3e 51 15 dd f2 72 28 f8 41 25 |P..:..>Q...r(.A%|
00007a50 29 3a e7 a4 74 28 41 25 29 8c 0d 3e 52 18 41 25 |):..t(A%)..>R.A%|
00007a60 3d 21 6b 25 3a 85 21 41 25 2c a4 4e 28 41 25 2b |=!k%:.!A%,.N(A%+|
00007a70 34 29 0d 3e 53 07 cd 3a e1 0d 3e 54 1b dd a4 74 |4).>S..:..>T...t|
00007a80 28 f8 41 25 29 3a d6 60 5f 25 3a 41 25 3d 30 3a |(.A%):.`_%:A%=0:|
00007a90 3d 21 6b 25 0d 3e 55 29 dd f2 48 5f 3a ea 85 3a |=!k%.>U)..H_:..:|
00007aa0 ee 85 ea f7 85 3a f2 41 28 22 25 2e 48 65 61 70 |.....:.A("%.Heap|
00007ab0 3a 20 61 73 73 65 6d 62 6c 65 72 22 29 0d 3e 56 |: assembler").>V|
00007ac0 3d 5b 4f 50 54 43 25 3a a4 58 28 73 4a 25 2c 4f |=[OPTC%:.X(sJ%,O|
00007ad0 79 29 3a a4 58 28 60 5f 25 2c 63 79 29 3a a4 58 |y):.X(`_%,cy):.X|
00007ae0 28 63 75 25 2c 65 79 29 3a 41 4c 49 47 4e 3a 2e |(cu%,ey):ALIGN:.|
00007af0 6b 25 44 43 44 30 3a 5d 3a e1 0d 3e 57 6c dd a4 |k%DCD0:]:..>Wl..|
00007b00 58 28 f8 45 75 25 2c 67 75 25 29 3a 5b 4f 50 54 |X(.Eu%,gu%):[OPT|
00007b10 43 25 3a 41 4c 49 47 4e 3a 2e 45 75 25 3a a4 50 |C%:ALIGN:.Eu%:.P|
00007b20 3a 53 54 4d 46 44 28 41 29 21 2c 7b 4d 7d 3a 4d |:STMFD(A)!,{M}:M|
00007b30 4f 56 20 4d 2c 23 30 3a 53 54 52 20 4d 2c 6b 25 |OV M,#0:STR M,k%|
00007b40 3a 42 4c 20 67 75 25 3a 53 54 52 76 73 30 2c 6b |:BL gu%:STRvs0,k|
00007b50 25 3a 4c 44 4d 46 44 28 41 29 21 2c 7b 70 63 7d |%:LDMFD(A)!,{pc}|
00007b60 5e 3a 5d 3a 3d 30 0d 3e 58 18 dd a4 5f 4d 65 73 |^:]:=0.>X..._Mes|
00007b70 73 61 67 65 5f 76 65 72 73 69 6f 6e 3d 34 0d 3e |sage_version=4.>|
00007b80 59 50 dd a4 5f 68 61 72 64 5f 69 6e 69 74 69 61 |YP.._hard_initia|
00007b90 6c 69 73 65 5f 4d 65 73 73 61 67 65 3a ea 85 3a |lise_Message:..:|
00007ba0 ee 85 ea f7 85 3a f2 41 28 22 25 2e 4d 65 73 73 |.....:.A("%.Mess|
00007bb0 61 67 65 3a 20 68 61 72 64 5f 69 6e 69 74 69 61 |age: hard_initia|
00007bc0 6c 69 73 65 5f 4d 65 73 73 61 67 65 22 29 0d 3e |lise_Message").>|
00007bd0 5a 54 51 69 3d 33 31 3a c8 99 35 2c 22 52 4d 45 |ZTQi=31:..5,"RME|
00007be0 6e 73 75 72 65 20 43 41 73 73 65 6d 62 6c 65 72 |nsure CAssembler|
00007bf0 20 30 2e 30 31 20 52 4d 4c 6f 61 64 20 53 79 73 | 0.01 RMLoad Sys|
00007c00 74 65 6d 3a 4d 6f 64 75 6c 65 73 2e 43 41 73 73 |tem:Modules.CAss|
00007c10 65 6d 62 6c 65 72 22 3a de 52 79 20 32 35 36 3a |embler":.Ry 256:|
00007c20 3d 30 0d 3e 5b 49 dd a4 67 28 6c 24 2c 4b 75 25 |=0.>[I..g(l$,Ku%|
00007c30 2c f8 43 5f 25 29 3a ea 41 25 3a c8 99 26 66 63 |,.C_%):.A%:..&fc|
00007c40 62 38 33 2c 6c 24 2b 22 2e 4d 65 73 73 61 67 65 |b83,l$+".Message|
00007c50 73 2e 22 2c 4b 75 25 2c 30 b8 41 25 2c 43 5f 25 |s.",Ku%,0.A%,C_%|
00007c60 3a e7 43 5f 25 3d 30 8c d6 58 79 0d 3e 5c 07 3d |:.C_%=0..Xy.>\.=|
00007c70 41 25 0d 3e 5d 3c dd a4 72 28 4a 25 2c 61 24 2c |A%.>]<..r(J%,a$,|
00007c80 56 5f 25 29 3a c8 99 26 66 63 62 38 35 2c 61 24 |V_%):..&fcb85,a$|
00007c90 2c 56 5f 25 2c 4a 25 b8 56 5f 25 3b 4a 25 3a 3d |,V_%,J%.V_%;J%:=|
00007ca0 56 5f 25 80 28 28 4a 25 80 32 29 3d 32 29 0d 3e |V_%.((J%.2)=2).>|
00007cb0 5e 3c dd a4 6e 28 4a 25 2c 61 24 2c 59 24 29 3a |^<..n(J%,a$,Y$):|
00007cc0 ea 79 25 3a c8 99 26 66 63 62 38 35 2c 61 24 2c |.y%:..&fcb85,a$,|
00007cd0 59 24 2c 4a 25 b8 79 25 3b 4a 25 3a 3d 79 25 80 |Y$,J%.y%;J%:=y%.|
00007ce0 28 28 4a 25 80 32 29 3d 32 29 0d 3e 5f 30 dd a4 |((J%.2)=2).>_0..|
00007cf0 63 28 4a 25 29 3a ea 79 25 3a c8 99 26 66 63 62 |c(J%):.y%:..&fcb|
00007d00 38 36 2c 4a 25 b8 79 25 3b 4a 25 3a 3d 79 25 80 |86,J%.y%;J%:=y%.|
00007d10 28 28 4a 25 80 32 29 3d 32 29 0d 3e 60 3c dd a4 |((J%.2)=2).>`<..|
00007d20 51 28 4a 25 2c 61 24 29 3a ea 79 25 3a c8 99 26 |Q(J%,a$):.y%:..&|
00007d30 66 63 62 38 34 2c 61 24 2c 52 79 2c 32 35 36 2c |fcb84,a$,Ry,256,|
00007d40 4a 25 2c 30 b8 79 25 2c 4a 25 3a 3f 4a 25 3d 31 |J%,0.y%,J%:?J%=1|
00007d50 33 3a 3d 24 52 79 0d 3e 61 26 dd f2 74 79 28 4a |3:=$Ry.>a&..ty(J|
00007d60 25 2c 61 24 2c 54 75 25 29 3a 4a 25 3d a4 72 28 |%,a$,Tu%):J%=.r(|
00007d70 4a 25 2c 61 24 2c 54 75 25 29 3a e1 0d 3e 62 24 |J%,a$,Tu%):..>b$|
00007d80 dd f2 4c 79 28 4a 25 2c 61 24 2c 59 24 29 3a 4a |..Ly(J%,a$,Y$):J|
00007d90 25 3d a4 6e 28 4a 25 2c 61 24 2c 59 24 29 3a e1 |%=.n(J%,a$,Y$):.|
00007da0 0d 3e 63 18 dd f2 72 79 28 4a 25 29 3a 4a 25 3d |.>c...ry(J%):J%=|
00007db0 a4 63 28 4a 25 29 3a e1 0d 3e 64 1d dd a4 5f 28 |.c(J%):..>d..._(|
00007dc0 5f 25 29 3a 3d a4 51 28 62 25 2c 22 45 22 2b c3 |_%):=.Q(b%,"E"+.|
00007dd0 28 5f 25 29 29 0d 3e 65 16 dd a4 76 28 72 24 29 |(_%)).>e...v(r$)|
00007de0 3a 3d a4 51 28 62 25 2c 72 24 29 0d 3e 66 1e dd |:=.Q(b%,r$).>f..|
00007df0 f2 6a 28 72 24 2c 5f 25 29 3a f2 74 79 28 62 25 |.j(r$,_%):.ty(b%|
00007e00 2c 72 24 2c 5f 25 29 3a e1 0d 3e 67 1e dd f2 50 |,r$,_%):..>g...P|
00007e10 28 72 24 2c 6f 24 29 3a f2 4c 79 28 62 25 2c 72 |(r$,o$):.Ly(b%,r|
00007e20 24 2c 6f 24 29 3a e1 0d 3e 68 28 dd f2 69 28 72 |$,o$):..>h(..i(r|
00007e30 24 2c 42 25 29 3a c8 99 26 64 63 62 38 34 2c 72 |$,B%):..&dcb84,r|
00007e40 24 2c 42 25 2c 32 35 36 2c 62 25 2c 30 3a e1 0d |$,B%,256,b%,0:..|
00007e50 3e 69 12 dd f2 43 79 3a f2 72 79 28 62 25 29 3a |>i...Cy:.ry(b%):|
00007e60 e1 0d 3e 6a 13 dd f2 63 28 56 25 29 3a e7 56 25 |..>j...c(V%):.V%|
00007e70 3c 3d 30 8c 0d 3e 6b 1e f2 50 28 22 53 79 73 22 |<=0..>k..P("Sys"|
00007e80 2c 22 22 29 3a f2 50 28 22 53 79 73 4e 22 2c 22 |,""):.P("SysN","|
00007e90 22 29 0d 3e 6c 2b cc 3a f2 50 28 22 53 79 73 22 |").>l+.:.P("Sys"|
00007ea0 2c a4 42 28 56 25 2b 34 29 29 3a f2 50 28 22 53 |,.B(V%+4)):.P("S|
00007eb0 79 73 4e 22 2c c3 7e 28 21 56 25 29 29 0d 3e 6d |ysN",.~(!V%)).>m|
00007ec0 07 cd 3a e1 0d 3e 6e 1e dd a4 52 28 5f 25 29 3a |..:..>n...R(_%):|
00007ed0 3d a4 51 28 62 25 2c 22 4c 45 22 2b c3 28 5f 25 |=.Q(b%,"LE"+.(_%|
00007ee0 29 29 0d 3e 6f 2b dd f2 4a 5f 3a ea 85 3a ee 85 |)).>o+..J_:..:..|
00007ef0 ea f7 85 3a f2 41 28 22 25 2e 4d 65 73 73 61 67 |...:.A("%.Messag|
00007f00 65 3a 20 61 73 73 65 6d 62 6c 65 22 29 0d 3e 70 |e: assemble").>p|
00007f10 2b 5b 4f 50 54 43 25 3a 41 4c 49 47 4e 3a 2e 58 |+[OPTC%:ALIGN:.X|
00007f20 79 3a a4 50 3a 42 20 73 79 3a 5d 3a e7 43 25 80 |y:.P:B sy:]:.C%.|
00007f30 34 8c 58 79 2b 3d 66 25 0d 3e 71 05 e1 0d ff |4.Xy+=f%.>q....|
00007f3f 
.