Home » Archimedes archive » Archimedes World » AW-1996-08.adf » !Graph_Graph » !Graph/Graph
!Graph/Graph
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-1996-08.adf » !Graph_Graph |
| Filename: | !Graph/Graph |
| Read OK: | ✔ |
| File size: | A943 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM>Graph
2ON ERROR PROCLFs:OSCLI"POINTER 1":END
3@%=&90A
4Ph$="<Graph$Dir>."
5DP$=Ph$+"DrawFiles.Draw.DrawFile"
6LP$=Ph$+"DrawFiles.Log.LogFile"
7Log$="Graph"+STRING$(3,CHR$(0))+"GraphLog"+STRING$(4,CHR$(0))
8Dg%=FALSE:PX%=0:PY%=0
9Ng%=19
10Mg=.9
11MW%=-1
12CW%=TRUE
13Te=.0625
14OS=.141111111
15Gm%=80
16Dy%=FALSE
17Ts%=216
18Ig%=FALSE
19Cd%=-1
20DIM h% 40
21DIM Gw%(Ng%):Gn%=0
22DIM Ga%(Ng%)
23DIM Hp%(Ng%,5)
24DIM Gp(Ng%,21)
25DIM Gc%(Ng%):Gc%()=TRUE
26DIM Ag%(Ng%):Ag%()=TRUE
27DIM F$(Ng%)
28DIM Fh%(Ng%,1):Fh%()=TRUE
29DIM Font% 256:FOR A%=0 TO255 :A%!Font%=0:NEXT
30SYS"Font_ReadFontMax" TO Max0%,Max1%,Max2%,Max3%
31max3%=Max3%
32Font$="Trinity.Medium"
33IL%=&764+&3D4*(Ng%+1)
34MOpen%=FALSE
35LMenu%=0
36DIM Icons% IL%
37Icon%=Icons%
38PROCHI
39SptS%=FNFS(Ph$+"Sprites")+20
40Spt%=FNHCm(SptS%)
41!Spt%=SptS%:Spt%!8=16
42SYS"OS_SpriteOp",265,Spt%
43SYS"OS_SpriteOp",266,Spt%,Ph$+"Sprites"
44DIM IM% FNMenuSize("Icon")
45DIM On% FNMenuSize("Option")
46DIM Save% FNMenuSize("Save")
47DIM LDM% FNMenuSize("LOption")
48DIM Buf% (256*(Ng%+2))
49DIM Wb% &95C
50SYS"Wimp_Initialise",200,&4B534154,"Graphschetch" TO Ver%,Th%
51Start%=FNLW(Ph$+"Templates","Start",Font%)
52Start%=FNCW(Start%)
53PROCow(Start%,0,-1)
54PA%=FNLW(Ph$+"Templates","PlotArea",-1)
55IconN%=FNIconMenu(IM%,"Icon")
56SW%=FNMenuWh(IM%,1)
57OnN%=FNIconMenu(On%,"Option")
58Zoom%=FNLW(Ph$+"Templates","Zoom",-1)
59CdW%=FNLW(Ph$+"Templates","Coords",-1)
60SaveN%=FNIconMenu(Save%,"Save")
61LDMN%=FNIconMenu(LDM%,"LOption")
62Dw%=FNMenuWh(Save%,0)
63Log%=FNMenuWh(Save%,1)
64PROCLS(Dw%,2,DP$)
65PROCLN(SW%,1,INT(FNOSX*OS))
66OS1=FNRN(SW%,1)/INT(FNOSX*OS)
67Ih%=FNIconBar("!Graph")
68XPix%=1<<FNXPixVal:YPix%=1<<FNYPixVal
69PROCSe(IM%,3)
70Quit%=FALSE
71REPEAT
72PROCProg
73UNTIL Quit%
74Spt%=FNHF(Spt%)
75PROCLFs
76SYS"Font_SetFontMax",,Max1%,Max2%,Max3%
77SYS"Wimp_CloseDown",Th%,&4B534154
78END
79DEF PROCProg
80LOCAL M%,Cal%,Dn%:Dn%=TRUE
81M%=&1801
82PROCPoll(M%,Buf%)
83ENDPROC
84DEF PROCPoll(M%,Buf%)
85LOCAL R%,W%,n%,d%
86REPEAT
87SYS"Wimp_Poll",M%,Buf% TO R%
88CASE R% OF
89WHEN 0:
90SYS"Wimp_GetPointerInfo",,Buf%
91 IF Buf%!16=-9 THEN
92 CASE Buf%!8 OF
93 WHEN4:
94 IF Dy% THEN
95 Dn%=FNFindW(Buf%!12)
96 IF Dn%>=0 THEN
97 IF Ga%(Dn%)=Buf%!12 PROCDc(Dn%) ELSE Dn%=TRUE
98 ENDIF
99 ENDIF
100 WHEN0:IF Dn%>=0 PROCCS(Dn%,0):PROCow(Ga%(Dn%),0,-1):Dn%=TRUE:IF Cd%<>TRUE ANDBuf%!12=MW% PROCMC(MW%)
101 ENDCASE
102 ELSE
103 IF Dn%>=0 ANDBuf%!8=0 PROCCS(Dn%,0):PROCow(Ga%(Dn%),0,-1):Dn%=TRUE
104 IF MW%<>TRUE ANDDg%=FALSE THEN
105 IF FNPMove(PX%,PY%) PROCAP(FNFindW(MW%),"ptr_grab")
106 ELSE IF Dg% ANDFNPMove(PX%,PY%) PROCUC(MW%)
107 ENDIF
108 ENDIF
109WHEN 1:PROCRD(FNFindW(!Buf%))
110WHEN 2:SYS"Wimp_OpenWindow",,Buf%
111WHEN 3:
112 n%=FNFindW(!Buf%)
113 IF n%>=0 THEN
114 CASE !Buf% OF
115 WHEN Gw%(n%):SYS"Wimp_CloseWindow",,Buf%
116 WHEN Ga%(n%):PROCCe(n%)
117 ENDCASE
118 ENDIF
119 ENDIF
120 WHEN 4:
121 IF MW%=!Buf% ANDDg%=FALSE THEN
122 IF Cd%<>TRUE !Wb%=Cd%:SYS"Wimp_CloseWindow",,Wb%:Cd%=TRUE
123 OSCLI"POINTER 1":Ig%=FALSE
124 IF NOTDy% M%=M%OR1
125 ENDIF
126 n%=FNFindW(!Buf%)
127 IF n%>=0 THEN
128 IF MOpen% AND!Buf%=Ga%(n%) CW%=!Buf%
129 ENDIF
130 IF !Buf%=Zoom% SYS"Wimp_CloseWindow",,Buf%
131 IF !Buf%=SW% THEN
132 IF FNRN(SW%,1)<80 PROCLN(SW%,1,INT(FNOSX*OS))
133 OS1=FNRN(SW%,1)/INT(FNOSX*OS)
134 ENDIF
135 ENDIF
136WHEN 5:n%=FNFindW(!Buf%)
137 IF n%>=0 THEN
138 IF MW%=!Buf% THEN
139 !Wb%=MW%:SYS"Wimp_GetWindowState",,Wb%
140 IF Wb%!28=-1 THEN
141 M%=M%AND&FFFFFFFE
142 IF Cd%=TRUE PROCCd(MW%)
143 ELSE MW%=TRUE
144 IF Cd%<>TRUE !Wb%=Cd%:SYS"Wimp_CloseWindow",,Wb%:Cd%=TRUE
145 ENDIF
146 ENDIF
147 IF MOpen% ELSE IF Ga%(n%)=!Buf% CW%=!Buf%
148 ENDIF
149WHEN 7:IF MW%<>TRUE PROCBE(Buf%) ELSE PROCDE
150WHEN 6:PROCCk
151WHEN 8:
152 CASE !Buf% OF
153 WHEN Zoom%:PROCZK(Buf%)
154 WHEN Gw%(Gn%):PROCPK(Buf%)
155 ENDCASE
156WHEN 9:
157 Buf%!16=Buf%!4:Buf%!4=-1
158 !Wb%=Zoom%:SYS"Wimp_CloseWindow",,Wb%
159 SYS"Wimp_DecodeMenu",,CM%,Buf%,Wb%
160 SYS"Wimp_CreateMenu",,-1:MOpen%=FALSE
161 IF INSTR($Wb%,CHR$(&2E))>0 Wb%!INSTR($Wb%,CHR$(&2E))=&D
162 CASE $Wb% OF
163 WHEN"Close":PROCCe(FNFindW(CW%))
164 WHEN"Plot size"
165 n%=FNFindW(CW%)
166 IF n%<>TRUE PROCPS(n%):PROCow(Ga%(n%),0,-1)
167 WHEN"Minimize"
168 n%=FNFindW(CW%)
169 PROCCS(n%,0)
170 CW%=Ga%(n%)
171 PROCow(Ga%(n%),0,-1)
172 WHEN"Dynamize":
173 PROCSDc($Wb%)
174 WHEN"Magnify":
175 SYS"Wimp_GetPointerInfo",,Wb%:PX%=!Wb%-1:PY%=Wb%!4:MW%=CW%
176 PROCTW(MW%)
177 WHEN"Quit":Quit%=TRUE
178 WHEN"Zoom":n%=FNFindW(CW%)
179 PROCLN(Zoom%,0,Hp%(n%,3)!184):PROCLN(Zoom%,1,Hp%(n%,3)!188)
180 PROCZS(n%)
181 SYS"Wimp_OpenWindow",,Wb%
182 WHEN"Graph menu","Re-plot"
183 PROCCMW(Gn%)
184 WHEN"New graph":
185 !Buf%=Gw%(Gn%):SYS"Wimp_CloseWindow",,Buf%
186 Gn%=FNFt
187 PROCCMW(Gn%)
188 WHEN"Load","Load graph":
189 Buf%!4=Buf%!16
190 SYS"Wimp_DecodeMenu",,LMenu%,Buf%+4,Wb%
191 IF$Wb%<>"None" THEN
192 $(Buf%+44)=LP$+".^."+$Wb%
193 IF INSTR($Wb%,CHR$(&2E))>0 $(Buf%+44)=LP$+".^."+LEFT$($Wb%,INSTR($Wb%,CHR$(&2E))-1)
194 IF Buf%!8<>-1 THEN
195 IF $(Wb%+INSTR($Wb%,CHR$(&2E)))="Delete" SYS"OS_File",6,Buf%+44 ELSE IF$(Wb%+INSTR($Wb%,CHR$(&2E)))="Load" PROCLL(Buf%,-1)
196 ELSE
197 PROCLL(Buf%,-1)
198 ENDIF
199 ENDIF
200 ENDCASE
201WHEN 17,18,19:
202 PROCMess(R%,Buf%)
203ENDCASE
204UNTIL Quit% ORCal%
205ENDPROC
206DEF PROCCk
207IF Start%>0 !Wb%=Start%:SYS"Wimp_DeleteWindow",,Wb%:Start%=-1:PROCLDF
208n%=FNFindW(Buf%!12)
209IF Zoom%<>Buf%!12 !Wb%=Zoom%:SYS"Wimp_CloseWindow",,Wb%
210CASE Buf%!8 OF
211WHEN2:
212 IF MW%<>TRUE THEN
213 MW%=TRUE:Ig%=FALSE:OSCLI"POINTER 1":IF NOTDy% M%=M%OR1
214 IF Cd%<>TRUE !Wb%=Cd%:SYS"Wimp_CloseWindow",,Wb%:Cd%=TRUE
215 ENDIF
216 CASE Buf%!12 OF
217 WHEN-2:!Buf%=!Buf%-50:Buf%!4=360:PROCCm(IM%)
218 ENDCASE
219 IF n%>=0 THEN
220 CASE Buf%!12 OF
221 WHEN Ga%(n%):IF Gw%(n%)<>Gw%(Gn%) !Wb%=Gw%(Gn%):SYS"Wimp_CloseWindow",,Wb%
222 PROCCm(On%):Gn%=n%:Sn%=n%:MOpen%=TRUE
223 ENDCASE
224 ENDIF
225WHEN4:
226
227 IF n%>=0 IF Gc%(n%)=Buf%!12 ANDBuf%!16=3 Ag%(n%)=n%
228 CASE Buf%!12 OF
229
230 WHEN-2:
231 PROCCMW(Gn%)
232 WHEN Gw%(Gn%):
233 CASE Buf%!16 OF
234 WHEN32:
235 PROCCt(Gn%)
236 WHEN33:SYS"Wimp_CloseWindow",,Buf%+12
237 WHEN31:PROCAPs(Buf%!12):
238
239 WHEN35:PROCMn(Gw%(Gn%))
240 WHEN5:
241 IF FNReS(Gw%(Gn%),5)="Graph width" THEN
242 PROCLS(Gw%(Gn%),5,"Paper width")
243 ELSE
244 PROCLS(Gw%(Gn%),5,"Graph width")
245 ENDIF
246 ENDCASE
247 WHEN SW%:
248 CASE Buf%!16 OF
249 WHEN 2:PROCScD(Buf%!12)
250 ENDCASE
251 WHEN Dw%:
252 CASE Buf%!16 OF
253 WHEN3:PROCSD(Sn%)
254 WHEN1:Df%=&AFF:PROCDrag(Buf%)
255 ENDCASE
256 WHEN Log%:
257 CASE Buf%!16 OF
258 WHEN3:PROCSL(Sn%)
259 WHEN1:Df%=&FFD:PROCDrag(Buf%)
260 ENDCASE
261 WHEN Zoom%:
262 CASE Buf%!16 OF
263 WHEN2:PROCIZ(0)
264 WHEN3:PROCDZ(0)
265 WHEN4:PROCIZ(1)
266 WHEN5:PROCDZ(1)
267 ENDCASE
268 CASE Buf%!16 OF
269 WHEN2,3,4,5:PROCZS(Zn%)
270 IF Wb%!28=-1 Wb%!28=Zoom%
271 SYS"Wimp_OpenWindow",,Wb%
272 ENDCASE
273 ENDCASE
274WHEN 64:
275 CASE Buf%!12 OF
276 WHEN MW%:
277 IF Ig% PROCDB(Buf%,n%)
278 ENDCASE
279ENDCASE
280ENDPROC
281DEF PROCMUS
282PROCUnSe(IM%,3):PROCUnSe(On%,1)
283PROCUnSe(On%,4):PROCUnSe(On%,8)
284PROCUnSe(IM%,4)
285IF FNCountA<=0 THEN
286PROCSe(IM%,3):PROCUnSI(SW%,2)
287IF FNRSelect(SW%,2)=0 THEN
288PROCUnSI(SW%,1)
289PROCSFg(SW%,1,15)
290ENDIF
291ENDIF
292ENDPROC
293DEF PROCCm(M%)
294SYS"Wimp_CreateMenu",,-1
295SYS"Wimp_CreateMenu",,M%,!Buf%,Buf%!4
296CM%=M%
297ENDPROC
298
299DEF PROCRD(N%)
300LOCAL F%,H%,V%,I%,J%
301!Wb%=Gw%(N%)
302SYS"Wimp_RedrawWindow",,Buf% TO F%
303WHILE F%
304XMin%=Buf%!28-(Buf%!4-Buf%!20)
305XMax%=Buf%!36-(Buf%!4-Buf%!20)
306YMin%=(Buf%!32-(Buf%!16-Buf%!24))-Hp%(N%,3)!84
307YMax%=(Buf%!40-(Buf%!16-Buf%!24))-Hp%(N%,3)!84
308VDU29,(Buf%!4-Buf%!20);(Buf%!16-Buf%!24)+Hp%(N%,3)!84;
309SYS"Draw_Stroke",Hp%(N%,0),0,Hp%(N%,3),0,0,0,0
310SYS"Draw_Stroke",Hp%(N%,0)+Hp%(N%,4),0,Hp%(N%,3),0,0,0,0
311VDU29,0;0;
312SYS"Wimp_SetFontColours",,0,7
313IF XMax%>=Hp%(N%,3)!96 THEN
314IF YMax%>Hp%(N%,3)!92 ANDXMin%<Hp%(N%,3)!96+Hp%(N%,3)!124 SYS"Font_Paint",Fh%(N%,0),F$(N%),&110,(Buf%!4-Buf%!20)+Hp%(N%,3)!96,(Buf%!16-Buf%!24)+(Hp%(N%,3)!84+Hp%(N%,3)!120)
315ENDIF
316IF YMax%>Hp%(N%,3)!116 ANDYMin%<Hp%(N%,3)!116+(Hp%(N%,3)!212) THEN
317IF XMax%>=Hp%(N%,3)!128 THEN
318SYS"Font_Paint",Fh%(N%,1),FNReS(Gw%(N%),11),&110,(Buf%!4-Buf%!20)+Hp%(N%,3)!128,((Buf%!16-Buf%!24)+Hp%(N%,3)!84)+(Hp%(N%,3)!116)
319ENDIF
320IF XMax%>=Hp%(N%,3)!144 THEN
321SYS"Font_Paint",Fh%(N%,1),FNReS(Gw%(N%),12),&110,(Buf%!4-Buf%!20)+Hp%(N%,3)!144,((Buf%!16-Buf%!24)+Hp%(N%,3)!84)+(Hp%(N%,3)!116)
322ENDIF
323ENDIF
324IF XMin%<Hp%(N%,3)!112+Hp%(N%,3)!96 THEN
325IF XMax%>Hp%(N%,3)!196 ORXMax%>Hp%(N%,3)!204 THEN
326SYS"Font_Paint",Fh%(N%,1),FNReS(Gw%(N%),13),&110,(Buf%!4-Buf%!20)+Hp%(N%,3)!196,((Buf%!16-Buf%!24)+Hp%(N%,3)!84)+(Hp%(N%,3)!168)
327SYS"Font_Paint",Fh%(N%,1),FNReS(Gw%(N%),14),&110,(Buf%!4-Buf%!20)+Hp%(N%,3)!204,((Buf%!16-Buf%!24)+Hp%(N%,3)!84)+(Hp%(N%,3)!176)
328ENDIF
329ENDIF
330
331SYS"Wimp_GetRectangle",,Buf% TO F%
332ENDWHILE
333ENDPROC
334DEF PROCWN(W%)
335!Wb%=W%
336SYS"Wimp_GetWindowInfo",,Wb%
337CASE Wb%!60AND&101 OF
338WHEN&101:
339 IF LEN($(Wb%!76)+" ("+STR$(Gn%)+")")<Wb%!84 $(Wb%!76)=$(Wb%!76)+" ("+STR$(Gn%)+")"
340WHEN1:
341 IF LEN($(Wb%+76)+" ("+STR$(Gn%)+")")<12 THEN
342 $(Wb%+76)=$(Wb%+76)+" ("+STR$(Gn%)+")"
343 ENDIF
344ENDCASE
345ENDPROC
346DEF FNLNW(F$,W$)
347LOCAL W%
348W%=FNLW(F$,W$,-1)
349PROCWN(W%)
350SYS"Wimp_DeleteWindow",,Wb%
351SYS"Wimp_CreateWindow",,Wb%+4 TO W%
352=W%
353DEF PROCAPs(W%)
354IF FNRSelect(W%,31)>0 THEN
355PROCUSI(W%,31):PROCUnSI(W%,30)
356ELSE
357PROCSi(W%,31):PROCSI(W%,30):PROCAPt(FNFindW(W%))
358ENDIF
359ENDPROC
360DEF PROCAPt(N%)
361PROCSP1(N%)
362IF FNRSelect(Gw%(N%),31)<=0 ENDPROC
363PROCLN(Gw%(N%),30,INT((Hp%(N%,3)!88>>FNXPixVal)*Mg))
364PROCSP1(N%)
365ENDPROC
366DEF PROCScD(W%)
367IF FNRSelect(SW%,2)>0 THEN
368PROCUSI(SW%,2)
369PROCUnSI(SW%,1)
370PROCSFg(SW%,1,15)
371ELSE
372PROCSi(SW%,2)
373PROCLN(SW%,1,INT(FNOSX*OS))
374PROCSI(SW%,1)
375PROCSFg(SW%,1,0)
376ENDIF
377!Wb%=SW%:SYS"Wimp_GetWindowInfo",,Wb%
378SYS"Wimp_CloseWindow",,Wb%
379SYS"Wimp_OpenWindow",,Wb%
380ENDPROC
381DEF FNFt
382LOCAL N%
383REPEAT
384IF Ga%(N%)=0 =N%
385N%+=1
386UNTIL N%>Ng%
387=-1
388DEF FNFt1
389LOCAL N%:N%=Ng%
390REPEAT
391IF Gc%(N%)>0 =N%
392N%-=1
393UNTIL N%<0
394=0
395DEF FNFindW(W%)
396LOCAL N%
397REPEAT
398IF Ga%(N%)=W% ORGw%(N%)=W% ORGc%(N%)=W% =N%
399N%+=1
400UNTIL N%>Ng%
401=-1
402DEF FNCountA
403LOCAL N%,C%
404REPEAT
405IF Ga%(N%)<>0 C%+=1
406N%+=1
407UNTIL N%>Ng%
408=C%
409DEF FNCPlotA(W%)
410PROCWN(W%)
411SYS"Wimp_CreateWindow",,Wb%+4 TO Wb%!4
412=Wb%!4
413DEF PROCCMW(Gn%)
414IF Gc%(Gn%)>=0 ENDPROC
415IF Hp%(Gn%,3)=0 PROCCM(Gn%,3,Ts%)
416IF Gw%(Gn%)=0 THEN
417 Gw%(Gn%)=FNLNW(Ph$+"Templates","PlotWindow")
418 Gw%(Gn%)=FNCW(Gw%(Gn%))
419 PROCLF(Gn%)
420 PROCLN(Gw%(Gn%),19,FNRN(SW%,1))
421 PROCSM(Gn%)
422 PROCSP(Gn%)
423 PROCLN(Gw%(Gn%),30,INT((Hp%(Gn%,3)!88>>FNXPixVal)*Mg))
424 PROCSP(Gn%)
425 ENDIF
426IF Hp%(Gn%,3)<>0 PROCow(Gw%(Gn%),0,-1)
427ENDPROC
428DEF PROCRM(N%)
429Hp%(N%,0)=FNHF(Hp%(N%,0))
430Hp%(N%,3)=FNHF(Hp%(N%,3))
431ENDPROC
432
433DEF PROCCM(N%,A%,S%)
434Hp%(N%,A%)=FNHCm(S%)
435IF Hp%(N%,A%)=0 SYS"Wimp_ReportError"," Not enough of that there memory for graph",0,"!Graph"
436ENDPROC
437DEF PROCMn(W%)
438IF FNRSelect(W%,35)>0 THEN
439PROCUSI(W%,35):PROCSI(W%,5)
440ELSE
441PROCSi(W%,35):PROCUnSI(W%,5)
442ENDIF
443ENDPROC
444DEF PROCPS(N%)
445LOCAL x%,X%,w%
446!Wb%=Ga%(N%):SYS"Wimp_GetWindowInfo",,Wb%
447w%=!Wb%
448SYS"Wimp_DeleteWindow",,Wb%
449x%=Wb%!4:X%=Wb%!12
450Wb%!12=Wb%!4+Hp%(N%,3)!56:Wb%!56=Wb%!48+Hp%(N%,3)!56
451Hp%(N%,3)!88=Hp%(N%,3)!56:Hp%(N%,3)!84=Hp%(N%,3)!80
452Hp%(N%,3)!112=Hp%(N%,3)!192
453SYS"Wimp_CreateWindow",,Wb%+4 TO Ga%(N%)
454PROCLN(Gw%(N%),19,Gp(N%,16))
455PROCCS(N%,-1)
456!Wb%=Ga%(N%):SYS"Wimp_GetWindowInfo",,Wb%
457SYS"Wimp_DeleteWindow",,Wb%
458Wb%!4=x%:Wb%!12=X%
459SYS"Wimp_CreateWindow",,Wb%+4 TO Ga%(N%)
460Hp%(N%,3)!184=1:Hp%(N%,3)!188=1
461IF w%=CW% CW%=Ga%(N%)
462ENDPROC
463DEF PROCCS(N%,o%)
464IF N%<0 ENDPROC
465LOCAL S:S=1
466IF FNRShade(Gw%(N%),5)<1 IF FNReS(Gw%(N%),5)="Graph width" S=Mg
467!Wb%=Ga%(N%)
468SYS"Wimp_GetWindowInfo",,Wb%
469IF o%>=0 PROCLN(Gw%(N%),19,INT((Wb%!12-Wb%!4)*OS1*OS*S))
470PROCAPt(N%)
471PROCSTs(N%)
472Ga%(N%)=FNCWW(Ga%(N%),Hp%(N%,3)!88,Hp%(N%,3)!84,N%,0)
473IF Fh%(N%,0)>=0:SYS"Font_LoseFont",Fh%(N%,0):Fh%(N%,0)=-1
474IF Fh%(N%,1)>=0:SYS"Font_LoseFont",Fh%(N%,1):Fh%(N%,1)=-1
475PROCGF(N%,0,(Hp%(N%,3)!92*Te),(Hp%(N%,3)!92*Te),Font$)
476Hp%(N%,3)!124=FNSW(Fh%(N%,0),F$(N%))
477Hp%(N%,3)!120=Hp%(N%,3)!92+FNSHD(Fh%(N%,0))
478PROCGF(N%,1,(Gp(N%,6)/Gp(N%,4))*Gp(N%,8),(Gp(N%,6)/Gp(N%,4))*Gp(N%,8),Font$)
479Hp%(N%,3)!124=FNSW(Fh%(N%,0),F$(N%))
480PROCXN(N%)
481PROCYN(N%)
482ENDPROC
483DEF PROCCe(N%)
484!Wb%=Zoom%:SYS"XWimp_CloseWindow",,Wb%
485IF N%<0 ENDPROC
486IF Ga%(N%)=MW% MW%=TRUE
487IF Gc%(N%)>0 Ag%(N%)=N%:ENDPROC
488IF Ga%(N%)<>0 !Wb%=Ga%(N%):SYS"Wimp_DeleteWindow",,Wb%:Ga%(N%)=0
489 !Wb%=Gw%(N%)
490 SYS"Wimp_CloseWindow",,Wb%
491 IF Fh%(N%,0)>=0:SYS"Font_LoseFont",Fh%(N%,0):Fh%(N%,0)=-1
492 IF Fh%(N%,1)>=0:SYS"Font_LoseFont",Fh%(N%,1):Fh%(N%,1)=-1
493 SYS"Wimp_Poll",&E1972,Wb%
494 PROCRM(N%)
495 PROCMUS
496ENDPROC
497DEF PROCDc(n%)
498PROCAPt(n%)
499!Wb%=Ga%(n%)
500SYS"Wimp_GetWindowInfo",,Wb%
501IF Wb%!12-Wb%!4>=(Wb%!52-Wb%!44)-20 ORWb%!16-Wb%!8>=(Wb%!56-Wb%!48)-20 THEN
502PROCRS(n%,20)
503ENDIF
504ENDPROC
505DEF PROCRS(n%,i%)
506PROCLN(Gw%(n%),19,FNRN(Gw%(n%),19)+i%)
507PROCSP1(n%)
508PROCSTs(n%)
509Ga%(n%)=FNCWW(Ga%(n%),Hp%(n%,3)!88,Hp%(n%,3)!84,n%,0)
510PROCow(Ga%(n%),0,-1)
511ENDPROC
512DEF PROCSDc(S$)
513LOCAL F%
514F%=FNRTk(On%,S$)
515IF F%>0 THEN
516PROCUnTk(On%,S$)
517M%=M%OR1:Dy%=FALSE
518ELSE IF F%=0 PROCTk(On%,S$):M%=M%AND&FFFFFFFE:Dy%=TRUE
519ENDIF
520ENDPROC
521DEF PROCCt(Cn%)
522LOCAL Progress,Percent
523PROCSI(SW%,2):PROCSI(SW%,1):PROCSFg(SW%,1,0)
524 !Wb%=Gw%(Cn%):SYS"Wimp_CloseWindow",,Wb%
525 IF FNCC(Cn%) THEN
526 d%=0
527 IF Ga%(Cn%)=0 THEN
528 Ga%(Cn%)=FNCPlotA(PA%):d%=20
529 ELSE
530 !Wb%=Ga%(Cn%):SYS"Wimp_CloseWindow",,Wb%
531 SYS"Wimp_Poll",&E1972,Wb%
532 PROCRM(Cn%)
533 PROCCM(Cn%,3,Ts%)
534 ENDIF
535 PROCCM(Cn%,0,(PS%/2)-(Ts%+12))
536 IF FNFt=-1 THEN
537 PROCSe(IM%,3):PROCSe(On%,1)
538 PROCSe(IM%,4):PROCSe(On%,4)
539 PROCSe(On%,8)
540 ELSE PROCUnSe(IM%,3)
541 ENDIF
542 Hp%(Cn%,1)=0
543 Hp%(Cn%,2)=FNBS(Hp%(Cn%,0))
544 PROCSM(Cn%)
545 IF (FNRN(Gw%(Cn%),19)*Gp(Cn%,10))/FNRN(SW%,1)>20 PROCLN(Gw%(Cn%),19,INT((FNRN(SW%,1)/Gp(Cn%,10))*19.9))
546 Gp(Cn%,16)=FNRN(Gw%(Cn%),19)
547 PROCSP(Cn%)
548 PROCSUP
549 Ga%(Cn%)=FNCWW(Ga%(Cn%),Hp%(Cn%,3)!88,Hp%(Cn%,3)!84,Cn%,d%)
550 IF Fh%(Cn%,0)>=0:SYS"Font_LoseFont",Fh%(Cn%,0):Fh%(Cn%,0)=-1
551 IF Fh%(Cn%,1)>=0:SYS"Font_LoseFont",Fh%(Cn%,1):Fh%(Cn%,1)=-1
552 PROCGF(Cn%,0,(Hp%(Cn%,3)!92*Te),(Hp%(Cn%,3)!92*Te),Font$)
553 Hp%(Cn%,3)!120=Hp%(Cn%,3)!92+FNSHD(Fh%(Cn%,0))
554 PROCGF(Cn%,1,(Gp(Cn%,6)/Gp(Cn%,4))*Gp(Cn%,8),(Gp(Cn%,6)/Gp(Cn%,4))*Gp(Cn%,8),Font$)
555 PROCPG(Cn%)
556 PROCXN(Cn%)
557 PROCYN(Cn%)
558 Hp%(Cn%,3)!124=FNSW(Fh%(Cn%,0),F$(Cn%))
559 PROCGD(Cn%)
560 PROCow(Ga%(Cn%),0,FNBd):CW%=Ga%(Cn%)
561 ELSE
562 !Wb%=Gw%(Cn%):SYS"Wimp_GetWindowState",,Wb%
563 !Wb%=Gw%(Cn%):SYS"Wimp_OpenWindow",,Wb%
564 ENDIF
565 !Wb%=Gc%(Cn%):SYS"XWimp_CloseWindow",,Wb%:Gc%(Cn%)=Gc%(Cn%)OR&80000000
566 IF Ag%(Cn%)=Cn% Ag%(Cn%)=TRUE:PROCCe(Cn%)
567 IF Dy% ORMW%<>TRUE M%=M%AND&FFFFFFFE ELSE M%=M%OR1
568ENDPROC
569DEF PROCSUP
570IF Gc%(Cn%)=-1 Gc%(Cn%)=FNLNW(Ph$+"Templates","Wait") ELSE Gc%(Cn%)=Gc%(Cn%)AND&7FFFFFFF
571 !Wb%=Gc%(Cn%):Wb%!4=1:SYS"Wimp_GetIconState",,Wb%
572 Percent=Wb%!16-6
573 !Wb%=Gc%(Cn%):Wb%!4=2:SYS"Wimp_GetIconState",,Wb%
574 Percent=((Percent-Wb%!8)/Gp(Cn%,13))*Gp(Cn%,11)
575 Progress=Wb%!8
576 Wb%!16=INT(Progress)+2:SYS"Wimp_DeleteIcon",,Wb%:
577 Wb%!4=Wb%!0:SYS"Wimp_CreateIcon",,Wb%+4
578 Gc%(Cn%)=FNCW(Gc%(Cn%))
579 PROCow(Gc%(Cn%),FNFt1*20,-1)
580 SYS"Wimp_Poll",&E1972,Wb%
581ENDPROC
582DEF FNBd
583LOCAL n%,n1%:n%=-1
584IF MW%<>TRUE =MW%
585REPEAT
586n%+=1
587IF Gc%(n%)>0 !Wb%=Gc%(n%):SYS"Wimp_GetWindowInfo",,Wb% ELSE Wb%!28=0
588UNTIL n%>=Ng% OR Wb%!28=-1
589IF Wb%!28>=0 =-1
590REPEAT
591n1%=-1
592REPEAT
593n1%+=1
594IF Gc%(n1%)>0 !Wb%=Gc%(n1%):SYS"Wimp_GetWindowInfo",,Wb% ELSE Wb%!28=0
595UNTIL n1%>=Ng% OR Wb%!28=Gc%(n%)
596IF Wb%!28=Gc%(n%) n%=n1%:Wb%!28=Gc%(n%)
597UNTIL Wb%!28<>Gc%(n%)
598=Gc%(n%)
599DEF PROCLF(N%)
600LOCAL S$,n%:n%=-1
601Z%=OPENIN(Ph$+"Formula")
602REPEAT
603n%+=1
604INPUT#Z%,S$
605UNTIL EOF#Z% ORn%>=N%
606CLOSE#Z%
607PROCLS(Gw%(N%),10,S$)
608ENDPROC
609DEF PROCMess(R%,B%)
610LOCAL r%
611SWAP B%!12,B%!8
612CASE B%!16 OF
613WHEN0:Quit%=TRUE:SYS"Wimp_SendMessage",19,B%,B%!4
614WHEN1:
615WHEN2:PROCDS(B%)
616WHEN3:IF B%!40=&FFD PROCLL(B%,0)
617WHEN&400C0:
618 SYS"Wimp_DecodeMenu",,CM%,B%+32,Wb%
619 CASE $Wb% OF
620 WHEN"Save":
621 PROCLS(Dw%,2,DP$+STR$(FNFF(DP$)))
622 PROCLS(Log%,2,LP$+STR$(FNFF(LP$)))
623 SYS"Wimp_CreateSubMenu",,Save%,B%!24,B%!28
624 SYS"Wimp_SendMessage",19,B%,B%!4
625 WHEN"Load":PROCLM(B%!24,B%!28,LP$)
626 WHEN"Load graph":PROCLM(B%!24,B%!28,LP$)
627 WHEN"Zoom":
628 Zn%=FNFindW(CW%)
629 PROCLN(Zoom%,0,Hp%(Zn%,3)!184)
630 PROCLN(Zoom%,1,Hp%(Zn%,3)!188)
631 !Wb%=Zoom%:SYS"Wimp_GetWindowInfo",,Wb%
632 Wb%!12=(Wb%!12-Wb%!4)+B%!24:Wb%!4=B%!24
633 Wb%!8=B%!28-(Wb%!16-Wb%!8):Wb%!16=B%!28
634 SYS"Wimp_OpenWindow",,Wb%
635 SYS"Wimp_SendMessage",19,B%,B%!4
636 ENDCASE
637ENDCASE
638ENDPROC
639DEF PROCSD(N%)
640LOCAL P$,R%,W%,F$,L%,F%,H%:H%=-1
641ON ERROR LOCAL SYS"XOS_Find",0,H%
642W%=Wb%
643P$=FNReS(Dw%,2)
644F%=FNFontDef(N%,Wb%)
645$Wb%="Draw"
646Wb%!4=201
647Wb%!8=0
648$(Wb%+12)="Graph "
649Wb%!24=Hp%(N%,3)!48*256:Wb%!28=Hp%(N%,3)!52*256
650Wb%!32=Wb%!24+Hp%(N%,3)!56*256:Wb%!36=Wb%!28+Hp%(N%,3)!60*256
651SYS"OS_Find",131,P$ TO H%
652IF H%<>0 THEN
653SYS"OS_GBPB",2,H%,Wb%,40
654PROCWFT(N%,H%)
655PROCWFTt(N%,F$(N%),H%,Hp%(N%,3)!64,Hp%(N%,3)!132,Hp%(N%,3)!72,Hp%(N%,3)!76)
656PROCWFTt(N%,FNReS(Gw%(N%),11),H%,Hp%(N%,3)!140,Hp%(N%,3)!136,Hp%(N%,3)!164,Hp%(N%,3)!160)
657PROCWFTt(N%,FNReS(Gw%(N%),12),H%,Hp%(N%,3)!148,Hp%(N%,3)!136,Hp%(N%,3)!164,Hp%(N%,3)!160)
658PROCWFTt(N%,FNReS(Gw%(N%),13),H%,Hp%(N%,3)!200,Hp%(N%,3)!172,Hp%(N%,3)!164,Hp%(N%,3)!160)
659PROCWFTt(N%,FNReS(Gw%(N%),14),H%,Hp%(N%,3)!208,Hp%(N%,3)!180,Hp%(N%,3)!164,Hp%(N%,3)!160)
660PROCWPO(N%,Hp%(N%,0),Hp%(N%,4),H%)
661PROCWPO(N%,Hp%(N%,0)+Hp%(N%,4),Hp%(N%,1)-Hp%(N%,4),H%)
662SYS"OS_Args",4,H% TO ,,Fs%
663SYS"OS_Find",0,H%
664SYS"OS_File",18,P$,&AFF
665ENDIF
666IF LEFT$(P$,LEN(DP$))<>DP$ DP$=P$
667SYS"Wimp_CreateMenu",,-1:MOpen%=FALSE
668ENDPROC
669DEF PROCSL(N%)
670LOCAL P$,R%,F$,P%,F%,H%:H%=-1
671ON ERROR LOCAL SYS"XOS_Find",0,H%
672P$=FNReS(Log%,2)
673SYS"OS_Find",131,P$ TO H%
674IF H%<>0 THEN
675SYS"OS_GBPB",2,H%,Log$+CHR$(&D),LEN(Log$)+1
676SYS"OS_GBPB",2,H%,F$(N%)+CHR$(&D),LEN(F$(N%))+1
677FOR P%=10 TO19
678SYS"OS_GBPB",2,H%,FNReS(Gw%(N%),P%)+CHR$(&D),LEN(FNReS(Gw%(N%),P%))+1
679NEXT
680SYS"OS_GBPB",2,H%,FNReS(Gw%(N%),30)+CHR$(&D),LEN(FNReS(Gw%(N%),30))+1
681FOR P%=0 TO19
682SYS"OS_GBPB",2,H%,STR$(Gp(N%,P%))+CHR$(&D),LEN(STR$(Gp(N%,P%)))+1
683NEXT
684SYS"OS_GBPB",2,H%,STR$(OS1)+CHR$(&D),LEN(STR$(OS1))+1
685SYS"OS_GBPB",2,H%,FNReS(Gw%(N%),5)+CHR$(&D),LEN(FNReS(Gw%(N%),5))+1
686FOR P%=0 TO5
687!Wb%=Hp%(N%,P%)
688SYS"OS_GBPB",2,H%,Wb%,4
689NEXT
690SYS"OS_GBPB",2,H%,Hp%(N%,3),Ts%
691SYS"OS_GBPB",2,H%,Hp%(N%,0),Hp%(N%,4)
692SYS"OS_GBPB",2,H%,Hp%(N%,0)+Hp%(N%,4),Hp%(N%,1)-Hp%(N%,4)
693SYS"OS_Args",4,H% TO ,,Fs%
694SYS"OS_Find",0,H%
695SYS"OS_File",18,P$,&FFD
696ENDIF
697IF LEFT$(P$,LEN(LP$))<>LP$ LP$=P$
698SYS"Wimp_CreateMenu",,-1:MOpen%=FALSE
699ENDPROC
700DEF PROCLL(B%,v%)
701LOCAL C%,P$,Et%,Lt%,os1:H%=-1
702ON ERROR LOCAL SYS"XOS_Find",0,H%
703C%=B%+43
704IF FNFt<0 THEN
705SYS"Wimp_ReportError",STRING$(4,CHR$(0))+"Sorry, all slots occupied.",1,"Graph"
706ENDPROC
707ENDIF
708REPEAT:C%+=1:UNTIL?C%=0 OR?C%=&D
709?C%=&D
710P$=$(B%+44)
711B%!12=B%!8
712B%!16=4
713IF v%=0 SYS"Wimp_SendMessage",17,B%,B%!4
714SYS"OS_Find",67,P$ TO H%
715IF H%<>0 THEN
716SYS"OS_GBPB",4,H%,Wb%,LEN(Log$)+1
717IF$Wb%=Log$ THEN
718Gn%=FNFt
719IF Gw%(Gn%)=0 Gw%(Gn%)=FNLNW(Ph$+"Templates","PlotWindow"):Gw%(Gn%)=FNCW(Gw%(Gn%))
720F$(Gn%)=FNRS(H%)
721FOR P%=10 TO19
722PROCLS(Gw%(Gn%),P%,FNRS(H%))
723NEXT
724PROCLS(Gw%(Gn%),30,FNRS(H%))
725F$(Gn%)=FNReS(Gw%(Gn%),10)
726PROCRM(Gn%)
727FOR P%=0 TO19
728Gp(Gn%,P%)=EVAL(FNRS(H%))
729NEXT
730os1=EVAL(FNRS(H%))/OS1
731Gp(Gn%,8)=Gp(Gn%,8)*os1:Gp(Gn%,9)=Gp(Gn%,9)*os1
732PROCLS(Gw%(Gn%),5,FNRS(H%))
733FOR P%=0 TO5
734SYS"OS_GBPB",4,H%,Wb%,4 TO ,,,,Lt%
735Hp%(Gn%,P%)=!Wb%
736NEXT
737Hp%(Gn%,0)=0:Hp%(Gn%,3)=0
738SYS"OS_Args",2,H% TO ,,Et%
739IF Et%-Lt%=Hp%(Gn%,1)+Ts% THEN
740PROCCM(Gn%,3,Ts%)
741PROCCM(Gn%,0,Hp%(Gn%,1))
742SYS"OS_GBPB",4,H%,Hp%(Gn%,3),Ts%
743SYS"OS_GBPB",4,H%,Hp%(Gn%,0),Hp%(Gn%,4)
744SYS"OS_GBPB",4,H%,Hp%(Gn%,0)+Hp%(Gn%,4),Hp%(Gn%,1)-Hp%(Gn%,4)
745FOR C%=0TO 180 STEP4:Hp%(Gn%,3)!C%=Hp%(Gn%,3)!C%*os1:NEXT
746FOR C%=192TO 212 STEP4:Hp%(Gn%,3)!C%=Hp%(Gn%,3)!C%*os1:NEXT
747PROCSI(SW%,2):PROCSI(SW%,1):PROCSFg(SW%,1,0)
748!Wb%=Gw%(Gn%):SYS"Wimp_CloseWindow",,Wb%
749Ga%(Gn%)=FNCPlotA(PA%):d%=20
750IF FNFt=-1 THEN
751PROCSe(IM%,3):PROCSe(On%,1):PROCSe(On%,4)
752PROCSe(On%,8):PROCSe(IM%,4)
753ELSE PROCUnSe(IM%,3)
754ENDIF
755PROCGF(Gn%,0,(Hp%(Gn%,3)!92*Te),(Hp%(Gn%,3)!92*Te),Font$)
756PROCGF(Gn%,1,(Gp(Gn%,6)/Gp(Gn%,4))*Gp(Gn%,8),(Gp(Gn%,6)/Gp(Gn%,4))*Gp(Gn%,8),Font$)
757Ga%(Gn%)=FNCWW(Ga%(Gn%),Hp%(Gn%,3)!88,Hp%(Gn%,3)!84,Gn%,d%)
758PROCow(Ga%(Gn%),0,FNBd):CW%=Ga%(Gn%)
759ELSE SYS"Wimp_ReportError",STRING$(4,CHR$(0))+"Data file corrupt",1,"Graph"
760PROCCe(Gn%)
761ENDIF
762ELSE SYS"Wimp_ReportError",STRING$(4,CHR$(0))+"Data file incorrectly formated, please check its origin.",1,"Graph"
763ENDIF
764SYS"OS_Find",0,H%
765ENDIF
766ENDPROC
767DEF FNFF(P$)
768LOCAL R%,Q$
769SYS"OS_FSControl",28,P$+".^" TO ,,,r%:r%+=1
770SYS"OS_Find",67,P$+STR$(r%) TO R%
771IF R%=0 =r%
772WHILE R%>0ANDr%>0
773r%-=1
774SYS"OS_Find",0,R%
775SYS"OS_Find",67,P$+STR$(r%) TO R%
776ENDWHILE
777IF R%>0 SYS"OS_Find",0,R%
778=r%
779DEF PROCGD(N%)
780!Wb%=Ga%(N%):SYS"Wimp_GetWindowInfo",,Wb%
781Hp%(N%,3)!48=Wb%!4:Hp%(N%,3)!52=Wb%!8
782Hp%(N%,3)!56=Hp%(N%,3)!88:Hp%(N%,3)!60=Hp%(N%,3)!92
783Hp%(N%,3)!64=Hp%(N%,3)!96:Hp%(N%,3)!68=Hp%(N%,3)!100
784SYS"Font_ReadDefn",Fh%(N%,0),Wb% TO ,Wb%,Hp%(N%,3)!72,Hp%(N%,3)!76
785Hp%(N%,3)!160=Hp%(N%,3)!156
786Hp%(N%,3)!164=Hp%(N%,3)!152
787Hp%(N%,3)!80=Hp%(N%,3)!84
788Hp%(N%,3)!136=Hp%(N%,3)!116
789Hp%(N%,3)!140=Hp%(N%,3)!128
790Hp%(N%,3)!148=Hp%(N%,3)!144
791Hp%(N%,3)!172=Hp%(N%,3)!168
792Hp%(N%,3)!180=Hp%(N%,3)!176
793Hp%(N%,3)!184=1:Hp%(N%,3)!188=1
794Hp%(N%,3)!192=Hp%(N%,3)!112
795Hp%(N%,3)!200=Hp%(N%,3)!196
796Hp%(N%,3)!208=Hp%(N%,3)!204
797PROCTT(N%)
798ENDPROC
799DEF FNCW(W%)
800LOCAL X%,Y%
801!Wb%=W%:SYS"Wimp_GetWindowInfo",,Wb%
802X%=Wb%!12-Wb%!4
803Y%=Wb%!16-Wb%!8
804Wb%!4=(FNOSX-(Wb%!12-Wb%!4))/2
805Wb%!8=(FNOSY-(Wb%!16-Wb%!8))/2
806Wb%!12=Wb%!4+X%
807Wb%!16=Wb%!8+Y%
808SYS"Wimp_DeleteWindow",,Wb%
809SYS"Wimp_CreateWindow",,Wb%+4 TO W%
810=W%
811DEF PROCDrag(B%)
812LOCAL Ds%
813SYS"Wimp_GetIconState",,B%+12
814B%!16=5
815!Wb%=B%!12:SYS"Wimp_GetWindowState",,Wb%
816B%!20+=Wb%!4:B%!24=Wb%!16+B%!24
817B%!28+=Wb%!4:B%!32=Wb%!16+B%!32
818B%!36=0:B%!40=0:B%!44=FNOSX:B%!48=FNOSY
819DW%=B%!12
820SYS"OS_Byte",161,&1C TO ,,Ds%
821Ds%=(Ds%AND2)<>0
822IF Ds% THEN
823SYS"DragASprite_Start",&A1,1,"file_"+STR$~(Df%),B%+20,B%+36
824ELSE SYS"Wimp_DragBox",,B%+12
825ENDIF
826ENDPROC
827DEF PROCDB(B%,N%)
828Dg%=TRUE
829B%!16=6
830!Wb%=B%!12:SYS"Wimp_GetWindowInfo",,Wb%
831B%!20=!B%+2:B%!24=B%!4
832B%!28=!B%+2:B%!32=B%!4
833B%!36=Wb%!4:B%!40=Wb%!8:B%!44=Wb%!12:B%!48=Wb%!16
834B%!56=FNXGP(N%,Gp(N%,0))
835IF B%!56>B%!36 B%!36=B%!56
836B%!56=FNXGP(N%,Gp(N%,1))
837IF B%!56<B%!44 B%!44=B%!56
838B%!56=FNYGP(N%,Gp(N%,3))
839IF B%!56<B%!48 B%!48=B%!56
840B%!56=FNYGP(N%,Gp(N%,2))
841IF B%!56>B%!40 B%!40=B%!56
842B%!52=0:B%!56=0:B%!60=0:B%!64=0
843SYS"Wimp_DragBox",,B%+12
844ENDPROC
845
846DEF PROCDE
847LOCAL P%,p%
848P$=FNReS(DW%,2)
849REPEAT
850P%+=1
851p%=P%
852P%=INSTR(P$,".",P%)
853UNTIL P%=0
854P$=MID$(P$,p%,12)
855SYS"Wimp_GetPointerInfo",,Wb%
856Wb%!20=Wb%!12:Wb%!24=Wb%!16
857Wb%!28=Wb%!0:Wb%!32=Wb%!4
858Wb%!36=0:Wb%!40=Df%
859$(Wb%+44)=LEFT$(P$,LEN(P$))+CHR$(0)
860!Wb%=44+LEN($(Wb%+44))+(4-(LEN($(Wb%+44))MOD4))MOD4
861Wb%!4=0:Wb%!8=0
862Wb%!12=0:Wb%!16=1
863SYS"Wimp_SendMessage",17,Wb%,Wb%!20,Wb%!24
864ENDPROC
865DEF PROCDS(B%)
866LOCAL P$,C%,Fs%:C%=B%+43
867P$=LP$
868IF DW%=Dw% P$=DP$
869REPEAT:C%+=1:UNTIL?C%=0
870?C%=&D
871PROCLS(DW%,2,$(B%+44)):?C%=&D
872IF DW%=Dw% PROCSD(Sn%) ELSE PROCSL(Sn%)
873PROCLS(DW%,2,P$)
874IF DW%=Dw% DP$=P$ ELSE LP$=P$
875B%!36=Fs%:B%!16=3
876SYS"Wimp_SendMessage",17,B%,B%!4
877ENDPROC
878DEF PROCPK(B%)
879IF B%!24=&D PROCCt(Gn%):ENDPROC
880IF B%!24=&18A THEN
881IF B%!4>=10 ANDB%!4<19 SYS"Wimp_SetCaretPosition",!B%,B%!4+1,B%!8,B%!12,-1,LEN(FNReS(!B%,B%!4+1))
882IF B%!4=19 SYS"Wimp_SetCaretPosition",!B%,30,B%!8,B%!12,-1,LEN(FNReS(!B%,30))
883ELSE
884IF B%!24=&19A THEN
885IF B%!4>10 ANDB%!4<=19 SYS"Wimp_SetCaretPosition",!B%,B%!4-1,B%!8,B%!12,-1,LEN(FNReS(!B%,B%!4-1))
886IF B%!4=30 SYS"Wimp_SetCaretPosition",!B%,19,B%!8,B%!12,-1,LEN(FNReS(!B%,19))
887ENDIF
888ENDIF
889ENDPROC
890DEF PROCZK(B%)
891IF B%!4=0 THEN
892SYS"Wimp_SetCaretPosition",!B%,1,B%!8,B%!12,-1,B%!20
893ELSE PROCZS(Zn%)
894IF Wb%!28=-1 Wb%!28=Zoom%
895SYS"Wimp_OpenWindow",,Wb%
896ENDIF
897ENDPROC
898DEF PROCZS(Zn%)
899LOCAL x%,X%,R,u%,v%,w%
900u%=Hp%(Zn%,3)!184:v%=Hp%(Zn%,3)!188
901Hp%(Zn%,3)!184=FNRN(Zoom%,0)
902Hp%(Zn%,3)!188=FNRN(Zoom%,1)
903IF Hp%(Zn%,3)!184<=0 Hp%(Zn%,3)!184=1
904IF Hp%(Zn%,3)!188<=0 Hp%(Zn%,3)!188=1
905R=Hp%(Zn%,3)!184/Hp%(Zn%,3)!188
906IF (Hp%(Zn%,3)!56*R*Gp(Zn%,10))/FNOSX>20 THEN
907PROCLN(Zoom%,0,u%):PROCLN(Zoom%,1,v%)
908Hp%(Zn%,3)!184=u%:Hp%(Zn%,3)!188=v%
909R=Hp%(Zn%,3)!184/Hp%(Zn%,3)!188
910!Wb%=Ga%(Zn%):SYS"Wimp_GetWindowInfo",,Wb%
911ENDPROC
912ENDIF
913!Wb%=Ga%(Zn%):SYS"Wimp_GetWindowInfo",,Wb%
914w%=!Wb%
915SYS"Wimp_DeleteWindow",,Wb%
916x%=Wb%!4:X%=Wb%!12
917Wb%!12=Wb%!4+(Hp%(Zn%,3)!56*R):Wb%!56=Wb%!48+(Hp%(Zn%,3)!56*R)
918Hp%(Zn%,3)!88=Hp%(Zn%,3)!56*R:Hp%(Zn%,3)!84=Hp%(Zn%,3)!80*R
919SYS"Wimp_CreateWindow",,Wb%+4 TO Ga%(Zn%)
920PROCLN(Gw%(Zn%),19,INT(Gp(Zn%,16)*R))
921PROCCS(Zn%,-1)
922!Wb%=Ga%(Zn%):SYS"Wimp_GetWindowInfo",,Wb%
923SYS"Wimp_DeleteWindow",,Wb%
924Wb%!4=x%:Wb%!12=X%
925SYS"Wimp_CreateWindow",,Wb%+4 TO Ga%(Zn%)
926IF w%=CW% CW%=Ga%(Zn%)
927ENDPROC
928DEF PROCIZ(I%)
929Hp%(Zn%,3)!(168+I%*4)=(FNRN(Zoom%,I%)+1)AND7
930IF Hp%(Zn%,3)!(168+I%*4)=0 Hp%(Zn%,3)!(168+I%*4)=7
931PROCLN(Zoom%,I%,Hp%(Zn%,3)!(168+I%*4))
932ENDPROC
933DEF PROCDZ(I%)
934Hp%(Zn%,3)!(168+I%*4)=FNRN(Zoom%,I%)-1
935IF Hp%(Zn%,3)!(168+I%*4)<=0 Hp%(Zn%,3)!(168+I%*4)=1
936PROCLN(Zoom%,I%,Hp%(Zn%,3)!(168+I%*4))
937ENDPROC
938DEF FNRS(H%)
939LOCAL B$,b%
940REPEAT
941SYS"OS_GBPB",4,H%,Wb%,1 TO ,,,b%
942IF b%>0 =" "
943B$=B$+CHR$(?Wb%)
944UNTIL ?Wb%=&D
945=B$
946DEF PROCLM(X%,Y%,P$)
947LOCAL k%,r%,p%
948SYS"OS_FSControl",28,P$+".^" TO ,,,r%
949IF LMenu%<>0 LMenu%=FNHF(LMenu%)
950LMenu%=FNHCm((r%+1)*24+28)
951$LMenu%="Log files":LMenu%!12=&70207:LMenu%!16=176
952LMenu%!20=44:LMenu%!24=0
953p%=28
954$(LMenu%+p%+12)="None"
955WHILE r%>=0
956!h%=0
957SYS"OS_GBPB",10,P$+".^",h%,1,k%,36,"*" TO ,,,,r%
958h%?33=&D
959k%+=1
960LMenu%!p%=0:LMenu%!(p%+4)=-1
961LMenu%!(p%+8)=&7000039
962IF (!h%AND&FFFFFF00)=&FFFFFD00 AND r%>=0 ANDh%!16=1 ANDINSTR($(h%+20),CHR$(0))>1THEN
963$(LMenu%+p%+12)=LEFT$($(h%+20),INSTR($(h%+20),CHR$(0))-1)+CHR$(&D)
964LMenu%!(p%+4)=LDM%
965p%+=24
966ENDIF
967ENDWHILE
968IF p%<52 p%=52
969LMenu%!(p%-24)=&80
970SYS"Wimp_CreateSubMenu",,LMenu%,X%,Y%
971ENDPROC
972
973DEF PROCAP(N%,D$)
974IF N%>=0 THEN
975 IF FNInGraph(N%) THEN
976 IF NOTIg% SYS"OS_SpriteOp",256+36,Spt%,D$,2,0,0,0:Ig%=TRUE
977 IF Cd%<>TRUE PROCUC(MW%)
978 ELSE
979 IF Ig% OSCLI"POINTER 1":Ig%=FALSE:PROCNC
980 ENDIF
981ELSE OSCLI"POINTER 1":Ig%=FALSE
982ENDIF
983ENDPROC
984DEF FNInGraph(N%)
985LOCAL X,Y
986IF N%<0 =FALSE
987!Wb%=Ga%(N%):SYS"Wimp_GetWindowInfo",,Wb%
988SYS"Wimp_GetPointerInfo",,Wb%+60
989IF Wb%!72<>!Wb% =FALSE
990IF Wb%!60<Wb%!4ORWb%!60>Wb%!12 =FALSE
991IF Wb%!64<Wb%!8ORWb%!64>Wb%!16 =FALSE
992X=FNXP(N%,Wb%!60)
993Y=FNYP(N%,Wb%!64)
994IF X<Gp(N%,0) ORX>Gp(N%,1) =FALSE
995IF Y<Gp(N%,2) ORY>Gp(N%,3) =FALSE
996=TRUE
997DEF FNPMove(X%,Y%)
998SYS"Wimp_GetPointerInfo",,Wb%
999IF X%=!Wb%ANDY%=Wb%!4 =FALSE
1000PX%=!Wb%:PY%=Wb%!4
1001=TRUE
1002DEF PROCBE(B%)
1003LOCAL n%,w%,i%,x%,x1%,y%,y1%
1004IF Cd%<>TRUE !Wb%=Cd%:SYS"Wimp_CloseWindow",,Wb%:Cd%=TRUE
1005OSCLI"POINTER 1":Ig%=FALSE
1006IF NOTDy% M%=M%OR1
1007n%=FNFindW(MW%)
1008Dg%=FALSE
1009w%=FNFt
1010IF n%<0 ENDPROC
1011IF w%<0 THEN
1012SYS"Wimp_ReportError",STRING$(4,CHR$(0))+"Sorry, all slots occupied.",1,"Graph"
1013MW%=TRUE
1014ENDPROC
1015ENDIF
1016!Wb%=MW%:SYS"Wimp_GetWindowInfo",,Wb%
1017MW%=TRUE
1018IF!B%>B%!8 SWAP !B%,B%!8
1019IF B%!4>B%!12 SWAP B%!4,B%!12
1020!Wb%=Gw%(Gn%):SYS"XWimp_CloseWindow",,Wb%
1021Gn%=w%
1022IF Hp%(Gn%,3)=0 PROCCM(Gn%,3,Ts%)
1023IF Gw%(Gn%)=0 THEN
1024 Gw%(Gn%)=FNLNW(Ph$+"Templates","PlotWindow")
1025ENDIF
1026 PROCLS(Gw%(Gn%),5,FNReS(Gw%(n%),5))
1027 PROCLS(Gw%(Gn%),10,FNReS(Gw%(n%),10))
1028 PROCLN(Gw%(Gn%),11,FNXPP(n%,!B%)):PROCLN(Gw%(Gn%),12,FNXPP(n%,B%!8))
1029 PROCLN(Gw%(Gn%),13,FNYPP(n%,B%!4)):PROCLN(Gw%(Gn%),14,FNYPP(n%,B%!12))
1030 FOR i%=11 TO14
1031 PROCLS(Gw%(Gn%),i%,LEFT$(FNReS(Gw%(Gn%),i%),6))
1032 NEXT
1033 IF FNCC(Gn%) THEN
1034 FOR i%=15 TO19
1035 PROCLS(Gw%(Gn%),i%,FNReS(Gw%(n%),i%))
1036 NEXT
1037 PROCLS(Gw%(Gn%),30,FNReS(Gw%(n%),30))
1038 Gw%(Gn%)=FNCW(Gw%(Gn%))
1039 PROCSM(Gn%)
1040 PROCSP(Gn%)
1041 PROCSP(Gn%)
1042 IF Hp%(Gn%,3)<>0 PROCow(Gw%(Gn%),0,-1)
1043 ENDIF
1044
1045ENDPROC
1046
1047DEF FNXP(N%,X)
1048LOCAL x%,x1%
1049Wb%!68=Ga%(N%)
1050SYS"Wimp_GetWindowInfo",,Wb%+68
1051x%=(Wb%!72-Wb%!88)+Hp%(N%,3)!96-2:x1%=((Wb%!72-Wb%!88)+(Wb%!120-Wb%!112))-Hp%(N%,3)!96-2
1052=((X-x%)/(x1%-x%))*(Gp(N%,1)-Gp(N%,0))+Gp(N%,0)
1053
1054DEF FNYP(N%,Y)
1055LOCAL y%,y1%
1056Wb%!68=Ga%(N%)
1057SYS"Wimp_GetWindowInfo",,Wb%+68
1058y1%=(Wb%!84-Wb%!92)-(Wb%!124-Wb%!116):y%=y1%+Hp%(N%,3)!100:y1%=y1%+Hp%(N%,3)!92-Hp%(N%,3)!100
1059=((Y-y%)/(y1%-y%))*(Gp(N%,3)-Gp(N%,2))+Gp(N%,2)
1060
1061DEF FNXGP(N%,X)
1062!Wb%=Ga%(N%)
1063SYS"Wimp_GetWindowInfo",,Wb%
1064=(((X-Gp(N%,0))/(Gp(N%,1)-Gp(N%,0)))*(Hp%(N%,3)!88-2*Hp%(N%,3)!96))+(Wb%!4-Wb%!20)+Hp%(N%,3)!96
1065
1066DEF FNYGP(N%,Y)
1067!Wb%=Ga%(N%)
1068SYS"Wimp_GetWindowInfo",,Wb%
1069=(((Y-Gp(N%,2))/(Gp(N%,3)-Gp(N%,2)))*(Hp%(N%,3)!92-2*Hp%(N%,3)!100))+((Wb%!16-Wb%!24)-(Wb%!56-Wb%!48))+Hp%(N%,3)!100-2
1070
1071DEF PROCCd(W%)
1072Cd%=CdW%
1073IF Cd%=0 Cd%=TRUE:ENDPROC
1074PROCMC(W%)
1075ENDPROC
1076
1077ENDPROC
1078DEF PROCMC(W%)
1079!Wb%=CdW%:SYS"Wimp_GetWindowInfo",,Wb%
1080Wb%!60=W%:SYS"Wimp_GetWindowOutline",,Wb%+60
1081Wb%!12=Wb%!64+(Wb%!52-Wb%!44):Wb%!4=Wb%!64
1082Wb%!16=Wb%!68:Wb%!8=Wb%!16-(Wb%!56-Wb%!48)
1083Wb%!28=-1
1084SYS"Wimp_OpenWindow",,Wb%
1085ENDPROC
1086
1087DEF PROCUC(W%)
1088LOCAL n%,x,y
1089n%=FNFindW(W%)
1090SYS"Wimp_GetPointerInfo",,Wb%+60
1091x=FNXPP(n%,Wb%!60)
1092y=FNYPP(n%,Wb%!64)
1093PROCLN(Cd%,1,x)
1094PROCLN(Cd%,4,y)
1095ENDPROC
1096
1097DEF PROCNC
1098PROCLS(Cd%,1,"Outside Graph")
1099PROCLS(Cd%,4,"Outside Graph")
1100ENDPROC
1101
1102
1103DEF FNXPP(N%,X%)
1104LOCAL x
1105x=FNXP(N%,X%)
1106IF x<Gp(N%,0) x=Gp(N%,0)
1107IF x>Gp(N%,1) x=Gp(N%,1)
1108=x
1109
1110DEF FNYPP(N%,Y%)
1111LOCAL y
1112y=FNYP(N%,Y%)
1113IF y<Gp(N%,2) y=Gp(N%,2)
1114IF y>Gp(N%,3) y=Gp(N%,3)
1115=y
1116
1117DEF FNSW(F%,S$)
1118LOCAL x%
1119SYS"Font_SetFont",F%
1120SYS"Font_StringBBox",,S$ TO ,x%,,F%
1121SYS"Font_ConverttoOS",,F%-x% TO ,x%
1122=x%
1123
1124
1125DEF FNSHD(F%)
1126LOCAL Y1%,Y2%
1127SYS"Font_ReadInfo",F% TO ,,Y1%,,Y2%
1128SYS"Font_ReadDefn",F%,Wb% TO ,,,F%
1129SYS"Font_ConverttoOS",,1,F%*62.5 TO ,,F%
1130=(Y2%-Y1%)-F%
1131DEF PROCGF(N%,n%,SX%,SY%,F$)
1132SYS"Font_Converttopoints",,SX%,SY% TO ,SX%,SY%
1133SX%=SX%/1000:SY%=SY%/1000
1134IF SY%>max3% SYS"Font_SetFontMax",Max0%,Max1%,Max2%,SY%:max3%=SY%
1135SYS"Font_FindFont",,F$,SX%*16,SY%*16,0,0 TO Fh%(N%,n%)
1136ENDPROC
1137DEF PROCLFs
1138LOCAL N%,n%
1139WHILE n%<=1
1140N%=0
1141WHILE N%<=Ng%
1142IF Fh%(N%,n%)>=0 SYS"Font_LoseFont",Fh%(N%,n%)
1143Fh%(N%,n%)=TRUE
1144N%+=1
1145ENDWHILE
1146n%+=1
1147ENDWHILE
1148PROCLDF
1149ENDPROC
1150DEF PROCLDF
1151LOCAL N%,P%
1152FOR P%=0TO255
1153WHILE Font%?P%>0
1154SYS"Font_LoseFont",P%
1155Font%?P%-=1
1156ENDWHILE
1157NEXT
1158ENDPROC
1159DEF FNFN(F$,B%)
1160LOCAL C%
1161REPEAT
1162SYS"Font_ListFonts",,B%,C%,-1 TO ,,C%
1163UNTIL F$=$B% ORC%<0
1164=C%
1165DEF PROCWFTt(N%,T$,H%,X%,Y%,XF%,YF%)
1166LOCAL PR%
1167Wb%!32=FNFontDef(N%,Wb%)
1168!Wb%=1
1169Wb%!8=Hp%(N%,3)!48*256:Wb%!12=Hp%(N%,3)!52*256
1170Wb%!16=Wb%!8+Hp%(N%,3)!56*256:Wb%!20=Wb%!12+Hp%(N%,3)!60*256
1171Wb%!24=0
1172Wb%!28=&FFFFFF00
1173Wb%!36=XF%*40
1174Wb%!40=YF%*40
1175Wb%!44=X%*256
1176Wb%!48=Y%*256
1177$(Wb%+52)=T$+STRING$(4-((LEN(T$))MOD4),CHR$(0))
1178Wb%!4=LEN($(Wb%+52))+52
1179SYS"OS_Args",2,H% TO ,,PR%
1180SYS"OS_Args",1,H%,PR%
1181SYS"OS_GBPB",1,H%,Wb%,Wb%!4,PR%
1182ENDPROC
1183DEF PROCWPO(N%,P%,L%,H%)
1184LOCAL PR%
1185!Wb%=2
1186Wb%!4=40+L%
1187Wb%!8=Hp%(N%,3)!48*256:Wb%!12=Hp%(N%,3)!52*256
1188Wb%!16=Wb%!8+Hp%(N%,3)!56*256:Wb%!20=Wb%!12+Hp%(N%,3)!60*256
1189Wb%!24=-1
1190Wb%!28=0
1191Wb%!32=0
1192Wb%!36=0
1193SYS"OS_Args",2,H% TO ,,PR%
1194SYS"OS_Args",1,H%,PR%
1195SYS"OS_GBPB",1,H%,Wb%,40,PR%
1196PROCCM(N%,5,L%+4)
1197Hp%(N%,5)!0=0:Hp%(N%,5)!4=L%
1198SYS"Draw_TransformPath",P%,Hp%(N%,5),Hp%(N%,3)+24,0 TO Point%
1199SYS"OS_Args",2,H% TO ,,PR%
1200SYS"OS_Args",1,H%,PR%
1201SYS"OS_GBPB",1,H%,Hp%(N%,5),L%,PR%
1202Hp%(N%,5)=FNHF(Hp%(N%,5))
1203ENDPROC
1204DEF PROCWFT(N%,H%)
1205LOCAL F%,L%,PR%,F$
1206F%=FNFontDef(N%,Wb%)
1207SYS"Font_ReadDefn",Fh%(N%,0),Wb% TO ,Wb%
1208F$=$Wb%+STRING$(4-((LEN($Wb%)+1)MOD4),CHR$(0))
1209L%=LEN(F$)+9
1210!Wb%=0:Wb%!4=L%
1211Wb%?8=F%
1212$(Wb%+9)=F$
1213SYS"OS_Args",2,H% TO ,,PR%
1214SYS"OS_Args",1,H%,PR%
1215SYS"OS_GBPB",1,H%,Wb%,L%,PR%
1216ENDPROC
1217DEF FNFontDef(N%,B%)
1218SYS"Font_ReadDefn",Fh%(N%,0),B% TO ,B%
1219=FNFN($B%,B%)
1220
1221DEF PROCHI
1222LOCAL T%
1223SYS"OS_ReadMemMapInfo" TO PS%
1224HS%=PS%
1225SYS"Wimp_SlotSize",-1,-1 TO T%
1226HL%=T%+&8000
1227SYS"Wimp_SlotSize",HL%+HS%-&8000,-1
1228SYS"OS_Heap",0,HL%,,HS%
1229ENDPROC
1230DEF FNHLF
1231LOCAL T%
1232SYS"OS_Heap",1,HL% TO ,,T%
1233=T%
1234
1235DEF FNHCm(Size%)
1236LOCAL T%
1237IF(Size%MOD PS%)=0 Size%+=4
1238SYS"XOS_Heap",2,HL%,,Size% TO ,,T%
1239IF T%<>0 THEN =T%
1240IF FNHEH(Size%)= FALSE THEN =0
1241SYS"XOS_Heap",2,HL%,,Size% TO ,,T%
1242PROCHS
1243=T%
1244DEF FNHEH(Size%)
1245LOCAL S%,F%,T%
1246S%=FNHR(HS%+Size%)
1247IF S%-HS%<0 PROCHS: =TRUE
1248SYS"XWimp_SlotSize",HL%+S%-&8000,-1 TO;F%
1249IF(F%AND1)=1 THEN=FALSE
1250SYS"OS_Heap",5,HL%,,S%-HS%
1251HS%=S%
1252=TRUE
1253
1254DEF FNHC(Bk%,Change%)
1255LOCAL N%,F%,T%,S%
1256IF Change%<0 THEN
1257SYS"OS_Heap",6,HL%,Bk% TO ,,,S%
1258IF Change%+S%<=0 =FNHF(Bk%)
1259ENDIF
1260SYS"XOS_Heap",4,HL%,Bk%,Change% TO ,,N%;F%
1261IF(F%AND1)=0 THEN
1262IF FNHLF>0 PROCHS
1263=FNCheck(N%)
1264ENDIF
1265IF FNHEH(Change%)=FALSE THEN =0
1266SYS"XOS_Heap",4,HL%,Bk%,Change% TO ,,N%;F%
1267IF(F%AND1)=0 THEN=FNCheck(N%)
1268N%=FNHEH(-Change%)
1269SYS"OS_Heap",6,HL%,Bk% TO ,,,T%
1270IF FNHEH(T%+Change%)=FALSE THEN =0
1271SYS"XOS_Heap",4,HL%,Bk%,Change% TO ,,N%;F%
1272IF(F%AND1)=0 THEN=FNCheck(N%) ELSE =0
1273
1274
1275DEF FNCheck(N%)
1276IF N%<>Bk%ANDN%<>0 =N%OR1<<31
1277=N%
1278DEF FNBS(Bk%)
1279LOCAL S%
1280SYS"OS_Heap",6,HL%,Bk% TO ,,,S%
1281=S%
1282
1283DEF FNHF(Bk%)
1284IF Bk%<=0 =0
1285SYS"OS_Heap",3,HL%,Bk%
1286PROCHS
1287=0
1288DEF PROCHS
1289LOCAL S%,T%
1290S%=HS%
1291SYS"XOS_Heap",5,HL%,,-S% TO ,,,T%
1292IF T%=-S% THEN T%=S%
1293HS%=FNHR(HS%-T%)
1294SYS"OS_Heap",5,HL%,,HS%-(S%-T%)
1295SYS"Wimp_SlotSize",HL%+HS%-&8000,-1
1296ENDPROC
1297DEF FNHR(S%)
1298LOCAL T%
1299IF(S%MOD PS%)<>0 THEN
1300T%=PS%-(S%MOD PS%)
1301S%+=T%
1302ENDIF
1303=S%
1304
1305
1306DEF FNLW(F$,W$,F%)
1307LOCAL H%,h%,f%
1308SYS"Wimp_OpenTemplate",,F$
1309SYS"XWimp_LoadTemplate",,Wb%,Icon%,Icons%+IL%,F%,W$,0 TO c%,,Icon%,,,,H%;f%
1310IF(f%AND1)=1 THEN
1311 IF c%<>&284 THEN
1312 SYS"OS_GenerateError",c%
1313 ELSE
1314 ENDIF
1315ENDIF
1316SYS"Wimp_CloseTemplate"
1317IF H%<>0 THEN
1318SYS"Wimp_CreateWindow",,Wb% TO H%
1319ELSE
1320SYS"Wimp_ReportError"," Window "+W$+" not found",1,"Graph"
1321END
1322ENDIF
1323=H%
1324DEF PROCow(H%,D%,B%)
1325!Wb%=H%
1326SYS"Wimp_GetWindowInfo",,Wb%
1327Wb%!4+=D%:Wb%!12+=D%
1328Wb%!8-=D%:Wb%!16-=D%
1329Wb%!28=B%
1330SYS"Wimp_OpenWindow",,Wb%
1331ENDPROC
1332
1333DEF PROCTW(H%)
1334IF H%<=0 ENDPROC
1335PROCow(H%,0,-1)
1336ENDPROC
1337
1338DEF FNCWW(H%,X%,Y%,n%,D%)
1339!Wb%=H%
1340SYS"Wimp_GetWindowInfo",,Wb%
1341Wb%!48=Y%:Wb%!56=0
1342Wb%!44=0:Wb%!52=X%
1343SYS"Wimp_DeleteWindow",,Wb%
1344Wb%!4=Wb%!4+n%*D%:Wb%!12=Wb%!12+n%*D%
1345Wb%!8=Wb%!8-n%*D%:Wb%!16=Wb%!16-n%*D%
1346SYS"Wimp_CreateWindow",,Wb%+4 TO H%
1347=H%
1348DEF FNIconBar(I$)
1349Buf%!0=-1:Buf%!4=0:Buf%!8=0:Buf%!12=68:Buf%!16=68
1350Buf%!20=%11010+(3<<12)
1351$(Buf%+24)=I$
1352SYS"Wimp_CreateIcon",,Buf% TO !Buf%
1353=!Buf%
1354
1355
1356DEF FNFS(F$)
1357LOCAL S%,L%
1358S%=OPENIN F$
1359L%=EXT#S%
1360CLOSE#S%
1361=L%
1362
1363DEF FNGP(W%,I%)
1364!Wb%=W%:Wb%!4=I%
1365SYS"Wimp_GetIconState",,Wb%
1366CASE Wb%!24AND&101 OF
1367 WHEN1:I%=Wb%+28
1368 WHEN&101:I%=Wb%!28
1369ENDCASE
1370=I%
1371DEF FNRN(W%,I%)
1372I%=FNGP(W%,I%)
1373IF $I%="" =1 ELSE IF EVAL($I%)=0 =1
1374=EVAL($I%)
1375
1376DEF FNRN0(W%,I%)
1377I%=FNGP(W%,I%)
1378IF $I%="" $I%="0"
1379=EVAL($I%)
1380
1381DEF PROCLN(W%,I%,N)
1382I%=FNGP(W%,I%)
1383$I%=STR$(N)
1384Wb%!8=0:Wb%!12=0
1385SYS"Wimp_SetIconState",,Wb%
1386ENDPROC
1387
1388DEF FNReS(W%,I%)
1389I%=FNGP(W%,I%)
1390=$I%
1391
1392DEF PROCLS(W%,I%,S$)
1393$(FNGP(W%,I%))=S$
1394Wb%!8=0:Wb%!12=0
1395SYS"Wimp_SetIconState",,Wb%
1396ENDPROC
1397
1398
1399DEF PROCSI(W%,I%)
1400!Wb%=W%:Wb%!4=I%
1401Wb%!8=0+1<<22:Wb%!12=Wb%!8
1402SYS"Wimp_SetIconState",,Wb%
1403ENDPROC
1404
1405DEF PROCUnSI(W%,I%)
1406!Wb%=W%:Wb%!4=I%
1407Wb%!8=0:Wb%!12=0+1<<22
1408SYS"Wimp_SetIconState",,Wb%
1409ENDPROC
1410
1411DEF FNRSelect(W%,I%)
1412!Wb%=W%:Wb%!4=I%
1413SYS"Wimp_GetIconState",,Wb%
1414=Wb%!24AND1<<21
1415
1416DEF FNRShade(W%,I%)
1417!Wb%=W%:Wb%!4=I%
1418SYS"Wimp_GetIconState",,Wb%
1419=Wb%!24AND1<<22
1420
1421DEF PROCSi(W%,I%)
1422!Wb%=W%:Wb%!4=I%
1423Wb%!8=0+1<<21:Wb%!12=Wb%!8
1424SYS"Wimp_SetIconState",,Wb%
1425ENDPROC
1426
1427DEF PROCUSI(W%,I%)
1428!Wb%=W%:Wb%!4=I%
1429Wb%!12=0+1<<21:Wb%!8=0
1430SYS"Wimp_SetIconState",,Wb%
1431ENDPROC
1432
1433DEF PROCSFg(W%,I%,V%)
1434V%=V%AND&F
1435!Wb%=W%:Wb%!4=I%
1436Wb%!8=0+V%<<12:Wb%!12=&F000
1437SYS"Wimp_SetIconState",,Wb%
1438ENDPROC
1439
1440DEF FNIconMenu(D%,D$)
1441LOCAL H%,I%,N%,J%
1442I%=28
1443H%=OPENIN(Ph$+D$)
1444INPUT#H%,D$
1445PROCBM(D%,D$)
1446REPEAT
1447INPUT#H%,D$
1448PROCMenu(D%+I%,D$)
1449N%+=1
1450I%+=24
1451UNTIL EOF#H%=TRUE
1452!(D%+I%-24)=!(D%+I%-24)OR(1<<7)
1453D%!16=D%!16+10
1454CLOSE#H%
1455=N%
1456
1457DEF PROCBM(B%,D$)
1458$B%=D$
1459B%!12=&70207
1460B%!16=LEN($B%)*16
1461B%!20=44
1462B%!24=0
1463ENDPROC
1464
1465DEF PROCMenu(B%,D$)
1466LOCAL E$:E$=D$
1467!B%=0
1468B%!4=-1
1469IF RIGHT$(D$)=">" THEN
1470 E$=LEFT$(D$,LEN(D$)-1):INPUT#H%,D$
1471 IF LEFT$(D$,1)="/" THEN
1472 IF RIGHT$(D$,LEN(D$)-1)<>" " THEN
1473 B%!4=FNLW(Ph$+"Templates",RIGHT$(D$,LEN(D$)-1),-1)
1474 ELSE B%!4=&8000:!B%=&8
1475 ENDIF
1476 ENDIF
1477 ENDIF
1478IF LEN(E$)*16>D%!16 D%!16=LEN(E$)*16
1479B%!8=&7000031
1480$(B%+12)=E$
1481ENDPROC
1482
1483DEF FNMenuSize(D$)
1484LOCAL S%,E$
1485H%=OPENIN(Ph$+D$)
1486INPUT#H%,D$
1487S%=28
1488REPEAT
1489INPUT#H%,D$
1490S%+=24
1491IF RIGHT$(D$)=">" INPUT#H%,E$:D$=LEFT$(D$,LEN(D$)-1)
1492IF LEN(D$)>=12 S%=S%+LEN(D$)+1
1493UNTIL EOF#H%=TRUE
1494CLOSE#H%
1495=S%
1496DEF PROCSe(B%,N%)
1497B%+=4:N%+=1
1498REPEAT
1499B%+=24
1500N%-=1
1501IF N%<=0 B%!8=B%!8OR(1<<22)
1502UNTIL (!B%AND&80)>0 ORN%<=0
1503ENDPROC
1504DEF PROCUnSe(B%,N%)
1505B%+=4:N%+=1
1506REPEAT
1507B%+=24
1508N%-=1
1509IF N%<=0 B%!8=B%!8AND&FFBFFFFF
1510UNTIL (!B%AND&80)>0 ORN%<=0
1511ENDPROC
1512DEF PROCTk(B%,S$)
1513B%=FNMenuItem(B%,S$)
1514IF B%=TRUE ENDPROC
1515!B%=!B%OR1
1516ENDPROC
1517DEF PROCUnTk(B%,S$)
1518B%=FNMenuItem(B%,S$)
1519IF B%=TRUE ENDPROC
1520!B%=!B%AND&FFFFFFFE
1521ENDPROC
1522DEF FNRTk(B%,S$)
1523B%=FNMenuItem(B%,S$)
1524IF B%=TRUE =TRUE
1525=!B%AND1
1526DEF FNMenuItem(B%,S$)
1527LOCAL I%
1528B%+=12
1529REPEAT
1530B%+=24
1531CASE !B%AND&101 OF
1532 WHEN1:I%=B%+4
1533 WHEN&101:I%=B%!4
1534 ENDCASE
1535UNTIL S$=$I% OR ((B%!-8)AND&80)>0
1536IF S$<>$I% =-1
1537=B%-8
1538
1539
1540DEF FNMenuWh(B%,N%)
1541B%+=4:N%+=1
1542REPEAT
1543B%+=24
1544N%-=1
1545IF N%<=0 =B%!4
1546UNTIL (!B%AND&80)>0 ORN%<=0
1547ENDPROC
1548
1549DEF PROCPlot(X)
1550LOCAL ERROR
1551ON ERROR LOCAL ENDPROC
1552Limit%=TRUE
1553IF X<>0 y=EVAL(F$(N%)) ELSE X+=I:y=EVAL(F$(N%))
1554IF y>Gp(N%,3) THEN
1555IF Q%=8 ANDX>0 x1=x1+((Gp(N%,3)-y1)/(y-y1))*(X-x1):SWAP X,x1
1556IF Q%=8 ANDX<0 x1=x1-((Gp(N%,3)-y1)/(y-y1))*(x1-X):SWAP X,x1
1557y2=y:y=Gp(N%,3):Limit%=FALSE
1558ENDIF
1559IF y<Gp(N%,2) THEN
1560IF Q%=8 ANDX>0 x1=x1+((y1-Gp(N%,2))/(y1-y))*(X-x1):SWAP X,x1
1561IF Q%=8 ANDX<0 x1=x1-((y1-Gp(N%,2))/(y1-y))*(x1-X):SWAP X,x1
1562y2=y:y=Gp(N%,2):Limit%=FALSE
1563ENDIF
1564IF Limit%=TRUE ANDQ%=7 THEN
1565IF y2>Gp(N%,3) THEN
1566IF X>0 x1=x1+((y2-Gp(N%,3))/(y2-y))*(X-x1)
1567IF X<0 x1=x1-((y2-Gp(N%,3))/(y2-y))*(x1-X)
1568y1=Gp(N%,3)
1569ENDIF
1570IF y2<Gp(N%,2) THEN
1571IF X>0 x1=x1+((Gp(N%,2)-y2)/(y-y2))*(X-x1)
1572IF X<0 x1=x1-((Gp(N%,2)-y2)/(y-y2))*(x1-X)
1573y1=Gp(N%,2)
1574ENDIF
1575PROCAdd(2):PROCAdd((x1-Gp(N%,0)-Gp(N%,4))/Gp(N%,4)):PROCAdd((y1-Gp(N%,2))/Gp(N%,5)):Q%=8:PROCAdd(Q%):PROCAdd((X-Gp(N%,0))/Gp(N%,4)):PROCAdd((y-Gp(N%,2))/Gp(N%,5))
1576ELSE IF Q%<>7 PROCAdd(Q%):PROCAdd((X-Gp(N%,0))/Gp(N%,4)):PROCAdd((y-Gp(N%,2))/Gp(N%,5))
1577ENDIF
1578IF Limit%=FALSE ANDQ%=8THEN
1579Q%=7:PROCAdd(2):PROCAdd((x1-Gp(N%,0)-Gp(N%,4))/Gp(N%,4)):PROCAdd((y-Gp(N%,2))/Gp(N%,5))
1580SWAP X,x1
1581ELSE IF Q%<>7 Q%=8
1582ENDIF
1583y1=y:x1=X
1584ENDPROC
1585DEF PROCUpDate
1586PROCUDP
1587PROCPoll(&00001800,Buf%+256)
1588ENDPROC
1589DEF PROCAdd(V%)
1590IF Hp%(N%,1)+4>=Hp%(N%,2) THEN
1591Hp%(N%,0)=FNHC(Hp%(N%,0),PS%/3)
1592Hp%(N%,0)=Hp%(N%,0)AND&7FFFFFFF
1593IF Hp%(N%,0)=0 ERROR 0,"Not enough of that there memory for Draw path"
1594Hp%(N%,2)=FNBS(Hp%(N%,0))
1595ENDIF
1596Hp%(N%,0)!Hp%(N%,1)=V%
1597Hp%(N%,1)+=4
1598ENDPROC
1599DEF PROCPL(X,Xx,Y,Yy)
1600PROCAdd(2):PROCAdd((X-Gp(N%,0))/Gp(N%,4)):PROCAdd((Y-Gp(N%,2))/Gp(N%,5))
1601PROCAdd(8):PROCAdd((Xx-Gp(N%,0))/Gp(N%,4)):PROCAdd((Yy-Gp(N%,2))/Gp(N%,5))
1602ENDPROC
1603
1604DEF PROCFR
1605LOCAL Q%,X,I
1606IF Gp(N%,20)>=Gp(N%,1) ENDPROC
1607I=Gp(N%,4)*Gp(N%,11)/20
1608X=Gp(N%,20)
1609Q%=2
1610WHILE X<Gp(N%,1)
1611PROCPlot(X)
1612PROCUpDate
1613IF Ag%(N%)=N% ORQuit% ENDPROC
1614X+=Gp(N%,4)*Gp(N%,11)
1615ENDWHILE
1616PROCPlot(Gp(N%,1))
1617ENDPROC
1618DEF PROCFL
1619LOCAL Q%,X,I
1620IF Gp(N%,20)<=Gp(N%,0) ENDPROC
1621I=-Gp(N%,4)*Gp(N%,11)/20
1622X=Gp(N%,20)
1623Q%=2
1624WHILE X>Gp(N%,0)
1625PROCPlot(X)
1626PROCUpDate
1627IF Ag%(N%)=N% ORQuit% ENDPROC
1628X-=Gp(N%,4)*Gp(N%,11)
1629ENDWHILE
1630PROCPlot(Gp(N%,0))
1631ENDPROC
1632DEF PROCPG(N%)
1633LOCAL XDatum,YDatam,X,Y,X1,Y1,XG1,XG2,YG1,YG2,XGrad,YGrad,XInt,YInt,XSub,YSub
1634LOCAL y1,y2,x1,Q%,y,Cal%,Limit%
1635y1=0:Cal%=TRUE
1636PROCSPP(N%)
1637PROCPGs(N%)
1638Hp%(N%,4)=Hp%(N%,1)
1639PROCFR
1640y1=0:x1=0
1641PROCFL
1642PROCAdd(0)
1643Hp%(N%,3)!132=Hp%(N%,3)!120
1644ENDPROC
1645DEF FNCC(N%)
1646LOCAL X
1647LOCAL ERROR
1648ON ERROR LOCAL SYS"Wimp_ReportError"," Formula syntax error in Graph ("+STR$(N%)+").",1,"!Graph":Ag%(N%)=N%:=FALSE
1649IF FNRN(Gw%(N%),12)<=FNRN(Gw%(N%),11) ORFNRN(Gw%(N%),14)<=FNRN(Gw%(N%),13) THEN
1650SYS"Wimp_ReportError"," Silly 'X' or 'Y' coords, please re-submit.",1,"!Graph"
1651=FALSE
1652ENDIF
1653X=Gp(N%,1)
1654X=EVAL(FNReS(Gw%(N%),10))
1655=TRUE
1656
1657DEF PROCPGs(N%)
1658LOCAL X,X1,Y,Y1,M%,Fs%
1659M%=FNRSelect(Gw%(N%),35)
1660XG1=Gp(N%,20):YG1=Gp(N%,21)
1661IF Gp(N%,0)+XGrad*2>Gp(N%,20) ANDM%=0 XG2=XG1+XGrad:XG3=XG1+XGrad/2:Gp(N%,14)=Gp(N%,20)-XGrad*.2 ELSE XG2=XG1-XGrad:XG3=XG1-XGrad/2:Gp(N%,14)=XG2-XGrad*.2
1662IF Gp(N%,2)+YGrad*2>Gp(N%,21) ANDM%=0 YG2=YG1+YGrad:YG3=YG1+YGrad/2:Gp(N%,15)=Gp(N%,2)-Gp(N%,7)*1.2 ELSE YG2=YG1-YGrad:YG3=YG1-YGrad/2:Gp(N%,15)=YG2-Gp(N%,7)
1663Hp%(N%,3)!116=(((Gp(N%,15)-Gp(N%,2))/Gp(N%,5))*Gp(N%,9))+Hp%(N%,3)!100
1664Hp%(N%,3)!112=((Gp(N%,14)-Gp(N%,0))/Gp(N%,4))*Gp(N%,8)
1665PROCPL(Gp(N%,20),Gp(N%,20),Gp(N%,2),Gp(N%,3))
1666PROCPL(Gp(N%,0),Gp(N%,1),Gp(N%,21),Gp(N%,21))
1667X=Gp(N%,20)
1668WHILE X<Gp(N%,1)
1669X1=X+XSub
1670 WHILE X1<X+XInt
1671 IF X1<Gp(N%,1) PROCPL(X1,X1,YG1,YG3)
1672 X1+=XSub
1673 ENDWHILE
1674X+=XInt
1675IF X>=Gp(N%,1) X=Gp(N%,1)
1676PROCPL(X,X,YG1,YG2)
1677PROCPoll(&00001800,Buf%+256)
1678IF Ag%(N%)=N% ORQuit% ENDPROC
1679ENDWHILE
1680X=Gp(N%,20)
1681WHILE X>Gp(N%,0)
1682X1=X-XSub
1683 WHILE X1>X-XInt
1684 IF X1>Gp(N%,0) PROCPL(X1,X1,YG1,YG3)
1685 X1-=XSub
1686 ENDWHILE
1687X-=XInt
1688IF X<=Gp(N%,0) X=Gp(N%,0)
1689PROCPL(X,X,YG1,YG2)
1690PROCPoll(&00001800,Buf%+256)
1691IF Ag%(N%)=N% ORQuit% ENDPROC
1692ENDWHILE
1693Y=Gp(N%,21)
1694WHILE Y<Gp(N%,3)
1695Y1=Y+YSub
1696 WHILE Y1<Y+YInt
1697 IF Y1<Gp(N%,3) PROCPL(XG1,XG3,Y1,Y1)
1698 Y1+=YSub
1699 ENDWHILE
1700Y+=YInt
1701IF Y>=Gp(N%,3) Y=Gp(N%,3)
1702PROCPL(XG1,XG2,Y,Y)
1703PROCPoll(&00001800,Buf%+256)
1704IF Ag%(N%)=N% ORQuit% ENDPROC
1705ENDWHILE
1706Y=Gp(N%,21)
1707WHILE Y>Gp(N%,2)
1708Y1=Y-YSub
1709 WHILE Y1>Y-YInt
1710 IF Y1>Gp(N%,2) PROCPL(XG1,XG3,Y1,Y1)
1711 Y1-=YSub
1712 ENDWHILE
1713Y-=YInt
1714IF Y<=Gp(N%,2) Y=Gp(N%,2)
1715PROCPL(XG1,XG2,Y,Y)
1716PROCPoll(&00001800,Buf%+256)
1717IF Ag%(N%)=N% ORQuit% ENDPROC
1718ENDWHILE
1719PROCAdd(0)
1720ENDPROC
1721
1722DEF PROCSPP(N%)
1723XGrad=(Gp(N%,1)-Gp(N%,0))/Gm%
1724YGrad=(Gp(N%,3)-Gp(N%,2))/Gm%
1725XInt=FNRN(Gw%(N%),15)
1726IF XInt<=0 XInt=1
1727YInt=FNRN(Gw%(N%),16)
1728IF YInt<=0 YInt=1
1729XSub=FNRN(Gw%(N%),17)
1730IF XSub<1 XSub=1
1731YSub=FNRN(Gw%(N%),18)
1732IF YSub<1 YSub=1
1733XSub=XInt/(XSub)
1734YSub=YInt/(YSub)
1735F$(N%)=FNReS(Gw%(N%),10)
1736ENDPROC
1737DEF FNSXD(N%)
1738IF Gp(N%,0)>0 =Gp(N%,0) ELSE IF Gp(N%,1)<0 =Gp(N%,1)
1739=0
1740DEF FNSYD(N%)
1741IF Gp(N%,2)>0 =Gp(N%,2) ELSE IF Gp(N%,3)<0 =Gp(N%,3)
1742=0
1743DEF FNOSX
1744=FNPX<<FNXPixVal
1745DEF FNOSY
1746=FNPY<<FNYPixVal
1747DEF FNPX
1748LOCAL X%
1749SYS"OS_ReadModeVariable",-1,11 TO ,,X%
1750=X%+1
1751DEF FNPY
1752LOCAL Y%
1753SYS"OS_ReadModeVariable",-1,12 TO ,,Y%
1754=Y%+1
1755DEF FNXPixVal
1756LOCAL X%
1757SYS"OS_ReadModeVariable",-1,4 TO ,,X%
1758=X%
1759DEF FNYPixVal
1760LOCAL Y%
1761SYS"OS_ReadModeVariable",-1,5 TO ,,Y%
1762=Y%
1763DEF PROCSP(N%)
1764Gp(N%,4)=1:Gp(N%,5)=1
1765Gp(N%,13)=FNOSX*4
1766Gp(N%,12)=FNOSY*4
1767PROCSP1(N%)
1768IF FNRN(Gw%(N%),19)*(Gp(N%,10))/FNRN(SW%,1)>1 THEN
1769Gp(N%,13)=FNOSX*4*(FNRN(Gw%(N%),19)*(Gp(N%,10))/FNRN(SW%,1))
1770Gp(N%,12)=FNOSY*4*(FNRN(Gw%(N%),19)*(Gp(N%,10))/FNRN(SW%,1))
1771ENDIF
1772Gp(N%,0)=FNRN0(Gw%(N%),11)
1773Gp(N%,1)=FNRN0(Gw%(N%),12)
1774Gp(N%,2)=FNRN0(Gw%(N%),13)
1775Gp(N%,3)=FNRN0(Gw%(N%),14)
1776Gp(N%,18)=FNRN(Gw%(N%),17)
1777Gp(N%,19)=FNRN(Gw%(N%),18)
1778Gp(N%,20)=FNSXD(N%)
1779Gp(N%,21)=FNSYD(N%)
1780Gp(N%,11)=Gp(N%,13)/FNRN(Gw%(N%),30)
1781Gp(N%,4)=(Gp(N%,1)-Gp(N%,0))/Gp(N%,13)
1782Gp(N%,5)=(Gp(N%,3)-Gp(N%,2))/Gp(N%,12)
1783PROCSP1(N%)
1784PROCSTs(N%)
1785ENDPROC
1786DEF PROCTT(N%)
1787LOCAL A%
1788FOR A%=0 TO20 STEP4
1789Hp%(N%,3)!(A%+24)=Hp%(N%,3)!A%
1790NEXT
1791ENDPROC
1792DEF PROCSM(N%)
1793IF FNRShade(Gw%(N%),5)>0 M=1:Gp(N%,17)=1 ELSE M=Mg:Gp(N%,17)=Mg
1794IF FNReS(Gw%(N%),5)="Graph width" Gp(N%,10)=1/Gp(N%,17) ELSE Gp(N%,10)=1
1795ENDPROC
1796DEF PROCSP1(N%)
1797SizeF=FNRN(Gw%(N%),19)*(Gp(N%,10))/FNRN(SW%,1)
1798Hp%(N%,3)!88=INT(FNOSX*SizeF)
1799IF Hp%(N%,3)!88<150 THEN
1800PROCLN(Gw%(N%),19,INT((150/Hp%(N%,3)!88)*FNRN(Gw%(N%),19)))
1801SizeF=FNRN(Gw%(N%),19)*(Gp(N%,10))/FNRN(SW%,1)
1802Hp%(N%,3)!88=INT(FNOSX*SizeF)
1803ENDIF
1804Hp%(N%,3)!92=INT(FNOSY*SizeF)
1805Hp%(N%,3)!96=Hp%(N%,3)!88*(1-Gp(N%,17))/2
1806Hp%(N%,3)!100=Hp%(N%,3)!92*(1-Gp(N%,17))/2
1807Gp(N%,8)=(Hp%(N%,3)!88/Gp(N%,13))*Gp(N%,17)
1808Gp(N%,9)=(Hp%(N%,3)!92/Gp(N%,12))*Gp(N%,17)
1809Gp(N%,6)=(Gp(N%,1)-Gp(N%,0))/40
1810Gp(N%,7)=(Gp(N%,3)-Gp(N%,2))/40
1811Hp%(N%,3)!104=(FNRN(Gw%(N%),15)/Gp(N%,4))*Gp(N%,8)
1812Hp%(N%,3)!108=(FNRN(Gw%(N%),16)/Gp(N%,5))*Gp(N%,9)
1813Hp%(N%,3)!112=((Gp(N%,14)-Gp(N%,0))/Gp(N%,4))*Gp(N%,8)
1814Hp%(N%,3)!116=(((Gp(N%,15)-Gp(N%,2))/Gp(N%,5))*Gp(N%,9))+Hp%(N%,3)!100
1815Hp%(N%,3)!120=Hp%(N%,3)!92
1816Hp%(N%,3)!84=-INT(Hp%(N%,3)!92+Hp%(N%,3)!92*Te)
1817ENDPROC
1818
1819DEF PROCSTs(N%)
1820!Hp%(N%,3)=(Gp(N%,8)*256)*&10000
1821Hp%(N%,3)!4=0
1822Hp%(N%,3)!8=0
1823Hp%(N%,3)!12=(Gp(N%,9)*256)*&10000
1824Hp%(N%,3)!16=Hp%(N%,3)!96*256
1825Hp%(N%,3)!20=Hp%(N%,3)!100*256
1826ENDPROC
1827DEF PROCXN(N%)
1828Hp%(N%,3)!128=Hp%(N%,3)!96-(FNSW(Fh%(N%,1),FNReS(Gw%(N%),11))/2)
1829Hp%(N%,3)!144=(Hp%(N%,3)!88-Hp%(N%,3)!96)-(FNSW(Fh%(N%,1),FNReS(Gw%(N%),12))/2)
1830SYS"Font_ReadDefn",Fh%(N%,1),Wb% TO ,Wb%,Hp%(N%,3)!152,Hp%(N%,3)!156
1831ENDPROC
1832DEF PROCYN(N%)
1833SYS"Font_ConverttoOS",,10,Hp%(N%,3)!156*62.5 TO ,,Hp%(N%,3)!212
1834Hp%(N%,3)!168=Hp%(N%,3)!100-(Hp%(N%,3)!212/3)
1835Hp%(N%,3)!176=(Hp%(N%,3)!92-Hp%(N%,3)!100)-(Hp%(N%,3)!212/3)
1836
1837Hp%(N%,3)!196=(Hp%(N%,3)!112+Hp%(N%,3)!96)-(FNSW(Fh%(N%,1),FNReS(Gw%(N%),13)))
1838Hp%(N%,3)!204=(Hp%(N%,3)!112+Hp%(N%,3)!96)-(FNSW(Fh%(N%,1),FNReS(Gw%(N%),14)))
1839ENDPROC
1840DEF PROCUDP
1841!Wb%=Gc%(N%)
1842Wb%!4=2
1843SYS&400CE,,Wb%
1844Progress+=Percent
1845IF Progress< Wb%!16+10 ENDPROC
1846Wb%!16=INT(Progress)
1847SYS&400C4,,Wb%:
1848Wb%!4=!Wb%:SYS&400C2,,Wb%+4
1849SYS&400D1,!Wb%,Wb%!8,Wb%!&C,Wb%!16,Wb%!20
1850ENDPROC
�>Graph
� � �LFs:�"POINTER 1":�
@%=&90A
Ph$="<Graph$Dir>."
%DP$=Ph$+"DrawFiles.Draw.DrawFile"
#LP$=Ph$+"DrawFiles.Log.LogFile"
-Log$="Graph"+�3,�(0))+"GraphLog"+�4,�(0))
Dg%=�:PX%=0:PY%=0
Ng%=19
Mg=.9
MW%=-1
CW%=�
Te=.0625
OS=.141111111
Gm%=80
Dy%=�
Ts%=216
Ig%=�
Cd%=-1
� h% 40
� Gw%(Ng%):Gn%=0
� Ga%(Ng%)
� Hp%(Ng%,5)
� Gp(Ng%,21)
� Gc%(Ng%):Gc%()=�
� Ag%(Ng%):Ag%()=�
� F$(Ng%)
� Fh%(Ng%,1):Fh%()=�
)� Font% 256:� A%=0 �255 :A%!Font%=0:�
2ș"Font_ReadFontMax" � Max0%,Max1%,Max2%,Max3%
max3%=Max3%
Font$="Trinity.Medium"
!IL%=&764+&3D4*(Ng%+1)
" MOpen%=�
# LMenu%=0
$� Icons% IL%
%Icon%=Icons%
&�HI
' SptS%=�FS(Ph$+"Sprites")+20
(Spt%=�HCm(SptS%)
)!Spt%=SptS%:Spt%!8=16
* ș"OS_SpriteOp",265,Spt%
+*ș"OS_SpriteOp",266,Spt%,Ph$+"Sprites"
,� IM% �MenuSize("Icon")
- � On% �MenuSize("Option")
. � Save% �MenuSize("Save")
/ � LDM% �MenuSize("LOption")
0� Buf% (256*(Ng%+2))
1� Wb% &95C
2?ș"Wimp_Initialise",200,&4B534154,"Graphschetch" � Ver%,Th%
3-Start%=�LW(Ph$+"Templates","Start",Font%)
4Start%=�CW(Start%)
5�ow(Start%,0,-1)
6*PA%=�LW(Ph$+"Templates","PlotArea",-1)
7 IconN%=�IconMenu(IM%,"Icon")
8SW%=�MenuWh(IM%,1)
9 OnN%=�IconMenu(On%,"Option")
:(Zoom%=�LW(Ph$+"Templates","Zoom",-1)
;)CdW%=�LW(Ph$+"Templates","Coords",-1)
<"SaveN%=�IconMenu(Save%,"Save")
=#LDMN%=�IconMenu(LDM%,"LOption")
>Dw%=�MenuWh(Save%,0)
?Log%=�MenuWh(Save%,1)
@�LS(Dw%,2,DP$)
A�LN(SW%,1,�(�OSX*OS))
B OS1=�RN(SW%,1)/�(�OSX*OS)
CIh%=�IconBar("!Graph")
D'XPix%=1<<�XPixVal:YPix%=1<<�YPixVal
E�Se(IM%,3)
F Quit%=�
G�
H �Prog
I � Quit%
JSpt%=�HF(Spt%)
K�LFs
L*ș"Font_SetFontMax",,Max1%,Max2%,Max3%
M$ș"Wimp_CloseDown",Th%,&4B534154
N�
O � �Prog
P� M%,Cal%,Dn%:Dn%=�
Q M%=&1801
R�Poll(M%,Buf%)
S�
T� �Poll(M%,Buf%)
U� R%,W%,n%,d%
V�
W ș"Wimp_Poll",M%,Buf% � R%
X Ȏ R% �
Y� 0:
Z!ș"Wimp_GetPointerInfo",,Buf%
[ � Buf%!16=-9 �
\ Ȏ Buf%!8 �
] �4:
^ � Dy% �
_ Dn%=�FindW(Buf%!12)
` � Dn%>=0 �
a, � Ga%(Dn%)=Buf%!12 �Dc(Dn%) � Dn%=�
b
�
c
�
dT �0:� Dn%>=0 �CS(Dn%,0):�ow(Ga%(Dn%),0,-1):Dn%=�:� Cd%<>� �Buf%!12=MW% �MC(MW%)
e �
f �
g< � Dn%>=0 �Buf%!8=0 �CS(Dn%,0):�ow(Ga%(Dn%),0,-1):Dn%=�
h � MW%<>� �Dg%=� �
i3 � �PMove(PX%,PY%) �AP(�FindW(MW%),"ptr_grab")
j' � � Dg% ��PMove(PX%,PY%) �UC(MW%)
k �
l �
m� 1:�RD(�FindW(!Buf%))
n!� 2:ș"Wimp_OpenWindow",,Buf%
o� 3:
p n%=�FindW(!Buf%)
q � n%>=0 �
r Ȏ !Buf% �
s) � Gw%(n%):ș"Wimp_CloseWindow",,Buf%
t � Ga%(n%):�Ce(n%)
u �
v �
w �
x � 4:
y � MW%=!Buf% �Dg%=� �
z; � Cd%<>� !Wb%=Cd%:ș"Wimp_CloseWindow",,Wb%:Cd%=�
{ �"POINTER 1":Ig%=�
| � �Dy% M%=M%�1
}
�
~ n%=�FindW(!Buf%)
� n%>=0 �
�* � MOpen% �!Buf%=Ga%(n%) CW%=!Buf%
�
�
�1 � !Buf%=Zoom% ș"Wimp_CloseWindow",,Buf%
� � !Buf%=SW% �
�. � �RN(SW%,1)<80 �LN(SW%,1,�(�OSX*OS))
�" OS1=�RN(SW%,1)/�(�OSX*OS)
�
�
� �
�� 5:n%=�FindW(!Buf%)
� � n%>=0 �
� � MW%=!Buf% �
�. !Wb%=MW%:ș"Wimp_GetWindowState",,Wb%
� � Wb%!28=-1 �
� M%=M%�&FFFFFFFE
� � Cd%=� �Cd(MW%)
� � MW%=�
�: � Cd%<>� !Wb%=Cd%:ș"Wimp_CloseWindow",,Wb%:Cd%=�
�
�
�
�
�. � MOpen% � � Ga%(n%)=!Buf% CW%=!Buf%
�
�
� � 7:� MW%<>� �BE(Buf%) � �DE
� � 6:�Ck
�� 8:
� Ȏ !Buf% �
� � Zoom%:�ZK(Buf%)
� � Gw%(Gn%):�PK(Buf%)
� �
�� 9:
� Buf%!16=Buf%!4:Buf%!4=-1
�) !Wb%=Zoom%:ș"Wimp_CloseWindow",,Wb%
�& ș"Wimp_DecodeMenu",,CM%,Buf%,Wb%
�% ș"Wimp_CreateMenu",,-1:MOpen%=�
�+ � �$Wb%,�(&2E))>0 Wb%!�$Wb%,�(&2E))=&D
� Ȏ $Wb% �
� �"Close":�Ce(�FindW(CW%))
� �"Plot size"
� n%=�FindW(CW%)
�* � n%<>� �PS(n%):�ow(Ga%(n%),0,-1)
� �"Minimize"
� n%=�FindW(CW%)
� �CS(n%,0)
� CW%=Ga%(n%)
� �ow(Ga%(n%),0,-1)
� �"Dynamize":
� �SDc($Wb%)
� �"Magnify":
�C ș"Wimp_GetPointerInfo",,Wb%:PX%=!Wb%-1:PY%=Wb%!4:MW%=CW%
� �TW(MW%)
� �"Quit":Quit%=�
� �"Zoom":n%=�FindW(CW%)
�= �LN(Zoom%,0,Hp%(n%,3)!184):�LN(Zoom%,1,Hp%(n%,3)!188)
� �ZS(n%)
� ș"Wimp_OpenWindow",,Wb%
� �"Graph menu","Re-plot"
� �CMW(Gn%)
� �"New graph":
�2 !Buf%=Gw%(Gn%):ș"Wimp_CloseWindow",,Buf%
� Gn%=�Ft
� �CMW(Gn%)
� �"Load","Load graph":
� Buf%!4=Buf%!16
�/ ș"Wimp_DecodeMenu",,LMenu%,Buf%+4,Wb%
� �$Wb%<>"None" �
�" $(Buf%+44)=LP$+".^."+$Wb%
�F � �$Wb%,�(&2E))>0 $(Buf%+44)=LP$+".^."+�$Wb%,�$Wb%,�(&2E))-1)
� � Buf%!8<>-1 �
�j � $(Wb%+�$Wb%,�(&2E)))="Delete" ș"OS_File",6,Buf%+44 � �$(Wb%+�$Wb%,�(&2E)))="Load" �LL(Buf%,-1)
�
�
� �LL(Buf%,-1)
�
�
�
�
� �
�� 17,18,19:
� �Mess(R%,Buf%)
��
�� Quit% �Cal%
��
� � �Ck
�D� Start%>0 !Wb%=Start%:ș"Wimp_DeleteWindow",,Wb%:Start%=-1:�LDF
�n%=�FindW(Buf%!12)
�9� Zoom%<>Buf%!12 !Wb%=Zoom%:ș"Wimp_CloseWindow",,Wb%
�Ȏ Buf%!8 �
��2:
� � MW%<>� �
�. MW%=�:Ig%=�:�"POINTER 1":� �Dy% M%=M%�1
�8 � Cd%<>� !Wb%=Cd%:ș"Wimp_CloseWindow",,Wb%:Cd%=�
� �
� Ȏ Buf%!12 �
�+ �-2:!Buf%=!Buf%-50:Buf%!4=360:�Cm(IM%)
� �
� � n%>=0 �
� Ȏ Buf%!12 �
�J � Ga%(n%):� Gw%(n%)<>Gw%(Gn%) !Wb%=Gw%(Gn%):ș"Wimp_CloseWindow",,Wb%
�0 �Cm(On%):Gn%=n%:Sn%=n%:MOpen%=�
� �
� �
��4:
�
�4 � n%>=0 � Gc%(n%)=Buf%!12 �Buf%!16=3 Ag%(n%)=n%
� Ȏ Buf%!12 �
�
� �-2:
� �CMW(Gn%)
� � Gw%(Gn%):
� Ȏ Buf%!16 �
�
�32:
� �Ct(Gn%)
�' �33:ș"Wimp_CloseWindow",,Buf%+12
� �31:�APs(Buf%!12):
�
� �35:�Mn(Gw%(Gn%))
� �5:
�( � �ReS(Gw%(Gn%),5)="Graph width" �
�# �LS(Gw%(Gn%),5,"Paper width")
� �
�# �LS(Gw%(Gn%),5,"Graph width")
� �
� �
� � SW%:
� Ȏ Buf%!16 �
� � 2:�ScD(Buf%!12)
� �
� � Dw%:
� Ȏ Buf%!16 �
� �3:�SD(Sn%)
� �1:Df%=&AFF:�Drag(Buf%)
� �
� Log%:
Ȏ Buf%!16 �
�3:�SL(Sn%)
�1:Df%=&FFD:�Drag(Buf%)
�
� Zoom%:
Ȏ Buf%!16 �
�2:�IZ(0)
�3:�DZ(0)
�4:�IZ(1)
�5:�DZ(1)
�
Ȏ Buf%!16 �
�2,3,4,5:�ZS(Zn%)
� Wb%!28=-1 Wb%!28=Zoom%
ș"Wimp_OpenWindow",,Wb%
�
�
� 64:
Ȏ Buf%!12 �
� MW%:
� Ig% �DB(Buf%,n%)
�
�
�
� �MUS
�UnSe(IM%,3):�UnSe(On%,1)
�UnSe(On%,4):�UnSe(On%,8)
�UnSe(IM%,4)
� �CountA<=0 �
�Se(IM%,3):�UnSI(SW%,2)
� �RSelect(SW%,2)=0 �
�UnSI(SW%,1)
!�SFg(SW%,1,15)
"�
#�
$�
%
� �Cm(M%)
&ș"Wimp_CreateMenu",,-1
'(ș"Wimp_CreateMenu",,M%,!Buf%,Buf%!4
(
CM%=M%
)�
*
+
� �RD(N%)
,� F%,H%,V%,I%,J%
-!Wb%=Gw%(N%)
.$ș"Wimp_RedrawWindow",,Buf% � F%
/ ȕ F%
0"XMin%=Buf%!28-(Buf%!4-Buf%!20)
1"XMax%=Buf%!36-(Buf%!4-Buf%!20)
22YMin%=(Buf%!32-(Buf%!16-Buf%!24))-Hp%(N%,3)!84
32YMax%=(Buf%!40-(Buf%!16-Buf%!24))-Hp%(N%,3)!84
48�29,(Buf%!4-Buf%!20);(Buf%!16-Buf%!24)+Hp%(N%,3)!84;
51ș"Draw_Stroke",Hp%(N%,0),0,Hp%(N%,3),0,0,0,0
6;ș"Draw_Stroke",Hp%(N%,0)+Hp%(N%,4),0,Hp%(N%,3),0,0,0,0
7 �29,0;0;
8 ș"Wimp_SetFontColours",,0,7
9� XMax%>=Hp%(N%,3)!96 �
:�� YMax%>Hp%(N%,3)!92 �XMin%<Hp%(N%,3)!96+Hp%(N%,3)!124 ș"Font_Paint",Fh%(N%,0),F$(N%),&110,(Buf%!4-Buf%!20)+Hp%(N%,3)!96,(Buf%!16-Buf%!24)+(Hp%(N%,3)!84+Hp%(N%,3)!120)
;�
<@� YMax%>Hp%(N%,3)!116 �YMin%<Hp%(N%,3)!116+(Hp%(N%,3)!212) �
= � XMax%>=Hp%(N%,3)!128 �
>�ș"Font_Paint",Fh%(N%,1),�ReS(Gw%(N%),11),&110,(Buf%!4-Buf%!20)+Hp%(N%,3)!128,((Buf%!16-Buf%!24)+Hp%(N%,3)!84)+(Hp%(N%,3)!116)
?�
@ � XMax%>=Hp%(N%,3)!144 �
A�ș"Font_Paint",Fh%(N%,1),�ReS(Gw%(N%),12),&110,(Buf%!4-Buf%!20)+Hp%(N%,3)!144,((Buf%!16-Buf%!24)+Hp%(N%,3)!84)+(Hp%(N%,3)!116)
B�
C�
D(� XMin%<Hp%(N%,3)!112+Hp%(N%,3)!96 �
E0� XMax%>Hp%(N%,3)!196 �XMax%>Hp%(N%,3)!204 �
F�ș"Font_Paint",Fh%(N%,1),�ReS(Gw%(N%),13),&110,(Buf%!4-Buf%!20)+Hp%(N%,3)!196,((Buf%!16-Buf%!24)+Hp%(N%,3)!84)+(Hp%(N%,3)!168)
G�ș"Font_Paint",Fh%(N%,1),�ReS(Gw%(N%),14),&110,(Buf%!4-Buf%!20)+Hp%(N%,3)!204,((Buf%!16-Buf%!24)+Hp%(N%,3)!84)+(Hp%(N%,3)!176)
H�
I�
J
K$ș"Wimp_GetRectangle",,Buf% � F%
L�
M�
N
� �WN(W%)
O !Wb%=W%
P ș"Wimp_GetWindowInfo",,Wb%
QȎ Wb%!60�&101 �
R
�&101:
SN � �($(Wb%!76)+" ("+�(Gn%)+")")<Wb%!84 $(Wb%!76)=$(Wb%!76)+" ("+�(Gn%)+")"
T�1:
U( � �($(Wb%+76)+" ("+�(Gn%)+")")<12 �
V( $(Wb%+76)=$(Wb%+76)+" ("+�(Gn%)+")"
W �
X�
Y�
Z� �LNW(F$,W$)
[� W%
\W%=�LW(F$,W$,-1)
] �WN(W%)
^ ș"Wimp_DeleteWindow",,Wb%
_%ș"Wimp_CreateWindow",,Wb%+4 � W%
`=W%
a� �APs(W%)
b� �RSelect(W%,31)>0 �
c �USI(W%,31):�UnSI(W%,30)
d�
e*�Si(W%,31):�SI(W%,30):�APt(�FindW(W%))
f�
g�
h� �APt(N%)
i �SP1(N%)
j � �RSelect(Gw%(N%),31)<=0 �
k2�LN(Gw%(N%),30,�((Hp%(N%,3)!88>>�XPixVal)*Mg))
l �SP1(N%)
m�
n� �ScD(W%)
o� �RSelect(SW%,2)>0 �
p�USI(SW%,2)
q�UnSI(SW%,1)
r�SFg(SW%,1,15)
s�
t�Si(SW%,2)
u�LN(SW%,1,�(�OSX*OS))
v�SI(SW%,1)
w�SFg(SW%,1,0)
x�
y(!Wb%=SW%:ș"Wimp_GetWindowInfo",,Wb%
z ș"Wimp_CloseWindow",,Wb%
{ ș"Wimp_OpenWindow",,Wb%
|�
} � �Ft
~� N%
�
�� Ga%(N%)=0 =N%
� N%+=1
� � N%>Ng%
�=-1
�
� �Ft1
�� N%:N%=Ng%
��
�� Gc%(N%)>0 =N%
� N%-=1
�
� N%<0
�=0
�� �FindW(W%)
�� N%
��
�,� Ga%(N%)=W% �Gw%(N%)=W% �Gc%(N%)=W% =N%
� N%+=1
� � N%>Ng%
�=-1
�
� �CountA
� � N%,C%
��
�� Ga%(N%)<>0 C%+=1
� N%+=1
� � N%>Ng%
�=C%
�� �CPlotA(W%)
� �WN(W%)
�(ș"Wimp_CreateWindow",,Wb%+4 � Wb%!4
�
=Wb%!4
�� �CMW(Gn%)
�� Gc%(Gn%)>=0 �
�!� Hp%(Gn%,3)=0 �CM(Gn%,3,Ts%)
�� Gw%(Gn%)=0 �
�1 Gw%(Gn%)=�LNW(Ph$+"Templates","PlotWindow")
� Gw%(Gn%)=�CW(Gw%(Gn%))
� �LF(Gn%)
�! �LN(Gw%(Gn%),19,�RN(SW%,1))
� �SM(Gn%)
� �SP(Gn%)
�6 �LN(Gw%(Gn%),30,�((Hp%(Gn%,3)!88>>�XPixVal)*Mg))
� �SP(Gn%)
� �
�&� Hp%(Gn%,3)<>0 �ow(Gw%(Gn%),0,-1)
��
�
� �RM(N%)
� Hp%(N%,0)=�HF(Hp%(N%,0))
� Hp%(N%,3)=�HF(Hp%(N%,3))
��
�
�� �CM(N%,A%,S%)
�Hp%(N%,A%)=�HCm(S%)
�b� Hp%(N%,A%)=0 ș"Wimp_ReportError"," Not enough of that there memory for graph",0,"!Graph"
��
�
� �Mn(W%)
�� �RSelect(W%,35)>0 �
��USI(W%,35):�SI(W%,5)
��
��Si(W%,35):�UnSI(W%,5)
��
��
�
� �PS(N%)
�� x%,X%,w%
�,!Wb%=Ga%(N%):ș"Wimp_GetWindowInfo",,Wb%
� w%=!Wb%
� ș"Wimp_DeleteWindow",,Wb%
�x%=Wb%!4:X%=Wb%!12
�8Wb%!12=Wb%!4+Hp%(N%,3)!56:Wb%!56=Wb%!48+Hp%(N%,3)!56
�7Hp%(N%,3)!88=Hp%(N%,3)!56:Hp%(N%,3)!84=Hp%(N%,3)!80
� Hp%(N%,3)!112=Hp%(N%,3)!192
�*ș"Wimp_CreateWindow",,Wb%+4 � Ga%(N%)
� �LN(Gw%(N%),19,Gp(N%,16))
��CS(N%,-1)
�,!Wb%=Ga%(N%):ș"Wimp_GetWindowInfo",,Wb%
� ș"Wimp_DeleteWindow",,Wb%
�Wb%!4=x%:Wb%!12=X%
�*ș"Wimp_CreateWindow",,Wb%+4 � Ga%(N%)
�#Hp%(N%,3)!184=1:Hp%(N%,3)!188=1
�� w%=CW% CW%=Ga%(N%)
��
�� �CS(N%,o%)
� � N%<0 �
� � S:S=1
�?� �RShade(Gw%(N%),5)<1 � �ReS(Gw%(N%),5)="Graph width" S=Mg
�!Wb%=Ga%(N%)
� ș"Wimp_GetWindowInfo",,Wb%
�6� o%>=0 �LN(Gw%(N%),19,�((Wb%!12-Wb%!4)*OS1*OS*S))
� �APt(N%)
� �STs(N%)
�8Ga%(N%)=�CWW(Ga%(N%),Hp%(N%,3)!88,Hp%(N%,3)!84,N%,0)
�;� Fh%(N%,0)>=0:ș"Font_LoseFont",Fh%(N%,0):Fh%(N%,0)=-1
�;� Fh%(N%,1)>=0:ș"Font_LoseFont",Fh%(N%,1):Fh%(N%,1)=-1
�7�GF(N%,0,(Hp%(N%,3)!92*Te),(Hp%(N%,3)!92*Te),Font$)
�'Hp%(N%,3)!124=�SW(Fh%(N%,0),F$(N%))
�.Hp%(N%,3)!120=Hp%(N%,3)!92+�SHD(Fh%(N%,0))
�M�GF(N%,1,(Gp(N%,6)/Gp(N%,4))*Gp(N%,8),(Gp(N%,6)/Gp(N%,4))*Gp(N%,8),Font$)
�'Hp%(N%,3)!124=�SW(Fh%(N%,0),F$(N%))
� �XN(N%)
� �YN(N%)
��
�
� �Ce(N%)
�)!Wb%=Zoom%:ș"XWimp_CloseWindow",,Wb%
� � N%<0 �
�� Ga%(N%)=MW% MW%=�
� � Gc%(N%)>0 Ag%(N%)=N%:�
�B� Ga%(N%)<>0 !Wb%=Ga%(N%):ș"Wimp_DeleteWindow",,Wb%:Ga%(N%)=0
� !Wb%=Gw%(N%)
� ș"Wimp_CloseWindow",,Wb%
�> � Fh%(N%,0)>=0:ș"Font_LoseFont",Fh%(N%,0):Fh%(N%,0)=-1
�> � Fh%(N%,1)>=0:ș"Font_LoseFont",Fh%(N%,1):Fh%(N%,1)=-1
� ș"Wimp_Poll",&E1972,Wb%
� �RM(N%)
� �MUS
��
�
� �Dc(n%)
� �APt(n%)
�!Wb%=Ga%(n%)
� ș"Wimp_GetWindowInfo",,Wb%
�J� Wb%!12-Wb%!4>=(Wb%!52-Wb%!44)-20 �Wb%!16-Wb%!8>=(Wb%!56-Wb%!48)-20 �
��RS(n%,20)
��
��
�� �RS(n%,i%)
�&�LN(Gw%(n%),19,�RN(Gw%(n%),19)+i%)
� �SP1(n%)
� �STs(n%)
�8Ga%(n%)=�CWW(Ga%(n%),Hp%(n%,3)!88,Hp%(n%,3)!84,n%,0)
��ow(Ga%(n%),0,-1)
��
� �SDc(S$)
� F%
F%=�RTk(On%,S$)
� F%>0 �
�UnTk(On%,S$)
M%=M%�1:Dy%=�
.� � F%=0 �Tk(On%,S$):M%=M%�&FFFFFFFE:Dy%=�
�
�
� �Ct(Cn%)
� Progress,Percent
'�SI(SW%,2):�SI(SW%,1):�SFg(SW%,1,0)
- !Wb%=Gw%(Cn%):ș"Wimp_CloseWindow",,Wb%
� �CC(Cn%) �
d%=0
� Ga%(Cn%)=0 �
! Ga%(Cn%)=�CPlotA(PA%):d%=20
�
- !Wb%=Ga%(Cn%):ș"Wimp_CloseWindow",,Wb%
ș"Wimp_Poll",&E1972,Wb%
�RM(Cn%)
�CM(Cn%,3,Ts%)
�
! �CM(Cn%,0,(PS%/2)-(Ts%+12))
� �Ft=-1 �
�Se(IM%,3):�Se(On%,1)
�Se(IM%,4):�Se(On%,4)
�Se(On%,8)
� �UnSe(IM%,3)
�
Hp%(Cn%,1)=0
Hp%(Cn%,2)=�BS(Hp%(Cn%,0))
�SM(Cn%)
!d � (�RN(Gw%(Cn%),19)*Gp(Cn%,10))/�RN(SW%,1)>20 �LN(Gw%(Cn%),19,�((�RN(SW%,1)/Gp(Cn%,10))*19.9))
"! Gp(Cn%,16)=�RN(Gw%(Cn%),19)
# �SP(Cn%)
$
�SUP
%@ Ga%(Cn%)=�CWW(Ga%(Cn%),Hp%(Cn%,3)!88,Hp%(Cn%,3)!84,Cn%,d%)
&@ � Fh%(Cn%,0)>=0:ș"Font_LoseFont",Fh%(Cn%,0):Fh%(Cn%,0)=-1
'@ � Fh%(Cn%,1)>=0:ș"Font_LoseFont",Fh%(Cn%,1):Fh%(Cn%,1)=-1
(< �GF(Cn%,0,(Hp%(Cn%,3)!92*Te),(Hp%(Cn%,3)!92*Te),Font$)
)3 Hp%(Cn%,3)!120=Hp%(Cn%,3)!92+�SHD(Fh%(Cn%,0))
*V �GF(Cn%,1,(Gp(Cn%,6)/Gp(Cn%,4))*Gp(Cn%,8),(Gp(Cn%,6)/Gp(Cn%,4))*Gp(Cn%,8),Font$)
+ �PG(Cn%)
, �XN(Cn%)
- �YN(Cn%)
., Hp%(Cn%,3)!124=�SW(Fh%(Cn%,0),F$(Cn%))
/ �GD(Cn%)
0& �ow(Ga%(Cn%),0,�Bd):CW%=Ga%(Cn%)
1 �
20 !Wb%=Gw%(Cn%):ș"Wimp_GetWindowState",,Wb%
3, !Wb%=Gw%(Cn%):ș"Wimp_OpenWindow",,Wb%
4 �
5J !Wb%=Gc%(Cn%):ș"XWimp_CloseWindow",,Wb%:Gc%(Cn%)=Gc%(Cn%)�&80000000
6( � Ag%(Cn%)=Cn% Ag%(Cn%)=�:�Ce(Cn%)
7/ � Dy% �MW%<>� M%=M%�&FFFFFFFE � M%=M%�1
8�
9
� �SUP
:U� Gc%(Cn%)=-1 Gc%(Cn%)=�LNW(Ph$+"Templates","Wait") � Gc%(Cn%)=Gc%(Cn%)�&7FFFFFFF
;6 !Wb%=Gc%(Cn%):Wb%!4=1:ș"Wimp_GetIconState",,Wb%
< Percent=Wb%!16-6
=6 !Wb%=Gc%(Cn%):Wb%!4=2:ș"Wimp_GetIconState",,Wb%
>5 Percent=((Percent-Wb%!8)/Gp(Cn%,13))*Gp(Cn%,11)
? Progress=Wb%!8
@4 Wb%!16=�(Progress)+2:ș"Wimp_DeleteIcon",,Wb%:
A, Wb%!4=Wb%!0:ș"Wimp_CreateIcon",,Wb%+4
B Gc%(Cn%)=�CW(Gc%(Cn%))
C �ow(Gc%(Cn%),�Ft1*20,-1)
D ș"Wimp_Poll",&E1972,Wb%
E�
F � �Bd
G� n%,n1%:n%=-1
H� MW%<>� =MW%
I�
J n%+=1
KC� Gc%(n%)>0 !Wb%=Gc%(n%):ș"Wimp_GetWindowInfo",,Wb% � Wb%!28=0
L� n%>=Ng% � Wb%!28=-1
M� Wb%!28>=0 =-1
N�
O
n1%=-1
P�
Q
n1%+=1
RE� Gc%(n1%)>0 !Wb%=Gc%(n1%):ș"Wimp_GetWindowInfo",,Wb% � Wb%!28=0
S � n1%>=Ng% � Wb%!28=Gc%(n%)
T*� Wb%!28=Gc%(n%) n%=n1%:Wb%!28=Gc%(n%)
U� Wb%!28<>Gc%(n%)
V =Gc%(n%)
W
� �LF(N%)
X� S$,n%:n%=-1
YZ%=�(Ph$+"Formula")
Z�
[ n%+=1
\ �#Z%,S$
]� �#Z% �n%>=N%
^�#Z%
_�LS(Gw%(N%),10,S$)
`�
a� �Mess(R%,B%)
b� r%
cȔ B%!12,B%!8
dȎ B%!16 �
e.�0:Quit%=�:ș"Wimp_SendMessage",19,B%,B%!4
f�1:
g�2:�DS(B%)
h �3:� B%!40=&FFD �LL(B%,0)
i �&400C0:
j' ș"Wimp_DecodeMenu",,CM%,B%+32,Wb%
k Ȏ $Wb% �
l �"Save":
m �LS(Dw%,2,DP$+�(�FF(DP$)))
n! �LS(Log%,2,LP$+�(�FF(LP$)))
o/ ș"Wimp_CreateSubMenu",,Save%,B%!24,B%!28
p% ș"Wimp_SendMessage",19,B%,B%!4
q" �"Load":�LM(B%!24,B%!28,LP$)
r( �"Load graph":�LM(B%!24,B%!28,LP$)
s �"Zoom":
t Zn%=�FindW(CW%)
u! �LN(Zoom%,0,Hp%(Zn%,3)!184)
v! �LN(Zoom%,1,Hp%(Zn%,3)!188)
w, !Wb%=Zoom%:ș"Wimp_GetWindowInfo",,Wb%
x- Wb%!12=(Wb%!12-Wb%!4)+B%!24:Wb%!4=B%!24
y- Wb%!8=B%!28-(Wb%!16-Wb%!8):Wb%!16=B%!28
z ș"Wimp_OpenWindow",,Wb%
{% ș"Wimp_SendMessage",19,B%,B%!4
| �
}�
~�
� �SD(N%)
� � P$,R%,W%,F$,L%,F%,H%:H%=-1
�� � � ș"XOS_Find",0,H%
�
W%=Wb%
�P$=�ReS(Dw%,2)
�F%=�FontDef(N%,Wb%)
�$Wb%="Draw"
�
Wb%!4=201
� Wb%!8=0
� $(Wb%+12)="Graph "
�3Wb%!24=Hp%(N%,3)!48*256:Wb%!28=Hp%(N%,3)!52*256
�AWb%!32=Wb%!24+Hp%(N%,3)!56*256:Wb%!36=Wb%!28+Hp%(N%,3)!60*256
�ș"OS_Find",131,P$ � H%
�
� H%<>0 �
�ș"OS_GBPB",2,H%,Wb%,40
��WFT(N%,H%)
�L�WFTt(N%,F$(N%),H%,Hp%(N%,3)!64,Hp%(N%,3)!132,Hp%(N%,3)!72,Hp%(N%,3)!76)
�Y�WFTt(N%,�ReS(Gw%(N%),11),H%,Hp%(N%,3)!140,Hp%(N%,3)!136,Hp%(N%,3)!164,Hp%(N%,3)!160)
�Y�WFTt(N%,�ReS(Gw%(N%),12),H%,Hp%(N%,3)!148,Hp%(N%,3)!136,Hp%(N%,3)!164,Hp%(N%,3)!160)
�Y�WFTt(N%,�ReS(Gw%(N%),13),H%,Hp%(N%,3)!200,Hp%(N%,3)!172,Hp%(N%,3)!164,Hp%(N%,3)!160)
�Y�WFTt(N%,�ReS(Gw%(N%),14),H%,Hp%(N%,3)!208,Hp%(N%,3)!180,Hp%(N%,3)!164,Hp%(N%,3)!160)
�#�WPO(N%,Hp%(N%,0),Hp%(N%,4),H%)
�7�WPO(N%,Hp%(N%,0)+Hp%(N%,4),Hp%(N%,1)-Hp%(N%,4),H%)
� ș"OS_Args",4,H% � ,,Fs%
�ș"OS_Find",0,H%
�ș"OS_File",18,P$,&AFF
��
� � �P$,�(DP$))<>DP$ DP$=P$
�$ș"Wimp_CreateMenu",,-1:MOpen%=�
��
�
� �SL(N%)
� � P$,R%,F$,P%,F%,H%:H%=-1
�� � � ș"XOS_Find",0,H%
�P$=�ReS(Log%,2)
�ș"OS_Find",131,P$ � H%
�
� H%<>0 �
�)ș"OS_GBPB",2,H%,Log$+�(&D),�(Log$)+1
�-ș"OS_GBPB",2,H%,F$(N%)+�(&D),�(F$(N%))+1
�� P%=10 �19
�Aș"OS_GBPB",2,H%,�ReS(Gw%(N%),P%)+�(&D),�(�ReS(Gw%(N%),P%))+1
��
�Aș"OS_GBPB",2,H%,�ReS(Gw%(N%),30)+�(&D),�(�ReS(Gw%(N%),30))+1
�� P%=0 �19
�9ș"OS_GBPB",2,H%,�(Gp(N%,P%))+�(&D),�(�(Gp(N%,P%)))+1
��
�-ș"OS_GBPB",2,H%,�(OS1)+�(&D),�(�(OS1))+1
�?ș"OS_GBPB",2,H%,�ReS(Gw%(N%),5)+�(&D),�(�ReS(Gw%(N%),5))+1
�
� P%=0 �5
�!Wb%=Hp%(N%,P%)
�ș"OS_GBPB",2,H%,Wb%,4
��
�"ș"OS_GBPB",2,H%,Hp%(N%,3),Ts%
�(ș"OS_GBPB",2,H%,Hp%(N%,0),Hp%(N%,4)
�<ș"OS_GBPB",2,H%,Hp%(N%,0)+Hp%(N%,4),Hp%(N%,1)-Hp%(N%,4)
� ș"OS_Args",4,H% � ,,Fs%
�ș"OS_Find",0,H%
�ș"OS_File",18,P$,&FFD
��
� � �P$,�(LP$))<>LP$ LP$=P$
�$ș"Wimp_CreateMenu",,-1:MOpen%=�
��
�� �LL(B%,v%)
� � C%,P$,Et%,Lt%,os1:H%=-1
�� � � ș"XOS_Find",0,H%
� C%=B%+43
�
� �Ft<0 �
�Hș"Wimp_ReportError",�4,�(0))+"Sorry, all slots occupied.",1,"Graph"
��
��
��:C%+=1:�?C%=0 �?C%=&D
�
?C%=&D
�P$=$(B%+44)
�B%!12=B%!8
� B%!16=4
�*� v%=0 ș"Wimp_SendMessage",17,B%,B%!4
�ș"OS_Find",67,P$ � H%
�
� H%<>0 �
�"ș"OS_GBPB",4,H%,Wb%,�(Log$)+1
��$Wb%=Log$ �
� Gn%=�Ft
�S� Gw%(Gn%)=0 Gw%(Gn%)=�LNW(Ph$+"Templates","PlotWindow"):Gw%(Gn%)=�CW(Gw%(Gn%))
�F$(Gn%)=�RS(H%)
�� P%=10 �19
� �LS(Gw%(Gn%),P%,�RS(H%))
��
� �LS(Gw%(Gn%),30,�RS(H%))
� F$(Gn%)=�ReS(Gw%(Gn%),10)
� �RM(Gn%)
�� P%=0 �19
�Gp(Gn%,P%)=�(�RS(H%))
��
�os1=�(�RS(H%))/OS1
�3Gp(Gn%,8)=Gp(Gn%,8)*os1:Gp(Gn%,9)=Gp(Gn%,9)*os1
��LS(Gw%(Gn%),5,�RS(H%))
�
� P%=0 �5
�$ș"OS_GBPB",4,H%,Wb%,4 � ,,,,Lt%
�Hp%(Gn%,P%)=!Wb%
��
� Hp%(Gn%,0)=0:Hp%(Gn%,3)=0
� ș"OS_Args",2,H% � ,,Et%
� � Et%-Lt%=Hp%(Gn%,1)+Ts% �
��CM(Gn%,3,Ts%)
��CM(Gn%,0,Hp%(Gn%,1))
�#ș"OS_GBPB",4,H%,Hp%(Gn%,3),Ts%
�*ș"OS_GBPB",4,H%,Hp%(Gn%,0),Hp%(Gn%,4)
�@ș"OS_GBPB",4,H%,Hp%(Gn%,0)+Hp%(Gn%,4),Hp%(Gn%,1)-Hp%(Gn%,4)
�4� C%=0� 180 �4:Hp%(Gn%,3)!C%=Hp%(Gn%,3)!C%*os1:�
�6� C%=192� 212 �4:Hp%(Gn%,3)!C%=Hp%(Gn%,3)!C%*os1:�
�'�SI(SW%,2):�SI(SW%,1):�SFg(SW%,1,0)
�+!Wb%=Gw%(Gn%):ș"Wimp_CloseWindow",,Wb%
� Ga%(Gn%)=�CPlotA(PA%):d%=20
�� �Ft=-1 �
�$�Se(IM%,3):�Se(On%,1):�Se(On%,4)
��Se(On%,8):�Se(IM%,4)
�� �UnSe(IM%,3)
��
�:�GF(Gn%,0,(Hp%(Gn%,3)!92*Te),(Hp%(Gn%,3)!92*Te),Font$)
�T�GF(Gn%,1,(Gp(Gn%,6)/Gp(Gn%,4))*Gp(Gn%,8),(Gp(Gn%,6)/Gp(Gn%,4))*Gp(Gn%,8),Font$)
�>Ga%(Gn%)=�CWW(Ga%(Gn%),Hp%(Gn%,3)!88,Hp%(Gn%,3)!84,Gn%,d%)
�$�ow(Ga%(Gn%),0,�Bd):CW%=Ga%(Gn%)
�A� ș"Wimp_ReportError",�4,�(0))+"Data file corrupt",1,"Graph"
� �Ce(Gn%)
��
�h� ș"Wimp_ReportError",�4,�(0))+"Data file incorrectly formated, please check its origin.",1,"Graph"
��
�ș"OS_Find",0,H%
��
��
�
� �FF(P$)
� R%,Q$
-ș"OS_FSControl",28,P$+".^" � ,,,r%:r%+=1
ș"OS_Find",67,P$+�(r%) � R%
� R%=0 =r%
ȕ R%>0�r%>0
r%-=1
ș"OS_Find",0,R%
ș"OS_Find",67,P$+�(r%) � R%
�
� R%>0 ș"OS_Find",0,R%
=r%
� �GD(N%)
,!Wb%=Ga%(N%):ș"Wimp_GetWindowInfo",,Wb%
)Hp%(N%,3)!48=Wb%!4:Hp%(N%,3)!52=Wb%!8
7Hp%(N%,3)!56=Hp%(N%,3)!88:Hp%(N%,3)!60=Hp%(N%,3)!92
8Hp%(N%,3)!64=Hp%(N%,3)!96:Hp%(N%,3)!68=Hp%(N%,3)!100
Dș"Font_ReadDefn",Fh%(N%,0),Wb% � ,Wb%,Hp%(N%,3)!72,Hp%(N%,3)!76
Hp%(N%,3)!160=Hp%(N%,3)!156
Hp%(N%,3)!164=Hp%(N%,3)!152
Hp%(N%,3)!80=Hp%(N%,3)!84
Hp%(N%,3)!136=Hp%(N%,3)!116
Hp%(N%,3)!140=Hp%(N%,3)!128
Hp%(N%,3)!148=Hp%(N%,3)!144
Hp%(N%,3)!172=Hp%(N%,3)!168
Hp%(N%,3)!180=Hp%(N%,3)!176
#Hp%(N%,3)!184=1:Hp%(N%,3)!188=1
Hp%(N%,3)!192=Hp%(N%,3)!112
Hp%(N%,3)!200=Hp%(N%,3)!196
Hp%(N%,3)!208=Hp%(N%,3)!204
�TT(N%)
�
� �CW(W%)
� X%,Y%
!'!Wb%=W%:ș"Wimp_GetWindowInfo",,Wb%
"X%=Wb%!12-Wb%!4
#Y%=Wb%!16-Wb%!8
$!Wb%!4=(�OSX-(Wb%!12-Wb%!4))/2
%!Wb%!8=(�OSY-(Wb%!16-Wb%!8))/2
&Wb%!12=Wb%!4+X%
'Wb%!16=Wb%!8+Y%
( ș"Wimp_DeleteWindow",,Wb%
)%ș"Wimp_CreateWindow",,Wb%+4 � W%
*=W%
+� �Drag(B%)
, � Ds%
- ș"Wimp_GetIconState",,B%+12
. B%!16=5
/+!Wb%=B%!12:ș"Wimp_GetWindowState",,Wb%
0#B%!20+=Wb%!4:B%!24=Wb%!16+B%!24
1#B%!28+=Wb%!4:B%!32=Wb%!16+B%!32
2)B%!36=0:B%!40=0:B%!44=�OSX:B%!48=�OSY
3
DW%=B%!12
4 ș"OS_Byte",161,&1C � ,,Ds%
5Ds%=(Ds%�2)<>0
6 � Ds% �
7;ș"DragASprite_Start",&A1,1,"file_"+�~(Df%),B%+20,B%+36
8 � ș"Wimp_DragBox",,B%+12
9�
:�
;� �DB(B%,N%)
< Dg%=�
= B%!16=6
>*!Wb%=B%!12:ș"Wimp_GetWindowInfo",,Wb%
?B%!20=!B%+2:B%!24=B%!4
@B%!28=!B%+2:B%!32=B%!4
A5B%!36=Wb%!4:B%!40=Wb%!8:B%!44=Wb%!12:B%!48=Wb%!16
BB%!56=�XGP(N%,Gp(N%,0))
C � B%!56>B%!36 B%!36=B%!56
DB%!56=�XGP(N%,Gp(N%,1))
E � B%!56<B%!44 B%!44=B%!56
FB%!56=�YGP(N%,Gp(N%,3))
G � B%!56<B%!48 B%!48=B%!56
HB%!56=�YGP(N%,Gp(N%,2))
I � B%!56>B%!40 B%!40=B%!56
J&B%!52=0:B%!56=0:B%!60=0:B%!64=0
Kș"Wimp_DragBox",,B%+12
L�
M
N � �DE
O � P%,p%
PP$=�ReS(DW%,2)
Q�
R P%+=1
S p%=P%
TP%=�P$,".",P%)
U
� P%=0
VP$=�P$,p%,12)
W ș"Wimp_GetPointerInfo",,Wb%
X Wb%!20=Wb%!12:Wb%!24=Wb%!16
Y Wb%!28=Wb%!0:Wb%!32=Wb%!4
ZWb%!36=0:Wb%!40=Df%
[ $(Wb%+44)=�P$,�(P$))+�(0)
\/!Wb%=44+�($(Wb%+44))+(4-(�($(Wb%+44))�4))�4
]Wb%!4=0:Wb%!8=0
^Wb%!12=0:Wb%!16=1
_-ș"Wimp_SendMessage",17,Wb%,Wb%!20,Wb%!24
`�
a
� �DS(B%)
b� P$,C%,Fs%:C%=B%+43
c
P$=LP$
d� DW%=Dw% P$=DP$
e�:C%+=1:�?C%=0
f
?C%=&D
g �LS(DW%,2,$(B%+44)):?C%=&D
h!� DW%=Dw% �SD(Sn%) � �SL(Sn%)
i�LS(DW%,2,P$)
j � DW%=Dw% DP$=P$ � LP$=P$
kB%!36=Fs%:B%!16=3
l#ș"Wimp_SendMessage",17,B%,B%!4
m�
n
� �PK(B%)
o� B%!24=&D �Ct(Gn%):�
p� B%!24=&18A �
q^� B%!4>=10 �B%!4<19 ș"Wimp_SetCaretPosition",!B%,B%!4+1,B%!8,B%!12,-1,�(�ReS(!B%,B%!4+1))
rL� B%!4=19 ș"Wimp_SetCaretPosition",!B%,30,B%!8,B%!12,-1,�(�ReS(!B%,30))
s�
t� B%!24=&19A �
u^� B%!4>10 �B%!4<=19 ș"Wimp_SetCaretPosition",!B%,B%!4-1,B%!8,B%!12,-1,�(�ReS(!B%,B%!4-1))
vL� B%!4=30 ș"Wimp_SetCaretPosition",!B%,19,B%!8,B%!12,-1,�(�ReS(!B%,19))
w�
x�
y�
z
� �ZK(B%)
{� B%!4=0 �
|7ș"Wimp_SetCaretPosition",!B%,1,B%!8,B%!12,-1,B%!20
}� �ZS(Zn%)
~ � Wb%!28=-1 Wb%!28=Zoom%
ș"Wimp_OpenWindow",,Wb%
��
��
�� �ZS(Zn%)
�� x%,X%,R,u%,v%,w%
�'u%=Hp%(Zn%,3)!184:v%=Hp%(Zn%,3)!188
� Hp%(Zn%,3)!184=�RN(Zoom%,0)
� Hp%(Zn%,3)!188=�RN(Zoom%,1)
�(� Hp%(Zn%,3)!184<=0 Hp%(Zn%,3)!184=1
�(� Hp%(Zn%,3)!188<=0 Hp%(Zn%,3)!188=1
�#R=Hp%(Zn%,3)!184/Hp%(Zn%,3)!188
�,� (Hp%(Zn%,3)!56*R*Gp(Zn%,10))/�OSX>20 �
�#�LN(Zoom%,0,u%):�LN(Zoom%,1,v%)
�'Hp%(Zn%,3)!184=u%:Hp%(Zn%,3)!188=v%
�#R=Hp%(Zn%,3)!184/Hp%(Zn%,3)!188
�-!Wb%=Ga%(Zn%):ș"Wimp_GetWindowInfo",,Wb%
��
��
�-!Wb%=Ga%(Zn%):ș"Wimp_GetWindowInfo",,Wb%
� w%=!Wb%
� ș"Wimp_DeleteWindow",,Wb%
�x%=Wb%!4:X%=Wb%!12
�BWb%!12=Wb%!4+(Hp%(Zn%,3)!56*R):Wb%!56=Wb%!48+(Hp%(Zn%,3)!56*R)
�?Hp%(Zn%,3)!88=Hp%(Zn%,3)!56*R:Hp%(Zn%,3)!84=Hp%(Zn%,3)!80*R
�+ș"Wimp_CreateWindow",,Wb%+4 � Ga%(Zn%)
�$�LN(Gw%(Zn%),19,�(Gp(Zn%,16)*R))
��CS(Zn%,-1)
�-!Wb%=Ga%(Zn%):ș"Wimp_GetWindowInfo",,Wb%
� ș"Wimp_DeleteWindow",,Wb%
�Wb%!4=x%:Wb%!12=X%
�+ș"Wimp_CreateWindow",,Wb%+4 � Ga%(Zn%)
�� w%=CW% CW%=Ga%(Zn%)
��
�
� �IZ(I%)
�-Hp%(Zn%,3)!(168+I%*4)=(�RN(Zoom%,I%)+1)�7
�5� Hp%(Zn%,3)!(168+I%*4)=0 Hp%(Zn%,3)!(168+I%*4)=7
�'�LN(Zoom%,I%,Hp%(Zn%,3)!(168+I%*4))
��
�
� �DZ(I%)
�)Hp%(Zn%,3)!(168+I%*4)=�RN(Zoom%,I%)-1
�6� Hp%(Zn%,3)!(168+I%*4)<=0 Hp%(Zn%,3)!(168+I%*4)=1
�'�LN(Zoom%,I%,Hp%(Zn%,3)!(168+I%*4))
��
�
� �RS(H%)
� � B$,b%
��
�"ș"OS_GBPB",4,H%,Wb%,1 � ,,,b%
�� b%>0 =" "
�B$=B$+�(?Wb%)
�
� ?Wb%=&D
�=B$
�� �LM(X%,Y%,P$)
�� k%,r%,p%
�'ș"OS_FSControl",28,P$+".^" � ,,,r%
�"� LMenu%<>0 LMenu%=�HF(LMenu%)
� LMenu%=�HCm((r%+1)*24+28)
�6$LMenu%="Log files":LMenu%!12=&70207:LMenu%!16=176
� LMenu%!20=44:LMenu%!24=0
� p%=28
�$(LMenu%+p%+12)="None"
� ȕ r%>=0
� !h%=0
�2ș"OS_GBPB",10,P$+".^",h%,1,k%,36,"*" � ,,,,r%
� h%?33=&D
� k%+=1
� LMenu%!p%=0:LMenu%!(p%+4)=-1
�LMenu%!(p%+8)=&7000039
�D� (!h%�&FFFFFF00)=&FFFFFD00 � r%>=0 �h%!16=1 ��$(h%+20),�(0))>1�
�6$(LMenu%+p%+12)=�$(h%+20),�$(h%+20),�(0))-1)+�(&D)
�LMenu%!(p%+4)=LDM%
�
p%+=24
��
��
�� p%<52 p%=52
�LMenu%!(p%-24)=&80
�(ș"Wimp_CreateSubMenu",,LMenu%,X%,Y%
��
�
�� �AP(N%,D$)
�
� N%>=0 �
� � �InGraph(N%) �
�8 � �Ig% ș"OS_SpriteOp",256+36,Spt%,D$,2,0,0,0:Ig%=�
� � Cd%<>� �UC(MW%)
� �
�! � Ig% �"POINTER 1":Ig%=�:�NC
� �
�� �"POINTER 1":Ig%=�
��
��
�� �InGraph(N%)
� � X,Y
�
� N%<0 =�
�,!Wb%=Ga%(N%):ș"Wimp_GetWindowInfo",,Wb%
�#ș"Wimp_GetPointerInfo",,Wb%+60
�� Wb%!72<>!Wb% =�
�#� Wb%!60<Wb%!4�Wb%!60>Wb%!12 =�
�#� Wb%!64<Wb%!8�Wb%!64>Wb%!16 =�
�X=�XP(N%,Wb%!60)
�Y=�YP(N%,Wb%!64)
� � X<Gp(N%,0) �X>Gp(N%,1) =�
� � Y<Gp(N%,2) �Y>Gp(N%,3) =�
�=�
�� �PMove(X%,Y%)
� ș"Wimp_GetPointerInfo",,Wb%
�� X%=!Wb%�Y%=Wb%!4 =�
�PX%=!Wb%:PY%=Wb%!4
�=�
�
� �BE(B%)
� � n%,w%,i%,x%,x1%,y%,y1%
�6� Cd%<>� !Wb%=Cd%:ș"Wimp_CloseWindow",,Wb%:Cd%=�
��"POINTER 1":Ig%=�
�� �Dy% M%=M%�1
�n%=�FindW(MW%)
� Dg%=�
�
w%=�Ft
� � n%<0 �
� � w%<0 �
�Hș"Wimp_ReportError",�4,�(0))+"Sorry, all slots occupied.",1,"Graph"
� MW%=�
��
��
�(!Wb%=MW%:ș"Wimp_GetWindowInfo",,Wb%
� MW%=�
��!B%>B%!8 Ȕ !B%,B%!8
� � B%!4>B%!12 Ȕ B%!4,B%!12
�,!Wb%=Gw%(Gn%):ș"XWimp_CloseWindow",,Wb%
�
Gn%=w%
�!� Hp%(Gn%,3)=0 �CM(Gn%,3,Ts%)
�� Gw%(Gn%)=0 �
1 Gw%(Gn%)=�LNW(Ph$+"Templates","PlotWindow")
�
% �LS(Gw%(Gn%),5,�ReS(Gw%(n%),5))
' �LS(Gw%(Gn%),10,�ReS(Gw%(n%),10))
B �LN(Gw%(Gn%),11,�XPP(n%,!B%)):�LN(Gw%(Gn%),12,�XPP(n%,B%!8))
D �LN(Gw%(Gn%),13,�YPP(n%,B%!4)):�LN(Gw%(Gn%),14,�YPP(n%,B%!12))
� i%=11 �14
, �LS(Gw%(Gn%),i%,��ReS(Gw%(Gn%),i%),6))
�
� �CC(Gn%) �
� i%=15 �19
' �LS(Gw%(Gn%),i%,�ReS(Gw%(n%),i%))
�
' �LS(Gw%(Gn%),30,�ReS(Gw%(n%),30))
Gw%(Gn%)=�CW(Gw%(Gn%))
�SM(Gn%)
�SP(Gn%)
�SP(Gn%)
( � Hp%(Gn%,3)<>0 �ow(Gw%(Gn%),0,-1)
�
�
� �XP(N%,X)
� x%,x1%
Wb%!68=Ga%(N%)
"ș"Wimp_GetWindowInfo",,Wb%+68
\x%=(Wb%!72-Wb%!88)+Hp%(N%,3)!96-2:x1%=((Wb%!72-Wb%!88)+(Wb%!120-Wb%!112))-Hp%(N%,3)!96-2
3=((X-x%)/(x1%-x%))*(Gp(N%,1)-Gp(N%,0))+Gp(N%,0)
� �YP(N%,Y)
� y%,y1%
Wb%!68=Ga%(N%)
!"ș"Wimp_GetWindowInfo",,Wb%+68
"ay1%=(Wb%!84-Wb%!92)-(Wb%!124-Wb%!116):y%=y1%+Hp%(N%,3)!100:y1%=y1%+Hp%(N%,3)!92-Hp%(N%,3)!100
#3=((Y-y%)/(y1%-y%))*(Gp(N%,3)-Gp(N%,2))+Gp(N%,2)
$
%� �XGP(N%,X)
&!Wb%=Ga%(N%)
' ș"Wimp_GetWindowInfo",,Wb%
(c=(((X-Gp(N%,0))/(Gp(N%,1)-Gp(N%,0)))*(Hp%(N%,3)!88-2*Hp%(N%,3)!96))+(Wb%!4-Wb%!20)+Hp%(N%,3)!96
)
*� �YGP(N%,Y)
+!Wb%=Ga%(N%)
, ș"Wimp_GetWindowInfo",,Wb%
-z=(((Y-Gp(N%,2))/(Gp(N%,3)-Gp(N%,2)))*(Hp%(N%,3)!92-2*Hp%(N%,3)!100))+((Wb%!16-Wb%!24)-(Wb%!56-Wb%!48))+Hp%(N%,3)!100-2
.
/
� �Cd(W%)
0 Cd%=CdW%
1� Cd%=0 Cd%=�:�
2 �MC(W%)
3�
4
5�
6
� �MC(W%)
7)!Wb%=CdW%:ș"Wimp_GetWindowInfo",,Wb%
8/Wb%!60=W%:ș"Wimp_GetWindowOutline",,Wb%+60
9.Wb%!12=Wb%!64+(Wb%!52-Wb%!44):Wb%!4=Wb%!64
:.Wb%!16=Wb%!68:Wb%!8=Wb%!16-(Wb%!56-Wb%!48)
;
Wb%!28=-1
< ș"Wimp_OpenWindow",,Wb%
=�
>
?
� �UC(W%)
@ � n%,x,y
An%=�FindW(W%)
B#ș"Wimp_GetPointerInfo",,Wb%+60
Cx=�XPP(n%,Wb%!60)
Dy=�YPP(n%,Wb%!64)
E�LN(Cd%,1,x)
F�LN(Cd%,4,y)
G�
H
I � �NC
J �LS(Cd%,1,"Outside Graph")
K �LS(Cd%,4,"Outside Graph")
L�
M
N
O� �XPP(N%,X%)
P� x
Qx=�XP(N%,X%)
R� x<Gp(N%,0) x=Gp(N%,0)
S� x>Gp(N%,1) x=Gp(N%,1)
T=x
U
V� �YPP(N%,Y%)
W� y
Xy=�YP(N%,Y%)
Y� y<Gp(N%,2) y=Gp(N%,2)
Z� y>Gp(N%,3) y=Gp(N%,3)
[=y
\
]� �SW(F%,S$)
^� x%
_ș"Font_SetFont",F%
`%ș"Font_StringBBox",,S$ � ,x%,,F%
a%ș"Font_ConverttoOS",,F%-x% � ,x%
b=x%
c
d
e� �SHD(F%)
f
� Y1%,Y2%
g%ș"Font_ReadInfo",F% � ,,Y1%,,Y2%
h$ș"Font_ReadDefn",F%,Wb% � ,,,F%
i*ș"Font_ConverttoOS",,1,F%*62.5 � ,,F%
j=(Y2%-Y1%)-F%
k� �GF(N%,n%,SX%,SY%,F$)
l0ș"Font_Converttopoints",,SX%,SY% � ,SX%,SY%
m SX%=SX%/1000:SY%=SY%/1000
nC� SY%>max3% ș"Font_SetFontMax",Max0%,Max1%,Max2%,SY%:max3%=SY%
o9ș"Font_FindFont",,F$,SX%*16,SY%*16,0,0 � Fh%(N%,n%)
p�
q
� �LFs
r � N%,n%
s ȕ n%<=1
tN%=0
uȕ N%<=Ng%
v0� Fh%(N%,n%)>=0 ș"Font_LoseFont",Fh%(N%,n%)
wFh%(N%,n%)=�
x N%+=1
y�
z n%+=1
{�
|�LDF
}�
~
� �LDF
� N%,P%
�� P%=0�255
�ȕ Font%?P%>0
�ș"Font_LoseFont",P%
�Font%?P%-=1
��
��
��
�� �FN(F$,B%)
�� C%
��
�'ș"Font_ListFonts",,B%,C%,-1 � ,,C%
�� F$=$B% �C%<0
�=C%
�#� �WFTt(N%,T$,H%,X%,Y%,XF%,YF%)
� � PR%
�Wb%!32=�FontDef(N%,Wb%)
�
!Wb%=1
�2Wb%!8=Hp%(N%,3)!48*256:Wb%!12=Hp%(N%,3)!52*256
�@Wb%!16=Wb%!8+Hp%(N%,3)!56*256:Wb%!20=Wb%!12+Hp%(N%,3)!60*256
� Wb%!24=0
�Wb%!28=&FFFFFF00
�Wb%!36=XF%*40
�Wb%!40=YF%*40
�Wb%!44=X%*256
�Wb%!48=Y%*256
�%$(Wb%+52)=T$+�4-((�(T$))�4),�(0))
�Wb%!4=�($(Wb%+52))+52
� ș"OS_Args",2,H% � ,,PR%
�ș"OS_Args",1,H%,PR%
�"ș"OS_GBPB",1,H%,Wb%,Wb%!4,PR%
��
�� �WPO(N%,P%,L%,H%)
� � PR%
�
!Wb%=2
�Wb%!4=40+L%
�2Wb%!8=Hp%(N%,3)!48*256:Wb%!12=Hp%(N%,3)!52*256
�@Wb%!16=Wb%!8+Hp%(N%,3)!56*256:Wb%!20=Wb%!12+Hp%(N%,3)!60*256
�
Wb%!24=-1
� Wb%!28=0
� Wb%!32=0
� Wb%!36=0
� ș"OS_Args",2,H% � ,,PR%
�ș"OS_Args",1,H%,PR%
� ș"OS_GBPB",1,H%,Wb%,40,PR%
��CM(N%,5,L%+4)
� Hp%(N%,5)!0=0:Hp%(N%,5)!4=L%
�?ș"Draw_TransformPath",P%,Hp%(N%,5),Hp%(N%,3)+24,0 � Point%
� ș"OS_Args",2,H% � ,,PR%
�ș"OS_Args",1,H%,PR%
�%ș"OS_GBPB",1,H%,Hp%(N%,5),L%,PR%
� Hp%(N%,5)=�HF(Hp%(N%,5))
��
�� �WFT(N%,H%)
�� F%,L%,PR%,F$
�F%=�FontDef(N%,Wb%)
�*ș"Font_ReadDefn",Fh%(N%,0),Wb% � ,Wb%
�$F$=$Wb%+�4-((�($Wb%)+1)�4),�(0))
�L%=�(F$)+9
�!Wb%=0:Wb%!4=L%
� Wb%?8=F%
�$(Wb%+9)=F$
� ș"OS_Args",2,H% � ,,PR%
�ș"OS_Args",1,H%,PR%
� ș"OS_GBPB",1,H%,Wb%,L%,PR%
��
�� �FontDef(N%,B%)
�(ș"Font_ReadDefn",Fh%(N%,0),B% � ,B%
�=�FN($B%,B%)
�
� � �HI
�� T%
� ș"OS_ReadMemMapInfo" � PS%
� HS%=PS%
� ș"Wimp_SlotSize",-1,-1 � T%
�HL%=T%+&8000
�&ș"Wimp_SlotSize",HL%+HS%-&8000,-1
�ș"OS_Heap",0,HL%,,HS%
��
�
� �HLF
�� T%
� ș"OS_Heap",1,HL% � ,,T%
�=T%
�
�� �HCm(Size%)
�� T%
� �(Size%� PS%)=0 Size%+=4
�$ș"XOS_Heap",2,HL%,,Size% � ,,T%
�� T%<>0 � =T%
�� �HEH(Size%)= � � =0
�$ș"XOS_Heap",2,HL%,,Size% � ,,T%
��HS
�=T%
�� �HEH(Size%)
�� S%,F%,T%
�S%=�HR(HS%+Size%)
�� S%-HS%<0 �HS: =�
�+ș"XWimp_SlotSize",HL%+S%-&8000,-1 �;F%
��(F%�1)=1 �=�
� ș"OS_Heap",5,HL%,,S%-HS%
�
HS%=S%
�=�
�
�� �HC(Bk%,Change%)
�� N%,F%,T%,S%
�� Change%<0 �
�!ș"OS_Heap",6,HL%,Bk% � ,,,S%
� � Change%+S%<=0 =�HF(Bk%)
��
�,ș"XOS_Heap",4,HL%,Bk%,Change% � ,,N%;F%
��(F%�1)=0 �
�� �HLF>0 �HS
�=�Check(N%)
��
�� �HEH(Change%)=� � =0
�,ș"XOS_Heap",4,HL%,Bk%,Change% � ,,N%;F%
��(F%�1)=0 �=�Check(N%)
�N%=�HEH(-Change%)
�!ș"OS_Heap",6,HL%,Bk% � ,,,T%
� � �HEH(T%+Change%)=� � =0
�,ș"XOS_Heap",4,HL%,Bk%,Change% � ,,N%;F%
� �(F%�1)=0 �=�Check(N%) � =0
�
�
�� �Check(N%)
� � N%<>Bk%�N%<>0 =N%�1<<31
�=N%
�� �BS(Bk%)
�� S%
!ș"OS_Heap",6,HL%,Bk% � ,,,S%
=S%
� �HF(Bk%)
� Bk%<=0 =0
ș"OS_Heap",3,HL%,Bk%
�HS
=0
� �HS
� S%,T%
S%=HS%
#ș"XOS_Heap",5,HL%,,-S% � ,,,T%
� T%=-S% � T%=S%
HS%=�HR(HS%-T%)
"ș"OS_Heap",5,HL%,,HS%-(S%-T%)
&ș"Wimp_SlotSize",HL%+HS%-&8000,-1
�
� �HR(S%)
� T%
�(S%� PS%)<>0 �
T%=PS%-(S%� PS%)
S%+=T%
�
=S%
� �LW(F$,W$,F%)
� H%,h%,f%
ș"Wimp_OpenTemplate",,F$
Mș"XWimp_LoadTemplate",,Wb%,Icon%,Icons%+IL%,F%,W$,0 � c%,,Icon%,,,,H%;f%
�(f%�1)=1 �
� c%<>&284 �
ș"OS_GenerateError",c%
! �
" �
#�
$ș"Wimp_CloseTemplate"
%
� H%<>0 �
&#ș"Wimp_CreateWindow",,Wb% � H%
'�
(@ș"Wimp_ReportError"," Window "+W$+" not found",1,"Graph"
)�
*�
+=H%
,� �ow(H%,D%,B%)
- !Wb%=H%
. ș"Wimp_GetWindowInfo",,Wb%
/Wb%!4+=D%:Wb%!12+=D%
0Wb%!8-=D%:Wb%!16-=D%
1
Wb%!28=B%
2 ș"Wimp_OpenWindow",,Wb%
3�
4
5
� �TW(H%)
6
� H%<=0 �
7�ow(H%,0,-1)
8�
9
:� �CWW(H%,X%,Y%,n%,D%)
; !Wb%=H%
< ș"Wimp_GetWindowInfo",,Wb%
=Wb%!48=Y%:Wb%!56=0
>Wb%!44=0:Wb%!52=X%
? ș"Wimp_DeleteWindow",,Wb%
@)Wb%!4=Wb%!4+n%*D%:Wb%!12=Wb%!12+n%*D%
A)Wb%!8=Wb%!8-n%*D%:Wb%!16=Wb%!16-n%*D%
B%ș"Wimp_CreateWindow",,Wb%+4 � H%
C=H%
D� �IconBar(I$)
E5Buf%!0=-1:Buf%!4=0:Buf%!8=0:Buf%!12=68:Buf%!16=68
FBuf%!20=%11010+(3<<12)
G$(Buf%+24)=I$
H%ș"Wimp_CreateIcon",,Buf% � !Buf%
I
=!Buf%
J
K
L
� �FS(F$)
M � S%,L%
N S%=� F$
O L%=�#S%
P�#S%
Q=L%
R
S� �GP(W%,I%)
T!Wb%=W%:Wb%!4=I%
U ș"Wimp_GetIconState",,Wb%
VȎ Wb%!24�&101 �
W �1:I%=Wb%+28
X �&101:I%=Wb%!28
Y�
Z=I%
[� �RN(W%,I%)
\I%=�GP(W%,I%)
] � $I%="" =1 � � �($I%)=0 =1
^ =�($I%)
_
`� �RN0(W%,I%)
aI%=�GP(W%,I%)
b� $I%="" $I%="0"
c =�($I%)
d
e� �LN(W%,I%,N)
fI%=�GP(W%,I%)
g $I%=�(N)
hWb%!8=0:Wb%!12=0
i ș"Wimp_SetIconState",,Wb%
j�
k
l� �ReS(W%,I%)
mI%=�GP(W%,I%)
n=$I%
o
p� �LS(W%,I%,S$)
q$(�GP(W%,I%))=S$
rWb%!8=0:Wb%!12=0
s ș"Wimp_SetIconState",,Wb%
t�
u
v
w� �SI(W%,I%)
x!Wb%=W%:Wb%!4=I%
y Wb%!8=0+1<<22:Wb%!12=Wb%!8
z ș"Wimp_SetIconState",,Wb%
{�
|
}� �UnSI(W%,I%)
~!Wb%=W%:Wb%!4=I%
Wb%!8=0:Wb%!12=0+1<<22
� ș"Wimp_SetIconState",,Wb%
��
�
�� �RSelect(W%,I%)
�!Wb%=W%:Wb%!4=I%
� ș"Wimp_GetIconState",,Wb%
�=Wb%!24�1<<21
�
�� �RShade(W%,I%)
�!Wb%=W%:Wb%!4=I%
� ș"Wimp_GetIconState",,Wb%
�=Wb%!24�1<<22
�
�� �Si(W%,I%)
�!Wb%=W%:Wb%!4=I%
� Wb%!8=0+1<<21:Wb%!12=Wb%!8
� ș"Wimp_SetIconState",,Wb%
��
�
�� �USI(W%,I%)
�!Wb%=W%:Wb%!4=I%
�Wb%!12=0+1<<21:Wb%!8=0
� ș"Wimp_SetIconState",,Wb%
��
�
�� �SFg(W%,I%,V%)
� V%=V%�&F
�!Wb%=W%:Wb%!4=I%
� Wb%!8=0+V%<<12:Wb%!12=&F000
� ș"Wimp_SetIconState",,Wb%
��
�
�� �IconMenu(D%,D$)
�� H%,I%,N%,J%
� I%=28
�H%=�(Ph$+D$)
� �#H%,D$
��BM(D%,D$)
��
� �#H%,D$
��Menu(D%+I%,D$)
� N%+=1
�
I%+=24
� � �#H%=�
�"!(D%+I%-24)=!(D%+I%-24)�(1<<7)
�D%!16=D%!16+10
��#H%
�=N%
�
�� �BM(B%,D$)
�
$B%=D$
�B%!12=&70207
�B%!16=�($B%)*16
� B%!20=44
� B%!24=0
��
�
�� �Menu(B%,D$)
�� E$:E$=D$
� !B%=0
� B%!4=-1
�� �D$)=">" �
� E$=�D$,�(D$)-1):�#H%,D$
� � �D$,1)="/" �
� � �D$,�(D$)-1)<>" " �
�/ B%!4=�LW(Ph$+"Templates",�D$,�(D$)-1),-1)
� � B%!4=&8000:!B%=&8
� �
� �
� �
�#� �(E$)*16>D%!16 D%!16=�(E$)*16
�B%!8=&7000031
�$(B%+12)=E$
��
�
�� �MenuSize(D$)
� � S%,E$
�H%=�(Ph$+D$)
� �#H%,D$
� S%=28
��
� �#H%,D$
�
S%+=24
�&� �D$)=">" �#H%,E$:D$=�D$,�(D$)-1)
� � �(D$)>=12 S%=S%+�(D$)+1
� � �#H%=�
��#H%
�=S%
�� �Se(B%,N%)
�B%+=4:N%+=1
��
�
B%+=24
� N%-=1
� � N%<=0 B%!8=B%!8�(1<<22)
�� (!B%�&80)>0 �N%<=0
��
�� �UnSe(B%,N%)
�B%+=4:N%+=1
��
�
B%+=24
� N%-=1
� � N%<=0 B%!8=B%!8�&FFBFFFFF
�� (!B%�&80)>0 �N%<=0
��
�� �Tk(B%,S$)
�B%=�MenuItem(B%,S$)
� � B%=� �
�
!B%=!B%�1
��
�� �UnTk(B%,S$)
�B%=�MenuItem(B%,S$)
� � B%=� �
�!B%=!B%�&FFFFFFFE
��
�� �RTk(B%,S$)
�B%=�MenuItem(B%,S$)
�
� B%=� =�
�
=!B%�1
�� �MenuItem(B%,S$)
�� I%
�
B%+=12
��
�
B%+=24
�Ȏ !B%�&101 �
� �1:I%=B%+4
� �&101:I%=B%!4
� �
� � S$=$I% � ((B%!-8)�&80)>0
� S$<>$I% =-1
=B%-8
� �MenuWh(B%,N%)
B%+=4:N%+=1
�
B%+=24
N%-=1
� N%<=0 =B%!4
� (!B%�&80)>0 �N%<=0
�
� �Plot(X)
� �
� � � �
Limit%=�
)� X<>0 y=�(F$(N%)) � X+=I:y=�(F$(N%))
� y>Gp(N%,3) �
;� Q%=8 �X>0 x1=x1+((Gp(N%,3)-y1)/(y-y1))*(X-x1):Ȕ X,x1
;� Q%=8 �X<0 x1=x1-((Gp(N%,3)-y1)/(y-y1))*(x1-X):Ȕ X,x1
y2=y:y=Gp(N%,3):Limit%=�
�
� y<Gp(N%,2) �
;� Q%=8 �X>0 x1=x1+((y1-Gp(N%,2))/(y1-y))*(X-x1):Ȕ X,x1
;� Q%=8 �X<0 x1=x1-((y1-Gp(N%,2))/(y1-y))*(x1-X):Ȕ X,x1
y2=y:y=Gp(N%,2):Limit%=�
�
� Limit%=� �Q%=7 �
� y2>Gp(N%,3) �
-� X>0 x1=x1+((y2-Gp(N%,3))/(y2-y))*(X-x1)
-� X<0 x1=x1-((y2-Gp(N%,3))/(y2-y))*(x1-X)
y1=Gp(N%,3)
!�
"� y2<Gp(N%,2) �
#-� X>0 x1=x1+((Gp(N%,2)-y2)/(y-y2))*(X-x1)
$-� X<0 x1=x1-((Gp(N%,2)-y2)/(y-y2))*(x1-X)
%y1=Gp(N%,2)
&�
'��Add(2):�Add((x1-Gp(N%,0)-Gp(N%,4))/Gp(N%,4)):�Add((y1-Gp(N%,2))/Gp(N%,5)):Q%=8:�Add(Q%):�Add((X-Gp(N%,0))/Gp(N%,4)):�Add((y-Gp(N%,2))/Gp(N%,5))
(N� � Q%<>7 �Add(Q%):�Add((X-Gp(N%,0))/Gp(N%,4)):�Add((y-Gp(N%,2))/Gp(N%,5))
)�
*� Limit%=� �Q%=8�
+RQ%=7:�Add(2):�Add((x1-Gp(N%,0)-Gp(N%,4))/Gp(N%,4)):�Add((y-Gp(N%,2))/Gp(N%,5))
, Ȕ X,x1
-� � Q%<>7 Q%=8
.�
/
y1=y:x1=X
0�
1
� �UpDate
2�UDP
3 �Poll(&00001800,Buf%+256)
4�
5� �Add(V%)
6 � Hp%(N%,1)+4>=Hp%(N%,2) �
7"Hp%(N%,0)=�HC(Hp%(N%,0),PS%/3)
8!Hp%(N%,0)=Hp%(N%,0)�&7FFFFFFF
9E� Hp%(N%,0)=0 � 0,"Not enough of that there memory for Draw path"
: Hp%(N%,2)=�BS(Hp%(N%,0))
;�
<Hp%(N%,0)!Hp%(N%,1)=V%
=Hp%(N%,1)+=4
>�
?� �PL(X,Xx,Y,Yy)
@C�Add(2):�Add((X-Gp(N%,0))/Gp(N%,4)):�Add((Y-Gp(N%,2))/Gp(N%,5))
AE�Add(8):�Add((Xx-Gp(N%,0))/Gp(N%,4)):�Add((Yy-Gp(N%,2))/Gp(N%,5))
B�
C
D � �FR
E � Q%,X,I
F� Gp(N%,20)>=Gp(N%,1) �
GI=Gp(N%,4)*Gp(N%,11)/20
HX=Gp(N%,20)
IQ%=2
Jȕ X<Gp(N%,1)
K �Plot(X)
L �UpDate
M� Ag%(N%)=N% �Quit% �
NX+=Gp(N%,4)*Gp(N%,11)
O�
P�Plot(Gp(N%,1))
Q�
R � �FL
S � Q%,X,I
T� Gp(N%,20)<=Gp(N%,0) �
U I=-Gp(N%,4)*Gp(N%,11)/20
VX=Gp(N%,20)
WQ%=2
Xȕ X>Gp(N%,0)
Y �Plot(X)
Z �UpDate
[� Ag%(N%)=N% �Quit% �
\X-=Gp(N%,4)*Gp(N%,11)
]�
^�Plot(Gp(N%,0))
_�
`
� �PG(N%)
aM� XDatum,YDatam,X,Y,X1,Y1,XG1,XG2,YG1,YG2,XGrad,YGrad,XInt,YInt,XSub,YSub
b � y1,y2,x1,Q%,y,Cal%,Limit%
cy1=0:Cal%=�
d �SPP(N%)
e �PGs(N%)
fHp%(N%,4)=Hp%(N%,1)
g�FR
h
y1=0:x1=0
i�FL
j �Add(0)
k Hp%(N%,3)!132=Hp%(N%,3)!120
l�
m
� �CC(N%)
n� X
o� �
ph� � � ș"Wimp_ReportError"," Formula syntax error in Graph ("+�(N%)+").",1,"!Graph":Ag%(N%)=N%:=�
qJ� �RN(Gw%(N%),12)<=�RN(Gw%(N%),11) ��RN(Gw%(N%),14)<=�RN(Gw%(N%),13) �
rTș"Wimp_ReportError"," Silly 'X' or 'Y' coords, please re-submit.",1,"!Graph"
s=�
t�
uX=Gp(N%,1)
vX=�(�ReS(Gw%(N%),10))
w=�
x
y� �PGs(N%)
z� X,X1,Y,Y1,M%,Fs%
{M%=�RSelect(Gw%(N%),35)
| XG1=Gp(N%,20):YG1=Gp(N%,21)
}�� Gp(N%,0)+XGrad*2>Gp(N%,20) �M%=0 XG2=XG1+XGrad:XG3=XG1+XGrad/2:Gp(N%,14)=Gp(N%,20)-XGrad*.2 � XG2=XG1-XGrad:XG3=XG1-XGrad/2:Gp(N%,14)=XG2-XGrad*.2
~�� Gp(N%,2)+YGrad*2>Gp(N%,21) �M%=0 YG2=YG1+YGrad:YG3=YG1+YGrad/2:Gp(N%,15)=Gp(N%,2)-Gp(N%,7)*1.2 � YG2=YG1-YGrad:YG3=YG1-YGrad/2:Gp(N%,15)=YG2-Gp(N%,7)
JHp%(N%,3)!116=(((Gp(N%,15)-Gp(N%,2))/Gp(N%,5))*Gp(N%,9))+Hp%(N%,3)!100
�:Hp%(N%,3)!112=((Gp(N%,14)-Gp(N%,0))/Gp(N%,4))*Gp(N%,8)
�.�PL(Gp(N%,20),Gp(N%,20),Gp(N%,2),Gp(N%,3))
�.�PL(Gp(N%,0),Gp(N%,1),Gp(N%,21),Gp(N%,21))
�X=Gp(N%,20)
�ȕ X<Gp(N%,1)
�
X1=X+XSub
� ȕ X1<X+XInt
�% � X1<Gp(N%,1) �PL(X1,X1,YG1,YG3)
�
X1+=XSub
� �
� X+=XInt
� � X>=Gp(N%,1) X=Gp(N%,1)
��PL(X,X,YG1,YG2)
� �Poll(&00001800,Buf%+256)
�� Ag%(N%)=N% �Quit% �
��
�X=Gp(N%,20)
�ȕ X>Gp(N%,0)
�
X1=X-XSub
� ȕ X1>X-XInt
�% � X1>Gp(N%,0) �PL(X1,X1,YG1,YG3)
�
X1-=XSub
� �
� X-=XInt
� � X<=Gp(N%,0) X=Gp(N%,0)
��PL(X,X,YG1,YG2)
� �Poll(&00001800,Buf%+256)
�� Ag%(N%)=N% �Quit% �
��
�Y=Gp(N%,21)
�ȕ Y<Gp(N%,3)
�
Y1=Y+YSub
� ȕ Y1<Y+YInt
�% � Y1<Gp(N%,3) �PL(XG1,XG3,Y1,Y1)
�
Y1+=YSub
� �
� Y+=YInt
� � Y>=Gp(N%,3) Y=Gp(N%,3)
��PL(XG1,XG2,Y,Y)
� �Poll(&00001800,Buf%+256)
�� Ag%(N%)=N% �Quit% �
��
�Y=Gp(N%,21)
�ȕ Y>Gp(N%,2)
�
Y1=Y-YSub
� ȕ Y1>Y-YInt
�% � Y1>Gp(N%,2) �PL(XG1,XG3,Y1,Y1)
�
Y1-=YSub
� �
� Y-=YInt
� � Y<=Gp(N%,2) Y=Gp(N%,2)
��PL(XG1,XG2,Y,Y)
� �Poll(&00001800,Buf%+256)
�� Ag%(N%)=N% �Quit% �
��
� �Add(0)
��
�
�� �SPP(N%)
�!XGrad=(Gp(N%,1)-Gp(N%,0))/Gm%
�!YGrad=(Gp(N%,3)-Gp(N%,2))/Gm%
�XInt=�RN(Gw%(N%),15)
�� XInt<=0 XInt=1
�YInt=�RN(Gw%(N%),16)
�� YInt<=0 YInt=1
�XSub=�RN(Gw%(N%),17)
�� XSub<1 XSub=1
�YSub=�RN(Gw%(N%),18)
�� YSub<1 YSub=1
�XSub=XInt/(XSub)
�YSub=YInt/(YSub)
�F$(N%)=�ReS(Gw%(N%),10)
��
�� �SXD(N%)
�3� Gp(N%,0)>0 =Gp(N%,0) � � Gp(N%,1)<0 =Gp(N%,1)
�=0
�� �SYD(N%)
�3� Gp(N%,2)>0 =Gp(N%,2) � � Gp(N%,3)<0 =Gp(N%,3)
�=0
�
� �OSX
�=�PX<<�XPixVal
�
� �OSY
�=�PY<<�YPixVal
� � �PX
�� X%
�(ș"OS_ReadModeVariable",-1,11 � ,,X%
� =X%+1
� � �PY
�� Y%
�(ș"OS_ReadModeVariable",-1,12 � ,,Y%
� =Y%+1
�� �XPixVal
�� X%
�'ș"OS_ReadModeVariable",-1,4 � ,,X%
�=X%
�� �YPixVal
�� Y%
�'ș"OS_ReadModeVariable",-1,5 � ,,Y%
�=Y%
�
� �SP(N%)
�Gp(N%,4)=1:Gp(N%,5)=1
�Gp(N%,13)=�OSX*4
�Gp(N%,12)=�OSY*4
� �SP1(N%)
�0� �RN(Gw%(N%),19)*(Gp(N%,10))/�RN(SW%,1)>1 �
�=Gp(N%,13)=�OSX*4*(�RN(Gw%(N%),19)*(Gp(N%,10))/�RN(SW%,1))
�=Gp(N%,12)=�OSY*4*(�RN(Gw%(N%),19)*(Gp(N%,10))/�RN(SW%,1))
��
� Gp(N%,0)=�RN0(Gw%(N%),11)
� Gp(N%,1)=�RN0(Gw%(N%),12)
� Gp(N%,2)=�RN0(Gw%(N%),13)
� Gp(N%,3)=�RN0(Gw%(N%),14)
� Gp(N%,18)=�RN(Gw%(N%),17)
� Gp(N%,19)=�RN(Gw%(N%),18)
�Gp(N%,20)=�SXD(N%)
�Gp(N%,21)=�SYD(N%)
�'Gp(N%,11)=Gp(N%,13)/�RN(Gw%(N%),30)
�*Gp(N%,4)=(Gp(N%,1)-Gp(N%,0))/Gp(N%,13)
�*Gp(N%,5)=(Gp(N%,3)-Gp(N%,2))/Gp(N%,12)
� �SP1(N%)
� �STs(N%)
��
�
� �TT(N%)
�� A%
�� A%=0 �20 �4
�"Hp%(N%,3)!(A%+24)=Hp%(N%,3)!A%
��
��
� �SM(N%)
>� �RShade(Gw%(N%),5)>0 M=1:Gp(N%,17)=1 � M=Mg:Gp(N%,17)=Mg
G� �ReS(Gw%(N%),5)="Graph width" Gp(N%,10)=1/Gp(N%,17) � Gp(N%,10)=1
�
� �SP1(N%)
0SizeF=�RN(Gw%(N%),19)*(Gp(N%,10))/�RN(SW%,1)
Hp%(N%,3)!88=�(�OSX*SizeF)
� Hp%(N%,3)!88<150 �
9�LN(Gw%(N%),19,�((150/Hp%(N%,3)!88)*�RN(Gw%(N%),19)))
0SizeF=�RN(Gw%(N%),19)*(Gp(N%,10))/�RN(SW%,1)
Hp%(N%,3)!88=�(�OSX*SizeF)
�
Hp%(N%,3)!92=�(�OSY*SizeF)
-Hp%(N%,3)!96=Hp%(N%,3)!88*(1-Gp(N%,17))/2
.Hp%(N%,3)!100=Hp%(N%,3)!92*(1-Gp(N%,17))/2
/Gp(N%,8)=(Hp%(N%,3)!88/Gp(N%,13))*Gp(N%,17)
/Gp(N%,9)=(Hp%(N%,3)!92/Gp(N%,12))*Gp(N%,17)
#Gp(N%,6)=(Gp(N%,1)-Gp(N%,0))/40
#Gp(N%,7)=(Gp(N%,3)-Gp(N%,2))/40
5Hp%(N%,3)!104=(�RN(Gw%(N%),15)/Gp(N%,4))*Gp(N%,8)
5Hp%(N%,3)!108=(�RN(Gw%(N%),16)/Gp(N%,5))*Gp(N%,9)
:Hp%(N%,3)!112=((Gp(N%,14)-Gp(N%,0))/Gp(N%,4))*Gp(N%,8)
JHp%(N%,3)!116=(((Gp(N%,15)-Gp(N%,2))/Gp(N%,5))*Gp(N%,9))+Hp%(N%,3)!100
Hp%(N%,3)!120=Hp%(N%,3)!92
1Hp%(N%,3)!84=-�(Hp%(N%,3)!92+Hp%(N%,3)!92*Te)
�
� �STs(N%)
$!Hp%(N%,3)=(Gp(N%,8)*256)*&10000
Hp%(N%,3)!4=0
Hp%(N%,3)!8=0
&Hp%(N%,3)!12=(Gp(N%,9)*256)*&10000
!Hp%(N%,3)!16=Hp%(N%,3)!96*256
!"Hp%(N%,3)!20=Hp%(N%,3)!100*256
"�
#
� �XN(N%)
$BHp%(N%,3)!128=Hp%(N%,3)!96-(�SW(Fh%(N%,1),�ReS(Gw%(N%),11))/2)
%QHp%(N%,3)!144=(Hp%(N%,3)!88-Hp%(N%,3)!96)-(�SW(Fh%(N%,1),�ReS(Gw%(N%),12))/2)
&Fș"Font_ReadDefn",Fh%(N%,1),Wb% � ,Wb%,Hp%(N%,3)!152,Hp%(N%,3)!156
'�
(
� �YN(N%)
)Aș"Font_ConverttoOS",,10,Hp%(N%,3)!156*62.5 � ,,Hp%(N%,3)!212
*1Hp%(N%,3)!168=Hp%(N%,3)!100-(Hp%(N%,3)!212/3)
+@Hp%(N%,3)!176=(Hp%(N%,3)!92-Hp%(N%,3)!100)-(Hp%(N%,3)!212/3)
,
-PHp%(N%,3)!196=(Hp%(N%,3)!112+Hp%(N%,3)!96)-(�SW(Fh%(N%,1),�ReS(Gw%(N%),13)))
.PHp%(N%,3)!204=(Hp%(N%,3)!112+Hp%(N%,3)!96)-(�SW(Fh%(N%,1),�ReS(Gw%(N%),14)))
/�
0
� �UDP
1!Wb%=Gc%(N%)
2 Wb%!4=2
3ș&400CE,,Wb%
4Progress+=Percent
5� Progress< Wb%!16+10 �
6Wb%!16=�(Progress)
7ș&400C4,,Wb%:
8 Wb%!4=!Wb%:ș&400C2,,Wb%+4
9,ș&400D1,!Wb%,Wb%!8,Wb%!&C,Wb%!16,Wb%!20
:�
� 00000000 0d 00 01 0b f4 3e 47 72 61 70 68 0d 00 02 1b ee |.....>Graph.....|
00000010 20 85 20 f2 4c 46 73 3a ff 22 50 4f 49 4e 54 45 | . .LFs:."POINTE|
00000020 52 20 31 22 3a e0 0d 00 03 0b 40 25 3d 26 39 30 |R 1":.....@%=&90|
00000030 41 0d 00 04 16 50 68 24 3d 22 3c 47 72 61 70 68 |A....Ph$="<Graph|
00000040 24 44 69 72 3e 2e 22 0d 00 05 25 44 50 24 3d 50 |$Dir>."...%DP$=P|
00000050 68 24 2b 22 44 72 61 77 46 69 6c 65 73 2e 44 72 |h$+"DrawFiles.Dr|
00000060 61 77 2e 44 72 61 77 46 69 6c 65 22 0d 00 06 23 |aw.DrawFile"...#|
00000070 4c 50 24 3d 50 68 24 2b 22 44 72 61 77 46 69 6c |LP$=Ph$+"DrawFil|
00000080 65 73 2e 4c 6f 67 2e 4c 6f 67 46 69 6c 65 22 0d |es.Log.LogFile".|
00000090 00 07 2d 4c 6f 67 24 3d 22 47 72 61 70 68 22 2b |..-Log$="Graph"+|
000000a0 c4 33 2c bd 28 30 29 29 2b 22 47 72 61 70 68 4c |.3,.(0))+"GraphL|
000000b0 6f 67 22 2b c4 34 2c bd 28 30 29 29 0d 00 08 15 |og"+.4,.(0))....|
000000c0 44 67 25 3d a3 3a 50 58 25 3d 30 3a 50 59 25 3d |Dg%=.:PX%=0:PY%=|
000000d0 30 0d 00 09 0a 4e 67 25 3d 31 39 0d 00 0a 09 4d |0....Ng%=19....M|
000000e0 67 3d 2e 39 0d 00 0b 0a 4d 57 25 3d 2d 31 0d 00 |g=.9....MW%=-1..|
000000f0 0c 09 43 57 25 3d b9 0d 00 0d 0c 54 65 3d 2e 30 |..CW%=.....Te=.0|
00000100 36 32 35 0d 00 0e 11 4f 53 3d 2e 31 34 31 31 31 |625....OS=.14111|
00000110 31 31 31 31 0d 00 0f 0a 47 6d 25 3d 38 30 0d 00 |1111....Gm%=80..|
00000120 10 09 44 79 25 3d a3 0d 00 11 0b 54 73 25 3d 32 |..Dy%=.....Ts%=2|
00000130 31 36 0d 00 12 09 49 67 25 3d a3 0d 00 13 0a 43 |16....Ig%=.....C|
00000140 64 25 3d 2d 31 0d 00 14 0b de 20 68 25 20 34 30 |d%=-1..... h% 40|
00000150 0d 00 15 14 de 20 47 77 25 28 4e 67 25 29 3a 47 |..... Gw%(Ng%):G|
00000160 6e 25 3d 30 0d 00 16 0e de 20 47 61 25 28 4e 67 |n%=0..... Ga%(Ng|
00000170 25 29 0d 00 17 10 de 20 48 70 25 28 4e 67 25 2c |%)..... Hp%(Ng%,|
00000180 35 29 0d 00 18 10 de 20 47 70 28 4e 67 25 2c 32 |5)..... Gp(Ng%,2|
00000190 31 29 0d 00 19 16 de 20 47 63 25 28 4e 67 25 29 |1)..... Gc%(Ng%)|
000001a0 3a 47 63 25 28 29 3d b9 0d 00 1a 16 de 20 41 67 |:Gc%()=...... Ag|
000001b0 25 28 4e 67 25 29 3a 41 67 25 28 29 3d b9 0d 00 |%(Ng%):Ag%()=...|
000001c0 1b 0d de 20 46 24 28 4e 67 25 29 0d 00 1c 18 de |... F$(Ng%).....|
000001d0 20 46 68 25 28 4e 67 25 2c 31 29 3a 46 68 25 28 | Fh%(Ng%,1):Fh%(|
000001e0 29 3d b9 0d 00 1d 29 de 20 46 6f 6e 74 25 20 32 |)=....). Font% 2|
000001f0 35 36 3a e3 20 41 25 3d 30 20 b8 32 35 35 20 3a |56:. A%=0 .255 :|
00000200 41 25 21 46 6f 6e 74 25 3d 30 3a ed 0d 00 1e 32 |A%!Font%=0:....2|
00000210 c8 99 22 46 6f 6e 74 5f 52 65 61 64 46 6f 6e 74 |.."Font_ReadFont|
00000220 4d 61 78 22 20 b8 20 4d 61 78 30 25 2c 4d 61 78 |Max" . Max0%,Max|
00000230 31 25 2c 4d 61 78 32 25 2c 4d 61 78 33 25 0d 00 |1%,Max2%,Max3%..|
00000240 1f 0f 6d 61 78 33 25 3d 4d 61 78 33 25 0d 00 20 |..max3%=Max3%.. |
00000250 1a 46 6f 6e 74 24 3d 22 54 72 69 6e 69 74 79 2e |.Font$="Trinity.|
00000260 4d 65 64 69 75 6d 22 0d 00 21 19 49 4c 25 3d 26 |Medium"..!.IL%=&|
00000270 37 36 34 2b 26 33 44 34 2a 28 4e 67 25 2b 31 29 |764+&3D4*(Ng%+1)|
00000280 0d 00 22 0c 4d 4f 70 65 6e 25 3d a3 0d 00 23 0c |..".MOpen%=...#.|
00000290 4c 4d 65 6e 75 25 3d 30 0d 00 24 10 de 20 49 63 |LMenu%=0..$.. Ic|
000002a0 6f 6e 73 25 20 49 4c 25 0d 00 25 10 49 63 6f 6e |ons% IL%..%.Icon|
000002b0 25 3d 49 63 6f 6e 73 25 0d 00 26 07 f2 48 49 0d |%=Icons%..&..HI.|
000002c0 00 27 1f 53 70 74 53 25 3d a4 46 53 28 50 68 24 |.'.SptS%=.FS(Ph$|
000002d0 2b 22 53 70 72 69 74 65 73 22 29 2b 32 30 0d 00 |+"Sprites")+20..|
000002e0 28 14 53 70 74 25 3d a4 48 43 6d 28 53 70 74 53 |(.Spt%=.HCm(SptS|
000002f0 25 29 0d 00 29 19 21 53 70 74 25 3d 53 70 74 53 |%)..).!Spt%=SptS|
00000300 25 3a 53 70 74 25 21 38 3d 31 36 0d 00 2a 1c c8 |%:Spt%!8=16..*..|
00000310 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 |."OS_SpriteOp",2|
00000320 36 35 2c 53 70 74 25 0d 00 2b 2a c8 99 22 4f 53 |65,Spt%..+*.."OS|
00000330 5f 53 70 72 69 74 65 4f 70 22 2c 32 36 36 2c 53 |_SpriteOp",266,S|
00000340 70 74 25 2c 50 68 24 2b 22 53 70 72 69 74 65 73 |pt%,Ph$+"Sprites|
00000350 22 0d 00 2c 1b de 20 49 4d 25 20 a4 4d 65 6e 75 |"..,.. IM% .Menu|
00000360 53 69 7a 65 28 22 49 63 6f 6e 22 29 0d 00 2d 1d |Size("Icon")..-.|
00000370 de 20 4f 6e 25 20 a4 4d 65 6e 75 53 69 7a 65 28 |. On% .MenuSize(|
00000380 22 4f 70 74 69 6f 6e 22 29 0d 00 2e 1d de 20 53 |"Option")..... S|
00000390 61 76 65 25 20 a4 4d 65 6e 75 53 69 7a 65 28 22 |ave% .MenuSize("|
000003a0 53 61 76 65 22 29 0d 00 2f 1f de 20 4c 44 4d 25 |Save")../.. LDM%|
000003b0 20 a4 4d 65 6e 75 53 69 7a 65 28 22 4c 4f 70 74 | .MenuSize("LOpt|
000003c0 69 6f 6e 22 29 0d 00 30 18 de 20 42 75 66 25 20 |ion")..0.. Buf% |
000003d0 28 32 35 36 2a 28 4e 67 25 2b 32 29 29 0d 00 31 |(256*(Ng%+2))..1|
000003e0 0e de 20 57 62 25 20 26 39 35 43 0d 00 32 3f c8 |.. Wb% &95C..2?.|
000003f0 99 22 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 |."Wimp_Initialis|
00000400 65 22 2c 32 30 30 2c 26 34 42 35 33 34 31 35 34 |e",200,&4B534154|
00000410 2c 22 47 72 61 70 68 73 63 68 65 74 63 68 22 20 |,"Graphschetch" |
00000420 b8 20 56 65 72 25 2c 54 68 25 0d 00 33 2d 53 74 |. Ver%,Th%..3-St|
00000430 61 72 74 25 3d a4 4c 57 28 50 68 24 2b 22 54 65 |art%=.LW(Ph$+"Te|
00000440 6d 70 6c 61 74 65 73 22 2c 22 53 74 61 72 74 22 |mplates","Start"|
00000450 2c 46 6f 6e 74 25 29 0d 00 34 16 53 74 61 72 74 |,Font%)..4.Start|
00000460 25 3d a4 43 57 28 53 74 61 72 74 25 29 0d 00 35 |%=.CW(Start%)..5|
00000470 14 f2 6f 77 28 53 74 61 72 74 25 2c 30 2c 2d 31 |..ow(Start%,0,-1|
00000480 29 0d 00 36 2a 50 41 25 3d a4 4c 57 28 50 68 24 |)..6*PA%=.LW(Ph$|
00000490 2b 22 54 65 6d 70 6c 61 74 65 73 22 2c 22 50 6c |+"Templates","Pl|
000004a0 6f 74 41 72 65 61 22 2c 2d 31 29 0d 00 37 20 49 |otArea",-1)..7 I|
000004b0 63 6f 6e 4e 25 3d a4 49 63 6f 6e 4d 65 6e 75 28 |conN%=.IconMenu(|
000004c0 49 4d 25 2c 22 49 63 6f 6e 22 29 0d 00 38 16 53 |IM%,"Icon")..8.S|
000004d0 57 25 3d a4 4d 65 6e 75 57 68 28 49 4d 25 2c 31 |W%=.MenuWh(IM%,1|
000004e0 29 0d 00 39 20 4f 6e 4e 25 3d a4 49 63 6f 6e 4d |)..9 OnN%=.IconM|
000004f0 65 6e 75 28 4f 6e 25 2c 22 4f 70 74 69 6f 6e 22 |enu(On%,"Option"|
00000500 29 0d 00 3a 28 5a 6f 6f 6d 25 3d a4 4c 57 28 50 |)..:(Zoom%=.LW(P|
00000510 68 24 2b 22 54 65 6d 70 6c 61 74 65 73 22 2c 22 |h$+"Templates","|
00000520 5a 6f 6f 6d 22 2c 2d 31 29 0d 00 3b 29 43 64 57 |Zoom",-1)..;)CdW|
00000530 25 3d a4 4c 57 28 50 68 24 2b 22 54 65 6d 70 6c |%=.LW(Ph$+"Templ|
00000540 61 74 65 73 22 2c 22 43 6f 6f 72 64 73 22 2c 2d |ates","Coords",-|
00000550 31 29 0d 00 3c 22 53 61 76 65 4e 25 3d a4 49 63 |1)..<"SaveN%=.Ic|
00000560 6f 6e 4d 65 6e 75 28 53 61 76 65 25 2c 22 53 61 |onMenu(Save%,"Sa|
00000570 76 65 22 29 0d 00 3d 23 4c 44 4d 4e 25 3d a4 49 |ve")..=#LDMN%=.I|
00000580 63 6f 6e 4d 65 6e 75 28 4c 44 4d 25 2c 22 4c 4f |conMenu(LDM%,"LO|
00000590 70 74 69 6f 6e 22 29 0d 00 3e 18 44 77 25 3d a4 |ption")..>.Dw%=.|
000005a0 4d 65 6e 75 57 68 28 53 61 76 65 25 2c 30 29 0d |MenuWh(Save%,0).|
000005b0 00 3f 19 4c 6f 67 25 3d a4 4d 65 6e 75 57 68 28 |.?.Log%=.MenuWh(|
000005c0 53 61 76 65 25 2c 31 29 0d 00 40 12 f2 4c 53 28 |Save%,1)..@..LS(|
000005d0 44 77 25 2c 32 2c 44 50 24 29 0d 00 41 19 f2 4c |Dw%,2,DP$)..A..L|
000005e0 4e 28 53 57 25 2c 31 2c a8 28 a4 4f 53 58 2a 4f |N(SW%,1,.(.OSX*O|
000005f0 53 29 29 0d 00 42 1d 4f 53 31 3d a4 52 4e 28 53 |S))..B.OS1=.RN(S|
00000600 57 25 2c 31 29 2f a8 28 a4 4f 53 58 2a 4f 53 29 |W%,1)/.(.OSX*OS)|
00000610 0d 00 43 1a 49 68 25 3d a4 49 63 6f 6e 42 61 72 |..C.Ih%=.IconBar|
00000620 28 22 21 47 72 61 70 68 22 29 0d 00 44 27 58 50 |("!Graph")..D'XP|
00000630 69 78 25 3d 31 3c 3c a4 58 50 69 78 56 61 6c 3a |ix%=1<<.XPixVal:|
00000640 59 50 69 78 25 3d 31 3c 3c a4 59 50 69 78 56 61 |YPix%=1<<.YPixVa|
00000650 6c 0d 00 45 0e f2 53 65 28 49 4d 25 2c 33 29 0d |l..E..Se(IM%,3).|
00000660 00 46 0b 51 75 69 74 25 3d a3 0d 00 47 05 f5 0d |.F.Quit%=...G...|
00000670 00 48 09 f2 50 72 6f 67 0d 00 49 0b fd 20 51 75 |.H..Prog..I.. Qu|
00000680 69 74 25 0d 00 4a 12 53 70 74 25 3d a4 48 46 28 |it%..J.Spt%=.HF(|
00000690 53 70 74 25 29 0d 00 4b 08 f2 4c 46 73 0d 00 4c |Spt%)..K..LFs..L|
000006a0 2a c8 99 22 46 6f 6e 74 5f 53 65 74 46 6f 6e 74 |*.."Font_SetFont|
000006b0 4d 61 78 22 2c 2c 4d 61 78 31 25 2c 4d 61 78 32 |Max",,Max1%,Max2|
000006c0 25 2c 4d 61 78 33 25 0d 00 4d 24 c8 99 22 57 69 |%,Max3%..M$.."Wi|
000006d0 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 2c 54 68 |mp_CloseDown",Th|
000006e0 25 2c 26 34 42 35 33 34 31 35 34 0d 00 4e 05 e0 |%,&4B534154..N..|
000006f0 0d 00 4f 0b dd 20 f2 50 72 6f 67 0d 00 50 17 ea |..O.. .Prog..P..|
00000700 20 4d 25 2c 43 61 6c 25 2c 44 6e 25 3a 44 6e 25 | M%,Cal%,Dn%:Dn%|
00000710 3d b9 0d 00 51 0c 4d 25 3d 26 31 38 30 31 0d 00 |=...Q.M%=&1801..|
00000720 52 12 f2 50 6f 6c 6c 28 4d 25 2c 42 75 66 25 29 |R..Poll(M%,Buf%)|
00000730 0d 00 53 05 e1 0d 00 54 14 dd 20 f2 50 6f 6c 6c |..S....T.. .Poll|
00000740 28 4d 25 2c 42 75 66 25 29 0d 00 55 11 ea 20 52 |(M%,Buf%)..U.. R|
00000750 25 2c 57 25 2c 6e 25 2c 64 25 0d 00 56 05 f5 0d |%,W%,n%,d%..V...|
00000760 00 57 1e c8 99 22 57 69 6d 70 5f 50 6f 6c 6c 22 |.W..."Wimp_Poll"|
00000770 2c 4d 25 2c 42 75 66 25 20 b8 20 52 25 0d 00 58 |,M%,Buf% . R%..X|
00000780 0b c8 8e 20 52 25 20 ca 0d 00 59 08 c9 20 30 3a |... R% ...Y.. 0:|
00000790 0d 00 5a 21 c8 99 22 57 69 6d 70 5f 47 65 74 50 |..Z!.."Wimp_GetP|
000007a0 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c 42 75 66 |ointerInfo",,Buf|
000007b0 25 0d 00 5b 13 20 e7 20 42 75 66 25 21 31 36 3d |%..[. . Buf%!16=|
000007c0 2d 39 20 8c 0d 00 5c 11 20 20 c8 8e 20 42 75 66 |-9 ...\. .. Buf|
000007d0 25 21 38 20 ca 0d 00 5d 09 20 20 c9 34 3a 0d 00 |%!8 ...]. .4:..|
000007e0 5e 10 20 20 20 20 20 e7 20 44 79 25 20 8c 0d 00 |^. . Dy% ...|
000007f0 5f 1c 20 20 20 20 20 44 6e 25 3d a4 46 69 6e 64 |_. Dn%=.Find|
00000800 57 28 42 75 66 25 21 31 32 29 0d 00 60 13 20 20 |W(Buf%!12)..`. |
00000810 20 20 20 e7 20 44 6e 25 3e 3d 30 20 8c 0d 00 61 | . Dn%>=0 ...a|
00000820 2c 20 20 20 20 20 e7 20 47 61 25 28 44 6e 25 29 |, . Ga%(Dn%)|
00000830 3d 42 75 66 25 21 31 32 20 f2 44 63 28 44 6e 25 |=Buf%!12 .Dc(Dn%|
00000840 29 20 8b 20 44 6e 25 3d b9 0d 00 62 0a 20 20 20 |) . Dn%=...b. |
00000850 20 20 cd 0d 00 63 0a 20 20 20 20 20 cd 0d 00 64 | ...c. ...d|
00000860 54 20 20 c9 30 3a e7 20 44 6e 25 3e 3d 30 20 f2 |T .0:. Dn%>=0 .|
00000870 43 53 28 44 6e 25 2c 30 29 3a f2 6f 77 28 47 61 |CS(Dn%,0):.ow(Ga|
00000880 25 28 44 6e 25 29 2c 30 2c 2d 31 29 3a 44 6e 25 |%(Dn%),0,-1):Dn%|
00000890 3d b9 3a e7 20 43 64 25 3c 3e b9 20 80 42 75 66 |=.:. Cd%<>. .Buf|
000008a0 25 21 31 32 3d 4d 57 25 20 f2 4d 43 28 4d 57 25 |%!12=MW% .MC(MW%|
000008b0 29 0d 00 65 07 20 20 cb 0d 00 66 06 20 cc 0d 00 |)..e. ...f. ...|
000008c0 67 3c 20 20 e7 20 44 6e 25 3e 3d 30 20 80 42 75 |g< . Dn%>=0 .Bu|
000008d0 66 25 21 38 3d 30 20 f2 43 53 28 44 6e 25 2c 30 |f%!8=0 .CS(Dn%,0|
000008e0 29 3a f2 6f 77 28 47 61 25 28 44 6e 25 29 2c 30 |):.ow(Ga%(Dn%),0|
000008f0 2c 2d 31 29 3a 44 6e 25 3d b9 0d 00 68 17 20 20 |,-1):Dn%=...h. |
00000900 e7 20 4d 57 25 3c 3e b9 20 80 44 67 25 3d a3 20 |. MW%<>. .Dg%=. |
00000910 8c 0d 00 69 33 20 20 e7 20 a4 50 4d 6f 76 65 28 |...i3 . .PMove(|
00000920 50 58 25 2c 50 59 25 29 20 f2 41 50 28 a4 46 69 |PX%,PY%) .AP(.Fi|
00000930 6e 64 57 28 4d 57 25 29 2c 22 70 74 72 5f 67 72 |ndW(MW%),"ptr_gr|
00000940 61 62 22 29 0d 00 6a 27 20 20 cc 20 e7 20 44 67 |ab")..j' . . Dg|
00000950 25 20 80 a4 50 4d 6f 76 65 28 50 58 25 2c 50 59 |% ..PMove(PX%,PY|
00000960 25 29 20 f2 55 43 28 4d 57 25 29 0d 00 6b 07 20 |%) .UC(MW%)..k. |
00000970 20 cd 0d 00 6c 07 20 cd 20 0d 00 6d 1a c9 20 31 | ...l. . ..m.. 1|
00000980 3a f2 52 44 28 a4 46 69 6e 64 57 28 21 42 75 66 |:.RD(.FindW(!Buf|
00000990 25 29 29 0d 00 6e 21 c9 20 32 3a c8 99 22 57 69 |%))..n!. 2:.."Wi|
000009a0 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c |mp_OpenWindow",,|
000009b0 42 75 66 25 0d 00 6f 08 c9 20 33 3a 0d 00 70 15 |Buf%..o.. 3:..p.|
000009c0 20 6e 25 3d a4 46 69 6e 64 57 28 21 42 75 66 25 | n%=.FindW(!Buf%|
000009d0 29 0d 00 71 0e 20 e7 20 6e 25 3e 3d 30 20 8c 0d |)..q. . n%>=0 ..|
000009e0 00 72 0f 20 c8 8e 20 21 42 75 66 25 20 ca 0d 00 |.r. .. !Buf% ...|
000009f0 73 29 20 c9 20 47 77 25 28 6e 25 29 3a c8 99 22 |s) . Gw%(n%):.."|
00000a00 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 |Wimp_CloseWindow|
00000a10 22 2c 2c 42 75 66 25 0d 00 74 16 20 c9 20 47 61 |",,Buf%..t. . Ga|
00000a20 25 28 6e 25 29 3a f2 43 65 28 6e 25 29 0d 00 75 |%(n%):.Ce(n%)..u|
00000a30 06 20 cb 0d 00 76 06 20 cd 0d 00 77 06 20 cd 0d |. ...v. ...w. ..|
00000a40 00 78 09 20 c9 20 34 3a 0d 00 79 1d 20 20 20 20 |.x. . 4:..y. |
00000a50 20 e7 20 4d 57 25 3d 21 42 75 66 25 20 80 44 67 | . MW%=!Buf% .Dg|
00000a60 25 3d a3 20 8c 0d 00 7a 3b 20 20 20 20 20 e7 20 |%=. ...z; . |
00000a70 43 64 25 3c 3e b9 20 21 57 62 25 3d 43 64 25 3a |Cd%<>. !Wb%=Cd%:|
00000a80 c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e |.."Wimp_CloseWin|
00000a90 64 6f 77 22 2c 2c 57 62 25 3a 43 64 25 3d b9 20 |dow",,Wb%:Cd%=. |
00000aa0 0d 00 7b 1b 20 20 20 20 20 ff 22 50 4f 49 4e 54 |..{. ."POINT|
00000ab0 45 52 20 31 22 3a 49 67 25 3d a3 0d 00 7c 17 20 |ER 1":Ig%=...|. |
00000ac0 20 20 20 20 e7 20 ac 44 79 25 20 4d 25 3d 4d 25 | . .Dy% M%=M%|
00000ad0 84 31 0d 00 7d 0a 20 20 20 20 20 cd 0d 00 7e 19 |.1..}. ...~.|
00000ae0 20 20 20 20 20 6e 25 3d a4 46 69 6e 64 57 28 21 | n%=.FindW(!|
00000af0 42 75 66 25 29 0d 00 7f 12 20 20 20 20 20 e7 20 |Buf%).... . |
00000b00 6e 25 3e 3d 30 20 8c 0d 00 80 2a 20 20 20 20 20 |n%>=0 ....* |
00000b10 e7 20 4d 4f 70 65 6e 25 20 80 21 42 75 66 25 3d |. MOpen% .!Buf%=|
00000b20 47 61 25 28 6e 25 29 20 43 57 25 3d 21 42 75 66 |Ga%(n%) CW%=!Buf|
00000b30 25 0d 00 81 0a 20 20 20 20 20 cd 0d 00 82 31 20 |%.... ....1 |
00000b40 20 20 20 20 e7 20 21 42 75 66 25 3d 5a 6f 6f 6d | . !Buf%=Zoom|
00000b50 25 20 c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 57 |% .."Wimp_CloseW|
00000b60 69 6e 64 6f 77 22 2c 2c 42 75 66 25 0d 00 83 16 |indow",,Buf%....|
00000b70 20 20 20 20 20 e7 20 21 42 75 66 25 3d 53 57 25 | . !Buf%=SW%|
00000b80 20 8c 0d 00 84 2e 20 20 20 20 20 e7 20 a4 52 4e | ..... . .RN|
00000b90 28 53 57 25 2c 31 29 3c 38 30 20 f2 4c 4e 28 53 |(SW%,1)<80 .LN(S|
00000ba0 57 25 2c 31 2c a8 28 a4 4f 53 58 2a 4f 53 29 29 |W%,1,.(.OSX*OS))|
00000bb0 0d 00 85 22 20 20 20 20 20 4f 53 31 3d a4 52 4e |..." OS1=.RN|
00000bc0 28 53 57 25 2c 31 29 2f a8 28 a4 4f 53 58 2a 4f |(SW%,1)/.(.OSX*O|
00000bd0 53 29 0d 00 86 0a 20 20 20 20 20 cd 0d 00 87 0b |S).... .....|
00000be0 20 20 20 20 20 cd 20 0d 00 88 18 c9 20 35 3a 6e | . ..... 5:n|
00000bf0 25 3d a4 46 69 6e 64 57 28 21 42 75 66 25 29 0d |%=.FindW(!Buf%).|
00000c00 00 89 12 20 20 20 20 20 e7 20 6e 25 3e 3d 30 20 |... . n%>=0 |
00000c10 8c 0d 00 8a 16 20 20 20 20 20 e7 20 4d 57 25 3d |..... . MW%=|
00000c20 21 42 75 66 25 20 8c 0d 00 8b 2e 20 20 20 20 20 |!Buf% ..... |
00000c30 21 57 62 25 3d 4d 57 25 3a c8 99 22 57 69 6d 70 |!Wb%=MW%:.."Wimp|
00000c40 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 |_GetWindowState"|
00000c50 2c 2c 57 62 25 0d 00 8c 16 20 20 20 20 20 e7 20 |,,Wb%.... . |
00000c60 57 62 25 21 32 38 3d 2d 31 20 8c 0d 00 8d 18 20 |Wb%!28=-1 ..... |
00000c70 20 20 20 20 4d 25 3d 4d 25 80 26 46 46 46 46 46 | M%=M%.&FFFFF|
00000c80 46 46 45 0d 00 8e 19 20 20 20 20 20 e7 20 43 64 |FFE.... . Cd|
00000c90 25 3d b9 20 f2 43 64 28 4d 57 25 29 0d 00 8f 10 |%=. .Cd(MW%)....|
00000ca0 20 20 20 20 20 cc 20 4d 57 25 3d b9 0d 00 90 3a | . MW%=....:|
00000cb0 20 20 20 20 20 e7 20 43 64 25 3c 3e b9 20 21 57 | . Cd%<>. !W|
00000cc0 62 25 3d 43 64 25 3a c8 99 22 57 69 6d 70 5f 43 |b%=Cd%:.."Wimp_C|
00000cd0 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 57 62 25 |loseWindow",,Wb%|
00000ce0 3a 43 64 25 3d b9 0d 00 91 0a 20 20 20 20 20 cd |:Cd%=..... .|
00000cf0 0d 00 92 0a 20 20 20 20 20 cd 0d 00 93 2e 20 20 |.... ..... |
00000d00 20 20 20 e7 20 4d 4f 70 65 6e 25 20 20 8b 20 e7 | . MOpen% . .|
00000d10 20 47 61 25 28 6e 25 29 3d 21 42 75 66 25 20 43 | Ga%(n%)=!Buf% C|
00000d20 57 25 3d 21 42 75 66 25 0d 00 94 0a 20 20 20 20 |W%=!Buf%.... |
00000d30 20 cd 0d 00 95 20 c9 20 37 3a e7 20 4d 57 25 3c | .... . 7:. MW%<|
00000d40 3e b9 20 f2 42 45 28 42 75 66 25 29 20 8b 20 f2 |>. .BE(Buf%) . .|
00000d50 44 45 0d 00 96 0b c9 20 36 3a f2 43 6b 0d 00 97 |DE..... 6:.Ck...|
00000d60 08 c9 20 38 3a 0d 00 98 12 20 20 20 20 c8 8e 20 |.. 8:.... .. |
00000d70 21 42 75 66 25 20 ca 0d 00 99 19 20 20 20 20 c9 |!Buf% ..... .|
00000d80 20 5a 6f 6f 6d 25 3a f2 5a 4b 28 42 75 66 25 29 | Zoom%:.ZK(Buf%)|
00000d90 0d 00 9a 1c 20 20 20 20 c9 20 47 77 25 28 47 6e |.... . Gw%(Gn|
00000da0 25 29 3a f2 50 4b 28 42 75 66 25 29 0d 00 9b 09 |%):.PK(Buf%)....|
00000db0 20 20 20 20 cb 0d 00 9c 08 c9 20 39 3a 0d 00 9d | ...... 9:...|
00000dc0 1d 20 42 75 66 25 21 31 36 3d 42 75 66 25 21 34 |. Buf%!16=Buf%!4|
00000dd0 3a 42 75 66 25 21 34 3d 2d 31 0d 00 9e 29 20 21 |:Buf%!4=-1...) !|
00000de0 57 62 25 3d 5a 6f 6f 6d 25 3a c8 99 22 57 69 6d |Wb%=Zoom%:.."Wim|
00000df0 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c |p_CloseWindow",,|
00000e00 57 62 25 0d 00 9f 26 20 c8 99 22 57 69 6d 70 5f |Wb%...& .."Wimp_|
00000e10 44 65 63 6f 64 65 4d 65 6e 75 22 2c 2c 43 4d 25 |DecodeMenu",,CM%|
00000e20 2c 42 75 66 25 2c 57 62 25 0d 00 a0 25 20 c8 99 |,Buf%,Wb%...% ..|
00000e30 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 |"Wimp_CreateMenu|
00000e40 22 2c 2c 2d 31 3a 4d 4f 70 65 6e 25 3d a3 0d 00 |",,-1:MOpen%=...|
00000e50 a1 2b 20 e7 20 a7 24 57 62 25 2c bd 28 26 32 45 |.+ . .$Wb%,.(&2E|
00000e60 29 29 3e 30 20 57 62 25 21 a7 24 57 62 25 2c bd |))>0 Wb%!.$Wb%,.|
00000e70 28 26 32 45 29 29 3d 26 44 0d 00 a2 0e 20 c8 8e |(&2E))=&D.... ..|
00000e80 20 24 57 62 25 20 ca 0d 00 a3 1e 20 c9 22 43 6c | $Wb% ..... ."Cl|
00000e90 6f 73 65 22 3a f2 43 65 28 a4 46 69 6e 64 57 28 |ose":.Ce(.FindW(|
00000ea0 43 57 25 29 29 0d 00 a4 11 20 c9 22 50 6c 6f 74 |CW%)).... ."Plot|
00000eb0 20 73 69 7a 65 22 0d 00 a5 17 20 20 20 20 20 6e | size".... n|
00000ec0 25 3d a4 46 69 6e 64 57 28 43 57 25 29 0d 00 a6 |%=.FindW(CW%)...|
00000ed0 2a 20 20 20 20 20 e7 20 6e 25 3c 3e b9 20 f2 50 |* . n%<>. .P|
00000ee0 53 28 6e 25 29 3a f2 6f 77 28 47 61 25 28 6e 25 |S(n%):.ow(Ga%(n%|
00000ef0 29 2c 30 2c 2d 31 29 0d 00 a7 10 20 c9 22 4d 69 |),0,-1).... ."Mi|
00000f00 6e 69 6d 69 7a 65 22 0d 00 a8 17 20 20 20 20 20 |nimize".... |
00000f10 6e 25 3d a4 46 69 6e 64 57 28 43 57 25 29 0d 00 |n%=.FindW(CW%)..|
00000f20 a9 12 20 20 20 20 20 f2 43 53 28 6e 25 2c 30 29 |.. .CS(n%,0)|
00000f30 0d 00 aa 14 20 20 20 20 20 43 57 25 3d 47 61 25 |.... CW%=Ga%|
00000f40 28 6e 25 29 0d 00 ab 1a 20 20 20 20 20 f2 6f 77 |(n%).... .ow|
00000f50 28 47 61 25 28 6e 25 29 2c 30 2c 2d 31 29 0d 00 |(Ga%(n%),0,-1)..|
00000f60 ac 11 20 c9 22 44 79 6e 61 6d 69 7a 65 22 3a 0d |.. ."Dynamize":.|
00000f70 00 ad 14 20 20 20 20 20 20 f2 53 44 63 28 24 57 |... .SDc($W|
00000f80 62 25 29 0d 00 ae 10 20 c9 22 4d 61 67 6e 69 66 |b%).... ."Magnif|
00000f90 79 22 3a 0d 00 af 43 20 20 20 20 20 20 c8 99 22 |y":...C .."|
00000fa0 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 |Wimp_GetPointerI|
00000fb0 6e 66 6f 22 2c 2c 57 62 25 3a 50 58 25 3d 21 57 |nfo",,Wb%:PX%=!W|
00000fc0 62 25 2d 31 3a 50 59 25 3d 57 62 25 21 34 3a 4d |b%-1:PY%=Wb%!4:M|
00000fd0 57 25 3d 43 57 25 0d 00 b0 18 20 20 20 20 20 20 |W%=CW%.... |
00000fe0 f2 54 57 28 4d 57 25 29 20 20 20 20 20 20 0d 00 |.TW(MW%) ..|
00000ff0 b1 14 20 c9 22 51 75 69 74 22 3a 51 75 69 74 25 |.. ."Quit":Quit%|
00001000 3d b9 0d 00 b2 1b 20 c9 22 5a 6f 6f 6d 22 3a 6e |=..... ."Zoom":n|
00001010 25 3d a4 46 69 6e 64 57 28 43 57 25 29 0d 00 b3 |%=.FindW(CW%)...|
00001020 3d 20 20 20 20 f2 4c 4e 28 5a 6f 6f 6d 25 2c 30 |= .LN(Zoom%,0|
00001030 2c 48 70 25 28 6e 25 2c 33 29 21 31 38 34 29 3a |,Hp%(n%,3)!184):|
00001040 f2 4c 4e 28 5a 6f 6f 6d 25 2c 31 2c 48 70 25 28 |.LN(Zoom%,1,Hp%(|
00001050 6e 25 2c 33 29 21 31 38 38 29 0d 00 b4 0f 20 20 |n%,3)!188).... |
00001060 20 20 f2 5a 53 28 6e 25 29 0d 00 b5 20 20 20 20 | .ZS(n%)... |
00001070 20 c8 99 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e | .."Wimp_OpenWin|
00001080 64 6f 77 22 2c 2c 57 62 25 0d 00 b6 1c 20 c9 22 |dow",,Wb%.... ."|
00001090 47 72 61 70 68 20 6d 65 6e 75 22 2c 22 52 65 2d |Graph menu","Re-|
000010a0 70 6c 6f 74 22 0d 00 b7 0f 20 20 f2 43 4d 57 28 |plot".... .CMW(|
000010b0 47 6e 25 29 0d 00 b8 12 20 c9 22 4e 65 77 20 67 |Gn%).... ."New g|
000010c0 72 61 70 68 22 3a 0d 00 b9 32 20 20 20 20 20 21 |raph":...2 !|
000010d0 42 75 66 25 3d 47 77 25 28 47 6e 25 29 3a c8 99 |Buf%=Gw%(Gn%):..|
000010e0 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f |"Wimp_CloseWindo|
000010f0 77 22 2c 2c 42 75 66 25 0d 00 ba 10 20 20 20 20 |w",,Buf%.... |
00001100 20 47 6e 25 3d a4 46 74 0d 00 bb 12 20 20 20 20 | Gn%=.Ft.... |
00001110 20 f2 43 4d 57 28 47 6e 25 29 0d 00 bc 1a 20 c9 | .CMW(Gn%).... .|
00001120 22 4c 6f 61 64 22 2c 22 4c 6f 61 64 20 67 72 61 |"Load","Load gra|
00001130 70 68 22 3a 0d 00 bd 17 20 20 20 20 20 42 75 66 |ph":.... Buf|
00001140 25 21 34 3d 42 75 66 25 21 31 36 0d 00 be 2f 20 |%!4=Buf%!16.../ |
00001150 20 20 20 20 c8 99 22 57 69 6d 70 5f 44 65 63 6f | .."Wimp_Deco|
00001160 64 65 4d 65 6e 75 22 2c 2c 4c 4d 65 6e 75 25 2c |deMenu",,LMenu%,|
00001170 42 75 66 25 2b 34 2c 57 62 25 0d 00 bf 18 20 20 |Buf%+4,Wb%.... |
00001180 20 20 20 e7 24 57 62 25 3c 3e 22 4e 6f 6e 65 22 | .$Wb%<>"None"|
00001190 20 8c 0d 00 c0 22 20 20 20 20 20 24 28 42 75 66 | ...." $(Buf|
000011a0 25 2b 34 34 29 3d 4c 50 24 2b 22 2e 5e 2e 22 2b |%+44)=LP$+".^."+|
000011b0 24 57 62 25 0d 00 c1 46 20 20 20 20 20 e7 20 a7 |$Wb%...F . .|
000011c0 24 57 62 25 2c bd 28 26 32 45 29 29 3e 30 20 24 |$Wb%,.(&2E))>0 $|
000011d0 28 42 75 66 25 2b 34 34 29 3d 4c 50 24 2b 22 2e |(Buf%+44)=LP$+".|
000011e0 5e 2e 22 2b c0 24 57 62 25 2c a7 24 57 62 25 2c |^."+.$Wb%,.$Wb%,|
000011f0 bd 28 26 32 45 29 29 2d 31 29 0d 00 c2 17 20 20 |.(&2E))-1).... |
00001200 20 20 20 e7 20 42 75 66 25 21 38 3c 3e 2d 31 20 | . Buf%!8<>-1 |
00001210 8c 0d 00 c3 6a 20 20 20 20 20 e7 20 24 28 57 62 |....j . $(Wb|
00001220 25 2b a7 24 57 62 25 2c bd 28 26 32 45 29 29 29 |%+.$Wb%,.(&2E)))|
00001230 3d 22 44 65 6c 65 74 65 22 20 c8 99 22 4f 53 5f |="Delete" .."OS_|
00001240 46 69 6c 65 22 2c 36 2c 42 75 66 25 2b 34 34 20 |File",6,Buf%+44 |
00001250 8b 20 e7 24 28 57 62 25 2b a7 24 57 62 25 2c bd |. .$(Wb%+.$Wb%,.|
00001260 28 26 32 45 29 29 29 3d 22 4c 6f 61 64 22 20 f2 |(&2E)))="Load" .|
00001270 4c 4c 28 42 75 66 25 2c 2d 31 29 0d 00 c4 0a 20 |LL(Buf%,-1).... |
00001280 20 20 20 20 cc 0d 00 c5 15 20 20 20 20 20 f2 4c | ..... .L|
00001290 4c 28 42 75 66 25 2c 2d 31 29 0d 00 c6 0a 20 20 |L(Buf%,-1).... |
000012a0 20 20 20 cd 0d 00 c7 0a 20 20 20 20 20 cd 0d 00 | ..... ...|
000012b0 c8 06 20 cb 0d 00 c9 0f c9 20 31 37 2c 31 38 2c |.. ...... 17,18,|
000012c0 31 39 3a 0d 00 ca 13 20 f2 4d 65 73 73 28 52 25 |19:.... .Mess(R%|
000012d0 2c 42 75 66 25 29 0d 00 cb 05 cb 0d 00 cc 11 fd |,Buf%)..........|
000012e0 20 51 75 69 74 25 20 84 43 61 6c 25 0d 00 cd 05 | Quit% .Cal%....|
000012f0 e1 0d 00 ce 09 dd 20 f2 43 6b 0d 00 cf 44 e7 20 |...... .Ck...D. |
00001300 53 74 61 72 74 25 3e 30 20 21 57 62 25 3d 53 74 |Start%>0 !Wb%=St|
00001310 61 72 74 25 3a c8 99 22 57 69 6d 70 5f 44 65 6c |art%:.."Wimp_Del|
00001320 65 74 65 57 69 6e 64 6f 77 22 2c 2c 57 62 25 3a |eteWindow",,Wb%:|
00001330 53 74 61 72 74 25 3d 2d 31 3a f2 4c 44 46 0d 00 |Start%=-1:.LDF..|
00001340 d0 16 6e 25 3d a4 46 69 6e 64 57 28 42 75 66 25 |..n%=.FindW(Buf%|
00001350 21 31 32 29 0d 00 d1 39 e7 20 5a 6f 6f 6d 25 3c |!12)...9. Zoom%<|
00001360 3e 42 75 66 25 21 31 32 20 21 57 62 25 3d 5a 6f |>Buf%!12 !Wb%=Zo|
00001370 6f 6d 25 3a c8 99 22 57 69 6d 70 5f 43 6c 6f 73 |om%:.."Wimp_Clos|
00001380 65 57 69 6e 64 6f 77 22 2c 2c 57 62 25 0d 00 d2 |eWindow",,Wb%...|
00001390 0f c8 8e 20 42 75 66 25 21 38 20 ca 0d 00 d3 07 |... Buf%!8 .....|
000013a0 c9 32 3a 0d 00 d4 0f 20 e7 20 4d 57 25 3c 3e b9 |.2:.... . MW%<>.|
000013b0 20 8c 0d 00 d5 2e 20 20 20 4d 57 25 3d b9 3a 49 | ..... MW%=.:I|
000013c0 67 25 3d a3 3a ff 22 50 4f 49 4e 54 45 52 20 31 |g%=.:."POINTER 1|
000013d0 22 3a e7 20 ac 44 79 25 20 4d 25 3d 4d 25 84 31 |":. .Dy% M%=M%.1|
000013e0 0d 00 d6 38 20 20 20 e7 20 43 64 25 3c 3e b9 20 |...8 . Cd%<>. |
000013f0 21 57 62 25 3d 43 64 25 3a c8 99 22 57 69 6d 70 |!Wb%=Cd%:.."Wimp|
00001400 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 57 |_CloseWindow",,W|
00001410 62 25 3a 43 64 25 3d b9 0d 00 d7 06 20 cd 0d 00 |b%:Cd%=..... ...|
00001420 d8 11 20 c8 8e 20 42 75 66 25 21 31 32 20 ca 0d |.. .. Buf%!12 ..|
00001430 00 d9 2b 20 c9 2d 32 3a 21 42 75 66 25 3d 21 42 |..+ .-2:!Buf%=!B|
00001440 75 66 25 2d 35 30 3a 42 75 66 25 21 34 3d 33 36 |uf%-50:Buf%!4=36|
00001450 30 3a f2 43 6d 28 49 4d 25 29 0d 00 da 06 20 cb |0:.Cm(IM%).... .|
00001460 0d 00 db 0e 20 e7 20 6e 25 3e 3d 30 20 8c 0d 00 |.... . n%>=0 ...|
00001470 dc 11 20 c8 8e 20 42 75 66 25 21 31 32 20 ca 0d |.. .. Buf%!12 ..|
00001480 00 dd 4a 20 c9 20 47 61 25 28 6e 25 29 3a e7 20 |..J . Ga%(n%):. |
00001490 47 77 25 28 6e 25 29 3c 3e 47 77 25 28 47 6e 25 |Gw%(n%)<>Gw%(Gn%|
000014a0 29 20 21 57 62 25 3d 47 77 25 28 47 6e 25 29 3a |) !Wb%=Gw%(Gn%):|
000014b0 c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e |.."Wimp_CloseWin|
000014c0 64 6f 77 22 2c 2c 57 62 25 0d 00 de 30 20 20 20 |dow",,Wb%...0 |
000014d0 20 20 20 20 20 20 20 20 20 20 f2 43 6d 28 4f 6e | .Cm(On|
000014e0 25 29 3a 47 6e 25 3d 6e 25 3a 53 6e 25 3d 6e 25 |%):Gn%=n%:Sn%=n%|
000014f0 3a 4d 4f 70 65 6e 25 3d b9 0d 00 df 06 20 cb 0d |:MOpen%=..... ..|
00001500 00 e0 06 20 cd 0d 00 e1 07 c9 34 3a 0d 00 e2 05 |... ......4:....|
00001510 20 0d 00 e3 34 20 e7 20 6e 25 3e 3d 30 20 e7 20 | ...4 . n%>=0 . |
00001520 47 63 25 28 6e 25 29 3d 42 75 66 25 21 31 32 20 |Gc%(n%)=Buf%!12 |
00001530 80 42 75 66 25 21 31 36 3d 33 20 41 67 25 28 6e |.Buf%!16=3 Ag%(n|
00001540 25 29 3d 6e 25 0d 00 e4 11 20 c8 8e 20 42 75 66 |%)=n%.... .. Buf|
00001550 25 21 31 32 20 ca 0d 00 e5 05 20 0d 00 e6 09 20 |%!12 ..... .... |
00001560 c9 2d 32 3a 0d 00 e7 0f 20 20 f2 43 4d 57 28 47 |.-2:.... .CMW(G|
00001570 6e 25 29 0d 00 e8 10 20 c9 20 47 77 25 28 47 6e |n%).... . Gw%(Gn|
00001580 25 29 3a 0d 00 e9 12 20 20 c8 8e 20 42 75 66 25 |%):.... .. Buf%|
00001590 21 31 36 20 ca 0d 00 ea 0a 20 20 c9 33 32 3a 0d |!16 ..... .32:.|
000015a0 00 eb 0e 20 20 f2 43 74 28 47 6e 25 29 0d 00 ec |... .Ct(Gn%)...|
000015b0 27 20 20 c9 33 33 3a c8 99 22 57 69 6d 70 5f 43 |' .33:.."Wimp_C|
000015c0 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 42 75 66 |loseWindow",,Buf|
000015d0 25 2b 31 32 0d 00 ed 18 20 20 c9 33 31 3a f2 41 |%+12.... .31:.A|
000015e0 50 73 28 42 75 66 25 21 31 32 29 3a 0d 00 ee 0d |Ps(Buf%!12):....|
000015f0 20 20 20 20 20 20 20 20 20 0d 00 ef 17 20 20 c9 | .... .|
00001600 33 35 3a f2 4d 6e 28 47 77 25 28 47 6e 25 29 29 |35:.Mn(Gw%(Gn%))|
00001610 0d 00 f0 09 20 20 c9 35 3a 0d 00 f1 28 20 20 e7 |.... .5:...( .|
00001620 20 a4 52 65 53 28 47 77 25 28 47 6e 25 29 2c 35 | .ReS(Gw%(Gn%),5|
00001630 29 3d 22 47 72 61 70 68 20 77 69 64 74 68 22 20 |)="Graph width" |
00001640 8c 0d 00 f2 23 20 20 f2 4c 53 28 47 77 25 28 47 |....# .LS(Gw%(G|
00001650 6e 25 29 2c 35 2c 22 50 61 70 65 72 20 77 69 64 |n%),5,"Paper wid|
00001660 74 68 22 29 0d 00 f3 07 20 20 cc 0d 00 f4 23 20 |th").... ....# |
00001670 20 f2 4c 53 28 47 77 25 28 47 6e 25 29 2c 35 2c | .LS(Gw%(Gn%),5,|
00001680 22 47 72 61 70 68 20 77 69 64 74 68 22 29 0d 00 |"Graph width")..|
00001690 f5 07 20 20 cd 0d 00 f6 07 20 20 cb 0d 00 f7 0b |.. ..... .....|
000016a0 20 c9 20 53 57 25 3a 0d 00 f8 12 20 20 c8 8e 20 | . SW%:.... .. |
000016b0 42 75 66 25 21 31 36 20 ca 0d 00 f9 17 20 20 c9 |Buf%!16 ..... .|
000016c0 20 32 3a f2 53 63 44 28 42 75 66 25 21 31 32 29 | 2:.ScD(Buf%!12)|
000016d0 0d 00 fa 07 20 20 cb 0d 00 fb 0b 20 c9 20 44 77 |.... ..... . Dw|
000016e0 25 3a 0d 00 fc 12 20 20 c8 8e 20 42 75 66 25 21 |%:.... .. Buf%!|
000016f0 31 36 20 ca 0d 00 fd 11 20 20 c9 33 3a f2 53 44 |16 ..... .3:.SD|
00001700 28 53 6e 25 29 0d 00 fe 1d 20 20 c9 31 3a 44 66 |(Sn%).... .1:Df|
00001710 25 3d 26 41 46 46 3a f2 44 72 61 67 28 42 75 66 |%=&AFF:.Drag(Buf|
00001720 25 29 0d 00 ff 07 20 20 cb 0d 01 00 0c 20 c9 20 |%).... ..... . |
00001730 4c 6f 67 25 3a 0d 01 01 12 20 20 c8 8e 20 42 75 |Log%:.... .. Bu|
00001740 66 25 21 31 36 20 ca 0d 01 02 11 20 20 c9 33 3a |f%!16 ..... .3:|
00001750 f2 53 4c 28 53 6e 25 29 0d 01 03 1d 20 20 c9 31 |.SL(Sn%).... .1|
00001760 3a 44 66 25 3d 26 46 46 44 3a f2 44 72 61 67 28 |:Df%=&FFD:.Drag(|
00001770 42 75 66 25 29 0d 01 04 07 20 20 cb 0d 01 05 0d |Buf%).... .....|
00001780 20 c9 20 5a 6f 6f 6d 25 3a 0d 01 06 12 20 20 c8 | . Zoom%:.... .|
00001790 8e 20 42 75 66 25 21 31 36 20 ca 0d 01 07 0f 20 |. Buf%!16 ..... |
000017a0 20 c9 32 3a f2 49 5a 28 30 29 0d 01 08 0f 20 20 | .2:.IZ(0).... |
000017b0 c9 33 3a f2 44 5a 28 30 29 0d 01 09 0f 20 20 c9 |.3:.DZ(0).... .|
000017c0 34 3a f2 49 5a 28 31 29 0d 01 0a 0f 20 20 c9 35 |4:.IZ(1).... .5|
000017d0 3a f2 44 5a 28 31 29 0d 01 0b 07 20 20 cb 0d 01 |:.DZ(1).... ...|
000017e0 0c 12 20 20 c8 8e 20 42 75 66 25 21 31 36 20 ca |.. .. Buf%!16 .|
000017f0 0d 01 0d 17 20 20 c9 32 2c 33 2c 34 2c 35 3a f2 |.... .2,3,4,5:.|
00001800 5a 53 28 5a 6e 25 29 0d 01 0e 20 20 20 20 20 e7 |ZS(Zn%)... .|
00001810 20 57 62 25 21 32 38 3d 2d 31 20 57 62 25 21 32 | Wb%!28=-1 Wb%!2|
00001820 38 3d 5a 6f 6f 6d 25 0d 01 0f 20 20 20 20 20 c8 |8=Zoom%... .|
00001830 99 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f |."Wimp_OpenWindo|
00001840 77 22 2c 2c 57 62 25 0d 01 10 07 20 20 cb 0d 01 |w",,Wb%.... ...|
00001850 11 06 20 cb 0d 01 12 09 c9 20 36 34 3a 0d 01 13 |.. ...... 64:...|
00001860 11 20 c8 8e 20 42 75 66 25 21 31 32 20 ca 0d 01 |. .. Buf%!12 ...|
00001870 14 0b 20 c9 20 4d 57 25 3a 0d 01 15 18 20 20 e7 |.. . MW%:.... .|
00001880 20 49 67 25 20 f2 44 42 28 42 75 66 25 2c 6e 25 | Ig% .DB(Buf%,n%|
00001890 29 0d 01 16 07 20 cb 20 0d 01 17 05 cb 0d 01 18 |).... . ........|
000018a0 05 e1 0d 01 19 0a dd 20 f2 4d 55 53 0d 01 1a 1d |....... .MUS....|
000018b0 f2 55 6e 53 65 28 49 4d 25 2c 33 29 3a f2 55 6e |.UnSe(IM%,3):.Un|
000018c0 53 65 28 4f 6e 25 2c 31 29 0d 01 1b 1d f2 55 6e |Se(On%,1).....Un|
000018d0 53 65 28 4f 6e 25 2c 34 29 3a f2 55 6e 53 65 28 |Se(On%,4):.UnSe(|
000018e0 4f 6e 25 2c 38 29 0d 01 1c 10 f2 55 6e 53 65 28 |On%,8).....UnSe(|
000018f0 49 4d 25 2c 34 29 0d 01 1d 12 e7 20 a4 43 6f 75 |IM%,4)..... .Cou|
00001900 6e 74 41 3c 3d 30 20 8c 0d 01 1e 1b f2 53 65 28 |ntA<=0 ......Se(|
00001910 49 4d 25 2c 33 29 3a f2 55 6e 53 49 28 53 57 25 |IM%,3):.UnSI(SW%|
00001920 2c 32 29 0d 01 1f 19 e7 20 a4 52 53 65 6c 65 63 |,2)..... .RSelec|
00001930 74 28 53 57 25 2c 32 29 3d 30 20 8c 0d 01 20 10 |t(SW%,2)=0 ... .|
00001940 f2 55 6e 53 49 28 53 57 25 2c 31 29 0d 01 21 12 |.UnSI(SW%,1)..!.|
00001950 f2 53 46 67 28 53 57 25 2c 31 2c 31 35 29 0d 01 |.SFg(SW%,1,15)..|
00001960 22 05 cd 0d 01 23 05 cd 0d 01 24 05 e1 0d 01 25 |"....#....$....%|
00001970 0d dd 20 f2 43 6d 28 4d 25 29 0d 01 26 1b c8 99 |.. .Cm(M%)..&...|
00001980 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 |"Wimp_CreateMenu|
00001990 22 2c 2c 2d 31 0d 01 27 28 c8 99 22 57 69 6d 70 |",,-1..'(.."Wimp|
000019a0 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 4d 25 |_CreateMenu",,M%|
000019b0 2c 21 42 75 66 25 2c 42 75 66 25 21 34 0d 01 28 |,!Buf%,Buf%!4..(|
000019c0 0a 43 4d 25 3d 4d 25 0d 01 29 05 e1 0d 01 2a 04 |.CM%=M%..)....*.|
000019d0 0d 01 2b 0d dd 20 f2 52 44 28 4e 25 29 0d 01 2c |..+.. .RD(N%)..,|
000019e0 14 ea 20 46 25 2c 48 25 2c 56 25 2c 49 25 2c 4a |.. F%,H%,V%,I%,J|
000019f0 25 0d 01 2d 10 21 57 62 25 3d 47 77 25 28 4e 25 |%..-.!Wb%=Gw%(N%|
00001a00 29 0d 01 2e 24 c8 99 22 57 69 6d 70 5f 52 65 64 |)...$.."Wimp_Red|
00001a10 72 61 77 57 69 6e 64 6f 77 22 2c 2c 42 75 66 25 |rawWindow",,Buf%|
00001a20 20 b8 20 46 25 0d 01 2f 09 c8 95 20 46 25 0d 01 | . F%../... F%..|
00001a30 30 22 58 4d 69 6e 25 3d 42 75 66 25 21 32 38 2d |0"XMin%=Buf%!28-|
00001a40 28 42 75 66 25 21 34 2d 42 75 66 25 21 32 30 29 |(Buf%!4-Buf%!20)|
00001a50 0d 01 31 22 58 4d 61 78 25 3d 42 75 66 25 21 33 |..1"XMax%=Buf%!3|
00001a60 36 2d 28 42 75 66 25 21 34 2d 42 75 66 25 21 32 |6-(Buf%!4-Buf%!2|
00001a70 30 29 0d 01 32 32 59 4d 69 6e 25 3d 28 42 75 66 |0)..22YMin%=(Buf|
00001a80 25 21 33 32 2d 28 42 75 66 25 21 31 36 2d 42 75 |%!32-(Buf%!16-Bu|
00001a90 66 25 21 32 34 29 29 2d 48 70 25 28 4e 25 2c 33 |f%!24))-Hp%(N%,3|
00001aa0 29 21 38 34 0d 01 33 32 59 4d 61 78 25 3d 28 42 |)!84..32YMax%=(B|
00001ab0 75 66 25 21 34 30 2d 28 42 75 66 25 21 31 36 2d |uf%!40-(Buf%!16-|
00001ac0 42 75 66 25 21 32 34 29 29 2d 48 70 25 28 4e 25 |Buf%!24))-Hp%(N%|
00001ad0 2c 33 29 21 38 34 0d 01 34 38 ef 32 39 2c 28 42 |,3)!84..48.29,(B|
00001ae0 75 66 25 21 34 2d 42 75 66 25 21 32 30 29 3b 28 |uf%!4-Buf%!20);(|
00001af0 42 75 66 25 21 31 36 2d 42 75 66 25 21 32 34 29 |Buf%!16-Buf%!24)|
00001b00 2b 48 70 25 28 4e 25 2c 33 29 21 38 34 3b 0d 01 |+Hp%(N%,3)!84;..|
00001b10 35 31 c8 99 22 44 72 61 77 5f 53 74 72 6f 6b 65 |51.."Draw_Stroke|
00001b20 22 2c 48 70 25 28 4e 25 2c 30 29 2c 30 2c 48 70 |",Hp%(N%,0),0,Hp|
00001b30 25 28 4e 25 2c 33 29 2c 30 2c 30 2c 30 2c 30 0d |%(N%,3),0,0,0,0.|
00001b40 01 36 3b c8 99 22 44 72 61 77 5f 53 74 72 6f 6b |.6;.."Draw_Strok|
00001b50 65 22 2c 48 70 25 28 4e 25 2c 30 29 2b 48 70 25 |e",Hp%(N%,0)+Hp%|
00001b60 28 4e 25 2c 34 29 2c 30 2c 48 70 25 28 4e 25 2c |(N%,4),0,Hp%(N%,|
00001b70 33 29 2c 30 2c 30 2c 30 2c 30 0d 01 37 0c ef 32 |3),0,0,0,0..7..2|
00001b80 39 2c 30 3b 30 3b 0d 01 38 20 c8 99 22 57 69 6d |9,0;0;..8 .."Wim|
00001b90 70 5f 53 65 74 46 6f 6e 74 43 6f 6c 6f 75 72 73 |p_SetFontColours|
00001ba0 22 2c 2c 30 2c 37 0d 01 39 1b e7 20 58 4d 61 78 |",,0,7..9.. XMax|
00001bb0 25 3e 3d 48 70 25 28 4e 25 2c 33 29 21 39 36 20 |%>=Hp%(N%,3)!96 |
00001bc0 8c 0d 01 3a ac e7 20 59 4d 61 78 25 3e 48 70 25 |...:.. YMax%>Hp%|
00001bd0 28 4e 25 2c 33 29 21 39 32 20 80 58 4d 69 6e 25 |(N%,3)!92 .XMin%|
00001be0 3c 48 70 25 28 4e 25 2c 33 29 21 39 36 2b 48 70 |<Hp%(N%,3)!96+Hp|
00001bf0 25 28 4e 25 2c 33 29 21 31 32 34 20 c8 99 22 46 |%(N%,3)!124 .."F|
00001c00 6f 6e 74 5f 50 61 69 6e 74 22 2c 46 68 25 28 4e |ont_Paint",Fh%(N|
00001c10 25 2c 30 29 2c 46 24 28 4e 25 29 2c 26 31 31 30 |%,0),F$(N%),&110|
00001c20 2c 28 42 75 66 25 21 34 2d 42 75 66 25 21 32 30 |,(Buf%!4-Buf%!20|
00001c30 29 2b 48 70 25 28 4e 25 2c 33 29 21 39 36 2c 28 |)+Hp%(N%,3)!96,(|
00001c40 42 75 66 25 21 31 36 2d 42 75 66 25 21 32 34 29 |Buf%!16-Buf%!24)|
00001c50 2b 28 48 70 25 28 4e 25 2c 33 29 21 38 34 2b 48 |+(Hp%(N%,3)!84+H|
00001c60 70 25 28 4e 25 2c 33 29 21 31 32 30 29 0d 01 3b |p%(N%,3)!120)..;|
00001c70 05 cd 0d 01 3c 40 e7 20 59 4d 61 78 25 3e 48 70 |....<@. YMax%>Hp|
00001c80 25 28 4e 25 2c 33 29 21 31 31 36 20 80 59 4d 69 |%(N%,3)!116 .YMi|
00001c90 6e 25 3c 48 70 25 28 4e 25 2c 33 29 21 31 31 36 |n%<Hp%(N%,3)!116|
00001ca0 2b 28 48 70 25 28 4e 25 2c 33 29 21 32 31 32 29 |+(Hp%(N%,3)!212)|
00001cb0 20 8c 0d 01 3d 1c e7 20 58 4d 61 78 25 3e 3d 48 | ...=.. XMax%>=H|
00001cc0 70 25 28 4e 25 2c 33 29 21 31 32 38 20 8c 0d 01 |p%(N%,3)!128 ...|
00001cd0 3e 82 c8 99 22 46 6f 6e 74 5f 50 61 69 6e 74 22 |>..."Font_Paint"|
00001ce0 2c 46 68 25 28 4e 25 2c 31 29 2c a4 52 65 53 28 |,Fh%(N%,1),.ReS(|
00001cf0 47 77 25 28 4e 25 29 2c 31 31 29 2c 26 31 31 30 |Gw%(N%),11),&110|
00001d00 2c 28 42 75 66 25 21 34 2d 42 75 66 25 21 32 30 |,(Buf%!4-Buf%!20|
00001d10 29 2b 48 70 25 28 4e 25 2c 33 29 21 31 32 38 2c |)+Hp%(N%,3)!128,|
00001d20 28 28 42 75 66 25 21 31 36 2d 42 75 66 25 21 32 |((Buf%!16-Buf%!2|
00001d30 34 29 2b 48 70 25 28 4e 25 2c 33 29 21 38 34 29 |4)+Hp%(N%,3)!84)|
00001d40 2b 28 48 70 25 28 4e 25 2c 33 29 21 31 31 36 29 |+(Hp%(N%,3)!116)|
00001d50 0d 01 3f 05 cd 0d 01 40 1c e7 20 58 4d 61 78 25 |..?....@.. XMax%|
00001d60 3e 3d 48 70 25 28 4e 25 2c 33 29 21 31 34 34 20 |>=Hp%(N%,3)!144 |
00001d70 8c 0d 01 41 82 c8 99 22 46 6f 6e 74 5f 50 61 69 |...A..."Font_Pai|
00001d80 6e 74 22 2c 46 68 25 28 4e 25 2c 31 29 2c a4 52 |nt",Fh%(N%,1),.R|
00001d90 65 53 28 47 77 25 28 4e 25 29 2c 31 32 29 2c 26 |eS(Gw%(N%),12),&|
00001da0 31 31 30 2c 28 42 75 66 25 21 34 2d 42 75 66 25 |110,(Buf%!4-Buf%|
00001db0 21 32 30 29 2b 48 70 25 28 4e 25 2c 33 29 21 31 |!20)+Hp%(N%,3)!1|
00001dc0 34 34 2c 28 28 42 75 66 25 21 31 36 2d 42 75 66 |44,((Buf%!16-Buf|
00001dd0 25 21 32 34 29 2b 48 70 25 28 4e 25 2c 33 29 21 |%!24)+Hp%(N%,3)!|
00001de0 38 34 29 2b 28 48 70 25 28 4e 25 2c 33 29 21 31 |84)+(Hp%(N%,3)!1|
00001df0 31 36 29 0d 01 42 05 cd 0d 01 43 05 cd 0d 01 44 |16)..B....C....D|
00001e00 28 e7 20 58 4d 69 6e 25 3c 48 70 25 28 4e 25 2c |(. XMin%<Hp%(N%,|
00001e10 33 29 21 31 31 32 2b 48 70 25 28 4e 25 2c 33 29 |3)!112+Hp%(N%,3)|
00001e20 21 39 36 20 8c 0d 01 45 30 e7 20 58 4d 61 78 25 |!96 ...E0. XMax%|
00001e30 3e 48 70 25 28 4e 25 2c 33 29 21 31 39 36 20 84 |>Hp%(N%,3)!196 .|
00001e40 58 4d 61 78 25 3e 48 70 25 28 4e 25 2c 33 29 21 |XMax%>Hp%(N%,3)!|
00001e50 32 30 34 20 8c 0d 01 46 82 c8 99 22 46 6f 6e 74 |204 ...F..."Font|
00001e60 5f 50 61 69 6e 74 22 2c 46 68 25 28 4e 25 2c 31 |_Paint",Fh%(N%,1|
00001e70 29 2c a4 52 65 53 28 47 77 25 28 4e 25 29 2c 31 |),.ReS(Gw%(N%),1|
00001e80 33 29 2c 26 31 31 30 2c 28 42 75 66 25 21 34 2d |3),&110,(Buf%!4-|
00001e90 42 75 66 25 21 32 30 29 2b 48 70 25 28 4e 25 2c |Buf%!20)+Hp%(N%,|
00001ea0 33 29 21 31 39 36 2c 28 28 42 75 66 25 21 31 36 |3)!196,((Buf%!16|
00001eb0 2d 42 75 66 25 21 32 34 29 2b 48 70 25 28 4e 25 |-Buf%!24)+Hp%(N%|
00001ec0 2c 33 29 21 38 34 29 2b 28 48 70 25 28 4e 25 2c |,3)!84)+(Hp%(N%,|
00001ed0 33 29 21 31 36 38 29 0d 01 47 82 c8 99 22 46 6f |3)!168)..G..."Fo|
00001ee0 6e 74 5f 50 61 69 6e 74 22 2c 46 68 25 28 4e 25 |nt_Paint",Fh%(N%|
00001ef0 2c 31 29 2c a4 52 65 53 28 47 77 25 28 4e 25 29 |,1),.ReS(Gw%(N%)|
00001f00 2c 31 34 29 2c 26 31 31 30 2c 28 42 75 66 25 21 |,14),&110,(Buf%!|
00001f10 34 2d 42 75 66 25 21 32 30 29 2b 48 70 25 28 4e |4-Buf%!20)+Hp%(N|
00001f20 25 2c 33 29 21 32 30 34 2c 28 28 42 75 66 25 21 |%,3)!204,((Buf%!|
00001f30 31 36 2d 42 75 66 25 21 32 34 29 2b 48 70 25 28 |16-Buf%!24)+Hp%(|
00001f40 4e 25 2c 33 29 21 38 34 29 2b 28 48 70 25 28 4e |N%,3)!84)+(Hp%(N|
00001f50 25 2c 33 29 21 31 37 36 29 0d 01 48 05 cd 0d 01 |%,3)!176)..H....|
00001f60 49 05 cd 0d 01 4a 04 0d 01 4b 24 c8 99 22 57 69 |I....J...K$.."Wi|
00001f70 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 6c 65 22 |mp_GetRectangle"|
00001f80 2c 2c 42 75 66 25 20 b8 20 46 25 0d 01 4c 05 ce |,,Buf% . F%..L..|
00001f90 0d 01 4d 05 e1 0d 01 4e 0d dd 20 f2 57 4e 28 57 |..M....N.. .WN(W|
00001fa0 25 29 0d 01 4f 0b 21 57 62 25 3d 57 25 0d 01 50 |%)..O.!Wb%=W%..P|
00001fb0 1f c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 |..."Wimp_GetWind|
00001fc0 6f 77 49 6e 66 6f 22 2c 2c 57 62 25 0d 01 51 14 |owInfo",,Wb%..Q.|
00001fd0 c8 8e 20 57 62 25 21 36 30 80 26 31 30 31 20 ca |.. Wb%!60.&101 .|
00001fe0 0d 01 52 0a c9 26 31 30 31 3a 0d 01 53 4e 20 e7 |..R..&101:..SN .|
00001ff0 20 a9 28 24 28 57 62 25 21 37 36 29 2b 22 20 28 | .($(Wb%!76)+" (|
00002000 22 2b c3 28 47 6e 25 29 2b 22 29 22 29 3c 57 62 |"+.(Gn%)+")")<Wb|
00002010 25 21 38 34 20 24 28 57 62 25 21 37 36 29 3d 24 |%!84 $(Wb%!76)=$|
00002020 28 57 62 25 21 37 36 29 2b 22 20 28 22 2b c3 28 |(Wb%!76)+" ("+.(|
00002030 47 6e 25 29 2b 22 29 22 0d 01 54 07 c9 31 3a 0d |Gn%)+")"..T..1:.|
00002040 01 55 28 20 e7 20 a9 28 24 28 57 62 25 2b 37 36 |.U( . .($(Wb%+76|
00002050 29 2b 22 20 28 22 2b c3 28 47 6e 25 29 2b 22 29 |)+" ("+.(Gn%)+")|
00002060 22 29 3c 31 32 20 8c 0d 01 56 28 20 24 28 57 62 |")<12 ...V( $(Wb|
00002070 25 2b 37 36 29 3d 24 28 57 62 25 2b 37 36 29 2b |%+76)=$(Wb%+76)+|
00002080 22 20 28 22 2b c3 28 47 6e 25 29 2b 22 29 22 0d |" ("+.(Gn%)+")".|
00002090 01 57 06 20 cd 0d 01 58 05 cb 0d 01 59 05 e1 0d |.W. ...X....Y...|
000020a0 01 5a 11 dd 20 a4 4c 4e 57 28 46 24 2c 57 24 29 |.Z.. .LNW(F$,W$)|
000020b0 0d 01 5b 08 ea 20 57 25 0d 01 5c 14 57 25 3d a4 |..[.. W%..\.W%=.|
000020c0 4c 57 28 46 24 2c 57 24 2c 2d 31 29 0d 01 5d 0b |LW(F$,W$,-1)..].|
000020d0 f2 57 4e 28 57 25 29 0d 01 5e 1e c8 99 22 57 69 |.WN(W%)..^..."Wi|
000020e0 6d 70 5f 44 65 6c 65 74 65 57 69 6e 64 6f 77 22 |mp_DeleteWindow"|
000020f0 2c 2c 57 62 25 0d 01 5f 25 c8 99 22 57 69 6d 70 |,,Wb%.._%.."Wimp|
00002100 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c |_CreateWindow",,|
00002110 57 62 25 2b 34 20 b8 20 57 25 0d 01 60 07 3d 57 |Wb%+4 . W%..`.=W|
00002120 25 0d 01 61 0e dd 20 f2 41 50 73 28 57 25 29 0d |%..a.. .APs(W%).|
00002130 01 62 19 e7 20 a4 52 53 65 6c 65 63 74 28 57 25 |.b.. .RSelect(W%|
00002140 2c 33 31 29 3e 30 20 8c 0d 01 63 1c f2 55 53 49 |,31)>0 ...c..USI|
00002150 28 57 25 2c 33 31 29 3a f2 55 6e 53 49 28 57 25 |(W%,31):.UnSI(W%|
00002160 2c 33 30 29 0d 01 64 05 cc 0d 01 65 2a f2 53 69 |,30)..d....e*.Si|
00002170 28 57 25 2c 33 31 29 3a f2 53 49 28 57 25 2c 33 |(W%,31):.SI(W%,3|
00002180 30 29 3a f2 41 50 74 28 a4 46 69 6e 64 57 28 57 |0):.APt(.FindW(W|
00002190 25 29 29 0d 01 66 05 cd 0d 01 67 05 e1 0d 01 68 |%))..f....g....h|
000021a0 0e dd 20 f2 41 50 74 28 4e 25 29 0d 01 69 0c f2 |.. .APt(N%)..i..|
000021b0 53 50 31 28 4e 25 29 0d 01 6a 1f e7 20 a4 52 53 |SP1(N%)..j.. .RS|
000021c0 65 6c 65 63 74 28 47 77 25 28 4e 25 29 2c 33 31 |elect(Gw%(N%),31|
000021d0 29 3c 3d 30 20 e1 0d 01 6b 32 f2 4c 4e 28 47 77 |)<=0 ...k2.LN(Gw|
000021e0 25 28 4e 25 29 2c 33 30 2c a8 28 28 48 70 25 28 |%(N%),30,.((Hp%(|
000021f0 4e 25 2c 33 29 21 38 38 3e 3e a4 58 50 69 78 56 |N%,3)!88>>.XPixV|
00002200 61 6c 29 2a 4d 67 29 29 0d 01 6c 0c f2 53 50 31 |al)*Mg))..l..SP1|
00002210 28 4e 25 29 0d 01 6d 05 e1 0d 01 6e 0e dd 20 f2 |(N%)..m....n.. .|
00002220 53 63 44 28 57 25 29 0d 01 6f 19 e7 20 a4 52 53 |ScD(W%)..o.. .RS|
00002230 65 6c 65 63 74 28 53 57 25 2c 32 29 3e 30 20 8c |elect(SW%,2)>0 .|
00002240 0d 01 70 0f f2 55 53 49 28 53 57 25 2c 32 29 0d |..p..USI(SW%,2).|
00002250 01 71 10 f2 55 6e 53 49 28 53 57 25 2c 31 29 0d |.q..UnSI(SW%,1).|
00002260 01 72 12 f2 53 46 67 28 53 57 25 2c 31 2c 31 35 |.r..SFg(SW%,1,15|
00002270 29 0d 01 73 05 cc 0d 01 74 0e f2 53 69 28 53 57 |)..s....t..Si(SW|
00002280 25 2c 32 29 0d 01 75 19 f2 4c 4e 28 53 57 25 2c |%,2)..u..LN(SW%,|
00002290 31 2c a8 28 a4 4f 53 58 2a 4f 53 29 29 0d 01 76 |1,.(.OSX*OS))..v|
000022a0 0e f2 53 49 28 53 57 25 2c 31 29 0d 01 77 11 f2 |..SI(SW%,1)..w..|
000022b0 53 46 67 28 53 57 25 2c 31 2c 30 29 0d 01 78 05 |SFg(SW%,1,0)..x.|
000022c0 cd 0d 01 79 28 21 57 62 25 3d 53 57 25 3a c8 99 |...y(!Wb%=SW%:..|
000022d0 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 |"Wimp_GetWindowI|
000022e0 6e 66 6f 22 2c 2c 57 62 25 0d 01 7a 1d c8 99 22 |nfo",,Wb%..z..."|
000022f0 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 |Wimp_CloseWindow|
00002300 22 2c 2c 57 62 25 0d 01 7b 1c c8 99 22 57 69 6d |",,Wb%..{..."Wim|
00002310 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 57 |p_OpenWindow",,W|
00002320 62 25 0d 01 7c 05 e1 0d 01 7d 09 dd 20 a4 46 74 |b%..|....}.. .Ft|
00002330 0d 01 7e 08 ea 20 4e 25 0d 01 7f 05 f5 0d 01 80 |..~.. N%........|
00002340 13 e7 20 47 61 25 28 4e 25 29 3d 30 20 3d 4e 25 |.. Ga%(N%)=0 =N%|
00002350 0d 01 81 09 4e 25 2b 3d 31 0d 01 82 0c fd 20 4e |....N%+=1..... N|
00002360 25 3e 4e 67 25 0d 01 83 07 3d 2d 31 0d 01 84 0a |%>Ng%....=-1....|
00002370 dd 20 a4 46 74 31 0d 01 85 0f ea 20 4e 25 3a 4e |. .Ft1..... N%:N|
00002380 25 3d 4e 67 25 0d 01 86 05 f5 0d 01 87 13 e7 20 |%=Ng%.......... |
00002390 47 63 25 28 4e 25 29 3e 30 20 3d 4e 25 0d 01 88 |Gc%(N%)>0 =N%...|
000023a0 09 4e 25 2d 3d 31 0d 01 89 0a fd 20 4e 25 3c 30 |.N%-=1..... N%<0|
000023b0 0d 01 8a 06 3d 30 0d 01 8b 10 dd 20 a4 46 69 6e |....=0..... .Fin|
000023c0 64 57 28 57 25 29 0d 01 8c 08 ea 20 4e 25 0d 01 |dW(W%)..... N%..|
000023d0 8d 05 f5 0d 01 8e 2c e7 20 47 61 25 28 4e 25 29 |......,. Ga%(N%)|
000023e0 3d 57 25 20 84 47 77 25 28 4e 25 29 3d 57 25 20 |=W% .Gw%(N%)=W% |
000023f0 84 47 63 25 28 4e 25 29 3d 57 25 20 3d 4e 25 0d |.Gc%(N%)=W% =N%.|
00002400 01 8f 09 4e 25 2b 3d 31 0d 01 90 0c fd 20 4e 25 |...N%+=1..... N%|
00002410 3e 4e 67 25 0d 01 91 07 3d 2d 31 0d 01 92 0d dd |>Ng%....=-1.....|
00002420 20 a4 43 6f 75 6e 74 41 0d 01 93 0b ea 20 4e 25 | .CountA..... N%|
00002430 2c 43 25 0d 01 94 05 f5 0d 01 95 16 e7 20 47 61 |,C%.......... Ga|
00002440 25 28 4e 25 29 3c 3e 30 20 43 25 2b 3d 31 0d 01 |%(N%)<>0 C%+=1..|
00002450 96 09 4e 25 2b 3d 31 0d 01 97 0c fd 20 4e 25 3e |..N%+=1..... N%>|
00002460 4e 67 25 0d 01 98 07 3d 43 25 0d 01 99 11 dd 20 |Ng%....=C%..... |
00002470 a4 43 50 6c 6f 74 41 28 57 25 29 0d 01 9a 0b f2 |.CPlotA(W%).....|
00002480 57 4e 28 57 25 29 0d 01 9b 28 c8 99 22 57 69 6d |WN(W%)...(.."Wim|
00002490 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c |p_CreateWindow",|
000024a0 2c 57 62 25 2b 34 20 b8 20 57 62 25 21 34 0d 01 |,Wb%+4 . Wb%!4..|
000024b0 9c 0a 3d 57 62 25 21 34 0d 01 9d 0f dd 20 f2 43 |..=Wb%!4..... .C|
000024c0 4d 57 28 47 6e 25 29 0d 01 9e 13 e7 20 47 63 25 |MW(Gn%)..... Gc%|
000024d0 28 47 6e 25 29 3e 3d 30 20 e1 0d 01 9f 21 e7 20 |(Gn%)>=0 ....!. |
000024e0 48 70 25 28 47 6e 25 2c 33 29 3d 30 20 f2 43 4d |Hp%(Gn%,3)=0 .CM|
000024f0 28 47 6e 25 2c 33 2c 54 73 25 29 0d 01 a0 12 e7 |(Gn%,3,Ts%).....|
00002500 20 47 77 25 28 47 6e 25 29 3d 30 20 8c 0d 01 a1 | Gw%(Gn%)=0 ....|
00002510 31 20 20 47 77 25 28 47 6e 25 29 3d a4 4c 4e 57 |1 Gw%(Gn%)=.LNW|
00002520 28 50 68 24 2b 22 54 65 6d 70 6c 61 74 65 73 22 |(Ph$+"Templates"|
00002530 2c 22 50 6c 6f 74 57 69 6e 64 6f 77 22 29 0d 01 |,"PlotWindow")..|
00002540 a2 1c 20 20 47 77 25 28 47 6e 25 29 3d a4 43 57 |.. Gw%(Gn%)=.CW|
00002550 28 47 77 25 28 47 6e 25 29 29 0d 01 a3 0e 20 20 |(Gw%(Gn%)).... |
00002560 f2 4c 46 28 47 6e 25 29 0d 01 a4 21 20 20 f2 4c |.LF(Gn%)...! .L|
00002570 4e 28 47 77 25 28 47 6e 25 29 2c 31 39 2c a4 52 |N(Gw%(Gn%),19,.R|
00002580 4e 28 53 57 25 2c 31 29 29 0d 01 a5 0e 20 20 f2 |N(SW%,1)).... .|
00002590 53 4d 28 47 6e 25 29 0d 01 a6 0e 20 20 f2 53 50 |SM(Gn%).... .SP|
000025a0 28 47 6e 25 29 0d 01 a7 36 20 20 f2 4c 4e 28 47 |(Gn%)...6 .LN(G|
000025b0 77 25 28 47 6e 25 29 2c 33 30 2c a8 28 28 48 70 |w%(Gn%),30,.((Hp|
000025c0 25 28 47 6e 25 2c 33 29 21 38 38 3e 3e a4 58 50 |%(Gn%,3)!88>>.XP|
000025d0 69 78 56 61 6c 29 2a 4d 67 29 29 0d 01 a8 0e 20 |ixVal)*Mg)).... |
000025e0 20 f2 53 50 28 47 6e 25 29 0d 01 a9 0c 20 20 cd | .SP(Gn%).... .|
000025f0 20 20 20 20 20 0d 01 aa 26 e7 20 48 70 25 28 47 | ...&. Hp%(G|
00002600 6e 25 2c 33 29 3c 3e 30 20 f2 6f 77 28 47 77 25 |n%,3)<>0 .ow(Gw%|
00002610 28 47 6e 25 29 2c 30 2c 2d 31 29 0d 01 ab 05 e1 |(Gn%),0,-1).....|
00002620 0d 01 ac 0d dd 20 f2 52 4d 28 4e 25 29 0d 01 ad |..... .RM(N%)...|
00002630 1c 48 70 25 28 4e 25 2c 30 29 3d a4 48 46 28 48 |.Hp%(N%,0)=.HF(H|
00002640 70 25 28 4e 25 2c 30 29 29 0d 01 ae 1c 48 70 25 |p%(N%,0))....Hp%|
00002650 28 4e 25 2c 33 29 3d a4 48 46 28 48 70 25 28 4e |(N%,3)=.HF(Hp%(N|
00002660 25 2c 33 29 29 0d 01 af 05 e1 0d 01 b0 04 0d 01 |%,3))...........|
00002670 b1 13 dd 20 f2 43 4d 28 4e 25 2c 41 25 2c 53 25 |... .CM(N%,A%,S%|
00002680 29 0d 01 b2 17 48 70 25 28 4e 25 2c 41 25 29 3d |)....Hp%(N%,A%)=|
00002690 a4 48 43 6d 28 53 25 29 0d 01 b3 62 e7 20 48 70 |.HCm(S%)...b. Hp|
000026a0 25 28 4e 25 2c 41 25 29 3d 30 20 c8 99 22 57 69 |%(N%,A%)=0 .."Wi|
000026b0 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c |mp_ReportError",|
000026c0 22 00 00 00 00 4e 6f 74 20 65 6e 6f 75 67 68 20 |"....Not enough |
000026d0 6f 66 20 74 68 61 74 20 74 68 65 72 65 20 6d 65 |of that there me|
000026e0 6d 6f 72 79 20 66 6f 72 20 67 72 61 70 68 22 2c |mory for graph",|
000026f0 30 2c 22 21 47 72 61 70 68 22 0d 01 b4 05 e1 0d |0,"!Graph"......|
00002700 01 b5 0d dd 20 f2 4d 6e 28 57 25 29 0d 01 b6 19 |.... .Mn(W%)....|
00002710 e7 20 a4 52 53 65 6c 65 63 74 28 57 25 2c 33 35 |. .RSelect(W%,35|
00002720 29 3e 30 20 8c 0d 01 b7 19 f2 55 53 49 28 57 25 |)>0 ......USI(W%|
00002730 2c 33 35 29 3a f2 53 49 28 57 25 2c 35 29 0d 01 |,35):.SI(W%,5)..|
00002740 b8 05 cc 0d 01 b9 1a f2 53 69 28 57 25 2c 33 35 |........Si(W%,35|
00002750 29 3a f2 55 6e 53 49 28 57 25 2c 35 29 0d 01 ba |):.UnSI(W%,5)...|
00002760 05 cd 0d 01 bb 05 e1 0d 01 bc 0d dd 20 f2 50 53 |............ .PS|
00002770 28 4e 25 29 0d 01 bd 0e ea 20 78 25 2c 58 25 2c |(N%)..... x%,X%,|
00002780 77 25 0d 01 be 2c 21 57 62 25 3d 47 61 25 28 4e |w%...,!Wb%=Ga%(N|
00002790 25 29 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 |%):.."Wimp_GetWi|
000027a0 6e 64 6f 77 49 6e 66 6f 22 2c 2c 57 62 25 0d 01 |ndowInfo",,Wb%..|
000027b0 bf 0b 77 25 3d 21 57 62 25 0d 01 c0 1e c8 99 22 |..w%=!Wb%......"|
000027c0 57 69 6d 70 5f 44 65 6c 65 74 65 57 69 6e 64 6f |Wimp_DeleteWindo|
000027d0 77 22 2c 2c 57 62 25 0d 01 c1 16 78 25 3d 57 62 |w",,Wb%....x%=Wb|
000027e0 25 21 34 3a 58 25 3d 57 62 25 21 31 32 0d 01 c2 |%!4:X%=Wb%!12...|
000027f0 38 57 62 25 21 31 32 3d 57 62 25 21 34 2b 48 70 |8Wb%!12=Wb%!4+Hp|
00002800 25 28 4e 25 2c 33 29 21 35 36 3a 57 62 25 21 35 |%(N%,3)!56:Wb%!5|
00002810 36 3d 57 62 25 21 34 38 2b 48 70 25 28 4e 25 2c |6=Wb%!48+Hp%(N%,|
00002820 33 29 21 35 36 0d 01 c3 37 48 70 25 28 4e 25 2c |3)!56...7Hp%(N%,|
00002830 33 29 21 38 38 3d 48 70 25 28 4e 25 2c 33 29 21 |3)!88=Hp%(N%,3)!|
00002840 35 36 3a 48 70 25 28 4e 25 2c 33 29 21 38 34 3d |56:Hp%(N%,3)!84=|
00002850 48 70 25 28 4e 25 2c 33 29 21 38 30 0d 01 c4 1f |Hp%(N%,3)!80....|
00002860 48 70 25 28 4e 25 2c 33 29 21 31 31 32 3d 48 70 |Hp%(N%,3)!112=Hp|
00002870 25 28 4e 25 2c 33 29 21 31 39 32 0d 01 c5 2a c8 |%(N%,3)!192...*.|
00002880 99 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e |."Wimp_CreateWin|
00002890 64 6f 77 22 2c 2c 57 62 25 2b 34 20 b8 20 47 61 |dow",,Wb%+4 . Ga|
000028a0 25 28 4e 25 29 0d 01 c6 1d f2 4c 4e 28 47 77 25 |%(N%).....LN(Gw%|
000028b0 28 4e 25 29 2c 31 39 2c 47 70 28 4e 25 2c 31 36 |(N%),19,Gp(N%,16|
000028c0 29 29 0d 01 c7 0e f2 43 53 28 4e 25 2c 2d 31 29 |)).....CS(N%,-1)|
000028d0 0d 01 c8 2c 21 57 62 25 3d 47 61 25 28 4e 25 29 |...,!Wb%=Ga%(N%)|
000028e0 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 |:.."Wimp_GetWind|
000028f0 6f 77 49 6e 66 6f 22 2c 2c 57 62 25 0d 01 c9 1e |owInfo",,Wb%....|
00002900 c8 99 22 57 69 6d 70 5f 44 65 6c 65 74 65 57 69 |.."Wimp_DeleteWi|
00002910 6e 64 6f 77 22 2c 2c 57 62 25 0d 01 ca 16 57 62 |ndow",,Wb%....Wb|
00002920 25 21 34 3d 78 25 3a 57 62 25 21 31 32 3d 58 25 |%!4=x%:Wb%!12=X%|
00002930 0d 01 cb 2a c8 99 22 57 69 6d 70 5f 43 72 65 61 |...*.."Wimp_Crea|
00002940 74 65 57 69 6e 64 6f 77 22 2c 2c 57 62 25 2b 34 |teWindow",,Wb%+4|
00002950 20 b8 20 47 61 25 28 4e 25 29 0d 01 cc 23 48 70 | . Ga%(N%)...#Hp|
00002960 25 28 4e 25 2c 33 29 21 31 38 34 3d 31 3a 48 70 |%(N%,3)!184=1:Hp|
00002970 25 28 4e 25 2c 33 29 21 31 38 38 3d 31 0d 01 cd |%(N%,3)!188=1...|
00002980 18 e7 20 77 25 3d 43 57 25 20 43 57 25 3d 47 61 |.. w%=CW% CW%=Ga|
00002990 25 28 4e 25 29 0d 01 ce 05 e1 0d 01 cf 10 dd 20 |%(N%).......... |
000029a0 f2 43 53 28 4e 25 2c 6f 25 29 0d 01 d0 0c e7 20 |.CS(N%,o%)..... |
000029b0 4e 25 3c 30 20 e1 0d 01 d1 0b ea 20 53 3a 53 3d |N%<0 ...... S:S=|
000029c0 31 0d 01 d2 3f e7 20 a4 52 53 68 61 64 65 28 47 |1...?. .RShade(G|
000029d0 77 25 28 4e 25 29 2c 35 29 3c 31 20 e7 20 a4 52 |w%(N%),5)<1 . .R|
000029e0 65 53 28 47 77 25 28 4e 25 29 2c 35 29 3d 22 47 |eS(Gw%(N%),5)="G|
000029f0 72 61 70 68 20 77 69 64 74 68 22 20 53 3d 4d 67 |raph width" S=Mg|
00002a00 0d 01 d3 10 21 57 62 25 3d 47 61 25 28 4e 25 29 |....!Wb%=Ga%(N%)|
00002a10 0d 01 d4 1f c8 99 22 57 69 6d 70 5f 47 65 74 57 |......"Wimp_GetW|
00002a20 69 6e 64 6f 77 49 6e 66 6f 22 2c 2c 57 62 25 0d |indowInfo",,Wb%.|
00002a30 01 d5 36 e7 20 6f 25 3e 3d 30 20 f2 4c 4e 28 47 |..6. o%>=0 .LN(G|
00002a40 77 25 28 4e 25 29 2c 31 39 2c a8 28 28 57 62 25 |w%(N%),19,.((Wb%|
00002a50 21 31 32 2d 57 62 25 21 34 29 2a 4f 53 31 2a 4f |!12-Wb%!4)*OS1*O|
00002a60 53 2a 53 29 29 0d 01 d6 0c f2 41 50 74 28 4e 25 |S*S)).....APt(N%|
00002a70 29 0d 01 d7 0c f2 53 54 73 28 4e 25 29 0d 01 d8 |).....STs(N%)...|
00002a80 38 47 61 25 28 4e 25 29 3d a4 43 57 57 28 47 61 |8Ga%(N%)=.CWW(Ga|
00002a90 25 28 4e 25 29 2c 48 70 25 28 4e 25 2c 33 29 21 |%(N%),Hp%(N%,3)!|
00002aa0 38 38 2c 48 70 25 28 4e 25 2c 33 29 21 38 34 2c |88,Hp%(N%,3)!84,|
00002ab0 4e 25 2c 30 29 0d 01 d9 3b e7 20 46 68 25 28 4e |N%,0)...;. Fh%(N|
00002ac0 25 2c 30 29 3e 3d 30 3a c8 99 22 46 6f 6e 74 5f |%,0)>=0:.."Font_|
00002ad0 4c 6f 73 65 46 6f 6e 74 22 2c 46 68 25 28 4e 25 |LoseFont",Fh%(N%|
00002ae0 2c 30 29 3a 46 68 25 28 4e 25 2c 30 29 3d 2d 31 |,0):Fh%(N%,0)=-1|
00002af0 0d 01 da 3b e7 20 46 68 25 28 4e 25 2c 31 29 3e |...;. Fh%(N%,1)>|
00002b00 3d 30 3a c8 99 22 46 6f 6e 74 5f 4c 6f 73 65 46 |=0:.."Font_LoseF|
00002b10 6f 6e 74 22 2c 46 68 25 28 4e 25 2c 31 29 3a 46 |ont",Fh%(N%,1):F|
00002b20 68 25 28 4e 25 2c 31 29 3d 2d 31 0d 01 db 37 f2 |h%(N%,1)=-1...7.|
00002b30 47 46 28 4e 25 2c 30 2c 28 48 70 25 28 4e 25 2c |GF(N%,0,(Hp%(N%,|
00002b40 33 29 21 39 32 2a 54 65 29 2c 28 48 70 25 28 4e |3)!92*Te),(Hp%(N|
00002b50 25 2c 33 29 21 39 32 2a 54 65 29 2c 46 6f 6e 74 |%,3)!92*Te),Font|
00002b60 24 29 0d 01 dc 27 48 70 25 28 4e 25 2c 33 29 21 |$)...'Hp%(N%,3)!|
00002b70 31 32 34 3d a4 53 57 28 46 68 25 28 4e 25 2c 30 |124=.SW(Fh%(N%,0|
00002b80 29 2c 46 24 28 4e 25 29 29 0d 01 dd 2e 48 70 25 |),F$(N%))....Hp%|
00002b90 28 4e 25 2c 33 29 21 31 32 30 3d 48 70 25 28 4e |(N%,3)!120=Hp%(N|
00002ba0 25 2c 33 29 21 39 32 2b a4 53 48 44 28 46 68 25 |%,3)!92+.SHD(Fh%|
00002bb0 28 4e 25 2c 30 29 29 0d 01 de 4d f2 47 46 28 4e |(N%,0))...M.GF(N|
00002bc0 25 2c 31 2c 28 47 70 28 4e 25 2c 36 29 2f 47 70 |%,1,(Gp(N%,6)/Gp|
00002bd0 28 4e 25 2c 34 29 29 2a 47 70 28 4e 25 2c 38 29 |(N%,4))*Gp(N%,8)|
00002be0 2c 28 47 70 28 4e 25 2c 36 29 2f 47 70 28 4e 25 |,(Gp(N%,6)/Gp(N%|
00002bf0 2c 34 29 29 2a 47 70 28 4e 25 2c 38 29 2c 46 6f |,4))*Gp(N%,8),Fo|
00002c00 6e 74 24 29 0d 01 df 27 48 70 25 28 4e 25 2c 33 |nt$)...'Hp%(N%,3|
00002c10 29 21 31 32 34 3d a4 53 57 28 46 68 25 28 4e 25 |)!124=.SW(Fh%(N%|
00002c20 2c 30 29 2c 46 24 28 4e 25 29 29 0d 01 e0 0b f2 |,0),F$(N%)).....|
00002c30 58 4e 28 4e 25 29 0d 01 e1 0b f2 59 4e 28 4e 25 |XN(N%).....YN(N%|
00002c40 29 0d 01 e2 05 e1 0d 01 e3 0d dd 20 f2 43 65 28 |).......... .Ce(|
00002c50 4e 25 29 0d 01 e4 29 21 57 62 25 3d 5a 6f 6f 6d |N%)...)!Wb%=Zoom|
00002c60 25 3a c8 99 22 58 57 69 6d 70 5f 43 6c 6f 73 65 |%:.."XWimp_Close|
00002c70 57 69 6e 64 6f 77 22 2c 2c 57 62 25 0d 01 e5 0c |Window",,Wb%....|
00002c80 e7 20 4e 25 3c 30 20 e1 0d 01 e6 17 e7 20 47 61 |. N%<0 ...... Ga|
00002c90 25 28 4e 25 29 3d 4d 57 25 20 4d 57 25 3d b9 0d |%(N%)=MW% MW%=..|
00002ca0 01 e7 1c e7 20 47 63 25 28 4e 25 29 3e 30 20 41 |.... Gc%(N%)>0 A|
00002cb0 67 25 28 4e 25 29 3d 4e 25 3a e1 0d 01 e8 42 e7 |g%(N%)=N%:....B.|
00002cc0 20 47 61 25 28 4e 25 29 3c 3e 30 20 21 57 62 25 | Ga%(N%)<>0 !Wb%|
00002cd0 3d 47 61 25 28 4e 25 29 3a c8 99 22 57 69 6d 70 |=Ga%(N%):.."Wimp|
00002ce0 5f 44 65 6c 65 74 65 57 69 6e 64 6f 77 22 2c 2c |_DeleteWindow",,|
00002cf0 57 62 25 3a 47 61 25 28 4e 25 29 3d 30 0d 01 e9 |Wb%:Ga%(N%)=0...|
00002d00 13 20 20 20 21 57 62 25 3d 47 77 25 28 4e 25 29 |. !Wb%=Gw%(N%)|
00002d10 0d 01 ea 20 20 20 20 c8 99 22 57 69 6d 70 5f 43 |... .."Wimp_C|
00002d20 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 57 62 25 |loseWindow",,Wb%|
00002d30 0d 01 eb 3e 20 20 20 e7 20 46 68 25 28 4e 25 2c |...> . Fh%(N%,|
00002d40 30 29 3e 3d 30 3a c8 99 22 46 6f 6e 74 5f 4c 6f |0)>=0:.."Font_Lo|
00002d50 73 65 46 6f 6e 74 22 2c 46 68 25 28 4e 25 2c 30 |seFont",Fh%(N%,0|
00002d60 29 3a 46 68 25 28 4e 25 2c 30 29 3d 2d 31 0d 01 |):Fh%(N%,0)=-1..|
00002d70 ec 3e 20 20 20 e7 20 46 68 25 28 4e 25 2c 31 29 |.> . Fh%(N%,1)|
00002d80 3e 3d 30 3a c8 99 22 46 6f 6e 74 5f 4c 6f 73 65 |>=0:.."Font_Lose|
00002d90 46 6f 6e 74 22 2c 46 68 25 28 4e 25 2c 31 29 3a |Font",Fh%(N%,1):|
00002da0 46 68 25 28 4e 25 2c 31 29 3d 2d 31 0d 01 ed 1f |Fh%(N%,1)=-1....|
00002db0 20 20 20 c8 99 22 57 69 6d 70 5f 50 6f 6c 6c 22 | .."Wimp_Poll"|
00002dc0 2c 26 45 31 39 37 32 2c 57 62 25 0d 01 ee 0e 20 |,&E1972,Wb%.... |
00002dd0 20 20 f2 52 4d 28 4e 25 29 0d 01 ef 0b 20 20 20 | .RM(N%).... |
00002de0 f2 4d 55 53 0d 01 f0 05 e1 0d 01 f1 0d dd 20 f2 |.MUS.......... .|
00002df0 44 63 28 6e 25 29 0d 01 f2 0c f2 41 50 74 28 6e |Dc(n%).....APt(n|
00002e00 25 29 0d 01 f3 10 21 57 62 25 3d 47 61 25 28 6e |%)....!Wb%=Ga%(n|
00002e10 25 29 0d 01 f4 1f c8 99 22 57 69 6d 70 5f 47 65 |%)......"Wimp_Ge|
00002e20 74 57 69 6e 64 6f 77 49 6e 66 6f 22 2c 2c 57 62 |tWindowInfo",,Wb|
00002e30 25 0d 01 f5 4a e7 20 57 62 25 21 31 32 2d 57 62 |%...J. Wb%!12-Wb|
00002e40 25 21 34 3e 3d 28 57 62 25 21 35 32 2d 57 62 25 |%!4>=(Wb%!52-Wb%|
00002e50 21 34 34 29 2d 32 30 20 84 57 62 25 21 31 36 2d |!44)-20 .Wb%!16-|
00002e60 57 62 25 21 38 3e 3d 28 57 62 25 21 35 36 2d 57 |Wb%!8>=(Wb%!56-W|
00002e70 62 25 21 34 38 29 2d 32 30 20 8c 0d 01 f6 0e f2 |b%!48)-20 ......|
00002e80 52 53 28 6e 25 2c 32 30 29 0d 01 f7 05 cd 0d 01 |RS(n%,20).......|
00002e90 f8 05 e1 0d 01 f9 10 dd 20 f2 52 53 28 6e 25 2c |........ .RS(n%,|
00002ea0 69 25 29 0d 01 fa 26 f2 4c 4e 28 47 77 25 28 6e |i%)...&.LN(Gw%(n|
00002eb0 25 29 2c 31 39 2c a4 52 4e 28 47 77 25 28 6e 25 |%),19,.RN(Gw%(n%|
00002ec0 29 2c 31 39 29 2b 69 25 29 0d 01 fb 0c f2 53 50 |),19)+i%).....SP|
00002ed0 31 28 6e 25 29 0d 01 fc 0c f2 53 54 73 28 6e 25 |1(n%).....STs(n%|
00002ee0 29 0d 01 fd 38 47 61 25 28 6e 25 29 3d a4 43 57 |)...8Ga%(n%)=.CW|
00002ef0 57 28 47 61 25 28 6e 25 29 2c 48 70 25 28 6e 25 |W(Ga%(n%),Hp%(n%|
00002f00 2c 33 29 21 38 38 2c 48 70 25 28 6e 25 2c 33 29 |,3)!88,Hp%(n%,3)|
00002f10 21 38 34 2c 6e 25 2c 30 29 0d 01 fe 15 f2 6f 77 |!84,n%,0).....ow|
00002f20 28 47 61 25 28 6e 25 29 2c 30 2c 2d 31 29 0d 01 |(Ga%(n%),0,-1)..|
00002f30 ff 05 e1 0d 02 00 0e dd 20 f2 53 44 63 28 53 24 |........ .SDc(S$|
00002f40 29 0d 02 01 08 ea 20 46 25 0d 02 02 13 46 25 3d |)..... F%....F%=|
00002f50 a4 52 54 6b 28 4f 6e 25 2c 53 24 29 0d 02 03 0c |.RTk(On%,S$)....|
00002f60 e7 20 46 25 3e 30 20 8c 0d 02 04 11 f2 55 6e 54 |. F%>0 ......UnT|
00002f70 6b 28 4f 6e 25 2c 53 24 29 0d 02 05 11 4d 25 3d |k(On%,S$)....M%=|
00002f80 4d 25 84 31 3a 44 79 25 3d a3 0d 02 06 2e cc 20 |M%.1:Dy%=...... |
00002f90 e7 20 46 25 3d 30 20 f2 54 6b 28 4f 6e 25 2c 53 |. F%=0 .Tk(On%,S|
00002fa0 24 29 3a 4d 25 3d 4d 25 80 26 46 46 46 46 46 46 |$):M%=M%.&FFFFFF|
00002fb0 46 45 3a 44 79 25 3d b9 0d 02 07 05 cd 0d 02 08 |FE:Dy%=.........|
00002fc0 05 e1 0d 02 09 0e dd 20 f2 43 74 28 43 6e 25 29 |....... .Ct(Cn%)|
00002fd0 0d 02 0a 16 ea 20 50 72 6f 67 72 65 73 73 2c 50 |..... Progress,P|
00002fe0 65 72 63 65 6e 74 0d 02 0b 27 f2 53 49 28 53 57 |ercent...'.SI(SW|
00002ff0 25 2c 32 29 3a f2 53 49 28 53 57 25 2c 31 29 3a |%,2):.SI(SW%,1):|
00003000 f2 53 46 67 28 53 57 25 2c 31 2c 30 29 0d 02 0c |.SFg(SW%,1,0)...|
00003010 2d 20 20 21 57 62 25 3d 47 77 25 28 43 6e 25 29 |- !Wb%=Gw%(Cn%)|
00003020 3a c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 |:.."Wimp_CloseWi|
00003030 6e 64 6f 77 22 2c 2c 57 62 25 0d 02 0d 12 20 20 |ndow",,Wb%.... |
00003040 e7 20 a4 43 43 28 43 6e 25 29 20 8c 0d 02 0e 0a |. .CC(Cn%) .....|
00003050 20 20 64 25 3d 30 0d 02 0f 14 20 20 e7 20 47 61 | d%=0.... . Ga|
00003060 25 28 43 6e 25 29 3d 30 20 8c 0d 02 10 21 20 20 |%(Cn%)=0 ....! |
00003070 47 61 25 28 43 6e 25 29 3d a4 43 50 6c 6f 74 41 |Ga%(Cn%)=.CPlotA|
00003080 28 50 41 25 29 3a 64 25 3d 32 30 0d 02 11 07 20 |(PA%):d%=20.... |
00003090 20 cc 0d 02 12 2d 20 20 21 57 62 25 3d 47 61 25 | ....- !Wb%=Ga%|
000030a0 28 43 6e 25 29 3a c8 99 22 57 69 6d 70 5f 43 6c |(Cn%):.."Wimp_Cl|
000030b0 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 57 62 25 0d |oseWindow",,Wb%.|
000030c0 02 13 1e 20 20 c8 99 22 57 69 6d 70 5f 50 6f 6c |... .."Wimp_Pol|
000030d0 6c 22 2c 26 45 31 39 37 32 2c 57 62 25 0d 02 14 |l",&E1972,Wb%...|
000030e0 0e 20 20 f2 52 4d 28 43 6e 25 29 0d 02 15 14 20 |. .RM(Cn%).... |
000030f0 20 f2 43 4d 28 43 6e 25 2c 33 2c 54 73 25 29 0d | .CM(Cn%,3,Ts%).|
00003100 02 16 07 20 20 cd 0d 02 17 21 20 20 f2 43 4d 28 |... ....! .CM(|
00003110 43 6e 25 2c 30 2c 28 50 53 25 2f 32 29 2d 28 54 |Cn%,0,(PS%/2)-(T|
00003120 73 25 2b 31 32 29 29 0d 02 18 10 20 20 e7 20 a4 |s%+12)).... . .|
00003130 46 74 3d 2d 31 20 8c 0d 02 19 1b 20 20 f2 53 65 |Ft=-1 ..... .Se|
00003140 28 49 4d 25 2c 33 29 3a f2 53 65 28 4f 6e 25 2c |(IM%,3):.Se(On%,|
00003150 31 29 0d 02 1a 1b 20 20 f2 53 65 28 49 4d 25 2c |1).... .Se(IM%,|
00003160 34 29 3a f2 53 65 28 4f 6e 25 2c 34 29 0d 02 1b |4):.Se(On%,4)...|
00003170 10 20 20 f2 53 65 28 4f 6e 25 2c 38 29 0d 02 1c |. .Se(On%,8)...|
00003180 14 20 20 cc 20 f2 55 6e 53 65 28 49 4d 25 2c 33 |. . .UnSe(IM%,3|
00003190 29 0d 02 1d 07 20 20 cd 0d 02 1e 12 20 20 48 70 |).... ..... Hp|
000031a0 25 28 43 6e 25 2c 31 29 3d 30 0d 02 1f 20 20 20 |%(Cn%,1)=0... |
000031b0 48 70 25 28 43 6e 25 2c 32 29 3d a4 42 53 28 48 |Hp%(Cn%,2)=.BS(H|
000031c0 70 25 28 43 6e 25 2c 30 29 29 0d 02 20 0e 20 20 |p%(Cn%,0)).. . |
000031d0 f2 53 4d 28 43 6e 25 29 0d 02 21 64 20 20 e7 20 |.SM(Cn%)..!d . |
000031e0 28 a4 52 4e 28 47 77 25 28 43 6e 25 29 2c 31 39 |(.RN(Gw%(Cn%),19|
000031f0 29 2a 47 70 28 43 6e 25 2c 31 30 29 29 2f a4 52 |)*Gp(Cn%,10))/.R|
00003200 4e 28 53 57 25 2c 31 29 3e 32 30 20 f2 4c 4e 28 |N(SW%,1)>20 .LN(|
00003210 47 77 25 28 43 6e 25 29 2c 31 39 2c a8 28 28 a4 |Gw%(Cn%),19,.((.|
00003220 52 4e 28 53 57 25 2c 31 29 2f 47 70 28 43 6e 25 |RN(SW%,1)/Gp(Cn%|
00003230 2c 31 30 29 29 2a 31 39 2e 39 29 29 0d 02 22 21 |,10))*19.9)).."!|
00003240 20 20 47 70 28 43 6e 25 2c 31 36 29 3d a4 52 4e | Gp(Cn%,16)=.RN|
00003250 28 47 77 25 28 43 6e 25 29 2c 31 39 29 0d 02 23 |(Gw%(Cn%),19)..#|
00003260 0e 20 20 f2 53 50 28 43 6e 25 29 0d 02 24 0a 20 |. .SP(Cn%)..$. |
00003270 20 f2 53 55 50 0d 02 25 40 20 20 47 61 25 28 43 | .SUP..%@ Ga%(C|
00003280 6e 25 29 3d a4 43 57 57 28 47 61 25 28 43 6e 25 |n%)=.CWW(Ga%(Cn%|
00003290 29 2c 48 70 25 28 43 6e 25 2c 33 29 21 38 38 2c |),Hp%(Cn%,3)!88,|
000032a0 48 70 25 28 43 6e 25 2c 33 29 21 38 34 2c 43 6e |Hp%(Cn%,3)!84,Cn|
000032b0 25 2c 64 25 29 0d 02 26 40 20 20 e7 20 46 68 25 |%,d%)..&@ . Fh%|
000032c0 28 43 6e 25 2c 30 29 3e 3d 30 3a c8 99 22 46 6f |(Cn%,0)>=0:.."Fo|
000032d0 6e 74 5f 4c 6f 73 65 46 6f 6e 74 22 2c 46 68 25 |nt_LoseFont",Fh%|
000032e0 28 43 6e 25 2c 30 29 3a 46 68 25 28 43 6e 25 2c |(Cn%,0):Fh%(Cn%,|
000032f0 30 29 3d 2d 31 0d 02 27 40 20 20 e7 20 46 68 25 |0)=-1..'@ . Fh%|
00003300 28 43 6e 25 2c 31 29 3e 3d 30 3a c8 99 22 46 6f |(Cn%,1)>=0:.."Fo|
00003310 6e 74 5f 4c 6f 73 65 46 6f 6e 74 22 2c 46 68 25 |nt_LoseFont",Fh%|
00003320 28 43 6e 25 2c 31 29 3a 46 68 25 28 43 6e 25 2c |(Cn%,1):Fh%(Cn%,|
00003330 31 29 3d 2d 31 0d 02 28 3c 20 20 f2 47 46 28 43 |1)=-1..(< .GF(C|
00003340 6e 25 2c 30 2c 28 48 70 25 28 43 6e 25 2c 33 29 |n%,0,(Hp%(Cn%,3)|
00003350 21 39 32 2a 54 65 29 2c 28 48 70 25 28 43 6e 25 |!92*Te),(Hp%(Cn%|
00003360 2c 33 29 21 39 32 2a 54 65 29 2c 46 6f 6e 74 24 |,3)!92*Te),Font$|
00003370 29 0d 02 29 33 20 20 48 70 25 28 43 6e 25 2c 33 |)..)3 Hp%(Cn%,3|
00003380 29 21 31 32 30 3d 48 70 25 28 43 6e 25 2c 33 29 |)!120=Hp%(Cn%,3)|
00003390 21 39 32 2b a4 53 48 44 28 46 68 25 28 43 6e 25 |!92+.SHD(Fh%(Cn%|
000033a0 2c 30 29 29 0d 02 2a 56 20 20 f2 47 46 28 43 6e |,0))..*V .GF(Cn|
000033b0 25 2c 31 2c 28 47 70 28 43 6e 25 2c 36 29 2f 47 |%,1,(Gp(Cn%,6)/G|
000033c0 70 28 43 6e 25 2c 34 29 29 2a 47 70 28 43 6e 25 |p(Cn%,4))*Gp(Cn%|
000033d0 2c 38 29 2c 28 47 70 28 43 6e 25 2c 36 29 2f 47 |,8),(Gp(Cn%,6)/G|
000033e0 70 28 43 6e 25 2c 34 29 29 2a 47 70 28 43 6e 25 |p(Cn%,4))*Gp(Cn%|
000033f0 2c 38 29 2c 46 6f 6e 74 24 29 0d 02 2b 0e 20 20 |,8),Font$)..+. |
00003400 f2 50 47 28 43 6e 25 29 0d 02 2c 0e 20 20 f2 58 |.PG(Cn%)..,. .X|
00003410 4e 28 43 6e 25 29 0d 02 2d 0e 20 20 f2 59 4e 28 |N(Cn%)..-. .YN(|
00003420 43 6e 25 29 0d 02 2e 2c 20 20 48 70 25 28 43 6e |Cn%)..., Hp%(Cn|
00003430 25 2c 33 29 21 31 32 34 3d a4 53 57 28 46 68 25 |%,3)!124=.SW(Fh%|
00003440 28 43 6e 25 2c 30 29 2c 46 24 28 43 6e 25 29 29 |(Cn%,0),F$(Cn%))|
00003450 0d 02 2f 0e 20 20 f2 47 44 28 43 6e 25 29 0d 02 |../. .GD(Cn%)..|
00003460 30 26 20 20 f2 6f 77 28 47 61 25 28 43 6e 25 29 |0& .ow(Ga%(Cn%)|
00003470 2c 30 2c a4 42 64 29 3a 43 57 25 3d 47 61 25 28 |,0,.Bd):CW%=Ga%(|
00003480 43 6e 25 29 0d 02 31 07 20 20 cc 0d 02 32 30 20 |Cn%)..1. ...20 |
00003490 20 21 57 62 25 3d 47 77 25 28 43 6e 25 29 3a c8 | !Wb%=Gw%(Cn%):.|
000034a0 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 |."Wimp_GetWindow|
000034b0 53 74 61 74 65 22 2c 2c 57 62 25 0d 02 33 2c 20 |State",,Wb%..3, |
000034c0 20 21 57 62 25 3d 47 77 25 28 43 6e 25 29 3a c8 | !Wb%=Gw%(Cn%):.|
000034d0 99 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f |."Wimp_OpenWindo|
000034e0 77 22 2c 2c 57 62 25 0d 02 34 07 20 20 cd 0d 02 |w",,Wb%..4. ...|
000034f0 35 4a 20 20 21 57 62 25 3d 47 63 25 28 43 6e 25 |5J !Wb%=Gc%(Cn%|
00003500 29 3a c8 99 22 58 57 69 6d 70 5f 43 6c 6f 73 65 |):.."XWimp_Close|
00003510 57 69 6e 64 6f 77 22 2c 2c 57 62 25 3a 47 63 25 |Window",,Wb%:Gc%|
00003520 28 43 6e 25 29 3d 47 63 25 28 43 6e 25 29 84 26 |(Cn%)=Gc%(Cn%).&|
00003530 38 30 30 30 30 30 30 30 0d 02 36 28 20 20 e7 20 |80000000..6( . |
00003540 41 67 25 28 43 6e 25 29 3d 43 6e 25 20 41 67 25 |Ag%(Cn%)=Cn% Ag%|
00003550 28 43 6e 25 29 3d b9 3a f2 43 65 28 43 6e 25 29 |(Cn%)=.:.Ce(Cn%)|
00003560 0d 02 37 2f 20 20 e7 20 44 79 25 20 84 4d 57 25 |..7/ . Dy% .MW%|
00003570 3c 3e b9 20 4d 25 3d 4d 25 80 26 46 46 46 46 46 |<>. M%=M%.&FFFFF|
00003580 46 46 45 20 8b 20 4d 25 3d 4d 25 84 31 20 20 0d |FFE . M%=M%.1 .|
00003590 02 38 05 e1 0d 02 39 0a dd 20 f2 53 55 50 0d 02 |.8....9.. .SUP..|
000035a0 3a 55 e7 20 47 63 25 28 43 6e 25 29 3d 2d 31 20 |:U. Gc%(Cn%)=-1 |
000035b0 47 63 25 28 43 6e 25 29 3d a4 4c 4e 57 28 50 68 |Gc%(Cn%)=.LNW(Ph|
000035c0 24 2b 22 54 65 6d 70 6c 61 74 65 73 22 2c 22 57 |$+"Templates","W|
000035d0 61 69 74 22 29 20 8b 20 47 63 25 28 43 6e 25 29 |ait") . Gc%(Cn%)|
000035e0 3d 47 63 25 28 43 6e 25 29 80 26 37 46 46 46 46 |=Gc%(Cn%).&7FFFF|
000035f0 46 46 46 0d 02 3b 36 20 20 21 57 62 25 3d 47 63 |FFF..;6 !Wb%=Gc|
00003600 25 28 43 6e 25 29 3a 57 62 25 21 34 3d 31 3a c8 |%(Cn%):Wb%!4=1:.|
00003610 99 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 |."Wimp_GetIconSt|
00003620 61 74 65 22 2c 2c 57 62 25 0d 02 3c 16 20 20 50 |ate",,Wb%..<. P|
00003630 65 72 63 65 6e 74 3d 57 62 25 21 31 36 2d 36 0d |ercent=Wb%!16-6.|
00003640 02 3d 36 20 20 21 57 62 25 3d 47 63 25 28 43 6e |.=6 !Wb%=Gc%(Cn|
00003650 25 29 3a 57 62 25 21 34 3d 32 3a c8 99 22 57 69 |%):Wb%!4=2:.."Wi|
00003660 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_GetIconState"|
00003670 2c 2c 57 62 25 0d 02 3e 35 20 20 50 65 72 63 65 |,,Wb%..>5 Perce|
00003680 6e 74 3d 28 28 50 65 72 63 65 6e 74 2d 57 62 25 |nt=((Percent-Wb%|
00003690 21 38 29 2f 47 70 28 43 6e 25 2c 31 33 29 29 2a |!8)/Gp(Cn%,13))*|
000036a0 47 70 28 43 6e 25 2c 31 31 29 0d 02 3f 14 20 20 |Gp(Cn%,11)..?. |
000036b0 50 72 6f 67 72 65 73 73 3d 57 62 25 21 38 0d 02 |Progress=Wb%!8..|
000036c0 40 34 20 20 57 62 25 21 31 36 3d a8 28 50 72 6f |@4 Wb%!16=.(Pro|
000036d0 67 72 65 73 73 29 2b 32 3a c8 99 22 57 69 6d 70 |gress)+2:.."Wimp|
000036e0 5f 44 65 6c 65 74 65 49 63 6f 6e 22 2c 2c 57 62 |_DeleteIcon",,Wb|
000036f0 25 3a 0d 02 41 2c 20 20 57 62 25 21 34 3d 57 62 |%:..A, Wb%!4=Wb|
00003700 25 21 30 3a c8 99 22 57 69 6d 70 5f 43 72 65 61 |%!0:.."Wimp_Crea|
00003710 74 65 49 63 6f 6e 22 2c 2c 57 62 25 2b 34 0d 02 |teIcon",,Wb%+4..|
00003720 42 1c 20 20 47 63 25 28 43 6e 25 29 3d a4 43 57 |B. Gc%(Cn%)=.CW|
00003730 28 47 63 25 28 43 6e 25 29 29 0d 02 43 1e 20 20 |(Gc%(Cn%))..C. |
00003740 f2 6f 77 28 47 63 25 28 43 6e 25 29 2c a4 46 74 |.ow(Gc%(Cn%),.Ft|
00003750 31 2a 32 30 2c 2d 31 29 0d 02 44 1e 20 20 c8 99 |1*20,-1)..D. ..|
00003760 22 57 69 6d 70 5f 50 6f 6c 6c 22 2c 26 45 31 39 |"Wimp_Poll",&E19|
00003770 37 32 2c 57 62 25 0d 02 45 05 e1 0d 02 46 09 dd |72,Wb%..E....F..|
00003780 20 a4 42 64 0d 02 47 12 ea 20 6e 25 2c 6e 31 25 | .Bd..G.. n%,n1%|
00003790 3a 6e 25 3d 2d 31 0d 02 48 11 e7 20 4d 57 25 3c |:n%=-1..H.. MW%<|
000037a0 3e b9 20 3d 4d 57 25 0d 02 49 05 f5 0d 02 4a 09 |>. =MW%..I....J.|
000037b0 6e 25 2b 3d 31 0d 02 4b 43 e7 20 47 63 25 28 6e |n%+=1..KC. Gc%(n|
000037c0 25 29 3e 30 20 21 57 62 25 3d 47 63 25 28 6e 25 |%)>0 !Wb%=Gc%(n%|
000037d0 29 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e |):.."Wimp_GetWin|
000037e0 64 6f 77 49 6e 66 6f 22 2c 2c 57 62 25 20 8b 20 |dowInfo",,Wb% . |
000037f0 57 62 25 21 32 38 3d 30 0d 02 4c 19 fd 20 6e 25 |Wb%!28=0..L.. n%|
00003800 3e 3d 4e 67 25 20 84 20 57 62 25 21 32 38 3d 2d |>=Ng% . Wb%!28=-|
00003810 31 0d 02 4d 13 e7 20 57 62 25 21 32 38 3e 3d 30 |1..M.. Wb%!28>=0|
00003820 20 3d 2d 31 0d 02 4e 05 f5 0d 02 4f 0a 6e 31 25 | =-1..N....O.n1%|
00003830 3d 2d 31 0d 02 50 05 f5 0d 02 51 0a 6e 31 25 2b |=-1..P....Q.n1%+|
00003840 3d 31 0d 02 52 45 e7 20 47 63 25 28 6e 31 25 29 |=1..RE. Gc%(n1%)|
00003850 3e 30 20 21 57 62 25 3d 47 63 25 28 6e 31 25 29 |>0 !Wb%=Gc%(n1%)|
00003860 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 |:.."Wimp_GetWind|
00003870 6f 77 49 6e 66 6f 22 2c 2c 57 62 25 20 8b 20 57 |owInfo",,Wb% . W|
00003880 62 25 21 32 38 3d 30 0d 02 53 1f fd 20 6e 31 25 |b%!28=0..S.. n1%|
00003890 3e 3d 4e 67 25 20 84 20 57 62 25 21 32 38 3d 47 |>=Ng% . Wb%!28=G|
000038a0 63 25 28 6e 25 29 0d 02 54 2a e7 20 57 62 25 21 |c%(n%)..T*. Wb%!|
000038b0 32 38 3d 47 63 25 28 6e 25 29 20 6e 25 3d 6e 31 |28=Gc%(n%) n%=n1|
000038c0 25 3a 57 62 25 21 32 38 3d 47 63 25 28 6e 25 29 |%:Wb%!28=Gc%(n%)|
000038d0 0d 02 55 15 fd 20 57 62 25 21 32 38 3c 3e 47 63 |..U.. Wb%!28<>Gc|
000038e0 25 28 6e 25 29 0d 02 56 0c 3d 47 63 25 28 6e 25 |%(n%)..V.=Gc%(n%|
000038f0 29 0d 02 57 0d dd 20 f2 4c 46 28 4e 25 29 0d 02 |)..W.. .LF(N%)..|
00003900 58 11 ea 20 53 24 2c 6e 25 3a 6e 25 3d 2d 31 0d |X.. S$,n%:n%=-1.|
00003910 02 59 17 5a 25 3d 8e 28 50 68 24 2b 22 46 6f 72 |.Y.Z%=.(Ph$+"For|
00003920 6d 75 6c 61 22 29 0d 02 5a 05 f5 0d 02 5b 09 6e |mula")..Z....[.n|
00003930 25 2b 3d 31 0d 02 5c 0b e8 23 5a 25 2c 53 24 0d |%+=1..\..#Z%,S$.|
00003940 02 5d 12 fd 20 c5 23 5a 25 20 84 6e 25 3e 3d 4e |.].. .#Z% .n%>=N|
00003950 25 0d 02 5e 08 d9 23 5a 25 0d 02 5f 16 f2 4c 53 |%..^..#Z%.._..LS|
00003960 28 47 77 25 28 4e 25 29 2c 31 30 2c 53 24 29 0d |(Gw%(N%),10,S$).|
00003970 02 60 05 e1 0d 02 61 12 dd 20 f2 4d 65 73 73 28 |.`....a.. .Mess(|
00003980 52 25 2c 42 25 29 0d 02 62 08 ea 20 72 25 0d 02 |R%,B%)..b.. r%..|
00003990 63 11 c8 94 20 42 25 21 31 32 2c 42 25 21 38 0d |c... B%!12,B%!8.|
000039a0 02 64 0e c8 8e 20 42 25 21 31 36 20 ca 0d 02 65 |.d... B%!16 ...e|
000039b0 2e c9 30 3a 51 75 69 74 25 3d b9 3a c8 99 22 57 |..0:Quit%=.:.."W|
000039c0 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 |imp_SendMessage"|
000039d0 2c 31 39 2c 42 25 2c 42 25 21 34 0d 02 66 07 c9 |,19,B%,B%!4..f..|
000039e0 31 3a 0d 02 67 0e c9 32 3a f2 44 53 28 42 25 29 |1:..g..2:.DS(B%)|
000039f0 0d 02 68 1d c9 33 3a e7 20 42 25 21 34 30 3d 26 |..h..3:. B%!40=&|
00003a00 46 46 44 20 f2 4c 4c 28 42 25 2c 30 29 0d 02 69 |FFD .LL(B%,0)..i|
00003a10 0c c9 26 34 30 30 43 30 3a 0d 02 6a 27 20 c8 99 |..&400C0:..j' ..|
00003a20 22 57 69 6d 70 5f 44 65 63 6f 64 65 4d 65 6e 75 |"Wimp_DecodeMenu|
00003a30 22 2c 2c 43 4d 25 2c 42 25 2b 33 32 2c 57 62 25 |",,CM%,B%+32,Wb%|
00003a40 0d 02 6b 0e 20 c8 8e 20 24 57 62 25 20 ca 0d 02 |..k. .. $Wb% ...|
00003a50 6c 0e 20 20 c9 22 53 61 76 65 22 3a 0d 02 6d 20 |l. ."Save":..m |
00003a60 20 20 f2 4c 53 28 44 77 25 2c 32 2c 44 50 24 2b | .LS(Dw%,2,DP$+|
00003a70 c3 28 a4 46 46 28 44 50 24 29 29 29 0d 02 6e 21 |.(.FF(DP$)))..n!|
00003a80 20 20 f2 4c 53 28 4c 6f 67 25 2c 32 2c 4c 50 24 | .LS(Log%,2,LP$|
00003a90 2b c3 28 a4 46 46 28 4c 50 24 29 29 29 0d 02 6f |+.(.FF(LP$)))..o|
00003aa0 2f 20 20 c8 99 22 57 69 6d 70 5f 43 72 65 61 74 |/ .."Wimp_Creat|
00003ab0 65 53 75 62 4d 65 6e 75 22 2c 2c 53 61 76 65 25 |eSubMenu",,Save%|
00003ac0 2c 42 25 21 32 34 2c 42 25 21 32 38 0d 02 70 25 |,B%!24,B%!28..p%|
00003ad0 20 20 c8 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 | .."Wimp_SendMe|
00003ae0 73 73 61 67 65 22 2c 31 39 2c 42 25 2c 42 25 21 |ssage",19,B%,B%!|
00003af0 34 0d 02 71 22 20 20 c9 22 4c 6f 61 64 22 3a f2 |4..q" ."Load":.|
00003b00 4c 4d 28 42 25 21 32 34 2c 42 25 21 32 38 2c 4c |LM(B%!24,B%!28,L|
00003b10 50 24 29 0d 02 72 28 20 20 c9 22 4c 6f 61 64 20 |P$)..r( ."Load |
00003b20 67 72 61 70 68 22 3a f2 4c 4d 28 42 25 21 32 34 |graph":.LM(B%!24|
00003b30 2c 42 25 21 32 38 2c 4c 50 24 29 0d 02 73 0e 20 |,B%!28,LP$)..s. |
00003b40 20 c9 22 5a 6f 6f 6d 22 3a 0d 02 74 15 20 20 5a | ."Zoom":..t. Z|
00003b50 6e 25 3d a4 46 69 6e 64 57 28 43 57 25 29 0d 02 |n%=.FindW(CW%)..|
00003b60 75 21 20 20 f2 4c 4e 28 5a 6f 6f 6d 25 2c 30 2c |u! .LN(Zoom%,0,|
00003b70 48 70 25 28 5a 6e 25 2c 33 29 21 31 38 34 29 0d |Hp%(Zn%,3)!184).|
00003b80 02 76 21 20 20 f2 4c 4e 28 5a 6f 6f 6d 25 2c 31 |.v! .LN(Zoom%,1|
00003b90 2c 48 70 25 28 5a 6e 25 2c 33 29 21 31 38 38 29 |,Hp%(Zn%,3)!188)|
00003ba0 0d 02 77 2c 20 20 21 57 62 25 3d 5a 6f 6f 6d 25 |..w, !Wb%=Zoom%|
00003bb0 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 |:.."Wimp_GetWind|
00003bc0 6f 77 49 6e 66 6f 22 2c 2c 57 62 25 0d 02 78 2d |owInfo",,Wb%..x-|
00003bd0 20 20 57 62 25 21 31 32 3d 28 57 62 25 21 31 32 | Wb%!12=(Wb%!12|
00003be0 2d 57 62 25 21 34 29 2b 42 25 21 32 34 3a 57 62 |-Wb%!4)+B%!24:Wb|
00003bf0 25 21 34 3d 42 25 21 32 34 0d 02 79 2d 20 20 57 |%!4=B%!24..y- W|
00003c00 62 25 21 38 3d 42 25 21 32 38 2d 28 57 62 25 21 |b%!8=B%!28-(Wb%!|
00003c10 31 36 2d 57 62 25 21 38 29 3a 57 62 25 21 31 36 |16-Wb%!8):Wb%!16|
00003c20 3d 42 25 21 32 38 0d 02 7a 1e 20 20 c8 99 22 57 |=B%!28..z. .."W|
00003c30 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c |imp_OpenWindow",|
00003c40 2c 57 62 25 0d 02 7b 25 20 20 c8 99 22 57 69 6d |,Wb%..{% .."Wim|
00003c50 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 |p_SendMessage",1|
00003c60 39 2c 42 25 2c 42 25 21 34 0d 02 7c 07 20 20 cb |9,B%,B%!4..|. .|
00003c70 0d 02 7d 05 cb 0d 02 7e 05 e1 0d 02 7f 0d dd 20 |..}....~....... |
00003c80 f2 53 44 28 4e 25 29 0d 02 80 20 ea 20 50 24 2c |.SD(N%)... . P$,|
00003c90 52 25 2c 57 25 2c 46 24 2c 4c 25 2c 46 25 2c 48 |R%,W%,F$,L%,F%,H|
00003ca0 25 3a 48 25 3d 2d 31 0d 02 81 1b ee 20 85 20 ea |%:H%=-1..... . .|
00003cb0 20 c8 99 22 58 4f 53 5f 46 69 6e 64 22 2c 30 2c | .."XOS_Find",0,|
00003cc0 48 25 0d 02 82 0a 57 25 3d 57 62 25 0d 02 83 12 |H%....W%=Wb%....|
00003cd0 50 24 3d a4 52 65 53 28 44 77 25 2c 32 29 0d 02 |P$=.ReS(Dw%,2)..|
00003ce0 84 17 46 25 3d a4 46 6f 6e 74 44 65 66 28 4e 25 |..F%=.FontDef(N%|
00003cf0 2c 57 62 25 29 0d 02 85 0f 24 57 62 25 3d 22 44 |,Wb%)....$Wb%="D|
00003d00 72 61 77 22 0d 02 86 0d 57 62 25 21 34 3d 32 30 |raw"....Wb%!4=20|
00003d10 31 0d 02 87 0b 57 62 25 21 38 3d 30 0d 02 88 1c |1....Wb%!8=0....|
00003d20 24 28 57 62 25 2b 31 32 29 3d 22 47 72 61 70 68 |$(Wb%+12)="Graph|
00003d30 00 00 00 00 00 00 00 22 0d 02 89 33 57 62 25 21 |......."...3Wb%!|
00003d40 32 34 3d 48 70 25 28 4e 25 2c 33 29 21 34 38 2a |24=Hp%(N%,3)!48*|
00003d50 32 35 36 3a 57 62 25 21 32 38 3d 48 70 25 28 4e |256:Wb%!28=Hp%(N|
00003d60 25 2c 33 29 21 35 32 2a 32 35 36 0d 02 8a 41 57 |%,3)!52*256...AW|
00003d70 62 25 21 33 32 3d 57 62 25 21 32 34 2b 48 70 25 |b%!32=Wb%!24+Hp%|
00003d80 28 4e 25 2c 33 29 21 35 36 2a 32 35 36 3a 57 62 |(N%,3)!56*256:Wb|
00003d90 25 21 33 36 3d 57 62 25 21 32 38 2b 48 70 25 28 |%!36=Wb%!28+Hp%(|
00003da0 4e 25 2c 33 29 21 36 30 2a 32 35 36 0d 02 8b 1b |N%,3)!60*256....|
00003db0 c8 99 22 4f 53 5f 46 69 6e 64 22 2c 31 33 31 2c |.."OS_Find",131,|
00003dc0 50 24 20 b8 20 48 25 0d 02 8c 0d e7 20 48 25 3c |P$ . H%..... H%<|
00003dd0 3e 30 20 8c 0d 02 8d 1b c8 99 22 4f 53 5f 47 42 |>0 ......."OS_GB|
00003de0 50 42 22 2c 32 2c 48 25 2c 57 62 25 2c 34 30 0d |PB",2,H%,Wb%,40.|
00003df0 02 8e 0f f2 57 46 54 28 4e 25 2c 48 25 29 0d 02 |....WFT(N%,H%)..|
00003e00 8f 4c f2 57 46 54 74 28 4e 25 2c 46 24 28 4e 25 |.L.WFTt(N%,F$(N%|
00003e10 29 2c 48 25 2c 48 70 25 28 4e 25 2c 33 29 21 36 |),H%,Hp%(N%,3)!6|
00003e20 34 2c 48 70 25 28 4e 25 2c 33 29 21 31 33 32 2c |4,Hp%(N%,3)!132,|
00003e30 48 70 25 28 4e 25 2c 33 29 21 37 32 2c 48 70 25 |Hp%(N%,3)!72,Hp%|
00003e40 28 4e 25 2c 33 29 21 37 36 29 0d 02 90 59 f2 57 |(N%,3)!76)...Y.W|
00003e50 46 54 74 28 4e 25 2c a4 52 65 53 28 47 77 25 28 |FTt(N%,.ReS(Gw%(|
00003e60 4e 25 29 2c 31 31 29 2c 48 25 2c 48 70 25 28 4e |N%),11),H%,Hp%(N|
00003e70 25 2c 33 29 21 31 34 30 2c 48 70 25 28 4e 25 2c |%,3)!140,Hp%(N%,|
00003e80 33 29 21 31 33 36 2c 48 70 25 28 4e 25 2c 33 29 |3)!136,Hp%(N%,3)|
00003e90 21 31 36 34 2c 48 70 25 28 4e 25 2c 33 29 21 31 |!164,Hp%(N%,3)!1|
00003ea0 36 30 29 0d 02 91 59 f2 57 46 54 74 28 4e 25 2c |60)...Y.WFTt(N%,|
00003eb0 a4 52 65 53 28 47 77 25 28 4e 25 29 2c 31 32 29 |.ReS(Gw%(N%),12)|
00003ec0 2c 48 25 2c 48 70 25 28 4e 25 2c 33 29 21 31 34 |,H%,Hp%(N%,3)!14|
00003ed0 38 2c 48 70 25 28 4e 25 2c 33 29 21 31 33 36 2c |8,Hp%(N%,3)!136,|
00003ee0 48 70 25 28 4e 25 2c 33 29 21 31 36 34 2c 48 70 |Hp%(N%,3)!164,Hp|
00003ef0 25 28 4e 25 2c 33 29 21 31 36 30 29 0d 02 92 59 |%(N%,3)!160)...Y|
00003f00 f2 57 46 54 74 28 4e 25 2c a4 52 65 53 28 47 77 |.WFTt(N%,.ReS(Gw|
00003f10 25 28 4e 25 29 2c 31 33 29 2c 48 25 2c 48 70 25 |%(N%),13),H%,Hp%|
00003f20 28 4e 25 2c 33 29 21 32 30 30 2c 48 70 25 28 4e |(N%,3)!200,Hp%(N|
00003f30 25 2c 33 29 21 31 37 32 2c 48 70 25 28 4e 25 2c |%,3)!172,Hp%(N%,|
00003f40 33 29 21 31 36 34 2c 48 70 25 28 4e 25 2c 33 29 |3)!164,Hp%(N%,3)|
00003f50 21 31 36 30 29 0d 02 93 59 f2 57 46 54 74 28 4e |!160)...Y.WFTt(N|
00003f60 25 2c a4 52 65 53 28 47 77 25 28 4e 25 29 2c 31 |%,.ReS(Gw%(N%),1|
00003f70 34 29 2c 48 25 2c 48 70 25 28 4e 25 2c 33 29 21 |4),H%,Hp%(N%,3)!|
00003f80 32 30 38 2c 48 70 25 28 4e 25 2c 33 29 21 31 38 |208,Hp%(N%,3)!18|
00003f90 30 2c 48 70 25 28 4e 25 2c 33 29 21 31 36 34 2c |0,Hp%(N%,3)!164,|
00003fa0 48 70 25 28 4e 25 2c 33 29 21 31 36 30 29 0d 02 |Hp%(N%,3)!160)..|
00003fb0 94 23 f2 57 50 4f 28 4e 25 2c 48 70 25 28 4e 25 |.#.WPO(N%,Hp%(N%|
00003fc0 2c 30 29 2c 48 70 25 28 4e 25 2c 34 29 2c 48 25 |,0),Hp%(N%,4),H%|
00003fd0 29 0d 02 95 37 f2 57 50 4f 28 4e 25 2c 48 70 25 |)...7.WPO(N%,Hp%|
00003fe0 28 4e 25 2c 30 29 2b 48 70 25 28 4e 25 2c 34 29 |(N%,0)+Hp%(N%,4)|
00003ff0 2c 48 70 25 28 4e 25 2c 31 29 2d 48 70 25 28 4e |,Hp%(N%,1)-Hp%(N|
00004000 25 2c 34 29 2c 48 25 29 0d 02 96 1c c8 99 22 4f |%,4),H%)......"O|
00004010 53 5f 41 72 67 73 22 2c 34 2c 48 25 20 b8 20 2c |S_Args",4,H% . ,|
00004020 2c 46 73 25 0d 02 97 14 c8 99 22 4f 53 5f 46 69 |,Fs%......"OS_Fi|
00004030 6e 64 22 2c 30 2c 48 25 0d 02 98 1a c8 99 22 4f |nd",0,H%......"O|
00004040 53 5f 46 69 6c 65 22 2c 31 38 2c 50 24 2c 26 41 |S_File",18,P$,&A|
00004050 46 46 0d 02 99 05 cd 0d 02 9a 1d e7 20 c0 50 24 |FF.......... .P$|
00004060 2c a9 28 44 50 24 29 29 3c 3e 44 50 24 20 44 50 |,.(DP$))<>DP$ DP|
00004070 24 3d 50 24 0d 02 9b 24 c8 99 22 57 69 6d 70 5f |$=P$...$.."Wimp_|
00004080 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 2d 31 3a |CreateMenu",,-1:|
00004090 4d 4f 70 65 6e 25 3d a3 0d 02 9c 05 e1 0d 02 9d |MOpen%=.........|
000040a0 0d dd 20 f2 53 4c 28 4e 25 29 0d 02 9e 1d ea 20 |.. .SL(N%)..... |
000040b0 50 24 2c 52 25 2c 46 24 2c 50 25 2c 46 25 2c 48 |P$,R%,F$,P%,F%,H|
000040c0 25 3a 48 25 3d 2d 31 0d 02 9f 1b ee 20 85 20 ea |%:H%=-1..... . .|
000040d0 20 c8 99 22 58 4f 53 5f 46 69 6e 64 22 2c 30 2c | .."XOS_Find",0,|
000040e0 48 25 0d 02 a0 13 50 24 3d a4 52 65 53 28 4c 6f |H%....P$=.ReS(Lo|
000040f0 67 25 2c 32 29 0d 02 a1 1b c8 99 22 4f 53 5f 46 |g%,2)......"OS_F|
00004100 69 6e 64 22 2c 31 33 31 2c 50 24 20 b8 20 48 25 |ind",131,P$ . H%|
00004110 0d 02 a2 0d e7 20 48 25 3c 3e 30 20 8c 0d 02 a3 |..... H%<>0 ....|
00004120 29 c8 99 22 4f 53 5f 47 42 50 42 22 2c 32 2c 48 |).."OS_GBPB",2,H|
00004130 25 2c 4c 6f 67 24 2b bd 28 26 44 29 2c a9 28 4c |%,Log$+.(&D),.(L|
00004140 6f 67 24 29 2b 31 0d 02 a4 2d c8 99 22 4f 53 5f |og$)+1...-.."OS_|
00004150 47 42 50 42 22 2c 32 2c 48 25 2c 46 24 28 4e 25 |GBPB",2,H%,F$(N%|
00004160 29 2b bd 28 26 44 29 2c a9 28 46 24 28 4e 25 29 |)+.(&D),.(F$(N%)|
00004170 29 2b 31 0d 02 a5 0f e3 20 50 25 3d 31 30 20 b8 |)+1..... P%=10 .|
00004180 31 39 0d 02 a6 41 c8 99 22 4f 53 5f 47 42 50 42 |19...A.."OS_GBPB|
00004190 22 2c 32 2c 48 25 2c a4 52 65 53 28 47 77 25 28 |",2,H%,.ReS(Gw%(|
000041a0 4e 25 29 2c 50 25 29 2b bd 28 26 44 29 2c a9 28 |N%),P%)+.(&D),.(|
000041b0 a4 52 65 53 28 47 77 25 28 4e 25 29 2c 50 25 29 |.ReS(Gw%(N%),P%)|
000041c0 29 2b 31 0d 02 a7 05 ed 0d 02 a8 41 c8 99 22 4f |)+1........A.."O|
000041d0 53 5f 47 42 50 42 22 2c 32 2c 48 25 2c a4 52 65 |S_GBPB",2,H%,.Re|
000041e0 53 28 47 77 25 28 4e 25 29 2c 33 30 29 2b bd 28 |S(Gw%(N%),30)+.(|
000041f0 26 44 29 2c a9 28 a4 52 65 53 28 47 77 25 28 4e |&D),.(.ReS(Gw%(N|
00004200 25 29 2c 33 30 29 29 2b 31 0d 02 a9 0e e3 20 50 |%),30))+1..... P|
00004210 25 3d 30 20 b8 31 39 0d 02 aa 39 c8 99 22 4f 53 |%=0 .19...9.."OS|
00004220 5f 47 42 50 42 22 2c 32 2c 48 25 2c c3 28 47 70 |_GBPB",2,H%,.(Gp|
00004230 28 4e 25 2c 50 25 29 29 2b bd 28 26 44 29 2c a9 |(N%,P%))+.(&D),.|
00004240 28 c3 28 47 70 28 4e 25 2c 50 25 29 29 29 2b 31 |(.(Gp(N%,P%)))+1|
00004250 0d 02 ab 05 ed 0d 02 ac 2d c8 99 22 4f 53 5f 47 |........-.."OS_G|
00004260 42 50 42 22 2c 32 2c 48 25 2c c3 28 4f 53 31 29 |BPB",2,H%,.(OS1)|
00004270 2b bd 28 26 44 29 2c a9 28 c3 28 4f 53 31 29 29 |+.(&D),.(.(OS1))|
00004280 2b 31 0d 02 ad 3f c8 99 22 4f 53 5f 47 42 50 42 |+1...?.."OS_GBPB|
00004290 22 2c 32 2c 48 25 2c a4 52 65 53 28 47 77 25 28 |",2,H%,.ReS(Gw%(|
000042a0 4e 25 29 2c 35 29 2b bd 28 26 44 29 2c a9 28 a4 |N%),5)+.(&D),.(.|
000042b0 52 65 53 28 47 77 25 28 4e 25 29 2c 35 29 29 2b |ReS(Gw%(N%),5))+|
000042c0 31 0d 02 ae 0d e3 20 50 25 3d 30 20 b8 35 0d 02 |1..... P%=0 .5..|
000042d0 af 13 21 57 62 25 3d 48 70 25 28 4e 25 2c 50 25 |..!Wb%=Hp%(N%,P%|
000042e0 29 0d 02 b0 1a c8 99 22 4f 53 5f 47 42 50 42 22 |)......"OS_GBPB"|
000042f0 2c 32 2c 48 25 2c 57 62 25 2c 34 0d 02 b1 05 ed |,2,H%,Wb%,4.....|
00004300 0d 02 b2 22 c8 99 22 4f 53 5f 47 42 50 42 22 2c |...".."OS_GBPB",|
00004310 32 2c 48 25 2c 48 70 25 28 4e 25 2c 33 29 2c 54 |2,H%,Hp%(N%,3),T|
00004320 73 25 0d 02 b3 28 c8 99 22 4f 53 5f 47 42 50 42 |s%...(.."OS_GBPB|
00004330 22 2c 32 2c 48 25 2c 48 70 25 28 4e 25 2c 30 29 |",2,H%,Hp%(N%,0)|
00004340 2c 48 70 25 28 4e 25 2c 34 29 0d 02 b4 3c c8 99 |,Hp%(N%,4)...<..|
00004350 22 4f 53 5f 47 42 50 42 22 2c 32 2c 48 25 2c 48 |"OS_GBPB",2,H%,H|
00004360 70 25 28 4e 25 2c 30 29 2b 48 70 25 28 4e 25 2c |p%(N%,0)+Hp%(N%,|
00004370 34 29 2c 48 70 25 28 4e 25 2c 31 29 2d 48 70 25 |4),Hp%(N%,1)-Hp%|
00004380 28 4e 25 2c 34 29 0d 02 b5 1c c8 99 22 4f 53 5f |(N%,4)......"OS_|
00004390 41 72 67 73 22 2c 34 2c 48 25 20 b8 20 2c 2c 46 |Args",4,H% . ,,F|
000043a0 73 25 0d 02 b6 14 c8 99 22 4f 53 5f 46 69 6e 64 |s%......"OS_Find|
000043b0 22 2c 30 2c 48 25 0d 02 b7 1a c8 99 22 4f 53 5f |",0,H%......"OS_|
000043c0 46 69 6c 65 22 2c 31 38 2c 50 24 2c 26 46 46 44 |File",18,P$,&FFD|
000043d0 0d 02 b8 05 cd 0d 02 b9 1d e7 20 c0 50 24 2c a9 |.......... .P$,.|
000043e0 28 4c 50 24 29 29 3c 3e 4c 50 24 20 4c 50 24 3d |(LP$))<>LP$ LP$=|
000043f0 50 24 0d 02 ba 24 c8 99 22 57 69 6d 70 5f 43 72 |P$...$.."Wimp_Cr|
00004400 65 61 74 65 4d 65 6e 75 22 2c 2c 2d 31 3a 4d 4f |eateMenu",,-1:MO|
00004410 70 65 6e 25 3d a3 0d 02 bb 05 e1 0d 02 bc 10 dd |pen%=...........|
00004420 20 f2 4c 4c 28 42 25 2c 76 25 29 0d 02 bd 1d ea | .LL(B%,v%).....|
00004430 20 43 25 2c 50 24 2c 45 74 25 2c 4c 74 25 2c 6f | C%,P$,Et%,Lt%,o|
00004440 73 31 3a 48 25 3d 2d 31 0d 02 be 1b ee 20 85 20 |s1:H%=-1..... . |
00004450 ea 20 c8 99 22 58 4f 53 5f 46 69 6e 64 22 2c 30 |. .."XOS_Find",0|
00004460 2c 48 25 0d 02 bf 0c 43 25 3d 42 25 2b 34 33 0d |,H%....C%=B%+43.|
00004470 02 c0 0d e7 20 a4 46 74 3c 30 20 8c 0d 02 c1 48 |.... .Ft<0 ....H|
00004480 c8 99 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 |.."Wimp_ReportEr|
00004490 72 6f 72 22 2c c4 34 2c bd 28 30 29 29 2b 22 53 |ror",.4,.(0))+"S|
000044a0 6f 72 72 79 2c 20 61 6c 6c 20 73 6c 6f 74 73 20 |orry, all slots |
000044b0 6f 63 63 75 70 69 65 64 2e 22 2c 31 2c 22 47 72 |occupied.",1,"Gr|
000044c0 61 70 68 22 0d 02 c2 05 e1 0d 02 c3 05 cd 0d 02 |aph"............|
000044d0 c4 1a f5 3a 43 25 2b 3d 31 3a fd 3f 43 25 3d 30 |...:C%+=1:.?C%=0|
000044e0 20 84 3f 43 25 3d 26 44 0d 02 c5 0a 3f 43 25 3d | .?C%=&D....?C%=|
000044f0 26 44 0d 02 c6 0f 50 24 3d 24 28 42 25 2b 34 34 |&D....P$=$(B%+44|
00004500 29 0d 02 c7 0e 42 25 21 31 32 3d 42 25 21 38 0d |)....B%!12=B%!8.|
00004510 02 c8 0b 42 25 21 31 36 3d 34 0d 02 c9 2a e7 20 |...B%!16=4...*. |
00004520 76 25 3d 30 20 c8 99 22 57 69 6d 70 5f 53 65 6e |v%=0 .."Wimp_Sen|
00004530 64 4d 65 73 73 61 67 65 22 2c 31 37 2c 42 25 2c |dMessage",17,B%,|
00004540 42 25 21 34 0d 02 ca 1a c8 99 22 4f 53 5f 46 69 |B%!4......"OS_Fi|
00004550 6e 64 22 2c 36 37 2c 50 24 20 b8 20 48 25 0d 02 |nd",67,P$ . H%..|
00004560 cb 0d e7 20 48 25 3c 3e 30 20 8c 0d 02 cc 22 c8 |... H%<>0 ....".|
00004570 99 22 4f 53 5f 47 42 50 42 22 2c 34 2c 48 25 2c |."OS_GBPB",4,H%,|
00004580 57 62 25 2c a9 28 4c 6f 67 24 29 2b 31 0d 02 cd |Wb%,.(Log$)+1...|
00004590 10 e7 24 57 62 25 3d 4c 6f 67 24 20 8c 0d 02 ce |..$Wb%=Log$ ....|
000045a0 0b 47 6e 25 3d a4 46 74 0d 02 cf 53 e7 20 47 77 |.Gn%=.Ft...S. Gw|
000045b0 25 28 47 6e 25 29 3d 30 20 47 77 25 28 47 6e 25 |%(Gn%)=0 Gw%(Gn%|
000045c0 29 3d a4 4c 4e 57 28 50 68 24 2b 22 54 65 6d 70 |)=.LNW(Ph$+"Temp|
000045d0 6c 61 74 65 73 22 2c 22 50 6c 6f 74 57 69 6e 64 |lates","PlotWind|
000045e0 6f 77 22 29 3a 47 77 25 28 47 6e 25 29 3d a4 43 |ow"):Gw%(Gn%)=.C|
000045f0 57 28 47 77 25 28 47 6e 25 29 29 0d 02 d0 13 46 |W(Gw%(Gn%))....F|
00004600 24 28 47 6e 25 29 3d a4 52 53 28 48 25 29 0d 02 |$(Gn%)=.RS(H%)..|
00004610 d1 0f e3 20 50 25 3d 31 30 20 b8 31 39 0d 02 d2 |... P%=10 .19...|
00004620 1c f2 4c 53 28 47 77 25 28 47 6e 25 29 2c 50 25 |..LS(Gw%(Gn%),P%|
00004630 2c a4 52 53 28 48 25 29 29 0d 02 d3 05 ed 0d 02 |,.RS(H%)).......|
00004640 d4 1c f2 4c 53 28 47 77 25 28 47 6e 25 29 2c 33 |...LS(Gw%(Gn%),3|
00004650 30 2c a4 52 53 28 48 25 29 29 0d 02 d5 1d 46 24 |0,.RS(H%))....F$|
00004660 28 47 6e 25 29 3d a4 52 65 53 28 47 77 25 28 47 |(Gn%)=.ReS(Gw%(G|
00004670 6e 25 29 2c 31 30 29 0d 02 d6 0c f2 52 4d 28 47 |n%),10).....RM(G|
00004680 6e 25 29 0d 02 d7 0e e3 20 50 25 3d 30 20 b8 31 |n%)..... P%=0 .1|
00004690 39 0d 02 d8 19 47 70 28 47 6e 25 2c 50 25 29 3d |9....Gp(Gn%,P%)=|
000046a0 a0 28 a4 52 53 28 48 25 29 29 0d 02 d9 05 ed 0d |.(.RS(H%))......|
000046b0 02 da 16 6f 73 31 3d a0 28 a4 52 53 28 48 25 29 |...os1=.(.RS(H%)|
000046c0 29 2f 4f 53 31 0d 02 db 33 47 70 28 47 6e 25 2c |)/OS1...3Gp(Gn%,|
000046d0 38 29 3d 47 70 28 47 6e 25 2c 38 29 2a 6f 73 31 |8)=Gp(Gn%,8)*os1|
000046e0 3a 47 70 28 47 6e 25 2c 39 29 3d 47 70 28 47 6e |:Gp(Gn%,9)=Gp(Gn|
000046f0 25 2c 39 29 2a 6f 73 31 0d 02 dc 1b f2 4c 53 28 |%,9)*os1.....LS(|
00004700 47 77 25 28 47 6e 25 29 2c 35 2c a4 52 53 28 48 |Gw%(Gn%),5,.RS(H|
00004710 25 29 29 0d 02 dd 0d e3 20 50 25 3d 30 20 b8 35 |%))..... P%=0 .5|
00004720 0d 02 de 24 c8 99 22 4f 53 5f 47 42 50 42 22 2c |...$.."OS_GBPB",|
00004730 34 2c 48 25 2c 57 62 25 2c 34 20 b8 20 2c 2c 2c |4,H%,Wb%,4 . ,,,|
00004740 2c 4c 74 25 0d 02 df 14 48 70 25 28 47 6e 25 2c |,Lt%....Hp%(Gn%,|
00004750 50 25 29 3d 21 57 62 25 0d 02 e0 05 ed 0d 02 e1 |P%)=!Wb%........|
00004760 1d 48 70 25 28 47 6e 25 2c 30 29 3d 30 3a 48 70 |.Hp%(Gn%,0)=0:Hp|
00004770 25 28 47 6e 25 2c 33 29 3d 30 0d 02 e2 1c c8 99 |%(Gn%,3)=0......|
00004780 22 4f 53 5f 41 72 67 73 22 2c 32 2c 48 25 20 b8 |"OS_Args",2,H% .|
00004790 20 2c 2c 45 74 25 0d 02 e3 1e e7 20 45 74 25 2d | ,,Et%..... Et%-|
000047a0 4c 74 25 3d 48 70 25 28 47 6e 25 2c 31 29 2b 54 |Lt%=Hp%(Gn%,1)+T|
000047b0 73 25 20 8c 0d 02 e4 12 f2 43 4d 28 47 6e 25 2c |s% ......CM(Gn%,|
000047c0 33 2c 54 73 25 29 0d 02 e5 19 f2 43 4d 28 47 6e |3,Ts%).....CM(Gn|
000047d0 25 2c 30 2c 48 70 25 28 47 6e 25 2c 31 29 29 0d |%,0,Hp%(Gn%,1)).|
000047e0 02 e6 23 c8 99 22 4f 53 5f 47 42 50 42 22 2c 34 |..#.."OS_GBPB",4|
000047f0 2c 48 25 2c 48 70 25 28 47 6e 25 2c 33 29 2c 54 |,H%,Hp%(Gn%,3),T|
00004800 73 25 0d 02 e7 2a c8 99 22 4f 53 5f 47 42 50 42 |s%...*.."OS_GBPB|
00004810 22 2c 34 2c 48 25 2c 48 70 25 28 47 6e 25 2c 30 |",4,H%,Hp%(Gn%,0|
00004820 29 2c 48 70 25 28 47 6e 25 2c 34 29 0d 02 e8 40 |),Hp%(Gn%,4)...@|
00004830 c8 99 22 4f 53 5f 47 42 50 42 22 2c 34 2c 48 25 |.."OS_GBPB",4,H%|
00004840 2c 48 70 25 28 47 6e 25 2c 30 29 2b 48 70 25 28 |,Hp%(Gn%,0)+Hp%(|
00004850 47 6e 25 2c 34 29 2c 48 70 25 28 47 6e 25 2c 31 |Gn%,4),Hp%(Gn%,1|
00004860 29 2d 48 70 25 28 47 6e 25 2c 34 29 0d 02 e9 34 |)-Hp%(Gn%,4)...4|
00004870 e3 20 43 25 3d 30 b8 20 31 38 30 20 88 34 3a 48 |. C%=0. 180 .4:H|
00004880 70 25 28 47 6e 25 2c 33 29 21 43 25 3d 48 70 25 |p%(Gn%,3)!C%=Hp%|
00004890 28 47 6e 25 2c 33 29 21 43 25 2a 6f 73 31 3a ed |(Gn%,3)!C%*os1:.|
000048a0 0d 02 ea 36 e3 20 43 25 3d 31 39 32 b8 20 32 31 |...6. C%=192. 21|
000048b0 32 20 88 34 3a 48 70 25 28 47 6e 25 2c 33 29 21 |2 .4:Hp%(Gn%,3)!|
000048c0 43 25 3d 48 70 25 28 47 6e 25 2c 33 29 21 43 25 |C%=Hp%(Gn%,3)!C%|
000048d0 2a 6f 73 31 3a ed 0d 02 eb 27 f2 53 49 28 53 57 |*os1:....'.SI(SW|
000048e0 25 2c 32 29 3a f2 53 49 28 53 57 25 2c 31 29 3a |%,2):.SI(SW%,1):|
000048f0 f2 53 46 67 28 53 57 25 2c 31 2c 30 29 0d 02 ec |.SFg(SW%,1,0)...|
00004900 2b 21 57 62 25 3d 47 77 25 28 47 6e 25 29 3a c8 |+!Wb%=Gw%(Gn%):.|
00004910 99 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 |."Wimp_CloseWind|
00004920 6f 77 22 2c 2c 57 62 25 0d 02 ed 1f 47 61 25 28 |ow",,Wb%....Ga%(|
00004930 47 6e 25 29 3d a4 43 50 6c 6f 74 41 28 50 41 25 |Gn%)=.CPlotA(PA%|
00004940 29 3a 64 25 3d 32 30 0d 02 ee 0e e7 20 a4 46 74 |):d%=20..... .Ft|
00004950 3d 2d 31 20 8c 0d 02 ef 24 f2 53 65 28 49 4d 25 |=-1 ....$.Se(IM%|
00004960 2c 33 29 3a f2 53 65 28 4f 6e 25 2c 31 29 3a f2 |,3):.Se(On%,1):.|
00004970 53 65 28 4f 6e 25 2c 34 29 0d 02 f0 19 f2 53 65 |Se(On%,4).....Se|
00004980 28 4f 6e 25 2c 38 29 3a f2 53 65 28 49 4d 25 2c |(On%,8):.Se(IM%,|
00004990 34 29 0d 02 f1 12 cc 20 f2 55 6e 53 65 28 49 4d |4)..... .UnSe(IM|
000049a0 25 2c 33 29 0d 02 f2 05 cd 0d 02 f3 3a f2 47 46 |%,3)........:.GF|
000049b0 28 47 6e 25 2c 30 2c 28 48 70 25 28 47 6e 25 2c |(Gn%,0,(Hp%(Gn%,|
000049c0 33 29 21 39 32 2a 54 65 29 2c 28 48 70 25 28 47 |3)!92*Te),(Hp%(G|
000049d0 6e 25 2c 33 29 21 39 32 2a 54 65 29 2c 46 6f 6e |n%,3)!92*Te),Fon|
000049e0 74 24 29 0d 02 f4 54 f2 47 46 28 47 6e 25 2c 31 |t$)...T.GF(Gn%,1|
000049f0 2c 28 47 70 28 47 6e 25 2c 36 29 2f 47 70 28 47 |,(Gp(Gn%,6)/Gp(G|
00004a00 6e 25 2c 34 29 29 2a 47 70 28 47 6e 25 2c 38 29 |n%,4))*Gp(Gn%,8)|
00004a10 2c 28 47 70 28 47 6e 25 2c 36 29 2f 47 70 28 47 |,(Gp(Gn%,6)/Gp(G|
00004a20 6e 25 2c 34 29 29 2a 47 70 28 47 6e 25 2c 38 29 |n%,4))*Gp(Gn%,8)|
00004a30 2c 46 6f 6e 74 24 29 0d 02 f5 3e 47 61 25 28 47 |,Font$)...>Ga%(G|
00004a40 6e 25 29 3d a4 43 57 57 28 47 61 25 28 47 6e 25 |n%)=.CWW(Ga%(Gn%|
00004a50 29 2c 48 70 25 28 47 6e 25 2c 33 29 21 38 38 2c |),Hp%(Gn%,3)!88,|
00004a60 48 70 25 28 47 6e 25 2c 33 29 21 38 34 2c 47 6e |Hp%(Gn%,3)!84,Gn|
00004a70 25 2c 64 25 29 0d 02 f6 24 f2 6f 77 28 47 61 25 |%,d%)...$.ow(Ga%|
00004a80 28 47 6e 25 29 2c 30 2c a4 42 64 29 3a 43 57 25 |(Gn%),0,.Bd):CW%|
00004a90 3d 47 61 25 28 47 6e 25 29 0d 02 f7 41 cc 20 c8 |=Ga%(Gn%)...A. .|
00004aa0 99 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 |."Wimp_ReportErr|
00004ab0 6f 72 22 2c c4 34 2c bd 28 30 29 29 2b 22 44 61 |or",.4,.(0))+"Da|
00004ac0 74 61 20 66 69 6c 65 20 63 6f 72 72 75 70 74 22 |ta file corrupt"|
00004ad0 2c 31 2c 22 47 72 61 70 68 22 0d 02 f8 0c f2 43 |,1,"Graph".....C|
00004ae0 65 28 47 6e 25 29 0d 02 f9 05 cd 0d 02 fa 68 cc |e(Gn%)........h.|
00004af0 20 c8 99 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 | .."Wimp_ReportE|
00004b00 72 72 6f 72 22 2c c4 34 2c bd 28 30 29 29 2b 22 |rror",.4,.(0))+"|
00004b10 44 61 74 61 20 66 69 6c 65 20 69 6e 63 6f 72 72 |Data file incorr|
00004b20 65 63 74 6c 79 20 66 6f 72 6d 61 74 65 64 2c 20 |ectly formated, |
00004b30 70 6c 65 61 73 65 20 63 68 65 63 6b 20 69 74 73 |please check its|
00004b40 20 6f 72 69 67 69 6e 2e 22 2c 31 2c 22 47 72 61 | origin.",1,"Gra|
00004b50 70 68 22 0d 02 fb 05 cd 0d 02 fc 14 c8 99 22 4f |ph"..........."O|
00004b60 53 5f 46 69 6e 64 22 2c 30 2c 48 25 0d 02 fd 05 |S_Find",0,H%....|
00004b70 cd 0d 02 fe 05 e1 0d 02 ff 0d dd 20 a4 46 46 28 |........... .FF(|
00004b80 50 24 29 0d 03 00 0b ea 20 52 25 2c 51 24 0d 03 |P$)..... R%,Q$..|
00004b90 01 2d c8 99 22 4f 53 5f 46 53 43 6f 6e 74 72 6f |.-.."OS_FSContro|
00004ba0 6c 22 2c 32 38 2c 50 24 2b 22 2e 5e 22 20 b8 20 |l",28,P$+".^" . |
00004bb0 2c 2c 2c 72 25 3a 72 25 2b 3d 31 0d 03 02 20 c8 |,,,r%:r%+=1... .|
00004bc0 99 22 4f 53 5f 46 69 6e 64 22 2c 36 37 2c 50 24 |."OS_Find",67,P$|
00004bd0 2b c3 28 72 25 29 20 b8 20 52 25 0d 03 03 0e e7 |+.(r%) . R%.....|
00004be0 20 52 25 3d 30 20 3d 72 25 0d 03 04 10 c8 95 20 | R%=0 =r%...... |
00004bf0 52 25 3e 30 80 72 25 3e 30 0d 03 05 09 72 25 2d |R%>0.r%>0....r%-|
00004c00 3d 31 0d 03 06 14 c8 99 22 4f 53 5f 46 69 6e 64 |=1......"OS_Find|
00004c10 22 2c 30 2c 52 25 0d 03 07 20 c8 99 22 4f 53 5f |",0,R%... .."OS_|
00004c20 46 69 6e 64 22 2c 36 37 2c 50 24 2b c3 28 72 25 |Find",67,P$+.(r%|
00004c30 29 20 b8 20 52 25 0d 03 08 05 ce 0d 03 09 1b e7 |) . R%..........|
00004c40 20 52 25 3e 30 20 c8 99 22 4f 53 5f 46 69 6e 64 | R%>0 .."OS_Find|
00004c50 22 2c 30 2c 52 25 0d 03 0a 07 3d 72 25 0d 03 0b |",0,R%....=r%...|
00004c60 0d dd 20 f2 47 44 28 4e 25 29 0d 03 0c 2c 21 57 |.. .GD(N%)...,!W|
00004c70 62 25 3d 47 61 25 28 4e 25 29 3a c8 99 22 57 69 |b%=Ga%(N%):.."Wi|
00004c80 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 6f |mp_GetWindowInfo|
00004c90 22 2c 2c 57 62 25 0d 03 0d 29 48 70 25 28 4e 25 |",,Wb%...)Hp%(N%|
00004ca0 2c 33 29 21 34 38 3d 57 62 25 21 34 3a 48 70 25 |,3)!48=Wb%!4:Hp%|
00004cb0 28 4e 25 2c 33 29 21 35 32 3d 57 62 25 21 38 0d |(N%,3)!52=Wb%!8.|
00004cc0 03 0e 37 48 70 25 28 4e 25 2c 33 29 21 35 36 3d |..7Hp%(N%,3)!56=|
00004cd0 48 70 25 28 4e 25 2c 33 29 21 38 38 3a 48 70 25 |Hp%(N%,3)!88:Hp%|
00004ce0 28 4e 25 2c 33 29 21 36 30 3d 48 70 25 28 4e 25 |(N%,3)!60=Hp%(N%|
00004cf0 2c 33 29 21 39 32 0d 03 0f 38 48 70 25 28 4e 25 |,3)!92...8Hp%(N%|
00004d00 2c 33 29 21 36 34 3d 48 70 25 28 4e 25 2c 33 29 |,3)!64=Hp%(N%,3)|
00004d10 21 39 36 3a 48 70 25 28 4e 25 2c 33 29 21 36 38 |!96:Hp%(N%,3)!68|
00004d20 3d 48 70 25 28 4e 25 2c 33 29 21 31 30 30 0d 03 |=Hp%(N%,3)!100..|
00004d30 10 44 c8 99 22 46 6f 6e 74 5f 52 65 61 64 44 65 |.D.."Font_ReadDe|
00004d40 66 6e 22 2c 46 68 25 28 4e 25 2c 30 29 2c 57 62 |fn",Fh%(N%,0),Wb|
00004d50 25 20 b8 20 2c 57 62 25 2c 48 70 25 28 4e 25 2c |% . ,Wb%,Hp%(N%,|
00004d60 33 29 21 37 32 2c 48 70 25 28 4e 25 2c 33 29 21 |3)!72,Hp%(N%,3)!|
00004d70 37 36 0d 03 11 1f 48 70 25 28 4e 25 2c 33 29 21 |76....Hp%(N%,3)!|
00004d80 31 36 30 3d 48 70 25 28 4e 25 2c 33 29 21 31 35 |160=Hp%(N%,3)!15|
00004d90 36 0d 03 12 1f 48 70 25 28 4e 25 2c 33 29 21 31 |6....Hp%(N%,3)!1|
00004da0 36 34 3d 48 70 25 28 4e 25 2c 33 29 21 31 35 32 |64=Hp%(N%,3)!152|
00004db0 0d 03 13 1d 48 70 25 28 4e 25 2c 33 29 21 38 30 |....Hp%(N%,3)!80|
00004dc0 3d 48 70 25 28 4e 25 2c 33 29 21 38 34 0d 03 14 |=Hp%(N%,3)!84...|
00004dd0 1f 48 70 25 28 4e 25 2c 33 29 21 31 33 36 3d 48 |.Hp%(N%,3)!136=H|
00004de0 70 25 28 4e 25 2c 33 29 21 31 31 36 0d 03 15 1f |p%(N%,3)!116....|
00004df0 48 70 25 28 4e 25 2c 33 29 21 31 34 30 3d 48 70 |Hp%(N%,3)!140=Hp|
00004e00 25 28 4e 25 2c 33 29 21 31 32 38 0d 03 16 1f 48 |%(N%,3)!128....H|
00004e10 70 25 28 4e 25 2c 33 29 21 31 34 38 3d 48 70 25 |p%(N%,3)!148=Hp%|
00004e20 28 4e 25 2c 33 29 21 31 34 34 0d 03 17 1f 48 70 |(N%,3)!144....Hp|
00004e30 25 28 4e 25 2c 33 29 21 31 37 32 3d 48 70 25 28 |%(N%,3)!172=Hp%(|
00004e40 4e 25 2c 33 29 21 31 36 38 0d 03 18 1f 48 70 25 |N%,3)!168....Hp%|
00004e50 28 4e 25 2c 33 29 21 31 38 30 3d 48 70 25 28 4e |(N%,3)!180=Hp%(N|
00004e60 25 2c 33 29 21 31 37 36 0d 03 19 23 48 70 25 28 |%,3)!176...#Hp%(|
00004e70 4e 25 2c 33 29 21 31 38 34 3d 31 3a 48 70 25 28 |N%,3)!184=1:Hp%(|
00004e80 4e 25 2c 33 29 21 31 38 38 3d 31 0d 03 1a 1f 48 |N%,3)!188=1....H|
00004e90 70 25 28 4e 25 2c 33 29 21 31 39 32 3d 48 70 25 |p%(N%,3)!192=Hp%|
00004ea0 28 4e 25 2c 33 29 21 31 31 32 0d 03 1b 1f 48 70 |(N%,3)!112....Hp|
00004eb0 25 28 4e 25 2c 33 29 21 32 30 30 3d 48 70 25 28 |%(N%,3)!200=Hp%(|
00004ec0 4e 25 2c 33 29 21 31 39 36 0d 03 1c 1f 48 70 25 |N%,3)!196....Hp%|
00004ed0 28 4e 25 2c 33 29 21 32 30 38 3d 48 70 25 28 4e |(N%,3)!208=Hp%(N|
00004ee0 25 2c 33 29 21 32 30 34 0d 03 1d 0b f2 54 54 28 |%,3)!204.....TT(|
00004ef0 4e 25 29 0d 03 1e 05 e1 0d 03 1f 0d dd 20 a4 43 |N%).......... .C|
00004f00 57 28 57 25 29 0d 03 20 0b ea 20 58 25 2c 59 25 |W(W%).. .. X%,Y%|
00004f10 0d 03 21 27 21 57 62 25 3d 57 25 3a c8 99 22 57 |..!'!Wb%=W%:.."W|
00004f20 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 |imp_GetWindowInf|
00004f30 6f 22 2c 2c 57 62 25 0d 03 22 13 58 25 3d 57 62 |o",,Wb%..".X%=Wb|
00004f40 25 21 31 32 2d 57 62 25 21 34 0d 03 23 13 59 25 |%!12-Wb%!4..#.Y%|
00004f50 3d 57 62 25 21 31 36 2d 57 62 25 21 38 0d 03 24 |=Wb%!16-Wb%!8..$|
00004f60 21 57 62 25 21 34 3d 28 a4 4f 53 58 2d 28 57 62 |!Wb%!4=(.OSX-(Wb|
00004f70 25 21 31 32 2d 57 62 25 21 34 29 29 2f 32 0d 03 |%!12-Wb%!4))/2..|
00004f80 25 21 57 62 25 21 38 3d 28 a4 4f 53 59 2d 28 57 |%!Wb%!8=(.OSY-(W|
00004f90 62 25 21 31 36 2d 57 62 25 21 38 29 29 2f 32 0d |b%!16-Wb%!8))/2.|
00004fa0 03 26 13 57 62 25 21 31 32 3d 57 62 25 21 34 2b |.&.Wb%!12=Wb%!4+|
00004fb0 58 25 0d 03 27 13 57 62 25 21 31 36 3d 57 62 25 |X%..'.Wb%!16=Wb%|
00004fc0 21 38 2b 59 25 0d 03 28 1e c8 99 22 57 69 6d 70 |!8+Y%..(..."Wimp|
00004fd0 5f 44 65 6c 65 74 65 57 69 6e 64 6f 77 22 2c 2c |_DeleteWindow",,|
00004fe0 57 62 25 0d 03 29 25 c8 99 22 57 69 6d 70 5f 43 |Wb%..)%.."Wimp_C|
00004ff0 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 57 62 |reateWindow",,Wb|
00005000 25 2b 34 20 b8 20 57 25 0d 03 2a 07 3d 57 25 0d |%+4 . W%..*.=W%.|
00005010 03 2b 0f dd 20 f2 44 72 61 67 28 42 25 29 0d 03 |.+.. .Drag(B%)..|
00005020 2c 09 ea 20 44 73 25 0d 03 2d 20 c8 99 22 57 69 |,.. Ds%..- .."Wi|
00005030 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_GetIconState"|
00005040 2c 2c 42 25 2b 31 32 0d 03 2e 0b 42 25 21 31 36 |,,B%+12....B%!16|
00005050 3d 35 0d 03 2f 2b 21 57 62 25 3d 42 25 21 31 32 |=5../+!Wb%=B%!12|
00005060 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 |:.."Wimp_GetWind|
00005070 6f 77 53 74 61 74 65 22 2c 2c 57 62 25 0d 03 30 |owState",,Wb%..0|
00005080 23 42 25 21 32 30 2b 3d 57 62 25 21 34 3a 42 25 |#B%!20+=Wb%!4:B%|
00005090 21 32 34 3d 57 62 25 21 31 36 2b 42 25 21 32 34 |!24=Wb%!16+B%!24|
000050a0 0d 03 31 23 42 25 21 32 38 2b 3d 57 62 25 21 34 |..1#B%!28+=Wb%!4|
000050b0 3a 42 25 21 33 32 3d 57 62 25 21 31 36 2b 42 25 |:B%!32=Wb%!16+B%|
000050c0 21 33 32 0d 03 32 29 42 25 21 33 36 3d 30 3a 42 |!32..2)B%!36=0:B|
000050d0 25 21 34 30 3d 30 3a 42 25 21 34 34 3d a4 4f 53 |%!40=0:B%!44=.OS|
000050e0 58 3a 42 25 21 34 38 3d a4 4f 53 59 0d 03 33 0d |X:B%!48=.OSY..3.|
000050f0 44 57 25 3d 42 25 21 31 32 0d 03 34 1f c8 99 22 |DW%=B%!12..4..."|
00005100 4f 53 5f 42 79 74 65 22 2c 31 36 31 2c 26 31 43 |OS_Byte",161,&1C|
00005110 20 b8 20 2c 2c 44 73 25 0d 03 35 12 44 73 25 3d | . ,,Ds%..5.Ds%=|
00005120 28 44 73 25 80 32 29 3c 3e 30 0d 03 36 0b e7 20 |(Ds%.2)<>0..6.. |
00005130 44 73 25 20 8c 0d 03 37 3b c8 99 22 44 72 61 67 |Ds% ...7;.."Drag|
00005140 41 53 70 72 69 74 65 5f 53 74 61 72 74 22 2c 26 |ASprite_Start",&|
00005150 41 31 2c 31 2c 22 66 69 6c 65 5f 22 2b c3 7e 28 |A1,1,"file_"+.~(|
00005160 44 66 25 29 2c 42 25 2b 32 30 2c 42 25 2b 33 36 |Df%),B%+20,B%+36|
00005170 0d 03 38 1e cc 20 20 c8 99 22 57 69 6d 70 5f 44 |..8.. .."Wimp_D|
00005180 72 61 67 42 6f 78 22 2c 2c 42 25 2b 31 32 0d 03 |ragBox",,B%+12..|
00005190 39 05 cd 0d 03 3a 05 e1 0d 03 3b 10 dd 20 f2 44 |9....:....;.. .D|
000051a0 42 28 42 25 2c 4e 25 29 0d 03 3c 09 44 67 25 3d |B(B%,N%)..<.Dg%=|
000051b0 b9 0d 03 3d 0b 42 25 21 31 36 3d 36 0d 03 3e 2a |...=.B%!16=6..>*|
000051c0 21 57 62 25 3d 42 25 21 31 32 3a c8 99 22 57 69 |!Wb%=B%!12:.."Wi|
000051d0 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 6f |mp_GetWindowInfo|
000051e0 22 2c 2c 57 62 25 0d 03 3f 1a 42 25 21 32 30 3d |",,Wb%..?.B%!20=|
000051f0 21 42 25 2b 32 3a 42 25 21 32 34 3d 42 25 21 34 |!B%+2:B%!24=B%!4|
00005200 0d 03 40 1a 42 25 21 32 38 3d 21 42 25 2b 32 3a |..@.B%!28=!B%+2:|
00005210 42 25 21 33 32 3d 42 25 21 34 0d 03 41 35 42 25 |B%!32=B%!4..A5B%|
00005220 21 33 36 3d 57 62 25 21 34 3a 42 25 21 34 30 3d |!36=Wb%!4:B%!40=|
00005230 57 62 25 21 38 3a 42 25 21 34 34 3d 57 62 25 21 |Wb%!8:B%!44=Wb%!|
00005240 31 32 3a 42 25 21 34 38 3d 57 62 25 21 31 36 0d |12:B%!48=Wb%!16.|
00005250 03 42 1b 42 25 21 35 36 3d a4 58 47 50 28 4e 25 |.B.B%!56=.XGP(N%|
00005260 2c 47 70 28 4e 25 2c 30 29 29 0d 03 43 1d e7 20 |,Gp(N%,0))..C.. |
00005270 42 25 21 35 36 3e 42 25 21 33 36 20 42 25 21 33 |B%!56>B%!36 B%!3|
00005280 36 3d 42 25 21 35 36 0d 03 44 1b 42 25 21 35 36 |6=B%!56..D.B%!56|
00005290 3d a4 58 47 50 28 4e 25 2c 47 70 28 4e 25 2c 31 |=.XGP(N%,Gp(N%,1|
000052a0 29 29 0d 03 45 1d e7 20 42 25 21 35 36 3c 42 25 |))..E.. B%!56<B%|
000052b0 21 34 34 20 42 25 21 34 34 3d 42 25 21 35 36 0d |!44 B%!44=B%!56.|
000052c0 03 46 1b 42 25 21 35 36 3d a4 59 47 50 28 4e 25 |.F.B%!56=.YGP(N%|
000052d0 2c 47 70 28 4e 25 2c 33 29 29 0d 03 47 1d e7 20 |,Gp(N%,3))..G.. |
000052e0 42 25 21 35 36 3c 42 25 21 34 38 20 42 25 21 34 |B%!56<B%!48 B%!4|
000052f0 38 3d 42 25 21 35 36 0d 03 48 1b 42 25 21 35 36 |8=B%!56..H.B%!56|
00005300 3d a4 59 47 50 28 4e 25 2c 47 70 28 4e 25 2c 32 |=.YGP(N%,Gp(N%,2|
00005310 29 29 0d 03 49 1d e7 20 42 25 21 35 36 3e 42 25 |))..I.. B%!56>B%|
00005320 21 34 30 20 42 25 21 34 30 3d 42 25 21 35 36 0d |!40 B%!40=B%!56.|
00005330 03 4a 26 42 25 21 35 32 3d 30 3a 42 25 21 35 36 |.J&B%!52=0:B%!56|
00005340 3d 30 3a 42 25 21 36 30 3d 30 3a 42 25 21 36 34 |=0:B%!60=0:B%!64|
00005350 3d 30 20 20 20 0d 03 4b 1b c8 99 22 57 69 6d 70 |=0 ..K..."Wimp|
00005360 5f 44 72 61 67 42 6f 78 22 2c 2c 42 25 2b 31 32 |_DragBox",,B%+12|
00005370 0d 03 4c 05 e1 0d 03 4d 04 0d 03 4e 09 dd 20 f2 |..L....M...N.. .|
00005380 44 45 0d 03 4f 0b ea 20 50 25 2c 70 25 0d 03 50 |DE..O.. P%,p%..P|
00005390 12 50 24 3d a4 52 65 53 28 44 57 25 2c 32 29 0d |.P$=.ReS(DW%,2).|
000053a0 03 51 05 f5 0d 03 52 09 50 25 2b 3d 31 0d 03 53 |.Q....R.P%+=1..S|
000053b0 09 70 25 3d 50 25 0d 03 54 12 50 25 3d a7 50 24 |.p%=P%..T.P%=.P$|
000053c0 2c 22 2e 22 2c 50 25 29 0d 03 55 0a fd 20 50 25 |,".",P%)..U.. P%|
000053d0 3d 30 0d 03 56 11 50 24 3d c1 50 24 2c 70 25 2c |=0..V.P$=.P$,p%,|
000053e0 31 32 29 0d 03 57 20 c8 99 22 57 69 6d 70 5f 47 |12)..W .."Wimp_G|
000053f0 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c |etPointerInfo",,|
00005400 57 62 25 0d 03 58 1f 57 62 25 21 32 30 3d 57 62 |Wb%..X.Wb%!20=Wb|
00005410 25 21 31 32 3a 57 62 25 21 32 34 3d 57 62 25 21 |%!12:Wb%!24=Wb%!|
00005420 31 36 0d 03 59 1d 57 62 25 21 32 38 3d 57 62 25 |16..Y.Wb%!28=Wb%|
00005430 21 30 3a 57 62 25 21 33 32 3d 57 62 25 21 34 0d |!0:Wb%!32=Wb%!4.|
00005440 03 5a 17 57 62 25 21 33 36 3d 30 3a 57 62 25 21 |.Z.Wb%!36=0:Wb%!|
00005450 34 30 3d 44 66 25 0d 03 5b 1d 24 28 57 62 25 2b |40=Df%..[.$(Wb%+|
00005460 34 34 29 3d c0 50 24 2c a9 28 50 24 29 29 2b bd |44)=.P$,.(P$))+.|
00005470 28 30 29 0d 03 5c 2f 21 57 62 25 3d 34 34 2b a9 |(0)..\/!Wb%=44+.|
00005480 28 24 28 57 62 25 2b 34 34 29 29 2b 28 34 2d 28 |($(Wb%+44))+(4-(|
00005490 a9 28 24 28 57 62 25 2b 34 34 29 29 83 34 29 29 |.($(Wb%+44)).4))|
000054a0 83 34 0d 03 5d 13 57 62 25 21 34 3d 30 3a 57 62 |.4..].Wb%!4=0:Wb|
000054b0 25 21 38 3d 30 0d 03 5e 15 57 62 25 21 31 32 3d |%!8=0..^.Wb%!12=|
000054c0 30 3a 57 62 25 21 31 36 3d 31 0d 03 5f 2d c8 99 |0:Wb%!16=1.._-..|
000054d0 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 |"Wimp_SendMessag|
000054e0 65 22 2c 31 37 2c 57 62 25 2c 57 62 25 21 32 30 |e",17,Wb%,Wb%!20|
000054f0 2c 57 62 25 21 32 34 0d 03 60 05 e1 0d 03 61 0d |,Wb%!24..`....a.|
00005500 dd 20 f2 44 53 28 42 25 29 0d 03 62 18 ea 20 50 |. .DS(B%)..b.. P|
00005510 24 2c 43 25 2c 46 73 25 3a 43 25 3d 42 25 2b 34 |$,C%,Fs%:C%=B%+4|
00005520 33 0d 03 63 0a 50 24 3d 4c 50 24 0d 03 64 14 e7 |3..c.P$=LP$..d..|
00005530 20 44 57 25 3d 44 77 25 20 50 24 3d 44 50 24 0d | DW%=Dw% P$=DP$.|
00005540 03 65 12 f5 3a 43 25 2b 3d 31 3a fd 3f 43 25 3d |.e..:C%+=1:.?C%=|
00005550 30 0d 03 66 0a 3f 43 25 3d 26 44 0d 03 67 1e f2 |0..f.?C%=&D..g..|
00005560 4c 53 28 44 57 25 2c 32 2c 24 28 42 25 2b 34 34 |LS(DW%,2,$(B%+44|
00005570 29 29 3a 3f 43 25 3d 26 44 0d 03 68 21 e7 20 44 |)):?C%=&D..h!. D|
00005580 57 25 3d 44 77 25 20 f2 53 44 28 53 6e 25 29 20 |W%=Dw% .SD(Sn%) |
00005590 8b 20 f2 53 4c 28 53 6e 25 29 0d 03 69 11 f2 4c |. .SL(Sn%)..i..L|
000055a0 53 28 44 57 25 2c 32 2c 50 24 29 0d 03 6a 1d e7 |S(DW%,2,P$)..j..|
000055b0 20 44 57 25 3d 44 77 25 20 44 50 24 3d 50 24 20 | DW%=Dw% DP$=P$ |
000055c0 8b 20 4c 50 24 3d 50 24 0d 03 6b 15 42 25 21 33 |. LP$=P$..k.B%!3|
000055d0 36 3d 46 73 25 3a 42 25 21 31 36 3d 33 0d 03 6c |6=Fs%:B%!16=3..l|
000055e0 23 c8 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 |#.."Wimp_SendMes|
000055f0 73 61 67 65 22 2c 31 37 2c 42 25 2c 42 25 21 34 |sage",17,B%,B%!4|
00005600 0d 03 6d 05 e1 0d 03 6e 0d dd 20 f2 50 4b 28 42 |..m....n.. .PK(B|
00005610 25 29 0d 03 6f 19 e7 20 42 25 21 32 34 3d 26 44 |%)..o.. B%!24=&D|
00005620 20 f2 43 74 28 47 6e 25 29 3a e1 0d 03 70 12 e7 | .Ct(Gn%):...p..|
00005630 20 42 25 21 32 34 3d 26 31 38 41 20 8c 0d 03 71 | B%!24=&18A ...q|
00005640 5e e7 20 42 25 21 34 3e 3d 31 30 20 80 42 25 21 |^. B%!4>=10 .B%!|
00005650 34 3c 31 39 20 c8 99 22 57 69 6d 70 5f 53 65 74 |4<19 .."Wimp_Set|
00005660 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c 21 |CaretPosition",!|
00005670 42 25 2c 42 25 21 34 2b 31 2c 42 25 21 38 2c 42 |B%,B%!4+1,B%!8,B|
00005680 25 21 31 32 2c 2d 31 2c a9 28 a4 52 65 53 28 21 |%!12,-1,.(.ReS(!|
00005690 42 25 2c 42 25 21 34 2b 31 29 29 0d 03 72 4c e7 |B%,B%!4+1))..rL.|
000056a0 20 42 25 21 34 3d 31 39 20 c8 99 22 57 69 6d 70 | B%!4=19 .."Wimp|
000056b0 5f 53 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f |_SetCaretPositio|
000056c0 6e 22 2c 21 42 25 2c 33 30 2c 42 25 21 38 2c 42 |n",!B%,30,B%!8,B|
000056d0 25 21 31 32 2c 2d 31 2c a9 28 a4 52 65 53 28 21 |%!12,-1,.(.ReS(!|
000056e0 42 25 2c 33 30 29 29 0d 03 73 05 cc 0d 03 74 12 |B%,30))..s....t.|
000056f0 e7 20 42 25 21 32 34 3d 26 31 39 41 20 8c 0d 03 |. B%!24=&19A ...|
00005700 75 5e e7 20 42 25 21 34 3e 31 30 20 80 42 25 21 |u^. B%!4>10 .B%!|
00005710 34 3c 3d 31 39 20 c8 99 22 57 69 6d 70 5f 53 65 |4<=19 .."Wimp_Se|
00005720 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c |tCaretPosition",|
00005730 21 42 25 2c 42 25 21 34 2d 31 2c 42 25 21 38 2c |!B%,B%!4-1,B%!8,|
00005740 42 25 21 31 32 2c 2d 31 2c a9 28 a4 52 65 53 28 |B%!12,-1,.(.ReS(|
00005750 21 42 25 2c 42 25 21 34 2d 31 29 29 0d 03 76 4c |!B%,B%!4-1))..vL|
00005760 e7 20 42 25 21 34 3d 33 30 20 c8 99 22 57 69 6d |. B%!4=30 .."Wim|
00005770 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 74 69 |p_SetCaretPositi|
00005780 6f 6e 22 2c 21 42 25 2c 31 39 2c 42 25 21 38 2c |on",!B%,19,B%!8,|
00005790 42 25 21 31 32 2c 2d 31 2c a9 28 a4 52 65 53 28 |B%!12,-1,.(.ReS(|
000057a0 21 42 25 2c 31 39 29 29 0d 03 77 05 cd 0d 03 78 |!B%,19))..w....x|
000057b0 05 cd 0d 03 79 05 e1 0d 03 7a 0d dd 20 f2 5a 4b |....y....z.. .ZK|
000057c0 28 42 25 29 0d 03 7b 0e e7 20 42 25 21 34 3d 30 |(B%)..{.. B%!4=0|
000057d0 20 8c 0d 03 7c 37 c8 99 22 57 69 6d 70 5f 53 65 | ...|7.."Wimp_Se|
000057e0 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c |tCaretPosition",|
000057f0 21 42 25 2c 31 2c 42 25 21 38 2c 42 25 21 31 32 |!B%,1,B%!8,B%!12|
00005800 2c 2d 31 2c 42 25 21 32 30 0d 03 7d 0e cc 20 f2 |,-1,B%!20..}.. .|
00005810 5a 53 28 5a 6e 25 29 0d 03 7e 1c e7 20 57 62 25 |ZS(Zn%)..~.. Wb%|
00005820 21 32 38 3d 2d 31 20 57 62 25 21 32 38 3d 5a 6f |!28=-1 Wb%!28=Zo|
00005830 6f 6d 25 0d 03 7f 1c c8 99 22 57 69 6d 70 5f 4f |om%......"Wimp_O|
00005840 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 57 62 25 0d |penWindow",,Wb%.|
00005850 03 80 05 cd 0d 03 81 05 e1 0d 03 82 0e dd 20 f2 |.............. .|
00005860 5a 53 28 5a 6e 25 29 0d 03 83 16 ea 20 78 25 2c |ZS(Zn%)..... x%,|
00005870 58 25 2c 52 2c 75 25 2c 76 25 2c 77 25 0d 03 84 |X%,R,u%,v%,w%...|
00005880 27 75 25 3d 48 70 25 28 5a 6e 25 2c 33 29 21 31 |'u%=Hp%(Zn%,3)!1|
00005890 38 34 3a 76 25 3d 48 70 25 28 5a 6e 25 2c 33 29 |84:v%=Hp%(Zn%,3)|
000058a0 21 31 38 38 0d 03 85 1f 48 70 25 28 5a 6e 25 2c |!188....Hp%(Zn%,|
000058b0 33 29 21 31 38 34 3d a4 52 4e 28 5a 6f 6f 6d 25 |3)!184=.RN(Zoom%|
000058c0 2c 30 29 0d 03 86 1f 48 70 25 28 5a 6e 25 2c 33 |,0)....Hp%(Zn%,3|
000058d0 29 21 31 38 38 3d a4 52 4e 28 5a 6f 6f 6d 25 2c |)!188=.RN(Zoom%,|
000058e0 31 29 0d 03 87 28 e7 20 48 70 25 28 5a 6e 25 2c |1)...(. Hp%(Zn%,|
000058f0 33 29 21 31 38 34 3c 3d 30 20 48 70 25 28 5a 6e |3)!184<=0 Hp%(Zn|
00005900 25 2c 33 29 21 31 38 34 3d 31 0d 03 88 28 e7 20 |%,3)!184=1...(. |
00005910 48 70 25 28 5a 6e 25 2c 33 29 21 31 38 38 3c 3d |Hp%(Zn%,3)!188<=|
00005920 30 20 48 70 25 28 5a 6e 25 2c 33 29 21 31 38 38 |0 Hp%(Zn%,3)!188|
00005930 3d 31 0d 03 89 23 52 3d 48 70 25 28 5a 6e 25 2c |=1...#R=Hp%(Zn%,|
00005940 33 29 21 31 38 34 2f 48 70 25 28 5a 6e 25 2c 33 |3)!184/Hp%(Zn%,3|
00005950 29 21 31 38 38 0d 03 8a 2c e7 20 28 48 70 25 28 |)!188...,. (Hp%(|
00005960 5a 6e 25 2c 33 29 21 35 36 2a 52 2a 47 70 28 5a |Zn%,3)!56*R*Gp(Z|
00005970 6e 25 2c 31 30 29 29 2f a4 4f 53 58 3e 32 30 20 |n%,10))/.OSX>20 |
00005980 8c 0d 03 8b 23 f2 4c 4e 28 5a 6f 6f 6d 25 2c 30 |....#.LN(Zoom%,0|
00005990 2c 75 25 29 3a f2 4c 4e 28 5a 6f 6f 6d 25 2c 31 |,u%):.LN(Zoom%,1|
000059a0 2c 76 25 29 0d 03 8c 27 48 70 25 28 5a 6e 25 2c |,v%)...'Hp%(Zn%,|
000059b0 33 29 21 31 38 34 3d 75 25 3a 48 70 25 28 5a 6e |3)!184=u%:Hp%(Zn|
000059c0 25 2c 33 29 21 31 38 38 3d 76 25 0d 03 8d 23 52 |%,3)!188=v%...#R|
000059d0 3d 48 70 25 28 5a 6e 25 2c 33 29 21 31 38 34 2f |=Hp%(Zn%,3)!184/|
000059e0 48 70 25 28 5a 6e 25 2c 33 29 21 31 38 38 0d 03 |Hp%(Zn%,3)!188..|
000059f0 8e 2d 21 57 62 25 3d 47 61 25 28 5a 6e 25 29 3a |.-!Wb%=Ga%(Zn%):|
00005a00 c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f |.."Wimp_GetWindo|
00005a10 77 49 6e 66 6f 22 2c 2c 57 62 25 0d 03 8f 05 e1 |wInfo",,Wb%.....|
00005a20 0d 03 90 05 cd 0d 03 91 2d 21 57 62 25 3d 47 61 |........-!Wb%=Ga|
00005a30 25 28 5a 6e 25 29 3a c8 99 22 57 69 6d 70 5f 47 |%(Zn%):.."Wimp_G|
00005a40 65 74 57 69 6e 64 6f 77 49 6e 66 6f 22 2c 2c 57 |etWindowInfo",,W|
00005a50 62 25 0d 03 92 0b 77 25 3d 21 57 62 25 0d 03 93 |b%....w%=!Wb%...|
00005a60 1e c8 99 22 57 69 6d 70 5f 44 65 6c 65 74 65 57 |..."Wimp_DeleteW|
00005a70 69 6e 64 6f 77 22 2c 2c 57 62 25 0d 03 94 16 78 |indow",,Wb%....x|
00005a80 25 3d 57 62 25 21 34 3a 58 25 3d 57 62 25 21 31 |%=Wb%!4:X%=Wb%!1|
00005a90 32 0d 03 95 42 57 62 25 21 31 32 3d 57 62 25 21 |2...BWb%!12=Wb%!|
00005aa0 34 2b 28 48 70 25 28 5a 6e 25 2c 33 29 21 35 36 |4+(Hp%(Zn%,3)!56|
00005ab0 2a 52 29 3a 57 62 25 21 35 36 3d 57 62 25 21 34 |*R):Wb%!56=Wb%!4|
00005ac0 38 2b 28 48 70 25 28 5a 6e 25 2c 33 29 21 35 36 |8+(Hp%(Zn%,3)!56|
00005ad0 2a 52 29 0d 03 96 3f 48 70 25 28 5a 6e 25 2c 33 |*R)...?Hp%(Zn%,3|
00005ae0 29 21 38 38 3d 48 70 25 28 5a 6e 25 2c 33 29 21 |)!88=Hp%(Zn%,3)!|
00005af0 35 36 2a 52 3a 48 70 25 28 5a 6e 25 2c 33 29 21 |56*R:Hp%(Zn%,3)!|
00005b00 38 34 3d 48 70 25 28 5a 6e 25 2c 33 29 21 38 30 |84=Hp%(Zn%,3)!80|
00005b10 2a 52 0d 03 97 2b c8 99 22 57 69 6d 70 5f 43 72 |*R...+.."Wimp_Cr|
00005b20 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 57 62 25 |eateWindow",,Wb%|
00005b30 2b 34 20 b8 20 47 61 25 28 5a 6e 25 29 0d 03 98 |+4 . Ga%(Zn%)...|
00005b40 24 f2 4c 4e 28 47 77 25 28 5a 6e 25 29 2c 31 39 |$.LN(Gw%(Zn%),19|
00005b50 2c a8 28 47 70 28 5a 6e 25 2c 31 36 29 2a 52 29 |,.(Gp(Zn%,16)*R)|
00005b60 29 0d 03 99 0f f2 43 53 28 5a 6e 25 2c 2d 31 29 |).....CS(Zn%,-1)|
00005b70 0d 03 9a 2d 21 57 62 25 3d 47 61 25 28 5a 6e 25 |...-!Wb%=Ga%(Zn%|
00005b80 29 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e |):.."Wimp_GetWin|
00005b90 64 6f 77 49 6e 66 6f 22 2c 2c 57 62 25 0d 03 9b |dowInfo",,Wb%...|
00005ba0 1e c8 99 22 57 69 6d 70 5f 44 65 6c 65 74 65 57 |..."Wimp_DeleteW|
00005bb0 69 6e 64 6f 77 22 2c 2c 57 62 25 0d 03 9c 16 57 |indow",,Wb%....W|
00005bc0 62 25 21 34 3d 78 25 3a 57 62 25 21 31 32 3d 58 |b%!4=x%:Wb%!12=X|
00005bd0 25 0d 03 9d 2b c8 99 22 57 69 6d 70 5f 43 72 65 |%...+.."Wimp_Cre|
00005be0 61 74 65 57 69 6e 64 6f 77 22 2c 2c 57 62 25 2b |ateWindow",,Wb%+|
00005bf0 34 20 b8 20 47 61 25 28 5a 6e 25 29 0d 03 9e 19 |4 . Ga%(Zn%)....|
00005c00 e7 20 77 25 3d 43 57 25 20 43 57 25 3d 47 61 25 |. w%=CW% CW%=Ga%|
00005c10 28 5a 6e 25 29 0d 03 9f 05 e1 0d 03 a0 0d dd 20 |(Zn%).......... |
00005c20 f2 49 5a 28 49 25 29 0d 03 a1 2d 48 70 25 28 5a |.IZ(I%)...-Hp%(Z|
00005c30 6e 25 2c 33 29 21 28 31 36 38 2b 49 25 2a 34 29 |n%,3)!(168+I%*4)|
00005c40 3d 28 a4 52 4e 28 5a 6f 6f 6d 25 2c 49 25 29 2b |=(.RN(Zoom%,I%)+|
00005c50 31 29 80 37 0d 03 a2 35 e7 20 48 70 25 28 5a 6e |1).7...5. Hp%(Zn|
00005c60 25 2c 33 29 21 28 31 36 38 2b 49 25 2a 34 29 3d |%,3)!(168+I%*4)=|
00005c70 30 20 48 70 25 28 5a 6e 25 2c 33 29 21 28 31 36 |0 Hp%(Zn%,3)!(16|
00005c80 38 2b 49 25 2a 34 29 3d 37 0d 03 a3 27 f2 4c 4e |8+I%*4)=7...'.LN|
00005c90 28 5a 6f 6f 6d 25 2c 49 25 2c 48 70 25 28 5a 6e |(Zoom%,I%,Hp%(Zn|
00005ca0 25 2c 33 29 21 28 31 36 38 2b 49 25 2a 34 29 29 |%,3)!(168+I%*4))|
00005cb0 0d 03 a4 05 e1 0d 03 a5 0d dd 20 f2 44 5a 28 49 |.......... .DZ(I|
00005cc0 25 29 0d 03 a6 29 48 70 25 28 5a 6e 25 2c 33 29 |%)...)Hp%(Zn%,3)|
00005cd0 21 28 31 36 38 2b 49 25 2a 34 29 3d a4 52 4e 28 |!(168+I%*4)=.RN(|
00005ce0 5a 6f 6f 6d 25 2c 49 25 29 2d 31 0d 03 a7 36 e7 |Zoom%,I%)-1...6.|
00005cf0 20 48 70 25 28 5a 6e 25 2c 33 29 21 28 31 36 38 | Hp%(Zn%,3)!(168|
00005d00 2b 49 25 2a 34 29 3c 3d 30 20 48 70 25 28 5a 6e |+I%*4)<=0 Hp%(Zn|
00005d10 25 2c 33 29 21 28 31 36 38 2b 49 25 2a 34 29 3d |%,3)!(168+I%*4)=|
00005d20 31 0d 03 a8 27 f2 4c 4e 28 5a 6f 6f 6d 25 2c 49 |1...'.LN(Zoom%,I|
00005d30 25 2c 48 70 25 28 5a 6e 25 2c 33 29 21 28 31 36 |%,Hp%(Zn%,3)!(16|
00005d40 38 2b 49 25 2a 34 29 29 0d 03 a9 05 e1 0d 03 aa |8+I%*4))........|
00005d50 0d dd 20 a4 52 53 28 48 25 29 0d 03 ab 0b ea 20 |.. .RS(H%)..... |
00005d60 42 24 2c 62 25 0d 03 ac 05 f5 0d 03 ad 22 c8 99 |B$,b%........"..|
00005d70 22 4f 53 5f 47 42 50 42 22 2c 34 2c 48 25 2c 57 |"OS_GBPB",4,H%,W|
00005d80 62 25 2c 31 20 b8 20 2c 2c 2c 62 25 0d 03 ae 0f |b%,1 . ,,,b%....|
00005d90 e7 20 62 25 3e 30 20 3d 22 20 22 0d 03 af 11 42 |. b%>0 =" "....B|
00005da0 24 3d 42 24 2b bd 28 3f 57 62 25 29 0d 03 b0 0d |$=B$+.(?Wb%)....|
00005db0 fd 20 3f 57 62 25 3d 26 44 0d 03 b1 07 3d 42 24 |. ?Wb%=&D....=B$|
00005dc0 0d 03 b2 13 dd 20 f2 4c 4d 28 58 25 2c 59 25 2c |..... .LM(X%,Y%,|
00005dd0 50 24 29 0d 03 b3 0e ea 20 6b 25 2c 72 25 2c 70 |P$)..... k%,r%,p|
00005de0 25 0d 03 b4 27 c8 99 22 4f 53 5f 46 53 43 6f 6e |%...'.."OS_FSCon|
00005df0 74 72 6f 6c 22 2c 32 38 2c 50 24 2b 22 2e 5e 22 |trol",28,P$+".^"|
00005e00 20 b8 20 2c 2c 2c 72 25 0d 03 b5 22 e7 20 4c 4d | . ,,,r%...". LM|
00005e10 65 6e 75 25 3c 3e 30 20 4c 4d 65 6e 75 25 3d a4 |enu%<>0 LMenu%=.|
00005e20 48 46 28 4c 4d 65 6e 75 25 29 0d 03 b6 1d 4c 4d |HF(LMenu%)....LM|
00005e30 65 6e 75 25 3d a4 48 43 6d 28 28 72 25 2b 31 29 |enu%=.HCm((r%+1)|
00005e40 2a 32 34 2b 32 38 29 0d 03 b7 36 24 4c 4d 65 6e |*24+28)...6$LMen|
00005e50 75 25 3d 22 4c 6f 67 20 66 69 6c 65 73 22 3a 4c |u%="Log files":L|
00005e60 4d 65 6e 75 25 21 31 32 3d 26 37 30 32 30 37 3a |Menu%!12=&70207:|
00005e70 4c 4d 65 6e 75 25 21 31 36 3d 31 37 36 0d 03 b8 |LMenu%!16=176...|
00005e80 1c 4c 4d 65 6e 75 25 21 32 30 3d 34 34 3a 4c 4d |.LMenu%!20=44:LM|
00005e90 65 6e 75 25 21 32 34 3d 30 0d 03 b9 09 70 25 3d |enu%!24=0....p%=|
00005ea0 32 38 0d 03 ba 1a 24 28 4c 4d 65 6e 75 25 2b 70 |28....$(LMenu%+p|
00005eb0 25 2b 31 32 29 3d 22 4e 6f 6e 65 22 0d 03 bb 0c |%+12)="None"....|
00005ec0 c8 95 20 72 25 3e 3d 30 0d 03 bc 09 21 68 25 3d |.. r%>=0....!h%=|
00005ed0 30 0d 03 bd 32 c8 99 22 4f 53 5f 47 42 50 42 22 |0...2.."OS_GBPB"|
00005ee0 2c 31 30 2c 50 24 2b 22 2e 5e 22 2c 68 25 2c 31 |,10,P$+".^",h%,1|
00005ef0 2c 6b 25 2c 33 36 2c 22 2a 22 20 b8 20 2c 2c 2c |,k%,36,"*" . ,,,|
00005f00 2c 72 25 0d 03 be 0c 68 25 3f 33 33 3d 26 44 0d |,r%....h%?33=&D.|
00005f10 03 bf 09 6b 25 2b 3d 31 0d 03 c0 20 4c 4d 65 6e |...k%+=1... LMen|
00005f20 75 25 21 70 25 3d 30 3a 4c 4d 65 6e 75 25 21 28 |u%!p%=0:LMenu%!(|
00005f30 70 25 2b 34 29 3d 2d 31 0d 03 c1 1a 4c 4d 65 6e |p%+4)=-1....LMen|
00005f40 75 25 21 28 70 25 2b 38 29 3d 26 37 30 30 30 30 |u%!(p%+8)=&70000|
00005f50 33 39 0d 03 c2 44 e7 20 28 21 68 25 80 26 46 46 |39...D. (!h%.&FF|
00005f60 46 46 46 46 30 30 29 3d 26 46 46 46 46 46 44 30 |FFFF00)=&FFFFFD0|
00005f70 30 20 80 20 72 25 3e 3d 30 20 80 68 25 21 31 36 |0 . r%>=0 .h%!16|
00005f80 3d 31 20 80 a7 24 28 68 25 2b 32 30 29 2c bd 28 |=1 ..$(h%+20),.(|
00005f90 30 29 29 3e 31 8c 0d 03 c3 36 24 28 4c 4d 65 6e |0))>1....6$(LMen|
00005fa0 75 25 2b 70 25 2b 31 32 29 3d c0 24 28 68 25 2b |u%+p%+12)=.$(h%+|
00005fb0 32 30 29 2c a7 24 28 68 25 2b 32 30 29 2c bd 28 |20),.$(h%+20),.(|
00005fc0 30 29 29 2d 31 29 2b bd 28 26 44 29 0d 03 c4 16 |0))-1)+.(&D)....|
00005fd0 4c 4d 65 6e 75 25 21 28 70 25 2b 34 29 3d 4c 44 |LMenu%!(p%+4)=LD|
00005fe0 4d 25 0d 03 c5 0a 70 25 2b 3d 32 34 0d 03 c6 05 |M%....p%+=24....|
00005ff0 cd 0d 03 c7 05 ce 0d 03 c8 11 e7 20 70 25 3c 35 |........... p%<5|
00006000 32 20 70 25 3d 35 32 0d 03 c9 16 4c 4d 65 6e 75 |2 p%=52....LMenu|
00006010 25 21 28 70 25 2d 32 34 29 3d 26 38 30 0d 03 ca |%!(p%-24)=&80...|
00006020 28 c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 53 |(.."Wimp_CreateS|
00006030 75 62 4d 65 6e 75 22 2c 2c 4c 4d 65 6e 75 25 2c |ubMenu",,LMenu%,|
00006040 58 25 2c 59 25 0d 03 cb 05 e1 0d 03 cc 04 0d 03 |X%,Y%...........|
00006050 cd 10 dd 20 f2 41 50 28 4e 25 2c 44 24 29 0d 03 |... .AP(N%,D$)..|
00006060 ce 0d e7 20 4e 25 3e 3d 30 20 8c 0d 03 cf 15 20 |... N%>=0 ..... |
00006070 e7 20 a4 49 6e 47 72 61 70 68 28 4e 25 29 20 8c |. .InGraph(N%) .|
00006080 0d 03 d0 38 20 e7 20 ac 49 67 25 20 c8 99 22 4f |...8 . .Ig% .."O|
00006090 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 35 36 2b |S_SpriteOp",256+|
000060a0 33 36 2c 53 70 74 25 2c 44 24 2c 32 2c 30 2c 30 |36,Spt%,D$,2,0,0|
000060b0 2c 30 3a 49 67 25 3d b9 0d 03 d1 16 20 e7 20 43 |,0:Ig%=..... . C|
000060c0 64 25 3c 3e b9 20 f2 55 43 28 4d 57 25 29 0d 03 |d%<>. .UC(MW%)..|
000060d0 d2 06 20 cc 0d 03 d3 21 20 e7 20 49 67 25 20 ff |.. ....! . Ig% .|
000060e0 22 50 4f 49 4e 54 45 52 20 31 22 3a 49 67 25 3d |"POINTER 1":Ig%=|
000060f0 a3 3a f2 4e 43 0d 03 d4 06 20 cd 0d 03 d5 18 cc |.:.NC.... ......|
00006100 20 ff 22 50 4f 49 4e 54 45 52 20 31 22 3a 49 67 | ."POINTER 1":Ig|
00006110 25 3d a3 0d 03 d6 05 cd 0d 03 d7 05 e1 0d 03 d8 |%=..............|
00006120 12 dd 20 a4 49 6e 47 72 61 70 68 28 4e 25 29 0d |.. .InGraph(N%).|
00006130 03 d9 09 ea 20 58 2c 59 0d 03 da 0d e7 20 4e 25 |.... X,Y..... N%|
00006140 3c 30 20 3d a3 0d 03 db 2c 21 57 62 25 3d 47 61 |<0 =....,!Wb%=Ga|
00006150 25 28 4e 25 29 3a c8 99 22 57 69 6d 70 5f 47 65 |%(N%):.."Wimp_Ge|
00006160 74 57 69 6e 64 6f 77 49 6e 66 6f 22 2c 2c 57 62 |tWindowInfo",,Wb|
00006170 25 0d 03 dc 23 c8 99 22 57 69 6d 70 5f 47 65 74 |%...#.."Wimp_Get|
00006180 50 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c 57 62 |PointerInfo",,Wb|
00006190 25 2b 36 30 0d 03 dd 15 e7 20 57 62 25 21 37 32 |%+60..... Wb%!72|
000061a0 3c 3e 21 57 62 25 20 3d a3 0d 03 de 23 e7 20 57 |<>!Wb% =....#. W|
000061b0 62 25 21 36 30 3c 57 62 25 21 34 84 57 62 25 21 |b%!60<Wb%!4.Wb%!|
000061c0 36 30 3e 57 62 25 21 31 32 20 3d a3 0d 03 df 23 |60>Wb%!12 =....#|
000061d0 e7 20 57 62 25 21 36 34 3c 57 62 25 21 38 84 57 |. Wb%!64<Wb%!8.W|
000061e0 62 25 21 36 34 3e 57 62 25 21 31 36 20 3d a3 0d |b%!64>Wb%!16 =..|
000061f0 03 e0 14 58 3d a4 58 50 28 4e 25 2c 57 62 25 21 |...X=.XP(N%,Wb%!|
00006200 36 30 29 0d 03 e1 14 59 3d a4 59 50 28 4e 25 2c |60)....Y=.YP(N%,|
00006210 57 62 25 21 36 34 29 0d 03 e2 1f e7 20 58 3c 47 |Wb%!64)..... X<G|
00006220 70 28 4e 25 2c 30 29 20 84 58 3e 47 70 28 4e 25 |p(N%,0) .X>Gp(N%|
00006230 2c 31 29 20 3d a3 0d 03 e3 1f e7 20 59 3c 47 70 |,1) =...... Y<Gp|
00006240 28 4e 25 2c 32 29 20 84 59 3e 47 70 28 4e 25 2c |(N%,2) .Y>Gp(N%,|
00006250 33 29 20 3d a3 0d 03 e4 06 3d b9 0d 03 e5 13 dd |3) =.....=......|
00006260 20 a4 50 4d 6f 76 65 28 58 25 2c 59 25 29 0d 03 | .PMove(X%,Y%)..|
00006270 e6 20 c8 99 22 57 69 6d 70 5f 47 65 74 50 6f 69 |. .."Wimp_GetPoi|
00006280 6e 74 65 72 49 6e 66 6f 22 2c 2c 57 62 25 0d 03 |nterInfo",,Wb%..|
00006290 e7 19 e7 20 58 25 3d 21 57 62 25 80 59 25 3d 57 |... X%=!Wb%.Y%=W|
000062a0 62 25 21 34 20 3d a3 0d 03 e8 16 50 58 25 3d 21 |b%!4 =.....PX%=!|
000062b0 57 62 25 3a 50 59 25 3d 57 62 25 21 34 0d 03 e9 |Wb%:PY%=Wb%!4...|
000062c0 06 3d b9 0d 03 ea 0d dd 20 f2 42 45 28 42 25 29 |.=...... .BE(B%)|
000062d0 0d 03 eb 1c ea 20 6e 25 2c 77 25 2c 69 25 2c 78 |..... n%,w%,i%,x|
000062e0 25 2c 78 31 25 2c 79 25 2c 79 31 25 0d 03 ec 36 |%,x1%,y%,y1%...6|
000062f0 e7 20 43 64 25 3c 3e b9 20 21 57 62 25 3d 43 64 |. Cd%<>. !Wb%=Cd|
00006300 25 3a c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 57 |%:.."Wimp_CloseW|
00006310 69 6e 64 6f 77 22 2c 2c 57 62 25 3a 43 64 25 3d |indow",,Wb%:Cd%=|
00006320 b9 20 0d 03 ed 16 ff 22 50 4f 49 4e 54 45 52 20 |. ....."POINTER |
00006330 31 22 3a 49 67 25 3d a3 0d 03 ee 12 e7 20 ac 44 |1":Ig%=...... .D|
00006340 79 25 20 4d 25 3d 4d 25 84 31 0d 03 ef 12 6e 25 |y% M%=M%.1....n%|
00006350 3d a4 46 69 6e 64 57 28 4d 57 25 29 0d 03 f0 09 |=.FindW(MW%)....|
00006360 44 67 25 3d a3 0d 03 f1 0a 77 25 3d a4 46 74 0d |Dg%=.....w%=.Ft.|
00006370 03 f2 0c e7 20 6e 25 3c 30 20 e1 0d 03 f3 0c e7 |.... n%<0 ......|
00006380 20 77 25 3c 30 20 8c 0d 03 f4 48 c8 99 22 57 69 | w%<0 ....H.."Wi|
00006390 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c |mp_ReportError",|
000063a0 c4 34 2c bd 28 30 29 29 2b 22 53 6f 72 72 79 2c |.4,.(0))+"Sorry,|
000063b0 20 61 6c 6c 20 73 6c 6f 74 73 20 6f 63 63 75 70 | all slots occup|
000063c0 69 65 64 2e 22 2c 31 2c 22 47 72 61 70 68 22 0d |ied.",1,"Graph".|
000063d0 03 f5 09 4d 57 25 3d b9 0d 03 f6 05 e1 0d 03 f7 |...MW%=.........|
000063e0 05 cd 0d 03 f8 28 21 57 62 25 3d 4d 57 25 3a c8 |.....(!Wb%=MW%:.|
000063f0 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 |."Wimp_GetWindow|
00006400 49 6e 66 6f 22 2c 2c 57 62 25 0d 03 f9 09 4d 57 |Info",,Wb%....MW|
00006410 25 3d b9 0d 03 fa 19 e7 21 42 25 3e 42 25 21 38 |%=......!B%>B%!8|
00006420 20 c8 94 20 21 42 25 2c 42 25 21 38 0d 03 fb 1e | .. !B%,B%!8....|
00006430 e7 20 42 25 21 34 3e 42 25 21 31 32 20 c8 94 20 |. B%!4>B%!12 .. |
00006440 42 25 21 34 2c 42 25 21 31 32 0d 03 fc 2c 21 57 |B%!4,B%!12...,!W|
00006450 62 25 3d 47 77 25 28 47 6e 25 29 3a c8 99 22 58 |b%=Gw%(Gn%):.."X|
00006460 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 |Wimp_CloseWindow|
00006470 22 2c 2c 57 62 25 0d 03 fd 0a 47 6e 25 3d 77 25 |",,Wb%....Gn%=w%|
00006480 0d 03 fe 21 e7 20 48 70 25 28 47 6e 25 2c 33 29 |...!. Hp%(Gn%,3)|
00006490 3d 30 20 f2 43 4d 28 47 6e 25 2c 33 2c 54 73 25 |=0 .CM(Gn%,3,Ts%|
000064a0 29 0d 03 ff 12 e7 20 47 77 25 28 47 6e 25 29 3d |)..... Gw%(Gn%)=|
000064b0 30 20 8c 0d 04 00 31 20 20 47 77 25 28 47 6e 25 |0 ....1 Gw%(Gn%|
000064c0 29 3d a4 4c 4e 57 28 50 68 24 2b 22 54 65 6d 70 |)=.LNW(Ph$+"Temp|
000064d0 6c 61 74 65 73 22 2c 22 50 6c 6f 74 57 69 6e 64 |lates","PlotWind|
000064e0 6f 77 22 29 0d 04 01 05 cd 0d 04 02 25 20 20 f2 |ow")........% .|
000064f0 4c 53 28 47 77 25 28 47 6e 25 29 2c 35 2c a4 52 |LS(Gw%(Gn%),5,.R|
00006500 65 53 28 47 77 25 28 6e 25 29 2c 35 29 29 0d 04 |eS(Gw%(n%),5))..|
00006510 03 27 20 20 f2 4c 53 28 47 77 25 28 47 6e 25 29 |.' .LS(Gw%(Gn%)|
00006520 2c 31 30 2c a4 52 65 53 28 47 77 25 28 6e 25 29 |,10,.ReS(Gw%(n%)|
00006530 2c 31 30 29 29 0d 04 04 42 20 20 f2 4c 4e 28 47 |,10))...B .LN(G|
00006540 77 25 28 47 6e 25 29 2c 31 31 2c a4 58 50 50 28 |w%(Gn%),11,.XPP(|
00006550 6e 25 2c 21 42 25 29 29 3a f2 4c 4e 28 47 77 25 |n%,!B%)):.LN(Gw%|
00006560 28 47 6e 25 29 2c 31 32 2c a4 58 50 50 28 6e 25 |(Gn%),12,.XPP(n%|
00006570 2c 42 25 21 38 29 29 0d 04 05 44 20 20 f2 4c 4e |,B%!8))...D .LN|
00006580 28 47 77 25 28 47 6e 25 29 2c 31 33 2c a4 59 50 |(Gw%(Gn%),13,.YP|
00006590 50 28 6e 25 2c 42 25 21 34 29 29 3a f2 4c 4e 28 |P(n%,B%!4)):.LN(|
000065a0 47 77 25 28 47 6e 25 29 2c 31 34 2c a4 59 50 50 |Gw%(Gn%),14,.YPP|
000065b0 28 6e 25 2c 42 25 21 31 32 29 29 0d 04 06 11 20 |(n%,B%!12)).... |
000065c0 20 e3 20 69 25 3d 31 31 20 b8 31 34 0d 04 07 2c | . i%=11 .14...,|
000065d0 20 20 f2 4c 53 28 47 77 25 28 47 6e 25 29 2c 69 | .LS(Gw%(Gn%),i|
000065e0 25 2c c0 a4 52 65 53 28 47 77 25 28 47 6e 25 29 |%,..ReS(Gw%(Gn%)|
000065f0 2c 69 25 29 2c 36 29 29 0d 04 08 07 20 20 ed 0d |,i%),6)).... ..|
00006600 04 09 12 20 20 e7 20 a4 43 43 28 47 6e 25 29 20 |... . .CC(Gn%) |
00006610 8c 0d 04 0a 11 20 20 e3 20 69 25 3d 31 35 20 b8 |..... . i%=15 .|
00006620 31 39 0d 04 0b 27 20 20 f2 4c 53 28 47 77 25 28 |19...' .LS(Gw%(|
00006630 47 6e 25 29 2c 69 25 2c a4 52 65 53 28 47 77 25 |Gn%),i%,.ReS(Gw%|
00006640 28 6e 25 29 2c 69 25 29 29 0d 04 0c 07 20 20 ed |(n%),i%)).... .|
00006650 0d 04 0d 27 20 20 f2 4c 53 28 47 77 25 28 47 6e |...' .LS(Gw%(Gn|
00006660 25 29 2c 33 30 2c a4 52 65 53 28 47 77 25 28 6e |%),30,.ReS(Gw%(n|
00006670 25 29 2c 33 30 29 29 0d 04 0e 1c 20 20 47 77 25 |%),30)).... Gw%|
00006680 28 47 6e 25 29 3d a4 43 57 28 47 77 25 28 47 6e |(Gn%)=.CW(Gw%(Gn|
00006690 25 29 29 0d 04 0f 0e 20 20 f2 53 4d 28 47 6e 25 |%)).... .SM(Gn%|
000066a0 29 0d 04 10 0e 20 20 f2 53 50 28 47 6e 25 29 0d |).... .SP(Gn%).|
000066b0 04 11 0e 20 20 f2 53 50 28 47 6e 25 29 0d 04 12 |... .SP(Gn%)...|
000066c0 28 20 20 e7 20 48 70 25 28 47 6e 25 2c 33 29 3c |( . Hp%(Gn%,3)<|
000066d0 3e 30 20 f2 6f 77 28 47 77 25 28 47 6e 25 29 2c |>0 .ow(Gw%(Gn%),|
000066e0 30 2c 2d 31 29 0d 04 13 07 20 20 cd 0d 04 14 04 |0,-1).... .....|
000066f0 0d 04 15 05 e1 0d 04 16 04 0d 04 17 0f dd 20 a4 |.............. .|
00006700 58 50 28 4e 25 2c 58 29 0d 04 18 0c ea 20 78 25 |XP(N%,X)..... x%|
00006710 2c 78 31 25 0d 04 19 12 57 62 25 21 36 38 3d 47 |,x1%....Wb%!68=G|
00006720 61 25 28 4e 25 29 0d 04 1a 22 c8 99 22 57 69 6d |a%(N%)...".."Wim|
00006730 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 6f 22 |p_GetWindowInfo"|
00006740 2c 2c 57 62 25 2b 36 38 0d 04 1b 5c 78 25 3d 28 |,,Wb%+68...\x%=(|
00006750 57 62 25 21 37 32 2d 57 62 25 21 38 38 29 2b 48 |Wb%!72-Wb%!88)+H|
00006760 70 25 28 4e 25 2c 33 29 21 39 36 2d 32 3a 78 31 |p%(N%,3)!96-2:x1|
00006770 25 3d 28 28 57 62 25 21 37 32 2d 57 62 25 21 38 |%=((Wb%!72-Wb%!8|
00006780 38 29 2b 28 57 62 25 21 31 32 30 2d 57 62 25 21 |8)+(Wb%!120-Wb%!|
00006790 31 31 32 29 29 2d 48 70 25 28 4e 25 2c 33 29 21 |112))-Hp%(N%,3)!|
000067a0 39 36 2d 32 0d 04 1c 33 3d 28 28 58 2d 78 25 29 |96-2...3=((X-x%)|
000067b0 2f 28 78 31 25 2d 78 25 29 29 2a 28 47 70 28 4e |/(x1%-x%))*(Gp(N|
000067c0 25 2c 31 29 2d 47 70 28 4e 25 2c 30 29 29 2b 47 |%,1)-Gp(N%,0))+G|
000067d0 70 28 4e 25 2c 30 29 0d 04 1d 04 0d 04 1e 0f dd |p(N%,0).........|
000067e0 20 a4 59 50 28 4e 25 2c 59 29 0d 04 1f 0c ea 20 | .YP(N%,Y)..... |
000067f0 79 25 2c 79 31 25 0d 04 20 12 57 62 25 21 36 38 |y%,y1%.. .Wb%!68|
00006800 3d 47 61 25 28 4e 25 29 0d 04 21 22 c8 99 22 57 |=Ga%(N%)..!".."W|
00006810 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 |imp_GetWindowInf|
00006820 6f 22 2c 2c 57 62 25 2b 36 38 0d 04 22 61 79 31 |o",,Wb%+68.."ay1|
00006830 25 3d 28 57 62 25 21 38 34 2d 57 62 25 21 39 32 |%=(Wb%!84-Wb%!92|
00006840 29 2d 28 57 62 25 21 31 32 34 2d 57 62 25 21 31 |)-(Wb%!124-Wb%!1|
00006850 31 36 29 3a 79 25 3d 79 31 25 2b 48 70 25 28 4e |16):y%=y1%+Hp%(N|
00006860 25 2c 33 29 21 31 30 30 3a 79 31 25 3d 79 31 25 |%,3)!100:y1%=y1%|
00006870 2b 48 70 25 28 4e 25 2c 33 29 21 39 32 2d 48 70 |+Hp%(N%,3)!92-Hp|
00006880 25 28 4e 25 2c 33 29 21 31 30 30 0d 04 23 33 3d |%(N%,3)!100..#3=|
00006890 28 28 59 2d 79 25 29 2f 28 79 31 25 2d 79 25 29 |((Y-y%)/(y1%-y%)|
000068a0 29 2a 28 47 70 28 4e 25 2c 33 29 2d 47 70 28 4e |)*(Gp(N%,3)-Gp(N|
000068b0 25 2c 32 29 29 2b 47 70 28 4e 25 2c 32 29 0d 04 |%,2))+Gp(N%,2)..|
000068c0 24 04 0d 04 25 10 dd 20 a4 58 47 50 28 4e 25 2c |$...%.. .XGP(N%,|
000068d0 58 29 0d 04 26 10 21 57 62 25 3d 47 61 25 28 4e |X)..&.!Wb%=Ga%(N|
000068e0 25 29 0d 04 27 1f c8 99 22 57 69 6d 70 5f 47 65 |%)..'..."Wimp_Ge|
000068f0 74 57 69 6e 64 6f 77 49 6e 66 6f 22 2c 2c 57 62 |tWindowInfo",,Wb|
00006900 25 0d 04 28 63 3d 28 28 28 58 2d 47 70 28 4e 25 |%..(c=(((X-Gp(N%|
00006910 2c 30 29 29 2f 28 47 70 28 4e 25 2c 31 29 2d 47 |,0))/(Gp(N%,1)-G|
00006920 70 28 4e 25 2c 30 29 29 29 2a 28 48 70 25 28 4e |p(N%,0)))*(Hp%(N|
00006930 25 2c 33 29 21 38 38 2d 32 2a 48 70 25 28 4e 25 |%,3)!88-2*Hp%(N%|
00006940 2c 33 29 21 39 36 29 29 2b 28 57 62 25 21 34 2d |,3)!96))+(Wb%!4-|
00006950 57 62 25 21 32 30 29 2b 48 70 25 28 4e 25 2c 33 |Wb%!20)+Hp%(N%,3|
00006960 29 21 39 36 0d 04 29 04 0d 04 2a 10 dd 20 a4 59 |)!96..)...*.. .Y|
00006970 47 50 28 4e 25 2c 59 29 0d 04 2b 10 21 57 62 25 |GP(N%,Y)..+.!Wb%|
00006980 3d 47 61 25 28 4e 25 29 0d 04 2c 1f c8 99 22 57 |=Ga%(N%)..,..."W|
00006990 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 |imp_GetWindowInf|
000069a0 6f 22 2c 2c 57 62 25 0d 04 2d 7a 3d 28 28 28 59 |o",,Wb%..-z=(((Y|
000069b0 2d 47 70 28 4e 25 2c 32 29 29 2f 28 47 70 28 4e |-Gp(N%,2))/(Gp(N|
000069c0 25 2c 33 29 2d 47 70 28 4e 25 2c 32 29 29 29 2a |%,3)-Gp(N%,2)))*|
000069d0 28 48 70 25 28 4e 25 2c 33 29 21 39 32 2d 32 2a |(Hp%(N%,3)!92-2*|
000069e0 48 70 25 28 4e 25 2c 33 29 21 31 30 30 29 29 2b |Hp%(N%,3)!100))+|
000069f0 28 28 57 62 25 21 31 36 2d 57 62 25 21 32 34 29 |((Wb%!16-Wb%!24)|
00006a00 2d 28 57 62 25 21 35 36 2d 57 62 25 21 34 38 29 |-(Wb%!56-Wb%!48)|
00006a10 29 2b 48 70 25 28 4e 25 2c 33 29 21 31 30 30 2d |)+Hp%(N%,3)!100-|
00006a20 32 0d 04 2e 04 0d 04 2f 0d dd 20 f2 43 64 28 57 |2....../.. .Cd(W|
00006a30 25 29 0d 04 30 0c 43 64 25 3d 43 64 57 25 0d 04 |%)..0.Cd%=CdW%..|
00006a40 31 13 e7 20 43 64 25 3d 30 20 43 64 25 3d b9 3a |1.. Cd%=0 Cd%=.:|
00006a50 e1 0d 04 32 0b f2 4d 43 28 57 25 29 0d 04 33 05 |...2..MC(W%)..3.|
00006a60 e1 0d 04 34 04 0d 04 35 05 e1 0d 04 36 0d dd 20 |...4...5....6.. |
00006a70 f2 4d 43 28 57 25 29 0d 04 37 29 21 57 62 25 3d |.MC(W%)..7)!Wb%=|
00006a80 43 64 57 25 3a c8 99 22 57 69 6d 70 5f 47 65 74 |CdW%:.."Wimp_Get|
00006a90 57 69 6e 64 6f 77 49 6e 66 6f 22 2c 2c 57 62 25 |WindowInfo",,Wb%|
00006aa0 0d 04 38 2f 57 62 25 21 36 30 3d 57 25 3a c8 99 |..8/Wb%!60=W%:..|
00006ab0 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 4f |"Wimp_GetWindowO|
00006ac0 75 74 6c 69 6e 65 22 2c 2c 57 62 25 2b 36 30 0d |utline",,Wb%+60.|
00006ad0 04 39 2e 57 62 25 21 31 32 3d 57 62 25 21 36 34 |.9.Wb%!12=Wb%!64|
00006ae0 2b 28 57 62 25 21 35 32 2d 57 62 25 21 34 34 29 |+(Wb%!52-Wb%!44)|
00006af0 3a 57 62 25 21 34 3d 57 62 25 21 36 34 0d 04 3a |:Wb%!4=Wb%!64..:|
00006b00 2e 57 62 25 21 31 36 3d 57 62 25 21 36 38 3a 57 |.Wb%!16=Wb%!68:W|
00006b10 62 25 21 38 3d 57 62 25 21 31 36 2d 28 57 62 25 |b%!8=Wb%!16-(Wb%|
00006b20 21 35 36 2d 57 62 25 21 34 38 29 0d 04 3b 0d 57 |!56-Wb%!48)..;.W|
00006b30 62 25 21 32 38 3d 2d 31 0d 04 3c 1c c8 99 22 57 |b%!28=-1..<..."W|
00006b40 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c |imp_OpenWindow",|
00006b50 2c 57 62 25 0d 04 3d 05 e1 0d 04 3e 04 0d 04 3f |,Wb%..=....>...?|
00006b60 0d dd 20 f2 55 43 28 57 25 29 0d 04 40 0c ea 20 |.. .UC(W%)..@.. |
00006b70 6e 25 2c 78 2c 79 0d 04 41 11 6e 25 3d a4 46 69 |n%,x,y..A.n%=.Fi|
00006b80 6e 64 57 28 57 25 29 0d 04 42 23 c8 99 22 57 69 |ndW(W%)..B#.."Wi|
00006b90 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 |mp_GetPointerInf|
00006ba0 6f 22 2c 2c 57 62 25 2b 36 30 0d 04 43 15 78 3d |o",,Wb%+60..C.x=|
00006bb0 a4 58 50 50 28 6e 25 2c 57 62 25 21 36 30 29 0d |.XPP(n%,Wb%!60).|
00006bc0 04 44 15 79 3d a4 59 50 50 28 6e 25 2c 57 62 25 |.D.y=.YPP(n%,Wb%|
00006bd0 21 36 34 29 0d 04 45 10 f2 4c 4e 28 43 64 25 2c |!64)..E..LN(Cd%,|
00006be0 31 2c 78 29 0d 04 46 10 f2 4c 4e 28 43 64 25 2c |1,x)..F..LN(Cd%,|
00006bf0 34 2c 79 29 0d 04 47 05 e1 0d 04 48 04 0d 04 49 |4,y)..G....H...I|
00006c00 09 dd 20 f2 4e 43 0d 04 4a 1e f2 4c 53 28 43 64 |.. .NC..J..LS(Cd|
00006c10 25 2c 31 2c 22 4f 75 74 73 69 64 65 20 47 72 61 |%,1,"Outside Gra|
00006c20 70 68 22 29 0d 04 4b 1e f2 4c 53 28 43 64 25 2c |ph")..K..LS(Cd%,|
00006c30 34 2c 22 4f 75 74 73 69 64 65 20 47 72 61 70 68 |4,"Outside Graph|
00006c40 22 29 0d 04 4c 05 e1 0d 04 4d 04 0d 04 4e 04 0d |")..L....M...N..|
00006c50 04 4f 11 dd 20 a4 58 50 50 28 4e 25 2c 58 25 29 |.O.. .XPP(N%,X%)|
00006c60 0d 04 50 07 ea 20 78 0d 04 51 10 78 3d a4 58 50 |..P.. x..Q.x=.XP|
00006c70 28 4e 25 2c 58 25 29 0d 04 52 1b e7 20 78 3c 47 |(N%,X%)..R.. x<G|
00006c80 70 28 4e 25 2c 30 29 20 78 3d 47 70 28 4e 25 2c |p(N%,0) x=Gp(N%,|
00006c90 30 29 0d 04 53 1b e7 20 78 3e 47 70 28 4e 25 2c |0)..S.. x>Gp(N%,|
00006ca0 31 29 20 78 3d 47 70 28 4e 25 2c 31 29 0d 04 54 |1) x=Gp(N%,1)..T|
00006cb0 06 3d 78 0d 04 55 04 0d 04 56 11 dd 20 a4 59 50 |.=x..U...V.. .YP|
00006cc0 50 28 4e 25 2c 59 25 29 0d 04 57 07 ea 20 79 0d |P(N%,Y%)..W.. y.|
00006cd0 04 58 10 79 3d a4 59 50 28 4e 25 2c 59 25 29 0d |.X.y=.YP(N%,Y%).|
00006ce0 04 59 1b e7 20 79 3c 47 70 28 4e 25 2c 32 29 20 |.Y.. y<Gp(N%,2) |
00006cf0 79 3d 47 70 28 4e 25 2c 32 29 0d 04 5a 1b e7 20 |y=Gp(N%,2)..Z.. |
00006d00 79 3e 47 70 28 4e 25 2c 33 29 20 79 3d 47 70 28 |y>Gp(N%,3) y=Gp(|
00006d10 4e 25 2c 33 29 0d 04 5b 06 3d 79 0d 04 5c 04 0d |N%,3)..[.=y..\..|
00006d20 04 5d 10 dd 20 a4 53 57 28 46 25 2c 53 24 29 0d |.].. .SW(F%,S$).|
00006d30 04 5e 08 ea 20 78 25 0d 04 5f 17 c8 99 22 46 6f |.^.. x%.._..."Fo|
00006d40 6e 74 5f 53 65 74 46 6f 6e 74 22 2c 46 25 0d 04 |nt_SetFont",F%..|
00006d50 60 25 c8 99 22 46 6f 6e 74 5f 53 74 72 69 6e 67 |`%.."Font_String|
00006d60 42 42 6f 78 22 2c 2c 53 24 20 b8 20 2c 78 25 2c |BBox",,S$ . ,x%,|
00006d70 2c 46 25 0d 04 61 25 c8 99 22 46 6f 6e 74 5f 43 |,F%..a%.."Font_C|
00006d80 6f 6e 76 65 72 74 74 6f 4f 53 22 2c 2c 46 25 2d |onverttoOS",,F%-|
00006d90 78 25 20 b8 20 2c 78 25 0d 04 62 07 3d 78 25 0d |x% . ,x%..b.=x%.|
00006da0 04 63 04 0d 04 64 04 0d 04 65 0e dd 20 a4 53 48 |.c...d...e.. .SH|
00006db0 44 28 46 25 29 0d 04 66 0d ea 20 59 31 25 2c 59 |D(F%)..f.. Y1%,Y|
00006dc0 32 25 0d 04 67 25 c8 99 22 46 6f 6e 74 5f 52 65 |2%..g%.."Font_Re|
00006dd0 61 64 49 6e 66 6f 22 2c 46 25 20 b8 20 2c 2c 59 |adInfo",F% . ,,Y|
00006de0 31 25 2c 2c 59 32 25 0d 04 68 24 c8 99 22 46 6f |1%,,Y2%..h$.."Fo|
00006df0 6e 74 5f 52 65 61 64 44 65 66 6e 22 2c 46 25 2c |nt_ReadDefn",F%,|
00006e00 57 62 25 20 b8 20 2c 2c 2c 46 25 0d 04 69 2a c8 |Wb% . ,,,F%..i*.|
00006e10 99 22 46 6f 6e 74 5f 43 6f 6e 76 65 72 74 74 6f |."Font_Convertto|
00006e20 4f 53 22 2c 2c 31 2c 46 25 2a 36 32 2e 35 20 b8 |OS",,1,F%*62.5 .|
00006e30 20 2c 2c 46 25 0d 04 6a 11 3d 28 59 32 25 2d 59 | ,,F%..j.=(Y2%-Y|
00006e40 31 25 29 2d 46 25 0d 04 6b 1b dd 20 f2 47 46 28 |1%)-F%..k.. .GF(|
00006e50 4e 25 2c 6e 25 2c 53 58 25 2c 53 59 25 2c 46 24 |N%,n%,SX%,SY%,F$|
00006e60 29 0d 04 6c 30 c8 99 22 46 6f 6e 74 5f 43 6f 6e |)..l0.."Font_Con|
00006e70 76 65 72 74 74 6f 70 6f 69 6e 74 73 22 2c 2c 53 |verttopoints",,S|
00006e80 58 25 2c 53 59 25 20 b8 20 2c 53 58 25 2c 53 59 |X%,SY% . ,SX%,SY|
00006e90 25 0d 04 6d 1d 53 58 25 3d 53 58 25 2f 31 30 30 |%..m.SX%=SX%/100|
00006ea0 30 3a 53 59 25 3d 53 59 25 2f 31 30 30 30 0d 04 |0:SY%=SY%/1000..|
00006eb0 6e 43 e7 20 53 59 25 3e 6d 61 78 33 25 20 c8 99 |nC. SY%>max3% ..|
00006ec0 22 46 6f 6e 74 5f 53 65 74 46 6f 6e 74 4d 61 78 |"Font_SetFontMax|
00006ed0 22 2c 4d 61 78 30 25 2c 4d 61 78 31 25 2c 4d 61 |",Max0%,Max1%,Ma|
00006ee0 78 32 25 2c 53 59 25 3a 6d 61 78 33 25 3d 53 59 |x2%,SY%:max3%=SY|
00006ef0 25 0d 04 6f 39 c8 99 22 46 6f 6e 74 5f 46 69 6e |%..o9.."Font_Fin|
00006f00 64 46 6f 6e 74 22 2c 2c 46 24 2c 53 58 25 2a 31 |dFont",,F$,SX%*1|
00006f10 36 2c 53 59 25 2a 31 36 2c 30 2c 30 20 20 b8 20 |6,SY%*16,0,0 . |
00006f20 46 68 25 28 4e 25 2c 6e 25 29 0d 04 70 05 e1 0d |Fh%(N%,n%)..p...|
00006f30 04 71 0a dd 20 f2 4c 46 73 0d 04 72 0b ea 20 4e |.q.. .LFs..r.. N|
00006f40 25 2c 6e 25 0d 04 73 0c c8 95 20 6e 25 3c 3d 31 |%,n%..s... n%<=1|
00006f50 0d 04 74 08 4e 25 3d 30 0d 04 75 0e c8 95 20 4e |..t.N%=0..u... N|
00006f60 25 3c 3d 4e 67 25 0d 04 76 30 e7 20 46 68 25 28 |%<=Ng%..v0. Fh%(|
00006f70 4e 25 2c 6e 25 29 3e 3d 30 20 c8 99 22 46 6f 6e |N%,n%)>=0 .."Fon|
00006f80 74 5f 4c 6f 73 65 46 6f 6e 74 22 2c 46 68 25 28 |t_LoseFont",Fh%(|
00006f90 4e 25 2c 6e 25 29 0d 04 77 10 46 68 25 28 4e 25 |N%,n%)..w.Fh%(N%|
00006fa0 2c 6e 25 29 3d b9 0d 04 78 09 4e 25 2b 3d 31 0d |,n%)=...x.N%+=1.|
00006fb0 04 79 05 ce 0d 04 7a 09 6e 25 2b 3d 31 0d 04 7b |.y....z.n%+=1..{|
00006fc0 05 ce 0d 04 7c 08 f2 4c 44 46 0d 04 7d 05 e1 0d |....|..LDF..}...|
00006fd0 04 7e 0a dd 20 f2 4c 44 46 0d 04 7f 0b ea 20 4e |.~.. .LDF..... N|
00006fe0 25 2c 50 25 0d 04 80 0e e3 20 50 25 3d 30 b8 32 |%,P%..... P%=0.2|
00006ff0 35 35 0d 04 81 11 c8 95 20 46 6f 6e 74 25 3f 50 |55...... Font%?P|
00007000 25 3e 30 0d 04 82 18 c8 99 22 46 6f 6e 74 5f 4c |%>0......"Font_L|
00007010 6f 73 65 46 6f 6e 74 22 2c 50 25 0d 04 83 0f 46 |oseFont",P%....F|
00007020 6f 6e 74 25 3f 50 25 2d 3d 31 0d 04 84 05 ce 0d |ont%?P%-=1......|
00007030 04 85 05 ed 0d 04 86 05 e1 0d 04 87 10 dd 20 a4 |.............. .|
00007040 46 4e 28 46 24 2c 42 25 29 0d 04 88 08 ea 20 43 |FN(F$,B%)..... C|
00007050 25 0d 04 89 05 f5 0d 04 8a 27 c8 99 22 46 6f 6e |%........'.."Fon|
00007060 74 5f 4c 69 73 74 46 6f 6e 74 73 22 2c 2c 42 25 |t_ListFonts",,B%|
00007070 2c 43 25 2c 2d 31 20 b8 20 2c 2c 43 25 0d 04 8b |,C%,-1 . ,,C%...|
00007080 12 fd 20 46 24 3d 24 42 25 20 84 43 25 3c 30 0d |.. F$=$B% .C%<0.|
00007090 04 8c 07 3d 43 25 0d 04 8d 23 dd 20 f2 57 46 54 |...=C%...#. .WFT|
000070a0 74 28 4e 25 2c 54 24 2c 48 25 2c 58 25 2c 59 25 |t(N%,T$,H%,X%,Y%|
000070b0 2c 58 46 25 2c 59 46 25 29 0d 04 8e 09 ea 20 50 |,XF%,YF%)..... P|
000070c0 52 25 0d 04 8f 1b 57 62 25 21 33 32 3d a4 46 6f |R%....Wb%!32=.Fo|
000070d0 6e 74 44 65 66 28 4e 25 2c 57 62 25 29 0d 04 90 |ntDef(N%,Wb%)...|
000070e0 0a 21 57 62 25 3d 31 0d 04 91 32 57 62 25 21 38 |.!Wb%=1...2Wb%!8|
000070f0 3d 48 70 25 28 4e 25 2c 33 29 21 34 38 2a 32 35 |=Hp%(N%,3)!48*25|
00007100 36 3a 57 62 25 21 31 32 3d 48 70 25 28 4e 25 2c |6:Wb%!12=Hp%(N%,|
00007110 33 29 21 35 32 2a 32 35 36 0d 04 92 40 57 62 25 |3)!52*256...@Wb%|
00007120 21 31 36 3d 57 62 25 21 38 2b 48 70 25 28 4e 25 |!16=Wb%!8+Hp%(N%|
00007130 2c 33 29 21 35 36 2a 32 35 36 3a 57 62 25 21 32 |,3)!56*256:Wb%!2|
00007140 30 3d 57 62 25 21 31 32 2b 48 70 25 28 4e 25 2c |0=Wb%!12+Hp%(N%,|
00007150 33 29 21 36 30 2a 32 35 36 0d 04 93 0c 57 62 25 |3)!60*256....Wb%|
00007160 21 32 34 3d 30 0d 04 94 14 57 62 25 21 32 38 3d |!24=0....Wb%!28=|
00007170 26 46 46 46 46 46 46 30 30 0d 04 95 11 57 62 25 |&FFFFFF00....Wb%|
00007180 21 33 36 3d 58 46 25 2a 34 30 0d 04 96 11 57 62 |!36=XF%*40....Wb|
00007190 25 21 34 30 3d 59 46 25 2a 34 30 0d 04 97 11 57 |%!40=YF%*40....W|
000071a0 62 25 21 34 34 3d 58 25 2a 32 35 36 0d 04 98 11 |b%!44=X%*256....|
000071b0 57 62 25 21 34 38 3d 59 25 2a 32 35 36 0d 04 99 |Wb%!48=Y%*256...|
000071c0 25 24 28 57 62 25 2b 35 32 29 3d 54 24 2b c4 34 |%$(Wb%+52)=T$+.4|
000071d0 2d 28 28 a9 28 54 24 29 29 83 34 29 2c bd 28 30 |-((.(T$)).4),.(0|
000071e0 29 29 0d 04 9a 19 57 62 25 21 34 3d a9 28 24 28 |))....Wb%!4=.($(|
000071f0 57 62 25 2b 35 32 29 29 2b 35 32 0d 04 9b 1c c8 |Wb%+52))+52.....|
00007200 99 22 4f 53 5f 41 72 67 73 22 2c 32 2c 48 25 20 |."OS_Args",2,H% |
00007210 b8 20 2c 2c 50 52 25 0d 04 9c 18 c8 99 22 4f 53 |. ,,PR%......"OS|
00007220 5f 41 72 67 73 22 2c 31 2c 48 25 2c 50 52 25 0d |_Args",1,H%,PR%.|
00007230 04 9d 22 c8 99 22 4f 53 5f 47 42 50 42 22 2c 31 |..".."OS_GBPB",1|
00007240 2c 48 25 2c 57 62 25 2c 57 62 25 21 34 2c 50 52 |,H%,Wb%,Wb%!4,PR|
00007250 25 0d 04 9e 05 e1 0d 04 9f 17 dd 20 f2 57 50 4f |%.......... .WPO|
00007260 28 4e 25 2c 50 25 2c 4c 25 2c 48 25 29 0d 04 a0 |(N%,P%,L%,H%)...|
00007270 09 ea 20 50 52 25 0d 04 a1 0a 21 57 62 25 3d 32 |.. PR%....!Wb%=2|
00007280 0d 04 a2 0f 57 62 25 21 34 3d 34 30 2b 4c 25 0d |....Wb%!4=40+L%.|
00007290 04 a3 32 57 62 25 21 38 3d 48 70 25 28 4e 25 2c |..2Wb%!8=Hp%(N%,|
000072a0 33 29 21 34 38 2a 32 35 36 3a 57 62 25 21 31 32 |3)!48*256:Wb%!12|
000072b0 3d 48 70 25 28 4e 25 2c 33 29 21 35 32 2a 32 35 |=Hp%(N%,3)!52*25|
000072c0 36 0d 04 a4 40 57 62 25 21 31 36 3d 57 62 25 21 |6...@Wb%!16=Wb%!|
000072d0 38 2b 48 70 25 28 4e 25 2c 33 29 21 35 36 2a 32 |8+Hp%(N%,3)!56*2|
000072e0 35 36 3a 57 62 25 21 32 30 3d 57 62 25 21 31 32 |56:Wb%!20=Wb%!12|
000072f0 2b 48 70 25 28 4e 25 2c 33 29 21 36 30 2a 32 35 |+Hp%(N%,3)!60*25|
00007300 36 0d 04 a5 0d 57 62 25 21 32 34 3d 2d 31 0d 04 |6....Wb%!24=-1..|
00007310 a6 0c 57 62 25 21 32 38 3d 30 0d 04 a7 0c 57 62 |..Wb%!28=0....Wb|
00007320 25 21 33 32 3d 30 0d 04 a8 0c 57 62 25 21 33 36 |%!32=0....Wb%!36|
00007330 3d 30 0d 04 a9 1c c8 99 22 4f 53 5f 41 72 67 73 |=0......"OS_Args|
00007340 22 2c 32 2c 48 25 20 b8 20 2c 2c 50 52 25 0d 04 |",2,H% . ,,PR%..|
00007350 aa 18 c8 99 22 4f 53 5f 41 72 67 73 22 2c 31 2c |...."OS_Args",1,|
00007360 48 25 2c 50 52 25 0d 04 ab 1f c8 99 22 4f 53 5f |H%,PR%......"OS_|
00007370 47 42 50 42 22 2c 31 2c 48 25 2c 57 62 25 2c 34 |GBPB",1,H%,Wb%,4|
00007380 30 2c 50 52 25 0d 04 ac 12 f2 43 4d 28 4e 25 2c |0,PR%.....CM(N%,|
00007390 35 2c 4c 25 2b 34 29 0d 04 ad 20 48 70 25 28 4e |5,L%+4)... Hp%(N|
000073a0 25 2c 35 29 21 30 3d 30 3a 48 70 25 28 4e 25 2c |%,5)!0=0:Hp%(N%,|
000073b0 35 29 21 34 3d 4c 25 0d 04 ae 3f c8 99 22 44 72 |5)!4=L%...?.."Dr|
000073c0 61 77 5f 54 72 61 6e 73 66 6f 72 6d 50 61 74 68 |aw_TransformPath|
000073d0 22 2c 50 25 2c 48 70 25 28 4e 25 2c 35 29 2c 48 |",P%,Hp%(N%,5),H|
000073e0 70 25 28 4e 25 2c 33 29 2b 32 34 2c 30 20 b8 20 |p%(N%,3)+24,0 . |
000073f0 50 6f 69 6e 74 25 0d 04 af 1c c8 99 22 4f 53 5f |Point%......"OS_|
00007400 41 72 67 73 22 2c 32 2c 48 25 20 b8 20 2c 2c 50 |Args",2,H% . ,,P|
00007410 52 25 0d 04 b0 18 c8 99 22 4f 53 5f 41 72 67 73 |R%......"OS_Args|
00007420 22 2c 31 2c 48 25 2c 50 52 25 0d 04 b1 25 c8 99 |",1,H%,PR%...%..|
00007430 22 4f 53 5f 47 42 50 42 22 2c 31 2c 48 25 2c 48 |"OS_GBPB",1,H%,H|
00007440 70 25 28 4e 25 2c 35 29 2c 4c 25 2c 50 52 25 0d |p%(N%,5),L%,PR%.|
00007450 04 b2 1c 48 70 25 28 4e 25 2c 35 29 3d a4 48 46 |...Hp%(N%,5)=.HF|
00007460 28 48 70 25 28 4e 25 2c 35 29 29 0d 04 b3 05 e1 |(Hp%(N%,5)).....|
00007470 0d 04 b4 11 dd 20 f2 57 46 54 28 4e 25 2c 48 25 |..... .WFT(N%,H%|
00007480 29 0d 04 b5 12 ea 20 46 25 2c 4c 25 2c 50 52 25 |)..... F%,L%,PR%|
00007490 2c 46 24 0d 04 b6 17 46 25 3d a4 46 6f 6e 74 44 |,F$....F%=.FontD|
000074a0 65 66 28 4e 25 2c 57 62 25 29 0d 04 b7 2a c8 99 |ef(N%,Wb%)...*..|
000074b0 22 46 6f 6e 74 5f 52 65 61 64 44 65 66 6e 22 2c |"Font_ReadDefn",|
000074c0 46 68 25 28 4e 25 2c 30 29 2c 57 62 25 20 b8 20 |Fh%(N%,0),Wb% . |
000074d0 2c 57 62 25 0d 04 b8 24 46 24 3d 24 57 62 25 2b |,Wb%...$F$=$Wb%+|
000074e0 c4 34 2d 28 28 a9 28 24 57 62 25 29 2b 31 29 83 |.4-((.($Wb%)+1).|
000074f0 34 29 2c bd 28 30 29 29 0d 04 b9 0e 4c 25 3d a9 |4),.(0))....L%=.|
00007500 28 46 24 29 2b 39 0d 04 ba 13 21 57 62 25 3d 30 |(F$)+9....!Wb%=0|
00007510 3a 57 62 25 21 34 3d 4c 25 0d 04 bb 0c 57 62 25 |:Wb%!4=L%....Wb%|
00007520 3f 38 3d 46 25 0d 04 bc 0f 24 28 57 62 25 2b 39 |?8=F%....$(Wb%+9|
00007530 29 3d 46 24 0d 04 bd 1c c8 99 22 4f 53 5f 41 72 |)=F$......"OS_Ar|
00007540 67 73 22 2c 32 2c 48 25 20 b8 20 2c 2c 50 52 25 |gs",2,H% . ,,PR%|
00007550 0d 04 be 18 c8 99 22 4f 53 5f 41 72 67 73 22 2c |......"OS_Args",|
00007560 31 2c 48 25 2c 50 52 25 0d 04 bf 1f c8 99 22 4f |1,H%,PR%......"O|
00007570 53 5f 47 42 50 42 22 2c 31 2c 48 25 2c 57 62 25 |S_GBPB",1,H%,Wb%|
00007580 2c 4c 25 2c 50 52 25 0d 04 c0 05 e1 0d 04 c1 15 |,L%,PR%.........|
00007590 dd 20 a4 46 6f 6e 74 44 65 66 28 4e 25 2c 42 25 |. .FontDef(N%,B%|
000075a0 29 0d 04 c2 28 c8 99 22 46 6f 6e 74 5f 52 65 61 |)...(.."Font_Rea|
000075b0 64 44 65 66 6e 22 2c 46 68 25 28 4e 25 2c 30 29 |dDefn",Fh%(N%,0)|
000075c0 2c 42 25 20 b8 20 2c 42 25 0d 04 c3 10 3d a4 46 |,B% . ,B%....=.F|
000075d0 4e 28 24 42 25 2c 42 25 29 0d 04 c4 04 0d 04 c5 |N($B%,B%).......|
000075e0 09 dd 20 f2 48 49 0d 04 c6 08 ea 20 54 25 0d 04 |.. .HI..... T%..|
000075f0 c7 1f c8 99 22 4f 53 5f 52 65 61 64 4d 65 6d 4d |...."OS_ReadMemM|
00007600 61 70 49 6e 66 6f 22 20 b8 20 50 53 25 0d 04 c8 |apInfo" . PS%...|
00007610 0b 48 53 25 3d 50 53 25 0d 04 c9 20 c8 99 22 57 |.HS%=PS%... .."W|
00007620 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 2d 31 |imp_SlotSize",-1|
00007630 2c 2d 31 20 b8 20 54 25 0d 04 ca 10 48 4c 25 3d |,-1 . T%....HL%=|
00007640 54 25 2b 26 38 30 30 30 0d 04 cb 26 c8 99 22 57 |T%+&8000...&.."W|
00007650 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 48 4c |imp_SlotSize",HL|
00007660 25 2b 48 53 25 2d 26 38 30 30 30 2c 2d 31 0d 04 |%+HS%-&8000,-1..|
00007670 cc 1a c8 99 22 4f 53 5f 48 65 61 70 22 2c 30 2c |...."OS_Heap",0,|
00007680 48 4c 25 2c 2c 48 53 25 0d 04 cd 05 e1 0d 04 ce |HL%,,HS%........|
00007690 0a dd 20 a4 48 4c 46 0d 04 cf 08 ea 20 54 25 0d |.. .HLF..... T%.|
000076a0 04 d0 1c c8 99 22 4f 53 5f 48 65 61 70 22 2c 31 |....."OS_Heap",1|
000076b0 2c 48 4c 25 20 b8 20 2c 2c 54 25 0d 04 d1 07 3d |,HL% . ,,T%....=|
000076c0 54 25 0d 04 d2 04 0d 04 d3 11 dd 20 a4 48 43 6d |T%......... .HCm|
000076d0 28 53 69 7a 65 25 29 0d 04 d4 08 ea 20 54 25 0d |(Size%)..... T%.|
000076e0 04 d5 1c e7 28 53 69 7a 65 25 83 20 50 53 25 29 |....(Size%. PS%)|
000076f0 3d 30 20 53 69 7a 65 25 2b 3d 34 0d 04 d6 24 c8 |=0 Size%+=4...$.|
00007700 99 22 58 4f 53 5f 48 65 61 70 22 2c 32 2c 48 4c |."XOS_Heap",2,HL|
00007710 25 2c 2c 53 69 7a 65 25 20 b8 20 2c 2c 54 25 0d |%,,Size% . ,,T%.|
00007720 04 d7 11 e7 20 54 25 3c 3e 30 20 8c 20 3d 54 25 |.... T%<>0 . =T%|
00007730 0d 04 d8 19 e7 20 a4 48 45 48 28 53 69 7a 65 25 |..... .HEH(Size%|
00007740 29 3d 20 a3 20 8c 20 3d 30 0d 04 d9 24 c8 99 22 |)= . . =0...$.."|
00007750 58 4f 53 5f 48 65 61 70 22 2c 32 2c 48 4c 25 2c |XOS_Heap",2,HL%,|
00007760 2c 53 69 7a 65 25 20 b8 20 2c 2c 54 25 0d 04 da |,Size% . ,,T%...|
00007770 07 f2 48 53 0d 04 db 07 3d 54 25 0d 04 dc 11 dd |..HS....=T%.....|
00007780 20 a4 48 45 48 28 53 69 7a 65 25 29 0d 04 dd 0e | .HEH(Size%)....|
00007790 ea 20 53 25 2c 46 25 2c 54 25 0d 04 de 15 53 25 |. S%,F%,T%....S%|
000077a0 3d a4 48 52 28 48 53 25 2b 53 69 7a 65 25 29 0d |=.HR(HS%+Size%).|
000077b0 04 df 16 e7 20 53 25 2d 48 53 25 3c 30 20 f2 48 |.... S%-HS%<0 .H|
000077c0 53 3a 20 3d b9 0d 04 e0 2b c8 99 22 58 57 69 6d |S: =....+.."XWim|
000077d0 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 48 4c 25 2b |p_SlotSize",HL%+|
000077e0 53 25 2d 26 38 30 30 30 2c 2d 31 20 b8 3b 46 25 |S%-&8000,-1 .;F%|
000077f0 0d 04 e1 11 e7 28 46 25 80 31 29 3d 31 20 8c 3d |.....(F%.1)=1 .=|
00007800 a3 0d 04 e2 1d c8 99 22 4f 53 5f 48 65 61 70 22 |......."OS_Heap"|
00007810 2c 35 2c 48 4c 25 2c 2c 53 25 2d 48 53 25 0d 04 |,5,HL%,,S%-HS%..|
00007820 e3 0a 48 53 25 3d 53 25 0d 04 e4 06 3d b9 0d 04 |..HS%=S%....=...|
00007830 e5 04 0d 04 e6 16 dd 20 a4 48 43 28 42 6b 25 2c |....... .HC(Bk%,|
00007840 43 68 61 6e 67 65 25 29 0d 04 e7 11 ea 20 4e 25 |Change%)..... N%|
00007850 2c 46 25 2c 54 25 2c 53 25 0d 04 e8 11 e7 20 43 |,F%,T%,S%..... C|
00007860 68 61 6e 67 65 25 3c 30 20 8c 0d 04 e9 21 c8 99 |hange%<0 ....!..|
00007870 22 4f 53 5f 48 65 61 70 22 2c 36 2c 48 4c 25 2c |"OS_Heap",6,HL%,|
00007880 42 6b 25 20 b8 20 2c 2c 2c 53 25 0d 04 ea 1d e7 |Bk% . ,,,S%.....|
00007890 20 43 68 61 6e 67 65 25 2b 53 25 3c 3d 30 20 3d | Change%+S%<=0 =|
000078a0 a4 48 46 28 42 6b 25 29 0d 04 eb 05 cd 0d 04 ec |.HF(Bk%)........|
000078b0 2c c8 99 22 58 4f 53 5f 48 65 61 70 22 2c 34 2c |,.."XOS_Heap",4,|
000078c0 48 4c 25 2c 42 6b 25 2c 43 68 61 6e 67 65 25 20 |HL%,Bk%,Change% |
000078d0 b8 20 2c 2c 4e 25 3b 46 25 0d 04 ed 0f e7 28 46 |. ,,N%;F%.....(F|
000078e0 25 80 31 29 3d 30 20 8c 0d 04 ee 10 e7 20 a4 48 |%.1)=0 ...... .H|
000078f0 4c 46 3e 30 20 f2 48 53 0d 04 ef 0f 3d a4 43 68 |LF>0 .HS....=.Ch|
00007900 65 63 6b 28 4e 25 29 0d 04 f0 05 cd 0d 04 f1 1a |eck(N%).........|
00007910 e7 20 a4 48 45 48 28 43 68 61 6e 67 65 25 29 3d |. .HEH(Change%)=|
00007920 a3 20 8c 20 3d 30 0d 04 f2 2c c8 99 22 58 4f 53 |. . =0...,.."XOS|
00007930 5f 48 65 61 70 22 2c 34 2c 48 4c 25 2c 42 6b 25 |_Heap",4,HL%,Bk%|
00007940 2c 43 68 61 6e 67 65 25 20 b8 20 2c 2c 4e 25 3b |,Change% . ,,N%;|
00007950 46 25 0d 04 f3 1a e7 28 46 25 80 31 29 3d 30 20 |F%.....(F%.1)=0 |
00007960 8c 3d a4 43 68 65 63 6b 28 4e 25 29 0d 04 f4 15 |.=.Check(N%)....|
00007970 4e 25 3d a4 48 45 48 28 2d 43 68 61 6e 67 65 25 |N%=.HEH(-Change%|
00007980 29 0d 04 f5 21 c8 99 22 4f 53 5f 48 65 61 70 22 |)...!.."OS_Heap"|
00007990 2c 36 2c 48 4c 25 2c 42 6b 25 20 b8 20 2c 2c 2c |,6,HL%,Bk% . ,,,|
000079a0 54 25 0d 04 f6 1d e7 20 a4 48 45 48 28 54 25 2b |T%..... .HEH(T%+|
000079b0 43 68 61 6e 67 65 25 29 3d a3 20 8c 20 3d 30 0d |Change%)=. . =0.|
000079c0 04 f7 2c c8 99 22 58 4f 53 5f 48 65 61 70 22 2c |..,.."XOS_Heap",|
000079d0 34 2c 48 4c 25 2c 42 6b 25 2c 43 68 61 6e 67 65 |4,HL%,Bk%,Change|
000079e0 25 20 b8 20 2c 2c 4e 25 3b 46 25 0d 04 f8 1f e7 |% . ,,N%;F%.....|
000079f0 28 46 25 80 31 29 3d 30 20 8c 3d a4 43 68 65 63 |(F%.1)=0 .=.Chec|
00007a00 6b 28 4e 25 29 20 8b 20 3d 30 0d 04 f9 04 0d 04 |k(N%) . =0......|
00007a10 fa 04 0d 04 fb 10 dd 20 a4 43 68 65 63 6b 28 4e |....... .Check(N|
00007a20 25 29 0d 04 fc 1d e7 20 4e 25 3c 3e 42 6b 25 80 |%)..... N%<>Bk%.|
00007a30 4e 25 3c 3e 30 20 3d 4e 25 84 31 3c 3c 33 31 0d |N%<>0 =N%.1<<31.|
00007a40 04 fd 07 3d 4e 25 0d 04 fe 0e dd 20 a4 42 53 28 |...=N%..... .BS(|
00007a50 42 6b 25 29 0d 04 ff 08 ea 20 53 25 0d 05 00 21 |Bk%)..... S%...!|
00007a60 c8 99 22 4f 53 5f 48 65 61 70 22 2c 36 2c 48 4c |.."OS_Heap",6,HL|
00007a70 25 2c 42 6b 25 20 b8 20 2c 2c 2c 53 25 0d 05 01 |%,Bk% . ,,,S%...|
00007a80 07 3d 53 25 0d 05 02 04 0d 05 03 0e dd 20 a4 48 |.=S%......... .H|
00007a90 46 28 42 6b 25 29 0d 05 04 0f e7 20 42 6b 25 3c |F(Bk%)..... Bk%<|
00007aa0 3d 30 20 3d 30 0d 05 05 19 c8 99 22 4f 53 5f 48 |=0 =0......"OS_H|
00007ab0 65 61 70 22 2c 33 2c 48 4c 25 2c 42 6b 25 0d 05 |eap",3,HL%,Bk%..|
00007ac0 06 07 f2 48 53 0d 05 07 06 3d 30 0d 05 08 09 dd |...HS....=0.....|
00007ad0 20 f2 48 53 0d 05 09 0b ea 20 53 25 2c 54 25 0d | .HS..... S%,T%.|
00007ae0 05 0a 0a 53 25 3d 48 53 25 0d 05 0b 23 c8 99 22 |...S%=HS%...#.."|
00007af0 58 4f 53 5f 48 65 61 70 22 2c 35 2c 48 4c 25 2c |XOS_Heap",5,HL%,|
00007b00 2c 2d 53 25 20 b8 20 2c 2c 2c 54 25 0d 05 0c 14 |,-S% . ,,,T%....|
00007b10 e7 20 54 25 3d 2d 53 25 20 8c 20 54 25 3d 53 25 |. T%=-S% . T%=S%|
00007b20 0d 05 0d 13 48 53 25 3d a4 48 52 28 48 53 25 2d |....HS%=.HR(HS%-|
00007b30 54 25 29 0d 05 0e 22 c8 99 22 4f 53 5f 48 65 61 |T%)...".."OS_Hea|
00007b40 70 22 2c 35 2c 48 4c 25 2c 2c 48 53 25 2d 28 53 |p",5,HL%,,HS%-(S|
00007b50 25 2d 54 25 29 0d 05 0f 26 c8 99 22 57 69 6d 70 |%-T%)...&.."Wimp|
00007b60 5f 53 6c 6f 74 53 69 7a 65 22 2c 48 4c 25 2b 48 |_SlotSize",HL%+H|
00007b70 53 25 2d 26 38 30 30 30 2c 2d 31 0d 05 10 05 e1 |S%-&8000,-1.....|
00007b80 0d 05 11 0d dd 20 a4 48 52 28 53 25 29 0d 05 12 |..... .HR(S%)...|
00007b90 08 ea 20 54 25 0d 05 13 13 e7 28 53 25 83 20 50 |.. T%.....(S%. P|
00007ba0 53 25 29 3c 3e 30 20 8c 0d 05 14 14 54 25 3d 50 |S%)<>0 .....T%=P|
00007bb0 53 25 2d 28 53 25 83 20 50 53 25 29 0d 05 15 0a |S%-(S%. PS%)....|
00007bc0 53 25 2b 3d 54 25 0d 05 16 05 cd 0d 05 17 07 3d |S%+=T%.........=|
00007bd0 53 25 0d 05 18 04 0d 05 19 04 0d 05 1a 13 dd 20 |S%............. |
00007be0 a4 4c 57 28 46 24 2c 57 24 2c 46 25 29 0d 05 1b |.LW(F$,W$,F%)...|
00007bf0 0e ea 20 48 25 2c 68 25 2c 66 25 0d 05 1c 1d c8 |.. H%,h%,f%.....|
00007c00 99 22 57 69 6d 70 5f 4f 70 65 6e 54 65 6d 70 6c |."Wimp_OpenTempl|
00007c10 61 74 65 22 2c 2c 46 24 0d 05 1d 4d c8 99 22 58 |ate",,F$...M.."X|
00007c20 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 |Wimp_LoadTemplat|
00007c30 65 22 2c 2c 57 62 25 2c 49 63 6f 6e 25 2c 49 63 |e",,Wb%,Icon%,Ic|
00007c40 6f 6e 73 25 2b 49 4c 25 2c 46 25 2c 57 24 2c 30 |ons%+IL%,F%,W$,0|
00007c50 20 b8 20 63 25 2c 2c 49 63 6f 6e 25 2c 2c 2c 2c | . c%,,Icon%,,,,|
00007c60 48 25 3b 66 25 0d 05 1e 0f e7 28 66 25 80 31 29 |H%;f%.....(f%.1)|
00007c70 3d 31 20 8c 0d 05 1f 11 20 e7 20 63 25 3c 3e 26 |=1 ..... . c%<>&|
00007c80 32 38 34 20 8c 0d 05 20 1e 20 20 20 c8 99 22 4f |284 ... . .."O|
00007c90 53 5f 47 65 6e 65 72 61 74 65 45 72 72 6f 72 22 |S_GenerateError"|
00007ca0 2c 63 25 0d 05 21 06 20 cc 0d 05 22 06 20 cd 0d |,c%..!. ...". ..|
00007cb0 05 23 05 cd 0d 05 24 1a c8 99 22 57 69 6d 70 5f |.#....$..."Wimp_|
00007cc0 43 6c 6f 73 65 54 65 6d 70 6c 61 74 65 22 0d 05 |CloseTemplate"..|
00007cd0 25 0d e7 20 48 25 3c 3e 30 20 8c 0d 05 26 23 c8 |%.. H%<>0 ...&#.|
00007ce0 99 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e |."Wimp_CreateWin|
00007cf0 64 6f 77 22 2c 2c 57 62 25 20 b8 20 48 25 0d 05 |dow",,Wb% . H%..|
00007d00 27 05 cc 0d 05 28 40 c8 99 22 57 69 6d 70 5f 52 |'....(@.."Wimp_R|
00007d10 65 70 6f 72 74 45 72 72 6f 72 22 2c 22 00 00 00 |eportError","...|
00007d20 00 57 69 6e 64 6f 77 20 22 2b 57 24 2b 22 20 6e |.Window "+W$+" n|
00007d30 6f 74 20 66 6f 75 6e 64 22 2c 31 2c 22 47 72 61 |ot found",1,"Gra|
00007d40 70 68 22 0d 05 29 05 e0 0d 05 2a 05 cd 0d 05 2b |ph"..)....*....+|
00007d50 07 3d 48 25 0d 05 2c 13 dd 20 f2 6f 77 28 48 25 |.=H%..,.. .ow(H%|
00007d60 2c 44 25 2c 42 25 29 0d 05 2d 0b 21 57 62 25 3d |,D%,B%)..-.!Wb%=|
00007d70 48 25 0d 05 2e 1f c8 99 22 57 69 6d 70 5f 47 65 |H%......"Wimp_Ge|
00007d80 74 57 69 6e 64 6f 77 49 6e 66 6f 22 2c 2c 57 62 |tWindowInfo",,Wb|
00007d90 25 0d 05 2f 18 57 62 25 21 34 2b 3d 44 25 3a 57 |%../.Wb%!4+=D%:W|
00007da0 62 25 21 31 32 2b 3d 44 25 0d 05 30 18 57 62 25 |b%!12+=D%..0.Wb%|
00007db0 21 38 2d 3d 44 25 3a 57 62 25 21 31 36 2d 3d 44 |!8-=D%:Wb%!16-=D|
00007dc0 25 0d 05 31 0d 57 62 25 21 32 38 3d 42 25 0d 05 |%..1.Wb%!28=B%..|
00007dd0 32 1c c8 99 22 57 69 6d 70 5f 4f 70 65 6e 57 69 |2..."Wimp_OpenWi|
00007de0 6e 64 6f 77 22 2c 2c 57 62 25 0d 05 33 05 e1 0d |ndow",,Wb%..3...|
00007df0 05 34 04 0d 05 35 0d dd 20 f2 54 57 28 48 25 29 |.4...5.. .TW(H%)|
00007e00 0d 05 36 0d e7 20 48 25 3c 3d 30 20 e1 0d 05 37 |..6.. H%<=0 ...7|
00007e10 10 f2 6f 77 28 48 25 2c 30 2c 2d 31 29 0d 05 38 |..ow(H%,0,-1)..8|
00007e20 05 e1 0d 05 39 04 0d 05 3a 1a dd 20 a4 43 57 57 |....9...:.. .CWW|
00007e30 28 48 25 2c 58 25 2c 59 25 2c 6e 25 2c 44 25 29 |(H%,X%,Y%,n%,D%)|
00007e40 0d 05 3b 0b 21 57 62 25 3d 48 25 0d 05 3c 1f c8 |..;.!Wb%=H%..<..|
00007e50 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 |."Wimp_GetWindow|
00007e60 49 6e 66 6f 22 2c 2c 57 62 25 0d 05 3d 16 57 62 |Info",,Wb%..=.Wb|
00007e70 25 21 34 38 3d 59 25 3a 57 62 25 21 35 36 3d 30 |%!48=Y%:Wb%!56=0|
00007e80 0d 05 3e 16 57 62 25 21 34 34 3d 30 3a 57 62 25 |..>.Wb%!44=0:Wb%|
00007e90 21 35 32 3d 58 25 0d 05 3f 1e c8 99 22 57 69 6d |!52=X%..?..."Wim|
00007ea0 70 5f 44 65 6c 65 74 65 57 69 6e 64 6f 77 22 2c |p_DeleteWindow",|
00007eb0 2c 57 62 25 0d 05 40 29 57 62 25 21 34 3d 57 62 |,Wb%..@)Wb%!4=Wb|
00007ec0 25 21 34 2b 6e 25 2a 44 25 3a 57 62 25 21 31 32 |%!4+n%*D%:Wb%!12|
00007ed0 3d 57 62 25 21 31 32 2b 6e 25 2a 44 25 0d 05 41 |=Wb%!12+n%*D%..A|
00007ee0 29 57 62 25 21 38 3d 57 62 25 21 38 2d 6e 25 2a |)Wb%!8=Wb%!8-n%*|
00007ef0 44 25 3a 57 62 25 21 31 36 3d 57 62 25 21 31 36 |D%:Wb%!16=Wb%!16|
00007f00 2d 6e 25 2a 44 25 0d 05 42 25 c8 99 22 57 69 6d |-n%*D%..B%.."Wim|
00007f10 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c |p_CreateWindow",|
00007f20 2c 57 62 25 2b 34 20 b8 20 48 25 0d 05 43 07 3d |,Wb%+4 . H%..C.=|
00007f30 48 25 0d 05 44 12 dd 20 a4 49 63 6f 6e 42 61 72 |H%..D.. .IconBar|
00007f40 28 49 24 29 0d 05 45 35 42 75 66 25 21 30 3d 2d |(I$)..E5Buf%!0=-|
00007f50 31 3a 42 75 66 25 21 34 3d 30 3a 42 75 66 25 21 |1:Buf%!4=0:Buf%!|
00007f60 38 3d 30 3a 42 75 66 25 21 31 32 3d 36 38 3a 42 |8=0:Buf%!12=68:B|
00007f70 75 66 25 21 31 36 3d 36 38 0d 05 46 1a 42 75 66 |uf%!16=68..F.Buf|
00007f80 25 21 32 30 3d 25 31 31 30 31 30 2b 28 33 3c 3c |%!20=%11010+(3<<|
00007f90 31 32 29 0d 05 47 11 24 28 42 75 66 25 2b 32 34 |12)..G.$(Buf%+24|
00007fa0 29 3d 49 24 0d 05 48 25 c8 99 22 57 69 6d 70 5f |)=I$..H%.."Wimp_|
00007fb0 43 72 65 61 74 65 49 63 6f 6e 22 2c 2c 42 75 66 |CreateIcon",,Buf|
00007fc0 25 20 b8 20 21 42 75 66 25 0d 05 49 0a 3d 21 42 |% . !Buf%..I.=!B|
00007fd0 75 66 25 0d 05 4a 04 0d 05 4b 04 0d 05 4c 0d dd |uf%..J...K...L..|
00007fe0 20 a4 46 53 28 46 24 29 0d 05 4d 0b ea 20 53 25 | .FS(F$)..M.. S%|
00007ff0 2c 4c 25 0d 05 4e 0b 53 25 3d 8e 20 46 24 0d 05 |,L%..N.S%=. F$..|
00008000 4f 0b 4c 25 3d a2 23 53 25 0d 05 50 08 d9 23 53 |O.L%=.#S%..P..#S|
00008010 25 0d 05 51 07 3d 4c 25 0d 05 52 04 0d 05 53 10 |%..Q.=L%..R...S.|
00008020 dd 20 a4 47 50 28 57 25 2c 49 25 29 0d 05 54 14 |. .GP(W%,I%)..T.|
00008030 21 57 62 25 3d 57 25 3a 57 62 25 21 34 3d 49 25 |!Wb%=W%:Wb%!4=I%|
00008040 0d 05 55 1e c8 99 22 57 69 6d 70 5f 47 65 74 49 |..U..."Wimp_GetI|
00008050 63 6f 6e 53 74 61 74 65 22 2c 2c 57 62 25 0d 05 |conState",,Wb%..|
00008060 56 14 c8 8e 20 57 62 25 21 32 34 80 26 31 30 31 |V... Wb%!24.&101|
00008070 20 ca 0d 05 57 11 20 c9 31 3a 49 25 3d 57 62 25 | ...W. .1:I%=Wb%|
00008080 2b 32 38 0d 05 58 14 20 c9 26 31 30 31 3a 49 25 |+28..X. .&101:I%|
00008090 3d 57 62 25 21 32 38 0d 05 59 05 cb 0d 05 5a 07 |=Wb%!28..Y....Z.|
000080a0 3d 49 25 0d 05 5b 10 dd 20 a4 52 4e 28 57 25 2c |=I%..[.. .RN(W%,|
000080b0 49 25 29 0d 05 5c 11 49 25 3d a4 47 50 28 57 25 |I%)..\.I%=.GP(W%|
000080c0 2c 49 25 29 0d 05 5d 1f e7 20 24 49 25 3d 22 22 |,I%)..].. $I%=""|
000080d0 20 3d 31 20 8b 20 e7 20 a0 28 24 49 25 29 3d 30 | =1 . . .($I%)=0|
000080e0 20 3d 31 0d 05 5e 0b 3d a0 28 24 49 25 29 0d 05 | =1..^.=.($I%)..|
000080f0 5f 04 0d 05 60 11 dd 20 a4 52 4e 30 28 57 25 2c |_...`.. .RN0(W%,|
00008100 49 25 29 0d 05 61 11 49 25 3d a4 47 50 28 57 25 |I%)..a.I%=.GP(W%|
00008110 2c 49 25 29 0d 05 62 14 e7 20 24 49 25 3d 22 22 |,I%)..b.. $I%=""|
00008120 20 24 49 25 3d 22 30 22 0d 05 63 0b 3d a0 28 24 | $I%="0"..c.=.($|
00008130 49 25 29 0d 05 64 04 0d 05 65 12 dd 20 f2 4c 4e |I%)..d...e.. .LN|
00008140 28 57 25 2c 49 25 2c 4e 29 0d 05 66 11 49 25 3d |(W%,I%,N)..f.I%=|
00008150 a4 47 50 28 57 25 2c 49 25 29 0d 05 67 0c 24 49 |.GP(W%,I%)..g.$I|
00008160 25 3d c3 28 4e 29 0d 05 68 14 57 62 25 21 38 3d |%=.(N)..h.Wb%!8=|
00008170 30 3a 57 62 25 21 31 32 3d 30 0d 05 69 1e c8 99 |0:Wb%!12=0..i...|
00008180 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 |"Wimp_SetIconSta|
00008190 74 65 22 2c 2c 57 62 25 0d 05 6a 05 e1 0d 05 6b |te",,Wb%..j....k|
000081a0 04 0d 05 6c 11 dd 20 a4 52 65 53 28 57 25 2c 49 |...l.. .ReS(W%,I|
000081b0 25 29 0d 05 6d 11 49 25 3d a4 47 50 28 57 25 2c |%)..m.I%=.GP(W%,|
000081c0 49 25 29 0d 05 6e 08 3d 24 49 25 0d 05 6f 04 0d |I%)..n.=$I%..o..|
000081d0 05 70 13 dd 20 f2 4c 53 28 57 25 2c 49 25 2c 53 |.p.. .LS(W%,I%,S|
000081e0 24 29 0d 05 71 14 24 28 a4 47 50 28 57 25 2c 49 |$)..q.$(.GP(W%,I|
000081f0 25 29 29 3d 53 24 0d 05 72 14 57 62 25 21 38 3d |%))=S$..r.Wb%!8=|
00008200 30 3a 57 62 25 21 31 32 3d 30 0d 05 73 1e c8 99 |0:Wb%!12=0..s...|
00008210 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 |"Wimp_SetIconSta|
00008220 74 65 22 2c 2c 57 62 25 0d 05 74 05 e1 0d 05 75 |te",,Wb%..t....u|
00008230 04 0d 05 76 04 0d 05 77 10 dd 20 f2 53 49 28 57 |...v...w.. .SI(W|
00008240 25 2c 49 25 29 0d 05 78 14 21 57 62 25 3d 57 25 |%,I%)..x.!Wb%=W%|
00008250 3a 57 62 25 21 34 3d 49 25 0d 05 79 1e 57 62 25 |:Wb%!4=I%..y.Wb%|
00008260 21 38 3d 30 2b 31 3c 3c 32 32 3a 57 62 25 21 31 |!8=0+1<<22:Wb%!1|
00008270 32 3d 57 62 25 21 38 0d 05 7a 1e c8 99 22 57 69 |2=Wb%!8..z..."Wi|
00008280 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_SetIconState"|
00008290 2c 2c 57 62 25 0d 05 7b 05 e1 0d 05 7c 04 0d 05 |,,Wb%..{....|...|
000082a0 7d 12 dd 20 f2 55 6e 53 49 28 57 25 2c 49 25 29 |}.. .UnSI(W%,I%)|
000082b0 0d 05 7e 14 21 57 62 25 3d 57 25 3a 57 62 25 21 |..~.!Wb%=W%:Wb%!|
000082c0 34 3d 49 25 0d 05 7f 1a 57 62 25 21 38 3d 30 3a |4=I%....Wb%!8=0:|
000082d0 57 62 25 21 31 32 3d 30 2b 31 3c 3c 32 32 0d 05 |Wb%!12=0+1<<22..|
000082e0 80 1e c8 99 22 57 69 6d 70 5f 53 65 74 49 63 6f |...."Wimp_SetIco|
000082f0 6e 53 74 61 74 65 22 2c 2c 57 62 25 0d 05 81 05 |nState",,Wb%....|
00008300 e1 0d 05 82 04 0d 05 83 15 dd 20 a4 52 53 65 6c |.......... .RSel|
00008310 65 63 74 28 57 25 2c 49 25 29 0d 05 84 14 21 57 |ect(W%,I%)....!W|
00008320 62 25 3d 57 25 3a 57 62 25 21 34 3d 49 25 0d 05 |b%=W%:Wb%!4=I%..|
00008330 85 1e c8 99 22 57 69 6d 70 5f 47 65 74 49 63 6f |...."Wimp_GetIco|
00008340 6e 53 74 61 74 65 22 2c 2c 57 62 25 0d 05 86 11 |nState",,Wb%....|
00008350 3d 57 62 25 21 32 34 80 31 3c 3c 32 31 0d 05 87 |=Wb%!24.1<<21...|
00008360 04 0d 05 88 14 dd 20 a4 52 53 68 61 64 65 28 57 |...... .RShade(W|
00008370 25 2c 49 25 29 0d 05 89 14 21 57 62 25 3d 57 25 |%,I%)....!Wb%=W%|
00008380 3a 57 62 25 21 34 3d 49 25 0d 05 8a 1e c8 99 22 |:Wb%!4=I%......"|
00008390 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 |Wimp_GetIconStat|
000083a0 65 22 2c 2c 57 62 25 0d 05 8b 11 3d 57 62 25 21 |e",,Wb%....=Wb%!|
000083b0 32 34 80 31 3c 3c 32 32 0d 05 8c 04 0d 05 8d 10 |24.1<<22........|
000083c0 dd 20 f2 53 69 28 57 25 2c 49 25 29 0d 05 8e 14 |. .Si(W%,I%)....|
000083d0 21 57 62 25 3d 57 25 3a 57 62 25 21 34 3d 49 25 |!Wb%=W%:Wb%!4=I%|
000083e0 0d 05 8f 1e 57 62 25 21 38 3d 30 2b 31 3c 3c 32 |....Wb%!8=0+1<<2|
000083f0 31 3a 57 62 25 21 31 32 3d 57 62 25 21 38 0d 05 |1:Wb%!12=Wb%!8..|
00008400 90 1e c8 99 22 57 69 6d 70 5f 53 65 74 49 63 6f |...."Wimp_SetIco|
00008410 6e 53 74 61 74 65 22 2c 2c 57 62 25 0d 05 91 05 |nState",,Wb%....|
00008420 e1 0d 05 92 04 0d 05 93 11 dd 20 f2 55 53 49 28 |.......... .USI(|
00008430 57 25 2c 49 25 29 0d 05 94 14 21 57 62 25 3d 57 |W%,I%)....!Wb%=W|
00008440 25 3a 57 62 25 21 34 3d 49 25 0d 05 95 1a 57 62 |%:Wb%!4=I%....Wb|
00008450 25 21 31 32 3d 30 2b 31 3c 3c 32 31 3a 57 62 25 |%!12=0+1<<21:Wb%|
00008460 21 38 3d 30 0d 05 96 1e c8 99 22 57 69 6d 70 5f |!8=0......"Wimp_|
00008470 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 57 |SetIconState",,W|
00008480 62 25 0d 05 97 05 e1 0d 05 98 04 0d 05 99 14 dd |b%..............|
00008490 20 f2 53 46 67 28 57 25 2c 49 25 2c 56 25 29 0d | .SFg(W%,I%,V%).|
000084a0 05 9a 0c 56 25 3d 56 25 80 26 46 0d 05 9b 14 21 |...V%=V%.&F....!|
000084b0 57 62 25 3d 57 25 3a 57 62 25 21 34 3d 49 25 0d |Wb%=W%:Wb%!4=I%.|
000084c0 05 9c 1f 57 62 25 21 38 3d 30 2b 56 25 3c 3c 31 |...Wb%!8=0+V%<<1|
000084d0 32 3a 57 62 25 21 31 32 3d 26 46 30 30 30 0d 05 |2:Wb%!12=&F000..|
000084e0 9d 1e c8 99 22 57 69 6d 70 5f 53 65 74 49 63 6f |...."Wimp_SetIco|
000084f0 6e 53 74 61 74 65 22 2c 2c 57 62 25 0d 05 9e 05 |nState",,Wb%....|
00008500 e1 0d 05 9f 04 0d 05 a0 16 dd 20 a4 49 63 6f 6e |.......... .Icon|
00008510 4d 65 6e 75 28 44 25 2c 44 24 29 0d 05 a1 11 ea |Menu(D%,D$).....|
00008520 20 48 25 2c 49 25 2c 4e 25 2c 4a 25 0d 05 a2 09 | H%,I%,N%,J%....|
00008530 49 25 3d 32 38 0d 05 a3 10 48 25 3d 8e 28 50 68 |I%=28....H%=.(Ph|
00008540 24 2b 44 24 29 0d 05 a4 0b e8 23 48 25 2c 44 24 |$+D$).....#H%,D$|
00008550 0d 05 a5 0e f2 42 4d 28 44 25 2c 44 24 29 0d 05 |.....BM(D%,D$)..|
00008560 a6 05 f5 0d 05 a7 0b e8 23 48 25 2c 44 24 0d 05 |........#H%,D$..|
00008570 a8 13 f2 4d 65 6e 75 28 44 25 2b 49 25 2c 44 24 |...Menu(D%+I%,D$|
00008580 29 0d 05 a9 09 4e 25 2b 3d 31 0d 05 aa 0a 49 25 |)....N%+=1....I%|
00008590 2b 3d 32 34 0d 05 ab 0c fd 20 c5 23 48 25 3d b9 |+=24..... .#H%=.|
000085a0 0d 05 ac 22 21 28 44 25 2b 49 25 2d 32 34 29 3d |..."!(D%+I%-24)=|
000085b0 21 28 44 25 2b 49 25 2d 32 34 29 84 28 31 3c 3c |!(D%+I%-24).(1<<|
000085c0 37 29 0d 05 ad 12 44 25 21 31 36 3d 44 25 21 31 |7)....D%!16=D%!1|
000085d0 36 2b 31 30 0d 05 ae 08 d9 23 48 25 0d 05 af 07 |6+10.....#H%....|
000085e0 3d 4e 25 0d 05 b0 04 0d 05 b1 10 dd 20 f2 42 4d |=N%......... .BM|
000085f0 28 42 25 2c 44 24 29 0d 05 b2 0a 24 42 25 3d 44 |(B%,D$)....$B%=D|
00008600 24 0d 05 b3 10 42 25 21 31 32 3d 26 37 30 32 30 |$....B%!12=&7020|
00008610 37 0d 05 b4 13 42 25 21 31 36 3d a9 28 24 42 25 |7....B%!16=.($B%|
00008620 29 2a 31 36 0d 05 b5 0c 42 25 21 32 30 3d 34 34 |)*16....B%!20=44|
00008630 0d 05 b6 0b 42 25 21 32 34 3d 30 0d 05 b7 05 e1 |....B%!24=0.....|
00008640 0d 05 b8 04 0d 05 b9 12 dd 20 f2 4d 65 6e 75 28 |......... .Menu(|
00008650 42 25 2c 44 24 29 0d 05 ba 0e ea 20 45 24 3a 45 |B%,D$)..... E$:E|
00008660 24 3d 44 24 0d 05 bb 09 21 42 25 3d 30 0d 05 bc |$=D$....!B%=0...|
00008670 0b 42 25 21 34 3d 2d 31 0d 05 bd 10 e7 20 c2 44 |.B%!4=-1..... .D|
00008680 24 29 3d 22 3e 22 20 8c 0d 05 be 1c 20 45 24 3d |$)=">" ..... E$=|
00008690 c0 44 24 2c a9 28 44 24 29 2d 31 29 3a e8 23 48 |.D$,.(D$)-1):.#H|
000086a0 25 2c 44 24 0d 05 bf 13 20 e7 20 c0 44 24 2c 31 |%,D$.... . .D$,1|
000086b0 29 3d 22 2f 22 20 8c 0d 05 c0 1b 20 20 e7 20 c2 |)="/" ..... . .|
000086c0 44 24 2c a9 28 44 24 29 2d 31 29 3c 3e 22 20 22 |D$,.(D$)-1)<>" "|
000086d0 20 8c 0d 05 c1 2f 20 20 42 25 21 34 3d a4 4c 57 | ..../ B%!4=.LW|
000086e0 28 50 68 24 2b 22 54 65 6d 70 6c 61 74 65 73 22 |(Ph$+"Templates"|
000086f0 2c c2 44 24 2c a9 28 44 24 29 2d 31 29 2c 2d 31 |,.D$,.(D$)-1),-1|
00008700 29 0d 05 c2 19 20 20 cc 20 42 25 21 34 3d 26 38 |).... . B%!4=&8|
00008710 30 30 30 3a 21 42 25 3d 26 38 0d 05 c3 07 20 20 |000:!B%=&8.... |
00008720 cd 0d 05 c4 07 20 20 cd 0d 05 c5 06 20 cd 0d 05 |..... ..... ...|
00008730 c6 23 e7 20 a9 28 45 24 29 2a 31 36 3e 44 25 21 |.#. .(E$)*16>D%!|
00008740 31 36 20 44 25 21 31 36 3d a9 28 45 24 29 2a 31 |16 D%!16=.(E$)*1|
00008750 36 0d 05 c7 11 42 25 21 38 3d 26 37 30 30 30 30 |6....B%!8=&70000|
00008760 33 31 0d 05 c8 0f 24 28 42 25 2b 31 32 29 3d 45 |31....$(B%+12)=E|
00008770 24 0d 05 c9 05 e1 0d 05 ca 04 0d 05 cb 13 dd 20 |$.............. |
00008780 a4 4d 65 6e 75 53 69 7a 65 28 44 24 29 0d 05 cc |.MenuSize(D$)...|
00008790 0b ea 20 53 25 2c 45 24 0d 05 cd 10 48 25 3d 8e |.. S%,E$....H%=.|
000087a0 28 50 68 24 2b 44 24 29 0d 05 ce 0b e8 23 48 25 |(Ph$+D$).....#H%|
000087b0 2c 44 24 0d 05 cf 09 53 25 3d 32 38 0d 05 d0 05 |,D$....S%=28....|
000087c0 f5 0d 05 d1 0b e8 23 48 25 2c 44 24 0d 05 d2 0a |......#H%,D$....|
000087d0 53 25 2b 3d 32 34 0d 05 d3 26 e7 20 c2 44 24 29 |S%+=24...&. .D$)|
000087e0 3d 22 3e 22 20 e8 23 48 25 2c 45 24 3a 44 24 3d |=">" .#H%,E$:D$=|
000087f0 c0 44 24 2c a9 28 44 24 29 2d 31 29 0d 05 d4 1d |.D$,.(D$)-1)....|
00008800 e7 20 a9 28 44 24 29 3e 3d 31 32 20 53 25 3d 53 |. .(D$)>=12 S%=S|
00008810 25 2b a9 28 44 24 29 2b 31 0d 05 d5 0c fd 20 c5 |%+.(D$)+1..... .|
00008820 23 48 25 3d b9 0d 05 d6 08 d9 23 48 25 0d 05 d7 |#H%=......#H%...|
00008830 07 3d 53 25 0d 05 d8 10 dd 20 f2 53 65 28 42 25 |.=S%..... .Se(B%|
00008840 2c 4e 25 29 0d 05 d9 0f 42 25 2b 3d 34 3a 4e 25 |,N%)....B%+=4:N%|
00008850 2b 3d 31 0d 05 da 05 f5 0d 05 db 0a 42 25 2b 3d |+=1.........B%+=|
00008860 32 34 0d 05 dc 09 4e 25 2d 3d 31 0d 05 dd 1d e7 |24....N%-=1.....|
00008870 20 4e 25 3c 3d 30 20 42 25 21 38 3d 42 25 21 38 | N%<=0 B%!8=B%!8|
00008880 84 28 31 3c 3c 32 32 29 0d 05 de 18 fd 20 28 21 |.(1<<22)..... (!|
00008890 42 25 80 26 38 30 29 3e 30 20 84 4e 25 3c 3d 30 |B%.&80)>0 .N%<=0|
000088a0 0d 05 df 05 e1 0d 05 e0 12 dd 20 f2 55 6e 53 65 |.......... .UnSe|
000088b0 28 42 25 2c 4e 25 29 0d 05 e1 0f 42 25 2b 3d 34 |(B%,N%)....B%+=4|
000088c0 3a 4e 25 2b 3d 31 0d 05 e2 05 f5 0d 05 e3 0a 42 |:N%+=1.........B|
000088d0 25 2b 3d 32 34 0d 05 e4 09 4e 25 2d 3d 31 0d 05 |%+=24....N%-=1..|
000088e0 e5 1f e7 20 4e 25 3c 3d 30 20 42 25 21 38 3d 42 |... N%<=0 B%!8=B|
000088f0 25 21 38 80 26 46 46 42 46 46 46 46 46 0d 05 e6 |%!8.&FFBFFFFF...|
00008900 18 fd 20 28 21 42 25 80 26 38 30 29 3e 30 20 84 |.. (!B%.&80)>0 .|
00008910 4e 25 3c 3d 30 0d 05 e7 05 e1 0d 05 e8 10 dd 20 |N%<=0.......... |
00008920 f2 54 6b 28 42 25 2c 53 24 29 0d 05 e9 17 42 25 |.Tk(B%,S$)....B%|
00008930 3d a4 4d 65 6e 75 49 74 65 6d 28 42 25 2c 53 24 |=.MenuItem(B%,S$|
00008940 29 0d 05 ea 0c e7 20 42 25 3d b9 20 e1 0d 05 eb |)..... B%=. ....|
00008950 0d 21 42 25 3d 21 42 25 84 31 0d 05 ec 05 e1 0d |.!B%=!B%.1......|
00008960 05 ed 12 dd 20 f2 55 6e 54 6b 28 42 25 2c 53 24 |.... .UnTk(B%,S$|
00008970 29 0d 05 ee 17 42 25 3d a4 4d 65 6e 75 49 74 65 |)....B%=.MenuIte|
00008980 6d 28 42 25 2c 53 24 29 0d 05 ef 0c e7 20 42 25 |m(B%,S$)..... B%|
00008990 3d b9 20 e1 0d 05 f0 15 21 42 25 3d 21 42 25 80 |=. .....!B%=!B%.|
000089a0 26 46 46 46 46 46 46 46 45 0d 05 f1 05 e1 0d 05 |&FFFFFFFE.......|
000089b0 f2 11 dd 20 a4 52 54 6b 28 42 25 2c 53 24 29 0d |... .RTk(B%,S$).|
000089c0 05 f3 17 42 25 3d a4 4d 65 6e 75 49 74 65 6d 28 |...B%=.MenuItem(|
000089d0 42 25 2c 53 24 29 0d 05 f4 0d e7 20 42 25 3d b9 |B%,S$)..... B%=.|
000089e0 20 3d b9 0d 05 f5 0a 3d 21 42 25 80 31 0d 05 f6 | =.....=!B%.1...|
000089f0 16 dd 20 a4 4d 65 6e 75 49 74 65 6d 28 42 25 2c |.. .MenuItem(B%,|
00008a00 53 24 29 0d 05 f7 08 ea 20 49 25 0d 05 f8 0a 42 |S$)..... I%....B|
00008a10 25 2b 3d 31 32 0d 05 f9 05 f5 0d 05 fa 0a 42 25 |%+=12.........B%|
00008a20 2b 3d 32 34 0d 05 fb 11 c8 8e 20 21 42 25 80 26 |+=24...... !B%.&|
00008a30 31 30 31 20 ca 0d 05 fc 0f 20 c9 31 3a 49 25 3d |101 ..... .1:I%=|
00008a40 42 25 2b 34 0d 05 fd 12 20 c9 26 31 30 31 3a 49 |B%+4.... .&101:I|
00008a50 25 3d 42 25 21 34 0d 05 fe 06 20 cb 0d 05 ff 1e |%=B%!4.... .....|
00008a60 fd 20 53 24 3d 24 49 25 20 84 20 28 28 42 25 21 |. S$=$I% . ((B%!|
00008a70 2d 38 29 80 26 38 30 29 3e 30 0d 06 00 11 e7 20 |-8).&80)>0..... |
00008a80 53 24 3c 3e 24 49 25 20 3d 2d 31 0d 06 01 09 3d |S$<>$I% =-1....=|
00008a90 42 25 2d 38 0d 06 02 04 0d 06 03 04 0d 06 04 14 |B%-8............|
00008aa0 dd 20 a4 4d 65 6e 75 57 68 28 42 25 2c 4e 25 29 |. .MenuWh(B%,N%)|
00008ab0 0d 06 05 0f 42 25 2b 3d 34 3a 4e 25 2b 3d 31 0d |....B%+=4:N%+=1.|
00008ac0 06 06 05 f5 0d 06 07 0a 42 25 2b 3d 32 34 0d 06 |........B%+=24..|
00008ad0 08 09 4e 25 2d 3d 31 0d 06 09 11 e7 20 4e 25 3c |..N%-=1..... N%<|
00008ae0 3d 30 20 3d 42 25 21 34 0d 06 0a 18 fd 20 28 21 |=0 =B%!4..... (!|
00008af0 42 25 80 26 38 30 29 3e 30 20 84 4e 25 3c 3d 30 |B%.&80)>0 .N%<=0|
00008b00 0d 06 0b 05 e1 0d 06 0c 04 0d 06 0d 0e dd 20 f2 |.............. .|
00008b10 50 6c 6f 74 28 58 29 0d 06 0e 07 ea 20 85 0d 06 |Plot(X)..... ...|
00008b20 0f 0b ee 20 85 20 ea 20 e1 0d 06 10 0c 4c 69 6d |... . . .....Lim|
00008b30 69 74 25 3d b9 0d 06 11 29 e7 20 58 3c 3e 30 20 |it%=....). X<>0 |
00008b40 79 3d a0 28 46 24 28 4e 25 29 29 20 8b 20 58 2b |y=.(F$(N%)) . X+|
00008b50 3d 49 3a 79 3d a0 28 46 24 28 4e 25 29 29 0d 06 |=I:y=.(F$(N%))..|
00008b60 12 12 e7 20 79 3e 47 70 28 4e 25 2c 33 29 20 8c |... y>Gp(N%,3) .|
00008b70 0d 06 13 3b e7 20 51 25 3d 38 20 80 58 3e 30 20 |...;. Q%=8 .X>0 |
00008b80 78 31 3d 78 31 2b 28 28 47 70 28 4e 25 2c 33 29 |x1=x1+((Gp(N%,3)|
00008b90 2d 79 31 29 2f 28 79 2d 79 31 29 29 2a 28 58 2d |-y1)/(y-y1))*(X-|
00008ba0 78 31 29 3a c8 94 20 58 2c 78 31 0d 06 14 3b e7 |x1):.. X,x1...;.|
00008bb0 20 51 25 3d 38 20 80 58 3c 30 20 78 31 3d 78 31 | Q%=8 .X<0 x1=x1|
00008bc0 2d 28 28 47 70 28 4e 25 2c 33 29 2d 79 31 29 2f |-((Gp(N%,3)-y1)/|
00008bd0 28 79 2d 79 31 29 29 2a 28 78 31 2d 58 29 3a c8 |(y-y1))*(x1-X):.|
00008be0 94 20 58 2c 78 31 0d 06 15 1c 79 32 3d 79 3a 79 |. X,x1....y2=y:y|
00008bf0 3d 47 70 28 4e 25 2c 33 29 3a 4c 69 6d 69 74 25 |=Gp(N%,3):Limit%|
00008c00 3d a3 0d 06 16 05 cd 0d 06 17 12 e7 20 79 3c 47 |=........... y<G|
00008c10 70 28 4e 25 2c 32 29 20 8c 0d 06 18 3b e7 20 51 |p(N%,2) ....;. Q|
00008c20 25 3d 38 20 80 58 3e 30 20 78 31 3d 78 31 2b 28 |%=8 .X>0 x1=x1+(|
00008c30 28 79 31 2d 47 70 28 4e 25 2c 32 29 29 2f 28 79 |(y1-Gp(N%,2))/(y|
00008c40 31 2d 79 29 29 2a 28 58 2d 78 31 29 3a c8 94 20 |1-y))*(X-x1):.. |
00008c50 58 2c 78 31 0d 06 19 3b e7 20 51 25 3d 38 20 80 |X,x1...;. Q%=8 .|
00008c60 58 3c 30 20 78 31 3d 78 31 2d 28 28 79 31 2d 47 |X<0 x1=x1-((y1-G|
00008c70 70 28 4e 25 2c 32 29 29 2f 28 79 31 2d 79 29 29 |p(N%,2))/(y1-y))|
00008c80 2a 28 78 31 2d 58 29 3a c8 94 20 58 2c 78 31 0d |*(x1-X):.. X,x1.|
00008c90 06 1a 1c 79 32 3d 79 3a 79 3d 47 70 28 4e 25 2c |...y2=y:y=Gp(N%,|
00008ca0 32 29 3a 4c 69 6d 69 74 25 3d a3 0d 06 1b 05 cd |2):Limit%=......|
00008cb0 0d 06 1c 16 e7 20 4c 69 6d 69 74 25 3d b9 20 80 |..... Limit%=. .|
00008cc0 51 25 3d 37 20 8c 0d 06 1d 13 e7 20 79 32 3e 47 |Q%=7 ...... y2>G|
00008cd0 70 28 4e 25 2c 33 29 20 8c 0d 06 1e 2d e7 20 58 |p(N%,3) ....-. X|
00008ce0 3e 30 20 78 31 3d 78 31 2b 28 28 79 32 2d 47 70 |>0 x1=x1+((y2-Gp|
00008cf0 28 4e 25 2c 33 29 29 2f 28 79 32 2d 79 29 29 2a |(N%,3))/(y2-y))*|
00008d00 28 58 2d 78 31 29 0d 06 1f 2d e7 20 58 3c 30 20 |(X-x1)...-. X<0 |
00008d10 78 31 3d 78 31 2d 28 28 79 32 2d 47 70 28 4e 25 |x1=x1-((y2-Gp(N%|
00008d20 2c 33 29 29 2f 28 79 32 2d 79 29 29 2a 28 78 31 |,3))/(y2-y))*(x1|
00008d30 2d 58 29 0d 06 20 0f 79 31 3d 47 70 28 4e 25 2c |-X).. .y1=Gp(N%,|
00008d40 33 29 0d 06 21 05 cd 0d 06 22 13 e7 20 79 32 3c |3)..!....".. y2<|
00008d50 47 70 28 4e 25 2c 32 29 20 8c 0d 06 23 2d e7 20 |Gp(N%,2) ...#-. |
00008d60 58 3e 30 20 78 31 3d 78 31 2b 28 28 47 70 28 4e |X>0 x1=x1+((Gp(N|
00008d70 25 2c 32 29 2d 79 32 29 2f 28 79 2d 79 32 29 29 |%,2)-y2)/(y-y2))|
00008d80 2a 28 58 2d 78 31 29 0d 06 24 2d e7 20 58 3c 30 |*(X-x1)..$-. X<0|
00008d90 20 78 31 3d 78 31 2d 28 28 47 70 28 4e 25 2c 32 | x1=x1-((Gp(N%,2|
00008da0 29 2d 79 32 29 2f 28 79 2d 79 32 29 29 2a 28 78 |)-y2)/(y-y2))*(x|
00008db0 31 2d 58 29 0d 06 25 0f 79 31 3d 47 70 28 4e 25 |1-X)..%.y1=Gp(N%|
00008dc0 2c 32 29 0d 06 26 05 cd 0d 06 27 94 f2 41 64 64 |,2)..&....'..Add|
00008dd0 28 32 29 3a f2 41 64 64 28 28 78 31 2d 47 70 28 |(2):.Add((x1-Gp(|
00008de0 4e 25 2c 30 29 2d 47 70 28 4e 25 2c 34 29 29 2f |N%,0)-Gp(N%,4))/|
00008df0 47 70 28 4e 25 2c 34 29 29 3a f2 41 64 64 28 28 |Gp(N%,4)):.Add((|
00008e00 79 31 2d 47 70 28 4e 25 2c 32 29 29 2f 47 70 28 |y1-Gp(N%,2))/Gp(|
00008e10 4e 25 2c 35 29 29 3a 51 25 3d 38 3a f2 41 64 64 |N%,5)):Q%=8:.Add|
00008e20 28 51 25 29 3a f2 41 64 64 28 28 58 2d 47 70 28 |(Q%):.Add((X-Gp(|
00008e30 4e 25 2c 30 29 29 2f 47 70 28 4e 25 2c 34 29 29 |N%,0))/Gp(N%,4))|
00008e40 3a f2 41 64 64 28 28 79 2d 47 70 28 4e 25 2c 32 |:.Add((y-Gp(N%,2|
00008e50 29 29 2f 47 70 28 4e 25 2c 35 29 29 0d 06 28 4e |))/Gp(N%,5))..(N|
00008e60 cc 20 e7 20 51 25 3c 3e 37 20 f2 41 64 64 28 51 |. . Q%<>7 .Add(Q|
00008e70 25 29 3a f2 41 64 64 28 28 58 2d 47 70 28 4e 25 |%):.Add((X-Gp(N%|
00008e80 2c 30 29 29 2f 47 70 28 4e 25 2c 34 29 29 3a f2 |,0))/Gp(N%,4)):.|
00008e90 41 64 64 28 28 79 2d 47 70 28 4e 25 2c 32 29 29 |Add((y-Gp(N%,2))|
00008ea0 2f 47 70 28 4e 25 2c 35 29 29 0d 06 29 05 cd 0d |/Gp(N%,5))..)...|
00008eb0 06 2a 15 e7 20 4c 69 6d 69 74 25 3d a3 20 80 51 |.*.. Limit%=. .Q|
00008ec0 25 3d 38 8c 0d 06 2b 52 51 25 3d 37 3a f2 41 64 |%=8...+RQ%=7:.Ad|
00008ed0 64 28 32 29 3a f2 41 64 64 28 28 78 31 2d 47 70 |d(2):.Add((x1-Gp|
00008ee0 28 4e 25 2c 30 29 2d 47 70 28 4e 25 2c 34 29 29 |(N%,0)-Gp(N%,4))|
00008ef0 2f 47 70 28 4e 25 2c 34 29 29 3a f2 41 64 64 28 |/Gp(N%,4)):.Add(|
00008f00 28 79 2d 47 70 28 4e 25 2c 32 29 29 2f 47 70 28 |(y-Gp(N%,2))/Gp(|
00008f10 4e 25 2c 35 29 29 0d 06 2c 0b c8 94 20 58 2c 78 |N%,5))..,... X,x|
00008f20 31 0d 06 2d 12 cc 20 e7 20 51 25 3c 3e 37 20 51 |1..-.. . Q%<>7 Q|
00008f30 25 3d 38 0d 06 2e 05 cd 0d 06 2f 0d 79 31 3d 79 |%=8......./.y1=y|
00008f40 3a 78 31 3d 58 0d 06 30 05 e1 0d 06 31 0d dd 20 |:x1=X..0....1.. |
00008f50 f2 55 70 44 61 74 65 0d 06 32 08 f2 55 44 50 0d |.UpDate..2..UDP.|
00008f60 06 33 1d f2 50 6f 6c 6c 28 26 30 30 30 30 31 38 |.3..Poll(&000018|
00008f70 30 30 2c 42 75 66 25 2b 32 35 36 29 0d 06 34 05 |00,Buf%+256)..4.|
00008f80 e1 0d 06 35 0e dd 20 f2 41 64 64 28 56 25 29 0d |...5.. .Add(V%).|
00008f90 06 36 1e e7 20 48 70 25 28 4e 25 2c 31 29 2b 34 |.6.. Hp%(N%,1)+4|
00008fa0 3e 3d 48 70 25 28 4e 25 2c 32 29 20 8c 0d 06 37 |>=Hp%(N%,2) ...7|
00008fb0 22 48 70 25 28 4e 25 2c 30 29 3d a4 48 43 28 48 |"Hp%(N%,0)=.HC(H|
00008fc0 70 25 28 4e 25 2c 30 29 2c 50 53 25 2f 33 29 0d |p%(N%,0),PS%/3).|
00008fd0 06 38 21 48 70 25 28 4e 25 2c 30 29 3d 48 70 25 |.8!Hp%(N%,0)=Hp%|
00008fe0 28 4e 25 2c 30 29 80 26 37 46 46 46 46 46 46 46 |(N%,0).&7FFFFFFF|
00008ff0 0d 06 39 45 e7 20 48 70 25 28 4e 25 2c 30 29 3d |..9E. Hp%(N%,0)=|
00009000 30 20 85 20 30 2c 22 4e 6f 74 20 65 6e 6f 75 67 |0 . 0,"Not enoug|
00009010 68 20 6f 66 20 74 68 61 74 20 74 68 65 72 65 20 |h of that there |
00009020 6d 65 6d 6f 72 79 20 66 6f 72 20 44 72 61 77 20 |memory for Draw |
00009030 70 61 74 68 22 0d 06 3a 1c 48 70 25 28 4e 25 2c |path"..:.Hp%(N%,|
00009040 32 29 3d a4 42 53 28 48 70 25 28 4e 25 2c 30 29 |2)=.BS(Hp%(N%,0)|
00009050 29 0d 06 3b 05 cd 0d 06 3c 1a 48 70 25 28 4e 25 |)..;....<.Hp%(N%|
00009060 2c 30 29 21 48 70 25 28 4e 25 2c 31 29 3d 56 25 |,0)!Hp%(N%,1)=V%|
00009070 0d 06 3d 10 48 70 25 28 4e 25 2c 31 29 2b 3d 34 |..=.Hp%(N%,1)+=4|
00009080 0d 06 3e 05 e1 0d 06 3f 14 dd 20 f2 50 4c 28 58 |..>....?.. .PL(X|
00009090 2c 58 78 2c 59 2c 59 79 29 0d 06 40 43 f2 41 64 |,Xx,Y,Yy)..@C.Ad|
000090a0 64 28 32 29 3a f2 41 64 64 28 28 58 2d 47 70 28 |d(2):.Add((X-Gp(|
000090b0 4e 25 2c 30 29 29 2f 47 70 28 4e 25 2c 34 29 29 |N%,0))/Gp(N%,4))|
000090c0 3a f2 41 64 64 28 28 59 2d 47 70 28 4e 25 2c 32 |:.Add((Y-Gp(N%,2|
000090d0 29 29 2f 47 70 28 4e 25 2c 35 29 29 0d 06 41 45 |))/Gp(N%,5))..AE|
000090e0 f2 41 64 64 28 38 29 3a f2 41 64 64 28 28 58 78 |.Add(8):.Add((Xx|
000090f0 2d 47 70 28 4e 25 2c 30 29 29 2f 47 70 28 4e 25 |-Gp(N%,0))/Gp(N%|
00009100 2c 34 29 29 3a f2 41 64 64 28 28 59 79 2d 47 70 |,4)):.Add((Yy-Gp|
00009110 28 4e 25 2c 32 29 29 2f 47 70 28 4e 25 2c 35 29 |(N%,2))/Gp(N%,5)|
00009120 29 0d 06 42 05 e1 0d 06 43 04 0d 06 44 09 dd 20 |)..B....C...D.. |
00009130 f2 46 52 0d 06 45 0c ea 20 51 25 2c 58 2c 49 0d |.FR..E.. Q%,X,I.|
00009140 06 46 1b e7 20 47 70 28 4e 25 2c 32 30 29 3e 3d |.F.. Gp(N%,20)>=|
00009150 47 70 28 4e 25 2c 31 29 20 e1 0d 06 47 1b 49 3d |Gp(N%,1) ...G.I=|
00009160 47 70 28 4e 25 2c 34 29 2a 47 70 28 4e 25 2c 31 |Gp(N%,4)*Gp(N%,1|
00009170 31 29 2f 32 30 0d 06 48 0f 58 3d 47 70 28 4e 25 |1)/20..H.X=Gp(N%|
00009180 2c 32 30 29 0d 06 49 08 51 25 3d 32 0d 06 4a 11 |,20)..I.Q%=2..J.|
00009190 c8 95 20 58 3c 47 70 28 4e 25 2c 31 29 0d 06 4b |.. X<Gp(N%,1)..K|
000091a0 0c f2 50 6c 6f 74 28 58 29 0d 06 4c 0b f2 55 70 |..Plot(X)..L..Up|
000091b0 44 61 74 65 0d 06 4d 19 e7 20 41 67 25 28 4e 25 |Date..M.. Ag%(N%|
000091c0 29 3d 4e 25 20 84 51 75 69 74 25 20 e1 0d 06 4e |)=N% .Quit% ...N|
000091d0 19 58 2b 3d 47 70 28 4e 25 2c 34 29 2a 47 70 28 |.X+=Gp(N%,4)*Gp(|
000091e0 4e 25 2c 31 31 29 0d 06 4f 05 ce 0d 06 50 13 f2 |N%,11)..O....P..|
000091f0 50 6c 6f 74 28 47 70 28 4e 25 2c 31 29 29 0d 06 |Plot(Gp(N%,1))..|
00009200 51 05 e1 0d 06 52 09 dd 20 f2 46 4c 0d 06 53 0c |Q....R.. .FL..S.|
00009210 ea 20 51 25 2c 58 2c 49 0d 06 54 1b e7 20 47 70 |. Q%,X,I..T.. Gp|
00009220 28 4e 25 2c 32 30 29 3c 3d 47 70 28 4e 25 2c 30 |(N%,20)<=Gp(N%,0|
00009230 29 20 e1 0d 06 55 1c 49 3d 2d 47 70 28 4e 25 2c |) ...U.I=-Gp(N%,|
00009240 34 29 2a 47 70 28 4e 25 2c 31 31 29 2f 32 30 0d |4)*Gp(N%,11)/20.|
00009250 06 56 0f 58 3d 47 70 28 4e 25 2c 32 30 29 0d 06 |.V.X=Gp(N%,20)..|
00009260 57 08 51 25 3d 32 0d 06 58 11 c8 95 20 58 3e 47 |W.Q%=2..X... X>G|
00009270 70 28 4e 25 2c 30 29 0d 06 59 0c f2 50 6c 6f 74 |p(N%,0)..Y..Plot|
00009280 28 58 29 0d 06 5a 0b f2 55 70 44 61 74 65 0d 06 |(X)..Z..UpDate..|
00009290 5b 19 e7 20 41 67 25 28 4e 25 29 3d 4e 25 20 84 |[.. Ag%(N%)=N% .|
000092a0 51 75 69 74 25 20 e1 0d 06 5c 19 58 2d 3d 47 70 |Quit% ...\.X-=Gp|
000092b0 28 4e 25 2c 34 29 2a 47 70 28 4e 25 2c 31 31 29 |(N%,4)*Gp(N%,11)|
000092c0 0d 06 5d 05 ce 0d 06 5e 13 f2 50 6c 6f 74 28 47 |..]....^..Plot(G|
000092d0 70 28 4e 25 2c 30 29 29 0d 06 5f 05 e1 0d 06 60 |p(N%,0)).._....`|
000092e0 0d dd 20 f2 50 47 28 4e 25 29 0d 06 61 4d ea 20 |.. .PG(N%)..aM. |
000092f0 58 44 61 74 75 6d 2c 59 44 61 74 61 6d 2c 58 2c |XDatum,YDatam,X,|
00009300 59 2c 58 31 2c 59 31 2c 58 47 31 2c 58 47 32 2c |Y,X1,Y1,XG1,XG2,|
00009310 59 47 31 2c 59 47 32 2c 58 47 72 61 64 2c 59 47 |YG1,YG2,XGrad,YG|
00009320 72 61 64 2c 58 49 6e 74 2c 59 49 6e 74 2c 58 53 |rad,XInt,YInt,XS|
00009330 75 62 2c 59 53 75 62 0d 06 62 1f ea 20 79 31 2c |ub,YSub..b.. y1,|
00009340 79 32 2c 78 31 2c 51 25 2c 79 2c 43 61 6c 25 2c |y2,x1,Q%,y,Cal%,|
00009350 4c 69 6d 69 74 25 0d 06 63 0f 79 31 3d 30 3a 43 |Limit%..c.y1=0:C|
00009360 61 6c 25 3d b9 0d 06 64 0c f2 53 50 50 28 4e 25 |al%=...d..SPP(N%|
00009370 29 0d 06 65 0c f2 50 47 73 28 4e 25 29 0d 06 66 |)..e..PGs(N%)..f|
00009380 17 48 70 25 28 4e 25 2c 34 29 3d 48 70 25 28 4e |.Hp%(N%,4)=Hp%(N|
00009390 25 2c 31 29 0d 06 67 07 f2 46 52 0d 06 68 0d 79 |%,1)..g..FR..h.y|
000093a0 31 3d 30 3a 78 31 3d 30 0d 06 69 07 f2 46 4c 0d |1=0:x1=0..i..FL.|
000093b0 06 6a 0b f2 41 64 64 28 30 29 0d 06 6b 1f 48 70 |.j..Add(0)..k.Hp|
000093c0 25 28 4e 25 2c 33 29 21 31 33 32 3d 48 70 25 28 |%(N%,3)!132=Hp%(|
000093d0 4e 25 2c 33 29 21 31 32 30 0d 06 6c 05 e1 0d 06 |N%,3)!120..l....|
000093e0 6d 0d dd 20 a4 43 43 28 4e 25 29 0d 06 6e 07 ea |m.. .CC(N%)..n..|
000093f0 20 58 0d 06 6f 07 ea 20 85 0d 06 70 68 ee 20 85 | X..o.. ...ph. .|
00009400 20 ea 20 c8 99 22 57 69 6d 70 5f 52 65 70 6f 72 | . .."Wimp_Repor|
00009410 74 45 72 72 6f 72 22 2c 22 00 00 00 00 46 6f 72 |tError","....For|
00009420 6d 75 6c 61 20 73 79 6e 74 61 78 20 65 72 72 6f |mula syntax erro|
00009430 72 20 69 6e 20 47 72 61 70 68 20 28 22 2b c3 28 |r in Graph ("+.(|
00009440 4e 25 29 2b 22 29 2e 22 2c 31 2c 22 21 47 72 61 |N%)+").",1,"!Gra|
00009450 70 68 22 3a 41 67 25 28 4e 25 29 3d 4e 25 3a 3d |ph":Ag%(N%)=N%:=|
00009460 a3 0d 06 71 4a e7 20 a4 52 4e 28 47 77 25 28 4e |...qJ. .RN(Gw%(N|
00009470 25 29 2c 31 32 29 3c 3d a4 52 4e 28 47 77 25 28 |%),12)<=.RN(Gw%(|
00009480 4e 25 29 2c 31 31 29 20 84 a4 52 4e 28 47 77 25 |N%),11) ..RN(Gw%|
00009490 28 4e 25 29 2c 31 34 29 3c 3d a4 52 4e 28 47 77 |(N%),14)<=.RN(Gw|
000094a0 25 28 4e 25 29 2c 31 33 29 20 8c 0d 06 72 54 c8 |%(N%),13) ...rT.|
000094b0 99 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 |."Wimp_ReportErr|
000094c0 6f 72 22 2c 22 00 00 00 00 53 69 6c 6c 79 20 27 |or","....Silly '|
000094d0 58 27 20 6f 72 20 27 59 27 20 63 6f 6f 72 64 73 |X' or 'Y' coords|
000094e0 2c 20 70 6c 65 61 73 65 20 72 65 2d 73 75 62 6d |, please re-subm|
000094f0 69 74 2e 22 2c 31 2c 22 21 47 72 61 70 68 22 0d |it.",1,"!Graph".|
00009500 06 73 06 3d a3 0d 06 74 05 cd 0d 06 75 0e 58 3d |.s.=...t....u.X=|
00009510 47 70 28 4e 25 2c 31 29 0d 06 76 19 58 3d a0 28 |Gp(N%,1)..v.X=.(|
00009520 a4 52 65 53 28 47 77 25 28 4e 25 29 2c 31 30 29 |.ReS(Gw%(N%),10)|
00009530 29 0d 06 77 06 3d b9 0d 06 78 04 0d 06 79 0e dd |)..w.=...x...y..|
00009540 20 f2 50 47 73 28 4e 25 29 0d 06 7a 16 ea 20 58 | .PGs(N%)..z.. X|
00009550 2c 58 31 2c 59 2c 59 31 2c 4d 25 2c 46 73 25 0d |,X1,Y,Y1,M%,Fs%.|
00009560 06 7b 1b 4d 25 3d a4 52 53 65 6c 65 63 74 28 47 |.{.M%=.RSelect(G|
00009570 77 25 28 4e 25 29 2c 33 35 29 0d 06 7c 1f 58 47 |w%(N%),35)..|.XG|
00009580 31 3d 47 70 28 4e 25 2c 32 30 29 3a 59 47 31 3d |1=Gp(N%,20):YG1=|
00009590 47 70 28 4e 25 2c 32 31 29 0d 06 7d 98 e7 20 47 |Gp(N%,21)..}.. G|
000095a0 70 28 4e 25 2c 30 29 2b 58 47 72 61 64 2a 32 3e |p(N%,0)+XGrad*2>|
000095b0 47 70 28 4e 25 2c 32 30 29 20 80 4d 25 3d 30 20 |Gp(N%,20) .M%=0 |
000095c0 58 47 32 3d 58 47 31 2b 58 47 72 61 64 3a 58 47 |XG2=XG1+XGrad:XG|
000095d0 33 3d 58 47 31 2b 58 47 72 61 64 2f 32 3a 47 70 |3=XG1+XGrad/2:Gp|
000095e0 28 4e 25 2c 31 34 29 3d 47 70 28 4e 25 2c 32 30 |(N%,14)=Gp(N%,20|
000095f0 29 2d 58 47 72 61 64 2a 2e 32 20 8b 20 58 47 32 |)-XGrad*.2 . XG2|
00009600 3d 58 47 31 2d 58 47 72 61 64 3a 58 47 33 3d 58 |=XG1-XGrad:XG3=X|
00009610 47 31 2d 58 47 72 61 64 2f 32 3a 47 70 28 4e 25 |G1-XGrad/2:Gp(N%|
00009620 2c 31 34 29 3d 58 47 32 2d 58 47 72 61 64 2a 2e |,14)=XG2-XGrad*.|
00009630 32 0d 06 7e 9b e7 20 47 70 28 4e 25 2c 32 29 2b |2..~.. Gp(N%,2)+|
00009640 59 47 72 61 64 2a 32 3e 47 70 28 4e 25 2c 32 31 |YGrad*2>Gp(N%,21|
00009650 29 20 80 4d 25 3d 30 20 59 47 32 3d 59 47 31 2b |) .M%=0 YG2=YG1+|
00009660 59 47 72 61 64 3a 59 47 33 3d 59 47 31 2b 59 47 |YGrad:YG3=YG1+YG|
00009670 72 61 64 2f 32 3a 47 70 28 4e 25 2c 31 35 29 3d |rad/2:Gp(N%,15)=|
00009680 47 70 28 4e 25 2c 32 29 2d 47 70 28 4e 25 2c 37 |Gp(N%,2)-Gp(N%,7|
00009690 29 2a 31 2e 32 20 8b 20 59 47 32 3d 59 47 31 2d |)*1.2 . YG2=YG1-|
000096a0 59 47 72 61 64 3a 59 47 33 3d 59 47 31 2d 59 47 |YGrad:YG3=YG1-YG|
000096b0 72 61 64 2f 32 3a 47 70 28 4e 25 2c 31 35 29 3d |rad/2:Gp(N%,15)=|
000096c0 59 47 32 2d 47 70 28 4e 25 2c 37 29 0d 06 7f 4a |YG2-Gp(N%,7)...J|
000096d0 48 70 25 28 4e 25 2c 33 29 21 31 31 36 3d 28 28 |Hp%(N%,3)!116=((|
000096e0 28 47 70 28 4e 25 2c 31 35 29 2d 47 70 28 4e 25 |(Gp(N%,15)-Gp(N%|
000096f0 2c 32 29 29 2f 47 70 28 4e 25 2c 35 29 29 2a 47 |,2))/Gp(N%,5))*G|
00009700 70 28 4e 25 2c 39 29 29 2b 48 70 25 28 4e 25 2c |p(N%,9))+Hp%(N%,|
00009710 33 29 21 31 30 30 0d 06 80 3a 48 70 25 28 4e 25 |3)!100...:Hp%(N%|
00009720 2c 33 29 21 31 31 32 3d 28 28 47 70 28 4e 25 2c |,3)!112=((Gp(N%,|
00009730 31 34 29 2d 47 70 28 4e 25 2c 30 29 29 2f 47 70 |14)-Gp(N%,0))/Gp|
00009740 28 4e 25 2c 34 29 29 2a 47 70 28 4e 25 2c 38 29 |(N%,4))*Gp(N%,8)|
00009750 0d 06 81 2e f2 50 4c 28 47 70 28 4e 25 2c 32 30 |.....PL(Gp(N%,20|
00009760 29 2c 47 70 28 4e 25 2c 32 30 29 2c 47 70 28 4e |),Gp(N%,20),Gp(N|
00009770 25 2c 32 29 2c 47 70 28 4e 25 2c 33 29 29 0d 06 |%,2),Gp(N%,3))..|
00009780 82 2e f2 50 4c 28 47 70 28 4e 25 2c 30 29 2c 47 |...PL(Gp(N%,0),G|
00009790 70 28 4e 25 2c 31 29 2c 47 70 28 4e 25 2c 32 31 |p(N%,1),Gp(N%,21|
000097a0 29 2c 47 70 28 4e 25 2c 32 31 29 29 0d 06 83 0f |),Gp(N%,21))....|
000097b0 58 3d 47 70 28 4e 25 2c 32 30 29 0d 06 84 11 c8 |X=Gp(N%,20).....|
000097c0 95 20 58 3c 47 70 28 4e 25 2c 31 29 0d 06 85 0d |. X<Gp(N%,1)....|
000097d0 58 31 3d 58 2b 58 53 75 62 0d 06 86 11 20 c8 95 |X1=X+XSub.... ..|
000097e0 20 58 31 3c 58 2b 58 49 6e 74 0d 06 87 25 20 e7 | X1<X+XInt...% .|
000097f0 20 58 31 3c 47 70 28 4e 25 2c 31 29 20 f2 50 4c | X1<Gp(N%,1) .PL|
00009800 28 58 31 2c 58 31 2c 59 47 31 2c 59 47 33 29 0d |(X1,X1,YG1,YG3).|
00009810 06 88 0d 20 58 31 2b 3d 58 53 75 62 0d 06 89 06 |... X1+=XSub....|
00009820 20 ce 0d 06 8a 0b 58 2b 3d 58 49 6e 74 0d 06 8b | .....X+=XInt...|
00009830 1c e7 20 58 3e 3d 47 70 28 4e 25 2c 31 29 20 58 |.. X>=Gp(N%,1) X|
00009840 3d 47 70 28 4e 25 2c 31 29 0d 06 8c 14 f2 50 4c |=Gp(N%,1).....PL|
00009850 28 58 2c 58 2c 59 47 31 2c 59 47 32 29 0d 06 8d |(X,X,YG1,YG2)...|
00009860 1d f2 50 6f 6c 6c 28 26 30 30 30 30 31 38 30 30 |..Poll(&00001800|
00009870 2c 42 75 66 25 2b 32 35 36 29 0d 06 8e 19 e7 20 |,Buf%+256)..... |
00009880 41 67 25 28 4e 25 29 3d 4e 25 20 84 51 75 69 74 |Ag%(N%)=N% .Quit|
00009890 25 20 e1 0d 06 8f 05 ce 0d 06 90 0f 58 3d 47 70 |% ..........X=Gp|
000098a0 28 4e 25 2c 32 30 29 0d 06 91 11 c8 95 20 58 3e |(N%,20)...... X>|
000098b0 47 70 28 4e 25 2c 30 29 0d 06 92 0d 58 31 3d 58 |Gp(N%,0)....X1=X|
000098c0 2d 58 53 75 62 0d 06 93 11 20 c8 95 20 58 31 3e |-XSub.... .. X1>|
000098d0 58 2d 58 49 6e 74 0d 06 94 25 20 e7 20 58 31 3e |X-XInt...% . X1>|
000098e0 47 70 28 4e 25 2c 30 29 20 f2 50 4c 28 58 31 2c |Gp(N%,0) .PL(X1,|
000098f0 58 31 2c 59 47 31 2c 59 47 33 29 0d 06 95 0d 20 |X1,YG1,YG3).... |
00009900 58 31 2d 3d 58 53 75 62 0d 06 96 06 20 ce 0d 06 |X1-=XSub.... ...|
00009910 97 0b 58 2d 3d 58 49 6e 74 0d 06 98 1c e7 20 58 |..X-=XInt..... X|
00009920 3c 3d 47 70 28 4e 25 2c 30 29 20 58 3d 47 70 28 |<=Gp(N%,0) X=Gp(|
00009930 4e 25 2c 30 29 0d 06 99 14 f2 50 4c 28 58 2c 58 |N%,0).....PL(X,X|
00009940 2c 59 47 31 2c 59 47 32 29 0d 06 9a 1d f2 50 6f |,YG1,YG2).....Po|
00009950 6c 6c 28 26 30 30 30 30 31 38 30 30 2c 42 75 66 |ll(&00001800,Buf|
00009960 25 2b 32 35 36 29 0d 06 9b 19 e7 20 41 67 25 28 |%+256)..... Ag%(|
00009970 4e 25 29 3d 4e 25 20 84 51 75 69 74 25 20 e1 0d |N%)=N% .Quit% ..|
00009980 06 9c 05 ce 0d 06 9d 0f 59 3d 47 70 28 4e 25 2c |........Y=Gp(N%,|
00009990 32 31 29 0d 06 9e 11 c8 95 20 59 3c 47 70 28 4e |21)...... Y<Gp(N|
000099a0 25 2c 33 29 0d 06 9f 0d 59 31 3d 59 2b 59 53 75 |%,3)....Y1=Y+YSu|
000099b0 62 0d 06 a0 11 20 c8 95 20 59 31 3c 59 2b 59 49 |b.... .. Y1<Y+YI|
000099c0 6e 74 0d 06 a1 25 20 e7 20 59 31 3c 47 70 28 4e |nt...% . Y1<Gp(N|
000099d0 25 2c 33 29 20 f2 50 4c 28 58 47 31 2c 58 47 33 |%,3) .PL(XG1,XG3|
000099e0 2c 59 31 2c 59 31 29 0d 06 a2 0d 20 59 31 2b 3d |,Y1,Y1).... Y1+=|
000099f0 59 53 75 62 0d 06 a3 06 20 ce 0d 06 a4 0b 59 2b |YSub.... .....Y+|
00009a00 3d 59 49 6e 74 0d 06 a5 1c e7 20 59 3e 3d 47 70 |=YInt..... Y>=Gp|
00009a10 28 4e 25 2c 33 29 20 59 3d 47 70 28 4e 25 2c 33 |(N%,3) Y=Gp(N%,3|
00009a20 29 0d 06 a6 14 f2 50 4c 28 58 47 31 2c 58 47 32 |).....PL(XG1,XG2|
00009a30 2c 59 2c 59 29 0d 06 a7 1d f2 50 6f 6c 6c 28 26 |,Y,Y).....Poll(&|
00009a40 30 30 30 30 31 38 30 30 2c 42 75 66 25 2b 32 35 |00001800,Buf%+25|
00009a50 36 29 0d 06 a8 19 e7 20 41 67 25 28 4e 25 29 3d |6)..... Ag%(N%)=|
00009a60 4e 25 20 84 51 75 69 74 25 20 e1 0d 06 a9 05 ce |N% .Quit% ......|
00009a70 0d 06 aa 0f 59 3d 47 70 28 4e 25 2c 32 31 29 0d |....Y=Gp(N%,21).|
00009a80 06 ab 11 c8 95 20 59 3e 47 70 28 4e 25 2c 32 29 |..... Y>Gp(N%,2)|
00009a90 0d 06 ac 0d 59 31 3d 59 2d 59 53 75 62 0d 06 ad |....Y1=Y-YSub...|
00009aa0 11 20 c8 95 20 59 31 3e 59 2d 59 49 6e 74 0d 06 |. .. Y1>Y-YInt..|
00009ab0 ae 25 20 e7 20 59 31 3e 47 70 28 4e 25 2c 32 29 |.% . Y1>Gp(N%,2)|
00009ac0 20 f2 50 4c 28 58 47 31 2c 58 47 33 2c 59 31 2c | .PL(XG1,XG3,Y1,|
00009ad0 59 31 29 0d 06 af 0d 20 59 31 2d 3d 59 53 75 62 |Y1).... Y1-=YSub|
00009ae0 0d 06 b0 06 20 ce 0d 06 b1 0b 59 2d 3d 59 49 6e |.... .....Y-=YIn|
00009af0 74 0d 06 b2 1c e7 20 59 3c 3d 47 70 28 4e 25 2c |t..... Y<=Gp(N%,|
00009b00 32 29 20 59 3d 47 70 28 4e 25 2c 32 29 0d 06 b3 |2) Y=Gp(N%,2)...|
00009b10 14 f2 50 4c 28 58 47 31 2c 58 47 32 2c 59 2c 59 |..PL(XG1,XG2,Y,Y|
00009b20 29 0d 06 b4 1d f2 50 6f 6c 6c 28 26 30 30 30 30 |).....Poll(&0000|
00009b30 31 38 30 30 2c 42 75 66 25 2b 32 35 36 29 0d 06 |1800,Buf%+256)..|
00009b40 b5 19 e7 20 41 67 25 28 4e 25 29 3d 4e 25 20 84 |... Ag%(N%)=N% .|
00009b50 51 75 69 74 25 20 e1 0d 06 b6 05 ce 0d 06 b7 0b |Quit% ..........|
00009b60 f2 41 64 64 28 30 29 0d 06 b8 05 e1 0d 06 b9 04 |.Add(0).........|
00009b70 0d 06 ba 0e dd 20 f2 53 50 50 28 4e 25 29 0d 06 |..... .SPP(N%)..|
00009b80 bb 21 58 47 72 61 64 3d 28 47 70 28 4e 25 2c 31 |.!XGrad=(Gp(N%,1|
00009b90 29 2d 47 70 28 4e 25 2c 30 29 29 2f 47 6d 25 0d |)-Gp(N%,0))/Gm%.|
00009ba0 06 bc 21 59 47 72 61 64 3d 28 47 70 28 4e 25 2c |..!YGrad=(Gp(N%,|
00009bb0 33 29 2d 47 70 28 4e 25 2c 32 29 29 2f 47 6d 25 |3)-Gp(N%,2))/Gm%|
00009bc0 0d 06 bd 18 58 49 6e 74 3d a4 52 4e 28 47 77 25 |....XInt=.RN(Gw%|
00009bd0 28 4e 25 29 2c 31 35 29 0d 06 be 14 e7 20 58 49 |(N%),15)..... XI|
00009be0 6e 74 3c 3d 30 20 58 49 6e 74 3d 31 0d 06 bf 18 |nt<=0 XInt=1....|
00009bf0 59 49 6e 74 3d a4 52 4e 28 47 77 25 28 4e 25 29 |YInt=.RN(Gw%(N%)|
00009c00 2c 31 36 29 0d 06 c0 14 e7 20 59 49 6e 74 3c 3d |,16)..... YInt<=|
00009c10 30 20 59 49 6e 74 3d 31 0d 06 c1 18 58 53 75 62 |0 YInt=1....XSub|
00009c20 3d a4 52 4e 28 47 77 25 28 4e 25 29 2c 31 37 29 |=.RN(Gw%(N%),17)|
00009c30 0d 06 c2 13 e7 20 58 53 75 62 3c 31 20 58 53 75 |..... XSub<1 XSu|
00009c40 62 3d 31 0d 06 c3 18 59 53 75 62 3d a4 52 4e 28 |b=1....YSub=.RN(|
00009c50 47 77 25 28 4e 25 29 2c 31 38 29 0d 06 c4 13 e7 |Gw%(N%),18).....|
00009c60 20 59 53 75 62 3c 31 20 59 53 75 62 3d 31 0d 06 | YSub<1 YSub=1..|
00009c70 c5 14 58 53 75 62 3d 58 49 6e 74 2f 28 58 53 75 |..XSub=XInt/(XSu|
00009c80 62 29 0d 06 c6 14 59 53 75 62 3d 59 49 6e 74 2f |b)....YSub=YInt/|
00009c90 28 59 53 75 62 29 0d 06 c7 1b 46 24 28 4e 25 29 |(YSub)....F$(N%)|
00009ca0 3d a4 52 65 53 28 47 77 25 28 4e 25 29 2c 31 30 |=.ReS(Gw%(N%),10|
00009cb0 29 0d 06 c8 05 e1 0d 06 c9 0e dd 20 a4 53 58 44 |).......... .SXD|
00009cc0 28 4e 25 29 0d 06 ca 33 e7 20 47 70 28 4e 25 2c |(N%)...3. Gp(N%,|
00009cd0 30 29 3e 30 20 3d 47 70 28 4e 25 2c 30 29 20 8b |0)>0 =Gp(N%,0) .|
00009ce0 20 e7 20 47 70 28 4e 25 2c 31 29 3c 30 20 3d 47 | . Gp(N%,1)<0 =G|
00009cf0 70 28 4e 25 2c 31 29 0d 06 cb 06 3d 30 0d 06 cc |p(N%,1)....=0...|
00009d00 0e dd 20 a4 53 59 44 28 4e 25 29 0d 06 cd 33 e7 |.. .SYD(N%)...3.|
00009d10 20 47 70 28 4e 25 2c 32 29 3e 30 20 3d 47 70 28 | Gp(N%,2)>0 =Gp(|
00009d20 4e 25 2c 32 29 20 8b 20 e7 20 47 70 28 4e 25 2c |N%,2) . . Gp(N%,|
00009d30 33 29 3c 30 20 3d 47 70 28 4e 25 2c 33 29 0d 06 |3)<0 =Gp(N%,3)..|
00009d40 ce 06 3d 30 0d 06 cf 0a dd 20 a4 4f 53 58 0d 06 |..=0..... .OSX..|
00009d50 d0 12 3d a4 50 58 3c 3c a4 58 50 69 78 56 61 6c |..=.PX<<.XPixVal|
00009d60 0d 06 d1 0a dd 20 a4 4f 53 59 0d 06 d2 12 3d a4 |..... .OSY....=.|
00009d70 50 59 3c 3c a4 59 50 69 78 56 61 6c 0d 06 d3 09 |PY<<.YPixVal....|
00009d80 dd 20 a4 50 58 0d 06 d4 08 ea 20 58 25 0d 06 d5 |. .PX..... X%...|
00009d90 28 c8 99 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 |(.."OS_ReadModeV|
00009da0 61 72 69 61 62 6c 65 22 2c 2d 31 2c 31 31 20 b8 |ariable",-1,11 .|
00009db0 20 2c 2c 58 25 0d 06 d6 09 3d 58 25 2b 31 0d 06 | ,,X%....=X%+1..|
00009dc0 d7 09 dd 20 a4 50 59 0d 06 d8 08 ea 20 59 25 0d |... .PY..... Y%.|
00009dd0 06 d9 28 c8 99 22 4f 53 5f 52 65 61 64 4d 6f 64 |..(.."OS_ReadMod|
00009de0 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 2c 31 32 |eVariable",-1,12|
00009df0 20 b8 20 2c 2c 59 25 0d 06 da 09 3d 59 25 2b 31 | . ,,Y%....=Y%+1|
00009e00 0d 06 db 0e dd 20 a4 58 50 69 78 56 61 6c 0d 06 |..... .XPixVal..|
00009e10 dc 08 ea 20 58 25 0d 06 dd 27 c8 99 22 4f 53 5f |... X%...'.."OS_|
00009e20 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 |ReadModeVariable|
00009e30 22 2c 2d 31 2c 34 20 b8 20 2c 2c 58 25 0d 06 de |",-1,4 . ,,X%...|
00009e40 07 3d 58 25 0d 06 df 0e dd 20 a4 59 50 69 78 56 |.=X%..... .YPixV|
00009e50 61 6c 0d 06 e0 08 ea 20 59 25 0d 06 e1 27 c8 99 |al..... Y%...'..|
00009e60 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 |"OS_ReadModeVari|
00009e70 61 62 6c 65 22 2c 2d 31 2c 35 20 b8 20 2c 2c 59 |able",-1,5 . ,,Y|
00009e80 25 0d 06 e2 07 3d 59 25 0d 06 e3 0d dd 20 f2 53 |%....=Y%..... .S|
00009e90 50 28 4e 25 29 0d 06 e4 19 47 70 28 4e 25 2c 34 |P(N%)....Gp(N%,4|
00009ea0 29 3d 31 3a 47 70 28 4e 25 2c 35 29 3d 31 0d 06 |)=1:Gp(N%,5)=1..|
00009eb0 e5 14 47 70 28 4e 25 2c 31 33 29 3d a4 4f 53 58 |..Gp(N%,13)=.OSX|
00009ec0 2a 34 0d 06 e6 14 47 70 28 4e 25 2c 31 32 29 3d |*4....Gp(N%,12)=|
00009ed0 a4 4f 53 59 2a 34 0d 06 e7 0c f2 53 50 31 28 4e |.OSY*4.....SP1(N|
00009ee0 25 29 0d 06 e8 30 e7 20 a4 52 4e 28 47 77 25 28 |%)...0. .RN(Gw%(|
00009ef0 4e 25 29 2c 31 39 29 2a 28 47 70 28 4e 25 2c 31 |N%),19)*(Gp(N%,1|
00009f00 30 29 29 2f a4 52 4e 28 53 57 25 2c 31 29 3e 31 |0))/.RN(SW%,1)>1|
00009f10 20 8c 0d 06 e9 3d 47 70 28 4e 25 2c 31 33 29 3d | ....=Gp(N%,13)=|
00009f20 a4 4f 53 58 2a 34 2a 28 a4 52 4e 28 47 77 25 28 |.OSX*4*(.RN(Gw%(|
00009f30 4e 25 29 2c 31 39 29 2a 28 47 70 28 4e 25 2c 31 |N%),19)*(Gp(N%,1|
00009f40 30 29 29 2f a4 52 4e 28 53 57 25 2c 31 29 29 0d |0))/.RN(SW%,1)).|
00009f50 06 ea 3d 47 70 28 4e 25 2c 31 32 29 3d a4 4f 53 |..=Gp(N%,12)=.OS|
00009f60 59 2a 34 2a 28 a4 52 4e 28 47 77 25 28 4e 25 29 |Y*4*(.RN(Gw%(N%)|
00009f70 2c 31 39 29 2a 28 47 70 28 4e 25 2c 31 30 29 29 |,19)*(Gp(N%,10))|
00009f80 2f a4 52 4e 28 53 57 25 2c 31 29 29 0d 06 eb 05 |/.RN(SW%,1))....|
00009f90 cd 0d 06 ec 1d 47 70 28 4e 25 2c 30 29 3d a4 52 |.....Gp(N%,0)=.R|
00009fa0 4e 30 28 47 77 25 28 4e 25 29 2c 31 31 29 0d 06 |N0(Gw%(N%),11)..|
00009fb0 ed 1d 47 70 28 4e 25 2c 31 29 3d a4 52 4e 30 28 |..Gp(N%,1)=.RN0(|
00009fc0 47 77 25 28 4e 25 29 2c 31 32 29 0d 06 ee 1d 47 |Gw%(N%),12)....G|
00009fd0 70 28 4e 25 2c 32 29 3d a4 52 4e 30 28 47 77 25 |p(N%,2)=.RN0(Gw%|
00009fe0 28 4e 25 29 2c 31 33 29 0d 06 ef 1d 47 70 28 4e |(N%),13)....Gp(N|
00009ff0 25 2c 33 29 3d a4 52 4e 30 28 47 77 25 28 4e 25 |%,3)=.RN0(Gw%(N%|
0000a000 29 2c 31 34 29 0d 06 f0 1d 47 70 28 4e 25 2c 31 |),14)....Gp(N%,1|
0000a010 38 29 3d a4 52 4e 28 47 77 25 28 4e 25 29 2c 31 |8)=.RN(Gw%(N%),1|
0000a020 37 29 0d 06 f1 1d 47 70 28 4e 25 2c 31 39 29 3d |7)....Gp(N%,19)=|
0000a030 a4 52 4e 28 47 77 25 28 4e 25 29 2c 31 38 29 0d |.RN(Gw%(N%),18).|
0000a040 06 f2 16 47 70 28 4e 25 2c 32 30 29 3d a4 53 58 |...Gp(N%,20)=.SX|
0000a050 44 28 4e 25 29 0d 06 f3 16 47 70 28 4e 25 2c 32 |D(N%)....Gp(N%,2|
0000a060 31 29 3d a4 53 59 44 28 4e 25 29 0d 06 f4 27 47 |1)=.SYD(N%)...'G|
0000a070 70 28 4e 25 2c 31 31 29 3d 47 70 28 4e 25 2c 31 |p(N%,11)=Gp(N%,1|
0000a080 33 29 2f a4 52 4e 28 47 77 25 28 4e 25 29 2c 33 |3)/.RN(Gw%(N%),3|
0000a090 30 29 0d 06 f5 2a 47 70 28 4e 25 2c 34 29 3d 28 |0)...*Gp(N%,4)=(|
0000a0a0 47 70 28 4e 25 2c 31 29 2d 47 70 28 4e 25 2c 30 |Gp(N%,1)-Gp(N%,0|
0000a0b0 29 29 2f 47 70 28 4e 25 2c 31 33 29 0d 06 f6 2a |))/Gp(N%,13)...*|
0000a0c0 47 70 28 4e 25 2c 35 29 3d 28 47 70 28 4e 25 2c |Gp(N%,5)=(Gp(N%,|
0000a0d0 33 29 2d 47 70 28 4e 25 2c 32 29 29 2f 47 70 28 |3)-Gp(N%,2))/Gp(|
0000a0e0 4e 25 2c 31 32 29 0d 06 f7 0c f2 53 50 31 28 4e |N%,12).....SP1(N|
0000a0f0 25 29 0d 06 f8 0c f2 53 54 73 28 4e 25 29 0d 06 |%).....STs(N%)..|
0000a100 f9 05 e1 0d 06 fa 0d dd 20 f2 54 54 28 4e 25 29 |........ .TT(N%)|
0000a110 0d 06 fb 08 ea 20 41 25 0d 06 fc 11 e3 20 41 25 |..... A%..... A%|
0000a120 3d 30 20 b8 32 30 20 88 34 0d 06 fd 22 48 70 25 |=0 .20 .4..."Hp%|
0000a130 28 4e 25 2c 33 29 21 28 41 25 2b 32 34 29 3d 48 |(N%,3)!(A%+24)=H|
0000a140 70 25 28 4e 25 2c 33 29 21 41 25 0d 06 fe 05 ed |p%(N%,3)!A%.....|
0000a150 0d 06 ff 05 e1 0d 07 00 0d dd 20 f2 53 4d 28 4e |.......... .SM(N|
0000a160 25 29 0d 07 01 3e e7 20 a4 52 53 68 61 64 65 28 |%)...>. .RShade(|
0000a170 47 77 25 28 4e 25 29 2c 35 29 3e 30 20 4d 3d 31 |Gw%(N%),5)>0 M=1|
0000a180 3a 47 70 28 4e 25 2c 31 37 29 3d 31 20 8b 20 4d |:Gp(N%,17)=1 . M|
0000a190 3d 4d 67 3a 47 70 28 4e 25 2c 31 37 29 3d 4d 67 |=Mg:Gp(N%,17)=Mg|
0000a1a0 0d 07 02 47 e7 20 a4 52 65 53 28 47 77 25 28 4e |...G. .ReS(Gw%(N|
0000a1b0 25 29 2c 35 29 3d 22 47 72 61 70 68 20 77 69 64 |%),5)="Graph wid|
0000a1c0 74 68 22 20 47 70 28 4e 25 2c 31 30 29 3d 31 2f |th" Gp(N%,10)=1/|
0000a1d0 47 70 28 4e 25 2c 31 37 29 20 8b 20 47 70 28 4e |Gp(N%,17) . Gp(N|
0000a1e0 25 2c 31 30 29 3d 31 0d 07 03 05 e1 0d 07 04 0e |%,10)=1.........|
0000a1f0 dd 20 f2 53 50 31 28 4e 25 29 0d 07 05 30 53 69 |. .SP1(N%)...0Si|
0000a200 7a 65 46 3d a4 52 4e 28 47 77 25 28 4e 25 29 2c |zeF=.RN(Gw%(N%),|
0000a210 31 39 29 2a 28 47 70 28 4e 25 2c 31 30 29 29 2f |19)*(Gp(N%,10))/|
0000a220 a4 52 4e 28 53 57 25 2c 31 29 0d 07 06 1e 48 70 |.RN(SW%,1)....Hp|
0000a230 25 28 4e 25 2c 33 29 21 38 38 3d a8 28 a4 4f 53 |%(N%,3)!88=.(.OS|
0000a240 58 2a 53 69 7a 65 46 29 0d 07 07 18 e7 20 48 70 |X*SizeF)..... Hp|
0000a250 25 28 4e 25 2c 33 29 21 38 38 3c 31 35 30 20 8c |%(N%,3)!88<150 .|
0000a260 0d 07 08 39 f2 4c 4e 28 47 77 25 28 4e 25 29 2c |...9.LN(Gw%(N%),|
0000a270 31 39 2c a8 28 28 31 35 30 2f 48 70 25 28 4e 25 |19,.((150/Hp%(N%|
0000a280 2c 33 29 21 38 38 29 2a a4 52 4e 28 47 77 25 28 |,3)!88)*.RN(Gw%(|
0000a290 4e 25 29 2c 31 39 29 29 29 0d 07 09 30 53 69 7a |N%),19)))...0Siz|
0000a2a0 65 46 3d a4 52 4e 28 47 77 25 28 4e 25 29 2c 31 |eF=.RN(Gw%(N%),1|
0000a2b0 39 29 2a 28 47 70 28 4e 25 2c 31 30 29 29 2f a4 |9)*(Gp(N%,10))/.|
0000a2c0 52 4e 28 53 57 25 2c 31 29 0d 07 0a 1e 48 70 25 |RN(SW%,1)....Hp%|
0000a2d0 28 4e 25 2c 33 29 21 38 38 3d a8 28 a4 4f 53 58 |(N%,3)!88=.(.OSX|
0000a2e0 2a 53 69 7a 65 46 29 0d 07 0b 05 cd 0d 07 0c 1e |*SizeF).........|
0000a2f0 48 70 25 28 4e 25 2c 33 29 21 39 32 3d a8 28 a4 |Hp%(N%,3)!92=.(.|
0000a300 4f 53 59 2a 53 69 7a 65 46 29 0d 07 0d 2d 48 70 |OSY*SizeF)...-Hp|
0000a310 25 28 4e 25 2c 33 29 21 39 36 3d 48 70 25 28 4e |%(N%,3)!96=Hp%(N|
0000a320 25 2c 33 29 21 38 38 2a 28 31 2d 47 70 28 4e 25 |%,3)!88*(1-Gp(N%|
0000a330 2c 31 37 29 29 2f 32 0d 07 0e 2e 48 70 25 28 4e |,17))/2....Hp%(N|
0000a340 25 2c 33 29 21 31 30 30 3d 48 70 25 28 4e 25 2c |%,3)!100=Hp%(N%,|
0000a350 33 29 21 39 32 2a 28 31 2d 47 70 28 4e 25 2c 31 |3)!92*(1-Gp(N%,1|
0000a360 37 29 29 2f 32 0d 07 0f 2f 47 70 28 4e 25 2c 38 |7))/2.../Gp(N%,8|
0000a370 29 3d 28 48 70 25 28 4e 25 2c 33 29 21 38 38 2f |)=(Hp%(N%,3)!88/|
0000a380 47 70 28 4e 25 2c 31 33 29 29 2a 47 70 28 4e 25 |Gp(N%,13))*Gp(N%|
0000a390 2c 31 37 29 0d 07 10 2f 47 70 28 4e 25 2c 39 29 |,17).../Gp(N%,9)|
0000a3a0 3d 28 48 70 25 28 4e 25 2c 33 29 21 39 32 2f 47 |=(Hp%(N%,3)!92/G|
0000a3b0 70 28 4e 25 2c 31 32 29 29 2a 47 70 28 4e 25 2c |p(N%,12))*Gp(N%,|
0000a3c0 31 37 29 0d 07 11 23 47 70 28 4e 25 2c 36 29 3d |17)...#Gp(N%,6)=|
0000a3d0 28 47 70 28 4e 25 2c 31 29 2d 47 70 28 4e 25 2c |(Gp(N%,1)-Gp(N%,|
0000a3e0 30 29 29 2f 34 30 0d 07 12 23 47 70 28 4e 25 2c |0))/40...#Gp(N%,|
0000a3f0 37 29 3d 28 47 70 28 4e 25 2c 33 29 2d 47 70 28 |7)=(Gp(N%,3)-Gp(|
0000a400 4e 25 2c 32 29 29 2f 34 30 0d 07 13 35 48 70 25 |N%,2))/40...5Hp%|
0000a410 28 4e 25 2c 33 29 21 31 30 34 3d 28 a4 52 4e 28 |(N%,3)!104=(.RN(|
0000a420 47 77 25 28 4e 25 29 2c 31 35 29 2f 47 70 28 4e |Gw%(N%),15)/Gp(N|
0000a430 25 2c 34 29 29 2a 47 70 28 4e 25 2c 38 29 0d 07 |%,4))*Gp(N%,8)..|
0000a440 14 35 48 70 25 28 4e 25 2c 33 29 21 31 30 38 3d |.5Hp%(N%,3)!108=|
0000a450 28 a4 52 4e 28 47 77 25 28 4e 25 29 2c 31 36 29 |(.RN(Gw%(N%),16)|
0000a460 2f 47 70 28 4e 25 2c 35 29 29 2a 47 70 28 4e 25 |/Gp(N%,5))*Gp(N%|
0000a470 2c 39 29 0d 07 15 3a 48 70 25 28 4e 25 2c 33 29 |,9)...:Hp%(N%,3)|
0000a480 21 31 31 32 3d 28 28 47 70 28 4e 25 2c 31 34 29 |!112=((Gp(N%,14)|
0000a490 2d 47 70 28 4e 25 2c 30 29 29 2f 47 70 28 4e 25 |-Gp(N%,0))/Gp(N%|
0000a4a0 2c 34 29 29 2a 47 70 28 4e 25 2c 38 29 0d 07 16 |,4))*Gp(N%,8)...|
0000a4b0 4a 48 70 25 28 4e 25 2c 33 29 21 31 31 36 3d 28 |JHp%(N%,3)!116=(|
0000a4c0 28 28 47 70 28 4e 25 2c 31 35 29 2d 47 70 28 4e |((Gp(N%,15)-Gp(N|
0000a4d0 25 2c 32 29 29 2f 47 70 28 4e 25 2c 35 29 29 2a |%,2))/Gp(N%,5))*|
0000a4e0 47 70 28 4e 25 2c 39 29 29 2b 48 70 25 28 4e 25 |Gp(N%,9))+Hp%(N%|
0000a4f0 2c 33 29 21 31 30 30 0d 07 17 1e 48 70 25 28 4e |,3)!100....Hp%(N|
0000a500 25 2c 33 29 21 31 32 30 3d 48 70 25 28 4e 25 2c |%,3)!120=Hp%(N%,|
0000a510 33 29 21 39 32 0d 07 18 31 48 70 25 28 4e 25 2c |3)!92...1Hp%(N%,|
0000a520 33 29 21 38 34 3d 2d a8 28 48 70 25 28 4e 25 2c |3)!84=-.(Hp%(N%,|
0000a530 33 29 21 39 32 2b 48 70 25 28 4e 25 2c 33 29 21 |3)!92+Hp%(N%,3)!|
0000a540 39 32 2a 54 65 29 0d 07 19 05 e1 0d 07 1a 04 0d |92*Te)..........|
0000a550 07 1b 0e dd 20 f2 53 54 73 28 4e 25 29 0d 07 1c |.... .STs(N%)...|
0000a560 24 21 48 70 25 28 4e 25 2c 33 29 3d 28 47 70 28 |$!Hp%(N%,3)=(Gp(|
0000a570 4e 25 2c 38 29 2a 32 35 36 29 2a 26 31 30 30 30 |N%,8)*256)*&1000|
0000a580 30 0d 07 1d 11 48 70 25 28 4e 25 2c 33 29 21 34 |0....Hp%(N%,3)!4|
0000a590 3d 30 0d 07 1e 11 48 70 25 28 4e 25 2c 33 29 21 |=0....Hp%(N%,3)!|
0000a5a0 38 3d 30 0d 07 1f 26 48 70 25 28 4e 25 2c 33 29 |8=0...&Hp%(N%,3)|
0000a5b0 21 31 32 3d 28 47 70 28 4e 25 2c 39 29 2a 32 35 |!12=(Gp(N%,9)*25|
0000a5c0 36 29 2a 26 31 30 30 30 30 0d 07 20 21 48 70 25 |6)*&10000.. !Hp%|
0000a5d0 28 4e 25 2c 33 29 21 31 36 3d 48 70 25 28 4e 25 |(N%,3)!16=Hp%(N%|
0000a5e0 2c 33 29 21 39 36 2a 32 35 36 0d 07 21 22 48 70 |,3)!96*256..!"Hp|
0000a5f0 25 28 4e 25 2c 33 29 21 32 30 3d 48 70 25 28 4e |%(N%,3)!20=Hp%(N|
0000a600 25 2c 33 29 21 31 30 30 2a 32 35 36 0d 07 22 05 |%,3)!100*256..".|
0000a610 e1 0d 07 23 0d dd 20 f2 58 4e 28 4e 25 29 0d 07 |...#.. .XN(N%)..|
0000a620 24 42 48 70 25 28 4e 25 2c 33 29 21 31 32 38 3d |$BHp%(N%,3)!128=|
0000a630 48 70 25 28 4e 25 2c 33 29 21 39 36 2d 28 a4 53 |Hp%(N%,3)!96-(.S|
0000a640 57 28 46 68 25 28 4e 25 2c 31 29 2c a4 52 65 53 |W(Fh%(N%,1),.ReS|
0000a650 28 47 77 25 28 4e 25 29 2c 31 31 29 29 2f 32 29 |(Gw%(N%),11))/2)|
0000a660 0d 07 25 51 48 70 25 28 4e 25 2c 33 29 21 31 34 |..%QHp%(N%,3)!14|
0000a670 34 3d 28 48 70 25 28 4e 25 2c 33 29 21 38 38 2d |4=(Hp%(N%,3)!88-|
0000a680 48 70 25 28 4e 25 2c 33 29 21 39 36 29 2d 28 a4 |Hp%(N%,3)!96)-(.|
0000a690 53 57 28 46 68 25 28 4e 25 2c 31 29 2c a4 52 65 |SW(Fh%(N%,1),.Re|
0000a6a0 53 28 47 77 25 28 4e 25 29 2c 31 32 29 29 2f 32 |S(Gw%(N%),12))/2|
0000a6b0 29 0d 07 26 46 c8 99 22 46 6f 6e 74 5f 52 65 61 |)..&F.."Font_Rea|
0000a6c0 64 44 65 66 6e 22 2c 46 68 25 28 4e 25 2c 31 29 |dDefn",Fh%(N%,1)|
0000a6d0 2c 57 62 25 20 b8 20 2c 57 62 25 2c 48 70 25 28 |,Wb% . ,Wb%,Hp%(|
0000a6e0 4e 25 2c 33 29 21 31 35 32 2c 48 70 25 28 4e 25 |N%,3)!152,Hp%(N%|
0000a6f0 2c 33 29 21 31 35 36 0d 07 27 05 e1 0d 07 28 0d |,3)!156..'....(.|
0000a700 dd 20 f2 59 4e 28 4e 25 29 0d 07 29 41 c8 99 22 |. .YN(N%)..)A.."|
0000a710 46 6f 6e 74 5f 43 6f 6e 76 65 72 74 74 6f 4f 53 |Font_ConverttoOS|
0000a720 22 2c 2c 31 30 2c 48 70 25 28 4e 25 2c 33 29 21 |",,10,Hp%(N%,3)!|
0000a730 31 35 36 2a 36 32 2e 35 20 b8 20 2c 2c 48 70 25 |156*62.5 . ,,Hp%|
0000a740 28 4e 25 2c 33 29 21 32 31 32 0d 07 2a 31 48 70 |(N%,3)!212..*1Hp|
0000a750 25 28 4e 25 2c 33 29 21 31 36 38 3d 48 70 25 28 |%(N%,3)!168=Hp%(|
0000a760 4e 25 2c 33 29 21 31 30 30 2d 28 48 70 25 28 4e |N%,3)!100-(Hp%(N|
0000a770 25 2c 33 29 21 32 31 32 2f 33 29 0d 07 2b 40 48 |%,3)!212/3)..+@H|
0000a780 70 25 28 4e 25 2c 33 29 21 31 37 36 3d 28 48 70 |p%(N%,3)!176=(Hp|
0000a790 25 28 4e 25 2c 33 29 21 39 32 2d 48 70 25 28 4e |%(N%,3)!92-Hp%(N|
0000a7a0 25 2c 33 29 21 31 30 30 29 2d 28 48 70 25 28 4e |%,3)!100)-(Hp%(N|
0000a7b0 25 2c 33 29 21 32 31 32 2f 33 29 0d 07 2c 04 0d |%,3)!212/3)..,..|
0000a7c0 07 2d 50 48 70 25 28 4e 25 2c 33 29 21 31 39 36 |.-PHp%(N%,3)!196|
0000a7d0 3d 28 48 70 25 28 4e 25 2c 33 29 21 31 31 32 2b |=(Hp%(N%,3)!112+|
0000a7e0 48 70 25 28 4e 25 2c 33 29 21 39 36 29 2d 28 a4 |Hp%(N%,3)!96)-(.|
0000a7f0 53 57 28 46 68 25 28 4e 25 2c 31 29 2c a4 52 65 |SW(Fh%(N%,1),.Re|
0000a800 53 28 47 77 25 28 4e 25 29 2c 31 33 29 29 29 0d |S(Gw%(N%),13))).|
0000a810 07 2e 50 48 70 25 28 4e 25 2c 33 29 21 32 30 34 |..PHp%(N%,3)!204|
0000a820 3d 28 48 70 25 28 4e 25 2c 33 29 21 31 31 32 2b |=(Hp%(N%,3)!112+|
0000a830 48 70 25 28 4e 25 2c 33 29 21 39 36 29 2d 28 a4 |Hp%(N%,3)!96)-(.|
0000a840 53 57 28 46 68 25 28 4e 25 2c 31 29 2c a4 52 65 |SW(Fh%(N%,1),.Re|
0000a850 53 28 47 77 25 28 4e 25 29 2c 31 34 29 29 29 0d |S(Gw%(N%),14))).|
0000a860 07 2f 05 e1 0d 07 30 0a dd 20 f2 55 44 50 0d 07 |./....0.. .UDP..|
0000a870 31 10 21 57 62 25 3d 47 63 25 28 4e 25 29 0d 07 |1.!Wb%=Gc%(N%)..|
0000a880 32 0b 57 62 25 21 34 3d 32 0d 07 33 11 c8 99 26 |2.Wb%!4=2..3...&|
0000a890 34 30 30 43 45 2c 2c 57 62 25 0d 07 34 15 50 72 |400CE,,Wb%..4.Pr|
0000a8a0 6f 67 72 65 73 73 2b 3d 50 65 72 63 65 6e 74 0d |ogress+=Percent.|
0000a8b0 07 35 1b e7 20 50 72 6f 67 72 65 73 73 3c 20 57 |.5.. Progress< W|
0000a8c0 62 25 21 31 36 2b 31 30 20 e1 0d 07 36 16 57 62 |b%!16+10 ...6.Wb|
0000a8d0 25 21 31 36 3d a8 28 50 72 6f 67 72 65 73 73 29 |%!16=.(Progress)|
0000a8e0 0d 07 37 12 c8 99 26 34 30 30 43 34 2c 2c 57 62 |..7...&400C4,,Wb|
0000a8f0 25 3a 0d 07 38 1e 57 62 25 21 34 3d 21 57 62 25 |%:..8.Wb%!4=!Wb%|
0000a900 3a c8 99 26 34 30 30 43 32 2c 2c 57 62 25 2b 34 |:..&400C2,,Wb%+4|
0000a910 0d 07 39 2c c8 99 26 34 30 30 44 31 2c 21 57 62 |..9,..&400D1,!Wb|
0000a920 25 2c 57 62 25 21 38 2c 57 62 25 21 26 43 2c 57 |%,Wb%!8,Wb%!&C,W|
0000a930 62 25 21 31 36 2c 57 62 25 21 32 30 0d 07 3a 05 |b%!16,Wb%!20..:.|
0000a940 e1 0d ff |...|
0000a943 
.