� > !RunImage
� Version 0.20 (06 Sep 89)
/� temp 28,TASK 4, q% 6300, C$(8), CharDef 8
(5LM%=16:RM%=16:BM%=16:TM%=16:click%=0:RptDelay%=25
2	�vars
<HotKey%=-1:� Shift key
F
P$TASK="TASK"
Z<ș"Wimp_Initialise",200,!TASK,"Characters" � ,TaskHandle
dA� � :ș"Wimp_CloseDown",TaskHandle,!TASK:� � �,�$+" @ "+Þ
n1ș"Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
x� LOCAL ERROR
�!� ON ERROR ERROR ERR, REPORT$
�>ș"Wimp_LoadTemplate",,q%+4,temp,temp+28,-1,"Characters",0
�� RESTORE ERROR
�ș"Wimp_CloseTemplate"
�
�'� InputVars 3*4-1, OutputVars 2*4-1
�GInputVars!0=4:InputVars!4=5:InputVars!8=-1:� XEigFactor, YEigFactor
�� PROCReadModeVars
�
�.ș"Wimp_CreateWindow",,q%+4 � WindowHandle
�)!q%=WindowHandle:q%!28=-1:�OpenWindow
�SNull=0:Redraw=1:Open=2:Close=3:PointerLeaving=4:PointerEntering=5:MouseChange=6
�(MenuSelect=9:MessageA=17:MessageB=18

�PollFlags=�((1<<Redraw)+(1<<Open)+(1<<Close)+(1<<PointerLeaving)+(1<<PointerEntering)+(1<<MouseChange)+(1<<MessageA)+(1<<MessageB))

�

# ș Poll%,PollFlags,q% � reason

" Ȏ reason �

, � Null: �CheckHotKey

6 � Open: �OpenWindow

@ � Close: �CloseWindow

J& � PointerLeaving: �PointerLeaving

T( � PointerEntering: �PointerEntering

^@ � MouseChange: �CheckMouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)

h# � MessageA, MessageB: �Message

r �

|� �

��

�

���CheckHotKey

�� � < click% + RptDelay% �

�IsDown%=� HotKey%

�ș GetP,,q%

�&� IF IsDown% AND NOT WasDown% THEN

�6� (q%!16>=0) � (q%!8=4) � (IsDown% � � WasDown%) �

�   �DoChar

��

�WasDown%=IsDown%

��

�
��OpenWindow
ș"Wimp_OpenWindow",,q%
�
&
0��CloseWindow
:'ș"Wimp_CloseDown",TaskHandle,!TASK
D�
N�
X
b��PointerLeaving
l9PollFlags=PollFlags � (1<<Null):� No more null events
v�
�
���PointerEntering
�:PollFlags=PollFlags � � (1<<Null):� Enable null events
�WasDown%=� HotKey%
��
�
�
��Message
�Ȏ q%!16 �
�� 0:�CloseWindow
�"� WHEN &400C1:PROCReadModeVars
�� &502:�DoHelp
��
��

��ReadModeVars
'� x%,y%,x_fac%,y_fac%,x_mov%,y_mov%
 q%!0 = WindowHandle
*!ș"Wimp_GetWindowOutline",,q%
>(ș"OS_ReadModeVariable",-1,11 � ,,x%
H(ș"OS_ReadModeVariable",-1,12 � ,,y%
R+ș"OS_ReadModeVariable",-1,4 � ,,x_fac%
\+ș"OS_ReadModeVariable",-1,5 � ,,y_fac%
fx%=(x%+1)<<x_fac%
py%=(y%+1)<<y_fac%
z� q%!12>x% � q%!16>y% �
{   x_mov% = q%!12 - x%
|   y_mov% = q%!16 - y%
}"   ș"Wimp_GetWindowState",,q%
�   q%!4 -= x_mov%
�   q%!8 -= y_mov%
�&   q%!12 -= x_mov%:q%!16 -= y_mov%
�R� 4:� 30:� q%!4;":";q%!8;":";q%!12;":";q%!16;":";q%!20;":";q%!24;":";q%!28:A=�
�   �OpenWindow
��
��
�
�6��CheckMouse(mousex%,mousey%,b%,handle%,icon%,ob%)
�� b% � 4 �
�
 click%=�
� �DoChar
�
�
 
$
.��DoChar
8� q%!12=WindowHandle �
9# Char% = �char_from_icon(q%!16)
B+ � Char% > 31 ș"Wimp_ProcessKey",Char%
L�
V�
`
j��DoHelp
t� q%!32=WindowHandle �
~ HisTaskHandle%=q%!4
� HisRef%=q%!8
�! Char%=�char_from_icon(q%!36)
� � Char%>31 � Char%<256 �
�w  MES$="Click SELECT or press Shift key to enter '"+�Char%+"' character as if it had been typed from the keyboard."
�  q%!0=((20+�MES$+1)+3)��3
�  q%!12=HisRef%
�  q%!16=&503
�  $(q%+20)=MES$
�  q%?(20+�MES$)=0
�5  ș"Wimp_SendMessage",MessageA,q%,HisTaskHandle%
� �
��
�


� �vars
Wimp    = (1<<18) + (3<<6)
(CreateW = Wimp+1
2Poll%   = Wimp+7
<RedrawW = Wimp+8
FUpdateW = Wimp+9
PGetR%   = Wimp+10
ZGetW    = Wimp+11
dGetP    = Wimp+15
nDrag    = Wimp+16
xScreen  = Wimp+17
�CrMenu  = Wimp+20
�DcMenu  = Wimp+21
��
�
�ݤchar_from_icon(char%)
�(=char% + 32 + ((char%>(126-32))*-33)
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 1e f4 20 56  65 72 73 69 6f 6e 20 30  |e..... Version 0|
00000020  2e 32 30 20 28 30 36 20  53 65 70 20 38 39 29 0d  |.20 (06 Sep 89).|
00000030  00 1e 2f de 20 74 65 6d  70 20 32 38 2c 54 41 53  |../. temp 28,TAS|
00000040  4b 20 34 2c 20 71 25 20  36 33 30 30 2c 20 43 24  |K 4, q% 6300, C$|
00000050  28 38 29 2c 20 43 68 61  72 44 65 66 20 38 0d 00  |(8), CharDef 8..|
00000060  28 35 4c 4d 25 3d 31 36  3a 52 4d 25 3d 31 36 3a  |(5LM%=16:RM%=16:|
00000070  42 4d 25 3d 31 36 3a 54  4d 25 3d 31 36 3a 63 6c  |BM%=16:TM%=16:cl|
00000080  69 63 6b 25 3d 30 3a 52  70 74 44 65 6c 61 79 25  |ick%=0:RptDelay%|
00000090  3d 32 35 0d 00 32 09 f2  76 61 72 73 0d 00 3c 1a  |=25..2..vars..<.|
000000a0  48 6f 74 4b 65 79 25 3d  2d 31 3a f4 20 53 68 69  |HotKey%=-1:. Shi|
000000b0  66 74 20 6b 65 79 0d 00  46 04 0d 00 50 10 24 54  |ft key..F...P.$T|
000000c0  41 53 4b 3d 22 54 41 53  4b 22 0d 00 5a 3c c8 99  |ASK="TASK"..Z<..|
000000d0  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
000000e0  22 2c 32 30 30 2c 21 54  41 53 4b 2c 22 43 68 61  |",200,!TASK,"Cha|
000000f0  72 61 63 74 65 72 73 22  20 b8 20 2c 54 61 73 6b  |racters" . ,Task|
00000100  48 61 6e 64 6c 65 0d 00  64 41 ee 20 85 20 ee 85  |Handle..dA. . ..|
00000110  87 3a c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |.:.."Wimp_CloseD|
00000120  6f 77 6e 22 2c 54 61 73  6b 48 61 6e 64 6c 65 2c  |own",TaskHandle,|
00000130  21 54 41 53 4b 3a 85 20  a2 20 9f 2c f6 24 2b 22  |!TASK:. . .,.$+"|
00000140  20 40 20 22 2b c3 9e 0d  00 6e 31 c8 99 22 57 69  | @ "+....n1.."Wi|
00000150  6d 70 5f 4f 70 65 6e 54  65 6d 70 6c 61 74 65 22  |mp_OpenTemplate"|
00000160  2c 2c 22 3c 4f 62 65 79  24 44 69 72 3e 2e 54 65  |,,"<Obey$Dir>.Te|
00000170  6d 70 6c 61 74 65 73 22  0d 00 78 11 f4 20 4c 4f  |mplates"..x.. LO|
00000180  43 41 4c 20 45 52 52 4f  52 0d 00 82 21 f4 20 4f  |CAL ERROR...!. O|
00000190  4e 20 45 52 52 4f 52 20  45 52 52 4f 52 20 45 52  |N ERROR ERROR ER|
000001a0  52 2c 20 52 45 50 4f 52  54 24 0d 00 8c 3e c8 99  |R, REPORT$...>..|
000001b0  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
000001c0  74 65 22 2c 2c 71 25 2b  34 2c 74 65 6d 70 2c 74  |te",,q%+4,temp,t|
000001d0  65 6d 70 2b 32 38 2c 2d  31 2c 22 43 68 61 72 61  |emp+28,-1,"Chara|
000001e0  63 74 65 72 73 22 2c 30  0d 00 96 13 f4 20 52 45  |cters",0..... RE|
000001f0  53 54 4f 52 45 20 45 52  52 4f 52 0d 00 a0 1a c8  |STORE ERROR.....|
00000200  99 22 57 69 6d 70 5f 43  6c 6f 73 65 54 65 6d 70  |."Wimp_CloseTemp|
00000210  6c 61 74 65 22 0d 00 aa  04 0d 00 b4 27 de 20 49  |late".......'. I|
00000220  6e 70 75 74 56 61 72 73  20 33 2a 34 2d 31 2c 20  |nputVars 3*4-1, |
00000230  4f 75 74 70 75 74 56 61  72 73 20 32 2a 34 2d 31  |OutputVars 2*4-1|
00000240  0d 00 be 47 49 6e 70 75  74 56 61 72 73 21 30 3d  |...GInputVars!0=|
00000250  34 3a 49 6e 70 75 74 56  61 72 73 21 34 3d 35 3a  |4:InputVars!4=5:|
00000260  49 6e 70 75 74 56 61 72  73 21 38 3d 2d 31 3a f4  |InputVars!8=-1:.|
00000270  20 58 45 69 67 46 61 63  74 6f 72 2c 20 59 45 69  | XEigFactor, YEi|
00000280  67 46 61 63 74 6f 72 0d  00 c8 16 f4 20 50 52 4f  |gFactor..... PRO|
00000290  43 52 65 61 64 4d 6f 64  65 56 61 72 73 0d 00 d2  |CReadModeVars...|
000002a0  04 0d 00 dc 2e c8 99 22  57 69 6d 70 5f 43 72 65  |......."Wimp_Cre|
000002b0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 71 25 2b 34  |ateWindow",,q%+4|
000002c0  20 b8 20 57 69 6e 64 6f  77 48 61 6e 64 6c 65 0d  | . WindowHandle.|
000002d0  00 e6 29 21 71 25 3d 57  69 6e 64 6f 77 48 61 6e  |..)!q%=WindowHan|
000002e0  64 6c 65 3a 71 25 21 32  38 3d 2d 31 3a f2 4f 70  |dle:q%!28=-1:.Op|
000002f0  65 6e 57 69 6e 64 6f 77  0d 00 f0 53 4e 75 6c 6c  |enWindow...SNull|
00000300  3d 30 3a 52 65 64 72 61  77 3d 31 3a 4f 70 65 6e  |=0:Redraw=1:Open|
00000310  3d 32 3a 43 6c 6f 73 65  3d 33 3a 50 6f 69 6e 74  |=2:Close=3:Point|
00000320  65 72 4c 65 61 76 69 6e  67 3d 34 3a 50 6f 69 6e  |erLeaving=4:Poin|
00000330  74 65 72 45 6e 74 65 72  69 6e 67 3d 35 3a 4d 6f  |terEntering=5:Mo|
00000340  75 73 65 43 68 61 6e 67  65 3d 36 0d 00 fa 28 4d  |useChange=6...(M|
00000350  65 6e 75 53 65 6c 65 63  74 3d 39 3a 4d 65 73 73  |enuSelect=9:Mess|
00000360  61 67 65 41 3d 31 37 3a  4d 65 73 73 61 67 65 42  |ageA=17:MessageB|
00000370  3d 31 38 0d 01 04 87 50  6f 6c 6c 46 6c 61 67 73  |=18....PollFlags|
00000380  3d ac 28 28 31 3c 3c 52  65 64 72 61 77 29 2b 28  |=.((1<<Redraw)+(|
00000390  31 3c 3c 4f 70 65 6e 29  2b 28 31 3c 3c 43 6c 6f  |1<<Open)+(1<<Clo|
000003a0  73 65 29 2b 28 31 3c 3c  50 6f 69 6e 74 65 72 4c  |se)+(1<<PointerL|
000003b0  65 61 76 69 6e 67 29 2b  28 31 3c 3c 50 6f 69 6e  |eaving)+(1<<Poin|
000003c0  74 65 72 45 6e 74 65 72  69 6e 67 29 2b 28 31 3c  |terEntering)+(1<|
000003d0  3c 4d 6f 75 73 65 43 68  61 6e 67 65 29 2b 28 31  |<MouseChange)+(1|
000003e0  3c 3c 4d 65 73 73 61 67  65 41 29 2b 28 31 3c 3c  |<<MessageA)+(1<<|
000003f0  4d 65 73 73 61 67 65 42  29 29 0d 01 0e 05 f5 0d  |MessageB))......|
00000400  01 18 23 20 c8 99 20 50  6f 6c 6c 25 2c 50 6f 6c  |..# .. Poll%,Pol|
00000410  6c 46 6c 61 67 73 2c 71  25 20 b8 20 72 65 61 73  |lFlags,q% . reas|
00000420  6f 6e 0d 01 22 10 20 c8  8e 20 72 65 61 73 6f 6e  |on..". .. reason|
00000430  20 ca 0d 01 2c 19 20 c9  20 4e 75 6c 6c 3a 20 f2  | ...,. . Null: .|
00000440  43 68 65 63 6b 48 6f 74  4b 65 79 0d 01 36 18 20  |CheckHotKey..6. |
00000450  c9 20 4f 70 65 6e 3a 20  f2 4f 70 65 6e 57 69 6e  |. Open: .OpenWin|
00000460  64 6f 77 0d 01 40 1a 20  c9 20 43 6c 6f 73 65 3a  |dow..@. . Close:|
00000470  20 f2 43 6c 6f 73 65 57  69 6e 64 6f 77 0d 01 4a  | .CloseWindow..J|
00000480  26 20 c9 20 50 6f 69 6e  74 65 72 4c 65 61 76 69  |& . PointerLeavi|
00000490  6e 67 3a 20 f2 50 6f 69  6e 74 65 72 4c 65 61 76  |ng: .PointerLeav|
000004a0  69 6e 67 0d 01 54 28 20  c9 20 50 6f 69 6e 74 65  |ing..T( . Pointe|
000004b0  72 45 6e 74 65 72 69 6e  67 3a 20 f2 50 6f 69 6e  |rEntering: .Poin|
000004c0  74 65 72 45 6e 74 65 72  69 6e 67 0d 01 5e 40 20  |terEntering..^@ |
000004d0  c9 20 4d 6f 75 73 65 43  68 61 6e 67 65 3a 20 f2  |. MouseChange: .|
000004e0  43 68 65 63 6b 4d 6f 75  73 65 28 21 71 25 2c 71  |CheckMouse(!q%,q|
000004f0  25 21 34 2c 71 25 21 38  2c 71 25 21 31 32 2c 71  |%!4,q%!8,q%!12,q|
00000500  25 21 31 36 2c 71 25 21  32 30 29 0d 01 68 23 20  |%!16,q%!20)..h# |
00000510  c9 20 4d 65 73 73 61 67  65 41 2c 20 4d 65 73 73  |. MessageA, Mess|
00000520  61 67 65 42 3a 20 f2 4d  65 73 73 61 67 65 0d 01  |ageB: .Message..|
00000530  72 06 20 cb 0d 01 7c 07  fd 20 a3 0d 01 86 05 e0  |r. ...|.. ......|
00000540  0d 01 90 04 0d 01 9a 11  dd f2 43 68 65 63 6b 48  |..........CheckH|
00000550  6f 74 4b 65 79 0d 01 a4  1e e7 20 91 20 3c 20 63  |otKey..... . < c|
00000560  6c 69 63 6b 25 20 2b 20  52 70 74 44 65 6c 61 79  |lick% + RptDelay|
00000570  25 20 e1 0d 01 ae 15 49  73 44 6f 77 6e 25 3d a6  |% .....IsDown%=.|
00000580  20 48 6f 74 4b 65 79 25  0d 01 b8 0f c8 99 20 47  | HotKey%...... G|
00000590  65 74 50 2c 2c 71 25 0d  01 c2 26 f4 20 49 46 20  |etP,,q%...&. IF |
000005a0  49 73 44 6f 77 6e 25 20  41 4e 44 20 4e 4f 54 20  |IsDown% AND NOT |
000005b0  57 61 73 44 6f 77 6e 25  20 54 48 45 4e 0d 01 cc  |WasDown% THEN...|
000005c0  36 e7 20 28 71 25 21 31  36 3e 3d 30 29 20 80 20  |6. (q%!16>=0) . |
000005d0  28 71 25 21 38 3d 34 29  20 84 20 28 49 73 44 6f  |(q%!8=4) . (IsDo|
000005e0  77 6e 25 20 80 20 ac 20  57 61 73 44 6f 77 6e 25  |wn% . . WasDown%|
000005f0  29 20 8c 0d 01 d6 0e 20  20 20 f2 44 6f 43 68 61  |) .....   .DoCha|
00000600  72 0d 01 e0 05 cd 0d 01  ea 14 57 61 73 44 6f 77  |r.........WasDow|
00000610  6e 25 3d 49 73 44 6f 77  6e 25 0d 01 f4 05 e1 0d  |n%=IsDown%......|
00000620  01 fe 04 0d 02 08 10 dd  f2 4f 70 65 6e 57 69 6e  |.........OpenWin|
00000630  64 6f 77 0d 02 12 1b c8  99 22 57 69 6d 70 5f 4f  |dow......"Wimp_O|
00000640  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 71 25 0d 02  |penWindow",,q%..|
00000650  1c 05 e1 0d 02 26 04 0d  02 30 11 dd f2 43 6c 6f  |.....&...0...Clo|
00000660  73 65 57 69 6e 64 6f 77  0d 02 3a 27 c8 99 22 57  |seWindow..:'.."W|
00000670  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 2c 54  |imp_CloseDown",T|
00000680  61 73 6b 48 61 6e 64 6c  65 2c 21 54 41 53 4b 0d  |askHandle,!TASK.|
00000690  02 44 05 e0 0d 02 4e 05  e1 0d 02 58 04 0d 02 62  |.D....N....X...b|
000006a0  14 dd f2 50 6f 69 6e 74  65 72 4c 65 61 76 69 6e  |...PointerLeavin|
000006b0  67 0d 02 6c 39 50 6f 6c  6c 46 6c 61 67 73 3d 50  |g..l9PollFlags=P|
000006c0  6f 6c 6c 46 6c 61 67 73  20 84 20 28 31 3c 3c 4e  |ollFlags . (1<<N|
000006d0  75 6c 6c 29 3a f4 20 4e  6f 20 6d 6f 72 65 20 6e  |ull):. No more n|
000006e0  75 6c 6c 20 65 76 65 6e  74 73 0d 02 76 05 e1 0d  |ull events..v...|
000006f0  02 80 04 0d 02 8a 15 dd  f2 50 6f 69 6e 74 65 72  |.........Pointer|
00000700  45 6e 74 65 72 69 6e 67  0d 02 94 3a 50 6f 6c 6c  |Entering...:Poll|
00000710  46 6c 61 67 73 3d 50 6f  6c 6c 46 6c 61 67 73 20  |Flags=PollFlags |
00000720  80 20 ac 20 28 31 3c 3c  4e 75 6c 6c 29 3a f4 20  |. . (1<<Null):. |
00000730  45 6e 61 62 6c 65 20 6e  75 6c 6c 20 65 76 65 6e  |Enable null even|
00000740  74 73 0d 02 9e 16 57 61  73 44 6f 77 6e 25 3d a6  |ts....WasDown%=.|
00000750  20 48 6f 74 4b 65 79 25  0d 02 a8 05 e1 0d 02 b2  | HotKey%........|
00000760  04 0d 02 bc 0d dd f2 4d  65 73 73 61 67 65 0d 02  |.......Message..|
00000770  c6 0e c8 8e 20 71 25 21  31 36 20 ca 0d 02 d0 14  |.... q%!16 .....|
00000780  c9 20 30 3a f2 43 6c 6f  73 65 57 69 6e 64 6f 77  |. 0:.CloseWindow|
00000790  0d 02 da 22 f4 20 57 48  45 4e 20 26 34 30 30 43  |...". WHEN &400C|
000007a0  31 3a 50 52 4f 43 52 65  61 64 4d 6f 64 65 56 61  |1:PROCReadModeVa|
000007b0  72 73 0d 02 e4 12 c9 20  26 35 30 32 3a f2 44 6f  |rs..... &502:.Do|
000007c0  48 65 6c 70 0d 02 ee 05  cb 0d 02 f8 05 e1 0d 03  |Help............|
000007d0  02 04 0d 03 0c 12 dd f2  52 65 61 64 4d 6f 64 65  |........ReadMode|
000007e0  56 61 72 73 0d 03 16 27  ea 20 78 25 2c 79 25 2c  |Vars...'. x%,y%,|
000007f0  78 5f 66 61 63 25 2c 79  5f 66 61 63 25 2c 78 5f  |x_fac%,y_fac%,x_|
00000800  6d 6f 76 25 2c 79 5f 6d  6f 76 25 0d 03 20 17 71  |mov%,y_mov%.. .q|
00000810  25 21 30 20 3d 20 57 69  6e 64 6f 77 48 61 6e 64  |%!0 = WindowHand|
00000820  6c 65 0d 03 2a 21 c8 99  22 57 69 6d 70 5f 47 65  |le..*!.."Wimp_Ge|
00000830  74 57 69 6e 64 6f 77 4f  75 74 6c 69 6e 65 22 2c  |tWindowOutline",|
00000840  2c 71 25 0d 03 3e 28 c8  99 22 4f 53 5f 52 65 61  |,q%..>(.."OS_Rea|
00000850  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 2d  |dModeVariable",-|
00000860  31 2c 31 31 20 b8 20 2c  2c 78 25 0d 03 48 28 c8  |1,11 . ,,x%..H(.|
00000870  99 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  |."OS_ReadModeVar|
00000880  69 61 62 6c 65 22 2c 2d  31 2c 31 32 20 b8 20 2c  |iable",-1,12 . ,|
00000890  2c 79 25 0d 03 52 2b c8  99 22 4f 53 5f 52 65 61  |,y%..R+.."OS_Rea|
000008a0  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 2d  |dModeVariable",-|
000008b0  31 2c 34 20 b8 20 2c 2c  78 5f 66 61 63 25 0d 03  |1,4 . ,,x_fac%..|
000008c0  5c 2b c8 99 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |\+.."OS_ReadMode|
000008d0  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 35 20 b8  |Variable",-1,5 .|
000008e0  20 2c 2c 79 5f 66 61 63  25 0d 03 66 15 78 25 3d  | ,,y_fac%..f.x%=|
000008f0  28 78 25 2b 31 29 3c 3c  78 5f 66 61 63 25 0d 03  |(x%+1)<<x_fac%..|
00000900  70 15 79 25 3d 28 79 25  2b 31 29 3c 3c 79 5f 66  |p.y%=(y%+1)<<y_f|
00000910  61 63 25 0d 03 7a 1b e7  20 71 25 21 31 32 3e 78  |ac%..z.. q%!12>x|
00000920  25 20 84 20 71 25 21 31  36 3e 79 25 20 8c 0d 03  |% . q%!16>y% ...|
00000930  7b 1a 20 20 20 78 5f 6d  6f 76 25 20 3d 20 71 25  |{.   x_mov% = q%|
00000940  21 31 32 20 2d 20 78 25  0d 03 7c 1a 20 20 20 79  |!12 - x%..|.   y|
00000950  5f 6d 6f 76 25 20 3d 20  71 25 21 31 36 20 2d 20  |_mov% = q%!16 - |
00000960  79 25 0d 03 7d 22 20 20  20 c8 99 22 57 69 6d 70  |y%..}"   .."Wimp|
00000970  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00000980  2c 2c 71 25 0d 03 84 15  20 20 20 71 25 21 34 20  |,,q%....   q%!4 |
00000990  2d 3d 20 78 5f 6d 6f 76  25 0d 03 8e 15 20 20 20  |-= x_mov%....   |
000009a0  71 25 21 38 20 2d 3d 20  79 5f 6d 6f 76 25 0d 03  |q%!8 -= y_mov%..|
000009b0  98 26 20 20 20 71 25 21  31 32 20 2d 3d 20 78 5f  |.&   q%!12 -= x_|
000009c0  6d 6f 76 25 3a 71 25 21  31 36 20 2d 3d 20 79 5f  |mov%:q%!16 -= y_|
000009d0  6d 6f 76 25 0d 03 ac 52  ef 20 34 3a ef 20 33 30  |mov%...R. 4:. 30|
000009e0  3a f1 20 71 25 21 34 3b  22 3a 22 3b 71 25 21 38  |:. q%!4;":";q%!8|
000009f0  3b 22 3a 22 3b 71 25 21  31 32 3b 22 3a 22 3b 71  |;":";q%!12;":";q|
00000a00  25 21 31 36 3b 22 3a 22  3b 71 25 21 32 30 3b 22  |%!16;":";q%!20;"|
00000a10  3a 22 3b 71 25 21 32 34  3b 22 3a 22 3b 71 25 21  |:";q%!24;":";q%!|
00000a20  32 38 3a 41 3d a5 0d 03  b6 12 20 20 20 f2 4f 70  |28:A=.....   .Op|
00000a30  65 6e 57 69 6e 64 6f 77  0d 03 c0 05 cd 0d 03 ca  |enWindow........|
00000a40  05 e1 0d 03 d4 04 0d 03  de 36 dd f2 43 68 65 63  |.........6..Chec|
00000a50  6b 4d 6f 75 73 65 28 6d  6f 75 73 65 78 25 2c 6d  |kMouse(mousex%,m|
00000a60  6f 75 73 65 79 25 2c 62  25 2c 68 61 6e 64 6c 65  |ousey%,b%,handle|
00000a70  25 2c 69 63 6f 6e 25 2c  6f 62 25 29 0d 03 e8 0e  |%,icon%,ob%)....|
00000a80  e7 20 62 25 20 80 20 34  20 8c 0d 03 f2 0d 20 63  |. b% . 4 ..... c|
00000a90  6c 69 63 6b 25 3d 91 0d  03 fc 0c 20 f2 44 6f 43  |lick%=..... .DoC|
00000aa0  68 61 72 0d 04 06 05 cd  0d 04 10 05 e1 0d 04 1a  |har.............|
00000ab0  05 20 0d 04 24 04 0d 04  2e 0c dd f2 44 6f 43 68  |. ..$.......DoCh|
00000ac0  61 72 0d 04 38 1a e7 20  71 25 21 31 32 3d 57 69  |ar..8.. q%!12=Wi|
00000ad0  6e 64 6f 77 48 61 6e 64  6c 65 20 8c 0d 04 39 23  |ndowHandle ...9#|
00000ae0  20 43 68 61 72 25 20 3d  20 a4 63 68 61 72 5f 66  | Char% = .char_f|
00000af0  72 6f 6d 5f 69 63 6f 6e  28 71 25 21 31 36 29 0d  |rom_icon(q%!16).|
00000b00  04 42 2b 20 e7 20 43 68  61 72 25 20 3e 20 33 31  |.B+ . Char% > 31|
00000b10  20 c8 99 22 57 69 6d 70  5f 50 72 6f 63 65 73 73  | .."Wimp_Process|
00000b20  4b 65 79 22 2c 43 68 61  72 25 0d 04 4c 05 cd 0d  |Key",Char%..L...|
00000b30  04 56 05 e1 0d 04 60 04  0d 04 6a 0c dd f2 44 6f  |.V....`...j...Do|
00000b40  48 65 6c 70 0d 04 74 1a  e7 20 71 25 21 33 32 3d  |Help..t.. q%!32=|
00000b50  57 69 6e 64 6f 77 48 61  6e 64 6c 65 20 8c 0d 04  |WindowHandle ...|
00000b60  7e 18 20 48 69 73 54 61  73 6b 48 61 6e 64 6c 65  |~. HisTaskHandle|
00000b70  25 3d 71 25 21 34 0d 04  88 11 20 48 69 73 52 65  |%=q%!4.... HisRe|
00000b80  66 25 3d 71 25 21 38 0d  04 92 21 20 43 68 61 72  |f%=q%!8...! Char|
00000b90  25 3d a4 63 68 61 72 5f  66 72 6f 6d 5f 69 63 6f  |%=.char_from_ico|
00000ba0  6e 28 71 25 21 33 36 29  0d 04 9c 1d 20 e7 20 43  |n(q%!36).... . C|
00000bb0  68 61 72 25 3e 33 31 20  80 20 43 68 61 72 25 3c  |har%>31 . Char%<|
00000bc0  32 35 36 20 8c 0d 04 a6  77 20 20 4d 45 53 24 3d  |256 ....w  MES$=|
00000bd0  22 43 6c 69 63 6b 20 53  45 4c 45 43 54 20 6f 72  |"Click SELECT or|
00000be0  20 70 72 65 73 73 20 53  68 69 66 74 20 6b 65 79  | press Shift key|
00000bf0  20 74 6f 20 65 6e 74 65  72 20 27 22 2b bd 43 68  | to enter '"+.Ch|
00000c00  61 72 25 2b 22 27 20 63  68 61 72 61 63 74 65 72  |ar%+"' character|
00000c10  20 61 73 20 69 66 20 69  74 20 68 61 64 20 62 65  | as if it had be|
00000c20  65 6e 20 74 79 70 65 64  20 66 72 6f 6d 20 74 68  |en typed from th|
00000c30  65 20 6b 65 79 62 6f 61  72 64 2e 22 0d 04 b0 1e  |e keyboard."....|
00000c40  20 20 71 25 21 30 3d 28  28 32 30 2b a9 4d 45 53  |  q%!0=((20+.MES|
00000c50  24 2b 31 29 2b 33 29 80  ac 33 0d 04 ba 13 20 20  |$+1)+3)..3....  |
00000c60  71 25 21 31 32 3d 48 69  73 52 65 66 25 0d 04 c4  |q%!12=HisRef%...|
00000c70  10 20 20 71 25 21 31 36  3d 26 35 30 33 0d 04 ce  |.  q%!16=&503...|
00000c80  13 20 20 24 28 71 25 2b  32 30 29 3d 4d 45 53 24  |.  $(q%+20)=MES$|
00000c90  0d 04 d8 15 20 20 71 25  3f 28 32 30 2b a9 4d 45  |....  q%?(20+.ME|
00000ca0  53 24 29 3d 30 0d 04 e2  35 20 20 c8 99 22 57 69  |S$)=0...5  .."Wi|
00000cb0  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00000cc0  4d 65 73 73 61 67 65 41  2c 71 25 2c 48 69 73 54  |MessageA,q%,HisT|
00000cd0  61 73 6b 48 61 6e 64 6c  65 25 0d 04 ec 06 20 cd  |askHandle%.... .|
00000ce0  0d 04 f6 05 cd 0d 05 00  05 e1 0d 05 0a 04 0d 05  |................|
00000cf0  14 0b dd 20 f2 76 61 72  73 0d 05 1e 1e 57 69 6d  |... .vars....Wim|
00000d00  70 20 20 20 20 3d 20 28  31 3c 3c 31 38 29 20 2b  |p    = (1<<18) +|
00000d10  20 28 33 3c 3c 36 29 0d  05 28 14 43 72 65 61 74  | (3<<6)..(.Creat|
00000d20  65 57 20 3d 20 57 69 6d  70 2b 31 0d 05 32 14 50  |eW = Wimp+1..2.P|
00000d30  6f 6c 6c 25 20 20 20 3d  20 57 69 6d 70 2b 37 0d  |oll%   = Wimp+7.|
00000d40  05 3c 14 52 65 64 72 61  77 57 20 3d 20 57 69 6d  |.<.RedrawW = Wim|
00000d50  70 2b 38 0d 05 46 14 55  70 64 61 74 65 57 20 3d  |p+8..F.UpdateW =|
00000d60  20 57 69 6d 70 2b 39 0d  05 50 15 47 65 74 52 25  | Wimp+9..P.GetR%|
00000d70  20 20 20 3d 20 57 69 6d  70 2b 31 30 0d 05 5a 15  |   = Wimp+10..Z.|
00000d80  47 65 74 57 20 20 20 20  3d 20 57 69 6d 70 2b 31  |GetW    = Wimp+1|
00000d90  31 0d 05 64 15 47 65 74  50 20 20 20 20 3d 20 57  |1..d.GetP    = W|
00000da0  69 6d 70 2b 31 35 0d 05  6e 15 44 72 61 67 20 20  |imp+15..n.Drag  |
00000db0  20 20 3d 20 57 69 6d 70  2b 31 36 0d 05 78 15 53  |  = Wimp+16..x.S|
00000dc0  63 72 65 65 6e 20 20 3d  20 57 69 6d 70 2b 31 37  |creen  = Wimp+17|
00000dd0  0d 05 82 15 43 72 4d 65  6e 75 20 20 3d 20 57 69  |....CrMenu  = Wi|
00000de0  6d 70 2b 32 30 0d 05 8c  15 44 63 4d 65 6e 75 20  |mp+20....DcMenu |
00000df0  20 3d 20 57 69 6d 70 2b  32 31 0d 05 96 05 e1 0d  | = Wimp+21......|
00000e00  05 a0 04 0d 05 aa 1b dd  a4 63 68 61 72 5f 66 72  |.........char_fr|
00000e10  6f 6d 5f 69 63 6f 6e 28  63 68 61 72 25 29 0d 05  |om_icon(char%)..|
00000e20  b4 28 3d 63 68 61 72 25  20 2b 20 33 32 20 2b 20  |.(=char% + 32 + |
00000e30  28 28 63 68 61 72 25 3e  28 31 32 36 2d 33 32 29  |((char%>(126-32)|
00000e40  29 2a 2d 33 33 29 0d ff                           |)*-33)..|
00000e48