� > !RunImage

 � Universal Application Help
� (c) Alex Hopkins 1990
$� Version I 1.00 {November 1990}
(:
2Aș "Wimp_Initialise",200,&4B534154,"Application Help" � ,task
<
�setup
F� � �error : Quit=�
P:
Z�
d�poll(�poll(0))
n
� Quit
xș "Wimp_CloseDown"
��
�:
�� �setup
�.� block &1000,template% &1000,Help$(20,10)
�"�loadTemplates : Quit=� : N%=1
�.�read : �updatePage : �openWindow(Help%,�)
�&� � : Ƞ 1 : ȡ 1,"WaveSynth-Beep"
��
�:
�� �loadTemplates
�5ș "Wimp_OpenTemplate",,"<UniHelp$Dir>.Templates"
�Help%=�window("help")
�ș "Wimp_CloseTemplate"

�

:

� �window(a$)

"end%=template%+&1000

,Lș "Wimp_LoadTemplate",,block,template%,end%,-1,a$,0 � ,,template%,,,,c%

6&ș "Wimp_CreateWindow",,block � c%

@=c%

J:

T� �poll(mask%)

^block!0=mask%

hș "Wimp_Poll",0,block � a%

r=a%

|:

�� �poll(reason%)

�Ȏ reason% �

�� 1 : �redrawWindow

� � 2 : �openWindow(block!0,�)

�(� 3 : �closeWindow(block!0) : Quit=�

�� 6 : �buttonClick(block)

�� 17,18 : �message(block)

��

��

�:

�� �message(handle%)

�Ȏ handle%!16 �

�� 0      : Quit=�
�
�
:
& � �openWindow(handle%,full%)
0block!0=handle%
:=� � full% � ș "Wimp_GetWindowState",,block : block!28=-1
Dș "Wimp_OpenWindow",,block
N�
X:
b� �redrawWindow
l)ș "Wimp_RedrawWindow",,block � more%
vȕ more%
�!ș "Wimp_BorderWindow",,block
�)ș "Wimp_GetRectangle",,block � more%
��
��
�:
�� �closeWindow(handle%)
�block!0=handle%
� ș "Wimp_CloseWindow",,block
��
�:
�� �buttonClick(block)
�7button%=block!8 : handle%=block!12 : Icon%=block!16
�� Icon%<12 � Icon%>13 � �
"� Icon%=12 � button%=1 � N%-=1
"� Icon%=12 � button%=4 � N%+=1
"� Icon%=13 � button%=1 � N%+=1
 "� Icon%=13 � button%=4 � N%-=1
*�updatePage
4�
>:
H� �updatePage
R� N%<1 � N%=1 : � 7 : �
\� N%>R% � N%=R% : � 7 : �
f7� b%=1 � 10 : �indirIcon(Help%,b%,Help$(N%,b%)) : �
p&�indirIcon(Help%,11,"Page "+�(N%))
z.� N%=R% � �indirIcon(Help%,11,"Last Page")
��
�:
�!� �getIconInfo(handle%,icon%)
�#block!0=handle% : block!4=icon%
�!ș "Wimp_GetIconState",,block
�@ix0%=block!8 : iy0%=block!12 : ix1%=block!16 : iy1%=block!20
�flags%=block!24
�data$=$(block+28)
��
�:
�%� �indirIcon(handle%,icon%,text$)
�1�getIconInfo(handle%,icon%) : $block!28=text$
��setIcon(handle%,icon%,0,0)
�
:
(� �setIcon(handle%,icon%,eor%,mask%)
$"!block=handle% : block!4=icon%
.#block!8=eor%   : block!12=mask%
8!ș "Wimp_SetIconState",,block
B�
L:
V� �read
`$chan%=� "<UniHelp$Dir>.HelpText"
j0temp$="" : � : chr%=�#chan% : temp$+=�(chr%)
t1� chr%=10 � chr%=13 : Title$=temp$ : temp$=""
~;� : chr%=�#chan% : temp$+=�(chr%) : � chr%=10 � chr%=13
�+R%=�(temp$) : � b%=1 � R% : � c%=1 � 10
�0temp$="" : � : chr%=�#chan% : temp$+=�(chr%)
�9� chr%=10 � chr%=13 : Help$(b%,c%)=�temp$,47) : � : �
��#chan%
��indirIcon(Help%,14,Title$)
��
�:
�� �error
�ș "Wimp_DragBox",,-1
�Y!block=� : $(block+4)="Help has suffered a fatal error and must exit immediately."+�0
�4ș "Wimp_ReportError",block,1,"Application Help"
��
�

00000000  0d 00 00 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 0a 20 f4 20 55  6e 69 76 65 72 73 61 6c  |e... . Universal|
00000020  20 41 70 70 6c 69 63 61  74 69 6f 6e 20 48 65 6c  | Application Hel|
00000030  70 0d 00 14 1b f4 20 28  63 29 20 41 6c 65 78 20  |p..... (c) Alex |
00000040  48 6f 70 6b 69 6e 73 20  31 39 39 30 0d 00 1e 24  |Hopkins 1990...$|
00000050  f4 20 56 65 72 73 69 6f  6e 20 49 20 31 2e 30 30  |. Version I 1.00|
00000060  20 7b 4e 6f 76 65 6d 62  65 72 20 31 39 39 30 7d  | {November 1990}|
00000070  0d 00 28 05 3a 0d 00 32  41 c8 99 20 22 57 69 6d  |..(.:..2A.. "Wim|
00000080  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 32 30  |p_Initialise",20|
00000090  30 2c 26 34 42 35 33 34  31 35 34 2c 22 41 70 70  |0,&4B534154,"App|
000000a0  6c 69 63 61 74 69 6f 6e  20 48 65 6c 70 22 20 b8  |lication Help" .|
000000b0  20 2c 74 61 73 6b 0d 00  3c 0a f2 73 65 74 75 70  | ,task..<..setup|
000000c0  0d 00 46 17 ee 20 85 20  f2 65 72 72 6f 72 20 3a  |..F.. . .error :|
000000d0  20 51 75 69 74 3d b9 0d  00 50 05 3a 0d 00 5a 05  | Quit=...P.:..Z.|
000000e0  f5 0d 00 64 13 f2 70 6f  6c 6c 28 a4 70 6f 6c 6c  |...d..poll(.poll|
000000f0  28 30 29 29 0d 00 6e 0a  fd 20 51 75 69 74 0d 00  |(0))..n.. Quit..|
00000100  78 17 c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |x... "Wimp_Close|
00000110  44 6f 77 6e 22 0d 00 82  05 e0 0d 00 8c 05 3a 0d  |Down".........:.|
00000120  00 96 0c dd 20 f2 73 65  74 75 70 0d 00 a0 2e de  |.... .setup.....|
00000130  20 62 6c 6f 63 6b 20 26  31 30 30 30 2c 74 65 6d  | block &1000,tem|
00000140  70 6c 61 74 65 25 20 26  31 30 30 30 2c 48 65 6c  |plate% &1000,Hel|
00000150  70 24 28 32 30 2c 31 30  29 0d 00 aa 22 f2 6c 6f  |p$(20,10)...".lo|
00000160  61 64 54 65 6d 70 6c 61  74 65 73 20 3a 20 51 75  |adTemplates : Qu|
00000170  69 74 3d a3 20 3a 20 4e  25 3d 31 0d 00 b4 2e f2  |it=. : N%=1.....|
00000180  72 65 61 64 20 3a 20 f2  75 70 64 61 74 65 50 61  |read : .updatePa|
00000190  67 65 20 3a 20 f2 6f 70  65 6e 57 69 6e 64 6f 77  |ge : .openWindow|
000001a0  28 48 65 6c 70 25 2c a3  29 0d 00 be 26 d4 20 ee  |(Help%,.)...&. .|
000001b0  20 3a 20 c8 a0 20 31 20  3a 20 c8 a1 20 31 2c 22  | : .. 1 : .. 1,"|
000001c0  57 61 76 65 53 79 6e 74  68 2d 42 65 65 70 22 0d  |WaveSynth-Beep".|
000001d0  00 c8 05 e1 0d 00 d2 05  3a 0d 00 dc 14 dd 20 f2  |........:..... .|
000001e0  6c 6f 61 64 54 65 6d 70  6c 61 74 65 73 0d 00 e6  |loadTemplates...|
000001f0  35 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |5.. "Wimp_OpenTe|
00000200  6d 70 6c 61 74 65 22 2c  2c 22 3c 55 6e 69 48 65  |mplate",,"<UniHe|
00000210  6c 70 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |lp$Dir>.Template|
00000220  73 22 0d 00 f0 19 48 65  6c 70 25 3d a4 77 69 6e  |s"....Help%=.win|
00000230  64 6f 77 28 22 68 65 6c  70 22 29 0d 00 fa 1b c8  |dow("help").....|
00000240  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 54 65 6d  |. "Wimp_CloseTem|
00000250  70 6c 61 74 65 22 0d 01  04 05 e1 0d 01 0e 05 3a  |plate".........:|
00000260  0d 01 18 11 dd 20 a4 77  69 6e 64 6f 77 28 61 24  |..... .window(a$|
00000270  29 0d 01 22 18 65 6e 64  25 3d 74 65 6d 70 6c 61  |)..".end%=templa|
00000280  74 65 25 2b 26 31 30 30  30 0d 01 2c 4c c8 99 20  |te%+&1000..,L.. |
00000290  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
000002a0  74 65 22 2c 2c 62 6c 6f  63 6b 2c 74 65 6d 70 6c  |te",,block,templ|
000002b0  61 74 65 25 2c 65 6e 64  25 2c 2d 31 2c 61 24 2c  |ate%,end%,-1,a$,|
000002c0  30 20 b8 20 2c 2c 74 65  6d 70 6c 61 74 65 25 2c  |0 . ,,template%,|
000002d0  2c 2c 2c 63 25 0d 01 36  26 c8 99 20 22 57 69 6d  |,,,c%..6&.. "Wim|
000002e0  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
000002f0  2c 62 6c 6f 63 6b 20 b8  20 63 25 0d 01 40 07 3d  |,block . c%..@.=|
00000300  63 25 0d 01 4a 05 3a 0d  01 54 12 dd 20 a4 70 6f  |c%..J.:..T.. .po|
00000310  6c 6c 28 6d 61 73 6b 25  29 0d 01 5e 11 62 6c 6f  |ll(mask%)..^.blo|
00000320  63 6b 21 30 3d 6d 61 73  6b 25 0d 01 68 1f c8 99  |ck!0=mask%..h...|
00000330  20 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 30 2c 62  | "Wimp_Poll",0,b|
00000340  6c 6f 63 6b 20 b8 20 61  25 0d 01 72 07 3d 61 25  |lock . a%..r.=a%|
00000350  0d 01 7c 05 3a 0d 01 86  14 dd 20 f2 70 6f 6c 6c  |..|.:..... .poll|
00000360  28 72 65 61 73 6f 6e 25  29 0d 01 90 10 c8 8e 20  |(reason%)...... |
00000370  72 65 61 73 6f 6e 25 20  ca 0d 01 9a 17 c9 20 31  |reason% ...... 1|
00000380  20 3a 20 f2 72 65 64 72  61 77 57 69 6e 64 6f 77  | : .redrawWindow|
00000390  0d 01 a4 20 c9 20 32 20  3a 20 f2 6f 70 65 6e 57  |... . 2 : .openW|
000003a0  69 6e 64 6f 77 28 62 6c  6f 63 6b 21 30 2c b9 29  |indow(block!0,.)|
000003b0  0d 01 ae 28 c9 20 33 20  3a 20 f2 63 6c 6f 73 65  |...(. 3 : .close|
000003c0  57 69 6e 64 6f 77 28 62  6c 6f 63 6b 21 30 29 20  |Window(block!0) |
000003d0  3a 20 51 75 69 74 3d b9  0d 01 b8 1d c9 20 36 20  |: Quit=...... 6 |
000003e0  3a 20 f2 62 75 74 74 6f  6e 43 6c 69 63 6b 28 62  |: .buttonClick(b|
000003f0  6c 6f 63 6b 29 0d 01 c2  1d c9 20 31 37 2c 31 38  |lock)..... 17,18|
00000400  20 3a 20 f2 6d 65 73 73  61 67 65 28 62 6c 6f 63  | : .message(bloc|
00000410  6b 29 0d 01 cc 05 cb 0d  01 d6 05 e1 0d 01 e0 05  |k)..............|
00000420  3a 0d 01 ea 17 dd 20 f2  6d 65 73 73 61 67 65 28  |:..... .message(|
00000430  68 61 6e 64 6c 65 25 29  0d 01 f4 13 c8 8e 20 68  |handle%)...... h|
00000440  61 6e 64 6c 65 25 21 31  36 20 ca 0d 01 fe 15 c9  |andle%!16 ......|
00000450  20 30 20 20 20 20 20 20  3a 20 51 75 69 74 3d b9  | 0      : Quit=.|
00000460  0d 02 08 05 cb 0d 02 12  05 e1 0d 02 1c 05 3a 0d  |..............:.|
00000470  02 26 20 dd 20 f2 6f 70  65 6e 57 69 6e 64 6f 77  |.& . .openWindow|
00000480  28 68 61 6e 64 6c 65 25  2c 66 75 6c 6c 25 29 0d  |(handle%,full%).|
00000490  02 30 13 62 6c 6f 63 6b  21 30 3d 68 61 6e 64 6c  |.0.block!0=handl|
000004a0  65 25 0d 02 3a 3d e7 20  ac 20 66 75 6c 6c 25 20  |e%..:=. . full% |
000004b0  8c 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |. .. "Wimp_GetWi|
000004c0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |ndowState",,bloc|
000004d0  6b 20 3a 20 62 6c 6f 63  6b 21 32 38 3d 2d 31 0d  |k : block!28=-1.|
000004e0  02 44 1f c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |.D... "Wimp_Open|
000004f0  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 0d 02  |Window",,block..|
00000500  4e 05 e1 0d 02 58 05 3a  0d 02 62 13 dd 20 f2 72  |N....X.:..b.. .r|
00000510  65 64 72 61 77 57 69 6e  64 6f 77 0d 02 6c 29 c8  |edrawWindow..l).|
00000520  99 20 22 57 69 6d 70 5f  52 65 64 72 61 77 57 69  |. "Wimp_RedrawWi|
00000530  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 20 b8 20 6d  |ndow",,block . m|
00000540  6f 72 65 25 0d 02 76 0c  c8 95 20 6d 6f 72 65 25  |ore%..v... more%|
00000550  0d 02 80 21 c8 99 20 22  57 69 6d 70 5f 42 6f 72  |...!.. "Wimp_Bor|
00000560  64 65 72 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |derWindow",,bloc|
00000570  6b 0d 02 8a 29 c8 99 20  22 57 69 6d 70 5f 47 65  |k...).. "Wimp_Ge|
00000580  74 52 65 63 74 61 6e 67  6c 65 22 2c 2c 62 6c 6f  |tRectangle",,blo|
00000590  63 6b 20 b8 20 6d 6f 72  65 25 0d 02 94 05 ce 0d  |ck . more%......|
000005a0  02 9e 05 e1 0d 02 a8 05  3a 0d 02 b2 1b dd 20 f2  |........:..... .|
000005b0  63 6c 6f 73 65 57 69 6e  64 6f 77 28 68 61 6e 64  |closeWindow(hand|
000005c0  6c 65 25 29 0d 02 bc 13  62 6c 6f 63 6b 21 30 3d  |le%)....block!0=|
000005d0  68 61 6e 64 6c 65 25 0d  02 c6 20 c8 99 20 22 57  |handle%... .. "W|
000005e0  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
000005f0  2c 2c 62 6c 6f 63 6b 0d  02 d0 05 e1 0d 02 da 05  |,,block.........|
00000600  3a 0d 02 e4 19 dd 20 f2  62 75 74 74 6f 6e 43 6c  |:..... .buttonCl|
00000610  69 63 6b 28 62 6c 6f 63  6b 29 0d 02 ee 37 62 75  |ick(block)...7bu|
00000620  74 74 6f 6e 25 3d 62 6c  6f 63 6b 21 38 20 3a 20  |tton%=block!8 : |
00000630  68 61 6e 64 6c 65 25 3d  62 6c 6f 63 6b 21 31 32  |handle%=block!12|
00000640  20 3a 20 49 63 6f 6e 25  3d 62 6c 6f 63 6b 21 31  | : Icon%=block!1|
00000650  36 0d 02 f8 1d e7 20 49  63 6f 6e 25 3c 31 32 20  |6..... Icon%<12 |
00000660  84 20 49 63 6f 6e 25 3e  31 33 20 8c 20 e1 0d 03  |. Icon%>13 . ...|
00000670  02 22 e7 20 49 63 6f 6e  25 3d 31 32 20 80 20 62  |.". Icon%=12 . b|
00000680  75 74 74 6f 6e 25 3d 31  20 8c 20 4e 25 2d 3d 31  |utton%=1 . N%-=1|
00000690  0d 03 0c 22 e7 20 49 63  6f 6e 25 3d 31 32 20 80  |...". Icon%=12 .|
000006a0  20 62 75 74 74 6f 6e 25  3d 34 20 8c 20 4e 25 2b  | button%=4 . N%+|
000006b0  3d 31 0d 03 16 22 e7 20  49 63 6f 6e 25 3d 31 33  |=1...". Icon%=13|
000006c0  20 80 20 62 75 74 74 6f  6e 25 3d 31 20 8c 20 4e  | . button%=1 . N|
000006d0  25 2b 3d 31 0d 03 20 22  e7 20 49 63 6f 6e 25 3d  |%+=1.. ". Icon%=|
000006e0  31 33 20 80 20 62 75 74  74 6f 6e 25 3d 34 20 8c  |13 . button%=4 .|
000006f0  20 4e 25 2d 3d 31 0d 03  2a 0f f2 75 70 64 61 74  | N%-=1..*..updat|
00000700  65 50 61 67 65 0d 03 34  05 e1 0d 03 3e 05 3a 0d  |ePage..4....>.:.|
00000710  03 48 11 dd 20 f2 75 70  64 61 74 65 50 61 67 65  |.H.. .updatePage|
00000720  0d 03 52 1b e7 20 4e 25  3c 31 20 8c 20 4e 25 3d  |..R.. N%<1 . N%=|
00000730  31 20 3a 20 ef 20 37 20  3a 20 e1 0d 03 5c 1d e7  |1 : . 7 : ...\..|
00000740  20 4e 25 3e 52 25 20 8c  20 4e 25 3d 52 25 20 3a  | N%>R% . N%=R% :|
00000750  20 ef 20 37 20 3a 20 e1  0d 03 66 37 e3 20 62 25  | . 7 : ...f7. b%|
00000760  3d 31 20 b8 20 31 30 20  3a 20 f2 69 6e 64 69 72  |=1 . 10 : .indir|
00000770  49 63 6f 6e 28 48 65 6c  70 25 2c 62 25 2c 48 65  |Icon(Help%,b%,He|
00000780  6c 70 24 28 4e 25 2c 62  25 29 29 20 3a 20 ed 0d  |lp$(N%,b%)) : ..|
00000790  03 70 26 f2 69 6e 64 69  72 49 63 6f 6e 28 48 65  |.p&.indirIcon(He|
000007a0  6c 70 25 2c 31 31 2c 22  50 61 67 65 20 22 2b c3  |lp%,11,"Page "+.|
000007b0  28 4e 25 29 29 0d 03 7a  2e e7 20 4e 25 3d 52 25  |(N%))..z.. N%=R%|
000007c0  20 8c 20 f2 69 6e 64 69  72 49 63 6f 6e 28 48 65  | . .indirIcon(He|
000007d0  6c 70 25 2c 31 31 2c 22  4c 61 73 74 20 50 61 67  |lp%,11,"Last Pag|
000007e0  65 22 29 0d 03 84 05 e1  0d 03 8e 05 3a 0d 03 98  |e").........:...|
000007f0  21 dd 20 f2 67 65 74 49  63 6f 6e 49 6e 66 6f 28  |!. .getIconInfo(|
00000800  68 61 6e 64 6c 65 25 2c  69 63 6f 6e 25 29 0d 03  |handle%,icon%)..|
00000810  a2 23 62 6c 6f 63 6b 21  30 3d 68 61 6e 64 6c 65  |.#block!0=handle|
00000820  25 20 3a 20 62 6c 6f 63  6b 21 34 3d 69 63 6f 6e  |% : block!4=icon|
00000830  25 0d 03 ac 21 c8 99 20  22 57 69 6d 70 5f 47 65  |%...!.. "Wimp_Ge|
00000840  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00000850  63 6b 0d 03 b6 40 69 78  30 25 3d 62 6c 6f 63 6b  |ck...@ix0%=block|
00000860  21 38 20 3a 20 69 79 30  25 3d 62 6c 6f 63 6b 21  |!8 : iy0%=block!|
00000870  31 32 20 3a 20 69 78 31  25 3d 62 6c 6f 63 6b 21  |12 : ix1%=block!|
00000880  31 36 20 3a 20 69 79 31  25 3d 62 6c 6f 63 6b 21  |16 : iy1%=block!|
00000890  32 30 0d 03 c0 13 66 6c  61 67 73 25 3d 62 6c 6f  |20....flags%=blo|
000008a0  63 6b 21 32 34 0d 03 ca  15 64 61 74 61 24 3d 24  |ck!24....data$=$|
000008b0  28 62 6c 6f 63 6b 2b 32  38 29 0d 03 d4 05 e1 0d  |(block+28)......|
000008c0  03 de 05 3a 0d 03 e8 25  dd 20 f2 69 6e 64 69 72  |...:...%. .indir|
000008d0  49 63 6f 6e 28 68 61 6e  64 6c 65 25 2c 69 63 6f  |Icon(handle%,ico|
000008e0  6e 25 2c 74 65 78 74 24  29 0d 03 f2 31 f2 67 65  |n%,text$)...1.ge|
000008f0  74 49 63 6f 6e 49 6e 66  6f 28 68 61 6e 64 6c 65  |tIconInfo(handle|
00000900  25 2c 69 63 6f 6e 25 29  20 3a 20 24 62 6c 6f 63  |%,icon%) : $bloc|
00000910  6b 21 32 38 3d 74 65 78  74 24 0d 03 fc 1f f2 73  |k!28=text$.....s|
00000920  65 74 49 63 6f 6e 28 68  61 6e 64 6c 65 25 2c 69  |etIcon(handle%,i|
00000930  63 6f 6e 25 2c 30 2c 30  29 0d 04 06 05 e1 0d 04  |con%,0,0).......|
00000940  10 05 3a 0d 04 1a 28 dd  20 f2 73 65 74 49 63 6f  |..:...(. .setIco|
00000950  6e 28 68 61 6e 64 6c 65  25 2c 69 63 6f 6e 25 2c  |n(handle%,icon%,|
00000960  65 6f 72 25 2c 6d 61 73  6b 25 29 0d 04 24 22 21  |eor%,mask%)..$"!|
00000970  62 6c 6f 63 6b 3d 68 61  6e 64 6c 65 25 20 3a 20  |block=handle% : |
00000980  62 6c 6f 63 6b 21 34 3d  69 63 6f 6e 25 0d 04 2e  |block!4=icon%...|
00000990  23 62 6c 6f 63 6b 21 38  3d 65 6f 72 25 20 20 20  |#block!8=eor%   |
000009a0  3a 20 62 6c 6f 63 6b 21  31 32 3d 6d 61 73 6b 25  |: block!12=mask%|
000009b0  0d 04 38 21 c8 99 20 22  57 69 6d 70 5f 53 65 74  |..8!.. "Wimp_Set|
000009c0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |IconState",,bloc|
000009d0  6b 0d 04 42 05 e1 0d 04  4c 05 3a 0d 04 56 0b dd  |k..B....L.:..V..|
000009e0  20 f2 72 65 61 64 0d 04  60 24 63 68 61 6e 25 3d  | .read..`$chan%=|
000009f0  8e 20 22 3c 55 6e 69 48  65 6c 70 24 44 69 72 3e  |. "<UniHelp$Dir>|
00000a00  2e 48 65 6c 70 54 65 78  74 22 0d 04 6a 30 74 65  |.HelpText"..j0te|
00000a10  6d 70 24 3d 22 22 20 3a  20 f5 20 3a 20 63 68 72  |mp$="" : . : chr|
00000a20  25 3d 9a 23 63 68 61 6e  25 20 3a 20 74 65 6d 70  |%=.#chan% : temp|
00000a30  24 2b 3d bd 28 63 68 72  25 29 0d 04 74 31 fd 20  |$+=.(chr%)..t1. |
00000a40  63 68 72 25 3d 31 30 20  84 20 63 68 72 25 3d 31  |chr%=10 . chr%=1|
00000a50  33 20 3a 20 54 69 74 6c  65 24 3d 74 65 6d 70 24  |3 : Title$=temp$|
00000a60  20 3a 20 74 65 6d 70 24  3d 22 22 0d 04 7e 3b f5  | : temp$=""..~;.|
00000a70  20 3a 20 63 68 72 25 3d  9a 23 63 68 61 6e 25 20  | : chr%=.#chan% |
00000a80  3a 20 74 65 6d 70 24 2b  3d bd 28 63 68 72 25 29  |: temp$+=.(chr%)|
00000a90  20 3a 20 fd 20 63 68 72  25 3d 31 30 20 84 20 63  | : . chr%=10 . c|
00000aa0  68 72 25 3d 31 33 0d 04  88 2b 52 25 3d bb 28 74  |hr%=13...+R%=.(t|
00000ab0  65 6d 70 24 29 20 3a 20  e3 20 62 25 3d 31 20 b8  |emp$) : . b%=1 .|
00000ac0  20 52 25 20 3a 20 e3 20  63 25 3d 31 20 b8 20 31  | R% : . c%=1 . 1|
00000ad0  30 0d 04 92 30 74 65 6d  70 24 3d 22 22 20 3a 20  |0...0temp$="" : |
00000ae0  f5 20 3a 20 63 68 72 25  3d 9a 23 63 68 61 6e 25  |. : chr%=.#chan%|
00000af0  20 3a 20 74 65 6d 70 24  2b 3d bd 28 63 68 72 25  | : temp$+=.(chr%|
00000b00  29 0d 04 9c 39 fd 20 63  68 72 25 3d 31 30 20 84  |)...9. chr%=10 .|
00000b10  20 63 68 72 25 3d 31 33  20 3a 20 48 65 6c 70 24  | chr%=13 : Help$|
00000b20  28 62 25 2c 63 25 29 3d  c0 74 65 6d 70 24 2c 34  |(b%,c%)=.temp$,4|
00000b30  37 29 20 3a 20 ed 20 3a  20 ed 0d 04 a6 0b d9 23  |7) : . : ......#|
00000b40  63 68 61 6e 25 0d 04 b0  1f f2 69 6e 64 69 72 49  |chan%.....indirI|
00000b50  63 6f 6e 28 48 65 6c 70  25 2c 31 34 2c 54 69 74  |con(Help%,14,Tit|
00000b60  6c 65 24 29 0d 04 ba 05  e1 0d 04 c4 05 3a 0d 04  |le$).........:..|
00000b70  ce 0c dd 20 f2 65 72 72  6f 72 0d 04 d8 19 c8 99  |... .error......|
00000b80  20 22 57 69 6d 70 5f 44  72 61 67 42 6f 78 22 2c  | "Wimp_DragBox",|
00000b90  2c 2d 31 0d 04 e2 59 21  62 6c 6f 63 6b 3d 9f 20  |,-1...Y!block=. |
00000ba0  3a 20 24 28 62 6c 6f 63  6b 2b 34 29 3d 22 48 65  |: $(block+4)="He|
00000bb0  6c 70 20 68 61 73 20 73  75 66 66 65 72 65 64 20  |lp has suffered |
00000bc0  61 20 66 61 74 61 6c 20  65 72 72 6f 72 20 61 6e  |a fatal error an|
00000bd0  64 20 6d 75 73 74 20 65  78 69 74 20 69 6d 6d 65  |d must exit imme|
00000be0  64 69 61 74 65 6c 79 2e  22 2b bd 30 0d 04 ec 34  |diately."+.0...4|
00000bf0  c8 99 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.. "Wimp_ReportE|
00000c00  72 72 6f 72 22 2c 62 6c  6f 63 6b 2c 31 2c 22 41  |rror",block,1,"A|
00000c10  70 70 6c 69 63 61 74 69  6f 6e 20 48 65 6c 70 22  |pplication Help"|
00000c20  0d 04 f6 05 e1 0d ff                              |.......|
00000c27