� >$.!AMFLabel.!RunImage
+� Main program code for RISCOS AMFLabel
'� Version 1.10 Last Update 02/07/91
( � � AMF the Doomwatcher 1991
2�
<:
F7� block &1000, menu% 1024,curbuf% &1000,icond &1000
P:
Zendbuf%=curbuf%+&6000
dDș "Wimp_Initialise",200,&4B534154,"AMFLabel" � version%,mytask%
n
�template
x $version%="1.10 (02-Jul-91)"
�Dinitic=�iconbar(%11010,-1,7,0,"!AMFLabel"+�13,0,0,0,3,0,0,68,68)
�#end%=�:drag%=0:saving%=0:ack%=�
�
�check
�:
��
�&ș "Wimp_Poll",1,block � eventcode
�Ȏ eventcode �
�� 0:
�-� 1:ș "Wimp_RedrawWindow",,block � more%
�#� 2:ș "Wimp_OpenWindow",,block
�$� 3:ș "Wimp_CloseWindow",,block
�� 6:�buttons(block)
�
� 7:�drag

� 8:�processkey

� 9:�decode

� 17,18:�mess

"�

,
� end%

6�

@4��open(handle,vminx,vminy,vmaxx,vmaxy,xoff,yoff)

J<!block=handle:block!4=vminx:block!8=vminy:block!12=vmaxx

T:block!16=vmaxy:block!20=xoff:block!24=yoff:block!28=-1

^ș "Wimp_OpenWindow",,block

h�

rKݤiconbar(flags,part,for,bac,data$,add,add2,length,mouse,xs1,ys1,xs,ys)

|!icond=part

�icond!4=xs1

�'icond!8=ys1:icond!12=xs:icond!16=ys

�5icond!20=flags+((2^12)*mouse):icond?23=for+bac*16

�P� data$<>"" � $(icond+24)=data$ � icond!24=add:icond!28=add2:icond!32=length

�&ș "Wimp_CreateIcon",,icond � icon

�	=icon

�ݤtemplate(a$)

�Gș "Wimp_LoadTemplate",,block,indir,endbuf%,-1,a$,0 � ,,indir,,,,c%

�0� c%=0 � �4:� "Template ";a$;" not found.":�

�block!64=1

�*ș "Wimp_CreateWindow",,block � handle

�=handle

���moan(a$)
!icond=0:$(icond+4)=a$+�0
,ș "Wimp_ReportError",icond,1,"AMFLabel"
�
&
ݤstr(a%)
0� b$
:ȕ ?a%>=32
Db$+=�(?a%)
N	a%+=1
X�
b=b$
lݤtad(handle,icon)
v�gii(handle,icon)
�
=icond!28
���gii(handle,icon)
�!icond=handle:icond!4=icon
�!ș "Wimp_GetIconState",,icond
��
���openwindow(handle%)
�!icond=handle%
�"ș "Wimp_GetWindowInfo",,icond
�ș "Wimp_OpenWindow",,icond
��
� ��alter(hand,icon,eor,clear)
�!icond=hand:icond!4=icon
�icond!8=eor:icond!12=clear
!ș "Wimp_SetIconState",,icond
�
��state(wi,ic)
 !block=wi:block!4=ic
*!ș "Wimp_GetIconState",,block
4�
>ݤselect(wi,ic)
H�state(wi,ic)
R"� ((block!24) � 1<<21)>0 � =-1
\=0
f
ݤbit(a$)
pȕ �a$,":")>0
za$=�a$,�a$,":")+1)
��
�ȕ �a$,".")>0
�a$=�a$,�a$,".")+1)
��
�=a$
���openmenu(x,y)
�&ș "Wimp_CreateMenu",,topmenu%,x,y
��
�ݤmenu(title$,width,menu$)
�menu$+=","
�oldmenu=menuptr
�$menuptr=title$
�menuptr?12=7
menuptr?13=2
menuptr?14=7
menuptr?15=0
$menuptr!16=width
.menuptr!20=48
8menuptr!24=0
Bmenuptr+=28
L�
V�item(menu$)
`menu$=�menu$,�menu$,",")+1)
jmenuptr+=24
t� menu$=""
~)menuptr!-24=(menuptr!-24) � %10000000
�=oldmenu
���item(m$)
�m$=�m$,�m$,",")-1)
�i$="":j$=""
�� �m$,"[")>0 �
�i$=�m$,�m$,"]")-1)
�m$=�m$,�m$,"]")+1)
�j$=�i$,�i$,"/")-1)
�i$=�i$,�i$,"/")+1)
��
�iflags=&07000021
�mflags=0
submenu=-1

 � �j$,"w")>0 � submenu=�(i$)
 � �j$,"s")>0 � submenu=�(i$)
$� �j$,"t")>0 � mflags=mflags � 1
($� �j$,"l")>0 � mflags=mflags � 2
2!menuptr=mflags
<menuptr!4=submenu
Fmenuptr!8=iflags
P$(menuptr+12)=m$
Z�
d	��isd
n!block=save%
x#ș "Wimp_GetWindowState",,block
�ysize%=block!16-block!8
�#x%=block!4:y%=block!8:block!4=9
�!ș "Wimp_GetIconState",,block
�#block!8+=x%:block!12+=y%+ysize%
�$block!16+=x%:block!20+=y%+ysize%
�5block!24=0:block!28=0:block!32=1279:block!36=1023
�)!block=0:block!4=5:drag%=�:saving%=-1
�ș "Wimp_DragBox",,block
��
�
��isd2
�!block=save2%
�#ș "Wimp_GetWindowState",,block
�ysize%=block!16-block!8
#x%=block!4:y%=block!8:block!4=9
!ș "Wimp_GetIconState",,block
#block!8+=x%:block!12+=y%+ysize%
"$block!16+=x%:block!20+=y%+ysize%
,5block!24=0:block!28=0:block!32=1279:block!36=1023
6)!block=0:block!4=5:drag%=�:saving%=-2
@ș "Wimp_DragBox",,block
J�
T
��drag
^� saving%=-1 �
h#ș "Wimp_GetPointerInfo",,block
r$block!32=block!4:block!28=!block
|'block!24=block!16:block!20=block!12
�/block!16=1:block!12=0:block!36=0:block!40=0
�)� I=0 � 255:� I?stext<32 � I?stext=13
��
�)$(block+44)=�bit($stext)+�0:!block=60
�+ș "Wimp_SendMessage",17,block,block!20
�drag%=0
��
�� saving%=-2 �
�#ș "Wimp_GetPointerInfo",,block
�$block!32=block!4:block!28=!block
�'block!24=block!16:block!20=block!12
�/block!16=1:block!12=0:block!36=0:block!40=0
�+� I=0 � 255:� I?stext2<32 � I?stext2=13
�
*$(block+44)=�bit($stext2)+�0:!block=60
+ș "Wimp_SendMessage",17,block,block!20
&drag%=0
0�
:�
D��buttons(block)
Nicon=block!16
X&� block!12=-2 � block!8=2 �menus:�
b3� block!12=-2 � block!8<>2 �openwindow(disc%):�
l&� block!12=save% � block!16=9 �isd
v6� block!12=save% � block!16=8 � �save(�str(stext))
�(� block!12=save2% � block!16=9 �isd2
�9� block!12=save2% � block!16=8 � �save2(�str(stext2))
�*� block!12=disc% � block!8=2 �menus2:�
��
���processkey
�1� block!0=save% � block!24=13 � �save($stext)
�4� block!0=save2% � block!24=13 � �save2($stext2)
�/� block!0=disc% � block!24=13 � �keydisc(1)
�1� block!0=disc% � block!24=&18E � �keydisc(1)
�2� block!0=disc% � block!24=&18F � �keydisc(-1)
�!ș "Wimp_ProcessKey",block!24
��
���menus
menuopen=-44
menuptr=menu%
ȗ x,y,b
 Etopmenu%=�menu("AMFLabel",150,"[w/info%]Info,[w/save%]Save,Quit")
*�openmenu(x-75,240)
4�
>��menus2
Hmenuopen=-45
Rmenuptr=menu%
\ȗ x,y,b
f?savemenu%=�menu("Save",150,"[w/save%]Label,[w/save2%]Text")
pItopmenu%=�menu("AMFLabel",150,"[w/info%]Info,[s/savemenu%]Save,Quit")
z�openmenu(x-75,y)
��
���decode
�.ș "Wimp_DecodeMenu",,topmenu%,block,icond
�� $icond="Quit" � end%=�:�4
�#ș "Wimp_GetPointerInfo",,block
�� block!8=1 �
�%� menuopen=-44 � �menus � �menus2
�"ș "Wimp_CreateMenu",,topmenu%
��
�ș "Wimp_CreateMenu",,-1
��
��
���template
	6ș "Wimp_OpenTemplate",,"<AMFLabel$Dir>.Templates"
	indir=curbuf%
	info%=�template("ProgInfo")
	$save%=�template("Save")
	.save2%=�template("Save2")
	8disc%=�template("Disc")
	Bș "Wimp_CloseTemplate"
	Lstext=�tad(save%,0)
	Vstext2=�tad(save2%,0)
	`version%=�tad(info%,12)
	j�
	t
��mess
	~task=block!4:ref=block!8
	�Ȏ block!16 �
	�� 0:end%=�
	�� 2:
	�� saving%=-1 �
	��save(�str(block+44))
	��
	�� saving%=-2 �
	��save2(�str(block+44))
	��
	�� 3:
	�load$=�str(block+44)
	�� block!40=&FFD �
1� �:� � � �moan("Couldn't load : "+�$):� �ThJ

ș "Hourglass_On"

�loadfile
ș "Hourglass_Off"
(� �
2�
<� 4:ack%=�
F�
P�
Z��cmenu
d#ș "Wimp_GetPointerInfo",,icond
n� icond!8=1 �
x� menuopen=-44 � �menu
�"ș "Wimp_CreateMenu",,topmenu%
��
�ș "Wimp_CreateMenu",,-1
��
��
���save(a$)
�\� �a$,".")<1 � �a$,":")<1 � �moan("To save, drag the save icon to a directory viewer"):�
�� �
�6� � � �moan("Couldn't save : "+�$+" "+�(�)):� �DTK
�save$=a$
�file=�(a$)
��#file,"eliF lebaLFMA"
�� I%=1 � 16
�#file,$�tad(disc%,I%+1)
�
�#file,"dehsiniF"
"
�#file
,�("SETTYPE "+a$+" FFD")
6
�cmenu
@$stext=save$
Jmodified=0
T� �
^�
h��save2(a$)
r\� �a$,".")<1 � �a$,":")<1 � �moan("To save, drag the save icon to a directory viewer"):�
|� �
�6� � � �moan("Couldn't save : "+�$+" "+�(�)):� �djK
�save$=a$
�file=�(a$)
�� I%=1 � 16
��#file,$�tad(disc%,I%+1)
��
�
�#file
��("SETTYPE "+a$+" FFF")
�
�cmenu
�$stext2=save$
�� �
��
���check
(� $�tad(info%,9)<>"� AMFsoft 1991" �
�moan("Pax Vobiscum.")
�
&�
0�
:��loadfile
D� �
N6� � � �moan("Couldn't load : "+�$+" "+�(�)):� �trL
Xfile=�(load$)
bB�#file,start$:� start$<>"eliF lebaLFMA" � � 123,"File corrupt"
l� I%=1 � 16
v�#file,data$
�$�tad(disc%,I%+1)=data$
��alter(disc%,I%+1,0,0)
��
�9�#file,end$:� end$<>"dehsiniF" � � 123,"File corrupt"
�
�#file
�� �
��
���keydisc(val)
�icon=block!4
�%ș "Wimp_GetCaretPosition",,icond
�
icon+=val
�� icon=18 � icon=2
�� icon=1 � icon=17

olen=block!20

8a$=$�tad(disc%,icon):len=�(a$):� len>olen � len=olen

4ș "Wimp_SetCaretPosition",disc%,icon,0,0,-1,len

 �

*��setcaret(wind%,icon%)

4Gș "Wimp_SetCaretPosition",wind%,icon%,0,0,-1,�($�tad(wind%,icon%))

>�
�

00000000  0d 00 0a 1c f4 20 3e 24  2e 21 41 4d 46 4c 61 62  |..... >$.!AMFLab|
00000010  65 6c 2e 21 52 75 6e 49  6d 61 67 65 0d 00 14 2b  |el.!RunImage...+|
00000020  f4 20 4d 61 69 6e 20 70  72 6f 67 72 61 6d 20 63  |. Main program c|
00000030  6f 64 65 20 66 6f 72 20  52 49 53 43 4f 53 20 41  |ode for RISCOS A|
00000040  4d 46 4c 61 62 65 6c 0d  00 1e 27 f4 20 56 65 72  |MFLabel...'. Ver|
00000050  73 69 6f 6e 20 31 2e 31  30 20 4c 61 73 74 20 55  |sion 1.10 Last U|
00000060  70 64 61 74 65 20 30 32  2f 30 37 2f 39 31 0d 00  |pdate 02/07/91..|
00000070  28 20 f4 20 a9 20 41 4d  46 20 74 68 65 20 44 6f  |( . . AMF the Do|
00000080  6f 6d 77 61 74 63 68 65  72 20 31 39 39 31 0d 00  |omwatcher 1991..|
00000090  32 05 f4 0d 00 3c 05 3a  0d 00 46 37 de 20 62 6c  |2....<.:..F7. bl|
000000a0  6f 63 6b 20 26 31 30 30  30 2c 20 6d 65 6e 75 25  |ock &1000, menu%|
000000b0  20 31 30 32 34 2c 63 75  72 62 75 66 25 20 26 31  | 1024,curbuf% &1|
000000c0  30 30 30 2c 69 63 6f 6e  64 20 26 31 30 30 30 0d  |000,icond &1000.|
000000d0  00 50 05 3a 0d 00 5a 19  65 6e 64 62 75 66 25 3d  |.P.:..Z.endbuf%=|
000000e0  63 75 72 62 75 66 25 2b  26 36 30 30 30 0d 00 64  |curbuf%+&6000..d|
000000f0  44 c8 99 20 22 57 69 6d  70 5f 49 6e 69 74 69 61  |D.. "Wimp_Initia|
00000100  6c 69 73 65 22 2c 32 30  30 2c 26 34 42 35 33 34  |lise",200,&4B534|
00000110  31 35 34 2c 22 41 4d 46  4c 61 62 65 6c 22 20 b8  |154,"AMFLabel" .|
00000120  20 76 65 72 73 69 6f 6e  25 2c 6d 79 74 61 73 6b  | version%,mytask|
00000130  25 0d 00 6e 0d f2 74 65  6d 70 6c 61 74 65 0d 00  |%..n..template..|
00000140  78 20 24 76 65 72 73 69  6f 6e 25 3d 22 31 2e 31  |x $version%="1.1|
00000150  30 20 28 30 32 2d 4a 75  6c 2d 39 31 29 22 0d 00  |0 (02-Jul-91)"..|
00000160  82 44 69 6e 69 74 69 63  3d a4 69 63 6f 6e 62 61  |.Dinitic=.iconba|
00000170  72 28 25 31 31 30 31 30  2c 2d 31 2c 37 2c 30 2c  |r(%11010,-1,7,0,|
00000180  22 21 41 4d 46 4c 61 62  65 6c 22 2b bd 31 33 2c  |"!AMFLabel"+.13,|
00000190  30 2c 30 2c 30 2c 33 2c  30 2c 30 2c 36 38 2c 36  |0,0,0,3,0,0,68,6|
000001a0  38 29 0d 00 8c 23 65 6e  64 25 3d a3 3a 64 72 61  |8)...#end%=.:dra|
000001b0  67 25 3d 30 3a 73 61 76  69 6e 67 25 3d 30 3a 61  |g%=0:saving%=0:a|
000001c0  63 6b 25 3d a3 0d 00 96  0a f2 63 68 65 63 6b 0d  |ck%=......check.|
000001d0  00 a0 05 3a 0d 00 aa 05  f5 0d 00 b4 26 c8 99 20  |...:........&.. |
000001e0  22 57 69 6d 70 5f 50 6f  6c 6c 22 2c 31 2c 62 6c  |"Wimp_Poll",1,bl|
000001f0  6f 63 6b 20 b8 20 65 76  65 6e 74 63 6f 64 65 0d  |ock . eventcode.|
00000200  00 be 12 c8 8e 20 65 76  65 6e 74 63 6f 64 65 20  |..... eventcode |
00000210  ca 0d 00 c8 08 c9 20 30  3a 0d 00 d2 2d c9 20 31  |...... 0:...-. 1|
00000220  3a c8 99 20 22 57 69 6d  70 5f 52 65 64 72 61 77  |:.. "Wimp_Redraw|
00000230  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 20 b8  |Window",,block .|
00000240  20 6d 6f 72 65 25 0d 00  dc 23 c9 20 32 3a c8 99  | more%...#. 2:..|
00000250  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00000260  77 22 2c 2c 62 6c 6f 63  6b 0d 00 e6 24 c9 20 33  |w",,block...$. 3|
00000270  3a c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |:.. "Wimp_CloseW|
00000280  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 0d 00 f0  |indow",,block...|
00000290  17 c9 20 36 3a f2 62 75  74 74 6f 6e 73 28 62 6c  |.. 6:.buttons(bl|
000002a0  6f 63 6b 29 0d 00 fa 0d  c9 20 37 3a f2 64 72 61  |ock)..... 7:.dra|
000002b0  67 0d 01 04 13 c9 20 38  3a f2 70 72 6f 63 65 73  |g..... 8:.proces|
000002c0  73 6b 65 79 0d 01 0e 0f  c9 20 39 3a f2 64 65 63  |skey..... 9:.dec|
000002d0  6f 64 65 0d 01 18 11 c9  20 31 37 2c 31 38 3a f2  |ode..... 17,18:.|
000002e0  6d 65 73 73 0d 01 22 05  cb 0d 01 2c 0a fd 20 65  |mess.."....,.. e|
000002f0  6e 64 25 0d 01 36 05 e0  0d 01 40 34 dd f2 6f 70  |nd%..6....@4..op|
00000300  65 6e 28 68 61 6e 64 6c  65 2c 76 6d 69 6e 78 2c  |en(handle,vminx,|
00000310  76 6d 69 6e 79 2c 76 6d  61 78 78 2c 76 6d 61 78  |vminy,vmaxx,vmax|
00000320  79 2c 78 6f 66 66 2c 79  6f 66 66 29 0d 01 4a 3c  |y,xoff,yoff)..J<|
00000330  21 62 6c 6f 63 6b 3d 68  61 6e 64 6c 65 3a 62 6c  |!block=handle:bl|
00000340  6f 63 6b 21 34 3d 76 6d  69 6e 78 3a 62 6c 6f 63  |ock!4=vminx:bloc|
00000350  6b 21 38 3d 76 6d 69 6e  79 3a 62 6c 6f 63 6b 21  |k!8=vminy:block!|
00000360  31 32 3d 76 6d 61 78 78  0d 01 54 3a 62 6c 6f 63  |12=vmaxx..T:bloc|
00000370  6b 21 31 36 3d 76 6d 61  78 79 3a 62 6c 6f 63 6b  |k!16=vmaxy:block|
00000380  21 32 30 3d 78 6f 66 66  3a 62 6c 6f 63 6b 21 32  |!20=xoff:block!2|
00000390  34 3d 79 6f 66 66 3a 62  6c 6f 63 6b 21 32 38 3d  |4=yoff:block!28=|
000003a0  2d 31 0d 01 5e 1f c8 99  20 22 57 69 6d 70 5f 4f  |-1..^... "Wimp_O|
000003b0  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |penWindow",,bloc|
000003c0  6b 0d 01 68 05 e1 0d 01  72 4b dd a4 69 63 6f 6e  |k..h....rK..icon|
000003d0  62 61 72 28 66 6c 61 67  73 2c 70 61 72 74 2c 66  |bar(flags,part,f|
000003e0  6f 72 2c 62 61 63 2c 64  61 74 61 24 2c 61 64 64  |or,bac,data$,add|
000003f0  2c 61 64 64 32 2c 6c 65  6e 67 74 68 2c 6d 6f 75  |,add2,length,mou|
00000400  73 65 2c 78 73 31 2c 79  73 31 2c 78 73 2c 79 73  |se,xs1,ys1,xs,ys|
00000410  29 0d 01 7c 0f 21 69 63  6f 6e 64 3d 70 61 72 74  |)..|.!icond=part|
00000420  0d 01 86 0f 69 63 6f 6e  64 21 34 3d 78 73 31 0d  |....icond!4=xs1.|
00000430  01 90 27 69 63 6f 6e 64  21 38 3d 79 73 31 3a 69  |..'icond!8=ys1:i|
00000440  63 6f 6e 64 21 31 32 3d  78 73 3a 69 63 6f 6e 64  |cond!12=xs:icond|
00000450  21 31 36 3d 79 73 0d 01  9a 35 69 63 6f 6e 64 21  |!16=ys...5icond!|
00000460  32 30 3d 66 6c 61 67 73  2b 28 28 32 5e 31 32 29  |20=flags+((2^12)|
00000470  2a 6d 6f 75 73 65 29 3a  69 63 6f 6e 64 3f 32 33  |*mouse):icond?23|
00000480  3d 66 6f 72 2b 62 61 63  2a 31 36 0d 01 a4 50 e7  |=for+bac*16...P.|
00000490  20 64 61 74 61 24 3c 3e  22 22 20 8c 20 24 28 69  | data$<>"" . $(i|
000004a0  63 6f 6e 64 2b 32 34 29  3d 64 61 74 61 24 20 8b  |cond+24)=data$ .|
000004b0  20 69 63 6f 6e 64 21 32  34 3d 61 64 64 3a 69 63  | icond!24=add:ic|
000004c0  6f 6e 64 21 32 38 3d 61  64 64 32 3a 69 63 6f 6e  |ond!28=add2:icon|
000004d0  64 21 33 32 3d 6c 65 6e  67 74 68 0d 01 ae 26 c8  |d!32=length...&.|
000004e0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
000004f0  6f 6e 22 2c 2c 69 63 6f  6e 64 20 b8 20 69 63 6f  |on",,icond . ico|
00000500  6e 0d 01 b8 09 3d 69 63  6f 6e 0d 01 c2 12 dd a4  |n....=icon......|
00000510  74 65 6d 70 6c 61 74 65  28 61 24 29 0d 01 cc 47  |template(a$)...G|
00000520  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
00000530  70 6c 61 74 65 22 2c 2c  62 6c 6f 63 6b 2c 69 6e  |plate",,block,in|
00000540  64 69 72 2c 65 6e 64 62  75 66 25 2c 2d 31 2c 61  |dir,endbuf%,-1,a|
00000550  24 2c 30 20 b8 20 2c 2c  69 6e 64 69 72 2c 2c 2c  |$,0 . ,,indir,,,|
00000560  2c 63 25 0d 01 d6 30 e7  20 63 25 3d 30 20 8c 20  |,c%...0. c%=0 . |
00000570  ef 34 3a f1 20 22 54 65  6d 70 6c 61 74 65 20 22  |.4:. "Template "|
00000580  3b 61 24 3b 22 20 6e 6f  74 20 66 6f 75 6e 64 2e  |;a$;" not found.|
00000590  22 3a e0 0d 01 e0 0e 62  6c 6f 63 6b 21 36 34 3d  |":.....block!64=|
000005a0  31 0d 01 ea 2a c8 99 20  22 57 69 6d 70 5f 43 72  |1...*.. "Wimp_Cr|
000005b0  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |eateWindow",,blo|
000005c0  63 6b 20 b8 20 68 61 6e  64 6c 65 0d 01 f4 0b 3d  |ck . handle....=|
000005d0  68 61 6e 64 6c 65 0d 01  fe 0e dd f2 6d 6f 61 6e  |handle......moan|
000005e0  28 61 24 29 0d 02 08 1d  21 69 63 6f 6e 64 3d 30  |(a$)....!icond=0|
000005f0  3a 24 28 69 63 6f 6e 64  2b 34 29 3d 61 24 2b bd  |:$(icond+4)=a$+.|
00000600  30 0d 02 12 2c c8 99 20  22 57 69 6d 70 5f 52 65  |0...,.. "Wimp_Re|
00000610  70 6f 72 74 45 72 72 6f  72 22 2c 69 63 6f 6e 64  |portError",icond|
00000620  2c 31 2c 22 41 4d 46 4c  61 62 65 6c 22 0d 02 1c  |,1,"AMFLabel"...|
00000630  05 e1 0d 02 26 0d dd a4  73 74 72 28 61 25 29 0d  |....&...str(a%).|
00000640  02 30 08 ea 20 62 24 0d  02 3a 0e c8 95 20 3f 61  |.0.. b$..:... ?a|
00000650  25 3e 3d 33 32 0d 02 44  0e 62 24 2b 3d bd 28 3f  |%>=32..D.b$+=.(?|
00000660  61 25 29 0d 02 4e 09 61  25 2b 3d 31 0d 02 58 05  |a%)..N.a%+=1..X.|
00000670  ce 0d 02 62 07 3d 62 24  0d 02 6c 16 dd a4 74 61  |...b.=b$..l...ta|
00000680  64 28 68 61 6e 64 6c 65  2c 69 63 6f 6e 29 0d 02  |d(handle,icon)..|
00000690  76 15 f2 67 69 69 28 68  61 6e 64 6c 65 2c 69 63  |v..gii(handle,ic|
000006a0  6f 6e 29 0d 02 80 0d 3d  69 63 6f 6e 64 21 32 38  |on)....=icond!28|
000006b0  0d 02 8a 16 dd f2 67 69  69 28 68 61 6e 64 6c 65  |......gii(handle|
000006c0  2c 69 63 6f 6e 29 0d 02  94 1e 21 69 63 6f 6e 64  |,icon)....!icond|
000006d0  3d 68 61 6e 64 6c 65 3a  69 63 6f 6e 64 21 34 3d  |=handle:icond!4=|
000006e0  69 63 6f 6e 0d 02 9e 21  c8 99 20 22 57 69 6d 70  |icon...!.. "Wimp|
000006f0  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00000700  69 63 6f 6e 64 0d 02 a8  05 e1 0d 02 b2 19 dd f2  |icond...........|
00000710  6f 70 65 6e 77 69 6e 64  6f 77 28 68 61 6e 64 6c  |openwindow(handl|
00000720  65 25 29 0d 02 bc 12 21  69 63 6f 6e 64 3d 68 61  |e%)....!icond=ha|
00000730  6e 64 6c 65 25 0d 02 c6  22 c8 99 20 22 57 69 6d  |ndle%...".. "Wim|
00000740  70 5f 47 65 74 57 69 6e  64 6f 77 49 6e 66 6f 22  |p_GetWindowInfo"|
00000750  2c 2c 69 63 6f 6e 64 0d  02 d0 1f c8 99 20 22 57  |,,icond...... "W|
00000760  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00000770  2c 69 63 6f 6e 64 0d 02  da 05 e1 0d 02 e4 20 dd  |,icond........ .|
00000780  f2 61 6c 74 65 72 28 68  61 6e 64 2c 69 63 6f 6e  |.alter(hand,icon|
00000790  2c 65 6f 72 2c 63 6c 65  61 72 29 0d 02 ee 1c 21  |,eor,clear)....!|
000007a0  69 63 6f 6e 64 3d 68 61  6e 64 3a 69 63 6f 6e 64  |icond=hand:icond|
000007b0  21 34 3d 69 63 6f 6e 0d  02 f8 1e 69 63 6f 6e 64  |!4=icon....icond|
000007c0  21 38 3d 65 6f 72 3a 69  63 6f 6e 64 21 31 32 3d  |!8=eor:icond!12=|
000007d0  63 6c 65 61 72 0d 03 02  21 c8 99 20 22 57 69 6d  |clear...!.. "Wim|
000007e0  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
000007f0  2c 69 63 6f 6e 64 0d 03  0c 05 e1 0d 03 16 12 dd  |,icond..........|
00000800  f2 73 74 61 74 65 28 77  69 2c 69 63 29 0d 03 20  |.state(wi,ic).. |
00000810  18 21 62 6c 6f 63 6b 3d  77 69 3a 62 6c 6f 63 6b  |.!block=wi:block|
00000820  21 34 3d 69 63 0d 03 2a  21 c8 99 20 22 57 69 6d  |!4=ic..*!.. "Wim|
00000830  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00000840  2c 62 6c 6f 63 6b 0d 03  34 05 e1 0d 03 3e 13 dd  |,block..4....>..|
00000850  a4 73 65 6c 65 63 74 28  77 69 2c 69 63 29 0d 03  |.select(wi,ic)..|
00000860  48 11 f2 73 74 61 74 65  28 77 69 2c 69 63 29 0d  |H..state(wi,ic).|
00000870  03 52 22 e7 20 28 28 62  6c 6f 63 6b 21 32 34 29  |.R". ((block!24)|
00000880  20 80 20 31 3c 3c 32 31  29 3e 30 20 8c 20 3d 2d  | . 1<<21)>0 . =-|
00000890  31 0d 03 5c 06 3d 30 0d  03 66 0d dd a4 62 69 74  |1..\.=0..f...bit|
000008a0  28 61 24 29 0d 03 70 11  c8 95 20 a7 61 24 2c 22  |(a$)..p... .a$,"|
000008b0  3a 22 29 3e 30 0d 03 7a  16 61 24 3d c1 61 24 2c  |:")>0..z.a$=.a$,|
000008c0  a7 61 24 2c 22 3a 22 29  2b 31 29 0d 03 84 05 ce  |.a$,":")+1).....|
000008d0  0d 03 8e 11 c8 95 20 a7  61 24 2c 22 2e 22 29 3e  |...... .a$,".")>|
000008e0  30 0d 03 98 16 61 24 3d  c1 61 24 2c a7 61 24 2c  |0....a$=.a$,.a$,|
000008f0  22 2e 22 29 2b 31 29 0d  03 a2 05 ce 0d 03 ac 07  |".")+1).........|
00000900  3d 61 24 0d 03 b6 13 dd  f2 6f 70 65 6e 6d 65 6e  |=a$......openmen|
00000910  75 28 78 2c 79 29 0d 03  c0 26 c8 99 20 22 57 69  |u(x,y)...&.. "Wi|
00000920  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00000930  74 6f 70 6d 65 6e 75 25  2c 78 2c 79 0d 03 ca 05  |topmenu%,x,y....|
00000940  e1 0d 03 d4 1e dd a4 6d  65 6e 75 28 74 69 74 6c  |.......menu(titl|
00000950  65 24 2c 77 69 64 74 68  2c 6d 65 6e 75 24 29 0d  |e$,width,menu$).|
00000960  03 de 0e 6d 65 6e 75 24  2b 3d 22 2c 22 0d 03 e8  |...menu$+=","...|
00000970  13 6f 6c 64 6d 65 6e 75  3d 6d 65 6e 75 70 74 72  |.oldmenu=menuptr|
00000980  0d 03 f2 13 24 6d 65 6e  75 70 74 72 3d 74 69 74  |....$menuptr=tit|
00000990  6c 65 24 0d 03 fc 10 6d  65 6e 75 70 74 72 3f 31  |le$....menuptr?1|
000009a0  32 3d 37 0d 04 06 10 6d  65 6e 75 70 74 72 3f 31  |2=7....menuptr?1|
000009b0  33 3d 32 0d 04 10 10 6d  65 6e 75 70 74 72 3f 31  |3=2....menuptr?1|
000009c0  34 3d 37 0d 04 1a 10 6d  65 6e 75 70 74 72 3f 31  |4=7....menuptr?1|
000009d0  35 3d 30 0d 04 24 14 6d  65 6e 75 70 74 72 21 31  |5=0..$.menuptr!1|
000009e0  36 3d 77 69 64 74 68 0d  04 2e 11 6d 65 6e 75 70  |6=width....menup|
000009f0  74 72 21 32 30 3d 34 38  0d 04 38 10 6d 65 6e 75  |tr!20=48..8.menu|
00000a00  70 74 72 21 32 34 3d 30  0d 04 42 0f 6d 65 6e 75  |ptr!24=0..B.menu|
00000a10  70 74 72 2b 3d 32 38 0d  04 4c 05 f5 0d 04 56 10  |ptr+=28..L....V.|
00000a20  f2 69 74 65 6d 28 6d 65  6e 75 24 29 0d 04 60 1f  |.item(menu$)..`.|
00000a30  6d 65 6e 75 24 3d c1 6d  65 6e 75 24 2c a7 6d 65  |menu$=.menu$,.me|
00000a40  6e 75 24 2c 22 2c 22 29  2b 31 29 0d 04 6a 0f 6d  |nu$,",")+1)..j.m|
00000a50  65 6e 75 70 74 72 2b 3d  32 34 0d 04 74 0e fd 20  |enuptr+=24..t.. |
00000a60  6d 65 6e 75 24 3d 22 22  0d 04 7e 29 6d 65 6e 75  |menu$=""..~)menu|
00000a70  70 74 72 21 2d 32 34 3d  28 6d 65 6e 75 70 74 72  |ptr!-24=(menuptr|
00000a80  21 2d 32 34 29 20 84 20  25 31 30 30 30 30 30 30  |!-24) . %1000000|
00000a90  30 0d 04 88 0c 3d 6f 6c  64 6d 65 6e 75 0d 04 92  |0....=oldmenu...|
00000aa0  0e dd f2 69 74 65 6d 28  6d 24 29 0d 04 9c 16 6d  |...item(m$)....m|
00000ab0  24 3d c0 6d 24 2c a7 6d  24 2c 22 2c 22 29 2d 31  |$=.m$,.m$,",")-1|
00000ac0  29 0d 04 a6 0f 69 24 3d  22 22 3a 6a 24 3d 22 22  |)....i$="":j$=""|
00000ad0  0d 04 b0 12 e7 20 a7 6d  24 2c 22 5b 22 29 3e 30  |..... .m$,"[")>0|
00000ae0  20 8c 0d 04 ba 16 69 24  3d c0 6d 24 2c a7 6d 24  | .....i$=.m$,.m$|
00000af0  2c 22 5d 22 29 2d 31 29  0d 04 c4 16 6d 24 3d c1  |,"]")-1)....m$=.|
00000b00  6d 24 2c a7 6d 24 2c 22  5d 22 29 2b 31 29 0d 04  |m$,.m$,"]")+1)..|
00000b10  ce 16 6a 24 3d c0 69 24  2c a7 69 24 2c 22 2f 22  |..j$=.i$,.i$,"/"|
00000b20  29 2d 31 29 0d 04 d8 16  69 24 3d c1 69 24 2c a7  |)-1)....i$=.i$,.|
00000b30  69 24 2c 22 2f 22 29 2b  31 29 0d 04 e2 05 cd 0d  |i$,"/")+1)......|
00000b40  04 ec 14 69 66 6c 61 67  73 3d 26 30 37 30 30 30  |...iflags=&07000|
00000b50  30 32 31 0d 04 f6 0c 6d  66 6c 61 67 73 3d 30 0d  |021....mflags=0.|
00000b60  05 00 0e 73 75 62 6d 65  6e 75 3d 2d 31 0d 05 0a  |...submenu=-1...|
00000b70  20 e7 20 a7 6a 24 2c 22  77 22 29 3e 30 20 8c 20  | . .j$,"w")>0 . |
00000b80  73 75 62 6d 65 6e 75 3d  a0 28 69 24 29 0d 05 14  |submenu=.(i$)...|
00000b90  20 e7 20 a7 6a 24 2c 22  73 22 29 3e 30 20 8c 20  | . .j$,"s")>0 . |
00000ba0  73 75 62 6d 65 6e 75 3d  a0 28 69 24 29 0d 05 1e  |submenu=.(i$)...|
00000bb0  24 e7 20 a7 6a 24 2c 22  74 22 29 3e 30 20 8c 20  |$. .j$,"t")>0 . |
00000bc0  6d 66 6c 61 67 73 3d 6d  66 6c 61 67 73 20 84 20  |mflags=mflags . |
00000bd0  31 0d 05 28 24 e7 20 a7  6a 24 2c 22 6c 22 29 3e  |1..($. .j$,"l")>|
00000be0  30 20 8c 20 6d 66 6c 61  67 73 3d 6d 66 6c 61 67  |0 . mflags=mflag|
00000bf0  73 20 84 20 32 0d 05 32  13 21 6d 65 6e 75 70 74  |s . 2..2.!menupt|
00000c00  72 3d 6d 66 6c 61 67 73  0d 05 3c 15 6d 65 6e 75  |r=mflags..<.menu|
00000c10  70 74 72 21 34 3d 73 75  62 6d 65 6e 75 0d 05 46  |ptr!4=submenu..F|
00000c20  14 6d 65 6e 75 70 74 72  21 38 3d 69 66 6c 61 67  |.menuptr!8=iflag|
00000c30  73 0d 05 50 14 24 28 6d  65 6e 75 70 74 72 2b 31  |s..P.$(menuptr+1|
00000c40  32 29 3d 6d 24 0d 05 5a  05 e1 0d 05 64 09 dd f2  |2)=m$..Z....d...|
00000c50  69 73 64 0d 05 6e 10 21  62 6c 6f 63 6b 3d 73 61  |isd..n.!block=sa|
00000c60  76 65 25 0d 05 78 23 c8  99 20 22 57 69 6d 70 5f  |ve%..x#.. "Wimp_|
00000c70  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00000c80  2c 62 6c 6f 63 6b 0d 05  82 1b 79 73 69 7a 65 25  |,block....ysize%|
00000c90  3d 62 6c 6f 63 6b 21 31  36 2d 62 6c 6f 63 6b 21  |=block!16-block!|
00000ca0  38 0d 05 8c 23 78 25 3d  62 6c 6f 63 6b 21 34 3a  |8...#x%=block!4:|
00000cb0  79 25 3d 62 6c 6f 63 6b  21 38 3a 62 6c 6f 63 6b  |y%=block!8:block|
00000cc0  21 34 3d 39 0d 05 96 21  c8 99 20 22 57 69 6d 70  |!4=9...!.. "Wimp|
00000cd0  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00000ce0  62 6c 6f 63 6b 0d 05 a0  23 62 6c 6f 63 6b 21 38  |block...#block!8|
00000cf0  2b 3d 78 25 3a 62 6c 6f  63 6b 21 31 32 2b 3d 79  |+=x%:block!12+=y|
00000d00  25 2b 79 73 69 7a 65 25  0d 05 aa 24 62 6c 6f 63  |%+ysize%...$bloc|
00000d10  6b 21 31 36 2b 3d 78 25  3a 62 6c 6f 63 6b 21 32  |k!16+=x%:block!2|
00000d20  30 2b 3d 79 25 2b 79 73  69 7a 65 25 0d 05 b4 35  |0+=y%+ysize%...5|
00000d30  62 6c 6f 63 6b 21 32 34  3d 30 3a 62 6c 6f 63 6b  |block!24=0:block|
00000d40  21 32 38 3d 30 3a 62 6c  6f 63 6b 21 33 32 3d 31  |!28=0:block!32=1|
00000d50  32 37 39 3a 62 6c 6f 63  6b 21 33 36 3d 31 30 32  |279:block!36=102|
00000d60  33 0d 05 be 29 21 62 6c  6f 63 6b 3d 30 3a 62 6c  |3...)!block=0:bl|
00000d70  6f 63 6b 21 34 3d 35 3a  64 72 61 67 25 3d b9 3a  |ock!4=5:drag%=.:|
00000d80  73 61 76 69 6e 67 25 3d  2d 31 0d 05 c8 1c c8 99  |saving%=-1......|
00000d90  20 22 57 69 6d 70 5f 44  72 61 67 42 6f 78 22 2c  | "Wimp_DragBox",|
00000da0  2c 62 6c 6f 63 6b 0d 05  d2 05 e1 0d 05 dc 0a dd  |,block..........|
00000db0  f2 69 73 64 32 0d 05 e6  11 21 62 6c 6f 63 6b 3d  |.isd2....!block=|
00000dc0  73 61 76 65 32 25 0d 05  f0 23 c8 99 20 22 57 69  |save2%...#.. "Wi|
00000dd0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00000de0  65 22 2c 2c 62 6c 6f 63  6b 0d 05 fa 1b 79 73 69  |e",,block....ysi|
00000df0  7a 65 25 3d 62 6c 6f 63  6b 21 31 36 2d 62 6c 6f  |ze%=block!16-blo|
00000e00  63 6b 21 38 0d 06 04 23  78 25 3d 62 6c 6f 63 6b  |ck!8...#x%=block|
00000e10  21 34 3a 79 25 3d 62 6c  6f 63 6b 21 38 3a 62 6c  |!4:y%=block!8:bl|
00000e20  6f 63 6b 21 34 3d 39 0d  06 0e 21 c8 99 20 22 57  |ock!4=9...!.. "W|
00000e30  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00000e40  22 2c 2c 62 6c 6f 63 6b  0d 06 18 23 62 6c 6f 63  |",,block...#bloc|
00000e50  6b 21 38 2b 3d 78 25 3a  62 6c 6f 63 6b 21 31 32  |k!8+=x%:block!12|
00000e60  2b 3d 79 25 2b 79 73 69  7a 65 25 0d 06 22 24 62  |+=y%+ysize%.."$b|
00000e70  6c 6f 63 6b 21 31 36 2b  3d 78 25 3a 62 6c 6f 63  |lock!16+=x%:bloc|
00000e80  6b 21 32 30 2b 3d 79 25  2b 79 73 69 7a 65 25 0d  |k!20+=y%+ysize%.|
00000e90  06 2c 35 62 6c 6f 63 6b  21 32 34 3d 30 3a 62 6c  |.,5block!24=0:bl|
00000ea0  6f 63 6b 21 32 38 3d 30  3a 62 6c 6f 63 6b 21 33  |ock!28=0:block!3|
00000eb0  32 3d 31 32 37 39 3a 62  6c 6f 63 6b 21 33 36 3d  |2=1279:block!36=|
00000ec0  31 30 32 33 0d 06 36 29  21 62 6c 6f 63 6b 3d 30  |1023..6)!block=0|
00000ed0  3a 62 6c 6f 63 6b 21 34  3d 35 3a 64 72 61 67 25  |:block!4=5:drag%|
00000ee0  3d b9 3a 73 61 76 69 6e  67 25 3d 2d 32 0d 06 40  |=.:saving%=-2..@|
00000ef0  1c c8 99 20 22 57 69 6d  70 5f 44 72 61 67 42 6f  |... "Wimp_DragBo|
00000f00  78 22 2c 2c 62 6c 6f 63  6b 0d 06 4a 05 e1 0d 06  |x",,block..J....|
00000f10  54 0a dd f2 64 72 61 67  0d 06 5e 12 e7 20 73 61  |T...drag..^.. sa|
00000f20  76 69 6e 67 25 3d 2d 31  20 8c 0d 06 68 23 c8 99  |ving%=-1 ...h#..|
00000f30  20 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  | "Wimp_GetPointe|
00000f40  72 49 6e 66 6f 22 2c 2c  62 6c 6f 63 6b 0d 06 72  |rInfo",,block..r|
00000f50  24 62 6c 6f 63 6b 21 33  32 3d 62 6c 6f 63 6b 21  |$block!32=block!|
00000f60  34 3a 62 6c 6f 63 6b 21  32 38 3d 21 62 6c 6f 63  |4:block!28=!bloc|
00000f70  6b 0d 06 7c 27 62 6c 6f  63 6b 21 32 34 3d 62 6c  |k..|'block!24=bl|
00000f80  6f 63 6b 21 31 36 3a 62  6c 6f 63 6b 21 32 30 3d  |ock!16:block!20=|
00000f90  62 6c 6f 63 6b 21 31 32  0d 06 86 2f 62 6c 6f 63  |block!12.../bloc|
00000fa0  6b 21 31 36 3d 31 3a 62  6c 6f 63 6b 21 31 32 3d  |k!16=1:block!12=|
00000fb0  30 3a 62 6c 6f 63 6b 21  33 36 3d 30 3a 62 6c 6f  |0:block!36=0:blo|
00000fc0  63 6b 21 34 30 3d 30 0d  06 90 29 e3 20 49 3d 30  |ck!40=0...). I=0|
00000fd0  20 b8 20 32 35 35 3a e7  20 49 3f 73 74 65 78 74  | . 255:. I?stext|
00000fe0  3c 33 32 20 8c 20 49 3f  73 74 65 78 74 3d 31 33  |<32 . I?stext=13|
00000ff0  0d 06 9a 05 ed 0d 06 a4  29 24 28 62 6c 6f 63 6b  |........)$(block|
00001000  2b 34 34 29 3d a4 62 69  74 28 24 73 74 65 78 74  |+44)=.bit($stext|
00001010  29 2b bd 30 3a 21 62 6c  6f 63 6b 3d 36 30 0d 06  |)+.0:!block=60..|
00001020  ae 2b c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |.+.. "Wimp_SendM|
00001030  65 73 73 61 67 65 22 2c  31 37 2c 62 6c 6f 63 6b  |essage",17,block|
00001040  2c 62 6c 6f 63 6b 21 32  30 0d 06 b8 0b 64 72 61  |,block!20....dra|
00001050  67 25 3d 30 0d 06 c2 05  cd 0d 06 cc 12 e7 20 73  |g%=0.......... s|
00001060  61 76 69 6e 67 25 3d 2d  32 20 8c 0d 06 d6 23 c8  |aving%=-2 ....#.|
00001070  99 20 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |. "Wimp_GetPoint|
00001080  65 72 49 6e 66 6f 22 2c  2c 62 6c 6f 63 6b 0d 06  |erInfo",,block..|
00001090  e0 24 62 6c 6f 63 6b 21  33 32 3d 62 6c 6f 63 6b  |.$block!32=block|
000010a0  21 34 3a 62 6c 6f 63 6b  21 32 38 3d 21 62 6c 6f  |!4:block!28=!blo|
000010b0  63 6b 0d 06 ea 27 62 6c  6f 63 6b 21 32 34 3d 62  |ck...'block!24=b|
000010c0  6c 6f 63 6b 21 31 36 3a  62 6c 6f 63 6b 21 32 30  |lock!16:block!20|
000010d0  3d 62 6c 6f 63 6b 21 31  32 0d 06 f4 2f 62 6c 6f  |=block!12.../blo|
000010e0  63 6b 21 31 36 3d 31 3a  62 6c 6f 63 6b 21 31 32  |ck!16=1:block!12|
000010f0  3d 30 3a 62 6c 6f 63 6b  21 33 36 3d 30 3a 62 6c  |=0:block!36=0:bl|
00001100  6f 63 6b 21 34 30 3d 30  0d 06 fe 2b e3 20 49 3d  |ock!40=0...+. I=|
00001110  30 20 b8 20 32 35 35 3a  e7 20 49 3f 73 74 65 78  |0 . 255:. I?stex|
00001120  74 32 3c 33 32 20 8c 20  49 3f 73 74 65 78 74 32  |t2<32 . I?stext2|
00001130  3d 31 33 0d 07 08 05 ed  0d 07 12 2a 24 28 62 6c  |=13........*$(bl|
00001140  6f 63 6b 2b 34 34 29 3d  a4 62 69 74 28 24 73 74  |ock+44)=.bit($st|
00001150  65 78 74 32 29 2b bd 30  3a 21 62 6c 6f 63 6b 3d  |ext2)+.0:!block=|
00001160  36 30 0d 07 1c 2b c8 99  20 22 57 69 6d 70 5f 53  |60...+.. "Wimp_S|
00001170  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 62  |endMessage",17,b|
00001180  6c 6f 63 6b 2c 62 6c 6f  63 6b 21 32 30 0d 07 26  |lock,block!20..&|
00001190  0b 64 72 61 67 25 3d 30  0d 07 30 05 cd 0d 07 3a  |.drag%=0..0....:|
000011a0  05 e1 0d 07 44 14 dd f2  62 75 74 74 6f 6e 73 28  |....D...buttons(|
000011b0  62 6c 6f 63 6b 29 0d 07  4e 11 69 63 6f 6e 3d 62  |block)..N.icon=b|
000011c0  6c 6f 63 6b 21 31 36 0d  07 58 26 e7 20 62 6c 6f  |lock!16..X&. blo|
000011d0  63 6b 21 31 32 3d 2d 32  20 80 20 62 6c 6f 63 6b  |ck!12=-2 . block|
000011e0  21 38 3d 32 20 f2 6d 65  6e 75 73 3a e1 0d 07 62  |!8=2 .menus:...b|
000011f0  33 e7 20 62 6c 6f 63 6b  21 31 32 3d 2d 32 20 80  |3. block!12=-2 .|
00001200  20 62 6c 6f 63 6b 21 38  3c 3e 32 20 f2 6f 70 65  | block!8<>2 .ope|
00001210  6e 77 69 6e 64 6f 77 28  64 69 73 63 25 29 3a e1  |nwindow(disc%):.|
00001220  0d 07 6c 26 e7 20 62 6c  6f 63 6b 21 31 32 3d 73  |..l&. block!12=s|
00001230  61 76 65 25 20 80 20 62  6c 6f 63 6b 21 31 36 3d  |ave% . block!16=|
00001240  39 20 f2 69 73 64 0d 07  76 36 e7 20 62 6c 6f 63  |9 .isd..v6. bloc|
00001250  6b 21 31 32 3d 73 61 76  65 25 20 80 20 62 6c 6f  |k!12=save% . blo|
00001260  63 6b 21 31 36 3d 38 20  8c 20 f2 73 61 76 65 28  |ck!16=8 . .save(|
00001270  a4 73 74 72 28 73 74 65  78 74 29 29 0d 07 80 28  |.str(stext))...(|
00001280  e7 20 62 6c 6f 63 6b 21  31 32 3d 73 61 76 65 32  |. block!12=save2|
00001290  25 20 80 20 62 6c 6f 63  6b 21 31 36 3d 39 20 f2  |% . block!16=9 .|
000012a0  69 73 64 32 0d 07 8a 39  e7 20 62 6c 6f 63 6b 21  |isd2...9. block!|
000012b0  31 32 3d 73 61 76 65 32  25 20 80 20 62 6c 6f 63  |12=save2% . bloc|
000012c0  6b 21 31 36 3d 38 20 8c  20 f2 73 61 76 65 32 28  |k!16=8 . .save2(|
000012d0  a4 73 74 72 28 73 74 65  78 74 32 29 29 0d 07 94  |.str(stext2))...|
000012e0  2a e7 20 62 6c 6f 63 6b  21 31 32 3d 64 69 73 63  |*. block!12=disc|
000012f0  25 20 80 20 62 6c 6f 63  6b 21 38 3d 32 20 f2 6d  |% . block!8=2 .m|
00001300  65 6e 75 73 32 3a e1 0d  07 9e 05 e1 0d 07 a8 10  |enus2:..........|
00001310  dd f2 70 72 6f 63 65 73  73 6b 65 79 0d 07 b2 31  |..processkey...1|
00001320  e7 20 62 6c 6f 63 6b 21  30 3d 73 61 76 65 25 20  |. block!0=save% |
00001330  80 20 62 6c 6f 63 6b 21  32 34 3d 31 33 20 8c 20  |. block!24=13 . |
00001340  f2 73 61 76 65 28 24 73  74 65 78 74 29 0d 07 bc  |.save($stext)...|
00001350  34 e7 20 62 6c 6f 63 6b  21 30 3d 73 61 76 65 32  |4. block!0=save2|
00001360  25 20 80 20 62 6c 6f 63  6b 21 32 34 3d 31 33 20  |% . block!24=13 |
00001370  8c 20 f2 73 61 76 65 32  28 24 73 74 65 78 74 32  |. .save2($stext2|
00001380  29 0d 07 c6 2f e7 20 62  6c 6f 63 6b 21 30 3d 64  |).../. block!0=d|
00001390  69 73 63 25 20 80 20 62  6c 6f 63 6b 21 32 34 3d  |isc% . block!24=|
000013a0  31 33 20 8c 20 f2 6b 65  79 64 69 73 63 28 31 29  |13 . .keydisc(1)|
000013b0  0d 07 d0 31 e7 20 62 6c  6f 63 6b 21 30 3d 64 69  |...1. block!0=di|
000013c0  73 63 25 20 80 20 62 6c  6f 63 6b 21 32 34 3d 26  |sc% . block!24=&|
000013d0  31 38 45 20 8c 20 f2 6b  65 79 64 69 73 63 28 31  |18E . .keydisc(1|
000013e0  29 0d 07 da 32 e7 20 62  6c 6f 63 6b 21 30 3d 64  |)...2. block!0=d|
000013f0  69 73 63 25 20 80 20 62  6c 6f 63 6b 21 32 34 3d  |isc% . block!24=|
00001400  26 31 38 46 20 8c 20 f2  6b 65 79 64 69 73 63 28  |&18F . .keydisc(|
00001410  2d 31 29 0d 07 e4 21 c8  99 20 22 57 69 6d 70 5f  |-1)...!.. "Wimp_|
00001420  50 72 6f 63 65 73 73 4b  65 79 22 2c 62 6c 6f 63  |ProcessKey",bloc|
00001430  6b 21 32 34 0d 07 ee 05  e1 0d 07 f8 0b dd f2 6d  |k!24...........m|
00001440  65 6e 75 73 0d 08 02 10  6d 65 6e 75 6f 70 65 6e  |enus....menuopen|
00001450  3d 2d 34 34 0d 08 0c 11  6d 65 6e 75 70 74 72 3d  |=-44....menuptr=|
00001460  6d 65 6e 75 25 0d 08 16  0c c8 97 20 78 2c 79 2c  |menu%...... x,y,|
00001470  62 0d 08 20 45 74 6f 70  6d 65 6e 75 25 3d a4 6d  |b.. Etopmenu%=.m|
00001480  65 6e 75 28 22 41 4d 46  4c 61 62 65 6c 22 2c 31  |enu("AMFLabel",1|
00001490  35 30 2c 22 5b 77 2f 69  6e 66 6f 25 5d 49 6e 66  |50,"[w/info%]Inf|
000014a0  6f 2c 5b 77 2f 73 61 76  65 25 5d 53 61 76 65 2c  |o,[w/save%]Save,|
000014b0  51 75 69 74 22 29 0d 08  2a 17 f2 6f 70 65 6e 6d  |Quit")..*..openm|
000014c0  65 6e 75 28 78 2d 37 35  2c 32 34 30 29 0d 08 34  |enu(x-75,240)..4|
000014d0  05 e1 0d 08 3e 0c dd f2  6d 65 6e 75 73 32 0d 08  |....>...menus2..|
000014e0  48 10 6d 65 6e 75 6f 70  65 6e 3d 2d 34 35 0d 08  |H.menuopen=-45..|
000014f0  52 11 6d 65 6e 75 70 74  72 3d 6d 65 6e 75 25 0d  |R.menuptr=menu%.|
00001500  08 5c 0c c8 97 20 78 2c  79 2c 62 0d 08 66 3f 73  |.\... x,y,b..f?s|
00001510  61 76 65 6d 65 6e 75 25  3d a4 6d 65 6e 75 28 22  |avemenu%=.menu("|
00001520  53 61 76 65 22 2c 31 35  30 2c 22 5b 77 2f 73 61  |Save",150,"[w/sa|
00001530  76 65 25 5d 4c 61 62 65  6c 2c 5b 77 2f 73 61 76  |ve%]Label,[w/sav|
00001540  65 32 25 5d 54 65 78 74  22 29 0d 08 70 49 74 6f  |e2%]Text")..pIto|
00001550  70 6d 65 6e 75 25 3d a4  6d 65 6e 75 28 22 41 4d  |pmenu%=.menu("AM|
00001560  46 4c 61 62 65 6c 22 2c  31 35 30 2c 22 5b 77 2f  |FLabel",150,"[w/|
00001570  69 6e 66 6f 25 5d 49 6e  66 6f 2c 5b 73 2f 73 61  |info%]Info,[s/sa|
00001580  76 65 6d 65 6e 75 25 5d  53 61 76 65 2c 51 75 69  |vemenu%]Save,Qui|
00001590  74 22 29 0d 08 7a 15 f2  6f 70 65 6e 6d 65 6e 75  |t")..z..openmenu|
000015a0  28 78 2d 37 35 2c 79 29  0d 08 84 05 e1 0d 08 8e  |(x-75,y)........|
000015b0  0c dd f2 64 65 63 6f 64  65 0d 08 98 2e c8 99 20  |...decode...... |
000015c0  22 57 69 6d 70 5f 44 65  63 6f 64 65 4d 65 6e 75  |"Wimp_DecodeMenu|
000015d0  22 2c 2c 74 6f 70 6d 65  6e 75 25 2c 62 6c 6f 63  |",,topmenu%,bloc|
000015e0  6b 2c 69 63 6f 6e 64 0d  08 a2 1f e7 20 24 69 63  |k,icond..... $ic|
000015f0  6f 6e 64 3d 22 51 75 69  74 22 20 8c 20 65 6e 64  |ond="Quit" . end|
00001600  25 3d b9 3a ef 34 0d 08  ac 23 c8 99 20 22 57 69  |%=.:.4...#.. "Wi|
00001610  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00001620  6f 22 2c 2c 62 6c 6f 63  6b 0d 08 b6 11 e7 20 62  |o",,block..... b|
00001630  6c 6f 63 6b 21 38 3d 31  20 8c 0d 08 c0 25 e7 20  |lock!8=1 ....%. |
00001640  6d 65 6e 75 6f 70 65 6e  3d 2d 34 34 20 8c 20 f2  |menuopen=-44 . .|
00001650  6d 65 6e 75 73 20 8b 20  f2 6d 65 6e 75 73 32 0d  |menus . .menus2.|
00001660  08 ca 22 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..".. "Wimp_Crea|
00001670  74 65 4d 65 6e 75 22 2c  2c 74 6f 70 6d 65 6e 75  |teMenu",,topmenu|
00001680  25 0d 08 d4 05 cc 0d 08  de 1c c8 99 20 22 57 69  |%........... "Wi|
00001690  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
000016a0  2d 31 0d 08 e8 05 cd 0d  08 f2 05 e1 0d 08 fc 0e  |-1..............|
000016b0  dd f2 74 65 6d 70 6c 61  74 65 0d 09 06 36 c8 99  |..template...6..|
000016c0  20 22 57 69 6d 70 5f 4f  70 65 6e 54 65 6d 70 6c  | "Wimp_OpenTempl|
000016d0  61 74 65 22 2c 2c 22 3c  41 4d 46 4c 61 62 65 6c  |ate",,"<AMFLabel|
000016e0  24 44 69 72 3e 2e 54 65  6d 70 6c 61 74 65 73 22  |$Dir>.Templates"|
000016f0  0d 09 10 11 69 6e 64 69  72 3d 63 75 72 62 75 66  |....indir=curbuf|
00001700  25 0d 09 1a 1f 69 6e 66  6f 25 3d a4 74 65 6d 70  |%....info%=.temp|
00001710  6c 61 74 65 28 22 50 72  6f 67 49 6e 66 6f 22 29  |late("ProgInfo")|
00001720  0d 09 24 1b 73 61 76 65  25 3d a4 74 65 6d 70 6c  |..$.save%=.templ|
00001730  61 74 65 28 22 53 61 76  65 22 29 0d 09 2e 1d 73  |ate("Save")....s|
00001740  61 76 65 32 25 3d a4 74  65 6d 70 6c 61 74 65 28  |ave2%=.template(|
00001750  22 53 61 76 65 32 22 29  0d 09 38 1b 64 69 73 63  |"Save2")..8.disc|
00001760  25 3d a4 74 65 6d 70 6c  61 74 65 28 22 44 69 73  |%=.template("Dis|
00001770  63 22 29 0d 09 42 1b c8  99 20 22 57 69 6d 70 5f  |c")..B... "Wimp_|
00001780  43 6c 6f 73 65 54 65 6d  70 6c 61 74 65 22 0d 09  |CloseTemplate"..|
00001790  4c 17 73 74 65 78 74 3d  a4 74 61 64 28 73 61 76  |L.stext=.tad(sav|
000017a0  65 25 2c 30 29 0d 09 56  19 73 74 65 78 74 32 3d  |e%,0)..V.stext2=|
000017b0  a4 74 61 64 28 73 61 76  65 32 25 2c 30 29 0d 09  |.tad(save2%,0)..|
000017c0  60 1b 76 65 72 73 69 6f  6e 25 3d a4 74 61 64 28  |`.version%=.tad(|
000017d0  69 6e 66 6f 25 2c 31 32  29 0d 09 6a 05 e1 0d 09  |info%,12)..j....|
000017e0  74 0a dd f2 6d 65 73 73  0d 09 7e 1c 74 61 73 6b  |t...mess..~.task|
000017f0  3d 62 6c 6f 63 6b 21 34  3a 72 65 66 3d 62 6c 6f  |=block!4:ref=blo|
00001800  63 6b 21 38 0d 09 88 11  c8 8e 20 62 6c 6f 63 6b  |ck!8...... block|
00001810  21 31 36 20 ca 0d 09 92  0e c9 20 30 3a 65 6e 64  |!16 ...... 0:end|
00001820  25 3d b9 0d 09 9c 08 c9  20 32 3a 0d 09 a6 12 e7  |%=...... 2:.....|
00001830  20 73 61 76 69 6e 67 25  3d 2d 31 20 8c 0d 09 b0  | saving%=-1 ....|
00001840  19 f2 73 61 76 65 28 a4  73 74 72 28 62 6c 6f 63  |..save(.str(bloc|
00001850  6b 2b 34 34 29 29 0d 09  ba 05 cd 0d 09 c4 12 e7  |k+44))..........|
00001860  20 73 61 76 69 6e 67 25  3d 2d 32 20 8c 0d 09 ce  | saving%=-2 ....|
00001870  1a f2 73 61 76 65 32 28  a4 73 74 72 28 62 6c 6f  |..save2(.str(blo|
00001880  63 6b 2b 34 34 29 29 0d  09 d8 05 cd 0d 09 e2 08  |ck+44)).........|
00001890  c9 20 33 3a 0d 09 ec 18  6c 6f 61 64 24 3d a4 73  |. 3:....load$=.s|
000018a0  74 72 28 62 6c 6f 63 6b  2b 34 34 29 0d 09 f6 15  |tr(block+44)....|
000018b0  e7 20 62 6c 6f 63 6b 21  34 30 3d 26 46 46 44 20  |. block!40=&FFD |
000018c0  8c 0d 0a 00 31 ea 20 85  3a ee 20 85 20 ea 20 f2  |....1. .:. . . .|
000018d0  6d 6f 61 6e 28 22 43 6f  75 6c 64 6e 27 74 20 6c  |moan("Couldn't l|
000018e0  6f 61 64 20 3a 20 22 2b  f6 24 29 3a e5 20 8d 54  |oad : "+.$):. .T|
000018f0  68 4a 0d 0a 0a 15 c8 99  20 22 48 6f 75 72 67 6c  |hJ...... "Hourgl|
00001900  61 73 73 5f 4f 6e 22 0d  0a 14 0d f2 6c 6f 61 64  |ass_On".....load|
00001910  66 69 6c 65 0d 0a 1e 16  c8 99 20 22 48 6f 75 72  |file...... "Hour|
00001920  67 6c 61 73 73 5f 4f 66  66 22 0d 0a 28 07 f7 20  |glass_Off"..(.. |
00001930  85 0d 0a 32 05 cd 0d 0a  3c 0e c9 20 34 3a 61 63  |...2....<.. 4:ac|
00001940  6b 25 3d a3 0d 0a 46 05  cb 0d 0a 50 05 e1 0d 0a  |k%=...F....P....|
00001950  5a 0b dd f2 63 6d 65 6e  75 0d 0a 64 23 c8 99 20  |Z...cmenu..d#.. |
00001960  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00001970  49 6e 66 6f 22 2c 2c 69  63 6f 6e 64 0d 0a 6e 11  |Info",,icond..n.|
00001980  e7 20 69 63 6f 6e 64 21  38 3d 31 20 8c 0d 0a 78  |. icond!8=1 ...x|
00001990  1a e7 20 6d 65 6e 75 6f  70 65 6e 3d 2d 34 34 20  |.. menuopen=-44 |
000019a0  8c 20 f2 6d 65 6e 75 0d  0a 82 22 c8 99 20 22 57  |. .menu...".. "W|
000019b0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
000019c0  2c 74 6f 70 6d 65 6e 75  25 0d 0a 8c 05 cc 0d 0a  |,topmenu%.......|
000019d0  96 1c c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.... "Wimp_Creat|
000019e0  65 4d 65 6e 75 22 2c 2c  2d 31 0d 0a a0 05 cd 0d  |eMenu",,-1......|
000019f0  0a aa 05 e1 0d 0a b4 0e  dd f2 73 61 76 65 28 61  |..........save(a|
00001a00  24 29 0d 0a be 5c e7 20  a7 61 24 2c 22 2e 22 29  |$)...\. .a$,".")|
00001a10  3c 31 20 80 20 a7 61 24  2c 22 3a 22 29 3c 31 20  |<1 . .a$,":")<1 |
00001a20  8c 20 f2 6d 6f 61 6e 28  22 54 6f 20 73 61 76 65  |. .moan("To save|
00001a30  2c 20 64 72 61 67 20 74  68 65 20 73 61 76 65 20  |, drag the save |
00001a40  69 63 6f 6e 20 74 6f 20  61 20 64 69 72 65 63 74  |icon to a direct|
00001a50  6f 72 79 20 76 69 65 77  65 72 22 29 3a e1 0d 0a  |ory viewer"):...|
00001a60  c8 07 ea 20 85 0d 0a d2  36 ee 20 85 20 ea 20 f2  |... ....6. . . .|
00001a70  6d 6f 61 6e 28 22 43 6f  75 6c 64 6e 27 74 20 73  |moan("Couldn't s|
00001a80  61 76 65 20 3a 20 22 2b  f6 24 2b 22 20 22 2b c3  |ave : "+.$+" "+.|
00001a90  28 9e 29 29 3a e5 20 8d  44 54 4b 0d 0a dc 0c 73  |(.)):. .DTK....s|
00001aa0  61 76 65 24 3d 61 24 0d  0a e6 0e 66 69 6c 65 3d  |ave$=a$....file=|
00001ab0  ae 28 61 24 29 0d 0a f0  1a f1 23 66 69 6c 65 2c  |.(a$).....#file,|
00001ac0  22 65 6c 69 46 20 6c 65  62 61 4c 46 4d 41 22 0d  |"eliF lebaLFMA".|
00001ad0  0a fa 0f e3 20 49 25 3d  31 20 b8 20 31 36 0d 0b  |.... I%=1 . 16..|
00001ae0  04 1c f1 23 66 69 6c 65  2c 24 a4 74 61 64 28 64  |...#file,$.tad(d|
00001af0  69 73 63 25 2c 49 25 2b  31 29 0d 0b 0e 05 ed 0d  |isc%,I%+1)......|
00001b00  0b 18 15 f1 23 66 69 6c  65 2c 22 64 65 68 73 69  |....#file,"dehsi|
00001b10  6e 69 46 22 0d 0b 22 0a  d9 23 66 69 6c 65 0d 0b  |niF".."..#file..|
00001b20  2c 1b ff 28 22 53 45 54  54 59 50 45 20 22 2b 61  |,..("SETTYPE "+a|
00001b30  24 2b 22 20 46 46 44 22  29 0d 0b 36 0a f2 63 6d  |$+" FFD")..6..cm|
00001b40  65 6e 75 0d 0b 40 10 24  73 74 65 78 74 3d 73 61  |enu..@.$stext=sa|
00001b50  76 65 24 0d 0b 4a 0e 6d  6f 64 69 66 69 65 64 3d  |ve$..J.modified=|
00001b60  30 0d 0b 54 07 f7 20 85  0d 0b 5e 05 e1 0d 0b 68  |0..T.. ...^....h|
00001b70  0f dd f2 73 61 76 65 32  28 61 24 29 0d 0b 72 5c  |...save2(a$)..r\|
00001b80  e7 20 a7 61 24 2c 22 2e  22 29 3c 31 20 80 20 a7  |. .a$,".")<1 . .|
00001b90  61 24 2c 22 3a 22 29 3c  31 20 8c 20 f2 6d 6f 61  |a$,":")<1 . .moa|
00001ba0  6e 28 22 54 6f 20 73 61  76 65 2c 20 64 72 61 67  |n("To save, drag|
00001bb0  20 74 68 65 20 73 61 76  65 20 69 63 6f 6e 20 74  | the save icon t|
00001bc0  6f 20 61 20 64 69 72 65  63 74 6f 72 79 20 76 69  |o a directory vi|
00001bd0  65 77 65 72 22 29 3a e1  0d 0b 7c 07 ea 20 85 0d  |ewer"):...|.. ..|
00001be0  0b 86 36 ee 20 85 20 ea  20 f2 6d 6f 61 6e 28 22  |..6. . . .moan("|
00001bf0  43 6f 75 6c 64 6e 27 74  20 73 61 76 65 20 3a 20  |Couldn't save : |
00001c00  22 2b f6 24 2b 22 20 22  2b c3 28 9e 29 29 3a e5  |"+.$+" "+.(.)):.|
00001c10  20 8d 64 6a 4b 0d 0b 90  0c 73 61 76 65 24 3d 61  | .djK....save$=a|
00001c20  24 0d 0b 9a 0e 66 69 6c  65 3d ae 28 61 24 29 0d  |$....file=.(a$).|
00001c30  0b a4 0f e3 20 49 25 3d  31 20 b8 20 31 36 0d 0b  |.... I%=1 . 16..|
00001c40  ae 1c d5 23 66 69 6c 65  2c 24 a4 74 61 64 28 64  |...#file,$.tad(d|
00001c50  69 73 63 25 2c 49 25 2b  31 29 0d 0b b8 05 ed 0d  |isc%,I%+1)......|
00001c60  0b c2 0a d9 23 66 69 6c  65 0d 0b cc 1b ff 28 22  |....#file.....("|
00001c70  53 45 54 54 59 50 45 20  22 2b 61 24 2b 22 20 46  |SETTYPE "+a$+" F|
00001c80  46 46 22 29 0d 0b d6 0a  f2 63 6d 65 6e 75 0d 0b  |FF").....cmenu..|
00001c90  e0 11 24 73 74 65 78 74  32 3d 73 61 76 65 24 0d  |..$stext2=save$.|
00001ca0  0b ea 07 f7 20 85 0d 0b  f4 05 e1 0d 0b fe 0b dd  |.... ...........|
00001cb0  f2 63 68 65 63 6b 0d 0c  08 28 e7 20 24 a4 74 61  |.check...(. $.ta|
00001cc0  64 28 69 6e 66 6f 25 2c  39 29 3c 3e 22 a9 20 41  |d(info%,9)<>". A|
00001cd0  4d 46 73 6f 66 74 20 31  39 39 31 22 20 8c 0d 0c  |MFsoft 1991" ...|
00001ce0  12 1a f2 6d 6f 61 6e 28  22 50 61 78 20 56 6f 62  |...moan("Pax Vob|
00001cf0  69 73 63 75 6d 2e 22 29  0d 0c 1c 05 e0 0d 0c 26  |iscum.").......&|
00001d00  05 cd 0d 0c 30 05 e1 0d  0c 3a 0e dd f2 6c 6f 61  |....0....:...loa|
00001d10  64 66 69 6c 65 0d 0c 44  07 ea 20 85 0d 0c 4e 36  |dfile..D.. ...N6|
00001d20  ee 20 85 20 ea 20 f2 6d  6f 61 6e 28 22 43 6f 75  |. . . .moan("Cou|
00001d30  6c 64 6e 27 74 20 6c 6f  61 64 20 3a 20 22 2b f6  |ldn't load : "+.|
00001d40  24 2b 22 20 22 2b c3 28  9e 29 29 3a e5 20 8d 74  |$+" "+.(.)):. .t|
00001d50  72 4c 0d 0c 58 11 66 69  6c 65 3d 8e 28 6c 6f 61  |rL..X.file=.(loa|
00001d60  64 24 29 0d 0c 62 42 e8  23 66 69 6c 65 2c 73 74  |d$)..bB.#file,st|
00001d70  61 72 74 24 3a e7 20 73  74 61 72 74 24 3c 3e 22  |art$:. start$<>"|
00001d80  65 6c 69 46 20 6c 65 62  61 4c 46 4d 41 22 20 8c  |eliF lebaLFMA" .|
00001d90  20 85 20 31 32 33 2c 22  46 69 6c 65 20 63 6f 72  | . 123,"File cor|
00001da0  72 75 70 74 22 0d 0c 6c  0f e3 20 49 25 3d 31 20  |rupt"..l.. I%=1 |
00001db0  b8 20 31 36 0d 0c 76 10  e8 23 66 69 6c 65 2c 64  |. 16..v..#file,d|
00001dc0  61 74 61 24 0d 0c 80 1b  24 a4 74 61 64 28 64 69  |ata$....$.tad(di|
00001dd0  73 63 25 2c 49 25 2b 31  29 3d 64 61 74 61 24 0d  |sc%,I%+1)=data$.|
00001de0  0c 8a 1a f2 61 6c 74 65  72 28 64 69 73 63 25 2c  |....alter(disc%,|
00001df0  49 25 2b 31 2c 30 2c 30  29 0d 0c 94 05 ed 0d 0c  |I%+1,0,0).......|
00001e00  9e 39 e8 23 66 69 6c 65  2c 65 6e 64 24 3a e7 20  |.9.#file,end$:. |
00001e10  65 6e 64 24 3c 3e 22 64  65 68 73 69 6e 69 46 22  |end$<>"dehsiniF"|
00001e20  20 8c 20 85 20 31 32 33  2c 22 46 69 6c 65 20 63  | . . 123,"File c|
00001e30  6f 72 72 75 70 74 22 0d  0c a8 0a d9 23 66 69 6c  |orrupt".....#fil|
00001e40  65 0d 0c b2 07 f7 20 85  0d 0c bc 05 e1 0d 0c c6  |e..... .........|
00001e50  12 dd f2 6b 65 79 64 69  73 63 28 76 61 6c 29 0d  |...keydisc(val).|
00001e60  0c d0 10 69 63 6f 6e 3d  62 6c 6f 63 6b 21 34 0d  |...icon=block!4.|
00001e70  0c da 25 c8 99 20 22 57  69 6d 70 5f 47 65 74 43  |..%.. "Wimp_GetC|
00001e80  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 2c 69  |aretPosition",,i|
00001e90  63 6f 6e 64 0d 0c e4 0d  69 63 6f 6e 2b 3d 76 61  |cond....icon+=va|
00001ea0  6c 0d 0c ee 16 e7 20 69  63 6f 6e 3d 31 38 20 8c  |l..... icon=18 .|
00001eb0  20 69 63 6f 6e 3d 32 0d  0c f8 16 e7 20 69 63 6f  | icon=2..... ico|
00001ec0  6e 3d 31 20 8c 20 69 63  6f 6e 3d 31 37 0d 0d 02  |n=1 . icon=17...|
00001ed0  11 6f 6c 65 6e 3d 62 6c  6f 63 6b 21 32 30 0d 0d  |.olen=block!20..|
00001ee0  0c 38 61 24 3d 24 a4 74  61 64 28 64 69 73 63 25  |.8a$=$.tad(disc%|
00001ef0  2c 69 63 6f 6e 29 3a 6c  65 6e 3d a9 28 61 24 29  |,icon):len=.(a$)|
00001f00  3a e7 20 6c 65 6e 3e 6f  6c 65 6e 20 8c 20 6c 65  |:. len>olen . le|
00001f10  6e 3d 6f 6c 65 6e 0d 0d  16 34 c8 99 20 22 57 69  |n=olen...4.. "Wi|
00001f20  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00001f30  69 6f 6e 22 2c 64 69 73  63 25 2c 69 63 6f 6e 2c  |ion",disc%,icon,|
00001f40  30 2c 30 2c 2d 31 2c 6c  65 6e 0d 0d 20 05 e1 0d  |0,0,-1,len.. ...|
00001f50  0d 2a 1b dd f2 73 65 74  63 61 72 65 74 28 77 69  |.*...setcaret(wi|
00001f60  6e 64 25 2c 69 63 6f 6e  25 29 0d 0d 34 47 c8 99  |nd%,icon%)..4G..|
00001f70  20 22 57 69 6d 70 5f 53  65 74 43 61 72 65 74 50  | "Wimp_SetCaretP|
00001f80  6f 73 69 74 69 6f 6e 22  2c 77 69 6e 64 25 2c 69  |osition",wind%,i|
00001f90  63 6f 6e 25 2c 30 2c 30  2c 2d 31 2c a9 28 24 a4  |con%,0,0,-1,.($.|
00001fa0  74 61 64 28 77 69 6e 64  25 2c 69 63 6f 6e 25 29  |tad(wind%,icon%)|
00001fb0  29 0d 0d 3e 05 e1 0d ff                           |)..>....|
00001fb8