� > !RunImage
:
8� **************************************************
(8� *                --   ROBOT   --                 *
28� *        Simple driver program for a buggy       *
<8� *      Recieves its commands via Wimp_Poll 17    *
F8� *              From the logo program             *
P8� *       By Duncan F. McPherson Version 1.0       *
Z8� *              (c) 7th July 1992                 *
d8� **************************************************
n:
x4� � �4:�0,0);"Error:";�$;" at line ";�;"    ":�
�ș "OS_GetEnv" � comm$
�!p=�comm$,"""",�comm$,"""")+1)
�comm$=�comm$,p+1)
�ȕ �comm$,1)=" "
�comm$=�comm$,2)
��
�:
��variables
�%version=�wimpinit(2.00,progname$)
�Ciconbar=�makeicon(-2,0,-16,128,84,&1700310B,icsprite,ictext,40)
�Nicpnt=�template(tempname$,"<"+progname$+"$Dir>.Templates",icpnt,&300,han%)
��templatevars
�&comm$="<"+progname$+"$Dir>.Driver"

ț comm$

:

quit%=�

"� � �error(progname$)

,�

6� quit%<>� �poll(1)

@� quit%

Jș "Wimp_CloseDown":�

T:

^1� -------------------------------------------

h1� |   Wimp Polling related procedures       |

r1� -------------------------------------------

|:

���poll(mask%)

�)ș "Wimp_Poll",mask%,q% � reasoncode%

�  Ȏ reasoncode% �

�"  � 2:ș "Wimp_OpenWindow",,q%

�#  � 3:ș "Wimp_CloseWindow",,q%

�2  � 6:�mouse_click(q%!0,q%!4,q%!8,q%!12,q%!16)

�  � 9:� q%!0=1 quit%=�

�  � 17,18:�recieve

�  �

��

�:

�
��recieve

�� q%!16=0 quit%=�:�
)� q%!16=&4C4F474F �logocommand(q%+20)
&�
0:
:)��mouse_click(x%,y%,b%,window%,icon%)
D  Ȏ window% �
N  � driver:Ȏ icon% �
X"              � 5:�togglestate
b              �
l  � -2:    Ȏ b% �
v"              � 2:�iconbarmenu
�,              � 1,4:�opentofront(driver)
�              �
�  �
��
�:
�8� --------------------------------------------------
�8� |      Program Specific Functions & Procedures   |
�8� --------------------------------------------------
�:
���iconbarmenu
�&menutree%=menublock%:menuhandle%=0
�5ptr%=�crmu("Info>info,Quit",progname$,menublock%)
�.ș "Wimp_CreateMenu",,menublock%,x%-64,178
�
:
��variables
 >� q% &300,menublock% &200,workblock% &300,iconsblock% &300
*� han% 80:� menuitem$(30)
4<progname$="Robot":tempname$="info,driver":filetype%=&085
>icpnt=iconsblock%
H3� icsprite 100,ictext 100:$icsprite="Srobotbar"
R $ictext="Off Line":status%=0
\�
f:
p��templatevars
zinfo=han%!0:driver=han%!4
��
�:
���logocommand(addr%)
�)code%=addr%!0:parameter=�($(addr%+4))
�
� �drC
�4� X%=1 � code%:� code$:�:code$+=" "+�(parameter)
� �seticontext(driver,2,code$)
�� status%=0 �
ԉ� code% �moveforward(parameter),�moveback(parameter),�moveleft(parameter),�moveright(parameter),�penup,�pendown,�pencolour(parameter)
��
�:
�5� Forward,Back,Left,Right,PenUp,PenDown,PenColour
�:
��togglestate
� status%=0 �
2�seticontext(-2,iconbar," On line "):status%=1
$Dq%!0=driver:q%!4=5:q%!8=0:q%!12=1<<21:ș "Wimp_SetIconState",,q%
.�
81�seticontext(-2,iconbar,"Off line"):status%=0
BHq%!0=driver:q%!4=5:q%!8=1<<21:q%!12=1<<21:ș "Wimp_SetIconState",,q%
L�:�
V:
`8� --------------------------------------------------
j8� |        Universal Functions & Procedure         |
t8� --------------------------------------------------
~:
�-��seticontext(window%,icon%,text$):� len%
�+workblock%!0=window%:workblock%!4=icon%
�&ș "Wimp_GetIconState",,workblock%
�len%=workblock%!36
�B$(workblock%!28)=�text$,len%-1):workblock%!8=0:workblock%!12=0
�&ș "Wimp_SetIconState",,workblock%
��
�:
���message(text$)
�-workblock%!0=255:$(workblock%+4)=text$+�0
�<ș "Wimp_ReportError",workblock%,17,"Message from Robot"
��
:

��opentofront(handle%)
workblock%!0=handle%
8ș "Wimp_GetWindowInfo",,workblock%:workblock%!28=-1
($ș "Wimp_OpenWindow",,workblock%
2�
<:
F%ݤmenu(text$,width%,height%,gap%)
P$P%=�text$,11)+�0:P%+=12
Z
[OPT 0
d?EQUB 7:EQUB 2:EQUB 7:EQUB 0    ;Four definable menu colours
n<EQUD width%*16                 ;Width of menu (OS Units)
xAEQUD height%                   ;Height of one item (OS Units)
�IEQUD gap%                      ;Vertical gap between items (OS Units)
�]:=0
�:
�1ݤmenuitem(text$,flags%,submenu%,icon%,last%)
�!� last%=� flags%=flags% � &80
�
[OPT 0
�.EQUD flags%                    ;Menu flags
�@EQUD submenu%                  ;Submenu pointer (-1 if none)
�OEQUD icon%                     ;Menu item icon flags (as for a normal icon)
�!]:$P%=�text$,11)+�0:P%+=12:=0
�:
�ݤpar(sep$)
�+i1%=i%+1:i%=�menustring$+sep$,sep$,i1%)
=�menustring$,i1%,i%-i1%)
:
)ݤcrmu(menustring$,mutitle$,address%)
"4number%=-1:i%=0:width%=�(mutitle$)-2:P%=address%
,-�:number%+=1:menuitem$(number%)=�par(",")
6&� menuitem$(number%)="":number%-=1
@([OPT 0:�menu(mutitle$,width%,40,0):]
J� menuitem%=0 � number%
T(itemflags%=�menuitemflags(menuitem%)
^iconflags%=&07000021
h'submenu%=�submenupointer(menuitem%)
r/� menuitem%=number% lastopt%=� � lastopt%=�
|C� �(menuitem$(menuitem%))>width% width%=�(menuitem$(menuitem%))
�
[OPT 0
�K�menuitem(menuitem$(menuitem%),itemflags%,submenu%,iconflags%,lastopt%)
�I]:�:width%+=1:addr%=P%:P%=address%:[OPT 0:�menu(mutitle$,width%,40,0)
�]:=addr%
�:
�ݤsubmenupointer(A%)
�+A$=menuitem$(A%):i%=�A$,">"):� i%=0 =-1
�,B$=�A$,�(A$)-i%):menuitem$(A%)=�A$,i%-1)
�#� �B$,1)=">" � =�(�B$,�(B$)-1))
�
=�(B$)
�:
�ݤmenuitemflags(A%)
�A$=menuitem$(A%):flags%=0
.� �A$,"�")>0 A$=�outchar(A$,"�"):flags%+=1
.� �A$,"-")>0 A$=�outchar(A$,"-"):flags%+=2
menuitem$(A%)=A$:=flags%
&:
0ݤoutchar(C$,D$)
:'i%=�C$,D$):=�C$,i%-1)+�C$,�(C$)-i%)
D:
NDݤtemplate(temp$,filename$,addr%,size%,handleaddr%):� number%,i%
X%ș "Wimp_OpenTemplate",,filename$
b number%=-1:i%=0:size%+=addr%
l2�:number%+=1:name$=�partemp(","):� name$<>"" �
vEș "Wimp_LoadTemplate",,workblock%,addr%,size%,-1,name$ � ,,addr%
�Cș "Wimp_CreateWindow",,workblock% � !(handleaddr%+(4*number%))
�/�:� name$="":ș "Wimp_CloseTemplate":=addr%
�:
�ݤpartemp(sep$)
�%i1%=i%+1:i%=�temp$+sep$,sep$,i1%)
�=�temp$,i1%,i%-i1%)
�:
�Iݤmakeicon(window%,minx%,miny%,maxx%,maxy%,flags%,sprite,text,buffer)
�>workblock%!0=window%:workblock%!4=minx%:workblock%!8=miny%
�+workblock%!12=maxx%:workblock%!16=maxy%
�@workblock%!20=flags%:workblock%!24=text:workblock%!28=sprite
�workblock%!32=buffer
�?ș "Wimp_CreateIcon",,workblock% � iconhandle%:=iconhandle%
:
��error(name$)
 workblock%!0=�:� clicked_on%
 =$(workblock%+4)=�$+" (internal error code "+�(�)+")"+�(0)
*;ș "Wimp_ReportError",workblock%,3,name$ � ,clicked_on%
4%� clicked_on%=2 quit%=� � quit%=�
>�
H:
R&ݤwimpinit(knownversion,taskname$)
\Gș "Wimp_Initialise",200*knownversion,&4B534154,taskname$ � version
f=version
p:
z��dataload(filename$)
�7q%!12=q%!8:q%!16=4:ș "Wimp_SendMessage",17,q%,q%!4
�;ț filename$:�message("New driver program installed"):�
�:
�ݤfilename(address%)
�$A$="":�:A%=?address%:address%+=1
�� A%<>0 A$=A$+�A%
�� A%=0:=A$
�:
�H� ------------------------------------------------------------------
�H� |       Robot Driver Procedures Loaded as a Library Here         |
�H� ------------------------------------------------------------------
�:
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 05 3a 0d 00  1e 38 f4 20 2a 2a 2a 2a  |e....:...8. ****|
00000020  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000040  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 00  |**************..|
00000050  28 38 f4 20 2a 20 20 20  20 20 20 20 20 20 20 20  |(8. *           |
00000060  20 20 20 20 20 2d 2d 20  20 20 52 4f 42 4f 54 20  |     --   ROBOT |
00000070  20 20 2d 2d 20 20 20 20  20 20 20 20 20 20 20 20  |  --            |
00000080  20 20 20 20 20 2a 0d 00  32 38 f4 20 2a 20 20 20  |     *..28. *   |
00000090  20 20 20 20 20 53 69 6d  70 6c 65 20 64 72 69 76  |     Simple driv|
000000a0  65 72 20 70 72 6f 67 72  61 6d 20 66 6f 72 20 61  |er program for a|
000000b0  20 62 75 67 67 79 20 20  20 20 20 20 20 2a 0d 00  | buggy       *..|
000000c0  3c 38 f4 20 2a 20 20 20  20 20 20 52 65 63 69 65  |<8. *      Recie|
000000d0  76 65 73 20 69 74 73 20  63 6f 6d 6d 61 6e 64 73  |ves its commands|
000000e0  20 76 69 61 20 57 69 6d  70 5f 50 6f 6c 6c 20 31  | via Wimp_Poll 1|
000000f0  37 20 20 20 20 2a 0d 00  46 38 f4 20 2a 20 20 20  |7    *..F8. *   |
00000100  20 20 20 20 20 20 20 20  20 20 20 46 72 6f 6d 20  |           From |
00000110  74 68 65 20 6c 6f 67 6f  20 70 72 6f 67 72 61 6d  |the logo program|
00000120  20 20 20 20 20 20 20 20  20 20 20 20 20 2a 0d 00  |             *..|
00000130  50 38 f4 20 2a 20 20 20  20 20 20 20 42 79 20 44  |P8. *       By D|
00000140  75 6e 63 61 6e 20 46 2e  20 4d 63 50 68 65 72 73  |uncan F. McPhers|
00000150  6f 6e 20 56 65 72 73 69  6f 6e 20 31 2e 30 20 20  |on Version 1.0  |
00000160  20 20 20 20 20 2a 0d 00  5a 38 f4 20 2a 20 20 20  |     *..Z8. *   |
00000170  20 20 20 20 20 20 20 20  20 20 20 28 63 29 20 37  |           (c) 7|
00000180  74 68 20 4a 75 6c 79 20  31 39 39 32 20 20 20 20  |th July 1992    |
00000190  20 20 20 20 20 20 20 20  20 20 20 20 20 2a 0d 00  |             *..|
000001a0  64 38 f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |d8. ************|
000001b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000001d0  2a 2a 2a 2a 2a 2a 0d 00  6e 05 3a 0d 00 78 34 ee  |******..n.:..x4.|
000001e0  20 85 20 ef 34 3a f1 8a  30 2c 30 29 3b 22 45 72  | . .4:..0,0);"Er|
000001f0  72 6f 72 3a 22 3b f6 24  3b 22 20 61 74 20 6c 69  |ror:";.$;" at li|
00000200  6e 65 20 22 3b 9e 3b 22  20 20 20 20 22 3a e0 0d  |ne ";.;"    ":..|
00000210  00 82 1a c8 99 20 22 4f  53 5f 47 65 74 45 6e 76  |..... "OS_GetEnv|
00000220  22 20 b8 20 63 6f 6d 6d  24 0d 00 8c 21 70 3d a7  |" . comm$...!p=.|
00000230  63 6f 6d 6d 24 2c 22 22  22 22 2c a7 63 6f 6d 6d  |comm$,"""",.comm|
00000240  24 2c 22 22 22 22 29 2b  31 29 0d 00 96 15 63 6f  |$,"""")+1)....co|
00000250  6d 6d 24 3d c1 63 6f 6d  6d 24 2c 70 2b 31 29 0d  |mm$=.comm$,p+1).|
00000260  00 a0 14 c8 95 20 c0 63  6f 6d 6d 24 2c 31 29 3d  |..... .comm$,1)=|
00000270  22 20 22 0d 00 aa 13 63  6f 6d 6d 24 3d c1 63 6f  |" "....comm$=.co|
00000280  6d 6d 24 2c 32 29 0d 00  b4 05 ce 0d 00 be 05 3a  |mm$,2).........:|
00000290  0d 00 c8 0e f2 76 61 72  69 61 62 6c 65 73 0d 00  |.....variables..|
000002a0  d2 25 76 65 72 73 69 6f  6e 3d a4 77 69 6d 70 69  |.%version=.wimpi|
000002b0  6e 69 74 28 32 2e 30 30  2c 70 72 6f 67 6e 61 6d  |nit(2.00,prognam|
000002c0  65 24 29 0d 00 dc 43 69  63 6f 6e 62 61 72 3d a4  |e$)...Ciconbar=.|
000002d0  6d 61 6b 65 69 63 6f 6e  28 2d 32 2c 30 2c 2d 31  |makeicon(-2,0,-1|
000002e0  36 2c 31 32 38 2c 38 34  2c 26 31 37 30 30 33 31  |6,128,84,&170031|
000002f0  30 42 2c 69 63 73 70 72  69 74 65 2c 69 63 74 65  |0B,icsprite,icte|
00000300  78 74 2c 34 30 29 0d 00  e6 4e 69 63 70 6e 74 3d  |xt,40)...Nicpnt=|
00000310  a4 74 65 6d 70 6c 61 74  65 28 74 65 6d 70 6e 61  |.template(tempna|
00000320  6d 65 24 2c 22 3c 22 2b  70 72 6f 67 6e 61 6d 65  |me$,"<"+progname|
00000330  24 2b 22 24 44 69 72 3e  2e 54 65 6d 70 6c 61 74  |$+"$Dir>.Templat|
00000340  65 73 22 2c 69 63 70 6e  74 2c 26 33 30 30 2c 68  |es",icpnt,&300,h|
00000350  61 6e 25 29 0d 00 f0 11  f2 74 65 6d 70 6c 61 74  |an%).....templat|
00000360  65 76 61 72 73 0d 00 fa  26 63 6f 6d 6d 24 3d 22  |evars...&comm$="|
00000370  3c 22 2b 70 72 6f 67 6e  61 6d 65 24 2b 22 24 44  |<"+progname$+"$D|
00000380  69 72 3e 2e 44 72 69 76  65 72 22 0d 01 04 0c c8  |ir>.Driver".....|
00000390  9b 20 63 6f 6d 6d 24 0d  01 0e 05 3a 0d 01 18 0b  |. comm$....:....|
000003a0  71 75 69 74 25 3d a3 0d  01 22 19 ee 20 85 20 f2  |quit%=...".. . .|
000003b0  65 72 72 6f 72 28 70 72  6f 67 6e 61 6d 65 24 29  |error(progname$)|
000003c0  0d 01 2c 05 f5 0d 01 36  17 e7 20 71 75 69 74 25  |..,....6.. quit%|
000003d0  3c 3e b9 20 f2 70 6f 6c  6c 28 31 29 0d 01 40 0b  |<>. .poll(1)..@.|
000003e0  fd 20 71 75 69 74 25 0d  01 4a 19 c8 99 20 22 57  |. quit%..J... "W|
000003f0  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 3a e0  |imp_CloseDown":.|
00000400  0d 01 54 05 3a 0d 01 5e  31 f4 20 2d 2d 2d 2d 2d  |..T.:..^1. -----|
00000410  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000430  2d 2d 2d 2d 2d 2d 0d 01  68 31 f4 20 7c 20 20 20  |------..h1. |   |
00000440  57 69 6d 70 20 50 6f 6c  6c 69 6e 67 20 72 65 6c  |Wimp Polling rel|
00000450  61 74 65 64 20 70 72 6f  63 65 64 75 72 65 73 20  |ated procedures |
00000460  20 20 20 20 20 20 7c 0d  01 72 31 f4 20 2d 2d 2d  |      |..r1. ---|
00000470  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000490  2d 2d 2d 2d 2d 2d 2d 2d  0d 01 7c 05 3a 0d 01 86  |--------..|.:...|
000004a0  11 dd f2 70 6f 6c 6c 28  6d 61 73 6b 25 29 0d 01  |...poll(mask%)..|
000004b0  90 29 c8 99 20 22 57 69  6d 70 5f 50 6f 6c 6c 22  |.).. "Wimp_Poll"|
000004c0  2c 6d 61 73 6b 25 2c 71  25 20 b8 20 72 65 61 73  |,mask%,q% . reas|
000004d0  6f 6e 63 6f 64 65 25 0d  01 9a 16 20 20 c8 8e 20  |oncode%....  .. |
000004e0  72 65 61 73 6f 6e 63 6f  64 65 25 20 ca 0d 01 a4  |reasoncode% ....|
000004f0  22 20 20 c9 20 32 3a c8  99 20 22 57 69 6d 70 5f  |"  . 2:.. "Wimp_|
00000500  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 71 25 0d  |OpenWindow",,q%.|
00000510  01 ae 23 20 20 c9 20 33  3a c8 99 20 22 57 69 6d  |..#  . 3:.. "Wim|
00000520  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
00000530  71 25 0d 01 b8 32 20 20  c9 20 36 3a f2 6d 6f 75  |q%...2  . 6:.mou|
00000540  73 65 5f 63 6c 69 63 6b  28 71 25 21 30 2c 71 25  |se_click(q%!0,q%|
00000550  21 34 2c 71 25 21 38 2c  71 25 21 31 32 2c 71 25  |!4,q%!8,q%!12,q%|
00000560  21 31 36 29 0d 01 c2 1a  20 20 c9 20 39 3a e7 20  |!16)....  . 9:. |
00000570  71 25 21 30 3d 31 20 71  75 69 74 25 3d b9 0d 01  |q%!0=1 quit%=...|
00000580  cc 16 20 20 c9 20 31 37  2c 31 38 3a f2 72 65 63  |..  . 17,18:.rec|
00000590  69 65 76 65 0d 01 d6 07  20 20 cb 0d 01 e0 05 e1  |ieve....  ......|
000005a0  0d 01 ea 05 3a 0d 01 f4  0d dd f2 72 65 63 69 65  |....:......recie|
000005b0  76 65 0d 01 fe 17 e7 20  71 25 21 31 36 3d 30 20  |ve..... q%!16=0 |
000005c0  71 75 69 74 25 3d b9 3a  e1 0d 02 08 29 e7 20 71  |quit%=.:....). q|
000005d0  25 21 31 36 3d 26 34 43  34 46 34 37 34 46 20 f2  |%!16=&4C4F474F .|
000005e0  6c 6f 67 6f 63 6f 6d 6d  61 6e 64 28 71 25 2b 32  |logocommand(q%+2|
000005f0  30 29 0d 02 26 05 e1 0d  02 30 05 3a 0d 02 3a 29  |0)..&....0.:..:)|
00000600  dd f2 6d 6f 75 73 65 5f  63 6c 69 63 6b 28 78 25  |..mouse_click(x%|
00000610  2c 79 25 2c 62 25 2c 77  69 6e 64 6f 77 25 2c 69  |,y%,b%,window%,i|
00000620  63 6f 6e 25 29 0d 02 44  12 20 20 c8 8e 20 77 69  |con%)..D.  .. wi|
00000630  6e 64 6f 77 25 20 ca 0d  02 4e 19 20 20 c9 20 64  |ndow% ...N.  . d|
00000640  72 69 76 65 72 3a c8 8e  20 69 63 6f 6e 25 20 ca  |river:.. icon% .|
00000650  0d 02 58 22 20 20 20 20  20 20 20 20 20 20 20 20  |..X"            |
00000660  20 20 c9 20 35 3a f2 74  6f 67 67 6c 65 73 74 61  |  . 5:.togglesta|
00000670  74 65 0d 02 62 13 20 20  20 20 20 20 20 20 20 20  |te..b.          |
00000680  20 20 20 20 cb 0d 02 6c  16 20 20 c9 20 2d 32 3a  |    ...l.  . -2:|
00000690  20 20 20 20 c8 8e 20 62  25 20 ca 0d 02 76 22 20  |    .. b% ...v" |
000006a0  20 20 20 20 20 20 20 20  20 20 20 20 20 c9 20 32  |             . 2|
000006b0  3a f2 69 63 6f 6e 62 61  72 6d 65 6e 75 0d 02 80  |:.iconbarmenu...|
000006c0  2c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 c9  |,              .|
000006d0  20 31 2c 34 3a f2 6f 70  65 6e 74 6f 66 72 6f 6e  | 1,4:.opentofron|
000006e0  74 28 64 72 69 76 65 72  29 0d 02 8a 13 20 20 20  |t(driver)....   |
000006f0  20 20 20 20 20 20 20 20  20 20 20 cb 0d 02 94 07  |           .....|
00000700  20 20 cb 0d 02 9e 05 e1  0d 02 a8 05 3a 0d 02 b2  |  ..........:...|
00000710  38 f4 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |8. -------------|
00000720  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000740  2d 2d 2d 2d 2d 0d 02 bc  38 f4 20 7c 20 20 20 20  |-----...8. |    |
00000750  20 20 50 72 6f 67 72 61  6d 20 53 70 65 63 69 66  |  Program Specif|
00000760  69 63 20 46 75 6e 63 74  69 6f 6e 73 20 26 20 50  |ic Functions & P|
00000770  72 6f 63 65 64 75 72 65  73 20 20 20 7c 0d 02 c6  |rocedures   |...|
00000780  38 f4 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |8. -------------|
00000790  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000007b0  2d 2d 2d 2d 2d 0d 02 d0  05 3a 0d 02 da 11 dd f2  |-----....:......|
000007c0  69 63 6f 6e 62 61 72 6d  65 6e 75 0d 02 e4 26 6d  |iconbarmenu...&m|
000007d0  65 6e 75 74 72 65 65 25  3d 6d 65 6e 75 62 6c 6f  |enutree%=menublo|
000007e0  63 6b 25 3a 6d 65 6e 75  68 61 6e 64 6c 65 25 3d  |ck%:menuhandle%=|
000007f0  30 0d 02 ee 35 70 74 72  25 3d a4 63 72 6d 75 28  |0...5ptr%=.crmu(|
00000800  22 49 6e 66 6f 3e 69 6e  66 6f 2c 51 75 69 74 22  |"Info>info,Quit"|
00000810  2c 70 72 6f 67 6e 61 6d  65 24 2c 6d 65 6e 75 62  |,progname$,menub|
00000820  6c 6f 63 6b 25 29 0d 02  f8 2e c8 99 20 22 57 69  |lock%)...... "Wi|
00000830  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00000840  6d 65 6e 75 62 6c 6f 63  6b 25 2c 78 25 2d 36 34  |menublock%,x%-64|
00000850  2c 31 37 38 0d 03 02 05  e1 0d 03 0c 05 3a 0d 03  |,178.........:..|
00000860  16 0f dd f2 76 61 72 69  61 62 6c 65 73 0d 03 20  |....variables.. |
00000870  3e de 20 71 25 20 26 33  30 30 2c 6d 65 6e 75 62  |>. q% &300,menub|
00000880  6c 6f 63 6b 25 20 26 32  30 30 2c 77 6f 72 6b 62  |lock% &200,workb|
00000890  6c 6f 63 6b 25 20 26 33  30 30 2c 69 63 6f 6e 73  |lock% &300,icons|
000008a0  62 6c 6f 63 6b 25 20 26  33 30 30 0d 03 2a 1d de  |block% &300..*..|
000008b0  20 68 61 6e 25 20 38 30  3a de 20 6d 65 6e 75 69  | han% 80:. menui|
000008c0  74 65 6d 24 28 33 30 29  0d 03 34 3c 70 72 6f 67  |tem$(30)..4<prog|
000008d0  6e 61 6d 65 24 3d 22 52  6f 62 6f 74 22 3a 74 65  |name$="Robot":te|
000008e0  6d 70 6e 61 6d 65 24 3d  22 69 6e 66 6f 2c 64 72  |mpname$="info,dr|
000008f0  69 76 65 72 22 3a 66 69  6c 65 74 79 70 65 25 3d  |iver":filetype%=|
00000900  26 30 38 35 0d 03 3e 15  69 63 70 6e 74 3d 69 63  |&085..>.icpnt=ic|
00000910  6f 6e 73 62 6c 6f 63 6b  25 0d 03 48 33 de 20 69  |onsblock%..H3. i|
00000920  63 73 70 72 69 74 65 20  31 30 30 2c 69 63 74 65  |csprite 100,icte|
00000930  78 74 20 31 30 30 3a 24  69 63 73 70 72 69 74 65  |xt 100:$icsprite|
00000940  3d 22 53 72 6f 62 6f 74  62 61 72 22 0d 03 52 20  |="Srobotbar"..R |
00000950  24 69 63 74 65 78 74 3d  22 4f 66 66 20 4c 69 6e  |$ictext="Off Lin|
00000960  65 22 3a 73 74 61 74 75  73 25 3d 30 0d 03 5c 05  |e":status%=0..\.|
00000970  e1 0d 03 66 05 3a 0d 03  70 12 dd f2 74 65 6d 70  |...f.:..p...temp|
00000980  6c 61 74 65 76 61 72 73  0d 03 7a 1d 69 6e 66 6f  |latevars..z.info|
00000990  3d 68 61 6e 25 21 30 3a  64 72 69 76 65 72 3d 68  |=han%!0:driver=h|
000009a0  61 6e 25 21 34 0d 03 84  05 e1 0d 03 8e 05 3a 0d  |an%!4.........:.|
000009b0  03 98 18 dd f2 6c 6f 67  6f 63 6f 6d 6d 61 6e 64  |.....logocommand|
000009c0  28 61 64 64 72 25 29 0d  03 a2 29 63 6f 64 65 25  |(addr%)...)code%|
000009d0  3d 61 64 64 72 25 21 30  3a 70 61 72 61 6d 65 74  |=addr%!0:paramet|
000009e0  65 72 3d bb 28 24 28 61  64 64 72 25 2b 34 29 29  |er=.($(addr%+4))|
000009f0  0d 03 ac 0a f7 20 8d 64  72 43 0d 03 b6 34 e3 20  |..... .drC...4. |
00000a00  58 25 3d 31 20 b8 20 63  6f 64 65 25 3a f3 20 63  |X%=1 . code%:. c|
00000a10  6f 64 65 24 3a ed 3a 63  6f 64 65 24 2b 3d 22 20  |ode$:.:code$+=" |
00000a20  22 2b c3 28 70 61 72 61  6d 65 74 65 72 29 0d 03  |"+.(parameter)..|
00000a30  c0 20 f2 73 65 74 69 63  6f 6e 74 65 78 74 28 64  |. .seticontext(d|
00000a40  72 69 76 65 72 2c 32 2c  63 6f 64 65 24 29 0d 03  |river,2,code$)..|
00000a50  ca 11 e7 20 73 74 61 74  75 73 25 3d 30 20 e1 0d  |... status%=0 ..|
00000a60  03 d4 89 ee 20 63 6f 64  65 25 20 f2 6d 6f 76 65  |.... code% .move|
00000a70  66 6f 72 77 61 72 64 28  70 61 72 61 6d 65 74 65  |forward(paramete|
00000a80  72 29 2c f2 6d 6f 76 65  62 61 63 6b 28 70 61 72  |r),.moveback(par|
00000a90  61 6d 65 74 65 72 29 2c  f2 6d 6f 76 65 6c 65 66  |ameter),.movelef|
00000aa0  74 28 70 61 72 61 6d 65  74 65 72 29 2c f2 6d 6f  |t(parameter),.mo|
00000ab0  76 65 72 69 67 68 74 28  70 61 72 61 6d 65 74 65  |veright(paramete|
00000ac0  72 29 2c f2 70 65 6e 75  70 2c f2 70 65 6e 64 6f  |r),.penup,.pendo|
00000ad0  77 6e 2c f2 70 65 6e 63  6f 6c 6f 75 72 28 70 61  |wn,.pencolour(pa|
00000ae0  72 61 6d 65 74 65 72 29  0d 03 de 05 e1 0d 03 e8  |rameter)........|
00000af0  05 3a 0d 03 f2 35 dc 20  46 6f 72 77 61 72 64 2c  |.:...5. Forward,|
00000b00  42 61 63 6b 2c 4c 65 66  74 2c 52 69 67 68 74 2c  |Back,Left,Right,|
00000b10  50 65 6e 55 70 2c 50 65  6e 44 6f 77 6e 2c 50 65  |PenUp,PenDown,Pe|
00000b20  6e 43 6f 6c 6f 75 72 0d  03 fc 05 3a 0d 04 06 11  |nColour....:....|
00000b30  dd f2 74 6f 67 67 6c 65  73 74 61 74 65 0d 04 10  |..togglestate...|
00000b40  11 e7 20 73 74 61 74 75  73 25 3d 30 20 8c 0d 04  |.. status%=0 ...|
00000b50  1a 32 f2 73 65 74 69 63  6f 6e 74 65 78 74 28 2d  |.2.seticontext(-|
00000b60  32 2c 69 63 6f 6e 62 61  72 2c 22 20 4f 6e 20 6c  |2,iconbar," On l|
00000b70  69 6e 65 20 22 29 3a 73  74 61 74 75 73 25 3d 31  |ine "):status%=1|
00000b80  0d 04 24 44 71 25 21 30  3d 64 72 69 76 65 72 3a  |..$Dq%!0=driver:|
00000b90  71 25 21 34 3d 35 3a 71  25 21 38 3d 30 3a 71 25  |q%!4=5:q%!8=0:q%|
00000ba0  21 31 32 3d 31 3c 3c 32  31 3a c8 99 20 22 57 69  |!12=1<<21:.. "Wi|
00000bb0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00000bc0  2c 2c 71 25 0d 04 2e 05  cc 0d 04 38 31 f2 73 65  |,,q%.......81.se|
00000bd0  74 69 63 6f 6e 74 65 78  74 28 2d 32 2c 69 63 6f  |ticontext(-2,ico|
00000be0  6e 62 61 72 2c 22 4f 66  66 20 6c 69 6e 65 22 29  |nbar,"Off line")|
00000bf0  3a 73 74 61 74 75 73 25  3d 30 0d 04 42 48 71 25  |:status%=0..BHq%|
00000c00  21 30 3d 64 72 69 76 65  72 3a 71 25 21 34 3d 35  |!0=driver:q%!4=5|
00000c10  3a 71 25 21 38 3d 31 3c  3c 32 31 3a 71 25 21 31  |:q%!8=1<<21:q%!1|
00000c20  32 3d 31 3c 3c 32 31 3a  c8 99 20 22 57 69 6d 70  |2=1<<21:.. "Wimp|
00000c30  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00000c40  71 25 0d 04 4c 07 cd 3a  e1 0d 04 56 05 3a 0d 04  |q%..L..:...V.:..|
00000c50  60 38 f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |`8. ------------|
00000c60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000c80  2d 2d 2d 2d 2d 2d 0d 04  6a 38 f4 20 7c 20 20 20  |------..j8. |   |
00000c90  20 20 20 20 20 55 6e 69  76 65 72 73 61 6c 20 46  |     Universal F|
00000ca0  75 6e 63 74 69 6f 6e 73  20 26 20 50 72 6f 63 65  |unctions & Proce|
00000cb0  64 75 72 65 20 20 20 20  20 20 20 20 20 7c 0d 04  |dure         |..|
00000cc0  74 38 f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |t8. ------------|
00000cd0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000cf0  2d 2d 2d 2d 2d 2d 0d 04  7e 05 3a 0d 04 88 2d dd  |------..~.:...-.|
00000d00  f2 73 65 74 69 63 6f 6e  74 65 78 74 28 77 69 6e  |.seticontext(win|
00000d10  64 6f 77 25 2c 69 63 6f  6e 25 2c 74 65 78 74 24  |dow%,icon%,text$|
00000d20  29 3a ea 20 6c 65 6e 25  0d 04 92 2b 77 6f 72 6b  |):. len%...+work|
00000d30  62 6c 6f 63 6b 25 21 30  3d 77 69 6e 64 6f 77 25  |block%!0=window%|
00000d40  3a 77 6f 72 6b 62 6c 6f  63 6b 25 21 34 3d 69 63  |:workblock%!4=ic|
00000d50  6f 6e 25 0d 04 9c 26 c8  99 20 22 57 69 6d 70 5f  |on%...&.. "Wimp_|
00000d60  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 77  |GetIconState",,w|
00000d70  6f 72 6b 62 6c 6f 63 6b  25 0d 04 a6 16 6c 65 6e  |orkblock%....len|
00000d80  25 3d 77 6f 72 6b 62 6c  6f 63 6b 25 21 33 36 0d  |%=workblock%!36.|
00000d90  04 b0 42 24 28 77 6f 72  6b 62 6c 6f 63 6b 25 21  |..B$(workblock%!|
00000da0  32 38 29 3d c0 74 65 78  74 24 2c 6c 65 6e 25 2d  |28)=.text$,len%-|
00000db0  31 29 3a 77 6f 72 6b 62  6c 6f 63 6b 25 21 38 3d  |1):workblock%!8=|
00000dc0  30 3a 77 6f 72 6b 62 6c  6f 63 6b 25 21 31 32 3d  |0:workblock%!12=|
00000dd0  30 0d 04 ba 26 c8 99 20  22 57 69 6d 70 5f 53 65  |0...&.. "Wimp_Se|
00000de0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 77 6f 72  |tIconState",,wor|
00000df0  6b 62 6c 6f 63 6b 25 0d  04 c4 05 e1 0d 04 ce 05  |kblock%.........|
00000e00  3a 0d 04 d8 14 dd f2 6d  65 73 73 61 67 65 28 74  |:......message(t|
00000e10  65 78 74 24 29 0d 04 e2  2d 77 6f 72 6b 62 6c 6f  |ext$)...-workblo|
00000e20  63 6b 25 21 30 3d 32 35  35 3a 24 28 77 6f 72 6b  |ck%!0=255:$(work|
00000e30  62 6c 6f 63 6b 25 2b 34  29 3d 74 65 78 74 24 2b  |block%+4)=text$+|
00000e40  bd 30 0d 04 ec 3c c8 99  20 22 57 69 6d 70 5f 52  |.0...<.. "Wimp_R|
00000e50  65 70 6f 72 74 45 72 72  6f 72 22 2c 77 6f 72 6b  |eportError",work|
00000e60  62 6c 6f 63 6b 25 2c 31  37 2c 22 4d 65 73 73 61  |block%,17,"Messa|
00000e70  67 65 20 66 72 6f 6d 20  52 6f 62 6f 74 22 0d 04  |ge from Robot"..|
00000e80  f6 05 e1 0d 05 00 05 3a  0d 05 0a 1a dd f2 6f 70  |.......:......op|
00000e90  65 6e 74 6f 66 72 6f 6e  74 28 68 61 6e 64 6c 65  |entofront(handle|
00000ea0  25 29 0d 05 14 18 77 6f  72 6b 62 6c 6f 63 6b 25  |%)....workblock%|
00000eb0  21 30 3d 68 61 6e 64 6c  65 25 0d 05 1e 38 c8 99  |!0=handle%...8..|
00000ec0  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
00000ed0  49 6e 66 6f 22 2c 2c 77  6f 72 6b 62 6c 6f 63 6b  |Info",,workblock|
00000ee0  25 3a 77 6f 72 6b 62 6c  6f 63 6b 25 21 32 38 3d  |%:workblock%!28=|
00000ef0  2d 31 0d 05 28 24 c8 99  20 22 57 69 6d 70 5f 4f  |-1..($.. "Wimp_O|
00000f00  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 77 6f 72 6b  |penWindow",,work|
00000f10  62 6c 6f 63 6b 25 0d 05  32 05 e1 0d 05 3c 05 3a  |block%..2....<.:|
00000f20  0d 05 46 25 dd a4 6d 65  6e 75 28 74 65 78 74 24  |..F%..menu(text$|
00000f30  2c 77 69 64 74 68 25 2c  68 65 69 67 68 74 25 2c  |,width%,height%,|
00000f40  67 61 70 25 29 0d 05 50  1c 24 50 25 3d c0 74 65  |gap%)..P.$P%=.te|
00000f50  78 74 24 2c 31 31 29 2b  bd 30 3a 50 25 2b 3d 31  |xt$,11)+.0:P%+=1|
00000f60  32 0d 05 5a 0a 5b 4f 50  54 20 30 0d 05 64 3f 45  |2..Z.[OPT 0..d?E|
00000f70  51 55 42 20 37 3a 45 51  55 42 20 32 3a 45 51 55  |QUB 7:EQUB 2:EQU|
00000f80  42 20 37 3a 45 51 55 42  20 30 20 20 20 20 3b 46  |B 7:EQUB 0    ;F|
00000f90  6f 75 72 20 64 65 66 69  6e 61 62 6c 65 20 6d 65  |our definable me|
00000fa0  6e 75 20 63 6f 6c 6f 75  72 73 0d 05 6e 3c 45 51  |nu colours..n<EQ|
00000fb0  55 44 20 77 69 64 74 68  25 2a 31 36 20 20 20 20  |UD width%*16    |
00000fc0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 57 69  |             ;Wi|
00000fd0  64 74 68 20 6f 66 20 6d  65 6e 75 20 28 4f 53 20  |dth of menu (OS |
00000fe0  55 6e 69 74 73 29 0d 05  78 41 45 51 55 44 20 68  |Units)..xAEQUD h|
00000ff0  65 69 67 68 74 25 20 20  20 20 20 20 20 20 20 20  |eight%          |
00001000  20 20 20 20 20 20 20 20  20 3b 48 65 69 67 68 74  |         ;Height|
00001010  20 6f 66 20 6f 6e 65 20  69 74 65 6d 20 28 4f 53  | of one item (OS|
00001020  20 55 6e 69 74 73 29 0d  05 82 49 45 51 55 44 20  | Units)...IEQUD |
00001030  67 61 70 25 20 20 20 20  20 20 20 20 20 20 20 20  |gap%            |
00001040  20 20 20 20 20 20 20 20  20 20 3b 56 65 72 74 69  |          ;Verti|
00001050  63 61 6c 20 67 61 70 20  62 65 74 77 65 65 6e 20  |cal gap between |
00001060  69 74 65 6d 73 20 28 4f  53 20 55 6e 69 74 73 29  |items (OS Units)|
00001070  0d 05 8c 08 5d 3a 3d 30  0d 05 96 05 3a 0d 05 a0  |....]:=0....:...|
00001080  31 dd a4 6d 65 6e 75 69  74 65 6d 28 74 65 78 74  |1..menuitem(text|
00001090  24 2c 66 6c 61 67 73 25  2c 73 75 62 6d 65 6e 75  |$,flags%,submenu|
000010a0  25 2c 69 63 6f 6e 25 2c  6c 61 73 74 25 29 0d 05  |%,icon%,last%)..|
000010b0  aa 21 e7 20 6c 61 73 74  25 3d b9 20 66 6c 61 67  |.!. last%=. flag|
000010c0  73 25 3d 66 6c 61 67 73  25 20 84 20 26 38 30 0d  |s%=flags% . &80.|
000010d0  05 b4 0a 5b 4f 50 54 20  30 0d 05 be 2e 45 51 55  |...[OPT 0....EQU|
000010e0  44 20 66 6c 61 67 73 25  20 20 20 20 20 20 20 20  |D flags%        |
000010f0  20 20 20 20 20 20 20 20  20 20 20 20 3b 4d 65 6e  |            ;Men|
00001100  75 20 66 6c 61 67 73 0d  05 c8 40 45 51 55 44 20  |u flags...@EQUD |
00001110  73 75 62 6d 65 6e 75 25  20 20 20 20 20 20 20 20  |submenu%        |
00001120  20 20 20 20 20 20 20 20  20 20 3b 53 75 62 6d 65  |          ;Subme|
00001130  6e 75 20 70 6f 69 6e 74  65 72 20 28 2d 31 20 69  |nu pointer (-1 i|
00001140  66 20 6e 6f 6e 65 29 0d  05 d2 4f 45 51 55 44 20  |f none)...OEQUD |
00001150  69 63 6f 6e 25 20 20 20  20 20 20 20 20 20 20 20  |icon%           |
00001160  20 20 20 20 20 20 20 20  20 20 3b 4d 65 6e 75 20  |          ;Menu |
00001170  69 74 65 6d 20 69 63 6f  6e 20 66 6c 61 67 73 20  |item icon flags |
00001180  28 61 73 20 66 6f 72 20  61 20 6e 6f 72 6d 61 6c  |(as for a normal|
00001190  20 69 63 6f 6e 29 0d 05  dc 21 5d 3a 24 50 25 3d  | icon)...!]:$P%=|
000011a0  c0 74 65 78 74 24 2c 31  31 29 2b bd 30 3a 50 25  |.text$,11)+.0:P%|
000011b0  2b 3d 31 32 3a 3d 30 0d  05 e6 05 3a 0d 05 f0 0f  |+=12:=0....:....|
000011c0  dd a4 70 61 72 28 73 65  70 24 29 0d 05 fa 2b 69  |..par(sep$)...+i|
000011d0  31 25 3d 69 25 2b 31 3a  69 25 3d a7 6d 65 6e 75  |1%=i%+1:i%=.menu|
000011e0  73 74 72 69 6e 67 24 2b  73 65 70 24 2c 73 65 70  |string$+sep$,sep|
000011f0  24 2c 69 31 25 29 0d 06  04 1d 3d c1 6d 65 6e 75  |$,i1%)....=.menu|
00001200  73 74 72 69 6e 67 24 2c  69 31 25 2c 69 25 2d 69  |string$,i1%,i%-i|
00001210  31 25 29 0d 06 0e 05 3a  0d 06 18 29 dd a4 63 72  |1%)....:...)..cr|
00001220  6d 75 28 6d 65 6e 75 73  74 72 69 6e 67 24 2c 6d  |mu(menustring$,m|
00001230  75 74 69 74 6c 65 24 2c  61 64 64 72 65 73 73 25  |utitle$,address%|
00001240  29 0d 06 22 34 6e 75 6d  62 65 72 25 3d 2d 31 3a  |).."4number%=-1:|
00001250  69 25 3d 30 3a 77 69 64  74 68 25 3d a9 28 6d 75  |i%=0:width%=.(mu|
00001260  74 69 74 6c 65 24 29 2d  32 3a 50 25 3d 61 64 64  |title$)-2:P%=add|
00001270  72 65 73 73 25 0d 06 2c  2d f5 3a 6e 75 6d 62 65  |ress%..,-.:numbe|
00001280  72 25 2b 3d 31 3a 6d 65  6e 75 69 74 65 6d 24 28  |r%+=1:menuitem$(|
00001290  6e 75 6d 62 65 72 25 29  3d a4 70 61 72 28 22 2c  |number%)=.par(",|
000012a0  22 29 0d 06 36 26 fd 20  6d 65 6e 75 69 74 65 6d  |")..6&. menuitem|
000012b0  24 28 6e 75 6d 62 65 72  25 29 3d 22 22 3a 6e 75  |$(number%)="":nu|
000012c0  6d 62 65 72 25 2d 3d 31  0d 06 40 28 5b 4f 50 54  |mber%-=1..@([OPT|
000012d0  20 30 3a a4 6d 65 6e 75  28 6d 75 74 69 74 6c 65  | 0:.menu(mutitle|
000012e0  24 2c 77 69 64 74 68 25  2c 34 30 2c 30 29 3a 5d  |$,width%,40,0):]|
000012f0  0d 06 4a 1b e3 20 6d 65  6e 75 69 74 65 6d 25 3d  |..J.. menuitem%=|
00001300  30 20 b8 20 6e 75 6d 62  65 72 25 0d 06 54 28 69  |0 . number%..T(i|
00001310  74 65 6d 66 6c 61 67 73  25 3d a4 6d 65 6e 75 69  |temflags%=.menui|
00001320  74 65 6d 66 6c 61 67 73  28 6d 65 6e 75 69 74 65  |temflags(menuite|
00001330  6d 25 29 0d 06 5e 18 69  63 6f 6e 66 6c 61 67 73  |m%)..^.iconflags|
00001340  25 3d 26 30 37 30 30 30  30 32 31 0d 06 68 27 73  |%=&07000021..h's|
00001350  75 62 6d 65 6e 75 25 3d  a4 73 75 62 6d 65 6e 75  |ubmenu%=.submenu|
00001360  70 6f 69 6e 74 65 72 28  6d 65 6e 75 69 74 65 6d  |pointer(menuitem|
00001370  25 29 0d 06 72 2f e7 20  6d 65 6e 75 69 74 65 6d  |%)..r/. menuitem|
00001380  25 3d 6e 75 6d 62 65 72  25 20 6c 61 73 74 6f 70  |%=number% lastop|
00001390  74 25 3d b9 20 8b 20 6c  61 73 74 6f 70 74 25 3d  |t%=. . lastopt%=|
000013a0  a3 0d 06 7c 43 e7 20 a9  28 6d 65 6e 75 69 74 65  |...|C. .(menuite|
000013b0  6d 24 28 6d 65 6e 75 69  74 65 6d 25 29 29 3e 77  |m$(menuitem%))>w|
000013c0  69 64 74 68 25 20 77 69  64 74 68 25 3d a9 28 6d  |idth% width%=.(m|
000013d0  65 6e 75 69 74 65 6d 24  28 6d 65 6e 75 69 74 65  |enuitem$(menuite|
000013e0  6d 25 29 29 0d 06 86 0a  5b 4f 50 54 20 30 0d 06  |m%))....[OPT 0..|
000013f0  90 4b a4 6d 65 6e 75 69  74 65 6d 28 6d 65 6e 75  |.K.menuitem(menu|
00001400  69 74 65 6d 24 28 6d 65  6e 75 69 74 65 6d 25 29  |item$(menuitem%)|
00001410  2c 69 74 65 6d 66 6c 61  67 73 25 2c 73 75 62 6d  |,itemflags%,subm|
00001420  65 6e 75 25 2c 69 63 6f  6e 66 6c 61 67 73 25 2c  |enu%,iconflags%,|
00001430  6c 61 73 74 6f 70 74 25  29 0d 06 9a 49 5d 3a ed  |lastopt%)...I]:.|
00001440  3a 77 69 64 74 68 25 2b  3d 31 3a 61 64 64 72 25  |:width%+=1:addr%|
00001450  3d 50 25 3a 50 25 3d 61  64 64 72 65 73 73 25 3a  |=P%:P%=address%:|
00001460  5b 4f 50 54 20 30 3a a4  6d 65 6e 75 28 6d 75 74  |[OPT 0:.menu(mut|
00001470  69 74 6c 65 24 2c 77 69  64 74 68 25 2c 34 30 2c  |itle$,width%,40,|
00001480  30 29 0d 06 a4 0c 5d 3a  3d 61 64 64 72 25 0d 06  |0)....]:=addr%..|
00001490  ae 05 3a 0d 06 b8 18 dd  a4 73 75 62 6d 65 6e 75  |..:......submenu|
000014a0  70 6f 69 6e 74 65 72 28  41 25 29 0d 06 c2 2b 41  |pointer(A%)...+A|
000014b0  24 3d 6d 65 6e 75 69 74  65 6d 24 28 41 25 29 3a  |$=menuitem$(A%):|
000014c0  69 25 3d a7 41 24 2c 22  3e 22 29 3a e7 20 69 25  |i%=.A$,">"):. i%|
000014d0  3d 30 20 3d 2d 31 0d 06  cc 2c 42 24 3d c2 41 24  |=0 =-1...,B$=.A$|
000014e0  2c a9 28 41 24 29 2d 69  25 29 3a 6d 65 6e 75 69  |,.(A$)-i%):menui|
000014f0  74 65 6d 24 28 41 25 29  3d c0 41 24 2c 69 25 2d  |tem$(A%)=.A$,i%-|
00001500  31 29 0d 06 d6 23 e7 20  c0 42 24 2c 31 29 3d 22  |1)...#. .B$,1)="|
00001510  3e 22 20 8c 20 3d a0 28  c2 42 24 2c a9 28 42 24  |>" . =.(.B$,.(B$|
00001520  29 2d 31 29 29 0d 06 e0  0a 3d a0 28 42 24 29 0d  |)-1))....=.(B$).|
00001530  06 ea 05 3a 0d 06 f4 17  dd a4 6d 65 6e 75 69 74  |...:......menuit|
00001540  65 6d 66 6c 61 67 73 28  41 25 29 0d 06 fe 1d 41  |emflags(A%)....A|
00001550  24 3d 6d 65 6e 75 69 74  65 6d 24 28 41 25 29 3a  |$=menuitem$(A%):|
00001560  66 6c 61 67 73 25 3d 30  0d 07 08 2e e7 20 a7 41  |flags%=0..... .A|
00001570  24 2c 22 80 22 29 3e 30  20 41 24 3d a4 6f 75 74  |$,".")>0 A$=.out|
00001580  63 68 61 72 28 41 24 2c  22 80 22 29 3a 66 6c 61  |char(A$,"."):fla|
00001590  67 73 25 2b 3d 31 0d 07  12 2e e7 20 a7 41 24 2c  |gs%+=1..... .A$,|
000015a0  22 2d 22 29 3e 30 20 41  24 3d a4 6f 75 74 63 68  |"-")>0 A$=.outch|
000015b0  61 72 28 41 24 2c 22 2d  22 29 3a 66 6c 61 67 73  |ar(A$,"-"):flags|
000015c0  25 2b 3d 32 0d 07 1c 1c  6d 65 6e 75 69 74 65 6d  |%+=2....menuitem|
000015d0  24 28 41 25 29 3d 41 24  3a 3d 66 6c 61 67 73 25  |$(A%)=A$:=flags%|
000015e0  0d 07 26 05 3a 0d 07 30  14 dd a4 6f 75 74 63 68  |..&.:..0...outch|
000015f0  61 72 28 43 24 2c 44 24  29 0d 07 3a 27 69 25 3d  |ar(C$,D$)..:'i%=|
00001600  a7 43 24 2c 44 24 29 3a  3d c0 43 24 2c 69 25 2d  |.C$,D$):=.C$,i%-|
00001610  31 29 2b c2 43 24 2c a9  28 43 24 29 2d 69 25 29  |1)+.C$,.(C$)-i%)|
00001620  0d 07 44 05 3a 0d 07 4e  44 dd a4 74 65 6d 70 6c  |..D.:..ND..templ|
00001630  61 74 65 28 74 65 6d 70  24 2c 66 69 6c 65 6e 61  |ate(temp$,filena|
00001640  6d 65 24 2c 61 64 64 72  25 2c 73 69 7a 65 25 2c  |me$,addr%,size%,|
00001650  68 61 6e 64 6c 65 61 64  64 72 25 29 3a ea 20 6e  |handleaddr%):. n|
00001660  75 6d 62 65 72 25 2c 69  25 0d 07 58 25 c8 99 20  |umber%,i%..X%.. |
00001670  22 57 69 6d 70 5f 4f 70  65 6e 54 65 6d 70 6c 61  |"Wimp_OpenTempla|
00001680  74 65 22 2c 2c 66 69 6c  65 6e 61 6d 65 24 0d 07  |te",,filename$..|
00001690  62 20 6e 75 6d 62 65 72  25 3d 2d 31 3a 69 25 3d  |b number%=-1:i%=|
000016a0  30 3a 73 69 7a 65 25 2b  3d 61 64 64 72 25 0d 07  |0:size%+=addr%..|
000016b0  6c 32 f5 3a 6e 75 6d 62  65 72 25 2b 3d 31 3a 6e  |l2.:number%+=1:n|
000016c0  61 6d 65 24 3d a4 70 61  72 74 65 6d 70 28 22 2c  |ame$=.partemp(",|
000016d0  22 29 3a e7 20 6e 61 6d  65 24 3c 3e 22 22 20 8c  |"):. name$<>"" .|
000016e0  0d 07 76 45 c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |..vE.. "Wimp_Loa|
000016f0  64 54 65 6d 70 6c 61 74  65 22 2c 2c 77 6f 72 6b  |dTemplate",,work|
00001700  62 6c 6f 63 6b 25 2c 61  64 64 72 25 2c 73 69 7a  |block%,addr%,siz|
00001710  65 25 2c 2d 31 2c 6e 61  6d 65 24 20 b8 20 2c 2c  |e%,-1,name$ . ,,|
00001720  61 64 64 72 25 0d 07 80  43 c8 99 20 22 57 69 6d  |addr%...C.. "Wim|
00001730  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00001740  2c 77 6f 72 6b 62 6c 6f  63 6b 25 20 b8 20 21 28  |,workblock% . !(|
00001750  68 61 6e 64 6c 65 61 64  64 72 25 2b 28 34 2a 6e  |handleaddr%+(4*n|
00001760  75 6d 62 65 72 25 29 29  0d 07 8a 2f cd 3a fd 20  |umber%)).../.:. |
00001770  6e 61 6d 65 24 3d 22 22  3a c8 99 20 22 57 69 6d  |name$="":.. "Wim|
00001780  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 22  |p_CloseTemplate"|
00001790  3a 3d 61 64 64 72 25 0d  07 94 05 3a 0d 07 9e 13  |:=addr%....:....|
000017a0  dd a4 70 61 72 74 65 6d  70 28 73 65 70 24 29 0d  |..partemp(sep$).|
000017b0  07 a8 25 69 31 25 3d 69  25 2b 31 3a 69 25 3d a7  |..%i1%=i%+1:i%=.|
000017c0  74 65 6d 70 24 2b 73 65  70 24 2c 73 65 70 24 2c  |temp$+sep$,sep$,|
000017d0  69 31 25 29 0d 07 b2 17  3d c1 74 65 6d 70 24 2c  |i1%)....=.temp$,|
000017e0  69 31 25 2c 69 25 2d 69  31 25 29 0d 07 bc 05 3a  |i1%,i%-i1%)....:|
000017f0  0d 07 c6 49 dd a4 6d 61  6b 65 69 63 6f 6e 28 77  |...I..makeicon(w|
00001800  69 6e 64 6f 77 25 2c 6d  69 6e 78 25 2c 6d 69 6e  |indow%,minx%,min|
00001810  79 25 2c 6d 61 78 78 25  2c 6d 61 78 79 25 2c 66  |y%,maxx%,maxy%,f|
00001820  6c 61 67 73 25 2c 73 70  72 69 74 65 2c 74 65 78  |lags%,sprite,tex|
00001830  74 2c 62 75 66 66 65 72  29 0d 07 d0 3e 77 6f 72  |t,buffer)...>wor|
00001840  6b 62 6c 6f 63 6b 25 21  30 3d 77 69 6e 64 6f 77  |kblock%!0=window|
00001850  25 3a 77 6f 72 6b 62 6c  6f 63 6b 25 21 34 3d 6d  |%:workblock%!4=m|
00001860  69 6e 78 25 3a 77 6f 72  6b 62 6c 6f 63 6b 25 21  |inx%:workblock%!|
00001870  38 3d 6d 69 6e 79 25 0d  07 da 2b 77 6f 72 6b 62  |8=miny%...+workb|
00001880  6c 6f 63 6b 25 21 31 32  3d 6d 61 78 78 25 3a 77  |lock%!12=maxx%:w|
00001890  6f 72 6b 62 6c 6f 63 6b  25 21 31 36 3d 6d 61 78  |orkblock%!16=max|
000018a0  79 25 0d 07 e4 40 77 6f  72 6b 62 6c 6f 63 6b 25  |y%...@workblock%|
000018b0  21 32 30 3d 66 6c 61 67  73 25 3a 77 6f 72 6b 62  |!20=flags%:workb|
000018c0  6c 6f 63 6b 25 21 32 34  3d 74 65 78 74 3a 77 6f  |lock%!24=text:wo|
000018d0  72 6b 62 6c 6f 63 6b 25  21 32 38 3d 73 70 72 69  |rkblock%!28=spri|
000018e0  74 65 0d 07 ee 18 77 6f  72 6b 62 6c 6f 63 6b 25  |te....workblock%|
000018f0  21 33 32 3d 62 75 66 66  65 72 0d 07 f8 3f c8 99  |!32=buffer...?..|
00001900  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
00001910  6e 22 2c 2c 77 6f 72 6b  62 6c 6f 63 6b 25 20 b8  |n",,workblock% .|
00001920  20 69 63 6f 6e 68 61 6e  64 6c 65 25 3a 3d 69 63  | iconhandle%:=ic|
00001930  6f 6e 68 61 6e 64 6c 65  25 0d 08 02 05 3a 0d 08  |onhandle%....:..|
00001940  0c 12 dd f2 65 72 72 6f  72 28 6e 61 6d 65 24 29  |....error(name$)|
00001950  0d 08 16 20 77 6f 72 6b  62 6c 6f 63 6b 25 21 30  |... workblock%!0|
00001960  3d 9f 3a ea 20 63 6c 69  63 6b 65 64 5f 6f 6e 25  |=.:. clicked_on%|
00001970  0d 08 20 3d 24 28 77 6f  72 6b 62 6c 6f 63 6b 25  |.. =$(workblock%|
00001980  2b 34 29 3d f6 24 2b 22  20 28 69 6e 74 65 72 6e  |+4)=.$+" (intern|
00001990  61 6c 20 65 72 72 6f 72  20 63 6f 64 65 20 22 2b  |al error code "+|
000019a0  c3 28 9e 29 2b 22 29 22  2b bd 28 30 29 0d 08 2a  |.(.)+")"+.(0)..*|
000019b0  3b c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  |;.. "Wimp_Report|
000019c0  45 72 72 6f 72 22 2c 77  6f 72 6b 62 6c 6f 63 6b  |Error",workblock|
000019d0  25 2c 33 2c 6e 61 6d 65  24 20 b8 20 2c 63 6c 69  |%,3,name$ . ,cli|
000019e0  63 6b 65 64 5f 6f 6e 25  0d 08 34 25 e7 20 63 6c  |cked_on%..4%. cl|
000019f0  69 63 6b 65 64 5f 6f 6e  25 3d 32 20 71 75 69 74  |icked_on%=2 quit|
00001a00  25 3d b9 20 8b 20 71 75  69 74 25 3d a3 0d 08 3e  |%=. . quit%=...>|
00001a10  05 e1 0d 08 48 05 3a 0d  08 52 26 dd a4 77 69 6d  |....H.:..R&..wim|
00001a20  70 69 6e 69 74 28 6b 6e  6f 77 6e 76 65 72 73 69  |pinit(knownversi|
00001a30  6f 6e 2c 74 61 73 6b 6e  61 6d 65 24 29 0d 08 5c  |on,taskname$)..\|
00001a40  47 c8 99 20 22 57 69 6d  70 5f 49 6e 69 74 69 61  |G.. "Wimp_Initia|
00001a50  6c 69 73 65 22 2c 32 30  30 2a 6b 6e 6f 77 6e 76  |lise",200*knownv|
00001a60  65 72 73 69 6f 6e 2c 26  34 42 35 33 34 31 35 34  |ersion,&4B534154|
00001a70  2c 74 61 73 6b 6e 61 6d  65 24 20 b8 20 76 65 72  |,taskname$ . ver|
00001a80  73 69 6f 6e 0d 08 66 0c  3d 76 65 72 73 69 6f 6e  |sion..f.=version|
00001a90  0d 08 70 05 3a 0d 08 7a  19 dd f2 64 61 74 61 6c  |..p.:..z...datal|
00001aa0  6f 61 64 28 66 69 6c 65  6e 61 6d 65 24 29 0d 08  |oad(filename$)..|
00001ab0  84 37 71 25 21 31 32 3d  71 25 21 38 3a 71 25 21  |.7q%!12=q%!8:q%!|
00001ac0  31 36 3d 34 3a c8 99 20  22 57 69 6d 70 5f 53 65  |16=4:.. "Wimp_Se|
00001ad0  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 71 25  |ndMessage",17,q%|
00001ae0  2c 71 25 21 34 0d 08 8e  3b c8 9b 20 66 69 6c 65  |,q%!4...;.. file|
00001af0  6e 61 6d 65 24 3a f2 6d  65 73 73 61 67 65 28 22  |name$:.message("|
00001b00  4e 65 77 20 64 72 69 76  65 72 20 70 72 6f 67 72  |New driver progr|
00001b10  61 6d 20 69 6e 73 74 61  6c 6c 65 64 22 29 3a e1  |am installed"):.|
00001b20  0d 08 98 05 3a 0d 08 a2  18 dd a4 66 69 6c 65 6e  |....:......filen|
00001b30  61 6d 65 28 61 64 64 72  65 73 73 25 29 0d 08 ac  |ame(address%)...|
00001b40  24 41 24 3d 22 22 3a f5  3a 41 25 3d 3f 61 64 64  |$A$="":.:A%=?add|
00001b50  72 65 73 73 25 3a 61 64  64 72 65 73 73 25 2b 3d  |ress%:address%+=|
00001b60  31 0d 08 b6 15 e7 20 41  25 3c 3e 30 20 41 24 3d  |1..... A%<>0 A$=|
00001b70  41 24 2b bd 41 25 0d 08  c0 0e fd 20 41 25 3d 30  |A$+.A%..... A%=0|
00001b80  3a 3d 41 24 0d 08 ca 05  3a 0d 08 d4 48 f4 20 2d  |:=A$....:...H. -|
00001b90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001bd0  2d 0d 08 de 48 f4 20 7c  20 20 20 20 20 20 20 52  |-...H. |       R|
00001be0  6f 62 6f 74 20 44 72 69  76 65 72 20 50 72 6f 63  |obot Driver Proc|
00001bf0  65 64 75 72 65 73 20 4c  6f 61 64 65 64 20 61 73  |edures Loaded as|
00001c00  20 61 20 4c 69 62 72 61  72 79 20 48 65 72 65 20  | a Library Here |
00001c10  20 20 20 20 20 20 20 20  7c 0d 08 e8 48 f4 20 2d  |        |...H. -|
00001c20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001c60  2d 0d 08 f2 05 3a 0d ff                           |-....:..|
00001c68