Home » Archimedes archive » Acorn User » AU 1997-11 B.adf » Embolden » !PathWays/!RunImage
!PathWays/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1997-11 B.adf » Embolden |
| Filename: | !PathWays/!RunImage |
| Read OK: | ✔ |
| File size: | 386E bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1:
2REM Program Link or unlink paths in Drawfiles, display winding, or reverse winding
3REM Version 1.02
4REM Copyright Clive Semmens 1993-97
5:
6DIM block% 1536, menu% 128, temp% 256, Work% 1536
7:
8PROCInitialize : PROCBar : PROCWrite : PROCpoll
9END
10:
11DEF PROCpoll
12LOCAL mask%, Event%
13mask%=%110011
14REPEAT
15 SYS "Wimp_Poll",mask%, block% TO Event%
16 CASE Event% OF
17 WHEN 2 : SYS "Wimp_OpenWindow", 0, block%
18 WHEN 3 : SYS "Wimp_CloseWindow", 0, block%
19 WHEN 6 : PROCMouse
20 WHEN 7 : PROCDragBox
21 WHEN 8 : PROCKeyPress
22 WHEN 9 : PROCSelection
23 WHEN 17,18 : PROCMessage
24 ENDCASE
25UNTIL finished%
26SYS "Wimp_CloseDown"
27ENDPROC
28:
29DEF PROCReleaseBuffers
30LOCAL ERROR
31ON ERROR LOCAL IF ERR <> 449 PROCReport(REPORT$+", no. "+STR$ERR+" @ line "+STR$ERL):ENDPROC ELSE ENDPROC
32SYS "Wimp_SlotSize",HIMEM-&8000,-1
33ENDPROC
34:
35DEF PROCMouse
36IF (block%!8=2) AND (block%!16=bar%) AND (block%!12=-2) THEN PROCMenu
37IF ((block%!8=1) OR (block%!8=4)) AND (block%!12=Window%) AND (block%!16=2) THEN PROCIcon
38IF block%!8=4 AND block%!12=Window% THEN
39 CASE block%!16 OF
40 WHEN 8 : Op$ = "linkifclose" : fileratio% = 2
41 WHEN 9 : Op$ = "linkgroups" : fileratio% = 2
42 WHEN 10 : Op$ = "linkall" : fileratio% = 2
43 WHEN 12 : Op$ = "unlink" : All% = FALSE : fileratio% = 7
44 WHEN 13 : Op$ = "unlink" : All% = TRUE : fileratio% = 7
45 WHEN 14 : Op$ = "showwinding" : fileratio% = 2.4
46 WHEN 15 : Op$ = "reverse" : fileratio% = 2
47 ENDCASE
48ENDIF
49IF ((block%!8=1*16) OR (block%!8=4*16)) AND (block%!12=Window%) AND (block%!16=0) THEN PROCDrag
50ENDPROC
51:
52DEF PROCDragBox
53PROCRead
54SYS "Wimp_GetPointerInfo",,temp%
55IF (temp%!12=-2) AND (temp%!16=bar%) THEN ENDPROC
56!block%=256 : block%!12=0 : block%!16=1 : block%!20=temp%!12
57block%!24=temp%!16 : block%!28=!temp% : block%!32=temp%!4
58block%!36=filesize% : block%!40=filetype%
59IF FNleaf(output$)="" THEN temp$="PathFile" ELSE temp$=FNleaf(output$)
60$(block%+44)=temp$+CHR$(0)
61SYS "Wimp_SendMessage",17,block%,temp%!12,temp%!16
62mine%=block%!8
63ENDPROC
64:
65DEF PROCKeyPress
66CASE block%!24 OF
67 WHEN &D : PROCReturnKeyPress
68 OTHERWISE SYS "Wimp_ProcessKey", block%!24
69ENDCASE
70ENDPROC
71:
72DEF PROCReturnKeyPress
73IF !block%=Window% AND block%!4=1 THEN SYS "Wimp_SetCaretPosition", -1 : PROCIcon
74ENDPROC
75:
76DEF PROCSelection
77LOCAL buttons%
78SYS "Wimp_GetPointerInfo", 0, temp%
79buttons%=!(temp%+8)
80IF !block%=1 THEN finished%=TRUE
81IF buttons%=1 THEN PROCMenu
82ENDPROC
83:
84DEF PROCMessage
85CASE block%!16 OF
86 WHEN 0 : finished%=TRUE
87 WHEN 1 : PROCDataSave
88 WHEN 2 : PROCDataSaveAck
89 WHEN 3 : PROCDataLoad
90 WHEN 4 : PROCDataLoadAck
91ENDCASE
92ENDPROC
93:
94DEF PROCDataSave
95LOCAL exist%
96IF (block%!20<>-2) OR (block%!24<>bar%) THEN ENDPROC
97IF (block%!40<0) OR (block%!40>&FFF) THEN ENDPROC
98filename$=FNgetname(block%+44)
99filetype%=block%!40 : filesize%=block%!36
100SYS "XOS_ReadVarVal", "Wimp$Scrap", 0, -1 TO ,,exist%
101IF exist%=0 THEN
102 PROCReport("<Wimp$Scrap> not defined")
103ELSE
104 $(block%+44)="<Wimp$Scrap>"+CHR$0
105 block%!12=block%!8 : block%!16=2 : !block%=80
106 SYS "Wimp_SendMessage",17,block%,block%!4
107ENDIF
108ENDPROC
109:
110DEF PROCDataSaveAck
111LOCAL temp$
112LOCAL ERROR
113ON ERROR LOCAL PROCReport("PathWays error - "+REPORT$+" (@ line "+STR$ERL+", no: "+STR$ERR+")"):ENDPROC
114IF block%!12<>mine% THEN mine%=0 ELSE
115 output$=FNgetname(block%+44)
116 PROCPathWays(filename$,output$)
117 block%!12=mine% : block%!16=3
118 SYS "Wimp_SendMessage",17,block%,block%!20,block%!24
119 mine%=block%!8
120ENDIF
121ENDPROC
122:
123DEF PROCDataLoad
124LOCAL ERROR
125ON ERROR LOCAL PROCReport("DataLoad error - "+REPORT$+" (@ line "+STR$ERL+", no: "+STR$ERR+")"):ENDPROC
126:
127IF (block%!20<>-2) OR (block%!24<>bar%) THEN ENDPROC
128IF (block%!40<0) OR (block%!40>&FFF) THEN ENDPROC
129PROCWrite
130SYS "Wimp_GetPointerInfo",,temp%
131temp%!4=!temp%-192 : temp%!8=184-80
132temp%!12=(!temp%-192)+512 : temp%!16=184-80+452
133temp%!20=0 : temp%!24=0 : temp%!28=-1
134!temp%=Window%
135SYS "Wimp_OpenWindow",,temp%
136SYS "Wimp_SetCaretPosition",Window%,1,-1,-1,-1,LEN(output$)
137filetype%=block%!40 : filesize%=block%!36
138filename$=FNgetname(block%+44)
139block%!12=block%!8 : block%!16=4 : !block%=64
140SYS "Wimp_SendMessage",17,block%,block%!4
141!temp%=Window% : temp%!4=0
142SYS "Wimp_GetIconState",,temp%
143$(temp%!32)="Sfile_"+STR$~filetype%
144ENDPROC
145:
146DEF PROCDataLoadAck
147IF block%!12=mine% THEN
148 mine%=0
149 !block%=Window%
150 SYS "Wimp_CloseWindow",,block%
151 SYS "Wimp_CreateMenu",,-1
152 IF LEFT$(filename$,12)="<Wimp$Scrap>" THEN OSCLI "Delete <Wimp$Scrap>"
153ENDIF
154ENDPROC
155:
156DEF PROCMenu
157LOCAL item%
158$menu%="PathWays"
159menu%?12=7 : menu%?13=2 : menu%?14=7 : menu%?15=0
160menu%!16=100 : menu%!20=44 : menu%!24=0
161item%=menu%+28 : !item%=0 : item%!4=Info%
162item%!8=%111000000001001000000010001
163$(item%+12)="Info"+CHR$(0)
164item%=item%+24 : !item%=%10000000
165item%!4=-1
166item%!8=%111000000001001000000010001
167$(item%+12)="Quit"+CHR$(0)
168SYS "Wimp_CreateMenu", 0, menu%, (!block%)-100/2, 200-16
169ENDPROC
170:
171DEF PROCIcon
172LOCAL temp$
173LOCAL ERROR
174ON ERROR LOCAL PROCReport("PathWays error - "+REPORT$+" (@ line "+STR$ERL+","+STR$ERR+")"):ENDPROC
175PROCRead
176IF INSTR(output$,".")=0 THEN PROCReport("To save, drag the file icon to a directory display"):ENDPROC
177IF FNleaf(output$)="" THEN PROCReport("To save, drag the file icon to a directory display"):ENDPROC
178PROCPathWays(filename$,output$)
179!block%=Window%
180SYS "Wimp_CloseWindow",,block%
181SYS "Wimp_CreateMenu",,-1
182ENDPROC
183:
184DEF PROCDrag
185LOCAL ic%, minx%, miny%, maxx%, maxy%
186ic%=block%!16
187IF (block%!12=Window%) AND (ic%=0) THEN
188 !temp%=Window% : temp%!4=ic%
189 SYS "Wimp_GetIconState",,temp%
190 minx%=temp%!8 : miny%=temp%!12
191 maxx%=temp%!16 : maxy%=temp%!20
192 SYS "Wimp_GetWindowState",,temp%
193 minx%=temp%!4+minx% : maxx%=temp%!4+maxx%
194 miny%=temp%!16+miny% : maxy%=temp%!16+maxy%
195 !temp%=0 : temp%!4=5
196 temp%!8=minx% : temp%!12=miny%
197 temp%!16=maxx% : temp%!20=maxy%
198 temp%!24=0 : temp%!28=0
199 temp%!32=32000 : temp%!36=32000
200 SYS "Wimp_DragBox",,temp%
201 PROCRead
202ENDIF
203ENDPROC
204:
205DEF PROCReport(text$) : !block%=1 : $(block%+4)=text$+CHR$(0)
206SYS "Wimp_ReportError",block%,1,"PathWays"
207ENDPROC
208:
209DEF PROCBar : !block%=-1 : block%!4=0 : block%!8=-4 : block%!12=68 : block%!16=68 : block%!20=&2002
210$(block%+24)="!PathWays" : SYS "Wimp_CreateIcon",,block% TO bar%
211ENDPROC
212:
213DEF PROCRead
214!temp%=Window% : temp%!4=1
215SYS "Wimp_GetIconState",,temp%
216output$=$(temp%!28)
217!temp%=Window% : temp%!4=3
218SYS "Wimp_GetIconState",,temp%
219gap$=$(temp%!28)
220ENDPROC
221:
222DEF PROCWrite
223!temp%=Window% : temp%!4=1
224SYS "Wimp_GetIconState",,temp%
225$(temp%!28)=output$
226!temp%=Window% : temp%!4=3
227SYS "Wimp_GetIconState",,temp%
228$(temp%!28)=gap$
229ENDPROC
230:
231DEF FNgetname(ptr%)
232LOCAL p$
233WHILE ?ptr%<128 AND ?ptr%>31
234 p$+=CHR$(?ptr%) : ptr%+=1
235ENDWHILE
236=p$
237:
238DEF FNleaf(f$)
239WHILE INSTR(f$,".")
240 f$=MID$(f$,INSTR(f$,".")+1)
241ENDWHILE
242=f$
243:
244DEF PROCInitialize
245LOCAL Wimp%, task%, next%
246:
247Wimp%=2 : task%=&4B534154
248mm = 1814.17
249SYS "Wimp_Initialise", Wimp%*100, task%, "PathWays" TO Wimp%
250IF Wimp% < 200 THEN PROCReport("PathWays needs a newer version of Window Manager")
251ON ERROR PROCReport("PathWays error - "+REPORT$+" (@ line "+STR$ERL+", no: "+STR$ERR+")"):SYS "Wimp_CloseDown":END
252:
253output$="PathFile" : gap$ = "0.5" : Op$ = "linkifclose" : fileratio% = 2 : mm = 1814.17
254filesize%=0 : filetype%=0 : finished%=FALSE
255SYS "Wimp_OpenTemplate", 0, "<PathWays$Dir>.Templates"
256SYS "Wimp_LoadTemplate",, block%,Work%,Work%+1536,-1, "saveas", 0 TO ,,next%
257SYS "Wimp_CreateWindow",, block% TO Window%
258SYS "Wimp_LoadTemplate",, block%, next%, Work%+1536, -1, "info", 0 TO ,,next%
259SYS "Wimp_CreateWindow",, block% TO Info%
260SYS "Wimp_CloseTemplate"
261ENDPROC
262:
263DEF PROCLoad(in$)
264SYS "OS_File",17,in$ TO type,,,,Extent
265SYS "Wimp_SlotSize",-1,-1 TO ,,Free
266IF Free < Extent*fileratio% PROCReport("Unable to claim sufficient memory") : ENDPROC
267SYS "Wimp_SlotSize",HIMEM + Extent*fileratio% , -1
268Buff = HIMEM
269OSCLI "LOAD " + in$ + " " + STR$~Buff
270ENDPROC
271:
272DEF PROCSave(out$)
273OSCLI "SAVE " + out$ + " " + STR$~(Buff+Extent) + " " + STR$~Ptr2
274OSCLI "SETTYPE " + out$ + " AFF"
275PROCReleaseBuffers
276ENDPROC
277:
278DEF PROCPathWays(in$,out$)
279 PROCLoad(in$)
280 Ptr1 = Buff : Ptr2 = Buff + Extent
281 $(Ptr1 + 12) = "PathWays" : Ptr1!20 = 32
282CASE Op$ OF
283 WHEN "unlink","showwinding","reverse" : PROCCopy(40) : REPEAT : PROCObject : UNTIL Ptr1 >= Buff + Extent
284 WHEN "linkifclose" : PROCLink(Buff + Extent,FALSE)
285 WHEN "linkall" : PROCLink(Buff + Extent,TRUE)
286 WHEN "linkgroups" : PROCCopy(40)
287 REPEAT : IF !Ptr1 = 6 PROCLinkGroup(Ptr1) : Ptr1 += Ptr1!4 ELSE PROCCopy(Ptr1!4)
288 UNTIL Ptr1 >= Buff + Extent
289ENDCASE
290 PROCSave(out$)
291ENDPROC
292:
293DEF PROCObject
294CASE !Ptr1 OF
295 WHEN 2
296 CASE Op$ OF
297 WHEN "unlink" : PROCPath
298 WHEN "showwinding" : PROCArrow
299 WHEN "reverse" : PROCRevPath
300 ENDCASE
301 WHEN 6 : PROCGroup
302 OTHERWISE : PROCCopy(Ptr1!4)
303ENDCASE
304ENDPROC
305:
306DEF PROCRevPath : LOCAL Start1, Start2, Colour
307 Start1 = Ptr1 : Colour = Ptr1!28 : Start2 = Ptr2
308 PROCCopy(28)
309 IF Colour = 0 OR Colour = &DD00 THEN
310 !Ptr2 = 0 : Ptr2!4 = 0 : Ptr2!8 = &42001020
311 ELSE
312 !Ptr2 = !Ptr1 : Ptr2!4 = Ptr1!4 : Ptr2!8 = &42001020
313 ENDIF
314 IF (Ptr1!8 AND &80) = 0 Dashes = 0 ELSE Dashes = 4*Ptr1!16 + 8
315 Ptr1 += Dashes + 12 : Ptr2 += 12
316 IF Colour = &DD00 PROCReverse ELSE PROCCopy(Start1!4 - 40 - Dashes)
317 Start2!4 = Ptr2 - Start2
318ENDPROC
319:
320DEF PROCReverse
321REPEAT
322 Ptr = Ptr1
323 REPEAT
324 Pp = Ptr
325 CASE !Ptr OF
326 WHEN 2,8 : Ptr += 12
327 WHEN 5 : Ptr += 4
328 WHEN 6 : Ptr += 28
329 ENDCASE
330 UNTIL !Ptr < 1
331 CASE !Ptr OF
332 WHEN 0 : !Ptr2 = 2
333 IF !Pp = 5 Ptr2!4 = Ptr!-12 : Ptr2!8 = Ptr!-8 ELSE Ptr2!4 = Ptr!-8 : Ptr2!8 = Ptr!-4
334 Ptr2 += 12 : Closed = FALSE
335 WHEN -2 : IF Closed !Ptr2 = 5 : Ptr2 += 4
336 !Ptr2 = 2
337 IF !Pp = 5 Ptr2!4 = Ptr!-12 : Ptr2!8 = Ptr!-8 ELSE Ptr2!4 = Ptr!-8 : Ptr2!8 = Ptr!-4
338 Ptr2 += 12 : Closed = FALSE
339 WHEN -5 : Closed = TRUE
340 WHEN -6 : !Ptr2 = 6 : Ptr2!4 = Ptr!12 : Ptr2!8 = Ptr!16 : Ptr2!12 = Ptr!4 : Ptr2!16 = Ptr!8
341 Ptr2!20 =Ptr!-8 : Ptr2!24 = Ptr!-4 : Ptr2 += 28
342 WHEN -8 : !Ptr2 = 8 : Ptr2!4 = Ptr!-8 : Ptr2!8 = Ptr!-4 : Ptr2 += 12
343 ENDCASE
344 !Pp = - !Pp
345UNTIL Pp = Ptr1
346IF Closed !Ptr2 = 5 : Ptr2 += 4
347!Ptr2 = 0 : Ptr2 += 4
348Ptr1 = Start1 + Start1!4
349ENDPROC
350:
351DEF PROCArrow
352IF (Ptr1!36 AND &80) = 0 THEN
353 Size = Ptr2 + 4 : PROCCopy(32) : !Ptr2 = &A0 : Ptr2!4 = &4020008C
354 Ptr2!8 = 0 : Ptr2!12 = 2 : Ptr2!16 = &500 : Ptr2!20 = &200
355 Ptr2 += 24 : Ptr1 += 8 : PROCCopy(!Size - 40) : !Size += 16
356ELSE
357 PROCCopy(Ptr1!4)
358ENDIF
359ENDPROC
360:
361DEF PROCGroup : LOCAL GroupStart,GroupEnd
362GroupStart = Ptr2 : GroupEnd = Ptr1 + Ptr1!4
363PROCCopy(36) : REPEAT PROCObject : UNTIL Ptr1 = GroupEnd
364GroupStart!4 = Ptr2 - GroupStart
365ENDPROC
366:
367DEF PROCBez
368PROCHeadCopy : Head!4 = 44 + L% : PROCCopy(36)
369!Ptr2 = 0 : Ptr2 += 4 : Ptr1 -= 8
370ENDPROC
371:
372DEF PROCLine
373PROCHeadCopy : Head!4 = 28 + L% : PROCCopy(20)
374!Ptr2 = 0 : Ptr2 += 4 : Ptr1 -= 8
375ENDPROC
376:
377DEF PROCCopy(L)
378 FOR N = 0 TO L STEP 4 : Ptr2!N = Ptr1!N : NEXT
379 Ptr2 += L : Ptr1 += L
380ENDPROC
381:
382DEF PROCHeadCopy
383L% = 40 : IF HeadPtr1?36 AND &80 L% += HeadPtr1!44 * 4 + 8
384FOR N = 0 TO L% STEP 4 : Ptr2!N = HeadPtr1!N : NEXT
385Head = Ptr2 : Ptr2 += 4 + L%
386ENDPROC
387:
388DEF PROCPath : EoP = FALSE
389 HeadPtr1 = Ptr1 : Ptr1 += 44
390 IF HeadPtr1?36 AND &80 Ptr1 += HeadPtr1!44 * 4 + 8
391 IF NOT All% PROCHeadCopy
392 REPEAT PROCComponent : UNTIL EoP
393ENDPROC
394:
395DEF PROCComponent
396IF All% THEN
397 CASE Ptr1!8 OF
398 WHEN 0 : EoP = TRUE : Ptr1 += 12
399 WHEN 2 : Ptr1 += 12
400 WHEN 5 : Ptr1 += 4 : Ptr1!-4 = Ptr1!-8 : !Ptr1 = Ptr1!-4
401 WHEN 6 : PROCBez
402 WHEN 8 : PROCLine
403 ENDCASE
404ELSE
405 CASE Ptr1!8 OF
406 WHEN 0 : EoP = TRUE : PROCCopy(12) : Head!4 = Ptr2 - Head
407 WHEN 2 : PROCMove1
408 WHEN 5 : PROCCopy(4)
409 WHEN 6 : PROCCopy(28)
410 WHEN 8 : PROCCopy(12)
411 ENDCASE
412ENDIF
413ENDPROC
414:
415DEF PROCMove1
416PROCCopy(8) : Ptr1 += 4 : !Ptr2 = 0 : Ptr2 += 4
417Head!4 = Ptr2 - Head : PROCHeadCopy
418ENDPROC
419:
420DEF PROCLinkGroup(Ptr) : LOCAL Ptr1
421 GapSqd = (VALgap$ * mm)^2 : first% = TRUE
422 REPEAT : PROCLinkPaths(Ptr + Ptr!4,TRUE) : UNTIL NoPath%
423 PROCPathEnd
424ENDPROC
425:
426DEF PROCLink(end,all%) : GapSqd = (VALgap$ * mm)^2 : first% = TRUE
427 PROCCopy(40) : Ptr = Ptr1
428 REPEAT : PROCNonPaths : UNTIL Ptr1 >= end
429 REPEAT : PROCLinkPaths(end,all%) : UNTIL NoPath%
430 IF all% PROCPathEnd
431ENDPROC
432:
433DEF PROCPathEnd
434!Ptr2 = 0 : Ptr2 += 4 : Head!4 = Ptr2 - Head
435Head!8 = BBx : Head!12 = BBy : Head!16 = BBX : Head!20 = BBY
436ENDPROC
437:
438DEF PROCPathHead : first% = FALSE
439 Head = Ptr2 : !Ptr2 = 2
440 Ptr2 += 24 : Ptr1 = Ptra + 24 : PROCCopy(16) : IF Ptr1?-4 AND &80 PROCCopy(4*Ptr1!4 + 8)
441ENDPROC
442:
443DEF PROCLinkPaths(end,all%) : Ptr1 = Ptr
444PROCFindPath : IF NoPath% ENDPROC
445BBx = PtrP!8 : BBy = PtrP!12 : BBX = PtrP!16 : BBY = PtrP!20
446xa = x : ya = y : Xz = X : Yz = Y
447!PtrP = &58585858 : Ptra = PtrP : Ptrz = PtrP : Closed% = FALSE
448IF NOT EndClose% THEN
449 REPEAT : Ptr1 = Ptr
450 REPEAT
451 PROCFindPath
452 IF NOT NoPath% THEN
453 LinkOn% = ((x-Xz)^2 + (y-Yz)^2 <= GapSqd) AND NOT EndClose%
454 LinkBack% = ((X-xa)^2 + (Y-ya)^2 <= GapSqd) AND NOT EndClose%
455 Closed% = LinkOn% AND LinkBack%
456 IF LinkBack% OR LinkOn% THEN
457 !PtrP = &58585858
458 IF PtrP!8 < BBx BBx = PtrP!8
459 IF PtrP!12 < BBy BBy = PtrP!12
460 IF PtrP!16 > BBX BBX = PtrP!16
461 IF PtrP!20 > BBY BBY = PtrP!20
462 IF LinkOn% Ptrz!8 = PtrP : Ptrz = PtrP : Xz = X : Yz = Y
463 IF LinkBack% AND NOT LinkOn% PtrP!8 = Ptra : Ptra = PtrP : xa = x : ya = y
464 ENDIF
465 ELSE
466 Closed% = FALSE
467 ENDIF
468 UNTIL LinkOn% OR LinkBack% OR Ptr1 >= end
469 UNTIL NoPath% OR Closed% OR Ptr1 >= end
470ENDIF
471IF (NOT all%) OR first% PROCPathHead ELSE Ptr1 = Ptra + 40 : IF Ptr1?-4 AND &80 Ptr1 += 4*Ptr1!4 + 8
472SubHead = Ptr2
473PROCCopyPath
474WHILE Ptra <> Ptrz
475 Ptra = Ptra!8 : Ptr1 = Ptra + 40 : IF Ptr1?-4 AND &80 Ptr1 += 4*Ptr1!4 + 8
476 Ptr2!-8 = (Ptr2!-8 + Ptr1!4)/2 : Ptr2!-4 = (Ptr2!-4 + Ptr1!8)/2
477 Ptr1 += 12 : PROCCopyPath
478ENDWHILE
479IF Closed% THEN
480 !Ptr2 = 5 : Ptr2 += 4
481 SubHead!4 = (Ptr2!-12 + SubHead!4)/2 : SubHead!8 = (Ptr2!-8 + SubHead!8)/2
482 Ptr2!-12 = SubHead!4 : Ptr2!-8 = SubHead!8
483ENDIF
484IF NOT all% PROCPathEnd
485ENDPROC
486:
487DEF PROCCopyPath
488REPEAT
489 CASE !Ptr1 OF
490 WHEN 2,8 : PROCCopy(12)
491 WHEN 5 : PROCCopy(4)
492 WHEN 6 : PROCCopy(28)
493 ENDCASE
494UNTIL !Ptr1 = 0
495ENDPROC
496:
497DEF PROCFindPath : NoPath% = TRUE : MidClose% = FALSE
498REPEAT
499 CASE !Ptr1 OF
500 WHEN 2 : PtrP = Ptr1
501 IF (Ptr1!36 AND &80) = 0 Dashes = 0 ELSE Dashes = 4*Ptr1!44 + 8
502 x = Ptr1!(Dashes + 44) : y = Ptr1!(Dashes + 48) : Ptr1 += 40 + Dashes
503 REPEAT
504 CASE !Ptr1 OF
505 WHEN 2,8 : X = Ptr1!4 : Y = Ptr1!8 : Ptr1 += 12
506 WHEN 5 : Ptr1 += 4 : MidClose% = TRUE
507 WHEN 6 : X = Ptr1!20 : Y = Ptr1!24 : Ptr1 += 28
508 ENDCASE
509 UNTIL !Ptr1 = 0 : Ptr1 += 4
510 IF Ptr1!-8 = 5 EndClose% = TRUE ELSE EndClose% = FALSE
511 NoPath% = FALSE
512 WHEN 6 : Ptr1 += 36
513 OTHERWISE : Ptr1 += Ptr1!4
514 ENDCASE
515UNTIL NoPath% = FALSE OR Ptr1 >= end
516ENDPROC
517:
518DEF PROCNonPaths
519CASE !Ptr1 OF
520 WHEN 2 : Ptr1 += Ptr1!4
521 WHEN 6 : Ptr1 += 36
522 OTHERWISE : PROCCopy(Ptr1!4)
523ENDCASE
524ENDPROC
525:
:
V� Program Link or unlink paths in Drawfiles, display winding, or reverse winding
� Version 1.02
%� Copyright Clive Semmens 1993-97
:
3� block% 1536, menu% 128, temp% 256, Work% 1536
:
'�Initialize : �Bar : �Write : �poll
�
:
� �poll
� mask%, Event%
mask%=%110011
�
+ ș "Wimp_Poll",mask%, block% � Event%
Ȏ Event% �
- � 2 : ș "Wimp_OpenWindow", 0, block%
. � 3 : ș "Wimp_CloseWindow", 0, block%
� 6 : �Mouse
� 7 : �DragBox
� 8 : �KeyPress
� 9 : �Selection
� 17,18 : �Message
�
� finished%
ș "Wimp_CloseDown"
�
:
� �ReleaseBuffers
� �
@� � � � � <> 449 �Report(�$+", no. "+ß+" @ line "+Þ):� � �
!ș "Wimp_SlotSize",�-&8000,-1
!�
":
# � �Mouse
$>� (block%!8=2) � (block%!16=bar%) � (block%!12=-2) � �Menu
%Q� ((block%!8=1) � (block%!8=4)) � (block%!12=Window%) � (block%!16=2) � �Icon
&&� block%!8=4 � block%!12=Window% �
' Ȏ block%!16 �
(2 � 8 : Op$ = "linkifclose" : fileratio% = 2
)1 � 9 : Op$ = "linkgroups" : fileratio% = 2
*/ � 10 : Op$ = "linkall" : fileratio% = 2
+9 � 12 : Op$ = "unlink" : All% = � : fileratio% = 7
,9 � 13 : Op$ = "unlink" : All% = � : fileratio% = 7
-5 � 14 : Op$ = "showwinding" : fileratio% = 2.4
./ � 15 : Op$ = "reverse" : fileratio% = 2
/ �
0�
1W� ((block%!8=1*16) � (block%!8=4*16)) � (block%!12=Window%) � (block%!16=0) � �Drag
2�
3:
4� �DragBox
5 �Read
6#ș "Wimp_GetPointerInfo",,temp%
7)� (temp%!12=-2) � (temp%!16=bar%) � �
8@!block%=256 : block%!12=0 : block%!16=1 : block%!20=temp%!12
9=block%!24=temp%!16 : block%!28=!temp% : block%!32=temp%!4
:-block%!36=filesize% : block%!40=filetype%
;A� �leaf(output$)="" � temp$="PathFile" � temp$=�leaf(output$)
<$(block%+44)=temp$+�(0)
=5ș "Wimp_SendMessage",17,block%,temp%!12,temp%!16
>mine%=block%!8
?�
@:
A� �KeyPress
BȎ block%!24 �
C � &D : �ReturnKeyPress
D' ș "Wimp_ProcessKey", block%!24
E�
F�
G:
H� �ReturnKeyPress
IK� !block%=Window% � block%!4=1 � ș "Wimp_SetCaretPosition", -1 : �Icon
J�
K:
L� �Selection
M� buttons%
N&ș "Wimp_GetPointerInfo", 0, temp%
Obuttons%=!(temp%+8)
P � !block%=1 � finished%=�
Q� buttons%=1 � �Menu
R�
S:
T� �Message
UȎ block%!16 �
V � 0 : finished%=�
W � 1 : �DataSave
X � 2 : �DataSaveAck
Y � 3 : �DataLoad
Z � 4 : �DataLoadAck
[�
\�
]:
^� �DataSave
_ � exist%
`-� (block%!20<>-2) � (block%!24<>bar%) � �
a*� (block%!40<0) � (block%!40>&FFF) � �
b!filename$=�getname(block%+44)
c-filetype%=block%!40 : filesize%=block%!36
d7ș "XOS_ReadVarVal", "Wimp$Scrap", 0, -1 � ,,exist%
e� exist%=0 �
f) �Report("<Wimp$Scrap> not defined")
g�
h$ $(block%+44)="<Wimp$Scrap>"+�0
i3 block%!12=block%!8 : block%!16=2 : !block%=80
j. ș "Wimp_SendMessage",17,block%,block%!4
k�
l�
m:
n� �DataSaveAck
o � temp$
p� �
qJ� � � �Report("PathWays error - "+�$+" (@ line "+Þ+", no: "+ß+")"):�
r"� block%!12<>mine% � mine%=0 �
s! output$=�getname(block%+44)
t" �PathWays(filename$,output$)
u# block%!12=mine% : block%!16=3
v9 ș "Wimp_SendMessage",17,block%,block%!20,block%!24
w mine%=block%!8
x�
y�
z:
{� �DataLoad
|� �
}J� � � �Report("DataLoad error - "+�$+" (@ line "+Þ+", no: "+ß+")"):�
~:
-� (block%!20<>-2) � (block%!24<>bar%) � �
�*� (block%!40<0) � (block%!40>&FFF) � �
�
�Write
�#ș "Wimp_GetPointerInfo",,temp%
�'temp%!4=!temp%-192 : temp%!8=184-80
�3temp%!12=(!temp%-192)+512 : temp%!16=184-80+452
�)temp%!20=0 : temp%!24=0 : temp%!28=-1
�!temp%=Window%
� ș "Wimp_OpenWindow",,temp%
�<ș "Wimp_SetCaretPosition",Window%,1,-1,-1,-1,�(output$)
�-filetype%=block%!40 : filesize%=block%!36
�!filename$=�getname(block%+44)
�1block%!12=block%!8 : block%!16=4 : !block%=64
�,ș "Wimp_SendMessage",17,block%,block%!4
� !temp%=Window% : temp%!4=0
�!ș "Wimp_GetIconState",,temp%
�$$(temp%!32)="Sfile_"+�~filetype%
��
�:
�� �DataLoadAck
�� block%!12=mine% �
�
mine%=0
� !block%=Window%
�# ș "Wimp_CloseWindow",,block%
� ș "Wimp_CreateMenu",,-1
�? � �filename$,12)="<Wimp$Scrap>" � � "Delete <Wimp$Scrap>"
��
��
�:
� � �Menu
� � item%
�$menu%="PathWays"
�5menu%?12=7 : menu%?13=2 : menu%?14=7 : menu%?15=0
�+menu%!16=100 : menu%!20=44 : menu%!24=0
�-item%=menu%+28 : !item%=0 : item%!4=Info%
�(item%!8=%111000000001001000000010001
�$(item%+12)="Info"+�(0)
�%item%=item%+24 : !item%=%10000000
�item%!4=-1
�(item%!8=%111000000001001000000010001
�$(item%+12)="Quit"+�(0)
�;ș "Wimp_CreateMenu", 0, menu%, (!block%)-100/2, 200-16
��
�:
� � �Icon
� � temp$
�� �
�E� � � �Report("PathWays error - "+�$+" (@ line "+Þ+","+ß+")"):�
� �Read
�W� �output$,".")=0 � �Report("To save, drag the file icon to a directory display"):�
�Y� �leaf(output$)="" � �Report("To save, drag the file icon to a directory display"):�
� �PathWays(filename$,output$)
�!block%=Window%
�!ș "Wimp_CloseWindow",,block%
� ș "Wimp_CreateMenu",,-1
��
�:
� � �Drag
�%� ic%, minx%, miny%, maxx%, maxy%
�ic%=block%!16
�%� (block%!12=Window%) � (ic%=0) �
�" !temp%=Window% : temp%!4=ic%
�# ș "Wimp_GetIconState",,temp%
�$ minx%=temp%!8 : miny%=temp%!12
�% maxx%=temp%!16 : maxy%=temp%!20
�% ș "Wimp_GetWindowState",,temp%
�/ minx%=temp%!4+minx% : maxx%=temp%!4+maxx%
�1 miny%=temp%!16+miny% : maxy%=temp%!16+maxy%
� !temp%=0 : temp%!4=5
�$ temp%!8=minx% : temp%!12=miny%
�% temp%!16=maxx% : temp%!20=maxy%
� temp%!24=0 : temp%!28=0
�% temp%!32=32000 : temp%!36=32000
� ș "Wimp_DragBox",,temp%
� �Read
��
��
�:
�9� �Report(text$) : !block%=1 : $(block%+4)=text$+�(0)
�-ș "Wimp_ReportError",block%,1,"PathWays"
��
�:
�b� �Bar : !block%=-1 : block%!4=0 : block%!8=-4 : block%!12=68 : block%!16=68 : block%!20=&2002
�B$(block%+24)="!PathWays" : ș "Wimp_CreateIcon",,block% � bar%
��
�:
� � �Read
� !temp%=Window% : temp%!4=1
�!ș "Wimp_GetIconState",,temp%
�output$=$(temp%!28)
� !temp%=Window% : temp%!4=3
�!ș "Wimp_GetIconState",,temp%
�gap$=$(temp%!28)
��
�:
� � �Write
� !temp%=Window% : temp%!4=1
�!ș "Wimp_GetIconState",,temp%
�$(temp%!28)=output$
� !temp%=Window% : temp%!4=3
�!ș "Wimp_GetIconState",,temp%
�$(temp%!28)=gap$
��
�:
�� �getname(ptr%)
�� p$
�ȕ ?ptr%<128 � ?ptr%>31
� p$+=�(?ptr%) : ptr%+=1
��
�=p$
�:
�� �leaf(f$)
�ȕ �f$,".")
� f$=�f$,�f$,".")+1)
��
�=f$
�:
�� �Initialize
�� Wimp%, task%, next%
�:
� Wimp%=2 : task%=&4B534154
�mm = 1814.17
�>ș "Wimp_Initialise", Wimp%*100, task%, "PathWays" � Wimp%
�O� Wimp% < 200 � �Report("PathWays needs a newer version of Window Manager")
�\� � �Report("PathWays error - "+�$+" (@ line "+Þ+", no: "+ß+")"):ș "Wimp_CloseDown":�
�:
�[output$="PathFile" : gap$ = "0.5" : Op$ = "linkifclose" : fileratio% = 2 : mm = 1814.17
�+filesize%=0 : filetype%=0 : finished%=�
�9ș "Wimp_OpenTemplate", 0, "<PathWays$Dir>.Templates"
Nș "Wimp_LoadTemplate",, block%,Work%,Work%+1536,-1, "saveas", 0 � ,,next%
-ș "Wimp_CreateWindow",, block% � Window%
Oș "Wimp_LoadTemplate",, block%, next%, Work%+1536, -1, "info", 0 � ,,next%
+ș "Wimp_CreateWindow",, block% � Info%
ș "Wimp_CloseTemplate"
�
:
� �Load(in$)
(ș "OS_File",17,in$ � type,,,,Extent
%ș "Wimp_SlotSize",-1,-1 � ,,Free
O� Free < Extent*fileratio% �Report("Unable to claim sufficient memory") : �
1ș "Wimp_SlotSize",� + Extent*fileratio% , -1
Buff = �
"� "LOAD " + in$ + " " + �~Buff
�
:
� �Save(out$)
;� "SAVE " + out$ + " " + �~(Buff+Extent) + " " + �~Ptr2
� "SETTYPE " + out$ + " AFF"
�ReleaseBuffers
�
:
� �PathWays(in$,out$)
�Load(in$)
( Ptr1 = Buff : Ptr2 = Buff + Extent
. $(Ptr1 + 12) = "PathWays" : Ptr1!20 = 32
Ȏ Op$ �
\ � "unlink","showwinding","reverse" : �Copy(40) : � : �Object : � Ptr1 >= Buff + Extent
. � "linkifclose" : �Link(Buff + Extent,�)
* � "linkall" : �Link(Buff + Extent,�)
� "linkgroups" : �Copy(40)
I � : � !Ptr1 = 6 �LinkGroup(Ptr1) : Ptr1 += Ptr1!4 � �Copy(Ptr1!4)
� Ptr1 >= Buff + Extent
!�
" �Save(out$)
#�
$:
%
� �Object
&Ȏ !Ptr1 �
' � 2
( Ȏ Op$ �
)! � "unlink" : �Path
*" � "showwinding" : �Arrow
+$ � "reverse" : �RevPath
, �
- � 6 : �Group
. : �Copy(Ptr1!4)
/�
0�
1:
2)� �RevPath : � Start1, Start2, Colour
36 Start1 = Ptr1 : Colour = Ptr1!28 : Start2 = Ptr2
4 �Copy(28)
5% � Colour = 0 � Colour = &DD00 �
64 !Ptr2 = 0 : Ptr2!4 = 0 : Ptr2!8 = &42001020
7 �
8= !Ptr2 = !Ptr1 : Ptr2!4 = Ptr1!4 : Ptr2!8 = &42001020
9 �
:> � (Ptr1!8 � &80) = 0 Dashes = 0 � Dashes = 4*Ptr1!16 + 8
;& Ptr1 += Dashes + 12 : Ptr2 += 12
<? � Colour = &DD00 �Reverse � �Copy(Start1!4 - 40 - Dashes)
= Start2!4 = Ptr2 - Start2
>�
?:
@� �Reverse
A�
B Ptr = Ptr1
C �
D Pp = Ptr
E Ȏ !Ptr �
F � 2,8 : Ptr += 12
G � 5 : Ptr += 4
H � 6 : Ptr += 28
I �
J � !Ptr < 1
K Ȏ !Ptr �
L � 0 : !Ptr2 = 2
MZ � !Pp = 5 Ptr2!4 = Ptr!-12 : Ptr2!8 = Ptr!-8 � Ptr2!4 = Ptr!-8 : Ptr2!8 = Ptr!-4
N! Ptr2 += 12 : Closed = �
O- � -2 : � Closed !Ptr2 = 5 : Ptr2 += 4
P !Ptr2 = 2
QZ � !Pp = 5 Ptr2!4 = Ptr!-12 : Ptr2!8 = Ptr!-8 � Ptr2!4 = Ptr!-8 : Ptr2!8 = Ptr!-4
R! Ptr2 += 12 : Closed = �
S � -5 : Closed = �
T` � -6 : !Ptr2 = 6 : Ptr2!4 = Ptr!12 : Ptr2!8 = Ptr!16 : Ptr2!12 = Ptr!4 : Ptr2!16 = Ptr!8
U9 Ptr2!20 =Ptr!-8 : Ptr2!24 = Ptr!-4 : Ptr2 += 28
VI � -8 : !Ptr2 = 8 : Ptr2!4 = Ptr!-8 : Ptr2!8 = Ptr!-4 : Ptr2 += 12
W �
X !Pp = - !Pp
Y� Pp = Ptr1
Z"� Closed !Ptr2 = 5 : Ptr2 += 4
[!Ptr2 = 0 : Ptr2 += 4
\ Ptr1 = Start1 + Start1!4
]�
^:
_ � �Arrow
`� (Ptr1!36 � &80) = 0 �
aD Size = Ptr2 + 4 : �Copy(32) : !Ptr2 = &A0 : Ptr2!4 = &4020008C
b@ Ptr2!8 = 0 : Ptr2!12 = 2 : Ptr2!16 = &500 : Ptr2!20 = &200
c> Ptr2 += 24 : Ptr1 += 8 : �Copy(!Size - 40) : !Size += 16
d�
e �Copy(Ptr1!4)
f�
g�
h:
i$� �Group : � GroupStart,GroupEnd
j0GroupStart = Ptr2 : GroupEnd = Ptr1 + Ptr1!4
k-�Copy(36) : � �Object : � Ptr1 = GroupEnd
l$GroupStart!4 = Ptr2 - GroupStart
m�
n:
o
� �Bez
p,�HeadCopy : Head!4 = 44 + L% : �Copy(36)
q%!Ptr2 = 0 : Ptr2 += 4 : Ptr1 -= 8
r�
s:
t � �Line
u,�HeadCopy : Head!4 = 28 + L% : �Copy(20)
v%!Ptr2 = 0 : Ptr2 += 4 : Ptr1 -= 8
w�
x:
y� �Copy(L)
z+ � N = 0 � L � 4 : Ptr2!N = Ptr1!N : �
{ Ptr2 += L : Ptr1 += L
|�
}:
~� �HeadCopy
;L% = 40 : � HeadPtr1?36 � &80 L% += HeadPtr1!44 * 4 + 8
�.� N = 0 � L% � 4 : Ptr2!N = HeadPtr1!N : �
� Head = Ptr2 : Ptr2 += 4 + L%
��
�:
�� �Path : EoP = �
�" HeadPtr1 = Ptr1 : Ptr1 += 44
�5 � HeadPtr1?36 � &80 Ptr1 += HeadPtr1!44 * 4 + 8
� � � All% �HeadCopy
� � �Component : � EoP
��
�:
�� �Component
� � All% �
� Ȏ Ptr1!8 �
�" � 0 : EoP = � : Ptr1 += 12
� � 2 : Ptr1 += 12
�= � 5 : Ptr1 += 4 : Ptr1!-4 = Ptr1!-8 : !Ptr1 = Ptr1!-4
� � 6 : �Bez
� � 8 : �Line
� �
��
� Ȏ Ptr1!8 �
�8 � 0 : EoP = � : �Copy(12) : Head!4 = Ptr2 - Head
� � 2 : �Move1
� � 5 : �Copy(4)
� � 6 : �Copy(28)
� � 8 : �Copy(12)
� �
��
��
�:
� � �Move1
�0�Copy(8) : Ptr1 += 4 : !Ptr2 = 0 : Ptr2 += 4
�$Head!4 = Ptr2 - Head : �HeadCopy
��
�:
� � �LinkGroup(Ptr) : � Ptr1
�* GapSqd = (�gap$ * mm)^2 : first% = �
�/ � : �LinkPaths(Ptr + Ptr!4,�) : � NoPath%
� �PathEnd
��
�:
�<� �Link(end,all%) : GapSqd = (�gap$ * mm)^2 : first% = �
� �Copy(40) : Ptr = Ptr1
�# � : �NonPaths : � Ptr1 >= end
�* � : �LinkPaths(end,all%) : � NoPath%
� � all% �PathEnd
��
�:
�� �PathEnd
�0!Ptr2 = 0 : Ptr2 += 4 : Head!4 = Ptr2 - Head
�@Head!8 = BBx : Head!12 = BBy : Head!16 = BBX : Head!20 = BBY
��
�:
� � �PathHead : first% = �
� Head = Ptr2 : !Ptr2 = 2
�U Ptr2 += 24 : Ptr1 = Ptra + 24 : �Copy(16) : � Ptr1?-4 � &80 �Copy(4*Ptr1!4 + 8)
��
�:
�'� �LinkPaths(end,all%) : Ptr1 = Ptr
��FindPath : � NoPath% �
�@BBx = PtrP!8 : BBy = PtrP!12 : BBX = PtrP!16 : BBY = PtrP!20
�%xa = x : ya = y : Xz = X : Yz = Y
�?!PtrP = &58585858 : Ptra = PtrP : Ptrz = PtrP : Closed% = �
�� � EndClose% �
� � : Ptr1 = Ptr
� �
� �FindPath
� � � NoPath% �
�C LinkOn% = ((x-Xz)^2 + (y-Yz)^2 <= GapSqd) � � EndClose%
�E LinkBack% = ((X-xa)^2 + (Y-ya)^2 <= GapSqd) � � EndClose%
�) Closed% = LinkOn% � LinkBack%
�# � LinkBack% � LinkOn% �
� !PtrP = &58585858
�* � PtrP!8 < BBx BBx = PtrP!8
�+ � PtrP!12 < BBy BBy = PtrP!12
�+ � PtrP!16 > BBX BBX = PtrP!16
�+ � PtrP!20 > BBY BBY = PtrP!20
�E � LinkOn% Ptrz!8 = PtrP : Ptrz = PtrP : Xz = X : Yz = Y
�S � LinkBack% � � LinkOn% PtrP!8 = Ptra : Ptra = PtrP : xa = x : ya = y
�
�
� �
� Closed% = �
� �
�+ � LinkOn% � LinkBack% � Ptr1 >= end
�' � NoPath% � Closed% � Ptr1 >= end
��
�[� (� all%) � first% �PathHead � Ptr1 = Ptra + 40 : � Ptr1?-4 � &80 Ptr1 += 4*Ptr1!4 + 8
�SubHead = Ptr2
�
�CopyPath
�ȕ Ptra <> Ptrz
�M Ptra = Ptra!8 : Ptr1 = Ptra + 40 : � Ptr1?-4 � &80 Ptr1 += 4*Ptr1!4 + 8
�E Ptr2!-8 = (Ptr2!-8 + Ptr1!4)/2 : Ptr2!-4 = (Ptr2!-4 + Ptr1!8)/2
� Ptr1 += 12 : �CopyPath
��
�� Closed% �
� !Ptr2 = 5 : Ptr2 += 4
�P SubHead!4 = (Ptr2!-12 + SubHead!4)/2 : SubHead!8 = (Ptr2!-8 + SubHead!8)/2
�0 Ptr2!-12 = SubHead!4 : Ptr2!-8 = SubHead!8
��
�� � all% �PathEnd
��
�:
�� �CopyPath
��
� Ȏ !Ptr1 �
� � 2,8 : �Copy(12)
� � 5 : �Copy(4)
� � 6 : �Copy(28)
� �
�� !Ptr1 = 0
��
�:
�-� �FindPath : NoPath% = � : MidClose% = �
��
� Ȏ !Ptr1 �
� � 2 : PtrP = Ptr1
�C � (Ptr1!36 � &80) = 0 Dashes = 0 � Dashes = 4*Ptr1!44 + 8
�O x = Ptr1!(Dashes + 44) : y = Ptr1!(Dashes + 48) : Ptr1 += 40 + Dashes
� �
� Ȏ !Ptr1 �
�: � 2,8 : X = Ptr1!4 : Y = Ptr1!8 : Ptr1 += 12
�- � 5 : Ptr1 += 4 : MidClose% = �
�: � 6 : X = Ptr1!20 : Y = Ptr1!24 : Ptr1 += 28
�
�
�! � !Ptr1 = 0 : Ptr1 += 4
�5 � Ptr1!-8 = 5 EndClose% = � � EndClose% = �
� NoPath% = �
� 6 : Ptr1 += 36
: Ptr1 += Ptr1!4
�
� NoPath% = � � Ptr1 >= end
�
:
� �NonPaths
Ȏ !Ptr1 �
� 2 : Ptr1 += Ptr1!4
� 6 : Ptr1 += 36
: �Copy(Ptr1!4)
�
�
:
� 00000000 0d 00 01 05 3a 0d 00 02 56 f4 20 50 72 6f 67 72 |....:...V. Progr|
00000010 61 6d 20 20 20 4c 69 6e 6b 20 6f 72 20 75 6e 6c |am Link or unl|
00000020 69 6e 6b 20 70 61 74 68 73 20 69 6e 20 44 72 61 |ink paths in Dra|
00000030 77 66 69 6c 65 73 2c 20 64 69 73 70 6c 61 79 20 |wfiles, display |
00000040 77 69 6e 64 69 6e 67 2c 20 6f 72 20 72 65 76 65 |winding, or reve|
00000050 72 73 65 20 77 69 6e 64 69 6e 67 0d 00 03 14 f4 |rse winding.....|
00000060 20 56 65 72 73 69 6f 6e 20 20 20 31 2e 30 32 0d | Version 1.02.|
00000070 00 04 25 f4 20 43 6f 70 79 72 69 67 68 74 20 43 |..%. Copyright C|
00000080 6c 69 76 65 20 53 65 6d 6d 65 6e 73 20 31 39 39 |live Semmens 199|
00000090 33 2d 39 37 0d 00 05 05 3a 0d 00 06 33 de 20 62 |3-97....:...3. b|
000000a0 6c 6f 63 6b 25 20 31 35 33 36 2c 20 6d 65 6e 75 |lock% 1536, menu|
000000b0 25 20 31 32 38 2c 20 74 65 6d 70 25 20 32 35 36 |% 128, temp% 256|
000000c0 2c 20 57 6f 72 6b 25 20 31 35 33 36 0d 00 07 05 |, Work% 1536....|
000000d0 3a 0d 00 08 27 f2 49 6e 69 74 69 61 6c 69 7a 65 |:...'.Initialize|
000000e0 20 3a 20 f2 42 61 72 20 3a 20 f2 57 72 69 74 65 | : .Bar : .Write|
000000f0 20 3a 20 f2 70 6f 6c 6c 0d 00 09 05 e0 0d 00 0a | : .poll........|
00000100 05 3a 0d 00 0b 0b dd 20 f2 70 6f 6c 6c 0d 00 0c |.:..... .poll...|
00000110 13 ea 20 6d 61 73 6b 25 2c 20 45 76 65 6e 74 25 |.. mask%, Event%|
00000120 0d 00 0d 11 6d 61 73 6b 25 3d 25 31 31 30 30 31 |....mask%=%11001|
00000130 31 0d 00 0e 05 f5 0d 00 0f 2b 20 20 c8 99 20 22 |1........+ .. "|
00000140 57 69 6d 70 5f 50 6f 6c 6c 22 2c 6d 61 73 6b 25 |Wimp_Poll",mask%|
00000150 2c 20 62 6c 6f 63 6b 25 20 b8 20 45 76 65 6e 74 |, block% . Event|
00000160 25 0d 00 10 11 20 20 c8 8e 20 45 76 65 6e 74 25 |%.... .. Event%|
00000170 20 ca 0d 00 11 2d 20 20 20 20 c9 20 32 20 3a 20 | ....- . 2 : |
00000180 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e |.. "Wimp_OpenWin|
00000190 64 6f 77 22 2c 20 30 2c 20 62 6c 6f 63 6b 25 0d |dow", 0, block%.|
000001a0 00 12 2e 20 20 20 20 c9 20 33 20 3a 20 c8 99 20 |... . 3 : .. |
000001b0 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f |"Wimp_CloseWindo|
000001c0 77 22 2c 20 30 2c 20 62 6c 6f 63 6b 25 0d 00 13 |w", 0, block%...|
000001d0 14 20 20 20 20 c9 20 36 20 3a 20 f2 4d 6f 75 73 |. . 6 : .Mous|
000001e0 65 0d 00 14 16 20 20 20 20 c9 20 37 20 3a 20 f2 |e.... . 7 : .|
000001f0 44 72 61 67 42 6f 78 0d 00 15 17 20 20 20 20 c9 |DragBox.... .|
00000200 20 38 20 3a 20 f2 4b 65 79 50 72 65 73 73 0d 00 | 8 : .KeyPress..|
00000210 16 18 20 20 20 20 c9 20 39 20 3a 20 f2 53 65 6c |.. . 9 : .Sel|
00000220 65 63 74 69 6f 6e 0d 00 17 1a 20 20 20 20 c9 20 |ection.... . |
00000230 31 37 2c 31 38 20 3a 20 f2 4d 65 73 73 61 67 65 |17,18 : .Message|
00000240 0d 00 18 07 20 20 cb 0d 00 19 0f fd 20 66 69 6e |.... ...... fin|
00000250 69 73 68 65 64 25 0d 00 1a 17 c8 99 20 22 57 69 |ished%...... "Wi|
00000260 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 0d 00 1b |mp_CloseDown"...|
00000270 05 e1 0d 00 1c 05 3a 0d 00 1d 15 dd 20 f2 52 65 |......:..... .Re|
00000280 6c 65 61 73 65 42 75 66 66 65 72 73 0d 00 1e 07 |leaseBuffers....|
00000290 ea 20 85 0d 00 1f 40 ee 20 85 20 ea 20 e7 20 9f |. ....@. . . . .|
000002a0 20 3c 3e 20 34 34 39 20 f2 52 65 70 6f 72 74 28 | <> 449 .Report(|
000002b0 f6 24 2b 22 2c 20 6e 6f 2e 20 22 2b c3 9f 2b 22 |.$+", no. "+..+"|
000002c0 20 40 20 6c 69 6e 65 20 22 2b c3 9e 29 3a e1 20 | @ line "+..):. |
000002d0 8b 20 e1 0d 00 20 21 c8 99 20 22 57 69 6d 70 5f |. ... !.. "Wimp_|
000002e0 53 6c 6f 74 53 69 7a 65 22 2c 93 2d 26 38 30 30 |SlotSize",.-&800|
000002f0 30 2c 2d 31 0d 00 21 05 e1 0d 00 22 05 3a 0d 00 |0,-1..!....".:..|
00000300 23 0c dd 20 f2 4d 6f 75 73 65 0d 00 24 3e e7 20 |#.. .Mouse..$>. |
00000310 28 62 6c 6f 63 6b 25 21 38 3d 32 29 20 80 20 28 |(block%!8=2) . (|
00000320 62 6c 6f 63 6b 25 21 31 36 3d 62 61 72 25 29 20 |block%!16=bar%) |
00000330 80 20 28 62 6c 6f 63 6b 25 21 31 32 3d 2d 32 29 |. (block%!12=-2)|
00000340 20 8c 20 f2 4d 65 6e 75 0d 00 25 51 e7 20 28 28 | . .Menu..%Q. ((|
00000350 62 6c 6f 63 6b 25 21 38 3d 31 29 20 84 20 28 62 |block%!8=1) . (b|
00000360 6c 6f 63 6b 25 21 38 3d 34 29 29 20 80 20 28 62 |lock%!8=4)) . (b|
00000370 6c 6f 63 6b 25 21 31 32 3d 57 69 6e 64 6f 77 25 |lock%!12=Window%|
00000380 29 20 80 20 28 62 6c 6f 63 6b 25 21 31 36 3d 32 |) . (block%!16=2|
00000390 29 20 8c 20 f2 49 63 6f 6e 0d 00 26 26 e7 20 62 |) . .Icon..&&. b|
000003a0 6c 6f 63 6b 25 21 38 3d 34 20 80 20 62 6c 6f 63 |lock%!8=4 . bloc|
000003b0 6b 25 21 31 32 3d 57 69 6e 64 6f 77 25 20 8c 0d |k%!12=Window% ..|
000003c0 00 27 14 20 20 c8 8e 20 62 6c 6f 63 6b 25 21 31 |.'. .. block%!1|
000003d0 36 20 ca 0d 00 28 32 20 20 20 20 c9 20 38 20 3a |6 ...(2 . 8 :|
000003e0 20 4f 70 24 20 3d 20 22 6c 69 6e 6b 69 66 63 6c | Op$ = "linkifcl|
000003f0 6f 73 65 22 20 3a 20 66 69 6c 65 72 61 74 69 6f |ose" : fileratio|
00000400 25 20 3d 20 32 0d 00 29 31 20 20 20 20 c9 20 39 |% = 2..)1 . 9|
00000410 20 3a 20 4f 70 24 20 3d 20 22 6c 69 6e 6b 67 72 | : Op$ = "linkgr|
00000420 6f 75 70 73 22 20 3a 20 66 69 6c 65 72 61 74 69 |oups" : filerati|
00000430 6f 25 20 3d 20 32 0d 00 2a 2f 20 20 20 20 c9 20 |o% = 2..*/ . |
00000440 31 30 20 3a 20 4f 70 24 20 3d 20 22 6c 69 6e 6b |10 : Op$ = "link|
00000450 61 6c 6c 22 20 3a 20 66 69 6c 65 72 61 74 69 6f |all" : fileratio|
00000460 25 20 3d 20 32 0d 00 2b 39 20 20 20 20 c9 20 31 |% = 2..+9 . 1|
00000470 32 20 3a 20 4f 70 24 20 3d 20 22 75 6e 6c 69 6e |2 : Op$ = "unlin|
00000480 6b 22 20 3a 20 41 6c 6c 25 20 3d 20 a3 20 3a 20 |k" : All% = . : |
00000490 66 69 6c 65 72 61 74 69 6f 25 20 3d 20 37 0d 00 |fileratio% = 7..|
000004a0 2c 39 20 20 20 20 c9 20 31 33 20 3a 20 4f 70 24 |,9 . 13 : Op$|
000004b0 20 3d 20 22 75 6e 6c 69 6e 6b 22 20 3a 20 41 6c | = "unlink" : Al|
000004c0 6c 25 20 3d 20 b9 20 3a 20 66 69 6c 65 72 61 74 |l% = . : filerat|
000004d0 69 6f 25 20 3d 20 37 0d 00 2d 35 20 20 20 20 c9 |io% = 7..-5 .|
000004e0 20 31 34 20 3a 20 4f 70 24 20 3d 20 22 73 68 6f | 14 : Op$ = "sho|
000004f0 77 77 69 6e 64 69 6e 67 22 20 3a 20 66 69 6c 65 |wwinding" : file|
00000500 72 61 74 69 6f 25 20 3d 20 32 2e 34 0d 00 2e 2f |ratio% = 2.4.../|
00000510 20 20 20 20 c9 20 31 35 20 3a 20 4f 70 24 20 3d | . 15 : Op$ =|
00000520 20 22 72 65 76 65 72 73 65 22 20 3a 20 66 69 6c | "reverse" : fil|
00000530 65 72 61 74 69 6f 25 20 3d 20 32 0d 00 2f 07 20 |eratio% = 2../. |
00000540 20 cb 0d 00 30 05 cd 0d 00 31 57 e7 20 28 28 62 | ...0....1W. ((b|
00000550 6c 6f 63 6b 25 21 38 3d 31 2a 31 36 29 20 84 20 |lock%!8=1*16) . |
00000560 28 62 6c 6f 63 6b 25 21 38 3d 34 2a 31 36 29 29 |(block%!8=4*16))|
00000570 20 80 20 28 62 6c 6f 63 6b 25 21 31 32 3d 57 69 | . (block%!12=Wi|
00000580 6e 64 6f 77 25 29 20 80 20 28 62 6c 6f 63 6b 25 |ndow%) . (block%|
00000590 21 31 36 3d 30 29 20 8c 20 f2 44 72 61 67 0d 00 |!16=0) . .Drag..|
000005a0 32 05 e1 0d 00 33 05 3a 0d 00 34 0e dd 20 f2 44 |2....3.:..4.. .D|
000005b0 72 61 67 42 6f 78 0d 00 35 09 f2 52 65 61 64 0d |ragBox..5..Read.|
000005c0 00 36 23 c8 99 20 22 57 69 6d 70 5f 47 65 74 50 |.6#.. "Wimp_GetP|
000005d0 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c 74 65 6d |ointerInfo",,tem|
000005e0 70 25 0d 00 37 29 e7 20 28 74 65 6d 70 25 21 31 |p%..7). (temp%!1|
000005f0 32 3d 2d 32 29 20 80 20 28 74 65 6d 70 25 21 31 |2=-2) . (temp%!1|
00000600 36 3d 62 61 72 25 29 20 8c 20 e1 0d 00 38 40 21 |6=bar%) . ...8@!|
00000610 62 6c 6f 63 6b 25 3d 32 35 36 20 3a 20 62 6c 6f |block%=256 : blo|
00000620 63 6b 25 21 31 32 3d 30 20 3a 20 62 6c 6f 63 6b |ck%!12=0 : block|
00000630 25 21 31 36 3d 31 20 3a 20 62 6c 6f 63 6b 25 21 |%!16=1 : block%!|
00000640 32 30 3d 74 65 6d 70 25 21 31 32 0d 00 39 3d 62 |20=temp%!12..9=b|
00000650 6c 6f 63 6b 25 21 32 34 3d 74 65 6d 70 25 21 31 |lock%!24=temp%!1|
00000660 36 20 3a 20 62 6c 6f 63 6b 25 21 32 38 3d 21 74 |6 : block%!28=!t|
00000670 65 6d 70 25 20 3a 20 62 6c 6f 63 6b 25 21 33 32 |emp% : block%!32|
00000680 3d 74 65 6d 70 25 21 34 0d 00 3a 2d 62 6c 6f 63 |=temp%!4..:-bloc|
00000690 6b 25 21 33 36 3d 66 69 6c 65 73 69 7a 65 25 20 |k%!36=filesize% |
000006a0 3a 20 62 6c 6f 63 6b 25 21 34 30 3d 66 69 6c 65 |: block%!40=file|
000006b0 74 79 70 65 25 0d 00 3b 41 e7 20 a4 6c 65 61 66 |type%..;A. .leaf|
000006c0 28 6f 75 74 70 75 74 24 29 3d 22 22 20 8c 20 74 |(output$)="" . t|
000006d0 65 6d 70 24 3d 22 50 61 74 68 46 69 6c 65 22 20 |emp$="PathFile" |
000006e0 8b 20 74 65 6d 70 24 3d a4 6c 65 61 66 28 6f 75 |. temp$=.leaf(ou|
000006f0 74 70 75 74 24 29 0d 00 3c 1b 24 28 62 6c 6f 63 |tput$)..<.$(bloc|
00000700 6b 25 2b 34 34 29 3d 74 65 6d 70 24 2b bd 28 30 |k%+44)=temp$+.(0|
00000710 29 0d 00 3d 35 c8 99 20 22 57 69 6d 70 5f 53 65 |)..=5.. "Wimp_Se|
00000720 6e 64 4d 65 73 73 61 67 65 22 2c 31 37 2c 62 6c |ndMessage",17,bl|
00000730 6f 63 6b 25 2c 74 65 6d 70 25 21 31 32 2c 74 65 |ock%,temp%!12,te|
00000740 6d 70 25 21 31 36 0d 00 3e 12 6d 69 6e 65 25 3d |mp%!16..>.mine%=|
00000750 62 6c 6f 63 6b 25 21 38 0d 00 3f 05 e1 0d 00 40 |block%!8..?....@|
00000760 05 3a 0d 00 41 0f dd 20 f2 4b 65 79 50 72 65 73 |.:..A.. .KeyPres|
00000770 73 0d 00 42 12 c8 8e 20 62 6c 6f 63 6b 25 21 32 |s..B... block%!2|
00000780 34 20 ca 0d 00 43 1c 20 20 c9 20 26 44 20 3a 20 |4 ...C. . &D : |
00000790 f2 52 65 74 75 72 6e 4b 65 79 50 72 65 73 73 0d |.ReturnKeyPress.|
000007a0 00 44 27 20 20 7f 20 c8 99 20 22 57 69 6d 70 5f |.D' . .. "Wimp_|
000007b0 50 72 6f 63 65 73 73 4b 65 79 22 2c 20 62 6c 6f |ProcessKey", blo|
000007c0 63 6b 25 21 32 34 0d 00 45 05 cb 0d 00 46 05 e1 |ck%!24..E....F..|
000007d0 0d 00 47 05 3a 0d 00 48 15 dd 20 f2 52 65 74 75 |..G.:..H.. .Retu|
000007e0 72 6e 4b 65 79 50 72 65 73 73 0d 00 49 4b e7 20 |rnKeyPress..IK. |
000007f0 21 62 6c 6f 63 6b 25 3d 57 69 6e 64 6f 77 25 20 |!block%=Window% |
00000800 80 20 62 6c 6f 63 6b 25 21 34 3d 31 20 8c 20 c8 |. block%!4=1 . .|
00000810 99 20 22 57 69 6d 70 5f 53 65 74 43 61 72 65 74 |. "Wimp_SetCaret|
00000820 50 6f 73 69 74 69 6f 6e 22 2c 20 2d 31 20 3a 20 |Position", -1 : |
00000830 f2 49 63 6f 6e 0d 00 4a 05 e1 0d 00 4b 05 3a 0d |.Icon..J....K.:.|
00000840 00 4c 10 dd 20 f2 53 65 6c 65 63 74 69 6f 6e 0d |.L.. .Selection.|
00000850 00 4d 0e ea 20 62 75 74 74 6f 6e 73 25 0d 00 4e |.M.. buttons%..N|
00000860 26 c8 99 20 22 57 69 6d 70 5f 47 65 74 50 6f 69 |&.. "Wimp_GetPoi|
00000870 6e 74 65 72 49 6e 66 6f 22 2c 20 30 2c 20 74 65 |nterInfo", 0, te|
00000880 6d 70 25 0d 00 4f 17 62 75 74 74 6f 6e 73 25 3d |mp%..O.buttons%=|
00000890 21 28 74 65 6d 70 25 2b 38 29 0d 00 50 1d e7 20 |!(temp%+8)..P.. |
000008a0 21 62 6c 6f 63 6b 25 3d 31 20 8c 20 66 69 6e 69 |!block%=1 . fini|
000008b0 73 68 65 64 25 3d b9 0d 00 51 18 e7 20 62 75 74 |shed%=...Q.. but|
000008c0 74 6f 6e 73 25 3d 31 20 8c 20 f2 4d 65 6e 75 0d |tons%=1 . .Menu.|
000008d0 00 52 05 e1 0d 00 53 05 3a 0d 00 54 0e dd 20 f2 |.R....S.:..T.. .|
000008e0 4d 65 73 73 61 67 65 0d 00 55 12 c8 8e 20 62 6c |Message..U... bl|
000008f0 6f 63 6b 25 21 31 36 20 ca 0d 00 56 17 20 20 c9 |ock%!16 ...V. .|
00000900 20 30 20 3a 20 66 69 6e 69 73 68 65 64 25 3d b9 | 0 : finished%=.|
00000910 0d 00 57 15 20 20 c9 20 31 20 3a 20 f2 44 61 74 |..W. . 1 : .Dat|
00000920 61 53 61 76 65 0d 00 58 18 20 20 c9 20 32 20 3a |aSave..X. . 2 :|
00000930 20 f2 44 61 74 61 53 61 76 65 41 63 6b 0d 00 59 | .DataSaveAck..Y|
00000940 15 20 20 c9 20 33 20 3a 20 f2 44 61 74 61 4c 6f |. . 3 : .DataLo|
00000950 61 64 0d 00 5a 18 20 20 c9 20 34 20 3a 20 f2 44 |ad..Z. . 4 : .D|
00000960 61 74 61 4c 6f 61 64 41 63 6b 0d 00 5b 05 cb 0d |ataLoadAck..[...|
00000970 00 5c 05 e1 0d 00 5d 05 3a 0d 00 5e 0f dd 20 f2 |.\....].:..^.. .|
00000980 44 61 74 61 53 61 76 65 0d 00 5f 0c ea 20 65 78 |DataSave.._.. ex|
00000990 69 73 74 25 0d 00 60 2d e7 20 28 62 6c 6f 63 6b |ist%..`-. (block|
000009a0 25 21 32 30 3c 3e 2d 32 29 20 84 20 28 62 6c 6f |%!20<>-2) . (blo|
000009b0 63 6b 25 21 32 34 3c 3e 62 61 72 25 29 20 8c 20 |ck%!24<>bar%) . |
000009c0 e1 0d 00 61 2a e7 20 28 62 6c 6f 63 6b 25 21 34 |...a*. (block%!4|
000009d0 30 3c 30 29 20 84 20 28 62 6c 6f 63 6b 25 21 34 |0<0) . (block%!4|
000009e0 30 3e 26 46 46 46 29 20 8c 20 e1 0d 00 62 21 66 |0>&FFF) . ...b!f|
000009f0 69 6c 65 6e 61 6d 65 24 3d a4 67 65 74 6e 61 6d |ilename$=.getnam|
00000a00 65 28 62 6c 6f 63 6b 25 2b 34 34 29 0d 00 63 2d |e(block%+44)..c-|
00000a10 66 69 6c 65 74 79 70 65 25 3d 62 6c 6f 63 6b 25 |filetype%=block%|
00000a20 21 34 30 20 3a 20 66 69 6c 65 73 69 7a 65 25 3d |!40 : filesize%=|
00000a30 62 6c 6f 63 6b 25 21 33 36 0d 00 64 37 c8 99 20 |block%!36..d7.. |
00000a40 22 58 4f 53 5f 52 65 61 64 56 61 72 56 61 6c 22 |"XOS_ReadVarVal"|
00000a50 2c 20 22 57 69 6d 70 24 53 63 72 61 70 22 2c 20 |, "Wimp$Scrap", |
00000a60 30 2c 20 2d 31 20 b8 20 2c 2c 65 78 69 73 74 25 |0, -1 . ,,exist%|
00000a70 0d 00 65 10 e7 20 65 78 69 73 74 25 3d 30 20 8c |..e.. exist%=0 .|
00000a80 0d 00 66 29 20 20 f2 52 65 70 6f 72 74 28 22 3c |..f) .Report("<|
00000a90 57 69 6d 70 24 53 63 72 61 70 3e 20 6e 6f 74 20 |Wimp$Scrap> not |
00000aa0 64 65 66 69 6e 65 64 22 29 0d 00 67 05 cc 0d 00 |defined")..g....|
00000ab0 68 24 20 20 24 28 62 6c 6f 63 6b 25 2b 34 34 29 |h$ $(block%+44)|
00000ac0 3d 22 3c 57 69 6d 70 24 53 63 72 61 70 3e 22 2b |="<Wimp$Scrap>"+|
00000ad0 bd 30 0d 00 69 33 20 20 62 6c 6f 63 6b 25 21 31 |.0..i3 block%!1|
00000ae0 32 3d 62 6c 6f 63 6b 25 21 38 20 3a 20 62 6c 6f |2=block%!8 : blo|
00000af0 63 6b 25 21 31 36 3d 32 20 3a 20 21 62 6c 6f 63 |ck%!16=2 : !bloc|
00000b00 6b 25 3d 38 30 0d 00 6a 2e 20 20 c8 99 20 22 57 |k%=80..j. .. "W|
00000b10 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 |imp_SendMessage"|
00000b20 2c 31 37 2c 62 6c 6f 63 6b 25 2c 62 6c 6f 63 6b |,17,block%,block|
00000b30 25 21 34 0d 00 6b 05 cd 0d 00 6c 05 e1 0d 00 6d |%!4..k....l....m|
00000b40 05 3a 0d 00 6e 12 dd 20 f2 44 61 74 61 53 61 76 |.:..n.. .DataSav|
00000b50 65 41 63 6b 0d 00 6f 0b ea 20 74 65 6d 70 24 0d |eAck..o.. temp$.|
00000b60 00 70 07 ea 20 85 0d 00 71 4a ee 20 85 20 ea 20 |.p.. ...qJ. . . |
00000b70 f2 52 65 70 6f 72 74 28 22 50 61 74 68 57 61 79 |.Report("PathWay|
00000b80 73 20 65 72 72 6f 72 20 2d 20 22 2b f6 24 2b 22 |s error - "+.$+"|
00000b90 20 28 40 20 6c 69 6e 65 20 22 2b c3 9e 2b 22 2c | (@ line "+..+",|
00000ba0 20 6e 6f 3a 20 22 2b c3 9f 2b 22 29 22 29 3a e1 | no: "+..+")"):.|
00000bb0 0d 00 72 22 e7 20 62 6c 6f 63 6b 25 21 31 32 3c |..r". block%!12<|
00000bc0 3e 6d 69 6e 65 25 20 8c 20 6d 69 6e 65 25 3d 30 |>mine% . mine%=0|
00000bd0 20 8b 0d 00 73 21 20 20 6f 75 74 70 75 74 24 3d | ...s! output$=|
00000be0 a4 67 65 74 6e 61 6d 65 28 62 6c 6f 63 6b 25 2b |.getname(block%+|
00000bf0 34 34 29 0d 00 74 22 20 20 f2 50 61 74 68 57 61 |44)..t" .PathWa|
00000c00 79 73 28 66 69 6c 65 6e 61 6d 65 24 2c 6f 75 74 |ys(filename$,out|
00000c10 70 75 74 24 29 0d 00 75 23 20 20 62 6c 6f 63 6b |put$)..u# block|
00000c20 25 21 31 32 3d 6d 69 6e 65 25 20 3a 20 62 6c 6f |%!12=mine% : blo|
00000c30 63 6b 25 21 31 36 3d 33 0d 00 76 39 20 20 c8 99 |ck%!16=3..v9 ..|
00000c40 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 | "Wimp_SendMessa|
00000c50 67 65 22 2c 31 37 2c 62 6c 6f 63 6b 25 2c 62 6c |ge",17,block%,bl|
00000c60 6f 63 6b 25 21 32 30 2c 62 6c 6f 63 6b 25 21 32 |ock%!20,block%!2|
00000c70 34 0d 00 77 14 20 20 6d 69 6e 65 25 3d 62 6c 6f |4..w. mine%=blo|
00000c80 63 6b 25 21 38 0d 00 78 05 cd 0d 00 79 05 e1 0d |ck%!8..x....y...|
00000c90 00 7a 05 3a 0d 00 7b 0f dd 20 f2 44 61 74 61 4c |.z.:..{.. .DataL|
00000ca0 6f 61 64 0d 00 7c 07 ea 20 85 0d 00 7d 4a ee 20 |oad..|.. ...}J. |
00000cb0 85 20 ea 20 f2 52 65 70 6f 72 74 28 22 44 61 74 |. . .Report("Dat|
00000cc0 61 4c 6f 61 64 20 65 72 72 6f 72 20 2d 20 22 2b |aLoad error - "+|
00000cd0 f6 24 2b 22 20 28 40 20 6c 69 6e 65 20 22 2b c3 |.$+" (@ line "+.|
00000ce0 9e 2b 22 2c 20 6e 6f 3a 20 22 2b c3 9f 2b 22 29 |.+", no: "+..+")|
00000cf0 22 29 3a e1 0d 00 7e 05 3a 0d 00 7f 2d e7 20 28 |"):...~.:...-. (|
00000d00 62 6c 6f 63 6b 25 21 32 30 3c 3e 2d 32 29 20 84 |block%!20<>-2) .|
00000d10 20 28 62 6c 6f 63 6b 25 21 32 34 3c 3e 62 61 72 | (block%!24<>bar|
00000d20 25 29 20 8c 20 e1 0d 00 80 2a e7 20 28 62 6c 6f |%) . ....*. (blo|
00000d30 63 6b 25 21 34 30 3c 30 29 20 84 20 28 62 6c 6f |ck%!40<0) . (blo|
00000d40 63 6b 25 21 34 30 3e 26 46 46 46 29 20 8c 20 e1 |ck%!40>&FFF) . .|
00000d50 0d 00 81 0a f2 57 72 69 74 65 0d 00 82 23 c8 99 |.....Write...#..|
00000d60 20 22 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 | "Wimp_GetPointe|
00000d70 72 49 6e 66 6f 22 2c 2c 74 65 6d 70 25 0d 00 83 |rInfo",,temp%...|
00000d80 27 74 65 6d 70 25 21 34 3d 21 74 65 6d 70 25 2d |'temp%!4=!temp%-|
00000d90 31 39 32 20 3a 20 74 65 6d 70 25 21 38 3d 31 38 |192 : temp%!8=18|
00000da0 34 2d 38 30 0d 00 84 33 74 65 6d 70 25 21 31 32 |4-80...3temp%!12|
00000db0 3d 28 21 74 65 6d 70 25 2d 31 39 32 29 2b 35 31 |=(!temp%-192)+51|
00000dc0 32 20 3a 20 74 65 6d 70 25 21 31 36 3d 31 38 34 |2 : temp%!16=184|
00000dd0 2d 38 30 2b 34 35 32 0d 00 85 29 74 65 6d 70 25 |-80+452...)temp%|
00000de0 21 32 30 3d 30 20 3a 20 74 65 6d 70 25 21 32 34 |!20=0 : temp%!24|
00000df0 3d 30 20 3a 20 74 65 6d 70 25 21 32 38 3d 2d 31 |=0 : temp%!28=-1|
00000e00 0d 00 86 12 21 74 65 6d 70 25 3d 57 69 6e 64 6f |....!temp%=Windo|
00000e10 77 25 0d 00 87 1f c8 99 20 22 57 69 6d 70 5f 4f |w%...... "Wimp_O|
00000e20 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 74 65 6d 70 |penWindow",,temp|
00000e30 25 0d 00 88 3c c8 99 20 22 57 69 6d 70 5f 53 65 |%...<.. "Wimp_Se|
00000e40 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c |tCaretPosition",|
00000e50 57 69 6e 64 6f 77 25 2c 31 2c 2d 31 2c 2d 31 2c |Window%,1,-1,-1,|
00000e60 2d 31 2c a9 28 6f 75 74 70 75 74 24 29 0d 00 89 |-1,.(output$)...|
00000e70 2d 66 69 6c 65 74 79 70 65 25 3d 62 6c 6f 63 6b |-filetype%=block|
00000e80 25 21 34 30 20 3a 20 66 69 6c 65 73 69 7a 65 25 |%!40 : filesize%|
00000e90 3d 62 6c 6f 63 6b 25 21 33 36 0d 00 8a 21 66 69 |=block%!36...!fi|
00000ea0 6c 65 6e 61 6d 65 24 3d a4 67 65 74 6e 61 6d 65 |lename$=.getname|
00000eb0 28 62 6c 6f 63 6b 25 2b 34 34 29 0d 00 8b 31 62 |(block%+44)...1b|
00000ec0 6c 6f 63 6b 25 21 31 32 3d 62 6c 6f 63 6b 25 21 |lock%!12=block%!|
00000ed0 38 20 3a 20 62 6c 6f 63 6b 25 21 31 36 3d 34 20 |8 : block%!16=4 |
00000ee0 3a 20 21 62 6c 6f 63 6b 25 3d 36 34 0d 00 8c 2c |: !block%=64...,|
00000ef0 c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 |.. "Wimp_SendMes|
00000f00 73 61 67 65 22 2c 31 37 2c 62 6c 6f 63 6b 25 2c |sage",17,block%,|
00000f10 62 6c 6f 63 6b 25 21 34 0d 00 8d 1e 21 74 65 6d |block%!4....!tem|
00000f20 70 25 3d 57 69 6e 64 6f 77 25 20 3a 20 74 65 6d |p%=Window% : tem|
00000f30 70 25 21 34 3d 30 0d 00 8e 21 c8 99 20 22 57 69 |p%!4=0...!.. "Wi|
00000f40 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_GetIconState"|
00000f50 2c 2c 74 65 6d 70 25 0d 00 8f 24 24 28 74 65 6d |,,temp%...$$(tem|
00000f60 70 25 21 33 32 29 3d 22 53 66 69 6c 65 5f 22 2b |p%!32)="Sfile_"+|
00000f70 c3 7e 66 69 6c 65 74 79 70 65 25 0d 00 90 05 e1 |.~filetype%.....|
00000f80 0d 00 91 05 3a 0d 00 92 12 dd 20 f2 44 61 74 61 |....:..... .Data|
00000f90 4c 6f 61 64 41 63 6b 0d 00 93 17 e7 20 62 6c 6f |LoadAck..... blo|
00000fa0 63 6b 25 21 31 32 3d 6d 69 6e 65 25 20 8c 0d 00 |ck%!12=mine% ...|
00000fb0 94 0d 20 20 6d 69 6e 65 25 3d 30 0d 00 95 15 20 |.. mine%=0.... |
00000fc0 20 21 62 6c 6f 63 6b 25 3d 57 69 6e 64 6f 77 25 | !block%=Window%|
00000fd0 0d 00 96 23 20 20 c8 99 20 22 57 69 6d 70 5f 43 |...# .. "Wimp_C|
00000fe0 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f |loseWindow",,blo|
00000ff0 63 6b 25 0d 00 97 1e 20 20 c8 99 20 22 57 69 6d |ck%.... .. "Wim|
00001000 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 2d |p_CreateMenu",,-|
00001010 31 0d 00 98 3f 20 20 e7 20 c0 66 69 6c 65 6e 61 |1...? . .filena|
00001020 6d 65 24 2c 31 32 29 3d 22 3c 57 69 6d 70 24 53 |me$,12)="<Wimp$S|
00001030 63 72 61 70 3e 22 20 8c 20 ff 20 22 44 65 6c 65 |crap>" . . "Dele|
00001040 74 65 20 3c 57 69 6d 70 24 53 63 72 61 70 3e 22 |te <Wimp$Scrap>"|
00001050 0d 00 99 05 cd 0d 00 9a 05 e1 0d 00 9b 05 3a 0d |..............:.|
00001060 00 9c 0b dd 20 f2 4d 65 6e 75 0d 00 9d 0b ea 20 |.... .Menu..... |
00001070 69 74 65 6d 25 0d 00 9e 15 24 6d 65 6e 75 25 3d |item%....$menu%=|
00001080 22 50 61 74 68 57 61 79 73 22 0d 00 9f 35 6d 65 |"PathWays"...5me|
00001090 6e 75 25 3f 31 32 3d 37 20 3a 20 6d 65 6e 75 25 |nu%?12=7 : menu%|
000010a0 3f 31 33 3d 32 20 3a 20 6d 65 6e 75 25 3f 31 34 |?13=2 : menu%?14|
000010b0 3d 37 20 3a 20 6d 65 6e 75 25 3f 31 35 3d 30 0d |=7 : menu%?15=0.|
000010c0 00 a0 2b 6d 65 6e 75 25 21 31 36 3d 31 30 30 20 |..+menu%!16=100 |
000010d0 3a 20 6d 65 6e 75 25 21 32 30 3d 34 34 20 3a 20 |: menu%!20=44 : |
000010e0 6d 65 6e 75 25 21 32 34 3d 30 0d 00 a1 2d 69 74 |menu%!24=0...-it|
000010f0 65 6d 25 3d 6d 65 6e 75 25 2b 32 38 20 3a 20 21 |em%=menu%+28 : !|
00001100 69 74 65 6d 25 3d 30 20 3a 20 69 74 65 6d 25 21 |item%=0 : item%!|
00001110 34 3d 49 6e 66 6f 25 0d 00 a2 28 69 74 65 6d 25 |4=Info%...(item%|
00001120 21 38 3d 25 31 31 31 30 30 30 30 30 30 30 30 31 |!8=%111000000001|
00001130 30 30 31 30 30 30 30 30 30 30 31 30 30 30 31 0d |001000000010001.|
00001140 00 a3 1b 24 28 69 74 65 6d 25 2b 31 32 29 3d 22 |...$(item%+12)="|
00001150 49 6e 66 6f 22 2b bd 28 30 29 0d 00 a4 25 69 74 |Info"+.(0)...%it|
00001160 65 6d 25 3d 69 74 65 6d 25 2b 32 34 20 3a 20 21 |em%=item%+24 : !|
00001170 69 74 65 6d 25 3d 25 31 30 30 30 30 30 30 30 0d |item%=%10000000.|
00001180 00 a5 0e 69 74 65 6d 25 21 34 3d 2d 31 0d 00 a6 |...item%!4=-1...|
00001190 28 69 74 65 6d 25 21 38 3d 25 31 31 31 30 30 30 |(item%!8=%111000|
000011a0 30 30 30 30 30 31 30 30 31 30 30 30 30 30 30 30 |0000010010000000|
000011b0 31 30 30 30 31 0d 00 a7 1b 24 28 69 74 65 6d 25 |10001....$(item%|
000011c0 2b 31 32 29 3d 22 51 75 69 74 22 2b bd 28 30 29 |+12)="Quit"+.(0)|
000011d0 0d 00 a8 3b c8 99 20 22 57 69 6d 70 5f 43 72 65 |...;.. "Wimp_Cre|
000011e0 61 74 65 4d 65 6e 75 22 2c 20 30 2c 20 6d 65 6e |ateMenu", 0, men|
000011f0 75 25 2c 20 28 21 62 6c 6f 63 6b 25 29 2d 31 30 |u%, (!block%)-10|
00001200 30 2f 32 2c 20 32 30 30 2d 31 36 0d 00 a9 05 e1 |0/2, 200-16.....|
00001210 0d 00 aa 05 3a 0d 00 ab 0b dd 20 f2 49 63 6f 6e |....:..... .Icon|
00001220 0d 00 ac 0b ea 20 74 65 6d 70 24 0d 00 ad 07 ea |..... temp$.....|
00001230 20 85 0d 00 ae 45 ee 20 85 20 ea 20 f2 52 65 70 | ....E. . . .Rep|
00001240 6f 72 74 28 22 50 61 74 68 57 61 79 73 20 65 72 |ort("PathWays er|
00001250 72 6f 72 20 2d 20 22 2b f6 24 2b 22 20 28 40 20 |ror - "+.$+" (@ |
00001260 6c 69 6e 65 20 22 2b c3 9e 2b 22 2c 22 2b c3 9f |line "+..+","+..|
00001270 2b 22 29 22 29 3a e1 0d 00 af 09 f2 52 65 61 64 |+")"):......Read|
00001280 0d 00 b0 57 e7 20 a7 6f 75 74 70 75 74 24 2c 22 |...W. .output$,"|
00001290 2e 22 29 3d 30 20 8c 20 f2 52 65 70 6f 72 74 28 |.")=0 . .Report(|
000012a0 22 54 6f 20 73 61 76 65 2c 20 64 72 61 67 20 74 |"To save, drag t|
000012b0 68 65 20 66 69 6c 65 20 69 63 6f 6e 20 74 6f 20 |he file icon to |
000012c0 61 20 64 69 72 65 63 74 6f 72 79 20 64 69 73 70 |a directory disp|
000012d0 6c 61 79 22 29 3a e1 0d 00 b1 59 e7 20 a4 6c 65 |lay"):....Y. .le|
000012e0 61 66 28 6f 75 74 70 75 74 24 29 3d 22 22 20 8c |af(output$)="" .|
000012f0 20 f2 52 65 70 6f 72 74 28 22 54 6f 20 73 61 76 | .Report("To sav|
00001300 65 2c 20 64 72 61 67 20 74 68 65 20 66 69 6c 65 |e, drag the file|
00001310 20 69 63 6f 6e 20 74 6f 20 61 20 64 69 72 65 63 | icon to a direc|
00001320 74 6f 72 79 20 64 69 73 70 6c 61 79 22 29 3a e1 |tory display"):.|
00001330 0d 00 b2 20 f2 50 61 74 68 57 61 79 73 28 66 69 |... .PathWays(fi|
00001340 6c 65 6e 61 6d 65 24 2c 6f 75 74 70 75 74 24 29 |lename$,output$)|
00001350 0d 00 b3 13 21 62 6c 6f 63 6b 25 3d 57 69 6e 64 |....!block%=Wind|
00001360 6f 77 25 0d 00 b4 21 c8 99 20 22 57 69 6d 70 5f |ow%...!.. "Wimp_|
00001370 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 62 6c |CloseWindow",,bl|
00001380 6f 63 6b 25 0d 00 b5 1c c8 99 20 22 57 69 6d 70 |ock%...... "Wimp|
00001390 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 2d 31 |_CreateMenu",,-1|
000013a0 0d 00 b6 05 e1 0d 00 b7 05 3a 0d 00 b8 0b dd 20 |.........:..... |
000013b0 f2 44 72 61 67 0d 00 b9 25 ea 20 69 63 25 2c 20 |.Drag...%. ic%, |
000013c0 6d 69 6e 78 25 2c 20 6d 69 6e 79 25 2c 20 6d 61 |minx%, miny%, ma|
000013d0 78 78 25 2c 20 6d 61 78 79 25 0d 00 ba 11 69 63 |xx%, maxy%....ic|
000013e0 25 3d 62 6c 6f 63 6b 25 21 31 36 0d 00 bb 25 e7 |%=block%!16...%.|
000013f0 20 28 62 6c 6f 63 6b 25 21 31 32 3d 57 69 6e 64 | (block%!12=Wind|
00001400 6f 77 25 29 20 80 20 28 69 63 25 3d 30 29 20 8c |ow%) . (ic%=0) .|
00001410 0d 00 bc 22 20 20 21 74 65 6d 70 25 3d 57 69 6e |..." !temp%=Win|
00001420 64 6f 77 25 20 3a 20 74 65 6d 70 25 21 34 3d 69 |dow% : temp%!4=i|
00001430 63 25 0d 00 bd 23 20 20 c8 99 20 22 57 69 6d 70 |c%...# .. "Wimp|
00001440 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_GetIconState",,|
00001450 74 65 6d 70 25 0d 00 be 24 20 20 6d 69 6e 78 25 |temp%...$ minx%|
00001460 3d 74 65 6d 70 25 21 38 20 3a 20 6d 69 6e 79 25 |=temp%!8 : miny%|
00001470 3d 74 65 6d 70 25 21 31 32 0d 00 bf 25 20 20 6d |=temp%!12...% m|
00001480 61 78 78 25 3d 74 65 6d 70 25 21 31 36 20 3a 20 |axx%=temp%!16 : |
00001490 6d 61 78 79 25 3d 74 65 6d 70 25 21 32 30 0d 00 |maxy%=temp%!20..|
000014a0 c0 25 20 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 |.% .. "Wimp_Get|
000014b0 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 74 65 |WindowState",,te|
000014c0 6d 70 25 0d 00 c1 2f 20 20 6d 69 6e 78 25 3d 74 |mp%.../ minx%=t|
000014d0 65 6d 70 25 21 34 2b 6d 69 6e 78 25 20 3a 20 6d |emp%!4+minx% : m|
000014e0 61 78 78 25 3d 74 65 6d 70 25 21 34 2b 6d 61 78 |axx%=temp%!4+max|
000014f0 78 25 0d 00 c2 31 20 20 6d 69 6e 79 25 3d 74 65 |x%...1 miny%=te|
00001500 6d 70 25 21 31 36 2b 6d 69 6e 79 25 20 3a 20 6d |mp%!16+miny% : m|
00001510 61 78 79 25 3d 74 65 6d 70 25 21 31 36 2b 6d 61 |axy%=temp%!16+ma|
00001520 78 79 25 0d 00 c3 1a 20 20 21 74 65 6d 70 25 3d |xy%.... !temp%=|
00001530 30 20 3a 20 74 65 6d 70 25 21 34 3d 35 0d 00 c4 |0 : temp%!4=5...|
00001540 24 20 20 74 65 6d 70 25 21 38 3d 6d 69 6e 78 25 |$ temp%!8=minx%|
00001550 20 3a 20 74 65 6d 70 25 21 31 32 3d 6d 69 6e 79 | : temp%!12=miny|
00001560 25 0d 00 c5 25 20 20 74 65 6d 70 25 21 31 36 3d |%...% temp%!16=|
00001570 6d 61 78 78 25 20 3a 20 74 65 6d 70 25 21 32 30 |maxx% : temp%!20|
00001580 3d 6d 61 78 79 25 0d 00 c6 1d 20 20 74 65 6d 70 |=maxy%.... temp|
00001590 25 21 32 34 3d 30 20 3a 20 74 65 6d 70 25 21 32 |%!24=0 : temp%!2|
000015a0 38 3d 30 0d 00 c7 25 20 20 74 65 6d 70 25 21 33 |8=0...% temp%!3|
000015b0 32 3d 33 32 30 30 30 20 3a 20 74 65 6d 70 25 21 |2=32000 : temp%!|
000015c0 33 36 3d 33 32 30 30 30 0d 00 c8 1e 20 20 c8 99 |36=32000.... ..|
000015d0 20 22 57 69 6d 70 5f 44 72 61 67 42 6f 78 22 2c | "Wimp_DragBox",|
000015e0 2c 74 65 6d 70 25 0d 00 c9 0b 20 20 f2 52 65 61 |,temp%.... .Rea|
000015f0 64 0d 00 ca 05 cd 0d 00 cb 05 e1 0d 00 cc 05 3a |d..............:|
00001600 0d 00 cd 39 dd 20 f2 52 65 70 6f 72 74 28 74 65 |...9. .Report(te|
00001610 78 74 24 29 20 3a 20 21 62 6c 6f 63 6b 25 3d 31 |xt$) : !block%=1|
00001620 20 3a 20 24 28 62 6c 6f 63 6b 25 2b 34 29 3d 74 | : $(block%+4)=t|
00001630 65 78 74 24 2b bd 28 30 29 0d 00 ce 2d c8 99 20 |ext$+.(0)...-.. |
00001640 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f |"Wimp_ReportErro|
00001650 72 22 2c 62 6c 6f 63 6b 25 2c 31 2c 22 50 61 74 |r",block%,1,"Pat|
00001660 68 57 61 79 73 22 0d 00 cf 05 e1 0d 00 d0 05 3a |hWays".........:|
00001670 0d 00 d1 62 dd 20 f2 42 61 72 20 3a 20 21 62 6c |...b. .Bar : !bl|
00001680 6f 63 6b 25 3d 2d 31 20 3a 20 62 6c 6f 63 6b 25 |ock%=-1 : block%|
00001690 21 34 3d 30 20 3a 20 62 6c 6f 63 6b 25 21 38 3d |!4=0 : block%!8=|
000016a0 2d 34 20 3a 20 62 6c 6f 63 6b 25 21 31 32 3d 36 |-4 : block%!12=6|
000016b0 38 20 3a 20 62 6c 6f 63 6b 25 21 31 36 3d 36 38 |8 : block%!16=68|
000016c0 20 3a 20 62 6c 6f 63 6b 25 21 32 30 3d 26 32 30 | : block%!20=&20|
000016d0 30 32 0d 00 d2 42 24 28 62 6c 6f 63 6b 25 2b 32 |02...B$(block%+2|
000016e0 34 29 3d 22 21 50 61 74 68 57 61 79 73 22 20 3a |4)="!PathWays" :|
000016f0 20 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 | .. "Wimp_Create|
00001700 49 63 6f 6e 22 2c 2c 62 6c 6f 63 6b 25 20 b8 20 |Icon",,block% . |
00001710 62 61 72 25 0d 00 d3 05 e1 0d 00 d4 05 3a 0d 00 |bar%.........:..|
00001720 d5 0b dd 20 f2 52 65 61 64 0d 00 d6 1e 21 74 65 |... .Read....!te|
00001730 6d 70 25 3d 57 69 6e 64 6f 77 25 20 3a 20 74 65 |mp%=Window% : te|
00001740 6d 70 25 21 34 3d 31 0d 00 d7 21 c8 99 20 22 57 |mp%!4=1...!.. "W|
00001750 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 |imp_GetIconState|
00001760 22 2c 2c 74 65 6d 70 25 0d 00 d8 17 6f 75 74 70 |",,temp%....outp|
00001770 75 74 24 3d 24 28 74 65 6d 70 25 21 32 38 29 0d |ut$=$(temp%!28).|
00001780 00 d9 1e 21 74 65 6d 70 25 3d 57 69 6e 64 6f 77 |...!temp%=Window|
00001790 25 20 3a 20 74 65 6d 70 25 21 34 3d 33 0d 00 da |% : temp%!4=3...|
000017a0 21 c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f |!.. "Wimp_GetIco|
000017b0 6e 53 74 61 74 65 22 2c 2c 74 65 6d 70 25 0d 00 |nState",,temp%..|
000017c0 db 14 67 61 70 24 3d 24 28 74 65 6d 70 25 21 32 |..gap$=$(temp%!2|
000017d0 38 29 0d 00 dc 05 e1 0d 00 dd 05 3a 0d 00 de 0c |8).........:....|
000017e0 dd 20 f2 57 72 69 74 65 0d 00 df 1e 21 74 65 6d |. .Write....!tem|
000017f0 70 25 3d 57 69 6e 64 6f 77 25 20 3a 20 74 65 6d |p%=Window% : tem|
00001800 70 25 21 34 3d 31 0d 00 e0 21 c8 99 20 22 57 69 |p%!4=1...!.. "Wi|
00001810 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_GetIconState"|
00001820 2c 2c 74 65 6d 70 25 0d 00 e1 17 24 28 74 65 6d |,,temp%....$(tem|
00001830 70 25 21 32 38 29 3d 6f 75 74 70 75 74 24 0d 00 |p%!28)=output$..|
00001840 e2 1e 21 74 65 6d 70 25 3d 57 69 6e 64 6f 77 25 |..!temp%=Window%|
00001850 20 3a 20 74 65 6d 70 25 21 34 3d 33 0d 00 e3 21 | : temp%!4=3...!|
00001860 c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e |.. "Wimp_GetIcon|
00001870 53 74 61 74 65 22 2c 2c 74 65 6d 70 25 0d 00 e4 |State",,temp%...|
00001880 14 24 28 74 65 6d 70 25 21 32 38 29 3d 67 61 70 |.$(temp%!28)=gap|
00001890 24 0d 00 e5 05 e1 0d 00 e6 05 3a 0d 00 e7 14 dd |$.........:.....|
000018a0 20 a4 67 65 74 6e 61 6d 65 28 70 74 72 25 29 0d | .getname(ptr%).|
000018b0 00 e8 08 ea 20 70 24 0d 00 e9 1b c8 95 20 3f 70 |.... p$...... ?p|
000018c0 74 72 25 3c 31 32 38 20 80 20 3f 70 74 72 25 3e |tr%<128 . ?ptr%>|
000018d0 33 31 0d 00 ea 1c 20 20 70 24 2b 3d bd 28 3f 70 |31.... p$+=.(?p|
000018e0 74 72 25 29 20 3a 20 70 74 72 25 2b 3d 31 0d 00 |tr%) : ptr%+=1..|
000018f0 eb 05 ce 0d 00 ec 07 3d 70 24 0d 00 ed 05 3a 0d |.......=p$....:.|
00001900 00 ee 0f dd 20 a4 6c 65 61 66 28 66 24 29 0d 00 |.... .leaf(f$)..|
00001910 ef 0f c8 95 20 a7 66 24 2c 22 2e 22 29 0d 00 f0 |.... .f$,".")...|
00001920 18 20 20 66 24 3d c1 66 24 2c a7 66 24 2c 22 2e |. f$=.f$,.f$,".|
00001930 22 29 2b 31 29 0d 00 f1 05 ce 0d 00 f2 07 3d 66 |")+1).........=f|
00001940 24 0d 00 f3 05 3a 0d 00 f4 11 dd 20 f2 49 6e 69 |$....:..... .Ini|
00001950 74 69 61 6c 69 7a 65 0d 00 f5 19 ea 20 57 69 6d |tialize..... Wim|
00001960 70 25 2c 20 74 61 73 6b 25 2c 20 6e 65 78 74 25 |p%, task%, next%|
00001970 0d 00 f6 05 3a 0d 00 f7 1d 57 69 6d 70 25 3d 32 |....:....Wimp%=2|
00001980 20 3a 20 74 61 73 6b 25 3d 26 34 42 35 33 34 31 | : task%=&4B5341|
00001990 35 34 0d 00 f8 10 6d 6d 20 3d 20 31 38 31 34 2e |54....mm = 1814.|
000019a0 31 37 0d 00 f9 3e c8 99 20 22 57 69 6d 70 5f 49 |17...>.. "Wimp_I|
000019b0 6e 69 74 69 61 6c 69 73 65 22 2c 20 57 69 6d 70 |nitialise", Wimp|
000019c0 25 2a 31 30 30 2c 20 74 61 73 6b 25 2c 20 22 50 |%*100, task%, "P|
000019d0 61 74 68 57 61 79 73 22 20 b8 20 57 69 6d 70 25 |athWays" . Wimp%|
000019e0 0d 00 fa 4f e7 20 57 69 6d 70 25 20 3c 20 32 30 |...O. Wimp% < 20|
000019f0 30 20 8c 20 f2 52 65 70 6f 72 74 28 22 50 61 74 |0 . .Report("Pat|
00001a00 68 57 61 79 73 20 6e 65 65 64 73 20 61 20 6e 65 |hWays needs a ne|
00001a10 77 65 72 20 76 65 72 73 69 6f 6e 20 6f 66 20 57 |wer version of W|
00001a20 69 6e 64 6f 77 20 4d 61 6e 61 67 65 72 22 29 0d |indow Manager").|
00001a30 00 fb 5c ee 20 85 20 f2 52 65 70 6f 72 74 28 22 |..\. . .Report("|
00001a40 50 61 74 68 57 61 79 73 20 65 72 72 6f 72 20 2d |PathWays error -|
00001a50 20 22 2b f6 24 2b 22 20 28 40 20 6c 69 6e 65 20 | "+.$+" (@ line |
00001a60 22 2b c3 9e 2b 22 2c 20 6e 6f 3a 20 22 2b c3 9f |"+..+", no: "+..|
00001a70 2b 22 29 22 29 3a c8 99 20 22 57 69 6d 70 5f 43 |+")"):.. "Wimp_C|
00001a80 6c 6f 73 65 44 6f 77 6e 22 3a e0 0d 00 fc 05 3a |loseDown":.....:|
00001a90 0d 00 fd 5b 6f 75 74 70 75 74 24 3d 22 50 61 74 |...[output$="Pat|
00001aa0 68 46 69 6c 65 22 20 3a 20 67 61 70 24 20 3d 20 |hFile" : gap$ = |
00001ab0 22 30 2e 35 22 20 3a 20 4f 70 24 20 3d 20 22 6c |"0.5" : Op$ = "l|
00001ac0 69 6e 6b 69 66 63 6c 6f 73 65 22 20 3a 20 66 69 |inkifclose" : fi|
00001ad0 6c 65 72 61 74 69 6f 25 20 3d 20 32 20 3a 20 6d |leratio% = 2 : m|
00001ae0 6d 20 3d 20 31 38 31 34 2e 31 37 0d 00 fe 2b 66 |m = 1814.17...+f|
00001af0 69 6c 65 73 69 7a 65 25 3d 30 20 3a 20 66 69 6c |ilesize%=0 : fil|
00001b00 65 74 79 70 65 25 3d 30 20 3a 20 66 69 6e 69 73 |etype%=0 : finis|
00001b10 68 65 64 25 3d a3 0d 00 ff 39 c8 99 20 22 57 69 |hed%=....9.. "Wi|
00001b20 6d 70 5f 4f 70 65 6e 54 65 6d 70 6c 61 74 65 22 |mp_OpenTemplate"|
00001b30 2c 20 30 2c 20 22 3c 50 61 74 68 57 61 79 73 24 |, 0, "<PathWays$|
00001b40 44 69 72 3e 2e 54 65 6d 70 6c 61 74 65 73 22 0d |Dir>.Templates".|
00001b50 01 00 4e c8 99 20 22 57 69 6d 70 5f 4c 6f 61 64 |..N.. "Wimp_Load|
00001b60 54 65 6d 70 6c 61 74 65 22 2c 2c 20 62 6c 6f 63 |Template",, bloc|
00001b70 6b 25 2c 57 6f 72 6b 25 2c 57 6f 72 6b 25 2b 31 |k%,Work%,Work%+1|
00001b80 35 33 36 2c 2d 31 2c 20 22 73 61 76 65 61 73 22 |536,-1, "saveas"|
00001b90 2c 20 30 20 b8 20 2c 2c 6e 65 78 74 25 0d 01 01 |, 0 . ,,next%...|
00001ba0 2d c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 |-.. "Wimp_Create|
00001bb0 57 69 6e 64 6f 77 22 2c 2c 20 62 6c 6f 63 6b 25 |Window",, block%|
00001bc0 20 b8 20 57 69 6e 64 6f 77 25 0d 01 02 4f c8 99 | . Window%...O..|
00001bd0 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c | "Wimp_LoadTempl|
00001be0 61 74 65 22 2c 2c 20 62 6c 6f 63 6b 25 2c 20 6e |ate",, block%, n|
00001bf0 65 78 74 25 2c 20 57 6f 72 6b 25 2b 31 35 33 36 |ext%, Work%+1536|
00001c00 2c 20 2d 31 2c 20 22 69 6e 66 6f 22 2c 20 30 20 |, -1, "info", 0 |
00001c10 b8 20 2c 2c 6e 65 78 74 25 0d 01 03 2b c8 99 20 |. ,,next%...+.. |
00001c20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 |"Wimp_CreateWind|
00001c30 6f 77 22 2c 2c 20 62 6c 6f 63 6b 25 20 b8 20 49 |ow",, block% . I|
00001c40 6e 66 6f 25 0d 01 04 1b c8 99 20 22 57 69 6d 70 |nfo%...... "Wimp|
00001c50 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 74 65 22 0d |_CloseTemplate".|
00001c60 01 05 05 e1 0d 01 06 05 3a 0d 01 07 10 dd 20 f2 |........:..... .|
00001c70 4c 6f 61 64 28 69 6e 24 29 0d 01 08 28 c8 99 20 |Load(in$)...(.. |
00001c80 22 4f 53 5f 46 69 6c 65 22 2c 31 37 2c 69 6e 24 |"OS_File",17,in$|
00001c90 20 b8 20 74 79 70 65 2c 2c 2c 2c 45 78 74 65 6e | . type,,,,Exten|
00001ca0 74 0d 01 09 25 c8 99 20 22 57 69 6d 70 5f 53 6c |t...%.. "Wimp_Sl|
00001cb0 6f 74 53 69 7a 65 22 2c 2d 31 2c 2d 31 20 b8 20 |otSize",-1,-1 . |
00001cc0 2c 2c 46 72 65 65 0d 01 0a 4f e7 20 46 72 65 65 |,,Free...O. Free|
00001cd0 20 3c 20 45 78 74 65 6e 74 2a 66 69 6c 65 72 61 | < Extent*filera|
00001ce0 74 69 6f 25 20 f2 52 65 70 6f 72 74 28 22 55 6e |tio% .Report("Un|
00001cf0 61 62 6c 65 20 74 6f 20 63 6c 61 69 6d 20 73 75 |able to claim su|
00001d00 66 66 69 63 69 65 6e 74 20 6d 65 6d 6f 72 79 22 |fficient memory"|
00001d10 29 20 3a 20 e1 0d 01 0b 31 c8 99 20 22 57 69 6d |) : ....1.. "Wim|
00001d20 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 93 20 2b 20 |p_SlotSize",. + |
00001d30 45 78 74 65 6e 74 2a 66 69 6c 65 72 61 74 69 6f |Extent*fileratio|
00001d40 25 20 2c 20 2d 31 0d 01 0c 0c 42 75 66 66 20 3d |% , -1....Buff =|
00001d50 20 93 0d 01 0d 22 ff 20 22 4c 4f 41 44 20 22 20 | ....". "LOAD " |
00001d60 2b 20 69 6e 24 20 2b 20 22 20 22 20 2b 20 c3 7e |+ in$ + " " + .~|
00001d70 42 75 66 66 0d 01 0e 05 e1 0d 01 0f 05 3a 0d 01 |Buff.........:..|
00001d80 10 11 dd 20 f2 53 61 76 65 28 6f 75 74 24 29 0d |... .Save(out$).|
00001d90 01 11 3b ff 20 22 53 41 56 45 20 22 20 2b 20 6f |..;. "SAVE " + o|
00001da0 75 74 24 20 2b 20 22 20 22 20 2b 20 c3 7e 28 42 |ut$ + " " + .~(B|
00001db0 75 66 66 2b 45 78 74 65 6e 74 29 20 2b 20 22 20 |uff+Extent) + " |
00001dc0 22 20 2b 20 c3 7e 50 74 72 32 0d 01 12 20 ff 20 |" + .~Ptr2... . |
00001dd0 22 53 45 54 54 59 50 45 20 22 20 2b 20 6f 75 74 |"SETTYPE " + out|
00001de0 24 20 2b 20 22 20 41 46 46 22 0d 01 13 13 f2 52 |$ + " AFF".....R|
00001df0 65 6c 65 61 73 65 42 75 66 66 65 72 73 0d 01 14 |eleaseBuffers...|
00001e00 05 e1 0d 01 15 05 3a 0d 01 16 19 dd 20 f2 50 61 |......:..... .Pa|
00001e10 74 68 57 61 79 73 28 69 6e 24 2c 6f 75 74 24 29 |thWays(in$,out$)|
00001e20 0d 01 17 10 20 20 f2 4c 6f 61 64 28 69 6e 24 29 |.... .Load(in$)|
00001e30 0d 01 18 28 20 20 50 74 72 31 20 3d 20 42 75 66 |...( Ptr1 = Buf|
00001e40 66 20 3a 20 50 74 72 32 20 3d 20 42 75 66 66 20 |f : Ptr2 = Buff |
00001e50 2b 20 45 78 74 65 6e 74 0d 01 19 2e 20 20 24 28 |+ Extent.... $(|
00001e60 50 74 72 31 20 2b 20 31 32 29 20 3d 20 22 50 61 |Ptr1 + 12) = "Pa|
00001e70 74 68 57 61 79 73 22 20 3a 20 50 74 72 31 21 32 |thWays" : Ptr1!2|
00001e80 30 20 3d 20 33 32 0d 01 1a 0c c8 8e 20 4f 70 24 |0 = 32...... Op$|
00001e90 20 ca 0d 01 1b 5c 20 20 c9 20 22 75 6e 6c 69 6e | ....\ . "unlin|
00001ea0 6b 22 2c 22 73 68 6f 77 77 69 6e 64 69 6e 67 22 |k","showwinding"|
00001eb0 2c 22 72 65 76 65 72 73 65 22 20 3a 20 f2 43 6f |,"reverse" : .Co|
00001ec0 70 79 28 34 30 29 20 3a 20 f5 20 3a 20 f2 4f 62 |py(40) : . : .Ob|
00001ed0 6a 65 63 74 20 3a 20 fd 20 50 74 72 31 20 3e 3d |ject : . Ptr1 >=|
00001ee0 20 42 75 66 66 20 2b 20 45 78 74 65 6e 74 0d 01 | Buff + Extent..|
00001ef0 1c 2e 20 20 c9 20 22 6c 69 6e 6b 69 66 63 6c 6f |.. . "linkifclo|
00001f00 73 65 22 20 3a 20 f2 4c 69 6e 6b 28 42 75 66 66 |se" : .Link(Buff|
00001f10 20 2b 20 45 78 74 65 6e 74 2c a3 29 0d 01 1d 2a | + Extent,.)...*|
00001f20 20 20 c9 20 22 6c 69 6e 6b 61 6c 6c 22 20 3a 20 | . "linkall" : |
00001f30 f2 4c 69 6e 6b 28 42 75 66 66 20 2b 20 45 78 74 |.Link(Buff + Ext|
00001f40 65 6e 74 2c b9 29 0d 01 1e 20 20 20 c9 20 22 6c |ent,.)... . "l|
00001f50 69 6e 6b 67 72 6f 75 70 73 22 20 3a 20 f2 43 6f |inkgroups" : .Co|
00001f60 70 79 28 34 30 29 0d 01 1f 49 20 20 20 20 f5 20 |py(40)...I . |
00001f70 3a 20 e7 20 21 50 74 72 31 20 3d 20 36 20 f2 4c |: . !Ptr1 = 6 .L|
00001f80 69 6e 6b 47 72 6f 75 70 28 50 74 72 31 29 20 3a |inkGroup(Ptr1) :|
00001f90 20 50 74 72 31 20 2b 3d 20 50 74 72 31 21 34 20 | Ptr1 += Ptr1!4 |
00001fa0 8b 20 f2 43 6f 70 79 28 50 74 72 31 21 34 29 0d |. .Copy(Ptr1!4).|
00001fb0 01 20 1f 20 20 20 20 fd 20 50 74 72 31 20 3e 3d |. . . Ptr1 >=|
00001fc0 20 42 75 66 66 20 2b 20 45 78 74 65 6e 74 0d 01 | Buff + Extent..|
00001fd0 21 05 cb 0d 01 22 11 20 20 f2 53 61 76 65 28 6f |!....". .Save(o|
00001fe0 75 74 24 29 0d 01 23 05 e1 0d 01 24 05 3a 0d 01 |ut$)..#....$.:..|
00001ff0 25 0d dd 20 f2 4f 62 6a 65 63 74 0d 01 26 0e c8 |%.. .Object..&..|
00002000 8e 20 21 50 74 72 31 20 ca 0d 01 27 09 20 20 c9 |. !Ptr1 ...'. .|
00002010 20 32 0d 01 28 10 20 20 20 20 c8 8e 20 4f 70 24 | 2..(. .. Op$|
00002020 20 ca 0d 01 29 21 20 20 20 20 20 20 c9 20 22 75 | ...)! . "u|
00002030 6e 6c 69 6e 6b 22 20 20 20 20 20 20 3a 20 f2 50 |nlink" : .P|
00002040 61 74 68 0d 01 2a 22 20 20 20 20 20 20 c9 20 22 |ath..*" . "|
00002050 73 68 6f 77 77 69 6e 64 69 6e 67 22 20 3a 20 f2 |showwinding" : .|
00002060 41 72 72 6f 77 0d 01 2b 24 20 20 20 20 20 20 c9 |Arrow..+$ .|
00002070 20 22 72 65 76 65 72 73 65 22 20 20 20 20 20 3a | "reverse" :|
00002080 20 f2 52 65 76 50 61 74 68 0d 01 2c 09 20 20 20 | .RevPath..,. |
00002090 20 cb 0d 01 2d 12 20 20 c9 20 36 20 3a 20 f2 47 | ...-. . 6 : .G|
000020a0 72 6f 75 70 0d 01 2e 17 20 20 7f 20 3a 20 f2 43 |roup.... . : .C|
000020b0 6f 70 79 28 50 74 72 31 21 34 29 0d 01 2f 05 cb |opy(Ptr1!4)../..|
000020c0 0d 01 30 05 e1 0d 01 31 05 3a 0d 01 32 29 dd 20 |..0....1.:..2). |
000020d0 f2 52 65 76 50 61 74 68 20 3a 20 ea 20 53 74 61 |.RevPath : . Sta|
000020e0 72 74 31 2c 20 53 74 61 72 74 32 2c 20 43 6f 6c |rt1, Start2, Col|
000020f0 6f 75 72 0d 01 33 36 20 20 53 74 61 72 74 31 20 |our..36 Start1 |
00002100 3d 20 50 74 72 31 20 3a 20 43 6f 6c 6f 75 72 20 |= Ptr1 : Colour |
00002110 3d 20 50 74 72 31 21 32 38 20 3a 20 53 74 61 72 |= Ptr1!28 : Star|
00002120 74 32 20 3d 20 50 74 72 32 0d 01 34 0f 20 20 f2 |t2 = Ptr2..4. .|
00002130 43 6f 70 79 28 32 38 29 0d 01 35 25 20 20 e7 20 |Copy(28)..5% . |
00002140 43 6f 6c 6f 75 72 20 3d 20 30 20 84 20 43 6f 6c |Colour = 0 . Col|
00002150 6f 75 72 20 3d 20 26 44 44 30 30 20 8c 0d 01 36 |our = &DD00 ...6|
00002160 34 20 20 20 20 20 21 50 74 72 32 20 3d 20 30 20 |4 !Ptr2 = 0 |
00002170 3a 20 50 74 72 32 21 34 20 3d 20 30 20 3a 20 50 |: Ptr2!4 = 0 : P|
00002180 74 72 32 21 38 20 3d 20 26 34 32 30 30 31 30 32 |tr2!8 = &4200102|
00002190 30 0d 01 37 07 20 20 cc 0d 01 38 3d 20 20 20 20 |0..7. ...8= |
000021a0 20 21 50 74 72 32 20 3d 20 21 50 74 72 31 20 3a | !Ptr2 = !Ptr1 :|
000021b0 20 50 74 72 32 21 34 20 3d 20 50 74 72 31 21 34 | Ptr2!4 = Ptr1!4|
000021c0 20 3a 20 50 74 72 32 21 38 20 3d 20 26 34 32 30 | : Ptr2!8 = &420|
000021d0 30 31 30 32 30 0d 01 39 07 20 20 cd 0d 01 3a 3e |01020..9. ...:>|
000021e0 20 20 e7 20 28 50 74 72 31 21 38 20 80 20 26 38 | . (Ptr1!8 . &8|
000021f0 30 29 20 3d 20 30 20 44 61 73 68 65 73 20 3d 20 |0) = 0 Dashes = |
00002200 30 20 8b 20 44 61 73 68 65 73 20 3d 20 34 2a 50 |0 . Dashes = 4*P|
00002210 74 72 31 21 31 36 20 2b 20 38 0d 01 3b 26 20 20 |tr1!16 + 8..;& |
00002220 50 74 72 31 20 2b 3d 20 44 61 73 68 65 73 20 2b |Ptr1 += Dashes +|
00002230 20 31 32 20 3a 20 50 74 72 32 20 2b 3d 20 31 32 | 12 : Ptr2 += 12|
00002240 0d 01 3c 3f 20 20 e7 20 43 6f 6c 6f 75 72 20 3d |..<? . Colour =|
00002250 20 26 44 44 30 30 20 f2 52 65 76 65 72 73 65 20 | &DD00 .Reverse |
00002260 8b 20 f2 43 6f 70 79 28 53 74 61 72 74 31 21 34 |. .Copy(Start1!4|
00002270 20 2d 20 34 30 20 2d 20 44 61 73 68 65 73 29 0d | - 40 - Dashes).|
00002280 01 3d 1e 20 20 53 74 61 72 74 32 21 34 20 3d 20 |.=. Start2!4 = |
00002290 50 74 72 32 20 2d 20 53 74 61 72 74 32 0d 01 3e |Ptr2 - Start2..>|
000022a0 05 e1 0d 01 3f 05 3a 0d 01 40 0e dd 20 f2 52 65 |....?.:..@.. .Re|
000022b0 76 65 72 73 65 0d 01 41 05 f5 0d 01 42 10 20 20 |verse..A....B. |
000022c0 50 74 72 20 3d 20 50 74 72 31 0d 01 43 07 20 20 |Ptr = Ptr1..C. |
000022d0 f5 0d 01 44 10 20 20 20 20 50 70 20 3d 20 50 74 |...D. Pp = Pt|
000022e0 72 0d 01 45 11 20 20 20 20 c8 8e 20 21 50 74 72 |r..E. .. !Ptr|
000022f0 20 ca 0d 01 46 1b 20 20 20 20 20 20 c9 20 32 2c | ...F. . 2,|
00002300 38 20 3a 20 50 74 72 20 2b 3d 20 31 32 0d 01 47 |8 : Ptr += 12..G|
00002310 18 20 20 20 20 20 20 c9 20 35 20 3a 20 50 74 72 |. . 5 : Ptr|
00002320 20 2b 3d 20 34 0d 01 48 19 20 20 20 20 20 20 c9 | += 4..H. .|
00002330 20 36 20 3a 20 50 74 72 20 2b 3d 20 32 38 0d 01 | 6 : Ptr += 28..|
00002340 49 09 20 20 20 20 cb 0d 01 4a 10 20 20 fd 20 21 |I. ...J. . !|
00002350 50 74 72 20 3c 20 31 0d 01 4b 0f 20 20 c8 8e 20 |Ptr < 1..K. .. |
00002360 21 50 74 72 20 ca 0d 01 4c 17 20 20 20 20 c9 20 |!Ptr ...L. . |
00002370 30 20 3a 20 21 50 74 72 32 20 3d 20 32 0d 01 4d |0 : !Ptr2 = 2..M|
00002380 5a 20 20 20 20 20 20 e7 20 21 50 70 20 3d 20 35 |Z . !Pp = 5|
00002390 20 50 74 72 32 21 34 20 3d 20 50 74 72 21 2d 31 | Ptr2!4 = Ptr!-1|
000023a0 32 20 3a 20 50 74 72 32 21 38 20 3d 20 50 74 72 |2 : Ptr2!8 = Ptr|
000023b0 21 2d 38 20 8b 20 50 74 72 32 21 34 20 3d 20 50 |!-8 . Ptr2!4 = P|
000023c0 74 72 21 2d 38 20 3a 20 50 74 72 32 21 38 20 3d |tr!-8 : Ptr2!8 =|
000023d0 20 50 74 72 21 2d 34 0d 01 4e 21 20 20 20 20 20 | Ptr!-4..N! |
000023e0 20 50 74 72 32 20 2b 3d 20 31 32 20 3a 20 43 6c | Ptr2 += 12 : Cl|
000023f0 6f 73 65 64 20 3d 20 a3 0d 01 4f 2d 20 20 20 20 |osed = ...O- |
00002400 c9 20 2d 32 20 3a 20 e7 20 43 6c 6f 73 65 64 20 |. -2 : . Closed |
00002410 21 50 74 72 32 20 3d 20 35 20 3a 20 50 74 72 32 |!Ptr2 = 5 : Ptr2|
00002420 20 2b 3d 20 34 0d 01 50 13 20 20 20 20 20 20 21 | += 4..P. !|
00002430 50 74 72 32 20 3d 20 32 0d 01 51 5a 20 20 20 20 |Ptr2 = 2..QZ |
00002440 20 20 e7 20 21 50 70 20 3d 20 35 20 50 74 72 32 | . !Pp = 5 Ptr2|
00002450 21 34 20 3d 20 50 74 72 21 2d 31 32 20 3a 20 50 |!4 = Ptr!-12 : P|
00002460 74 72 32 21 38 20 3d 20 50 74 72 21 2d 38 20 8b |tr2!8 = Ptr!-8 .|
00002470 20 50 74 72 32 21 34 20 3d 20 50 74 72 21 2d 38 | Ptr2!4 = Ptr!-8|
00002480 20 3a 20 50 74 72 32 21 38 20 3d 20 50 74 72 21 | : Ptr2!8 = Ptr!|
00002490 2d 34 0d 01 52 21 20 20 20 20 20 20 50 74 72 32 |-4..R! Ptr2|
000024a0 20 2b 3d 20 31 32 20 3a 20 43 6c 6f 73 65 64 20 | += 12 : Closed |
000024b0 3d 20 a3 0d 01 53 19 20 20 20 20 c9 20 2d 35 20 |= ...S. . -5 |
000024c0 3a 20 43 6c 6f 73 65 64 20 3d 20 b9 0d 01 54 60 |: Closed = ...T`|
000024d0 20 20 20 20 c9 20 2d 36 20 3a 20 21 50 74 72 32 | . -6 : !Ptr2|
000024e0 20 3d 20 36 20 3a 20 50 74 72 32 21 34 20 3d 20 | = 6 : Ptr2!4 = |
000024f0 50 74 72 21 31 32 20 3a 20 50 74 72 32 21 38 20 |Ptr!12 : Ptr2!8 |
00002500 3d 20 50 74 72 21 31 36 20 3a 20 50 74 72 32 21 |= Ptr!16 : Ptr2!|
00002510 31 32 20 3d 20 50 74 72 21 34 20 3a 20 50 74 72 |12 = Ptr!4 : Ptr|
00002520 32 21 31 36 20 3d 20 50 74 72 21 38 0d 01 55 39 |2!16 = Ptr!8..U9|
00002530 20 20 20 20 20 20 50 74 72 32 21 32 30 20 3d 50 | Ptr2!20 =P|
00002540 74 72 21 2d 38 20 3a 20 50 74 72 32 21 32 34 20 |tr!-8 : Ptr2!24 |
00002550 3d 20 50 74 72 21 2d 34 20 3a 20 50 74 72 32 20 |= Ptr!-4 : Ptr2 |
00002560 2b 3d 20 32 38 0d 01 56 49 20 20 20 20 c9 20 2d |+= 28..VI . -|
00002570 38 20 3a 20 21 50 74 72 32 20 3d 20 38 20 3a 20 |8 : !Ptr2 = 8 : |
00002580 50 74 72 32 21 34 20 3d 20 50 74 72 21 2d 38 20 |Ptr2!4 = Ptr!-8 |
00002590 3a 20 50 74 72 32 21 38 20 3d 20 50 74 72 21 2d |: Ptr2!8 = Ptr!-|
000025a0 34 20 3a 20 50 74 72 32 20 2b 3d 20 31 32 0d 01 |4 : Ptr2 += 12..|
000025b0 57 07 20 20 cb 0d 01 58 11 20 20 21 50 70 20 3d |W. ...X. !Pp =|
000025c0 20 2d 20 21 50 70 0d 01 59 0f fd 20 50 70 20 3d | - !Pp..Y.. Pp =|
000025d0 20 50 74 72 31 0d 01 5a 22 e7 20 43 6c 6f 73 65 | Ptr1..Z". Close|
000025e0 64 20 21 50 74 72 32 20 3d 20 35 20 3a 20 50 74 |d !Ptr2 = 5 : Pt|
000025f0 72 32 20 2b 3d 20 34 0d 01 5b 19 21 50 74 72 32 |r2 += 4..[.!Ptr2|
00002600 20 3d 20 30 20 3a 20 50 74 72 32 20 2b 3d 20 34 | = 0 : Ptr2 += 4|
00002610 0d 01 5c 1c 50 74 72 31 20 3d 20 53 74 61 72 74 |..\.Ptr1 = Start|
00002620 31 20 2b 20 53 74 61 72 74 31 21 34 0d 01 5d 05 |1 + Start1!4..].|
00002630 e1 0d 01 5e 05 3a 0d 01 5f 0c dd 20 f2 41 72 72 |...^.:.._.. .Arr|
00002640 6f 77 0d 01 60 1b e7 20 28 50 74 72 31 21 33 36 |ow..`.. (Ptr1!36|
00002650 20 80 20 26 38 30 29 20 3d 20 30 20 8c 0d 01 61 | . &80) = 0 ...a|
00002660 44 20 20 53 69 7a 65 20 3d 20 50 74 72 32 20 2b |D Size = Ptr2 +|
00002670 20 34 20 3a 20 f2 43 6f 70 79 28 33 32 29 20 3a | 4 : .Copy(32) :|
00002680 20 21 50 74 72 32 20 3d 20 26 41 30 20 3a 20 50 | !Ptr2 = &A0 : P|
00002690 74 72 32 21 34 20 3d 20 26 34 30 32 30 30 30 38 |tr2!4 = &4020008|
000026a0 43 0d 01 62 40 20 20 50 74 72 32 21 38 20 3d 20 |C..b@ Ptr2!8 = |
000026b0 30 20 3a 20 50 74 72 32 21 31 32 20 3d 20 32 20 |0 : Ptr2!12 = 2 |
000026c0 3a 20 50 74 72 32 21 31 36 20 3d 20 26 35 30 30 |: Ptr2!16 = &500|
000026d0 20 3a 20 50 74 72 32 21 32 30 20 3d 20 26 32 30 | : Ptr2!20 = &20|
000026e0 30 0d 01 63 3e 20 20 50 74 72 32 20 2b 3d 20 32 |0..c> Ptr2 += 2|
000026f0 34 20 3a 20 50 74 72 31 20 2b 3d 20 38 20 3a 20 |4 : Ptr1 += 8 : |
00002700 f2 43 6f 70 79 28 21 53 69 7a 65 20 2d 20 34 30 |.Copy(!Size - 40|
00002710 29 20 3a 20 21 53 69 7a 65 20 2b 3d 20 31 36 0d |) : !Size += 16.|
00002720 01 64 05 cc 0d 01 65 13 20 20 f2 43 6f 70 79 28 |.d....e. .Copy(|
00002730 50 74 72 31 21 34 29 0d 01 66 05 cd 0d 01 67 05 |Ptr1!4)..f....g.|
00002740 e1 0d 01 68 05 3a 0d 01 69 24 dd 20 f2 47 72 6f |...h.:..i$. .Gro|
00002750 75 70 20 3a 20 ea 20 47 72 6f 75 70 53 74 61 72 |up : . GroupStar|
00002760 74 2c 47 72 6f 75 70 45 6e 64 0d 01 6a 30 47 72 |t,GroupEnd..j0Gr|
00002770 6f 75 70 53 74 61 72 74 20 3d 20 50 74 72 32 20 |oupStart = Ptr2 |
00002780 3a 20 47 72 6f 75 70 45 6e 64 20 3d 20 50 74 72 |: GroupEnd = Ptr|
00002790 31 20 2b 20 50 74 72 31 21 34 0d 01 6b 2d f2 43 |1 + Ptr1!4..k-.C|
000027a0 6f 70 79 28 33 36 29 20 3a 20 f5 20 f2 4f 62 6a |opy(36) : . .Obj|
000027b0 65 63 74 20 3a 20 fd 20 50 74 72 31 20 3d 20 47 |ect : . Ptr1 = G|
000027c0 72 6f 75 70 45 6e 64 0d 01 6c 24 47 72 6f 75 70 |roupEnd..l$Group|
000027d0 53 74 61 72 74 21 34 20 3d 20 50 74 72 32 20 2d |Start!4 = Ptr2 -|
000027e0 20 47 72 6f 75 70 53 74 61 72 74 0d 01 6d 05 e1 | GroupStart..m..|
000027f0 0d 01 6e 05 3a 0d 01 6f 0a dd 20 f2 42 65 7a 0d |..n.:..o.. .Bez.|
00002800 01 70 2c f2 48 65 61 64 43 6f 70 79 20 3a 20 48 |.p,.HeadCopy : H|
00002810 65 61 64 21 34 20 3d 20 34 34 20 2b 20 4c 25 20 |ead!4 = 44 + L% |
00002820 3a 20 f2 43 6f 70 79 28 33 36 29 0d 01 71 25 21 |: .Copy(36)..q%!|
00002830 50 74 72 32 20 3d 20 30 20 3a 20 50 74 72 32 20 |Ptr2 = 0 : Ptr2 |
00002840 2b 3d 20 34 20 3a 20 50 74 72 31 20 2d 3d 20 38 |+= 4 : Ptr1 -= 8|
00002850 0d 01 72 05 e1 0d 01 73 05 3a 0d 01 74 0b dd 20 |..r....s.:..t.. |
00002860 f2 4c 69 6e 65 0d 01 75 2c f2 48 65 61 64 43 6f |.Line..u,.HeadCo|
00002870 70 79 20 3a 20 48 65 61 64 21 34 20 3d 20 32 38 |py : Head!4 = 28|
00002880 20 2b 20 4c 25 20 3a 20 f2 43 6f 70 79 28 32 30 | + L% : .Copy(20|
00002890 29 0d 01 76 25 21 50 74 72 32 20 3d 20 30 20 3a |)..v%!Ptr2 = 0 :|
000028a0 20 50 74 72 32 20 2b 3d 20 34 20 3a 20 50 74 72 | Ptr2 += 4 : Ptr|
000028b0 31 20 2d 3d 20 38 0d 01 77 05 e1 0d 01 78 05 3a |1 -= 8..w....x.:|
000028c0 0d 01 79 0e dd 20 f2 43 6f 70 79 28 4c 29 0d 01 |..y.. .Copy(L)..|
000028d0 7a 2b 20 20 e3 20 4e 20 3d 20 30 20 b8 20 4c 20 |z+ . N = 0 . L |
000028e0 88 20 34 20 3a 20 50 74 72 32 21 4e 20 3d 20 50 |. 4 : Ptr2!N = P|
000028f0 74 72 31 21 4e 20 3a 20 ed 0d 01 7b 1b 20 20 50 |tr1!N : ...{. P|
00002900 74 72 32 20 2b 3d 20 4c 20 3a 20 50 74 72 31 20 |tr2 += L : Ptr1 |
00002910 2b 3d 20 4c 0d 01 7c 05 e1 0d 01 7d 05 3a 0d 01 |+= L..|....}.:..|
00002920 7e 0f dd 20 f2 48 65 61 64 43 6f 70 79 0d 01 7f |~.. .HeadCopy...|
00002930 3b 4c 25 20 3d 20 34 30 20 3a 20 e7 20 48 65 61 |;L% = 40 : . Hea|
00002940 64 50 74 72 31 3f 33 36 20 80 20 26 38 30 20 4c |dPtr1?36 . &80 L|
00002950 25 20 2b 3d 20 48 65 61 64 50 74 72 31 21 34 34 |% += HeadPtr1!44|
00002960 20 2a 20 34 20 2b 20 38 0d 01 80 2e e3 20 4e 20 | * 4 + 8..... N |
00002970 3d 20 30 20 b8 20 4c 25 20 88 20 34 20 3a 20 50 |= 0 . L% . 4 : P|
00002980 74 72 32 21 4e 20 3d 20 48 65 61 64 50 74 72 31 |tr2!N = HeadPtr1|
00002990 21 4e 20 3a 20 ed 0d 01 81 20 48 65 61 64 20 3d |!N : .... Head =|
000029a0 20 50 74 72 32 20 3a 20 50 74 72 32 20 2b 3d 20 | Ptr2 : Ptr2 += |
000029b0 34 20 2b 20 4c 25 0d 01 82 05 e1 0d 01 83 05 3a |4 + L%.........:|
000029c0 0d 01 84 15 dd 20 f2 50 61 74 68 20 3a 20 45 6f |..... .Path : Eo|
000029d0 50 20 3d 20 a3 0d 01 85 22 20 20 48 65 61 64 50 |P = ...." HeadP|
000029e0 74 72 31 20 3d 20 50 74 72 31 20 3a 20 50 74 72 |tr1 = Ptr1 : Ptr|
000029f0 31 20 2b 3d 20 34 34 0d 01 86 35 20 20 e7 20 48 |1 += 44...5 . H|
00002a00 65 61 64 50 74 72 31 3f 33 36 20 80 20 26 38 30 |eadPtr1?36 . &80|
00002a10 20 50 74 72 31 20 2b 3d 20 48 65 61 64 50 74 72 | Ptr1 += HeadPtr|
00002a20 31 21 34 34 20 2a 20 34 20 2b 20 38 0d 01 87 18 |1!44 * 4 + 8....|
00002a30 20 20 e7 20 ac 20 41 6c 6c 25 20 f2 48 65 61 64 | . . All% .Head|
00002a40 43 6f 70 79 0d 01 88 1a 20 20 f5 20 f2 43 6f 6d |Copy.... . .Com|
00002a50 70 6f 6e 65 6e 74 20 3a 20 fd 20 45 6f 50 0d 01 |ponent : . EoP..|
00002a60 89 05 e1 0d 01 8a 05 3a 0d 01 8b 10 dd 20 f2 43 |.......:..... .C|
00002a70 6f 6d 70 6f 6e 65 6e 74 0d 01 8c 0c e7 20 41 6c |omponent..... Al|
00002a80 6c 25 20 8c 0d 01 8d 11 20 20 c8 8e 20 50 74 72 |l% ..... .. Ptr|
00002a90 31 21 38 20 ca 0d 01 8e 22 20 20 20 20 c9 20 30 |1!8 ...." . 0|
00002aa0 20 3a 20 45 6f 50 20 3d 20 b9 20 3a 20 50 74 72 | : EoP = . : Ptr|
00002ab0 31 20 2b 3d 20 31 32 0d 01 8f 18 20 20 20 20 c9 |1 += 12.... .|
00002ac0 20 32 20 3a 20 50 74 72 31 20 2b 3d 20 31 32 0d | 2 : Ptr1 += 12.|
00002ad0 01 90 3d 20 20 20 20 c9 20 35 20 3a 20 50 74 72 |..= . 5 : Ptr|
00002ae0 31 20 2b 3d 20 34 20 3a 20 50 74 72 31 21 2d 34 |1 += 4 : Ptr1!-4|
00002af0 20 3d 20 50 74 72 31 21 2d 38 20 3a 20 21 50 74 | = Ptr1!-8 : !Pt|
00002b00 72 31 20 3d 20 50 74 72 31 21 2d 34 0d 01 91 12 |r1 = Ptr1!-4....|
00002b10 20 20 20 20 c9 20 36 20 3a 20 f2 42 65 7a 0d 01 | . 6 : .Bez..|
00002b20 92 13 20 20 20 20 c9 20 38 20 3a 20 f2 4c 69 6e |.. . 8 : .Lin|
00002b30 65 0d 01 93 07 20 20 cb 0d 01 94 05 cc 0d 01 95 |e.... .........|
00002b40 11 20 20 c8 8e 20 50 74 72 31 21 38 20 ca 0d 01 |. .. Ptr1!8 ...|
00002b50 96 38 20 20 20 20 c9 20 30 20 3a 20 45 6f 50 20 |.8 . 0 : EoP |
00002b60 3d 20 b9 20 3a 20 f2 43 6f 70 79 28 31 32 29 20 |= . : .Copy(12) |
00002b70 3a 20 48 65 61 64 21 34 20 3d 20 50 74 72 32 20 |: Head!4 = Ptr2 |
00002b80 2d 20 48 65 61 64 0d 01 97 14 20 20 20 20 c9 20 |- Head.... . |
00002b90 32 20 3a 20 f2 4d 6f 76 65 31 0d 01 98 16 20 20 |2 : .Move1.... |
00002ba0 20 20 c9 20 35 20 3a 20 f2 43 6f 70 79 28 34 29 | . 5 : .Copy(4)|
00002bb0 0d 01 99 17 20 20 20 20 c9 20 36 20 3a 20 f2 43 |.... . 6 : .C|
00002bc0 6f 70 79 28 32 38 29 0d 01 9a 17 20 20 20 20 c9 |opy(28).... .|
00002bd0 20 38 20 3a 20 f2 43 6f 70 79 28 31 32 29 0d 01 | 8 : .Copy(12)..|
00002be0 9b 07 20 20 cb 0d 01 9c 05 cd 0d 01 9d 05 e1 0d |.. ............|
00002bf0 01 9e 05 3a 0d 01 9f 0c dd 20 f2 4d 6f 76 65 31 |...:..... .Move1|
00002c00 0d 01 a0 30 f2 43 6f 70 79 28 38 29 20 3a 20 50 |...0.Copy(8) : P|
00002c10 74 72 31 20 2b 3d 20 34 20 3a 20 21 50 74 72 32 |tr1 += 4 : !Ptr2|
00002c20 20 3d 20 30 20 3a 20 50 74 72 32 20 2b 3d 20 34 | = 0 : Ptr2 += 4|
00002c30 0d 01 a1 24 48 65 61 64 21 34 20 3d 20 50 74 72 |...$Head!4 = Ptr|
00002c40 32 20 2d 20 48 65 61 64 20 3a 20 f2 48 65 61 64 |2 - Head : .Head|
00002c50 43 6f 70 79 0d 01 a2 05 e1 0d 01 a3 05 3a 0d 01 |Copy.........:..|
00002c60 a4 1e dd 20 f2 4c 69 6e 6b 47 72 6f 75 70 28 50 |... .LinkGroup(P|
00002c70 74 72 29 20 3a 20 ea 20 50 74 72 31 0d 01 a5 2a |tr) : . Ptr1...*|
00002c80 20 20 47 61 70 53 71 64 20 3d 20 28 bb 67 61 70 | GapSqd = (.gap|
00002c90 24 20 2a 20 6d 6d 29 5e 32 20 3a 20 66 69 72 73 |$ * mm)^2 : firs|
00002ca0 74 25 20 3d 20 b9 0d 01 a6 2f 20 20 f5 20 3a 20 |t% = ..../ . : |
00002cb0 f2 4c 69 6e 6b 50 61 74 68 73 28 50 74 72 20 2b |.LinkPaths(Ptr +|
00002cc0 20 50 74 72 21 34 2c b9 29 20 3a 20 fd 20 4e 6f | Ptr!4,.) : . No|
00002cd0 50 61 74 68 25 0d 01 a7 0e 20 20 f2 50 61 74 68 |Path%.... .Path|
00002ce0 45 6e 64 0d 01 a8 05 e1 0d 01 a9 05 3a 0d 01 aa |End.........:...|
00002cf0 3c dd 20 f2 4c 69 6e 6b 28 65 6e 64 2c 61 6c 6c |<. .Link(end,all|
00002d00 25 29 20 3a 20 47 61 70 53 71 64 20 3d 20 28 bb |%) : GapSqd = (.|
00002d10 67 61 70 24 20 2a 20 6d 6d 29 5e 32 20 3a 20 66 |gap$ * mm)^2 : f|
00002d20 69 72 73 74 25 20 3d 20 b9 0d 01 ab 1c 20 20 f2 |irst% = ..... .|
00002d30 43 6f 70 79 28 34 30 29 20 3a 20 50 74 72 20 3d |Copy(40) : Ptr =|
00002d40 20 50 74 72 31 0d 01 ac 23 20 20 f5 20 3a 20 f2 | Ptr1...# . : .|
00002d50 4e 6f 6e 50 61 74 68 73 20 3a 20 fd 20 50 74 72 |NonPaths : . Ptr|
00002d60 31 20 3e 3d 20 65 6e 64 0d 01 ad 2a 20 20 f5 20 |1 >= end...* . |
00002d70 3a 20 f2 4c 69 6e 6b 50 61 74 68 73 28 65 6e 64 |: .LinkPaths(end|
00002d80 2c 61 6c 6c 25 29 20 3a 20 fd 20 4e 6f 50 61 74 |,all%) : . NoPat|
00002d90 68 25 0d 01 ae 15 20 20 e7 20 61 6c 6c 25 20 f2 |h%.... . all% .|
00002da0 50 61 74 68 45 6e 64 0d 01 af 05 e1 0d 01 b0 05 |PathEnd.........|
00002db0 3a 0d 01 b1 0e dd 20 f2 50 61 74 68 45 6e 64 0d |:..... .PathEnd.|
00002dc0 01 b2 30 21 50 74 72 32 20 3d 20 30 20 3a 20 50 |..0!Ptr2 = 0 : P|
00002dd0 74 72 32 20 2b 3d 20 34 20 3a 20 48 65 61 64 21 |tr2 += 4 : Head!|
00002de0 34 20 3d 20 50 74 72 32 20 2d 20 48 65 61 64 0d |4 = Ptr2 - Head.|
00002df0 01 b3 40 48 65 61 64 21 38 20 3d 20 42 42 78 20 |..@Head!8 = BBx |
00002e00 3a 20 48 65 61 64 21 31 32 20 3d 20 42 42 79 20 |: Head!12 = BBy |
00002e10 3a 20 48 65 61 64 21 31 36 20 3d 20 42 42 58 20 |: Head!16 = BBX |
00002e20 3a 20 48 65 61 64 21 32 30 20 3d 20 42 42 59 0d |: Head!20 = BBY.|
00002e30 01 b4 05 e1 0d 01 b5 05 3a 0d 01 b6 1c dd 20 f2 |........:..... .|
00002e40 50 61 74 68 48 65 61 64 20 3a 20 66 69 72 73 74 |PathHead : first|
00002e50 25 20 3d 20 a3 0d 01 b7 1d 20 20 48 65 61 64 20 |% = ..... Head |
00002e60 3d 20 50 74 72 32 20 3a 20 21 50 74 72 32 20 3d |= Ptr2 : !Ptr2 =|
00002e70 20 32 0d 01 b8 55 20 20 50 74 72 32 20 2b 3d 20 | 2...U Ptr2 += |
00002e80 32 34 20 3a 20 50 74 72 31 20 3d 20 50 74 72 61 |24 : Ptr1 = Ptra|
00002e90 20 2b 20 32 34 20 3a 20 f2 43 6f 70 79 28 31 36 | + 24 : .Copy(16|
00002ea0 29 20 3a 20 e7 20 50 74 72 31 3f 2d 34 20 80 20 |) : . Ptr1?-4 . |
00002eb0 26 38 30 20 f2 43 6f 70 79 28 34 2a 50 74 72 31 |&80 .Copy(4*Ptr1|
00002ec0 21 34 20 2b 20 38 29 0d 01 b9 05 e1 0d 01 ba 05 |!4 + 8).........|
00002ed0 3a 0d 01 bb 27 dd 20 f2 4c 69 6e 6b 50 61 74 68 |:...'. .LinkPath|
00002ee0 73 28 65 6e 64 2c 61 6c 6c 25 29 20 3a 20 50 74 |s(end,all%) : Pt|
00002ef0 72 31 20 3d 20 50 74 72 0d 01 bc 1b f2 46 69 6e |r1 = Ptr.....Fin|
00002f00 64 50 61 74 68 20 3a 20 e7 20 4e 6f 50 61 74 68 |dPath : . NoPath|
00002f10 25 20 e1 0d 01 bd 40 42 42 78 20 3d 20 50 74 72 |% ....@BBx = Ptr|
00002f20 50 21 38 20 3a 20 42 42 79 20 3d 20 50 74 72 50 |P!8 : BBy = PtrP|
00002f30 21 31 32 20 3a 20 42 42 58 20 3d 20 50 74 72 50 |!12 : BBX = PtrP|
00002f40 21 31 36 20 3a 20 42 42 59 20 3d 20 50 74 72 50 |!16 : BBY = PtrP|
00002f50 21 32 30 0d 01 be 25 78 61 20 3d 20 78 20 3a 20 |!20...%xa = x : |
00002f60 79 61 20 3d 20 79 20 3a 20 58 7a 20 3d 20 58 20 |ya = y : Xz = X |
00002f70 3a 20 59 7a 20 3d 20 59 0d 01 bf 3f 21 50 74 72 |: Yz = Y...?!Ptr|
00002f80 50 20 3d 20 26 35 38 35 38 35 38 35 38 20 3a 20 |P = &58585858 : |
00002f90 50 74 72 61 20 3d 20 50 74 72 50 20 3a 20 50 74 |Ptra = PtrP : Pt|
00002fa0 72 7a 20 3d 20 50 74 72 50 20 3a 20 43 6c 6f 73 |rz = PtrP : Clos|
00002fb0 65 64 25 20 3d 20 a3 0d 01 c0 13 e7 20 ac 20 45 |ed% = ...... . E|
00002fc0 6e 64 43 6c 6f 73 65 25 20 8c 0d 01 c1 14 20 20 |ndClose% ..... |
00002fd0 f5 20 3a 20 50 74 72 31 20 3d 20 50 74 72 0d 01 |. : Ptr1 = Ptr..|
00002fe0 c2 09 20 20 20 20 f5 0d 01 c3 13 20 20 20 20 20 |.. ..... |
00002ff0 20 f2 46 69 6e 64 50 61 74 68 0d 01 c4 17 20 20 | .FindPath.... |
00003000 20 20 20 20 e7 20 ac 20 4e 6f 50 61 74 68 25 20 | . . NoPath% |
00003010 8c 0d 01 c5 43 20 20 20 20 20 20 20 20 4c 69 6e |....C Lin|
00003020 6b 4f 6e 25 20 3d 20 28 28 78 2d 58 7a 29 5e 32 |kOn% = ((x-Xz)^2|
00003030 20 2b 20 28 79 2d 59 7a 29 5e 32 20 3c 3d 20 47 | + (y-Yz)^2 <= G|
00003040 61 70 53 71 64 29 20 80 20 ac 20 45 6e 64 43 6c |apSqd) . . EndCl|
00003050 6f 73 65 25 0d 01 c6 45 20 20 20 20 20 20 20 20 |ose%...E |
00003060 4c 69 6e 6b 42 61 63 6b 25 20 3d 20 28 28 58 2d |LinkBack% = ((X-|
00003070 78 61 29 5e 32 20 2b 20 28 59 2d 79 61 29 5e 32 |xa)^2 + (Y-ya)^2|
00003080 20 3c 3d 20 47 61 70 53 71 64 29 20 80 20 ac 20 | <= GapSqd) . . |
00003090 45 6e 64 43 6c 6f 73 65 25 0d 01 c7 29 20 20 20 |EndClose%...) |
000030a0 20 20 20 20 20 43 6c 6f 73 65 64 25 20 3d 20 4c | Closed% = L|
000030b0 69 6e 6b 4f 6e 25 20 80 20 4c 69 6e 6b 42 61 63 |inkOn% . LinkBac|
000030c0 6b 25 0d 01 c8 23 20 20 20 20 20 20 20 20 e7 20 |k%...# . |
000030d0 4c 69 6e 6b 42 61 63 6b 25 20 84 20 4c 69 6e 6b |LinkBack% . Link|
000030e0 4f 6e 25 20 8c 0d 01 c9 1f 20 20 20 20 20 20 20 |On% ..... |
000030f0 20 20 20 21 50 74 72 50 20 3d 20 26 35 38 35 38 | !PtrP = &5858|
00003100 35 38 35 38 0d 01 ca 2a 20 20 20 20 20 20 20 20 |5858...* |
00003110 20 20 e7 20 50 74 72 50 21 38 20 20 3c 20 42 42 | . PtrP!8 < BB|
00003120 78 20 42 42 78 20 3d 20 50 74 72 50 21 38 0d 01 |x BBx = PtrP!8..|
00003130 cb 2b 20 20 20 20 20 20 20 20 20 20 e7 20 50 74 |.+ . Pt|
00003140 72 50 21 31 32 20 3c 20 42 42 79 20 42 42 79 20 |rP!12 < BBy BBy |
00003150 3d 20 50 74 72 50 21 31 32 0d 01 cc 2b 20 20 20 |= PtrP!12...+ |
00003160 20 20 20 20 20 20 20 e7 20 50 74 72 50 21 31 36 | . PtrP!16|
00003170 20 3e 20 42 42 58 20 42 42 58 20 3d 20 50 74 72 | > BBX BBX = Ptr|
00003180 50 21 31 36 0d 01 cd 2b 20 20 20 20 20 20 20 20 |P!16...+ |
00003190 20 20 e7 20 50 74 72 50 21 32 30 20 3e 20 42 42 | . PtrP!20 > BB|
000031a0 59 20 42 42 59 20 3d 20 50 74 72 50 21 32 30 0d |Y BBY = PtrP!20.|
000031b0 01 ce 45 20 20 20 20 20 20 20 20 20 20 e7 20 4c |..E . L|
000031c0 69 6e 6b 4f 6e 25 20 50 74 72 7a 21 38 20 3d 20 |inkOn% Ptrz!8 = |
000031d0 50 74 72 50 20 3a 20 50 74 72 7a 20 3d 20 50 74 |PtrP : Ptrz = Pt|
000031e0 72 50 20 3a 20 58 7a 20 3d 20 58 20 3a 20 59 7a |rP : Xz = X : Yz|
000031f0 20 3d 20 59 0d 01 cf 53 20 20 20 20 20 20 20 20 | = Y...S |
00003200 20 20 e7 20 4c 69 6e 6b 42 61 63 6b 25 20 80 20 | . LinkBack% . |
00003210 ac 20 4c 69 6e 6b 4f 6e 25 20 50 74 72 50 21 38 |. LinkOn% PtrP!8|
00003220 20 3d 20 50 74 72 61 20 3a 20 50 74 72 61 20 3d | = Ptra : Ptra =|
00003230 20 50 74 72 50 20 3a 20 78 61 20 3d 20 78 20 3a | PtrP : xa = x :|
00003240 20 79 61 20 3d 20 79 0d 01 d0 0d 20 20 20 20 20 | ya = y.... |
00003250 20 20 20 cd 0d 01 d1 0b 20 20 20 20 20 20 cc 0d | ..... ..|
00003260 01 d2 17 20 20 20 20 20 20 20 20 43 6c 6f 73 65 |... Close|
00003270 64 25 20 3d 20 a3 0d 01 d3 0b 20 20 20 20 20 20 |d% = ..... |
00003280 cd 0d 01 d4 2b 20 20 20 20 fd 20 4c 69 6e 6b 4f |....+ . LinkO|
00003290 6e 25 20 84 20 4c 69 6e 6b 42 61 63 6b 25 20 84 |n% . LinkBack% .|
000032a0 20 50 74 72 31 20 3e 3d 20 65 6e 64 0d 01 d5 27 | Ptr1 >= end...'|
000032b0 20 20 fd 20 4e 6f 50 61 74 68 25 20 84 20 43 6c | . NoPath% . Cl|
000032c0 6f 73 65 64 25 20 84 20 50 74 72 31 20 3e 3d 20 |osed% . Ptr1 >= |
000032d0 65 6e 64 0d 01 d6 05 cd 0d 01 d7 5b e7 20 28 ac |end........[. (.|
000032e0 20 61 6c 6c 25 29 20 84 20 66 69 72 73 74 25 20 | all%) . first% |
000032f0 f2 50 61 74 68 48 65 61 64 20 8b 20 50 74 72 31 |.PathHead . Ptr1|
00003300 20 3d 20 50 74 72 61 20 2b 20 34 30 20 3a 20 e7 | = Ptra + 40 : .|
00003310 20 50 74 72 31 3f 2d 34 20 80 20 26 38 30 20 50 | Ptr1?-4 . &80 P|
00003320 74 72 31 20 2b 3d 20 34 2a 50 74 72 31 21 34 20 |tr1 += 4*Ptr1!4 |
00003330 2b 20 38 0d 01 d8 12 53 75 62 48 65 61 64 20 3d |+ 8....SubHead =|
00003340 20 50 74 72 32 0d 01 d9 0d f2 43 6f 70 79 50 61 | Ptr2.....CopyPa|
00003350 74 68 0d 01 da 13 c8 95 20 50 74 72 61 20 3c 3e |th...... Ptra <>|
00003360 20 50 74 72 7a 0d 01 db 4d 20 20 50 74 72 61 20 | Ptrz...M Ptra |
00003370 3d 20 50 74 72 61 21 38 20 3a 20 50 74 72 31 20 |= Ptra!8 : Ptr1 |
00003380 3d 20 50 74 72 61 20 2b 20 34 30 20 3a 20 e7 20 |= Ptra + 40 : . |
00003390 50 74 72 31 3f 2d 34 20 80 20 26 38 30 20 50 74 |Ptr1?-4 . &80 Pt|
000033a0 72 31 20 2b 3d 20 34 2a 50 74 72 31 21 34 20 2b |r1 += 4*Ptr1!4 +|
000033b0 20 38 0d 01 dc 45 20 20 50 74 72 32 21 2d 38 20 | 8...E Ptr2!-8 |
000033c0 3d 20 28 50 74 72 32 21 2d 38 20 2b 20 50 74 72 |= (Ptr2!-8 + Ptr|
000033d0 31 21 34 29 2f 32 20 3a 20 50 74 72 32 21 2d 34 |1!4)/2 : Ptr2!-4|
000033e0 20 3d 20 28 50 74 72 32 21 2d 34 20 2b 20 50 74 | = (Ptr2!-4 + Pt|
000033f0 72 31 21 38 29 2f 32 0d 01 dd 1c 20 20 50 74 72 |r1!8)/2.... Ptr|
00003400 31 20 2b 3d 20 31 32 20 3a 20 f2 43 6f 70 79 50 |1 += 12 : .CopyP|
00003410 61 74 68 0d 01 de 05 ce 0d 01 df 0f e7 20 43 6c |ath.......... Cl|
00003420 6f 73 65 64 25 20 8c 0d 01 e0 1b 20 20 21 50 74 |osed% ..... !Pt|
00003430 72 32 20 3d 20 35 20 3a 20 50 74 72 32 20 2b 3d |r2 = 5 : Ptr2 +=|
00003440 20 34 0d 01 e1 50 20 20 53 75 62 48 65 61 64 21 | 4...P SubHead!|
00003450 34 20 3d 20 28 50 74 72 32 21 2d 31 32 20 2b 20 |4 = (Ptr2!-12 + |
00003460 53 75 62 48 65 61 64 21 34 29 2f 32 20 3a 20 53 |SubHead!4)/2 : S|
00003470 75 62 48 65 61 64 21 38 20 3d 20 28 50 74 72 32 |ubHead!8 = (Ptr2|
00003480 21 2d 38 20 2b 20 53 75 62 48 65 61 64 21 38 29 |!-8 + SubHead!8)|
00003490 2f 32 0d 01 e2 30 20 20 50 74 72 32 21 2d 31 32 |/2...0 Ptr2!-12|
000034a0 20 3d 20 53 75 62 48 65 61 64 21 34 20 3a 20 50 | = SubHead!4 : P|
000034b0 74 72 32 21 2d 38 20 3d 20 53 75 62 48 65 61 64 |tr2!-8 = SubHead|
000034c0 21 38 0d 01 e3 05 cd 0d 01 e4 15 e7 20 ac 20 61 |!8.......... . a|
000034d0 6c 6c 25 20 f2 50 61 74 68 45 6e 64 0d 01 e5 05 |ll% .PathEnd....|
000034e0 e1 0d 01 e6 05 3a 0d 01 e7 0f dd 20 f2 43 6f 70 |.....:..... .Cop|
000034f0 79 50 61 74 68 0d 01 e8 05 f5 0d 01 e9 10 20 20 |yPath......... |
00003500 c8 8e 20 21 50 74 72 31 20 ca 0d 01 ea 19 20 20 |.. !Ptr1 ..... |
00003510 20 20 c9 20 32 2c 38 20 3a 20 f2 43 6f 70 79 28 | . 2,8 : .Copy(|
00003520 31 32 29 0d 01 eb 16 20 20 20 20 c9 20 35 20 3a |12).... . 5 :|
00003530 20 f2 43 6f 70 79 28 34 29 0d 01 ec 17 20 20 20 | .Copy(4).... |
00003540 20 c9 20 36 20 3a 20 f2 43 6f 70 79 28 32 38 29 | . 6 : .Copy(28)|
00003550 0d 01 ed 07 20 20 cb 0d 01 ee 0f fd 20 21 50 74 |.... ...... !Pt|
00003560 72 31 20 3d 20 30 0d 01 ef 05 e1 0d 01 f0 05 3a |r1 = 0.........:|
00003570 0d 01 f1 2d dd 20 f2 46 69 6e 64 50 61 74 68 20 |...-. .FindPath |
00003580 3a 20 4e 6f 50 61 74 68 25 20 3d 20 b9 20 3a 20 |: NoPath% = . : |
00003590 4d 69 64 43 6c 6f 73 65 25 20 3d 20 a3 0d 01 f2 |MidClose% = ....|
000035a0 05 f5 0d 01 f3 10 20 20 c8 8e 20 21 50 74 72 31 |...... .. !Ptr1|
000035b0 20 ca 0d 01 f4 19 20 20 20 20 c9 20 32 20 3a 20 | ..... . 2 : |
000035c0 50 74 72 50 20 3d 20 50 74 72 31 0d 01 f5 43 20 |PtrP = Ptr1...C |
000035d0 20 20 20 20 20 e7 20 28 50 74 72 31 21 33 36 20 | . (Ptr1!36 |
000035e0 80 20 26 38 30 29 20 3d 20 30 20 44 61 73 68 65 |. &80) = 0 Dashe|
000035f0 73 20 3d 20 30 20 8b 20 44 61 73 68 65 73 20 3d |s = 0 . Dashes =|
00003600 20 34 2a 50 74 72 31 21 34 34 20 2b 20 38 0d 01 | 4*Ptr1!44 + 8..|
00003610 f6 4f 20 20 20 20 20 20 78 20 3d 20 50 74 72 31 |.O x = Ptr1|
00003620 21 28 44 61 73 68 65 73 20 2b 20 34 34 29 20 3a |!(Dashes + 44) :|
00003630 20 79 20 3d 20 50 74 72 31 21 28 44 61 73 68 65 | y = Ptr1!(Dashe|
00003640 73 20 2b 20 34 38 29 20 3a 20 50 74 72 31 20 2b |s + 48) : Ptr1 +|
00003650 3d 20 34 30 20 2b 20 44 61 73 68 65 73 0d 01 f7 |= 40 + Dashes...|
00003660 0b 20 20 20 20 20 20 f5 0d 01 f8 16 20 20 20 20 |. ..... |
00003670 20 20 20 20 c8 8e 20 21 50 74 72 31 20 ca 0d 01 | .. !Ptr1 ...|
00003680 f9 3a 20 20 20 20 20 20 20 20 20 20 c9 20 32 2c |.: . 2,|
00003690 38 20 3a 20 58 20 3d 20 50 74 72 31 21 34 20 3a |8 : X = Ptr1!4 :|
000036a0 20 59 20 3d 20 50 74 72 31 21 38 20 3a 20 50 74 | Y = Ptr1!8 : Pt|
000036b0 72 31 20 2b 3d 20 31 32 0d 01 fa 2d 20 20 20 20 |r1 += 12...- |
000036c0 20 20 20 20 20 20 c9 20 35 20 3a 20 50 74 72 31 | . 5 : Ptr1|
000036d0 20 2b 3d 20 34 20 3a 20 4d 69 64 43 6c 6f 73 65 | += 4 : MidClose|
000036e0 25 20 3d 20 b9 0d 01 fb 3a 20 20 20 20 20 20 20 |% = ....: |
000036f0 20 20 20 c9 20 36 20 3a 20 58 20 3d 20 50 74 72 | . 6 : X = Ptr|
00003700 31 21 32 30 20 3a 20 59 20 3d 20 50 74 72 31 21 |1!20 : Y = Ptr1!|
00003710 32 34 20 3a 20 50 74 72 31 20 2b 3d 20 32 38 0d |24 : Ptr1 += 28.|
00003720 01 fc 0d 20 20 20 20 20 20 20 20 cb 0d 01 fd 21 |... ....!|
00003730 20 20 20 20 20 20 fd 20 21 50 74 72 31 20 3d 20 | . !Ptr1 = |
00003740 30 20 3a 20 50 74 72 31 20 2b 3d 20 34 0d 01 fe |0 : Ptr1 += 4...|
00003750 35 20 20 20 20 20 20 e7 20 50 74 72 31 21 2d 38 |5 . Ptr1!-8|
00003760 20 3d 20 35 20 45 6e 64 43 6c 6f 73 65 25 20 3d | = 5 EndClose% =|
00003770 20 b9 20 8b 20 45 6e 64 43 6c 6f 73 65 25 20 3d | . . EndClose% =|
00003780 20 a3 0d 01 ff 15 20 20 20 20 20 20 4e 6f 50 61 | ..... NoPa|
00003790 74 68 25 20 3d 20 a3 0d 02 00 18 20 20 20 20 c9 |th% = ..... .|
000037a0 20 36 20 3a 20 50 74 72 31 20 2b 3d 20 33 36 0d | 6 : Ptr1 += 36.|
000037b0 02 01 1a 20 20 20 20 7f 20 3a 20 50 74 72 31 20 |... . : Ptr1 |
000037c0 2b 3d 20 50 74 72 31 21 34 0d 02 02 07 20 20 cb |+= Ptr1!4.... .|
000037d0 0d 02 03 1f fd 20 4e 6f 50 61 74 68 25 20 3d 20 |..... NoPath% = |
000037e0 a3 20 84 20 50 74 72 31 20 3e 3d 20 65 6e 64 0d |. . Ptr1 >= end.|
000037f0 02 04 05 e1 0d 02 05 05 3a 0d 02 06 0f dd 20 f2 |........:..... .|
00003800 4e 6f 6e 50 61 74 68 73 0d 02 07 0e c8 8e 20 21 |NonPaths...... !|
00003810 50 74 72 31 20 ca 0d 02 08 1a 20 20 c9 20 32 20 |Ptr1 ..... . 2 |
00003820 3a 20 50 74 72 31 20 2b 3d 20 50 74 72 31 21 34 |: Ptr1 += Ptr1!4|
00003830 0d 02 09 16 20 20 c9 20 36 20 3a 20 50 74 72 31 |.... . 6 : Ptr1|
00003840 20 2b 3d 20 33 36 0d 02 0a 17 20 20 7f 20 3a 20 | += 36.... . : |
00003850 f2 43 6f 70 79 28 50 74 72 31 21 34 29 0d 02 0b |.Copy(Ptr1!4)...|
00003860 05 cb 0d 02 0c 05 e1 0d 02 0d 05 3a 0d ff |...........:..|
0000386e 
.