� ><PtrWrap$Dir>.!RunImage
ș "Hourglass_On"
*� window% 1024:windowend%=window%+1024
(� menu% 96,block% 512
2errorflag%=1
<edges%=5
F�changedmode
P
Z/ș 262336,200,&4B534154,"PtrWrap" � ,taskh%
dș 530050,taskh%
n
x(ș 262361,,"<PtrWrap$Dir>.Templates"
�info%=�createwindow("info")
�+edgedetect%=�createwindow("edgedetect")
�
ș 262362
�
�$menu%="PtrWrap"+�0
�menu%?12=7
�menu%?13=2
�menu%?14=7
�menu%?15=0
�menu%!16=(8*(6+�"PtrWrap"))
�menu%!20=40
�menu%!24=0
�menu%!28=0

menu%!32=info%

menu%!36=&7000011

$(menu%+40)="Info"+�0

"menu%!52=0

,menu%!56=-1

6menu%!60=&7000011

@$(menu%+64)="Edges"+�0

Jmenu%!76=&80

Tmenu%!80=-1

^menu%!84=&7000011

h$(menu%+88)="Quit"+�0

r

|7baricon%=�createicon(-1,0,0,68,68,&3002,"!PtrWrap")

�

�
� �error

�

�ș "Hourglass_Off"

��

�#    ș 262343,,block% � reason%

�!    ș 530054,reason%,,taskh%

�    Ȏ reason% �

�         � 0    : �checkmouse

�        � 1    : �redraw

�&        � 2    : ș 262341,,block%

�&        � 3    : ș 262342,,block%

�        � 6    : �mouse
        � 8    : �key
         � 9    : �decodemenu
&        � 17,18: �message(reason%)
&	    �
0� �
:�closedown
D�
N
X� �checkmouse
bș 262351,,block%
lx1%=!block%
vy1%=block%!4
�x2%=!block%
�y2%=block%!4
�
�� x2%>Xlimit% x2%=edges%
�� x2%<edges% x2%=Xlimit%
�
�� y2%>Ylimit% y2%=edges%
�� y2%<edges% y2%=Ylimit%
�
�(� x2%<>x1% � y2%<>y1% � ȗ � x2%,y2%
�
��
�

� �redraw
ș 262344,,block% � flag%
ȕ flag%
 ș 530049,,block%
*ș 262346,,block% � flag%
4�
>�
H
R� �mouse
\buttons%=block%!8
fwindow%=block%!12
picon%=block%!16
zȎ window% �
�
    � -2:
�    Ȏ icon% �
�        � baricon%
�        Ȏ buttons% �
�,            � 4:�openwindow(edgedetect%)
�/            � 2:�createmenu(!block%-72,216)
�,            � 1:�openwindow(edgedetect%)
�
        �
�	    �
��
��
�
�
� �key
Ȏ !block% �
  � edgedetect%
  Ȏ block%!4 �
$    � 3:
.    Ȏ block%!24 �
8      � 13:
Bș 262354,-1
L(      iadr%=�textaddr(edgedetect%,3)
V        num$=$iadr%
`        edges%=�num$
j      �changedmode
t	    �
~  �
��
�ș 262364,block%!24
��
�
�� �createmenu(x,y)
�ș 262356,,menu%,x,y
��
�
�� �decodemenu
�%ș 262357,,menu%,block%,block%+16
�choice$=�var(block%+16)
�Ȏ choice$ �
*    � "Edges":�openwindow(edgedetect%)

    � "Quit":�closedown:�
�
�
(
2� �var(ptr%)
<
� string$
Fstring$=""
Pȕ ?ptr%>31
Z    string$+=�?ptr%
d    ptr%+=1
n�
x=string$
�
�� �createwindow(tempname$)
�� hand%
�Aș 262363,,block%,window%,windowend%,-1,tempname$ � ,,window%
�ș 262337,,block% � hand%
�
=hand%
�
�� �openwindow(windhand%)
�!block%=windhand%
�ș 262347,,block%
�ș 262341,,block%
��
�
� �closedown
ș 530051,taskh%
ș 262365,taskh%,&4B534154
"�
,
6� �message(reason%)
@Ȏ block%!16 �
J    � 0      :�closedown:�
T    � &400C1 :�changedmode
^�
h�
r
|E� �createicon(windhand%,xmin%,ymin%,xmax%,ymax%,flags%,iconname$)
�!block%=windhand%
�block%!4=xmin%
�block%!8=ymin%
�block%!12=xmax%
�block%!16=ymax%
�block%!20=flags%
�$(block%+24)=iconname$
�!ș 262338,,block% � iconhand%
�=iconhand%
�
�#� �geticoninfo(windhand%,icon%)
�!block%=windhand%
�block%!4=icon%
ș 262350,,block%
�

& � �textaddr(windhand%,icon%)
0!�geticoninfo(windhand%,icon%)
:=block%!28
D
N� �error
Xș 262356,-1
bș "Hourglass_Off"
l� errorflag%=3 �
va    �errorbox("Unexpected error - "+�$+" (IEC "+� �+") - (Click Cancel to quit application)")
�	    �
�    �errorbox(�$)
��
�errorflag%=3
��
�
�
� �ok(e$)
�errorflag%=1
�
� 1,e$
��
�
�� �fatal(e$)
�errorflag%=2

� 1,e$
�

 � �errorbox(r$)
*	� mb%
4!block%=�:$(block%+4)=r$+�0
>0ș 262367,block%,errorflag%,"PtrWrap" � ,mb%
H� mb%=2 �closedown:�
R�
\
f� �changedmode
pe!block%=4:block%!4=5:block%!8=11:block%!12=12:block%!16=-1:ș "OS_ReadVduVariables",block%,block%
zIscrx%=(block%!8+1)*(1<<(!block%)):scry%=(block%!12+1)*(1<<(block%!4))
�1Xlimit%=(scrx%-edges%):Ylimit%=(scry%-edges%)
��
�

00000000  0d 00 0a 1e f4 20 3e 3c  50 74 72 57 72 61 70 24  |..... ><PtrWrap$|
00000010  44 69 72 3e 2e 21 52 75  6e 49 6d 61 67 65 0d 00  |Dir>.!RunImage..|
00000020  14 15 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |.... "Hourglass_|
00000030  4f 6e 22 0d 00 1e 2a de  20 77 69 6e 64 6f 77 25  |On"...*. window%|
00000040  20 31 30 32 34 3a 77 69  6e 64 6f 77 65 6e 64 25  | 1024:windowend%|
00000050  3d 77 69 6e 64 6f 77 25  2b 31 30 32 34 0d 00 28  |=window%+1024..(|
00000060  19 de 20 6d 65 6e 75 25  20 39 36 2c 62 6c 6f 63  |.. menu% 96,bloc|
00000070  6b 25 20 35 31 32 0d 00  32 10 65 72 72 6f 72 66  |k% 512..2.errorf|
00000080  6c 61 67 25 3d 31 0d 00  3c 0c 65 64 67 65 73 25  |lag%=1..<.edges%|
00000090  3d 35 0d 00 46 10 f2 63  68 61 6e 67 65 64 6d 6f  |=5..F..changedmo|
000000a0  64 65 0d 00 50 04 0d 00  5a 2f c8 99 20 32 36 32  |de..P...Z/.. 262|
000000b0  33 33 36 2c 32 30 30 2c  26 34 42 35 33 34 31 35  |336,200,&4B53415|
000000c0  34 2c 22 50 74 72 57 72  61 70 22 20 b8 20 2c 74  |4,"PtrWrap" . ,t|
000000d0  61 73 6b 68 25 0d 00 64  14 c8 99 20 35 33 30 30  |askh%..d... 5300|
000000e0  35 30 2c 74 61 73 6b 68  25 0d 00 6e 04 0d 00 78  |50,taskh%..n...x|
000000f0  28 c8 99 20 32 36 32 33  36 31 2c 2c 22 3c 50 74  |(.. 262361,,"<Pt|
00000100  72 57 72 61 70 24 44 69  72 3e 2e 54 65 6d 70 6c  |rWrap$Dir>.Templ|
00000110  61 74 65 73 22 0d 00 82  1f 69 6e 66 6f 25 3d a4  |ates"....info%=.|
00000120  63 72 65 61 74 65 77 69  6e 64 6f 77 28 22 69 6e  |createwindow("in|
00000130  66 6f 22 29 0d 00 8c 2b  65 64 67 65 64 65 74 65  |fo")...+edgedete|
00000140  63 74 25 3d a4 63 72 65  61 74 65 77 69 6e 64 6f  |ct%=.createwindo|
00000150  77 28 22 65 64 67 65 64  65 74 65 63 74 22 29 0d  |w("edgedetect").|
00000160  00 96 0d c8 99 20 32 36  32 33 36 32 0d 00 a0 04  |..... 262362....|
00000170  0d 00 aa 17 24 6d 65 6e  75 25 3d 22 50 74 72 57  |....$menu%="PtrW|
00000180  72 61 70 22 2b bd 30 0d  00 b4 0e 6d 65 6e 75 25  |rap"+.0....menu%|
00000190  3f 31 32 3d 37 0d 00 be  0e 6d 65 6e 75 25 3f 31  |?12=7....menu%?1|
000001a0  33 3d 32 0d 00 c8 0e 6d  65 6e 75 25 3f 31 34 3d  |3=2....menu%?14=|
000001b0  37 0d 00 d2 0e 6d 65 6e  75 25 3f 31 35 3d 30 0d  |7....menu%?15=0.|
000001c0  00 dc 1f 6d 65 6e 75 25  21 31 36 3d 28 38 2a 28  |...menu%!16=(8*(|
000001d0  36 2b a9 22 50 74 72 57  72 61 70 22 29 29 0d 00  |6+."PtrWrap"))..|
000001e0  e6 0f 6d 65 6e 75 25 21  32 30 3d 34 30 0d 00 f0  |..menu%!20=40...|
000001f0  0e 6d 65 6e 75 25 21 32  34 3d 30 0d 00 fa 0e 6d  |.menu%!24=0....m|
00000200  65 6e 75 25 21 32 38 3d  30 0d 01 04 12 6d 65 6e  |enu%!28=0....men|
00000210  75 25 21 33 32 3d 69 6e  66 6f 25 0d 01 0e 15 6d  |u%!32=info%....m|
00000220  65 6e 75 25 21 33 36 3d  26 37 30 30 30 30 31 31  |enu%!36=&7000011|
00000230  0d 01 18 19 24 28 6d 65  6e 75 25 2b 34 30 29 3d  |....$(menu%+40)=|
00000240  22 49 6e 66 6f 22 2b bd  30 0d 01 22 0e 6d 65 6e  |"Info"+.0..".men|
00000250  75 25 21 35 32 3d 30 0d  01 2c 0f 6d 65 6e 75 25  |u%!52=0..,.menu%|
00000260  21 35 36 3d 2d 31 0d 01  36 15 6d 65 6e 75 25 21  |!56=-1..6.menu%!|
00000270  36 30 3d 26 37 30 30 30  30 31 31 0d 01 40 1a 24  |60=&7000011..@.$|
00000280  28 6d 65 6e 75 25 2b 36  34 29 3d 22 45 64 67 65  |(menu%+64)="Edge|
00000290  73 22 2b bd 30 0d 01 4a  10 6d 65 6e 75 25 21 37  |s"+.0..J.menu%!7|
000002a0  36 3d 26 38 30 0d 01 54  0f 6d 65 6e 75 25 21 38  |6=&80..T.menu%!8|
000002b0  30 3d 2d 31 0d 01 5e 15  6d 65 6e 75 25 21 38 34  |0=-1..^.menu%!84|
000002c0  3d 26 37 30 30 30 30 31  31 0d 01 68 19 24 28 6d  |=&7000011..h.$(m|
000002d0  65 6e 75 25 2b 38 38 29  3d 22 51 75 69 74 22 2b  |enu%+88)="Quit"+|
000002e0  bd 30 0d 01 72 04 0d 01  7c 37 62 61 72 69 63 6f  |.0..r...|7barico|
000002f0  6e 25 3d a4 63 72 65 61  74 65 69 63 6f 6e 28 2d  |n%=.createicon(-|
00000300  31 2c 30 2c 30 2c 36 38  2c 36 38 2c 26 33 30 30  |1,0,0,68,68,&300|
00000310  32 2c 22 21 50 74 72 57  72 61 70 22 29 0d 01 86  |2,"!PtrWrap")...|
00000320  04 0d 01 90 0d ee 85 20  f2 65 72 72 6f 72 0d 01  |....... .error..|
00000330  9a 04 0d 01 a4 16 c8 99  20 22 48 6f 75 72 67 6c  |........ "Hourgl|
00000340  61 73 73 5f 4f 66 66 22  0d 01 ae 05 f5 0d 01 b8  |ass_Off"........|
00000350  23 20 20 20 20 c8 99 20  32 36 32 33 34 33 2c 2c  |#    .. 262343,,|
00000360  62 6c 6f 63 6b 25 20 b8  20 72 65 61 73 6f 6e 25  |block% . reason%|
00000370  0d 01 c2 21 20 20 20 20  c8 99 20 35 33 30 30 35  |...!    .. 53005|
00000380  34 2c 72 65 61 73 6f 6e  25 2c 2c 74 61 73 6b 68  |4,reason%,,taskh|
00000390  25 0d 01 cc 14 20 20 20  20 c8 8e 20 72 65 61 73  |%....    .. reas|
000003a0  6f 6e 25 20 ca 0d 01 d6  20 20 20 20 20 20 20 20  |on% ....        |
000003b0  20 c9 20 30 20 20 20 20  3a 20 f2 63 68 65 63 6b  | . 0    : .check|
000003c0  6d 6f 75 73 65 0d 01 e0  1c 20 20 20 20 20 20 20  |mouse....       |
000003d0  20 c9 20 31 20 20 20 20  3a 20 f2 72 65 64 72 61  | . 1    : .redra|
000003e0  77 0d 01 ea 26 20 20 20  20 20 20 20 20 c9 20 32  |w...&        . 2|
000003f0  20 20 20 20 3a 20 c8 99  20 32 36 32 33 34 31 2c  |    : .. 262341,|
00000400  2c 62 6c 6f 63 6b 25 0d  01 f4 26 20 20 20 20 20  |,block%...&     |
00000410  20 20 20 c9 20 33 20 20  20 20 3a 20 c8 99 20 32  |   . 3    : .. 2|
00000420  36 32 33 34 32 2c 2c 62  6c 6f 63 6b 25 0d 01 fe  |62342,,block%...|
00000430  1b 20 20 20 20 20 20 20  20 c9 20 36 20 20 20 20  |.        . 6    |
00000440  3a 20 f2 6d 6f 75 73 65  0d 02 08 19 20 20 20 20  |: .mouse....    |
00000450  20 20 20 20 c9 20 38 20  20 20 20 3a 20 f2 6b 65  |    . 8    : .ke|
00000460  79 0d 02 12 20 20 20 20  20 20 20 20 20 c9 20 39  |y...         . 9|
00000470  20 20 20 20 3a 20 f2 64  65 63 6f 64 65 6d 65 6e  |    : .decodemen|
00000480  75 0d 02 1c 26 20 20 20  20 20 20 20 20 c9 20 31  |u...&        . 1|
00000490  37 2c 31 38 3a 20 f2 6d  65 73 73 61 67 65 28 72  |7,18: .message(r|
000004a0  65 61 73 6f 6e 25 29 0d  02 26 09 20 20 20 20 cb  |eason%)..&.    .|
000004b0  0d 02 30 07 fd 20 a3 0d  02 3a 0e f2 63 6c 6f 73  |..0.. ...:..clos|
000004c0  65 64 6f 77 6e 0d 02 44  05 e0 0d 02 4e 04 0d 02  |edown..D....N...|
000004d0  58 11 dd 20 f2 63 68 65  63 6b 6d 6f 75 73 65 0d  |X.. .checkmouse.|
000004e0  02 62 15 c8 99 20 32 36  32 33 35 31 2c 2c 62 6c  |.b... 262351,,bl|
000004f0  6f 63 6b 25 0d 02 6c 0f  78 31 25 3d 21 62 6c 6f  |ock%..l.x1%=!blo|
00000500  63 6b 25 0d 02 76 10 79  31 25 3d 62 6c 6f 63 6b  |ck%..v.y1%=block|
00000510  25 21 34 0d 02 80 0f 78  32 25 3d 21 62 6c 6f 63  |%!4....x2%=!bloc|
00000520  6b 25 0d 02 8a 10 79 32  25 3d 62 6c 6f 63 6b 25  |k%....y2%=block%|
00000530  21 34 0d 02 94 04 0d 02  9e 1c e7 20 78 32 25 3e  |!4......... x2%>|
00000540  58 6c 69 6d 69 74 25 20  78 32 25 3d 65 64 67 65  |Xlimit% x2%=edge|
00000550  73 25 0d 02 a8 1c e7 20  78 32 25 3c 65 64 67 65  |s%..... x2%<edge|
00000560  73 25 20 78 32 25 3d 58  6c 69 6d 69 74 25 0d 02  |s% x2%=Xlimit%..|
00000570  b2 04 0d 02 bc 1c e7 20  79 32 25 3e 59 6c 69 6d  |....... y2%>Ylim|
00000580  69 74 25 20 79 32 25 3d  65 64 67 65 73 25 0d 02  |it% y2%=edges%..|
00000590  c6 1c e7 20 79 32 25 3c  65 64 67 65 73 25 20 79  |... y2%<edges% y|
000005a0  32 25 3d 59 6c 69 6d 69  74 25 0d 02 d0 04 0d 02  |2%=Ylimit%......|
000005b0  da 28 e7 20 78 32 25 3c  3e 78 31 25 20 84 20 79  |.(. x2%<>x1% . y|
000005c0  32 25 3c 3e 79 31 25 20  8c 20 c8 97 20 b8 20 78  |2%<>y1% . .. . x|
000005d0  32 25 2c 79 32 25 0d 02  e4 04 0d 02 ee 05 e1 0d  |2%,y2%..........|
000005e0  02 f8 04 0d 03 02 0d dd  20 f2 72 65 64 72 61 77  |........ .redraw|
000005f0  0d 03 0c 1d c8 99 20 32  36 32 33 34 34 2c 2c 62  |...... 262344,,b|
00000600  6c 6f 63 6b 25 20 b8 20  66 6c 61 67 25 0d 03 16  |lock% . flag%...|
00000610  0c c8 95 20 66 6c 61 67  25 0d 03 20 15 c8 99 20  |... flag%.. ... |
00000620  35 33 30 30 34 39 2c 2c  62 6c 6f 63 6b 25 0d 03  |530049,,block%..|
00000630  2a 1d c8 99 20 32 36 32  33 34 36 2c 2c 62 6c 6f  |*... 262346,,blo|
00000640  63 6b 25 20 b8 20 66 6c  61 67 25 0d 03 34 05 ce  |ck% . flag%..4..|
00000650  0d 03 3e 05 e1 0d 03 48  04 0d 03 52 0c dd 20 f2  |..>....H...R.. .|
00000660  6d 6f 75 73 65 0d 03 5c  15 62 75 74 74 6f 6e 73  |mouse..\.buttons|
00000670  25 3d 62 6c 6f 63 6b 25  21 38 0d 03 66 15 77 69  |%=block%!8..f.wi|
00000680  6e 64 6f 77 25 3d 62 6c  6f 63 6b 25 21 31 32 0d  |ndow%=block%!12.|
00000690  03 70 13 69 63 6f 6e 25  3d 62 6c 6f 63 6b 25 21  |.p.icon%=block%!|
000006a0  31 36 0d 03 7a 10 c8 8e  20 77 69 6e 64 6f 77 25  |16..z... window%|
000006b0  20 ca 0d 03 84 0d 20 20  20 20 c9 20 2d 32 3a 0d  | .....    . -2:.|
000006c0  03 8e 12 20 20 20 20 c8  8e 20 69 63 6f 6e 25 20  |...    .. icon% |
000006d0  ca 0d 03 98 16 20 20 20  20 20 20 20 20 c9 20 62  |.....        . b|
000006e0  61 72 69 63 6f 6e 25 0d  03 a2 19 20 20 20 20 20  |aricon%....     |
000006f0  20 20 20 c8 8e 20 62 75  74 74 6f 6e 73 25 20 ca  |   .. buttons% .|
00000700  0d 03 ac 2c 20 20 20 20  20 20 20 20 20 20 20 20  |...,            |
00000710  c9 20 34 3a f2 6f 70 65  6e 77 69 6e 64 6f 77 28  |. 4:.openwindow(|
00000720  65 64 67 65 64 65 74 65  63 74 25 29 0d 03 b6 2f  |edgedetect%).../|
00000730  20 20 20 20 20 20 20 20  20 20 20 20 c9 20 32 3a  |            . 2:|
00000740  f2 63 72 65 61 74 65 6d  65 6e 75 28 21 62 6c 6f  |.createmenu(!blo|
00000750  63 6b 25 2d 37 32 2c 32  31 36 29 0d 03 c0 2c 20  |ck%-72,216)..., |
00000760  20 20 20 20 20 20 20 20  20 20 20 c9 20 31 3a f2  |           . 1:.|
00000770  6f 70 65 6e 77 69 6e 64  6f 77 28 65 64 67 65 64  |openwindow(edged|
00000780  65 74 65 63 74 25 29 0d  03 ca 0d 20 20 20 20 20  |etect%)....     |
00000790  20 20 20 cb 0d 03 d4 09  20 20 20 20 cb 0d 03 de  |   .....    ....|
000007a0  05 cb 0d 03 e8 05 e1 0d  03 f2 04 0d 03 fc 0a dd  |................|
000007b0  20 f2 6b 65 79 0d 04 06  10 c8 8e 20 21 62 6c 6f  | .key...... !blo|
000007c0  63 6b 25 20 ca 0d 04 10  13 20 20 c9 20 65 64 67  |ck% .....  . edg|
000007d0  65 64 65 74 65 63 74 25  0d 04 1a 13 20 20 c8 8e  |edetect%....  ..|
000007e0  20 62 6c 6f 63 6b 25 21  34 20 ca 0d 04 24 0c 20  | block%!4 ...$. |
000007f0  20 20 20 c9 20 33 3a 0d  04 2e 16 20 20 20 20 c8  |   . 3:....    .|
00000800  8e 20 62 6c 6f 63 6b 25  21 32 34 20 ca 0d 04 38  |. block%!24 ...8|
00000810  0f 20 20 20 20 20 20 c9  20 31 33 3a 0d 04 42 10  |.      . 13:..B.|
00000820  c8 99 20 32 36 32 33 35  34 2c 2d 31 0d 04 4c 28  |.. 262354,-1..L(|
00000830  20 20 20 20 20 20 69 61  64 72 25 3d a4 74 65 78  |      iadr%=.tex|
00000840  74 61 64 64 72 28 65 64  67 65 64 65 74 65 63 74  |taddr(edgedetect|
00000850  25 2c 33 29 0d 04 56 17  20 20 20 20 20 20 20 20  |%,3)..V.        |
00000860  6e 75 6d 24 3d 24 69 61  64 72 25 0d 04 60 18 20  |num$=$iadr%..`. |
00000870  20 20 20 20 20 20 20 65  64 67 65 73 25 3d bb 6e  |       edges%=.n|
00000880  75 6d 24 0d 04 6a 16 20  20 20 20 20 20 f2 63 68  |um$..j.      .ch|
00000890  61 6e 67 65 64 6d 6f 64  65 0d 04 74 09 20 20 20  |angedmode..t.   |
000008a0  20 cb 0d 04 7e 07 20 20  cb 0d 04 88 05 cb 0d 04  | ...~.  ........|
000008b0  92 17 c8 99 20 32 36 32  33 36 34 2c 62 6c 6f 63  |.... 262364,bloc|
000008c0  6b 25 21 32 34 0d 04 9c  05 e1 0d 04 a6 04 0d 04  |k%!24...........|
000008d0  b0 16 dd 20 f2 63 72 65  61 74 65 6d 65 6e 75 28  |... .createmenu(|
000008e0  78 2c 79 29 0d 04 ba 18  c8 99 20 32 36 32 33 35  |x,y)...... 26235|
000008f0  36 2c 2c 6d 65 6e 75 25  2c 78 2c 79 0d 04 c4 05  |6,,menu%,x,y....|
00000900  e1 0d 04 ce 04 0d 04 d8  11 dd 20 f2 64 65 63 6f  |.......... .deco|
00000910  64 65 6d 65 6e 75 0d 04  e2 25 c8 99 20 32 36 32  |demenu...%.. 262|
00000920  33 35 37 2c 2c 6d 65 6e  75 25 2c 62 6c 6f 63 6b  |357,,menu%,block|
00000930  25 2c 62 6c 6f 63 6b 25  2b 31 36 0d 04 ec 1b 63  |%,block%+16....c|
00000940  68 6f 69 63 65 24 3d a4  76 61 72 28 62 6c 6f 63  |hoice$=.var(bloc|
00000950  6b 25 2b 31 36 29 0d 04  f6 10 c8 8e 20 63 68 6f  |k%+16)...... cho|
00000960  69 63 65 24 20 ca 0d 05  00 2a 20 20 20 20 c9 20  |ice$ ....*    . |
00000970  22 45 64 67 65 73 22 3a  f2 6f 70 65 6e 77 69 6e  |"Edges":.openwin|
00000980  64 6f 77 28 65 64 67 65  64 65 74 65 63 74 25 29  |dow(edgedetect%)|
00000990  0d 05 0a 1d 20 20 20 20  c9 20 22 51 75 69 74 22  |....    . "Quit"|
000009a0  3a f2 63 6c 6f 73 65 64  6f 77 6e 3a e0 0d 05 14  |:.closedown:....|
000009b0  05 cb 0d 05 1e 05 e1 0d  05 28 04 0d 05 32 10 dd  |.........(...2..|
000009c0  20 a4 76 61 72 28 70 74  72 25 29 0d 05 3c 0d ea  | .var(ptr%)..<..|
000009d0  20 73 74 72 69 6e 67 24  0d 05 46 0e 73 74 72 69  | string$..F.stri|
000009e0  6e 67 24 3d 22 22 0d 05  50 0f c8 95 20 3f 70 74  |ng$=""..P... ?pt|
000009f0  72 25 3e 33 31 0d 05 5a  17 20 20 20 20 73 74 72  |r%>31..Z.    str|
00000a00  69 6e 67 24 2b 3d bd 3f  70 74 72 25 0d 05 64 0f  |ing$+=.?ptr%..d.|
00000a10  20 20 20 20 70 74 72 25  2b 3d 31 0d 05 6e 05 ce  |    ptr%+=1..n..|
00000a20  0d 05 78 0c 3d 73 74 72  69 6e 67 24 0d 05 82 04  |..x.=string$....|
00000a30  0d 05 8c 1e dd 20 a4 63  72 65 61 74 65 77 69 6e  |..... .createwin|
00000a40  64 6f 77 28 74 65 6d 70  6e 61 6d 65 24 29 0d 05  |dow(tempname$)..|
00000a50  96 0b ea 20 68 61 6e 64  25 0d 05 a0 41 c8 99 20  |... hand%...A.. |
00000a60  32 36 32 33 36 33 2c 2c  62 6c 6f 63 6b 25 2c 77  |262363,,block%,w|
00000a70  69 6e 64 6f 77 25 2c 77  69 6e 64 6f 77 65 6e 64  |indow%,windowend|
00000a80  25 2c 2d 31 2c 74 65 6d  70 6e 61 6d 65 24 20 b8  |%,-1,tempname$ .|
00000a90  20 2c 2c 77 69 6e 64 6f  77 25 0d 05 aa 1d c8 99  | ,,window%......|
00000aa0  20 32 36 32 33 33 37 2c  2c 62 6c 6f 63 6b 25 20  | 262337,,block% |
00000ab0  b8 20 68 61 6e 64 25 0d  05 b4 0a 3d 68 61 6e 64  |. hand%....=hand|
00000ac0  25 0d 05 be 04 0d 05 c8  1c dd 20 f2 6f 70 65 6e  |%......... .open|
00000ad0  77 69 6e 64 6f 77 28 77  69 6e 64 68 61 6e 64 25  |window(windhand%|
00000ae0  29 0d 05 d2 15 21 62 6c  6f 63 6b 25 3d 77 69 6e  |)....!block%=win|
00000af0  64 68 61 6e 64 25 0d 05  dc 15 c8 99 20 32 36 32  |dhand%...... 262|
00000b00  33 34 37 2c 2c 62 6c 6f  63 6b 25 0d 05 e6 15 c8  |347,,block%.....|
00000b10  99 20 32 36 32 33 34 31  2c 2c 62 6c 6f 63 6b 25  |. 262341,,block%|
00000b20  0d 05 f0 05 e1 0d 05 fa  04 0d 06 04 10 dd 20 f2  |.............. .|
00000b30  63 6c 6f 73 65 64 6f 77  6e 0d 06 0e 14 c8 99 20  |closedown...... |
00000b40  35 33 30 30 35 31 2c 74  61 73 6b 68 25 0d 06 18  |530051,taskh%...|
00000b50  1e c8 99 20 32 36 32 33  36 35 2c 74 61 73 6b 68  |... 262365,taskh|
00000b60  25 2c 26 34 42 35 33 34  31 35 34 0d 06 22 05 e1  |%,&4B534154.."..|
00000b70  0d 06 2c 04 0d 06 36 17  dd 20 f2 6d 65 73 73 61  |..,...6.. .messa|
00000b80  67 65 28 72 65 61 73 6f  6e 25 29 0d 06 40 12 c8  |ge(reason%)..@..|
00000b90  8e 20 62 6c 6f 63 6b 25  21 31 36 20 ca 0d 06 4a  |. block%!16 ...J|
00000ba0  1e 20 20 20 20 c9 20 30  20 20 20 20 20 20 3a f2  |.    . 0      :.|
00000bb0  63 6c 6f 73 65 64 6f 77  6e 3a e0 0d 06 54 1e 20  |closedown:...T. |
00000bc0  20 20 20 c9 20 26 34 30  30 43 31 20 3a f2 63 68  |   . &400C1 :.ch|
00000bd0  61 6e 67 65 64 6d 6f 64  65 0d 06 5e 05 cb 0d 06  |angedmode..^....|
00000be0  68 05 e1 0d 06 72 04 0d  06 7c 45 dd 20 a4 63 72  |h....r...|E. .cr|
00000bf0  65 61 74 65 69 63 6f 6e  28 77 69 6e 64 68 61 6e  |eateicon(windhan|
00000c00  64 25 2c 78 6d 69 6e 25  2c 79 6d 69 6e 25 2c 78  |d%,xmin%,ymin%,x|
00000c10  6d 61 78 25 2c 79 6d 61  78 25 2c 66 6c 61 67 73  |max%,ymax%,flags|
00000c20  25 2c 69 63 6f 6e 6e 61  6d 65 24 29 0d 06 86 15  |%,iconname$)....|
00000c30  21 62 6c 6f 63 6b 25 3d  77 69 6e 64 68 61 6e 64  |!block%=windhand|
00000c40  25 0d 06 90 12 62 6c 6f  63 6b 25 21 34 3d 78 6d  |%....block%!4=xm|
00000c50  69 6e 25 0d 06 9a 12 62  6c 6f 63 6b 25 21 38 3d  |in%....block%!8=|
00000c60  79 6d 69 6e 25 0d 06 a4  13 62 6c 6f 63 6b 25 21  |ymin%....block%!|
00000c70  31 32 3d 78 6d 61 78 25  0d 06 ae 13 62 6c 6f 63  |12=xmax%....bloc|
00000c80  6b 25 21 31 36 3d 79 6d  61 78 25 0d 06 b8 14 62  |k%!16=ymax%....b|
00000c90  6c 6f 63 6b 25 21 32 30  3d 66 6c 61 67 73 25 0d  |lock%!20=flags%.|
00000ca0  06 c2 1a 24 28 62 6c 6f  63 6b 25 2b 32 34 29 3d  |...$(block%+24)=|
00000cb0  69 63 6f 6e 6e 61 6d 65  24 0d 06 cc 21 c8 99 20  |iconname$...!.. |
00000cc0  32 36 32 33 33 38 2c 2c  62 6c 6f 63 6b 25 20 b8  |262338,,block% .|
00000cd0  20 69 63 6f 6e 68 61 6e  64 25 0d 06 d6 0e 3d 69  | iconhand%....=i|
00000ce0  63 6f 6e 68 61 6e 64 25  0d 06 e0 04 0d 06 ea 23  |conhand%.......#|
00000cf0  dd 20 f2 67 65 74 69 63  6f 6e 69 6e 66 6f 28 77  |. .geticoninfo(w|
00000d00  69 6e 64 68 61 6e 64 25  2c 69 63 6f 6e 25 29 0d  |indhand%,icon%).|
00000d10  06 f4 15 21 62 6c 6f 63  6b 25 3d 77 69 6e 64 68  |...!block%=windh|
00000d20  61 6e 64 25 0d 06 fe 12  62 6c 6f 63 6b 25 21 34  |and%....block%!4|
00000d30  3d 69 63 6f 6e 25 0d 07  08 15 c8 99 20 32 36 32  |=icon%...... 262|
00000d40  33 35 30 2c 2c 62 6c 6f  63 6b 25 0d 07 12 05 e1  |350,,block%.....|
00000d50  0d 07 1c 04 0d 07 26 20  dd 20 a4 74 65 78 74 61  |......& . .texta|
00000d60  64 64 72 28 77 69 6e 64  68 61 6e 64 25 2c 69 63  |ddr(windhand%,ic|
00000d70  6f 6e 25 29 0d 07 30 21  f2 67 65 74 69 63 6f 6e  |on%)..0!.geticon|
00000d80  69 6e 66 6f 28 77 69 6e  64 68 61 6e 64 25 2c 69  |info(windhand%,i|
00000d90  63 6f 6e 25 29 0d 07 3a  0e 3d 62 6c 6f 63 6b 25  |con%)..:.=block%|
00000da0  21 32 38 0d 07 44 04 0d  07 4e 0c dd 20 f2 65 72  |!28..D...N.. .er|
00000db0  72 6f 72 0d 07 58 10 c8  99 20 32 36 32 33 35 36  |ror..X... 262356|
00000dc0  2c 2d 31 0d 07 62 16 c8  99 20 22 48 6f 75 72 67  |,-1..b... "Hourg|
00000dd0  6c 61 73 73 5f 4f 66 66  22 0d 07 6c 14 e7 20 65  |lass_Off"..l.. e|
00000de0  72 72 6f 72 66 6c 61 67  25 3d 33 20 8c 0d 07 76  |rrorflag%=3 ...v|
00000df0  61 20 20 20 20 f2 65 72  72 6f 72 62 6f 78 28 22  |a    .errorbox("|
00000e00  55 6e 65 78 70 65 63 74  65 64 20 65 72 72 6f 72  |Unexpected error|
00000e10  20 2d 20 22 2b f6 24 2b  22 20 28 49 45 43 20 22  | - "+.$+" (IEC "|
00000e20  2b c3 20 9e 2b 22 29 20  2d 20 28 43 6c 69 63 6b  |+. .+") - (Click|
00000e30  20 43 61 6e 63 65 6c 20  74 6f 20 71 75 69 74 20  | Cancel to quit |
00000e40  61 70 70 6c 69 63 61 74  69 6f 6e 29 22 29 0d 07  |application)")..|
00000e50  80 09 20 20 20 20 cc 0d  07 8a 15 20 20 20 20 f2  |..    .....    .|
00000e60  65 72 72 6f 72 62 6f 78  28 f6 24 29 0d 07 94 05  |errorbox(.$)....|
00000e70  cd 0d 07 9e 10 65 72 72  6f 72 66 6c 61 67 25 3d  |.....errorflag%=|
00000e80  33 0d 07 a8 05 e1 0d 07  b2 04 0d 07 bc 0d dd 20  |3.............. |
00000e90  f2 6f 6b 28 65 24 29 0d  07 c6 10 65 72 72 6f 72  |.ok(e$)....error|
00000ea0  66 6c 61 67 25 3d 31 0d  07 d0 0a 85 20 31 2c 65  |flag%=1..... 1,e|
00000eb0  24 0d 07 da 05 e1 0d 07  e4 04 0d 07 ee 10 dd 20  |$.............. |
00000ec0  f2 66 61 74 61 6c 28 65  24 29 0d 07 f8 10 65 72  |.fatal(e$)....er|
00000ed0  72 6f 72 66 6c 61 67 25  3d 32 0d 08 02 0a 85 20  |rorflag%=2..... |
00000ee0  31 2c 65 24 0d 08 0c 05  e1 0d 08 16 04 0d 08 20  |1,e$........... |
00000ef0  13 dd 20 f2 65 72 72 6f  72 62 6f 78 28 72 24 29  |.. .errorbox(r$)|
00000f00  0d 08 2a 09 ea 20 6d 62  25 0d 08 34 1f 21 62 6c  |..*.. mb%..4.!bl|
00000f10  6f 63 6b 25 3d 9f 3a 24  28 62 6c 6f 63 6b 25 2b  |ock%=.:$(block%+|
00000f20  34 29 3d 72 24 2b bd 30  0d 08 3e 30 c8 99 20 32  |4)=r$+.0..>0.. 2|
00000f30  36 32 33 36 37 2c 62 6c  6f 63 6b 25 2c 65 72 72  |62367,block%,err|
00000f40  6f 72 66 6c 61 67 25 2c  22 50 74 72 57 72 61 70  |orflag%,"PtrWrap|
00000f50  22 20 b8 20 2c 6d 62 25  0d 08 48 18 e7 20 6d 62  |" . ,mb%..H.. mb|
00000f60  25 3d 32 20 f2 63 6c 6f  73 65 64 6f 77 6e 3a e0  |%=2 .closedown:.|
00000f70  0d 08 52 05 e1 0d 08 5c  04 0d 08 66 12 dd 20 f2  |..R....\...f.. .|
00000f80  63 68 61 6e 67 65 64 6d  6f 64 65 0d 08 70 65 21  |changedmode..pe!|
00000f90  62 6c 6f 63 6b 25 3d 34  3a 62 6c 6f 63 6b 25 21  |block%=4:block%!|
00000fa0  34 3d 35 3a 62 6c 6f 63  6b 25 21 38 3d 31 31 3a  |4=5:block%!8=11:|
00000fb0  62 6c 6f 63 6b 25 21 31  32 3d 31 32 3a 62 6c 6f  |block%!12=12:blo|
00000fc0  63 6b 25 21 31 36 3d 2d  31 3a c8 99 20 22 4f 53  |ck%!16=-1:.. "OS|
00000fd0  5f 52 65 61 64 56 64 75  56 61 72 69 61 62 6c 65  |_ReadVduVariable|
00000fe0  73 22 2c 62 6c 6f 63 6b  25 2c 62 6c 6f 63 6b 25  |s",block%,block%|
00000ff0  0d 08 7a 49 73 63 72 78  25 3d 28 62 6c 6f 63 6b  |..zIscrx%=(block|
00001000  25 21 38 2b 31 29 2a 28  31 3c 3c 28 21 62 6c 6f  |%!8+1)*(1<<(!blo|
00001010  63 6b 25 29 29 3a 73 63  72 79 25 3d 28 62 6c 6f  |ck%)):scry%=(blo|
00001020  63 6b 25 21 31 32 2b 31  29 2a 28 31 3c 3c 28 62  |ck%!12+1)*(1<<(b|
00001030  6c 6f 63 6b 25 21 34 29  29 0d 08 84 31 58 6c 69  |lock%!4))...1Xli|
00001040  6d 69 74 25 3d 28 73 63  72 78 25 2d 65 64 67 65  |mit%=(scrx%-edge|
00001050  73 25 29 3a 59 6c 69 6d  69 74 25 3d 28 73 63 72  |s%):Ylimit%=(scr|
00001060  79 25 2d 65 64 67 65 73  25 29 0d 08 8e 05 e1 0d  |y%-edges%)......|
00001070  ff                                                |.|
00001071