� >$.!Keys.!RunImage
3� Main program code for RISCOS Keys application
0� Version 1.01 Last Update 15/02/91 ARI 2.00
(� � Andrew Flintham 1990
2�
<:
F7� block &1000, menu% 1024,curbuf% &1000,icond &1000
P:
Zendbuf%=curbuf%+&6000
d@ș "Wimp_Initialise",200,&4B534154,"Keys" � version%,mytask%
n
�template
x $version%="1.01 (15-Feb-91)"
�@initic=�iconbar(%11010,-1,7,0,"!Keys"+�13,0,0,0,3,0,0,68,68)
�Dend%=�:drag%=0:saving%=0:ack%=�:keypos=-1:keytouse=-1:modified=0
�
�check
�-�open(hotkeys%,-1024,-1024,-700,-700,0,0)
��loaddefaults
�:
��
�Z� keypos<>-1 � ș "Wimp_Poll",0,block � eventcode � ș "Wimp_Poll",1,block � eventcode
�� keypos<>-1 � �addletter
�Ȏ eventcode �
�� 0:
�-� 1:ș "Wimp_RedrawWindow",,block � more%
�#� 2:ș "Wimp_OpenWindow",,block

$� 3:ș "Wimp_CloseWindow",,block

� 6:�buttons(block)


� 7:�drag

"� 8:�processkey

,� 9:�decode

6� 17,18:�mess

@�

J
� end%

T�

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

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

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

|ș "Wimp_OpenWindow",,block

��

�Kݤ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
0(ș "Wimp_ReportError",icond,1,"Keys"
:�
D
ݤstr(a%)
N� b$
Xȕ ?a%>=32
bb$+=�(?a%)
l	a%+=1
v�
�=b$
�ݤtad(handle,icon)
��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
*�
4��state(wi,ic)
>!block=wi:block!4=ic
H!ș "Wimp_GetIconState",,block
R�
\ݤselect(wi,ic)
f�state(wi,ic)
p"� ((block!24) � 1<<21)>0 � =-1
z=0
�
ݤbit(a$)
�ȕ �a$,":")>0
�a$=�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
8menuptr?15=0
Bmenuptr!16=width
Lmenuptr!20=48
Vmenuptr!24=0
`menuptr+=28
j�
t�item(menu$)
~menu$=�menu$,�menu$,",")+1)
�menuptr+=24
�� 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$)
2 � �j$,"s")>0 � submenu=�(i$)
<$� �j$,"t")>0 � mflags=mflags � 1
F$� �j$,"l")>0 � mflags=mflags � 2
P!menuptr=mflags
Zmenuptr!4=submenu
dmenuptr!8=iflags
n$(menuptr+12)=m$
x�
�	��isd
�!block=save%
�#ș "Wimp_GetWindowState",,block
�ysize%=block!16-block!8
�#x%=block!4:y%=block!8:block!4=7
�!ș "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
��
�
��drag
� saving%=-1 �
#ș "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
6)� I=0 � 255:� I?stext<32 � I?stext=13
@�
J)$(block+44)=�bit($stext)+�0:!block=60
T+ș "Wimp_SendMessage",17,block,block!20
^drag%=0
h�
r�
|��buttons(block)
�&� block!12=-2 � block!8=2 �menus:�
�3� block!12=-2 � block!8<>2 �openwindow(keys%):�
� � block!12=keys% modified=-1
�&� block!12=save% � block!16=7 �isd
�7� block!12=save% � block!16=10 � �save(�str(stext))
��
���processkey
�1� block!0=save% � block!24=13 � �save($stext)
�:� block!0=preferences% � block!24=13 � �preferenceskey
�� block!24=&180 �key(0)
�9� block!24>&180 � block!24<&18A �key((block!24)-&180)
�<� block!24>&1C9 � block!24<&1CC �key((block!24)-&1CA+10)
�� block!24=&1B0 �key(0)
9� block!24>&1B0 � block!24<&1BA �key((block!24)-&1B0)
<� block!24>&1F9 � block!24<&1FC �key((block!24)-&1FA+10)
!ș "Wimp_ProcessKey",block!24
&�
0��menus
:menuopen=-44
Dmenuptr=menu%
Nȗ x,y,b
XMtopmenu%=�menu("Keys",200,"[w/info%]Info,Preferences,[w/save%]Save,Quit")
b�openmenu(x-75,288)
l�
v��decode
�.ș "Wimp_DecodeMenu",,topmenu%,block,icond
�� $icond="Quit" � end%=�:�4
�6� $icond="Preferences" � �openwindow(preferences%)
�#ș "Wimp_GetPointerInfo",,block
�� block!8=1 �
�� menuopen=-44 � �menus
�"ș "Wimp_CreateMenu",,topmenu%
��
�ș "Wimp_CreateMenu",,-1
��
��
���template
�1ș "Wimp_OpenTemplate",,"<Key$Dir>.Templates"
indir=curbuf%
info%=�template("ProgInfo")
save%=�template("Save")
 )preferences%=�template("Preferences")
*!hotkeys%=�template("HotKeys")
4keys%=�template("Keys")
>ș "Wimp_CloseTemplate"
Hstext=�tad(save%,6)
Rversion%=�tad(info%,12)
\�
f
��mess
ptask=block!4:ref=block!8
zȎ block!16 �
�� 0:end%=�
�� 2:
�� saving%=-1 �
��save(�str(block+44))
��
�� 3:
�load$=�str(block+44)
�-� block!20=preferences% � block!40=&FFD �
�$�tad(preferences%,3)=load$
��preferenceskey
��
��
�� block!40=&FFD �
	1� �:� � � �moan("Couldn't load : "+�$):� �TnI
	ș "Hourglass_On"
	
�loadfile
	$ș "Hourglass_Off"
	.� �
	8�
	B� 4:ack%=�
	L�
	V�
	`��cmenu
	j#ș "Wimp_GetPointerInfo",,icond
	t� icond!8=1 �
	~� 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 : "+�$+" "+�(�)):� �DnJ
	�save$=a$
	�file=�(a$)
	��#file,"elif syeK"
� I%=0 � 11

�#file,�select(keys%,39+I%)
�#file,$�tad(keys%,79+I%)
�
(
�#file
2�("SETTYPE "+a$+" FFD")
<
�cmenu
F$stext=save$
Pmodified=0
Z-!icond=keys%:ș "Wimp_CloseWindow",,icond
d�openwindow(keys%)
n� �
x�
���check
�(� $�tad(info%,9)<>"� AMFsoft 1991" �
�k�moan("I don't think AMFsoft would be very pleased if they saw their work being ripped off like this.")
��
��
��
���loadfile
�#� modified=-1 � � �loadover � �
�� �
�,� � � �moan("Corrupt keys file."):� �DhK
�file=�(load$)
��#file,start$
�0� start$<>"elif syeK" � � 0,"Bad start code"
� I%=0 � 11
�#file,set
L� set=-1 � �alter(keys%,39+I%,1<<21,1<<21) � �alter(keys%,39+I%,0,1<<21)
"�#file,code$
,$�tad(keys%,79+I%)=code$
6�
@� #file
J-!icond=keys%:ș "Wimp_CloseWindow",,icond
T�openwindow(keys%)
^modified=0
h� �
r�
|��key(keyno)
�com$=$�tad(keys%,79+keyno)
�� com$="" � �
�� �select(keys%,39+keyno) �
��("WimpTask "+com$)
��
��
�� keypos<>-1 � �
�keypos=1:keytouse=keyno
��
���addletter
�!com$=$�tad(keys%,79+keytouse)
�+ș "Wimp_ProcessKey",�(�com$,keypos,1))
�
keypos+=1
 � keypos>�(com$) � keypos=-1
�
��savedefaults
&� �
06� � � �moan("Couldn't save defaults : "+�$):� �DbL
: file=�("<Key$Dir>.Defaults")
D�#file,"stluafeD syeK"
N �#file,$�tad(preferences%,3)
X� #file
b� �
l�
v��preferenceskey
��savedefaults
�4!icond=preferences%:ș "Wimp_CloseWindow",,icond
��
�ݤloadover
�!icond=255
�D$(icond+4)="This data has not been saved.Should I load over it?"
�1ș "Wimp_ReportError",icond,3,"Keys" � ,click
�� click=2 � =-1
�=0
���loaddefaults
�file$=""
�� �
�8� � � �moan("Can't load defaults file : "+�$):� �D\M

$defaults=�("<Key$Dir>.Defaults")

�#defaults,start$

�#defaults,file$

 G� start$<>"stluafeD syeK" � �#defaults:� 42,"Corrupt defaults file"

*�#defaults

4$�tad(preferences%,3)=file$

>� �

H'� file$<>"" � load$=file$:�loadfile

R�

\� �

f!icond=255

pQ$(icond+4)="As the defaults file cannot be loaded,should I create a new one?"

z1ș "Wimp_ReportError",icond,3,"Keys" � ,click

�� click=2 � �

�� �

�>� � � �moan("Can't create new defaults file : "+�$):� �d^M

�$defaults=�("<Key$Dir>.Defaults")

��#defaults,"stluafeD syeK"

��#defaults,""

�� #defaults

�� �

��

�� �

�>�moan("Help! Something is going seriously wrong with me!")

��
�

00000000  0d 00 0a 18 f4 20 3e 24  2e 21 4b 65 79 73 2e 21  |..... >$.!Keys.!|
00000010  52 75 6e 49 6d 61 67 65  0d 00 14 33 f4 20 4d 61  |RunImage...3. Ma|
00000020  69 6e 20 70 72 6f 67 72  61 6d 20 63 6f 64 65 20  |in program code |
00000030  66 6f 72 20 52 49 53 43  4f 53 20 4b 65 79 73 20  |for RISCOS Keys |
00000040  61 70 70 6c 69 63 61 74  69 6f 6e 0d 00 1e 30 f4  |application...0.|
00000050  20 56 65 72 73 69 6f 6e  20 31 2e 30 31 20 4c 61  | Version 1.01 La|
00000060  73 74 20 55 70 64 61 74  65 20 31 35 2f 30 32 2f  |st Update 15/02/|
00000070  39 31 20 41 52 49 20 32  2e 30 30 0d 00 28 1c f4  |91 ARI 2.00..(..|
00000080  20 a9 20 41 6e 64 72 65  77 20 46 6c 69 6e 74 68  | . Andrew Flinth|
00000090  61 6d 20 31 39 39 30 0d  00 32 05 f4 0d 00 3c 05  |am 1990..2....<.|
000000a0  3a 0d 00 46 37 de 20 62  6c 6f 63 6b 20 26 31 30  |:..F7. block &10|
000000b0  30 30 2c 20 6d 65 6e 75  25 20 31 30 32 34 2c 63  |00, menu% 1024,c|
000000c0  75 72 62 75 66 25 20 26  31 30 30 30 2c 69 63 6f  |urbuf% &1000,ico|
000000d0  6e 64 20 26 31 30 30 30  0d 00 50 05 3a 0d 00 5a  |nd &1000..P.:..Z|
000000e0  19 65 6e 64 62 75 66 25  3d 63 75 72 62 75 66 25  |.endbuf%=curbuf%|
000000f0  2b 26 36 30 30 30 0d 00  64 40 c8 99 20 22 57 69  |+&6000..d@.. "Wi|
00000100  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 32  |mp_Initialise",2|
00000110  30 30 2c 26 34 42 35 33  34 31 35 34 2c 22 4b 65  |00,&4B534154,"Ke|
00000120  79 73 22 20 b8 20 76 65  72 73 69 6f 6e 25 2c 6d  |ys" . version%,m|
00000130  79 74 61 73 6b 25 0d 00  6e 0d f2 74 65 6d 70 6c  |ytask%..n..templ|
00000140  61 74 65 0d 00 78 20 24  76 65 72 73 69 6f 6e 25  |ate..x $version%|
00000150  3d 22 31 2e 30 31 20 28  31 35 2d 46 65 62 2d 39  |="1.01 (15-Feb-9|
00000160  31 29 22 0d 00 82 40 69  6e 69 74 69 63 3d a4 69  |1)"...@initic=.i|
00000170  63 6f 6e 62 61 72 28 25  31 31 30 31 30 2c 2d 31  |conbar(%11010,-1|
00000180  2c 37 2c 30 2c 22 21 4b  65 79 73 22 2b bd 31 33  |,7,0,"!Keys"+.13|
00000190  2c 30 2c 30 2c 30 2c 33  2c 30 2c 30 2c 36 38 2c  |,0,0,0,3,0,0,68,|
000001a0  36 38 29 0d 00 8c 44 65  6e 64 25 3d a3 3a 64 72  |68)...Dend%=.:dr|
000001b0  61 67 25 3d 30 3a 73 61  76 69 6e 67 25 3d 30 3a  |ag%=0:saving%=0:|
000001c0  61 63 6b 25 3d a3 3a 6b  65 79 70 6f 73 3d 2d 31  |ack%=.:keypos=-1|
000001d0  3a 6b 65 79 74 6f 75 73  65 3d 2d 31 3a 6d 6f 64  |:keytouse=-1:mod|
000001e0  69 66 69 65 64 3d 30 0d  00 96 0a f2 63 68 65 63  |ified=0.....chec|
000001f0  6b 0d 00 a0 2d f2 6f 70  65 6e 28 68 6f 74 6b 65  |k...-.open(hotke|
00000200  79 73 25 2c 2d 31 30 32  34 2c 2d 31 30 32 34 2c  |ys%,-1024,-1024,|
00000210  2d 37 30 30 2c 2d 37 30  30 2c 30 2c 30 29 0d 00  |-700,-700,0,0)..|
00000220  aa 11 f2 6c 6f 61 64 64  65 66 61 75 6c 74 73 0d  |...loaddefaults.|
00000230  00 b4 05 3a 0d 00 be 05  f5 0d 00 c8 5a e7 20 6b  |...:........Z. k|
00000240  65 79 70 6f 73 3c 3e 2d  31 20 8c 20 c8 99 20 22  |eypos<>-1 . .. "|
00000250  57 69 6d 70 5f 50 6f 6c  6c 22 2c 30 2c 62 6c 6f  |Wimp_Poll",0,blo|
00000260  63 6b 20 b8 20 65 76 65  6e 74 63 6f 64 65 20 8b  |ck . eventcode .|
00000270  20 c8 99 20 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  | .. "Wimp_Poll",|
00000280  31 2c 62 6c 6f 63 6b 20  b8 20 65 76 65 6e 74 63  |1,block . eventc|
00000290  6f 64 65 0d 00 d2 1d e7  20 6b 65 79 70 6f 73 3c  |ode..... keypos<|
000002a0  3e 2d 31 20 8c 20 f2 61  64 64 6c 65 74 74 65 72  |>-1 . .addletter|
000002b0  0d 00 dc 12 c8 8e 20 65  76 65 6e 74 63 6f 64 65  |...... eventcode|
000002c0  20 ca 0d 00 e6 08 c9 20  30 3a 0d 00 f0 2d c9 20  | ...... 0:...-. |
000002d0  31 3a c8 99 20 22 57 69  6d 70 5f 52 65 64 72 61  |1:.. "Wimp_Redra|
000002e0  77 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 20  |wWindow",,block |
000002f0  b8 20 6d 6f 72 65 25 0d  00 fa 23 c9 20 32 3a c8  |. more%...#. 2:.|
00000300  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00000310  6f 77 22 2c 2c 62 6c 6f  63 6b 0d 01 04 24 c9 20  |ow",,block...$. |
00000320  33 3a c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |3:.. "Wimp_Close|
00000330  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 0d 01  |Window",,block..|
00000340  0e 17 c9 20 36 3a f2 62  75 74 74 6f 6e 73 28 62  |... 6:.buttons(b|
00000350  6c 6f 63 6b 29 0d 01 18  0d c9 20 37 3a f2 64 72  |lock)..... 7:.dr|
00000360  61 67 0d 01 22 13 c9 20  38 3a f2 70 72 6f 63 65  |ag..".. 8:.proce|
00000370  73 73 6b 65 79 0d 01 2c  0f c9 20 39 3a f2 64 65  |sskey..,.. 9:.de|
00000380  63 6f 64 65 0d 01 36 11  c9 20 31 37 2c 31 38 3a  |code..6.. 17,18:|
00000390  f2 6d 65 73 73 0d 01 40  05 cb 0d 01 4a 0a fd 20  |.mess..@....J.. |
000003a0  65 6e 64 25 0d 01 54 05  e0 0d 01 5e 34 dd f2 6f  |end%..T....^4..o|
000003b0  70 65 6e 28 68 61 6e 64  6c 65 2c 76 6d 69 6e 78  |pen(handle,vminx|
000003c0  2c 76 6d 69 6e 79 2c 76  6d 61 78 78 2c 76 6d 61  |,vminy,vmaxx,vma|
000003d0  78 79 2c 78 6f 66 66 2c  79 6f 66 66 29 0d 01 68  |xy,xoff,yoff)..h|
000003e0  3c 21 62 6c 6f 63 6b 3d  68 61 6e 64 6c 65 3a 62  |<!block=handle:b|
000003f0  6c 6f 63 6b 21 34 3d 76  6d 69 6e 78 3a 62 6c 6f  |lock!4=vminx:blo|
00000400  63 6b 21 38 3d 76 6d 69  6e 79 3a 62 6c 6f 63 6b  |ck!8=vminy:block|
00000410  21 31 32 3d 76 6d 61 78  78 0d 01 72 3a 62 6c 6f  |!12=vmaxx..r:blo|
00000420  63 6b 21 31 36 3d 76 6d  61 78 79 3a 62 6c 6f 63  |ck!16=vmaxy:bloc|
00000430  6b 21 32 30 3d 78 6f 66  66 3a 62 6c 6f 63 6b 21  |k!20=xoff:block!|
00000440  32 34 3d 79 6f 66 66 3a  62 6c 6f 63 6b 21 32 38  |24=yoff:block!28|
00000450  3d 2d 31 0d 01 7c 1f c8  99 20 22 57 69 6d 70 5f  |=-1..|... "Wimp_|
00000460  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |OpenWindow",,blo|
00000470  63 6b 0d 01 86 05 e1 0d  01 90 4b dd a4 69 63 6f  |ck........K..ico|
00000480  6e 62 61 72 28 66 6c 61  67 73 2c 70 61 72 74 2c  |nbar(flags,part,|
00000490  66 6f 72 2c 62 61 63 2c  64 61 74 61 24 2c 61 64  |for,bac,data$,ad|
000004a0  64 2c 61 64 64 32 2c 6c  65 6e 67 74 68 2c 6d 6f  |d,add2,length,mo|
000004b0  75 73 65 2c 78 73 31 2c  79 73 31 2c 78 73 2c 79  |use,xs1,ys1,xs,y|
000004c0  73 29 0d 01 9a 0f 21 69  63 6f 6e 64 3d 70 61 72  |s)....!icond=par|
000004d0  74 0d 01 a4 0f 69 63 6f  6e 64 21 34 3d 78 73 31  |t....icond!4=xs1|
000004e0  0d 01 ae 27 69 63 6f 6e  64 21 38 3d 79 73 31 3a  |...'icond!8=ys1:|
000004f0  69 63 6f 6e 64 21 31 32  3d 78 73 3a 69 63 6f 6e  |icond!12=xs:icon|
00000500  64 21 31 36 3d 79 73 0d  01 b8 35 69 63 6f 6e 64  |d!16=ys...5icond|
00000510  21 32 30 3d 66 6c 61 67  73 2b 28 28 32 5e 31 32  |!20=flags+((2^12|
00000520  29 2a 6d 6f 75 73 65 29  3a 69 63 6f 6e 64 3f 32  |)*mouse):icond?2|
00000530  33 3d 66 6f 72 2b 62 61  63 2a 31 36 0d 01 c2 50  |3=for+bac*16...P|
00000540  e7 20 64 61 74 61 24 3c  3e 22 22 20 8c 20 24 28  |. data$<>"" . $(|
00000550  69 63 6f 6e 64 2b 32 34  29 3d 64 61 74 61 24 20  |icond+24)=data$ |
00000560  8b 20 69 63 6f 6e 64 21  32 34 3d 61 64 64 3a 69  |. icond!24=add:i|
00000570  63 6f 6e 64 21 32 38 3d  61 64 64 32 3a 69 63 6f  |cond!28=add2:ico|
00000580  6e 64 21 33 32 3d 6c 65  6e 67 74 68 0d 01 cc 26  |nd!32=length...&|
00000590  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |.. "Wimp_CreateI|
000005a0  63 6f 6e 22 2c 2c 69 63  6f 6e 64 20 b8 20 69 63  |con",,icond . ic|
000005b0  6f 6e 0d 01 d6 09 3d 69  63 6f 6e 0d 01 e0 12 dd  |on....=icon.....|
000005c0  a4 74 65 6d 70 6c 61 74  65 28 61 24 29 0d 01 ea  |.template(a$)...|
000005d0  47 c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |G.. "Wimp_LoadTe|
000005e0  6d 70 6c 61 74 65 22 2c  2c 62 6c 6f 63 6b 2c 69  |mplate",,block,i|
000005f0  6e 64 69 72 2c 65 6e 64  62 75 66 25 2c 2d 31 2c  |ndir,endbuf%,-1,|
00000600  61 24 2c 30 20 b8 20 2c  2c 69 6e 64 69 72 2c 2c  |a$,0 . ,,indir,,|
00000610  2c 2c 63 25 0d 01 f4 30  e7 20 63 25 3d 30 20 8c  |,,c%...0. c%=0 .|
00000620  20 ef 34 3a f1 20 22 54  65 6d 70 6c 61 74 65 20  | .4:. "Template |
00000630  22 3b 61 24 3b 22 20 6e  6f 74 20 66 6f 75 6e 64  |";a$;" not found|
00000640  2e 22 3a e0 0d 01 fe 0e  62 6c 6f 63 6b 21 36 34  |.":.....block!64|
00000650  3d 31 0d 02 08 2a c8 99  20 22 57 69 6d 70 5f 43  |=1...*.. "Wimp_C|
00000660  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |reateWindow",,bl|
00000670  6f 63 6b 20 b8 20 68 61  6e 64 6c 65 0d 02 12 0b  |ock . handle....|
00000680  3d 68 61 6e 64 6c 65 0d  02 1c 0e dd f2 6d 6f 61  |=handle......moa|
00000690  6e 28 61 24 29 0d 02 26  1d 21 69 63 6f 6e 64 3d  |n(a$)..&.!icond=|
000006a0  30 3a 24 28 69 63 6f 6e  64 2b 34 29 3d 61 24 2b  |0:$(icond+4)=a$+|
000006b0  bd 30 0d 02 30 28 c8 99  20 22 57 69 6d 70 5f 52  |.0..0(.. "Wimp_R|
000006c0  65 70 6f 72 74 45 72 72  6f 72 22 2c 69 63 6f 6e  |eportError",icon|
000006d0  64 2c 31 2c 22 4b 65 79  73 22 0d 02 3a 05 e1 0d  |d,1,"Keys"..:...|
000006e0  02 44 0d dd a4 73 74 72  28 61 25 29 0d 02 4e 08  |.D...str(a%)..N.|
000006f0  ea 20 62 24 0d 02 58 0e  c8 95 20 3f 61 25 3e 3d  |. b$..X... ?a%>=|
00000700  33 32 0d 02 62 0e 62 24  2b 3d bd 28 3f 61 25 29  |32..b.b$+=.(?a%)|
00000710  0d 02 6c 09 61 25 2b 3d  31 0d 02 76 05 ce 0d 02  |..l.a%+=1..v....|
00000720  80 07 3d 62 24 0d 02 8a  16 dd a4 74 61 64 28 68  |..=b$......tad(h|
00000730  61 6e 64 6c 65 2c 69 63  6f 6e 29 0d 02 94 15 f2  |andle,icon).....|
00000740  67 69 69 28 68 61 6e 64  6c 65 2c 69 63 6f 6e 29  |gii(handle,icon)|
00000750  0d 02 9e 0d 3d 69 63 6f  6e 64 21 32 38 0d 02 a8  |....=icond!28...|
00000760  16 dd f2 67 69 69 28 68  61 6e 64 6c 65 2c 69 63  |...gii(handle,ic|
00000770  6f 6e 29 0d 02 b2 1e 21  69 63 6f 6e 64 3d 68 61  |on)....!icond=ha|
00000780  6e 64 6c 65 3a 69 63 6f  6e 64 21 34 3d 69 63 6f  |ndle:icond!4=ico|
00000790  6e 0d 02 bc 21 c8 99 20  22 57 69 6d 70 5f 47 65  |n...!.. "Wimp_Ge|
000007a0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 69 63 6f  |tIconState",,ico|
000007b0  6e 64 0d 02 c6 05 e1 0d  02 d0 19 dd f2 6f 70 65  |nd...........ope|
000007c0  6e 77 69 6e 64 6f 77 28  68 61 6e 64 6c 65 25 29  |nwindow(handle%)|
000007d0  0d 02 da 12 21 69 63 6f  6e 64 3d 68 61 6e 64 6c  |....!icond=handl|
000007e0  65 25 0d 02 e4 22 c8 99  20 22 57 69 6d 70 5f 47  |e%...".. "Wimp_G|
000007f0  65 74 57 69 6e 64 6f 77  49 6e 66 6f 22 2c 2c 69  |etWindowInfo",,i|
00000800  63 6f 6e 64 0d 02 ee 1f  c8 99 20 22 57 69 6d 70  |cond...... "Wimp|
00000810  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 69 63  |_OpenWindow",,ic|
00000820  6f 6e 64 0d 02 f8 05 e1  0d 03 02 20 dd f2 61 6c  |ond........ ..al|
00000830  74 65 72 28 68 61 6e 64  2c 69 63 6f 6e 2c 65 6f  |ter(hand,icon,eo|
00000840  72 2c 63 6c 65 61 72 29  0d 03 0c 1c 21 69 63 6f  |r,clear)....!ico|
00000850  6e 64 3d 68 61 6e 64 3a  69 63 6f 6e 64 21 34 3d  |nd=hand:icond!4=|
00000860  69 63 6f 6e 0d 03 16 1e  69 63 6f 6e 64 21 38 3d  |icon....icond!8=|
00000870  65 6f 72 3a 69 63 6f 6e  64 21 31 32 3d 63 6c 65  |eor:icond!12=cle|
00000880  61 72 0d 03 20 21 c8 99  20 22 57 69 6d 70 5f 53  |ar.. !.. "Wimp_S|
00000890  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 69 63  |etIconState",,ic|
000008a0  6f 6e 64 0d 03 2a 05 e1  0d 03 34 12 dd f2 73 74  |ond..*....4...st|
000008b0  61 74 65 28 77 69 2c 69  63 29 0d 03 3e 18 21 62  |ate(wi,ic)..>.!b|
000008c0  6c 6f 63 6b 3d 77 69 3a  62 6c 6f 63 6b 21 34 3d  |lock=wi:block!4=|
000008d0  69 63 0d 03 48 21 c8 99  20 22 57 69 6d 70 5f 47  |ic..H!.. "Wimp_G|
000008e0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
000008f0  6f 63 6b 0d 03 52 05 e1  0d 03 5c 13 dd a4 73 65  |ock..R....\...se|
00000900  6c 65 63 74 28 77 69 2c  69 63 29 0d 03 66 11 f2  |lect(wi,ic)..f..|
00000910  73 74 61 74 65 28 77 69  2c 69 63 29 0d 03 70 22  |state(wi,ic)..p"|
00000920  e7 20 28 28 62 6c 6f 63  6b 21 32 34 29 20 80 20  |. ((block!24) . |
00000930  31 3c 3c 32 31 29 3e 30  20 8c 20 3d 2d 31 0d 03  |1<<21)>0 . =-1..|
00000940  7a 06 3d 30 0d 03 84 0d  dd a4 62 69 74 28 61 24  |z.=0......bit(a$|
00000950  29 0d 03 8e 11 c8 95 20  a7 61 24 2c 22 3a 22 29  |)...... .a$,":")|
00000960  3e 30 0d 03 98 16 61 24  3d c1 61 24 2c a7 61 24  |>0....a$=.a$,.a$|
00000970  2c 22 3a 22 29 2b 31 29  0d 03 a2 05 ce 0d 03 ac  |,":")+1)........|
00000980  11 c8 95 20 a7 61 24 2c  22 2e 22 29 3e 30 0d 03  |... .a$,".")>0..|
00000990  b6 16 61 24 3d c1 61 24  2c a7 61 24 2c 22 2e 22  |..a$=.a$,.a$,"."|
000009a0  29 2b 31 29 0d 03 c0 05  ce 0d 03 ca 07 3d 61 24  |)+1).........=a$|
000009b0  0d 03 d4 13 dd f2 6f 70  65 6e 6d 65 6e 75 28 78  |......openmenu(x|
000009c0  2c 79 29 0d 03 de 26 c8  99 20 22 57 69 6d 70 5f  |,y)...&.. "Wimp_|
000009d0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 74 6f 70  |CreateMenu",,top|
000009e0  6d 65 6e 75 25 2c 78 2c  79 0d 03 e8 05 e1 0d 03  |menu%,x,y.......|
000009f0  f2 1e dd a4 6d 65 6e 75  28 74 69 74 6c 65 24 2c  |....menu(title$,|
00000a00  77 69 64 74 68 2c 6d 65  6e 75 24 29 0d 03 fc 0e  |width,menu$)....|
00000a10  6d 65 6e 75 24 2b 3d 22  2c 22 0d 04 06 13 6f 6c  |menu$+=","....ol|
00000a20  64 6d 65 6e 75 3d 6d 65  6e 75 70 74 72 0d 04 10  |dmenu=menuptr...|
00000a30  13 24 6d 65 6e 75 70 74  72 3d 74 69 74 6c 65 24  |.$menuptr=title$|
00000a40  0d 04 1a 10 6d 65 6e 75  70 74 72 3f 31 32 3d 37  |....menuptr?12=7|
00000a50  0d 04 24 10 6d 65 6e 75  70 74 72 3f 31 33 3d 32  |..$.menuptr?13=2|
00000a60  0d 04 2e 10 6d 65 6e 75  70 74 72 3f 31 34 3d 37  |....menuptr?14=7|
00000a70  0d 04 38 10 6d 65 6e 75  70 74 72 3f 31 35 3d 30  |..8.menuptr?15=0|
00000a80  0d 04 42 14 6d 65 6e 75  70 74 72 21 31 36 3d 77  |..B.menuptr!16=w|
00000a90  69 64 74 68 0d 04 4c 11  6d 65 6e 75 70 74 72 21  |idth..L.menuptr!|
00000aa0  32 30 3d 34 38 0d 04 56  10 6d 65 6e 75 70 74 72  |20=48..V.menuptr|
00000ab0  21 32 34 3d 30 0d 04 60  0f 6d 65 6e 75 70 74 72  |!24=0..`.menuptr|
00000ac0  2b 3d 32 38 0d 04 6a 05  f5 0d 04 74 10 f2 69 74  |+=28..j....t..it|
00000ad0  65 6d 28 6d 65 6e 75 24  29 0d 04 7e 1f 6d 65 6e  |em(menu$)..~.men|
00000ae0  75 24 3d c1 6d 65 6e 75  24 2c a7 6d 65 6e 75 24  |u$=.menu$,.menu$|
00000af0  2c 22 2c 22 29 2b 31 29  0d 04 88 0f 6d 65 6e 75  |,",")+1)....menu|
00000b00  70 74 72 2b 3d 32 34 0d  04 92 0e fd 20 6d 65 6e  |ptr+=24..... men|
00000b10  75 24 3d 22 22 0d 04 9c  29 6d 65 6e 75 70 74 72  |u$=""...)menuptr|
00000b20  21 2d 32 34 3d 28 6d 65  6e 75 70 74 72 21 2d 32  |!-24=(menuptr!-2|
00000b30  34 29 20 84 20 25 31 30  30 30 30 30 30 30 0d 04  |4) . %10000000..|
00000b40  a6 0c 3d 6f 6c 64 6d 65  6e 75 0d 04 b0 0e dd f2  |..=oldmenu......|
00000b50  69 74 65 6d 28 6d 24 29  0d 04 ba 16 6d 24 3d c0  |item(m$)....m$=.|
00000b60  6d 24 2c a7 6d 24 2c 22  2c 22 29 2d 31 29 0d 04  |m$,.m$,",")-1)..|
00000b70  c4 0f 69 24 3d 22 22 3a  6a 24 3d 22 22 0d 04 ce  |..i$="":j$=""...|
00000b80  12 e7 20 a7 6d 24 2c 22  5b 22 29 3e 30 20 8c 0d  |.. .m$,"[")>0 ..|
00000b90  04 d8 16 69 24 3d c0 6d  24 2c a7 6d 24 2c 22 5d  |...i$=.m$,.m$,"]|
00000ba0  22 29 2d 31 29 0d 04 e2  16 6d 24 3d c1 6d 24 2c  |")-1)....m$=.m$,|
00000bb0  a7 6d 24 2c 22 5d 22 29  2b 31 29 0d 04 ec 16 6a  |.m$,"]")+1)....j|
00000bc0  24 3d c0 69 24 2c a7 69  24 2c 22 2f 22 29 2d 31  |$=.i$,.i$,"/")-1|
00000bd0  29 0d 04 f6 16 69 24 3d  c1 69 24 2c a7 69 24 2c  |)....i$=.i$,.i$,|
00000be0  22 2f 22 29 2b 31 29 0d  05 00 05 cd 0d 05 0a 14  |"/")+1).........|
00000bf0  69 66 6c 61 67 73 3d 26  30 37 30 30 30 30 32 31  |iflags=&07000021|
00000c00  0d 05 14 0c 6d 66 6c 61  67 73 3d 30 0d 05 1e 0e  |....mflags=0....|
00000c10  73 75 62 6d 65 6e 75 3d  2d 31 0d 05 28 20 e7 20  |submenu=-1..( . |
00000c20  a7 6a 24 2c 22 77 22 29  3e 30 20 8c 20 73 75 62  |.j$,"w")>0 . sub|
00000c30  6d 65 6e 75 3d a0 28 69  24 29 0d 05 32 20 e7 20  |menu=.(i$)..2 . |
00000c40  a7 6a 24 2c 22 73 22 29  3e 30 20 8c 20 73 75 62  |.j$,"s")>0 . sub|
00000c50  6d 65 6e 75 3d a0 28 69  24 29 0d 05 3c 24 e7 20  |menu=.(i$)..<$. |
00000c60  a7 6a 24 2c 22 74 22 29  3e 30 20 8c 20 6d 66 6c  |.j$,"t")>0 . mfl|
00000c70  61 67 73 3d 6d 66 6c 61  67 73 20 84 20 31 0d 05  |ags=mflags . 1..|
00000c80  46 24 e7 20 a7 6a 24 2c  22 6c 22 29 3e 30 20 8c  |F$. .j$,"l")>0 .|
00000c90  20 6d 66 6c 61 67 73 3d  6d 66 6c 61 67 73 20 84  | mflags=mflags .|
00000ca0  20 32 0d 05 50 13 21 6d  65 6e 75 70 74 72 3d 6d  | 2..P.!menuptr=m|
00000cb0  66 6c 61 67 73 0d 05 5a  15 6d 65 6e 75 70 74 72  |flags..Z.menuptr|
00000cc0  21 34 3d 73 75 62 6d 65  6e 75 0d 05 64 14 6d 65  |!4=submenu..d.me|
00000cd0  6e 75 70 74 72 21 38 3d  69 66 6c 61 67 73 0d 05  |nuptr!8=iflags..|
00000ce0  6e 14 24 28 6d 65 6e 75  70 74 72 2b 31 32 29 3d  |n.$(menuptr+12)=|
00000cf0  6d 24 0d 05 78 05 e1 0d  05 82 09 dd f2 69 73 64  |m$..x........isd|
00000d00  0d 05 8c 10 21 62 6c 6f  63 6b 3d 73 61 76 65 25  |....!block=save%|
00000d10  0d 05 96 23 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...#.. "Wimp_Get|
00000d20  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 6c  |WindowState",,bl|
00000d30  6f 63 6b 0d 05 a0 1b 79  73 69 7a 65 25 3d 62 6c  |ock....ysize%=bl|
00000d40  6f 63 6b 21 31 36 2d 62  6c 6f 63 6b 21 38 0d 05  |ock!16-block!8..|
00000d50  aa 23 78 25 3d 62 6c 6f  63 6b 21 34 3a 79 25 3d  |.#x%=block!4:y%=|
00000d60  62 6c 6f 63 6b 21 38 3a  62 6c 6f 63 6b 21 34 3d  |block!8:block!4=|
00000d70  37 0d 05 b4 21 c8 99 20  22 57 69 6d 70 5f 47 65  |7...!.. "Wimp_Ge|
00000d80  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00000d90  63 6b 0d 05 be 23 62 6c  6f 63 6b 21 38 2b 3d 78  |ck...#block!8+=x|
00000da0  25 3a 62 6c 6f 63 6b 21  31 32 2b 3d 79 25 2b 79  |%:block!12+=y%+y|
00000db0  73 69 7a 65 25 0d 05 c8  24 62 6c 6f 63 6b 21 31  |size%...$block!1|
00000dc0  36 2b 3d 78 25 3a 62 6c  6f 63 6b 21 32 30 2b 3d  |6+=x%:block!20+=|
00000dd0  79 25 2b 79 73 69 7a 65  25 0d 05 d2 35 62 6c 6f  |y%+ysize%...5blo|
00000de0  63 6b 21 32 34 3d 30 3a  62 6c 6f 63 6b 21 32 38  |ck!24=0:block!28|
00000df0  3d 30 3a 62 6c 6f 63 6b  21 33 32 3d 31 32 37 39  |=0:block!32=1279|
00000e00  3a 62 6c 6f 63 6b 21 33  36 3d 31 30 32 33 0d 05  |:block!36=1023..|
00000e10  dc 29 21 62 6c 6f 63 6b  3d 30 3a 62 6c 6f 63 6b  |.)!block=0:block|
00000e20  21 34 3d 35 3a 64 72 61  67 25 3d b9 3a 73 61 76  |!4=5:drag%=.:sav|
00000e30  69 6e 67 25 3d 2d 31 0d  05 e6 1c c8 99 20 22 57  |ing%=-1...... "W|
00000e40  69 6d 70 5f 44 72 61 67  42 6f 78 22 2c 2c 62 6c  |imp_DragBox",,bl|
00000e50  6f 63 6b 0d 05 f0 05 e1  0d 05 fa 0a dd f2 64 72  |ock...........dr|
00000e60  61 67 0d 06 04 12 e7 20  73 61 76 69 6e 67 25 3d  |ag..... saving%=|
00000e70  2d 31 20 8c 0d 06 0e 23  c8 99 20 22 57 69 6d 70  |-1 ....#.. "Wimp|
00000e80  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00000e90  2c 2c 62 6c 6f 63 6b 0d  06 18 24 62 6c 6f 63 6b  |,,block...$block|
00000ea0  21 33 32 3d 62 6c 6f 63  6b 21 34 3a 62 6c 6f 63  |!32=block!4:bloc|
00000eb0  6b 21 32 38 3d 21 62 6c  6f 63 6b 0d 06 22 27 62  |k!28=!block.."'b|
00000ec0  6c 6f 63 6b 21 32 34 3d  62 6c 6f 63 6b 21 31 36  |lock!24=block!16|
00000ed0  3a 62 6c 6f 63 6b 21 32  30 3d 62 6c 6f 63 6b 21  |:block!20=block!|
00000ee0  31 32 0d 06 2c 2f 62 6c  6f 63 6b 21 31 36 3d 31  |12..,/block!16=1|
00000ef0  3a 62 6c 6f 63 6b 21 31  32 3d 30 3a 62 6c 6f 63  |:block!12=0:bloc|
00000f00  6b 21 33 36 3d 30 3a 62  6c 6f 63 6b 21 34 30 3d  |k!36=0:block!40=|
00000f10  30 0d 06 36 29 e3 20 49  3d 30 20 b8 20 32 35 35  |0..6). I=0 . 255|
00000f20  3a e7 20 49 3f 73 74 65  78 74 3c 33 32 20 8c 20  |:. I?stext<32 . |
00000f30  49 3f 73 74 65 78 74 3d  31 33 0d 06 40 05 ed 0d  |I?stext=13..@...|
00000f40  06 4a 29 24 28 62 6c 6f  63 6b 2b 34 34 29 3d a4  |.J)$(block+44)=.|
00000f50  62 69 74 28 24 73 74 65  78 74 29 2b bd 30 3a 21  |bit($stext)+.0:!|
00000f60  62 6c 6f 63 6b 3d 36 30  0d 06 54 2b c8 99 20 22  |block=60..T+.. "|
00000f70  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00000f80  22 2c 31 37 2c 62 6c 6f  63 6b 2c 62 6c 6f 63 6b  |",17,block,block|
00000f90  21 32 30 0d 06 5e 0b 64  72 61 67 25 3d 30 0d 06  |!20..^.drag%=0..|
00000fa0  68 05 cd 0d 06 72 05 e1  0d 06 7c 14 dd f2 62 75  |h....r....|...bu|
00000fb0  74 74 6f 6e 73 28 62 6c  6f 63 6b 29 0d 06 86 26  |ttons(block)...&|
00000fc0  e7 20 62 6c 6f 63 6b 21  31 32 3d 2d 32 20 80 20  |. block!12=-2 . |
00000fd0  62 6c 6f 63 6b 21 38 3d  32 20 f2 6d 65 6e 75 73  |block!8=2 .menus|
00000fe0  3a e1 0d 06 90 33 e7 20  62 6c 6f 63 6b 21 31 32  |:....3. block!12|
00000ff0  3d 2d 32 20 80 20 62 6c  6f 63 6b 21 38 3c 3e 32  |=-2 . block!8<>2|
00001000  20 f2 6f 70 65 6e 77 69  6e 64 6f 77 28 6b 65 79  | .openwindow(key|
00001010  73 25 29 3a e1 0d 06 9a  20 e7 20 62 6c 6f 63 6b  |s%):.... . block|
00001020  21 31 32 3d 6b 65 79 73  25 20 6d 6f 64 69 66 69  |!12=keys% modifi|
00001030  65 64 3d 2d 31 0d 06 a4  26 e7 20 62 6c 6f 63 6b  |ed=-1...&. block|
00001040  21 31 32 3d 73 61 76 65  25 20 80 20 62 6c 6f 63  |!12=save% . bloc|
00001050  6b 21 31 36 3d 37 20 f2  69 73 64 0d 06 ae 37 e7  |k!16=7 .isd...7.|
00001060  20 62 6c 6f 63 6b 21 31  32 3d 73 61 76 65 25 20  | block!12=save% |
00001070  80 20 62 6c 6f 63 6b 21  31 36 3d 31 30 20 8c 20  |. block!16=10 . |
00001080  f2 73 61 76 65 28 a4 73  74 72 28 73 74 65 78 74  |.save(.str(stext|
00001090  29 29 0d 06 b8 05 e1 0d  06 c2 10 dd f2 70 72 6f  |))...........pro|
000010a0  63 65 73 73 6b 65 79 0d  06 cc 31 e7 20 62 6c 6f  |cesskey...1. blo|
000010b0  63 6b 21 30 3d 73 61 76  65 25 20 80 20 62 6c 6f  |ck!0=save% . blo|
000010c0  63 6b 21 32 34 3d 31 33  20 8c 20 f2 73 61 76 65  |ck!24=13 . .save|
000010d0  28 24 73 74 65 78 74 29  0d 06 d6 3a e7 20 62 6c  |($stext)...:. bl|
000010e0  6f 63 6b 21 30 3d 70 72  65 66 65 72 65 6e 63 65  |ock!0=preference|
000010f0  73 25 20 80 20 62 6c 6f  63 6b 21 32 34 3d 31 33  |s% . block!24=13|
00001100  20 8c 20 f2 70 72 65 66  65 72 65 6e 63 65 73 6b  | . .preferencesk|
00001110  65 79 0d 06 e0 1b e7 20  62 6c 6f 63 6b 21 32 34  |ey..... block!24|
00001120  3d 26 31 38 30 20 f2 6b  65 79 28 30 29 0d 06 ea  |=&180 .key(0)...|
00001130  39 e7 20 62 6c 6f 63 6b  21 32 34 3e 26 31 38 30  |9. block!24>&180|
00001140  20 80 20 62 6c 6f 63 6b  21 32 34 3c 26 31 38 41  | . block!24<&18A|
00001150  20 f2 6b 65 79 28 28 62  6c 6f 63 6b 21 32 34 29  | .key((block!24)|
00001160  2d 26 31 38 30 29 0d 06  f4 3c e7 20 62 6c 6f 63  |-&180)...<. bloc|
00001170  6b 21 32 34 3e 26 31 43  39 20 80 20 62 6c 6f 63  |k!24>&1C9 . bloc|
00001180  6b 21 32 34 3c 26 31 43  43 20 f2 6b 65 79 28 28  |k!24<&1CC .key((|
00001190  62 6c 6f 63 6b 21 32 34  29 2d 26 31 43 41 2b 31  |block!24)-&1CA+1|
000011a0  30 29 0d 06 fe 1b e7 20  62 6c 6f 63 6b 21 32 34  |0)..... block!24|
000011b0  3d 26 31 42 30 20 f2 6b  65 79 28 30 29 0d 07 08  |=&1B0 .key(0)...|
000011c0  39 e7 20 62 6c 6f 63 6b  21 32 34 3e 26 31 42 30  |9. block!24>&1B0|
000011d0  20 80 20 62 6c 6f 63 6b  21 32 34 3c 26 31 42 41  | . block!24<&1BA|
000011e0  20 f2 6b 65 79 28 28 62  6c 6f 63 6b 21 32 34 29  | .key((block!24)|
000011f0  2d 26 31 42 30 29 0d 07  12 3c e7 20 62 6c 6f 63  |-&1B0)...<. bloc|
00001200  6b 21 32 34 3e 26 31 46  39 20 80 20 62 6c 6f 63  |k!24>&1F9 . bloc|
00001210  6b 21 32 34 3c 26 31 46  43 20 f2 6b 65 79 28 28  |k!24<&1FC .key((|
00001220  62 6c 6f 63 6b 21 32 34  29 2d 26 31 46 41 2b 31  |block!24)-&1FA+1|
00001230  30 29 0d 07 1c 21 c8 99  20 22 57 69 6d 70 5f 50  |0)...!.. "Wimp_P|
00001240  72 6f 63 65 73 73 4b 65  79 22 2c 62 6c 6f 63 6b  |rocessKey",block|
00001250  21 32 34 0d 07 26 05 e1  0d 07 30 0b dd f2 6d 65  |!24..&....0...me|
00001260  6e 75 73 0d 07 3a 10 6d  65 6e 75 6f 70 65 6e 3d  |nus..:.menuopen=|
00001270  2d 34 34 0d 07 44 11 6d  65 6e 75 70 74 72 3d 6d  |-44..D.menuptr=m|
00001280  65 6e 75 25 0d 07 4e 0c  c8 97 20 78 2c 79 2c 62  |enu%..N... x,y,b|
00001290  0d 07 58 4d 74 6f 70 6d  65 6e 75 25 3d a4 6d 65  |..XMtopmenu%=.me|
000012a0  6e 75 28 22 4b 65 79 73  22 2c 32 30 30 2c 22 5b  |nu("Keys",200,"[|
000012b0  77 2f 69 6e 66 6f 25 5d  49 6e 66 6f 2c 50 72 65  |w/info%]Info,Pre|
000012c0  66 65 72 65 6e 63 65 73  2c 5b 77 2f 73 61 76 65  |ferences,[w/save|
000012d0  25 5d 53 61 76 65 2c 51  75 69 74 22 29 0d 07 62  |%]Save,Quit")..b|
000012e0  17 f2 6f 70 65 6e 6d 65  6e 75 28 78 2d 37 35 2c  |..openmenu(x-75,|
000012f0  32 38 38 29 0d 07 6c 05  e1 0d 07 76 0c dd f2 64  |288)..l....v...d|
00001300  65 63 6f 64 65 0d 07 80  2e c8 99 20 22 57 69 6d  |ecode...... "Wim|
00001310  70 5f 44 65 63 6f 64 65  4d 65 6e 75 22 2c 2c 74  |p_DecodeMenu",,t|
00001320  6f 70 6d 65 6e 75 25 2c  62 6c 6f 63 6b 2c 69 63  |opmenu%,block,ic|
00001330  6f 6e 64 0d 07 8a 1f e7  20 24 69 63 6f 6e 64 3d  |ond..... $icond=|
00001340  22 51 75 69 74 22 20 8c  20 65 6e 64 25 3d b9 3a  |"Quit" . end%=.:|
00001350  ef 34 0d 07 94 36 e7 20  24 69 63 6f 6e 64 3d 22  |.4...6. $icond="|
00001360  50 72 65 66 65 72 65 6e  63 65 73 22 20 8c 20 f2  |Preferences" . .|
00001370  6f 70 65 6e 77 69 6e 64  6f 77 28 70 72 65 66 65  |openwindow(prefe|
00001380  72 65 6e 63 65 73 25 29  0d 07 9e 23 c8 99 20 22  |rences%)...#.. "|
00001390  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
000013a0  6e 66 6f 22 2c 2c 62 6c  6f 63 6b 0d 07 a8 11 e7  |nfo",,block.....|
000013b0  20 62 6c 6f 63 6b 21 38  3d 31 20 8c 0d 07 b2 1b  | block!8=1 .....|
000013c0  e7 20 6d 65 6e 75 6f 70  65 6e 3d 2d 34 34 20 8c  |. menuopen=-44 .|
000013d0  20 f2 6d 65 6e 75 73 0d  07 bc 22 c8 99 20 22 57  | .menus...".. "W|
000013e0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
000013f0  2c 74 6f 70 6d 65 6e 75  25 0d 07 c6 05 cc 0d 07  |,topmenu%.......|
00001400  d0 1c c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.... "Wimp_Creat|
00001410  65 4d 65 6e 75 22 2c 2c  2d 31 0d 07 da 05 cd 0d  |eMenu",,-1......|
00001420  07 e4 05 e1 0d 07 ee 0e  dd f2 74 65 6d 70 6c 61  |..........templa|
00001430  74 65 0d 07 f8 31 c8 99  20 22 57 69 6d 70 5f 4f  |te...1.. "Wimp_O|
00001440  70 65 6e 54 65 6d 70 6c  61 74 65 22 2c 2c 22 3c  |penTemplate",,"<|
00001450  4b 65 79 24 44 69 72 3e  2e 54 65 6d 70 6c 61 74  |Key$Dir>.Templat|
00001460  65 73 22 0d 08 02 11 69  6e 64 69 72 3d 63 75 72  |es"....indir=cur|
00001470  62 75 66 25 0d 08 0c 1f  69 6e 66 6f 25 3d a4 74  |buf%....info%=.t|
00001480  65 6d 70 6c 61 74 65 28  22 50 72 6f 67 49 6e 66  |emplate("ProgInf|
00001490  6f 22 29 0d 08 16 1b 73  61 76 65 25 3d a4 74 65  |o")....save%=.te|
000014a0  6d 70 6c 61 74 65 28 22  53 61 76 65 22 29 0d 08  |mplate("Save")..|
000014b0  20 29 70 72 65 66 65 72  65 6e 63 65 73 25 3d a4  | )preferences%=.|
000014c0  74 65 6d 70 6c 61 74 65  28 22 50 72 65 66 65 72  |template("Prefer|
000014d0  65 6e 63 65 73 22 29 0d  08 2a 21 68 6f 74 6b 65  |ences")..*!hotke|
000014e0  79 73 25 3d a4 74 65 6d  70 6c 61 74 65 28 22 48  |ys%=.template("H|
000014f0  6f 74 4b 65 79 73 22 29  0d 08 34 1b 6b 65 79 73  |otKeys")..4.keys|
00001500  25 3d a4 74 65 6d 70 6c  61 74 65 28 22 4b 65 79  |%=.template("Key|
00001510  73 22 29 0d 08 3e 1b c8  99 20 22 57 69 6d 70 5f  |s")..>... "Wimp_|
00001520  43 6c 6f 73 65 54 65 6d  70 6c 61 74 65 22 0d 08  |CloseTemplate"..|
00001530  48 17 73 74 65 78 74 3d  a4 74 61 64 28 73 61 76  |H.stext=.tad(sav|
00001540  65 25 2c 36 29 0d 08 52  1b 76 65 72 73 69 6f 6e  |e%,6)..R.version|
00001550  25 3d a4 74 61 64 28 69  6e 66 6f 25 2c 31 32 29  |%=.tad(info%,12)|
00001560  0d 08 5c 05 e1 0d 08 66  0a dd f2 6d 65 73 73 0d  |..\....f...mess.|
00001570  08 70 1c 74 61 73 6b 3d  62 6c 6f 63 6b 21 34 3a  |.p.task=block!4:|
00001580  72 65 66 3d 62 6c 6f 63  6b 21 38 0d 08 7a 11 c8  |ref=block!8..z..|
00001590  8e 20 62 6c 6f 63 6b 21  31 36 20 ca 0d 08 84 0e  |. block!16 .....|
000015a0  c9 20 30 3a 65 6e 64 25  3d b9 0d 08 8e 08 c9 20  |. 0:end%=...... |
000015b0  32 3a 0d 08 98 12 e7 20  73 61 76 69 6e 67 25 3d  |2:..... saving%=|
000015c0  2d 31 20 8c 0d 08 a2 19  f2 73 61 76 65 28 a4 73  |-1 ......save(.s|
000015d0  74 72 28 62 6c 6f 63 6b  2b 34 34 29 29 0d 08 ac  |tr(block+44))...|
000015e0  05 cd 0d 08 b6 08 c9 20  33 3a 0d 08 c0 18 6c 6f  |....... 3:....lo|
000015f0  61 64 24 3d a4 73 74 72  28 62 6c 6f 63 6b 2b 34  |ad$=.str(block+4|
00001600  34 29 0d 08 ca 2d e7 20  62 6c 6f 63 6b 21 32 30  |4)...-. block!20|
00001610  3d 70 72 65 66 65 72 65  6e 63 65 73 25 20 80 20  |=preferences% . |
00001620  62 6c 6f 63 6b 21 34 30  3d 26 46 46 44 20 8c 0d  |block!40=&FFD ..|
00001630  08 d4 1f 24 a4 74 61 64  28 70 72 65 66 65 72 65  |...$.tad(prefere|
00001640  6e 63 65 73 25 2c 33 29  3d 6c 6f 61 64 24 0d 08  |nces%,3)=load$..|
00001650  de 13 f2 70 72 65 66 65  72 65 6e 63 65 73 6b 65  |...preferenceske|
00001660  79 0d 08 e8 05 e1 0d 08  f2 05 cd 0d 08 fc 15 e7  |y...............|
00001670  20 62 6c 6f 63 6b 21 34  30 3d 26 46 46 44 20 8c  | block!40=&FFD .|
00001680  0d 09 06 31 ea 20 85 3a  ee 20 85 20 ea 20 f2 6d  |...1. .:. . . .m|
00001690  6f 61 6e 28 22 43 6f 75  6c 64 6e 27 74 20 6c 6f  |oan("Couldn't lo|
000016a0  61 64 20 3a 20 22 2b f6  24 29 3a e5 20 8d 54 6e  |ad : "+.$):. .Tn|
000016b0  49 0d 09 10 15 c8 99 20  22 48 6f 75 72 67 6c 61  |I...... "Hourgla|
000016c0  73 73 5f 4f 6e 22 0d 09  1a 0d f2 6c 6f 61 64 66  |ss_On".....loadf|
000016d0  69 6c 65 0d 09 24 16 c8  99 20 22 48 6f 75 72 67  |ile..$... "Hourg|
000016e0  6c 61 73 73 5f 4f 66 66  22 0d 09 2e 07 f7 20 85  |lass_Off"..... .|
000016f0  0d 09 38 05 cd 0d 09 42  0e c9 20 34 3a 61 63 6b  |..8....B.. 4:ack|
00001700  25 3d a3 0d 09 4c 05 cb  0d 09 56 05 e1 0d 09 60  |%=...L....V....`|
00001710  0b dd f2 63 6d 65 6e 75  0d 09 6a 23 c8 99 20 22  |...cmenu..j#.. "|
00001720  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00001730  6e 66 6f 22 2c 2c 69 63  6f 6e 64 0d 09 74 11 e7  |nfo",,icond..t..|
00001740  20 69 63 6f 6e 64 21 38  3d 31 20 8c 0d 09 7e 1a  | icond!8=1 ...~.|
00001750  e7 20 6d 65 6e 75 6f 70  65 6e 3d 2d 34 34 20 8c  |. menuopen=-44 .|
00001760  20 f2 6d 65 6e 75 0d 09  88 22 c8 99 20 22 57 69  | .menu...".. "Wi|
00001770  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00001780  74 6f 70 6d 65 6e 75 25  0d 09 92 05 cc 0d 09 9c  |topmenu%........|
00001790  1c c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |... "Wimp_Create|
000017a0  4d 65 6e 75 22 2c 2c 2d  31 0d 09 a6 05 cd 0d 09  |Menu",,-1.......|
000017b0  b0 05 e1 0d 09 ba 0e dd  f2 73 61 76 65 28 61 24  |.........save(a$|
000017c0  29 0d 09 c4 5c e7 20 a7  61 24 2c 22 2e 22 29 3c  |)...\. .a$,".")<|
000017d0  31 20 80 20 a7 61 24 2c  22 3a 22 29 3c 31 20 8c  |1 . .a$,":")<1 .|
000017e0  20 f2 6d 6f 61 6e 28 22  54 6f 20 73 61 76 65 2c  | .moan("To save,|
000017f0  20 64 72 61 67 20 74 68  65 20 73 61 76 65 20 69  | drag the save i|
00001800  63 6f 6e 20 74 6f 20 61  20 64 69 72 65 63 74 6f  |con to a directo|
00001810  72 79 20 76 69 65 77 65  72 22 29 3a e1 0d 09 ce  |ry viewer"):....|
00001820  07 ea 20 85 0d 09 d8 36  ee 20 85 20 ea 20 f2 6d  |.. ....6. . . .m|
00001830  6f 61 6e 28 22 43 6f 75  6c 64 6e 27 74 20 73 61  |oan("Couldn't sa|
00001840  76 65 20 3a 20 22 2b f6  24 2b 22 20 22 2b c3 28  |ve : "+.$+" "+.(|
00001850  9e 29 29 3a e5 20 8d 44  6e 4a 0d 09 e2 0c 73 61  |.)):. .DnJ....sa|
00001860  76 65 24 3d 61 24 0d 09  ec 0e 66 69 6c 65 3d ae  |ve$=a$....file=.|
00001870  28 61 24 29 0d 09 f6 16  f1 23 66 69 6c 65 2c 22  |(a$).....#file,"|
00001880  65 6c 69 66 20 73 79 65  4b 22 0d 0a 00 0f e3 20  |elif syeK"..... |
00001890  49 25 3d 30 20 b8 20 31  31 0d 0a 0a 1f f1 23 66  |I%=0 . 11.....#f|
000018a0  69 6c 65 2c a4 73 65 6c  65 63 74 28 6b 65 79 73  |ile,.select(keys|
000018b0  25 2c 33 39 2b 49 25 29  0d 0a 14 1d f1 23 66 69  |%,39+I%).....#fi|
000018c0  6c 65 2c 24 a4 74 61 64  28 6b 65 79 73 25 2c 37  |le,$.tad(keys%,7|
000018d0  39 2b 49 25 29 0d 0a 1e  05 ed 0d 0a 28 0a d9 23  |9+I%).......(..#|
000018e0  66 69 6c 65 0d 0a 32 1b  ff 28 22 53 45 54 54 59  |file..2..("SETTY|
000018f0  50 45 20 22 2b 61 24 2b  22 20 46 46 44 22 29 0d  |PE "+a$+" FFD").|
00001900  0a 3c 0a f2 63 6d 65 6e  75 0d 0a 46 10 24 73 74  |.<..cmenu..F.$st|
00001910  65 78 74 3d 73 61 76 65  24 0d 0a 50 0e 6d 6f 64  |ext=save$..P.mod|
00001920  69 66 69 65 64 3d 30 0d  0a 5a 2d 21 69 63 6f 6e  |ified=0..Z-!icon|
00001930  64 3d 6b 65 79 73 25 3a  c8 99 20 22 57 69 6d 70  |d=keys%:.. "Wimp|
00001940  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 69  |_CloseWindow",,i|
00001950  63 6f 6e 64 0d 0a 64 16  f2 6f 70 65 6e 77 69 6e  |cond..d..openwin|
00001960  64 6f 77 28 6b 65 79 73  25 29 0d 0a 6e 07 f7 20  |dow(keys%)..n.. |
00001970  85 0d 0a 78 05 e1 0d 0a  82 0b dd f2 63 68 65 63  |...x........chec|
00001980  6b 0d 0a 8c 28 e7 20 24  a4 74 61 64 28 69 6e 66  |k...(. $.tad(inf|
00001990  6f 25 2c 39 29 3c 3e 22  a9 20 41 4d 46 73 6f 66  |o%,9)<>". AMFsof|
000019a0  74 20 31 39 39 31 22 20  8c 0d 0a 96 6b f2 6d 6f  |t 1991" ....k.mo|
000019b0  61 6e 28 22 49 20 64 6f  6e 27 74 20 74 68 69 6e  |an("I don't thin|
000019c0  6b 20 41 4d 46 73 6f 66  74 20 77 6f 75 6c 64 20  |k AMFsoft would |
000019d0  62 65 20 76 65 72 79 20  70 6c 65 61 73 65 64 20  |be very pleased |
000019e0  69 66 20 74 68 65 79 20  73 61 77 20 74 68 65 69  |if they saw thei|
000019f0  72 20 77 6f 72 6b 20 62  65 69 6e 67 20 72 69 70  |r work being rip|
00001a00  70 65 64 20 6f 66 66 20  6c 69 6b 65 20 74 68 69  |ped off like thi|
00001a10  73 2e 22 29 0d 0a a0 05  e0 0d 0a aa 05 cd 0d 0a  |s.")............|
00001a20  b4 05 e1 0d 0a be 0e dd  f2 6c 6f 61 64 66 69 6c  |.........loadfil|
00001a30  65 0d 0a c8 23 e7 20 6d  6f 64 69 66 69 65 64 3d  |e...#. modified=|
00001a40  2d 31 20 8c 20 e7 20 a4  6c 6f 61 64 6f 76 65 72  |-1 . . .loadover|
00001a50  20 8c 20 e1 0d 0a d2 07  ea 20 85 0d 0a dc 2c ee  | . ...... ....,.|
00001a60  20 85 20 ea 20 f2 6d 6f  61 6e 28 22 43 6f 72 72  | . . .moan("Corr|
00001a70  75 70 74 20 6b 65 79 73  20 66 69 6c 65 2e 22 29  |upt keys file.")|
00001a80  3a e5 20 8d 44 68 4b 0d  0a e6 11 66 69 6c 65 3d  |:. .DhK....file=|
00001a90  8e 28 6c 6f 61 64 24 29  0d 0a f0 11 e8 23 66 69  |.(load$).....#fi|
00001aa0  6c 65 2c 73 74 61 72 74  24 0d 0a fa 30 e7 20 73  |le,start$...0. s|
00001ab0  74 61 72 74 24 3c 3e 22  65 6c 69 66 20 73 79 65  |tart$<>"elif sye|
00001ac0  4b 22 20 8c 20 85 20 30  2c 22 42 61 64 20 73 74  |K" . . 0,"Bad st|
00001ad0  61 72 74 20 63 6f 64 65  22 0d 0b 04 0f e3 20 49  |art code"..... I|
00001ae0  25 3d 30 20 b8 20 31 31  0d 0b 0e 0e e8 23 66 69  |%=0 . 11.....#fi|
00001af0  6c 65 2c 73 65 74 0d 0b  18 4c e7 20 73 65 74 3d  |le,set...L. set=|
00001b00  2d 31 20 8c 20 f2 61 6c  74 65 72 28 6b 65 79 73  |-1 . .alter(keys|
00001b10  25 2c 33 39 2b 49 25 2c  31 3c 3c 32 31 2c 31 3c  |%,39+I%,1<<21,1<|
00001b20  3c 32 31 29 20 8b 20 f2  61 6c 74 65 72 28 6b 65  |<21) . .alter(ke|
00001b30  79 73 25 2c 33 39 2b 49  25 2c 30 2c 31 3c 3c 32  |ys%,39+I%,0,1<<2|
00001b40  31 29 0d 0b 22 10 e8 23  66 69 6c 65 2c 63 6f 64  |1).."..#file,cod|
00001b50  65 24 0d 0b 2c 1c 24 a4  74 61 64 28 6b 65 79 73  |e$..,.$.tad(keys|
00001b60  25 2c 37 39 2b 49 25 29  3d 63 6f 64 65 24 0d 0b  |%,79+I%)=code$..|
00001b70  36 05 ed 0d 0b 40 0b d9  20 23 66 69 6c 65 0d 0b  |6....@.. #file..|
00001b80  4a 2d 21 69 63 6f 6e 64  3d 6b 65 79 73 25 3a c8  |J-!icond=keys%:.|
00001b90  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |. "Wimp_CloseWin|
00001ba0  64 6f 77 22 2c 2c 69 63  6f 6e 64 0d 0b 54 16 f2  |dow",,icond..T..|
00001bb0  6f 70 65 6e 77 69 6e 64  6f 77 28 6b 65 79 73 25  |openwindow(keys%|
00001bc0  29 0d 0b 5e 0e 6d 6f 64  69 66 69 65 64 3d 30 0d  |)..^.modified=0.|
00001bd0  0b 68 07 f7 20 85 0d 0b  72 05 e1 0d 0b 7c 10 dd  |.h.. ...r....|..|
00001be0  f2 6b 65 79 28 6b 65 79  6e 6f 29 0d 0b 86 1e 63  |.key(keyno)....c|
00001bf0  6f 6d 24 3d 24 a4 74 61  64 28 6b 65 79 73 25 2c  |om$=$.tad(keys%,|
00001c00  37 39 2b 6b 65 79 6e 6f  29 0d 0b 90 11 e7 20 63  |79+keyno)..... c|
00001c10  6f 6d 24 3d 22 22 20 8c  20 e1 0d 0b 9a 1f e7 20  |om$="" . ...... |
00001c20  a4 73 65 6c 65 63 74 28  6b 65 79 73 25 2c 33 39  |.select(keys%,39|
00001c30  2b 6b 65 79 6e 6f 29 20  8c 0d 0b a4 17 ff 28 22  |+keyno) ......("|
00001c40  57 69 6d 70 54 61 73 6b  20 22 2b 63 6f 6d 24 29  |WimpTask "+com$)|
00001c50  0d 0b ae 05 e1 0d 0b b8  05 cd 0d 0b c2 14 e7 20  |............... |
00001c60  6b 65 79 70 6f 73 3c 3e  2d 31 20 8c 20 e1 0d 0b  |keypos<>-1 . ...|
00001c70  cc 1b 6b 65 79 70 6f 73  3d 31 3a 6b 65 79 74 6f  |..keypos=1:keyto|
00001c80  75 73 65 3d 6b 65 79 6e  6f 0d 0b d6 05 e1 0d 0b  |use=keyno.......|
00001c90  e0 0f dd f2 61 64 64 6c  65 74 74 65 72 0d 0b ea  |....addletter...|
00001ca0  21 63 6f 6d 24 3d 24 a4  74 61 64 28 6b 65 79 73  |!com$=$.tad(keys|
00001cb0  25 2c 37 39 2b 6b 65 79  74 6f 75 73 65 29 0d 0b  |%,79+keytouse)..|
00001cc0  f4 2b c8 99 20 22 57 69  6d 70 5f 50 72 6f 63 65  |.+.. "Wimp_Proce|
00001cd0  73 73 4b 65 79 22 2c 97  28 c1 63 6f 6d 24 2c 6b  |ssKey",.(.com$,k|
00001ce0  65 79 70 6f 73 2c 31 29  29 0d 0b fe 0d 6b 65 79  |eypos,1))....key|
00001cf0  70 6f 73 2b 3d 31 0d 0c  08 20 e7 20 6b 65 79 70  |pos+=1... . keyp|
00001d00  6f 73 3e a9 28 63 6f 6d  24 29 20 8c 20 6b 65 79  |os>.(com$) . key|
00001d10  70 6f 73 3d 2d 31 0d 0c  12 05 e1 0d 0c 1c 12 dd  |pos=-1..........|
00001d20  f2 73 61 76 65 64 65 66  61 75 6c 74 73 0d 0c 26  |.savedefaults..&|
00001d30  07 ea 20 85 0d 0c 30 36  ee 20 85 20 ea 20 f2 6d  |.. ...06. . . .m|
00001d40  6f 61 6e 28 22 43 6f 75  6c 64 6e 27 74 20 73 61  |oan("Couldn't sa|
00001d50  76 65 20 64 65 66 61 75  6c 74 73 20 3a 20 22 2b  |ve defaults : "+|
00001d60  f6 24 29 3a e5 20 8d 44  62 4c 0d 0c 3a 20 66 69  |.$):. .DbL..: fi|
00001d70  6c 65 3d ae 28 22 3c 4b  65 79 24 44 69 72 3e 2e  |le=.("<Key$Dir>.|
00001d80  44 65 66 61 75 6c 74 73  22 29 0d 0c 44 1a f1 23  |Defaults")..D..#|
00001d90  66 69 6c 65 2c 22 73 74  6c 75 61 66 65 44 20 73  |file,"stluafeD s|
00001da0  79 65 4b 22 0d 0c 4e 20  f1 23 66 69 6c 65 2c 24  |yeK"..N .#file,$|
00001db0  a4 74 61 64 28 70 72 65  66 65 72 65 6e 63 65 73  |.tad(preferences|
00001dc0  25 2c 33 29 0d 0c 58 0b  d9 20 23 66 69 6c 65 0d  |%,3)..X.. #file.|
00001dd0  0c 62 07 f7 20 85 0d 0c  6c 05 e1 0d 0c 76 14 dd  |.b.. ...l....v..|
00001de0  f2 70 72 65 66 65 72 65  6e 63 65 73 6b 65 79 0d  |.preferenceskey.|
00001df0  0c 80 11 f2 73 61 76 65  64 65 66 61 75 6c 74 73  |....savedefaults|
00001e00  0d 0c 8a 34 21 69 63 6f  6e 64 3d 70 72 65 66 65  |...4!icond=prefe|
00001e10  72 65 6e 63 65 73 25 3a  c8 99 20 22 57 69 6d 70  |rences%:.. "Wimp|
00001e20  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 69  |_CloseWindow",,i|
00001e30  63 6f 6e 64 0d 0c 94 05  e1 0d 0c 9e 0e dd a4 6c  |cond...........l|
00001e40  6f 61 64 6f 76 65 72 0d  0c a8 0e 21 69 63 6f 6e  |oadover....!icon|
00001e50  64 3d 32 35 35 0d 0c b2  44 24 28 69 63 6f 6e 64  |d=255...D$(icond|
00001e60  2b 34 29 3d 22 54 68 69  73 20 64 61 74 61 20 68  |+4)="This data h|
00001e70  61 73 20 6e 6f 74 20 62  65 65 6e 20 73 61 76 65  |as not been save|
00001e80  64 2e 53 68 6f 75 6c 64  20 49 20 6c 6f 61 64 20  |d.Should I load |
00001e90  6f 76 65 72 20 69 74 3f  22 0d 0c bc 31 c8 99 20  |over it?"...1.. |
00001ea0  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00001eb0  72 22 2c 69 63 6f 6e 64  2c 33 2c 22 4b 65 79 73  |r",icond,3,"Keys|
00001ec0  22 20 b8 20 2c 63 6c 69  63 6b 0d 0c c6 13 e7 20  |" . ,click..... |
00001ed0  63 6c 69 63 6b 3d 32 20  8c 20 3d 2d 31 0d 0c d0  |click=2 . =-1...|
00001ee0  06 3d 30 0d 0c da 12 dd  f2 6c 6f 61 64 64 65 66  |.=0......loaddef|
00001ef0  61 75 6c 74 73 0d 0c e4  0c 66 69 6c 65 24 3d 22  |aults....file$="|
00001f00  22 0d 0c ee 07 ea 20 85  0d 0c f8 38 ee 20 85 20  |"..... ....8. . |
00001f10  ea 20 f2 6d 6f 61 6e 28  22 43 61 6e 27 74 20 6c  |. .moan("Can't l|
00001f20  6f 61 64 20 64 65 66 61  75 6c 74 73 20 66 69 6c  |oad defaults fil|
00001f30  65 20 3a 20 22 2b f6 24  29 3a e5 20 8d 44 5c 4d  |e : "+.$):. .D\M|
00001f40  0d 0d 02 24 64 65 66 61  75 6c 74 73 3d 8e 28 22  |...$defaults=.("|
00001f50  3c 4b 65 79 24 44 69 72  3e 2e 44 65 66 61 75 6c  |<Key$Dir>.Defaul|
00001f60  74 73 22 29 0d 0d 0c 15  e8 23 64 65 66 61 75 6c  |ts").....#defaul|
00001f70  74 73 2c 73 74 61 72 74  24 0d 0d 16 14 e8 23 64  |ts,start$.....#d|
00001f80  65 66 61 75 6c 74 73 2c  66 69 6c 65 24 0d 0d 20  |efaults,file$.. |
00001f90  47 e7 20 73 74 61 72 74  24 3c 3e 22 73 74 6c 75  |G. start$<>"stlu|
00001fa0  61 66 65 44 20 73 79 65  4b 22 20 8c 20 d9 23 64  |afeD syeK" . .#d|
00001fb0  65 66 61 75 6c 74 73 3a  85 20 34 32 2c 22 43 6f  |efaults:. 42,"Co|
00001fc0  72 72 75 70 74 20 64 65  66 61 75 6c 74 73 20 66  |rrupt defaults f|
00001fd0  69 6c 65 22 0d 0d 2a 0e  d9 23 64 65 66 61 75 6c  |ile"..*..#defaul|
00001fe0  74 73 0d 0d 34 1f 24 a4  74 61 64 28 70 72 65 66  |ts..4.$.tad(pref|
00001ff0  65 72 65 6e 63 65 73 25  2c 33 29 3d 66 69 6c 65  |erences%,3)=file|
00002000  24 0d 0d 3e 07 f7 20 85  0d 0d 48 27 e7 20 66 69  |$..>.. ...H'. fi|
00002010  6c 65 24 3c 3e 22 22 20  8c 20 6c 6f 61 64 24 3d  |le$<>"" . load$=|
00002020  66 69 6c 65 24 3a f2 6c  6f 61 64 66 69 6c 65 0d  |file$:.loadfile.|
00002030  0d 52 05 e1 0d 0d 5c 07  f7 20 85 0d 0d 66 0e 21  |.R....\.. ...f.!|
00002040  69 63 6f 6e 64 3d 32 35  35 0d 0d 70 51 24 28 69  |icond=255..pQ$(i|
00002050  63 6f 6e 64 2b 34 29 3d  22 41 73 20 74 68 65 20  |cond+4)="As the |
00002060  64 65 66 61 75 6c 74 73  20 66 69 6c 65 20 63 61  |defaults file ca|
00002070  6e 6e 6f 74 20 62 65 20  6c 6f 61 64 65 64 2c 73  |nnot be loaded,s|
00002080  68 6f 75 6c 64 20 49 20  63 72 65 61 74 65 20 61  |hould I create a|
00002090  20 6e 65 77 20 6f 6e 65  3f 22 0d 0d 7a 31 c8 99  | new one?"..z1..|
000020a0  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
000020b0  6f 72 22 2c 69 63 6f 6e  64 2c 33 2c 22 4b 65 79  |or",icond,3,"Key|
000020c0  73 22 20 b8 20 2c 63 6c  69 63 6b 0d 0d 84 11 e7  |s" . ,click.....|
000020d0  20 63 6c 69 63 6b 3d 32  20 8c 20 e1 0d 0d 8e 07  | click=2 . .....|
000020e0  ea 20 85 0d 0d 98 3e ee  20 85 20 ea 20 f2 6d 6f  |. ....>. . . .mo|
000020f0  61 6e 28 22 43 61 6e 27  74 20 63 72 65 61 74 65  |an("Can't create|
00002100  20 6e 65 77 20 64 65 66  61 75 6c 74 73 20 66 69  | new defaults fi|
00002110  6c 65 20 3a 20 22 2b f6  24 29 3a e5 20 8d 64 5e  |le : "+.$):. .d^|
00002120  4d 0d 0d a2 24 64 65 66  61 75 6c 74 73 3d ae 28  |M...$defaults=.(|
00002130  22 3c 4b 65 79 24 44 69  72 3e 2e 44 65 66 61 75  |"<Key$Dir>.Defau|
00002140  6c 74 73 22 29 0d 0d ac  1e f1 23 64 65 66 61 75  |lts").....#defau|
00002150  6c 74 73 2c 22 73 74 6c  75 61 66 65 44 20 73 79  |lts,"stluafeD sy|
00002160  65 4b 22 0d 0d b6 11 f1  23 64 65 66 61 75 6c 74  |eK".....#default|
00002170  73 2c 22 22 0d 0d c0 0f  d9 20 23 64 65 66 61 75  |s,""..... #defau|
00002180  6c 74 73 0d 0d ca 07 f7  20 85 0d 0d d4 05 e1 0d  |lts..... .......|
00002190  0d de 07 f7 20 85 0d 0d  e8 3e f2 6d 6f 61 6e 28  |.... ....>.moan(|
000021a0  22 48 65 6c 70 21 20 53  6f 6d 65 74 68 69 6e 67  |"Help! Something|
000021b0  20 69 73 20 67 6f 69 6e  67 20 73 65 72 69 6f 75  | is going seriou|
000021c0  73 6c 79 20 77 72 6f 6e  67 20 77 69 74 68 20 6d  |sly wrong with m|
000021d0  65 21 22 29 0d 0d f2 05  e1 0d ff                 |e!").......|
000021db