�     >!RunImage (Info7)
$�     Icon bar *Dismount command
� By  Robert Adamson
(� For 32-bit machines
2� (c) BAU August 1993
<:
Ftaskname$="Dismounter"
P7� q% &100,menubuf% &100,templates% &500,indir% &300
Z0ș "Wimp_Initialise",200,&4B534154,taskname$
d%� � �fatalerror(taskname$,�$,�,�)
n	�init
x � � �error(taskname$,�$,�,�)
�ȕ � quit%
�" ș "Wimp_Poll",&1FDBB,q% � r%
� Ȏ r% �
�"  � 2:ș "Wimp_OpenWindow",,q%
�+  � 6:�mouse(!q%,q%!4,q%!8,q%!12,q%!16)
�  � 9:� !q%=1 quit%=�
�  � 17,18:� q%!16=0 quit%=�
� �
��
�ș "Wimp_CloseDown"
��
�:
�.� �mouse(mousex%,mousey%,b%,handle%,icon%)

� handle%=-2 �

 Ȏ b% �

  � 1:*ADFS:Mount 0

"8  � 2:ș "Wimp_CreateMenu",,mainmenu%,mousex%-64,184

,  � 4:*ADFS:Dismount 0

6 �

@�

J�

T:

^� �makemenu

hmainmenu%=menuptr%

rmenumax%=7

|menuptr%!20=44

�$menuptr%=taskname$

�menuptr%?12=7

�menuptr%?13=2

�menuptr%?14=7

�menuptr%?15=0

�maxaddr%=menuptr%+16

�menuptr%!24=0

�menuptr%+=28

��menuitem("Info",infohand%)

��menuitem("Quit",-1)

�%menuptr%!-24=(menuptr%!-24) � &80

�!maxaddr%=menumax%*16+32

��
:
� �menuitem(text$,submenu%)
menuptr%!0=0
&menuptr%!4=submenu%
0menuptr%!8=&07000021
:$(menuptr%+12)=text$
Dmenuptr%+=24
N�
X:
b� �init
lquit%=�
vmenuptr%=menubuf%
�menend%=menubuf%+&100
�(baricon%=�baricon("!dismount",45,17)
�ind%=indir%
�2ș "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
�'infohand%=�createwindow("progInfo")
�ș "Wimp_CloseTemplate"
�
�makemenu
��
�:
�� �baricon(spname$,w%,h%)
�� icon%
�!q%=-2:q%!4=0
�q%!8=0:q%!12=w%*2
q%!16=h%*4
q%!20=&301A
$(q%+24)=spname$+�0
 $ș "Wimp_CreateIcon",,q% � icon%
*
=icon%
4:
>� �createwindow(name$)
H� hand%
RKș "Wimp_LoadTemplate",,templates%,ind%,indir%+&2FF,-1,name$,0 � ,,ind%
\templates%!68=10+(10<<16)
f.ș "Wimp_CreateWindow",,templates% � hand%
p
=hand%
z:
�'� �fatalerror(prog$,rep$,erl%,err%)
�	!q%=�
��$(q%+4)=prog$+" has suffered a fatal error: "+rep$+" (type="+�err%+", internal error code: "+�erl%+") and must exit immediately."+�0
�ș "Wimp_ReportError",q%,2
�ș "Wimp_CloseDown"
��
��
�:
�"� �error(prog$,rep$,erl%,err%)
�� response%
�	!q%=�
�[$(q%+4)="Unexpected error: "+rep$+" (Internal error code: "+�erl%+"). Shall I quit?"+�0
�+ș "Wimp_ReportError",q%,3 � ,response%
quit%=(response%=1)
�
�

00000000  0d 00 0a 1c f4 20 20 20  20 20 3e 21 52 75 6e 49  |.....     >!RunI|
00000010  6d 61 67 65 20 28 49 6e  66 6f 37 29 0d 00 14 24  |mage (Info7)...$|
00000020  f4 20 20 20 20 20 49 63  6f 6e 20 62 61 72 20 2a  |.     Icon bar *|
00000030  44 69 73 6d 6f 75 6e 74  20 63 6f 6d 6d 61 6e 64  |Dismount command|
00000040  0d 00 1e 18 f4 20 42 79  20 20 52 6f 62 65 72 74  |..... By  Robert|
00000050  20 41 64 61 6d 73 6f 6e  0d 00 28 19 f4 20 46 6f  | Adamson..(.. Fo|
00000060  72 20 33 32 2d 62 69 74  20 6d 61 63 68 69 6e 65  |r 32-bit machine|
00000070  73 0d 00 32 19 f4 20 28  63 29 20 42 41 55 20 41  |s..2.. (c) BAU A|
00000080  75 67 75 73 74 20 31 39  39 33 0d 00 3c 05 3a 0d  |ugust 1993..<.:.|
00000090  00 46 1a 74 61 73 6b 6e  61 6d 65 24 3d 22 44 69  |.F.taskname$="Di|
000000a0  73 6d 6f 75 6e 74 65 72  22 0d 00 50 37 de 20 71  |smounter"..P7. q|
000000b0  25 20 26 31 30 30 2c 6d  65 6e 75 62 75 66 25 20  |% &100,menubuf% |
000000c0  26 31 30 30 2c 74 65 6d  70 6c 61 74 65 73 25 20  |&100,templates% |
000000d0  26 35 30 30 2c 69 6e 64  69 72 25 20 26 33 30 30  |&500,indir% &300|
000000e0  0d 00 5a 30 c8 99 20 22  57 69 6d 70 5f 49 6e 69  |..Z0.. "Wimp_Ini|
000000f0  74 69 61 6c 69 73 65 22  2c 32 30 30 2c 26 34 42  |tialise",200,&4B|
00000100  35 33 34 31 35 34 2c 74  61 73 6b 6e 61 6d 65 24  |534154,taskname$|
00000110  0d 00 64 25 ee 20 85 20  f2 66 61 74 61 6c 65 72  |..d%. . .fataler|
00000120  72 6f 72 28 74 61 73 6b  6e 61 6d 65 24 2c f6 24  |ror(taskname$,.$|
00000130  2c 9e 2c 9f 29 0d 00 6e  09 f2 69 6e 69 74 0d 00  |,.,.)..n..init..|
00000140  78 20 ee 20 85 20 f2 65  72 72 6f 72 28 74 61 73  |x . . .error(tas|
00000150  6b 6e 61 6d 65 24 2c f6  24 2c 9e 2c 9f 29 0d 00  |kname$,.$,.,.)..|
00000160  82 0e c8 95 20 ac 20 71  75 69 74 25 0d 00 8c 22  |.... . quit%..."|
00000170  20 c8 99 20 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  | .. "Wimp_Poll",|
00000180  26 31 46 44 42 42 2c 71  25 20 b8 20 72 25 0d 00  |&1FDBB,q% . r%..|
00000190  96 0c 20 c8 8e 20 72 25  20 ca 0d 00 a0 22 20 20  |.. .. r% ...."  |
000001a0  c9 20 32 3a c8 99 20 22  57 69 6d 70 5f 4f 70 65  |. 2:.. "Wimp_Ope|
000001b0  6e 57 69 6e 64 6f 77 22  2c 2c 71 25 0d 00 aa 2b  |nWindow",,q%...+|
000001c0  20 20 c9 20 36 3a f2 6d  6f 75 73 65 28 21 71 25  |  . 6:.mouse(!q%|
000001d0  2c 71 25 21 34 2c 71 25  21 38 2c 71 25 21 31 32  |,q%!4,q%!8,q%!12|
000001e0  2c 71 25 21 31 36 29 0d  00 b4 19 20 20 c9 20 39  |,q%!16)....  . 9|
000001f0  3a e7 20 21 71 25 3d 31  20 71 75 69 74 25 3d b9  |:. !q%=1 quit%=.|
00000200  0d 00 be 1f 20 20 c9 20  31 37 2c 31 38 3a e7 20  |....  . 17,18:. |
00000210  71 25 21 31 36 3d 30 20  71 75 69 74 25 3d b9 0d  |q%!16=0 quit%=..|
00000220  00 c8 06 20 cb 0d 00 d2  05 ce 0d 00 dc 17 c8 99  |... ............|
00000230  20 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  | "Wimp_CloseDown|
00000240  22 0d 00 e6 05 e0 0d 00  f0 05 3a 0d 00 fa 2e dd  |".........:.....|
00000250  20 f2 6d 6f 75 73 65 28  6d 6f 75 73 65 78 25 2c  | .mouse(mousex%,|
00000260  6d 6f 75 73 65 79 25 2c  62 25 2c 68 61 6e 64 6c  |mousey%,b%,handl|
00000270  65 25 2c 69 63 6f 6e 25  29 0d 01 04 12 e7 20 68  |e%,icon%)..... h|
00000280  61 6e 64 6c 65 25 3d 2d  32 20 8c 0d 01 0e 0c 20  |andle%=-2 ..... |
00000290  c8 8e 20 62 25 20 ca 0d  01 18 17 20 20 c9 20 31  |.. b% .....  . 1|
000002a0  3a 2a 41 44 46 53 3a 4d  6f 75 6e 74 20 30 0d 01  |:*ADFS:Mount 0..|
000002b0  22 38 20 20 c9 20 32 3a  c8 99 20 22 57 69 6d 70  |"8  . 2:.. "Wimp|
000002c0  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6d 61  |_CreateMenu",,ma|
000002d0  69 6e 6d 65 6e 75 25 2c  6d 6f 75 73 65 78 25 2d  |inmenu%,mousex%-|
000002e0  36 34 2c 31 38 34 0d 01  2c 1a 20 20 c9 20 34 3a  |64,184..,.  . 4:|
000002f0  2a 41 44 46 53 3a 44 69  73 6d 6f 75 6e 74 20 30  |*ADFS:Dismount 0|
00000300  0d 01 36 06 20 cb 0d 01  40 05 cd 0d 01 4a 05 e1  |..6. ...@....J..|
00000310  0d 01 54 05 3a 0d 01 5e  0f dd 20 f2 6d 61 6b 65  |..T.:..^.. .make|
00000320  6d 65 6e 75 0d 01 68 16  6d 61 69 6e 6d 65 6e 75  |menu..h.mainmenu|
00000330  25 3d 6d 65 6e 75 70 74  72 25 0d 01 72 0e 6d 65  |%=menuptr%..r.me|
00000340  6e 75 6d 61 78 25 3d 37  0d 01 7c 12 6d 65 6e 75  |numax%=7..|.menu|
00000350  70 74 72 25 21 32 30 3d  34 34 0d 01 86 17 24 6d  |ptr%!20=44....$m|
00000360  65 6e 75 70 74 72 25 3d  74 61 73 6b 6e 61 6d 65  |enuptr%=taskname|
00000370  24 0d 01 90 11 6d 65 6e  75 70 74 72 25 3f 31 32  |$....menuptr%?12|
00000380  3d 37 0d 01 9a 11 6d 65  6e 75 70 74 72 25 3f 31  |=7....menuptr%?1|
00000390  33 3d 32 0d 01 a4 11 6d  65 6e 75 70 74 72 25 3f  |3=2....menuptr%?|
000003a0  31 34 3d 37 0d 01 ae 11  6d 65 6e 75 70 74 72 25  |14=7....menuptr%|
000003b0  3f 31 35 3d 30 0d 01 b8  18 6d 61 78 61 64 64 72  |?15=0....maxaddr|
000003c0  25 3d 6d 65 6e 75 70 74  72 25 2b 31 36 0d 01 c2  |%=menuptr%+16...|
000003d0  11 6d 65 6e 75 70 74 72  25 21 32 34 3d 30 0d 01  |.menuptr%!24=0..|
000003e0  cc 10 6d 65 6e 75 70 74  72 25 2b 3d 32 38 0d 01  |..menuptr%+=28..|
000003f0  d6 1f f2 6d 65 6e 75 69  74 65 6d 28 22 49 6e 66  |...menuitem("Inf|
00000400  6f 22 2c 69 6e 66 6f 68  61 6e 64 25 29 0d 01 e0  |o",infohand%)...|
00000410  18 f2 6d 65 6e 75 69 74  65 6d 28 22 51 75 69 74  |..menuitem("Quit|
00000420  22 2c 2d 31 29 0d 01 ea  25 6d 65 6e 75 70 74 72  |",-1)...%menuptr|
00000430  25 21 2d 32 34 3d 28 6d  65 6e 75 70 74 72 25 21  |%!-24=(menuptr%!|
00000440  2d 32 34 29 20 84 20 26  38 30 0d 01 f4 1c 21 6d  |-24) . &80....!m|
00000450  61 78 61 64 64 72 25 3d  6d 65 6e 75 6d 61 78 25  |axaddr%=menumax%|
00000460  2a 31 36 2b 33 32 0d 01  fe 05 e1 0d 02 08 05 3a  |*16+32.........:|
00000470  0d 02 12 1f dd 20 f2 6d  65 6e 75 69 74 65 6d 28  |..... .menuitem(|
00000480  74 65 78 74 24 2c 73 75  62 6d 65 6e 75 25 29 0d  |text$,submenu%).|
00000490  02 1c 10 6d 65 6e 75 70  74 72 25 21 30 3d 30 0d  |...menuptr%!0=0.|
000004a0  02 26 17 6d 65 6e 75 70  74 72 25 21 34 3d 73 75  |.&.menuptr%!4=su|
000004b0  62 6d 65 6e 75 25 0d 02  30 18 6d 65 6e 75 70 74  |bmenu%..0.menupt|
000004c0  72 25 21 38 3d 26 30 37  30 30 30 30 32 31 0d 02  |r%!8=&07000021..|
000004d0  3a 18 24 28 6d 65 6e 75  70 74 72 25 2b 31 32 29  |:.$(menuptr%+12)|
000004e0  3d 74 65 78 74 24 0d 02  44 10 6d 65 6e 75 70 74  |=text$..D.menupt|
000004f0  72 25 2b 3d 32 34 0d 02  4e 05 e1 0d 02 58 05 3a  |r%+=24..N....X.:|
00000500  0d 02 62 0b dd 20 f2 69  6e 69 74 0d 02 6c 0b 71  |..b.. .init..l.q|
00000510  75 69 74 25 3d a3 0d 02  76 15 6d 65 6e 75 70 74  |uit%=...v.menupt|
00000520  72 25 3d 6d 65 6e 75 62  75 66 25 0d 02 80 19 6d  |r%=menubuf%....m|
00000530  65 6e 65 6e 64 25 3d 6d  65 6e 75 62 75 66 25 2b  |enend%=menubuf%+|
00000540  26 31 30 30 0d 02 8a 28  62 61 72 69 63 6f 6e 25  |&100...(baricon%|
00000550  3d a4 62 61 72 69 63 6f  6e 28 22 21 64 69 73 6d  |=.baricon("!dism|
00000560  6f 75 6e 74 22 2c 34 35  2c 31 37 29 0d 02 94 0f  |ount",45,17)....|
00000570  69 6e 64 25 3d 69 6e 64  69 72 25 0d 02 9e 32 c8  |ind%=indir%...2.|
00000580  99 20 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |. "Wimp_OpenTemp|
00000590  6c 61 74 65 22 2c 2c 22  3c 4f 62 65 79 24 44 69  |late",,"<Obey$Di|
000005a0  72 3e 2e 54 65 6d 70 6c  61 74 65 73 22 0d 02 a8  |r>.Templates"...|
000005b0  27 69 6e 66 6f 68 61 6e  64 25 3d a4 63 72 65 61  |'infohand%=.crea|
000005c0  74 65 77 69 6e 64 6f 77  28 22 70 72 6f 67 49 6e  |tewindow("progIn|
000005d0  66 6f 22 29 0d 02 b2 1b  c8 99 20 22 57 69 6d 70  |fo")...... "Wimp|
000005e0  5f 43 6c 6f 73 65 54 65  6d 70 6c 61 74 65 22 0d  |_CloseTemplate".|
000005f0  02 bc 0d f2 6d 61 6b 65  6d 65 6e 75 0d 02 c6 05  |....makemenu....|
00000600  e1 0d 02 d0 05 3a 0d 02  da 1d dd 20 a4 62 61 72  |.....:..... .bar|
00000610  69 63 6f 6e 28 73 70 6e  61 6d 65 24 2c 77 25 2c  |icon(spname$,w%,|
00000620  68 25 29 0d 02 e4 0b ea  20 69 63 6f 6e 25 0d 02  |h%)..... icon%..|
00000630  ee 11 21 71 25 3d 2d 32  3a 71 25 21 34 3d 30 0d  |..!q%=-2:q%!4=0.|
00000640  02 f8 15 71 25 21 38 3d  30 3a 71 25 21 31 32 3d  |...q%!8=0:q%!12=|
00000650  77 25 2a 32 0d 03 02 0e  71 25 21 31 36 3d 68 25  |w%*2....q%!16=h%|
00000660  2a 34 0d 03 0c 0f 71 25  21 32 30 3d 26 33 30 31  |*4....q%!20=&301|
00000670  41 0d 03 16 17 24 28 71  25 2b 32 34 29 3d 73 70  |A....$(q%+24)=sp|
00000680  6e 61 6d 65 24 2b bd 30  0d 03 20 24 c8 99 20 22  |name$+.0.. $.. "|
00000690  57 69 6d 70 5f 43 72 65  61 74 65 49 63 6f 6e 22  |Wimp_CreateIcon"|
000006a0  2c 2c 71 25 20 b8 20 69  63 6f 6e 25 0d 03 2a 0a  |,,q% . icon%..*.|
000006b0  3d 69 63 6f 6e 25 0d 03  34 05 3a 0d 03 3e 1a dd  |=icon%..4.:..>..|
000006c0  20 a4 63 72 65 61 74 65  77 69 6e 64 6f 77 28 6e  | .createwindow(n|
000006d0  61 6d 65 24 29 0d 03 48  0b ea 20 68 61 6e 64 25  |ame$)..H.. hand%|
000006e0  0d 03 52 4b c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |..RK.. "Wimp_Loa|
000006f0  64 54 65 6d 70 6c 61 74  65 22 2c 2c 74 65 6d 70  |dTemplate",,temp|
00000700  6c 61 74 65 73 25 2c 69  6e 64 25 2c 69 6e 64 69  |lates%,ind%,indi|
00000710  72 25 2b 26 32 46 46 2c  2d 31 2c 6e 61 6d 65 24  |r%+&2FF,-1,name$|
00000720  2c 30 20 b8 20 2c 2c 69  6e 64 25 0d 03 5c 1d 74  |,0 . ,,ind%..\.t|
00000730  65 6d 70 6c 61 74 65 73  25 21 36 38 3d 31 30 2b  |emplates%!68=10+|
00000740  28 31 30 3c 3c 31 36 29  0d 03 66 2e c8 99 20 22  |(10<<16)..f... "|
00000750  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00000760  77 22 2c 2c 74 65 6d 70  6c 61 74 65 73 25 20 b8  |w",,templates% .|
00000770  20 68 61 6e 64 25 0d 03  70 0a 3d 68 61 6e 64 25  | hand%..p.=hand%|
00000780  0d 03 7a 05 3a 0d 03 84  27 dd 20 f2 66 61 74 61  |..z.:...'. .fata|
00000790  6c 65 72 72 6f 72 28 70  72 6f 67 24 2c 72 65 70  |lerror(prog$,rep|
000007a0  24 2c 65 72 6c 25 2c 65  72 72 25 29 0d 03 8e 09  |$,erl%,err%)....|
000007b0  21 71 25 3d 9f 0d 03 98  88 24 28 71 25 2b 34 29  |!q%=.....$(q%+4)|
000007c0  3d 70 72 6f 67 24 2b 22  20 68 61 73 20 73 75 66  |=prog$+" has suf|
000007d0  66 65 72 65 64 20 61 20  66 61 74 61 6c 20 65 72  |fered a fatal er|
000007e0  72 6f 72 3a 20 22 2b 72  65 70 24 2b 22 20 28 74  |ror: "+rep$+" (t|
000007f0  79 70 65 3d 22 2b c3 65  72 72 25 2b 22 2c 20 69  |ype="+.err%+", i|
00000800  6e 74 65 72 6e 61 6c 20  65 72 72 6f 72 20 63 6f  |nternal error co|
00000810  64 65 3a 20 22 2b c3 65  72 6c 25 2b 22 29 20 61  |de: "+.erl%+") a|
00000820  6e 64 20 6d 75 73 74 20  65 78 69 74 20 69 6d 6d  |nd must exit imm|
00000830  65 64 69 61 74 65 6c 79  2e 22 2b bd 30 0d 03 a2  |ediately."+.0...|
00000840  1e c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  |... "Wimp_Report|
00000850  45 72 72 6f 72 22 2c 71  25 2c 32 0d 03 ac 17 c8  |Error",q%,2.....|
00000860  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00000870  6e 22 0d 03 b6 05 e0 0d  03 c0 05 e1 0d 03 ca 05  |n"..............|
00000880  3a 0d 03 d4 22 dd 20 f2  65 72 72 6f 72 28 70 72  |:...". .error(pr|
00000890  6f 67 24 2c 72 65 70 24  2c 65 72 6c 25 2c 65 72  |og$,rep$,erl%,er|
000008a0  72 25 29 0d 03 de 0f ea  20 72 65 73 70 6f 6e 73  |r%)..... respons|
000008b0  65 25 0d 03 e8 09 21 71  25 3d 9f 0d 03 f2 5b 24  |e%....!q%=....[$|
000008c0  28 71 25 2b 34 29 3d 22  55 6e 65 78 70 65 63 74  |(q%+4)="Unexpect|
000008d0  65 64 20 65 72 72 6f 72  3a 20 22 2b 72 65 70 24  |ed error: "+rep$|
000008e0  2b 22 20 28 49 6e 74 65  72 6e 61 6c 20 65 72 72  |+" (Internal err|
000008f0  6f 72 20 63 6f 64 65 3a  20 22 2b c3 65 72 6c 25  |or code: "+.erl%|
00000900  2b 22 29 2e 20 53 68 61  6c 6c 20 49 20 71 75 69  |+"). Shall I qui|
00000910  74 3f 22 2b bd 30 0d 03  fc 2b c8 99 20 22 57 69  |t?"+.0...+.. "Wi|
00000920  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
00000930  71 25 2c 33 20 b8 20 2c  72 65 73 70 6f 6e 73 65  |q%,3 . ,response|
00000940  25 0d 04 06 17 71 75 69  74 25 3d 28 72 65 73 70  |%....quit%=(resp|
00000950  6f 6e 73 65 25 3d 31 29  0d 04 10 05 e1 0d ff     |onse%=1).......|
0000095f