� >!RunImage
� � Justin Fletcher
9� This version is the original unsquashed version and

-� should only be kept for admin purposes.
@� The other (!RunImageC is compressed and should be the copy
=� used for distributed use (ie it's harder to hack :-) ).
testing%=�
)ț "<BasicLibrary$File>":�initlibrary
(=� � �closemessages:�eerror:� testing%=� ��("Spool"):� � �
2 � testing%=� �*Spool Spooled
<� testing%=� �� �
F5� Appname$ is used for task manager & Appname$Dir
PD� shortname$ is used for iconbar name and should usually be null
Z'� longname$ is used for info window
d6Appname$="PrintKill":version$="1.00 (13 Feb 1996)"
n'shortname$="":longname$="PrintKill"
x'Appdir$=�systemvar(Appname$+"$Dir")
��initwimp:�initprog
�quit%=�
�� � �error:� �t`@
�ȕ quit%=�
�
 �Poll
��
�ș "Wimp_CloseDown"
��closemessages
�� testing%=� �*SPOOL
��
�5� quit%=-1 for user quit, -2 for taskmanager quit
�:
�
��Poll

!ș "Wimp_Poll",1,b% � reason%

Ȏ reason% �

! � 2:ș "Wimp_OpenWindow",,b%

"" � 3:ș "Wimp_CloseWindow",,b%

,& � 6:�mouseclick(b%!8,b%!12,b%!16)

6 � 9:�menuchoice

@ � 17,18:�receive(b%!16)

J � 19:�receiveack(b%!16)

T�

^�

h:

r0� Buttons : 1 = Adjust, 2 = Menu, 4 = Select

|��mouseclick(but,win,icon)

�Ȏ win �

�	 � -2

�  Ȏ but �

�+   � 1,4:*Filer_Run <Printers$Dir>.!Run

�   � 2:�ibmenu

�  �

��

��

�:

���menuchoice

�Dș"Wimp_GetPointerInfo",,message_buffer%:mbut%=message_buffer%!8

�m$=�decodemenu(curmenu%)

�Ȏ m$ �
 � "Quit":quit%=�
�
-� (mbut%�1)=1 ��recreatemenu �curmenu%=-1
&�
0:
:��receive(mess)
D
Ȏ mess �
N% � &400C3:� Message_TaskClosedown
X,  � b%!4=prequit% �quit%=�:�printersdied
b � 0:quit%=�*2
l! � &80143:� Message_PrintInit
v;  b%!12=0:b%!16=8:b%!0=24:b%!20=1:� Quit only this task
�  prequit%=b%!4
�8  ș "Wimp_SendMessage",18,b%,b%!4:� Message_PreQuit
�# � &502:�Help(b%!32,b%!36,b%!4)
��
��
�:
���receiveack(mess)
�
Ȏ mess �
� � 8:� Message_PreQuit
�5  � It bounced - therefore it will let us kill it
�  b%!12=0:b%!16=0:b%!0=20
�9  ș "Wimp_SendMessage",17,b%,prequit%:� Message_Quit
��
�
:
/� Any messages to be received MUST be noted
 ��initwimp
!!� messagelist% 256:messptr%=0
"'�notemessage(&502):�notemessage(10)
#�notemessage(0)
$Qș "Wimp_Initialise",310,&4B534154,Appname$,messagelist% � wimpversion,handle
4Gindl%=1024:menul%=1024:� b% 2048,ind% indl%,menu% menul%,wspc% &800
>curmenu%=-1
H�openmessages
R$infobox%=�loadtemplate("Info",1)
\%�seticontext(infobox%,1,Appname$)
f&�seticontext(infobox%,2,longname$)
p%�seticontext(infobox%,4,version$)
z:ibhandle=�CreateIconBarIcon("!"+Appname$,shortname$,1)
�8ibmenu%=�createmenu(Appname$+"|Info]>infobox%|Quit")
�iboptions%=options%
��
�:
���initprog
�prequit%=-1
�"*Filer_Run <Printers$Dir>.!Run
��
�:
���Help(win,icon,to)
�!� �TFD:�readhelp(win,icon,to)
��
�
� Windows
� infobox%,">HInfobox"
� 3,">HInfobox3"
� -2,">HIconbar"
$� -1,-1
.� Menus
8� -2,-2,-2,-2
B:
L��printersdied
V(� --- Add user routines here (Start)
`1� You might want to change to mode 0 here, eg
j� SYS "Wimp_SetMode",0
t�
~;� Alternatively, you might like to try MODE 8, which is
�?� identical, bar the fact that it uses twice as much memory
�@� for twice the colours. Hardly any tradeoff, if you want to
�.� be able to use the desktop in this mode.
�&� --- Add user routines here (End)
��
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 0b 17 f4 20 a9 20  4a 75 73 74 69 6e 20 46  |..... . Justin F|
00000020  6c 65 74 63 68 65 72 0d  00 0c 39 f4 20 54 68 69  |letcher...9. Thi|
00000030  73 20 76 65 72 73 69 6f  6e 20 69 73 20 74 68 65  |s version is the|
00000040  20 6f 72 69 67 69 6e 61  6c 20 75 6e 73 71 75 61  | original unsqua|
00000050  73 68 65 64 20 76 65 72  73 69 6f 6e 20 61 6e 64  |shed version and|
00000060  0d 00 0d 2d f4 20 73 68  6f 75 6c 64 20 6f 6e 6c  |...-. should onl|
00000070  79 20 62 65 20 6b 65 70  74 20 66 6f 72 20 61 64  |y be kept for ad|
00000080  6d 69 6e 20 70 75 72 70  6f 73 65 73 2e 0d 00 0e  |min purposes....|
00000090  40 f4 20 54 68 65 20 6f  74 68 65 72 20 28 21 52  |@. The other (!R|
000000a0  75 6e 49 6d 61 67 65 43  20 69 73 20 63 6f 6d 70  |unImageC is comp|
000000b0  72 65 73 73 65 64 20 61  6e 64 20 73 68 6f 75 6c  |ressed and shoul|
000000c0  64 20 62 65 20 74 68 65  20 63 6f 70 79 0d 00 0f  |d be the copy...|
000000d0  3d f4 20 75 73 65 64 20  66 6f 72 20 64 69 73 74  |=. used for dist|
000000e0  72 69 62 75 74 65 64 20  75 73 65 20 28 69 65 20  |ributed use (ie |
000000f0  69 74 27 73 20 68 61 72  64 65 72 20 74 6f 20 68  |it's harder to h|
00000100  61 63 6b 20 3a 2d 29 20  29 2e 0d 00 14 0e 74 65  |ack :-) ).....te|
00000110  73 74 69 6e 67 25 3d a3  0d 00 1e 29 c8 9b 20 22  |sting%=....).. "|
00000120  3c 42 61 73 69 63 4c 69  62 72 61 72 79 24 46 69  |<BasicLibrary$Fi|
00000130  6c 65 3e 22 3a f2 69 6e  69 74 6c 69 62 72 61 72  |le>":.initlibrar|
00000140  79 0d 00 28 3d ee 20 85  20 f2 63 6c 6f 73 65 6d  |y..(=. . .closem|
00000150  65 73 73 61 67 65 73 3a  f2 65 65 72 72 6f 72 3a  |essages:.eerror:|
00000160  e7 20 74 65 73 74 69 6e  67 25 3d b9 20 8c ff 28  |. testing%=. ..(|
00000170  22 53 70 6f 6f 6c 22 29  3a e0 20 8b 20 e0 0d 00  |"Spool"):. . ...|
00000180  32 20 e7 20 74 65 73 74  69 6e 67 25 3d b9 20 8c  |2 . testing%=. .|
00000190  2a 53 70 6f 6f 6c 20 53  70 6f 6f 6c 65 64 0d 00  |*Spool Spooled..|
000001a0  3c 15 e7 20 74 65 73 74  69 6e 67 25 3d b9 20 8c  |<.. testing%=. .|
000001b0  fc 20 ee 0d 00 46 35 f4  20 41 70 70 6e 61 6d 65  |. ...F5. Appname|
000001c0  24 20 69 73 20 75 73 65  64 20 66 6f 72 20 74 61  |$ is used for ta|
000001d0  73 6b 20 6d 61 6e 61 67  65 72 20 26 20 41 70 70  |sk manager & App|
000001e0  6e 61 6d 65 24 44 69 72  0d 00 50 44 f4 20 73 68  |name$Dir..PD. sh|
000001f0  6f 72 74 6e 61 6d 65 24  20 69 73 20 75 73 65 64  |ortname$ is used|
00000200  20 66 6f 72 20 69 63 6f  6e 62 61 72 20 6e 61 6d  | for iconbar nam|
00000210  65 20 61 6e 64 20 73 68  6f 75 6c 64 20 75 73 75  |e and should usu|
00000220  61 6c 6c 79 20 62 65 20  6e 75 6c 6c 0d 00 5a 27  |ally be null..Z'|
00000230  f4 20 6c 6f 6e 67 6e 61  6d 65 24 20 69 73 20 75  |. longname$ is u|
00000240  73 65 64 20 66 6f 72 20  69 6e 66 6f 20 77 69 6e  |sed for info win|
00000250  64 6f 77 0d 00 64 36 41  70 70 6e 61 6d 65 24 3d  |dow..d6Appname$=|
00000260  22 50 72 69 6e 74 4b 69  6c 6c 22 3a 76 65 72 73  |"PrintKill":vers|
00000270  69 6f 6e 24 3d 22 31 2e  30 30 20 28 31 33 20 46  |ion$="1.00 (13 F|
00000280  65 62 20 31 39 39 36 29  22 0d 00 6e 27 73 68 6f  |eb 1996)"..n'sho|
00000290  72 74 6e 61 6d 65 24 3d  22 22 3a 6c 6f 6e 67 6e  |rtname$="":longn|
000002a0  61 6d 65 24 3d 22 50 72  69 6e 74 4b 69 6c 6c 22  |ame$="PrintKill"|
000002b0  0d 00 78 27 41 70 70 64  69 72 24 3d a4 73 79 73  |..x'Appdir$=.sys|
000002c0  74 65 6d 76 61 72 28 41  70 70 6e 61 6d 65 24 2b  |temvar(Appname$+|
000002d0  22 24 44 69 72 22 29 0d  00 82 17 f2 69 6e 69 74  |"$Dir").....init|
000002e0  77 69 6d 70 3a f2 69 6e  69 74 70 72 6f 67 0d 00  |wimp:.initprog..|
000002f0  8c 0b 71 75 69 74 25 3d  a3 0d 00 96 15 ee 20 85  |..quit%=...... .|
00000300  20 f2 65 72 72 6f 72 3a  e5 20 8d 74 60 40 0d 00  | .error:. .t`@..|
00000310  a0 0e c8 95 20 71 75 69  74 25 3d a3 0d 00 aa 0a  |.... quit%=.....|
00000320  20 f2 50 6f 6c 6c 0d 00  b4 05 ce 0d 00 be 17 c8  | .Poll..........|
00000330  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00000340  6e 22 0d 00 c8 12 f2 63  6c 6f 73 65 6d 65 73 73  |n".....closemess|
00000350  61 67 65 73 0d 00 d2 18  e7 20 74 65 73 74 69 6e  |ages..... testin|
00000360  67 25 3d b9 20 8c 2a 53  50 4f 4f 4c 0d 00 dc 05  |g%=. .*SPOOL....|
00000370  e0 0d 00 e6 35 f4 20 71  75 69 74 25 3d 2d 31 20  |....5. quit%=-1 |
00000380  66 6f 72 20 75 73 65 72  20 71 75 69 74 2c 20 2d  |for user quit, -|
00000390  32 20 66 6f 72 20 74 61  73 6b 6d 61 6e 61 67 65  |2 for taskmanage|
000003a0  72 20 71 75 69 74 0d 00  f0 05 3a 0d 00 fa 0a dd  |r quit....:.....|
000003b0  f2 50 6f 6c 6c 0d 01 04  21 c8 99 20 22 57 69 6d  |.Poll...!.. "Wim|
000003c0  70 5f 50 6f 6c 6c 22 2c  31 2c 62 25 20 b8 20 72  |p_Poll",1,b% . r|
000003d0  65 61 73 6f 6e 25 0d 01  0e 10 c8 8e 20 72 65 61  |eason%...... rea|
000003e0  73 6f 6e 25 20 ca 0d 01  18 21 20 c9 20 32 3a c8  |son% ....! . 2:.|
000003f0  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00000400  6f 77 22 2c 2c 62 25 0d  01 22 22 20 c9 20 33 3a  |ow",,b%.."" . 3:|
00000410  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
00000420  6e 64 6f 77 22 2c 2c 62  25 0d 01 2c 26 20 c9 20  |ndow",,b%..,& . |
00000430  36 3a f2 6d 6f 75 73 65  63 6c 69 63 6b 28 62 25  |6:.mouseclick(b%|
00000440  21 38 2c 62 25 21 31 32  2c 62 25 21 31 36 29 0d  |!8,b%!12,b%!16).|
00000450  01 36 14 20 c9 20 39 3a  f2 6d 65 6e 75 63 68 6f  |.6. . 9:.menucho|
00000460  69 63 65 0d 01 40 1c 20  c9 20 31 37 2c 31 38 3a  |ice..@. . 17,18:|
00000470  f2 72 65 63 65 69 76 65  28 62 25 21 31 36 29 0d  |.receive(b%!16).|
00000480  01 4a 1c 20 c9 20 31 39  3a f2 72 65 63 65 69 76  |.J. . 19:.receiv|
00000490  65 61 63 6b 28 62 25 21  31 36 29 0d 01 54 05 cb  |eack(b%!16)..T..|
000004a0  0d 01 5e 05 e1 0d 01 68  05 3a 0d 01 72 30 f4 20  |..^....h.:..r0. |
000004b0  42 75 74 74 6f 6e 73 20  3a 20 31 20 3d 20 41 64  |Buttons : 1 = Ad|
000004c0  6a 75 73 74 2c 20 32 20  3d 20 4d 65 6e 75 2c 20  |just, 2 = Menu, |
000004d0  34 20 3d 20 53 65 6c 65  63 74 0d 01 7c 1e dd f2  |4 = Select..|...|
000004e0  6d 6f 75 73 65 63 6c 69  63 6b 28 62 75 74 2c 77  |mouseclick(but,w|
000004f0  69 6e 2c 69 63 6f 6e 29  0d 01 86 0c c8 8e 20 77  |in,icon)...... w|
00000500  69 6e 20 ca 0d 01 90 09  20 c9 20 2d 32 0d 01 9a  |in ..... . -2...|
00000510  0e 20 20 c8 8e 20 62 75  74 20 ca 0d 01 a4 2b 20  |.  .. but ....+ |
00000520  20 20 c9 20 31 2c 34 3a  2a 46 69 6c 65 72 5f 52  |  . 1,4:*Filer_R|
00000530  75 6e 20 3c 50 72 69 6e  74 65 72 73 24 44 69 72  |un <Printers$Dir|
00000540  3e 2e 21 52 75 6e 0d 01  ae 12 20 20 20 c9 20 32  |>.!Run....   . 2|
00000550  3a f2 69 62 6d 65 6e 75  0d 01 b8 07 20 20 cb 0d  |:.ibmenu....  ..|
00000560  01 c2 05 cb 0d 01 cc 05  e1 0d 01 d6 05 3a 0d 01  |.............:..|
00000570  e0 10 dd f2 6d 65 6e 75  63 68 6f 69 63 65 0d 01  |....menuchoice..|
00000580  ea 44 c8 99 22 57 69 6d  70 5f 47 65 74 50 6f 69  |.D.."Wimp_GetPoi|
00000590  6e 74 65 72 49 6e 66 6f  22 2c 2c 6d 65 73 73 61  |nterInfo",,messa|
000005a0  67 65 5f 62 75 66 66 65  72 25 3a 6d 62 75 74 25  |ge_buffer%:mbut%|
000005b0  3d 6d 65 73 73 61 67 65  5f 62 75 66 66 65 72 25  |=message_buffer%|
000005c0  21 38 0d 01 f4 1c 6d 24  3d a4 64 65 63 6f 64 65  |!8....m$=.decode|
000005d0  6d 65 6e 75 28 63 75 72  6d 65 6e 75 25 29 0d 01  |menu(curmenu%)..|
000005e0  fe 0b c8 8e 20 6d 24 20  ca 0d 02 08 15 20 c9 20  |.... m$ ..... . |
000005f0  22 51 75 69 74 22 3a 71  75 69 74 25 3d b9 0d 02  |"Quit":quit%=...|
00000600  12 05 cb 0d 02 1c 2d e7  20 28 6d 62 75 74 25 80  |......-. (mbut%.|
00000610  31 29 3d 31 20 8c f2 72  65 63 72 65 61 74 65 6d  |1)=1 ..recreatem|
00000620  65 6e 75 20 8b 63 75 72  6d 65 6e 75 25 3d 2d 31  |enu .curmenu%=-1|
00000630  0d 02 26 05 e1 0d 02 30  05 3a 0d 02 3a 13 dd f2  |..&....0.:..:...|
00000640  72 65 63 65 69 76 65 28  6d 65 73 73 29 0d 02 44  |receive(mess)..D|
00000650  0d c8 8e 20 6d 65 73 73  20 ca 0d 02 4e 25 20 c9  |... mess ...N% .|
00000660  20 26 34 30 30 43 33 3a  f4 20 4d 65 73 73 61 67  | &400C3:. Messag|
00000670  65 5f 54 61 73 6b 43 6c  6f 73 65 64 6f 77 6e 0d  |e_TaskClosedown.|
00000680  02 58 2c 20 20 e7 20 62  25 21 34 3d 70 72 65 71  |.X,  . b%!4=preq|
00000690  75 69 74 25 20 8c 71 75  69 74 25 3d b9 3a f2 70  |uit% .quit%=.:.p|
000006a0  72 69 6e 74 65 72 73 64  69 65 64 0d 02 62 12 20  |rintersdied..b. |
000006b0  c9 20 30 3a 71 75 69 74  25 3d b9 2a 32 0d 02 6c  |. 0:quit%=.*2..l|
000006c0  21 20 c9 20 26 38 30 31  34 33 3a f4 20 4d 65 73  |! . &80143:. Mes|
000006d0  73 61 67 65 5f 50 72 69  6e 74 49 6e 69 74 0d 02  |sage_PrintInit..|
000006e0  76 3b 20 20 62 25 21 31  32 3d 30 3a 62 25 21 31  |v;  b%!12=0:b%!1|
000006f0  36 3d 38 3a 62 25 21 30  3d 32 34 3a 62 25 21 32  |6=8:b%!0=24:b%!2|
00000700  30 3d 31 3a f4 20 51 75  69 74 20 6f 6e 6c 79 20  |0=1:. Quit only |
00000710  74 68 69 73 20 74 61 73  6b 0d 02 80 13 20 20 70  |this task....  p|
00000720  72 65 71 75 69 74 25 3d  62 25 21 34 0d 02 8a 38  |requit%=b%!4...8|
00000730  20 20 c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |  .. "Wimp_SendM|
00000740  65 73 73 61 67 65 22 2c  31 38 2c 62 25 2c 62 25  |essage",18,b%,b%|
00000750  21 34 3a f4 20 4d 65 73  73 61 67 65 5f 50 72 65  |!4:. Message_Pre|
00000760  51 75 69 74 0d 02 94 23  20 c9 20 26 35 30 32 3a  |Quit...# . &502:|
00000770  f2 48 65 6c 70 28 62 25  21 33 32 2c 62 25 21 33  |.Help(b%!32,b%!3|
00000780  36 2c 62 25 21 34 29 0d  02 9e 05 cb 0d 02 a8 05  |6,b%!4).........|
00000790  e1 0d 02 b2 05 3a 0d 02  bc 16 dd f2 72 65 63 65  |.....:......rece|
000007a0  69 76 65 61 63 6b 28 6d  65 73 73 29 0d 02 c6 0d  |iveack(mess)....|
000007b0  c8 8e 20 6d 65 73 73 20  ca 0d 02 d0 1a 20 c9 20  |.. mess ..... . |
000007c0  38 3a f4 20 4d 65 73 73  61 67 65 5f 50 72 65 51  |8:. Message_PreQ|
000007d0  75 69 74 0d 02 da 35 20  20 f4 20 49 74 20 62 6f  |uit...5  . It bo|
000007e0  75 6e 63 65 64 20 2d 20  74 68 65 72 65 66 6f 72  |unced - therefor|
000007f0  65 20 69 74 20 77 69 6c  6c 20 6c 65 74 20 75 73  |e it will let us|
00000800  20 6b 69 6c 6c 20 69 74  0d 02 e4 1d 20 20 62 25  | kill it....  b%|
00000810  21 31 32 3d 30 3a 62 25  21 31 36 3d 30 3a 62 25  |!12=0:b%!16=0:b%|
00000820  21 30 3d 32 30 0d 02 ee  39 20 20 c8 99 20 22 57  |!0=20...9  .. "W|
00000830  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00000840  2c 31 37 2c 62 25 2c 70  72 65 71 75 69 74 25 3a  |,17,b%,prequit%:|
00000850  f4 20 4d 65 73 73 61 67  65 5f 51 75 69 74 0d 02  |. Message_Quit..|
00000860  f8 05 cb 0d 03 02 05 e1  0d 03 0c 05 3a 0d 03 16  |............:...|
00000870  2f f4 20 41 6e 79 20 6d  65 73 73 61 67 65 73 20  |/. Any messages |
00000880  74 6f 20 62 65 20 72 65  63 65 69 76 65 64 20 4d  |to be received M|
00000890  55 53 54 20 62 65 20 6e  6f 74 65 64 0d 03 20 0e  |UST be noted.. .|
000008a0  dd f2 69 6e 69 74 77 69  6d 70 0d 03 21 21 de 20  |..initwimp..!!. |
000008b0  6d 65 73 73 61 67 65 6c  69 73 74 25 20 32 35 36  |messagelist% 256|
000008c0  3a 6d 65 73 73 70 74 72  25 3d 30 0d 03 22 27 f2  |:messptr%=0.."'.|
000008d0  6e 6f 74 65 6d 65 73 73  61 67 65 28 26 35 30 32  |notemessage(&502|
000008e0  29 3a f2 6e 6f 74 65 6d  65 73 73 61 67 65 28 31  |):.notemessage(1|
000008f0  30 29 0d 03 23 13 f2 6e  6f 74 65 6d 65 73 73 61  |0)..#..notemessa|
00000900  67 65 28 30 29 0d 03 24  51 c8 99 20 22 57 69 6d  |ge(0)..$Q.. "Wim|
00000910  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 33 31  |p_Initialise",31|
00000920  30 2c 26 34 42 35 33 34  31 35 34 2c 41 70 70 6e  |0,&4B534154,Appn|
00000930  61 6d 65 24 2c 6d 65 73  73 61 67 65 6c 69 73 74  |ame$,messagelist|
00000940  25 20 b8 20 77 69 6d 70  76 65 72 73 69 6f 6e 2c  |% . wimpversion,|
00000950  68 61 6e 64 6c 65 0d 03  34 47 69 6e 64 6c 25 3d  |handle..4Gindl%=|
00000960  31 30 32 34 3a 6d 65 6e  75 6c 25 3d 31 30 32 34  |1024:menul%=1024|
00000970  3a de 20 62 25 20 32 30  34 38 2c 69 6e 64 25 20  |:. b% 2048,ind% |
00000980  69 6e 64 6c 25 2c 6d 65  6e 75 25 20 6d 65 6e 75  |indl%,menu% menu|
00000990  6c 25 2c 77 73 70 63 25  20 26 38 30 30 0d 03 3e  |l%,wspc% &800..>|
000009a0  0f 63 75 72 6d 65 6e 75  25 3d 2d 31 0d 03 48 11  |.curmenu%=-1..H.|
000009b0  f2 6f 70 65 6e 6d 65 73  73 61 67 65 73 0d 03 52  |.openmessages..R|
000009c0  24 69 6e 66 6f 62 6f 78  25 3d a4 6c 6f 61 64 74  |$infobox%=.loadt|
000009d0  65 6d 70 6c 61 74 65 28  22 49 6e 66 6f 22 2c 31  |emplate("Info",1|
000009e0  29 0d 03 5c 25 f2 73 65  74 69 63 6f 6e 74 65 78  |)..\%.seticontex|
000009f0  74 28 69 6e 66 6f 62 6f  78 25 2c 31 2c 41 70 70  |t(infobox%,1,App|
00000a00  6e 61 6d 65 24 29 0d 03  66 26 f2 73 65 74 69 63  |name$)..f&.setic|
00000a10  6f 6e 74 65 78 74 28 69  6e 66 6f 62 6f 78 25 2c  |ontext(infobox%,|
00000a20  32 2c 6c 6f 6e 67 6e 61  6d 65 24 29 0d 03 70 25  |2,longname$)..p%|
00000a30  f2 73 65 74 69 63 6f 6e  74 65 78 74 28 69 6e 66  |.seticontext(inf|
00000a40  6f 62 6f 78 25 2c 34 2c  76 65 72 73 69 6f 6e 24  |obox%,4,version$|
00000a50  29 0d 03 7a 3a 69 62 68  61 6e 64 6c 65 3d a4 43  |)..z:ibhandle=.C|
00000a60  72 65 61 74 65 49 63 6f  6e 42 61 72 49 63 6f 6e  |reateIconBarIcon|
00000a70  28 22 21 22 2b 41 70 70  6e 61 6d 65 24 2c 73 68  |("!"+Appname$,sh|
00000a80  6f 72 74 6e 61 6d 65 24  2c 31 29 0d 03 84 38 69  |ortname$,1)...8i|
00000a90  62 6d 65 6e 75 25 3d a4  63 72 65 61 74 65 6d 65  |bmenu%=.createme|
00000aa0  6e 75 28 41 70 70 6e 61  6d 65 24 2b 22 7c 49 6e  |nu(Appname$+"|In|
00000ab0  66 6f 5d 3e 69 6e 66 6f  62 6f 78 25 7c 51 75 69  |fo]>infobox%|Qui|
00000ac0  74 22 29 0d 03 8e 17 69  62 6f 70 74 69 6f 6e 73  |t")....iboptions|
00000ad0  25 3d 6f 70 74 69 6f 6e  73 25 0d 03 98 05 e1 0d  |%=options%......|
00000ae0  03 a2 05 3a 0d 03 ac 0e  dd f2 69 6e 69 74 70 72  |...:......initpr|
00000af0  6f 67 0d 03 b6 0f 70 72  65 71 75 69 74 25 3d 2d  |og....prequit%=-|
00000b00  31 0d 03 c0 22 2a 46 69  6c 65 72 5f 52 75 6e 20  |1..."*Filer_Run |
00000b10  3c 50 72 69 6e 74 65 72  73 24 44 69 72 3e 2e 21  |<Printers$Dir>.!|
00000b20  52 75 6e 0d 03 ca 05 e1  0d 03 d4 05 3a 0d 03 de  |Run.........:...|
00000b30  17 dd f2 48 65 6c 70 28  77 69 6e 2c 69 63 6f 6e  |...Help(win,icon|
00000b40  2c 74 6f 29 0d 03 e8 21  f7 20 8d 54 46 44 3a f2  |,to)...!. .TFD:.|
00000b50  72 65 61 64 68 65 6c 70  28 77 69 6e 2c 69 63 6f  |readhelp(win,ico|
00000b60  6e 2c 74 6f 29 0d 03 f2  05 e1 0d 03 fc 0d f4 20  |n,to).......... |
00000b70  57 69 6e 64 6f 77 73 0d  04 06 1a dc 20 69 6e 66  |Windows..... inf|
00000b80  6f 62 6f 78 25 2c 22 3e  48 49 6e 66 6f 62 6f 78  |obox%,">HInfobox|
00000b90  22 0d 04 10 14 dc 20 33  2c 22 3e 48 49 6e 66 6f  |"..... 3,">HInfo|
00000ba0  62 6f 78 33 22 0d 04 1a  14 dc 20 2d 32 2c 22 3e  |box3"..... -2,">|
00000bb0  48 49 63 6f 6e 62 61 72  22 0d 04 24 0b dc 20 2d  |HIconbar"..$.. -|
00000bc0  31 2c 2d 31 0d 04 2e 0b  f4 20 4d 65 6e 75 73 0d  |1,-1..... Menus.|
00000bd0  04 38 11 dc 20 2d 32 2c  2d 32 2c 2d 32 2c 2d 32  |.8.. -2,-2,-2,-2|
00000be0  0d 04 42 05 3a 0d 04 4c  12 dd f2 70 72 69 6e 74  |..B.:..L...print|
00000bf0  65 72 73 64 69 65 64 0d  04 56 28 f4 20 2d 2d 2d  |ersdied..V(. ---|
00000c00  20 41 64 64 20 75 73 65  72 20 72 6f 75 74 69 6e  | Add user routin|
00000c10  65 73 20 68 65 72 65 20  28 53 74 61 72 74 29 0d  |es here (Start).|
00000c20  04 60 31 f4 20 59 6f 75  20 6d 69 67 68 74 20 77  |.`1. You might w|
00000c30  61 6e 74 20 74 6f 20 63  68 61 6e 67 65 20 74 6f  |ant to change to|
00000c40  20 6d 6f 64 65 20 30 20  68 65 72 65 2c 20 65 67  | mode 0 here, eg|
00000c50  0d 04 6a 1a f4 20 53 59  53 20 22 57 69 6d 70 5f  |..j.. SYS "Wimp_|
00000c60  53 65 74 4d 6f 64 65 22  2c 30 0d 04 74 05 f4 0d  |SetMode",0..t...|
00000c70  04 7e 3b f4 20 41 6c 74  65 72 6e 61 74 69 76 65  |.~;. Alternative|
00000c80  6c 79 2c 20 79 6f 75 20  6d 69 67 68 74 20 6c 69  |ly, you might li|
00000c90  6b 65 20 74 6f 20 74 72  79 20 4d 4f 44 45 20 38  |ke to try MODE 8|
00000ca0  2c 20 77 68 69 63 68 20  69 73 0d 04 88 3f f4 20  |, which is...?. |
00000cb0  69 64 65 6e 74 69 63 61  6c 2c 20 62 61 72 20 74  |identical, bar t|
00000cc0  68 65 20 66 61 63 74 20  74 68 61 74 20 69 74 20  |he fact that it |
00000cd0  75 73 65 73 20 74 77 69  63 65 20 61 73 20 6d 75  |uses twice as mu|
00000ce0  63 68 20 6d 65 6d 6f 72  79 0d 04 92 40 f4 20 66  |ch memory...@. f|
00000cf0  6f 72 20 74 77 69 63 65  20 74 68 65 20 63 6f 6c  |or twice the col|
00000d00  6f 75 72 73 2e 20 48 61  72 64 6c 79 20 61 6e 79  |ours. Hardly any|
00000d10  20 74 72 61 64 65 6f 66  66 2c 20 69 66 20 79 6f  | tradeoff, if yo|
00000d20  75 20 77 61 6e 74 20 74  6f 0d 04 93 2e f4 20 62  |u want to..... b|
00000d30  65 20 61 62 6c 65 20 74  6f 20 75 73 65 20 74 68  |e able to use th|
00000d40  65 20 64 65 73 6b 74 6f  70 20 69 6e 20 74 68 69  |e desktop in thi|
00000d50  73 20 6d 6f 64 65 2e 0d  04 9c 26 f4 20 2d 2d 2d  |s mode....&. ---|
00000d60  20 41 64 64 20 75 73 65  72 20 72 6f 75 74 69 6e  | Add user routin|
00000d70  65 73 20 68 65 72 65 20  28 45 6e 64 29 0d 04 a6  |es here (End)...|
00000d80  05 e1 0d ff                                       |....|
00000d84