� >!FILETYPE.!RUNIMAGE
J� Program allowing you to change the file type of files in the desktop
:� All parts of this program were written by A.E.Hersee
(4� The program may be copied only between friends
2J� It must not be sold or put on any other p.d disc other than this DVS
<
� disc
F� I can be contacted at :
P� Mr A.E.Hersee
Z� The Red House
d� Tallington
n� Nr. STAMFORD
x� Lincs
�
� PE9 4RP
�� Send a disc and �1.00
��        OR
�� Send no disc and �2.00
�'� to me for all my latest programs.
��
�t� This includes postage. Send an S.A.E for information on my programs and a wide range of DTP clip art and fonts
�sd=0
�loaded=�
�"vers$="Wed,4 Apr 1990. (2.00)"
�author$="A.E.Hersee"
�program$="!FileType"
�&purpose$="*SetType Within Desktop"

task$="FileType"


sinfo=-99

swindow=-99

"
wedit=-99

,�set_dimensions

6-�initialise_Wimp_and_Task_Managers(task$)

@� � �non_wimp_error

J*�set_sprites("<FILETYPE$Dir>.SPRITES")

Tȗ �

^l� A=1 � 1:sicon=�iconbarsprite("!FileType",-1):�:testflag=�iconflag(�,�,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0)

h�create_all_windows

r�open_all_windows

|� � �wimp_error

�
quit=�

��:�poll:�quit

�ș "Wimp_CloseDown"

��

���non_wimp_error

�	� � �

�	�poll

��wimp_error

��

�3� *******  SET UP AND LOAD SPRITE AREA  *******

���set_sprites(file$)

�S%=� file$

�L%=�#S%+16
�#S%
� sp L%
"!sp=L%:sp!4=0:sp!8=16:sp!12=16
&!ș "OS_SpriteOp",266,sp,file$
0�
:-� *******  SET UP WINDOW MANAGER  *******
D.��initialise_Wimp_and_Task_Managers(task$)
N>$block="TASK":ș"Wimp_Initialise",200,!block,task$ � ,task
X�
b)� *******  SET UP DIMENSIONS  *******
l��set_dimensions
vmaxtext=1000
�maxblock=2000
�� mmstring 25
�� mmmstring 255
�� types(100,2)
�types()=-1
�types(0,1)=&FFB
�types(1,1)=&FFD
�types(2,1)=&FFE
�types(3,1)=&FFF
�� otherfiletype 3
�?otherfiletype=0
�otherfiletype?1=0
�otherfiletype?2=0
�otherfiletype?3=0
�otherpointer=4
Q� block maxblock,menublock 1000,textblock maxtext,mousedata 400,makeerror 200

textptr=0
�
 '� *******  CALCULATE FLAGS  *******
*sݤflags(title_bar,movable,vertical_scroll_bar,horizontal_scroll_bar,all_icons,pane,outside_screen,not_closable)
4� flag%
>flag%=0
H� title_bar � flag%+=1
R� movable � flag%+=2
\$� vertical_scroll_bar � flag%+=4
f&� horizontal_scroll_bar � flag%+=8
p� all_icons � flag%+=16
z� pane � flag%+=32
� � outside_screen � flag%+=64
�� not_closable � flag%+=128
�
=flag%
�6� ******* CREATE A WINDOW OF SPECIFIC SIZE *******
�5� vars after top same as vars for FNcreate_window
��ݤcreate_size_window(visible_minx,visible_miny,visible_maxx,visible_maxy,scrollbarx,scrollbary,top,flgs,titlfore,titlback,wafore,wab,scouter,scinner,titlhighlight,wamaxx,waminy,title$)
�$block=�84,�0)
�block!0=visible_minx
�block!4=visible_miny
�block!8=visible_maxx
�block!12=visible_maxy
�block!16=scrollbarx
�block!20=scrollbary
%� top � block!24=-1 � block!24=-2
m=�now_create_window(flgs,titlfore,titlback,wafore,wab,scouter,scinner,titlhighlight,wamaxx,waminy,title$)
'� *******  CREATE A WINDOW  *******
$�ݤcreate_window(flags,title_foreground,title_background,work_area_foreground,work_area_background,scroll_outer_colour,scroll_inner_colour,title_highlight_colour,work_area_maxx,work_area_maxy,title$)
.$block=�84,�0)
8�=�now_create_window(flags,title_foreground,title_background,work_area_foreground,work_area_background,scroll_outer_colour,scroll_inner_colour,title_highlight_colour,work_area_maxx,work_area_maxy,title$)
B�ݤnow_create_window(flags,title_foreground,title_background,work_area_foreground,work_area_background,scroll_outer_colour,scroll_inner_colour,title_highlight_colour,work_area_maxx,work_area_maxy,title$)
Lblock!24=-1
Vblock!28=flags
`block?32=title_foreground
jblock?33=title_background
t!block?34=work_area_foreground
~!block?35=work_area_background
� block?36=scroll_outer_colour
� block?37=scroll_inner_colour
�#block?38=title_highlight_colour
�block?39=0
�block!40=0
�block!44=0:�work_area_miny
�block!48=work_area_maxx
�block!52=work_area_maxy
�block!56=&2D
�� �(title$)>11 �
�block!56=&2D � 1<<8
�F� textptr+�(title$)>maxtext � � 0,"Too Much Text For Window Title"
#$(textblock+textptr)=title$+�13

block!72=textblock+textptr
textptr+=(�(title$)+1)
block!76=-1
(block!80=�(title$)+1
2�
<$(block+72)=�title$,11)
F�
Pblock!60=&3000
Zblock!64=sp
dblock!68=0
nblock!84=0
xblock!88=0
�+ș "Wimp_CreateWindow",0,block � handle
�=handle
�:
�#� *******  OPEN WINDOW  *******
�<��open_window(handle,x,y,width,height,x_offset,y_offset)
�block!0=handle
�
block!4=x
�block!8=y-height
�block!12=x+width
�block!16=y
�block!20=x_offset
�block!24=y_offset
�<block!28=-1:� Replace with -2 to open behind any windows
ș"Wimp_OpenWindow",0,block
�
$� *******  CLOSE WINDOW  *******
"��closewindow(handle)
,block!0=handle
6 ș"Wimp_CloseWindow",0,block
@�
J$� ******************************
T$� *******  POLL ROUTINE  *******
^$� ******************************
h
��poll
r!ș "Wimp_Poll",0,block � flag
|
Ȏ flag �
�� 0:� Nothing Happened
�� 1:�redraw_window_request
�� 2:�open_window_request
�� 3:�close_window_request
�'� 4:�pointer_leaving_window(!block)
�!� 5:� pointer entering window
�� 6:�buttons(block)
�� 7:� user_drag_box
�� 8:� key_pressed
�� 9:�select_on_menu(block)
�� 10:� scroll_request
�� 17,18:�receive
��
�
$��pointer_leaving_window(handle)
Ȏ handle �
&)� winfo,whelp : �close_window(handle)
0�
:�
D-� *******  REDRAW WINDOW REQUEST  *******
N��redraw_window_request
X� flag,window
bwindow=block!0
l#ș "Wimp_GetWindowInfo",0,block
v)ș "Wimp_RedrawWindow",0,block � flag
�ȕ flag<>0
�	�vals
�(ș"Wimp_GetRectangle",0,block � flag
�Ȏ window �
�� whelp:�whelp
�� wedit:�wedit
�� w2:�window2
�� w3:�window3
��
��
��
�)� ******* OPEN WINDOW REQUEST *******
���open_window_request
ș"Wimp_OpenWindow",0,block
�
*� ******* CLOSE WINDOW REQUEST *******
 ��close_window_request
*"� !block=swindow � swindow=-99
4� !block=wedit � wedit=-99
>!ș "Wimp_CloseWindow",0,block
HB� !block=swindow � wedit<>-99 � �close_window(wedit):wedit=-99
RF� !block=sinfo � swindow<>-99 � �close_window(swindow):swindow=-99
\@� !block=sinfo � wedit<>-99 � �close_window(wedit):wedit=-99
f�
p"� ******* CLOSE WINDOW *******
z��close_window(handle)
�!block=handle
�!ș "Wimp_CloseWindow",0,block
�B� !block=swindow � wedit<>-99 � �close_window(wedit):wedit=-99
��
�*� *******  CREATE ALL WINDOWS  *******
���create_all_windows
� flag=�flags(�,�,�,�,�,�,�,�)
�dwhelp=�create_size_window(0,0,9000,870,0,0,�,flag,7,2,7,0,3,1,12,900,870,"Help About !FileType")
�9flag=�iconflag(�,�,0,-1,-1,0,0,0,0,0,0,0,0,0,0,7,0,0)
�6AEHicon=�text_icon(whelp,820,64,820,94,flag,"AEH")
� flag=�flags(�,�,�,�,�,�,�,�)
��makeinfowindow
��
	��sedit
	$flag=�flags(-1,-1,-1,-1,0,0,0,0)
	Jwedit=�create_window(flag,7,2,7,0,3,1,12,swidth*2*8,sheight*4*8,name$)
	$ȗ mousex%,mousey%,mouseb%
	.5�open_window(wedit,mousex%,mousey%,9000,9000,0,0)
	8�
	B��makeinfowindow
	L
� flag
	V flag=�flags(�,�,�,�,�,�,�,�)
	`awinfo=�create_size_window(0,0,778,240,0,0,�,flag,7,2,7,1,3,1,12,800,300,"About This Program")
	j9flag=�iconflag(�,�,0,-1,-1,0,0,0,0,0,0,0,0,0,0,7,0,0)
	t<i=�text_icon(winfo,150,180,50+6*16,228,flag,"Name    :")
	~<i=�text_icon(winfo,150,124,50+6*16,174,flag,"Purpose :")
	�;i=�text_icon(winfo,150,68,50+6*16,116,flag,"Author  :")
	�:i=�text_icon(winfo,150,14,50+6*16,62,flag,"Version :")
	�;flag=�iconflag(�,�,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,7,0,0)
	�5i=�text_icon(winfo,240,180,700,228,flag,program$)
	�5i=�text_icon(winfo,240,124,700,174,flag,purpose$)
	�3i=�text_icon(winfo,240,68,700,116,flag,author$)
	�0i=�text_icon(winfo,240,14,700,62,flag,vers$)
	�=testflag=�iconflag(�,�,0,-1,-1,0,0,0,0,0,0,0,0,0,0,7,0,0)
	�9i=�text_icon(winfo,0,160,80,240,testflag,"!FILETYPE")
	�<i=�text_icon(winfo,700,160,774,240,testflag,"!FILETYPE")
	��
	�(� *******  OPEN ALL WINDOWS  *******
��open_all_windows

,�PROCopen_window(w2,150,900,300,300,0,0)
,�PROCopen_window(w3,200,800,300,300,0,0)
�
(� *******  TEXT  *******
2��text(x,y,text$)
<#� �in(x,y,x+�(text$)*16,y+32) �
F�gwindow
P�0,7
Z�5
d� x,y+32
n
�text$
x�
��
�:� ********  Check If Block Needs To Be Drawn  ********
�ݤin(xmin,ymin,xmax,ymax)
��=�:� *********************************************************************************************************************************************************************************************
�8� xmin>scroll_x+(work_area_maxx-work_area_minx) � =�
�8� ymin>scroll_y+(work_area_maxy-work_area_miny) � =�
�� xmax<scroll_x � =�
�� ymax<scroll_y � =�
�=�
�:� ********  Set up graphics window for block  ********
�
��gwindow
�h�VDU26,5,24,graphics_window_minx;graphics_window_miny;graphics_window_maxx-2;graphics_window_maxy-4;
�e�26,5,24,graphics_window_minx;graphics_window_miny;graphics_window_maxx-1;graphics_window_maxy-2;
6ȑ work_area_minx-scroll_x,work_area_maxy-scroll_y
�
3� ********  Set Variables about block  ********
"
��vals
,work_area_minx=block!4
6work_area_miny=block!8
@work_area_maxx=block!12
Jwork_area_maxy=block!16
Tscroll_x=block!20
^scroll_y=block!24
h!graphics_window_minx=block!28
r!graphics_window_miny=block!32
|!graphics_window_maxx=block!36
�!graphics_window_maxy=block!40
�:ymaxpos=graphics_window_maxy-(work_area_maxy-scroll_y)
�7xpos=graphics_window_minx-(work_area_minx-scroll_x)
�:xmaxpos=graphics_window_maxx-(work_area_minx-scroll_x)
�7ypos=graphics_window_miny-(work_area_maxy-scroll_y)
��
�%� ******** help WINDOW 1 ********
���whelp
�Ypos=866:G=32
��gwindow
��0,7
�R�text(10,Ypos-G,      "This utility was written to ease the changing of file")
�6�text(10,Ypos-G*2,    "types within the desktop.")
Ypos-=10
Q�text(10,Ypos-G*3,    "The !FileType icon installs its self on the right of")
P�text(10,Ypos-G*4,    "the icon bar. Clicking on this with the menu button")
&O�text(10,Ypos-G*5,    "gives you the main menu. There are four file types")
0L�text(10,Ypos-G*6,    "(The most used ones) 'Basic, Data, Exec & Text'")
:P�text(10,Ypos-G*7,    "Clicking on these will result in an appropiate icon")
DQ�text(10,Ypos-G*8,    "appearing on the left of the icon bar. If you follow")
NT�text(10,Ypos-G*9,    "the arrow next to 'Other' into a sub-menu you can enter")
XR�text(10,Ypos-G*10,   "any filetype and press <RETURN>. This would result in")
bT�text(10,Ypos-G*11,   "an appropiate icon appearing. If you select a file type")
lS�text(10,Ypos-G*12,   "for which there is no 'fancy' icon loaded then a white")
vO�text(10,Ypos-G*13,   "box with the file type inside will appear instead.")
�Ypos-=10
�S�text(10,Ypos-G*14,   "If you drag a file or selection of files to an icon on")
�N�text(10,Ypos-G*15,   "the left then all the file types of the files you")
�T�text(10,Ypos-G*16,   "dragged will be changed to that of the icon you dragged")
�%�text(10,Ypos-G*17,   "them to.")
�Ypos-=10
�R�text(10,Ypos-G*18,   "If you drag a file to the !FileType icon on the right")
�Q�text(10,Ypos-G*19,   "then the file type of that file will be selected and")
�>�text(10,Ypos-G*20,   "displayed as an icon on the left.")
�Ypos-=10
�R�text(10,Ypos-G*21,   "To remove an icon from the left click the menu button")
�G�text(10,Ypos-G*22,   "over it and select 'Remove' from the menu.")
��26

�

1� ********  Error reporting routine  ********

��wimp_error

 ș "Wimp_DragBox",,-1

*!block=�

47$(block+4)=�$+" (Internal error at line "+Þ+")"+�0

>&ș"Wimp_ReportError",block,1,task$

Hș"Wimp_CloseDown"

R�

\��makeerror(err$,quitprog)

fș "Wimp_DragBox",,-1

p!makeerror=0

z$(makeerror+4)=err$

�*ș"Wimp_ReportError",makeerror,1,task$

�� quitprog �

�ș"Wimp_CloseDown"

��

��

��

�2� *********  Place Icon On Icon Bar  *********

�!ݤiconbarsprite(spname$,side)

�1=�sprite_icon(side,0,0,68,68,&3102,1,spname$)

�5� *********  Receive Messages Routine  **********

�
��receive

�Ȏ block!16 �

�� 0:quit=�
� 2:�datasave
'� 3:� block!12=0 � �dataload(block)
�
$�
.7ݤsprite_icon(window,x0,y0,x1,y1,flags,sptr,sname$)
8&� block!24 �sname$+1:block!28=sptr
B'block!32=�sname$+1:$block!24=sname$
L'=�iconblk(window,x0,y0,x1,y1,flags)
V'ݤiconblk(window,x0,y0,x1,y1,flags)
`!block=window
jblock!4=x0:block!8=y0
tblock!12=x1:block!16=y1
~block!20=flags
�&ș "Wimp_CreateIcon",,block � icon
�	=icon
���dataload(b)
�name$=�gname(b+44)
�
Ȏ b!24 �
�� sicon :�infoaboutfile
� :�settype:�ackload(b)
��
��
���infoaboutfile
�
� loop
�type$=�~(b!40)
�ackload(b)

� loop=1 � 3
,otherfiletype?(loop-1)=�(�type$,loop,1))
�
(�newicon(otherpointer)
2�
<
��settype
=� �
>� � �:�makeerror(�$,�):�
F� b!24=-1 � �
Picon=-1
Z�
dicon+=1
n6� types(icon,0)=b!24 � (types(icon,0)=-1 � icon>4)
x� types(icon,0)<>b!24 � �
�.�("*SETTYPE "+name$+" "+�~(types(icon,1)))
��
�ݤleaf(name$)
��
�1� �name$,".")>0 � name$=�name$,�name$,".")+1)
�� �name$,".")=0
�
=name$
�ݤwleaf(name$)
�� �name$,".")=0 � =""
�n$=name$
�
1� �name$,".")>0 � name$=�name$,�name$,".")+1)
� �name$,".")=0
"=�n$,1,�(n$)-�(name$)-1)
,��ackload(b)
6b!12=b!8:b!16=4:!b=64
@"ș "Wimp_SendMessage",17,b,b!4
J�
Tݤgname(ptr)
^	f$=""
hȕ ?ptr<>0 � ?ptr<>13
rf$=f$+�?ptr:ptr+=1
|�
�=f$
���buttons(b)
�mousex%=!b
�mousey%=b!4
�� b!8 � 2 �
�"�menu(b):� menu button pressed
��
�� b!12=-2 �
�8�iconbar(b):� mouse over icon bar and button pressed
��
�� b!16<>-1 �
�� Pressed over an icon
�!�button_pressed_on_icon(b!16)
�
8�IF b!12<>-1 THEN PROCbutton_pressed_on_window(b!12)
�
&�
0�
:�
D$��button_pressed_on_icon(handle)
N�0,0);handle,AEHicon
X.� handle=AEHicon � �7:�close_window(whelp)
b�
l��iconbar(b):�
v
��menu(b)
�
� loop
�� b!12=-2 �
�� MENU ON ICONBAR
�� b!16=sicon �
�� MAIN ICON
�(mousey%=480:mousex%-=90:menuflag=999
�*menuother$="06Other|@otherfiletype,3|"
ƊA=�create_menu("09FileType|Basic|Data|Exec|Text|[menuother$]Other|[whelp]Help|[winfo]Info|Quit|",0):�quit=TRUE :REM pressed on iconbar
��
�icon=-1
��
�icon+=1
�6� types(icon,0)=b!16 � (types(icon,0)=-1 � icon>4)
� types(icon,0)=b!16 �
ȗ mousex%,mousey%,button%
mousey%=144:mousex%-=90
 <A=�create_menu("08File_"+�~types(icon,1)+"| Remove |",0)
*menuflag=icon
4�
>�
H�
R�
\��select_on_menu(b)
f� !b=-1 � �
pȎ menuflag �
z� 999:�selectmainmenu
�/ :� types(menuflag,0)>-1 � �deletefiletype
��
��
���deletefiletype
�� types(menuflag,0)=-1 � �
�� loop,loop1
�block!0=-2
�block!4=types(menuflag,0)
�ș"Wimp_DeleteIcon",,block
�loop=menuflag
�types(loop,0)=-1
�� loop>4 �
��
� loop1=0 �2
)types(loop,loop1)=types(loop+1,loop1)
�
$loop+=1
.� types(loop,0)=-1
8�
B� loop>3 � otherpointer-=1
L�
V��selectmainmenu
`level=!b
j� level<5 �
t"� level=4 � level=otherpointer
~=� types(level,0)<0 � level=otherpointer � �newicon(level)
��
�� !b=7 � quit=�
��
���newicon(level)
�
� loop
�� level=otherpointer �
�
other$=""
�� loop=0 � 2
�c=otherfiletype?loop
�� c>70 � c<48 � level=-909
�� c>57 � c<65 � level=-909
�� c<32 � c=32
other$+=�(c)

�
,� level>0 � types(level,1)=�("&"+other$)
�
(N� level=-909 � other$+=" is not a valid file type.":�makeerror(other$,�):�
27� �checkspritepoolfor("file_"+�~(types(level,1))) �
<@types(level,0)=�iconbarsprite("file_"+�~(types(level,1)),-2)
F�
P;flag=�iconflag(�,�,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,7,0,0)
ZCtypes(level,0)=�text_icon(-2,0,0,68,68,flag,�~(types(level,1)))
d�
n*� level=otherpointer � otherpointer+=1
x�
�?� ************** CALCULATE ICON FLAG VALUE ****************
�9�**** SEE PAGE 451 Programmers reference manual *****
��ݤiconflag(text,sprite,boarder,hcentre,vcentre,fillback,anti_alias,need_app,indirected,rjustify,dont_cancel_with_right_button,button_flags,ESG,invert_selected,cannot_be_selected,fore_ground,back_ground,font_number)
�
� flag
�
flag=0
�� text � flag=1
�� sprite � flag+=2
�� boarder � flag+=4
�� hcentre � flag+=8
�� vcentre � flag+=16
�� fillback � flag+=32
�� anti_alias � flag+=64
�� need_app � flag+=64*2
� indirected � flag+=256
� rjustify � flag+=512
1� dont_cancel_with_right_button � flag+=512*2
"flag+=button_flags<<12
,C� ESG<0 � ESG >15 � � 0,"ESG must be a number between 0 and 15"
6� ESG>0 � flag+=ESG<<16
@%� invert_selected � flag+=(1<<21)
J(� cannot_be_selected � flag+=(1<<22)
T� � anti_alias �
^Q� fore_ground <0 � fore_ground>15 � � 0,"Foreground must be between 0 and 15"
hQ� back_ground <0 � back_ground>15 � � 0,"Background must be between 0 and 15"
rflag+=(fore_ground<<24)
|flag+=(back_ground<<28)
��
�flag+=(font_number<<24)
��
�	=flag
�7ݤtext_icon(window,minx,miny,maxx,maxy,flags,text$)
�block!0=window
�block!4=minx:block!8=miny
�block!12=maxx:block!16=maxy
�� (flags � 2)=2 �
�� IT IS A SPRITE
�$(block+24)=text$
�block!20=flags
��
4� �(text$)>11 � flags=flags � 1<<8: � indirected
block!20=flags
� �(text$)>11 �
&L� textptr+�(text$)>maxtext � �makeerror("Too much text for menu item",�)
0"$(textblock+textptr)=text$+�13
:block!24=textblock+textptr
Dtextptr+=(�(text$)+1)
Nblock!28=-1
Xblock!32=�(text$)+1
b�
l$(block+24)=(text$+�13)
v�
��
�&ș "Wimp_CreateIcon",,block � icon
�	=icon
�� width
�� title
�� # Shaded
�� � tick
�� : dotted line
�� @ writable
�� \ new col
�� [ submenu ]
�%ݤcreate_menu(createmenu$,level%)
�Y� newtext$,title$,ptr%,shade%,tick%,dotted%,flagcol%,submenu%,writable%,text$,localmb
.� level%=0 � mb=menublock � mb+=(28+extra)
localmb=mb
extra=�extra(createmenu$)
 width%=�(�createmenu$,2))
*mb!16=width%*16+4
4text$=�createmenu$,3)
> title$=�text$,�text$,"|")-1)
H'� �title$,1)="$" � title$=�(title$)
Rtext$=�text$,�text$,"|")+1)
\$mb=�title$,11)
fmb?12=7:� title foreground
pmb?13=2:� title background
zmb?14=7:� menu foreground
�mb?15=0:� menu background
�barcol=0
�%mb!20=32+8:� Height of menu items
�mb!24=8:� gap between items
�&� �text$,1)<>"|" � text$=text$+"|"
�ptr%=mb+28
��
�*shade%=0:tick%=0:dotted%=0:writable%=0
�flagcol%=7:� black
�submenu%=-1
�4� �text$,1)="#" � shade%=&400000:text$=�text$,2)
�-� �text$,1)="�" � tick%=1:text$=�text$,2)
�/� �text$,1)=":" � dotted%=2:text$=�text$,2)
1� �text$,1)="@" � writable%=4:text$=�text$,2)
A� �text$,1)="\" � flagcol%=�("&"+�text$,2,1)):text$=�text$,3)
� �text$,1)="[" �
$text$=�text$,2)
.$� �text$,�text$,"]")-1,1)<>"$" �
8%submenu%=�(�text$,�text$,"]")-1))
Btext$=�text$,�text$,"]")+1)
L�
V%newtext$=�(�text$,�text$,"]")-1))
`text$=�text$,�text$,"]")+1)
j,submenu%=�create_menu(newtext$,level%+1)
t�
~�
�� writable% �
�i%=�text$,",")
�ptr%!12=�(�text$,i%-1))
�text$=�text$,i%+1)
�&ptr%!20=�(�text$,�text$,"|")-1))+1
�ptr%!16=-1
��
�#TxT$=��text$,�text$,"|")-1),11)
�#� �TxT$,1)="$" � TxT$=�("TxT$")
�TxT$=�TxT$,12)
�>$(ptr%+12)=TxT$:�LEFT$(LEFT$(text$,INSTR(text$,"|")-1),11)
��
text$=�text$,�text$,"|")+1)

;ptr%!0=tick% � dotted% � writable% � (&80 � (text$=""))
ptr%!4=submenu%
Fptr%!8=shade% � writable%<<6 � &010021 � barcol<<28 � flagcol%<<24
(B� writable%=4 � ptr%!8=&07000019 � 1<<8:� centres entered text
2ptr%+=24
<� text$=""
FA� level%=0 � ș "Wimp_CreateMenu",0,menublock,mousex%,mousey%
P=localmb
Zݤmax(a%,b%)
d� a%>b% � =a% � =b%
nݤextra(extra$)
x)� �extra$,1)<>"|" � extra$=extra$+"|"
�extra=0
��
�"extra$=�extra$,�extra$,"|")+1)
�extra+=1
�� �(extra$)<2
�
=extra*24
�;� Function to check that a sprite is in the sprite pool
�!ݤcheckspritepoolfor(sprite$)
�� loop,sp$,c%
�
sp$=""
�� loop=1 � �(sprite$)
�c%=�(�sprite$,loop,1))
�� c%>64 � c%<91 � c%+=32
sp$+=�(c%)
�
sprite$=sp$
"5ș "Wimp_BaseOfSprites" � romsprites%,rmasprites%
, success=�search(romsprites%)
6� success � =�
@=�search(rmasprites%)
Jݤsearch(b%)
T� s%,number,x$,x%
^#s%=b%+b%!8: � find first sprite
h#number=b%!4:� number of sprites
r
success=�
|ȕ number>0
�	x$=""
�
x%=(s%+4)
�ȕ ?x%>0
�
c%=?x%
�x$+=�(c%):x%+=1
��
�� x$=sprite$ � success=�
�s%+=s%!0
�
number-=1
��
�=success
�

00000000  0d 00 0a 1a f4 20 3e 21  46 49 4c 45 54 59 50 45  |..... >!FILETYPE|
00000010  2e 21 52 55 4e 49 4d 41  47 45 0d 00 14 4a f4 20  |.!RUNIMAGE...J. |
00000020  50 72 6f 67 72 61 6d 20  61 6c 6c 6f 77 69 6e 67  |Program allowing|
00000030  20 79 6f 75 20 74 6f 20  63 68 61 6e 67 65 20 74  | you to change t|
00000040  68 65 20 66 69 6c 65 20  74 79 70 65 20 6f 66 20  |he file type of |
00000050  66 69 6c 65 73 20 69 6e  20 74 68 65 20 64 65 73  |files in the des|
00000060  6b 74 6f 70 0d 00 1e 3a  f4 20 41 6c 6c 20 70 61  |ktop...:. All pa|
00000070  72 74 73 20 6f 66 20 74  68 69 73 20 70 72 6f 67  |rts of this prog|
00000080  72 61 6d 20 77 65 72 65  20 77 72 69 74 74 65 6e  |ram were written|
00000090  20 62 79 20 41 2e 45 2e  48 65 72 73 65 65 0d 00  | by A.E.Hersee..|
000000a0  28 34 f4 20 54 68 65 20  70 72 6f 67 72 61 6d 20  |(4. The program |
000000b0  6d 61 79 20 62 65 20 63  6f 70 69 65 64 20 6f 6e  |may be copied on|
000000c0  6c 79 20 62 65 74 77 65  65 6e 20 66 72 69 65 6e  |ly between frien|
000000d0  64 73 0d 00 32 4a f4 20  49 74 20 6d 75 73 74 20  |ds..2J. It must |
000000e0  6e 6f 74 20 62 65 20 73  6f 6c 64 20 6f 72 20 70  |not be sold or p|
000000f0  75 74 20 6f 6e 20 61 6e  79 20 6f 74 68 65 72 20  |ut on any other |
00000100  70 2e 64 20 64 69 73 63  20 6f 74 68 65 72 20 74  |p.d disc other t|
00000110  68 61 6e 20 74 68 69 73  20 44 56 53 0d 00 3c 0a  |han this DVS..<.|
00000120  f4 20 64 69 73 63 0d 00  46 1d f4 20 49 20 63 61  |. disc..F.. I ca|
00000130  6e 20 62 65 20 63 6f 6e  74 61 63 74 65 64 20 61  |n be contacted a|
00000140  74 20 3a 0d 00 50 13 f4  20 4d 72 20 41 2e 45 2e  |t :..P.. Mr A.E.|
00000150  48 65 72 73 65 65 0d 00  5a 13 f4 20 54 68 65 20  |Hersee..Z.. The |
00000160  52 65 64 20 48 6f 75 73  65 0d 00 64 10 f4 20 54  |Red House..d.. T|
00000170  61 6c 6c 69 6e 67 74 6f  6e 0d 00 6e 12 f4 20 4e  |allington..n.. N|
00000180  72 2e 20 53 54 41 4d 46  4f 52 44 0d 00 78 0b f4  |r. STAMFORD..x..|
00000190  20 4c 69 6e 63 73 0d 00  82 0d f4 20 50 45 39 20  | Lincs..... PE9 |
000001a0  34 52 50 0d 00 8c 1b f4  20 53 65 6e 64 20 61 20  |4RP..... Send a |
000001b0  64 69 73 63 20 61 6e 64  20 a3 31 2e 30 30 0d 00  |disc and .1.00..|
000001c0  96 0f f4 20 20 20 20 20  20 20 20 4f 52 0d 00 a0  |...        OR...|
000001d0  1c f4 20 53 65 6e 64 20  6e 6f 20 64 69 73 63 20  |.. Send no disc |
000001e0  61 6e 64 20 a3 32 2e 30  30 0d 00 aa 27 f4 20 74  |and .2.00...'. t|
000001f0  6f 20 6d 65 20 66 6f 72  20 61 6c 6c 20 6d 79 20  |o me for all my |
00000200  6c 61 74 65 73 74 20 70  72 6f 67 72 61 6d 73 2e  |latest programs.|
00000210  0d 00 b4 05 f4 0d 00 be  74 f4 20 54 68 69 73 20  |........t. This |
00000220  69 6e 63 6c 75 64 65 73  20 70 6f 73 74 61 67 65  |includes postage|
00000230  2e 20 53 65 6e 64 20 61  6e 20 53 2e 41 2e 45 20  |. Send an S.A.E |
00000240  66 6f 72 20 69 6e 66 6f  72 6d 61 74 69 6f 6e 20  |for information |
00000250  6f 6e 20 6d 79 20 70 72  6f 67 72 61 6d 73 20 61  |on my programs a|
00000260  6e 64 20 61 20 77 69 64  65 20 72 61 6e 67 65 20  |nd a wide range |
00000270  6f 66 20 44 54 50 20 63  6c 69 70 20 61 72 74 20  |of DTP clip art |
00000280  61 6e 64 20 66 6f 6e 74  73 0d 00 c8 08 73 64 3d  |and fonts....sd=|
00000290  30 0d 00 d2 0c 6c 6f 61  64 65 64 3d a3 0d 00 dc  |0....loaded=....|
000002a0  22 76 65 72 73 24 3d 22  57 65 64 2c 34 20 41 70  |"vers$="Wed,4 Ap|
000002b0  72 20 31 39 39 30 2e 20  28 32 2e 30 30 29 22 0d  |r 1990. (2.00)".|
000002c0  00 e6 18 61 75 74 68 6f  72 24 3d 22 41 2e 45 2e  |...author$="A.E.|
000002d0  48 65 72 73 65 65 22 0d  00 f0 18 70 72 6f 67 72  |Hersee"....progr|
000002e0  61 6d 24 3d 22 21 46 69  6c 65 54 79 70 65 22 0d  |am$="!FileType".|
000002f0  00 fa 26 70 75 72 70 6f  73 65 24 3d 22 2a 53 65  |..&purpose$="*Se|
00000300  74 54 79 70 65 20 57 69  74 68 69 6e 20 44 65 73  |tType Within Des|
00000310  6b 74 6f 70 22 0d 01 04  14 74 61 73 6b 24 3d 22  |ktop"....task$="|
00000320  46 69 6c 65 54 79 70 65  22 0d 01 0e 0d 73 69 6e  |FileType"....sin|
00000330  66 6f 3d 2d 39 39 0d 01  18 0f 73 77 69 6e 64 6f  |fo=-99....swindo|
00000340  77 3d 2d 39 39 0d 01 22  0d 77 65 64 69 74 3d 2d  |w=-99..".wedit=-|
00000350  39 39 0d 01 2c 13 f2 73  65 74 5f 64 69 6d 65 6e  |99..,..set_dimen|
00000360  73 69 6f 6e 73 0d 01 36  2d f2 69 6e 69 74 69 61  |sions..6-.initia|
00000370  6c 69 73 65 5f 57 69 6d  70 5f 61 6e 64 5f 54 61  |lise_Wimp_and_Ta|
00000380  73 6b 5f 4d 61 6e 61 67  65 72 73 28 74 61 73 6b  |sk_Managers(task|
00000390  24 29 0d 01 40 17 ee 20  85 20 f2 6e 6f 6e 5f 77  |$)..@.. . .non_w|
000003a0  69 6d 70 5f 65 72 72 6f  72 0d 01 4a 2a f2 73 65  |imp_error..J*.se|
000003b0  74 5f 73 70 72 69 74 65  73 28 22 3c 46 49 4c 45  |t_sprites("<FILE|
000003c0  54 59 50 45 24 44 69 72  3e 2e 53 50 52 49 54 45  |TYPE$Dir>.SPRITE|
000003d0  53 22 29 0d 01 54 08 c8  97 20 ee 0d 01 5e 6c e3  |S")..T... ...^l.|
000003e0  20 41 3d 31 20 b8 20 31  3a 73 69 63 6f 6e 3d a4  | A=1 . 1:sicon=.|
000003f0  69 63 6f 6e 62 61 72 73  70 72 69 74 65 28 22 21  |iconbarsprite("!|
00000400  46 69 6c 65 54 79 70 65  22 2c 2d 31 29 3a ed 3a  |FileType",-1):.:|
00000410  74 65 73 74 66 6c 61 67  3d a4 69 63 6f 6e 66 6c  |testflag=.iconfl|
00000420  61 67 28 a3 2c b9 2c 30  2c 30 2c 30 2c 30 2c 30  |ag(.,.,0,0,0,0,0|
00000430  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
00000440  2c 37 2c 30 2c 30 29 0d  01 68 17 f2 63 72 65 61  |,7,0,0)..h..crea|
00000450  74 65 5f 61 6c 6c 5f 77  69 6e 64 6f 77 73 0d 01  |te_all_windows..|
00000460  72 15 f2 6f 70 65 6e 5f  61 6c 6c 5f 77 69 6e 64  |r..open_all_wind|
00000470  6f 77 73 0d 01 7c 13 ee  20 85 20 f2 77 69 6d 70  |ows..|.. . .wimp|
00000480  5f 65 72 72 6f 72 0d 01  86 0a 71 75 69 74 3d a3  |_error....quit=.|
00000490  0d 01 90 11 f5 3a f2 70  6f 6c 6c 3a fd 71 75 69  |.....:.poll:.qui|
000004a0  74 0d 01 9a 17 c8 99 20  22 57 69 6d 70 5f 43 6c  |t...... "Wimp_Cl|
000004b0  6f 73 65 44 6f 77 6e 22  0d 01 a4 05 e0 0d 01 ae  |oseDown"........|
000004c0  14 dd f2 6e 6f 6e 5f 77  69 6d 70 5f 65 72 72 6f  |...non_wimp_erro|
000004d0  72 0d 01 b8 09 ee 20 85  20 87 0d 01 c2 09 f2 70  |r..... . ......p|
000004e0  6f 6c 6c 0d 01 cc 0f f2  77 69 6d 70 5f 65 72 72  |oll.....wimp_err|
000004f0  6f 72 0d 01 d6 05 e0 0d  01 e0 33 f4 20 2a 2a 2a  |or........3. ***|
00000500  2a 2a 2a 2a 20 20 53 45  54 20 55 50 20 41 4e 44  |****  SET UP AND|
00000510  20 4c 4f 41 44 20 53 50  52 49 54 45 20 41 52 45  | LOAD SPRITE ARE|
00000520  41 20 20 2a 2a 2a 2a 2a  2a 2a 0d 01 ea 18 dd f2  |A  *******......|
00000530  73 65 74 5f 73 70 72 69  74 65 73 28 66 69 6c 65  |set_sprites(file|
00000540  24 29 0d 01 f4 0e 53 25  3d 8e 20 66 69 6c 65 24  |$)....S%=. file$|
00000550  0d 01 fe 0e 4c 25 3d a2  23 53 25 2b 31 36 0d 02  |....L%=.#S%+16..|
00000560  08 08 d9 23 53 25 0d 02  12 0b de 20 73 70 20 4c  |...#S%..... sp L|
00000570  25 0d 02 1c 22 21 73 70  3d 4c 25 3a 73 70 21 34  |%..."!sp=L%:sp!4|
00000580  3d 30 3a 73 70 21 38 3d  31 36 3a 73 70 21 31 32  |=0:sp!8=16:sp!12|
00000590  3d 31 36 0d 02 26 21 c8  99 20 22 4f 53 5f 53 70  |=16..&!.. "OS_Sp|
000005a0  72 69 74 65 4f 70 22 2c  32 36 36 2c 73 70 2c 66  |riteOp",266,sp,f|
000005b0  69 6c 65 24 0d 02 30 05  e1 0d 02 3a 2d f4 20 2a  |ile$..0....:-. *|
000005c0  2a 2a 2a 2a 2a 2a 20 20  53 45 54 20 55 50 20 57  |******  SET UP W|
000005d0  49 4e 44 4f 57 20 4d 41  4e 41 47 45 52 20 20 2a  |INDOW MANAGER  *|
000005e0  2a 2a 2a 2a 2a 2a 0d 02  44 2e dd f2 69 6e 69 74  |******..D...init|
000005f0  69 61 6c 69 73 65 5f 57  69 6d 70 5f 61 6e 64 5f  |ialise_Wimp_and_|
00000600  54 61 73 6b 5f 4d 61 6e  61 67 65 72 73 28 74 61  |Task_Managers(ta|
00000610  73 6b 24 29 0d 02 4e 3e  24 62 6c 6f 63 6b 3d 22  |sk$)..N>$block="|
00000620  54 41 53 4b 22 3a c8 99  22 57 69 6d 70 5f 49 6e  |TASK":.."Wimp_In|
00000630  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 21 62  |itialise",200,!b|
00000640  6c 6f 63 6b 2c 74 61 73  6b 24 20 b8 20 2c 74 61  |lock,task$ . ,ta|
00000650  73 6b 0d 02 58 05 e1 0d  02 62 29 f4 20 2a 2a 2a  |sk..X....b). ***|
00000660  2a 2a 2a 2a 20 20 53 45  54 20 55 50 20 44 49 4d  |****  SET UP DIM|
00000670  45 4e 53 49 4f 4e 53 20  20 2a 2a 2a 2a 2a 2a 2a  |ENSIONS  *******|
00000680  0d 02 6c 14 dd f2 73 65  74 5f 64 69 6d 65 6e 73  |..l...set_dimens|
00000690  69 6f 6e 73 0d 02 76 10  6d 61 78 74 65 78 74 3d  |ions..v.maxtext=|
000006a0  31 30 30 30 0d 02 80 11  6d 61 78 62 6c 6f 63 6b  |1000....maxblock|
000006b0  3d 32 30 30 30 0d 02 81  11 de 20 6d 6d 73 74 72  |=2000..... mmstr|
000006c0  69 6e 67 20 32 35 0d 02  82 13 de 20 6d 6d 6d 73  |ing 25..... mmms|
000006d0  74 72 69 6e 67 20 32 35  35 0d 02 8a 12 de 20 74  |tring 255..... t|
000006e0  79 70 65 73 28 31 30 30  2c 32 29 0d 02 94 0e 74  |ypes(100,2)....t|
000006f0  79 70 65 73 28 29 3d 2d  31 0d 02 9e 13 74 79 70  |ypes()=-1....typ|
00000700  65 73 28 30 2c 31 29 3d  26 46 46 42 0d 02 a8 13  |es(0,1)=&FFB....|
00000710  74 79 70 65 73 28 31 2c  31 29 3d 26 46 46 44 0d  |types(1,1)=&FFD.|
00000720  02 b2 13 74 79 70 65 73  28 32 2c 31 29 3d 26 46  |...types(2,1)=&F|
00000730  46 45 0d 02 bc 13 74 79  70 65 73 28 33 2c 31 29  |FE....types(3,1)|
00000740  3d 26 46 46 46 0d 02 c6  15 de 20 6f 74 68 65 72  |=&FFF..... other|
00000750  66 69 6c 65 74 79 70 65  20 33 0d 02 d0 14 3f 6f  |filetype 3....?o|
00000760  74 68 65 72 66 69 6c 65  74 79 70 65 3d 30 0d 02  |therfiletype=0..|
00000770  da 15 6f 74 68 65 72 66  69 6c 65 74 79 70 65 3f  |..otherfiletype?|
00000780  31 3d 30 0d 02 e4 15 6f  74 68 65 72 66 69 6c 65  |1=0....otherfile|
00000790  74 79 70 65 3f 32 3d 30  0d 02 ee 15 6f 74 68 65  |type?2=0....othe|
000007a0  72 66 69 6c 65 74 79 70  65 3f 33 3d 30 0d 02 f8  |rfiletype?3=0...|
000007b0  12 6f 74 68 65 72 70 6f  69 6e 74 65 72 3d 34 0d  |.otherpointer=4.|
000007c0  03 02 51 de 20 62 6c 6f  63 6b 20 6d 61 78 62 6c  |..Q. block maxbl|
000007d0  6f 63 6b 2c 6d 65 6e 75  62 6c 6f 63 6b 20 31 30  |ock,menublock 10|
000007e0  30 30 2c 74 65 78 74 62  6c 6f 63 6b 20 6d 61 78  |00,textblock max|
000007f0  74 65 78 74 2c 6d 6f 75  73 65 64 61 74 61 20 34  |text,mousedata 4|
00000800  30 30 2c 6d 61 6b 65 65  72 72 6f 72 20 32 30 30  |00,makeerror 200|
00000810  0d 03 0c 0d 74 65 78 74  70 74 72 3d 30 0d 03 16  |....textptr=0...|
00000820  05 e1 0d 03 20 27 f4 20  2a 2a 2a 2a 2a 2a 2a 20  |.... '. ******* |
00000830  20 43 41 4c 43 55 4c 41  54 45 20 46 4c 41 47 53  | CALCULATE FLAGS|
00000840  20 20 2a 2a 2a 2a 2a 2a  2a 0d 03 2a 73 dd a4 66  |  *******..*s..f|
00000850  6c 61 67 73 28 74 69 74  6c 65 5f 62 61 72 2c 6d  |lags(title_bar,m|
00000860  6f 76 61 62 6c 65 2c 76  65 72 74 69 63 61 6c 5f  |ovable,vertical_|
00000870  73 63 72 6f 6c 6c 5f 62  61 72 2c 68 6f 72 69 7a  |scroll_bar,horiz|
00000880  6f 6e 74 61 6c 5f 73 63  72 6f 6c 6c 5f 62 61 72  |ontal_scroll_bar|
00000890  2c 61 6c 6c 5f 69 63 6f  6e 73 2c 70 61 6e 65 2c  |,all_icons,pane,|
000008a0  6f 75 74 73 69 64 65 5f  73 63 72 65 65 6e 2c 6e  |outside_screen,n|
000008b0  6f 74 5f 63 6c 6f 73 61  62 6c 65 29 0d 03 34 0b  |ot_closable)..4.|
000008c0  ea 20 66 6c 61 67 25 0d  03 3e 0b 66 6c 61 67 25  |. flag%..>.flag%|
000008d0  3d 30 0d 03 48 1a e7 20  74 69 74 6c 65 5f 62 61  |=0..H.. title_ba|
000008e0  72 20 8c 20 66 6c 61 67  25 2b 3d 31 0d 03 52 18  |r . flag%+=1..R.|
000008f0  e7 20 6d 6f 76 61 62 6c  65 20 8c 20 66 6c 61 67  |. movable . flag|
00000900  25 2b 3d 32 0d 03 5c 24  e7 20 76 65 72 74 69 63  |%+=2..\$. vertic|
00000910  61 6c 5f 73 63 72 6f 6c  6c 5f 62 61 72 20 8c 20  |al_scroll_bar . |
00000920  66 6c 61 67 25 2b 3d 34  0d 03 66 26 e7 20 68 6f  |flag%+=4..f&. ho|
00000930  72 69 7a 6f 6e 74 61 6c  5f 73 63 72 6f 6c 6c 5f  |rizontal_scroll_|
00000940  62 61 72 20 8c 20 66 6c  61 67 25 2b 3d 38 0d 03  |bar . flag%+=8..|
00000950  70 1b e7 20 61 6c 6c 5f  69 63 6f 6e 73 20 8c 20  |p.. all_icons . |
00000960  66 6c 61 67 25 2b 3d 31  36 0d 03 7a 16 e7 20 70  |flag%+=16..z.. p|
00000970  61 6e 65 20 8c 20 66 6c  61 67 25 2b 3d 33 32 0d  |ane . flag%+=32.|
00000980  03 84 20 e7 20 6f 75 74  73 69 64 65 5f 73 63 72  |.. . outside_scr|
00000990  65 65 6e 20 8c 20 66 6c  61 67 25 2b 3d 36 34 0d  |een . flag%+=64.|
000009a0  03 8e 1f e7 20 6e 6f 74  5f 63 6c 6f 73 61 62 6c  |.... not_closabl|
000009b0  65 20 8c 20 66 6c 61 67  25 2b 3d 31 32 38 0d 03  |e . flag%+=128..|
000009c0  98 0a 3d 66 6c 61 67 25  0d 03 a2 36 f4 20 2a 2a  |..=flag%...6. **|
000009d0  2a 2a 2a 2a 2a 20 43 52  45 41 54 45 20 41 20 57  |***** CREATE A W|
000009e0  49 4e 44 4f 57 20 4f 46  20 53 50 45 43 49 46 49  |INDOW OF SPECIFI|
000009f0  43 20 53 49 5a 45 20 2a  2a 2a 2a 2a 2a 2a 0d 03  |C SIZE *******..|
00000a00  ac 35 f4 20 76 61 72 73  20 61 66 74 65 72 20 74  |.5. vars after t|
00000a10  6f 70 20 73 61 6d 65 20  61 73 20 76 61 72 73 20  |op same as vars |
00000a20  66 6f 72 20 46 4e 63 72  65 61 74 65 5f 77 69 6e  |for FNcreate_win|
00000a30  64 6f 77 0d 03 b6 bc dd  a4 63 72 65 61 74 65 5f  |dow......create_|
00000a40  73 69 7a 65 5f 77 69 6e  64 6f 77 28 76 69 73 69  |size_window(visi|
00000a50  62 6c 65 5f 6d 69 6e 78  2c 76 69 73 69 62 6c 65  |ble_minx,visible|
00000a60  5f 6d 69 6e 79 2c 76 69  73 69 62 6c 65 5f 6d 61  |_miny,visible_ma|
00000a70  78 78 2c 76 69 73 69 62  6c 65 5f 6d 61 78 79 2c  |xx,visible_maxy,|
00000a80  73 63 72 6f 6c 6c 62 61  72 78 2c 73 63 72 6f 6c  |scrollbarx,scrol|
00000a90  6c 62 61 72 79 2c 74 6f  70 2c 66 6c 67 73 2c 74  |lbary,top,flgs,t|
00000aa0  69 74 6c 66 6f 72 65 2c  74 69 74 6c 62 61 63 6b  |itlfore,titlback|
00000ab0  2c 77 61 66 6f 72 65 2c  77 61 62 2c 73 63 6f 75  |,wafore,wab,scou|
00000ac0  74 65 72 2c 73 63 69 6e  6e 65 72 2c 74 69 74 6c  |ter,scinner,titl|
00000ad0  68 69 67 68 6c 69 67 68  74 2c 77 61 6d 61 78 78  |highlight,wamaxx|
00000ae0  2c 77 61 6d 69 6e 79 2c  74 69 74 6c 65 24 29 0d  |,waminy,title$).|
00000af0  03 c0 12 24 62 6c 6f 63  6b 3d c4 38 34 2c bd 30  |...$block=.84,.0|
00000b00  29 0d 03 ca 18 62 6c 6f  63 6b 21 30 3d 76 69 73  |)....block!0=vis|
00000b10  69 62 6c 65 5f 6d 69 6e  78 0d 03 d4 18 62 6c 6f  |ible_minx....blo|
00000b20  63 6b 21 34 3d 76 69 73  69 62 6c 65 5f 6d 69 6e  |ck!4=visible_min|
00000b30  79 0d 03 de 18 62 6c 6f  63 6b 21 38 3d 76 69 73  |y....block!8=vis|
00000b40  69 62 6c 65 5f 6d 61 78  78 0d 03 e8 19 62 6c 6f  |ible_maxx....blo|
00000b50  63 6b 21 31 32 3d 76 69  73 69 62 6c 65 5f 6d 61  |ck!12=visible_ma|
00000b60  78 79 0d 03 f2 17 62 6c  6f 63 6b 21 31 36 3d 73  |xy....block!16=s|
00000b70  63 72 6f 6c 6c 62 61 72  78 0d 03 fc 17 62 6c 6f  |crollbarx....blo|
00000b80  63 6b 21 32 30 3d 73 63  72 6f 6c 6c 62 61 72 79  |ck!20=scrollbary|
00000b90  0d 04 06 25 e7 20 74 6f  70 20 8c 20 62 6c 6f 63  |...%. top . bloc|
00000ba0  6b 21 32 34 3d 2d 31 20  8b 20 62 6c 6f 63 6b 21  |k!24=-1 . block!|
00000bb0  32 34 3d 2d 32 0d 04 10  6d 3d a4 6e 6f 77 5f 63  |24=-2...m=.now_c|
00000bc0  72 65 61 74 65 5f 77 69  6e 64 6f 77 28 66 6c 67  |reate_window(flg|
00000bd0  73 2c 74 69 74 6c 66 6f  72 65 2c 74 69 74 6c 62  |s,titlfore,titlb|
00000be0  61 63 6b 2c 77 61 66 6f  72 65 2c 77 61 62 2c 73  |ack,wafore,wab,s|
00000bf0  63 6f 75 74 65 72 2c 73  63 69 6e 6e 65 72 2c 74  |couter,scinner,t|
00000c00  69 74 6c 68 69 67 68 6c  69 67 68 74 2c 77 61 6d  |itlhighlight,wam|
00000c10  61 78 78 2c 77 61 6d 69  6e 79 2c 74 69 74 6c 65  |axx,waminy,title|
00000c20  24 29 0d 04 1a 27 f4 20  2a 2a 2a 2a 2a 2a 2a 20  |$)...'. ******* |
00000c30  20 43 52 45 41 54 45 20  41 20 57 49 4e 44 4f 57  | CREATE A WINDOW|
00000c40  20 20 2a 2a 2a 2a 2a 2a  2a 0d 04 24 ca dd a4 63  |  *******..$...c|
00000c50  72 65 61 74 65 5f 77 69  6e 64 6f 77 28 66 6c 61  |reate_window(fla|
00000c60  67 73 2c 74 69 74 6c 65  5f 66 6f 72 65 67 72 6f  |gs,title_foregro|
00000c70  75 6e 64 2c 74 69 74 6c  65 5f 62 61 63 6b 67 72  |und,title_backgr|
00000c80  6f 75 6e 64 2c 77 6f 72  6b 5f 61 72 65 61 5f 66  |ound,work_area_f|
00000c90  6f 72 65 67 72 6f 75 6e  64 2c 77 6f 72 6b 5f 61  |oreground,work_a|
00000ca0  72 65 61 5f 62 61 63 6b  67 72 6f 75 6e 64 2c 73  |rea_background,s|
00000cb0  63 72 6f 6c 6c 5f 6f 75  74 65 72 5f 63 6f 6c 6f  |croll_outer_colo|
00000cc0  75 72 2c 73 63 72 6f 6c  6c 5f 69 6e 6e 65 72 5f  |ur,scroll_inner_|
00000cd0  63 6f 6c 6f 75 72 2c 74  69 74 6c 65 5f 68 69 67  |colour,title_hig|
00000ce0  68 6c 69 67 68 74 5f 63  6f 6c 6f 75 72 2c 77 6f  |hlight_colour,wo|
00000cf0  72 6b 5f 61 72 65 61 5f  6d 61 78 78 2c 77 6f 72  |rk_area_maxx,wor|
00000d00  6b 5f 61 72 65 61 5f 6d  61 78 79 2c 74 69 74 6c  |k_area_maxy,titl|
00000d10  65 24 29 0d 04 2e 12 24  62 6c 6f 63 6b 3d c4 38  |e$)....$block=.8|
00000d20  34 2c bd 30 29 0d 04 38  ce 3d a4 6e 6f 77 5f 63  |4,.0)..8.=.now_c|
00000d30  72 65 61 74 65 5f 77 69  6e 64 6f 77 28 66 6c 61  |reate_window(fla|
00000d40  67 73 2c 74 69 74 6c 65  5f 66 6f 72 65 67 72 6f  |gs,title_foregro|
00000d50  75 6e 64 2c 74 69 74 6c  65 5f 62 61 63 6b 67 72  |und,title_backgr|
00000d60  6f 75 6e 64 2c 77 6f 72  6b 5f 61 72 65 61 5f 66  |ound,work_area_f|
00000d70  6f 72 65 67 72 6f 75 6e  64 2c 77 6f 72 6b 5f 61  |oreground,work_a|
00000d80  72 65 61 5f 62 61 63 6b  67 72 6f 75 6e 64 2c 73  |rea_background,s|
00000d90  63 72 6f 6c 6c 5f 6f 75  74 65 72 5f 63 6f 6c 6f  |croll_outer_colo|
00000da0  75 72 2c 73 63 72 6f 6c  6c 5f 69 6e 6e 65 72 5f  |ur,scroll_inner_|
00000db0  63 6f 6c 6f 75 72 2c 74  69 74 6c 65 5f 68 69 67  |colour,title_hig|
00000dc0  68 6c 69 67 68 74 5f 63  6f 6c 6f 75 72 2c 77 6f  |hlight_colour,wo|
00000dd0  72 6b 5f 61 72 65 61 5f  6d 61 78 78 2c 77 6f 72  |rk_area_maxx,wor|
00000de0  6b 5f 61 72 65 61 5f 6d  61 78 79 2c 74 69 74 6c  |k_area_maxy,titl|
00000df0  65 24 29 0d 04 42 ce dd  a4 6e 6f 77 5f 63 72 65  |e$)..B...now_cre|
00000e00  61 74 65 5f 77 69 6e 64  6f 77 28 66 6c 61 67 73  |ate_window(flags|
00000e10  2c 74 69 74 6c 65 5f 66  6f 72 65 67 72 6f 75 6e  |,title_foregroun|
00000e20  64 2c 74 69 74 6c 65 5f  62 61 63 6b 67 72 6f 75  |d,title_backgrou|
00000e30  6e 64 2c 77 6f 72 6b 5f  61 72 65 61 5f 66 6f 72  |nd,work_area_for|
00000e40  65 67 72 6f 75 6e 64 2c  77 6f 72 6b 5f 61 72 65  |eground,work_are|
00000e50  61 5f 62 61 63 6b 67 72  6f 75 6e 64 2c 73 63 72  |a_background,scr|
00000e60  6f 6c 6c 5f 6f 75 74 65  72 5f 63 6f 6c 6f 75 72  |oll_outer_colour|
00000e70  2c 73 63 72 6f 6c 6c 5f  69 6e 6e 65 72 5f 63 6f  |,scroll_inner_co|
00000e80  6c 6f 75 72 2c 74 69 74  6c 65 5f 68 69 67 68 6c  |lour,title_highl|
00000e90  69 67 68 74 5f 63 6f 6c  6f 75 72 2c 77 6f 72 6b  |ight_colour,work|
00000ea0  5f 61 72 65 61 5f 6d 61  78 78 2c 77 6f 72 6b 5f  |_area_maxx,work_|
00000eb0  61 72 65 61 5f 6d 61 78  79 2c 74 69 74 6c 65 24  |area_maxy,title$|
00000ec0  29 0d 04 4c 0f 62 6c 6f  63 6b 21 32 34 3d 2d 31  |)..L.block!24=-1|
00000ed0  0d 04 56 12 62 6c 6f 63  6b 21 32 38 3d 66 6c 61  |..V.block!28=fla|
00000ee0  67 73 0d 04 60 1d 62 6c  6f 63 6b 3f 33 32 3d 74  |gs..`.block?32=t|
00000ef0  69 74 6c 65 5f 66 6f 72  65 67 72 6f 75 6e 64 0d  |itle_foreground.|
00000f00  04 6a 1d 62 6c 6f 63 6b  3f 33 33 3d 74 69 74 6c  |.j.block?33=titl|
00000f10  65 5f 62 61 63 6b 67 72  6f 75 6e 64 0d 04 74 21  |e_background..t!|
00000f20  62 6c 6f 63 6b 3f 33 34  3d 77 6f 72 6b 5f 61 72  |block?34=work_ar|
00000f30  65 61 5f 66 6f 72 65 67  72 6f 75 6e 64 0d 04 7e  |ea_foreground..~|
00000f40  21 62 6c 6f 63 6b 3f 33  35 3d 77 6f 72 6b 5f 61  |!block?35=work_a|
00000f50  72 65 61 5f 62 61 63 6b  67 72 6f 75 6e 64 0d 04  |rea_background..|
00000f60  88 20 62 6c 6f 63 6b 3f  33 36 3d 73 63 72 6f 6c  |. block?36=scrol|
00000f70  6c 5f 6f 75 74 65 72 5f  63 6f 6c 6f 75 72 0d 04  |l_outer_colour..|
00000f80  92 20 62 6c 6f 63 6b 3f  33 37 3d 73 63 72 6f 6c  |. block?37=scrol|
00000f90  6c 5f 69 6e 6e 65 72 5f  63 6f 6c 6f 75 72 0d 04  |l_inner_colour..|
00000fa0  9c 23 62 6c 6f 63 6b 3f  33 38 3d 74 69 74 6c 65  |.#block?38=title|
00000fb0  5f 68 69 67 68 6c 69 67  68 74 5f 63 6f 6c 6f 75  |_highlight_colou|
00000fc0  72 0d 04 a6 0e 62 6c 6f  63 6b 3f 33 39 3d 30 0d  |r....block?39=0.|
00000fd0  04 b0 0e 62 6c 6f 63 6b  21 34 30 3d 30 0d 04 ba  |...block!40=0...|
00000fe0  1e 62 6c 6f 63 6b 21 34  34 3d 30 3a f4 77 6f 72  |.block!44=0:.wor|
00000ff0  6b 5f 61 72 65 61 5f 6d  69 6e 79 0d 04 c4 1b 62  |k_area_miny....b|
00001000  6c 6f 63 6b 21 34 38 3d  77 6f 72 6b 5f 61 72 65  |lock!48=work_are|
00001010  61 5f 6d 61 78 78 0d 04  ce 1b 62 6c 6f 63 6b 21  |a_maxx....block!|
00001020  35 32 3d 77 6f 72 6b 5f  61 72 65 61 5f 6d 61 78  |52=work_area_max|
00001030  79 0d 04 d8 10 62 6c 6f  63 6b 21 35 36 3d 26 32  |y....block!56=&2|
00001040  44 0d 04 e2 14 e7 20 a9  28 74 69 74 6c 65 24 29  |D..... .(title$)|
00001050  3e 31 31 20 8c 0d 04 ec  17 62 6c 6f 63 6b 21 35  |>11 .....block!5|
00001060  36 3d 26 32 44 20 84 20  31 3c 3c 38 0d 04 f6 46  |6=&2D . 1<<8...F|
00001070  e7 20 74 65 78 74 70 74  72 2b a9 28 74 69 74 6c  |. textptr+.(titl|
00001080  65 24 29 3e 6d 61 78 74  65 78 74 20 8c 20 85 20  |e$)>maxtext . . |
00001090  30 2c 22 54 6f 6f 20 4d  75 63 68 20 54 65 78 74  |0,"Too Much Text|
000010a0  20 46 6f 72 20 57 69 6e  64 6f 77 20 54 69 74 6c  | For Window Titl|
000010b0  65 22 0d 05 00 23 24 28  74 65 78 74 62 6c 6f 63  |e"...#$(textbloc|
000010c0  6b 2b 74 65 78 74 70 74  72 29 3d 74 69 74 6c 65  |k+textptr)=title|
000010d0  24 2b bd 31 33 0d 05 0a  1e 62 6c 6f 63 6b 21 37  |$+.13....block!7|
000010e0  32 3d 74 65 78 74 62 6c  6f 63 6b 2b 74 65 78 74  |2=textblock+text|
000010f0  70 74 72 0d 05 14 1a 74  65 78 74 70 74 72 2b 3d  |ptr....textptr+=|
00001100  28 a9 28 74 69 74 6c 65  24 29 2b 31 29 0d 05 1e  |(.(title$)+1)...|
00001110  0f 62 6c 6f 63 6b 21 37  36 3d 2d 31 0d 05 28 18  |.block!76=-1..(.|
00001120  62 6c 6f 63 6b 21 38 30  3d a9 28 74 69 74 6c 65  |block!80=.(title|
00001130  24 29 2b 31 0d 05 32 05  cc 0d 05 3c 1b 24 28 62  |$)+1..2....<.$(b|
00001140  6c 6f 63 6b 2b 37 32 29  3d c0 74 69 74 6c 65 24  |lock+72)=.title$|
00001150  2c 31 31 29 0d 05 46 05  cd 0d 05 50 12 62 6c 6f  |,11)..F....P.blo|
00001160  63 6b 21 36 30 3d 26 33  30 30 30 0d 05 5a 0f 62  |ck!60=&3000..Z.b|
00001170  6c 6f 63 6b 21 36 34 3d  73 70 0d 05 64 0e 62 6c  |lock!64=sp..d.bl|
00001180  6f 63 6b 21 36 38 3d 30  0d 05 6e 0e 62 6c 6f 63  |ock!68=0..n.bloc|
00001190  6b 21 38 34 3d 30 0d 05  78 0e 62 6c 6f 63 6b 21  |k!84=0..x.block!|
000011a0  38 38 3d 30 0d 05 82 2b  c8 99 20 22 57 69 6d 70  |88=0...+.. "Wimp|
000011b0  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 30  |_CreateWindow",0|
000011c0  2c 62 6c 6f 63 6b 20 b8  20 68 61 6e 64 6c 65 0d  |,block . handle.|
000011d0  05 8c 0b 3d 68 61 6e 64  6c 65 0d 05 96 05 3a 0d  |...=handle....:.|
000011e0  05 a0 23 f4 20 2a 2a 2a  2a 2a 2a 2a 20 20 4f 50  |..#. *******  OP|
000011f0  45 4e 20 57 49 4e 44 4f  57 20 20 2a 2a 2a 2a 2a  |EN WINDOW  *****|
00001200  2a 2a 0d 05 aa 3c dd f2  6f 70 65 6e 5f 77 69 6e  |**...<..open_win|
00001210  64 6f 77 28 68 61 6e 64  6c 65 2c 78 2c 79 2c 77  |dow(handle,x,y,w|
00001220  69 64 74 68 2c 68 65 69  67 68 74 2c 78 5f 6f 66  |idth,height,x_of|
00001230  66 73 65 74 2c 79 5f 6f  66 66 73 65 74 29 0d 05  |fset,y_offset)..|
00001240  b4 12 62 6c 6f 63 6b 21  30 3d 68 61 6e 64 6c 65  |..block!0=handle|
00001250  0d 05 be 0d 62 6c 6f 63  6b 21 34 3d 78 0d 05 c8  |....block!4=x...|
00001260  14 62 6c 6f 63 6b 21 38  3d 79 2d 68 65 69 67 68  |.block!8=y-heigh|
00001270  74 0d 05 d2 14 62 6c 6f  63 6b 21 31 32 3d 78 2b  |t....block!12=x+|
00001280  77 69 64 74 68 0d 05 dc  0e 62 6c 6f 63 6b 21 31  |width....block!1|
00001290  36 3d 79 0d 05 e6 15 62  6c 6f 63 6b 21 32 30 3d  |6=y....block!20=|
000012a0  78 5f 6f 66 66 73 65 74  0d 05 f0 15 62 6c 6f 63  |x_offset....bloc|
000012b0  6b 21 32 34 3d 79 5f 6f  66 66 73 65 74 0d 05 fa  |k!24=y_offset...|
000012c0  3c 62 6c 6f 63 6b 21 32  38 3d 2d 31 3a f4 20 52  |<block!28=-1:. R|
000012d0  65 70 6c 61 63 65 20 77  69 74 68 20 2d 32 20 74  |eplace with -2 t|
000012e0  6f 20 6f 70 65 6e 20 62  65 68 69 6e 64 20 61 6e  |o open behind an|
000012f0  79 20 77 69 6e 64 6f 77  73 0d 06 04 1f c8 99 22  |y windows......"|
00001300  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00001310  2c 30 2c 62 6c 6f 63 6b  0d 06 0e 05 e1 0d 06 18  |,0,block........|
00001320  24 f4 20 2a 2a 2a 2a 2a  2a 2a 20 20 43 4c 4f 53  |$. *******  CLOS|
00001330  45 20 57 49 4e 44 4f 57  20 20 2a 2a 2a 2a 2a 2a  |E WINDOW  ******|
00001340  2a 0d 06 22 19 dd f2 63  6c 6f 73 65 77 69 6e 64  |*.."...closewind|
00001350  6f 77 28 68 61 6e 64 6c  65 29 0d 06 2c 12 62 6c  |ow(handle)..,.bl|
00001360  6f 63 6b 21 30 3d 68 61  6e 64 6c 65 0d 06 36 20  |ock!0=handle..6 |
00001370  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |.."Wimp_CloseWin|
00001380  64 6f 77 22 2c 30 2c 62  6c 6f 63 6b 0d 06 40 05  |dow",0,block..@.|
00001390  e1 0d 06 4a 24 f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...J$. *********|
000013a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000013b0  2a 2a 2a 2a 2a 0d 06 54  24 f4 20 2a 2a 2a 2a 2a  |*****..T$. *****|
000013c0  2a 2a 20 20 50 4f 4c 4c  20 52 4f 55 54 49 4e 45  |**  POLL ROUTINE|
000013d0  20 20 2a 2a 2a 2a 2a 2a  2a 0d 06 5e 24 f4 20 2a  |  *******..^$. *|
000013e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000013f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 06 68  |*************..h|
00001400  0a dd f2 70 6f 6c 6c 0d  06 72 21 c8 99 20 22 57  |...poll..r!.. "W|
00001410  69 6d 70 5f 50 6f 6c 6c  22 2c 30 2c 62 6c 6f 63  |imp_Poll",0,bloc|
00001420  6b 20 b8 20 66 6c 61 67  0d 06 7c 0d c8 8e 20 66  |k . flag..|... f|
00001430  6c 61 67 20 ca 0d 06 86  1a c9 20 30 3a f4 20 4e  |lag ...... 0:. N|
00001440  6f 74 68 69 6e 67 20 48  61 70 70 65 6e 65 64 0d  |othing Happened.|
00001450  06 90 1e c9 20 31 3a f2  72 65 64 72 61 77 5f 77  |.... 1:.redraw_w|
00001460  69 6e 64 6f 77 5f 72 65  71 75 65 73 74 0d 06 9a  |indow_request...|
00001470  1c c9 20 32 3a f2 6f 70  65 6e 5f 77 69 6e 64 6f  |.. 2:.open_windo|
00001480  77 5f 72 65 71 75 65 73  74 0d 06 a4 1d c9 20 33  |w_request..... 3|
00001490  3a f2 63 6c 6f 73 65 5f  77 69 6e 64 6f 77 5f 72  |:.close_window_r|
000014a0  65 71 75 65 73 74 0d 06  ae 27 c9 20 34 3a f2 70  |equest...'. 4:.p|
000014b0  6f 69 6e 74 65 72 5f 6c  65 61 76 69 6e 67 5f 77  |ointer_leaving_w|
000014c0  69 6e 64 6f 77 28 21 62  6c 6f 63 6b 29 0d 06 b8  |indow(!block)...|
000014d0  21 c9 20 35 3a f4 20 70  6f 69 6e 74 65 72 20 65  |!. 5:. pointer e|
000014e0  6e 74 65 72 69 6e 67 20  77 69 6e 64 6f 77 0d 06  |ntering window..|
000014f0  c2 17 c9 20 36 3a f2 62  75 74 74 6f 6e 73 28 62  |... 6:.buttons(b|
00001500  6c 6f 63 6b 29 0d 06 cc  17 c9 20 37 3a f4 20 75  |lock)..... 7:. u|
00001510  73 65 72 5f 64 72 61 67  5f 62 6f 78 0d 06 d6 15  |ser_drag_box....|
00001520  c9 20 38 3a f4 20 6b 65  79 5f 70 72 65 73 73 65  |. 8:. key_presse|
00001530  64 0d 06 e0 1e c9 20 39  3a f2 73 65 6c 65 63 74  |d..... 9:.select|
00001540  5f 6f 6e 5f 6d 65 6e 75  28 62 6c 6f 63 6b 29 0d  |_on_menu(block).|
00001550  06 ea 19 c9 20 31 30 3a  f4 20 73 63 72 6f 6c 6c  |.... 10:. scroll|
00001560  5f 72 65 71 75 65 73 74  0d 06 f4 14 c9 20 31 37  |_request..... 17|
00001570  2c 31 38 3a f2 72 65 63  65 69 76 65 0d 06 fe 05  |,18:.receive....|
00001580  cb 0d 07 08 05 e1 0d 07  12 24 dd f2 70 6f 69 6e  |.........$..poin|
00001590  74 65 72 5f 6c 65 61 76  69 6e 67 5f 77 69 6e 64  |ter_leaving_wind|
000015a0  6f 77 28 68 61 6e 64 6c  65 29 0d 07 1c 0f c8 8e  |ow(handle)......|
000015b0  20 68 61 6e 64 6c 65 20  ca 0d 07 26 29 c9 20 77  | handle ...&). w|
000015c0  69 6e 66 6f 2c 77 68 65  6c 70 20 3a 20 f2 63 6c  |info,whelp : .cl|
000015d0  6f 73 65 5f 77 69 6e 64  6f 77 28 68 61 6e 64 6c  |ose_window(handl|
000015e0  65 29 0d 07 30 05 cb 0d  07 3a 05 e1 0d 07 44 2d  |e)..0....:....D-|
000015f0  f4 20 2a 2a 2a 2a 2a 2a  2a 20 20 52 45 44 52 41  |. *******  REDRA|
00001600  57 20 57 49 4e 44 4f 57  20 52 45 51 55 45 53 54  |W WINDOW REQUEST|
00001610  20 20 2a 2a 2a 2a 2a 2a  2a 0d 07 4e 1b dd f2 72  |  *******..N...r|
00001620  65 64 72 61 77 5f 77 69  6e 64 6f 77 5f 72 65 71  |edraw_window_req|
00001630  75 65 73 74 0d 07 58 11  ea 20 66 6c 61 67 2c 77  |uest..X.. flag,w|
00001640  69 6e 64 6f 77 0d 07 62  12 77 69 6e 64 6f 77 3d  |indow..b.window=|
00001650  62 6c 6f 63 6b 21 30 0d  07 6c 23 c8 99 20 22 57  |block!0..l#.. "W|
00001660  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 49 6e 66  |imp_GetWindowInf|
00001670  6f 22 2c 30 2c 62 6c 6f  63 6b 0d 07 76 29 c8 99  |o",0,block..v)..|
00001680  20 22 57 69 6d 70 5f 52  65 64 72 61 77 57 69 6e  | "Wimp_RedrawWin|
00001690  64 6f 77 22 2c 30 2c 62  6c 6f 63 6b 20 b8 20 66  |dow",0,block . f|
000016a0  6c 61 67 0d 07 80 0e c8  95 20 66 6c 61 67 3c 3e  |lag...... flag<>|
000016b0  30 0d 07 8a 09 f2 76 61  6c 73 0d 07 94 28 c8 99  |0.....vals...(..|
000016c0  22 57 69 6d 70 5f 47 65  74 52 65 63 74 61 6e 67  |"Wimp_GetRectang|
000016d0  6c 65 22 2c 30 2c 62 6c  6f 63 6b 20 b8 20 66 6c  |le",0,block . fl|
000016e0  61 67 0d 07 9e 0f c8 8e  20 77 69 6e 64 6f 77 20  |ag...... window |
000016f0  ca 0d 07 a8 12 c9 20 77  68 65 6c 70 3a f2 77 68  |...... whelp:.wh|
00001700  65 6c 70 0d 07 b2 12 c9  20 77 65 64 69 74 3a f2  |elp..... wedit:.|
00001710  77 65 64 69 74 0d 07 bc  11 c9 20 77 32 3a f2 77  |wedit..... w2:.w|
00001720  69 6e 64 6f 77 32 0d 07  c6 11 c9 20 77 33 3a f2  |indow2..... w3:.|
00001730  77 69 6e 64 6f 77 33 0d  07 d0 05 cb 0d 07 da 05  |window3.........|
00001740  ce 0d 07 e4 05 e1 0d 07  ee 29 f4 20 2a 2a 2a 2a  |.........). ****|
00001750  2a 2a 2a 20 4f 50 45 4e  20 57 49 4e 44 4f 57 20  |*** OPEN WINDOW |
00001760  52 45 51 55 45 53 54 20  2a 2a 2a 2a 2a 2a 2a 0d  |REQUEST *******.|
00001770  07 f8 19 dd f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |.....open_window|
00001780  5f 72 65 71 75 65 73 74  0d 08 02 1f c8 99 22 57  |_request......"W|
00001790  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
000017a0  30 2c 62 6c 6f 63 6b 0d  08 0c 05 e1 0d 08 16 2a  |0,block........*|
000017b0  f4 20 2a 2a 2a 2a 2a 2a  2a 20 43 4c 4f 53 45 20  |. ******* CLOSE |
000017c0  57 49 4e 44 4f 57 20 52  45 51 55 45 53 54 20 2a  |WINDOW REQUEST *|
000017d0  2a 2a 2a 2a 2a 2a 0d 08  20 1a dd f2 63 6c 6f 73  |******.. ...clos|
000017e0  65 5f 77 69 6e 64 6f 77  5f 72 65 71 75 65 73 74  |e_window_request|
000017f0  0d 08 2a 22 e7 20 21 62  6c 6f 63 6b 3d 73 77 69  |..*". !block=swi|
00001800  6e 64 6f 77 20 8c 20 73  77 69 6e 64 6f 77 3d 2d  |ndow . swindow=-|
00001810  39 39 0d 08 34 1e e7 20  21 62 6c 6f 63 6b 3d 77  |99..4.. !block=w|
00001820  65 64 69 74 20 8c 20 77  65 64 69 74 3d 2d 39 39  |edit . wedit=-99|
00001830  0d 08 3e 21 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |..>!.. "Wimp_Clo|
00001840  73 65 57 69 6e 64 6f 77  22 2c 30 2c 62 6c 6f 63  |seWindow",0,bloc|
00001850  6b 0d 08 48 42 e7 20 21  62 6c 6f 63 6b 3d 73 77  |k..HB. !block=sw|
00001860  69 6e 64 6f 77 20 80 20  77 65 64 69 74 3c 3e 2d  |indow . wedit<>-|
00001870  39 39 20 8c 20 f2 63 6c  6f 73 65 5f 77 69 6e 64  |99 . .close_wind|
00001880  6f 77 28 77 65 64 69 74  29 3a 77 65 64 69 74 3d  |ow(wedit):wedit=|
00001890  2d 39 39 0d 08 52 46 e7  20 21 62 6c 6f 63 6b 3d  |-99..RF. !block=|
000018a0  73 69 6e 66 6f 20 80 20  73 77 69 6e 64 6f 77 3c  |sinfo . swindow<|
000018b0  3e 2d 39 39 20 8c 20 f2  63 6c 6f 73 65 5f 77 69  |>-99 . .close_wi|
000018c0  6e 64 6f 77 28 73 77 69  6e 64 6f 77 29 3a 73 77  |ndow(swindow):sw|
000018d0  69 6e 64 6f 77 3d 2d 39  39 0d 08 5c 40 e7 20 21  |indow=-99..\@. !|
000018e0  62 6c 6f 63 6b 3d 73 69  6e 66 6f 20 80 20 77 65  |block=sinfo . we|
000018f0  64 69 74 3c 3e 2d 39 39  20 8c 20 f2 63 6c 6f 73  |dit<>-99 . .clos|
00001900  65 5f 77 69 6e 64 6f 77  28 77 65 64 69 74 29 3a  |e_window(wedit):|
00001910  77 65 64 69 74 3d 2d 39  39 0d 08 66 05 e1 0d 08  |wedit=-99..f....|
00001920  70 22 f4 20 2a 2a 2a 2a  2a 2a 2a 20 43 4c 4f 53  |p". ******* CLOS|
00001930  45 20 57 49 4e 44 4f 57  20 2a 2a 2a 2a 2a 2a 2a  |E WINDOW *******|
00001940  0d 08 7a 1a dd f2 63 6c  6f 73 65 5f 77 69 6e 64  |..z...close_wind|
00001950  6f 77 28 68 61 6e 64 6c  65 29 0d 08 84 11 21 62  |ow(handle)....!b|
00001960  6c 6f 63 6b 3d 68 61 6e  64 6c 65 0d 08 8e 21 c8  |lock=handle...!.|
00001970  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |. "Wimp_CloseWin|
00001980  64 6f 77 22 2c 30 2c 62  6c 6f 63 6b 0d 08 98 42  |dow",0,block...B|
00001990  e7 20 21 62 6c 6f 63 6b  3d 73 77 69 6e 64 6f 77  |. !block=swindow|
000019a0  20 80 20 77 65 64 69 74  3c 3e 2d 39 39 20 8c 20  | . wedit<>-99 . |
000019b0  f2 63 6c 6f 73 65 5f 77  69 6e 64 6f 77 28 77 65  |.close_window(we|
000019c0  64 69 74 29 3a 77 65 64  69 74 3d 2d 39 39 0d 08  |dit):wedit=-99..|
000019d0  a2 05 e1 0d 08 ac 2a f4  20 2a 2a 2a 2a 2a 2a 2a  |......*. *******|
000019e0  20 20 43 52 45 41 54 45  20 41 4c 4c 20 57 49 4e  |  CREATE ALL WIN|
000019f0  44 4f 57 53 20 20 2a 2a  2a 2a 2a 2a 2a 0d 08 b6  |DOWS  *******...|
00001a00  18 dd f2 63 72 65 61 74  65 5f 61 6c 6c 5f 77 69  |...create_all_wi|
00001a10  6e 64 6f 77 73 0d 08 c0  20 66 6c 61 67 3d a4 66  |ndows... flag=.f|
00001a20  6c 61 67 73 28 b9 2c b9  2c a3 2c a3 2c a3 2c a3  |lags(.,.,.,.,.,.|
00001a30  2c a3 2c b9 29 0d 08 ca  64 77 68 65 6c 70 3d a4  |,.,.)...dwhelp=.|
00001a40  63 72 65 61 74 65 5f 73  69 7a 65 5f 77 69 6e 64  |create_size_wind|
00001a50  6f 77 28 30 2c 30 2c 39  30 30 30 2c 38 37 30 2c  |ow(0,0,9000,870,|
00001a60  30 2c 30 2c b9 2c 66 6c  61 67 2c 37 2c 32 2c 37  |0,0,.,flag,7,2,7|
00001a70  2c 30 2c 33 2c 31 2c 31  32 2c 39 30 30 2c 38 37  |,0,3,1,12,900,87|
00001a80  30 2c 22 48 65 6c 70 20  41 62 6f 75 74 20 21 46  |0,"Help About !F|
00001a90  69 6c 65 54 79 70 65 22  29 0d 08 d4 39 66 6c 61  |ileType")...9fla|
00001aa0  67 3d a4 69 63 6f 6e 66  6c 61 67 28 a3 2c b9 2c  |g=.iconflag(.,.,|
00001ab0  30 2c 2d 31 2c 2d 31 2c  30 2c 30 2c 30 2c 30 2c  |0,-1,-1,0,0,0,0,|
00001ac0  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 37 2c 30 2c  |0,0,0,0,0,0,7,0,|
00001ad0  30 29 0d 08 de 36 41 45  48 69 63 6f 6e 3d a4 74  |0)...6AEHicon=.t|
00001ae0  65 78 74 5f 69 63 6f 6e  28 77 68 65 6c 70 2c 38  |ext_icon(whelp,8|
00001af0  32 30 2c 36 34 2c 38 32  30 2c 39 34 2c 66 6c 61  |20,64,820,94,fla|
00001b00  67 2c 22 41 45 48 22 29  0d 08 e8 20 66 6c 61 67  |g,"AEH")... flag|
00001b10  3d a4 66 6c 61 67 73 28  b9 2c b9 2c b9 2c b9 2c  |=.flags(.,.,.,.,|
00001b20  a3 2c a3 2c a3 2c a3 29  0d 08 f2 13 f2 6d 61 6b  |.,.,.,.).....mak|
00001b30  65 69 6e 66 6f 77 69 6e  64 6f 77 0d 08 fc 05 e1  |einfowindow.....|
00001b40  0d 09 06 0b dd f2 73 65  64 69 74 0d 09 10 24 66  |......sedit...$f|
00001b50  6c 61 67 3d a4 66 6c 61  67 73 28 2d 31 2c 2d 31  |lag=.flags(-1,-1|
00001b60  2c 2d 31 2c 2d 31 2c 30  2c 30 2c 30 2c 30 29 0d  |,-1,-1,0,0,0,0).|
00001b70  09 1a 4a 77 65 64 69 74  3d a4 63 72 65 61 74 65  |..Jwedit=.create|
00001b80  5f 77 69 6e 64 6f 77 28  66 6c 61 67 2c 37 2c 32  |_window(flag,7,2|
00001b90  2c 37 2c 30 2c 33 2c 31  2c 31 32 2c 73 77 69 64  |,7,0,3,1,12,swid|
00001ba0  74 68 2a 32 2a 38 2c 73  68 65 69 67 68 74 2a 34  |th*2*8,sheight*4|
00001bb0  2a 38 2c 6e 61 6d 65 24  29 0d 09 24 1e c8 97 20  |*8,name$)..$... |
00001bc0  6d 6f 75 73 65 78 25 2c  6d 6f 75 73 65 79 25 2c  |mousex%,mousey%,|
00001bd0  6d 6f 75 73 65 62 25 0d  09 2e 35 f2 6f 70 65 6e  |mouseb%...5.open|
00001be0  5f 77 69 6e 64 6f 77 28  77 65 64 69 74 2c 6d 6f  |_window(wedit,mo|
00001bf0  75 73 65 78 25 2c 6d 6f  75 73 65 79 25 2c 39 30  |usex%,mousey%,90|
00001c00  30 30 2c 39 30 30 30 2c  30 2c 30 29 0d 09 38 05  |00,9000,0,0)..8.|
00001c10  e1 0d 09 42 14 dd f2 6d  61 6b 65 69 6e 66 6f 77  |...B...makeinfow|
00001c20  69 6e 64 6f 77 0d 09 4c  0a ea 20 66 6c 61 67 0d  |indow..L.. flag.|
00001c30  09 56 20 66 6c 61 67 3d  a4 66 6c 61 67 73 28 b9  |.V flag=.flags(.|
00001c40  2c b9 2c a3 2c a3 2c b9  2c a3 2c a3 2c b9 29 0d  |,.,.,.,.,.,.,.).|
00001c50  09 60 61 77 69 6e 66 6f  3d a4 63 72 65 61 74 65  |.`awinfo=.create|
00001c60  5f 73 69 7a 65 5f 77 69  6e 64 6f 77 28 30 2c 30  |_size_window(0,0|
00001c70  2c 37 37 38 2c 32 34 30  2c 30 2c 30 2c b9 2c 66  |,778,240,0,0,.,f|
00001c80  6c 61 67 2c 37 2c 32 2c  37 2c 31 2c 33 2c 31 2c  |lag,7,2,7,1,3,1,|
00001c90  31 32 2c 38 30 30 2c 33  30 30 2c 22 41 62 6f 75  |12,800,300,"Abou|
00001ca0  74 20 54 68 69 73 20 50  72 6f 67 72 61 6d 22 29  |t This Program")|
00001cb0  0d 09 6a 39 66 6c 61 67  3d a4 69 63 6f 6e 66 6c  |..j9flag=.iconfl|
00001cc0  61 67 28 b9 2c a3 2c 30  2c 2d 31 2c 2d 31 2c 30  |ag(.,.,0,-1,-1,0|
00001cd0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
00001ce0  2c 30 2c 37 2c 30 2c 30  29 0d 09 74 3c 69 3d a4  |,0,7,0,0)..t<i=.|
00001cf0  74 65 78 74 5f 69 63 6f  6e 28 77 69 6e 66 6f 2c  |text_icon(winfo,|
00001d00  31 35 30 2c 31 38 30 2c  35 30 2b 36 2a 31 36 2c  |150,180,50+6*16,|
00001d10  32 32 38 2c 66 6c 61 67  2c 22 4e 61 6d 65 20 20  |228,flag,"Name  |
00001d20  20 20 3a 22 29 0d 09 7e  3c 69 3d a4 74 65 78 74  |  :")..~<i=.text|
00001d30  5f 69 63 6f 6e 28 77 69  6e 66 6f 2c 31 35 30 2c  |_icon(winfo,150,|
00001d40  31 32 34 2c 35 30 2b 36  2a 31 36 2c 31 37 34 2c  |124,50+6*16,174,|
00001d50  66 6c 61 67 2c 22 50 75  72 70 6f 73 65 20 3a 22  |flag,"Purpose :"|
00001d60  29 0d 09 88 3b 69 3d a4  74 65 78 74 5f 69 63 6f  |)...;i=.text_ico|
00001d70  6e 28 77 69 6e 66 6f 2c  31 35 30 2c 36 38 2c 35  |n(winfo,150,68,5|
00001d80  30 2b 36 2a 31 36 2c 31  31 36 2c 66 6c 61 67 2c  |0+6*16,116,flag,|
00001d90  22 41 75 74 68 6f 72 20  20 3a 22 29 0d 09 92 3a  |"Author  :")...:|
00001da0  69 3d a4 74 65 78 74 5f  69 63 6f 6e 28 77 69 6e  |i=.text_icon(win|
00001db0  66 6f 2c 31 35 30 2c 31  34 2c 35 30 2b 36 2a 31  |fo,150,14,50+6*1|
00001dc0  36 2c 36 32 2c 66 6c 61  67 2c 22 56 65 72 73 69  |6,62,flag,"Versi|
00001dd0  6f 6e 20 3a 22 29 0d 09  9c 3b 66 6c 61 67 3d a4  |on :")...;flag=.|
00001de0  69 63 6f 6e 66 6c 61 67  28 b9 2c a3 2c 2d 31 2c  |iconflag(.,.,-1,|
00001df0  2d 31 2c 2d 31 2c 2d 31  2c 30 2c 30 2c 30 2c 30  |-1,-1,-1,0,0,0,0|
00001e00  2c 30 2c 30 2c 30 2c 30  2c 30 2c 37 2c 30 2c 30  |,0,0,0,0,0,7,0,0|
00001e10  29 0d 09 a6 35 69 3d a4  74 65 78 74 5f 69 63 6f  |)...5i=.text_ico|
00001e20  6e 28 77 69 6e 66 6f 2c  32 34 30 2c 31 38 30 2c  |n(winfo,240,180,|
00001e30  37 30 30 2c 32 32 38 2c  66 6c 61 67 2c 70 72 6f  |700,228,flag,pro|
00001e40  67 72 61 6d 24 29 0d 09  b0 35 69 3d a4 74 65 78  |gram$)...5i=.tex|
00001e50  74 5f 69 63 6f 6e 28 77  69 6e 66 6f 2c 32 34 30  |t_icon(winfo,240|
00001e60  2c 31 32 34 2c 37 30 30  2c 31 37 34 2c 66 6c 61  |,124,700,174,fla|
00001e70  67 2c 70 75 72 70 6f 73  65 24 29 0d 09 ba 33 69  |g,purpose$)...3i|
00001e80  3d a4 74 65 78 74 5f 69  63 6f 6e 28 77 69 6e 66  |=.text_icon(winf|
00001e90  6f 2c 32 34 30 2c 36 38  2c 37 30 30 2c 31 31 36  |o,240,68,700,116|
00001ea0  2c 66 6c 61 67 2c 61 75  74 68 6f 72 24 29 0d 09  |,flag,author$)..|
00001eb0  c4 30 69 3d a4 74 65 78  74 5f 69 63 6f 6e 28 77  |.0i=.text_icon(w|
00001ec0  69 6e 66 6f 2c 32 34 30  2c 31 34 2c 37 30 30 2c  |info,240,14,700,|
00001ed0  36 32 2c 66 6c 61 67 2c  76 65 72 73 24 29 0d 09  |62,flag,vers$)..|
00001ee0  ce 3d 74 65 73 74 66 6c  61 67 3d a4 69 63 6f 6e  |.=testflag=.icon|
00001ef0  66 6c 61 67 28 a3 2c b9  2c 30 2c 2d 31 2c 2d 31  |flag(.,.,0,-1,-1|
00001f00  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
00001f10  2c 30 2c 30 2c 37 2c 30  2c 30 29 0d 09 d8 39 69  |,0,0,7,0,0)...9i|
00001f20  3d a4 74 65 78 74 5f 69  63 6f 6e 28 77 69 6e 66  |=.text_icon(winf|
00001f30  6f 2c 30 2c 31 36 30 2c  38 30 2c 32 34 30 2c 74  |o,0,160,80,240,t|
00001f40  65 73 74 66 6c 61 67 2c  22 21 46 49 4c 45 54 59  |estflag,"!FILETY|
00001f50  50 45 22 29 0d 09 e2 3c  69 3d a4 74 65 78 74 5f  |PE")...<i=.text_|
00001f60  69 63 6f 6e 28 77 69 6e  66 6f 2c 37 30 30 2c 31  |icon(winfo,700,1|
00001f70  36 30 2c 37 37 34 2c 32  34 30 2c 74 65 73 74 66  |60,774,240,testf|
00001f80  6c 61 67 2c 22 21 46 49  4c 45 54 59 50 45 22 29  |lag,"!FILETYPE")|
00001f90  0d 09 ec 05 e1 0d 09 f6  28 f4 20 2a 2a 2a 2a 2a  |........(. *****|
00001fa0  2a 2a 20 20 4f 50 45 4e  20 41 4c 4c 20 57 49 4e  |**  OPEN ALL WIN|
00001fb0  44 4f 57 53 20 20 2a 2a  2a 2a 2a 2a 2a 0d 0a 00  |DOWS  *******...|
00001fc0  16 dd f2 6f 70 65 6e 5f  61 6c 6c 5f 77 69 6e 64  |...open_all_wind|
00001fd0  6f 77 73 0d 0a 0a 2c f4  50 52 4f 43 6f 70 65 6e  |ows...,.PROCopen|
00001fe0  5f 77 69 6e 64 6f 77 28  77 32 2c 31 35 30 2c 39  |_window(w2,150,9|
00001ff0  30 30 2c 33 30 30 2c 33  30 30 2c 30 2c 30 29 0d  |00,300,300,0,0).|
00002000  0a 14 2c f4 50 52 4f 43  6f 70 65 6e 5f 77 69 6e  |..,.PROCopen_win|
00002010  64 6f 77 28 77 33 2c 32  30 30 2c 38 30 30 2c 33  |dow(w3,200,800,3|
00002020  30 30 2c 33 30 30 2c 30  2c 30 29 0d 0a 1e 05 e1  |00,300,0,0).....|
00002030  0d 0a 28 1c f4 20 2a 2a  2a 2a 2a 2a 2a 20 20 54  |..(.. *******  T|
00002040  45 58 54 20 20 2a 2a 2a  2a 2a 2a 2a 0d 0a 32 15  |EXT  *******..2.|
00002050  dd f2 74 65 78 74 28 78  2c 79 2c 74 65 78 74 24  |..text(x,y,text$|
00002060  29 0d 0a 3c 23 e7 20 a4  69 6e 28 78 2c 79 2c 78  |)..<#. .in(x,y,x|
00002070  2b a9 28 74 65 78 74 24  29 2a 31 36 2c 79 2b 33  |+.(text$)*16,y+3|
00002080  32 29 20 8c 0d 0a 46 0c  f2 67 77 69 6e 64 6f 77  |2) ...F..gwindow|
00002090  0d 0a 50 08 e6 30 2c 37  0d 0a 5a 06 ef 35 0d 0a  |..P..0,7..Z..5..|
000020a0  64 0c ec 20 78 2c 79 2b  33 32 0d 0a 6e 0a f1 74  |d.. x,y+32..n..t|
000020b0  65 78 74 24 0d 0a 78 05  cd 0d 0a 82 05 e1 0d 0a  |ext$..x.........|
000020c0  8c 3a f4 20 2a 2a 2a 2a  2a 2a 2a 2a 20 20 43 68  |.:. ********  Ch|
000020d0  65 63 6b 20 49 66 20 42  6c 6f 63 6b 20 4e 65 65  |eck If Block Nee|
000020e0  64 73 20 54 6f 20 42 65  20 44 72 61 77 6e 20 20  |ds To Be Drawn  |
000020f0  2a 2a 2a 2a 2a 2a 2a 2a  0d 0a 96 1d dd a4 69 6e  |********......in|
00002100  28 78 6d 69 6e 2c 79 6d  69 6e 2c 78 6d 61 78 2c  |(xmin,ymin,xmax,|
00002110  79 6d 61 78 29 0d 0a a0  c6 3d b9 3a f4 20 2a 2a  |ymax)....=.:. **|
00002120  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000021d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 0a aa 38 e7  |***********...8.|
000021e0  20 78 6d 69 6e 3e 73 63  72 6f 6c 6c 5f 78 2b 28  | xmin>scroll_x+(|
000021f0  77 6f 72 6b 5f 61 72 65  61 5f 6d 61 78 78 2d 77  |work_area_maxx-w|
00002200  6f 72 6b 5f 61 72 65 61  5f 6d 69 6e 78 29 20 8c  |ork_area_minx) .|
00002210  20 3d a3 0d 0a b4 38 e7  20 79 6d 69 6e 3e 73 63  | =....8. ymin>sc|
00002220  72 6f 6c 6c 5f 79 2b 28  77 6f 72 6b 5f 61 72 65  |roll_y+(work_are|
00002230  61 5f 6d 61 78 79 2d 77  6f 72 6b 5f 61 72 65 61  |a_maxy-work_area|
00002240  5f 6d 69 6e 79 29 20 8c  20 3d a3 0d 0a be 18 e7  |_miny) . =......|
00002250  20 78 6d 61 78 3c 73 63  72 6f 6c 6c 5f 78 20 8c  | xmax<scroll_x .|
00002260  20 3d a3 0d 0a c8 18 e7  20 79 6d 61 78 3c 73 63  | =...... ymax<sc|
00002270  72 6f 6c 6c 5f 79 20 8c  20 3d a3 0d 0a d2 06 3d  |roll_y . =.....=|
00002280  b9 0d 0a dc 3a f4 20 2a  2a 2a 2a 2a 2a 2a 2a 20  |....:. ******** |
00002290  20 53 65 74 20 75 70 20  67 72 61 70 68 69 63 73  | Set up graphics|
000022a0  20 77 69 6e 64 6f 77 20  66 6f 72 20 62 6c 6f 63  | window for bloc|
000022b0  6b 20 20 2a 2a 2a 2a 2a  2a 2a 2a 0d 0a e6 0d dd  |k  ********.....|
000022c0  f2 67 77 69 6e 64 6f 77  0d 0a f0 68 f4 56 44 55  |.gwindow...h.VDU|
000022d0  32 36 2c 35 2c 32 34 2c  67 72 61 70 68 69 63 73  |26,5,24,graphics|
000022e0  5f 77 69 6e 64 6f 77 5f  6d 69 6e 78 3b 67 72 61  |_window_minx;gra|
000022f0  70 68 69 63 73 5f 77 69  6e 64 6f 77 5f 6d 69 6e  |phics_window_min|
00002300  79 3b 67 72 61 70 68 69  63 73 5f 77 69 6e 64 6f  |y;graphics_windo|
00002310  77 5f 6d 61 78 78 2d 32  3b 67 72 61 70 68 69 63  |w_maxx-2;graphic|
00002320  73 5f 77 69 6e 64 6f 77  5f 6d 61 78 79 2d 34 3b  |s_window_maxy-4;|
00002330  0d 0a fa 65 ef 32 36 2c  35 2c 32 34 2c 67 72 61  |...e.26,5,24,gra|
00002340  70 68 69 63 73 5f 77 69  6e 64 6f 77 5f 6d 69 6e  |phics_window_min|
00002350  78 3b 67 72 61 70 68 69  63 73 5f 77 69 6e 64 6f  |x;graphics_windo|
00002360  77 5f 6d 69 6e 79 3b 67  72 61 70 68 69 63 73 5f  |w_miny;graphics_|
00002370  77 69 6e 64 6f 77 5f 6d  61 78 78 2d 31 3b 67 72  |window_maxx-1;gr|
00002380  61 70 68 69 63 73 5f 77  69 6e 64 6f 77 5f 6d 61  |aphics_window_ma|
00002390  78 79 2d 32 3b 0d 0b 04  36 c8 91 20 77 6f 72 6b  |xy-2;...6.. work|
000023a0  5f 61 72 65 61 5f 6d 69  6e 78 2d 73 63 72 6f 6c  |_area_minx-scrol|
000023b0  6c 5f 78 2c 77 6f 72 6b  5f 61 72 65 61 5f 6d 61  |l_x,work_area_ma|
000023c0  78 79 2d 73 63 72 6f 6c  6c 5f 79 0d 0b 0e 05 e1  |xy-scroll_y.....|
000023d0  0d 0b 18 33 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 20 20  |...3. ********  |
000023e0  53 65 74 20 56 61 72 69  61 62 6c 65 73 20 61 62  |Set Variables ab|
000023f0  6f 75 74 20 62 6c 6f 63  6b 20 20 2a 2a 2a 2a 2a  |out block  *****|
00002400  2a 2a 2a 0d 0b 22 0a dd  f2 76 61 6c 73 0d 0b 2c  |***.."...vals..,|
00002410  1a 77 6f 72 6b 5f 61 72  65 61 5f 6d 69 6e 78 3d  |.work_area_minx=|
00002420  62 6c 6f 63 6b 21 34 0d  0b 36 1a 77 6f 72 6b 5f  |block!4..6.work_|
00002430  61 72 65 61 5f 6d 69 6e  79 3d 62 6c 6f 63 6b 21  |area_miny=block!|
00002440  38 0d 0b 40 1b 77 6f 72  6b 5f 61 72 65 61 5f 6d  |8..@.work_area_m|
00002450  61 78 78 3d 62 6c 6f 63  6b 21 31 32 0d 0b 4a 1b  |axx=block!12..J.|
00002460  77 6f 72 6b 5f 61 72 65  61 5f 6d 61 78 79 3d 62  |work_area_maxy=b|
00002470  6c 6f 63 6b 21 31 36 0d  0b 54 15 73 63 72 6f 6c  |lock!16..T.scrol|
00002480  6c 5f 78 3d 62 6c 6f 63  6b 21 32 30 0d 0b 5e 15  |l_x=block!20..^.|
00002490  73 63 72 6f 6c 6c 5f 79  3d 62 6c 6f 63 6b 21 32  |scroll_y=block!2|
000024a0  34 0d 0b 68 21 67 72 61  70 68 69 63 73 5f 77 69  |4..h!graphics_wi|
000024b0  6e 64 6f 77 5f 6d 69 6e  78 3d 62 6c 6f 63 6b 21  |ndow_minx=block!|
000024c0  32 38 0d 0b 72 21 67 72  61 70 68 69 63 73 5f 77  |28..r!graphics_w|
000024d0  69 6e 64 6f 77 5f 6d 69  6e 79 3d 62 6c 6f 63 6b  |indow_miny=block|
000024e0  21 33 32 0d 0b 7c 21 67  72 61 70 68 69 63 73 5f  |!32..|!graphics_|
000024f0  77 69 6e 64 6f 77 5f 6d  61 78 78 3d 62 6c 6f 63  |window_maxx=bloc|
00002500  6b 21 33 36 0d 0b 86 21  67 72 61 70 68 69 63 73  |k!36...!graphics|
00002510  5f 77 69 6e 64 6f 77 5f  6d 61 78 79 3d 62 6c 6f  |_window_maxy=blo|
00002520  63 6b 21 34 30 0d 0b 90  3a 79 6d 61 78 70 6f 73  |ck!40...:ymaxpos|
00002530  3d 67 72 61 70 68 69 63  73 5f 77 69 6e 64 6f 77  |=graphics_window|
00002540  5f 6d 61 78 79 2d 28 77  6f 72 6b 5f 61 72 65 61  |_maxy-(work_area|
00002550  5f 6d 61 78 79 2d 73 63  72 6f 6c 6c 5f 79 29 0d  |_maxy-scroll_y).|
00002560  0b 9a 37 78 70 6f 73 3d  67 72 61 70 68 69 63 73  |..7xpos=graphics|
00002570  5f 77 69 6e 64 6f 77 5f  6d 69 6e 78 2d 28 77 6f  |_window_minx-(wo|
00002580  72 6b 5f 61 72 65 61 5f  6d 69 6e 78 2d 73 63 72  |rk_area_minx-scr|
00002590  6f 6c 6c 5f 78 29 0d 0b  a4 3a 78 6d 61 78 70 6f  |oll_x)...:xmaxpo|
000025a0  73 3d 67 72 61 70 68 69  63 73 5f 77 69 6e 64 6f  |s=graphics_windo|
000025b0  77 5f 6d 61 78 78 2d 28  77 6f 72 6b 5f 61 72 65  |w_maxx-(work_are|
000025c0  61 5f 6d 69 6e 78 2d 73  63 72 6f 6c 6c 5f 78 29  |a_minx-scroll_x)|
000025d0  0d 0b ae 37 79 70 6f 73  3d 67 72 61 70 68 69 63  |...7ypos=graphic|
000025e0  73 5f 77 69 6e 64 6f 77  5f 6d 69 6e 79 2d 28 77  |s_window_miny-(w|
000025f0  6f 72 6b 5f 61 72 65 61  5f 6d 61 78 79 2d 73 63  |ork_area_maxy-sc|
00002600  72 6f 6c 6c 5f 79 29 0d  0b b8 05 e1 0d 0b c2 25  |roll_y)........%|
00002610  f4 20 2a 2a 2a 2a 2a 2a  2a 2a 20 68 65 6c 70 20  |. ******** help |
00002620  57 49 4e 44 4f 57 20 31  20 2a 2a 2a 2a 2a 2a 2a  |WINDOW 1 *******|
00002630  2a 0d 0b cc 0b dd f2 77  68 65 6c 70 0d 0b d6 11  |*......whelp....|
00002640  59 70 6f 73 3d 38 36 36  3a 47 3d 33 32 0d 0b e0  |Ypos=866:G=32...|
00002650  0c f2 67 77 69 6e 64 6f  77 0d 0b ea 08 e6 30 2c  |..gwindow.....0,|
00002660  37 0d 0b f4 52 f2 74 65  78 74 28 31 30 2c 59 70  |7...R.text(10,Yp|
00002670  6f 73 2d 47 2c 20 20 20  20 20 20 22 54 68 69 73  |os-G,      "This|
00002680  20 75 74 69 6c 69 74 79  20 77 61 73 20 77 72 69  | utility was wri|
00002690  74 74 65 6e 20 74 6f 20  65 61 73 65 20 74 68 65  |tten to ease the|
000026a0  20 63 68 61 6e 67 69 6e  67 20 6f 66 20 66 69 6c  | changing of fil|
000026b0  65 22 29 0d 0b fe 36 f2  74 65 78 74 28 31 30 2c  |e")...6.text(10,|
000026c0  59 70 6f 73 2d 47 2a 32  2c 20 20 20 20 22 74 79  |Ypos-G*2,    "ty|
000026d0  70 65 73 20 77 69 74 68  69 6e 20 74 68 65 20 64  |pes within the d|
000026e0  65 73 6b 74 6f 70 2e 22  29 0d 0c 08 0c 59 70 6f  |esktop.")....Ypo|
000026f0  73 2d 3d 31 30 0d 0c 12  51 f2 74 65 78 74 28 31  |s-=10...Q.text(1|
00002700  30 2c 59 70 6f 73 2d 47  2a 33 2c 20 20 20 20 22  |0,Ypos-G*3,    "|
00002710  54 68 65 20 21 46 69 6c  65 54 79 70 65 20 69 63  |The !FileType ic|
00002720  6f 6e 20 69 6e 73 74 61  6c 6c 73 20 69 74 73 20  |on installs its |
00002730  73 65 6c 66 20 6f 6e 20  74 68 65 20 72 69 67 68  |self on the righ|
00002740  74 20 6f 66 22 29 0d 0c  1c 50 f2 74 65 78 74 28  |t of")...P.text(|
00002750  31 30 2c 59 70 6f 73 2d  47 2a 34 2c 20 20 20 20  |10,Ypos-G*4,    |
00002760  22 74 68 65 20 69 63 6f  6e 20 62 61 72 2e 20 43  |"the icon bar. C|
00002770  6c 69 63 6b 69 6e 67 20  6f 6e 20 74 68 69 73 20  |licking on this |
00002780  77 69 74 68 20 74 68 65  20 6d 65 6e 75 20 62 75  |with the menu bu|
00002790  74 74 6f 6e 22 29 0d 0c  26 4f f2 74 65 78 74 28  |tton")..&O.text(|
000027a0  31 30 2c 59 70 6f 73 2d  47 2a 35 2c 20 20 20 20  |10,Ypos-G*5,    |
000027b0  22 67 69 76 65 73 20 79  6f 75 20 74 68 65 20 6d  |"gives you the m|
000027c0  61 69 6e 20 6d 65 6e 75  2e 20 54 68 65 72 65 20  |ain menu. There |
000027d0  61 72 65 20 66 6f 75 72  20 66 69 6c 65 20 74 79  |are four file ty|
000027e0  70 65 73 22 29 0d 0c 30  4c f2 74 65 78 74 28 31  |pes")..0L.text(1|
000027f0  30 2c 59 70 6f 73 2d 47  2a 36 2c 20 20 20 20 22  |0,Ypos-G*6,    "|
00002800  28 54 68 65 20 6d 6f 73  74 20 75 73 65 64 20 6f  |(The most used o|
00002810  6e 65 73 29 20 27 42 61  73 69 63 2c 20 44 61 74  |nes) 'Basic, Dat|
00002820  61 2c 20 45 78 65 63 20  26 20 54 65 78 74 27 22  |a, Exec & Text'"|
00002830  29 0d 0c 3a 50 f2 74 65  78 74 28 31 30 2c 59 70  |)..:P.text(10,Yp|
00002840  6f 73 2d 47 2a 37 2c 20  20 20 20 22 43 6c 69 63  |os-G*7,    "Clic|
00002850  6b 69 6e 67 20 6f 6e 20  74 68 65 73 65 20 77 69  |king on these wi|
00002860  6c 6c 20 72 65 73 75 6c  74 20 69 6e 20 61 6e 20  |ll result in an |
00002870  61 70 70 72 6f 70 69 61  74 65 20 69 63 6f 6e 22  |appropiate icon"|
00002880  29 0d 0c 44 51 f2 74 65  78 74 28 31 30 2c 59 70  |)..DQ.text(10,Yp|
00002890  6f 73 2d 47 2a 38 2c 20  20 20 20 22 61 70 70 65  |os-G*8,    "appe|
000028a0  61 72 69 6e 67 20 6f 6e  20 74 68 65 20 6c 65 66  |aring on the lef|
000028b0  74 20 6f 66 20 74 68 65  20 69 63 6f 6e 20 62 61  |t of the icon ba|
000028c0  72 2e 20 49 66 20 79 6f  75 20 66 6f 6c 6c 6f 77  |r. If you follow|
000028d0  22 29 0d 0c 4e 54 f2 74  65 78 74 28 31 30 2c 59  |")..NT.text(10,Y|
000028e0  70 6f 73 2d 47 2a 39 2c  20 20 20 20 22 74 68 65  |pos-G*9,    "the|
000028f0  20 61 72 72 6f 77 20 6e  65 78 74 20 74 6f 20 27  | arrow next to '|
00002900  4f 74 68 65 72 27 20 69  6e 74 6f 20 61 20 73 75  |Other' into a su|
00002910  62 2d 6d 65 6e 75 20 79  6f 75 20 63 61 6e 20 65  |b-menu you can e|
00002920  6e 74 65 72 22 29 0d 0c  58 52 f2 74 65 78 74 28  |nter")..XR.text(|
00002930  31 30 2c 59 70 6f 73 2d  47 2a 31 30 2c 20 20 20  |10,Ypos-G*10,   |
00002940  22 61 6e 79 20 66 69 6c  65 74 79 70 65 20 61 6e  |"any filetype an|
00002950  64 20 70 72 65 73 73 20  3c 52 45 54 55 52 4e 3e  |d press <RETURN>|
00002960  2e 20 54 68 69 73 20 77  6f 75 6c 64 20 72 65 73  |. This would res|
00002970  75 6c 74 20 69 6e 22 29  0d 0c 62 54 f2 74 65 78  |ult in")..bT.tex|
00002980  74 28 31 30 2c 59 70 6f  73 2d 47 2a 31 31 2c 20  |t(10,Ypos-G*11, |
00002990  20 20 22 61 6e 20 61 70  70 72 6f 70 69 61 74 65  |  "an appropiate|
000029a0  20 69 63 6f 6e 20 61 70  70 65 61 72 69 6e 67 2e  | icon appearing.|
000029b0  20 49 66 20 79 6f 75 20  73 65 6c 65 63 74 20 61  | If you select a|
000029c0  20 66 69 6c 65 20 74 79  70 65 22 29 0d 0c 6c 53  | file type")..lS|
000029d0  f2 74 65 78 74 28 31 30  2c 59 70 6f 73 2d 47 2a  |.text(10,Ypos-G*|
000029e0  31 32 2c 20 20 20 22 66  6f 72 20 77 68 69 63 68  |12,   "for which|
000029f0  20 74 68 65 72 65 20 69  73 20 6e 6f 20 27 66 61  | there is no 'fa|
00002a00  6e 63 79 27 20 69 63 6f  6e 20 6c 6f 61 64 65 64  |ncy' icon loaded|
00002a10  20 74 68 65 6e 20 61 20  77 68 69 74 65 22 29 0d  | then a white").|
00002a20  0c 76 4f f2 74 65 78 74  28 31 30 2c 59 70 6f 73  |.vO.text(10,Ypos|
00002a30  2d 47 2a 31 33 2c 20 20  20 22 62 6f 78 20 77 69  |-G*13,   "box wi|
00002a40  74 68 20 74 68 65 20 66  69 6c 65 20 74 79 70 65  |th the file type|
00002a50  20 69 6e 73 69 64 65 20  77 69 6c 6c 20 61 70 70  | inside will app|
00002a60  65 61 72 20 69 6e 73 74  65 61 64 2e 22 29 0d 0c  |ear instead.")..|
00002a70  80 0c 59 70 6f 73 2d 3d  31 30 0d 0c 8a 53 f2 74  |..Ypos-=10...S.t|
00002a80  65 78 74 28 31 30 2c 59  70 6f 73 2d 47 2a 31 34  |ext(10,Ypos-G*14|
00002a90  2c 20 20 20 22 49 66 20  79 6f 75 20 64 72 61 67  |,   "If you drag|
00002aa0  20 61 20 66 69 6c 65 20  6f 72 20 73 65 6c 65 63  | a file or selec|
00002ab0  74 69 6f 6e 20 6f 66 20  66 69 6c 65 73 20 74 6f  |tion of files to|
00002ac0  20 61 6e 20 69 63 6f 6e  20 6f 6e 22 29 0d 0c 94  | an icon on")...|
00002ad0  4e f2 74 65 78 74 28 31  30 2c 59 70 6f 73 2d 47  |N.text(10,Ypos-G|
00002ae0  2a 31 35 2c 20 20 20 22  74 68 65 20 6c 65 66 74  |*15,   "the left|
00002af0  20 74 68 65 6e 20 61 6c  6c 20 74 68 65 20 66 69  | then all the fi|
00002b00  6c 65 20 74 79 70 65 73  20 6f 66 20 74 68 65 20  |le types of the |
00002b10  66 69 6c 65 73 20 79 6f  75 22 29 0d 0c 9e 54 f2  |files you")...T.|
00002b20  74 65 78 74 28 31 30 2c  59 70 6f 73 2d 47 2a 31  |text(10,Ypos-G*1|
00002b30  36 2c 20 20 20 22 64 72  61 67 67 65 64 20 77 69  |6,   "dragged wi|
00002b40  6c 6c 20 62 65 20 63 68  61 6e 67 65 64 20 74 6f  |ll be changed to|
00002b50  20 74 68 61 74 20 6f 66  20 74 68 65 20 69 63 6f  | that of the ico|
00002b60  6e 20 79 6f 75 20 64 72  61 67 67 65 64 22 29 0d  |n you dragged").|
00002b70  0c a8 25 f2 74 65 78 74  28 31 30 2c 59 70 6f 73  |..%.text(10,Ypos|
00002b80  2d 47 2a 31 37 2c 20 20  20 22 74 68 65 6d 20 74  |-G*17,   "them t|
00002b90  6f 2e 22 29 0d 0c b2 0c  59 70 6f 73 2d 3d 31 30  |o.")....Ypos-=10|
00002ba0  0d 0c bc 52 f2 74 65 78  74 28 31 30 2c 59 70 6f  |...R.text(10,Ypo|
00002bb0  73 2d 47 2a 31 38 2c 20  20 20 22 49 66 20 79 6f  |s-G*18,   "If yo|
00002bc0  75 20 64 72 61 67 20 61  20 66 69 6c 65 20 74 6f  |u drag a file to|
00002bd0  20 74 68 65 20 21 46 69  6c 65 54 79 70 65 20 69  | the !FileType i|
00002be0  63 6f 6e 20 6f 6e 20 74  68 65 20 72 69 67 68 74  |con on the right|
00002bf0  22 29 0d 0c c6 51 f2 74  65 78 74 28 31 30 2c 59  |")...Q.text(10,Y|
00002c00  70 6f 73 2d 47 2a 31 39  2c 20 20 20 22 74 68 65  |pos-G*19,   "the|
00002c10  6e 20 74 68 65 20 66 69  6c 65 20 74 79 70 65 20  |n the file type |
00002c20  6f 66 20 74 68 61 74 20  66 69 6c 65 20 77 69 6c  |of that file wil|
00002c30  6c 20 62 65 20 73 65 6c  65 63 74 65 64 20 61 6e  |l be selected an|
00002c40  64 22 29 0d 0c d0 3e f2  74 65 78 74 28 31 30 2c  |d")...>.text(10,|
00002c50  59 70 6f 73 2d 47 2a 32  30 2c 20 20 20 22 64 69  |Ypos-G*20,   "di|
00002c60  73 70 6c 61 79 65 64 20  61 73 20 61 6e 20 69 63  |splayed as an ic|
00002c70  6f 6e 20 6f 6e 20 74 68  65 20 6c 65 66 74 2e 22  |on on the left."|
00002c80  29 0d 0c da 0c 59 70 6f  73 2d 3d 31 30 0d 0c e4  |)....Ypos-=10...|
00002c90  52 f2 74 65 78 74 28 31  30 2c 59 70 6f 73 2d 47  |R.text(10,Ypos-G|
00002ca0  2a 32 31 2c 20 20 20 22  54 6f 20 72 65 6d 6f 76  |*21,   "To remov|
00002cb0  65 20 61 6e 20 69 63 6f  6e 20 66 72 6f 6d 20 74  |e an icon from t|
00002cc0  68 65 20 6c 65 66 74 20  63 6c 69 63 6b 20 74 68  |he left click th|
00002cd0  65 20 6d 65 6e 75 20 62  75 74 74 6f 6e 22 29 0d  |e menu button").|
00002ce0  0c ee 47 f2 74 65 78 74  28 31 30 2c 59 70 6f 73  |..G.text(10,Ypos|
00002cf0  2d 47 2a 32 32 2c 20 20  20 22 6f 76 65 72 20 69  |-G*22,   "over i|
00002d00  74 20 61 6e 64 20 73 65  6c 65 63 74 20 27 52 65  |t and select 'Re|
00002d10  6d 6f 76 65 27 20 66 72  6f 6d 20 74 68 65 20 6d  |move' from the m|
00002d20  65 6e 75 2e 22 29 0d 0c  f8 07 ef 32 36 0d 0d 02  |enu.").....26...|
00002d30  05 e1 0d 0d 0c 31 f4 20  2a 2a 2a 2a 2a 2a 2a 2a  |.....1. ********|
00002d40  20 20 45 72 72 6f 72 20  72 65 70 6f 72 74 69 6e  |  Error reportin|
00002d50  67 20 72 6f 75 74 69 6e  65 20 20 2a 2a 2a 2a 2a  |g routine  *****|
00002d60  2a 2a 2a 0d 0d 16 10 dd  f2 77 69 6d 70 5f 65 72  |***......wimp_er|
00002d70  72 6f 72 0d 0d 20 19 c8  99 20 22 57 69 6d 70 5f  |ror.. ... "Wimp_|
00002d80  44 72 61 67 42 6f 78 22  2c 2c 2d 31 0d 0d 2a 0c  |DragBox",,-1..*.|
00002d90  21 62 6c 6f 63 6b 3d 9f  0d 0d 34 37 24 28 62 6c  |!block=...47$(bl|
00002da0  6f 63 6b 2b 34 29 3d f6  24 2b 22 20 28 49 6e 74  |ock+4)=.$+" (Int|
00002db0  65 72 6e 61 6c 20 65 72  72 6f 72 20 61 74 20 6c  |ernal error at l|
00002dc0  69 6e 65 20 22 2b c3 9e  2b 22 29 22 2b bd 30 0d  |ine "+..+")"+.0.|
00002dd0  0d 3e 26 c8 99 22 57 69  6d 70 5f 52 65 70 6f 72  |.>&.."Wimp_Repor|
00002de0  74 45 72 72 6f 72 22 2c  62 6c 6f 63 6b 2c 31 2c  |tError",block,1,|
00002df0  74 61 73 6b 24 0d 0d 48  16 c8 99 22 57 69 6d 70  |task$..H..."Wimp|
00002e00  5f 43 6c 6f 73 65 44 6f  77 6e 22 0d 0d 52 05 e0  |_CloseDown"..R..|
00002e10  0d 0d 5c 1e dd f2 6d 61  6b 65 65 72 72 6f 72 28  |..\...makeerror(|
00002e20  65 72 72 24 2c 71 75 69  74 70 72 6f 67 29 0d 0d  |err$,quitprog)..|
00002e30  66 19 c8 99 20 22 57 69  6d 70 5f 44 72 61 67 42  |f... "Wimp_DragB|
00002e40  6f 78 22 2c 2c 2d 31 0d  0d 70 10 21 6d 61 6b 65  |ox",,-1..p.!make|
00002e50  65 72 72 6f 72 3d 30 0d  0d 7a 17 24 28 6d 61 6b  |error=0..z.$(mak|
00002e60  65 65 72 72 6f 72 2b 34  29 3d 65 72 72 24 0d 0d  |eerror+4)=err$..|
00002e70  84 2a c8 99 22 57 69 6d  70 5f 52 65 70 6f 72 74  |.*.."Wimp_Report|
00002e80  45 72 72 6f 72 22 2c 6d  61 6b 65 65 72 72 6f 72  |Error",makeerror|
00002e90  2c 31 2c 74 61 73 6b 24  0d 0d 8e 10 e7 20 71 75  |,1,task$..... qu|
00002ea0  69 74 70 72 6f 67 20 8c  0d 0d 98 16 c8 99 22 57  |itprog ......."W|
00002eb0  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 0d 0d  |imp_CloseDown"..|
00002ec0  a2 05 e0 0d 0d ac 05 cd  0d 0d b6 05 e1 0d 0d c0  |................|
00002ed0  32 f4 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 20 20 50 6c  |2. *********  Pl|
00002ee0  61 63 65 20 49 63 6f 6e  20 4f 6e 20 49 63 6f 6e  |ace Icon On Icon|
00002ef0  20 42 61 72 20 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  | Bar  *********.|
00002f00  0d ca 21 dd a4 69 63 6f  6e 62 61 72 73 70 72 69  |..!..iconbarspri|
00002f10  74 65 28 73 70 6e 61 6d  65 24 2c 73 69 64 65 29  |te(spname$,side)|
00002f20  0d 0d d4 31 3d a4 73 70  72 69 74 65 5f 69 63 6f  |...1=.sprite_ico|
00002f30  6e 28 73 69 64 65 2c 30  2c 30 2c 36 38 2c 36 38  |n(side,0,0,68,68|
00002f40  2c 26 33 31 30 32 2c 31  2c 73 70 6e 61 6d 65 24  |,&3102,1,spname$|
00002f50  29 0d 0d de 35 f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |)...5. *********|
00002f60  20 20 52 65 63 65 69 76  65 20 4d 65 73 73 61 67  |  Receive Messag|
00002f70  65 73 20 52 6f 75 74 69  6e 65 20 20 2a 2a 2a 2a  |es Routine  ****|
00002f80  2a 2a 2a 2a 2a 2a 0d 0d  e8 0d dd f2 72 65 63 65  |******......rece|
00002f90  69 76 65 0d 0d f2 11 c8  8e 20 62 6c 6f 63 6b 21  |ive...... block!|
00002fa0  31 36 20 ca 0d 0d fc 0e  c9 20 30 3a 71 75 69 74  |16 ...... 0:quit|
00002fb0  3d b9 0d 0e 06 11 c9 20  32 3a f2 64 61 74 61 73  |=...... 2:.datas|
00002fc0  61 76 65 0d 0e 10 27 c9  20 33 3a e7 20 62 6c 6f  |ave...'. 3:. blo|
00002fd0  63 6b 21 31 32 3d 30 20  8c 20 f2 64 61 74 61 6c  |ck!12=0 . .datal|
00002fe0  6f 61 64 28 62 6c 6f 63  6b 29 0d 0e 1a 05 cb 0d  |oad(block)......|
00002ff0  0e 24 05 e1 0d 0e 2e 37  dd a4 73 70 72 69 74 65  |.$.....7..sprite|
00003000  5f 69 63 6f 6e 28 77 69  6e 64 6f 77 2c 78 30 2c  |_icon(window,x0,|
00003010  79 30 2c 78 31 2c 79 31  2c 66 6c 61 67 73 2c 73  |y0,x1,y1,flags,s|
00003020  70 74 72 2c 73 6e 61 6d  65 24 29 0d 0e 38 26 de  |ptr,sname$)..8&.|
00003030  20 62 6c 6f 63 6b 21 32  34 20 a9 73 6e 61 6d 65  | block!24 .sname|
00003040  24 2b 31 3a 62 6c 6f 63  6b 21 32 38 3d 73 70 74  |$+1:block!28=spt|
00003050  72 0d 0e 42 27 62 6c 6f  63 6b 21 33 32 3d a9 73  |r..B'block!32=.s|
00003060  6e 61 6d 65 24 2b 31 3a  24 62 6c 6f 63 6b 21 32  |name$+1:$block!2|
00003070  34 3d 73 6e 61 6d 65 24  0d 0e 4c 27 3d a4 69 63  |4=sname$..L'=.ic|
00003080  6f 6e 62 6c 6b 28 77 69  6e 64 6f 77 2c 78 30 2c  |onblk(window,x0,|
00003090  79 30 2c 78 31 2c 79 31  2c 66 6c 61 67 73 29 0d  |y0,x1,y1,flags).|
000030a0  0e 56 27 dd a4 69 63 6f  6e 62 6c 6b 28 77 69 6e  |.V'..iconblk(win|
000030b0  64 6f 77 2c 78 30 2c 79  30 2c 78 31 2c 79 31 2c  |dow,x0,y0,x1,y1,|
000030c0  66 6c 61 67 73 29 0d 0e  60 11 21 62 6c 6f 63 6b  |flags)..`.!block|
000030d0  3d 77 69 6e 64 6f 77 0d  0e 6a 19 62 6c 6f 63 6b  |=window..j.block|
000030e0  21 34 3d 78 30 3a 62 6c  6f 63 6b 21 38 3d 79 30  |!4=x0:block!8=y0|
000030f0  0d 0e 74 1b 62 6c 6f 63  6b 21 31 32 3d 78 31 3a  |..t.block!12=x1:|
00003100  62 6c 6f 63 6b 21 31 36  3d 79 31 0d 0e 7e 12 62  |block!16=y1..~.b|
00003110  6c 6f 63 6b 21 32 30 3d  66 6c 61 67 73 0d 0e 88  |lock!20=flags...|
00003120  26 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |&.. "Wimp_Create|
00003130  49 63 6f 6e 22 2c 2c 62  6c 6f 63 6b 20 b8 20 69  |Icon",,block . i|
00003140  63 6f 6e 0d 0e 92 09 3d  69 63 6f 6e 0d 0e 9c 11  |con....=icon....|
00003150  dd f2 64 61 74 61 6c 6f  61 64 28 62 29 0d 0e a6  |..dataload(b)...|
00003160  16 6e 61 6d 65 24 3d a4  67 6e 61 6d 65 28 62 2b  |.name$=.gname(b+|
00003170  34 34 29 0d 0e b0 0d c8  8e 20 62 21 32 34 20 ca  |44)...... b!24 .|
00003180  0d 0e ba 1b c9 20 73 69  63 6f 6e 20 3a f2 69 6e  |..... sicon :.in|
00003190  66 6f 61 62 6f 75 74 66  69 6c 65 0d 0e c4 1b 7f  |foaboutfile.....|
000031a0  20 3a f2 73 65 74 74 79  70 65 3a f2 61 63 6b 6c  | :.settype:.ackl|
000031b0  6f 61 64 28 62 29 0d 0e  ce 05 cb 0d 0e d8 05 e1  |oad(b)..........|
000031c0  0d 0e e2 13 dd f2 69 6e  66 6f 61 62 6f 75 74 66  |......infoaboutf|
000031d0  69 6c 65 0d 0e ec 0a ea  20 6c 6f 6f 70 0d 0e f6  |ile..... loop...|
000031e0  12 74 79 70 65 24 3d c3  7e 28 62 21 34 30 29 0d  |.type$=.~(b!40).|
000031f0  0f 00 0f f2 61 63 6b 6c  6f 61 64 28 62 29 0d 0f  |....ackload(b)..|
00003200  0a 10 e3 20 6c 6f 6f 70  3d 31 20 b8 20 33 0d 0f  |... loop=1 . 3..|
00003210  14 2c 6f 74 68 65 72 66  69 6c 65 74 79 70 65 3f  |.,otherfiletype?|
00003220  28 6c 6f 6f 70 2d 31 29  3d 97 28 c1 74 79 70 65  |(loop-1)=.(.type|
00003230  24 2c 6c 6f 6f 70 2c 31  29 29 0d 0f 1e 05 ed 0d  |$,loop,1))......|
00003240  0f 28 1a f2 6e 65 77 69  63 6f 6e 28 6f 74 68 65  |.(..newicon(othe|
00003250  72 70 6f 69 6e 74 65 72  29 0d 0f 32 05 e1 0d 0f  |rpointer)..2....|
00003260  3c 0d dd f2 73 65 74 74  79 70 65 0d 0f 3d 07 ea  |<...settype..=..|
00003270  20 85 0d 0f 3e 1c ee 20  85 20 ea 3a f2 6d 61 6b  | ...>.. . .:.mak|
00003280  65 65 72 72 6f 72 28 f6  24 2c a3 29 3a e1 0d 0f  |eerror(.$,.):...|
00003290  46 11 e7 20 62 21 32 34  3d 2d 31 20 8c 20 e1 0d  |F.. b!24=-1 . ..|
000032a0  0f 50 0b 69 63 6f 6e 3d  2d 31 0d 0f 5a 05 f5 0d  |.P.icon=-1..Z...|
000032b0  0f 64 0b 69 63 6f 6e 2b  3d 31 0d 0f 6e 36 fd 20  |.d.icon+=1..n6. |
000032c0  74 79 70 65 73 28 69 63  6f 6e 2c 30 29 3d 62 21  |types(icon,0)=b!|
000032d0  32 34 20 84 20 28 74 79  70 65 73 28 69 63 6f 6e  |24 . (types(icon|
000032e0  2c 30 29 3d 2d 31 20 80  20 69 63 6f 6e 3e 34 29  |,0)=-1 . icon>4)|
000032f0  0d 0f 78 1d e7 20 74 79  70 65 73 28 69 63 6f 6e  |..x.. types(icon|
00003300  2c 30 29 3c 3e 62 21 32  34 20 8c 20 e1 0d 0f aa  |,0)<>b!24 . ....|
00003310  2e ff 28 22 2a 53 45 54  54 59 50 45 20 22 2b 6e  |..("*SETTYPE "+n|
00003320  61 6d 65 24 2b 22 20 22  2b c3 7e 28 74 79 70 65  |ame$+" "+.~(type|
00003330  73 28 69 63 6f 6e 2c 31  29 29 29 0d 0f b4 05 e1  |s(icon,1))).....|
00003340  0d 0f be 11 dd a4 6c 65  61 66 28 6e 61 6d 65 24  |......leaf(name$|
00003350  29 0d 0f c8 05 f5 0d 0f  d2 31 e7 20 a7 6e 61 6d  |)........1. .nam|
00003360  65 24 2c 22 2e 22 29 3e  30 20 8c 20 6e 61 6d 65  |e$,".")>0 . name|
00003370  24 3d c1 6e 61 6d 65 24  2c a7 6e 61 6d 65 24 2c  |$=.name$,.name$,|
00003380  22 2e 22 29 2b 31 29 0d  0f dc 13 fd 20 a7 6e 61  |".")+1)..... .na|
00003390  6d 65 24 2c 22 2e 22 29  3d 30 0d 0f e6 0a 3d 6e  |me$,".")=0....=n|
000033a0  61 6d 65 24 0d 0f f0 12  dd a4 77 6c 65 61 66 28  |ame$......wleaf(|
000033b0  6e 61 6d 65 24 29 0d 0f  f1 19 e7 20 a7 6e 61 6d  |name$)..... .nam|
000033c0  65 24 2c 22 2e 22 29 3d  30 20 8c 20 3d 22 22 0d  |e$,".")=0 . ="".|
000033d0  0f fa 0c 6e 24 3d 6e 61  6d 65 24 0d 10 04 05 f5  |...n$=name$.....|
000033e0  0d 10 0e 31 e7 20 a7 6e  61 6d 65 24 2c 22 2e 22  |...1. .name$,"."|
000033f0  29 3e 30 20 8c 20 6e 61  6d 65 24 3d c1 6e 61 6d  |)>0 . name$=.nam|
00003400  65 24 2c a7 6e 61 6d 65  24 2c 22 2e 22 29 2b 31  |e$,.name$,".")+1|
00003410  29 0d 10 18 13 fd 20 a7  6e 61 6d 65 24 2c 22 2e  |)..... .name$,".|
00003420  22 29 3d 30 0d 10 22 1c  3d c1 6e 24 2c 31 2c a9  |")=0..".=.n$,1,.|
00003430  28 6e 24 29 2d a9 28 6e  61 6d 65 24 29 2d 31 29  |(n$)-.(name$)-1)|
00003440  0d 10 2c 10 dd f2 61 63  6b 6c 6f 61 64 28 62 29  |..,...ackload(b)|
00003450  0d 10 36 19 62 21 31 32  3d 62 21 38 3a 62 21 31  |..6.b!12=b!8:b!1|
00003460  36 3d 34 3a 21 62 3d 36  34 0d 10 40 22 c8 99 20  |6=4:!b=64..@".. |
00003470  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00003480  65 22 2c 31 37 2c 62 2c  62 21 34 0d 10 4a 05 e1  |e",17,b,b!4..J..|
00003490  0d 10 54 10 dd a4 67 6e  61 6d 65 28 70 74 72 29  |..T...gname(ptr)|
000034a0  0d 10 5e 09 66 24 3d 22  22 0d 10 68 19 c8 95 20  |..^.f$=""..h... |
000034b0  3f 70 74 72 3c 3e 30 20  80 20 3f 70 74 72 3c 3e  |?ptr<>0 . ?ptr<>|
000034c0  31 33 0d 10 72 16 66 24  3d 66 24 2b bd 3f 70 74  |13..r.f$=f$+.?pt|
000034d0  72 3a 70 74 72 2b 3d 31  0d 10 7c 05 ce 0d 10 86  |r:ptr+=1..|.....|
000034e0  07 3d 66 24 0d 10 90 10  dd f2 62 75 74 74 6f 6e  |.=f$......button|
000034f0  73 28 62 29 0d 10 9a 0e  6d 6f 75 73 65 78 25 3d  |s(b)....mousex%=|
00003500  21 62 0d 10 a4 0f 6d 6f  75 73 65 79 25 3d 62 21  |!b....mousey%=b!|
00003510  34 0d 10 ae 0f e7 20 62  21 38 20 80 20 32 20 8c  |4..... b!8 . 2 .|
00003520  0d 10 b8 22 f2 6d 65 6e  75 28 62 29 3a f4 20 6d  |...".menu(b):. m|
00003530  65 6e 75 20 62 75 74 74  6f 6e 20 70 72 65 73 73  |enu button press|
00003540  65 64 0d 10 c2 05 cc 0d  10 cc 0f e7 20 62 21 31  |ed.......... b!1|
00003550  32 3d 2d 32 20 8c 0d 10  d6 38 f2 69 63 6f 6e 62  |2=-2 ....8.iconb|
00003560  61 72 28 62 29 3a f4 20  6d 6f 75 73 65 20 6f 76  |ar(b):. mouse ov|
00003570  65 72 20 69 63 6f 6e 20  62 61 72 20 61 6e 64 20  |er icon bar and |
00003580  62 75 74 74 6f 6e 20 70  72 65 73 73 65 64 0d 10  |button pressed..|
00003590  e0 05 cc 0d 10 ea 10 e7  20 62 21 31 36 3c 3e 2d  |........ b!16<>-|
000035a0  31 20 8c 0d 10 f4 1a f4  20 50 72 65 73 73 65 64  |1 ...... Pressed|
000035b0  20 6f 76 65 72 20 61 6e  20 69 63 6f 6e 0d 10 fe  | over an icon...|
000035c0  21 f2 62 75 74 74 6f 6e  5f 70 72 65 73 73 65 64  |!.button_pressed|
000035d0  5f 6f 6e 5f 69 63 6f 6e  28 62 21 31 36 29 0d 11  |_on_icon(b!16)..|
000035e0  08 05 cc 0d 11 12 38 f4  49 46 20 62 21 31 32 3c  |......8.IF b!12<|
000035f0  3e 2d 31 20 54 48 45 4e  20 50 52 4f 43 62 75 74  |>-1 THEN PROCbut|
00003600  74 6f 6e 5f 70 72 65 73  73 65 64 5f 6f 6e 5f 77  |ton_pressed_on_w|
00003610  69 6e 64 6f 77 28 62 21  31 32 29 0d 11 1c 05 cd  |indow(b!12).....|
00003620  0d 11 26 05 cd 0d 11 30  05 cd 0d 11 3a 05 e1 0d  |..&....0....:...|
00003630  11 44 24 dd f2 62 75 74  74 6f 6e 5f 70 72 65 73  |.D$..button_pres|
00003640  73 65 64 5f 6f 6e 5f 69  63 6f 6e 28 68 61 6e 64  |sed_on_icon(hand|
00003650  6c 65 29 0d 11 4e 19 f1  8a 30 2c 30 29 3b 68 61  |le)..N...0,0);ha|
00003660  6e 64 6c 65 2c 41 45 48  69 63 6f 6e 0d 11 58 2e  |ndle,AEHicon..X.|
00003670  e7 20 68 61 6e 64 6c 65  3d 41 45 48 69 63 6f 6e  |. handle=AEHicon|
00003680  20 8c 20 ef 37 3a f2 63  6c 6f 73 65 5f 77 69 6e  | . .7:.close_win|
00003690  64 6f 77 28 77 68 65 6c  70 29 0d 11 62 05 e1 0d  |dow(whelp)..b...|
000036a0  11 6c 12 dd f2 69 63 6f  6e 62 61 72 28 62 29 3a  |.l...iconbar(b):|
000036b0  e1 0d 11 76 0d dd f2 6d  65 6e 75 28 62 29 0d 11  |...v...menu(b)..|
000036c0  80 0a ea 20 6c 6f 6f 70  0d 11 8a 0f e7 20 62 21  |... loop..... b!|
000036d0  31 32 3d 2d 32 20 8c 0d  11 94 15 f4 20 4d 45 4e  |12=-2 ...... MEN|
000036e0  55 20 4f 4e 20 49 43 4f  4e 42 41 52 0d 11 9e 12  |U ON ICONBAR....|
000036f0  e7 20 62 21 31 36 3d 73  69 63 6f 6e 20 8c 0d 11  |. b!16=sicon ...|
00003700  a8 0f f4 20 4d 41 49 4e  20 49 43 4f 4e 0d 11 b2  |... MAIN ICON...|
00003710  28 6d 6f 75 73 65 79 25  3d 34 38 30 3a 6d 6f 75  |(mousey%=480:mou|
00003720  73 65 78 25 2d 3d 39 30  3a 6d 65 6e 75 66 6c 61  |sex%-=90:menufla|
00003730  67 3d 39 39 39 0d 11 bc  2a 6d 65 6e 75 6f 74 68  |g=999...*menuoth|
00003740  65 72 24 3d 22 30 36 4f  74 68 65 72 7c 40 6f 74  |er$="06Other|@ot|
00003750  68 65 72 66 69 6c 65 74  79 70 65 2c 33 7c 22 0d  |herfiletype,3|".|
00003760  11 c6 8a 41 3d a4 63 72  65 61 74 65 5f 6d 65 6e  |...A=.create_men|
00003770  75 28 22 30 39 46 69 6c  65 54 79 70 65 7c 42 61  |u("09FileType|Ba|
00003780  73 69 63 7c 44 61 74 61  7c 45 78 65 63 7c 54 65  |sic|Data|Exec|Te|
00003790  78 74 7c 5b 6d 65 6e 75  6f 74 68 65 72 24 5d 4f  |xt|[menuother$]O|
000037a0  74 68 65 72 7c 5b 77 68  65 6c 70 5d 48 65 6c 70  |ther|[whelp]Help|
000037b0  7c 5b 77 69 6e 66 6f 5d  49 6e 66 6f 7c 51 75 69  ||[winfo]Info|Qui|
000037c0  74 7c 22 2c 30 29 3a f4  71 75 69 74 3d 54 52 55  |t|",0):.quit=TRU|
000037d0  45 20 3a 52 45 4d 20 70  72 65 73 73 65 64 20 6f  |E :REM pressed o|
000037e0  6e 20 69 63 6f 6e 62 61  72 0d 11 d0 05 cc 0d 11  |n iconbar.......|
000037f0  da 0b 69 63 6f 6e 3d 2d  31 0d 11 e4 05 f5 0d 11  |..icon=-1.......|
00003800  ee 0b 69 63 6f 6e 2b 3d  31 0d 11 f8 36 fd 20 74  |..icon+=1...6. t|
00003810  79 70 65 73 28 69 63 6f  6e 2c 30 29 3d 62 21 31  |ypes(icon,0)=b!1|
00003820  36 20 84 20 28 74 79 70  65 73 28 69 63 6f 6e 2c  |6 . (types(icon,|
00003830  30 29 3d 2d 31 20 80 20  69 63 6f 6e 3e 34 29 0d  |0)=-1 . icon>4).|
00003840  12 02 1a e7 20 74 79 70  65 73 28 69 63 6f 6e 2c  |.... types(icon,|
00003850  30 29 3d 62 21 31 36 20  8c 0d 12 0c 1e c8 97 20  |0)=b!16 ....... |
00003860  6d 6f 75 73 65 78 25 2c  6d 6f 75 73 65 79 25 2c  |mousex%,mousey%,|
00003870  62 75 74 74 6f 6e 25 0d  12 16 1b 6d 6f 75 73 65  |button%....mouse|
00003880  79 25 3d 31 34 34 3a 6d  6f 75 73 65 78 25 2d 3d  |y%=144:mousex%-=|
00003890  39 30 0d 12 20 3c 41 3d  a4 63 72 65 61 74 65 5f  |90.. <A=.create_|
000038a0  6d 65 6e 75 28 22 30 38  46 69 6c 65 5f 22 2b c3  |menu("08File_"+.|
000038b0  7e 74 79 70 65 73 28 69  63 6f 6e 2c 31 29 2b 22  |~types(icon,1)+"|
000038c0  7c 20 52 65 6d 6f 76 65  20 7c 22 2c 30 29 0d 12  || Remove |",0)..|
000038d0  2a 11 6d 65 6e 75 66 6c  61 67 3d 69 63 6f 6e 0d  |*.menuflag=icon.|
000038e0  12 34 05 cd 0d 12 3e 05  cd 0d 12 48 05 cd 0d 12  |.4....>....H....|
000038f0  52 05 e1 0d 12 5c 17 dd  f2 73 65 6c 65 63 74 5f  |R....\...select_|
00003900  6f 6e 5f 6d 65 6e 75 28  62 29 0d 12 66 0f e7 20  |on_menu(b)..f.. |
00003910  21 62 3d 2d 31 20 8c 20  e1 0d 12 70 11 c8 8e 20  |!b=-1 . ...p... |
00003920  6d 65 6e 75 66 6c 61 67  20 ca 0d 12 7a 19 c9 20  |menuflag ...z.. |
00003930  39 39 39 3a f2 73 65 6c  65 63 74 6d 61 69 6e 6d  |999:.selectmainm|
00003940  65 6e 75 0d 12 84 2f 7f  20 3a e7 20 74 79 70 65  |enu.../. :. type|
00003950  73 28 6d 65 6e 75 66 6c  61 67 2c 30 29 3e 2d 31  |s(menuflag,0)>-1|
00003960  20 8c 20 f2 64 65 6c 65  74 65 66 69 6c 65 74 79  | . .deletefilety|
00003970  70 65 0d 12 8e 05 cb 0d  12 98 05 e1 0d 12 a2 14  |pe..............|
00003980  dd f2 64 65 6c 65 74 65  66 69 6c 65 74 79 70 65  |..deletefiletype|
00003990  0d 12 ac 1e e7 20 74 79  70 65 73 28 6d 65 6e 75  |..... types(menu|
000039a0  66 6c 61 67 2c 30 29 3d  2d 31 20 8c 20 e1 0d 12  |flag,0)=-1 . ...|
000039b0  b6 10 ea 20 6c 6f 6f 70  2c 6c 6f 6f 70 31 0d 12  |... loop,loop1..|
000039c0  c0 0e 62 6c 6f 63 6b 21  30 3d 2d 32 0d 12 ca 1d  |..block!0=-2....|
000039d0  62 6c 6f 63 6b 21 34 3d  74 79 70 65 73 28 6d 65  |block!4=types(me|
000039e0  6e 75 66 6c 61 67 2c 30  29 0d 12 d4 1e c8 99 22  |nuflag,0)......"|
000039f0  57 69 6d 70 5f 44 65 6c  65 74 65 49 63 6f 6e 22  |Wimp_DeleteIcon"|
00003a00  2c 2c 62 6c 6f 63 6b 0d  12 de 11 6c 6f 6f 70 3d  |,,block....loop=|
00003a10  6d 65 6e 75 66 6c 61 67  0d 12 e8 14 74 79 70 65  |menuflag....type|
00003a20  73 28 6c 6f 6f 70 2c 30  29 3d 2d 31 0d 12 f2 0e  |s(loop,0)=-1....|
00003a30  e7 20 6c 6f 6f 70 3e 34  20 8c 0d 12 fc 05 f5 0d  |. loop>4 .......|
00003a40  13 06 10 e3 20 6c 6f 6f  70 31 3d 30 20 b8 32 0d  |.... loop1=0 .2.|
00003a50  13 10 29 74 79 70 65 73  28 6c 6f 6f 70 2c 6c 6f  |..)types(loop,lo|
00003a60  6f 70 31 29 3d 74 79 70  65 73 28 6c 6f 6f 70 2b  |op1)=types(loop+|
00003a70  31 2c 6c 6f 6f 70 31 29  0d 13 1a 05 ed 0d 13 24  |1,loop1).......$|
00003a80  0b 6c 6f 6f 70 2b 3d 31  0d 13 2e 16 fd 20 74 79  |.loop+=1..... ty|
00003a90  70 65 73 28 6c 6f 6f 70  2c 30 29 3d 2d 31 0d 13  |pes(loop,0)=-1..|
00003aa0  38 05 cd 0d 13 42 1e e7  20 6c 6f 6f 70 3e 33 20  |8....B.. loop>3 |
00003ab0  8c 20 6f 74 68 65 72 70  6f 69 6e 74 65 72 2d 3d  |. otherpointer-=|
00003ac0  31 0d 13 4c 05 e1 0d 13  56 14 dd f2 73 65 6c 65  |1..L....V...sele|
00003ad0  63 74 6d 61 69 6e 6d 65  6e 75 0d 13 60 0c 6c 65  |ctmainmenu..`.le|
00003ae0  76 65 6c 3d 21 62 0d 13  6a 0f e7 20 6c 65 76 65  |vel=!b..j.. leve|
00003af0  6c 3c 35 20 8c 0d 13 74  22 e7 20 6c 65 76 65 6c  |l<5 ...t". level|
00003b00  3d 34 20 8c 20 6c 65 76  65 6c 3d 6f 74 68 65 72  |=4 . level=other|
00003b10  70 6f 69 6e 74 65 72 0d  13 7e 3d e7 20 74 79 70  |pointer..~=. typ|
00003b20  65 73 28 6c 65 76 65 6c  2c 30 29 3c 30 20 84 20  |es(level,0)<0 . |
00003b30  6c 65 76 65 6c 3d 6f 74  68 65 72 70 6f 69 6e 74  |level=otherpoint|
00003b40  65 72 20 8c 20 f2 6e 65  77 69 63 6f 6e 28 6c 65  |er . .newicon(le|
00003b50  76 65 6c 29 0d 13 88 05  cd 0d 13 92 13 e7 20 21  |vel).......... !|
00003b60  62 3d 37 20 8c 20 71 75  69 74 3d b9 0d 13 9c 05  |b=7 . quit=.....|
00003b70  e1 0d 13 a6 14 dd f2 6e  65 77 69 63 6f 6e 28 6c  |.......newicon(l|
00003b80  65 76 65 6c 29 0d 13 b0  0a ea 20 6c 6f 6f 70 0d  |evel)..... loop.|
00003b90  13 ba 1a e7 20 6c 65 76  65 6c 3d 6f 74 68 65 72  |.... level=other|
00003ba0  70 6f 69 6e 74 65 72 20  8c 0d 13 c4 0d 6f 74 68  |pointer .....oth|
00003bb0  65 72 24 3d 22 22 0d 13  ce 10 e3 20 6c 6f 6f 70  |er$=""..... loop|
00003bc0  3d 30 20 b8 20 32 0d 13  d8 18 63 3d 6f 74 68 65  |=0 . 2....c=othe|
00003bd0  72 66 69 6c 65 74 79 70  65 3f 6c 6f 6f 70 0d 13  |rfiletype?loop..|
00003be0  e2 1e e7 20 63 3e 37 30  20 84 20 63 3c 34 38 20  |... c>70 . c<48 |
00003bf0  8c 20 6c 65 76 65 6c 3d  2d 39 30 39 0d 13 ec 1e  |. level=-909....|
00003c00  e7 20 63 3e 35 37 20 80  20 63 3c 36 35 20 8c 20  |. c>57 . c<65 . |
00003c10  6c 65 76 65 6c 3d 2d 39  30 39 0d 13 f6 11 e7 20  |level=-909..... |
00003c20  63 3c 33 32 20 8c 20 63  3d 33 32 0d 14 00 10 6f  |c<32 . c=32....o|
00003c30  74 68 65 72 24 2b 3d bd  28 63 29 0d 14 0a 05 ed  |ther$+=.(c).....|
00003c40  0d 14 14 2c e7 20 6c 65  76 65 6c 3e 30 20 8c 20  |...,. level>0 . |
00003c50  74 79 70 65 73 28 6c 65  76 65 6c 2c 31 29 3d a0  |types(level,1)=.|
00003c60  28 22 26 22 2b 6f 74 68  65 72 24 29 0d 14 1e 05  |("&"+other$)....|
00003c70  cd 0d 14 28 4e e7 20 6c  65 76 65 6c 3d 2d 39 30  |...(N. level=-90|
00003c80  39 20 8c 20 6f 74 68 65  72 24 2b 3d 22 20 69 73  |9 . other$+=" is|
00003c90  20 6e 6f 74 20 61 20 76  61 6c 69 64 20 66 69 6c  | not a valid fil|
00003ca0  65 20 74 79 70 65 2e 22  3a f2 6d 61 6b 65 65 72  |e type.":.makeer|
00003cb0  72 6f 72 28 6f 74 68 65  72 24 2c a3 29 3a e1 0d  |ror(other$,.):..|
00003cc0  14 32 37 e7 20 a4 63 68  65 63 6b 73 70 72 69 74  |.27. .checksprit|
00003cd0  65 70 6f 6f 6c 66 6f 72  28 22 66 69 6c 65 5f 22  |epoolfor("file_"|
00003ce0  2b c3 7e 28 74 79 70 65  73 28 6c 65 76 65 6c 2c  |+.~(types(level,|
00003cf0  31 29 29 29 20 8c 0d 14  3c 40 74 79 70 65 73 28  |1))) ...<@types(|
00003d00  6c 65 76 65 6c 2c 30 29  3d a4 69 63 6f 6e 62 61  |level,0)=.iconba|
00003d10  72 73 70 72 69 74 65 28  22 66 69 6c 65 5f 22 2b  |rsprite("file_"+|
00003d20  c3 7e 28 74 79 70 65 73  28 6c 65 76 65 6c 2c 31  |.~(types(level,1|
00003d30  29 29 2c 2d 32 29 0d 14  46 05 cc 0d 14 50 3b 66  |)),-2)..F....P;f|
00003d40  6c 61 67 3d a4 69 63 6f  6e 66 6c 61 67 28 b9 2c  |lag=.iconflag(.,|
00003d50  a3 2c 2d 31 2c 2d 31 2c  2d 31 2c 2d 31 2c 30 2c  |.,-1,-1,-1,-1,0,|
00003d60  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,0,0,0,0,0,0,0,|
00003d70  37 2c 30 2c 30 29 0d 14  5a 43 74 79 70 65 73 28  |7,0,0)..ZCtypes(|
00003d80  6c 65 76 65 6c 2c 30 29  3d a4 74 65 78 74 5f 69  |level,0)=.text_i|
00003d90  63 6f 6e 28 2d 32 2c 30  2c 30 2c 36 38 2c 36 38  |con(-2,0,0,68,68|
00003da0  2c 66 6c 61 67 2c c3 7e  28 74 79 70 65 73 28 6c  |,flag,.~(types(l|
00003db0  65 76 65 6c 2c 31 29 29  29 0d 14 64 05 cd 0d 14  |evel,1)))..d....|
00003dc0  6e 2a e7 20 6c 65 76 65  6c 3d 6f 74 68 65 72 70  |n*. level=otherp|
00003dd0  6f 69 6e 74 65 72 20 8c  20 6f 74 68 65 72 70 6f  |ointer . otherpo|
00003de0  69 6e 74 65 72 2b 3d 31  0d 14 78 05 e1 0d 14 82  |inter+=1..x.....|
00003df0  3f f4 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |?. *************|
00003e00  2a 20 43 41 4c 43 55 4c  41 54 45 20 49 43 4f 4e  |* CALCULATE ICON|
00003e10  20 46 4c 41 47 20 56 41  4c 55 45 20 2a 2a 2a 2a  | FLAG VALUE ****|
00003e20  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 14 8c 39  |************...9|
00003e30  f4 2a 2a 2a 2a 20 53 45  45 20 50 41 47 45 20 34  |.**** SEE PAGE 4|
00003e40  35 31 20 50 72 6f 67 72  61 6d 6d 65 72 73 20 72  |51 Programmers r|
00003e50  65 66 65 72 65 6e 63 65  20 6d 61 6e 75 61 6c 20  |eference manual |
00003e60  2a 2a 2a 2a 2a 0d 14 96  da dd a4 69 63 6f 6e 66  |*****......iconf|
00003e70  6c 61 67 28 74 65 78 74  2c 73 70 72 69 74 65 2c  |lag(text,sprite,|
00003e80  62 6f 61 72 64 65 72 2c  68 63 65 6e 74 72 65 2c  |boarder,hcentre,|
00003e90  76 63 65 6e 74 72 65 2c  66 69 6c 6c 62 61 63 6b  |vcentre,fillback|
00003ea0  2c 61 6e 74 69 5f 61 6c  69 61 73 2c 6e 65 65 64  |,anti_alias,need|
00003eb0  5f 61 70 70 2c 69 6e 64  69 72 65 63 74 65 64 2c  |_app,indirected,|
00003ec0  72 6a 75 73 74 69 66 79  2c 64 6f 6e 74 5f 63 61  |rjustify,dont_ca|
00003ed0  6e 63 65 6c 5f 77 69 74  68 5f 72 69 67 68 74 5f  |ncel_with_right_|
00003ee0  62 75 74 74 6f 6e 2c 62  75 74 74 6f 6e 5f 66 6c  |button,button_fl|
00003ef0  61 67 73 2c 45 53 47 2c  69 6e 76 65 72 74 5f 73  |ags,ESG,invert_s|
00003f00  65 6c 65 63 74 65 64 2c  63 61 6e 6e 6f 74 5f 62  |elected,cannot_b|
00003f10  65 5f 73 65 6c 65 63 74  65 64 2c 66 6f 72 65 5f  |e_selected,fore_|
00003f20  67 72 6f 75 6e 64 2c 62  61 63 6b 5f 67 72 6f 75  |ground,back_grou|
00003f30  6e 64 2c 66 6f 6e 74 5f  6e 75 6d 62 65 72 29 0d  |nd,font_number).|
00003f40  14 a0 0a ea 20 66 6c 61  67 0d 14 aa 0a 66 6c 61  |.... flag....fla|
00003f50  67 3d 30 0d 14 b4 13 e7  20 74 65 78 74 20 8c 20  |g=0..... text . |
00003f60  66 6c 61 67 3d 31 0d 14  be 16 e7 20 73 70 72 69  |flag=1..... spri|
00003f70  74 65 20 8c 20 66 6c 61  67 2b 3d 32 0d 14 c8 17  |te . flag+=2....|
00003f80  e7 20 62 6f 61 72 64 65  72 20 8c 20 66 6c 61 67  |. boarder . flag|
00003f90  2b 3d 34 0d 14 d2 17 e7  20 68 63 65 6e 74 72 65  |+=4..... hcentre|
00003fa0  20 8c 20 66 6c 61 67 2b  3d 38 0d 14 dc 18 e7 20  | . flag+=8..... |
00003fb0  76 63 65 6e 74 72 65 20  8c 20 66 6c 61 67 2b 3d  |vcentre . flag+=|
00003fc0  31 36 0d 14 e6 19 e7 20  66 69 6c 6c 62 61 63 6b  |16..... fillback|
00003fd0  20 8c 20 66 6c 61 67 2b  3d 33 32 0d 14 f0 1b e7  | . flag+=32.....|
00003fe0  20 61 6e 74 69 5f 61 6c  69 61 73 20 8c 20 66 6c  | anti_alias . fl|
00003ff0  61 67 2b 3d 36 34 0d 14  fa 1b e7 20 6e 65 65 64  |ag+=64..... need|
00004000  5f 61 70 70 20 8c 20 66  6c 61 67 2b 3d 36 34 2a  |_app . flag+=64*|
00004010  32 0d 15 04 1c e7 20 69  6e 64 69 72 65 63 74 65  |2..... indirecte|
00004020  64 20 8c 20 66 6c 61 67  2b 3d 32 35 36 0d 15 0e  |d . flag+=256...|
00004030  1a e7 20 72 6a 75 73 74  69 66 79 20 8c 20 66 6c  |.. rjustify . fl|
00004040  61 67 2b 3d 35 31 32 0d  15 18 31 e7 20 64 6f 6e  |ag+=512...1. don|
00004050  74 5f 63 61 6e 63 65 6c  5f 77 69 74 68 5f 72 69  |t_cancel_with_ri|
00004060  67 68 74 5f 62 75 74 74  6f 6e 20 8c 20 66 6c 61  |ght_button . fla|
00004070  67 2b 3d 35 31 32 2a 32  0d 15 22 1a 66 6c 61 67  |g+=512*2..".flag|
00004080  2b 3d 62 75 74 74 6f 6e  5f 66 6c 61 67 73 3c 3c  |+=button_flags<<|
00004090  31 32 0d 15 2c 43 e7 20  45 53 47 3c 30 20 84 20  |12..,C. ESG<0 . |
000040a0  45 53 47 20 3e 31 35 20  8c 20 85 20 30 2c 22 45  |ESG >15 . . 0,"E|
000040b0  53 47 20 6d 75 73 74 20  62 65 20 61 20 6e 75 6d  |SG must be a num|
000040c0  62 65 72 20 62 65 74 77  65 65 6e 20 30 20 61 6e  |ber between 0 an|
000040d0  64 20 31 35 22 0d 15 36  1b e7 20 45 53 47 3e 30  |d 15"..6.. ESG>0|
000040e0  20 8c 20 66 6c 61 67 2b  3d 45 53 47 3c 3c 31 36  | . flag+=ESG<<16|
000040f0  0d 15 40 25 e7 20 69 6e  76 65 72 74 5f 73 65 6c  |..@%. invert_sel|
00004100  65 63 74 65 64 20 8c 20  66 6c 61 67 2b 3d 28 31  |ected . flag+=(1|
00004110  3c 3c 32 31 29 0d 15 4a  28 e7 20 63 61 6e 6e 6f  |<<21)..J(. canno|
00004120  74 5f 62 65 5f 73 65 6c  65 63 74 65 64 20 8c 20  |t_be_selected . |
00004130  66 6c 61 67 2b 3d 28 31  3c 3c 32 32 29 0d 15 54  |flag+=(1<<22)..T|
00004140  14 e7 20 ac 20 61 6e 74  69 5f 61 6c 69 61 73 20  |.. . anti_alias |
00004150  8c 0d 15 5e 51 e7 20 66  6f 72 65 5f 67 72 6f 75  |...^Q. fore_grou|
00004160  6e 64 20 3c 30 20 84 20  66 6f 72 65 5f 67 72 6f  |nd <0 . fore_gro|
00004170  75 6e 64 3e 31 35 20 8c  20 85 20 30 2c 22 46 6f  |und>15 . . 0,"Fo|
00004180  72 65 67 72 6f 75 6e 64  20 6d 75 73 74 20 62 65  |reground must be|
00004190  20 62 65 74 77 65 65 6e  20 30 20 61 6e 64 20 31  | between 0 and 1|
000041a0  35 22 0d 15 68 51 e7 20  62 61 63 6b 5f 67 72 6f  |5"..hQ. back_gro|
000041b0  75 6e 64 20 3c 30 20 84  20 62 61 63 6b 5f 67 72  |und <0 . back_gr|
000041c0  6f 75 6e 64 3e 31 35 20  8c 20 85 20 30 2c 22 42  |ound>15 . . 0,"B|
000041d0  61 63 6b 67 72 6f 75 6e  64 20 6d 75 73 74 20 62  |ackground must b|
000041e0  65 20 62 65 74 77 65 65  6e 20 30 20 61 6e 64 20  |e between 0 and |
000041f0  31 35 22 0d 15 72 1b 66  6c 61 67 2b 3d 28 66 6f  |15"..r.flag+=(fo|
00004200  72 65 5f 67 72 6f 75 6e  64 3c 3c 32 34 29 0d 15  |re_ground<<24)..|
00004210  7c 1b 66 6c 61 67 2b 3d  28 62 61 63 6b 5f 67 72  ||.flag+=(back_gr|
00004220  6f 75 6e 64 3c 3c 32 38  29 0d 15 86 05 cc 0d 15  |ound<<28).......|
00004230  90 1b 66 6c 61 67 2b 3d  28 66 6f 6e 74 5f 6e 75  |..flag+=(font_nu|
00004240  6d 62 65 72 3c 3c 32 34  29 0d 15 9a 05 cd 0d 15  |mber<<24).......|
00004250  a4 09 3d 66 6c 61 67 0d  15 ae 37 dd a4 74 65 78  |..=flag...7..tex|
00004260  74 5f 69 63 6f 6e 28 77  69 6e 64 6f 77 2c 6d 69  |t_icon(window,mi|
00004270  6e 78 2c 6d 69 6e 79 2c  6d 61 78 78 2c 6d 61 78  |nx,miny,maxx,max|
00004280  79 2c 66 6c 61 67 73 2c  74 65 78 74 24 29 0d 15  |y,flags,text$)..|
00004290  b8 12 62 6c 6f 63 6b 21  30 3d 77 69 6e 64 6f 77  |..block!0=window|
000042a0  0d 15 c2 1d 62 6c 6f 63  6b 21 34 3d 6d 69 6e 78  |....block!4=minx|
000042b0  3a 62 6c 6f 63 6b 21 38  3d 6d 69 6e 79 0d 15 cc  |:block!8=miny...|
000042c0  1f 62 6c 6f 63 6b 21 31  32 3d 6d 61 78 78 3a 62  |.block!12=maxx:b|
000042d0  6c 6f 63 6b 21 31 36 3d  6d 61 78 79 0d 15 d6 15  |lock!16=maxy....|
000042e0  e7 20 28 66 6c 61 67 73  20 80 20 32 29 3d 32 20  |. (flags . 2)=2 |
000042f0  8c 0d 15 e0 14 f4 20 49  54 20 49 53 20 41 20 53  |...... IT IS A S|
00004300  50 52 49 54 45 0d 15 ea  15 24 28 62 6c 6f 63 6b  |PRITE....$(block|
00004310  2b 32 34 29 3d 74 65 78  74 24 0d 15 f4 12 62 6c  |+24)=text$....bl|
00004320  6f 63 6b 21 32 30 3d 66  6c 61 67 73 0d 15 fe 05  |ock!20=flags....|
00004330  cc 0d 16 08 34 e7 20 a9  28 74 65 78 74 24 29 3e  |....4. .(text$)>|
00004340  31 31 20 8c 20 66 6c 61  67 73 3d 66 6c 61 67 73  |11 . flags=flags|
00004350  20 84 20 31 3c 3c 38 3a  20 f4 20 69 6e 64 69 72  | . 1<<8: . indir|
00004360  65 63 74 65 64 0d 16 12  12 62 6c 6f 63 6b 21 32  |ected....block!2|
00004370  30 3d 66 6c 61 67 73 0d  16 1c 13 e7 20 a9 28 74  |0=flags..... .(t|
00004380  65 78 74 24 29 3e 31 31  20 8c 0d 16 26 4c e7 20  |ext$)>11 ...&L. |
00004390  74 65 78 74 70 74 72 2b  a9 28 74 65 78 74 24 29  |textptr+.(text$)|
000043a0  3e 6d 61 78 74 65 78 74  20 8c 20 f2 6d 61 6b 65  |>maxtext . .make|
000043b0  65 72 72 6f 72 28 22 54  6f 6f 20 6d 75 63 68 20  |error("Too much |
000043c0  74 65 78 74 20 66 6f 72  20 6d 65 6e 75 20 69 74  |text for menu it|
000043d0  65 6d 22 2c b9 29 0d 16  30 22 24 28 74 65 78 74  |em",.)..0"$(text|
000043e0  62 6c 6f 63 6b 2b 74 65  78 74 70 74 72 29 3d 74  |block+textptr)=t|
000043f0  65 78 74 24 2b bd 31 33  0d 16 3a 1e 62 6c 6f 63  |ext$+.13..:.bloc|
00004400  6b 21 32 34 3d 74 65 78  74 62 6c 6f 63 6b 2b 74  |k!24=textblock+t|
00004410  65 78 74 70 74 72 0d 16  44 19 74 65 78 74 70 74  |extptr..D.textpt|
00004420  72 2b 3d 28 a9 28 74 65  78 74 24 29 2b 31 29 0d  |r+=(.(text$)+1).|
00004430  16 4e 0f 62 6c 6f 63 6b  21 32 38 3d 2d 31 0d 16  |.N.block!28=-1..|
00004440  58 17 62 6c 6f 63 6b 21  33 32 3d a9 28 74 65 78  |X.block!32=.(tex|
00004450  74 24 29 2b 31 0d 16 62  05 cc 0d 16 6c 1b 24 28  |t$)+1..b....l.$(|
00004460  62 6c 6f 63 6b 2b 32 34  29 3d 28 74 65 78 74 24  |block+24)=(text$|
00004470  2b bd 31 33 29 0d 16 76  05 cd 0d 16 80 05 cd 0d  |+.13)..v........|
00004480  16 8a 26 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..&.. "Wimp_Crea|
00004490  74 65 49 63 6f 6e 22 2c  2c 62 6c 6f 63 6b 20 b8  |teIcon",,block .|
000044a0  20 69 63 6f 6e 0d 16 94  09 3d 69 63 6f 6e 0d 16  | icon....=icon..|
000044b0  9e 0b f4 20 77 69 64 74  68 0d 16 a8 0b f4 20 74  |... width..... t|
000044c0  69 74 6c 65 0d 16 b2 0e  f4 20 23 20 53 68 61 64  |itle..... # Shad|
000044d0  65 64 0d 16 bc 0c f4 20  a4 20 74 69 63 6b 0d 16  |ed..... . tick..|
000044e0  c6 13 f4 20 3a 20 64 6f  74 74 65 64 20 6c 69 6e  |... : dotted lin|
000044f0  65 0d 16 d0 10 f4 20 40  20 77 72 69 74 61 62 6c  |e..... @ writabl|
00004500  65 0d 16 da 0f f4 20 5c  20 6e 65 77 20 63 6f 6c  |e..... \ new col|
00004510  0d 16 e4 11 f4 20 5b 20  73 75 62 6d 65 6e 75 20  |..... [ submenu |
00004520  5d 0d 16 ee 25 dd a4 63  72 65 61 74 65 5f 6d 65  |]...%..create_me|
00004530  6e 75 28 63 72 65 61 74  65 6d 65 6e 75 24 2c 6c  |nu(createmenu$,l|
00004540  65 76 65 6c 25 29 0d 16  f8 59 ea 20 6e 65 77 74  |evel%)...Y. newt|
00004550  65 78 74 24 2c 74 69 74  6c 65 24 2c 70 74 72 25  |ext$,title$,ptr%|
00004560  2c 73 68 61 64 65 25 2c  74 69 63 6b 25 2c 64 6f  |,shade%,tick%,do|
00004570  74 74 65 64 25 2c 66 6c  61 67 63 6f 6c 25 2c 73  |tted%,flagcol%,s|
00004580  75 62 6d 65 6e 75 25 2c  77 72 69 74 61 62 6c 65  |ubmenu%,writable|
00004590  25 2c 74 65 78 74 24 2c  6c 6f 63 61 6c 6d 62 0d  |%,text$,localmb.|
000045a0  17 02 2e e7 20 6c 65 76  65 6c 25 3d 30 20 8c 20  |.... level%=0 . |
000045b0  6d 62 3d 6d 65 6e 75 62  6c 6f 63 6b 20 8b 20 6d  |mb=menublock . m|
000045c0  62 2b 3d 28 32 38 2b 65  78 74 72 61 29 0d 17 0c  |b+=(28+extra)...|
000045d0  0e 6c 6f 63 61 6c 6d 62  3d 6d 62 0d 17 16 1d 65  |.localmb=mb....e|
000045e0  78 74 72 61 3d a4 65 78  74 72 61 28 63 72 65 61  |xtra=.extra(crea|
000045f0  74 65 6d 65 6e 75 24 29  0d 17 20 1d 77 69 64 74  |temenu$).. .widt|
00004600  68 25 3d bb 28 c0 63 72  65 61 74 65 6d 65 6e 75  |h%=.(.createmenu|
00004610  24 2c 32 29 29 0d 17 2a  15 6d 62 21 31 36 3d 77  |$,2))..*.mb!16=w|
00004620  69 64 74 68 25 2a 31 36  2b 34 0d 17 34 19 74 65  |idth%*16+4..4.te|
00004630  78 74 24 3d c1 63 72 65  61 74 65 6d 65 6e 75 24  |xt$=.createmenu$|
00004640  2c 33 29 0d 17 3e 20 74  69 74 6c 65 24 3d c0 74  |,3)..> title$=.t|
00004650  65 78 74 24 2c a7 74 65  78 74 24 2c 22 7c 22 29  |ext$,.text$,"|")|
00004660  2d 31 29 0d 17 48 27 e7  20 c2 74 69 74 6c 65 24  |-1)..H'. .title$|
00004670  2c 31 29 3d 22 24 22 20  8c 20 74 69 74 6c 65 24  |,1)="$" . title$|
00004680  3d a0 28 74 69 74 6c 65  24 29 0d 17 52 1f 74 65  |=.(title$)..R.te|
00004690  78 74 24 3d c1 74 65 78  74 24 2c a7 74 65 78 74  |xt$=.text$,.text|
000046a0  24 2c 22 7c 22 29 2b 31  29 0d 17 5c 13 24 6d 62  |$,"|")+1)..\.$mb|
000046b0  3d c0 74 69 74 6c 65 24  2c 31 31 29 0d 17 66 1e  |=.title$,11)..f.|
000046c0  6d 62 3f 31 32 3d 37 3a  f4 20 74 69 74 6c 65 20  |mb?12=7:. title |
000046d0  66 6f 72 65 67 72 6f 75  6e 64 0d 17 70 1e 6d 62  |foreground..p.mb|
000046e0  3f 31 33 3d 32 3a f4 20  74 69 74 6c 65 20 62 61  |?13=2:. title ba|
000046f0  63 6b 67 72 6f 75 6e 64  0d 17 7a 1d 6d 62 3f 31  |ckground..z.mb?1|
00004700  34 3d 37 3a f4 20 6d 65  6e 75 20 66 6f 72 65 67  |4=7:. menu foreg|
00004710  72 6f 75 6e 64 0d 17 84  1d 6d 62 3f 31 35 3d 30  |round....mb?15=0|
00004720  3a f4 20 6d 65 6e 75 20  62 61 63 6b 67 72 6f 75  |:. menu backgrou|
00004730  6e 64 0d 17 8e 0c 62 61  72 63 6f 6c 3d 30 0d 17  |nd....barcol=0..|
00004740  98 25 6d 62 21 32 30 3d  33 32 2b 38 3a f4 20 48  |.%mb!20=32+8:. H|
00004750  65 69 67 68 74 20 6f 66  20 6d 65 6e 75 20 69 74  |eight of menu it|
00004760  65 6d 73 0d 17 a2 1f 6d  62 21 32 34 3d 38 3a f4  |ems....mb!24=8:.|
00004770  20 67 61 70 20 62 65 74  77 65 65 6e 20 69 74 65  | gap between ite|
00004780  6d 73 0d 17 ac 26 e7 20  c2 74 65 78 74 24 2c 31  |ms...&. .text$,1|
00004790  29 3c 3e 22 7c 22 20 8c  20 74 65 78 74 24 3d 74  |)<>"|" . text$=t|
000047a0  65 78 74 24 2b 22 7c 22  0d 17 b6 0e 70 74 72 25  |ext$+"|"....ptr%|
000047b0  3d 6d 62 2b 32 38 0d 17  c0 05 f5 0d 17 ca 2a 73  |=mb+28........*s|
000047c0  68 61 64 65 25 3d 30 3a  74 69 63 6b 25 3d 30 3a  |hade%=0:tick%=0:|
000047d0  64 6f 74 74 65 64 25 3d  30 3a 77 72 69 74 61 62  |dotted%=0:writab|
000047e0  6c 65 25 3d 30 0d 17 d4  16 66 6c 61 67 63 6f 6c  |le%=0....flagcol|
000047f0  25 3d 37 3a f4 20 62 6c  61 63 6b 0d 17 de 0f 73  |%=7:. black....s|
00004800  75 62 6d 65 6e 75 25 3d  2d 31 0d 17 e8 34 e7 20  |ubmenu%=-1...4. |
00004810  c0 74 65 78 74 24 2c 31  29 3d 22 23 22 20 8c 20  |.text$,1)="#" . |
00004820  73 68 61 64 65 25 3d 26  34 30 30 30 30 30 3a 74  |shade%=&400000:t|
00004830  65 78 74 24 3d c1 74 65  78 74 24 2c 32 29 0d 17  |ext$=.text$,2)..|
00004840  f2 2d e7 20 c0 74 65 78  74 24 2c 31 29 3d 22 a4  |.-. .text$,1)=".|
00004850  22 20 8c 20 74 69 63 6b  25 3d 31 3a 74 65 78 74  |" . tick%=1:text|
00004860  24 3d c1 74 65 78 74 24  2c 32 29 0d 17 fc 2f e7  |$=.text$,2).../.|
00004870  20 c0 74 65 78 74 24 2c  31 29 3d 22 3a 22 20 8c  | .text$,1)=":" .|
00004880  20 64 6f 74 74 65 64 25  3d 32 3a 74 65 78 74 24  | dotted%=2:text$|
00004890  3d c1 74 65 78 74 24 2c  32 29 0d 18 06 31 e7 20  |=.text$,2)...1. |
000048a0  c0 74 65 78 74 24 2c 31  29 3d 22 40 22 20 8c 20  |.text$,1)="@" . |
000048b0  77 72 69 74 61 62 6c 65  25 3d 34 3a 74 65 78 74  |writable%=4:text|
000048c0  24 3d c1 74 65 78 74 24  2c 32 29 0d 18 10 41 e7  |$=.text$,2)...A.|
000048d0  20 c0 74 65 78 74 24 2c  31 29 3d 22 5c 22 20 8c  | .text$,1)="\" .|
000048e0  20 66 6c 61 67 63 6f 6c  25 3d a0 28 22 26 22 2b  | flagcol%=.("&"+|
000048f0  c1 74 65 78 74 24 2c 32  2c 31 29 29 3a 74 65 78  |.text$,2,1)):tex|
00004900  74 24 3d c1 74 65 78 74  24 2c 33 29 0d 18 1a 15  |t$=.text$,3)....|
00004910  e7 20 c0 74 65 78 74 24  2c 31 29 3d 22 5b 22 20  |. .text$,1)="[" |
00004920  8c 0d 18 24 13 74 65 78  74 24 3d c1 74 65 78 74  |...$.text$=.text|
00004930  24 2c 32 29 0d 18 2e 24  e7 20 c1 74 65 78 74 24  |$,2)...$. .text$|
00004940  2c a7 74 65 78 74 24 2c  22 5d 22 29 2d 31 2c 31  |,.text$,"]")-1,1|
00004950  29 3c 3e 22 24 22 20 8c  0d 18 38 25 73 75 62 6d  |)<>"$" ...8%subm|
00004960  65 6e 75 25 3d a0 28 c0  74 65 78 74 24 2c a7 74  |enu%=.(.text$,.t|
00004970  65 78 74 24 2c 22 5d 22  29 2d 31 29 29 0d 18 42  |ext$,"]")-1))..B|
00004980  1f 74 65 78 74 24 3d c1  74 65 78 74 24 2c a7 74  |.text$=.text$,.t|
00004990  65 78 74 24 2c 22 5d 22  29 2b 31 29 0d 18 4c 05  |ext$,"]")+1)..L.|
000049a0  cc 0d 18 56 25 6e 65 77  74 65 78 74 24 3d a0 28  |...V%newtext$=.(|
000049b0  c0 74 65 78 74 24 2c a7  74 65 78 74 24 2c 22 5d  |.text$,.text$,"]|
000049c0  22 29 2d 31 29 29 0d 18  60 1f 74 65 78 74 24 3d  |")-1))..`.text$=|
000049d0  c1 74 65 78 74 24 2c a7  74 65 78 74 24 2c 22 5d  |.text$,.text$,"]|
000049e0  22 29 2b 31 29 0d 18 6a  2c 73 75 62 6d 65 6e 75  |")+1)..j,submenu|
000049f0  25 3d a4 63 72 65 61 74  65 5f 6d 65 6e 75 28 6e  |%=.create_menu(n|
00004a00  65 77 74 65 78 74 24 2c  6c 65 76 65 6c 25 2b 31  |ewtext$,level%+1|
00004a10  29 0d 18 74 05 cd 0d 18  7e 05 cd 0d 18 88 11 e7  |)..t....~.......|
00004a20  20 77 72 69 74 61 62 6c  65 25 20 8c 0d 18 92 12  | writable% .....|
00004a30  69 25 3d a7 74 65 78 74  24 2c 22 2c 22 29 0d 18  |i%=.text$,",")..|
00004a40  9c 1b 70 74 72 25 21 31  32 3d a0 28 c0 74 65 78  |..ptr%!12=.(.tex|
00004a50  74 24 2c 69 25 2d 31 29  29 0d 18 a6 16 74 65 78  |t$,i%-1))....tex|
00004a60  74 24 3d c1 74 65 78 74  24 2c 69 25 2b 31 29 0d  |t$=.text$,i%+1).|
00004a70  18 b0 26 70 74 72 25 21  32 30 3d a0 28 c0 74 65  |..&ptr%!20=.(.te|
00004a80  78 74 24 2c a7 74 65 78  74 24 2c 22 7c 22 29 2d  |xt$,.text$,"|")-|
00004a90  31 29 29 2b 31 0d 18 ba  0e 70 74 72 25 21 31 36  |1))+1....ptr%!16|
00004aa0  3d 2d 31 0d 18 c4 05 cc  0d 18 ce 23 54 78 54 24  |=-1........#TxT$|
00004ab0  3d c0 c0 74 65 78 74 24  2c a7 74 65 78 74 24 2c  |=..text$,.text$,|
00004ac0  22 7c 22 29 2d 31 29 2c  31 31 29 0d 18 d8 23 e7  |"|")-1),11)...#.|
00004ad0  20 c2 54 78 54 24 2c 31  29 3d 22 24 22 20 8c 20  | .TxT$,1)="$" . |
00004ae0  54 78 54 24 3d a0 28 22  54 78 54 24 22 29 0d 18  |TxT$=.("TxT$")..|
00004af0  e2 12 54 78 54 24 3d c0  54 78 54 24 2c 31 32 29  |..TxT$=.TxT$,12)|
00004b00  0d 18 ec 3e 24 28 70 74  72 25 2b 31 32 29 3d 54  |...>$(ptr%+12)=T|
00004b10  78 54 24 3a f4 4c 45 46  54 24 28 4c 45 46 54 24  |xT$:.LEFT$(LEFT$|
00004b20  28 74 65 78 74 24 2c 49  4e 53 54 52 28 74 65 78  |(text$,INSTR(tex|
00004b30  74 24 2c 22 7c 22 29 2d  31 29 2c 31 31 29 0d 18  |t$,"|")-1),11)..|
00004b40  f6 05 cd 0d 19 00 1f 74  65 78 74 24 3d c1 74 65  |.......text$=.te|
00004b50  78 74 24 2c a7 74 65 78  74 24 2c 22 7c 22 29 2b  |xt$,.text$,"|")+|
00004b60  31 29 0d 19 0a 3b 70 74  72 25 21 30 3d 74 69 63  |1)...;ptr%!0=tic|
00004b70  6b 25 20 84 20 64 6f 74  74 65 64 25 20 84 20 77  |k% . dotted% . w|
00004b80  72 69 74 61 62 6c 65 25  20 84 20 28 26 38 30 20  |ritable% . (&80 |
00004b90  80 20 28 74 65 78 74 24  3d 22 22 29 29 0d 19 14  |. (text$=""))...|
00004ba0  13 70 74 72 25 21 34 3d  73 75 62 6d 65 6e 75 25  |.ptr%!4=submenu%|
00004bb0  0d 19 1e 46 70 74 72 25  21 38 3d 73 68 61 64 65  |...Fptr%!8=shade|
00004bc0  25 20 84 20 77 72 69 74  61 62 6c 65 25 3c 3c 36  |% . writable%<<6|
00004bd0  20 84 20 26 30 31 30 30  32 31 20 84 20 62 61 72  | . &010021 . bar|
00004be0  63 6f 6c 3c 3c 32 38 20  84 20 66 6c 61 67 63 6f  |col<<28 . flagco|
00004bf0  6c 25 3c 3c 32 34 0d 19  28 42 e7 20 77 72 69 74  |l%<<24..(B. writ|
00004c00  61 62 6c 65 25 3d 34 20  8c 20 70 74 72 25 21 38  |able%=4 . ptr%!8|
00004c10  3d 26 30 37 30 30 30 30  31 39 20 84 20 31 3c 3c  |=&07000019 . 1<<|
00004c20  38 3a f4 20 63 65 6e 74  72 65 73 20 65 6e 74 65  |8:. centres ente|
00004c30  72 65 64 20 74 65 78 74  0d 19 32 0c 70 74 72 25  |red text..2.ptr%|
00004c40  2b 3d 32 34 0d 19 3c 0e  fd 20 74 65 78 74 24 3d  |+=24..<.. text$=|
00004c50  22 22 0d 19 46 41 e7 20  6c 65 76 65 6c 25 3d 30  |""..FA. level%=0|
00004c60  20 8c 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  | . .. "Wimp_Crea|
00004c70  74 65 4d 65 6e 75 22 2c  30 2c 6d 65 6e 75 62 6c  |teMenu",0,menubl|
00004c80  6f 63 6b 2c 6d 6f 75 73  65 78 25 2c 6d 6f 75 73  |ock,mousex%,mous|
00004c90  65 79 25 0d 19 50 0c 3d  6c 6f 63 61 6c 6d 62 0d  |ey%..P.=localmb.|
00004ca0  19 5a 10 dd a4 6d 61 78  28 61 25 2c 62 25 29 0d  |.Z...max(a%,b%).|
00004cb0  19 64 17 e7 20 61 25 3e  62 25 20 8c 20 3d 61 25  |.d.. a%>b% . =a%|
00004cc0  20 8b 20 3d 62 25 0d 19  6e 13 dd a4 65 78 74 72  | . =b%..n...extr|
00004cd0  61 28 65 78 74 72 61 24  29 0d 19 78 29 e7 20 c2  |a(extra$)..x). .|
00004ce0  65 78 74 72 61 24 2c 31  29 3c 3e 22 7c 22 20 8c  |extra$,1)<>"|" .|
00004cf0  20 65 78 74 72 61 24 3d  65 78 74 72 61 24 2b 22  | extra$=extra$+"|
00004d00  7c 22 0d 19 82 0b 65 78  74 72 61 3d 30 0d 19 8c  ||"....extra=0...|
00004d10  05 f5 0d 19 96 22 65 78  74 72 61 24 3d c1 65 78  |....."extra$=.ex|
00004d20  74 72 61 24 2c a7 65 78  74 72 61 24 2c 22 7c 22  |tra$,.extra$,"|"|
00004d30  29 2b 31 29 0d 19 a0 0c  65 78 74 72 61 2b 3d 31  |)+1)....extra+=1|
00004d40  0d 19 aa 11 fd 20 a9 28  65 78 74 72 61 24 29 3c  |..... .(extra$)<|
00004d50  32 0d 19 b4 0d 3d 65 78  74 72 61 2a 32 34 0d 19  |2....=extra*24..|
00004d60  be 3b f4 20 46 75 6e 63  74 69 6f 6e 20 74 6f 20  |.;. Function to |
00004d70  63 68 65 63 6b 20 74 68  61 74 20 61 20 73 70 72  |check that a spr|
00004d80  69 74 65 20 69 73 20 69  6e 20 74 68 65 20 73 70  |ite is in the sp|
00004d90  72 69 74 65 20 70 6f 6f  6c 0d 19 c8 21 dd a4 63  |rite pool...!..c|
00004da0  68 65 63 6b 73 70 72 69  74 65 70 6f 6f 6c 66 6f  |heckspritepoolfo|
00004db0  72 28 73 70 72 69 74 65  24 29 0d 19 d2 11 ea 20  |r(sprite$)..... |
00004dc0  6c 6f 6f 70 2c 73 70 24  2c 63 25 0d 19 dc 0a 73  |loop,sp$,c%....s|
00004dd0  70 24 3d 22 22 0d 19 e6  19 e3 20 6c 6f 6f 70 3d  |p$=""..... loop=|
00004de0  31 20 b8 20 a9 28 73 70  72 69 74 65 24 29 0d 19  |1 . .(sprite$)..|
00004df0  f0 1a 63 25 3d 97 28 c1  73 70 72 69 74 65 24 2c  |..c%=.(.sprite$,|
00004e00  6c 6f 6f 70 2c 31 29 29  0d 19 fa 1c e7 20 63 25  |loop,1))..... c%|
00004e10  3e 36 34 20 80 20 63 25  3c 39 31 20 8c 20 63 25  |>64 . c%<91 . c%|
00004e20  2b 3d 33 32 0d 1a 04 0e  73 70 24 2b 3d bd 28 63  |+=32....sp$+=.(c|
00004e30  25 29 0d 1a 0e 05 ed 0d  1a 18 0f 73 70 72 69 74  |%).........sprit|
00004e40  65 24 3d 73 70 24 0d 1a  22 35 c8 99 20 22 57 69  |e$=sp$.."5.. "Wi|
00004e50  6d 70 5f 42 61 73 65 4f  66 53 70 72 69 74 65 73  |mp_BaseOfSprites|
00004e60  22 20 b8 20 72 6f 6d 73  70 72 69 74 65 73 25 2c  |" . romsprites%,|
00004e70  72 6d 61 73 70 72 69 74  65 73 25 0d 1a 2c 20 73  |rmasprites%.., s|
00004e80  75 63 63 65 73 73 3d a4  73 65 61 72 63 68 28 72  |uccess=.search(r|
00004e90  6f 6d 73 70 72 69 74 65  73 25 29 0d 1a 36 12 e7  |omsprites%)..6..|
00004ea0  20 73 75 63 63 65 73 73  20 8c 20 3d b9 0d 1a 40  | success . =...@|
00004eb0  19 3d a4 73 65 61 72 63  68 28 72 6d 61 73 70 72  |.=.search(rmaspr|
00004ec0  69 74 65 73 25 29 0d 1a  4a 10 dd a4 73 65 61 72  |ites%)..J...sear|
00004ed0  63 68 28 62 25 29 0d 1a  54 15 ea 20 73 25 2c 6e  |ch(b%)..T.. s%,n|
00004ee0  75 6d 62 65 72 2c 78 24  2c 78 25 0d 1a 5e 23 73  |umber,x$,x%..^#s|
00004ef0  25 3d 62 25 2b 62 25 21  38 3a 20 f4 20 66 69 6e  |%=b%+b%!8: . fin|
00004f00  64 20 66 69 72 73 74 20  73 70 72 69 74 65 0d 1a  |d first sprite..|
00004f10  68 23 6e 75 6d 62 65 72  3d 62 25 21 34 3a f4 20  |h#number=b%!4:. |
00004f20  6e 75 6d 62 65 72 20 6f  66 20 73 70 72 69 74 65  |number of sprite|
00004f30  73 0d 1a 72 0d 73 75 63  63 65 73 73 3d a3 0d 1a  |s..r.success=...|
00004f40  7c 0f c8 95 20 6e 75 6d  62 65 72 3e 30 0d 1a 86  ||... number>0...|
00004f50  09 78 24 3d 22 22 0d 1a  90 0d 78 25 3d 28 73 25  |.x$=""....x%=(s%|
00004f60  2b 34 29 0d 1a 9a 0c c8  95 20 3f 78 25 3e 30 0d  |+4)...... ?x%>0.|
00004f70  1a a4 0a 63 25 3d 3f 78  25 0d 1a ae 13 78 24 2b  |...c%=?x%....x$+|
00004f80  3d bd 28 63 25 29 3a 78  25 2b 3d 31 0d 1a b8 05  |=.(c%):x%+=1....|
00004f90  ce 0d 1a c2 1c e7 20 78  24 3d 73 70 72 69 74 65  |...... x$=sprite|
00004fa0  24 20 8c 20 73 75 63 63  65 73 73 3d b9 0d 1a cc  |$ . success=....|
00004fb0  0c 73 25 2b 3d 73 25 21  30 0d 1a d6 0d 6e 75 6d  |.s%+=s%!0....num|
00004fc0  62 65 72 2d 3d 31 0d 1a  e0 05 ce 0d 1a ea 0c 3d  |ber-=1.........=|
00004fd0  73 75 63 63 65 73 73 0d  ff                       |success..|
00004fd9