� > !RunImage
�
� � Nicholas Marriott 1996
(�
2� Version 0.21
<�
F!� ARM code version soon, hmm?
P�
Z:
d!� � �_Error(�$+" @ "+�(�)): �
n� b% 256
x$b%="TASK"
�:ș "Wimp_Initialise",200,!b%,"Easy Help" � wimp%,task%
�&ș "WimpExt_Initialise",14,task%,0
�:
�+ș "OS_ReadModeVariable",-1,4 � ,,xeig%
�+ș "OS_ReadModeVariable",-1,5 � ,,yeig%
�tail$=""
�"� xeig%=1 � yeig%=1 tail$="22"
�Bș "OS_File",17,"<EasyHelp$File>.Sprites22" � exists%,,,,size%
�� exists%<>1 tail$=""
�� sprites% size%+16
�sprites%!0=size%+16
�sprites%!8=16
�$ș "OS_SpriteOp",256+ 9,sprites%

Dș "OS_SpriteOp",256+10,sprites%,"<EasyHelp$File>.Sprites"+tail$

:

2ș "WimpExt_IconBarSprite",,,-1,"!easyhelp",,3

":

,� menu% 128

6$menu%="EasyHelp"

@menu%?12=7

Jmenu%?13=2

Tmenu%?14=7

^menu%?15=0

hmenu%!16=128

rmenu%!20=44

|menu%!24=0

�menu%!28=128

�menu%!32=-1

�menu%!36=&7000021

�$(menu%+40)="Quit"

�:

�B� templates% 4*1024, indrdata% 12*1024, pages% 256, fonts% 256

�� pos%=0 � 256 � 4

�pages%!pos%=%101

�fonts%!pos%=0

��

�:

��

��
� name$,size%
� name$<>"End" �
7ș "Font_FindFont",,name$,size%*16,size%*16 � font%
&fonts%!(pos%*4)=font%
0�
:� name$="End"
D:
N� "Homerton.Bold",18
X� "Homerton.Medium",14
b� "Homerton.Medium",12
l� "Corpus.Medium",12
v
� "End",0
�:
�tș "WimpExt_LoadTemplates",pages%,templates%,indrdata%,indrdata%+12*1024,fonts%,"<EasyHelp$File>.Pages",sprites%
�'ș "WimpExt_OpenWindowTop",pages%!0
�page%=0
�:
�� � �_Error(�$)
�quit%=�
��
�ș "WimpExt_PrePoll"
�0ș "Wimp_Poll",%10000011100000110001,b% � r%
�(ș "WimpExt_Action",task%,b%,r% � r%
�Ȏ r% �
�$� 1: ș "WimpExt_AutoRedraw",,b%
!� 2: ș "Wimp_OpenWindow",,b%
"� 3: ș "Wimp_CloseWindow",,b%
"� 6: �_Click(b%!8,b%!12,b%!16)
 � 9: quit%=�
*� 17,18: Ȏ b%!16 �
4            � 0: quit%=�
>            �
H�
R� quit%
\:
f�
p�
z� name$,size%
�� name$<>"End" �
�&ș "Font_LoseFont",fonts%!(pos%*4)
��
�� name$="End"
�:
� ș "WimpExt_CloseDown",task%
�$b%="TASK"
�!ș "Wimp_CloseDown",task%,!b%
��
�:
�� �_Error(error$)
�Jș "WimpExt_ControlImmediate",,2,"!",error$,"OK"+�(0)+�(0)+�(0)+�(0),0
��
:
%� �_Click(buttons%,handle%,icon%)
� buttons%=%010 �
$Ȏ handle% �
.4� -2: ș "WimpExt_CreateMenu",,menu%,b%!0-64,140
8
B/ș "WimpExt_CreateMenu",,menu%,b%!0-64,b%!4
L�
V�
`�
j>� handle%<0 ș "WimpExt_OpenWindowTop",pages%!(page%*4): �
tb%!0=handle%
~b%!4=icon%
�)ș "XWimp_GetIconState",,b% � ;flags%
�� (flags% � 1)<>0 �
�validation$=�_String(b%!32)
�
Ȏ � �
�.� �validation$,"j")>0: �_Jump(validation$)
�1� �validation$,"c")>0: �_Command(validation$)
�!� �validation$,"q")>0: �_Quit
��
��
�:
�� �_Quit
�quit%=�
�

:
� �_Jump(validation$)
pos%=�validation$,"j")
(,� �validation$,pos%-1,1)<>";" � pos%>1 �
2� pos%=0 �
< page$=�validation$,pos%+1,2)
Fpage%=�(page$)
PG� pages%!(page%*4)=%101 �_Error("Page "+�(page%)+" not defined"): �
Zb%!0=handle%
dș "Wimp_CloseWindow",,b%
n/ș "WimpExt_OpenWindowTop",pages%!(page%*4)
x�
�:
�� �_Command(validation$)
�pos%=�validation$,"c")
�,� �validation$,pos%-1,1)<>";" � pos%>1 �
�� pos%=0 �
� `pos%=�validation$,";",pos%)
�)command$=�validation$,pos%+1,`pos%-2)
�� command$<>"" �
� ș "Wimp_StartTask",command$
��
��
�:
�� �_String(pos%)
string$=""
ȕ ?pos%>31
string$+=�(?pos%)
"pos%+=1
,�
6=string$
@:
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 05 f4 0d 00  1e 1e f4 20 a9 20 4e 69  |e.......... . Ni|
00000020  63 68 6f 6c 61 73 20 4d  61 72 72 69 6f 74 74 20  |cholas Marriott |
00000030  31 39 39 36 0d 00 28 05  f4 0d 00 32 12 f4 20 56  |1996..(....2.. V|
00000040  65 72 73 69 6f 6e 20 30  2e 32 31 0d 00 3c 05 f4  |ersion 0.21..<..|
00000050  0d 00 46 21 f4 20 41 52  4d 20 63 6f 64 65 20 76  |..F!. ARM code v|
00000060  65 72 73 69 6f 6e 20 73  6f 6f 6e 2c 20 68 6d 6d  |ersion soon, hmm|
00000070  3f 0d 00 50 05 f4 0d 00  5a 05 3a 0d 00 64 21 ee  |?..P....Z.:..d!.|
00000080  20 85 20 f2 5f 45 72 72  6f 72 28 f6 24 2b 22 20  | . ._Error(.$+" |
00000090  40 20 22 2b c3 28 9e 29  29 3a 20 e0 0d 00 6e 0c  |@ "+.(.)): ...n.|
000000a0  de 20 62 25 20 32 35 36  0d 00 78 0e 24 62 25 3d  |. b% 256..x.$b%=|
000000b0  22 54 41 53 4b 22 0d 00  82 3a c8 99 20 22 57 69  |"TASK"...:.. "Wi|
000000c0  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 32  |mp_Initialise",2|
000000d0  30 30 2c 21 62 25 2c 22  45 61 73 79 20 48 65 6c  |00,!b%,"Easy Hel|
000000e0  70 22 20 b8 20 77 69 6d  70 25 2c 74 61 73 6b 25  |p" . wimp%,task%|
000000f0  0d 00 8c 26 c8 99 20 22  57 69 6d 70 45 78 74 5f  |...&.. "WimpExt_|
00000100  49 6e 69 74 69 61 6c 69  73 65 22 2c 31 34 2c 74  |Initialise",14,t|
00000110  61 73 6b 25 2c 30 0d 00  96 05 3a 0d 00 a0 2b c8  |ask%,0....:...+.|
00000120  99 20 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |. "OS_ReadModeVa|
00000130  72 69 61 62 6c 65 22 2c  2d 31 2c 34 20 b8 20 2c  |riable",-1,4 . ,|
00000140  2c 78 65 69 67 25 0d 00  aa 2b c8 99 20 22 4f 53  |,xeig%...+.. "OS|
00000150  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00000160  65 22 2c 2d 31 2c 35 20  b8 20 2c 2c 79 65 69 67  |e",-1,5 . ,,yeig|
00000170  25 0d 00 b4 0c 74 61 69  6c 24 3d 22 22 0d 00 be  |%....tail$=""...|
00000180  22 e7 20 78 65 69 67 25  3d 31 20 80 20 79 65 69  |". xeig%=1 . yei|
00000190  67 25 3d 31 20 74 61 69  6c 24 3d 22 32 32 22 0d  |g%=1 tail$="22".|
000001a0  00 c8 42 c8 99 20 22 4f  53 5f 46 69 6c 65 22 2c  |..B.. "OS_File",|
000001b0  31 37 2c 22 3c 45 61 73  79 48 65 6c 70 24 46 69  |17,"<EasyHelp$Fi|
000001c0  6c 65 3e 2e 53 70 72 69  74 65 73 32 32 22 20 b8  |le>.Sprites22" .|
000001d0  20 65 78 69 73 74 73 25  2c 2c 2c 2c 73 69 7a 65  | exists%,,,,size|
000001e0  25 0d 00 d2 19 e7 20 65  78 69 73 74 73 25 3c 3e  |%..... exists%<>|
000001f0  31 20 74 61 69 6c 24 3d  22 22 0d 00 dc 17 de 20  |1 tail$=""..... |
00000200  73 70 72 69 74 65 73 25  20 73 69 7a 65 25 2b 31  |sprites% size%+1|
00000210  36 0d 00 e6 17 73 70 72  69 74 65 73 25 21 30 3d  |6....sprites%!0=|
00000220  73 69 7a 65 25 2b 31 36  0d 00 f0 11 73 70 72 69  |size%+16....spri|
00000230  74 65 73 25 21 38 3d 31  36 0d 00 fa 24 c8 99 20  |tes%!8=16...$.. |
00000240  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 35  |"OS_SpriteOp",25|
00000250  36 2b 20 39 2c 73 70 72  69 74 65 73 25 0d 01 04  |6+ 9,sprites%...|
00000260  44 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |D.. "OS_SpriteOp|
00000270  22 2c 32 35 36 2b 31 30  2c 73 70 72 69 74 65 73  |",256+10,sprites|
00000280  25 2c 22 3c 45 61 73 79  48 65 6c 70 24 46 69 6c  |%,"<EasyHelp$Fil|
00000290  65 3e 2e 53 70 72 69 74  65 73 22 2b 74 61 69 6c  |e>.Sprites"+tail|
000002a0  24 0d 01 0e 05 3a 0d 01  18 32 c8 99 20 22 57 69  |$....:...2.. "Wi|
000002b0  6d 70 45 78 74 5f 49 63  6f 6e 42 61 72 53 70 72  |mpExt_IconBarSpr|
000002c0  69 74 65 22 2c 2c 2c 2d  31 2c 22 21 65 61 73 79  |ite",,,-1,"!easy|
000002d0  68 65 6c 70 22 2c 2c 33  0d 01 22 05 3a 0d 01 2c  |help",,3..".:..,|
000002e0  0f de 20 6d 65 6e 75 25  20 31 32 38 0d 01 36 15  |.. menu% 128..6.|
000002f0  24 6d 65 6e 75 25 3d 22  45 61 73 79 48 65 6c 70  |$menu%="EasyHelp|
00000300  22 0d 01 40 0e 6d 65 6e  75 25 3f 31 32 3d 37 0d  |"..@.menu%?12=7.|
00000310  01 4a 0e 6d 65 6e 75 25  3f 31 33 3d 32 0d 01 54  |.J.menu%?13=2..T|
00000320  0e 6d 65 6e 75 25 3f 31  34 3d 37 0d 01 5e 0e 6d  |.menu%?14=7..^.m|
00000330  65 6e 75 25 3f 31 35 3d  30 0d 01 68 10 6d 65 6e  |enu%?15=0..h.men|
00000340  75 25 21 31 36 3d 31 32  38 0d 01 72 0f 6d 65 6e  |u%!16=128..r.men|
00000350  75 25 21 32 30 3d 34 34  0d 01 7c 0e 6d 65 6e 75  |u%!20=44..|.menu|
00000360  25 21 32 34 3d 30 0d 01  86 10 6d 65 6e 75 25 21  |%!24=0....menu%!|
00000370  32 38 3d 31 32 38 0d 01  90 0f 6d 65 6e 75 25 21  |28=128....menu%!|
00000380  33 32 3d 2d 31 0d 01 9a  15 6d 65 6e 75 25 21 33  |32=-1....menu%!3|
00000390  36 3d 26 37 30 30 30 30  32 31 0d 01 a4 16 24 28  |6=&7000021....$(|
000003a0  6d 65 6e 75 25 2b 34 30  29 3d 22 51 75 69 74 22  |menu%+40)="Quit"|
000003b0  0d 01 ae 05 3a 0d 01 b8  42 de 20 74 65 6d 70 6c  |....:...B. templ|
000003c0  61 74 65 73 25 20 34 2a  31 30 32 34 2c 20 69 6e  |ates% 4*1024, in|
000003d0  64 72 64 61 74 61 25 20  31 32 2a 31 30 32 34 2c  |drdata% 12*1024,|
000003e0  20 70 61 67 65 73 25 20  32 35 36 2c 20 66 6f 6e  | pages% 256, fon|
000003f0  74 73 25 20 32 35 36 0d  01 c2 16 e3 20 70 6f 73  |ts% 256..... pos|
00000400  25 3d 30 20 b8 20 32 35  36 20 88 20 34 0d 01 cc  |%=0 . 256 . 4...|
00000410  14 70 61 67 65 73 25 21  70 6f 73 25 3d 25 31 30  |.pages%!pos%=%10|
00000420  31 0d 01 d6 11 66 6f 6e  74 73 25 21 70 6f 73 25  |1....fonts%!pos%|
00000430  3d 30 0d 01 e0 05 ed 0d  01 ea 05 3a 0d 01 f4 05  |=0.........:....|
00000440  f7 0d 01 fe 05 f5 0d 02  08 11 f3 20 6e 61 6d 65  |........... name|
00000450  24 2c 73 69 7a 65 25 0d  02 12 14 e7 20 6e 61 6d  |$,size%..... nam|
00000460  65 24 3c 3e 22 45 6e 64  22 20 8c 0d 02 1c 37 c8  |e$<>"End" ....7.|
00000470  99 20 22 46 6f 6e 74 5f  46 69 6e 64 46 6f 6e 74  |. "Font_FindFont|
00000480  22 2c 2c 6e 61 6d 65 24  2c 73 69 7a 65 25 2a 31  |",,name$,size%*1|
00000490  36 2c 73 69 7a 65 25 2a  31 36 20 b8 20 66 6f 6e  |6,size%*16 . fon|
000004a0  74 25 0d 02 26 19 66 6f  6e 74 73 25 21 28 70 6f  |t%..&.fonts%!(po|
000004b0  73 25 2a 34 29 3d 66 6f  6e 74 25 0d 02 30 05 cd  |s%*4)=font%..0..|
000004c0  0d 02 3a 11 fd 20 6e 61  6d 65 24 3d 22 45 6e 64  |..:.. name$="End|
000004d0  22 0d 02 44 05 3a 0d 02  4e 18 dc 20 22 48 6f 6d  |"..D.:..N.. "Hom|
000004e0  65 72 74 6f 6e 2e 42 6f  6c 64 22 2c 31 38 0d 02  |erton.Bold",18..|
000004f0  58 1a dc 20 22 48 6f 6d  65 72 74 6f 6e 2e 4d 65  |X.. "Homerton.Me|
00000500  64 69 75 6d 22 2c 31 34  0d 02 62 1a dc 20 22 48  |dium",14..b.. "H|
00000510  6f 6d 65 72 74 6f 6e 2e  4d 65 64 69 75 6d 22 2c  |omerton.Medium",|
00000520  31 32 0d 02 6c 18 dc 20  22 43 6f 72 70 75 73 2e  |12..l.. "Corpus.|
00000530  4d 65 64 69 75 6d 22 2c  31 32 0d 02 76 0d dc 20  |Medium",12..v.. |
00000540  22 45 6e 64 22 2c 30 0d  02 80 05 3a 0d 02 8a 74  |"End",0....:...t|
00000550  c8 99 20 22 57 69 6d 70  45 78 74 5f 4c 6f 61 64  |.. "WimpExt_Load|
00000560  54 65 6d 70 6c 61 74 65  73 22 2c 70 61 67 65 73  |Templates",pages|
00000570  25 2c 74 65 6d 70 6c 61  74 65 73 25 2c 69 6e 64  |%,templates%,ind|
00000580  72 64 61 74 61 25 2c 69  6e 64 72 64 61 74 61 25  |rdata%,indrdata%|
00000590  2b 31 32 2a 31 30 32 34  2c 66 6f 6e 74 73 25 2c  |+12*1024,fonts%,|
000005a0  22 3c 45 61 73 79 48 65  6c 70 24 46 69 6c 65 3e  |"<EasyHelp$File>|
000005b0  2e 50 61 67 65 73 22 2c  73 70 72 69 74 65 73 25  |.Pages",sprites%|
000005c0  0d 02 94 27 c8 99 20 22  57 69 6d 70 45 78 74 5f  |...'.. "WimpExt_|
000005d0  4f 70 65 6e 57 69 6e 64  6f 77 54 6f 70 22 2c 70  |OpenWindowTop",p|
000005e0  61 67 65 73 25 21 30 0d  02 9e 0b 70 61 67 65 25  |ages%!0....page%|
000005f0  3d 30 0d 02 a8 05 3a 0d  02 b2 13 ee 20 85 20 f2  |=0....:..... . .|
00000600  5f 45 72 72 6f 72 28 f6  24 29 0d 02 bc 0b 71 75  |_Error(.$)....qu|
00000610  69 74 25 3d a3 0d 02 c6  05 f5 0d 02 d0 18 c8 99  |it%=............|
00000620  20 22 57 69 6d 70 45 78  74 5f 50 72 65 50 6f 6c  | "WimpExt_PrePol|
00000630  6c 22 0d 02 da 30 c8 99  20 22 57 69 6d 70 5f 50  |l"...0.. "Wimp_P|
00000640  6f 6c 6c 22 2c 25 31 30  30 30 30 30 31 31 31 30  |oll",%1000001110|
00000650  30 30 30 30 31 31 30 30  30 31 2c 62 25 20 b8 20  |0000110001,b% . |
00000660  72 25 0d 02 e4 28 c8 99  20 22 57 69 6d 70 45 78  |r%...(.. "WimpEx|
00000670  74 5f 41 63 74 69 6f 6e  22 2c 74 61 73 6b 25 2c  |t_Action",task%,|
00000680  62 25 2c 72 25 20 b8 20  72 25 0d 02 ee 0b c8 8e  |b%,r% . r%......|
00000690  20 72 25 20 ca 0d 02 f8  24 c9 20 31 3a 20 c8 99  | r% ....$. 1: ..|
000006a0  20 22 57 69 6d 70 45 78  74 5f 41 75 74 6f 52 65  | "WimpExt_AutoRe|
000006b0  64 72 61 77 22 2c 2c 62  25 0d 03 02 21 c9 20 32  |draw",,b%...!. 2|
000006c0  3a 20 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |: .. "Wimp_OpenW|
000006d0  69 6e 64 6f 77 22 2c 2c  62 25 0d 03 0c 22 c9 20  |indow",,b%...". |
000006e0  33 3a 20 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |3: .. "Wimp_Clos|
000006f0  65 57 69 6e 64 6f 77 22  2c 2c 62 25 0d 03 16 22  |eWindow",,b%..."|
00000700  c9 20 36 3a 20 f2 5f 43  6c 69 63 6b 28 62 25 21  |. 6: ._Click(b%!|
00000710  38 2c 62 25 21 31 32 2c  62 25 21 31 36 29 0d 03  |8,b%!12,b%!16)..|
00000720  20 10 c9 20 39 3a 20 71  75 69 74 25 3d b9 0d 03  | .. 9: quit%=...|
00000730  2a 17 c9 20 31 37 2c 31  38 3a 20 c8 8e 20 62 25  |*.. 17,18: .. b%|
00000740  21 31 36 20 ca 0d 03 34  1c 20 20 20 20 20 20 20  |!16 ...4.       |
00000750  20 20 20 20 20 c9 20 30  3a 20 71 75 69 74 25 3d  |     . 0: quit%=|
00000760  b9 0d 03 3e 11 20 20 20  20 20 20 20 20 20 20 20  |...>.           |
00000770  20 cb 0d 03 48 05 cb 0d  03 52 0b fd 20 71 75 69  | ...H....R.. qui|
00000780  74 25 0d 03 5c 05 3a 0d  03 66 05 f7 0d 03 70 05  |t%..\.:..f....p.|
00000790  f5 0d 03 7a 11 f3 20 6e  61 6d 65 24 2c 73 69 7a  |...z.. name$,siz|
000007a0  65 25 0d 03 84 14 e7 20  6e 61 6d 65 24 3c 3e 22  |e%..... name$<>"|
000007b0  45 6e 64 22 20 8c 0d 03  8e 26 c8 99 20 22 46 6f  |End" ....&.. "Fo|
000007c0  6e 74 5f 4c 6f 73 65 46  6f 6e 74 22 2c 66 6f 6e  |nt_LoseFont",fon|
000007d0  74 73 25 21 28 70 6f 73  25 2a 34 29 0d 03 98 05  |ts%!(pos%*4)....|
000007e0  cd 0d 03 a2 11 fd 20 6e  61 6d 65 24 3d 22 45 6e  |...... name$="En|
000007f0  64 22 0d 03 ac 05 3a 0d  03 b6 20 c8 99 20 22 57  |d"....:... .. "W|
00000800  69 6d 70 45 78 74 5f 43  6c 6f 73 65 44 6f 77 6e  |impExt_CloseDown|
00000810  22 2c 74 61 73 6b 25 0d  03 c0 0e 24 62 25 3d 22  |",task%....$b%="|
00000820  54 41 53 4b 22 0d 03 ca  21 c8 99 20 22 57 69 6d  |TASK"...!.. "Wim|
00000830  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 2c 74 61 73  |p_CloseDown",tas|
00000840  6b 25 2c 21 62 25 0d 03  d4 05 e0 0d 03 de 05 3a  |k%,!b%.........:|
00000850  0d 03 e8 15 dd 20 f2 5f  45 72 72 6f 72 28 65 72  |..... ._Error(er|
00000860  72 6f 72 24 29 0d 03 f2  4a c8 99 20 22 57 69 6d  |ror$)...J.. "Wim|
00000870  70 45 78 74 5f 43 6f 6e  74 72 6f 6c 49 6d 6d 65  |pExt_ControlImme|
00000880  64 69 61 74 65 22 2c 2c  32 2c 22 21 22 2c 65 72  |diate",,2,"!",er|
00000890  72 6f 72 24 2c 22 4f 4b  22 2b bd 28 30 29 2b bd  |ror$,"OK"+.(0)+.|
000008a0  28 30 29 2b bd 28 30 29  2b bd 28 30 29 2c 30 0d  |(0)+.(0)+.(0),0.|
000008b0  03 fc 05 e1 0d 04 06 05  3a 0d 04 10 25 dd 20 f2  |........:...%. .|
000008c0  5f 43 6c 69 63 6b 28 62  75 74 74 6f 6e 73 25 2c  |_Click(buttons%,|
000008d0  68 61 6e 64 6c 65 25 2c  69 63 6f 6e 25 29 0d 04  |handle%,icon%)..|
000008e0  1a 15 e7 20 62 75 74 74  6f 6e 73 25 3d 25 30 31  |... buttons%=%01|
000008f0  30 20 8c 0d 04 24 10 c8  8e 20 68 61 6e 64 6c 65  |0 ...$... handle|
00000900  25 20 ca 0d 04 2e 34 c9  20 2d 32 3a 20 c8 99 20  |% ....4. -2: .. |
00000910  22 57 69 6d 70 45 78 74  5f 43 72 65 61 74 65 4d  |"WimpExt_CreateM|
00000920  65 6e 75 22 2c 2c 6d 65  6e 75 25 2c 62 25 21 30  |enu",,menu%,b%!0|
00000930  2d 36 34 2c 31 34 30 0d  04 38 05 7f 0d 04 42 2f  |-64,140..8....B/|
00000940  c8 99 20 22 57 69 6d 70  45 78 74 5f 43 72 65 61  |.. "WimpExt_Crea|
00000950  74 65 4d 65 6e 75 22 2c  2c 6d 65 6e 75 25 2c 62  |teMenu",,menu%,b|
00000960  25 21 30 2d 36 34 2c 62  25 21 34 0d 04 4c 05 cb  |%!0-64,b%!4..L..|
00000970  0d 04 56 05 e1 0d 04 60  05 cd 0d 04 6a 3e e7 20  |..V....`....j>. |
00000980  68 61 6e 64 6c 65 25 3c  30 20 c8 99 20 22 57 69  |handle%<0 .. "Wi|
00000990  6d 70 45 78 74 5f 4f 70  65 6e 57 69 6e 64 6f 77  |mpExt_OpenWindow|
000009a0  54 6f 70 22 2c 70 61 67  65 73 25 21 28 70 61 67  |Top",pages%!(pag|
000009b0  65 25 2a 34 29 3a 20 e1  0d 04 74 10 62 25 21 30  |e%*4): ...t.b%!0|
000009c0  3d 68 61 6e 64 6c 65 25  0d 04 7e 0e 62 25 21 34  |=handle%..~.b%!4|
000009d0  3d 69 63 6f 6e 25 0d 04  88 29 c8 99 20 22 58 57  |=icon%...).. "XW|
000009e0  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
000009f0  22 2c 2c 62 25 20 b8 20  3b 66 6c 61 67 73 25 0d  |",,b% . ;flags%.|
00000a00  04 92 17 e7 20 28 66 6c  61 67 73 25 20 80 20 31  |.... (flags% . 1|
00000a10  29 3c 3e 30 20 e1 0d 04  9c 1f 76 61 6c 69 64 61  |)<>0 .....valida|
00000a20  74 69 6f 6e 24 3d a4 5f  53 74 72 69 6e 67 28 62  |tion$=._String(b|
00000a30  25 21 33 32 29 0d 04 a6  0a c8 8e 20 b9 20 ca 0d  |%!32)...... . ..|
00000a40  04 b0 2e c9 20 a7 76 61  6c 69 64 61 74 69 6f 6e  |.... .validation|
00000a50  24 2c 22 6a 22 29 3e 30  3a 20 f2 5f 4a 75 6d 70  |$,"j")>0: ._Jump|
00000a60  28 76 61 6c 69 64 61 74  69 6f 6e 24 29 0d 04 ba  |(validation$)...|
00000a70  31 c9 20 a7 76 61 6c 69  64 61 74 69 6f 6e 24 2c  |1. .validation$,|
00000a80  22 63 22 29 3e 30 3a 20  f2 5f 43 6f 6d 6d 61 6e  |"c")>0: ._Comman|
00000a90  64 28 76 61 6c 69 64 61  74 69 6f 6e 24 29 0d 04  |d(validation$)..|
00000aa0  c4 21 c9 20 a7 76 61 6c  69 64 61 74 69 6f 6e 24  |.!. .validation$|
00000ab0  2c 22 71 22 29 3e 30 3a  20 f2 5f 51 75 69 74 0d  |,"q")>0: ._Quit.|
00000ac0  04 ce 05 cb 0d 04 d8 05  e1 0d 04 e2 05 3a 0d 04  |.............:..|
00000ad0  ec 0c dd 20 f2 5f 51 75  69 74 0d 04 f6 0b 71 75  |... ._Quit....qu|
00000ae0  69 74 25 3d b9 0d 05 00  05 e1 0d 05 0a 05 3a 0d  |it%=..........:.|
00000af0  05 14 19 dd 20 f2 5f 4a  75 6d 70 28 76 61 6c 69  |.... ._Jump(vali|
00000b00  64 61 74 69 6f 6e 24 29  0d 05 1e 1a 70 6f 73 25  |dation$)....pos%|
00000b10  3d a7 76 61 6c 69 64 61  74 69 6f 6e 24 2c 22 6a  |=.validation$,"j|
00000b20  22 29 0d 05 28 2c e7 20  c1 76 61 6c 69 64 61 74  |")..(,. .validat|
00000b30  69 6f 6e 24 2c 70 6f 73  25 2d 31 2c 31 29 3c 3e  |ion$,pos%-1,1)<>|
00000b40  22 3b 22 20 80 20 70 6f  73 25 3e 31 20 e1 0d 05  |";" . pos%>1 ...|
00000b50  32 0e e7 20 70 6f 73 25  3d 30 20 e1 0d 05 3c 20  |2.. pos%=0 ...< |
00000b60  70 61 67 65 24 3d c1 76  61 6c 69 64 61 74 69 6f  |page$=.validatio|
00000b70  6e 24 2c 70 6f 73 25 2b  31 2c 32 29 0d 05 46 12  |n$,pos%+1,2)..F.|
00000b80  70 61 67 65 25 3d bb 28  70 61 67 65 24 29 0d 05  |page%=.(page$)..|
00000b90  50 47 e7 20 70 61 67 65  73 25 21 28 70 61 67 65  |PG. pages%!(page|
00000ba0  25 2a 34 29 3d 25 31 30  31 20 f2 5f 45 72 72 6f  |%*4)=%101 ._Erro|
00000bb0  72 28 22 50 61 67 65 20  22 2b c3 28 70 61 67 65  |r("Page "+.(page|
00000bc0  25 29 2b 22 20 6e 6f 74  20 64 65 66 69 6e 65 64  |%)+" not defined|
00000bd0  22 29 3a 20 e1 0d 05 5a  10 62 25 21 30 3d 68 61  |"): ...Z.b%!0=ha|
00000be0  6e 64 6c 65 25 0d 05 64  1d c8 99 20 22 57 69 6d  |ndle%..d... "Wim|
00000bf0  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
00000c00  62 25 0d 05 6e 2f c8 99  20 22 57 69 6d 70 45 78  |b%..n/.. "WimpEx|
00000c10  74 5f 4f 70 65 6e 57 69  6e 64 6f 77 54 6f 70 22  |t_OpenWindowTop"|
00000c20  2c 70 61 67 65 73 25 21  28 70 61 67 65 25 2a 34  |,pages%!(page%*4|
00000c30  29 0d 05 78 05 e1 0d 05  82 05 3a 0d 05 8c 1c dd  |)..x......:.....|
00000c40  20 f2 5f 43 6f 6d 6d 61  6e 64 28 76 61 6c 69 64  | ._Command(valid|
00000c50  61 74 69 6f 6e 24 29 0d  05 96 1a 70 6f 73 25 3d  |ation$)....pos%=|
00000c60  a7 76 61 6c 69 64 61 74  69 6f 6e 24 2c 22 63 22  |.validation$,"c"|
00000c70  29 0d 05 a0 2c e7 20 c1  76 61 6c 69 64 61 74 69  |)...,. .validati|
00000c80  6f 6e 24 2c 70 6f 73 25  2d 31 2c 31 29 3c 3e 22  |on$,pos%-1,1)<>"|
00000c90  3b 22 20 80 20 70 6f 73  25 3e 31 20 e1 0d 05 aa  |;" . pos%>1 ....|
00000ca0  0e e7 20 70 6f 73 25 3d  30 20 e1 0d 05 b4 20 60  |.. pos%=0 .... `|
00000cb0  70 6f 73 25 3d a7 76 61  6c 69 64 61 74 69 6f 6e  |pos%=.validation|
00000cc0  24 2c 22 3b 22 2c 70 6f  73 25 29 0d 05 be 29 63  |$,";",pos%)...)c|
00000cd0  6f 6d 6d 61 6e 64 24 3d  c1 76 61 6c 69 64 61 74  |ommand$=.validat|
00000ce0  69 6f 6e 24 2c 70 6f 73  25 2b 31 2c 60 70 6f 73  |ion$,pos%+1,`pos|
00000cf0  25 2d 32 29 0d 05 c8 14  e7 20 63 6f 6d 6d 61 6e  |%-2)..... comman|
00000d00  64 24 3c 3e 22 22 20 8c  0d 05 d2 20 c8 99 20 22  |d$<>"" .... .. "|
00000d10  57 69 6d 70 5f 53 74 61  72 74 54 61 73 6b 22 2c  |Wimp_StartTask",|
00000d20  63 6f 6d 6d 61 6e 64 24  0d 05 dc 05 cd 0d 05 e6  |command$........|
00000d30  05 e1 0d 05 f0 05 3a 0d  05 fa 14 dd 20 a4 5f 53  |......:..... ._S|
00000d40  74 72 69 6e 67 28 70 6f  73 25 29 0d 06 04 0e 73  |tring(pos%)....s|
00000d50  74 72 69 6e 67 24 3d 22  22 0d 06 0e 0f c8 95 20  |tring$=""...... |
00000d60  3f 70 6f 73 25 3e 33 31  0d 06 18 15 73 74 72 69  |?pos%>31....stri|
00000d70  6e 67 24 2b 3d bd 28 3f  70 6f 73 25 29 0d 06 22  |ng$+=.(?pos%).."|
00000d80  0b 70 6f 73 25 2b 3d 31  0d 06 2c 05 ce 0d 06 36  |.pos%+=1..,....6|
00000d90  0c 3d 73 74 72 69 6e 67  24 0d 06 40 05 3a 0d ff  |.=string$..@.:..|
00000da0