�     >!RunImage
� By  Mark Moxon
� For 32-bit machines
(� (c) BAU April 1993
2:
<!version$="1.00 (13 Apr 1993)"
Fdir$="<Rend$Dir>"
Pț dir$+".WimpLib"
Z:
d
�setup
n!�templates(dir$+".Templates")
x"bar%=�icon_bar(block%,"!rend")
�:
�bmenu_length%=2
�+�create_menu(bmenu%,width%,end%,"Rend")
�9�menu_item(bmenu%,width%,end%,"Info",0,0,0,0,0,info%)
�6�menu_item(bmenu%,width%,end%,"Quit",0,0,0,0,1,-1)
�:
��
�
 �poll
�� quit%
�:
�$block%="TASK"
�%ș "Wimp_CloseDown",task%,!block%
��

:

:

� �setup

"l� � � �wimperror(block%,�,�$+" (internal error code "+�(�)+")",task_name$,0,1)=2 � ș "Wimp_CloseDown":�

,7quit%=�       : � True if application is to be quit

63� block%  &1000 : � Block returned by Wimp_Poll

@*� bmenu%  &200  : � Main icon bar menu

JH� spname% 20    : � Buffer for sprite name of changeable icon on bar

T;� ind1%   500   : � Workspace for Info indirected icons

^9� decode% &100  : � Block to decode menu choices into

h4state%=0          : � State of the icon bar icon

rtask_name$="Rend"

|info1$=task_name$

�info2$="Render Front End"

�&info3$="Robin Barnes & Mark Moxon"

�info4$=version$

�$block%="TASK"

�@ș "Wimp_Initialise",200,!block%,task_name$ � version%,task%

��

�:

�:

�� �templates(file$)

�� tempname% 11

�!ș "Wimp_OpenTemplate",,file$

�$tempname%="progInfo"

�Aș "Wimp_LoadTemplate",,block%,ind1%,ind1%+499,-1,tempname%,0
*ș "Wimp_CreateWindow",,block% � info%
!block%=info%
Ablock%!4=1:ș "Wimp_GetIconState",,block%:$(block%!28)=info1$
&Ablock%!4=2:ș "Wimp_GetIconState",,block%:$(block%!28)=info2$
0Ablock%!4=3:ș "Wimp_GetIconState",,block%:$(block%!28)=info3$
:Ablock%!4=4:ș "Wimp_GetIconState",,block%:$(block%!28)=info4$
Dș "Wimp_CloseTemplate"
N�
X:
b:
l� �poll
v$ș "Wimp_Poll",,block% � reason%
�Ȏ reason% �
�' � 2 : ș "Wimp_OpenWindow",,block%
�( � 3 : ș "Wimp_CloseWindow",,block%
� � 6 : �mouse_click
� � 9 : �menu_selection
� � 17,18 : �user_message
��
��
�:
�:
�� �mouse_click
�� block%!12=-2 �
� � block%!8=2 �
5  �display_bar_menu(bmenu%,bmenu_length%,!block%)
 �
�
 �
*:
4:
>� �menu_selection
H� !block%=1 � quit%=�
R�
\:
f:
p� �user_message
zȎ block%!16 �
� � 0 : quit%=�
�Q � 3 : � block%!40<>&1000 � block%!40<>&2000 � �rend(�zero_string(block%+44))
��
��
�:
�:
�� �rend(file$)
�$filedir$=�branch(�branch(file$))
��("Dir "+filedir$)
�=ș "Wimp_StartTask","Run <Rend$Dir>.Render "+�leaf(file$)
��
�

00000000  0d 00 0a 14 f4 20 20 20  20 20 3e 21 52 75 6e 49  |.....     >!RunI|
00000010  6d 61 67 65 0d 00 14 14  f4 20 42 79 20 20 4d 61  |mage..... By  Ma|
00000020  72 6b 20 4d 6f 78 6f 6e  0d 00 1e 19 f4 20 46 6f  |rk Moxon..... Fo|
00000030  72 20 33 32 2d 62 69 74  20 6d 61 63 68 69 6e 65  |r 32-bit machine|
00000040  73 0d 00 28 18 f4 20 28  63 29 20 42 41 55 20 41  |s..(.. (c) BAU A|
00000050  70 72 69 6c 20 31 39 39  33 0d 00 32 05 3a 0d 00  |pril 1993..2.:..|
00000060  3c 21 76 65 72 73 69 6f  6e 24 3d 22 31 2e 30 30  |<!version$="1.00|
00000070  20 28 31 33 20 41 70 72  20 31 39 39 33 29 22 0d  | (13 Apr 1993)".|
00000080  00 46 15 64 69 72 24 3d  22 3c 52 65 6e 64 24 44  |.F.dir$="<Rend$D|
00000090  69 72 3e 22 0d 00 50 16  c8 9b 20 64 69 72 24 2b  |ir>"..P... dir$+|
000000a0  22 2e 57 69 6d 70 4c 69  62 22 0d 00 5a 05 3a 0d  |".WimpLib"..Z.:.|
000000b0  00 64 0a f2 73 65 74 75  70 0d 00 6e 21 f2 74 65  |.d..setup..n!.te|
000000c0  6d 70 6c 61 74 65 73 28  64 69 72 24 2b 22 2e 54  |mplates(dir$+".T|
000000d0  65 6d 70 6c 61 74 65 73  22 29 0d 00 78 22 62 61  |emplates")..x"ba|
000000e0  72 25 3d a4 69 63 6f 6e  5f 62 61 72 28 62 6c 6f  |r%=.icon_bar(blo|
000000f0  63 6b 25 2c 22 21 72 65  6e 64 22 29 0d 00 82 05  |ck%,"!rend")....|
00000100  3a 0d 00 8c 13 62 6d 65  6e 75 5f 6c 65 6e 67 74  |:....bmenu_lengt|
00000110  68 25 3d 32 0d 00 96 2b  f2 63 72 65 61 74 65 5f  |h%=2...+.create_|
00000120  6d 65 6e 75 28 62 6d 65  6e 75 25 2c 77 69 64 74  |menu(bmenu%,widt|
00000130  68 25 2c 65 6e 64 25 2c  22 52 65 6e 64 22 29 0d  |h%,end%,"Rend").|
00000140  00 a0 39 f2 6d 65 6e 75  5f 69 74 65 6d 28 62 6d  |..9.menu_item(bm|
00000150  65 6e 75 25 2c 77 69 64  74 68 25 2c 65 6e 64 25  |enu%,width%,end%|
00000160  2c 22 49 6e 66 6f 22 2c  30 2c 30 2c 30 2c 30 2c  |,"Info",0,0,0,0,|
00000170  30 2c 69 6e 66 6f 25 29  0d 00 aa 36 f2 6d 65 6e  |0,info%)...6.men|
00000180  75 5f 69 74 65 6d 28 62  6d 65 6e 75 25 2c 77 69  |u_item(bmenu%,wi|
00000190  64 74 68 25 2c 65 6e 64  25 2c 22 51 75 69 74 22  |dth%,end%,"Quit"|
000001a0  2c 30 2c 30 2c 30 2c 30  2c 31 2c 2d 31 29 0d 00  |,0,0,0,0,1,-1)..|
000001b0  b4 05 3a 0d 00 be 05 f5  0d 00 c8 0a 20 f2 70 6f  |..:......... .po|
000001c0  6c 6c 0d 00 d2 0b fd 20  71 75 69 74 25 0d 00 dc  |ll..... quit%...|
000001d0  05 3a 0d 00 e6 12 24 62  6c 6f 63 6b 25 3d 22 54  |.:....$block%="T|
000001e0  41 53 4b 22 0d 00 f0 25  c8 99 20 22 57 69 6d 70  |ASK"...%.. "Wimp|
000001f0  5f 43 6c 6f 73 65 44 6f  77 6e 22 2c 74 61 73 6b  |_CloseDown",task|
00000200  25 2c 21 62 6c 6f 63 6b  25 0d 00 fa 05 e0 0d 01  |%,!block%.......|
00000210  04 05 3a 0d 01 0e 05 3a  0d 01 18 0c dd 20 f2 73  |..:....:..... .s|
00000220  65 74 75 70 0d 01 22 6c  ee 20 85 20 e7 20 a4 77  |etup.."l. . . .w|
00000230  69 6d 70 65 72 72 6f 72  28 62 6c 6f 63 6b 25 2c  |imperror(block%,|
00000240  9f 2c f6 24 2b 22 20 28  69 6e 74 65 72 6e 61 6c  |.,.$+" (internal|
00000250  20 65 72 72 6f 72 20 63  6f 64 65 20 22 2b c3 28  | error code "+.(|
00000260  9e 29 2b 22 29 22 2c 74  61 73 6b 5f 6e 61 6d 65  |.)+")",task_name|
00000270  24 2c 30 2c 31 29 3d 32  20 8c 20 c8 99 20 22 57  |$,0,1)=2 . .. "W|
00000280  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 3a e0  |imp_CloseDown":.|
00000290  0d 01 2c 37 71 75 69 74  25 3d a3 20 20 20 20 20  |..,7quit%=.     |
000002a0  20 20 3a 20 f4 20 54 72  75 65 20 69 66 20 61 70  |  : . True if ap|
000002b0  70 6c 69 63 61 74 69 6f  6e 20 69 73 20 74 6f 20  |plication is to |
000002c0  62 65 20 71 75 69 74 0d  01 36 33 de 20 62 6c 6f  |be quit..63. blo|
000002d0  63 6b 25 20 20 26 31 30  30 30 20 3a 20 f4 20 42  |ck%  &1000 : . B|
000002e0  6c 6f 63 6b 20 72 65 74  75 72 6e 65 64 20 62 79  |lock returned by|
000002f0  20 57 69 6d 70 5f 50 6f  6c 6c 0d 01 40 2a de 20  | Wimp_Poll..@*. |
00000300  62 6d 65 6e 75 25 20 20  26 32 30 30 20 20 3a 20  |bmenu%  &200  : |
00000310  f4 20 4d 61 69 6e 20 69  63 6f 6e 20 62 61 72 20  |. Main icon bar |
00000320  6d 65 6e 75 0d 01 4a 48  de 20 73 70 6e 61 6d 65  |menu..JH. spname|
00000330  25 20 32 30 20 20 20 20  3a 20 f4 20 42 75 66 66  |% 20    : . Buff|
00000340  65 72 20 66 6f 72 20 73  70 72 69 74 65 20 6e 61  |er for sprite na|
00000350  6d 65 20 6f 66 20 63 68  61 6e 67 65 61 62 6c 65  |me of changeable|
00000360  20 69 63 6f 6e 20 6f 6e  20 62 61 72 0d 01 54 3b  | icon on bar..T;|
00000370  de 20 69 6e 64 31 25 20  20 20 35 30 30 20 20 20  |. ind1%   500   |
00000380  3a 20 f4 20 57 6f 72 6b  73 70 61 63 65 20 66 6f  |: . Workspace fo|
00000390  72 20 49 6e 66 6f 20 69  6e 64 69 72 65 63 74 65  |r Info indirecte|
000003a0  64 20 69 63 6f 6e 73 0d  01 5e 39 de 20 64 65 63  |d icons..^9. dec|
000003b0  6f 64 65 25 20 26 31 30  30 20 20 3a 20 f4 20 42  |ode% &100  : . B|
000003c0  6c 6f 63 6b 20 74 6f 20  64 65 63 6f 64 65 20 6d  |lock to decode m|
000003d0  65 6e 75 20 63 68 6f 69  63 65 73 20 69 6e 74 6f  |enu choices into|
000003e0  0d 01 68 34 73 74 61 74  65 25 3d 30 20 20 20 20  |..h4state%=0    |
000003f0  20 20 20 20 20 20 3a 20  f4 20 53 74 61 74 65 20  |      : . State |
00000400  6f 66 20 74 68 65 20 69  63 6f 6e 20 62 61 72 20  |of the icon bar |
00000410  69 63 6f 6e 0d 01 72 15  74 61 73 6b 5f 6e 61 6d  |icon..r.task_nam|
00000420  65 24 3d 22 52 65 6e 64  22 0d 01 7c 15 69 6e 66  |e$="Rend"..|.inf|
00000430  6f 31 24 3d 74 61 73 6b  5f 6e 61 6d 65 24 0d 01  |o1$=task_name$..|
00000440  86 1d 69 6e 66 6f 32 24  3d 22 52 65 6e 64 65 72  |..info2$="Render|
00000450  20 46 72 6f 6e 74 20 45  6e 64 22 0d 01 90 26 69  | Front End"...&i|
00000460  6e 66 6f 33 24 3d 22 52  6f 62 69 6e 20 42 61 72  |nfo3$="Robin Bar|
00000470  6e 65 73 20 26 20 4d 61  72 6b 20 4d 6f 78 6f 6e  |nes & Mark Moxon|
00000480  22 0d 01 9a 13 69 6e 66  6f 34 24 3d 76 65 72 73  |"....info4$=vers|
00000490  69 6f 6e 24 0d 01 a4 12  24 62 6c 6f 63 6b 25 3d  |ion$....$block%=|
000004a0  22 54 41 53 4b 22 0d 01  ae 40 c8 99 20 22 57 69  |"TASK"...@.. "Wi|
000004b0  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 32  |mp_Initialise",2|
000004c0  30 30 2c 21 62 6c 6f 63  6b 25 2c 74 61 73 6b 5f  |00,!block%,task_|
000004d0  6e 61 6d 65 24 20 b8 20  76 65 72 73 69 6f 6e 25  |name$ . version%|
000004e0  2c 74 61 73 6b 25 0d 01  b8 05 e1 0d 01 c2 05 3a  |,task%.........:|
000004f0  0d 01 cc 05 3a 0d 01 d6  17 dd 20 f2 74 65 6d 70  |....:..... .temp|
00000500  6c 61 74 65 73 28 66 69  6c 65 24 29 0d 01 e0 12  |lates(file$)....|
00000510  de 20 74 65 6d 70 6e 61  6d 65 25 20 31 31 0d 01  |. tempname% 11..|
00000520  ea 21 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 54  |.!.. "Wimp_OpenT|
00000530  65 6d 70 6c 61 74 65 22  2c 2c 66 69 6c 65 24 0d  |emplate",,file$.|
00000540  01 f4 19 24 74 65 6d 70  6e 61 6d 65 25 3d 22 70  |...$tempname%="p|
00000550  72 6f 67 49 6e 66 6f 22  0d 01 fe 41 c8 99 20 22  |rogInfo"...A.. "|
00000560  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000570  65 22 2c 2c 62 6c 6f 63  6b 25 2c 69 6e 64 31 25  |e",,block%,ind1%|
00000580  2c 69 6e 64 31 25 2b 34  39 39 2c 2d 31 2c 74 65  |,ind1%+499,-1,te|
00000590  6d 70 6e 61 6d 65 25 2c  30 0d 02 08 2a c8 99 20  |mpname%,0...*.. |
000005a0  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
000005b0  6f 77 22 2c 2c 62 6c 6f  63 6b 25 20 b8 20 69 6e  |ow",,block% . in|
000005c0  66 6f 25 0d 02 12 11 21  62 6c 6f 63 6b 25 3d 69  |fo%....!block%=i|
000005d0  6e 66 6f 25 0d 02 1c 41  62 6c 6f 63 6b 25 21 34  |nfo%...Ablock%!4|
000005e0  3d 31 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |=1:.. "Wimp_GetI|
000005f0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00000600  25 3a 24 28 62 6c 6f 63  6b 25 21 32 38 29 3d 69  |%:$(block%!28)=i|
00000610  6e 66 6f 31 24 0d 02 26  41 62 6c 6f 63 6b 25 21  |nfo1$..&Ablock%!|
00000620  34 3d 32 3a c8 99 20 22  57 69 6d 70 5f 47 65 74  |4=2:.. "Wimp_Get|
00000630  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |IconState",,bloc|
00000640  6b 25 3a 24 28 62 6c 6f  63 6b 25 21 32 38 29 3d  |k%:$(block%!28)=|
00000650  69 6e 66 6f 32 24 0d 02  30 41 62 6c 6f 63 6b 25  |info2$..0Ablock%|
00000660  21 34 3d 33 3a c8 99 20  22 57 69 6d 70 5f 47 65  |!4=3:.. "Wimp_Ge|
00000670  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00000680  63 6b 25 3a 24 28 62 6c  6f 63 6b 25 21 32 38 29  |ck%:$(block%!28)|
00000690  3d 69 6e 66 6f 33 24 0d  02 3a 41 62 6c 6f 63 6b  |=info3$..:Ablock|
000006a0  25 21 34 3d 34 3a c8 99  20 22 57 69 6d 70 5f 47  |%!4=4:.. "Wimp_G|
000006b0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
000006c0  6f 63 6b 25 3a 24 28 62  6c 6f 63 6b 25 21 32 38  |ock%:$(block%!28|
000006d0  29 3d 69 6e 66 6f 34 24  0d 02 44 1b c8 99 20 22  |)=info4$..D... "|
000006e0  57 69 6d 70 5f 43 6c 6f  73 65 54 65 6d 70 6c 61  |Wimp_CloseTempla|
000006f0  74 65 22 0d 02 4e 05 e1  0d 02 58 05 3a 0d 02 62  |te"..N....X.:..b|
00000700  05 3a 0d 02 6c 0b dd 20  f2 70 6f 6c 6c 0d 02 76  |.:..l.. .poll..v|
00000710  24 c8 99 20 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  |$.. "Wimp_Poll",|
00000720  2c 62 6c 6f 63 6b 25 20  b8 20 72 65 61 73 6f 6e  |,block% . reason|
00000730  25 0d 02 80 10 c8 8e 20  72 65 61 73 6f 6e 25 20  |%...... reason% |
00000740  ca 0d 02 8a 27 20 c9 20  32 20 3a 20 c8 99 20 22  |....' . 2 : .. "|
00000750  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000760  2c 2c 62 6c 6f 63 6b 25  0d 02 94 28 20 c9 20 33  |,,block%...( . 3|
00000770  20 3a 20 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  | : .. "Wimp_Clos|
00000780  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |eWindow",,block%|
00000790  0d 02 9e 17 20 c9 20 36  20 3a 20 f2 6d 6f 75 73  |.... . 6 : .mous|
000007a0  65 5f 63 6c 69 63 6b 0d  02 a8 1a 20 c9 20 39 20  |e_click.... . 9 |
000007b0  3a 20 f2 6d 65 6e 75 5f  73 65 6c 65 63 74 69 6f  |: .menu_selectio|
000007c0  6e 0d 02 b2 1c 20 c9 20  31 37 2c 31 38 20 3a 20  |n.... . 17,18 : |
000007d0  f2 75 73 65 72 5f 6d 65  73 73 61 67 65 0d 02 bc  |.user_message...|
000007e0  05 cb 0d 02 c6 05 e1 0d  02 d0 05 3a 0d 02 da 05  |...........:....|
000007f0  3a 0d 02 e4 12 dd 20 f2  6d 6f 75 73 65 5f 63 6c  |:..... .mouse_cl|
00000800  69 63 6b 0d 02 ee 14 e7  20 62 6c 6f 63 6b 25 21  |ick..... block%!|
00000810  31 32 3d 2d 32 20 8c 0d  02 f8 13 20 e7 20 62 6c  |12=-2 ..... . bl|
00000820  6f 63 6b 25 21 38 3d 32  20 8c 0d 03 02 35 20 20  |ock%!8=2 ....5  |
00000830  f2 64 69 73 70 6c 61 79  5f 62 61 72 5f 6d 65 6e  |.display_bar_men|
00000840  75 28 62 6d 65 6e 75 25  2c 62 6d 65 6e 75 5f 6c  |u(bmenu%,bmenu_l|
00000850  65 6e 67 74 68 25 2c 21  62 6c 6f 63 6b 25 29 0d  |ength%,!block%).|
00000860  03 0c 06 20 cd 0d 03 16  05 cd 0d 03 20 05 e1 0d  |... ........ ...|
00000870  03 2a 05 3a 0d 03 34 05  3a 0d 03 3e 15 dd 20 f2  |.*.:..4.:..>.. .|
00000880  6d 65 6e 75 5f 73 65 6c  65 63 74 69 6f 6e 0d 03  |menu_selection..|
00000890  48 19 e7 20 21 62 6c 6f  63 6b 25 3d 31 20 8c 20  |H.. !block%=1 . |
000008a0  71 75 69 74 25 3d b9 0d  03 52 05 e1 0d 03 5c 05  |quit%=...R....\.|
000008b0  3a 0d 03 66 05 3a 0d 03  70 13 dd 20 f2 75 73 65  |:..f.:..p.. .use|
000008c0  72 5f 6d 65 73 73 61 67  65 0d 03 7a 12 c8 8e 20  |r_message..z... |
000008d0  62 6c 6f 63 6b 25 21 31  36 20 ca 0d 03 84 12 20  |block%!16 ..... |
000008e0  c9 20 30 20 3a 20 71 75  69 74 25 3d b9 0d 03 8e  |. 0 : quit%=....|
000008f0  51 20 c9 20 33 20 3a 20  e7 20 62 6c 6f 63 6b 25  |Q . 3 : . block%|
00000900  21 34 30 3c 3e 26 31 30  30 30 20 80 20 62 6c 6f  |!40<>&1000 . blo|
00000910  63 6b 25 21 34 30 3c 3e  26 32 30 30 30 20 8c 20  |ck%!40<>&2000 . |
00000920  f2 72 65 6e 64 28 a4 7a  65 72 6f 5f 73 74 72 69  |.rend(.zero_stri|
00000930  6e 67 28 62 6c 6f 63 6b  25 2b 34 34 29 29 0d 03  |ng(block%+44))..|
00000940  98 05 cb 0d 03 a2 05 e1  0d 03 ac 05 3a 0d 03 b6  |............:...|
00000950  05 3a 0d 03 c0 12 dd 20  f2 72 65 6e 64 28 66 69  |.:..... .rend(fi|
00000960  6c 65 24 29 0d 03 ca 24  66 69 6c 65 64 69 72 24  |le$)...$filedir$|
00000970  3d a4 62 72 61 6e 63 68  28 a4 62 72 61 6e 63 68  |=.branch(.branch|
00000980  28 66 69 6c 65 24 29 29  0d 03 d4 16 ff 28 22 44  |(file$)).....("D|
00000990  69 72 20 22 2b 66 69 6c  65 64 69 72 24 29 0d 03  |ir "+filedir$)..|
000009a0  de 3d c8 99 20 22 57 69  6d 70 5f 53 74 61 72 74  |.=.. "Wimp_Start|
000009b0  54 61 73 6b 22 2c 22 52  75 6e 20 3c 52 65 6e 64  |Task","Run <Rend|
000009c0  24 44 69 72 3e 2e 52 65  6e 64 65 72 20 22 2b a4  |$Dir>.Render "+.|
000009d0  6c 65 61 66 28 66 69 6c  65 24 29 0d 03 e8 05 e1  |leaf(file$).....|
000009e0  0d ff                                             |..|
000009e2