� ++----------------------++
 � || GraphPlus (RunImage) ||
 � || by Pete Goodliffe    ||
( � || � Trax Software 1995 ||
2 � || v3.08 10-Jan-95      ||
< � ++----------------------++
F:
P(� �0,"Startup error; "+�$+" "+�~(�)
Zș"Hourglass_On"
d3�init_init:�init_prog:�init_wimp:�init_template
n
� �error
xș"Hourglass_Off"
��init_firstwindow
�mask%=1
�:
��
�$ș"Wimp_Poll",mask%,poll%�event%
�
Ȏevent%�
� �1 :�window_requestRedraw
� �2 :�window_requestOpen
� �3 :�window_requestClose
� �6 :�mouse_click
� �7 :�drag_userdragbox
� �8 :�keypressed
� �9 :�menu_selection

 �17:�message_process

 �18:�message_process

�

"��

,:

6&� ********** Initialise **********

@:

J��init_init

T+�block%&1000,poll%256,mess%256,data%100

^�

h:

r��init_prog

|graph_window%=�

�:

�#� font_list%10280,font_path%256

�font_counter%=0:font_c%=0

�9� file_temp%256:$file_temp%="Template":file_status%=0

�-� file_graph%256:$file_graph%="GraphFile"

�1� group_map%28,group_data%251,pie_palette% 64

�flag_fiddled%=�

�:

�� Graph info

�graph_xdiv=1

�graph_ydiv=1

�graph_xsdiv=.5

�graph_ysdiv=.5
0graph_title%=1:graph_xaxis%=1:graph_yaxis%=1
%�s_title%40,s_xaxis%40,s_yaxis%40
7graph_xg%=1:graph_yg%=2:graph_xcal%=1:graph_ycal%=1
&(graph_exp%=1:graph_es%=1:graph_ef%=1
0� text% 40
:text_titlec=0
Dgraph_titlec=0
Ntext_titlex=20
Xtext_titley=25
btext_axisc=0
lgraph_axisc=0
vtext_axisx=10
�text_axisy=10
�text_keyc=0
�graph_keyc=0
�text_keyx=10
�text_keyy=10
�graph_best%=2
��data_back%3,graph_back%3
�H?graph_back%=0:graph_back%?1=&80:graph_back%?2=&80:graph_back%?3=&F0
�!data_back%=!graph_back%
�graph_box%=�
�graph_key%=�
�graph_3D%=�
�graph_outline%=0
graph_groupsize=0
graph_barwidth=0
graph_barsize=0
 graph_bartype%=0
*graph_barmargin%=0
4"graph_type%=1:handle_format%=0
>graph_xmin=0:graph_ymin=0
Hgraph_xmax=0:graph_ymax=0
R!graph_xscale=0:graph_yscale=0
\graph_overlay%=�
f:
p� Data file info
zdata_length%=9
�data_width%=4
�data_xmin=0
�data_ymin=0
�data_xmax=7
�data_ymax=6
�:
�update_faster%=�
��menu_fontlist%6172
��font_dothebusiness
��
�:
���init_wimp
�menu_current%=0
@ș"Wimp_Initialise",200,&4B534154,"GraphPlus"�version%,task%
�!block%=-1:block%!4=0:block%!8=0:block%!12=68:block%!16=68:block%!20=&301A:$(block%+24)="!GraphPlus":ș"Wimp_CreateIcon",,block%�I%
Y$block%="<GraphPlus$Dir>.Sprites":ș"OS_ReadModeVariable",-1,5�,,N:�N<2:$block%+="22"
N=�$block%
$
M=�#N:�#N
."� sprites% M+20:!sprites%=M+20
8*ș"OS_SpriteOp",10+256,sprites%,block%
B�init_windows:�init_menus
LAș"XOS_SWINumberFromString",,"DragASprite_Start" � dstart%; N
V�(N � 1) dstart%=0
`�
j:
t:
~��init_windows
��� ind_inf%139,ind_dp%260,ind_sa%269,ind_sg%269,ind_fnt%173,ind_map%99,ind_lab%69,ind_bck%91,ind_grp%289,ind_frm%92,ind_pn%995,ind_upd%86
�@$block%="<Obey$Dir>.Templates":ș"Wimp_OpenTemplate",,block%
�$poll%="Info"
�Bș"Wimp_LoadTemplate",,block%,ind_inf%,ind_inf%+139,-1,poll%,0
�block%!64=sprites%
�.ș"Wimp_CreateWindow",,block%�handle_info%
�$poll%="Group"
�Bș"Wimp_LoadTemplate",,block%,ind_grp%,ind_grp%+289,-1,poll%,0
�block%!64=sprites%
�/ș"Wimp_CreateWindow",,block%�handle_group%
�$poll%="Format"
�Aș"Wimp_LoadTemplate",,block%,ind_frm%,ind_frm%+92,-1,poll%,0
block%!64=sprites%

0ș"Wimp_CreateWindow",,block%�handle_format%
$poll%="Pane"
@ș"Wimp_LoadTemplate",,block%,ind_pn%,ind_pn%+995,-1,poll%,0
(block%!64=sprites%
2.ș"Wimp_CreateWindow",,block%�handle_pane%
<$poll%="Map"
FAș"Wimp_LoadTemplate",,block%,ind_map%,ind_map%+99,-1,poll%,0
Pblock%!64=sprites%
Z-ș"Wimp_CreateWindow",,block%�handle_map%
d$poll%="Back"
nAș"Wimp_LoadTemplate",,block%,ind_bck%,ind_bck%+91,-1,poll%,0
xblock%!64=sprites%
�.ș"Wimp_CreateWindow",,block%�handle_back%
�$poll%="Font"
�Bș"Wimp_LoadTemplate",,block%,ind_fnt%,ind_fnt%+173,-1,poll%,0
�block%!64=sprites%
�.ș"Wimp_CreateWindow",,block%�handle_font%
�$poll%="SaveAs"
�@ș"Wimp_LoadTemplate",,block%,ind_sa%,ind_sa%+269,-1,poll%,0
�.ș"Wimp_CreateWindow",,block%�handle_save%
�$poll%="SaveGraph"
�@ș"Wimp_LoadTemplate",,block%,ind_sg%,ind_sg%+269,-1,poll%,0
�0ș"Wimp_CreateWindow",,block%�handle_create%
�$poll%="Label"
�Aș"Wimp_LoadTemplate",,block%,ind_lab%,ind_lab%+69,-1,poll%,0
block%!64=sprites%
/ș"Wimp_CreateWindow",,block%�handle_label%
$poll%="Datapath"
"@ș"Wimp_LoadTemplate",,block%,ind_dp%,ind_dp%+260,-1,poll%,0
,2ș"Wimp_CreateWindow",,block%�handle_datapath%
6$poll%="Update"
@Aș"Wimp_LoadTemplate",,block%,ind_upd%,ind_upd%+86,-1,poll%,0
Jblock%!64=sprites%
T0ș"Wimp_CreateWindow",,block%�handle_update%
^ș"Wimp_CloseTemplate"
h�
r:
|���init_menus:�menu_bar%244,menu_win%196,menu_style%196,menu_groups%76,menu_group%172,menu_map%196,menu_best%76,menu_font%100,menu_file%100,menu_palette%412,menu_task%48
�$menu_bar%="GraphPlus"
�omenu_bar%?12=7:menu_bar%?13=2:menu_bar%?14=7:menu_bar%?15=0:menu_bar%!16=124:menu_bar%!20=44:menu_bar%!24=0
�=�menu_additem(0,menu_bar%,0,handle_info%,&7009021,"Info")
�=�menu_additem(1,menu_bar%,0,menu_style%,&7009021,"Style")
�?�menu_additem(2,menu_bar%,0,menu_groups%,&7009021,"Groups")
�;�menu_additem(3,menu_bar%,2,menu_file%,&7009021,"File")
�3�menu_additem(4,menu_bar%,1,-1,&7009021,"Line")
�2�menu_additem(5,menu_bar%,0,-1,&7009021,"Bar")
�2�menu_additem(6,menu_bar%,0,-1,&7009021,"Pie")
�4�menu_additem(7,menu_bar%,2,-1,&7009021,"Table")
�5�menu_additem(8,menu_bar%,128,-1,&7009021,"Quit")
�$menu_win%="Format"
�omenu_win%?12=7:menu_win%?13=2:menu_win%?14=7:menu_win%?15=0:menu_win%!16=170:menu_win%!20=44:menu_win%!24=0
=�menu_additem(0,menu_win%,0,menu_style%,&7009021,"Style")
?�menu_additem(1,menu_win%,0,menu_groups%,&7009021,"Groups")
;�menu_additem(2,menu_win%,2,menu_file%,&7009021,"File")
&3�menu_additem(3,menu_win%,1,-1,&7009021,"Line")
02�menu_additem(4,menu_win%,0,-1,&7009021,"Bar")
:2�menu_additem(5,menu_win%,0,-1,&7009021,"Pie")
D6�menu_additem(6,menu_win%,128,-1,&7009021,"Table")
N$menu_style%="Style"
X}menu_style%?12=7:menu_style%?13=2:menu_style%?14=7:menu_style%?15=0:menu_style%!16=170:menu_style%!20=44:menu_style%!24=0
b4�menu_additem(0,menu_style%,0,-1,&7009021,"Key")
lE�menu_additem(1,menu_style%,9,handle_back%,&7009021,"Background")
v>�menu_additem(2,menu_style%,0,menu_font%,&7009021,"Fonts")
�A�menu_additem(3,menu_style%,0,menu_best%,&7009021,"Best fit")
�C�menu_additem(4,menu_style%,0,menu_palette%,&7009021,"Palette")
�:�menu_additem(5,menu_style%,0,-1,&7009021,"3D graphs")
�:�menu_additem(6,menu_style%,129,-1,&7009021,"Outline")
�$menu_font%="Fonts"
�vmenu_font%?12=7:menu_font%?13=2:menu_font%?14=7:menu_font%?15=0:menu_font%!16=108:menu_font%!20=44:menu_font%!24=0
�?�menu_additem(0,menu_font%,8,handle_font%,&7009021,"Title")
�>�menu_additem(1,menu_font%,8,handle_font%,&7009021,"Axis")
�?�menu_additem(2,menu_font%,136,handle_font%,&7009021,"Key")
�$menu_best%="Best fit"
�vmenu_best%?12=7:menu_best%?13=2:menu_best%?14=7:menu_best%?15=0:menu_best%!16=108:menu_best%!20=44:menu_best%!24=0
�6�menu_additem(0,menu_best%,0,-1,&7009021,"X on Y")
�8�menu_additem(1,menu_best%,129,-1,&7009021,"Y on X")
$menu_file%="File"
vmenu_file%?12=7:menu_file%?13=2:menu_file%?14=7:menu_file%?15=0:menu_file%!16=140:menu_file%!20=44:menu_file%!24=0
>�menu_additem(0,menu_file%,8,handle_save%,&7009021,"Save")
 F�menu_additem(1,menu_file%,8,handle_datapath%,&7009021,"Datapath")
*9�menu_additem(2,menu_file%,128,-1,&7009021,"Default")
4$menu_groups%="Groups"
>�menu_groups%?12=7:menu_groups%?13=2:menu_groups%?14=7:menu_groups%?15=0:menu_groups%!16=170:menu_groups%!20=44:menu_groups%!24=0
H<�menu_additem(0,menu_groups%,0,menu_map%,&7009021,"Map")
RB�menu_additem(1,menu_groups%,128,menu_group%,&7009021,"Style")
\$menu_group%="Group style"
f}menu_group%?12=7:menu_group%?13=2:menu_group%?14=7:menu_group%?15=0:menu_group%!16=140:menu_group%!20=44:menu_group%!24=0
pC�menu_additem(0,menu_group%,8,handle_group%,&7009021,"Group 1")
zC�menu_additem(1,menu_group%,8,handle_group%,&7009021,"Group 2")
�C�menu_additem(2,menu_group%,8,handle_group%,&7009021,"Group 3")
�C�menu_additem(3,menu_group%,8,handle_group%,&7009021,"Group 4")
�C�menu_additem(4,menu_group%,8,handle_group%,&7009021,"Group 5")
�E�menu_additem(5,menu_group%,136,handle_group%,&7009021,"Group 6")
�$menu_map%="Map groups"
�omenu_map%?12=7:menu_map%?13=2:menu_map%?14=7:menu_map%?15=0:menu_map%!16=140:menu_map%!20=44:menu_map%!24=0
�?�menu_additem(0,menu_map%,8,handle_map%,&7009021,"Group 1")
�?�menu_additem(1,menu_map%,8,handle_map%,&7009021,"Group 2")
�?�menu_additem(2,menu_map%,8,handle_map%,&7009021,"Group 3")
�?�menu_additem(3,menu_map%,8,handle_map%,&7009021,"Group 4")
�?�menu_additem(4,menu_map%,8,handle_map%,&7009021,"Group 5")
�?�menu_additem(5,menu_map%,8,handle_map%,&7009021,"Group 6")
�B�menu_additem(6,menu_map%,136,handle_label%,&7009021,"Labels")
	$menu_palette%="Palette"
	�menu_palette%?12=7:menu_palette%?13=2:menu_palette%?14=7:menu_palette%?15=0:menu_palette%!16=108:menu_palette%!20=44:menu_palette%!24=0
	B�menu_additem(0,menu_palette%,8,handle_back%,&7009021,"Pie 1")
	$B�menu_additem(1,menu_palette%,8,handle_back%,&7009021,"Pie 2")
	.B�menu_additem(2,menu_palette%,8,handle_back%,&7009021,"Pie 3")
	8B�menu_additem(3,menu_palette%,8,handle_back%,&7009021,"Pie 4")
	BB�menu_additem(4,menu_palette%,8,handle_back%,&7009021,"Pie 5")
	LB�menu_additem(5,menu_palette%,8,handle_back%,&7009021,"Pie 6")
	VB�menu_additem(6,menu_palette%,8,handle_back%,&7009021,"Pie 7")
	`B�menu_additem(7,menu_palette%,8,handle_back%,&7009021,"Pie 8")
	jB�menu_additem(8,menu_palette%,8,handle_back%,&7009021,"Pie 9")
	tC�menu_additem(9,menu_palette%,8,handle_back%,&7009021,"Pie 10")
	~D�menu_additem(10,menu_palette%,8,handle_back%,&7009021,"Pie 11")
	�D�menu_additem(11,menu_palette%,8,handle_back%,&7009021,"Pie 12")
	�D�menu_additem(12,menu_palette%,8,handle_back%,&7009021,"Pie 13")
	�D�menu_additem(13,menu_palette%,8,handle_back%,&7009021,"Pie 14")
	�D�menu_additem(14,menu_palette%,8,handle_back%,&7009021,"Pie 15")
	�F�menu_additem(15,menu_palette%,136,handle_back%,&7009021,"Pie 16")
	�$menu_fontlist%="Palette"
	�|menu_fontlist%?12=7:menu_fontlist%?13=2:menu_fontlist%?14=7:menu_fontlist%?15=0:menu_fontlist%!20=44:menu_fontlist%!24=0
	�$menu_task%="GraphPlus"
	�vmenu_task%?12=7:menu_task%?13=2:menu_task%?14=7:menu_task%?15=0:menu_task%!16=124:menu_task%!20=44:menu_task%!24=0
	�8�menu_additem(0,menu_task%,128,-1,&7009021,"Faster")
	��
	�:
���menu_additem(item%,addr%,flag%,pointer%,icon%,item$):addr%!(28+(item%*24))=flag%:addr%!(32+(item%*24))=pointer%:addr%!(36+(item%*24))=icon%

��item$<>"PommeDeTerre"$(addr%+40+(item%*24))=item$�addr%!(40+(item%*24))=B%:addr%!(44+(item%*24))=V%:addr%!(48+(item%*24))=L%
�
:
(@��menu_tick(item%,addr%,flag%):addr%!(28+(item%*24))=flag%:�
2:
<��init_firstwindow
F&ș"OS_ReadModeVariable",-1,11�,,J%
P&ș"OS_ReadModeVariable",-1,12�,,K%
Z0ș"OS_ReadModeVariable",-1,5�,,M:K%=K%*(2^M)
d0ș"OS_ReadModeVariable",-1,4�,,M:J%=J%*(2^M)
nJ%=J%�2-268:K%=K%�2+166
x+ș"Wimp_CreateMenu",,handle_info%,J%,K%
��
�:
���init_template
�%$block%="<GraphPlus$Dir>.Default"
� ș"XOS_Find",&42,block%�X%;N
�R�(N �1)=1�X%=0:N=�message("GraphPlus is unable to find the default file.",1):�
��load_tempfile
�ș"OS_Find",0,X%
��
�:
�:
�+� ********** Polled routines **********
�:
%� ********** Key event **********
:
8� This could be the start of a beautiful friendship!
"��keypressed
,'�!poll%=handle_group%:�group_return
6-�!poll%=handle_map%:button%=4:�map_return
@9�!poll%=handle_label%�poll%!24=13:button%=4:�label_OK
J%�!poll%=handle_back%:�back_return
T%�!poll%=handle_font%:�font_return
^1�!poll%=handle_save%�poll%!24=13:�save_tempOK
h5�!poll%=handle_create%�poll%!24=13:�save_createOK
r%�!poll%=handle_pane%:�pane_return
|"ș"Wimp_ProcessKey",poll%!24:�
�:
�:
�'� ********** Mouse Stuff **********
�:
�(��mouse_click:�button%,handle%,icon%
�Hx%=!poll%:y%=poll%!4:button%=poll%!8:handle%=poll%!12:icon%=poll%!16
�'�button%=2�handle%=-2:�menu_iconbar
�I�button%=2�(handle%=handle_format%�handle%=handle_pane%):�menu_format
�1�button%<>2�handle%=handle_group%:�menu_group
�-�button%<>2�handle%=handle_map%:�menu_map
�1�button%<>2�handle%=handle_label%:�menu_label
�/�button%<>2�handle%=handle_back%:�menu_back
�/�button%<>2�handle%=handle_font%:�menu_font
9�button%=4�handle%=-2�graph_window%:�window_liftgraph
:�button%=4�handle%=-2��graph_window%:�window_opengraph
<�icon%=0�button%=64�handle%=handle_save%:�drag_startsave
&9�button%<>2�icon%=2�handle%=handle_save%:�save_tempOK
0@�icon%=0�button%=64�handle%=handle_create%:�drag_startcreate
:=�button%<>2�icon%=2�handle%=handle_create%:�save_createOK
D5�button%<>2�handle%=handle_format%:�format_select
N1�button%<>2�handle%=handle_pane%:�pane_select
X��handle%=handle_pane%�icon%<>2�icon%<>5�icon%<>9�icon%<>11�icon%<>14�icon%<>16�icon%<>19�icon%<>23�icon%<>25�icon%<>28�icon%<>30�icon%<>46�icon%<>50�button%<>2:flag_fiddled%=�
b�
l:
v:
�&� ********** Menu stuff **********
�:
�M��menu_iconbar:ș"Wimp_CreateMenu",,menu_bar%,x%-64,540:menu_current%=1:�
�:
�K��menu_format:ș"Wimp_CreateMenu",,menu_win%,x%-32,y%:menu_current%=2:�
�:
���menu_opengroup
�group%=poll%!40
��group_calculate
�;ș"Wimp_CreateSubMenu",,handle_group%,poll%!24,poll%!28
��
�:
���menu_reopengroup

�group_calculate

5ș"Wimp_ForceRedraw",handle_group%,0,-1024,1279,0

�

 :

*��menu_openmap

4group%=poll%!40

>�map_calculate

H9ș"Wimp_CreateSubMenu",,handle_map%,poll%!24,poll%!28

R�

\:

f��menu_reopenmap

p�map_calculate

z3ș"Wimp_ForceRedraw",handle_map%,0,-1024,1279,0

��

�:

���menu_openlabel

�,group%=6:$(ind_lab%+38)=�(group_map%!24)

�;ș"Wimp_CreateSubMenu",,handle_label%,poll%!24,poll%!28

��

�:

���menu_reopenlabel

�,group%=6:$(ind_lab%+38)=�(group_map%!24)

�5ș"Wimp_ForceRedraw",handle_label%,0,-1024,1279,0

��

�:

���menu_openback
group%=255:�back_calculate
:ș"Wimp_CreateSubMenu",,handle_back%,poll%!24,poll%!28
3�caret_setpos(handle_back%,5,�len(ind_bck%+20))
$�
.:
8��menu_reopenback
B�back_calculate
L4ș"Wimp_ForceRedraw",handle_back%,0,-1024,1279,0
V3�caret_setpos(handle_back%,5,�len(ind_bck%+20))
`�
j:
t��menu_openpalette
~group%=poll%!40
��back_calculate
�:ș"Wimp_CreateSubMenu",,handle_back%,poll%!24,poll%!28
��
�:
���menu_openfont
�group%=poll%!40
��font_calculate
�:ș"Wimp_CreateSubMenu",,handle_font%,poll%!24,poll%!28
��
�:
���menu_reopenfont
��font_calculate
4ș"Wimp_ForceRedraw",handle_font%,0,-1024,1279,0

�
:
��menu_opensave
($(ind_sa%)=$file_temp%
2:ș"Wimp_CreateSubMenu",,handle_save%,poll%!24,poll%!28
<�
F:
P:
Z��group_calculate
dind_grp%?13=group%+49
n*ind_grp%?21=49+group_data%?(group%*42)
x,ind_grp%?26=48+group_data%?(group%*42+1)
�-$(ind_grp%+31)=�group_data%?(group%*42+2)
�,�group_bar(15,group_data%?(group%*42+2))
�-$(ind_grp%+44)=�group_data%?(group%*42+3)
�,�group_bar(21,group_data%?(group%*42+3))
�-$(ind_grp%+57)=�group_data%?(group%*42+4)
�,�group_bar(27,group_data%?(group%*42+4))
�3$(ind_grp%+74)=�(group_data%!(group%*42+5)/640)
�-ind_grp%?134=48+group_data%?(group%*42+9)
� N=group_data%?(group%*42+10)
�+!block%=handle_group%:block%!12=&200000
�8block%!4=63:�(N � 1)=1:block%!8=&200000 � block%!8=0
�!ș"Wimp_SetIconState",,block%
�8block%!4=64:�(N � 2)=2:block%!8=&200000 � block%!8=0
!ș"Wimp_SetIconState",,block%
9block%!4=65::�(N � 4)=4:block%!8=&200000 � block%!8=0
!ș"Wimp_SetIconState",,block%
"�
,:
6��map_calculate
@$(ind_map%+24)=�(group%+1)
J+$(ind_map%+33)=�(group_map%!(group%*4))
T.$(ind_map%+49)=$(group_data%+group%*42+11)
^�
h:
r��back_calculate
|�group%=255�
�s �back_bar(6,data_back%?1):�back_bar(12,data_back%?2):�back_bar(18,data_back%?3):$(ind_bck%+11)=�(data_back%?1)
�B $(ind_bck%+24)=�(data_back%?2):$(ind_bck%+37)=�(data_back%?3)
� $ind_bck%="Background"
��
�{ �back_bar(6,pie_palette%?(group%*4+1)):�back_bar(12,pie_palette%?(group%*4+2)):�back_bar(18,pie_palette%?(group%*4+3))
�� $(ind_bck%+11)=�(pie_palette%?(group%*4+1)):$(ind_bck%+24)=�(pie_palette%?(group%*4+2)):$(ind_bck%+37)=�(pie_palette%?(group%*4+3))
�! $ind_bck%="Pie "+�(group%+1)
��
��
�:
���font_calculate
�
Ȏgroup%�
�� �0:$ind_fnt%="Title font":$(ind_fnt%+43)=$(font_list%+text_titlec*40):$(ind_fnt%+131)=�text_titlex:$(ind_fnt%+144)=�text_titley:font_c%=text_titlec:$menu_fontlist%="Title font":�font_ticklist
� �1:$ind_fnt%="Axis font":$(ind_fnt%+43)=$(font_list%+text_axisc*40):$(ind_fnt%+131)=�text_axisx:$(ind_fnt%+144)=�text_axisy:font_c%=text_axisc:$menu_fontlist%="Axis font":�font_ticklist
� �2:$ind_fnt%="Key font":$(ind_fnt%+43)=$(font_list%+text_keyc*40):$(ind_fnt%+131)=�text_keyx:$(ind_fnt%+144)=�text_keyy:font_c%=text_keyc:$menu_fontlist%="Key font":�font_ticklist
�
&�
0:
:��font_ticklist
D\�N=0�font_counter%:menu_fontlist%!(28+N*24)=0:�:menu_fontlist%!(28+font_counter%*24)=128
N%menu_fontlist%!(28+font_c%*24)+=1
X�
b:
l��pane_calculate
v!block%=handle_pane%
�Kblock%!4=1:block%!12=&200000:�graph_title%:block%!8=&200000:�block%!8=0
�!ș"Wimp_SetIconState",,block%
�$(ind_pn%+24)=$s_title%
�9block%!4=4:�graph_xaxis%:block%!8=&200000:�block%!8=0
�!ș"Wimp_SetIconState",,block%
�$(ind_pn%+98)=$s_xaxis%
�8block%!4=6:�graph_xg%=1:block%!8=&200000:�block%!8=0
�!ș"Wimp_SetIconState",,block%
�8block%!4=7:�graph_xg%=2:block%!8=&200000:�block%!8=0
�!ș"Wimp_SetIconState",,block%
�$(ind_pn%+212)=�graph_xdiv
�$(ind_pn%+244)=�graph_xsdiv
�9block%!4=12:�graph_xcal%:block%!8=&200000:�block%!8=0
!ș"Wimp_SetIconState",,block%
$(ind_pn%+299)=�data_xmin
$(ind_pn%+318)=�data_xmax
 :block%!4=18:�graph_yaxis%:block%!8=&200000:�block%!8=0
*!ș"Wimp_SetIconState",,block%
4$(ind_pn%+368)=$s_yaxis%
>9block%!4=20:�graph_yg%=1:block%!8=&200000:�block%!8=0
H!ș"Wimp_SetIconState",,block%
R9block%!4=21:�graph_yg%=2:block%!8=&200000:�block%!8=0
\!ș"Wimp_SetIconState",,block%
f$(ind_pn%+482)=�graph_ydiv
p$(ind_pn%+514)=�graph_ysdiv
z9block%!4=26:�graph_ycal%:block%!8=&200000:�block%!8=0
�!ș"Wimp_SetIconState",,block%
�$(ind_pn%+569)=�data_ymin
�$(ind_pn%+588)=�data_ymax
�>block%!8=0:�block%!4=33�37:ș"Wimp_SetIconState",,block%:�
�Pblock%!4=32+graph_bartype%�10:block%!8=&200000:ș"Wimp_SetIconState",,block%
�Dblock%!4=38:�(graph_barmargin%�1)=1:block%!8=&200000:�block%!8=0
�!ș"Wimp_SetIconState",,block%
�Hblock%!4=39:�(graph_barmargin%�128)=128:block%!8=&200000:�block%!8=0
�!ș"Wimp_SetIconState",,block%
�?block%!4=40:�graph_bartype%<10:block%!8=&200000:�block%!8=0
�!ș"Wimp_SetIconState",,block%
�?block%!4=41:�graph_bartype%>10:block%!8=&200000:�block%!8=0
�!ș"Wimp_SetIconState",,block%
8block%!4=43:�graph_exp%:block%!8=&200000:�block%!8=0
!ș"Wimp_SetIconState",,block%
$(ind_pn%+971)=�graph_es%
$$(ind_pn%+983)=�graph_ef%
.flag_fiddled%=�
87block%!8=0:block%!4=2:ș"Wimp_SetIconState",,block%
B,block%!4=5:ș"Wimp_SetIconState",,block%
L,block%!4=9:ș"Wimp_SetIconState",,block%
V-block%!4=11:ș"Wimp_SetIconState",,block%
`-block%!4=14:ș"Wimp_SetIconState",,block%
j-block%!4=16:ș"Wimp_SetIconState",,block%
t-block%!4=19:ș"Wimp_SetIconState",,block%
~-block%!4=23:ș"Wimp_SetIconState",,block%
�-block%!4=25:ș"Wimp_SetIconState",,block%
�-block%!4=28:ș"Wimp_SetIconState",,block%
�-block%!4=30:ș"Wimp_SetIconState",,block%
�-block%!4=46:ș"Wimp_SetIconState",,block%
�-block%!4=50:ș"Wimp_SetIconState",,block%
��
�:
���menu_selection
�Ȏmenu_current%�
� �1:�menu_selecticon
� �2:�menu_winselection
��
�

:
��menu_selecticon
Ȏpoll%!0�
( �1:�menu_selectstyle
2 �3:�menu_selectfile
< �4:�graph_select(1)
F �5:�graph_select(2)
P �6:�graph_select(3)
Z �7:�graph_select(4)
d �8:�byebye_shutdown
n�
x=ș"Wimp_GetPointerInfo",,block%:�block%!8=1:�menu_iconbar
��
�:
���menu_winselection
�Ȏpoll%!0�
� �0:�menu_selectstyle
� �2:�menu_selectfile
� �3:�graph_select(1)
� �4:�graph_select(2)
� �5:�graph_select(3)
� �6:�graph_select(4)
��
�<ș"Wimp_GetPointerInfo",,block%:�block%!8=1:�menu_format
��
:
��menu_selectstyle
Ȏpoll%!4�
" �0:�style_key
, �1:�style_box
6 �2:�style_fontselect
@ �3:�best_select
J �5:�style_3D
T �6:�style_outline
^�
h�
r:
|��menu_selectfile
�Ȏpoll%!4�
� �0:�save_tempOK
� �2:�file_default
��
��
�:
���menu_group
�N%=1:�button%=1N%=-1
��icon%=5:�group_po(-N%)
��icon%=7:�group_po(N%)
��icon%=9:�group_si(-N%)
��icon%=11:�group_si(N%)
��icon%=12:�group_r(-N%)
�icon%=13:�group_r(N%)
�icon%=18:�group_g(-N%)
�icon%=19:�group_g(N%)
&�icon%=24:�group_b(-N%)
0�icon%=25:�group_b(N%)
:�icon%=16:�group_rclick
D�icon%=22:�group_bclick
N�icon%=28:�group_gclick
X,�icon%>=30�icon%<=45:�group_cl(icon%-30)
b�icon%=49:�group_t(0)
l�icon%=50:�group_t(.25)
v�icon%=51:�group_t(.5)
��icon%=52:�group_t(1)
��icon%=53:�group_t(2)
��icon%=54:�group_t(4)
�,�icon%>=58�icon%<=61:�group_ln(icon%-57)
�B�icon%=66:�menu_reopengroup:�button%=4:ș"Wimp_CreateMenu",,-1
��icon%=67:�group_OK
��
�:
���menu_map
�N%=1:�button%=1N%=-1
��icon%=6:�map_gr(-N%)
��icon%=8:�map_gr(N%)
�?�icon%=12:�menu_reopenmap:�button%=4:ș"Wimp_CreateMenu",-1
�icon%=13:�map_OK
�
:
 ��menu_label
*N%=1:�button%=1N%=-1
4�icon%=6:�label_gr(-N%)
>�icon%=8:�label_gr(N%)
H@�icon%=9:�menu_reopenlabel:�button%=4:ș"Wimp_CreateMenu",-1
R�icon%=10:�label_OK
\�
f:
p��menu_back
zN%=1:�button%=1N%=-1
��icon%=3:�back_r(-N%)
��icon%=4:�back_r(N%)
��icon%=7:�back_rclick
��icon%=13:�back_bclick
��icon%=19:�back_gclick
��icon%=9:�back_g(-N%)
��icon%=10:�back_g(N%)
��icon%=15:�back_b(-N%)
��icon%=16:�back_b(N%)
�+�icon%>=21�icon%<=36:�back_cl(icon%-21)
�A�icon%=37:�menu_reopenback:�button%=4:ș"Wimp_CreateMenu",,-1
��icon%=38:�back_OK
��
:
��menu_font
N%=1:�button%=1N%=-1
$�icon%=5:�font_list
."�icon%=8:�font_w(8):�font_h(8)
8$�icon%=9:�font_w(10):�font_h(10)
B%�icon%=10:�font_w(12):�font_h(12)
L%�icon%=11:�font_w(14):�font_h(14)
V�icon%=13:�font_wi(-N%)
`�icon%=15:�font_wi(N%)
j�icon%=17:�font_hi(-N%)
t�icon%=19:�font_hi(N%)
~A�icon%=20:�menu_reopenfont:�button%=4:ș"Wimp_CreateMenu",,-1
��icon%=21:�font_OK
��
�:
���file_default
�N=�message("Click on OK to reset the current Template. Warning: This cannot be retrieved if has not been saved.",3):�N<>1:�
��init_template
�D�pane_calculate:ș"Wimp_ForceRedraw",handle_pane%,0,-1023,1279,0
��
�:
���format_select
��icon%=4:�graph_savebox
��icon%=5:�pane_calculate
�icon%=6:�pane_OK

�
:
��pane_select
(N%=1:�button%=1N%=-1
2�icon%=45:�pane_s(-N%)
<�icon%=47:�pane_s(N%)
F�icon%=49:�pane_f(-N%)
P�icon%=51:�pane_f(N%)
Z�
d:
n��pie_select
xN%=1:�button%=1N%=-1
��icon%=8:�pie_s(-N%)
��icon%=10:�pie_s(N%)
��icon%=12:�pie_f(-N%)
��icon%=14:�pie_f(N%)
��
�:
���group_po(N)
�M=ind_grp%?21-49
��M+N<0�M+N>7:�
�M+=N
�ind_grp%?21=M+49
�Y!block%=handle_group%:block%!4=6:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
��
:
��group_si(N)
M=ind_grp%?26-49
"�M+N<0�M+N>8:�
,M+=N
6ind_grp%?26=M+49
@Z!block%=handle_group%:block%!4=10:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
J�
T:
^��group_r(N)
hM=�$(ind_grp%+31)
r�M+N<0�M+N>255:�
|M+=N
�$(ind_grp%+31)=�M
�Z!block%=handle_group%:block%!4=14:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
��group_bar(15,M)
��group_colour
��
�:
���group_rclick
�9!block%=handle_group%:ș"Wimp_GetWindowState",,block%
�M=!poll%-block%!4-190
�$(ind_grp%+31)=�M
�poll%!4=14:�group_pro(31)
��
�:
��group_g(N)
M=�$(ind_grp%+44)
�M+N<0�M+N>255:�
&M+=N
0$(ind_grp%+44)=�M
:Z!block%=handle_group%:block%!4=20:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
D�group_bar(21,M)
N�group_colour
X�
b:
l��group_bclick
v9!block%=handle_group%:ș"Wimp_GetWindowState",,block%
�M=!poll%-block%!4-190
�$(ind_grp%+44)=�M
�poll%!4=20:�group_pro(44)
��
�:
���group_b(N)
�M=�$(ind_grp%+57)
��M+N<0�M+N>255:�
�M+=N
�$(ind_grp%+57)=�M
�Z!block%=handle_group%:block%!4=26:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
��group_bar(27,M)
��group_colour
�
:
��group_gclick
 9!block%=handle_group%:ș"Wimp_GetWindowState",,block%
*M=!poll%-block%!4-190
4$(ind_grp%+57)=�M
>poll%!4=26:�group_pro(57)
H�
R:
\��group_cl(N)
f ș"Wimp_ReadPalette",,block%
p"$(ind_grp%+31)=�block%?(N*4+1)
z"$(ind_grp%+44)=�block%?(N*4+2)
�"$(ind_grp%+57)=�block%?(N*4+3)
�Z!block%=handle_group%:block%!4=14:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
�-block%!4=20:ș"Wimp_SetIconState",,block%
�-block%!4=26:ș"Wimp_SetIconState",,block%
�"�group_bar(15,�$(ind_grp%+31))
�"�group_bar(21,�$(ind_grp%+44))
�"�group_bar(27,�$(ind_grp%+57))
��group_colour
��
�:
���group_bar(N,M)
�^!block%=handle_group%:block%!4=N:ș"Wimp_GetIconState",,block%:ș"Wimp_DeleteIcon",,block%
�Hblock%!4=handle_group%:block%!16=196+M:ș"Wimp_CreateIcon",,block%+4
0!block%=handle_group%:block%!8=0:block%!12=0
,block%!4=N:ș"Wimp_SetIconState",,block%
4block%!4=(N-9)�6-1:ș"Wimp_SetIconState",,block%
$�
.:
8��group_colour
B!block%=handle_group%
L"ș"Wimp_GetWindowInfo",,block%
VR!block%=((�$(ind_grp%+57))<<24)+((�$(ind_grp%+44))<<16)+((�$(ind_grp%+31))<<8)
`)ș"ColourTrans_SetGCOL",!block%,,,0,0
j(ȓȐblock%!4+456,block%!8+228,164,28
t�
~:
���group_t(N)
�$(ind_grp%+74)=�N
�Z!block%=handle_group%:block%!4=48:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
��
�:
���group_ln(N)
�ind_grp%?134=N+48
�Z!block%=handle_group%:block%!4=57:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
��
�:
���group_return
�(N%=0:�poll%!24=13�poll%!24=&18E:N%=1
�poll%!24=&18F:N%=-1

V�poll%!4=20�N%=-1:�group_pro(44):�caret_setpos(handle_group%,14,�len(ind_grp%+31))
U�poll%!4=14�N%=1:�group_pro(31):�caret_setpos(handle_group%,20,�len(ind_grp%+44))
U�poll%!4=20�N%=1:�group_pro(44):�caret_setpos(handle_group%,26,�len(ind_grp%+57))
(U�poll%!4=26�N%=1:�group_pro(57):�caret_setpos(handle_group%,48,�len(ind_grp%+74))
2V�poll%!4=26�N%=-1:�group_pro(57):�caret_setpos(handle_group%,20,�len(ind_grp%+44))
<G�poll%!4=48�N%=-1:�caret_setpos(handle_group%,26,�len(ind_grp%+57))
Fg�poll%!4=48�poll%!24=13:button%=4:�ok_click(handle_group%,67):�group_OK:�ok_click(handle_group%,67)
P�
Z:
d��group_OK
n*group_data%?(group%*42)=ind_grp%?21-49
x,group_data%?(group%*42+1)=ind_grp%?26-48
�-group_data%?(group%*42+2)=�$(ind_grp%+31)
�-group_data%?(group%*42+3)=�$(ind_grp%+44)
�-group_data%?(group%*42+4)=�$(ind_grp%+57)
�3group_data%!(group%*42+5)=(�$(ind_grp%+74))*640
�-group_data%?(group%*42+9)=ind_grp%?134-48
�N=0:!block%=handle_group%
�-block%!4=63:ș"Wimp_GetIconState",,block%
�#�((block%!24) � &200000)>0:N+=1
�-block%!4=64:ș"Wimp_GetIconState",,block%
�#�((block%!24) � &200000)>0:N+=2
�-block%!4=65:ș"Wimp_GetIconState",,block%
�#�((block%!24) � &200000)>0:N+=4
� group_data%?(group%*42+10)=N
&�button%=4:ș"Wimp_CreateMenu",,-1
�
:
"��group_pro(N)
,!M=�$(ind_grp%+N):�M>255:M=255
6$(ind_grp%+N)=�M
@_!block%=handle_group%:block%!4=poll%!4:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
J�group_bar(poll%!4+1,M)
T�group_colour
^�
h:
r��map_gr(N)
|M=�$(ind_map%+33)
��M+N<0�M+N>999:�
�M+=N
�$(ind_map%+33)=�M
�W!block%=handle_map%:block%!4=7:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
�%ș"Wimp_GetCaretPosition",,block%
��block%!4<>7:�
�8ș"Wimp_SetCaretPosition",handle_map%,7,-1,-1,-1,��M
��
�:
���map_return
�(N%=0:�poll%!24=13�poll%!24=&18E:N%=1
��poll%!24=&18F:N%=-1
�D�poll%!4=11�N%=-1:�caret_setpos(handle_map%,7,�len(ind_map%+36))
 C�poll%!4=7�N%=1:�caret_setpos(handle_map%,11,�len(ind_map%+49))
 a�poll%!4=11�poll%!24=13:button%=4:�ok_click(handle_map%,13):�map_OK:�ok_click(handle_map%,13)
 �
 &:
 0��map_OK
 :)group_map%!(group%*4)=�$(ind_map%+33)
 D.$(group_data%+group%*42+11)=$(ind_map%+49)
 N&�button%=4:ș"Wimp_CreateMenu",,-1
 X�
 b:
 l��label_gr(N)
 vM=�$(ind_lab%+38)
 ��M+N<0�M+N>999:�
 �M+=N
 �$(ind_lab%+38)=�M
 �Y!block%=handle_label%:block%!4=7:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
 �%ș"Wimp_GetCaretPosition",,block%
 ��block%!4<>7:�
 �:ș"Wimp_SetCaretPosition",handle_label%,7,-1,-1,-1,��M
 ��
 �:
 ���label_OK
 �!group_map%!24=�$(ind_lab%+38)
 �&�button%=4:ș"Wimp_CreateMenu",,-1
 ��
!:
!��best_select
!N=poll%!8:graph_best%=N+1
! N�N=1:menu_best%?28=0:menu_best%?52=129::�menu_best%?28=1:menu_best%?52=128
!*�
!4:
!>��back_r(N)
!HM=�$(ind_bck%+11)
!R�M+N<0�M+N>255:�
!\M+=N
!f$(ind_bck%+11)=�M
!pX!block%=handle_back%:block%!4=5:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
!z�back_bar(6,M)
!��back_colour
!��
!�:
!���back_rclick
!�8!block%=handle_back%:ș"Wimp_GetWindowState",,block%
!�M=!poll%-block%!4-190
!�$(ind_bck%+11)=�M
!�poll%!4=5:�back_pro(11)
!��
!�:
!���back_g(N)
!�M=�$(ind_bck%+24)
!��M+N<0�M+N>255:�
"M+=N
"$(ind_bck%+24)=�M
"Y!block%=handle_back%:block%!4=11:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
"$�back_bar(12,M)
".�back_colour
"8�
"B:
"L��back_bclick
"V8!block%=handle_back%:ș"Wimp_GetWindowState",,block%
"`M=!poll%-block%!4-190
"j$(ind_bck%+24)=�M
"tpoll%!4=11:�back_pro(24)
"~�
"�:
"���back_b(N)
"�M=�$(ind_bck%+37)
"��M+N<0�M+N>255:�
"�M+=N
"�$(ind_bck%+37)=�M
"�Y!block%=handle_back%:block%!4=17:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
"��back_bar(18,M)
"��back_colour
"��
"�:
"���back_gclick
#8!block%=handle_back%:ș"Wimp_GetWindowState",,block%
#
M=!poll%-block%!4-190
#$(ind_bck%+37)=�M
#poll%!4=17:�back_pro(37)
#(�
#2:
#<��back_cl(N)
#F ș"Wimp_ReadPalette",,block%
#P"$(ind_bck%+11)=�block%?(N*4+1)
#Z"$(ind_bck%+24)=�block%?(N*4+2)
#d"$(ind_bck%+37)=�block%?(N*4+3)
#nX!block%=handle_back%:block%!4=5:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
#x-block%!4=11:ș"Wimp_SetIconState",,block%
#�-block%!4=17:ș"Wimp_SetIconState",,block%
#� �back_bar(6,�$(ind_bck%+11))
#�!�back_bar(12,�$(ind_bck%+24))
#�!�back_bar(18,�$(ind_bck%+37))
#��back_colour
#��
#�:
#���back_bar(N,M)
#�]!block%=handle_back%:block%!4=N:ș"Wimp_GetIconState",,block%:ș"Wimp_DeleteIcon",,block%
#�Gblock%!4=handle_back%:block%!16=196+M:ș"Wimp_CreateIcon",,block%+4
#�<!block%=handle_back%:block%!4=N-1:block%!8=0:block%!12=0
#�2block%!4=(N)�6-1:ș"Wimp_SetIconState",,block%
#��
$:
$��back_colour
$!block%=handle_back%
$""ș"Wimp_GetWindowInfo",,block%
$,L!block%=(�$(ind_bck%+37)<<24)+(�$(ind_bck%+24)<<16)+(�$(ind_bck%+11)<<8)
$6)ș"ColourTrans_SetGCOL",!block%,,,0,0
$@(ȓȐblock%!4+454,block%!8+248,164,28
$J�
$T:
$^��back_return
$h(N%=0:�poll%!24=13�poll%!24=&18E:N%=1
$r�poll%!24=&18F:N%=-1
$|S�poll%!4=11�N%=-1:�back_pro(24):�caret_setpos(handle_back%,5,�len(ind_bck%+20))
$�R�poll%!4=5�N%=1:�back_pro(11):�caret_setpos(handle_back%,11,�len(ind_bck%+24))
$�T�poll%!4=17�N%=-1:�back_pro(37):�caret_setpos(handle_back%,11,�len(ind_bck%+24))
$�S�poll%!4=11�N%=1:�back_pro(24):�caret_setpos(handle_back%,17,�len(ind_bck%+37))
$�r�poll%!4=17�poll%!24=13:�back_pro(37):button%=4:�ok_click(handle_back%,38):�back_OK:�ok_click(handle_back%,38)
$��
$�:
$�
��back_OK
$��group%=255�
$�! data_back%?1=�$(ind_bck%+11)
$�! data_back%?2=�$(ind_bck%+24)
$�! data_back%?3=�$(ind_bck%+37)
$��
$�. pie_palette%?(group%*4+1)=�$(ind_bck%+11)
%. pie_palette%?(group%*4+2)=�$(ind_bck%+24)
%. pie_palette%?(group%*4+3)=�$(ind_bck%+37)
%�
%&&�button%=4:ș"Wimp_CreateMenu",,-1
%0�
%::
%D��back_pro(N)
%N�N>1000:N-=1000:N%=�:�N%=�
%X!M=�$(ind_bck%+N):�M>255:M=255
%b$(ind_bck%+N)=�M
%l^!block%=handle_back%:block%!4=poll%!4:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
%v�back_bar(poll%!4+1,M)
%��N%�back_colour
%��
%�:
%���style_key
%�/�graph_key%:graph_key%=�:menu_style%?28=0:�
%�#graph_key%=�:menu_style%?28=1:�
%�:
%���style_box
%�/�graph_box%:graph_box%=�:menu_style%?52=8:�
%�#graph_box%=�:menu_style%?52=9:�
%�:
%���style_3D
%�.�graph_3D%:graph_3D%=�:menu_style%?148=8:�
&#graph_3D%=�:menu_style%?148=9:�
&:
&��style_outline
& =�graph_outline%=0:graph_outline%=-1:menu_style%?172=128:�
&**graph_outline%=0:menu_style%?172=129:�
&4:
&>��font_list
&H�font_ticklist
&R#ș"Wimp_GetPointerInfo",,block%
&\;ș"Wimp_CreateSubMenu",,menu_fontlist%,!block%,block%!4
&f�
&p:
&z��style_fontselect
&�font_c%=poll%!16
&�+$(ind_fnt%+43)=$(font_list%+font_c%*40)
&�X!block%=handle_font%:block%!4=4:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
&�Ȏmenu_current%�
&�& �1:ș"Wimp_CreateMenu",,menu_bar%
&�& �2:ș"Wimp_CreateMenu",,menu_win%
&��
&��
&�:
&���font_wi(N)
&�M=�$(ind_fnt%+131)
&�
�M+N<=0:�
&��font_w(M+N)
'�
':
'��font_hi(N)
'$M=�$(ind_fnt%+144)
'.
�M+N<=0:�
'8�font_h(M+N)
'B�
'L:
'V��font_w(N)
'`$(ind_fnt%+131)=�N
'jY!block%=handle_font%:block%!4=14:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
't%ș"Wimp_GetCaretPosition",,block%
'~i�!block%=handle_font%�block%!4=14:ș"Wimp_SetCaretPosition",handle_font%,14,0,0,-1,�len(ind_fnt%+131)
'��
'�:
'���font_h(N)
'�$(ind_fnt%+144)=�N
'�Y!block%=handle_font%:block%!4=18:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
'�%ș"Wimp_GetCaretPosition",,block%
'�i�!block%=handle_font%�block%!4=18:ș"Wimp_SetCaretPosition",handle_font%,18,0,0,-1,�len(ind_fnt%+144)
'��
'�:
'���font_return
'�(N%=0:�poll%!24=13�poll%!24=&18E:N%=1
'��poll%!24=&18F:N%=-1
(G�poll%!4=18�N%=-1:�caret_setpos(handle_font%,14,�len(ind_fnt%+131))
(
F�poll%!4=14�N%=1:�caret_setpos(handle_font%,18,�len(ind_fnt%+144))
(d�poll%!4=18�poll%!24=13:button%=4:�ok_click(handle_font%,21):�font_OK:�ok_click(handle_font%,21)
(�
((:
(2
��font_OK
(<
Ȏgroup%�
(FU �0:text_titlec=font_c%:text_titlex=�$(ind_fnt%+131):text_titley=�$(ind_fnt%+144)
(PR �1:text_axisc=font_c%:text_axisx=�$(ind_fnt%+131):text_axisy=�$(ind_fnt%+144)
(ZO �2:text_keyc=font_c%:text_keyx=�$(ind_fnt%+131):text_keyy=�$(ind_fnt%+144)
(d�
(n&�button%=4:ș"Wimp_CreateMenu",,-1
(x�
(�:
(���pane_s(N)
(�M=�$(ind_pn%+971)
(��M+N<1�M+N>999:�
(�M+=N
(�$(ind_pn%+971)=�M
(�Y!block%=handle_pane%:block%!4=46:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
(�%ș"Wimp_GetCaretPosition",,block%
(�)�!block%<>handle_pane%�block%!4<>46:�
(�:ș"Wimp_SetCaretPosition",handle_pane%,46,-1,-1,-1,��M
(��
(�:
(���pane_f(N)
)M=�$(ind_pn%+983)
)�M+N<1�M+N>999:�
)M+=N
)"$(ind_pn%+983)=�M
),Y!block%=handle_pane%:block%!4=50:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
)6%ș"Wimp_GetCaretPosition",,block%
)@)�!block%<>handle_pane%�block%!4<>50:�
)J:ș"Wimp_SetCaretPosition",handle_pane%,50,-1,-1,-1,��M
)T�
)^:
)h
��pane_OK
)r!block%=handle_pane%
)|,block%!4=1:ș"Wimp_GetIconState",,block%
)�5�block%!24�&200000:graph_title%=�:�graph_title%=�
)�$s_title%=$(ind_pn%+24)
)�,block%!4=4:ș"Wimp_GetIconState",,block%
)�5�block%!24�&200000:graph_xaxis%=�:�graph_xaxis%=�
)�$s_xaxis%=$(ind_pn%+98)
)�graph_xg%=0
)�Kblock%!4=6:ș"Wimp_GetIconState",,block%:�block%!24�&200000:graph_xg%=1
)�Kblock%!4=7:ș"Wimp_GetIconState",,block%:�block%!24�&200000:graph_xg%=2
)�graph_xdiv=�$(ind_pn%+212)
)�graph_xsdiv=�$(ind_pn%+244)
)�-block%!4=12:ș"Wimp_GetIconState",,block%
)�3�block%!24�&200000:graph_xcal%=�:�graph_xcal%=�
)�data_xmin=�$(ind_pn%+299)
*data_xmax=�$(ind_pn%+318)
*-block%!4=18:ș"Wimp_GetIconState",,block%
*5�block%!24�&200000:graph_yaxis%=�:�graph_yaxis%=�
*&$s_yaxis%=$(ind_pn%+368)
*0graph_yg%=0
*:Lblock%!4=20:ș"Wimp_GetIconState",,block%:�block%!24�&200000:graph_yg%=1
*DLblock%!4=21:ș"Wimp_GetIconState",,block%:�block%!24�&200000:graph_yg%=2
*Ngraph_ydiv=�$(ind_pn%+482)
*Xgraph_ysdiv=�$(ind_pn%+514)
*b-block%!4=26:ș"Wimp_GetIconState",,block%
*l3�block%!24�&200000:graph_ycal%=�:�graph_ycal%=�
*vdata_ymin=�$(ind_pn%+569)
*�data_ymax=�$(ind_pn%+588)
*�graph_bartype%=0
*�1�block%!4=33�37:ș"Wimp_GetIconState",,block%
*�2�block%!24�&200000:graph_bartype%+=block%!4-32
*��
*�graph_barmargin%=0
*�-block%!4=38:ș"Wimp_GetIconState",,block%
*�*�block%!24�&200000:graph_barmargin%+=1
*�-block%!4=39:ș"Wimp_GetIconState",,block%
*�,�block%!24�&200000:graph_barmargin%+=128
*�-block%!4=41:ș"Wimp_GetIconState",,block%
*�)�block%!24�&200000:graph_bartype%+=10
*�-block%!4=43:ș"Wimp_GetIconState",,block%
+1�block%!24�&200000:graph_exp%=�:�graph_exp%=�
+graph_es%=�$(ind_pn%+971)
+graph_ef%=�$(ind_pn%+983)
+ D�pane_calculate:ș"Wimp_ForceRedraw",handle_pane%,0,-1023,1279,0
+*flag_fiddled%=�
+4�
+>:
+H��pane_return
+R(N%=0:�poll%!24=13�poll%!24=&18E:N%=1
+\�poll%!24=&18F:N%=-1
+fC�poll%!4=5�N%=-1:�caret_setpos(handle_pane%,2,�len(ind_pn%+24))
+pR�poll%!4=2�N%=1�poll%!4=9�N%=-1:�caret_setpos(handle_pane%,5,�len(ind_pn%+98))
+zT�poll%!4=5�N%=1�poll%!4=11�N%=-1:�caret_setpos(handle_pane%,9,�len(ind_pn%+212))
+�U�poll%!4=9�N%=1�poll%!4=14�N%=-1:�caret_setpos(handle_pane%,11,�len(ind_pn%+244))
+�V�poll%!4=11�N%=1�poll%!4=16�N%=-1:�caret_setpos(handle_pane%,14,�len(ind_pn%+299))
+�V�poll%!4=14�N%=1�poll%!4=19�N%=-1:�caret_setpos(handle_pane%,16,�len(ind_pn%+318))
+�V�poll%!4=16�N%=1�poll%!4=23�N%=-1:�caret_setpos(handle_pane%,19,�len(ind_pn%+368))
+�V�poll%!4=19�N%=1�poll%!4=25�N%=-1:�caret_setpos(handle_pane%,23,�len(ind_pn%+482))
+�V�poll%!4=23�N%=1�poll%!4=28�N%=-1:�caret_setpos(handle_pane%,25,�len(ind_pn%+514))
+�V�poll%!4=25�N%=1�poll%!4=30�N%=-1:�caret_setpos(handle_pane%,28,�len(ind_pn%+569))
+�V�poll%!4=28�N%=1�poll%!4=46�N%=-1:�caret_setpos(handle_pane%,30,�len(ind_pn%+588))
+�V�poll%!4=30�N%=1�poll%!4=50�N%=-1:�caret_setpos(handle_pane%,46,�len(ind_pn%+971))
+�E�poll%!4=46�N%=1:�caret_setpos(handle_pane%,50,�len(ind_pn%+983))
+�f�poll%!4=50�poll%!24=13:button%=4:�ok_click(handle_format%,6):�pane_OK:�ok_click(handle_format%,6)
+��
+�:
,]��ok_click(!block%,block%!4):block%!8=&200000:block%!12=0:ș"Wimp_SetIconState",,block%:�
,:
,:
,$B� ********** Some mature graph selection type stuff **********
,.:
,8��graph_select(N)
,B
Ȏ N �
,L �1:�graph_selectline
,V �2:�graph_selectbar
,` �3:�graph_selectpie
,j �4:�graph_selecttable
,t�
,~ind_frm%?43=48+graph_type%
,���graph_window%:!block%=handle_format%:block%!4=2:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%:block%!4=3:ș"Wimp_SetIconState",,block%
,��
,�:
,���graph_selectline
,�graph_type%=1
,�Cmenu_bar%?124=1:menu_bar%?148=0:menu_bar%?172=0:menu_bar%?196=2
,�Emenu_win%?100=1:menu_win%?124=0:menu_win%?148=0:menu_win%?172=128
,�$(ind_frm%+48)="Line graph"
,��
,�:
,���graph_selectbar
,�graph_type%=2
-Cmenu_bar%?124=0:menu_bar%?148=1:menu_bar%?172=0:menu_bar%?196=2
-
Emenu_win%?100=0:menu_win%?124=1:menu_win%?148=0:menu_win%?172=128
-$(ind_frm%+48)="Bar chart"
-�
-(:
-2��graph_selectpie
-<graph_type%=3
-FCmenu_bar%?124=0:menu_bar%?148=0:menu_bar%?172=1:menu_bar%?196=2
-PEmenu_win%?100=0:menu_win%?124=0:menu_win%?148=1:menu_win%?172=128
-Z$(ind_frm%+48)="Pie chart"
-d�
-n:
-x��graph_selecttable
-�graph_type%=4
-�Cmenu_bar%?124=0:menu_bar%?148=0:menu_bar%?172=0:menu_bar%?196=3
-�Emenu_win%?100=0:menu_win%?124=0:menu_win%?148=0:menu_win%?172=129
-�$(ind_frm%+48)="Table"
-��
-�:
-�:
-�3� ********** Some stuff with a caret **********
-�:
-�$��caret_setpos(handle%,icon%,X%)
-�5ș"Wimp_SetCaretPosition",handle%,icon%,0,0,-1,X%
-��
-�:
.ݤlen(N)
.(M%=-1:�M%+=1:�N?M%=0�N?M%=10�N?M%=13
.=M%
.":
.,:
.6*� ********** Fun with fonts **********
.@:
.J��font_check
.T+$block%="<Font$Prefix> and <Font$Path>"
.^.ș"OS_GSTrans",block%,block%+100,255 � ,,N
.hblock%?(100+N)=13
.r3�$(block%+100)<>$font_path%:�font_dothebusiness
.|�
.�:
.���font_dothebusiness
.�ș"Hourglass_On"
.�+$block%="<Font$Prefix> and <Font$Path>"
.�.ș"OS_GSTrans",block%,block%+100,255 � ,,N
.�block%?(100+N)=13
.�$font_path%=$(block%+100)
.�4font_counter%=0:$(font_list%)="System Font":Y=11
.֎menu_fontlist%!28=1:menu_fontlist%!32=-1:menu_fontlist%!36=&7009121:menu_fontlist%!40=font_list%:menu_fontlist%!44=-1:menu_fontlist%!48=40
.�Pș"XOS_ReadVarVal","Font$Path",block%,256,0,3�;N:�(N �1):ș"Hourglass_Off":�
.�y$block%=$(font_list%+text_titlec*40):$(block%+41)=$(font_list%+text_axisc*40):$(block%+82)=$(font_list%+text_keyc*40)
.�:
.�	N=0:�
/Qfont_counter%+=1:ș"Font_ListFonts",,font_list%+(font_counter%*40),N,-1 � ,,N
/6M=�len(font_list%+((font_counter%-1)*40)):�M>Y:Y=M
/�M=28+24*font_counter%:menu_fontlist%!M=0:menu_fontlist%!(M+4)=0:menu_fontlist%!(M+8)=&7009121:menu_fontlist%!(M+12)=font_list%+(font_counter%*40):menu_fontlist%!(M+16)=-1:menu_fontlist%!(M+20)=40
/&�N=-1�font_counter%=256
/0`�font_counter%=256:N=�message("GraphPlus has reached its maximum font handling capacity.",0)
/::
/DWfont_counter%-=1:menu_fontlist%!(28+24*font_counter%)=128:menu_fontlist%!16=16+16*Y
/Nș"Hourglass_Off"
/X$text_titlec=�font_search(block%)
/b&text_axisc=�font_search(block%+41)
/l%text_keyc=�font_search(block%+82)
/v�
/�:
/�ݤfont_search(N)
/�7M=-1:�M+=1:�$N=$(font_list%+M*40)�M=font_counter%+1
/�s�M=font_counter%+1�font_counter%<>0:N=�message("Font "+$N+" cannot be found. Replacing with System Font.",0):=0
/�=M
/�:
/�ݤfont_recognise
/��N=0�39:block%?N=�#X%:�
/�=�font_search(block%)
/�:
/�:
/�'� ********** Window code **********
/�:
0��window_requestRedraw
0$ș"Wimp_RedrawWindow",,poll% � N
0ȕ N
0 $ș"Wimp_GetRectangle",,poll% � N
0*'�!poll%=handle_group%:�group_colour
04%�!poll%=handle_back%:�back_colour
0>�
0H�
0R:
0\��window_requestOpen
0f�!poll%=handle_update%:�
0p8�!poll%<>handle_format%:ș"Wimp_OpenWindow",,poll%:�
0z'�N=0�256�4:block%!(200+N)=poll%!N:�
0�8!block%=handle_pane%:ș"Wimp_GetWindowState",,block%
0�c!poll%=handle_pane%:poll%!4+=52:poll%!8+=100:poll%!16-=80:poll%!20=block%!20:poll%!24=block%!24
0�ș"Wimp_OpenWindow",,poll%
0�;block%!228=handle_pane%:ș"Wimp_OpenWindow",,block%+200
0��
0�:
0���window_requestClose
0�ș"Wimp_CloseWindow",,poll%
0Ԑ�!poll%=handle_format%:graph_window%=�:!block%=handle_pane%:ș"Wimp_CloseWindow",,block%:!block%=handle_create%:ș"Wimp_CloseWindow",,block%
0��
0�:
0���window_opengraph
0��pane_calculate
1�!block%=handle_pane%:block%!4=252:block%!8=288:block%!12=1280:block%!16=660:block%!20=0:block%!24=0:block%!28=-1:ș"Wimp_OpenWindow",,block%
1�!block%=handle_format%:block%!4=200:block%!8=0:block%!12=1280:block%!16=740:block%!20=0:block%!24=0:block%!28=handle_pane%:ș"Wimp_OpenWindow",,block%
1graph_window%=�
1$�
1.:
18��window_liftgraph
1B8!poll%=handle_format%:ș"Wimp_GetWindowState",,poll%
1L#poll%!28=-1:�window_requestOpen
1V�
1`:
1j��window_opendatapath
1t $block%="GraphPlusData$Path"
1~5ș"XOS_ReadVarVal",block%,ind_dp%+4,256,0,3�,,M;N
1�ind_dp%?(4+M)=10
1�=�(N �1)=1:N=�message("Error when reading data path.",0):�
1�>ș"Wimp_CreateSubMenu",,handle_datapath%,poll%!24,poll%!28
1��
1�:
1�:
1�'� ********** What a drag **********
1�:
1���drag_startsave
1�A!block%=handle_save%:block%!4=0:ș"Wimp_GetIconState",,block%
1�>block%!100=handle_save%:ș"Wimp_GetWindowInfo",,block%+100
1�!!poll%=handle_save%:poll%!4=5
2poll%!8=block%!104+block%!8
2
!poll%!12=block%!116+block%!12
2!poll%!16=block%!104+block%!16
2!poll%!20=block%!116+block%!20
2(poll%!24=0:poll%!28=0
22poll%!32=-1:poll%!36=-1
2<Y�dstart%:ș dstart%,%11000101,1,"file_0f0",poll%+8,poll%+24 � ș"Wimp_DragBox",,poll%
2Ffile_status%=1
2P�
2Z:
2d��drag_startcreate
2nC!block%=handle_create%:block%!4=0:ș"Wimp_GetIconState",,block%
2x@block%!100=handle_create%:ș"Wimp_GetWindowInfo",,block%+100
2�#!poll%=handle_create%:poll%!4=5
2�poll%!8=block%!104+block%!8
2�!poll%!12=block%!116+block%!12
2�!poll%!16=block%!104+block%!16
2�!poll%!20=block%!116+block%!20
2�poll%!24=0:poll%!28=0
2�poll%!32=-1:poll%!36=-1
2�Y�dstart%:ș dstart%,%11000101,1,"file_aff",poll%+8,poll%+24 � ș"Wimp_DragBox",,poll%
2�file_status%=10
2��
2�:
2���drag_userdragbox
2�"ș"Wimp_GetPointerInfo",,poll%
3'!block%=256:block%!12=0:block%!16=1
3iblock%!20=poll%!12:block%!24=poll%!16:block%!28=!poll%:block%!32=poll%!4:block%!36=543:block%!40=&0f0
31�file_status%=1:�save_leaf(ind_sa%,block%+44)
3"2�file_status%=10:�save_leaf(ind_sg%,block%+44)
3,+ș"Wimp_SendMessage",18,block%,poll%!12
36file_status%+=1:�
3@:
3J:
3T+� ********** Saving, it helps *********
3^:
3h��save_tempOK
3rBN=-1:�N+=1:�ind_sa%?N=46�ind_sa%?N=0�ind_sa%?N=10�ind_sa%?N=13
3|W�ind_sa%?N<>46:N=�message("To save, drag the template icon to a filer window.",0):�
3�$(poll%+44)=$ind_sa%
3��save_template
3�ș"Wimp_CreateMenu",,-1
3��
3�:
3���save_createOK
3�BN=-1:�N+=1:�ind_sg%?N=46�ind_sg%?N=0�ind_sg%?N=10�ind_sg%?N=13
3�W�ind_sg%?N<>46:N=�message("To save, drag the drawfile icon to a filer window.",0):�
3�$file_graph%=$ind_sg%
3��graph_create
3��
3�:
3���save_leaf(N%,N)
4M=�len(N%)
4�:M-=1:�N%?M=46�M=0
4�N%?M=46:M+=1
4&$N=$(N%+M)
40�
4::
4D��save_ack
4NM�poll%!36=-1:N=�message("Unsafe to save "+$(poll%+44),0):file_status%=0:�
4XZ%=1
4b"�file_status%=2:�save_template
4l&�file_status%=11:�save_creategraph
4v<�Z%<>0:poll%!16=3:ș"Wimp_SendMessage",18,poll%,poll%!20
4�ș"Wimp_CreateMenu",,-1
4��
4�:
4���save_template:�
4�$file_temp%=$(poll%+44)
4�$ind_sa%=$(poll%+44)
4�"ș"XOS_Find",&82,poll%+44�X%;N
4�D�(N �1)=1�X%=0:N=�message("Format template not saved.",0):Z%=0:�
4Љ��M=�message("GraphPlus has encountered an error when saving template. If possible quit GraphPlus and reload.",0):ș"OS_Find",0,X%:�
4�3�dfile_put("GraphPlus Template"):�dfile_bput(0)
4��dfile_bput(graph_type%)
4�'�M=0�27:�dfile_bput(group_map%?M):�
4�)�M=0�251:�dfile_bput(group_data%?M):�
5j�dfile_sputl(font_list%+text_titlec*40,40):�dfile_wput(text_titlex*1000):�dfile_wput(text_titley*1000)
5g�dfile_sputl(font_list%+text_axisc*40,40):�dfile_wput(text_axisx*1000):�dfile_wput(text_axisy*1000)
5d�dfile_sputl(font_list%+text_keyc*40,40):�dfile_wput(text_keyx*1000):�dfile_wput(text_keyy*1000)
5 -�graph_key%:�dfile_bput(1)��dfile_bput(0)
5*.�graph_back%:�dfile_bput(1)��dfile_bput(0)
54,�graph_3D%:�dfile_bput(1)��dfile_bput(0)
5>3�graph_outline%=0:�dfile_bput(1)��dfile_bput(0)
5HQ�dfile_bput(data_back%?1):�dfile_bput(data_back%?2):�dfile_bput(data_back%?3)
5R�dfile_bput(graph_best%)
5\!�M=0�63:�#X%,pie_palette%?M:�
5f0�graph_title%:�dfile_bput(1):��dfile_bput(0)
5p�dfile_sputl(s_title%,40)
5z0�graph_xaxis%:�dfile_bput(1):��dfile_bput(0)
5��dfile_sputl(s_xaxis%,40)
5��dfile_bput(graph_xg%)
5�/�graph_xcal%:�dfile_bput(1):��dfile_bput(0)
5� �dfile_wput(graph_xdiv*1000)
5�!�dfile_wput(graph_xsdiv*1000)
5��dfile_wput(data_xmin*1000)
5��dfile_wput(data_xmax*1000)
5�0�graph_yaxis%:�dfile_bput(1):��dfile_bput(0)
5��dfile_sputl(s_yaxis%,40)
5��dfile_bput(graph_yg%)
5�/�graph_ycal%:�dfile_bput(1):��dfile_bput(0)
5� �dfile_wput(graph_ydiv*1000)
5�!�dfile_wput(graph_ysdiv*1000)
6�dfile_wput(data_ymin*1000)
6�dfile_wput(data_ymax*1000)
6�dfile_bput(graph_bartype%)
6$!�dfile_bput(graph_barmargin%)
6..�graph_exp%:�dfile_bput(1):��dfile_bput(0)
68�dfile_wput(graph_es%)
6B�dfile_wput(graph_ef%)
6Lș"OS_Find",0,X%
6Vș"OS_File",18,ind_sa%,&0f0
6`�
6j:
6t��save_creategraph
6~$file_graph%=$(poll%+44)
6�$ind_sg%=$(poll%+44)
6��graph_create
6��
6�:
6�:
6�8� ********** Well, a load is just as good **********
6�:
6���load_message
6�#�poll%!40=&0f0:�load_template:�
6�[�poll%!40<>&dfe:N=�message("Not a CSV file. Are you sure you want to use it?",3):�N=2:�
6��load_setdatapath
6��
7:
7
��load_template
7X%=�$(poll%+44)
7poll%!12=poll%!8:poll%!16=4
7(*ș"Wimp_SendMessage",17,poll%,poll%!20
72�load_tempfile
7<�#X%
7F�pane_calculate
7P4ș"Wimp_ForceRedraw",handle_pane%,0,-1023,1279,0
7Z�
7d:
7n��load_tempfile:�
7xa��M=�message("GraphPlus template loading error. The current template may be corrupted.",0):�
7��#X%=19:graph_type%=�#X%
7��graph_select(graph_type%)
7��M=0�27:group_map%?M=�#X%:�
7�!�M=0�251:group_data%?M=�#X%:�
7�wtext_titlec=�font_recognise:�file_wget(block%):text_titlex=!block%/1000:�file_wget(block%):text_titley=!block%/1000
7�ttext_axisc=�font_recognise:�file_wget(block%):text_axisx=!block%/1000:�file_wget(block%):text_axisy=!block%/1000
7�qtext_keyc=�font_recognise:�file_wget(block%):text_keyx=!block%/1000:�file_wget(block%):text_keyy=!block%/1000
7�LN=�#X%:�N=1:graph_key%=�:menu_style%?28=1:�graph_key%=�:menu_style%?28=0
7�LN=�#X%:�N=1:graph_box%=�:menu_style%?52=9:�graph_box%=�:menu_style%?52=8
7�LN=�#X%:�N=1:graph_3D%=�:menu_style%?148=1:�graph_3D%=�:menu_style%?148=0
7�[N=�#X%:�N=1:graph_outline%=0:menu_style%?172=129:�graph_outline%=-1:menu_style%?172=128
7�9data_back%?1=�#X%:data_back%?2=�#X%:data_back%?3=�#X%
7�hgraph_best%=�#X%:�graph_best%=2:menu_best%?28=0:menu_best%?52=129:�menu_best%?28=1:menu_best%?52=128
8!�M=0�63:pie_palette%?M=�#X%:�
8.N=�#X%:�N=1:graph_title%=�:�graph_title%=�
8�N=0�39:s_title%?N=�#X%:�
8".N=�#X%:�N=1:graph_xaxis%=�:�graph_xaxis%=�
8,�N=0�39:s_xaxis%?N=�#X%:�
86graph_xg%=�#X%
8@,N=�#X%:�N=1:graph_xcal%=�:�graph_xcal%=�
8J,�file_wget(poll%):graph_xdiv=!poll%/1000
8T-�file_wget(poll%):graph_xsdiv=!poll%/1000
8^+�file_wget(poll%):data_xmin=!poll%/1000
8h+�file_wget(poll%):data_xmax=!poll%/1000
8r.N=�#X%:�N=1:graph_yaxis%=�:�graph_yaxis%=�
8|�N=0�39:s_yaxis%?N=�#X%:�
8�graph_yg%=�#X%
8�,N=�#X%:�N=1:graph_ycal%=�:�graph_ycal%=�
8�,�file_wget(poll%):graph_ydiv=!poll%/1000
8�-�file_wget(poll%):graph_ysdiv=!poll%/1000
8�+�file_wget(poll%):data_ymin=!poll%/1000
8�+�file_wget(poll%):data_ymax=!poll%/1000
8�graph_bartype%=�#X%
8�graph_barmargin%=�#X%
8�*N=�#X%:�N=1:graph_exp%=�:�graph_exp%=�
8�&�file_wget(poll%):graph_es%=!poll%
8�&�file_wget(poll%):graph_ef%=!poll%
8��graph_select(graph_type%)
8��
9:
9��load_dataopen
9 �poll%!40=&0f0:�load_message
9&�
90:
9:��load_setdatapath
9D,�("Set GraphPlusData$Path "+$(poll%+44))
9N�
9X:
9b:
9l/� ********** Those darn messages **********
9v:
9���message_process
9�Ȏpoll%!16�
9� �0     :�byebye_shutdown
9� �2     :�save_ack
9� �3     :�load_message
9� �5     :�load_dataopen
9�! �&400C0:�message_menuwarning
9��:�
9�:
9���message_menuwarning
9�Ȏmenu_current%�
9� �1:�message_menubar
9� �2:�message_winbar
:�
:�
::
: ��message_menubar
:*)�poll%!32=1�poll%!36=1:�menu_openback
:45�poll%!32=1�poll%!36=2:�font_check:�menu_openfont
:>,�poll%!32=1�poll%!36=4:�menu_openpalette
:H)�poll%!32=3�poll%!36=0:�menu_opensave
:R/�poll%!32=3�poll%!36=1:�window_opendatapath
:\4�poll%!32=2�poll%!36=0�poll%!40<>6:�menu_openmap
:f5�poll%!32=2�poll%!36=0�poll%!40=6:�menu_openlabel
:p*�poll%!32=2�poll%!36=1:�menu_opengroup
:z�
:�:
:���message_winbar
:�)�poll%!32=0�poll%!36=1:�menu_openback
:�5�poll%!32=0�poll%!36=2:�font_check:�menu_openfont
:�,�poll%!32=0�poll%!36=4:�menu_openpalette
:�)�poll%!32=2�poll%!36=0:�menu_opensave
:�/�poll%!32=2�poll%!36=1:�window_opendatapath
:�4�poll%!32=1�poll%!36=0�poll%!40<>6:�menu_openmap
:�5�poll%!32=1�poll%!36=0�poll%!40=6:�menu_openlabel
:�*�poll%!32=1�poll%!36=1:�menu_opengroup
:��
:�:
:�:
;-� ********** Things at the end **********
;:
;��byebye_shutdown
;$&ș"Wimp_CloseDown",task%,&4B534154
;.ș"OS_Exit"
;8� Good Ridance
;B�
;L:
;Vnݤmessage($(mess%+20),flag%):mess%!16=0:$mess%="GraphPlus":ș"Wimp_ReportError",mess%+16,flag%,mess%�,N:=N
;`:
;j��error
;t
;~�N=�message("Serious internal error &"+�~(�)+": must exit. Click on OK to dump current template in GraphPlus directory as 'TempDump'.",3):�N=1:�error_dump
;��byebye_shutdown
;�FISH
;�:
;���error_dump
;�($block%="GraphPlus$Dir":block%?256=0
;�4ș"XOS_ReadVarVal",block%,poll%+44,256,0,3�,,M;N
;�V�(N �1)=1:N=�message("Format template not saved; directory variable deleted.",0):�
;�$(poll%+44+M)=".TempDump"
;��save_template
;��
;�:
;�:
<0� ********** Lets make some graph **********
<
:
<:
<��graph_savebox
<(X=!poll%:Y=poll%!4
<2 $block%="GraphPlusData$Path"
<<3ș"XOS_ReadVarVal",block%,block%+100,256,0,3�;N
<F`�(N �1)=1:N=�message("The data path variable has been deleted. Unable to create graph.",0):�
<P&N=99:�N+=1:�block%?N=46�block%?N=0
<ZZ�block%?N=0:N=�message("GraphPlus has not seen any data. Unable to create graph.",0):�
<d`�$(ind_pn%+24)<>$s_title%�$(ind_pn%+98)<>$s_xaxis%�$(ind_pn%+368)<>$s_yaxis%:flag_fiddled%=�
<n��graph_xdiv<>�$(ind_pn%+212)�graph_xsdiv<>�$(ind_pn%+244)�data_xmin<>�$(ind_pn%+299)�data_xmax<>�$(ind_pn%+318):flag_fiddled%=�
<x��graph_ydiv<>�$(ind_pn%+482)�graph_ysdiv<>�$(ind_pn%+514)�data_ymin<>�$(ind_pn%+569)�data_ymax<>�$(ind_pn%+588):flag_fiddled%=�
<�J�graph_es%<>�$(ind_pn%+971)�graph_ef%<>�$(ind_pn%+983):flag_fiddled%=�
<���flag_fiddled%:N=�message("The graph format window has been altered. Do you want to create a graph with the stored template, or cancel this operation?",3):�N=2:�
<�$ind_sg%=$file_graph%
<�!block%=handle_create%
<�>block%!4=X-64:block%!8=-500:block%!12=X+500:block%!16=Y+48
<�block%!20=0:block%!24=0
<�block%!28=-1
<�ș"Wimp_OpenWindow",,block%
<�Gș"Wimp_SetCaretPosition",handle_create%,1,0,0,-1,�len(file_graph%)
<��
<�:
<���graph_create:�
<�update_faster%=�
=+$text%="Loading datafile":�update_start
=�� �error
=8�graph_box%:!graph_back%=!data_back%�!graph_back%=-1
="-graph_titlec=0:graph_axisc=0:graph_keyc=0
=,:
=6ș"Wimp_SlotSize",-1,-1�Z%
=@"$block%="<GraphPlusData$Path>"
=J#ș"XOS_File",17,block%�,,,,V%;N
=Tx�(N �1)=1:N=�message("Data file not loaded: couldn't read file size. Unable to create graph",0):Z%=0:�update_smash:�
=^"ș"XWimp_SlotSize",Z%+V%,-1�;N
=ho�(N �1)=1:N=�message("Not enough memory to load data file. Unable to create graph.",0):Z%=0:�update_smash:�
=r&ș"XOS_File",16,block%,Z%+&8001�;N
=|w�(N �1)=1:N=�message("Data file not loaded. Unable to create graph",0):ș"Wimp_SlotSize",Z%,-1:Z%=0:�update_smash:�
=�3M%=0:�group%=0�5:�group_map%!(group%*4)>0:M%+=1
=��
=���M%=0:N=�message("Graph error. There is no specified data. Unable to create graph.",0):ș"Wimp_SlotSize",Z%,-1:Z%=0:�update_smash:�
=��N=�len(file_graph%):M%=N+1:�N-=1:�file_graph%?N=46:M=0:�block%?(100+M)=file_graph%?M:M+=1:�M=N+1:block%?(100+M)=13:N+=1:M=0:�block%?M=file_graph%?N:N+=1:M+=1:�N=M%:block%?M=13
=�*ș"XOS_File",13,block%,,,block%+100�X%
=�u�X%=2:N=�message("A directory already exists with this pathname.",0):ș"Wimp_SlotSize",Z%,-1:Z%=0:�update_smash:�
=–graph_overlay%=�:�X%=1:N=�message("This file already exists. Click OK to overlay this graph or Cancel to overwrite file.",3):�N=1:graph_overlay%=�
=�3�graph_overlay%:ș"OS_Find",&82,file_graph%�X%
=�a�graph_overlay%:ș"OS_Find",&C2,file_graph%�X%:�X%<>0:ș"OS_Args",2,X%�,,M:ș"OS_Args",1,X%,M
=�j�X%=0:N=�message("Save error. Unable to create graph.",0):ș"Wimp_SlotSize",Z%,-1:Z%=0:�update_smash:�
=�:
=��� ș"OS_Find",0,X%:�error
=��update_start
>:
>"�graph_overlay%:�graph_header
>P�graph_overlay%:�text_titlec<>0�text_axisc<>0�text_keyc<>0:�graph_fonttable
>&Ȏgraph_type%�
>0 �1:�graph_datascaleLine
>: �2:�graph_datascaleBar
>D�
>N:
>X$$text%="Page layout":�update_top
>b:�graph_overlay%:�graph_box%�graph_type%<>4:�graph_box
>l>�graph_overlay%:�graph_type%=1�graph_type%=2:�graph_paper
>vC!block%=handle_format%:block%!4=3:ș"Wimp_GetIconState",,block%
>�F�graph_overlay%:�graph_title%�graph_type%<>4:�graph_title(223000)
>�I�graph_overlay%:�graph_key%�graph_type%<>3�graph_type%<>4:�graph_key
>�:
>�Ȏgraph_type%�
>� �1:�graph_createline
>� �2:�graph_createbar
>� �3:�graph_createpie
>� �4:�graph_createtable
>��
>�:
>�ș"OS_Find",0,X%
>�#ș"OS_File",18,file_graph%,&aff
>�ș"Wimp_SlotSize",Z%,-1�;N
?:
?�update_smash
?D�pane_calculate:ș"Wimp_ForceRedraw",handle_pane%,0,-1023,1279,0
? �
?*:
?4��graph_createline
?>7R%=0:�group%=0�5:�group_map%!(group%*4)>0:R%+=15000
?H�:R%-=15000
?R�graph_3D%:R%=0
?\�group%=5�0�-1
?f4$text%="Drawing group: "+�(group%+1):�update_top
?p�group_map%!(group%*4)>0 �
?z!N%=group_data%?(group%*42+10)
?� �(N%�4)=4:�graph_bestfit
?�* �(N%�2)=2��graph_3D%:�graph_lineunder
?�* �(N%�1)=1��graph_3D%:�graph_pointline
?�6 �((N%�1)=1�(N%�2)=2)�graph_3D%:�graph_pointline3D
?�) �(N%�2)=2�graph_3D%:�graph_lineunder
?� �graph_points
?� �graph_3D%:R%-=15000
?��
?��
?��
?�:
?���graph_createbar
?�Ȏgraph_bartype%�
@ �5 :�graph_barOvr
@ �15:�graph_barOvr
@ :�graph_bar
@$�
@.3N=group_map%!24:�N>0�N<=data_width%:�bar_labels
@8�
@B:
@L��graph_createpie
@V�graph_datapara
@`1M=0:�group%=0�5:�group_map%!(group%*4)>0:M+=1
@j�:�M=0:�
@t#�group_map%!24>0�M>1:�graph_key
@~1M=0:�group%=0�5:�group_map%!(group%*4)>0:M+=1
@��:Ȏ M �
@� �1:R%=90000
@� �2:R%=63500
@� �3:R%=40000
@� �4:R%=40000
@� �5:R%=40000
@� �6:R%=40000
@��
@��graph_3D%:R%-=10000
@��group%=5�0�-1
@�( X=0:�N=0�5:�group_map%!(N*4)>0:X+=1
@� �
A Y=X �2
A
/ A%=0:�N=0�group%:�group_map%!(N*4)>0:A%+=1
A �
A �X<=2:Y=X
A( X-=1:Y-=1:A%-=1
A26 $text%="Creating chart: "+�(group%+1):�update_top
A< �group_map%!(group%*4)>0 �
AF  �graph_piedraw
AP �
AZ�
Ad�
An:
Ax��graph_createtable
A��graph_datapara
A�'$text%="Creating table":�update_top
A�4Y=640*text_axisy:�text_axisc=0:Y=1000*text_axisy
A�� group_map%!24>0�
A�# $text%="Labels":�update_bottom
A� x=0
A� �A%=1�data_length%
A�! �data_sget(group_map%!24,A%)
A� O=�len(block%)
A� O+=4-(O �4)
A� �text_axisc<>0 �
A�U  ș"Font_FindFont",,font_list%+text_axisc*40,text_axisx*16,text_axisy*16,0,0 � N
A�K  ș"Font_StringWidth",,block%,300000,200000,-1,block%+�len(block%)�,,X
B  ș"Font_LoseFont",N
B �
B$  X=text_axisx*1000*�len(block%)
B" �
B, X=X*640/1000
B6
 �X>x:x=X
B@ �
BJ
 x+=10000
BT �A%=1�data_length%
B^! �data_sget(group_map%!24,A%)
Bh O=�len(block%)
Br O+=4-(O �4)
B|L �graph_box%:�table_box(0,Y*data_length%-A%*Y,x,Y*data_length%-(A%-1)*Y)
B�n �dfile_wput(1):�dfile_wput(24+28+O):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
B�~ �dfile_wput(0):�dfile_bput(?graph_back%):�dfile_bput(graph_back%?1):�dfile_bput(graph_back%?2):�dfile_bput(graph_back%?3)
B�� �dfile_wput(graph_axisc):�dfile_wput(640*text_axisx):�dfile_wput(640*text_axisy):�dfile_wput(5000):�dfile_wput(Y*data_length%-(A%-.25)*Y):�dfile_sput(block%)
B� �poll_minorloop
B� �
B�	 B%=x
B��
B��group%=0�5
B��group_map%!(group%*4)>0�
B�/ $text%="Group "+�(group%+1):�update_bottom
B� x=0
B� �A%=1�data_length%
B�) �data_sget(group_map%!(group%*4),A%)
C O=�len(block%)
C O+=4-(O �4)
C �text_axisc<>0 �
C&U  ș"Font_FindFont",,font_list%+text_axisc*40,text_axisx*16,text_axisy*16,0,0 � N
C0K  ș"Font_StringWidth",,block%,300000,200000,-1,block%+�len(block%)�,,X
C:  ș"Font_LoseFont",N
CD �
CN$  X=text_axisx*1000*�len(block%)
CX �
Cb X=X*640/1000
Cl
 �X>x:x=X
Cv �
C� �graph_key%�
C�)  $block%=$(group_data%+group%*42+11)
C�  O=�len(block%)
C�  O+=4-(O �4)
C�  �text_axisc<>0 �
C�V   ș"Font_FindFont",,font_list%+text_axisc*40,text_axisx*16,text_axisy*16,0,0 � N
C�L   ș"Font_StringWidth",,block%,300000,200000,-1,block%+�len(block%)�,,X
C�   ș"Font_LoseFont",N
C�  �
C�%   X=text_axisx*1000*�len(block%)
C�  �
C�  X=X*640/1000
C�  �X>x:x=X
D �
D
 x+=10000
D �A%=1�data_length%
D ) �data_sget(group_map%!(group%*4),A%)
D* O=�len(block%)
D4 O+=4-(O �4)
D>P �graph_box%:�table_box(B%,Y*data_length%-A%*Y,B%+x,Y*data_length%-(A%-1)*Y)
DHn �dfile_wput(1):�dfile_wput(24+28+O):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
DR~ �dfile_wput(0):�dfile_bput(?graph_back%):�dfile_bput(graph_back%?1):�dfile_bput(graph_back%?2):�dfile_bput(graph_back%?3)
D\� �dfile_wput(graph_axisc):�dfile_wput(640*text_axisx):�dfile_wput(640*text_axisy):�dfile_wput(B%+5000):�dfile_wput(Y*data_length%-(A%-.25)*Y):�dfile_sput(block%)
Df �poll_minorloop
Dp �
Dz �graph_key%�
D�)  $block%=$(group_data%+group%*42+11)
D�  O=�len(block%)
D�  O+=4-(O �4)
D�G  �graph_box%:�table_box(B%,Y*data_length%,B%+x,Y*(data_length%+1))
D�o  �dfile_wput(1):�dfile_wput(24+28+O):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
D�  �dfile_wput(0):�dfile_bput(?graph_back%):�dfile_bput(graph_back%?1):�dfile_bput(graph_back%?2):�dfile_bput(graph_back%?3)
D��  �dfile_wput(graph_axisc):�dfile_wput(640*text_axisx):�dfile_wput(640*text_axisy):�dfile_wput(B%+5000):�dfile_wput(Y*(data_length%+.25)):�dfile_sput(block%)
D� �
D�
 B%+=x
D��
D��
D�B�graph_title%�graph_key%:�graph_title(Y*(data_length%+1)+3000)
D�?�graph_title%��graph_key%:�graph_title(Y*data_length%+3000)
E�
E:
E��table_box(x,y,X,Y)
E$� OH: A box
E.r�dfile_wput(2):�dfile_wput(24+16+12*5+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(320000):�dfile_wput(220000)
E8��dfile_bput(?graph_back%):�dfile_bput(graph_back%?1):�dfile_bput(graph_back%?2):�dfile_bput(graph_back%?3):�dfile_wput(0):�dfile_wput(0):�dfile_wput(0)
EB0�dfile_wput(2):�dfile_wput(x):�dfile_wput(y)
EL0�dfile_wput(8):�dfile_wput(X):�dfile_wput(y)
EV0�dfile_wput(8):�dfile_wput(X):�dfile_wput(Y)
E`0�dfile_wput(8):�dfile_wput(x):�dfile_wput(Y)
Ej0�dfile_wput(8):�dfile_wput(x):�dfile_wput(y)
Et�dfile_wput(0)
E~�
E�:
E���graph_piedraw
E�y�X<=1:�graph_piekey(160000+(R%*2.75*(A%-Y/2)),110000-R%*(1.2+X*.2)):�graph_pie(160000+(R%*2.75*(A%-Y/2)),110000,R%):�
E��graph_3D%:N=10000:�N=0
E���X>=2:�Y>=A%:�graph_piekey(160000+(R%*2.75*(A%-Y/2)),110000+N+R%*2.5):�graph_pie(160000+(R%*2.75*(A%-Y/2)),110000+R%*1.3,R%):�
E��graph_3D%:N=-5000:�N=0
Eĕ�X>=2:�Y<A%:�graph_piekey(160000+(R%*2.75*((A%-Y)-(X-Y+1)/2)),110000+N-R%*2.5):�graph_pie(160000+(R%*2.75*((A%-Y)-(X-Y+1)/2)),110000-R%*1.3,R%):�
E��
E�:
E���graph_paper
E��graph_axis
E��graph_type%=1:�graph_xdiv
F0�graph_type%=2�graph_bartype%>10:�graph_xdiv
F
1�graph_type%=1�graph_xg%=1:�graph_xdivgrid(0)
FC�graph_type%=2�graph_bartype%>10�graph_xg%=1:�graph_xdivgrid(0)
F3�graph_type%=1�graph_xg%=2:�graph_xdivgrid(128)
F(E�graph_type%=2�graph_bartype%>10�graph_xg%=2:�graph_xdivgrid(128)
F2 �graph_xg%=1:�graph_xedge(0)
F<"�graph_xg%=2:�graph_xedge(128)
FF�graph_type%=1:�graph_ydiv
FP0�graph_type%=2�graph_bartype%<10:�graph_ydiv
FZ1�graph_type%=1�graph_yg%=1:�graph_ydivgrid(0)
FdC�graph_type%=2�graph_bartype%<10�graph_yg%=1:�graph_ydivgrid(0)
Fn3�graph_type%=1�graph_yg%=2:�graph_ydivgrid(128)
FxE�graph_type%=2�graph_bartype%<10�graph_yg%=2:�graph_ydivgrid(128)
F� �graph_yg%=1:�graph_yedge(0)
F�"�graph_yg%=2:�graph_yedge(128)
F��graph_xaxis%:�graph_xlabel
F��graph_yaxis%:�graph_ylabel
F��
F�:
F�:
F���graph_header
F�E$block%="Draw�"+�7,�0)+�3,�0)+"GraphPlus":�dfile_sputl(block%,24)
F�I�dfile_wput(0):�dfile_wput(0):�dfile_wput(460000):�dfile_wput(250000)
F��
F�:
F���graph_datascaleLine
G,$text%="Datascalling (Line)":�update_top
G�graph_datapara
G!block%=handle_format%
G"4�graph_xcal%:�graph_searchminx:�graph_searchmaxx
G,%�data_xmin=data_xmax:data_xmax+=1
G64�graph_ycal%:�graph_searchminy:�graph_searchmaxy
G@%�data_ymin=data_ymax:data_ymax+=1
GJG�graph_xdiv=0:graph_xdiv=data_xmax-data_xmin:graph_xsdiv=graph_xdiv
GT@�graph_xsdiv=0�graph_xsdiv>graph_xdiv:graph_xsdiv=graph_xdiv
G^Y�graph_xdiv>data_xmax-data_xmin:graph_xdiv=data_xmax-data_xmin:graph_xsdiv=graph_xdiv
Gh;�graph_xsdiv>data_xmax-data_xmin:graph_xsdiv=graph_xdiv
GrG�graph_ydiv=0:graph_ydiv=data_ymax-data_ymin:graph_ysdiv=graph_ydiv
G|@�graph_ysdiv=0�graph_ysdiv>graph_ydiv:graph_ysdiv=graph_ydiv
G�Y�graph_ydiv>data_ymax-data_ymin:graph_ydiv=data_ymax-data_ymin:graph_ysdiv=graph_ydiv
G�;�graph_ysdiv>data_ymax-data_ymin:graph_ysdiv=graph_ydiv
G�:
G�1M=0:�group%=0�5:�group_map%!(group%*4)>0:M+=1
G��:�graph_3D%:M=0
G�
M=15000*M
G�3graph_xscale=(280000-M) / (data_xmax-data_xmin)
G�3graph_yscale=(180000-M) / (data_ymax-data_ymin)
G��
G�:
G���graph_datascaleBar
G�+$text%="Datascalling (Bar)":�update_top
G��graph_datapara
H:
H4�graph_xcal%:�graph_searchminx:�graph_searchmaxx
H%�data_xmin=data_xmax:data_xmax+=1
H&4�graph_ycal%:�graph_searchminh:�graph_searchmaxh
H0%�data_ymin=data_ymax:data_ymax+=1
H:G�graph_xdiv=0:graph_xdiv=data_xmax-data_xmin:graph_xsdiv=graph_xdiv
HD@�graph_xsdiv=0�graph_xsdiv>graph_xdiv:graph_xsdiv=graph_xdiv
HNY�graph_xdiv>data_xmax-data_xmin:graph_xdiv=data_xmax-data_xmin:graph_xsdiv=graph_xdiv
HX;�graph_xsdiv>data_xmax-data_xmin:graph_xsdiv=graph_xdiv
HbG�graph_ydiv=0:graph_ydiv=data_ymax-data_ymin:graph_ysdiv=graph_ydiv
Hl@�graph_ysdiv=0�graph_ysdiv>graph_ydiv:graph_ysdiv=graph_ydiv
HvY�graph_ydiv>data_ymax-data_ymin:graph_ydiv=data_ymax-data_ymin:graph_ysdiv=graph_ydiv
H�;�graph_ysdiv>data_ymax-data_ymin:graph_ysdiv=graph_ydiv
H�:
H�1N=0:�group%=0�5:�group_map%!(group%*4)>0:N+=1
H��
H��graph_3D%:N=0
H�5�graph_3D%�graph_type%=2�graph_bartype%�10<>3:N=1
H�
N=15000*N
H�3graph_xscale=(280000-N) / (data_xmax-data_xmin)
H�3graph_yscale=(180000-N) / (data_ymax-data_ymin)
H�:
H�N=0:�group%=0�5
H�!�group_map%!(group%*4)>0:N+=1
H�
�:R%=N
I%�graph_3D%�graph_bartype%<>3:R%=1
I�graph_3D%:R%=0
I$M=0:�(graph_barmargin%�1)=1:M+=1
I $�(graph_barmargin%�128)=128:M+=1
I*>�graph_bartype%>10:L%=180000-R%*15000:� L%=280000-R%*15000
I4Ȏgraph_bartype%�10�
I> �1
IH) $text%="Graph adjacent:":�update_top
IR( graph_barsize=L%/(data_length%*N+M)
I\$ graph_groupsize=graph_barsize*N
If! graph_barwidth=graph_barsize
Ip �2
Iz+ $text%="Graph individual:":�update_top
I�+ graph_barsize=L%/(data_length%*N-.5+M)
I�$ graph_groupsize=graph_barsize*N
I�# graph_barwidth=graph_barsize/2
I� �3
I�' $text%="Graph offset:":�update_top
I� �graph_3D%�
I�+  graph_groupsize=L%/(data_length%-1+M)
I�(  graph_barwidth=graph_groupsize*.75
I�&  graph_barsize=graph_barwidth*.75
I� �
I�0  graph_barwidth=L%/(data_length%*(N+1)-1+M)
I�*  graph_groupsize=graph_barwidth*(N+1)
I�&  graph_barsize=graph_barwidth*.75
J �
J �4
J( $text%="Graph grouped:":�update_top
J$. graph_barsize=L%/(data_length%*(N+1)-1+M)
J.( graph_groupsize=graph_barsize*(N+1)
J8! graph_barwidth=graph_barsize
JB �5
JL) $text%="Graph overlaid:":�update_top
JV- graph_groupsize=L%/(data_length%-.5+M/2)
J` graph_barsize=0
Jj% graph_barwidth=graph_groupsize/2
Jt�
J~�
J�:
J���graph_datascalePie
J�
�N=0�5
J�8�group_map%!(N*4)>(data_width%-1):group_map%!(N*4)=0
J��
J��
J�:
J���graph_datapara
J�Y%=&8001
J�	M=1:�
J�A=Z%?Y%:Y%+=1
J��A=44:M+=1
K�A=10�A=13
K
data_width%=M
K	M=1:�
KA=Z%?Y%:Y%+=1
K(�A=10�A=13:M+=1
K2�Y%=&8001+V%
K<data_length%=M
KF!�graph_type%=1:data_width%-=1
KP;�N=0�5:�group_map%!(N*4)>data_width%:group_map%!(N*4)=0
KZ#�:�graph_type%=1:data_width%+=1
Kd�
Kn:
Kx��graph_searchminx
K�%$text%="Minimum x":�update_bottom
K�M=�data_get(!group_map%,1)
K��group%=0�5
K�x%=group_map%!(group%*4)
K�� x%>0 �
K� �y%=1�data_length%
K�  X=�data_get(x%,y%):�X<M:M=X
K� �
K��
K��
K�data_xmin=M
K��
K�:
L��graph_searchmaxx
L%$text%="Maximum x":�update_bottom
LM=�data_get(!group_map%,1)
L"�group%=0�5
L,x%=group_map%!(group%*4)
L6� x%>0 �
L@ �y%=1�data_length%
LJ  Y=�data_get(x%,y%):�Y>M:M=Y
LT �
L^�
Lh�
Lrdata_xmax=M
L|�
L�:
L���graph_searchminy
L�%$text%="Minimum y":�update_bottom
L� M=�data_get(!group_map%+1,1)
L��group%=0�5
L�x%=group_map%!(group%*4)
L�� x%>0 �
L� �y%=1�data_length%
L�" X=�data_get(x%+1,y%):�X<M:M=X
L� �
L��
L��
L�data_ymin=M
M�
M:
M��graph_searchmaxy
M&%$text%="Maximum y":�update_bottom
M0 M=�data_get(!group_map%+1,1)
M:�group%=0�5
MDx%=group_map%!(group%*4)
MN� x%>0 �
MX �y%=1�data_length%
Mb" Y=�data_get(x%+1,y%):�Y>M:M=Y
Ml �
Mv�
M��
M�data_ymax=M
M��
M�:
M���graph_searchminh
M�*$text%="Minimum height":�update_bottom
M�M=�data_get(!group_map%,1)
M��group%=0�5
M�x%=group_map%!(group%*4)
M�� x%>0 �
M� �y%=1�data_length%
M�  X=�data_get(x%,y%):�X<M:M=X
M� �
N�
N�
Ndata_ymin=M
N �
N*:
N4��graph_searchmaxh
N>*$text%="Maximum height":�update_bottom
NHM=�data_get(!group_map%,1)
NR�group%=0�5
N\x%=group_map%!(group%*4)
Nf� x%>0 �
Np �y%=1�data_length%
Nz  Y=�data_get(x%,y%):�Y>M:M=Y
N� �
N��
N��
N�data_ymax=M
N��
N�:
N���graph_box
N�� OH: Bounding box
N�m�dfile_wput(2):�dfile_wput(24+20*4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(320000):�dfile_wput(220000)
Nޛ�dfile_bput(?graph_back%):�dfile_bput(graph_back%?1):�dfile_bput(graph_back%?2):�dfile_bput(graph_back%?3):�dfile_wput(0):�dfile_wput(0):�dfile_wput(0)
N�0�dfile_wput(2):�dfile_wput(0):�dfile_wput(0)
N�5�dfile_wput(8):�dfile_wput(320000):�dfile_wput(0)
N�:�dfile_wput(8):�dfile_wput(320000):�dfile_wput(220000)
O5�dfile_wput(8):�dfile_wput(0):�dfile_wput(220000)
O0�dfile_wput(8):�dfile_wput(0):�dfile_wput(0)
O�dfile_wput(0)
O$�
O.:
O8��graph_axis
OB $text%="Axis":�update_bottom
OL'M=0:�N=0�5:�group_map%!(N*4)>0:M+=1
OV�:�graph_3D%:M=0
O`2�graph_3D%�graph_type%=2�graph_bartype%<>3:M=1
Oj�N=0�M:X=N*15000
Ot� OH: Axis
O~k�dfile_wput(2):�dfile_wput(24+56):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
O�@�dfile_wput(-1):�dfile_wput(0):�dfile_wput(0):�dfile_wput(0)
O�_�dfile_wput(2):�dfile_wput(20000+X):�dfile_wput(20000+X+(data_ymax-data_ymin)*graph_yscale)
O�<�dfile_wput(8):�dfile_wput(20000+X):�dfile_wput(20000+X)
O�_�dfile_wput(8):�dfile_wput(20000+X+(data_xmax-data_xmin)*graph_xscale):�dfile_wput(20000+X)
O��dfile_wput(0)
O��
O��graph_3D%:�
O�:
O�r�dfile_wput(2):�dfile_wput(24+16+6*12+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
O�@�dfile_wput(-1):�dfile_wput(0):�dfile_wput(0):�dfile_wput(0)
O�[�dfile_wput(2):�dfile_wput(20000):�dfile_wput(20000+(data_ymax-data_ymin)*graph_yscale)
O�_�dfile_wput(8):�dfile_wput(20000+X):�dfile_wput(20000+X+(data_ymax-data_ymin)*graph_yscale)
P8�dfile_wput(2):�dfile_wput(20000):�dfile_wput(20000)
P
<�dfile_wput(8):�dfile_wput(20000+X):�dfile_wput(20000+X)
P[�dfile_wput(2):�dfile_wput(20000+(data_xmax-data_xmin)*graph_xscale):�dfile_wput(20000)
P_�dfile_wput(8):�dfile_wput(20000+X+(data_xmax-data_xmin)*graph_xscale):�dfile_wput(20000+X)
P(�dfile_wput(0)
P2�
P<:
PF��graph_xdiv
PP'$text%="X divisions":�update_bottom
PZ� OH: X divisions
Pd)A%=(data_xmax-data_xmin) / graph_xdiv
PnB%=graph_xdiv / graph_xsdiv
Px}�dfile_wput(2):�dfile_wput(24+16+((A%+A%*B%)*24)+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
P�@�dfile_wput(-1):�dfile_wput(0):�dfile_wput(0):�dfile_wput(0)
P��M=1�A%
P�T�dfile_wput(2):�dfile_wput(20000+(M*graph_xdiv*graph_xscale)):�dfile_wput(20000)
P�T�dfile_wput(8):�dfile_wput(20000+(M*graph_xdiv*graph_xscale)):�dfile_wput(17000)
P��O=1�B%
P�u�dfile_wput(2):�dfile_wput(20000+((M-1)*graph_xdiv*graph_xscale)+(O*graph_xsdiv*graph_xscale)):�dfile_wput(20000)
P�u�dfile_wput(8):�dfile_wput(20000+((M-1)*graph_xdiv*graph_xscale)+(O*graph_xsdiv*graph_xscale)):�dfile_wput(18000)
P��
P��
P��dfile_wput(0)
P�+$text%="X division text":�update_bottom
P�� OH: X division text
P��M=0�A%
Q.$(block%)=�(data_xmin+M*graph_xdiv)+�4,�0)
QO=0:�O+=1:�block%?O=0
QO+=4-(O �4)
Q"�text_axisc<>0 �
Q,T ș"Font_FindFont",,font_list%+text_axisc*40,text_axisx*16,text_axisy*16,0,0 � N
Q6J ș"Font_StringWidth",,block%,300000,200000,-1,block%+�len(block%)�,,X
Q@ ș"Font_LoseFont",N
QJ�
QT"X=text_axisx*1000*�len(block%)
Q^�
QhX=X*320/1000
Qrm�dfile_wput(1):�dfile_wput(24+28+O):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
Q|}�dfile_wput(0):�dfile_bput(?graph_back%):�dfile_bput(graph_back%?1):�dfile_bput(graph_back%?2):�dfile_bput(graph_back%?3)
Q���dfile_wput(graph_axisc):�dfile_wput(640*text_axisx):�dfile_wput(640*text_axisy):�dfile_wput(20000+(M*graph_xdiv*graph_xscale)-X):�dfile_wput(15000-380*text_axisy):�dfile_sput(block%)
Q��
Q��
Q�:
Q���graph_xdivgrid(N)
Q�9�N=0:$text%="X grid (solid)"�$text%="X grid (dotted)"
Q��update_bottom
Q�R%=0:�group%=0�5
Q�"�group_map%!(group%*4)>0:R%+=1
Q��
Q�3�graph_3D%�graph_type%=2�graph_bartype%<>3:R%=1
Q��graph_3D%:R%=0
Q�:
R� OH: X divisions grid
R)A%=(data_xmax-data_xmin) / graph_xdiv
RM=0:�R%>0:M=1
R&L%=0:�N=128:L%=16
R0��dfile_wput(2):�dfile_wput(24+16+L%+(A%*24)+M*12*A%+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
R:@�dfile_wput(-1):�dfile_wput(0):�dfile_wput(0):�dfile_wput(N)
RDL�N=128:�dfile_wput(0):�dfile_wput(2):�dfile_wput(4000):�dfile_wput(3000)
RN�M=1�A%
RXT�dfile_wput(2):�dfile_wput(20000+(M*graph_xdiv*graph_xscale)):�dfile_wput(20000)
Rbl�R%>0:�dfile_wput(8):�dfile_wput(20000+(M*graph_xdiv*graph_xscale)+R%*15000):�dfile_wput(20000+R%*15000)
Rl^�dfile_wput(8):�dfile_wput(20000+(M*graph_xdiv*graph_xscale)+R%*15000):�dfile_wput(200000)
Rv�
R��dfile_wput(0)
R��
R�:
R���graph_xedge(N)
R�9�N=0:$text%="X edge (solid)"�$text%="X edge (dotted)"
R��update_bottom
R�� OH: X edge
R�L%=0:�N=128:L%=16
R�s�dfile_wput(2):�dfile_wput(24+16+L%+24+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
R�@�dfile_wput(-1):�dfile_wput(0):�dfile_wput(0):�dfile_wput(N)
R�L�N=128:�dfile_wput(0):�dfile_wput(2):�dfile_wput(4000):�dfile_wput(3000)
R�B�dfile_wput(2):�dfile_wput(300000):�dfile_wput(20000+R%*15000)
R�:�dfile_wput(8):�dfile_wput(300000):�dfile_wput(200000)
S�dfile_wput(0)
S�
S:
S ��graph_ydiv
S*'$text%="Y divisions":�update_bottom
S4� OH: Y divisions
S>)A%=(data_ymax-data_ymin) / graph_ydiv
SHB%=graph_ydiv / graph_ysdiv
SR}�dfile_wput(2):�dfile_wput(24+16+((A%+A%*B%)*24)+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
S\@�dfile_wput(-1):�dfile_wput(0):�dfile_wput(0):�dfile_wput(0)
Sf�M=1�A%
SpT�dfile_wput(2):�dfile_wput(20000):�dfile_wput(20000+(M*graph_ydiv*graph_yscale))
SzT�dfile_wput(8):�dfile_wput(17000):�dfile_wput(20000+(M*graph_ydiv*graph_yscale))
S��O=1�B%
S�u�dfile_wput(2):�dfile_wput(20000):�dfile_wput(20000+((M-1)*graph_ydiv*graph_yscale)+(O*graph_ysdiv*graph_yscale))
S�u�dfile_wput(8):�dfile_wput(18000):�dfile_wput(20000+((M-1)*graph_ydiv*graph_yscale)+(O*graph_ysdiv*graph_yscale))
S��
S��
S��dfile_wput(0)
S�+$text%="Y division text":�update_bottom
S�� OH: Y division text
S��M=0�A%
S�.$(block%)=�(data_ymin+M*graph_ydiv)+�4,�0)
S�O=0:�O+=1:�block%?O=0
S�O+=4-(O �4)
S��text_axisc<>0 �
TT ș"Font_FindFont",,font_list%+text_axisc*40,text_axisx*16,text_axisy*16,0,0 � N
TJ ș"Font_StringWidth",,block%,300000,200000,-1,block%+�len(block%)�,,X
T ș"Font_LoseFont",N
T$�
T."X=text_axisx*1000*�len(block%)
T8�
TBX=X*640/1000
TLm�dfile_wput(1):�dfile_wput(24+28+O):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
TV}�dfile_wput(0):�dfile_bput(?graph_back%):�dfile_bput(graph_back%?1):�dfile_bput(graph_back%?2):�dfile_bput(graph_back%?3)
T`��dfile_wput(graph_axisc):�dfile_wput(640*text_axisx):�dfile_wput(640*text_axisy):�dfile_wput(16000-X):�dfile_wput(20000+(M*graph_ydiv*graph_yscale)-(160*text_axisy)):�dfile_sput(block%)
Tj�
Tt�
T~:
T���graph_ydivgrid(N)
T�9�N=0:$text%="Y grid (solid)"�$text%="Y grid (dotted)"
T��update_bottom
T�R%=0:�group%=0�5
T�"�group_map%!(group%*4)>0:R%+=1
T��
T�3�graph_3D%�graph_type%=2�graph_bartype%<>3:R%=1
T��graph_3D%:R%=0
T�:
T�� OH: Y divisions grid
T�)A%=(data_ymax-data_ymin) / graph_ydiv
T�M=0:�R%>0:M=1
UL%=0:�N=128:L%=16
U
��dfile_wput(2):�dfile_wput(24+16+L%+(A%*24)+M*12*A%+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
U@�dfile_wput(-1):�dfile_wput(0):�dfile_wput(0):�dfile_wput(N)
UL�N=128:�dfile_wput(0):�dfile_wput(2):�dfile_wput(4000):�dfile_wput(3000)
U(�M=1�A%
U2T�dfile_wput(2):�dfile_wput(20000):�dfile_wput(20000+(M*graph_ydiv*graph_yscale))
U<l�R%>0:�dfile_wput(8):�dfile_wput(20000+R%*15000):�dfile_wput(20000+(M*graph_ydiv*graph_yscale)+R%*15000)
UF^�dfile_wput(8):�dfile_wput(300000):�dfile_wput(20000+(M*graph_ydiv*graph_yscale)+R%*15000)
UP�
UZ�dfile_wput(0)
Ud�
Un:
Ux��graph_yedge(N)
U�9�N=0:$text%="Y edge (solid)"�$text%="Y edge (dotted)"
U��update_bottom
U�� OH: X edge
U�L%=0:�N=128:L%=16
U�s�dfile_wput(2):�dfile_wput(24+16+L%+24+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
U�@�dfile_wput(-1):�dfile_wput(0):�dfile_wput(0):�dfile_wput(N)
U�L�N=128:�dfile_wput(0):�dfile_wput(2):�dfile_wput(4000):�dfile_wput(3000)
U�B�dfile_wput(2):�dfile_wput(20000+R%*15000):�dfile_wput(200000)
U�:�dfile_wput(8):�dfile_wput(300000):�dfile_wput(200000)
U��dfile_wput(0)
U��
U�:
U�:
V��graph_pointline
V $text%="Line":�update_bottom
V!x%=group_map%!(group%*4):y%=1
V"� Object header
V,7S%=0:L%=0:�group_data%?(group%*42+9)>1:S%=128:L%=16
V6��dfile_wput(2):�dfile_wput(24+16+L%+(data_length%*12)+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(250000)
V@��dfile_wput(-1):�dfile_bput(0):�dfile_bput(group_data%?(group%*42+2)):�dfile_bput(group_data%?(group%*42+3)):�dfile_bput(group_data%?(group%*42+4)):�dfile_wput(group_data%!(group%*42+5)):�dfile_wput(S%)
VJ*C%=12000�(5-group_data%?(group%*42+9))
VTI�S%=128:�dfile_wput(0):�dfile_wput(2):�dfile_wput(C%):�dfile_wput(C%)
V^?X=�data_get(x%,y%)-data_xmin:Y=�data_get(x%+1,y%)-data_ymin
Vh`�dfile_wput(2):�dfile_wput(20000+(X*graph_xscale)+R%):�dfile_wput(20000+(Y*graph_yscale)+R%)
Vr�y%=2�data_length%
V|?X=�data_get(x%,y%)-data_xmin:Y=�data_get(x%+1,y%)-data_ymin
V�\�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+R%):�dfile_wput(20000+Y*graph_yscale+R%)
V��poll_minorloop
V��
V��dfile_wput(0)
V��
V�:
V���graph_pointline3D
V�#$text%="3D Line":�update_bottom
V�!x%=group_map%!(group%*4):y%=1
V�?X=�data_get(x%,y%)-data_xmin:Y=�data_get(x%+1,y%)-data_ymin
V��y%=2�data_length%
V�?x=�data_get(x%,y%)-data_xmin:y=�data_get(x%+1,y%)-data_ymin
V�� Object header
Wt�dfile_wput(2):�dfile_wput(24+16+(5*12)+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(250000)
W"C%=0:�x<>X:�(y-Y)/(x-X)>1:C%=2
W��dfile_bput(0):�dfile_bfade(group_data%?(group%*42+2),C%):�dfile_bfade(group_data%?(group%*42+3),C%):�dfile_bfade(group_data%?(group%*42+4),C%):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
W&\�dfile_wput(2):�dfile_wput(20000+X*graph_xscale+R%):�dfile_wput(20000+Y*graph_yscale+R%)
W0\�dfile_wput(8):�dfile_wput(20000+x*graph_xscale+R%):�dfile_wput(20000+y*graph_yscale+R%)
W:\�dfile_wput(8):�dfile_wput(35000+x*graph_xscale+R%):�dfile_wput(35000+y*graph_yscale+R%)
WD\�dfile_wput(8):�dfile_wput(35000+X*graph_xscale+R%):�dfile_wput(35000+Y*graph_yscale+R%)
WN\�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+R%):�dfile_wput(20000+Y*graph_yscale+R%)
WX�dfile_wput(0)
WbX=x:Y=y
Wl�poll_minorloop
Wv�
W��
W�:
W���graph_lineunder
W�&$text%="Area under":�update_bottom
W�!x%=group_map%!(group%*4):y%=1
W�� OH: Lineunder
W���dfile_wput(2):�dfile_wput(24+16+((data_length%+2)*12)+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
W��graph_3D%�
WЭ �dfile_bput(0):�dfile_bfade(group_data%?(group%*42+2),1):�dfile_bfade(group_data%?(group%*42+3),1):�dfile_bfade(group_data%?(group%*42+4),1):�dfile_wput(graph_outline%)
W��
W� �dfile_bput(0):�dfile_bput(group_data%?(group%*42+2)):�dfile_bput(group_data%?(group%*42+3)):�dfile_bput(group_data%?(group%*42+4)):�dfile_wput(-1)
W��
W�!�dfile_wput(0):�dfile_wput(0)
X?X=�data_get(x%,y%)-data_xmin:Y=�data_get(x%+1,y%)-data_ymin
XO�dfile_wput(2):�dfile_wput(20000+(X*graph_xscale)+R%):�dfile_wput(20000+R%)
X`�dfile_wput(8):�dfile_wput(20000+(X*graph_xscale)+R%):�dfile_wput(20000+(Y*graph_yscale)+R%)
X �y%=2�data_length%
X*?X=�data_get(x%,y%)-data_xmin:Y=�data_get(x%+1,y%)-data_ymin
X4\�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+R%):�dfile_wput(20000+Y*graph_yscale+R%)
X>�poll_minorloop
XH�
XRO�dfile_wput(8):�dfile_wput(20000+(X*graph_xscale)+R%):�dfile_wput(20000+R%)
X\�dfile_wput(0)
Xf�graph_3D%:�
Xpr�dfile_wput(2):�dfile_wput(24+16+5*12+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
Xz��dfile_bput(0):�dfile_bput(group_data%?(group%*42+2)):�dfile_bput(group_data%?(group%*42+3)):�dfile_bput(group_data%?(group%*42+4)):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
X�M�dfile_wput(2):�dfile_wput(20000+X*graph_xscale+R%):�dfile_wput(20000+R%)
X�\�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+R%):�dfile_wput(20000+Y*graph_yscale+R%)
X�\�dfile_wput(8):�dfile_wput(35000+X*graph_xscale+R%):�dfile_wput(35000+Y*graph_yscale+R%)
X�M�dfile_wput(8):�dfile_wput(35000+X*graph_xscale+R%):�dfile_wput(35000+R%)
X�M�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+R%):�dfile_wput(20000+R%)
X��dfile_wput(0)
X��
X�:
X���graph_points
X� �group_data%?(group%*42)=0:�
X�"$text%="Points":�update_bottom
X�x%=group_map%!(group%*4)
X��y%=1�data_length%
Y?X=�data_get(x%,y%)-data_xmin:Y=�data_get(x%+1,y%)-data_ymin
YeC%=(group_data%?(group%*42+4)<<24)+(group_data%?(group%*42+3)<<16)+(group_data%?(group%*42+2)<<8)
YM=group_data%?(group%*42+1)
Y$Ȏgroup_data%?(group%*42)�
Y. �1:�point_cir(M)
Y8 �2:�point_squ(M)
YB �3:�point_tri(M)
YL �4:�point_dia(M)
YV �5:�point_sta(M)
Y` �6:�point_cross(M)
Yj �7:�point_x(M)
Yt�
Y~�poll_minorloop
Y��
Y��
Y�:
Y���point_cir(N)
Y�� OH: Circle
Y�{�dfile_wput(2):�dfile_wput(24+16+(1*12)+(4*28)+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
Y�M�dfile_wput(C%):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
Y�c�dfile_wput(2):�dfile_wput(20000+X*graph_xscale-1000*N+R%):�dfile_wput(20000+Y*graph_yscale+R%)
Y��dfile_wput(6)
Y�[ �dfile_wput(20000+X*graph_xscale-1000*N+R%):�dfile_wput(20000+Y*graph_yscale-500*N+R%)
Y�[ �dfile_wput(20000+X*graph_xscale-500*N+R%):�dfile_wput(20000+Y*graph_yscale-1000*N+R%)
Y�U �dfile_wput(20000+X*graph_xscale+R%):�dfile_wput(20000+Y*graph_yscale-1000*N+R%)
Z�dfile_wput(6)
Z
Z�dfile_wput(20000+X*graph_xscale+500*N+R%):�dfile_wput(20000+Y*graph_yscale-1000*N+R%)
ZZ�dfile_wput(20000+X*graph_xscale+1000*N+R%):�dfile_wput(20000+Y*graph_yscale-500*N+R%)
ZT�dfile_wput(20000+X*graph_xscale+1000*N+R%):�dfile_wput(20000+Y*graph_yscale+R%)
Z(�dfile_wput(6)
Z2Z�dfile_wput(20000+X*graph_xscale+1000*N+R%):�dfile_wput(20000+Y*graph_yscale+500*N+R%)
Z<Z�dfile_wput(20000+X*graph_xscale+500*N+R%):�dfile_wput(20000+Y*graph_yscale+1000*N+R%)
ZFT�dfile_wput(20000+X*graph_xscale+R%):�dfile_wput(20000+Y*graph_yscale+1000*N+R%)
ZP�dfile_wput(6)
ZZZ�dfile_wput(20000+X*graph_xscale-500*N+R%):�dfile_wput(20000+Y*graph_yscale+1000*N+R%)
ZdZ�dfile_wput(20000+X*graph_xscale-1000*N+R%):�dfile_wput(20000+Y*graph_yscale+500*N+R%)
ZnT�dfile_wput(20000+X*graph_xscale-1000*N+R%):�dfile_wput(20000+Y*graph_yscale+R%)
Zx�dfile_wput(0)
Z��
Z�:
Z���point_squ(N)
Z�� OH: Square
Z�t�dfile_wput(2):�dfile_wput(24+16+(5*12)+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
Z�M�dfile_wput(C%):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
Z�j�dfile_wput(2):�dfile_wput(20000+X*graph_xscale-1000*N+R%):�dfile_wput(20000+Y*graph_yscale-1000*N+R%)
Z�j�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+1000*N+R%):�dfile_wput(20000+Y*graph_yscale-1000*N+R%)
Z�j�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+1000*N+R%):�dfile_wput(20000+Y*graph_yscale+1000*N+R%)
Z�j�dfile_wput(8):�dfile_wput(20000+X*graph_xscale-1000*N+R%):�dfile_wput(20000+Y*graph_yscale+1000*N+R%)
Z�j�dfile_wput(8):�dfile_wput(20000+X*graph_xscale-1000*N+R%):�dfile_wput(20000+Y*graph_yscale-1000*N+R%)
Z��dfile_wput(0)
Z��
[:
[��point_tri(N)
[� OH: Triangle
["t�dfile_wput(2):�dfile_wput(24+16+(4*12)+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
[,M�dfile_wput(C%):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
[6j�dfile_wput(2):�dfile_wput(20000+X*graph_xscale-1000*N+R%):�dfile_wput(20000+Y*graph_yscale-1000*N+R%)
[@j�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+1000*N+R%):�dfile_wput(20000+Y*graph_yscale-1000*N+R%)
[Jc�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+R%):�dfile_wput(20000+Y*graph_yscale+1000*N+R%)
[Tj�dfile_wput(8):�dfile_wput(20000+X*graph_xscale-1000*N+R%):�dfile_wput(20000+Y*graph_yscale-1000*N+R%)
[^�dfile_wput(0)
[h�
[r:
[|��point_dia(N)
[�� OH: Diamond
[�t�dfile_wput(2):�dfile_wput(24+16+(5*12)+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
[�M�dfile_wput(C%):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
[�c�dfile_wput(2):�dfile_wput(20000+X*graph_xscale-1000*N+R%):�dfile_wput(20000+Y*graph_yscale+R%)
[�c�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+R%):�dfile_wput(20000+Y*graph_yscale-1000*N+R%)
[�c�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+1000*N+R%):�dfile_wput(20000+Y*graph_yscale+R%)
[�c�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+R%):�dfile_wput(20000+Y*graph_yscale+1000*N+R%)
[�c�dfile_wput(8):�dfile_wput(20000+X*graph_xscale-1000*N+R%):�dfile_wput(20000+Y*graph_yscale+R%)
[��dfile_wput(0)
[��
[�:
[���point_sta(N)
[�� OH: Star
\u�dfile_wput(2):�dfile_wput(24+16+(13*12)+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
\M�dfile_wput(C%):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
\c�dfile_wput(2):�dfile_wput(20000+X*graph_xscale+R%):�dfile_wput(20000+Y*graph_yscale-1000*N+R%)
\&h�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+300*N+R%):�dfile_wput(20000+Y*graph_yscale-500*N+R%)
\0i�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+1000*N+R%):�dfile_wput(20000+Y*graph_yscale-500*N+R%)
\:b�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+500*N+R%):�dfile_wput(20000+Y*graph_yscale+R%)
\Di�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+1000*N+R%):�dfile_wput(20000+Y*graph_yscale+500*N+R%)
\Nh�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+300*N+R%):�dfile_wput(20000+Y*graph_yscale+500*N+R%)
\Xc�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+R%):�dfile_wput(20000+Y*graph_yscale+1000*N+R%)
\bh�dfile_wput(8):�dfile_wput(20000+X*graph_xscale-300*N+R%):�dfile_wput(20000+Y*graph_yscale+500*N+R%)
\li�dfile_wput(8):�dfile_wput(20000+X*graph_xscale-1000*N+R%):�dfile_wput(20000+Y*graph_yscale+500*N+R%)
\vb�dfile_wput(8):�dfile_wput(20000+X*graph_xscale-500*N+R%):�dfile_wput(20000+Y*graph_yscale+R%)
\�i�dfile_wput(8):�dfile_wput(20000+X*graph_xscale-1000*N+R%):�dfile_wput(20000+Y*graph_yscale-500*N+R%)
\�h�dfile_wput(8):�dfile_wput(20000+X*graph_xscale-300*N+R%):�dfile_wput(20000+Y*graph_yscale-500*N+R%)
\�c�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+R%):�dfile_wput(20000+Y*graph_yscale-1000*N+R%)
\��dfile_wput(0)
\��
\�:
\���point_cross(N)
\�� OH: Cross
\�t�dfile_wput(2):�dfile_wput(24+16+(4*12)+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
\�@�dfile_wput(-1):�dfile_wput(0):�dfile_wput(0):�dfile_wput(0)
\�c�dfile_wput(2):�dfile_wput(20000+X*graph_xscale+R%):�dfile_wput(20000+Y*graph_yscale-1000*N+R%)
\�c�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+R%):�dfile_wput(20000+Y*graph_yscale+1000*N+R%)
\�c�dfile_wput(2):�dfile_wput(20000+X*graph_xscale-1000*N+R%):�dfile_wput(20000+Y*graph_yscale+R%)
]c�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+1000*N+R%):�dfile_wput(20000+Y*graph_yscale+R%)
]�dfile_wput(0)
]�
] :
]*��point_x(N)
]4� OH: X
]>t�dfile_wput(2):�dfile_wput(24+16+(4*12)+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
]H@�dfile_wput(-1):�dfile_wput(0):�dfile_wput(0):�dfile_wput(0)
]Rj�dfile_wput(2):�dfile_wput(20000+X*graph_xscale-1000*N+R%):�dfile_wput(20000+Y*graph_yscale-1000*N+R%)
]\j�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+1000*N+R%):�dfile_wput(20000+Y*graph_yscale+1000*N+R%)
]fj�dfile_wput(2):�dfile_wput(20000+X*graph_xscale-1000*N+R%):�dfile_wput(20000+Y*graph_yscale+1000*N+R%)
]pj�dfile_wput(8):�dfile_wput(20000+X*graph_xscale+1000*N+R%):�dfile_wput(20000+Y*graph_yscale-1000*N+R%)
]z�dfile_wput(0)
]��
]�:
]���graph_bestfit
]�*$text%="Calculating BF":�update_bottom
]�a=0:b=0:c=0:d=0:e=0
]�x%=group_map%!(group%*4)
]��y%=1�data_length%
]�?X=�data_get(x%,y%)-data_xmin:Y=�data_get(x%+1,y%)-data_ymin
]�"a+=Y:b+=X:c+=X*Y:d+=X*X:e+=Y*Y
]��
]��graph_best%=1 �
]�0 A=(b*a-c*data_length%)/(a*b-e*data_length%)
]�% B=(b*e-c*b)/(e*data_length%-a*b)
^�
^0 A=(a*b-c*data_length%)/(b*b-d*data_length%)
^% B=(a*d-c*b)/(d*data_length%-b*b)
^$�
^.)$text%="Best fit line":�update_bottom
^8�graph_best%=1 �
^B% x=20000+(B*graph_xscale):y=20000
^L. �x<20000:x=20000:y=20000-B/A*graph_yscale
^V� �x>20000+(data_xmax-data_xmin)*graph_xscale:x=20000+(data_xmax-data_xmin)*graph_xscale:y=20000+(data_xmax-data_xmin-B)/A*graph_yscale
^`d X=20000+((A*(data_xmax-data_xmin)+B)*graph_xscale):Y=20000+((data_xmax-data_xmin)*graph_yscale)
^j. �X<20000:X=20000:Y=20000-B/A*graph_yscale
^t� �X>20000+(data_xmax-data_xmin)*graph_xscale:X=20000+(data_xmax-data_xmin)*graph_xscale:Y=20000+(data_xmax-data_xmin-B)/A*graph_yscale
^~�
^�% x=20000:y=20000+(B*graph_yscale)
^�. �y<20000:x=20000-B/A*graph_xscale:y=20000
^�� �y>20000+(data_ymax-data_ymin)*graph_yscale:x=20000+(data_ymax-data_ymin-B)/A*graph_xscale:y=20000+(data_ymax-data_ymin)*graph_yscale
^�d X=20000+((data_xmax-data_xmin)*graph_xscale):Y=20000+((A*(data_xmax-data_xmin)+B)*graph_yscale)
^�. �Y<20000:X=20000-B/A*graph_xscale:Y=20000
^�� �y>20000+(data_ymax-data_ymin)*graph_yscale:X=20000+(data_ymax-data_ymin-B)/A*graph_xscale:Y=20000+(data_ymax-data_ymin)*graph_yscale
^��
^��graph_3D%:�graph_drawbest
^� �graph_3D%:�graph_drawbest3D
^��
^�:
^���graph_drawbest
_� OH: Best fit
_
,S%=0:�group_data%?(group%*42+9)>1:S%=128
_L%=0:�S%=128:L%=16
_w�dfile_wput(2):�dfile_wput(24+16+L%+(2*12)+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(250000)
_(eC%=(group_data%?(group%*42+4)<<24)+(group_data%?(group%*42+3)<<16)+(group_data%?(group%*42+2)<<8)
_2Z�dfile_wput(-1):�dfile_wput(C%):�dfile_wput(group_data%!(group%*42+5)):�dfile_wput(S%)
_<*C%=12000�(5-group_data%?(group%*42+9))
_FI�S%=128:�dfile_wput(0):�dfile_wput(2):�dfile_wput(C%):�dfile_wput(C%)
_P0�dfile_wput(2):�dfile_wput(x):�dfile_wput(y)
_Z0�dfile_wput(8):�dfile_wput(X):�dfile_wput(Y)
_d�dfile_wput(0)
_n�
_x:
_���graph_drawbest3D
_�� OH: Best fit
_�r�dfile_wput(2):�dfile_wput(24+16+5*12+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(250000)
_���dfile_bput(0):�dfile_bput(group_data%?(group%*42+2)):�dfile_bput(group_data%?(group%*42+3)):�dfile_bput(group_data%?(group%*42+4)):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
_�N=group%*15000
_�4�dfile_wput(2):�dfile_wput(x+N):�dfile_wput(y+N)
_�@�dfile_wput(8):�dfile_wput(x+N+15000):�dfile_wput(y+N+15000)
_�@�dfile_wput(8):�dfile_wput(X+N+15000):�dfile_wput(Y+N+15000)
_�4�dfile_wput(8):�dfile_wput(X+N):�dfile_wput(Y+N)
_�4�dfile_wput(8):�dfile_wput(x+N):�dfile_wput(y+N)
_��dfile_wput(0)
_��
_�:
`��graph_title(A%)
`!$text%="Title":�update_bottom
`� OH: Title text
`"!N=�len(s_title%):N+=4-(N � 4)
`,��dfile_wput(1):�dfile_wput(24+28+N):�dfile_wput(0):�dfile_wput(220000):�dfile_wput(300000):�dfile_wput(223000+text_titley*640)
`6T�dfile_wput(0):�dfile_bput(0):�dfile_bput(255):�dfile_bput(255):�dfile_bput(255)
`@v�dfile_wput(graph_titlec):�dfile_wput(640*text_titlex):�dfile_wput(640*text_titley):�dfile_wput(0):�dfile_wput(A%)
`J�dfile_sput(s_title%)
`T�
`^:
`h��graph_xlabel
`r#$text%="X label":�update_bottom
`|� OH: X label text
`�!N=�len(s_xaxis%):N+=4-(N � 4)
`�� text_axisc<>0 �
`�T ș"Font_FindFont",,font_list%+text_axisc*40,text_axisx*16,text_axisy*16,0,0 � M
`�P ș"Font_StringWidth",,s_xaxis%,300000,200000,-1,s_xaxis%+�len(s_xaxis%)�,,X
`� ș"Font_LoseFont",M
`��
`�$X=text_axisx*1000*�len(s_xaxis%)
`��
`�X=X*640/1000
`�r�dfile_wput(1):�dfile_wput(24+28+N):�dfile_wput(0):�dfile_wput(220000):�dfile_wput(300000):�dfile_wput(220000)
`�}�dfile_wput(0):�dfile_bput(?graph_back%):�dfile_bput(graph_back%?1):�dfile_bput(graph_back%?2):�dfile_bput(graph_back%?3)
`�|�dfile_wput(graph_axisc):�dfile_wput(640*text_axisx):�dfile_wput(640*text_axisy):�dfile_wput(300000-X):�dfile_wput(2000)
`��dfile_sput(s_xaxis%)
a�
a:
a��graph_ylabel
a&#$text%="Y label":�update_bottom
a0� OH: Y label text
a:!N=�len(s_yaxis%):N+=4-(N � 4)
aDr�dfile_wput(1):�dfile_wput(24+28+N):�dfile_wput(0):�dfile_wput(220000):�dfile_wput(300000):�dfile_wput(220000)
aN}�dfile_wput(0):�dfile_bput(?graph_back%):�dfile_bput(graph_back%?1):�dfile_bput(graph_back%?2):�dfile_bput(graph_back%?3)
aX{�dfile_wput(graph_axisc):�dfile_wput(640*text_axisx):�dfile_wput(640*text_axisy):�dfile_wput(20000):�dfile_wput(205000)
ab�dfile_sput(s_yaxis%)
al�
av:
a���graph_fonttable
a�#$text%="Font table":�update_top
a�	R%=-1
a�>�text_titlec<>0:�graph_fontt(1,text_titlec):graph_titlec=1
a�;�text_axisc<>0:�graph_fontt(2,text_axisc):graph_axisc=2
a�8�text_keyc<>0:�graph_fontt(3,text_keyc):graph_keyc=3
a�R%+=4-(R%�4)
a�� OH: Font table
a�$�dfile_wput(0):�dfile_wput(8+R%)
a��dfile_sputl(block%,R%)
a��
a�:
a���graph_fontlen(M)
b/$(block%+L%)=�0+$(font_list%+M*40)+�0+�0+�0
b�L%+=1:�block%?L%=0
b�
b :
b*��graph_fontt(N,M)
b4+$(block%+R%+1)=�N+$(font_list%+M*40)+�0
b>�R%+=1:�block%?R%=0
bH�
bR:
b\��graph_key
bf$text%="Key":�update_bottom
bpB=0:X=0
bz)�graph_type%<>3:A=5:�A=data_length%-1
b��group%=0�A
b�N=group_map%?(group%*4)
b��N<>0�graph_type%=3 �
b�^ �graph_type%<=2:R%=group_data%+group%*42+11:��data_sget(group_map%!24,group%+1):R%=block%
b� � text_keyc<>0 �
b�S  ș"Font_FindFont",,font_list%+text_keyc*40,text_keyx*16,text_keyy*16,0,0 � N%
b�?  ș"Font_StringWidth",,R%,300000,200000,-1,R%+�len(R%)�,,Y
b�  ș"Font_LoseFont",N%
b� �
b�  Y=text_keyx*1000*�len(R%)
b� �
b�
 �Y>X:X=Y
b�	 B+=1
c�
c�:B+=1:X=X*640/1000
c� OH: Key box
c$r�dfile_wput(2):�dfile_wput(24+16+12*5+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(320000):�dfile_wput(220000)
c.��dfile_bput(?graph_back%):�dfile_bput(graph_back%?1):�dfile_bput(graph_back%?2):�dfile_bput(graph_back%?3):�dfile_wput(0):�dfile_wput(0):�dfile_wput(0)
c8B�dfile_wput(2):�dfile_wput(330000):�dfile_wput(228000-B*18000)
cBD�dfile_wput(8):�dfile_wput(370000+X):�dfile_wput(228000-B*18000)
cL<�dfile_wput(8):�dfile_wput(370000+X):�dfile_wput(220000)
cV:�dfile_wput(8):�dfile_wput(330000):�dfile_wput(220000)
c`B�dfile_wput(8):�dfile_wput(330000):�dfile_wput(228000-B*18000)
cj�dfile_wput(0)
ctB=0
c~)�graph_type%<>3:A=5:�A=data_length%-1
c��group%=0�A
c�+�graph_type%<>3:N=group_map%!(group%*4)
c��N<>0�graph_type%=3 �
c� Ȏgraph_type%�
c�	  � 1
c�   � OH: Item line
c�:   S%=0:L%=0:�group_data%?(group%*42+9)>1:S%=128:L%=16
c�}   �dfile_wput(2):�dfile_wput(24+16+L%+2*12+4):�dfile_wput(330000):�dfile_wput(0):�dfile_wput(330000):�dfile_wput(220000)
c��   �dfile_wput(-1):�dfile_bput(0):�dfile_bput(group_data%?(group%*42+2)):�dfile_bput(group_data%?(group%*42+3)):�dfile_bput(group_data%?(group%*42+4)):�dfile_wput(group_data%!(group%*42+5)):�dfile_wput(S%)
c�,   C%=8000�(5-group_data%?(group%*42+9))
c�L   �S%=128:�dfile_wput(0):�dfile_wput(2):�dfile_wput(C%):�dfile_wput(C%)
c�E   �dfile_wput(2):�dfile_wput(334000):�dfile_wput(207000-18000*B)
dE   �dfile_wput(8):�dfile_wput(352000):�dfile_wput(207000-18000*B)
d
   �dfile_wput(0)
d   � Item point
dJ   X=(343000-20000)/graph_xscale:Y=(207000-20000-18000*B)/graph_yscale
d(m   R%=0:C%=(group_data%?(group%*42+4)<<24)+(group_data%?(group%*42+3)<<16)+(group_data%?(group%*42+2)<<8)
d2#   M%=group_data%?(group%*42+1)
d<!   Ȏgroup_data%?(group%*42)�
dF    �1:�point_cir(M%)
dP    �2:�point_squ(M%)
dZ    �3:�point_tri(M%)
dd    �4:�point_dia(M%)
dn    �5:�point_sta(M%)
dx    �6:�point_cross(M%)
d�    �7:�point_x(M%)
d�   �
d�  �2
d�   � OH: Item box
d�u   �dfile_wput(2):�dfile_wput(24+16+12*5+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(320000):�dfile_wput(220000)
d��   �dfile_bput(0):�dfile_bput(group_data%?(group%*42+2)):�dfile_bput(group_data%?(group%*42+3)):�dfile_bput(group_data%?(group%*42+4)):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
d�E   �dfile_wput(2):�dfile_wput(338000):�dfile_wput(212000-18000*B)
d�E   �dfile_wput(8):�dfile_wput(348000):�dfile_wput(212000-18000*B)
d�E   �dfile_wput(8):�dfile_wput(348000):�dfile_wput(202000-18000*B)
d�E   �dfile_wput(8):�dfile_wput(338000):�dfile_wput(202000-18000*B)
d�E   �dfile_wput(8):�dfile_wput(338000):�dfile_wput(212000-18000*B)
d�   �dfile_wput(0)
d�  �3
e   � OH: Item pie
eu   �dfile_wput(2):�dfile_wput(24+16+12*4+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(320000):�dfile_wput(220000)
e�   �dfile_bput(pie_palette%?(B*4)):�dfile_bput(pie_palette%?(B*4+1)):�dfile_bput(pie_palette%?(B*4+2)):�dfile_bput(pie_palette%?(B*4+3))
e"@   �dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
e,E   �dfile_wput(2):�dfile_wput(338000):�dfile_wput(212000-18000*B)
e6E   �dfile_wput(8):�dfile_wput(348000):�dfile_wput(207000-18000*B)
e@E   �dfile_wput(8):�dfile_wput(338000):�dfile_wput(202000-18000*B)
eJE   �dfile_wput(8):�dfile_wput(338000):�dfile_wput(212000-18000*B)
eT   �dfile_wput(0)
e^ �
eh � OH: Key text
er^ �graph_type%<>3:R%=group_data%+group%*42+11:��data_sget(group_map%!24,group%+1):R%=block%
e| N%=�len(R%)
e� N%+=4-(N% � 4)
e�t �dfile_wput(1):�dfile_wput(24+28+N%):�dfile_wput(0):�dfile_wput(220000):�dfile_wput(300000):�dfile_wput(220000)
e�~ �dfile_wput(0):�dfile_bput(?graph_back%):�dfile_bput(graph_back%?1):�dfile_bput(graph_back%?2):�dfile_bput(graph_back%?3)
e�� �dfile_wput(graph_keyc):�dfile_wput(640*text_keyx):�dfile_wput(640*text_keyy):�dfile_wput(360000):�dfile_wput(207000-18000*B-(160*text_keyy))
e� �dfile_sput(R%)
e�	 B+=1
e��
e��
e��
e�:
e���graph_bar
e� $text%="Bars":�update_bottom
e�+�graph_bartype%<10:�N%=0�data_length%-1
f.�graph_bartype%>10:�N%=data_length%-1�0�-1
f4 M%=0:�group%=0�5:�group_map%!(group%*4)>0:M%+=1
f �:M%-=1:R%=M%
f&.�graph_bartype%<10:A=data_ymin:B=data_ymax
f0.�graph_bartype%>10:A=data_xmin:B=data_xmax
f:�A<0:O%=-A:�O%=0
fD�B<0:O%=A-B
fNM=0
fX>�graph_3D%�graph_bartype%<10�graph_bartype%<>3:�group%=0�5
fb?�graph_3D%�graph_bartype%=3:�group%=5�0�-1:M=M%*15000:R%=M%
flB�graph_3D%�graph_bartype%>10�graph_bartype%<>13:�group%=5�0�-1
fv=�graph_3D%�graph_bartype%=13:�group%=0�5:M=M%*15000:R%=M%
f��graph_3D%:�group%=0�5
f�/�group_map%!(group%*4)>0�graph_bartype%<10�
f�, Y=�data_get(group_map%!(group%*4),N%+1)
f� �Y>data_ymax:Y=data_ymax
f� �Y<data_ymin:Y=data_ymin
f� Y-=data_ymin
f�� �graph_3D%:�graph_dbar(20000+(graph_barmargin%�1)*graph_barsize+N%*graph_groupsize+(R%-M%)*graph_barsize+M,20000+M+O%*graph_yscale,graph_barwidth,20000+M+Y*graph_yscale,group%)
fƸ �graph_3D%:�graph_dbar3Dh(20000+(graph_barmargin%�1)*graph_barsize+N%*graph_groupsize+(R%-M%)*graph_barsize+M,20000+M+O%*graph_yscale,graph_barwidth,20000+M+Y*graph_yscale,group%)
f�
 M%-=1
f��
f�/�group_map%!(group%*4)>0�graph_bartype%>10�
f�, Y=�data_get(group_map%!(group%*4),N%+1)
f� �Y>data_xmax:Y=data_xmax
g �Y<data_xmin:Y=data_xmin
g Y-=data_xmin
g� �graph_3D%:�graph_dbar(20000+M+O%*graph_xscale,200000-M-(graph_barmargin%�1)*graph_barsize-N%*graph_groupsize-(R%-M%)*graph_barsize,20000+M+Y*graph_xscale,-graph_barwidth,group%)
g � �graph_3D%:�graph_dbar3Dv(20000+M+O%*graph_xscale,20000+(graph_barmargin%�128)*graph_barsize/128+(data_length%-N%-1)*graph_groupsize+(R%-M%+1)*graph_barsize-M,20000+M+Y*graph_xscale,-graph_barwidth,group%)
g*
 M%-=1
g4�
g>�poll_minorloop
gH�
gR�
g\�
gf:
gp��graph_barOvr
gz+$text%="Bars (overlaid)":�update_bottom
g�!�group%=0�5:block%?group%=0:�
g�E�graph_bartype%<10:�N%=0�data_length%-1 � �N%=data_length%-1�0�-1
g�DM%=0:�group%=0�5:�group_map%!(group%*4)>0:block%?M%=group%:M%+=1
g�
�:R%=M%-1
g�L%=graph_groupsize/2
g�:
g��group%=M%-1�1�-1
g�1A=0:Y=��data_get(group_map%!(?block%*4),N%+1)
g�G�M=1�group%:X=��data_get(group_map%!(block%?M*4),N%+1):�X>Y:Y=X:A=M
g��
g�Ȕblock%?group%,block%?A
g��
g�:
hO=0:B%=0:X=0:Y=0
h%�group%=M%-1�0�-1:M=block%?group%
h&O=�data_get(group_map%!(M*4),N%+1)
h$�A%>Y:Y=A%:X=M
h.�:O-=100000000
h8:
hB.�graph_bartype%<10:A=data_ymin:B=data_ymax
hL.�graph_bartype%>10:A=data_xmin:B=data_xmax
hV�A<0:O%=-A:�O%=0
h`�B<0:O%=A-B
hj�graph_3D% �
ht6 M=block%?(X-1):Y=�data_get(group_map%!(X*4),N%+1)
h~
 �Y>B:Y=B
h�
 �Y<A:Y=A
h�	 Y-=A
h�� �graph_bartype%<10:�graph_dbarendh(20000+(graph_barmargin%�1)*L%+N%*graph_groupsize+B%,20000+O%*graph_yscale,graph_barwidth,20000+Y*graph_yscale,X)
h�� �graph_bartype%>10:�graph_dbarendv(20000+O%*graph_xscale,20000+(graph_barmargin%�128)*L%/128+(data_length%-N%-1)*graph_groupsize+B%+graph_barwidth,20000+Y*graph_xscale,-graph_barwidth,X)
h��
h�%�group%=M%-1�0�-1:M=block%?group%
h�&Y=�data_get(group_map%!(M*4),N%+1)
h��Y>B:Y=B
h��Y<A:Y=A
h�Y-=A
h�
�Y=O �
h�
 B%+=4000
i� �graph_3D%�graph_bartype%<10:�graph_dbarendh(20000+(graph_barmargin%�1)*L%+N%*graph_groupsize+B%+graph_barwidth-4000,20000+O%*graph_yscale,4000,20000+Y*graph_yscale,M)
i
� �graph_3D%�graph_bartype%>10:�graph_dbarendv(20000+O%*graph_xscale,20000+(graph_barmargin%�128)*L%/128+(data_length%-N%-1)*graph_groupsize+B%+graph_barwidth,20000+Y*graph_xscale,-4000,M)
i�
i��graph_bartype%<10:�graph_dbarOvh(20000+(graph_barmargin%�1)*L%+N%*graph_groupsize+B%,20000+O%*graph_yscale,graph_barwidth,20000+Y*graph_yscale,M)
i(��graph_bartype%>10:�graph_dbarOvv(20000+O%*graph_xscale,20000+(graph_barmargin%�128)*L%/128+(data_length%-N%-1)*graph_groupsize+B%+graph_barwidth,20000+Y*graph_xscale,-graph_barwidth,M)
i2	M%-=1
i<O=Y
iF�poll_minorloop
iP�
iZ�
id�
in:
ix��graph_dbar3Dh(x,y,X,Y,M)
i�Q�graph_dbarendh(x,y,X,Y,M):�graph_dbar(x,y,X,Y,M):�graph_dbarsideh(x,y,X,Y,M)
i��
i�:
i���graph_dbar3Dv(x,y,X,Y,M)
i�Q�graph_dbarendv(x,y,X,Y,M):�graph_dbar(x,y,X,Y,M):�graph_dbarsidev(x,y,X,Y,M)
i��
i�:
i���graph_dbarOvh(x,y,X,Y,M)
i�A�graph_dbar(x,y,X,Y,M):�graph_3D%:�graph_dbarsideh(x,y,X,Y,M)
i��
i�:
i���graph_dbarOvv(x,y,X,Y,M)
i�A�graph_dbar(x,y,X,Y,M):�graph_3D%:�graph_dbarsidev(x,y,X,Y,M)
j�
j:
j��graph_dbar(x,y,X,Y,M)
j""�graph_bartype%<10:X+=x � Y+=y
j,� OH: A bar
j6r�dfile_wput(2):�dfile_wput(24+16+12*5+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(320000):�dfile_wput(220000)
j@��dfile_bput(0):�dfile_bput(group_data%?(M*42+2)):�dfile_bput(group_data%?(M*42+3)):�dfile_bput(group_data%?(M*42+4)):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
jJ0�dfile_wput(2):�dfile_wput(x):�dfile_wput(y)
jT0�dfile_wput(8):�dfile_wput(X):�dfile_wput(y)
j^0�dfile_wput(8):�dfile_wput(X):�dfile_wput(Y)
jh0�dfile_wput(8):�dfile_wput(x):�dfile_wput(Y)
jr0�dfile_wput(8):�dfile_wput(x):�dfile_wput(y)
j|�dfile_wput(0)
j��
j�:
j���graph_dbarendh(x,y,X,Y,M)
j�X+=x
j��y>Y:Ȕy,Y
j�� OH: A top and a bottom
j�r�dfile_wput(2):�dfile_wput(24+16+12*7+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(320000):�dfile_wput(220000)
j̻�dfile_bput(0):�dfile_bfade(group_data%?(M*42+2),1):�dfile_bfade(group_data%?(M*42+3),1):�dfile_bfade(group_data%?(M*42+4),1):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
j�0�dfile_wput(2):�dfile_wput(x):�dfile_wput(y)
j�0�dfile_wput(8):�dfile_wput(X):�dfile_wput(y)
j�<�dfile_wput(8):�dfile_wput(X+15000):�dfile_wput(y+15000)
j�<�dfile_wput(8):�dfile_wput(X+15000):�dfile_wput(Y+15000)
j�<�dfile_wput(8):�dfile_wput(x+15000):�dfile_wput(Y+15000)
k0�dfile_wput(8):�dfile_wput(x):�dfile_wput(Y)
k0�dfile_wput(8):�dfile_wput(x):�dfile_wput(y)
k�dfile_wput(0)
k&�
k0:
k:��graph_dbarendv(x,y,X,Y,M)
kDY+=y
kN�x>X:Ȕx,X
kX� OH: A side
kbr�dfile_wput(2):�dfile_wput(24+16+12*7+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(320000):�dfile_wput(220000)
kl��dfile_bput(0):�dfile_bfade(group_data%?(M*42+2),2):�dfile_bfade(group_data%?(M*42+3),2):�dfile_bfade(group_data%?(M*42+4),2):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
kv0�dfile_wput(2):�dfile_wput(x):�dfile_wput(Y)
k�0�dfile_wput(8):�dfile_wput(X):�dfile_wput(Y)
k�<�dfile_wput(8):�dfile_wput(X+15000):�dfile_wput(Y+15000)
k�<�dfile_wput(8):�dfile_wput(X+15000):�dfile_wput(y+15000)
k�<�dfile_wput(8):�dfile_wput(x+15000):�dfile_wput(y+15000)
k�0�dfile_wput(8):�dfile_wput(x):�dfile_wput(y)
k�0�dfile_wput(8):�dfile_wput(x):�dfile_wput(Y)
k��dfile_wput(0)
k��
k�:
k� ��graph_dbarsideh(x,y,X,Y,M)
k�"�graph_bartype%<10:X+=x � Y+=y
k�� OH: A side
k�r�dfile_wput(2):�dfile_wput(24+16+12*5+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(320000):�dfile_wput(220000)
l��dfile_bput(0):�dfile_bfade(group_data%?(M*42+2),2):�dfile_bfade(group_data%?(M*42+3),2):�dfile_bfade(group_data%?(M*42+4),2):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
l0�dfile_wput(2):�dfile_wput(X):�dfile_wput(y)
l<�dfile_wput(8):�dfile_wput(X+15000):�dfile_wput(y+15000)
l <�dfile_wput(8):�dfile_wput(X+15000):�dfile_wput(Y+15000)
l*0�dfile_wput(8):�dfile_wput(X):�dfile_wput(Y)
l40�dfile_wput(8):�dfile_wput(X):�dfile_wput(y)
l>�dfile_wput(0)
lH�
lR:
l\ ��graph_dbarsidev(x,y,X,Y,M)
lfY+=y+graph_barwidth
lp� OH: A top and a bottom
lzr�dfile_wput(2):�dfile_wput(24+16+12*5+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(320000):�dfile_wput(220000)
l���dfile_bput(0):�dfile_bfade(group_data%?(M*42+2),1):�dfile_bfade(group_data%?(M*42+3),1):�dfile_bfade(group_data%?(M*42+4),1):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
l�0�dfile_wput(2):�dfile_wput(x):�dfile_wput(Y)
l�0�dfile_wput(8):�dfile_wput(X):�dfile_wput(Y)
l�<�dfile_wput(8):�dfile_wput(X+15000):�dfile_wput(Y+15000)
l�<�dfile_wput(8):�dfile_wput(x+15000):�dfile_wput(Y+15000)
l�0�dfile_wput(8):�dfile_wput(x):�dfile_wput(Y)
l��dfile_wput(0)
l��
l�:
l���dfile_bfade(N,M)
l��#X%,�(N-M*&10)
l��
l�:
m:
m��bar_labels
m&$text%="Bar labels":�update_bottom
m$� OH: Bar graph labels
m.�A%=1�data_length%
m8 �data_sget(group_map%!24,A%)
mBO=0:�O+=1:�block%?O=0
mLO+=4-(O �4)
mV�text_axisc<>0 �
m`T ș"Font_FindFont",,font_list%+text_axisc*40,text_axisx*16,text_axisy*16,0,0 � N
mjJ ș"Font_StringWidth",,block%,300000,200000,-1,block%+�len(block%)�,,X
mt ș"Font_LoseFont",N
m~�
m�"X=text_axisx*1000*�len(block%)
m��
m�X=X*320/1000
m�Ȏgraph_bartype%�
m�# �1 :Y%=(A%-.5)*graph_groupsize
m�# �11:Y%=(A%-.5)*graph_groupsize
m�# �2 :Y%=(A%-.5)*graph_groupsize
m�# �12:Y%=(A%-.5)*graph_groupsize
m�3 �3 :Y%=(A%-.5)*graph_groupsize-graph_barsize/2
m�3 �13:Y%=(A%-.5)*graph_groupsize-graph_barsize/2
m�3 �4 :Y%=(A%-.5)*graph_groupsize-graph_barsize/2
m�3 �14:Y%=(A%-.5)*graph_groupsize-graph_barsize/2
nW �5 :Y%=(A%-1)*graph_groupsize+graph_barwidth/2+(graph_barmargin%�1)*graph_barwidth
n
W �15:Y%=(A%-1)*graph_groupsize+graph_barwidth/2+(graph_barmargin%�1)*graph_barwidth
n�
n0�graph_bartype%<10:Y%-=X:�Y%-=190*text_axisy
n(m�dfile_wput(1):�dfile_wput(24+28+O):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
n2}�dfile_wput(0):�dfile_bput(?graph_back%):�dfile_bput(graph_back%?1):�dfile_bput(graph_back%?2):�dfile_bput(graph_back%?3)
n<T�dfile_wput(graph_axisc):�dfile_wput(640*text_axisx):�dfile_wput(640*text_axisy)
nFq�graph_bartype%<10:�dfile_wput(20000+(graph_barmargin%�1)*graph_barsize+Y%):�dfile_wput(15000-380*text_axisy)
nPf�graph_bartype%>10:�dfile_wput(16000-X*2):�dfile_wput(20000+(graph_barmargin%�1)*graph_barsize+Y%)
nZ�dfile_sput(block%)
nd�
nn�
nx:
n���graph_pie(X,Y,R%)
n��graph_3D%:Y+=10000
n�LO=0:�N%=1�data_length%:O+=�data_get(group_map%!(group%*4),N%):�:�O=0:O=1
n��graph_3D%:�graph_piebase
n��graph_piecrust
n�3N=group_map%!24:�N>0�N<=data_width%:�pie_labels
n��
n�:
n���graph_piecrust
n�A=0:�N%=1�data_length%
n�)B=�data_get(group_map%!(group%*4),N%)
n�[�graph_exp%�N%>=graph_es%�N%<=graph_ef%:N=A+B/2:X+=.1*R%*�(N/O*�*2):Y+=.1*R%*�(N/O*�*2)
n� M%=0:N=B:�N-=O/4:M%+=1:�N<=0
o� OH: Pie segment
oz�dfile_wput(2):�dfile_wput(24+16+3*12+(28*M%)+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
o!M%=N%-1:M%+=16:�M%-=16:�M%<16
o"��dfile_bput(pie_palette%?(M%*4)):�dfile_bput(pie_palette%?(M%*4+1)):�dfile_bput(pie_palette%?(M%*4+2)):�dfile_bput(pie_palette%?(M%*4+3)):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
o,0�dfile_wput(2):�dfile_wput(X):�dfile_wput(Y)
o6N�dfile_wput(8):�dfile_wput(X+R%*�(A/O*�*2)):�dfile_wput(Y+R%*�((A/O)*�*2))
o@N=B:�B>O/4:N=O/4
oJ�
oT�dfile_wput(6)
o^y�dfile_wput(X+R%*�(A/O*�*2)+R%*N/O*2.25*�((A/O+.25)*�*2)):�dfile_wput(Y+R%*�((A/O)*�*2)+R%*N/O*2.25*�((A/O+.25)*�*2))
ohA+=N
orw�dfile_wput(X+R%*�(A/O*�*2)+R%*N/O*2.25*�((A/O-.25)*�*2)):�dfile_wput(Y+R%*�(A/O*�*2)+R%*N/O*2.25*�((A/O-.25)*�*2))
o|=�dfile_wput(X+R%*�(A/O*�*2)):�dfile_wput(Y+R%*�(A/O*�*2))
o�
�N=B:A%=�
o��N<B:B-=O/4:A%=�:�N>B:N=B
o��A%
o�0�dfile_wput(8):�dfile_wput(X):�dfile_wput(Y)
o��dfile_wput(0)
o�)B=�data_get(group_map%!(group%*4),N%)
o�[�graph_exp%�N%>=graph_es%�N%<=graph_ef%:N=A-B/2:X-=.1*R%*�(N/O*�*2):Y-=.1*R%*�(N/O*�*2)
o��poll_minorloop
o��
o��
o�:
o���graph_piebase
o�Y-=10000
p2A=0:N%=1:B=�data_get(group_map%!(group%*4),N%)
p�
p\ �graph_exp%�N%>=graph_es%�N%<=graph_ef%:N=A+B/2:X+=.1*R%*�(N/O*�*2):Y+=.1*R%*�(N/O*�*2)
p&! M%=0:N=B:�N-=O/4:M%+=1:�N<=0
p0 �graph_steakandkidney
p:\ �graph_exp%�N%>=graph_es%�N%<=graph_ef%:N=A-B/2:X-=.1*R%*�(N/O*�*2):Y-=.1*R%*�(N/O*�*2)
pD0 N%+=1:B=�data_get(group_map%!(group%*4),N%)
pN�A+B>O/2:L%=N%
pXA=O:�N%=data_length%�L%�-1
pb/ B=�data_get(group_map%!(group%*4),N%):A-=B
pl\ �graph_exp%�N%>=graph_es%�N%<=graph_ef%:N=A+B/2:X+=.1*R%*�(N/O*�*2):Y+=.1*R%*�(N/O*�*2)
pv! M%=0:N=B:�N-=O/4:M%+=1:�N<=0
p� �graph_steakandkidney:A-=B
p�\ �graph_exp%�N%>=graph_es%�N%<=graph_ef%:N=A+B/2:X-=.1*R%*�(N/O*�*2):Y-=.1*R%*�(N/O*�*2)
p� �poll_minorloop
p��
p�Y+=10000
p��
p�:
p���graph_steakandkidney
p�� OH: Pie segment base
p�z�dfile_wput(2):�dfile_wput(24+16+3*12+(28*M%)+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
p�!M%=N%-1:M%+=16:�M%-=16:�M%<16
p���dfile_bfade(pie_palette%?(M%*4),2):�dfile_bfade(pie_palette%?(M%*4+1),2):�dfile_bfade(pie_palette%?(M%*4+2),2):�dfile_bfade(pie_palette%?(M%*4+3),2):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
p�0�dfile_wput(2):�dfile_wput(X):�dfile_wput(Y)
qN�dfile_wput(8):�dfile_wput(X+R%*�(A/O*�*2)):�dfile_wput(Y+R%*�((A/O)*�*2))
qN=B:�B>O/4:N=O/4
q�
q �dfile_wput(6)
q*y�dfile_wput(X+R%*�(A/O*�*2)+R%*N/O*2.25*�((A/O+.25)*�*2)):�dfile_wput(Y+R%*�((A/O)*�*2)+R%*N/O*2.25*�((A/O+.25)*�*2))
q4A+=N
q>w�dfile_wput(X+R%*�(A/O*�*2)+R%*N/O*2.25*�((A/O-.25)*�*2)):�dfile_wput(Y+R%*�(A/O*�*2)+R%*N/O*2.25*�((A/O-.25)*�*2))
qH=�dfile_wput(X+R%*�(A/O*�*2)):�dfile_wput(Y+R%*�(A/O*�*2))
qR
�N=B:A%=�
q\�N<B:B-=O/4:A%=�:�N>B:N=B
qf�A%
qp
�A>O:A-=O
qz0�dfile_wput(8):�dfile_wput(X):�dfile_wput(Y)
q��dfile_wput(0)
q�.B=�data_get(group_map%!(group%*4),N%):A-=B
q��A+B<=O/2�
q�  � OH: Pie segment left wall
q�s �dfile_wput(2):�dfile_wput(24+16+4*12+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
q�" M%=N%-1:M%+=16:�M%-=16:�M%<16
q�� �dfile_bfade(pie_palette%?(M%*4),2):�dfile_bfade(pie_palette%?(M%*4+1),2):�dfile_bfade(pie_palette%?(M%*4+2),2):�dfile_bfade(pie_palette%?(M%*4+3),2):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
q�7 �dfile_wput(2):�dfile_wput(X):�dfile_wput(Y+10000)
q�1 �dfile_wput(8):�dfile_wput(X):�dfile_wput(Y)
q�W �dfile_wput(8):�dfile_wput(X+R%*�((A+B)/O*�*2)):�dfile_wput(Y+R%*�(((A+B)/O)*�*2))
q�] �dfile_wput(8):�dfile_wput(X+R%*�((A+B)/O*�*2)):�dfile_wput(Y+R%*�(((A+B)/O)*�*2)+10000)
q� �dfile_wput(0)
q��
r�A<=3*O/4�A+B>=O/4 �
r" � OH: Pie segment curved wall
rs �dfile_wput(2):�dfile_wput(24+16+4*12+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
r$" M%=N%-1:M%+=16:�M%-=16:�M%<16
r.� �dfile_bfade(pie_palette%?(M%*4),2):�dfile_bfade(pie_palette%?(M%*4+1),2):�dfile_bfade(pie_palette%?(M%*4+2),2):�dfile_bfade(pie_palette%?(M%*4+3),2):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
r8O �dfile_wput(2):�dfile_wput(X+R%*�(A/O*�*2)):�dfile_wput(Y+R%*�((A/O)*�*2))
rBU �dfile_wput(8):�dfile_wput(X+R%*�(A/O*�*2)):�dfile_wput(Y+R%*�((A/O)*�*2)+10000)
rL] �dfile_wput(8):�dfile_wput(X+R%*�((A+B)/O*�*2)):�dfile_wput(Y+R%*�(((A+B)/O)*�*2)+10000)
rVW �dfile_wput(8):�dfile_wput(X+R%*�((A+B)/O*�*2)):�dfile_wput(Y+R%*�(((A+B)/O)*�*2))
r` �dfile_wput(0)
rj�
rt�A>=O/2�
r~! � OH: Pie segment right wall
r�s �dfile_wput(2):�dfile_wput(24+16+4*12+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
r�" M%=N%-1:M%+=16:�M%-=16:�M%<16
r�� �dfile_bfade(pie_palette%?(M%*4),2):�dfile_bfade(pie_palette%?(M%*4+1),2):�dfile_bfade(pie_palette%?(M%*4+2),2):�dfile_bfade(pie_palette%?(M%*4+3),2):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
r�7 �dfile_wput(2):�dfile_wput(X):�dfile_wput(Y+10000)
r�1 �dfile_wput(8):�dfile_wput(X):�dfile_wput(Y)
r�O �dfile_wput(8):�dfile_wput(X+R%*�(A/O*�*2)):�dfile_wput(Y+R%*�((A/O)*�*2))
r�U �dfile_wput(8):�dfile_wput(X+R%*�(A/O*�*2)):�dfile_wput(Y+R%*�((A/O)*�*2)+10000)
r� �dfile_wput(0)
r��
r�!M%=N%-1:M%+=16:�M%-=16:�M%<16
r��A<O/4�A+B>O/4�
r� � OH: Right side bit
ss �dfile_wput(2):�dfile_wput(24+16+3*12+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
s
� �dfile_bfade(pie_palette%?(M%*4),2):�dfile_bfade(pie_palette%?(M%*4+1),2):�dfile_bfade(pie_palette%?(M%*4+2),2):�dfile_bfade(pie_palette%?(M%*4+3),2):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
s4 �dfile_wput(2):�dfile_wput(X+R%):�dfile_wput(Y)
s: �dfile_wput(8):�dfile_wput(X+R%):�dfile_wput(Y+10000)
s(7 �dfile_wput(8):�dfile_wput(X):�dfile_wput(Y+10000)
s2 �dfile_wput(0)
s<�
sF�A<O*3/4�A+B>O*3/4�
sP � OH: Left side bit
sZs �dfile_wput(2):�dfile_wput(24+16+3*12+4):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
sd� �dfile_bfade(pie_palette%?(M%*4),2):�dfile_bfade(pie_palette%?(M%*4+1),2):�dfile_bfade(pie_palette%?(M%*4+2),2):�dfile_bfade(pie_palette%?(M%*4+3),2):�dfile_wput(graph_outline%):�dfile_wput(0):�dfile_wput(0)
sn4 �dfile_wput(2):�dfile_wput(X-R%):�dfile_wput(Y)
sx: �dfile_wput(8):�dfile_wput(X-R%):�dfile_wput(Y+10000)
s�7 �dfile_wput(8):�dfile_wput(X):�dfile_wput(Y+10000)
s� �dfile_wput(0)
s��
s�A+=B
s��
s�:
s���pie_labels
s�-�R%<90000��graph_3D%�R%<80000�graph_3D%:�
s�R%-=5000
s�"$text%="Labels":�update_bottom
s�A=0:�N%=1�data_length%
s�)B=�data_get(group_map%!(group%*4),N%)
s�[�graph_exp%�N%>=graph_es%�N%<=graph_ef%:N=A+B/2:X+=.1*R%*�(N/O*�*2):Y+=.1*R%*�(N/O*�*2)
t �data_sget(group_map%!24,N%)
tL%=0:�L%+=1:�block%?L%=0
tL%+=4-(L% �4)
t"�text_axisc<>0 �
t,U ș"Font_FindFont",,font_list%+text_axisc*40,text_axisx*16,text_axisy*16,0,0 � A%
t6J ș"Font_StringWidth",,block%,300000,200000,-1,block%+�len(block%)�,,N
t@ ș"Font_LoseFont",A%
tJ�
tT"N=text_axisx*1000*�len(block%)
t^�
th
A+=B/2
tr+M=0:�A/O>.25�A/O<.75:M=(320*text_axisy)
t|'�graph_3D%�A/O>.25�A/O<.75:M+=10000
t�N=N*640/1000:�A<O/2:N=0
t�� OH: Pie chart labels
t�n�dfile_wput(1):�dfile_wput(24+28+L%):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
t�}�dfile_wput(0):�dfile_bput(?graph_back%):�dfile_bput(graph_back%?1):�dfile_bput(graph_back%?2):�dfile_bput(graph_back%?3)
t�T�dfile_wput(graph_axisc):�dfile_wput(640*text_axisx):�dfile_wput(640*text_axisy)
t�K�dfile_wput(X+R%*1.1*�(A/O*�*2)-N):�dfile_wput(Y+R%*1.1*�((A/O)*�*2)-M)
t��dfile_sput(block%)
t�
A+=B/2
t�[�graph_exp%�N%>=graph_es%�N%<=graph_ef%:N=A-B/2:X-=.1*R%*�(N/O*�*2):Y-=.1*R%*�(N/O*�*2)
t��
t��
t�:
t�&��graph_piekey(x,y):�graph_key%:�
uA=group_data%+group%*42+11
u�text_axisc<>0 �
uT ș"Font_FindFont",,font_list%+text_axisc*40,text_axisx*16,text_axisy*16,0,0 � M
u&; ș"Font_StringWidth",,A,300000,200000,-1,A+�len(A)�,,N
u0 ș"Font_LoseFont",M
u:�
uDN=text_axisx*1000*�len(A)
uN�
uXx-=N*320/1000
ub�A%>Y:y-=320*text_axisy
ulL%=�len(A):L%+=4-(L% �4)
uv� OH: Pie chart keys
u�n�dfile_wput(1):�dfile_wput(24+28+L%):�dfile_wput(0):�dfile_wput(0):�dfile_wput(300000):�dfile_wput(200000)
u�}�dfile_wput(0):�dfile_bput(?graph_back%):�dfile_bput(graph_back%?1):�dfile_bput(graph_back%?2):�dfile_bput(graph_back%?3)
u�T�dfile_wput(graph_axisc):�dfile_wput(640*text_axisx):�dfile_wput(640*text_axisy)
u�!�dfile_wput(x):�dfile_wput(y)
u��dfile_sput(A)
u��
u�:
u�:
u���dfile_put($block%)
u��N=0��len(block%)-1
u��#X%,block%?N
u��
u��
v:
v��dfile_sput(X)
vM%=4
v 
E%=0:�
v*D%=X?E%
v4�D%=10�D%=13:D%=0
v>�#X%,D%:M%-=1:�M%=0:M%=4
vHE%+=1:�D%=0
vR�M%=4:�
v\�N=1�M%
vf
�#X%,0
vp�
vz�
v�:
v���dfile_sputl(X,R%)
v�
N%=0:�
v�
�#X%,X?N%
v�N%+=1:�N%=R%
v��
v�:
v���dfile_wput(N):!mess%=N
v�6�#X%,?mess%:�#X%,mess%?1:�#X%,mess%?2:�#X%,mess%?3
v��
v�:
v���file_wget(N)
v�6?mess%=�#X%:mess%?1=�#X%:mess%?2=�#X%:mess%?3=�#X%
w
!N=!mess%
w�
w:
w$��dfile_bput(N)
w.
�#X%,N
w8�
wB:
wLݤdata_get(E%,F%)
wVE%-=1:F%-=1
w`Y%=&8001
wj�C%=0�E%+F%*data_width%
wt	a$=""
w~�
w�N=Z%?Y%:Y%+=1
w�
a$+=�N
w��N=44�N=13�N=10�N=0
w��
w��N=44:a$=�a$,�a$-1)
w�=�a$
w�:
w���data_sget(E%,F%)
w�E%-=1:F%-=1
w�Y%=&8001
w��C%=0�E%+F%*data_width%
w�M=0
x�
x
N=Z%?Y%:Y%+=1
xblock%?M=N:M+=1
x�N=44�N=13�N=10�N=0�M=255
x(�:block%?(M-1)=0
x2�
x<:
xF=� ********** It's nice to know what's going on **********
xP:
xZ��update_start
xd�graph_window%=�:!block%=handle_pane%:ș"Wimp_CloseWindow",,block%:!block%=handle_format%:ș"Wimp_CloseWindow",,block%:!block%=handle_create%:ș"Wimp_CloseWindow",,block%
xn[!block%=-1:block%!4=I%:block%!8=&400000:block%!12=&400000:ș"Wimp_SetIconState",,block%
xx&ș"OS_ReadModeVariable",-1,11�,,J%
x�&ș"OS_ReadModeVariable",-1,12�,,K%
x�0ș"OS_ReadModeVariable",-1,5�,,M:K%=K%*(2^M)
x�0ș"OS_ReadModeVariable",-1,4�,,M:J%=J%*(2^M)
x�J%=J%�2-272:K%=K%�2+88
x�ind_upd%?35=48+graph_type%
x��!block%=handle_update%:block%!4=J%:block%!8=0:block%!12=J%+1200:block%!16=K%:block%!20=0:block%!24=0:block%!28=-1:ș"Wimp_OpenWindow",,block%
x��
x�:
x���update_top
x�$(ind_upd%+40)=$text%
x�Z!block%=handle_update%:block%!4=3:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
x�$text%="���":�update_bottom
x��poll_minorloop
y�
y:
y��update_bottom
y"$(ind_upd%+63)=$text%
y,Z!block%=handle_update%:block%!4=4:block%!8=0:block%!12=0:ș"Wimp_SetIconState",,block%
y6�poll_minorloop
y@�
yJ:
yT��update_smash
y^7!block%=handle_update%:ș"Wimp_CloseWindow",,block%
yhU!block%=-1:block%!4=I%:block%!8=0:block%!12=&400000:ș"Wimp_SetIconState",,block%
yr�
y|:
y�&��poll_minorloop:�update_faster%:�
y�%ș"Wimp_Poll",&1932,block%�event%
y�+�event%=2:ș"Wimp_OpenWindow",,block%:�
y�?�event%=17�event%=18�event%=19:�block%!16=8:�byebye_prequit
y�E�event%=17�event%=18�event%=19:�block%!16=0:�#X%:�byebye_shutdown
y�>�event%=6�block%!8=2�block%!12=handle_update%:�menu_update
y��event%=9:�update_faster
y��
y�:
y���byebye_prequit
y�XN=�message("GraphPlus is creating a graph. Do you want to terminate application?",3)
y�V�N=2:N=block%!4:block%!4=task%:block%!12=block%!8:ș"Wimp_SendMessage",19,block%,N
y��
z:
zY��menu_update:ș"Wimp_CreateMenu",,menu_task%,!block%-64,block%!4:menu_current%=256:�
z:
z&��update_faster
z0,$text%="Single tasking mode":�update_top
z:'$text%="Please wait":�update_bottom
zDupdate_faster%=�
zN�
�

00000000  0d 00 0a 20 f4 20 2b 2b  2d 2d 2d 2d 2d 2d 2d 2d  |... . ++--------|
00000010  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2b 2b  |--------------++|
00000020  0d 00 14 20 f4 20 7c 7c  20 47 72 61 70 68 50 6c  |... . || GraphPl|
00000030  75 73 20 28 52 75 6e 49  6d 61 67 65 29 20 7c 7c  |us (RunImage) |||
00000040  0d 00 1e 20 f4 20 7c 7c  20 62 79 20 50 65 74 65  |... . || by Pete|
00000050  20 47 6f 6f 64 6c 69 66  66 65 20 20 20 20 7c 7c  | Goodliffe    |||
00000060  0d 00 28 20 f4 20 7c 7c  20 a9 20 54 72 61 78 20  |..( . || . Trax |
00000070  53 6f 66 74 77 61 72 65  20 31 39 39 35 20 7c 7c  |Software 1995 |||
00000080  0d 00 32 20 f4 20 7c 7c  20 76 33 2e 30 38 20 31  |..2 . || v3.08 1|
00000090  30 2d 4a 61 6e 2d 39 35  20 20 20 20 20 20 7c 7c  |0-Jan-95      |||
000000a0  0d 00 3c 20 f4 20 2b 2b  2d 2d 2d 2d 2d 2d 2d 2d  |..< . ++--------|
000000b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2b 2b  |--------------++|
000000c0  0d 00 46 05 3a 0d 00 50  28 ee 85 20 85 30 2c 22  |..F.:..P(.. .0,"|
000000d0  53 74 61 72 74 75 70 20  65 72 72 6f 72 3b 20 22  |Startup error; "|
000000e0  2b f6 24 2b 22 20 22 2b  c3 7e 28 9e 29 0d 00 5a  |+.$+" "+.~(.)..Z|
000000f0  14 c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |..."Hourglass_On|
00000100  22 0d 00 64 33 f2 69 6e  69 74 5f 69 6e 69 74 3a  |"..d3.init_init:|
00000110  f2 69 6e 69 74 5f 70 72  6f 67 3a f2 69 6e 69 74  |.init_prog:.init|
00000120  5f 77 69 6d 70 3a f2 69  6e 69 74 5f 74 65 6d 70  |_wimp:.init_temp|
00000130  6c 61 74 65 0d 00 6e 0d  ee 85 20 f2 65 72 72 6f  |late..n... .erro|
00000140  72 0d 00 78 15 c8 99 22  48 6f 75 72 67 6c 61 73  |r..x..."Hourglas|
00000150  73 5f 4f 66 66 22 0d 00  82 15 f2 69 6e 69 74 5f  |s_Off".....init_|
00000160  66 69 72 73 74 77 69 6e  64 6f 77 0d 00 8c 0b 6d  |firstwindow....m|
00000170  61 73 6b 25 3d 31 0d 00  96 05 3a 0d 00 a0 05 f5  |ask%=1....:.....|
00000180  0d 00 aa 24 c8 99 22 57  69 6d 70 5f 50 6f 6c 6c  |...$.."Wimp_Poll|
00000190  22 2c 6d 61 73 6b 25 2c  70 6f 6c 6c 25 b8 65 76  |",mask%,poll%.ev|
000001a0  65 6e 74 25 0d 00 b4 0d  c8 8e 65 76 65 6e 74 25  |ent%......event%|
000001b0  ca 0d 00 be 1e 20 c9 31  20 3a f2 77 69 6e 64 6f  |..... .1 :.windo|
000001c0  77 5f 72 65 71 75 65 73  74 52 65 64 72 61 77 0d  |w_requestRedraw.|
000001d0  00 c8 1c 20 c9 32 20 3a  f2 77 69 6e 64 6f 77 5f  |... .2 :.window_|
000001e0  72 65 71 75 65 73 74 4f  70 65 6e 0d 00 d2 1d 20  |requestOpen.... |
000001f0  c9 33 20 3a f2 77 69 6e  64 6f 77 5f 72 65 71 75  |.3 :.window_requ|
00000200  65 73 74 43 6c 6f 73 65  0d 00 dc 15 20 c9 36 20  |estClose.... .6 |
00000210  3a f2 6d 6f 75 73 65 5f  63 6c 69 63 6b 0d 00 e6  |:.mouse_click...|
00000220  1a 20 c9 37 20 3a f2 64  72 61 67 5f 75 73 65 72  |. .7 :.drag_user|
00000230  64 72 61 67 62 6f 78 0d  00 f0 14 20 c9 38 20 3a  |dragbox.... .8 :|
00000240  f2 6b 65 79 70 72 65 73  73 65 64 0d 00 fa 18 20  |.keypressed.... |
00000250  c9 39 20 3a f2 6d 65 6e  75 5f 73 65 6c 65 63 74  |.9 :.menu_select|
00000260  69 6f 6e 0d 01 04 19 20  c9 31 37 3a f2 6d 65 73  |ion.... .17:.mes|
00000270  73 61 67 65 5f 70 72 6f  63 65 73 73 0d 01 0e 19  |sage_process....|
00000280  20 c9 31 38 3a f2 6d 65  73 73 61 67 65 5f 70 72  | .18:.message_pr|
00000290  6f 63 65 73 73 0d 01 18  05 cb 0d 01 22 06 fd a3  |ocess......."...|
000002a0  0d 01 2c 05 3a 0d 01 36  26 f4 20 2a 2a 2a 2a 2a  |..,.:..6&. *****|
000002b0  2a 2a 2a 2a 2a 20 49 6e  69 74 69 61 6c 69 73 65  |***** Initialise|
000002c0  20 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 01 40 05 3a  | **********..@.:|
000002d0  0d 01 4a 0f dd f2 69 6e  69 74 5f 69 6e 69 74 0d  |..J...init_init.|
000002e0  01 54 2b de 62 6c 6f 63  6b 25 26 31 30 30 30 2c  |.T+.block%&1000,|
000002f0  70 6f 6c 6c 25 32 35 36  2c 6d 65 73 73 25 32 35  |poll%256,mess%25|
00000300  36 2c 64 61 74 61 25 31  30 30 0d 01 5e 05 e1 0d  |6,data%100..^...|
00000310  01 68 05 3a 0d 01 72 0f  dd f2 69 6e 69 74 5f 70  |.h.:..r...init_p|
00000320  72 6f 67 0d 01 7c 13 67  72 61 70 68 5f 77 69 6e  |rog..|.graph_win|
00000330  64 6f 77 25 3d a3 0d 01  86 05 3a 0d 01 90 23 de  |dow%=.....:...#.|
00000340  20 66 6f 6e 74 5f 6c 69  73 74 25 31 30 32 38 30  | font_list%10280|
00000350  2c 66 6f 6e 74 5f 70 61  74 68 25 32 35 36 0d 01  |,font_path%256..|
00000360  9a 1d 66 6f 6e 74 5f 63  6f 75 6e 74 65 72 25 3d  |..font_counter%=|
00000370  30 3a 66 6f 6e 74 5f 63  25 3d 30 0d 01 a4 39 de  |0:font_c%=0...9.|
00000380  20 66 69 6c 65 5f 74 65  6d 70 25 32 35 36 3a 24  | file_temp%256:$|
00000390  66 69 6c 65 5f 74 65 6d  70 25 3d 22 54 65 6d 70  |file_temp%="Temp|
000003a0  6c 61 74 65 22 3a 66 69  6c 65 5f 73 74 61 74 75  |late":file_statu|
000003b0  73 25 3d 30 0d 01 ae 2d  de 20 66 69 6c 65 5f 67  |s%=0...-. file_g|
000003c0  72 61 70 68 25 32 35 36  3a 24 66 69 6c 65 5f 67  |raph%256:$file_g|
000003d0  72 61 70 68 25 3d 22 47  72 61 70 68 46 69 6c 65  |raph%="GraphFile|
000003e0  22 0d 01 b8 31 de 20 67  72 6f 75 70 5f 6d 61 70  |"...1. group_map|
000003f0  25 32 38 2c 67 72 6f 75  70 5f 64 61 74 61 25 32  |%28,group_data%2|
00000400  35 31 2c 70 69 65 5f 70  61 6c 65 74 74 65 25 20  |51,pie_palette% |
00000410  36 34 0d 01 c2 13 66 6c  61 67 5f 66 69 64 64 6c  |64....flag_fiddl|
00000420  65 64 25 3d a3 0d 01 cc  05 3a 0d 01 d6 10 f4 20  |ed%=.....:..... |
00000430  47 72 61 70 68 20 69 6e  66 6f 0d 01 e0 10 67 72  |Graph info....gr|
00000440  61 70 68 5f 78 64 69 76  3d 31 0d 01 ea 10 67 72  |aph_xdiv=1....gr|
00000450  61 70 68 5f 79 64 69 76  3d 31 0d 01 f4 12 67 72  |aph_ydiv=1....gr|
00000460  61 70 68 5f 78 73 64 69  76 3d 2e 35 0d 01 fe 12  |aph_xsdiv=.5....|
00000470  67 72 61 70 68 5f 79 73  64 69 76 3d 2e 35 0d 02  |graph_ysdiv=.5..|
00000480  08 30 67 72 61 70 68 5f  74 69 74 6c 65 25 3d 31  |.0graph_title%=1|
00000490  3a 67 72 61 70 68 5f 78  61 78 69 73 25 3d 31 3a  |:graph_xaxis%=1:|
000004a0  67 72 61 70 68 5f 79 61  78 69 73 25 3d 31 0d 02  |graph_yaxis%=1..|
000004b0  12 25 de 73 5f 74 69 74  6c 65 25 34 30 2c 73 5f  |.%.s_title%40,s_|
000004c0  78 61 78 69 73 25 34 30  2c 73 5f 79 61 78 69 73  |xaxis%40,s_yaxis|
000004d0  25 34 30 0d 02 1c 37 67  72 61 70 68 5f 78 67 25  |%40...7graph_xg%|
000004e0  3d 31 3a 67 72 61 70 68  5f 79 67 25 3d 32 3a 67  |=1:graph_yg%=2:g|
000004f0  72 61 70 68 5f 78 63 61  6c 25 3d 31 3a 67 72 61  |raph_xcal%=1:gra|
00000500  70 68 5f 79 63 61 6c 25  3d 31 0d 02 26 28 67 72  |ph_ycal%=1..&(gr|
00000510  61 70 68 5f 65 78 70 25  3d 31 3a 67 72 61 70 68  |aph_exp%=1:graph|
00000520  5f 65 73 25 3d 31 3a 67  72 61 70 68 5f 65 66 25  |_es%=1:graph_ef%|
00000530  3d 31 0d 02 30 0e de 20  74 65 78 74 25 20 34 30  |=1..0.. text% 40|
00000540  0d 02 3a 11 74 65 78 74  5f 74 69 74 6c 65 63 3d  |..:.text_titlec=|
00000550  30 0d 02 44 12 67 72 61  70 68 5f 74 69 74 6c 65  |0..D.graph_title|
00000560  63 3d 30 0d 02 4e 12 74  65 78 74 5f 74 69 74 6c  |c=0..N.text_titl|
00000570  65 78 3d 32 30 0d 02 58  12 74 65 78 74 5f 74 69  |ex=20..X.text_ti|
00000580  74 6c 65 79 3d 32 35 0d  02 62 10 74 65 78 74 5f  |tley=25..b.text_|
00000590  61 78 69 73 63 3d 30 0d  02 6c 11 67 72 61 70 68  |axisc=0..l.graph|
000005a0  5f 61 78 69 73 63 3d 30  0d 02 76 11 74 65 78 74  |_axisc=0..v.text|
000005b0  5f 61 78 69 73 78 3d 31  30 0d 02 80 11 74 65 78  |_axisx=10....tex|
000005c0  74 5f 61 78 69 73 79 3d  31 30 0d 02 8a 0f 74 65  |t_axisy=10....te|
000005d0  78 74 5f 6b 65 79 63 3d  30 0d 02 94 10 67 72 61  |xt_keyc=0....gra|
000005e0  70 68 5f 6b 65 79 63 3d  30 0d 02 9e 10 74 65 78  |ph_keyc=0....tex|
000005f0  74 5f 6b 65 79 78 3d 31  30 0d 02 a8 10 74 65 78  |t_keyx=10....tex|
00000600  74 5f 6b 65 79 79 3d 31  30 0d 02 b2 11 67 72 61  |t_keyy=10....gra|
00000610  70 68 5f 62 65 73 74 25  3d 32 0d 02 bc 1d de 64  |ph_best%=2.....d|
00000620  61 74 61 5f 62 61 63 6b  25 33 2c 67 72 61 70 68  |ata_back%3,graph|
00000630  5f 62 61 63 6b 25 33 0d  02 c6 48 3f 67 72 61 70  |_back%3...H?grap|
00000640  68 5f 62 61 63 6b 25 3d  30 3a 67 72 61 70 68 5f  |h_back%=0:graph_|
00000650  62 61 63 6b 25 3f 31 3d  26 38 30 3a 67 72 61 70  |back%?1=&80:grap|
00000660  68 5f 62 61 63 6b 25 3f  32 3d 26 38 30 3a 67 72  |h_back%?2=&80:gr|
00000670  61 70 68 5f 62 61 63 6b  25 3f 33 3d 26 46 30 0d  |aph_back%?3=&F0.|
00000680  02 d0 1c 21 64 61 74 61  5f 62 61 63 6b 25 3d 21  |...!data_back%=!|
00000690  67 72 61 70 68 5f 62 61  63 6b 25 0d 02 da 10 67  |graph_back%....g|
000006a0  72 61 70 68 5f 62 6f 78  25 3d b9 0d 02 e4 10 67  |raph_box%=.....g|
000006b0  72 61 70 68 5f 6b 65 79  25 3d a3 0d 02 ee 0f 67  |raph_key%=.....g|
000006c0  72 61 70 68 5f 33 44 25  3d a3 0d 02 f8 14 67 72  |raph_3D%=.....gr|
000006d0  61 70 68 5f 6f 75 74 6c  69 6e 65 25 3d 30 0d 03  |aph_outline%=0..|
000006e0  02 15 67 72 61 70 68 5f  67 72 6f 75 70 73 69 7a  |..graph_groupsiz|
000006f0  65 3d 30 0d 03 0c 14 67  72 61 70 68 5f 62 61 72  |e=0....graph_bar|
00000700  77 69 64 74 68 3d 30 0d  03 16 13 67 72 61 70 68  |width=0....graph|
00000710  5f 62 61 72 73 69 7a 65  3d 30 0d 03 20 14 67 72  |_barsize=0.. .gr|
00000720  61 70 68 5f 62 61 72 74  79 70 65 25 3d 30 0d 03  |aph_bartype%=0..|
00000730  2a 16 67 72 61 70 68 5f  62 61 72 6d 61 72 67 69  |*.graph_barmargi|
00000740  6e 25 3d 30 0d 03 34 22  67 72 61 70 68 5f 74 79  |n%=0..4"graph_ty|
00000750  70 65 25 3d 31 3a 68 61  6e 64 6c 65 5f 66 6f 72  |pe%=1:handle_for|
00000760  6d 61 74 25 3d 30 0d 03  3e 1d 67 72 61 70 68 5f  |mat%=0..>.graph_|
00000770  78 6d 69 6e 3d 30 3a 67  72 61 70 68 5f 79 6d 69  |xmin=0:graph_ymi|
00000780  6e 3d 30 0d 03 48 1d 67  72 61 70 68 5f 78 6d 61  |n=0..H.graph_xma|
00000790  78 3d 30 3a 67 72 61 70  68 5f 79 6d 61 78 3d 30  |x=0:graph_ymax=0|
000007a0  0d 03 52 21 67 72 61 70  68 5f 78 73 63 61 6c 65  |..R!graph_xscale|
000007b0  3d 30 3a 67 72 61 70 68  5f 79 73 63 61 6c 65 3d  |=0:graph_yscale=|
000007c0  30 0d 03 5c 14 67 72 61  70 68 5f 6f 76 65 72 6c  |0..\.graph_overl|
000007d0  61 79 25 3d a3 0d 03 66  05 3a 0d 03 70 14 f4 20  |ay%=...f.:..p.. |
000007e0  44 61 74 61 20 66 69 6c  65 20 69 6e 66 6f 0d 03  |Data file info..|
000007f0  7a 12 64 61 74 61 5f 6c  65 6e 67 74 68 25 3d 39  |z.data_length%=9|
00000800  0d 03 84 11 64 61 74 61  5f 77 69 64 74 68 25 3d  |....data_width%=|
00000810  34 0d 03 8e 0f 64 61 74  61 5f 78 6d 69 6e 3d 30  |4....data_xmin=0|
00000820  0d 03 98 0f 64 61 74 61  5f 79 6d 69 6e 3d 30 0d  |....data_ymin=0.|
00000830  03 a2 0f 64 61 74 61 5f  78 6d 61 78 3d 37 0d 03  |...data_xmax=7..|
00000840  ac 0f 64 61 74 61 5f 79  6d 61 78 3d 36 0d 03 b6  |..data_ymax=6...|
00000850  05 3a 0d 03 c0 14 75 70  64 61 74 65 5f 66 61 73  |.:....update_fas|
00000860  74 65 72 25 3d a3 0d 03  ca 17 de 6d 65 6e 75 5f  |ter%=......menu_|
00000870  66 6f 6e 74 6c 69 73 74  25 36 31 37 32 0d 03 d4  |fontlist%6172...|
00000880  17 f2 66 6f 6e 74 5f 64  6f 74 68 65 62 75 73 69  |..font_dothebusi|
00000890  6e 65 73 73 0d 03 de 05  e1 0d 03 e8 05 3a 0d 03  |ness.........:..|
000008a0  f2 0f dd f2 69 6e 69 74  5f 77 69 6d 70 0d 03 fc  |....init_wimp...|
000008b0  13 6d 65 6e 75 5f 63 75  72 72 65 6e 74 25 3d 30  |.menu_current%=0|
000008c0  0d 04 06 40 c8 99 22 57  69 6d 70 5f 49 6e 69 74  |...@.."Wimp_Init|
000008d0  69 61 6c 69 73 65 22 2c  32 30 30 2c 26 34 42 35  |ialise",200,&4B5|
000008e0  33 34 31 35 34 2c 22 47  72 61 70 68 50 6c 75 73  |34154,"GraphPlus|
000008f0  22 b8 76 65 72 73 69 6f  6e 25 2c 74 61 73 6b 25  |".version%,task%|
00000900  0d 04 10 87 21 62 6c 6f  63 6b 25 3d 2d 31 3a 62  |....!block%=-1:b|
00000910  6c 6f 63 6b 25 21 34 3d  30 3a 62 6c 6f 63 6b 25  |lock%!4=0:block%|
00000920  21 38 3d 30 3a 62 6c 6f  63 6b 25 21 31 32 3d 36  |!8=0:block%!12=6|
00000930  38 3a 62 6c 6f 63 6b 25  21 31 36 3d 36 38 3a 62  |8:block%!16=68:b|
00000940  6c 6f 63 6b 25 21 32 30  3d 26 33 30 31 41 3a 24  |lock%!20=&301A:$|
00000950  28 62 6c 6f 63 6b 25 2b  32 34 29 3d 22 21 47 72  |(block%+24)="!Gr|
00000960  61 70 68 50 6c 75 73 22  3a c8 99 22 57 69 6d 70  |aphPlus":.."Wimp|
00000970  5f 43 72 65 61 74 65 49  63 6f 6e 22 2c 2c 62 6c  |_CreateIcon",,bl|
00000980  6f 63 6b 25 b8 49 25 0d  04 11 59 24 62 6c 6f 63  |ock%.I%...Y$bloc|
00000990  6b 25 3d 22 3c 47 72 61  70 68 50 6c 75 73 24 44  |k%="<GraphPlus$D|
000009a0  69 72 3e 2e 53 70 72 69  74 65 73 22 3a c8 99 22  |ir>.Sprites":.."|
000009b0  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
000009c0  62 6c 65 22 2c 2d 31 2c  35 b8 2c 2c 4e 3a e7 4e  |ble",-1,5.,,N:.N|
000009d0  3c 32 3a 24 62 6c 6f 63  6b 25 2b 3d 22 32 32 22  |<2:$block%+="22"|
000009e0  0d 04 1a 0e 4e 3d 8e 24  62 6c 6f 63 6b 25 0d 04  |....N=.$block%..|
000009f0  24 0d 4d 3d a2 23 4e 3a  d9 23 4e 0d 04 2e 22 de  |$.M=.#N:.#N...".|
00000a00  20 73 70 72 69 74 65 73  25 20 4d 2b 32 30 3a 21  | sprites% M+20:!|
00000a10  73 70 72 69 74 65 73 25  3d 4d 2b 32 30 0d 04 38  |sprites%=M+20..8|
00000a20  2a c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |*.."OS_SpriteOp"|
00000a30  2c 31 30 2b 32 35 36 2c  73 70 72 69 74 65 73 25  |,10+256,sprites%|
00000a40  2c 62 6c 6f 63 6b 25 0d  04 42 1d f2 69 6e 69 74  |,block%..B..init|
00000a50  5f 77 69 6e 64 6f 77 73  3a f2 69 6e 69 74 5f 6d  |_windows:.init_m|
00000a60  65 6e 75 73 0d 04 4c 41  c8 99 22 58 4f 53 5f 53  |enus..LA.."XOS_S|
00000a70  57 49 4e 75 6d 62 65 72  46 72 6f 6d 53 74 72 69  |WINumberFromStri|
00000a80  6e 67 22 2c 2c 22 44 72  61 67 41 53 70 72 69 74  |ng",,"DragASprit|
00000a90  65 5f 53 74 61 72 74 22  20 b8 20 64 73 74 61 72  |e_Start" . dstar|
00000aa0  74 25 3b 20 4e 0d 04 56  16 e7 28 4e 20 80 20 31  |t%; N..V..(N . 1|
00000ab0  29 20 64 73 74 61 72 74  25 3d 30 0d 04 60 05 e1  |) dstart%=0..`..|
00000ac0  0d 04 6a 05 3a 0d 04 74  05 3a 0d 04 7e 12 dd f2  |..j.:..t.:..~...|
00000ad0  69 6e 69 74 5f 77 69 6e  64 6f 77 73 0d 04 88 8c  |init_windows....|
00000ae0  de 20 69 6e 64 5f 69 6e  66 25 31 33 39 2c 69 6e  |. ind_inf%139,in|
00000af0  64 5f 64 70 25 32 36 30  2c 69 6e 64 5f 73 61 25  |d_dp%260,ind_sa%|
00000b00  32 36 39 2c 69 6e 64 5f  73 67 25 32 36 39 2c 69  |269,ind_sg%269,i|
00000b10  6e 64 5f 66 6e 74 25 31  37 33 2c 69 6e 64 5f 6d  |nd_fnt%173,ind_m|
00000b20  61 70 25 39 39 2c 69 6e  64 5f 6c 61 62 25 36 39  |ap%99,ind_lab%69|
00000b30  2c 69 6e 64 5f 62 63 6b  25 39 31 2c 69 6e 64 5f  |,ind_bck%91,ind_|
00000b40  67 72 70 25 32 38 39 2c  69 6e 64 5f 66 72 6d 25  |grp%289,ind_frm%|
00000b50  39 32 2c 69 6e 64 5f 70  6e 25 39 39 35 2c 69 6e  |92,ind_pn%995,in|
00000b60  64 5f 75 70 64 25 38 36  0d 04 92 40 24 62 6c 6f  |d_upd%86...@$blo|
00000b70  63 6b 25 3d 22 3c 4f 62  65 79 24 44 69 72 3e 2e  |ck%="<Obey$Dir>.|
00000b80  54 65 6d 70 6c 61 74 65  73 22 3a c8 99 22 57 69  |Templates":.."Wi|
00000b90  6d 70 5f 4f 70 65 6e 54  65 6d 70 6c 61 74 65 22  |mp_OpenTemplate"|
00000ba0  2c 2c 62 6c 6f 63 6b 25  0d 04 9c 11 24 70 6f 6c  |,,block%....$pol|
00000bb0  6c 25 3d 22 49 6e 66 6f  22 0d 04 a6 42 c8 99 22  |l%="Info"...B.."|
00000bc0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000bd0  65 22 2c 2c 62 6c 6f 63  6b 25 2c 69 6e 64 5f 69  |e",,block%,ind_i|
00000be0  6e 66 25 2c 69 6e 64 5f  69 6e 66 25 2b 31 33 39  |nf%,ind_inf%+139|
00000bf0  2c 2d 31 2c 70 6f 6c 6c  25 2c 30 0d 04 b0 16 62  |,-1,poll%,0....b|
00000c00  6c 6f 63 6b 25 21 36 34  3d 73 70 72 69 74 65 73  |lock%!64=sprites|
00000c10  25 0d 04 ba 2e c8 99 22  57 69 6d 70 5f 43 72 65  |%......"Wimp_Cre|
00000c20  61 74 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |ateWindow",,bloc|
00000c30  6b 25 b8 68 61 6e 64 6c  65 5f 69 6e 66 6f 25 0d  |k%.handle_info%.|
00000c40  04 c4 12 24 70 6f 6c 6c  25 3d 22 47 72 6f 75 70  |...$poll%="Group|
00000c50  22 0d 04 ce 42 c8 99 22  57 69 6d 70 5f 4c 6f 61  |"...B.."Wimp_Loa|
00000c60  64 54 65 6d 70 6c 61 74  65 22 2c 2c 62 6c 6f 63  |dTemplate",,bloc|
00000c70  6b 25 2c 69 6e 64 5f 67  72 70 25 2c 69 6e 64 5f  |k%,ind_grp%,ind_|
00000c80  67 72 70 25 2b 32 38 39  2c 2d 31 2c 70 6f 6c 6c  |grp%+289,-1,poll|
00000c90  25 2c 30 0d 04 d8 16 62  6c 6f 63 6b 25 21 36 34  |%,0....block%!64|
00000ca0  3d 73 70 72 69 74 65 73  25 0d 04 e2 2f c8 99 22  |=sprites%.../.."|
00000cb0  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00000cc0  77 22 2c 2c 62 6c 6f 63  6b 25 b8 68 61 6e 64 6c  |w",,block%.handl|
00000cd0  65 5f 67 72 6f 75 70 25  0d 04 ec 13 24 70 6f 6c  |e_group%....$pol|
00000ce0  6c 25 3d 22 46 6f 72 6d  61 74 22 0d 04 f6 41 c8  |l%="Format"...A.|
00000cf0  99 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  |."Wimp_LoadTempl|
00000d00  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 2c 69 6e 64  |ate",,block%,ind|
00000d10  5f 66 72 6d 25 2c 69 6e  64 5f 66 72 6d 25 2b 39  |_frm%,ind_frm%+9|
00000d20  32 2c 2d 31 2c 70 6f 6c  6c 25 2c 30 0d 05 00 16  |2,-1,poll%,0....|
00000d30  62 6c 6f 63 6b 25 21 36  34 3d 73 70 72 69 74 65  |block%!64=sprite|
00000d40  73 25 0d 05 0a 30 c8 99  22 57 69 6d 70 5f 43 72  |s%...0.."Wimp_Cr|
00000d50  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |eateWindow",,blo|
00000d60  63 6b 25 b8 68 61 6e 64  6c 65 5f 66 6f 72 6d 61  |ck%.handle_forma|
00000d70  74 25 0d 05 14 11 24 70  6f 6c 6c 25 3d 22 50 61  |t%....$poll%="Pa|
00000d80  6e 65 22 0d 05 1e 40 c8  99 22 57 69 6d 70 5f 4c  |ne"...@.."Wimp_L|
00000d90  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 62 6c  |oadTemplate",,bl|
00000da0  6f 63 6b 25 2c 69 6e 64  5f 70 6e 25 2c 69 6e 64  |ock%,ind_pn%,ind|
00000db0  5f 70 6e 25 2b 39 39 35  2c 2d 31 2c 70 6f 6c 6c  |_pn%+995,-1,poll|
00000dc0  25 2c 30 0d 05 28 16 62  6c 6f 63 6b 25 21 36 34  |%,0..(.block%!64|
00000dd0  3d 73 70 72 69 74 65 73  25 0d 05 32 2e c8 99 22  |=sprites%..2..."|
00000de0  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00000df0  77 22 2c 2c 62 6c 6f 63  6b 25 b8 68 61 6e 64 6c  |w",,block%.handl|
00000e00  65 5f 70 61 6e 65 25 0d  05 3c 10 24 70 6f 6c 6c  |e_pane%..<.$poll|
00000e10  25 3d 22 4d 61 70 22 0d  05 46 41 c8 99 22 57 69  |%="Map"..FA.."Wi|
00000e20  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000e30  2c 2c 62 6c 6f 63 6b 25  2c 69 6e 64 5f 6d 61 70  |,,block%,ind_map|
00000e40  25 2c 69 6e 64 5f 6d 61  70 25 2b 39 39 2c 2d 31  |%,ind_map%+99,-1|
00000e50  2c 70 6f 6c 6c 25 2c 30  0d 05 50 16 62 6c 6f 63  |,poll%,0..P.bloc|
00000e60  6b 25 21 36 34 3d 73 70  72 69 74 65 73 25 0d 05  |k%!64=sprites%..|
00000e70  5a 2d c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |Z-.."Wimp_Create|
00000e80  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 b8  |Window",,block%.|
00000e90  68 61 6e 64 6c 65 5f 6d  61 70 25 0d 05 64 11 24  |handle_map%..d.$|
00000ea0  70 6f 6c 6c 25 3d 22 42  61 63 6b 22 0d 05 6e 41  |poll%="Back"..nA|
00000eb0  c8 99 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |.."Wimp_LoadTemp|
00000ec0  6c 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 2c 69 6e  |late",,block%,in|
00000ed0  64 5f 62 63 6b 25 2c 69  6e 64 5f 62 63 6b 25 2b  |d_bck%,ind_bck%+|
00000ee0  39 31 2c 2d 31 2c 70 6f  6c 6c 25 2c 30 0d 05 78  |91,-1,poll%,0..x|
00000ef0  16 62 6c 6f 63 6b 25 21  36 34 3d 73 70 72 69 74  |.block%!64=sprit|
00000f00  65 73 25 0d 05 82 2e c8  99 22 57 69 6d 70 5f 43  |es%......"Wimp_C|
00000f10  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |reateWindow",,bl|
00000f20  6f 63 6b 25 b8 68 61 6e  64 6c 65 5f 62 61 63 6b  |ock%.handle_back|
00000f30  25 0d 05 8c 11 24 70 6f  6c 6c 25 3d 22 46 6f 6e  |%....$poll%="Fon|
00000f40  74 22 0d 05 96 42 c8 99  22 57 69 6d 70 5f 4c 6f  |t"...B.."Wimp_Lo|
00000f50  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 62 6c 6f  |adTemplate",,blo|
00000f60  63 6b 25 2c 69 6e 64 5f  66 6e 74 25 2c 69 6e 64  |ck%,ind_fnt%,ind|
00000f70  5f 66 6e 74 25 2b 31 37  33 2c 2d 31 2c 70 6f 6c  |_fnt%+173,-1,pol|
00000f80  6c 25 2c 30 0d 05 a0 16  62 6c 6f 63 6b 25 21 36  |l%,0....block%!6|
00000f90  34 3d 73 70 72 69 74 65  73 25 0d 05 aa 2e c8 99  |4=sprites%......|
00000fa0  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000fb0  6f 77 22 2c 2c 62 6c 6f  63 6b 25 b8 68 61 6e 64  |ow",,block%.hand|
00000fc0  6c 65 5f 66 6f 6e 74 25  0d 05 b4 13 24 70 6f 6c  |le_font%....$pol|
00000fd0  6c 25 3d 22 53 61 76 65  41 73 22 0d 05 be 40 c8  |l%="SaveAs"...@.|
00000fe0  99 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  |."Wimp_LoadTempl|
00000ff0  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 2c 69 6e 64  |ate",,block%,ind|
00001000  5f 73 61 25 2c 69 6e 64  5f 73 61 25 2b 32 36 39  |_sa%,ind_sa%+269|
00001010  2c 2d 31 2c 70 6f 6c 6c  25 2c 30 0d 05 c8 2e c8  |,-1,poll%,0.....|
00001020  99 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  |."Wimp_CreateWin|
00001030  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 b8 68 61 6e  |dow",,block%.han|
00001040  64 6c 65 5f 73 61 76 65  25 0d 05 d2 16 24 70 6f  |dle_save%....$po|
00001050  6c 6c 25 3d 22 53 61 76  65 47 72 61 70 68 22 0d  |ll%="SaveGraph".|
00001060  05 dc 40 c8 99 22 57 69  6d 70 5f 4c 6f 61 64 54  |..@.."Wimp_LoadT|
00001070  65 6d 70 6c 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |emplate",,block%|
00001080  2c 69 6e 64 5f 73 67 25  2c 69 6e 64 5f 73 67 25  |,ind_sg%,ind_sg%|
00001090  2b 32 36 39 2c 2d 31 2c  70 6f 6c 6c 25 2c 30 0d  |+269,-1,poll%,0.|
000010a0  05 e6 30 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |..0.."Wimp_Creat|
000010b0  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |eWindow",,block%|
000010c0  b8 68 61 6e 64 6c 65 5f  63 72 65 61 74 65 25 0d  |.handle_create%.|
000010d0  05 f0 12 24 70 6f 6c 6c  25 3d 22 4c 61 62 65 6c  |...$poll%="Label|
000010e0  22 0d 05 fa 41 c8 99 22  57 69 6d 70 5f 4c 6f 61  |"...A.."Wimp_Loa|
000010f0  64 54 65 6d 70 6c 61 74  65 22 2c 2c 62 6c 6f 63  |dTemplate",,bloc|
00001100  6b 25 2c 69 6e 64 5f 6c  61 62 25 2c 69 6e 64 5f  |k%,ind_lab%,ind_|
00001110  6c 61 62 25 2b 36 39 2c  2d 31 2c 70 6f 6c 6c 25  |lab%+69,-1,poll%|
00001120  2c 30 0d 06 04 16 62 6c  6f 63 6b 25 21 36 34 3d  |,0....block%!64=|
00001130  73 70 72 69 74 65 73 25  0d 06 0e 2f c8 99 22 57  |sprites%.../.."W|
00001140  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00001150  22 2c 2c 62 6c 6f 63 6b  25 b8 68 61 6e 64 6c 65  |",,block%.handle|
00001160  5f 6c 61 62 65 6c 25 0d  06 18 15 24 70 6f 6c 6c  |_label%....$poll|
00001170  25 3d 22 44 61 74 61 70  61 74 68 22 0d 06 22 40  |%="Datapath".."@|
00001180  c8 99 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |.."Wimp_LoadTemp|
00001190  6c 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 2c 69 6e  |late",,block%,in|
000011a0  64 5f 64 70 25 2c 69 6e  64 5f 64 70 25 2b 32 36  |d_dp%,ind_dp%+26|
000011b0  30 2c 2d 31 2c 70 6f 6c  6c 25 2c 30 0d 06 2c 32  |0,-1,poll%,0..,2|
000011c0  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |.."Wimp_CreateWi|
000011d0  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 b8 68 61  |ndow",,block%.ha|
000011e0  6e 64 6c 65 5f 64 61 74  61 70 61 74 68 25 0d 06  |ndle_datapath%..|
000011f0  36 13 24 70 6f 6c 6c 25  3d 22 55 70 64 61 74 65  |6.$poll%="Update|
00001200  22 0d 06 40 41 c8 99 22  57 69 6d 70 5f 4c 6f 61  |"..@A.."Wimp_Loa|
00001210  64 54 65 6d 70 6c 61 74  65 22 2c 2c 62 6c 6f 63  |dTemplate",,bloc|
00001220  6b 25 2c 69 6e 64 5f 75  70 64 25 2c 69 6e 64 5f  |k%,ind_upd%,ind_|
00001230  75 70 64 25 2b 38 36 2c  2d 31 2c 70 6f 6c 6c 25  |upd%+86,-1,poll%|
00001240  2c 30 0d 06 4a 16 62 6c  6f 63 6b 25 21 36 34 3d  |,0..J.block%!64=|
00001250  73 70 72 69 74 65 73 25  0d 06 54 30 c8 99 22 57  |sprites%..T0.."W|
00001260  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00001270  22 2c 2c 62 6c 6f 63 6b  25 b8 68 61 6e 64 6c 65  |",,block%.handle|
00001280  5f 75 70 64 61 74 65 25  0d 06 5e 1a c8 99 22 57  |_update%..^..."W|
00001290  69 6d 70 5f 43 6c 6f 73  65 54 65 6d 70 6c 61 74  |imp_CloseTemplat|
000012a0  65 22 0d 06 68 05 e1 0d  06 72 05 3a 0d 06 7c ac  |e"..h....r.:..|.|
000012b0  dd f2 69 6e 69 74 5f 6d  65 6e 75 73 3a de 6d 65  |..init_menus:.me|
000012c0  6e 75 5f 62 61 72 25 32  34 34 2c 6d 65 6e 75 5f  |nu_bar%244,menu_|
000012d0  77 69 6e 25 31 39 36 2c  6d 65 6e 75 5f 73 74 79  |win%196,menu_sty|
000012e0  6c 65 25 31 39 36 2c 6d  65 6e 75 5f 67 72 6f 75  |le%196,menu_grou|
000012f0  70 73 25 37 36 2c 6d 65  6e 75 5f 67 72 6f 75 70  |ps%76,menu_group|
00001300  25 31 37 32 2c 6d 65 6e  75 5f 6d 61 70 25 31 39  |%172,menu_map%19|
00001310  36 2c 6d 65 6e 75 5f 62  65 73 74 25 37 36 2c 6d  |6,menu_best%76,m|
00001320  65 6e 75 5f 66 6f 6e 74  25 31 30 30 2c 6d 65 6e  |enu_font%100,men|
00001330  75 5f 66 69 6c 65 25 31  30 30 2c 6d 65 6e 75 5f  |u_file%100,menu_|
00001340  70 61 6c 65 74 74 65 25  34 31 32 2c 6d 65 6e 75  |palette%412,menu|
00001350  5f 74 61 73 6b 25 34 38  0d 06 86 1a 24 6d 65 6e  |_task%48....$men|
00001360  75 5f 62 61 72 25 3d 22  47 72 61 70 68 50 6c 75  |u_bar%="GraphPlu|
00001370  73 22 0d 06 90 6f 6d 65  6e 75 5f 62 61 72 25 3f  |s"...omenu_bar%?|
00001380  31 32 3d 37 3a 6d 65 6e  75 5f 62 61 72 25 3f 31  |12=7:menu_bar%?1|
00001390  33 3d 32 3a 6d 65 6e 75  5f 62 61 72 25 3f 31 34  |3=2:menu_bar%?14|
000013a0  3d 37 3a 6d 65 6e 75 5f  62 61 72 25 3f 31 35 3d  |=7:menu_bar%?15=|
000013b0  30 3a 6d 65 6e 75 5f 62  61 72 25 21 31 36 3d 31  |0:menu_bar%!16=1|
000013c0  32 34 3a 6d 65 6e 75 5f  62 61 72 25 21 32 30 3d  |24:menu_bar%!20=|
000013d0  34 34 3a 6d 65 6e 75 5f  62 61 72 25 21 32 34 3d  |44:menu_bar%!24=|
000013e0  30 0d 06 9a 3d f2 6d 65  6e 75 5f 61 64 64 69 74  |0...=.menu_addit|
000013f0  65 6d 28 30 2c 6d 65 6e  75 5f 62 61 72 25 2c 30  |em(0,menu_bar%,0|
00001400  2c 68 61 6e 64 6c 65 5f  69 6e 66 6f 25 2c 26 37  |,handle_info%,&7|
00001410  30 30 39 30 32 31 2c 22  49 6e 66 6f 22 29 0d 06  |009021,"Info")..|
00001420  a4 3d f2 6d 65 6e 75 5f  61 64 64 69 74 65 6d 28  |.=.menu_additem(|
00001430  31 2c 6d 65 6e 75 5f 62  61 72 25 2c 30 2c 6d 65  |1,menu_bar%,0,me|
00001440  6e 75 5f 73 74 79 6c 65  25 2c 26 37 30 30 39 30  |nu_style%,&70090|
00001450  32 31 2c 22 53 74 79 6c  65 22 29 0d 06 ae 3f f2  |21,"Style")...?.|
00001460  6d 65 6e 75 5f 61 64 64  69 74 65 6d 28 32 2c 6d  |menu_additem(2,m|
00001470  65 6e 75 5f 62 61 72 25  2c 30 2c 6d 65 6e 75 5f  |enu_bar%,0,menu_|
00001480  67 72 6f 75 70 73 25 2c  26 37 30 30 39 30 32 31  |groups%,&7009021|
00001490  2c 22 47 72 6f 75 70 73  22 29 0d 06 b8 3b f2 6d  |,"Groups")...;.m|
000014a0  65 6e 75 5f 61 64 64 69  74 65 6d 28 33 2c 6d 65  |enu_additem(3,me|
000014b0  6e 75 5f 62 61 72 25 2c  32 2c 6d 65 6e 75 5f 66  |nu_bar%,2,menu_f|
000014c0  69 6c 65 25 2c 26 37 30  30 39 30 32 31 2c 22 46  |ile%,&7009021,"F|
000014d0  69 6c 65 22 29 0d 06 c2  33 f2 6d 65 6e 75 5f 61  |ile")...3.menu_a|
000014e0  64 64 69 74 65 6d 28 34  2c 6d 65 6e 75 5f 62 61  |dditem(4,menu_ba|
000014f0  72 25 2c 31 2c 2d 31 2c  26 37 30 30 39 30 32 31  |r%,1,-1,&7009021|
00001500  2c 22 4c 69 6e 65 22 29  0d 06 cc 32 f2 6d 65 6e  |,"Line")...2.men|
00001510  75 5f 61 64 64 69 74 65  6d 28 35 2c 6d 65 6e 75  |u_additem(5,menu|
00001520  5f 62 61 72 25 2c 30 2c  2d 31 2c 26 37 30 30 39  |_bar%,0,-1,&7009|
00001530  30 32 31 2c 22 42 61 72  22 29 0d 06 d6 32 f2 6d  |021,"Bar")...2.m|
00001540  65 6e 75 5f 61 64 64 69  74 65 6d 28 36 2c 6d 65  |enu_additem(6,me|
00001550  6e 75 5f 62 61 72 25 2c  30 2c 2d 31 2c 26 37 30  |nu_bar%,0,-1,&70|
00001560  30 39 30 32 31 2c 22 50  69 65 22 29 0d 06 e0 34  |09021,"Pie")...4|
00001570  f2 6d 65 6e 75 5f 61 64  64 69 74 65 6d 28 37 2c  |.menu_additem(7,|
00001580  6d 65 6e 75 5f 62 61 72  25 2c 32 2c 2d 31 2c 26  |menu_bar%,2,-1,&|
00001590  37 30 30 39 30 32 31 2c  22 54 61 62 6c 65 22 29  |7009021,"Table")|
000015a0  0d 06 ea 35 f2 6d 65 6e  75 5f 61 64 64 69 74 65  |...5.menu_addite|
000015b0  6d 28 38 2c 6d 65 6e 75  5f 62 61 72 25 2c 31 32  |m(8,menu_bar%,12|
000015c0  38 2c 2d 31 2c 26 37 30  30 39 30 32 31 2c 22 51  |8,-1,&7009021,"Q|
000015d0  75 69 74 22 29 0d 06 f4  17 24 6d 65 6e 75 5f 77  |uit")....$menu_w|
000015e0  69 6e 25 3d 22 46 6f 72  6d 61 74 22 0d 06 fe 6f  |in%="Format"...o|
000015f0  6d 65 6e 75 5f 77 69 6e  25 3f 31 32 3d 37 3a 6d  |menu_win%?12=7:m|
00001600  65 6e 75 5f 77 69 6e 25  3f 31 33 3d 32 3a 6d 65  |enu_win%?13=2:me|
00001610  6e 75 5f 77 69 6e 25 3f  31 34 3d 37 3a 6d 65 6e  |nu_win%?14=7:men|
00001620  75 5f 77 69 6e 25 3f 31  35 3d 30 3a 6d 65 6e 75  |u_win%?15=0:menu|
00001630  5f 77 69 6e 25 21 31 36  3d 31 37 30 3a 6d 65 6e  |_win%!16=170:men|
00001640  75 5f 77 69 6e 25 21 32  30 3d 34 34 3a 6d 65 6e  |u_win%!20=44:men|
00001650  75 5f 77 69 6e 25 21 32  34 3d 30 0d 07 08 3d f2  |u_win%!24=0...=.|
00001660  6d 65 6e 75 5f 61 64 64  69 74 65 6d 28 30 2c 6d  |menu_additem(0,m|
00001670  65 6e 75 5f 77 69 6e 25  2c 30 2c 6d 65 6e 75 5f  |enu_win%,0,menu_|
00001680  73 74 79 6c 65 25 2c 26  37 30 30 39 30 32 31 2c  |style%,&7009021,|
00001690  22 53 74 79 6c 65 22 29  0d 07 12 3f f2 6d 65 6e  |"Style")...?.men|
000016a0  75 5f 61 64 64 69 74 65  6d 28 31 2c 6d 65 6e 75  |u_additem(1,menu|
000016b0  5f 77 69 6e 25 2c 30 2c  6d 65 6e 75 5f 67 72 6f  |_win%,0,menu_gro|
000016c0  75 70 73 25 2c 26 37 30  30 39 30 32 31 2c 22 47  |ups%,&7009021,"G|
000016d0  72 6f 75 70 73 22 29 0d  07 1c 3b f2 6d 65 6e 75  |roups")...;.menu|
000016e0  5f 61 64 64 69 74 65 6d  28 32 2c 6d 65 6e 75 5f  |_additem(2,menu_|
000016f0  77 69 6e 25 2c 32 2c 6d  65 6e 75 5f 66 69 6c 65  |win%,2,menu_file|
00001700  25 2c 26 37 30 30 39 30  32 31 2c 22 46 69 6c 65  |%,&7009021,"File|
00001710  22 29 0d 07 26 33 f2 6d  65 6e 75 5f 61 64 64 69  |")..&3.menu_addi|
00001720  74 65 6d 28 33 2c 6d 65  6e 75 5f 77 69 6e 25 2c  |tem(3,menu_win%,|
00001730  31 2c 2d 31 2c 26 37 30  30 39 30 32 31 2c 22 4c  |1,-1,&7009021,"L|
00001740  69 6e 65 22 29 0d 07 30  32 f2 6d 65 6e 75 5f 61  |ine")..02.menu_a|
00001750  64 64 69 74 65 6d 28 34  2c 6d 65 6e 75 5f 77 69  |dditem(4,menu_wi|
00001760  6e 25 2c 30 2c 2d 31 2c  26 37 30 30 39 30 32 31  |n%,0,-1,&7009021|
00001770  2c 22 42 61 72 22 29 0d  07 3a 32 f2 6d 65 6e 75  |,"Bar")..:2.menu|
00001780  5f 61 64 64 69 74 65 6d  28 35 2c 6d 65 6e 75 5f  |_additem(5,menu_|
00001790  77 69 6e 25 2c 30 2c 2d  31 2c 26 37 30 30 39 30  |win%,0,-1,&70090|
000017a0  32 31 2c 22 50 69 65 22  29 0d 07 44 36 f2 6d 65  |21,"Pie")..D6.me|
000017b0  6e 75 5f 61 64 64 69 74  65 6d 28 36 2c 6d 65 6e  |nu_additem(6,men|
000017c0  75 5f 77 69 6e 25 2c 31  32 38 2c 2d 31 2c 26 37  |u_win%,128,-1,&7|
000017d0  30 30 39 30 32 31 2c 22  54 61 62 6c 65 22 29 0d  |009021,"Table").|
000017e0  07 4e 18 24 6d 65 6e 75  5f 73 74 79 6c 65 25 3d  |.N.$menu_style%=|
000017f0  22 53 74 79 6c 65 22 0d  07 58 7d 6d 65 6e 75 5f  |"Style"..X}menu_|
00001800  73 74 79 6c 65 25 3f 31  32 3d 37 3a 6d 65 6e 75  |style%?12=7:menu|
00001810  5f 73 74 79 6c 65 25 3f  31 33 3d 32 3a 6d 65 6e  |_style%?13=2:men|
00001820  75 5f 73 74 79 6c 65 25  3f 31 34 3d 37 3a 6d 65  |u_style%?14=7:me|
00001830  6e 75 5f 73 74 79 6c 65  25 3f 31 35 3d 30 3a 6d  |nu_style%?15=0:m|
00001840  65 6e 75 5f 73 74 79 6c  65 25 21 31 36 3d 31 37  |enu_style%!16=17|
00001850  30 3a 6d 65 6e 75 5f 73  74 79 6c 65 25 21 32 30  |0:menu_style%!20|
00001860  3d 34 34 3a 6d 65 6e 75  5f 73 74 79 6c 65 25 21  |=44:menu_style%!|
00001870  32 34 3d 30 0d 07 62 34  f2 6d 65 6e 75 5f 61 64  |24=0..b4.menu_ad|
00001880  64 69 74 65 6d 28 30 2c  6d 65 6e 75 5f 73 74 79  |ditem(0,menu_sty|
00001890  6c 65 25 2c 30 2c 2d 31  2c 26 37 30 30 39 30 32  |le%,0,-1,&700902|
000018a0  31 2c 22 4b 65 79 22 29  0d 07 6c 45 f2 6d 65 6e  |1,"Key")..lE.men|
000018b0  75 5f 61 64 64 69 74 65  6d 28 31 2c 6d 65 6e 75  |u_additem(1,menu|
000018c0  5f 73 74 79 6c 65 25 2c  39 2c 68 61 6e 64 6c 65  |_style%,9,handle|
000018d0  5f 62 61 63 6b 25 2c 26  37 30 30 39 30 32 31 2c  |_back%,&7009021,|
000018e0  22 42 61 63 6b 67 72 6f  75 6e 64 22 29 0d 07 76  |"Background")..v|
000018f0  3e f2 6d 65 6e 75 5f 61  64 64 69 74 65 6d 28 32  |>.menu_additem(2|
00001900  2c 6d 65 6e 75 5f 73 74  79 6c 65 25 2c 30 2c 6d  |,menu_style%,0,m|
00001910  65 6e 75 5f 66 6f 6e 74  25 2c 26 37 30 30 39 30  |enu_font%,&70090|
00001920  32 31 2c 22 46 6f 6e 74  73 22 29 0d 07 80 41 f2  |21,"Fonts")...A.|
00001930  6d 65 6e 75 5f 61 64 64  69 74 65 6d 28 33 2c 6d  |menu_additem(3,m|
00001940  65 6e 75 5f 73 74 79 6c  65 25 2c 30 2c 6d 65 6e  |enu_style%,0,men|
00001950  75 5f 62 65 73 74 25 2c  26 37 30 30 39 30 32 31  |u_best%,&7009021|
00001960  2c 22 42 65 73 74 20 66  69 74 22 29 0d 07 8a 43  |,"Best fit")...C|
00001970  f2 6d 65 6e 75 5f 61 64  64 69 74 65 6d 28 34 2c  |.menu_additem(4,|
00001980  6d 65 6e 75 5f 73 74 79  6c 65 25 2c 30 2c 6d 65  |menu_style%,0,me|
00001990  6e 75 5f 70 61 6c 65 74  74 65 25 2c 26 37 30 30  |nu_palette%,&700|
000019a0  39 30 32 31 2c 22 50 61  6c 65 74 74 65 22 29 0d  |9021,"Palette").|
000019b0  07 94 3a f2 6d 65 6e 75  5f 61 64 64 69 74 65 6d  |..:.menu_additem|
000019c0  28 35 2c 6d 65 6e 75 5f  73 74 79 6c 65 25 2c 30  |(5,menu_style%,0|
000019d0  2c 2d 31 2c 26 37 30 30  39 30 32 31 2c 22 33 44  |,-1,&7009021,"3D|
000019e0  20 67 72 61 70 68 73 22  29 0d 07 9e 3a f2 6d 65  | graphs")...:.me|
000019f0  6e 75 5f 61 64 64 69 74  65 6d 28 36 2c 6d 65 6e  |nu_additem(6,men|
00001a00  75 5f 73 74 79 6c 65 25  2c 31 32 39 2c 2d 31 2c  |u_style%,129,-1,|
00001a10  26 37 30 30 39 30 32 31  2c 22 4f 75 74 6c 69 6e  |&7009021,"Outlin|
00001a20  65 22 29 0d 07 a8 17 24  6d 65 6e 75 5f 66 6f 6e  |e")....$menu_fon|
00001a30  74 25 3d 22 46 6f 6e 74  73 22 0d 07 b2 76 6d 65  |t%="Fonts"...vme|
00001a40  6e 75 5f 66 6f 6e 74 25  3f 31 32 3d 37 3a 6d 65  |nu_font%?12=7:me|
00001a50  6e 75 5f 66 6f 6e 74 25  3f 31 33 3d 32 3a 6d 65  |nu_font%?13=2:me|
00001a60  6e 75 5f 66 6f 6e 74 25  3f 31 34 3d 37 3a 6d 65  |nu_font%?14=7:me|
00001a70  6e 75 5f 66 6f 6e 74 25  3f 31 35 3d 30 3a 6d 65  |nu_font%?15=0:me|
00001a80  6e 75 5f 66 6f 6e 74 25  21 31 36 3d 31 30 38 3a  |nu_font%!16=108:|
00001a90  6d 65 6e 75 5f 66 6f 6e  74 25 21 32 30 3d 34 34  |menu_font%!20=44|
00001aa0  3a 6d 65 6e 75 5f 66 6f  6e 74 25 21 32 34 3d 30  |:menu_font%!24=0|
00001ab0  0d 07 bc 3f f2 6d 65 6e  75 5f 61 64 64 69 74 65  |...?.menu_addite|
00001ac0  6d 28 30 2c 6d 65 6e 75  5f 66 6f 6e 74 25 2c 38  |m(0,menu_font%,8|
00001ad0  2c 68 61 6e 64 6c 65 5f  66 6f 6e 74 25 2c 26 37  |,handle_font%,&7|
00001ae0  30 30 39 30 32 31 2c 22  54 69 74 6c 65 22 29 0d  |009021,"Title").|
00001af0  07 c6 3e f2 6d 65 6e 75  5f 61 64 64 69 74 65 6d  |..>.menu_additem|
00001b00  28 31 2c 6d 65 6e 75 5f  66 6f 6e 74 25 2c 38 2c  |(1,menu_font%,8,|
00001b10  68 61 6e 64 6c 65 5f 66  6f 6e 74 25 2c 26 37 30  |handle_font%,&70|
00001b20  30 39 30 32 31 2c 22 41  78 69 73 22 29 0d 07 d0  |09021,"Axis")...|
00001b30  3f f2 6d 65 6e 75 5f 61  64 64 69 74 65 6d 28 32  |?.menu_additem(2|
00001b40  2c 6d 65 6e 75 5f 66 6f  6e 74 25 2c 31 33 36 2c  |,menu_font%,136,|
00001b50  68 61 6e 64 6c 65 5f 66  6f 6e 74 25 2c 26 37 30  |handle_font%,&70|
00001b60  30 39 30 32 31 2c 22 4b  65 79 22 29 0d 07 da 1a  |09021,"Key")....|
00001b70  24 6d 65 6e 75 5f 62 65  73 74 25 3d 22 42 65 73  |$menu_best%="Bes|
00001b80  74 20 66 69 74 22 0d 07  e4 76 6d 65 6e 75 5f 62  |t fit"...vmenu_b|
00001b90  65 73 74 25 3f 31 32 3d  37 3a 6d 65 6e 75 5f 62  |est%?12=7:menu_b|
00001ba0  65 73 74 25 3f 31 33 3d  32 3a 6d 65 6e 75 5f 62  |est%?13=2:menu_b|
00001bb0  65 73 74 25 3f 31 34 3d  37 3a 6d 65 6e 75 5f 62  |est%?14=7:menu_b|
00001bc0  65 73 74 25 3f 31 35 3d  30 3a 6d 65 6e 75 5f 62  |est%?15=0:menu_b|
00001bd0  65 73 74 25 21 31 36 3d  31 30 38 3a 6d 65 6e 75  |est%!16=108:menu|
00001be0  5f 62 65 73 74 25 21 32  30 3d 34 34 3a 6d 65 6e  |_best%!20=44:men|
00001bf0  75 5f 62 65 73 74 25 21  32 34 3d 30 0d 07 ee 36  |u_best%!24=0...6|
00001c00  f2 6d 65 6e 75 5f 61 64  64 69 74 65 6d 28 30 2c  |.menu_additem(0,|
00001c10  6d 65 6e 75 5f 62 65 73  74 25 2c 30 2c 2d 31 2c  |menu_best%,0,-1,|
00001c20  26 37 30 30 39 30 32 31  2c 22 58 20 6f 6e 20 59  |&7009021,"X on Y|
00001c30  22 29 0d 07 f8 38 f2 6d  65 6e 75 5f 61 64 64 69  |")...8.menu_addi|
00001c40  74 65 6d 28 31 2c 6d 65  6e 75 5f 62 65 73 74 25  |tem(1,menu_best%|
00001c50  2c 31 32 39 2c 2d 31 2c  26 37 30 30 39 30 32 31  |,129,-1,&7009021|
00001c60  2c 22 59 20 6f 6e 20 58  22 29 0d 08 02 16 24 6d  |,"Y on X")....$m|
00001c70  65 6e 75 5f 66 69 6c 65  25 3d 22 46 69 6c 65 22  |enu_file%="File"|
00001c80  0d 08 0c 76 6d 65 6e 75  5f 66 69 6c 65 25 3f 31  |...vmenu_file%?1|
00001c90  32 3d 37 3a 6d 65 6e 75  5f 66 69 6c 65 25 3f 31  |2=7:menu_file%?1|
00001ca0  33 3d 32 3a 6d 65 6e 75  5f 66 69 6c 65 25 3f 31  |3=2:menu_file%?1|
00001cb0  34 3d 37 3a 6d 65 6e 75  5f 66 69 6c 65 25 3f 31  |4=7:menu_file%?1|
00001cc0  35 3d 30 3a 6d 65 6e 75  5f 66 69 6c 65 25 21 31  |5=0:menu_file%!1|
00001cd0  36 3d 31 34 30 3a 6d 65  6e 75 5f 66 69 6c 65 25  |6=140:menu_file%|
00001ce0  21 32 30 3d 34 34 3a 6d  65 6e 75 5f 66 69 6c 65  |!20=44:menu_file|
00001cf0  25 21 32 34 3d 30 0d 08  16 3e f2 6d 65 6e 75 5f  |%!24=0...>.menu_|
00001d00  61 64 64 69 74 65 6d 28  30 2c 6d 65 6e 75 5f 66  |additem(0,menu_f|
00001d10  69 6c 65 25 2c 38 2c 68  61 6e 64 6c 65 5f 73 61  |ile%,8,handle_sa|
00001d20  76 65 25 2c 26 37 30 30  39 30 32 31 2c 22 53 61  |ve%,&7009021,"Sa|
00001d30  76 65 22 29 0d 08 20 46  f2 6d 65 6e 75 5f 61 64  |ve").. F.menu_ad|
00001d40  64 69 74 65 6d 28 31 2c  6d 65 6e 75 5f 66 69 6c  |ditem(1,menu_fil|
00001d50  65 25 2c 38 2c 68 61 6e  64 6c 65 5f 64 61 74 61  |e%,8,handle_data|
00001d60  70 61 74 68 25 2c 26 37  30 30 39 30 32 31 2c 22  |path%,&7009021,"|
00001d70  44 61 74 61 70 61 74 68  22 29 0d 08 2a 39 f2 6d  |Datapath")..*9.m|
00001d80  65 6e 75 5f 61 64 64 69  74 65 6d 28 32 2c 6d 65  |enu_additem(2,me|
00001d90  6e 75 5f 66 69 6c 65 25  2c 31 32 38 2c 2d 31 2c  |nu_file%,128,-1,|
00001da0  26 37 30 30 39 30 32 31  2c 22 44 65 66 61 75 6c  |&7009021,"Defaul|
00001db0  74 22 29 0d 08 34 1a 24  6d 65 6e 75 5f 67 72 6f  |t")..4.$menu_gro|
00001dc0  75 70 73 25 3d 22 47 72  6f 75 70 73 22 0d 08 3e  |ups%="Groups"..>|
00001dd0  84 6d 65 6e 75 5f 67 72  6f 75 70 73 25 3f 31 32  |.menu_groups%?12|
00001de0  3d 37 3a 6d 65 6e 75 5f  67 72 6f 75 70 73 25 3f  |=7:menu_groups%?|
00001df0  31 33 3d 32 3a 6d 65 6e  75 5f 67 72 6f 75 70 73  |13=2:menu_groups|
00001e00  25 3f 31 34 3d 37 3a 6d  65 6e 75 5f 67 72 6f 75  |%?14=7:menu_grou|
00001e10  70 73 25 3f 31 35 3d 30  3a 6d 65 6e 75 5f 67 72  |ps%?15=0:menu_gr|
00001e20  6f 75 70 73 25 21 31 36  3d 31 37 30 3a 6d 65 6e  |oups%!16=170:men|
00001e30  75 5f 67 72 6f 75 70 73  25 21 32 30 3d 34 34 3a  |u_groups%!20=44:|
00001e40  6d 65 6e 75 5f 67 72 6f  75 70 73 25 21 32 34 3d  |menu_groups%!24=|
00001e50  30 0d 08 48 3c f2 6d 65  6e 75 5f 61 64 64 69 74  |0..H<.menu_addit|
00001e60  65 6d 28 30 2c 6d 65 6e  75 5f 67 72 6f 75 70 73  |em(0,menu_groups|
00001e70  25 2c 30 2c 6d 65 6e 75  5f 6d 61 70 25 2c 26 37  |%,0,menu_map%,&7|
00001e80  30 30 39 30 32 31 2c 22  4d 61 70 22 29 0d 08 52  |009021,"Map")..R|
00001e90  42 f2 6d 65 6e 75 5f 61  64 64 69 74 65 6d 28 31  |B.menu_additem(1|
00001ea0  2c 6d 65 6e 75 5f 67 72  6f 75 70 73 25 2c 31 32  |,menu_groups%,12|
00001eb0  38 2c 6d 65 6e 75 5f 67  72 6f 75 70 25 2c 26 37  |8,menu_group%,&7|
00001ec0  30 30 39 30 32 31 2c 22  53 74 79 6c 65 22 29 0d  |009021,"Style").|
00001ed0  08 5c 1e 24 6d 65 6e 75  5f 67 72 6f 75 70 25 3d  |.\.$menu_group%=|
00001ee0  22 47 72 6f 75 70 20 73  74 79 6c 65 22 0d 08 66  |"Group style"..f|
00001ef0  7d 6d 65 6e 75 5f 67 72  6f 75 70 25 3f 31 32 3d  |}menu_group%?12=|
00001f00  37 3a 6d 65 6e 75 5f 67  72 6f 75 70 25 3f 31 33  |7:menu_group%?13|
00001f10  3d 32 3a 6d 65 6e 75 5f  67 72 6f 75 70 25 3f 31  |=2:menu_group%?1|
00001f20  34 3d 37 3a 6d 65 6e 75  5f 67 72 6f 75 70 25 3f  |4=7:menu_group%?|
00001f30  31 35 3d 30 3a 6d 65 6e  75 5f 67 72 6f 75 70 25  |15=0:menu_group%|
00001f40  21 31 36 3d 31 34 30 3a  6d 65 6e 75 5f 67 72 6f  |!16=140:menu_gro|
00001f50  75 70 25 21 32 30 3d 34  34 3a 6d 65 6e 75 5f 67  |up%!20=44:menu_g|
00001f60  72 6f 75 70 25 21 32 34  3d 30 0d 08 70 43 f2 6d  |roup%!24=0..pC.m|
00001f70  65 6e 75 5f 61 64 64 69  74 65 6d 28 30 2c 6d 65  |enu_additem(0,me|
00001f80  6e 75 5f 67 72 6f 75 70  25 2c 38 2c 68 61 6e 64  |nu_group%,8,hand|
00001f90  6c 65 5f 67 72 6f 75 70  25 2c 26 37 30 30 39 30  |le_group%,&70090|
00001fa0  32 31 2c 22 47 72 6f 75  70 20 31 22 29 0d 08 7a  |21,"Group 1")..z|
00001fb0  43 f2 6d 65 6e 75 5f 61  64 64 69 74 65 6d 28 31  |C.menu_additem(1|
00001fc0  2c 6d 65 6e 75 5f 67 72  6f 75 70 25 2c 38 2c 68  |,menu_group%,8,h|
00001fd0  61 6e 64 6c 65 5f 67 72  6f 75 70 25 2c 26 37 30  |andle_group%,&70|
00001fe0  30 39 30 32 31 2c 22 47  72 6f 75 70 20 32 22 29  |09021,"Group 2")|
00001ff0  0d 08 84 43 f2 6d 65 6e  75 5f 61 64 64 69 74 65  |...C.menu_addite|
00002000  6d 28 32 2c 6d 65 6e 75  5f 67 72 6f 75 70 25 2c  |m(2,menu_group%,|
00002010  38 2c 68 61 6e 64 6c 65  5f 67 72 6f 75 70 25 2c  |8,handle_group%,|
00002020  26 37 30 30 39 30 32 31  2c 22 47 72 6f 75 70 20  |&7009021,"Group |
00002030  33 22 29 0d 08 8e 43 f2  6d 65 6e 75 5f 61 64 64  |3")...C.menu_add|
00002040  69 74 65 6d 28 33 2c 6d  65 6e 75 5f 67 72 6f 75  |item(3,menu_grou|
00002050  70 25 2c 38 2c 68 61 6e  64 6c 65 5f 67 72 6f 75  |p%,8,handle_grou|
00002060  70 25 2c 26 37 30 30 39  30 32 31 2c 22 47 72 6f  |p%,&7009021,"Gro|
00002070  75 70 20 34 22 29 0d 08  98 43 f2 6d 65 6e 75 5f  |up 4")...C.menu_|
00002080  61 64 64 69 74 65 6d 28  34 2c 6d 65 6e 75 5f 67  |additem(4,menu_g|
00002090  72 6f 75 70 25 2c 38 2c  68 61 6e 64 6c 65 5f 67  |roup%,8,handle_g|
000020a0  72 6f 75 70 25 2c 26 37  30 30 39 30 32 31 2c 22  |roup%,&7009021,"|
000020b0  47 72 6f 75 70 20 35 22  29 0d 08 a2 45 f2 6d 65  |Group 5")...E.me|
000020c0  6e 75 5f 61 64 64 69 74  65 6d 28 35 2c 6d 65 6e  |nu_additem(5,men|
000020d0  75 5f 67 72 6f 75 70 25  2c 31 33 36 2c 68 61 6e  |u_group%,136,han|
000020e0  64 6c 65 5f 67 72 6f 75  70 25 2c 26 37 30 30 39  |dle_group%,&7009|
000020f0  30 32 31 2c 22 47 72 6f  75 70 20 36 22 29 0d 08  |021,"Group 6")..|
00002100  ac 1b 24 6d 65 6e 75 5f  6d 61 70 25 3d 22 4d 61  |..$menu_map%="Ma|
00002110  70 20 67 72 6f 75 70 73  22 0d 08 b6 6f 6d 65 6e  |p groups"...omen|
00002120  75 5f 6d 61 70 25 3f 31  32 3d 37 3a 6d 65 6e 75  |u_map%?12=7:menu|
00002130  5f 6d 61 70 25 3f 31 33  3d 32 3a 6d 65 6e 75 5f  |_map%?13=2:menu_|
00002140  6d 61 70 25 3f 31 34 3d  37 3a 6d 65 6e 75 5f 6d  |map%?14=7:menu_m|
00002150  61 70 25 3f 31 35 3d 30  3a 6d 65 6e 75 5f 6d 61  |ap%?15=0:menu_ma|
00002160  70 25 21 31 36 3d 31 34  30 3a 6d 65 6e 75 5f 6d  |p%!16=140:menu_m|
00002170  61 70 25 21 32 30 3d 34  34 3a 6d 65 6e 75 5f 6d  |ap%!20=44:menu_m|
00002180  61 70 25 21 32 34 3d 30  0d 08 c0 3f f2 6d 65 6e  |ap%!24=0...?.men|
00002190  75 5f 61 64 64 69 74 65  6d 28 30 2c 6d 65 6e 75  |u_additem(0,menu|
000021a0  5f 6d 61 70 25 2c 38 2c  68 61 6e 64 6c 65 5f 6d  |_map%,8,handle_m|
000021b0  61 70 25 2c 26 37 30 30  39 30 32 31 2c 22 47 72  |ap%,&7009021,"Gr|
000021c0  6f 75 70 20 31 22 29 0d  08 ca 3f f2 6d 65 6e 75  |oup 1")...?.menu|
000021d0  5f 61 64 64 69 74 65 6d  28 31 2c 6d 65 6e 75 5f  |_additem(1,menu_|
000021e0  6d 61 70 25 2c 38 2c 68  61 6e 64 6c 65 5f 6d 61  |map%,8,handle_ma|
000021f0  70 25 2c 26 37 30 30 39  30 32 31 2c 22 47 72 6f  |p%,&7009021,"Gro|
00002200  75 70 20 32 22 29 0d 08  d4 3f f2 6d 65 6e 75 5f  |up 2")...?.menu_|
00002210  61 64 64 69 74 65 6d 28  32 2c 6d 65 6e 75 5f 6d  |additem(2,menu_m|
00002220  61 70 25 2c 38 2c 68 61  6e 64 6c 65 5f 6d 61 70  |ap%,8,handle_map|
00002230  25 2c 26 37 30 30 39 30  32 31 2c 22 47 72 6f 75  |%,&7009021,"Grou|
00002240  70 20 33 22 29 0d 08 de  3f f2 6d 65 6e 75 5f 61  |p 3")...?.menu_a|
00002250  64 64 69 74 65 6d 28 33  2c 6d 65 6e 75 5f 6d 61  |dditem(3,menu_ma|
00002260  70 25 2c 38 2c 68 61 6e  64 6c 65 5f 6d 61 70 25  |p%,8,handle_map%|
00002270  2c 26 37 30 30 39 30 32  31 2c 22 47 72 6f 75 70  |,&7009021,"Group|
00002280  20 34 22 29 0d 08 e8 3f  f2 6d 65 6e 75 5f 61 64  | 4")...?.menu_ad|
00002290  64 69 74 65 6d 28 34 2c  6d 65 6e 75 5f 6d 61 70  |ditem(4,menu_map|
000022a0  25 2c 38 2c 68 61 6e 64  6c 65 5f 6d 61 70 25 2c  |%,8,handle_map%,|
000022b0  26 37 30 30 39 30 32 31  2c 22 47 72 6f 75 70 20  |&7009021,"Group |
000022c0  35 22 29 0d 08 f2 3f f2  6d 65 6e 75 5f 61 64 64  |5")...?.menu_add|
000022d0  69 74 65 6d 28 35 2c 6d  65 6e 75 5f 6d 61 70 25  |item(5,menu_map%|
000022e0  2c 38 2c 68 61 6e 64 6c  65 5f 6d 61 70 25 2c 26  |,8,handle_map%,&|
000022f0  37 30 30 39 30 32 31 2c  22 47 72 6f 75 70 20 36  |7009021,"Group 6|
00002300  22 29 0d 08 fc 42 f2 6d  65 6e 75 5f 61 64 64 69  |")...B.menu_addi|
00002310  74 65 6d 28 36 2c 6d 65  6e 75 5f 6d 61 70 25 2c  |tem(6,menu_map%,|
00002320  31 33 36 2c 68 61 6e 64  6c 65 5f 6c 61 62 65 6c  |136,handle_label|
00002330  25 2c 26 37 30 30 39 30  32 31 2c 22 4c 61 62 65  |%,&7009021,"Labe|
00002340  6c 73 22 29 0d 09 06 1c  24 6d 65 6e 75 5f 70 61  |ls")....$menu_pa|
00002350  6c 65 74 74 65 25 3d 22  50 61 6c 65 74 74 65 22  |lette%="Palette"|
00002360  0d 09 10 8b 6d 65 6e 75  5f 70 61 6c 65 74 74 65  |....menu_palette|
00002370  25 3f 31 32 3d 37 3a 6d  65 6e 75 5f 70 61 6c 65  |%?12=7:menu_pale|
00002380  74 74 65 25 3f 31 33 3d  32 3a 6d 65 6e 75 5f 70  |tte%?13=2:menu_p|
00002390  61 6c 65 74 74 65 25 3f  31 34 3d 37 3a 6d 65 6e  |alette%?14=7:men|
000023a0  75 5f 70 61 6c 65 74 74  65 25 3f 31 35 3d 30 3a  |u_palette%?15=0:|
000023b0  6d 65 6e 75 5f 70 61 6c  65 74 74 65 25 21 31 36  |menu_palette%!16|
000023c0  3d 31 30 38 3a 6d 65 6e  75 5f 70 61 6c 65 74 74  |=108:menu_palett|
000023d0  65 25 21 32 30 3d 34 34  3a 6d 65 6e 75 5f 70 61  |e%!20=44:menu_pa|
000023e0  6c 65 74 74 65 25 21 32  34 3d 30 0d 09 1a 42 f2  |lette%!24=0...B.|
000023f0  6d 65 6e 75 5f 61 64 64  69 74 65 6d 28 30 2c 6d  |menu_additem(0,m|
00002400  65 6e 75 5f 70 61 6c 65  74 74 65 25 2c 38 2c 68  |enu_palette%,8,h|
00002410  61 6e 64 6c 65 5f 62 61  63 6b 25 2c 26 37 30 30  |andle_back%,&700|
00002420  39 30 32 31 2c 22 50 69  65 20 31 22 29 0d 09 24  |9021,"Pie 1")..$|
00002430  42 f2 6d 65 6e 75 5f 61  64 64 69 74 65 6d 28 31  |B.menu_additem(1|
00002440  2c 6d 65 6e 75 5f 70 61  6c 65 74 74 65 25 2c 38  |,menu_palette%,8|
00002450  2c 68 61 6e 64 6c 65 5f  62 61 63 6b 25 2c 26 37  |,handle_back%,&7|
00002460  30 30 39 30 32 31 2c 22  50 69 65 20 32 22 29 0d  |009021,"Pie 2").|
00002470  09 2e 42 f2 6d 65 6e 75  5f 61 64 64 69 74 65 6d  |..B.menu_additem|
00002480  28 32 2c 6d 65 6e 75 5f  70 61 6c 65 74 74 65 25  |(2,menu_palette%|
00002490  2c 38 2c 68 61 6e 64 6c  65 5f 62 61 63 6b 25 2c  |,8,handle_back%,|
000024a0  26 37 30 30 39 30 32 31  2c 22 50 69 65 20 33 22  |&7009021,"Pie 3"|
000024b0  29 0d 09 38 42 f2 6d 65  6e 75 5f 61 64 64 69 74  |)..8B.menu_addit|
000024c0  65 6d 28 33 2c 6d 65 6e  75 5f 70 61 6c 65 74 74  |em(3,menu_palett|
000024d0  65 25 2c 38 2c 68 61 6e  64 6c 65 5f 62 61 63 6b  |e%,8,handle_back|
000024e0  25 2c 26 37 30 30 39 30  32 31 2c 22 50 69 65 20  |%,&7009021,"Pie |
000024f0  34 22 29 0d 09 42 42 f2  6d 65 6e 75 5f 61 64 64  |4")..BB.menu_add|
00002500  69 74 65 6d 28 34 2c 6d  65 6e 75 5f 70 61 6c 65  |item(4,menu_pale|
00002510  74 74 65 25 2c 38 2c 68  61 6e 64 6c 65 5f 62 61  |tte%,8,handle_ba|
00002520  63 6b 25 2c 26 37 30 30  39 30 32 31 2c 22 50 69  |ck%,&7009021,"Pi|
00002530  65 20 35 22 29 0d 09 4c  42 f2 6d 65 6e 75 5f 61  |e 5")..LB.menu_a|
00002540  64 64 69 74 65 6d 28 35  2c 6d 65 6e 75 5f 70 61  |dditem(5,menu_pa|
00002550  6c 65 74 74 65 25 2c 38  2c 68 61 6e 64 6c 65 5f  |lette%,8,handle_|
00002560  62 61 63 6b 25 2c 26 37  30 30 39 30 32 31 2c 22  |back%,&7009021,"|
00002570  50 69 65 20 36 22 29 0d  09 56 42 f2 6d 65 6e 75  |Pie 6")..VB.menu|
00002580  5f 61 64 64 69 74 65 6d  28 36 2c 6d 65 6e 75 5f  |_additem(6,menu_|
00002590  70 61 6c 65 74 74 65 25  2c 38 2c 68 61 6e 64 6c  |palette%,8,handl|
000025a0  65 5f 62 61 63 6b 25 2c  26 37 30 30 39 30 32 31  |e_back%,&7009021|
000025b0  2c 22 50 69 65 20 37 22  29 0d 09 60 42 f2 6d 65  |,"Pie 7")..`B.me|
000025c0  6e 75 5f 61 64 64 69 74  65 6d 28 37 2c 6d 65 6e  |nu_additem(7,men|
000025d0  75 5f 70 61 6c 65 74 74  65 25 2c 38 2c 68 61 6e  |u_palette%,8,han|
000025e0  64 6c 65 5f 62 61 63 6b  25 2c 26 37 30 30 39 30  |dle_back%,&70090|
000025f0  32 31 2c 22 50 69 65 20  38 22 29 0d 09 6a 42 f2  |21,"Pie 8")..jB.|
00002600  6d 65 6e 75 5f 61 64 64  69 74 65 6d 28 38 2c 6d  |menu_additem(8,m|
00002610  65 6e 75 5f 70 61 6c 65  74 74 65 25 2c 38 2c 68  |enu_palette%,8,h|
00002620  61 6e 64 6c 65 5f 62 61  63 6b 25 2c 26 37 30 30  |andle_back%,&700|
00002630  39 30 32 31 2c 22 50 69  65 20 39 22 29 0d 09 74  |9021,"Pie 9")..t|
00002640  43 f2 6d 65 6e 75 5f 61  64 64 69 74 65 6d 28 39  |C.menu_additem(9|
00002650  2c 6d 65 6e 75 5f 70 61  6c 65 74 74 65 25 2c 38  |,menu_palette%,8|
00002660  2c 68 61 6e 64 6c 65 5f  62 61 63 6b 25 2c 26 37  |,handle_back%,&7|
00002670  30 30 39 30 32 31 2c 22  50 69 65 20 31 30 22 29  |009021,"Pie 10")|
00002680  0d 09 7e 44 f2 6d 65 6e  75 5f 61 64 64 69 74 65  |..~D.menu_addite|
00002690  6d 28 31 30 2c 6d 65 6e  75 5f 70 61 6c 65 74 74  |m(10,menu_palett|
000026a0  65 25 2c 38 2c 68 61 6e  64 6c 65 5f 62 61 63 6b  |e%,8,handle_back|
000026b0  25 2c 26 37 30 30 39 30  32 31 2c 22 50 69 65 20  |%,&7009021,"Pie |
000026c0  31 31 22 29 0d 09 88 44  f2 6d 65 6e 75 5f 61 64  |11")...D.menu_ad|
000026d0  64 69 74 65 6d 28 31 31  2c 6d 65 6e 75 5f 70 61  |ditem(11,menu_pa|
000026e0  6c 65 74 74 65 25 2c 38  2c 68 61 6e 64 6c 65 5f  |lette%,8,handle_|
000026f0  62 61 63 6b 25 2c 26 37  30 30 39 30 32 31 2c 22  |back%,&7009021,"|
00002700  50 69 65 20 31 32 22 29  0d 09 92 44 f2 6d 65 6e  |Pie 12")...D.men|
00002710  75 5f 61 64 64 69 74 65  6d 28 31 32 2c 6d 65 6e  |u_additem(12,men|
00002720  75 5f 70 61 6c 65 74 74  65 25 2c 38 2c 68 61 6e  |u_palette%,8,han|
00002730  64 6c 65 5f 62 61 63 6b  25 2c 26 37 30 30 39 30  |dle_back%,&70090|
00002740  32 31 2c 22 50 69 65 20  31 33 22 29 0d 09 9c 44  |21,"Pie 13")...D|
00002750  f2 6d 65 6e 75 5f 61 64  64 69 74 65 6d 28 31 33  |.menu_additem(13|
00002760  2c 6d 65 6e 75 5f 70 61  6c 65 74 74 65 25 2c 38  |,menu_palette%,8|
00002770  2c 68 61 6e 64 6c 65 5f  62 61 63 6b 25 2c 26 37  |,handle_back%,&7|
00002780  30 30 39 30 32 31 2c 22  50 69 65 20 31 34 22 29  |009021,"Pie 14")|
00002790  0d 09 a6 44 f2 6d 65 6e  75 5f 61 64 64 69 74 65  |...D.menu_addite|
000027a0  6d 28 31 34 2c 6d 65 6e  75 5f 70 61 6c 65 74 74  |m(14,menu_palett|
000027b0  65 25 2c 38 2c 68 61 6e  64 6c 65 5f 62 61 63 6b  |e%,8,handle_back|
000027c0  25 2c 26 37 30 30 39 30  32 31 2c 22 50 69 65 20  |%,&7009021,"Pie |
000027d0  31 35 22 29 0d 09 b0 46  f2 6d 65 6e 75 5f 61 64  |15")...F.menu_ad|
000027e0  64 69 74 65 6d 28 31 35  2c 6d 65 6e 75 5f 70 61  |ditem(15,menu_pa|
000027f0  6c 65 74 74 65 25 2c 31  33 36 2c 68 61 6e 64 6c  |lette%,136,handl|
00002800  65 5f 62 61 63 6b 25 2c  26 37 30 30 39 30 32 31  |e_back%,&7009021|
00002810  2c 22 50 69 65 20 31 36  22 29 0d 09 ba 1d 24 6d  |,"Pie 16")....$m|
00002820  65 6e 75 5f 66 6f 6e 74  6c 69 73 74 25 3d 22 50  |enu_fontlist%="P|
00002830  61 6c 65 74 74 65 22 0d  09 c4 7c 6d 65 6e 75 5f  |alette"...|menu_|
00002840  66 6f 6e 74 6c 69 73 74  25 3f 31 32 3d 37 3a 6d  |fontlist%?12=7:m|
00002850  65 6e 75 5f 66 6f 6e 74  6c 69 73 74 25 3f 31 33  |enu_fontlist%?13|
00002860  3d 32 3a 6d 65 6e 75 5f  66 6f 6e 74 6c 69 73 74  |=2:menu_fontlist|
00002870  25 3f 31 34 3d 37 3a 6d  65 6e 75 5f 66 6f 6e 74  |%?14=7:menu_font|
00002880  6c 69 73 74 25 3f 31 35  3d 30 3a 6d 65 6e 75 5f  |list%?15=0:menu_|
00002890  66 6f 6e 74 6c 69 73 74  25 21 32 30 3d 34 34 3a  |fontlist%!20=44:|
000028a0  6d 65 6e 75 5f 66 6f 6e  74 6c 69 73 74 25 21 32  |menu_fontlist%!2|
000028b0  34 3d 30 0d 09 ce 1b 24  6d 65 6e 75 5f 74 61 73  |4=0....$menu_tas|
000028c0  6b 25 3d 22 47 72 61 70  68 50 6c 75 73 22 0d 09  |k%="GraphPlus"..|
000028d0  d8 76 6d 65 6e 75 5f 74  61 73 6b 25 3f 31 32 3d  |.vmenu_task%?12=|
000028e0  37 3a 6d 65 6e 75 5f 74  61 73 6b 25 3f 31 33 3d  |7:menu_task%?13=|
000028f0  32 3a 6d 65 6e 75 5f 74  61 73 6b 25 3f 31 34 3d  |2:menu_task%?14=|
00002900  37 3a 6d 65 6e 75 5f 74  61 73 6b 25 3f 31 35 3d  |7:menu_task%?15=|
00002910  30 3a 6d 65 6e 75 5f 74  61 73 6b 25 21 31 36 3d  |0:menu_task%!16=|
00002920  31 32 34 3a 6d 65 6e 75  5f 74 61 73 6b 25 21 32  |124:menu_task%!2|
00002930  30 3d 34 34 3a 6d 65 6e  75 5f 74 61 73 6b 25 21  |0=44:menu_task%!|
00002940  32 34 3d 30 0d 09 e2 38  f2 6d 65 6e 75 5f 61 64  |24=0...8.menu_ad|
00002950  64 69 74 65 6d 28 30 2c  6d 65 6e 75 5f 74 61 73  |ditem(0,menu_tas|
00002960  6b 25 2c 31 32 38 2c 2d  31 2c 26 37 30 30 39 30  |k%,128,-1,&70090|
00002970  32 31 2c 22 46 61 73 74  65 72 22 29 0d 09 ec 05  |21,"Faster")....|
00002980  e1 0d 09 f6 05 3a 0d 0a  00 91 dd f2 6d 65 6e 75  |.....:......menu|
00002990  5f 61 64 64 69 74 65 6d  28 69 74 65 6d 25 2c 61  |_additem(item%,a|
000029a0  64 64 72 25 2c 66 6c 61  67 25 2c 70 6f 69 6e 74  |ddr%,flag%,point|
000029b0  65 72 25 2c 69 63 6f 6e  25 2c 69 74 65 6d 24 29  |er%,icon%,item$)|
000029c0  3a 61 64 64 72 25 21 28  32 38 2b 28 69 74 65 6d  |:addr%!(28+(item|
000029d0  25 2a 32 34 29 29 3d 66  6c 61 67 25 3a 61 64 64  |%*24))=flag%:add|
000029e0  72 25 21 28 33 32 2b 28  69 74 65 6d 25 2a 32 34  |r%!(32+(item%*24|
000029f0  29 29 3d 70 6f 69 6e 74  65 72 25 3a 61 64 64 72  |))=pointer%:addr|
00002a00  25 21 28 33 36 2b 28 69  74 65 6d 25 2a 32 34 29  |%!(36+(item%*24)|
00002a10  29 3d 69 63 6f 6e 25 0d  0a 0a 81 e7 69 74 65 6d  |)=icon%.....item|
00002a20  24 3c 3e 22 50 6f 6d 6d  65 44 65 54 65 72 72 65  |$<>"PommeDeTerre|
00002a30  22 24 28 61 64 64 72 25  2b 34 30 2b 28 69 74 65  |"$(addr%+40+(ite|
00002a40  6d 25 2a 32 34 29 29 3d  69 74 65 6d 24 8b 61 64  |m%*24))=item$.ad|
00002a50  64 72 25 21 28 34 30 2b  28 69 74 65 6d 25 2a 32  |dr%!(40+(item%*2|
00002a60  34 29 29 3d 42 25 3a 61  64 64 72 25 21 28 34 34  |4))=B%:addr%!(44|
00002a70  2b 28 69 74 65 6d 25 2a  32 34 29 29 3d 56 25 3a  |+(item%*24))=V%:|
00002a80  61 64 64 72 25 21 28 34  38 2b 28 69 74 65 6d 25  |addr%!(48+(item%|
00002a90  2a 32 34 29 29 3d 4c 25  0d 0a 14 05 e1 0d 0a 1e  |*24))=L%........|
00002aa0  05 3a 0d 0a 28 40 dd f2  6d 65 6e 75 5f 74 69 63  |.:..(@..menu_tic|
00002ab0  6b 28 69 74 65 6d 25 2c  61 64 64 72 25 2c 66 6c  |k(item%,addr%,fl|
00002ac0  61 67 25 29 3a 61 64 64  72 25 21 28 32 38 2b 28  |ag%):addr%!(28+(|
00002ad0  69 74 65 6d 25 2a 32 34  29 29 3d 66 6c 61 67 25  |item%*24))=flag%|
00002ae0  3a e1 0d 0a 32 05 3a 0d  0a 3c 16 dd f2 69 6e 69  |:...2.:..<...ini|
00002af0  74 5f 66 69 72 73 74 77  69 6e 64 6f 77 0d 0a 46  |t_firstwindow..F|
00002b00  26 c8 99 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |&.."OS_ReadModeV|
00002b10  61 72 69 61 62 6c 65 22  2c 2d 31 2c 31 31 b8 2c  |ariable",-1,11.,|
00002b20  2c 4a 25 0d 0a 50 26 c8  99 22 4f 53 5f 52 65 61  |,J%..P&.."OS_Rea|
00002b30  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 2d  |dModeVariable",-|
00002b40  31 2c 31 32 b8 2c 2c 4b  25 0d 0a 5a 30 c8 99 22  |1,12.,,K%..Z0.."|
00002b50  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00002b60  62 6c 65 22 2c 2d 31 2c  35 b8 2c 2c 4d 3a 4b 25  |ble",-1,5.,,M:K%|
00002b70  3d 4b 25 2a 28 32 5e 4d  29 0d 0a 64 30 c8 99 22  |=K%*(2^M)..d0.."|
00002b80  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00002b90  62 6c 65 22 2c 2d 31 2c  34 b8 2c 2c 4d 3a 4a 25  |ble",-1,4.,,M:J%|
00002ba0  3d 4a 25 2a 28 32 5e 4d  29 0d 0a 6e 1b 4a 25 3d  |=J%*(2^M)..n.J%=|
00002bb0  4a 25 81 32 2d 32 36 38  3a 4b 25 3d 4b 25 81 32  |J%.2-268:K%=K%.2|
00002bc0  2b 31 36 36 0d 0a 78 2b  c8 99 22 57 69 6d 70 5f  |+166..x+.."Wimp_|
00002bd0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 68 61 6e  |CreateMenu",,han|
00002be0  64 6c 65 5f 69 6e 66 6f  25 2c 4a 25 2c 4b 25 0d  |dle_info%,J%,K%.|
00002bf0  0a 82 05 e1 0d 0a 8c 05  3a 0d 0a 96 13 dd f2 69  |........:......i|
00002c00  6e 69 74 5f 74 65 6d 70  6c 61 74 65 0d 0a a0 25  |nit_template...%|
00002c10  24 62 6c 6f 63 6b 25 3d  22 3c 47 72 61 70 68 50  |$block%="<GraphP|
00002c20  6c 75 73 24 44 69 72 3e  2e 44 65 66 61 75 6c 74  |lus$Dir>.Default|
00002c30  22 0d 0a aa 20 c8 99 22  58 4f 53 5f 46 69 6e 64  |"... .."XOS_Find|
00002c40  22 2c 26 34 32 2c 62 6c  6f 63 6b 25 b8 58 25 3b  |",&42,block%.X%;|
00002c50  4e 0d 0a b4 52 e7 28 4e  20 80 31 29 3d 31 84 58  |N...R.(N .1)=1.X|
00002c60  25 3d 30 3a 4e 3d a4 6d  65 73 73 61 67 65 28 22  |%=0:N=.message("|
00002c70  47 72 61 70 68 50 6c 75  73 20 69 73 20 75 6e 61  |GraphPlus is una|
00002c80  62 6c 65 20 74 6f 20 66  69 6e 64 20 74 68 65 20  |ble to find the |
00002c90  64 65 66 61 75 6c 74 20  66 69 6c 65 2e 22 2c 31  |default file.",1|
00002ca0  29 3a e1 0d 0a be 12 f2  6c 6f 61 64 5f 74 65 6d  |):......load_tem|
00002cb0  70 66 69 6c 65 0d 0a c8  14 c8 99 22 4f 53 5f 46  |pfile......"OS_F|
00002cc0  69 6e 64 22 2c 30 2c 58  25 0d 0a d2 05 e1 0d 0a  |ind",0,X%.......|
00002cd0  dc 05 3a 0d 0a e6 05 3a  0d 0a f0 2b f4 20 2a 2a  |..:....:...+. **|
00002ce0  2a 2a 2a 2a 2a 2a 2a 2a  20 50 6f 6c 6c 65 64 20  |******** Polled |
00002cf0  72 6f 75 74 69 6e 65 73  20 2a 2a 2a 2a 2a 2a 2a  |routines *******|
00002d00  2a 2a 2a 0d 0a fa 05 3a  0d 0b 04 25 f4 20 2a 2a  |***....:...%. **|
00002d10  2a 2a 2a 2a 2a 2a 2a 2a  20 4b 65 79 20 65 76 65  |******** Key eve|
00002d20  6e 74 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 0b 0e  |nt **********...|
00002d30  05 3a 0d 0b 18 38 f4 20  54 68 69 73 20 63 6f 75  |.:...8. This cou|
00002d40  6c 64 20 62 65 20 74 68  65 20 73 74 61 72 74 20  |ld be the start |
00002d50  6f 66 20 61 20 62 65 61  75 74 69 66 75 6c 20 66  |of a beautiful f|
00002d60  72 69 65 6e 64 73 68 69  70 21 0d 0b 22 10 dd f2  |riendship!.."...|
00002d70  6b 65 79 70 72 65 73 73  65 64 0d 0b 2c 27 e7 21  |keypressed..,'.!|
00002d80  70 6f 6c 6c 25 3d 68 61  6e 64 6c 65 5f 67 72 6f  |poll%=handle_gro|
00002d90  75 70 25 3a f2 67 72 6f  75 70 5f 72 65 74 75 72  |up%:.group_retur|
00002da0  6e 0d 0b 36 2d e7 21 70  6f 6c 6c 25 3d 68 61 6e  |n..6-.!poll%=han|
00002db0  64 6c 65 5f 6d 61 70 25  3a 62 75 74 74 6f 6e 25  |dle_map%:button%|
00002dc0  3d 34 3a f2 6d 61 70 5f  72 65 74 75 72 6e 0d 0b  |=4:.map_return..|
00002dd0  40 39 e7 21 70 6f 6c 6c  25 3d 68 61 6e 64 6c 65  |@9.!poll%=handle|
00002de0  5f 6c 61 62 65 6c 25 80  70 6f 6c 6c 25 21 32 34  |_label%.poll%!24|
00002df0  3d 31 33 3a 62 75 74 74  6f 6e 25 3d 34 3a f2 6c  |=13:button%=4:.l|
00002e00  61 62 65 6c 5f 4f 4b 0d  0b 4a 25 e7 21 70 6f 6c  |abel_OK..J%.!pol|
00002e10  6c 25 3d 68 61 6e 64 6c  65 5f 62 61 63 6b 25 3a  |l%=handle_back%:|
00002e20  f2 62 61 63 6b 5f 72 65  74 75 72 6e 0d 0b 54 25  |.back_return..T%|
00002e30  e7 21 70 6f 6c 6c 25 3d  68 61 6e 64 6c 65 5f 66  |.!poll%=handle_f|
00002e40  6f 6e 74 25 3a f2 66 6f  6e 74 5f 72 65 74 75 72  |ont%:.font_retur|
00002e50  6e 0d 0b 5e 31 e7 21 70  6f 6c 6c 25 3d 68 61 6e  |n..^1.!poll%=han|
00002e60  64 6c 65 5f 73 61 76 65  25 80 70 6f 6c 6c 25 21  |dle_save%.poll%!|
00002e70  32 34 3d 31 33 3a f2 73  61 76 65 5f 74 65 6d 70  |24=13:.save_temp|
00002e80  4f 4b 0d 0b 68 35 e7 21  70 6f 6c 6c 25 3d 68 61  |OK..h5.!poll%=ha|
00002e90  6e 64 6c 65 5f 63 72 65  61 74 65 25 80 70 6f 6c  |ndle_create%.pol|
00002ea0  6c 25 21 32 34 3d 31 33  3a f2 73 61 76 65 5f 63  |l%!24=13:.save_c|
00002eb0  72 65 61 74 65 4f 4b 0d  0b 72 25 e7 21 70 6f 6c  |reateOK..r%.!pol|
00002ec0  6c 25 3d 68 61 6e 64 6c  65 5f 70 61 6e 65 25 3a  |l%=handle_pane%:|
00002ed0  f2 70 61 6e 65 5f 72 65  74 75 72 6e 0d 0b 7c 22  |.pane_return..|"|
00002ee0  c8 99 22 57 69 6d 70 5f  50 72 6f 63 65 73 73 4b  |.."Wimp_ProcessK|
00002ef0  65 79 22 2c 70 6f 6c 6c  25 21 32 34 3a e1 0d 0b  |ey",poll%!24:...|
00002f00  86 05 3a 0d 0b 90 05 3a  0d 0b 9a 27 f4 20 2a 2a  |..:....:...'. **|
00002f10  2a 2a 2a 2a 2a 2a 2a 2a  20 4d 6f 75 73 65 20 53  |******** Mouse S|
00002f20  74 75 66 66 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |tuff **********.|
00002f30  0b a4 05 3a 0d 0b ae 28  dd f2 6d 6f 75 73 65 5f  |...:...(..mouse_|
00002f40  63 6c 69 63 6b 3a ea 62  75 74 74 6f 6e 25 2c 68  |click:.button%,h|
00002f50  61 6e 64 6c 65 25 2c 69  63 6f 6e 25 0d 0b b8 48  |andle%,icon%...H|
00002f60  78 25 3d 21 70 6f 6c 6c  25 3a 79 25 3d 70 6f 6c  |x%=!poll%:y%=pol|
00002f70  6c 25 21 34 3a 62 75 74  74 6f 6e 25 3d 70 6f 6c  |l%!4:button%=pol|
00002f80  6c 25 21 38 3a 68 61 6e  64 6c 65 25 3d 70 6f 6c  |l%!8:handle%=pol|
00002f90  6c 25 21 31 32 3a 69 63  6f 6e 25 3d 70 6f 6c 6c  |l%!12:icon%=poll|
00002fa0  25 21 31 36 0d 0b c2 27  e7 62 75 74 74 6f 6e 25  |%!16...'.button%|
00002fb0  3d 32 80 68 61 6e 64 6c  65 25 3d 2d 32 3a f2 6d  |=2.handle%=-2:.m|
00002fc0  65 6e 75 5f 69 63 6f 6e  62 61 72 0d 0b cc 49 e7  |enu_iconbar...I.|
00002fd0  62 75 74 74 6f 6e 25 3d  32 80 28 68 61 6e 64 6c  |button%=2.(handl|
00002fe0  65 25 3d 68 61 6e 64 6c  65 5f 66 6f 72 6d 61 74  |e%=handle_format|
00002ff0  25 84 68 61 6e 64 6c 65  25 3d 68 61 6e 64 6c 65  |%.handle%=handle|
00003000  5f 70 61 6e 65 25 29 3a  f2 6d 65 6e 75 5f 66 6f  |_pane%):.menu_fo|
00003010  72 6d 61 74 0d 0b d6 31  e7 62 75 74 74 6f 6e 25  |rmat...1.button%|
00003020  3c 3e 32 80 68 61 6e 64  6c 65 25 3d 68 61 6e 64  |<>2.handle%=hand|
00003030  6c 65 5f 67 72 6f 75 70  25 3a f2 6d 65 6e 75 5f  |le_group%:.menu_|
00003040  67 72 6f 75 70 0d 0b e0  2d e7 62 75 74 74 6f 6e  |group...-.button|
00003050  25 3c 3e 32 80 68 61 6e  64 6c 65 25 3d 68 61 6e  |%<>2.handle%=han|
00003060  64 6c 65 5f 6d 61 70 25  3a f2 6d 65 6e 75 5f 6d  |dle_map%:.menu_m|
00003070  61 70 0d 0b ea 31 e7 62  75 74 74 6f 6e 25 3c 3e  |ap...1.button%<>|
00003080  32 80 68 61 6e 64 6c 65  25 3d 68 61 6e 64 6c 65  |2.handle%=handle|
00003090  5f 6c 61 62 65 6c 25 3a  f2 6d 65 6e 75 5f 6c 61  |_label%:.menu_la|
000030a0  62 65 6c 0d 0b f4 2f e7  62 75 74 74 6f 6e 25 3c  |bel.../.button%<|
000030b0  3e 32 80 68 61 6e 64 6c  65 25 3d 68 61 6e 64 6c  |>2.handle%=handl|
000030c0  65 5f 62 61 63 6b 25 3a  f2 6d 65 6e 75 5f 62 61  |e_back%:.menu_ba|
000030d0  63 6b 0d 0b fe 2f e7 62  75 74 74 6f 6e 25 3c 3e  |ck.../.button%<>|
000030e0  32 80 68 61 6e 64 6c 65  25 3d 68 61 6e 64 6c 65  |2.handle%=handle|
000030f0  5f 66 6f 6e 74 25 3a f2  6d 65 6e 75 5f 66 6f 6e  |_font%:.menu_fon|
00003100  74 0d 0c 08 39 e7 62 75  74 74 6f 6e 25 3d 34 80  |t...9.button%=4.|
00003110  68 61 6e 64 6c 65 25 3d  2d 32 80 67 72 61 70 68  |handle%=-2.graph|
00003120  5f 77 69 6e 64 6f 77 25  3a f2 77 69 6e 64 6f 77  |_window%:.window|
00003130  5f 6c 69 66 74 67 72 61  70 68 0d 0c 12 3a e7 62  |_liftgraph...:.b|
00003140  75 74 74 6f 6e 25 3d 34  80 68 61 6e 64 6c 65 25  |utton%=4.handle%|
00003150  3d 2d 32 80 ac 67 72 61  70 68 5f 77 69 6e 64 6f  |=-2..graph_windo|
00003160  77 25 3a f2 77 69 6e 64  6f 77 5f 6f 70 65 6e 67  |w%:.window_openg|
00003170  72 61 70 68 0d 0c 1c 3c  e7 69 63 6f 6e 25 3d 30  |raph...<.icon%=0|
00003180  80 62 75 74 74 6f 6e 25  3d 36 34 80 68 61 6e 64  |.button%=64.hand|
00003190  6c 65 25 3d 68 61 6e 64  6c 65 5f 73 61 76 65 25  |le%=handle_save%|
000031a0  3a f2 64 72 61 67 5f 73  74 61 72 74 73 61 76 65  |:.drag_startsave|
000031b0  0d 0c 26 39 e7 62 75 74  74 6f 6e 25 3c 3e 32 80  |..&9.button%<>2.|
000031c0  69 63 6f 6e 25 3d 32 80  68 61 6e 64 6c 65 25 3d  |icon%=2.handle%=|
000031d0  68 61 6e 64 6c 65 5f 73  61 76 65 25 3a f2 73 61  |handle_save%:.sa|
000031e0  76 65 5f 74 65 6d 70 4f  4b 0d 0c 30 40 e7 69 63  |ve_tempOK..0@.ic|
000031f0  6f 6e 25 3d 30 80 62 75  74 74 6f 6e 25 3d 36 34  |on%=0.button%=64|
00003200  80 68 61 6e 64 6c 65 25  3d 68 61 6e 64 6c 65 5f  |.handle%=handle_|
00003210  63 72 65 61 74 65 25 3a  f2 64 72 61 67 5f 73 74  |create%:.drag_st|
00003220  61 72 74 63 72 65 61 74  65 0d 0c 3a 3d e7 62 75  |artcreate..:=.bu|
00003230  74 74 6f 6e 25 3c 3e 32  80 69 63 6f 6e 25 3d 32  |tton%<>2.icon%=2|
00003240  80 68 61 6e 64 6c 65 25  3d 68 61 6e 64 6c 65 5f  |.handle%=handle_|
00003250  63 72 65 61 74 65 25 3a  f2 73 61 76 65 5f 63 72  |create%:.save_cr|
00003260  65 61 74 65 4f 4b 0d 0c  44 35 e7 62 75 74 74 6f  |eateOK..D5.butto|
00003270  6e 25 3c 3e 32 80 68 61  6e 64 6c 65 25 3d 68 61  |n%<>2.handle%=ha|
00003280  6e 64 6c 65 5f 66 6f 72  6d 61 74 25 3a f2 66 6f  |ndle_format%:.fo|
00003290  72 6d 61 74 5f 73 65 6c  65 63 74 0d 0c 4e 31 e7  |rmat_select..N1.|
000032a0  62 75 74 74 6f 6e 25 3c  3e 32 80 68 61 6e 64 6c  |button%<>2.handl|
000032b0  65 25 3d 68 61 6e 64 6c  65 5f 70 61 6e 65 25 3a  |e%=handle_pane%:|
000032c0  f2 70 61 6e 65 5f 73 65  6c 65 63 74 0d 0c 58 b3  |.pane_select..X.|
000032d0  e7 68 61 6e 64 6c 65 25  3d 68 61 6e 64 6c 65 5f  |.handle%=handle_|
000032e0  70 61 6e 65 25 80 69 63  6f 6e 25 3c 3e 32 80 69  |pane%.icon%<>2.i|
000032f0  63 6f 6e 25 3c 3e 35 80  69 63 6f 6e 25 3c 3e 39  |con%<>5.icon%<>9|
00003300  80 69 63 6f 6e 25 3c 3e  31 31 80 69 63 6f 6e 25  |.icon%<>11.icon%|
00003310  3c 3e 31 34 80 69 63 6f  6e 25 3c 3e 31 36 80 69  |<>14.icon%<>16.i|
00003320  63 6f 6e 25 3c 3e 31 39  80 69 63 6f 6e 25 3c 3e  |con%<>19.icon%<>|
00003330  32 33 80 69 63 6f 6e 25  3c 3e 32 35 80 69 63 6f  |23.icon%<>25.ico|
00003340  6e 25 3c 3e 32 38 80 69  63 6f 6e 25 3c 3e 33 30  |n%<>28.icon%<>30|
00003350  80 69 63 6f 6e 25 3c 3e  34 36 80 69 63 6f 6e 25  |.icon%<>46.icon%|
00003360  3c 3e 35 30 80 62 75 74  74 6f 6e 25 3c 3e 32 3a  |<>50.button%<>2:|
00003370  66 6c 61 67 5f 66 69 64  64 6c 65 64 25 3d b9 0d  |flag_fiddled%=..|
00003380  0c 62 05 e1 0d 0c 6c 05  3a 0d 0c 76 05 3a 0d 0c  |.b....l.:..v.:..|
00003390  80 26 f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 20 4d  |.&. ********** M|
000033a0  65 6e 75 20 73 74 75 66  66 20 2a 2a 2a 2a 2a 2a  |enu stuff ******|
000033b0  2a 2a 2a 2a 0d 0c 8a 05  3a 0d 0c 94 4d dd f2 6d  |****....:...M..m|
000033c0  65 6e 75 5f 69 63 6f 6e  62 61 72 3a c8 99 22 57  |enu_iconbar:.."W|
000033d0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
000033e0  2c 6d 65 6e 75 5f 62 61  72 25 2c 78 25 2d 36 34  |,menu_bar%,x%-64|
000033f0  2c 35 34 30 3a 6d 65 6e  75 5f 63 75 72 72 65 6e  |,540:menu_curren|
00003400  74 25 3d 31 3a e1 0d 0c  9e 05 3a 0d 0c a8 4b dd  |t%=1:.....:...K.|
00003410  f2 6d 65 6e 75 5f 66 6f  72 6d 61 74 3a c8 99 22  |.menu_format:.."|
00003420  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00003430  2c 2c 6d 65 6e 75 5f 77  69 6e 25 2c 78 25 2d 33  |,,menu_win%,x%-3|
00003440  32 2c 79 25 3a 6d 65 6e  75 5f 63 75 72 72 65 6e  |2,y%:menu_curren|
00003450  74 25 3d 32 3a e1 0d 0c  b2 05 3a 0d 0c bc 14 dd  |t%=2:.....:.....|
00003460  f2 6d 65 6e 75 5f 6f 70  65 6e 67 72 6f 75 70 0d  |.menu_opengroup.|
00003470  0c c6 13 67 72 6f 75 70  25 3d 70 6f 6c 6c 25 21  |...group%=poll%!|
00003480  34 30 0d 0c d0 14 f2 67  72 6f 75 70 5f 63 61 6c  |40.....group_cal|
00003490  63 75 6c 61 74 65 0d 0c  da 3b c8 99 22 57 69 6d  |culate...;.."Wim|
000034a0  70 5f 43 72 65 61 74 65  53 75 62 4d 65 6e 75 22  |p_CreateSubMenu"|
000034b0  2c 2c 68 61 6e 64 6c 65  5f 67 72 6f 75 70 25 2c  |,,handle_group%,|
000034c0  70 6f 6c 6c 25 21 32 34  2c 70 6f 6c 6c 25 21 32  |poll%!24,poll%!2|
000034d0  38 0d 0c e4 05 e1 0d 0c  ee 05 3a 0d 0c f8 16 dd  |8.........:.....|
000034e0  f2 6d 65 6e 75 5f 72 65  6f 70 65 6e 67 72 6f 75  |.menu_reopengrou|
000034f0  70 0d 0d 02 14 f2 67 72  6f 75 70 5f 63 61 6c 63  |p.....group_calc|
00003500  75 6c 61 74 65 0d 0d 0c  35 c8 99 22 57 69 6d 70  |ulate...5.."Wimp|
00003510  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 68 61  |_ForceRedraw",ha|
00003520  6e 64 6c 65 5f 67 72 6f  75 70 25 2c 30 2c 2d 31  |ndle_group%,0,-1|
00003530  30 32 34 2c 31 32 37 39  2c 30 0d 0d 16 05 e1 0d  |024,1279,0......|
00003540  0d 20 05 3a 0d 0d 2a 12  dd f2 6d 65 6e 75 5f 6f  |. .:..*...menu_o|
00003550  70 65 6e 6d 61 70 0d 0d  34 13 67 72 6f 75 70 25  |penmap..4.group%|
00003560  3d 70 6f 6c 6c 25 21 34  30 0d 0d 3e 12 f2 6d 61  |=poll%!40..>..ma|
00003570  70 5f 63 61 6c 63 75 6c  61 74 65 0d 0d 48 39 c8  |p_calculate..H9.|
00003580  99 22 57 69 6d 70 5f 43  72 65 61 74 65 53 75 62  |."Wimp_CreateSub|
00003590  4d 65 6e 75 22 2c 2c 68  61 6e 64 6c 65 5f 6d 61  |Menu",,handle_ma|
000035a0  70 25 2c 70 6f 6c 6c 25  21 32 34 2c 70 6f 6c 6c  |p%,poll%!24,poll|
000035b0  25 21 32 38 0d 0d 52 05  e1 0d 0d 5c 05 3a 0d 0d  |%!28..R....\.:..|
000035c0  66 14 dd f2 6d 65 6e 75  5f 72 65 6f 70 65 6e 6d  |f...menu_reopenm|
000035d0  61 70 0d 0d 70 12 f2 6d  61 70 5f 63 61 6c 63 75  |ap..p..map_calcu|
000035e0  6c 61 74 65 0d 0d 7a 33  c8 99 22 57 69 6d 70 5f  |late..z3.."Wimp_|
000035f0  46 6f 72 63 65 52 65 64  72 61 77 22 2c 68 61 6e  |ForceRedraw",han|
00003600  64 6c 65 5f 6d 61 70 25  2c 30 2c 2d 31 30 32 34  |dle_map%,0,-1024|
00003610  2c 31 32 37 39 2c 30 0d  0d 84 05 e1 0d 0d 8e 05  |,1279,0.........|
00003620  3a 0d 0d 98 14 dd f2 6d  65 6e 75 5f 6f 70 65 6e  |:......menu_open|
00003630  6c 61 62 65 6c 0d 0d a2  2c 67 72 6f 75 70 25 3d  |label...,group%=|
00003640  36 3a 24 28 69 6e 64 5f  6c 61 62 25 2b 33 38 29  |6:$(ind_lab%+38)|
00003650  3d c3 28 67 72 6f 75 70  5f 6d 61 70 25 21 32 34  |=.(group_map%!24|
00003660  29 0d 0d ac 3b c8 99 22  57 69 6d 70 5f 43 72 65  |)...;.."Wimp_Cre|
00003670  61 74 65 53 75 62 4d 65  6e 75 22 2c 2c 68 61 6e  |ateSubMenu",,han|
00003680  64 6c 65 5f 6c 61 62 65  6c 25 2c 70 6f 6c 6c 25  |dle_label%,poll%|
00003690  21 32 34 2c 70 6f 6c 6c  25 21 32 38 0d 0d b6 05  |!24,poll%!28....|
000036a0  e1 0d 0d c0 05 3a 0d 0d  ca 16 dd f2 6d 65 6e 75  |.....:......menu|
000036b0  5f 72 65 6f 70 65 6e 6c  61 62 65 6c 0d 0d d4 2c  |_reopenlabel...,|
000036c0  67 72 6f 75 70 25 3d 36  3a 24 28 69 6e 64 5f 6c  |group%=6:$(ind_l|
000036d0  61 62 25 2b 33 38 29 3d  c3 28 67 72 6f 75 70 5f  |ab%+38)=.(group_|
000036e0  6d 61 70 25 21 32 34 29  0d 0d de 35 c8 99 22 57  |map%!24)...5.."W|
000036f0  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
00003700  2c 68 61 6e 64 6c 65 5f  6c 61 62 65 6c 25 2c 30  |,handle_label%,0|
00003710  2c 2d 31 30 32 34 2c 31  32 37 39 2c 30 0d 0d e8  |,-1024,1279,0...|
00003720  05 e1 0d 0d f2 05 3a 0d  0d fc 13 dd f2 6d 65 6e  |......:......men|
00003730  75 5f 6f 70 65 6e 62 61  63 6b 0d 0e 06 1e 67 72  |u_openback....gr|
00003740  6f 75 70 25 3d 32 35 35  3a f2 62 61 63 6b 5f 63  |oup%=255:.back_c|
00003750  61 6c 63 75 6c 61 74 65  0d 0e 10 3a c8 99 22 57  |alculate...:.."W|
00003760  69 6d 70 5f 43 72 65 61  74 65 53 75 62 4d 65 6e  |imp_CreateSubMen|
00003770  75 22 2c 2c 68 61 6e 64  6c 65 5f 62 61 63 6b 25  |u",,handle_back%|
00003780  2c 70 6f 6c 6c 25 21 32  34 2c 70 6f 6c 6c 25 21  |,poll%!24,poll%!|
00003790  32 38 0d 0e 1a 33 f2 63  61 72 65 74 5f 73 65 74  |28...3.caret_set|
000037a0  70 6f 73 28 68 61 6e 64  6c 65 5f 62 61 63 6b 25  |pos(handle_back%|
000037b0  2c 35 2c a4 6c 65 6e 28  69 6e 64 5f 62 63 6b 25  |,5,.len(ind_bck%|
000037c0  2b 32 30 29 29 0d 0e 24  05 e1 0d 0e 2e 05 3a 0d  |+20))..$......:.|
000037d0  0e 38 15 dd f2 6d 65 6e  75 5f 72 65 6f 70 65 6e  |.8...menu_reopen|
000037e0  62 61 63 6b 0d 0e 42 13  f2 62 61 63 6b 5f 63 61  |back..B..back_ca|
000037f0  6c 63 75 6c 61 74 65 0d  0e 4c 34 c8 99 22 57 69  |lculate..L4.."Wi|
00003800  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00003810  68 61 6e 64 6c 65 5f 62  61 63 6b 25 2c 30 2c 2d  |handle_back%,0,-|
00003820  31 30 32 34 2c 31 32 37  39 2c 30 0d 0e 56 33 f2  |1024,1279,0..V3.|
00003830  63 61 72 65 74 5f 73 65  74 70 6f 73 28 68 61 6e  |caret_setpos(han|
00003840  64 6c 65 5f 62 61 63 6b  25 2c 35 2c a4 6c 65 6e  |dle_back%,5,.len|
00003850  28 69 6e 64 5f 62 63 6b  25 2b 32 30 29 29 0d 0e  |(ind_bck%+20))..|
00003860  60 05 e1 0d 0e 6a 05 3a  0d 0e 74 16 dd f2 6d 65  |`....j.:..t...me|
00003870  6e 75 5f 6f 70 65 6e 70  61 6c 65 74 74 65 0d 0e  |nu_openpalette..|
00003880  7e 13 67 72 6f 75 70 25  3d 70 6f 6c 6c 25 21 34  |~.group%=poll%!4|
00003890  30 0d 0e 88 13 f2 62 61  63 6b 5f 63 61 6c 63 75  |0.....back_calcu|
000038a0  6c 61 74 65 0d 0e 92 3a  c8 99 22 57 69 6d 70 5f  |late...:.."Wimp_|
000038b0  43 72 65 61 74 65 53 75  62 4d 65 6e 75 22 2c 2c  |CreateSubMenu",,|
000038c0  68 61 6e 64 6c 65 5f 62  61 63 6b 25 2c 70 6f 6c  |handle_back%,pol|
000038d0  6c 25 21 32 34 2c 70 6f  6c 6c 25 21 32 38 0d 0e  |l%!24,poll%!28..|
000038e0  9c 05 e1 0d 0e a6 05 3a  0d 0e b0 13 dd f2 6d 65  |.......:......me|
000038f0  6e 75 5f 6f 70 65 6e 66  6f 6e 74 0d 0e ba 13 67  |nu_openfont....g|
00003900  72 6f 75 70 25 3d 70 6f  6c 6c 25 21 34 30 0d 0e  |roup%=poll%!40..|
00003910  c4 13 f2 66 6f 6e 74 5f  63 61 6c 63 75 6c 61 74  |...font_calculat|
00003920  65 0d 0e ce 3a c8 99 22  57 69 6d 70 5f 43 72 65  |e...:.."Wimp_Cre|
00003930  61 74 65 53 75 62 4d 65  6e 75 22 2c 2c 68 61 6e  |ateSubMenu",,han|
00003940  64 6c 65 5f 66 6f 6e 74  25 2c 70 6f 6c 6c 25 21  |dle_font%,poll%!|
00003950  32 34 2c 70 6f 6c 6c 25  21 32 38 0d 0e d8 05 e1  |24,poll%!28.....|
00003960  0d 0e e2 05 3a 0d 0e ec  15 dd f2 6d 65 6e 75 5f  |....:......menu_|
00003970  72 65 6f 70 65 6e 66 6f  6e 74 0d 0e f6 13 f2 66  |reopenfont.....f|
00003980  6f 6e 74 5f 63 61 6c 63  75 6c 61 74 65 0d 0f 00  |ont_calculate...|
00003990  34 c8 99 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |4.."Wimp_ForceRe|
000039a0  64 72 61 77 22 2c 68 61  6e 64 6c 65 5f 66 6f 6e  |draw",handle_fon|
000039b0  74 25 2c 30 2c 2d 31 30  32 34 2c 31 32 37 39 2c  |t%,0,-1024,1279,|
000039c0  30 0d 0f 0a 05 e1 0d 0f  14 05 3a 0d 0f 1e 13 dd  |0.........:.....|
000039d0  f2 6d 65 6e 75 5f 6f 70  65 6e 73 61 76 65 0d 0f  |.menu_opensave..|
000039e0  28 1a 24 28 69 6e 64 5f  73 61 25 29 3d 24 66 69  |(.$(ind_sa%)=$fi|
000039f0  6c 65 5f 74 65 6d 70 25  0d 0f 32 3a c8 99 22 57  |le_temp%..2:.."W|
00003a00  69 6d 70 5f 43 72 65 61  74 65 53 75 62 4d 65 6e  |imp_CreateSubMen|
00003a10  75 22 2c 2c 68 61 6e 64  6c 65 5f 73 61 76 65 25  |u",,handle_save%|
00003a20  2c 70 6f 6c 6c 25 21 32  34 2c 70 6f 6c 6c 25 21  |,poll%!24,poll%!|
00003a30  32 38 0d 0f 3c 05 e1 0d  0f 46 05 3a 0d 0f 50 05  |28..<....F.:..P.|
00003a40  3a 0d 0f 5a 15 dd f2 67  72 6f 75 70 5f 63 61 6c  |:..Z...group_cal|
00003a50  63 75 6c 61 74 65 0d 0f  64 19 69 6e 64 5f 67 72  |culate..d.ind_gr|
00003a60  70 25 3f 31 33 3d 67 72  6f 75 70 25 2b 34 39 0d  |p%?13=group%+49.|
00003a70  0f 6e 2a 69 6e 64 5f 67  72 70 25 3f 32 31 3d 34  |.n*ind_grp%?21=4|
00003a80  39 2b 67 72 6f 75 70 5f  64 61 74 61 25 3f 28 67  |9+group_data%?(g|
00003a90  72 6f 75 70 25 2a 34 32  29 0d 0f 78 2c 69 6e 64  |roup%*42)..x,ind|
00003aa0  5f 67 72 70 25 3f 32 36  3d 34 38 2b 67 72 6f 75  |_grp%?26=48+grou|
00003ab0  70 5f 64 61 74 61 25 3f  28 67 72 6f 75 70 25 2a  |p_data%?(group%*|
00003ac0  34 32 2b 31 29 0d 0f 82  2d 24 28 69 6e 64 5f 67  |42+1)...-$(ind_g|
00003ad0  72 70 25 2b 33 31 29 3d  c3 67 72 6f 75 70 5f 64  |rp%+31)=.group_d|
00003ae0  61 74 61 25 3f 28 67 72  6f 75 70 25 2a 34 32 2b  |ata%?(group%*42+|
00003af0  32 29 0d 0f 8c 2c f2 67  72 6f 75 70 5f 62 61 72  |2)...,.group_bar|
00003b00  28 31 35 2c 67 72 6f 75  70 5f 64 61 74 61 25 3f  |(15,group_data%?|
00003b10  28 67 72 6f 75 70 25 2a  34 32 2b 32 29 29 0d 0f  |(group%*42+2))..|
00003b20  96 2d 24 28 69 6e 64 5f  67 72 70 25 2b 34 34 29  |.-$(ind_grp%+44)|
00003b30  3d c3 67 72 6f 75 70 5f  64 61 74 61 25 3f 28 67  |=.group_data%?(g|
00003b40  72 6f 75 70 25 2a 34 32  2b 33 29 0d 0f a0 2c f2  |roup%*42+3)...,.|
00003b50  67 72 6f 75 70 5f 62 61  72 28 32 31 2c 67 72 6f  |group_bar(21,gro|
00003b60  75 70 5f 64 61 74 61 25  3f 28 67 72 6f 75 70 25  |up_data%?(group%|
00003b70  2a 34 32 2b 33 29 29 0d  0f aa 2d 24 28 69 6e 64  |*42+3))...-$(ind|
00003b80  5f 67 72 70 25 2b 35 37  29 3d c3 67 72 6f 75 70  |_grp%+57)=.group|
00003b90  5f 64 61 74 61 25 3f 28  67 72 6f 75 70 25 2a 34  |_data%?(group%*4|
00003ba0  32 2b 34 29 0d 0f b4 2c  f2 67 72 6f 75 70 5f 62  |2+4)...,.group_b|
00003bb0  61 72 28 32 37 2c 67 72  6f 75 70 5f 64 61 74 61  |ar(27,group_data|
00003bc0  25 3f 28 67 72 6f 75 70  25 2a 34 32 2b 34 29 29  |%?(group%*42+4))|
00003bd0  0d 0f be 33 24 28 69 6e  64 5f 67 72 70 25 2b 37  |...3$(ind_grp%+7|
00003be0  34 29 3d c3 28 67 72 6f  75 70 5f 64 61 74 61 25  |4)=.(group_data%|
00003bf0  21 28 67 72 6f 75 70 25  2a 34 32 2b 35 29 2f 36  |!(group%*42+5)/6|
00003c00  34 30 29 0d 0f c8 2d 69  6e 64 5f 67 72 70 25 3f  |40)...-ind_grp%?|
00003c10  31 33 34 3d 34 38 2b 67  72 6f 75 70 5f 64 61 74  |134=48+group_dat|
00003c20  61 25 3f 28 67 72 6f 75  70 25 2a 34 32 2b 39 29  |a%?(group%*42+9)|
00003c30  0d 0f d2 20 4e 3d 67 72  6f 75 70 5f 64 61 74 61  |... N=group_data|
00003c40  25 3f 28 67 72 6f 75 70  25 2a 34 32 2b 31 30 29  |%?(group%*42+10)|
00003c50  0d 0f dc 2b 21 62 6c 6f  63 6b 25 3d 68 61 6e 64  |...+!block%=hand|
00003c60  6c 65 5f 67 72 6f 75 70  25 3a 62 6c 6f 63 6b 25  |le_group%:block%|
00003c70  21 31 32 3d 26 32 30 30  30 30 30 0d 0f e6 38 62  |!12=&200000...8b|
00003c80  6c 6f 63 6b 25 21 34 3d  36 33 3a e7 28 4e 20 80  |lock%!4=63:.(N .|
00003c90  20 31 29 3d 31 3a 62 6c  6f 63 6b 25 21 38 3d 26  | 1)=1:block%!8=&|
00003ca0  32 30 30 30 30 30 20 8b  20 62 6c 6f 63 6b 25 21  |200000 . block%!|
00003cb0  38 3d 30 0d 0f f0 21 c8  99 22 57 69 6d 70 5f 53  |8=0...!.."Wimp_S|
00003cc0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
00003cd0  6f 63 6b 25 0d 0f fa 38  62 6c 6f 63 6b 25 21 34  |ock%...8block%!4|
00003ce0  3d 36 34 3a e7 28 4e 20  80 20 32 29 3d 32 3a 62  |=64:.(N . 2)=2:b|
00003cf0  6c 6f 63 6b 25 21 38 3d  26 32 30 30 30 30 30 20  |lock%!8=&200000 |
00003d00  8b 20 62 6c 6f 63 6b 25  21 38 3d 30 0d 10 04 21  |. block%!8=0...!|
00003d10  c8 99 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |.."Wimp_SetIconS|
00003d20  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 10 0e  |tate",,block%...|
00003d30  39 62 6c 6f 63 6b 25 21  34 3d 36 35 3a 3a e7 28  |9block%!4=65::.(|
00003d40  4e 20 80 20 34 29 3d 34  3a 62 6c 6f 63 6b 25 21  |N . 4)=4:block%!|
00003d50  38 3d 26 32 30 30 30 30  30 20 8b 20 62 6c 6f 63  |8=&200000 . bloc|
00003d60  6b 25 21 38 3d 30 0d 10  18 21 c8 99 22 57 69 6d  |k%!8=0...!.."Wim|
00003d70  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00003d80  2c 62 6c 6f 63 6b 25 0d  10 22 05 e1 0d 10 2c 05  |,block%.."....,.|
00003d90  3a 0d 10 36 13 dd f2 6d  61 70 5f 63 61 6c 63 75  |:..6...map_calcu|
00003da0  6c 61 74 65 0d 10 40 1e  24 28 69 6e 64 5f 6d 61  |late..@.$(ind_ma|
00003db0  70 25 2b 32 34 29 3d c3  28 67 72 6f 75 70 25 2b  |p%+24)=.(group%+|
00003dc0  31 29 0d 10 4a 2b 24 28  69 6e 64 5f 6d 61 70 25  |1)..J+$(ind_map%|
00003dd0  2b 33 33 29 3d c3 28 67  72 6f 75 70 5f 6d 61 70  |+33)=.(group_map|
00003de0  25 21 28 67 72 6f 75 70  25 2a 34 29 29 0d 10 54  |%!(group%*4))..T|
00003df0  2e 24 28 69 6e 64 5f 6d  61 70 25 2b 34 39 29 3d  |.$(ind_map%+49)=|
00003e00  24 28 67 72 6f 75 70 5f  64 61 74 61 25 2b 67 72  |$(group_data%+gr|
00003e10  6f 75 70 25 2a 34 32 2b  31 31 29 0d 10 5e 05 e1  |oup%*42+11)..^..|
00003e20  0d 10 68 05 3a 0d 10 72  14 dd f2 62 61 63 6b 5f  |..h.:..r...back_|
00003e30  63 61 6c 63 75 6c 61 74  65 0d 10 7c 10 e7 67 72  |calculate..|..gr|
00003e40  6f 75 70 25 3d 32 35 35  8c 0d 10 86 73 20 f2 62  |oup%=255....s .b|
00003e50  61 63 6b 5f 62 61 72 28  36 2c 64 61 74 61 5f 62  |ack_bar(6,data_b|
00003e60  61 63 6b 25 3f 31 29 3a  f2 62 61 63 6b 5f 62 61  |ack%?1):.back_ba|
00003e70  72 28 31 32 2c 64 61 74  61 5f 62 61 63 6b 25 3f  |r(12,data_back%?|
00003e80  32 29 3a f2 62 61 63 6b  5f 62 61 72 28 31 38 2c  |2):.back_bar(18,|
00003e90  64 61 74 61 5f 62 61 63  6b 25 3f 33 29 3a 24 28  |data_back%?3):$(|
00003ea0  69 6e 64 5f 62 63 6b 25  2b 31 31 29 3d c3 28 64  |ind_bck%+11)=.(d|
00003eb0  61 74 61 5f 62 61 63 6b  25 3f 31 29 0d 10 90 42  |ata_back%?1)...B|
00003ec0  20 24 28 69 6e 64 5f 62  63 6b 25 2b 32 34 29 3d  | $(ind_bck%+24)=|
00003ed0  c3 28 64 61 74 61 5f 62  61 63 6b 25 3f 32 29 3a  |.(data_back%?2):|
00003ee0  24 28 69 6e 64 5f 62 63  6b 25 2b 33 37 29 3d c3  |$(ind_bck%+37)=.|
00003ef0  28 64 61 74 61 5f 62 61  63 6b 25 3f 33 29 0d 10  |(data_back%?3)..|
00003f00  9a 1b 20 24 69 6e 64 5f  62 63 6b 25 3d 22 42 61  |.. $ind_bck%="Ba|
00003f10  63 6b 67 72 6f 75 6e 64  22 0d 10 a4 05 cc 0d 10  |ckground".......|
00003f20  ae 7b 20 f2 62 61 63 6b  5f 62 61 72 28 36 2c 70  |.{ .back_bar(6,p|
00003f30  69 65 5f 70 61 6c 65 74  74 65 25 3f 28 67 72 6f  |ie_palette%?(gro|
00003f40  75 70 25 2a 34 2b 31 29  29 3a f2 62 61 63 6b 5f  |up%*4+1)):.back_|
00003f50  62 61 72 28 31 32 2c 70  69 65 5f 70 61 6c 65 74  |bar(12,pie_palet|
00003f60  74 65 25 3f 28 67 72 6f  75 70 25 2a 34 2b 32 29  |te%?(group%*4+2)|
00003f70  29 3a f2 62 61 63 6b 5f  62 61 72 28 31 38 2c 70  |):.back_bar(18,p|
00003f80  69 65 5f 70 61 6c 65 74  74 65 25 3f 28 67 72 6f  |ie_palette%?(gro|
00003f90  75 70 25 2a 34 2b 33 29  29 0d 10 b8 88 20 24 28  |up%*4+3)).... $(|
00003fa0  69 6e 64 5f 62 63 6b 25  2b 31 31 29 3d c3 28 70  |ind_bck%+11)=.(p|
00003fb0  69 65 5f 70 61 6c 65 74  74 65 25 3f 28 67 72 6f  |ie_palette%?(gro|
00003fc0  75 70 25 2a 34 2b 31 29  29 3a 24 28 69 6e 64 5f  |up%*4+1)):$(ind_|
00003fd0  62 63 6b 25 2b 32 34 29  3d c3 28 70 69 65 5f 70  |bck%+24)=.(pie_p|
00003fe0  61 6c 65 74 74 65 25 3f  28 67 72 6f 75 70 25 2a  |alette%?(group%*|
00003ff0  34 2b 32 29 29 3a 24 28  69 6e 64 5f 62 63 6b 25  |4+2)):$(ind_bck%|
00004000  2b 33 37 29 3d c3 28 70  69 65 5f 70 61 6c 65 74  |+37)=.(pie_palet|
00004010  74 65 25 3f 28 67 72 6f  75 70 25 2a 34 2b 33 29  |te%?(group%*4+3)|
00004020  29 0d 10 c2 21 20 24 69  6e 64 5f 62 63 6b 25 3d  |)...! $ind_bck%=|
00004030  22 50 69 65 20 22 2b c3  28 67 72 6f 75 70 25 2b  |"Pie "+.(group%+|
00004040  31 29 0d 10 cc 05 cd 0d  10 d6 05 e1 0d 10 e0 05  |1)..............|
00004050  3a 0d 10 ea 14 dd f2 66  6f 6e 74 5f 63 61 6c 63  |:......font_calc|
00004060  75 6c 61 74 65 0d 10 f4  0d c8 8e 67 72 6f 75 70  |ulate......group|
00004070  25 ca 0d 10 fe c4 20 c9  30 3a 24 69 6e 64 5f 66  |%..... .0:$ind_f|
00004080  6e 74 25 3d 22 54 69 74  6c 65 20 66 6f 6e 74 22  |nt%="Title font"|
00004090  3a 24 28 69 6e 64 5f 66  6e 74 25 2b 34 33 29 3d  |:$(ind_fnt%+43)=|
000040a0  24 28 66 6f 6e 74 5f 6c  69 73 74 25 2b 74 65 78  |$(font_list%+tex|
000040b0  74 5f 74 69 74 6c 65 63  2a 34 30 29 3a 24 28 69  |t_titlec*40):$(i|
000040c0  6e 64 5f 66 6e 74 25 2b  31 33 31 29 3d c3 74 65  |nd_fnt%+131)=.te|
000040d0  78 74 5f 74 69 74 6c 65  78 3a 24 28 69 6e 64 5f  |xt_titlex:$(ind_|
000040e0  66 6e 74 25 2b 31 34 34  29 3d c3 74 65 78 74 5f  |fnt%+144)=.text_|
000040f0  74 69 74 6c 65 79 3a 66  6f 6e 74 5f 63 25 3d 74  |titley:font_c%=t|
00004100  65 78 74 5f 74 69 74 6c  65 63 3a 24 6d 65 6e 75  |ext_titlec:$menu|
00004110  5f 66 6f 6e 74 6c 69 73  74 25 3d 22 54 69 74 6c  |_fontlist%="Titl|
00004120  65 20 66 6f 6e 74 22 3a  f2 66 6f 6e 74 5f 74 69  |e font":.font_ti|
00004130  63 6b 6c 69 73 74 0d 11  08 be 20 c9 31 3a 24 69  |cklist.... .1:$i|
00004140  6e 64 5f 66 6e 74 25 3d  22 41 78 69 73 20 66 6f  |nd_fnt%="Axis fo|
00004150  6e 74 22 3a 24 28 69 6e  64 5f 66 6e 74 25 2b 34  |nt":$(ind_fnt%+4|
00004160  33 29 3d 24 28 66 6f 6e  74 5f 6c 69 73 74 25 2b  |3)=$(font_list%+|
00004170  74 65 78 74 5f 61 78 69  73 63 2a 34 30 29 3a 24  |text_axisc*40):$|
00004180  28 69 6e 64 5f 66 6e 74  25 2b 31 33 31 29 3d c3  |(ind_fnt%+131)=.|
00004190  74 65 78 74 5f 61 78 69  73 78 3a 24 28 69 6e 64  |text_axisx:$(ind|
000041a0  5f 66 6e 74 25 2b 31 34  34 29 3d c3 74 65 78 74  |_fnt%+144)=.text|
000041b0  5f 61 78 69 73 79 3a 66  6f 6e 74 5f 63 25 3d 74  |_axisy:font_c%=t|
000041c0  65 78 74 5f 61 78 69 73  63 3a 24 6d 65 6e 75 5f  |ext_axisc:$menu_|
000041d0  66 6f 6e 74 6c 69 73 74  25 3d 22 41 78 69 73 20  |fontlist%="Axis |
000041e0  66 6f 6e 74 22 3a f2 66  6f 6e 74 5f 74 69 63 6b  |font":.font_tick|
000041f0  6c 69 73 74 0d 11 12 b8  20 c9 32 3a 24 69 6e 64  |list.... .2:$ind|
00004200  5f 66 6e 74 25 3d 22 4b  65 79 20 66 6f 6e 74 22  |_fnt%="Key font"|
00004210  3a 24 28 69 6e 64 5f 66  6e 74 25 2b 34 33 29 3d  |:$(ind_fnt%+43)=|
00004220  24 28 66 6f 6e 74 5f 6c  69 73 74 25 2b 74 65 78  |$(font_list%+tex|
00004230  74 5f 6b 65 79 63 2a 34  30 29 3a 24 28 69 6e 64  |t_keyc*40):$(ind|
00004240  5f 66 6e 74 25 2b 31 33  31 29 3d c3 74 65 78 74  |_fnt%+131)=.text|
00004250  5f 6b 65 79 78 3a 24 28  69 6e 64 5f 66 6e 74 25  |_keyx:$(ind_fnt%|
00004260  2b 31 34 34 29 3d c3 74  65 78 74 5f 6b 65 79 79  |+144)=.text_keyy|
00004270  3a 66 6f 6e 74 5f 63 25  3d 74 65 78 74 5f 6b 65  |:font_c%=text_ke|
00004280  79 63 3a 24 6d 65 6e 75  5f 66 6f 6e 74 6c 69 73  |yc:$menu_fontlis|
00004290  74 25 3d 22 4b 65 79 20  66 6f 6e 74 22 3a f2 66  |t%="Key font":.f|
000042a0  6f 6e 74 5f 74 69 63 6b  6c 69 73 74 0d 11 1c 05  |ont_ticklist....|
000042b0  cb 0d 11 26 05 e1 0d 11  30 05 3a 0d 11 3a 13 dd  |...&....0.:..:..|
000042c0  f2 66 6f 6e 74 5f 74 69  63 6b 6c 69 73 74 0d 11  |.font_ticklist..|
000042d0  44 5c e3 4e 3d 30 b8 66  6f 6e 74 5f 63 6f 75 6e  |D\.N=0.font_coun|
000042e0  74 65 72 25 3a 6d 65 6e  75 5f 66 6f 6e 74 6c 69  |ter%:menu_fontli|
000042f0  73 74 25 21 28 32 38 2b  4e 2a 32 34 29 3d 30 3a  |st%!(28+N*24)=0:|
00004300  ed 3a 6d 65 6e 75 5f 66  6f 6e 74 6c 69 73 74 25  |.:menu_fontlist%|
00004310  21 28 32 38 2b 66 6f 6e  74 5f 63 6f 75 6e 74 65  |!(28+font_counte|
00004320  72 25 2a 32 34 29 3d 31  32 38 0d 11 4e 25 6d 65  |r%*24)=128..N%me|
00004330  6e 75 5f 66 6f 6e 74 6c  69 73 74 25 21 28 32 38  |nu_fontlist%!(28|
00004340  2b 66 6f 6e 74 5f 63 25  2a 32 34 29 2b 3d 31 0d  |+font_c%*24)+=1.|
00004350  11 58 05 e1 0d 11 62 05  3a 0d 11 6c 14 dd f2 70  |.X....b.:..l...p|
00004360  61 6e 65 5f 63 61 6c 63  75 6c 61 74 65 0d 11 76  |ane_calculate..v|
00004370  18 21 62 6c 6f 63 6b 25  3d 68 61 6e 64 6c 65 5f  |.!block%=handle_|
00004380  70 61 6e 65 25 0d 11 80  4b 62 6c 6f 63 6b 25 21  |pane%...Kblock%!|
00004390  34 3d 31 3a 62 6c 6f 63  6b 25 21 31 32 3d 26 32  |4=1:block%!12=&2|
000043a0  30 30 30 30 30 3a e7 67  72 61 70 68 5f 74 69 74  |00000:.graph_tit|
000043b0  6c 65 25 3a 62 6c 6f 63  6b 25 21 38 3d 26 32 30  |le%:block%!8=&20|
000043c0  30 30 30 30 3a 8b 62 6c  6f 63 6b 25 21 38 3d 30  |0000:.block%!8=0|
000043d0  0d 11 8a 21 c8 99 22 57  69 6d 70 5f 53 65 74 49  |...!.."Wimp_SetI|
000043e0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
000043f0  25 0d 11 94 1b 24 28 69  6e 64 5f 70 6e 25 2b 32  |%....$(ind_pn%+2|
00004400  34 29 3d 24 73 5f 74 69  74 6c 65 25 0d 11 9e 39  |4)=$s_title%...9|
00004410  62 6c 6f 63 6b 25 21 34  3d 34 3a e7 67 72 61 70  |block%!4=4:.grap|
00004420  68 5f 78 61 78 69 73 25  3a 62 6c 6f 63 6b 25 21  |h_xaxis%:block%!|
00004430  38 3d 26 32 30 30 30 30  30 3a 8b 62 6c 6f 63 6b  |8=&200000:.block|
00004440  25 21 38 3d 30 0d 11 a8  21 c8 99 22 57 69 6d 70  |%!8=0...!.."Wimp|
00004450  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00004460  62 6c 6f 63 6b 25 0d 11  b2 1b 24 28 69 6e 64 5f  |block%....$(ind_|
00004470  70 6e 25 2b 39 38 29 3d  24 73 5f 78 61 78 69 73  |pn%+98)=$s_xaxis|
00004480  25 0d 11 bc 38 62 6c 6f  63 6b 25 21 34 3d 36 3a  |%...8block%!4=6:|
00004490  e7 67 72 61 70 68 5f 78  67 25 3d 31 3a 62 6c 6f  |.graph_xg%=1:blo|
000044a0  63 6b 25 21 38 3d 26 32  30 30 30 30 30 3a 8b 62  |ck%!8=&200000:.b|
000044b0  6c 6f 63 6b 25 21 38 3d  30 0d 11 c6 21 c8 99 22  |lock%!8=0...!.."|
000044c0  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
000044d0  65 22 2c 2c 62 6c 6f 63  6b 25 0d 11 d0 38 62 6c  |e",,block%...8bl|
000044e0  6f 63 6b 25 21 34 3d 37  3a e7 67 72 61 70 68 5f  |ock%!4=7:.graph_|
000044f0  78 67 25 3d 32 3a 62 6c  6f 63 6b 25 21 38 3d 26  |xg%=2:block%!8=&|
00004500  32 30 30 30 30 30 3a 8b  62 6c 6f 63 6b 25 21 38  |200000:.block%!8|
00004510  3d 30 0d 11 da 21 c8 99  22 57 69 6d 70 5f 53 65  |=0...!.."Wimp_Se|
00004520  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00004530  63 6b 25 0d 11 e4 1e 24  28 69 6e 64 5f 70 6e 25  |ck%....$(ind_pn%|
00004540  2b 32 31 32 29 3d c3 67  72 61 70 68 5f 78 64 69  |+212)=.graph_xdi|
00004550  76 0d 11 ee 1f 24 28 69  6e 64 5f 70 6e 25 2b 32  |v....$(ind_pn%+2|
00004560  34 34 29 3d c3 67 72 61  70 68 5f 78 73 64 69 76  |44)=.graph_xsdiv|
00004570  0d 11 f8 39 62 6c 6f 63  6b 25 21 34 3d 31 32 3a  |...9block%!4=12:|
00004580  e7 67 72 61 70 68 5f 78  63 61 6c 25 3a 62 6c 6f  |.graph_xcal%:blo|
00004590  63 6b 25 21 38 3d 26 32  30 30 30 30 30 3a 8b 62  |ck%!8=&200000:.b|
000045a0  6c 6f 63 6b 25 21 38 3d  30 0d 12 02 21 c8 99 22  |lock%!8=0...!.."|
000045b0  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
000045c0  65 22 2c 2c 62 6c 6f 63  6b 25 0d 12 0c 1d 24 28  |e",,block%....$(|
000045d0  69 6e 64 5f 70 6e 25 2b  32 39 39 29 3d c3 64 61  |ind_pn%+299)=.da|
000045e0  74 61 5f 78 6d 69 6e 0d  12 16 1d 24 28 69 6e 64  |ta_xmin....$(ind|
000045f0  5f 70 6e 25 2b 33 31 38  29 3d c3 64 61 74 61 5f  |_pn%+318)=.data_|
00004600  78 6d 61 78 0d 12 20 3a  62 6c 6f 63 6b 25 21 34  |xmax.. :block%!4|
00004610  3d 31 38 3a e7 67 72 61  70 68 5f 79 61 78 69 73  |=18:.graph_yaxis|
00004620  25 3a 62 6c 6f 63 6b 25  21 38 3d 26 32 30 30 30  |%:block%!8=&2000|
00004630  30 30 3a 8b 62 6c 6f 63  6b 25 21 38 3d 30 0d 12  |00:.block%!8=0..|
00004640  2a 21 c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |*!.."Wimp_SetIco|
00004650  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |nState",,block%.|
00004660  12 34 1c 24 28 69 6e 64  5f 70 6e 25 2b 33 36 38  |.4.$(ind_pn%+368|
00004670  29 3d 24 73 5f 79 61 78  69 73 25 0d 12 3e 39 62  |)=$s_yaxis%..>9b|
00004680  6c 6f 63 6b 25 21 34 3d  32 30 3a e7 67 72 61 70  |lock%!4=20:.grap|
00004690  68 5f 79 67 25 3d 31 3a  62 6c 6f 63 6b 25 21 38  |h_yg%=1:block%!8|
000046a0  3d 26 32 30 30 30 30 30  3a 8b 62 6c 6f 63 6b 25  |=&200000:.block%|
000046b0  21 38 3d 30 0d 12 48 21  c8 99 22 57 69 6d 70 5f  |!8=0..H!.."Wimp_|
000046c0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |SetIconState",,b|
000046d0  6c 6f 63 6b 25 0d 12 52  39 62 6c 6f 63 6b 25 21  |lock%..R9block%!|
000046e0  34 3d 32 31 3a e7 67 72  61 70 68 5f 79 67 25 3d  |4=21:.graph_yg%=|
000046f0  32 3a 62 6c 6f 63 6b 25  21 38 3d 26 32 30 30 30  |2:block%!8=&2000|
00004700  30 30 3a 8b 62 6c 6f 63  6b 25 21 38 3d 30 0d 12  |00:.block%!8=0..|
00004710  5c 21 c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |\!.."Wimp_SetIco|
00004720  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |nState",,block%.|
00004730  12 66 1e 24 28 69 6e 64  5f 70 6e 25 2b 34 38 32  |.f.$(ind_pn%+482|
00004740  29 3d c3 67 72 61 70 68  5f 79 64 69 76 0d 12 70  |)=.graph_ydiv..p|
00004750  1f 24 28 69 6e 64 5f 70  6e 25 2b 35 31 34 29 3d  |.$(ind_pn%+514)=|
00004760  c3 67 72 61 70 68 5f 79  73 64 69 76 0d 12 7a 39  |.graph_ysdiv..z9|
00004770  62 6c 6f 63 6b 25 21 34  3d 32 36 3a e7 67 72 61  |block%!4=26:.gra|
00004780  70 68 5f 79 63 61 6c 25  3a 62 6c 6f 63 6b 25 21  |ph_ycal%:block%!|
00004790  38 3d 26 32 30 30 30 30  30 3a 8b 62 6c 6f 63 6b  |8=&200000:.block|
000047a0  25 21 38 3d 30 0d 12 84  21 c8 99 22 57 69 6d 70  |%!8=0...!.."Wimp|
000047b0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
000047c0  62 6c 6f 63 6b 25 0d 12  8e 1d 24 28 69 6e 64 5f  |block%....$(ind_|
000047d0  70 6e 25 2b 35 36 39 29  3d c3 64 61 74 61 5f 79  |pn%+569)=.data_y|
000047e0  6d 69 6e 0d 12 98 1d 24  28 69 6e 64 5f 70 6e 25  |min....$(ind_pn%|
000047f0  2b 35 38 38 29 3d c3 64  61 74 61 5f 79 6d 61 78  |+588)=.data_ymax|
00004800  0d 12 a2 3e 62 6c 6f 63  6b 25 21 38 3d 30 3a e3  |...>block%!8=0:.|
00004810  62 6c 6f 63 6b 25 21 34  3d 33 33 b8 33 37 3a c8  |block%!4=33.37:.|
00004820  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
00004830  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 3a ed 0d 12  |ate",,block%:...|
00004840  ac 50 62 6c 6f 63 6b 25  21 34 3d 33 32 2b 67 72  |.Pblock%!4=32+gr|
00004850  61 70 68 5f 62 61 72 74  79 70 65 25 83 31 30 3a  |aph_bartype%.10:|
00004860  62 6c 6f 63 6b 25 21 38  3d 26 32 30 30 30 30 30  |block%!8=&200000|
00004870  3a c8 99 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |:.."Wimp_SetIcon|
00004880  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 12  |State",,block%..|
00004890  b6 44 62 6c 6f 63 6b 25  21 34 3d 33 38 3a e7 28  |.Dblock%!4=38:.(|
000048a0  67 72 61 70 68 5f 62 61  72 6d 61 72 67 69 6e 25  |graph_barmargin%|
000048b0  80 31 29 3d 31 3a 62 6c  6f 63 6b 25 21 38 3d 26  |.1)=1:block%!8=&|
000048c0  32 30 30 30 30 30 3a 8b  62 6c 6f 63 6b 25 21 38  |200000:.block%!8|
000048d0  3d 30 0d 12 c0 21 c8 99  22 57 69 6d 70 5f 53 65  |=0...!.."Wimp_Se|
000048e0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
000048f0  63 6b 25 0d 12 ca 48 62  6c 6f 63 6b 25 21 34 3d  |ck%...Hblock%!4=|
00004900  33 39 3a e7 28 67 72 61  70 68 5f 62 61 72 6d 61  |39:.(graph_barma|
00004910  72 67 69 6e 25 80 31 32  38 29 3d 31 32 38 3a 62  |rgin%.128)=128:b|
00004920  6c 6f 63 6b 25 21 38 3d  26 32 30 30 30 30 30 3a  |lock%!8=&200000:|
00004930  8b 62 6c 6f 63 6b 25 21  38 3d 30 0d 12 d4 21 c8  |.block%!8=0...!.|
00004940  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
00004950  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 12 de 3f  |ate",,block%...?|
00004960  62 6c 6f 63 6b 25 21 34  3d 34 30 3a e7 67 72 61  |block%!4=40:.gra|
00004970  70 68 5f 62 61 72 74 79  70 65 25 3c 31 30 3a 62  |ph_bartype%<10:b|
00004980  6c 6f 63 6b 25 21 38 3d  26 32 30 30 30 30 30 3a  |lock%!8=&200000:|
00004990  8b 62 6c 6f 63 6b 25 21  38 3d 30 0d 12 e8 21 c8  |.block%!8=0...!.|
000049a0  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
000049b0  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 12 f2 3f  |ate",,block%...?|
000049c0  62 6c 6f 63 6b 25 21 34  3d 34 31 3a e7 67 72 61  |block%!4=41:.gra|
000049d0  70 68 5f 62 61 72 74 79  70 65 25 3e 31 30 3a 62  |ph_bartype%>10:b|
000049e0  6c 6f 63 6b 25 21 38 3d  26 32 30 30 30 30 30 3a  |lock%!8=&200000:|
000049f0  8b 62 6c 6f 63 6b 25 21  38 3d 30 0d 12 fc 21 c8  |.block%!8=0...!.|
00004a00  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
00004a10  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 13 06 38  |ate",,block%...8|
00004a20  62 6c 6f 63 6b 25 21 34  3d 34 33 3a e7 67 72 61  |block%!4=43:.gra|
00004a30  70 68 5f 65 78 70 25 3a  62 6c 6f 63 6b 25 21 38  |ph_exp%:block%!8|
00004a40  3d 26 32 30 30 30 30 30  3a 8b 62 6c 6f 63 6b 25  |=&200000:.block%|
00004a50  21 38 3d 30 0d 13 10 21  c8 99 22 57 69 6d 70 5f  |!8=0...!.."Wimp_|
00004a60  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |SetIconState",,b|
00004a70  6c 6f 63 6b 25 0d 13 1a  1d 24 28 69 6e 64 5f 70  |lock%....$(ind_p|
00004a80  6e 25 2b 39 37 31 29 3d  c3 67 72 61 70 68 5f 65  |n%+971)=.graph_e|
00004a90  73 25 0d 13 24 1d 24 28  69 6e 64 5f 70 6e 25 2b  |s%..$.$(ind_pn%+|
00004aa0  39 38 33 29 3d c3 67 72  61 70 68 5f 65 66 25 0d  |983)=.graph_ef%.|
00004ab0  13 2e 13 66 6c 61 67 5f  66 69 64 64 6c 65 64 25  |...flag_fiddled%|
00004ac0  3d a3 0d 13 38 37 62 6c  6f 63 6b 25 21 38 3d 30  |=...87block%!8=0|
00004ad0  3a 62 6c 6f 63 6b 25 21  34 3d 32 3a c8 99 22 57  |:block%!4=2:.."W|
00004ae0  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00004af0  22 2c 2c 62 6c 6f 63 6b  25 0d 13 42 2c 62 6c 6f  |",,block%..B,blo|
00004b00  63 6b 25 21 34 3d 35 3a  c8 99 22 57 69 6d 70 5f  |ck%!4=5:.."Wimp_|
00004b10  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |SetIconState",,b|
00004b20  6c 6f 63 6b 25 0d 13 4c  2c 62 6c 6f 63 6b 25 21  |lock%..L,block%!|
00004b30  34 3d 39 3a c8 99 22 57  69 6d 70 5f 53 65 74 49  |4=9:.."Wimp_SetI|
00004b40  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00004b50  25 0d 13 56 2d 62 6c 6f  63 6b 25 21 34 3d 31 31  |%..V-block%!4=11|
00004b60  3a c8 99 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |:.."Wimp_SetIcon|
00004b70  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 13  |State",,block%..|
00004b80  60 2d 62 6c 6f 63 6b 25  21 34 3d 31 34 3a c8 99  |`-block%!4=14:..|
00004b90  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00004ba0  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 13 6a 2d 62  |te",,block%..j-b|
00004bb0  6c 6f 63 6b 25 21 34 3d  31 36 3a c8 99 22 57 69  |lock%!4=16:.."Wi|
00004bc0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00004bd0  2c 2c 62 6c 6f 63 6b 25  0d 13 74 2d 62 6c 6f 63  |,,block%..t-bloc|
00004be0  6b 25 21 34 3d 31 39 3a  c8 99 22 57 69 6d 70 5f  |k%!4=19:.."Wimp_|
00004bf0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |SetIconState",,b|
00004c00  6c 6f 63 6b 25 0d 13 7e  2d 62 6c 6f 63 6b 25 21  |lock%..~-block%!|
00004c10  34 3d 32 33 3a c8 99 22  57 69 6d 70 5f 53 65 74  |4=23:.."Wimp_Set|
00004c20  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |IconState",,bloc|
00004c30  6b 25 0d 13 88 2d 62 6c  6f 63 6b 25 21 34 3d 32  |k%...-block%!4=2|
00004c40  35 3a c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |5:.."Wimp_SetIco|
00004c50  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |nState",,block%.|
00004c60  13 92 2d 62 6c 6f 63 6b  25 21 34 3d 32 38 3a c8  |..-block%!4=28:.|
00004c70  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
00004c80  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 13 9c 2d  |ate",,block%...-|
00004c90  62 6c 6f 63 6b 25 21 34  3d 33 30 3a c8 99 22 57  |block%!4=30:.."W|
00004ca0  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00004cb0  22 2c 2c 62 6c 6f 63 6b  25 0d 13 a6 2d 62 6c 6f  |",,block%...-blo|
00004cc0  63 6b 25 21 34 3d 34 36  3a c8 99 22 57 69 6d 70  |ck%!4=46:.."Wimp|
00004cd0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00004ce0  62 6c 6f 63 6b 25 0d 13  b0 2d 62 6c 6f 63 6b 25  |block%...-block%|
00004cf0  21 34 3d 35 30 3a c8 99  22 57 69 6d 70 5f 53 65  |!4=50:.."Wimp_Se|
00004d00  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00004d10  63 6b 25 0d 13 ba 05 e1  0d 13 c4 05 3a 0d 13 ce  |ck%.........:...|
00004d20  14 dd f2 6d 65 6e 75 5f  73 65 6c 65 63 74 69 6f  |...menu_selectio|
00004d30  6e 0d 13 d8 14 c8 8e 6d  65 6e 75 5f 63 75 72 72  |n......menu_curr|
00004d40  65 6e 74 25 ca 0d 13 e2  18 20 c9 31 3a f2 6d 65  |ent%..... .1:.me|
00004d50  6e 75 5f 73 65 6c 65 63  74 69 63 6f 6e 0d 13 ec  |nu_selecticon...|
00004d60  1a 20 c9 32 3a f2 6d 65  6e 75 5f 77 69 6e 73 65  |. .2:.menu_winse|
00004d70  6c 65 63 74 69 6f 6e 0d  13 f6 05 cb 0d 14 00 05  |lection.........|
00004d80  e1 0d 14 0a 05 3a 0d 14  14 15 dd f2 6d 65 6e 75  |.....:......menu|
00004d90  5f 73 65 6c 65 63 74 69  63 6f 6e 0d 14 1e 0e c8  |_selecticon.....|
00004da0  8e 70 6f 6c 6c 25 21 30  ca 0d 14 28 19 20 c9 31  |.poll%!0...(. .1|
00004db0  3a f2 6d 65 6e 75 5f 73  65 6c 65 63 74 73 74 79  |:.menu_selectsty|
00004dc0  6c 65 0d 14 32 18 20 c9  33 3a f2 6d 65 6e 75 5f  |le..2. .3:.menu_|
00004dd0  73 65 6c 65 63 74 66 69  6c 65 0d 14 3c 18 20 c9  |selectfile..<. .|
00004de0  34 3a f2 67 72 61 70 68  5f 73 65 6c 65 63 74 28  |4:.graph_select(|
00004df0  31 29 0d 14 46 18 20 c9  35 3a f2 67 72 61 70 68  |1)..F. .5:.graph|
00004e00  5f 73 65 6c 65 63 74 28  32 29 0d 14 50 18 20 c9  |_select(2)..P. .|
00004e10  36 3a f2 67 72 61 70 68  5f 73 65 6c 65 63 74 28  |6:.graph_select(|
00004e20  33 29 0d 14 5a 18 20 c9  37 3a f2 67 72 61 70 68  |3)..Z. .7:.graph|
00004e30  5f 73 65 6c 65 63 74 28  34 29 0d 14 64 18 20 c9  |_select(4)..d. .|
00004e40  38 3a f2 62 79 65 62 79  65 5f 73 68 75 74 64 6f  |8:.byebye_shutdo|
00004e50  77 6e 0d 14 6e 05 cb 0d  14 78 3d c8 99 22 57 69  |wn..n....x=.."Wi|
00004e60  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00004e70  6f 22 2c 2c 62 6c 6f 63  6b 25 3a e7 62 6c 6f 63  |o",,block%:.bloc|
00004e80  6b 25 21 38 3d 31 3a f2  6d 65 6e 75 5f 69 63 6f  |k%!8=1:.menu_ico|
00004e90  6e 62 61 72 0d 14 82 05  e1 0d 14 8c 05 3a 0d 14  |nbar.........:..|
00004ea0  96 17 dd f2 6d 65 6e 75  5f 77 69 6e 73 65 6c 65  |....menu_winsele|
00004eb0  63 74 69 6f 6e 0d 14 a0  0e c8 8e 70 6f 6c 6c 25  |ction......poll%|
00004ec0  21 30 ca 0d 14 aa 19 20  c9 30 3a f2 6d 65 6e 75  |!0..... .0:.menu|
00004ed0  5f 73 65 6c 65 63 74 73  74 79 6c 65 0d 14 b4 18  |_selectstyle....|
00004ee0  20 c9 32 3a f2 6d 65 6e  75 5f 73 65 6c 65 63 74  | .2:.menu_select|
00004ef0  66 69 6c 65 0d 14 be 18  20 c9 33 3a f2 67 72 61  |file.... .3:.gra|
00004f00  70 68 5f 73 65 6c 65 63  74 28 31 29 0d 14 c8 18  |ph_select(1)....|
00004f10  20 c9 34 3a f2 67 72 61  70 68 5f 73 65 6c 65 63  | .4:.graph_selec|
00004f20  74 28 32 29 0d 14 d2 18  20 c9 35 3a f2 67 72 61  |t(2).... .5:.gra|
00004f30  70 68 5f 73 65 6c 65 63  74 28 33 29 0d 14 dc 18  |ph_select(3)....|
00004f40  20 c9 36 3a f2 67 72 61  70 68 5f 73 65 6c 65 63  | .6:.graph_selec|
00004f50  74 28 34 29 0d 14 e6 05  cb 0d 14 f0 3c c8 99 22  |t(4)........<.."|
00004f60  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00004f70  6e 66 6f 22 2c 2c 62 6c  6f 63 6b 25 3a e7 62 6c  |nfo",,block%:.bl|
00004f80  6f 63 6b 25 21 38 3d 31  3a f2 6d 65 6e 75 5f 66  |ock%!8=1:.menu_f|
00004f90  6f 72 6d 61 74 0d 14 fa  05 e1 0d 15 04 05 3a 0d  |ormat.........:.|
00004fa0  15 0e 16 dd f2 6d 65 6e  75 5f 73 65 6c 65 63 74  |.....menu_select|
00004fb0  73 74 79 6c 65 0d 15 18  0e c8 8e 70 6f 6c 6c 25  |style......poll%|
00004fc0  21 34 ca 0d 15 22 12 20  c9 30 3a f2 73 74 79 6c  |!4...". .0:.styl|
00004fd0  65 5f 6b 65 79 0d 15 2c  12 20 c9 31 3a f2 73 74  |e_key..,. .1:.st|
00004fe0  79 6c 65 5f 62 6f 78 0d  15 36 19 20 c9 32 3a f2  |yle_box..6. .2:.|
00004ff0  73 74 79 6c 65 5f 66 6f  6e 74 73 65 6c 65 63 74  |style_fontselect|
00005000  0d 15 40 14 20 c9 33 3a  f2 62 65 73 74 5f 73 65  |..@. .3:.best_se|
00005010  6c 65 63 74 0d 15 4a 11  20 c9 35 3a f2 73 74 79  |lect..J. .5:.sty|
00005020  6c 65 5f 33 44 0d 15 54  16 20 c9 36 3a f2 73 74  |le_3D..T. .6:.st|
00005030  79 6c 65 5f 6f 75 74 6c  69 6e 65 0d 15 5e 05 cb  |yle_outline..^..|
00005040  0d 15 68 05 e1 0d 15 72  05 3a 0d 15 7c 15 dd f2  |..h....r.:..|...|
00005050  6d 65 6e 75 5f 73 65 6c  65 63 74 66 69 6c 65 0d  |menu_selectfile.|
00005060  15 86 0e c8 8e 70 6f 6c  6c 25 21 34 ca 0d 15 90  |.....poll%!4....|
00005070  14 20 c9 30 3a f2 73 61  76 65 5f 74 65 6d 70 4f  |. .0:.save_tempO|
00005080  4b 0d 15 9a 15 20 c9 32  3a f2 66 69 6c 65 5f 64  |K.... .2:.file_d|
00005090  65 66 61 75 6c 74 0d 15  a4 05 cb 0d 15 ae 05 e1  |efault..........|
000050a0  0d 15 b8 05 3a 0d 15 c2  10 dd f2 6d 65 6e 75 5f  |....:......menu_|
000050b0  67 72 6f 75 70 0d 15 cc  18 4e 25 3d 31 3a e7 62  |group....N%=1:.b|
000050c0  75 74 74 6f 6e 25 3d 31  4e 25 3d 2d 31 0d 15 d6  |utton%=1N%=-1...|
000050d0  1b e7 69 63 6f 6e 25 3d  35 3a f2 67 72 6f 75 70  |..icon%=5:.group|
000050e0  5f 70 6f 28 2d 4e 25 29  0d 15 e0 1a e7 69 63 6f  |_po(-N%).....ico|
000050f0  6e 25 3d 37 3a f2 67 72  6f 75 70 5f 70 6f 28 4e  |n%=7:.group_po(N|
00005100  25 29 0d 15 ea 1b e7 69  63 6f 6e 25 3d 39 3a f2  |%).....icon%=9:.|
00005110  67 72 6f 75 70 5f 73 69  28 2d 4e 25 29 0d 15 f4  |group_si(-N%)...|
00005120  1b e7 69 63 6f 6e 25 3d  31 31 3a f2 67 72 6f 75  |..icon%=11:.grou|
00005130  70 5f 73 69 28 4e 25 29  0d 15 fe 1b e7 69 63 6f  |p_si(N%).....ico|
00005140  6e 25 3d 31 32 3a f2 67  72 6f 75 70 5f 72 28 2d  |n%=12:.group_r(-|
00005150  4e 25 29 0d 16 08 1a e7  69 63 6f 6e 25 3d 31 33  |N%).....icon%=13|
00005160  3a f2 67 72 6f 75 70 5f  72 28 4e 25 29 0d 16 12  |:.group_r(N%)...|
00005170  1b e7 69 63 6f 6e 25 3d  31 38 3a f2 67 72 6f 75  |..icon%=18:.grou|
00005180  70 5f 67 28 2d 4e 25 29  0d 16 1c 1a e7 69 63 6f  |p_g(-N%).....ico|
00005190  6e 25 3d 31 39 3a f2 67  72 6f 75 70 5f 67 28 4e  |n%=19:.group_g(N|
000051a0  25 29 0d 16 26 1b e7 69  63 6f 6e 25 3d 32 34 3a  |%)..&..icon%=24:|
000051b0  f2 67 72 6f 75 70 5f 62  28 2d 4e 25 29 0d 16 30  |.group_b(-N%)..0|
000051c0  1a e7 69 63 6f 6e 25 3d  32 35 3a f2 67 72 6f 75  |..icon%=25:.grou|
000051d0  70 5f 62 28 4e 25 29 0d  16 3a 1b e7 69 63 6f 6e  |p_b(N%)..:..icon|
000051e0  25 3d 31 36 3a f2 67 72  6f 75 70 5f 72 63 6c 69  |%=16:.group_rcli|
000051f0  63 6b 0d 16 44 1b e7 69  63 6f 6e 25 3d 32 32 3a  |ck..D..icon%=22:|
00005200  f2 67 72 6f 75 70 5f 62  63 6c 69 63 6b 0d 16 4e  |.group_bclick..N|
00005210  1b e7 69 63 6f 6e 25 3d  32 38 3a f2 67 72 6f 75  |..icon%=28:.grou|
00005220  70 5f 67 63 6c 69 63 6b  0d 16 58 2c e7 69 63 6f  |p_gclick..X,.ico|
00005230  6e 25 3e 3d 33 30 80 69  63 6f 6e 25 3c 3d 34 35  |n%>=30.icon%<=45|
00005240  3a f2 67 72 6f 75 70 5f  63 6c 28 69 63 6f 6e 25  |:.group_cl(icon%|
00005250  2d 33 30 29 0d 16 62 19  e7 69 63 6f 6e 25 3d 34  |-30)..b..icon%=4|
00005260  39 3a f2 67 72 6f 75 70  5f 74 28 30 29 0d 16 6c  |9:.group_t(0)..l|
00005270  1b e7 69 63 6f 6e 25 3d  35 30 3a f2 67 72 6f 75  |..icon%=50:.grou|
00005280  70 5f 74 28 2e 32 35 29  0d 16 76 1a e7 69 63 6f  |p_t(.25)..v..ico|
00005290  6e 25 3d 35 31 3a f2 67  72 6f 75 70 5f 74 28 2e  |n%=51:.group_t(.|
000052a0  35 29 0d 16 80 19 e7 69  63 6f 6e 25 3d 35 32 3a  |5).....icon%=52:|
000052b0  f2 67 72 6f 75 70 5f 74  28 31 29 0d 16 8a 19 e7  |.group_t(1).....|
000052c0  69 63 6f 6e 25 3d 35 33  3a f2 67 72 6f 75 70 5f  |icon%=53:.group_|
000052d0  74 28 32 29 0d 16 94 19  e7 69 63 6f 6e 25 3d 35  |t(2).....icon%=5|
000052e0  34 3a f2 67 72 6f 75 70  5f 74 28 34 29 0d 16 9e  |4:.group_t(4)...|
000052f0  2c e7 69 63 6f 6e 25 3e  3d 35 38 80 69 63 6f 6e  |,.icon%>=58.icon|
00005300  25 3c 3d 36 31 3a f2 67  72 6f 75 70 5f 6c 6e 28  |%<=61:.group_ln(|
00005310  69 63 6f 6e 25 2d 35 37  29 0d 16 a8 42 e7 69 63  |icon%-57)...B.ic|
00005320  6f 6e 25 3d 36 36 3a f2  6d 65 6e 75 5f 72 65 6f  |on%=66:.menu_reo|
00005330  70 65 6e 67 72 6f 75 70  3a e7 62 75 74 74 6f 6e  |pengroup:.button|
00005340  25 3d 34 3a c8 99 22 57  69 6d 70 5f 43 72 65 61  |%=4:.."Wimp_Crea|
00005350  74 65 4d 65 6e 75 22 2c  2c 2d 31 0d 16 b2 17 e7  |teMenu",,-1.....|
00005360  69 63 6f 6e 25 3d 36 37  3a f2 67 72 6f 75 70 5f  |icon%=67:.group_|
00005370  4f 4b 0d 16 bc 05 e1 0d  16 c6 05 3a 0d 16 d0 0e  |OK.........:....|
00005380  dd f2 6d 65 6e 75 5f 6d  61 70 0d 16 da 18 4e 25  |..menu_map....N%|
00005390  3d 31 3a e7 62 75 74 74  6f 6e 25 3d 31 4e 25 3d  |=1:.button%=1N%=|
000053a0  2d 31 0d 16 e4 19 e7 69  63 6f 6e 25 3d 36 3a f2  |-1.....icon%=6:.|
000053b0  6d 61 70 5f 67 72 28 2d  4e 25 29 0d 16 ee 18 e7  |map_gr(-N%).....|
000053c0  69 63 6f 6e 25 3d 38 3a  f2 6d 61 70 5f 67 72 28  |icon%=8:.map_gr(|
000053d0  4e 25 29 0d 16 f8 3f e7  69 63 6f 6e 25 3d 31 32  |N%)...?.icon%=12|
000053e0  3a f2 6d 65 6e 75 5f 72  65 6f 70 65 6e 6d 61 70  |:.menu_reopenmap|
000053f0  3a e7 62 75 74 74 6f 6e  25 3d 34 3a c8 99 22 57  |:.button%=4:.."W|
00005400  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00005410  2d 31 0d 17 02 15 e7 69  63 6f 6e 25 3d 31 33 3a  |-1.....icon%=13:|
00005420  f2 6d 61 70 5f 4f 4b 0d  17 0c 05 e1 0d 17 16 05  |.map_OK.........|
00005430  3a 0d 17 20 10 dd f2 6d  65 6e 75 5f 6c 61 62 65  |:.. ...menu_labe|
00005440  6c 0d 17 2a 18 4e 25 3d  31 3a e7 62 75 74 74 6f  |l..*.N%=1:.butto|
00005450  6e 25 3d 31 4e 25 3d 2d  31 0d 17 34 1b e7 69 63  |n%=1N%=-1..4..ic|
00005460  6f 6e 25 3d 36 3a f2 6c  61 62 65 6c 5f 67 72 28  |on%=6:.label_gr(|
00005470  2d 4e 25 29 0d 17 3e 1a  e7 69 63 6f 6e 25 3d 38  |-N%)..>..icon%=8|
00005480  3a f2 6c 61 62 65 6c 5f  67 72 28 4e 25 29 0d 17  |:.label_gr(N%)..|
00005490  48 40 e7 69 63 6f 6e 25  3d 39 3a f2 6d 65 6e 75  |H@.icon%=9:.menu|
000054a0  5f 72 65 6f 70 65 6e 6c  61 62 65 6c 3a e7 62 75  |_reopenlabel:.bu|
000054b0  74 74 6f 6e 25 3d 34 3a  c8 99 22 57 69 6d 70 5f  |tton%=4:.."Wimp_|
000054c0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2d 31 0d 17  |CreateMenu",-1..|
000054d0  52 17 e7 69 63 6f 6e 25  3d 31 30 3a f2 6c 61 62  |R..icon%=10:.lab|
000054e0  65 6c 5f 4f 4b 0d 17 5c  05 e1 0d 17 66 05 3a 0d  |el_OK..\....f.:.|
000054f0  17 70 0f dd f2 6d 65 6e  75 5f 62 61 63 6b 0d 17  |.p...menu_back..|
00005500  7a 18 4e 25 3d 31 3a e7  62 75 74 74 6f 6e 25 3d  |z.N%=1:.button%=|
00005510  31 4e 25 3d 2d 31 0d 17  84 19 e7 69 63 6f 6e 25  |1N%=-1.....icon%|
00005520  3d 33 3a f2 62 61 63 6b  5f 72 28 2d 4e 25 29 0d  |=3:.back_r(-N%).|
00005530  17 8e 18 e7 69 63 6f 6e  25 3d 34 3a f2 62 61 63  |....icon%=4:.bac|
00005540  6b 5f 72 28 4e 25 29 0d  17 98 19 e7 69 63 6f 6e  |k_r(N%).....icon|
00005550  25 3d 37 3a f2 62 61 63  6b 5f 72 63 6c 69 63 6b  |%=7:.back_rclick|
00005560  0d 17 a2 1a e7 69 63 6f  6e 25 3d 31 33 3a f2 62  |.....icon%=13:.b|
00005570  61 63 6b 5f 62 63 6c 69  63 6b 0d 17 ac 1a e7 69  |ack_bclick.....i|
00005580  63 6f 6e 25 3d 31 39 3a  f2 62 61 63 6b 5f 67 63  |con%=19:.back_gc|
00005590  6c 69 63 6b 0d 17 b6 19  e7 69 63 6f 6e 25 3d 39  |lick.....icon%=9|
000055a0  3a f2 62 61 63 6b 5f 67  28 2d 4e 25 29 0d 17 c0  |:.back_g(-N%)...|
000055b0  19 e7 69 63 6f 6e 25 3d  31 30 3a f2 62 61 63 6b  |..icon%=10:.back|
000055c0  5f 67 28 4e 25 29 0d 17  ca 1a e7 69 63 6f 6e 25  |_g(N%).....icon%|
000055d0  3d 31 35 3a f2 62 61 63  6b 5f 62 28 2d 4e 25 29  |=15:.back_b(-N%)|
000055e0  0d 17 d4 19 e7 69 63 6f  6e 25 3d 31 36 3a f2 62  |.....icon%=16:.b|
000055f0  61 63 6b 5f 62 28 4e 25  29 0d 17 de 2b e7 69 63  |ack_b(N%)...+.ic|
00005600  6f 6e 25 3e 3d 32 31 80  69 63 6f 6e 25 3c 3d 33  |on%>=21.icon%<=3|
00005610  36 3a f2 62 61 63 6b 5f  63 6c 28 69 63 6f 6e 25  |6:.back_cl(icon%|
00005620  2d 32 31 29 0d 17 e8 41  e7 69 63 6f 6e 25 3d 33  |-21)...A.icon%=3|
00005630  37 3a f2 6d 65 6e 75 5f  72 65 6f 70 65 6e 62 61  |7:.menu_reopenba|
00005640  63 6b 3a e7 62 75 74 74  6f 6e 25 3d 34 3a c8 99  |ck:.button%=4:..|
00005650  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00005660  22 2c 2c 2d 31 0d 17 f2  16 e7 69 63 6f 6e 25 3d  |",,-1.....icon%=|
00005670  33 38 3a f2 62 61 63 6b  5f 4f 4b 0d 17 fc 05 e1  |38:.back_OK.....|
00005680  0d 18 06 05 3a 0d 18 10  0f dd f2 6d 65 6e 75 5f  |....:......menu_|
00005690  66 6f 6e 74 0d 18 1a 18  4e 25 3d 31 3a e7 62 75  |font....N%=1:.bu|
000056a0  74 74 6f 6e 25 3d 31 4e  25 3d 2d 31 0d 18 24 17  |tton%=1N%=-1..$.|
000056b0  e7 69 63 6f 6e 25 3d 35  3a f2 66 6f 6e 74 5f 6c  |.icon%=5:.font_l|
000056c0  69 73 74 0d 18 2e 22 e7  69 63 6f 6e 25 3d 38 3a  |ist...".icon%=8:|
000056d0  f2 66 6f 6e 74 5f 77 28  38 29 3a f2 66 6f 6e 74  |.font_w(8):.font|
000056e0  5f 68 28 38 29 0d 18 38  24 e7 69 63 6f 6e 25 3d  |_h(8)..8$.icon%=|
000056f0  39 3a f2 66 6f 6e 74 5f  77 28 31 30 29 3a f2 66  |9:.font_w(10):.f|
00005700  6f 6e 74 5f 68 28 31 30  29 0d 18 42 25 e7 69 63  |ont_h(10)..B%.ic|
00005710  6f 6e 25 3d 31 30 3a f2  66 6f 6e 74 5f 77 28 31  |on%=10:.font_w(1|
00005720  32 29 3a f2 66 6f 6e 74  5f 68 28 31 32 29 0d 18  |2):.font_h(12)..|
00005730  4c 25 e7 69 63 6f 6e 25  3d 31 31 3a f2 66 6f 6e  |L%.icon%=11:.fon|
00005740  74 5f 77 28 31 34 29 3a  f2 66 6f 6e 74 5f 68 28  |t_w(14):.font_h(|
00005750  31 34 29 0d 18 56 1b e7  69 63 6f 6e 25 3d 31 33  |14)..V..icon%=13|
00005760  3a f2 66 6f 6e 74 5f 77  69 28 2d 4e 25 29 0d 18  |:.font_wi(-N%)..|
00005770  60 1a e7 69 63 6f 6e 25  3d 31 35 3a f2 66 6f 6e  |`..icon%=15:.fon|
00005780  74 5f 77 69 28 4e 25 29  0d 18 6a 1b e7 69 63 6f  |t_wi(N%)..j..ico|
00005790  6e 25 3d 31 37 3a f2 66  6f 6e 74 5f 68 69 28 2d  |n%=17:.font_hi(-|
000057a0  4e 25 29 0d 18 74 1a e7  69 63 6f 6e 25 3d 31 39  |N%)..t..icon%=19|
000057b0  3a f2 66 6f 6e 74 5f 68  69 28 4e 25 29 0d 18 7e  |:.font_hi(N%)..~|
000057c0  41 e7 69 63 6f 6e 25 3d  32 30 3a f2 6d 65 6e 75  |A.icon%=20:.menu|
000057d0  5f 72 65 6f 70 65 6e 66  6f 6e 74 3a e7 62 75 74  |_reopenfont:.but|
000057e0  74 6f 6e 25 3d 34 3a c8  99 22 57 69 6d 70 5f 43  |ton%=4:.."Wimp_C|
000057f0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 2d 31 0d 18  |reateMenu",,-1..|
00005800  88 16 e7 69 63 6f 6e 25  3d 32 31 3a f2 66 6f 6e  |...icon%=21:.fon|
00005810  74 5f 4f 4b 0d 18 92 05  e1 0d 18 9c 05 3a 0d 18  |t_OK.........:..|
00005820  a6 12 dd f2 66 69 6c 65  5f 64 65 66 61 75 6c 74  |....file_default|
00005830  0d 18 b0 7f 4e 3d a4 6d  65 73 73 61 67 65 28 22  |....N=.message("|
00005840  43 6c 69 63 6b 20 6f 6e  20 4f 4b 20 74 6f 20 72  |Click on OK to r|
00005850  65 73 65 74 20 74 68 65  20 63 75 72 72 65 6e 74  |eset the current|
00005860  20 54 65 6d 70 6c 61 74  65 2e 20 57 61 72 6e 69  | Template. Warni|
00005870  6e 67 3a 20 54 68 69 73  20 63 61 6e 6e 6f 74 20  |ng: This cannot |
00005880  62 65 20 72 65 74 72 69  65 76 65 64 20 69 66 20  |be retrieved if |
00005890  68 61 73 20 6e 6f 74 20  62 65 65 6e 20 73 61 76  |has not been sav|
000058a0  65 64 2e 22 2c 33 29 3a  e7 4e 3c 3e 31 3a e1 0d  |ed.",3):.N<>1:..|
000058b0  18 ba 12 f2 69 6e 69 74  5f 74 65 6d 70 6c 61 74  |....init_templat|
000058c0  65 0d 18 c4 44 f2 70 61  6e 65 5f 63 61 6c 63 75  |e...D.pane_calcu|
000058d0  6c 61 74 65 3a c8 99 22  57 69 6d 70 5f 46 6f 72  |late:.."Wimp_For|
000058e0  63 65 52 65 64 72 61 77  22 2c 68 61 6e 64 6c 65  |ceRedraw",handle|
000058f0  5f 70 61 6e 65 25 2c 30  2c 2d 31 30 32 33 2c 31  |_pane%,0,-1023,1|
00005900  32 37 39 2c 30 0d 18 ce  05 e1 0d 18 d8 05 3a 0d  |279,0.........:.|
00005910  18 e2 13 dd f2 66 6f 72  6d 61 74 5f 73 65 6c 65  |.....format_sele|
00005920  63 74 0d 18 ec 1b e7 69  63 6f 6e 25 3d 34 3a f2  |ct.....icon%=4:.|
00005930  67 72 61 70 68 5f 73 61  76 65 62 6f 78 0d 18 f6  |graph_savebox...|
00005940  1c e7 69 63 6f 6e 25 3d  35 3a f2 70 61 6e 65 5f  |..icon%=5:.pane_|
00005950  63 61 6c 63 75 6c 61 74  65 0d 19 00 15 e7 69 63  |calculate.....ic|
00005960  6f 6e 25 3d 36 3a f2 70  61 6e 65 5f 4f 4b 0d 19  |on%=6:.pane_OK..|
00005970  0a 05 e1 0d 19 14 05 3a  0d 19 1e 11 dd f2 70 61  |.......:......pa|
00005980  6e 65 5f 73 65 6c 65 63  74 0d 19 28 18 4e 25 3d  |ne_select..(.N%=|
00005990  31 3a e7 62 75 74 74 6f  6e 25 3d 31 4e 25 3d 2d  |1:.button%=1N%=-|
000059a0  31 0d 19 32 1a e7 69 63  6f 6e 25 3d 34 35 3a f2  |1..2..icon%=45:.|
000059b0  70 61 6e 65 5f 73 28 2d  4e 25 29 0d 19 3c 19 e7  |pane_s(-N%)..<..|
000059c0  69 63 6f 6e 25 3d 34 37  3a f2 70 61 6e 65 5f 73  |icon%=47:.pane_s|
000059d0  28 4e 25 29 0d 19 46 1a  e7 69 63 6f 6e 25 3d 34  |(N%)..F..icon%=4|
000059e0  39 3a f2 70 61 6e 65 5f  66 28 2d 4e 25 29 0d 19  |9:.pane_f(-N%)..|
000059f0  50 19 e7 69 63 6f 6e 25  3d 35 31 3a f2 70 61 6e  |P..icon%=51:.pan|
00005a00  65 5f 66 28 4e 25 29 0d  19 5a 05 e1 0d 19 64 05  |e_f(N%)..Z....d.|
00005a10  3a 0d 19 6e 10 dd f2 70  69 65 5f 73 65 6c 65 63  |:..n...pie_selec|
00005a20  74 0d 19 78 18 4e 25 3d  31 3a e7 62 75 74 74 6f  |t..x.N%=1:.butto|
00005a30  6e 25 3d 31 4e 25 3d 2d  31 0d 19 82 18 e7 69 63  |n%=1N%=-1.....ic|
00005a40  6f 6e 25 3d 38 3a f2 70  69 65 5f 73 28 2d 4e 25  |on%=8:.pie_s(-N%|
00005a50  29 0d 19 8c 18 e7 69 63  6f 6e 25 3d 31 30 3a f2  |).....icon%=10:.|
00005a60  70 69 65 5f 73 28 4e 25  29 0d 19 96 19 e7 69 63  |pie_s(N%).....ic|
00005a70  6f 6e 25 3d 31 32 3a f2  70 69 65 5f 66 28 2d 4e  |on%=12:.pie_f(-N|
00005a80  25 29 0d 19 a0 18 e7 69  63 6f 6e 25 3d 31 34 3a  |%).....icon%=14:|
00005a90  f2 70 69 65 5f 66 28 4e  25 29 0d 19 aa 05 e1 0d  |.pie_f(N%)......|
00005aa0  19 b4 05 3a 0d 19 be 11  dd f2 67 72 6f 75 70 5f  |...:......group_|
00005ab0  70 6f 28 4e 29 0d 19 c8  14 4d 3d 69 6e 64 5f 67  |po(N)....M=ind_g|
00005ac0  72 70 25 3f 32 31 2d 34  39 0d 19 d2 12 e7 4d 2b  |rp%?21-49.....M+|
00005ad0  4e 3c 30 84 4d 2b 4e 3e  37 3a e1 0d 19 dc 08 4d  |N<0.M+N>7:.....M|
00005ae0  2b 3d 4e 0d 19 e6 14 69  6e 64 5f 67 72 70 25 3f  |+=N....ind_grp%?|
00005af0  32 31 3d 4d 2b 34 39 0d  19 f0 59 21 62 6c 6f 63  |21=M+49...Y!bloc|
00005b00  6b 25 3d 68 61 6e 64 6c  65 5f 67 72 6f 75 70 25  |k%=handle_group%|
00005b10  3a 62 6c 6f 63 6b 25 21  34 3d 36 3a 62 6c 6f 63  |:block%!4=6:bloc|
00005b20  6b 25 21 38 3d 30 3a 62  6c 6f 63 6b 25 21 31 32  |k%!8=0:block%!12|
00005b30  3d 30 3a c8 99 22 57 69  6d 70 5f 53 65 74 49 63  |=0:.."Wimp_SetIc|
00005b40  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
00005b50  0d 19 fa 05 e1 0d 1a 04  05 3a 0d 1a 0e 11 dd f2  |.........:......|
00005b60  67 72 6f 75 70 5f 73 69  28 4e 29 0d 1a 18 14 4d  |group_si(N)....M|
00005b70  3d 69 6e 64 5f 67 72 70  25 3f 32 36 2d 34 39 0d  |=ind_grp%?26-49.|
00005b80  1a 22 12 e7 4d 2b 4e 3c  30 84 4d 2b 4e 3e 38 3a  |."..M+N<0.M+N>8:|
00005b90  e1 0d 1a 2c 08 4d 2b 3d  4e 0d 1a 36 14 69 6e 64  |...,.M+=N..6.ind|
00005ba0  5f 67 72 70 25 3f 32 36  3d 4d 2b 34 39 0d 1a 40  |_grp%?26=M+49..@|
00005bb0  5a 21 62 6c 6f 63 6b 25  3d 68 61 6e 64 6c 65 5f  |Z!block%=handle_|
00005bc0  67 72 6f 75 70 25 3a 62  6c 6f 63 6b 25 21 34 3d  |group%:block%!4=|
00005bd0  31 30 3a 62 6c 6f 63 6b  25 21 38 3d 30 3a 62 6c  |10:block%!8=0:bl|
00005be0  6f 63 6b 25 21 31 32 3d  30 3a c8 99 22 57 69 6d  |ock%!12=0:.."Wim|
00005bf0  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00005c00  2c 62 6c 6f 63 6b 25 0d  1a 4a 05 e1 0d 1a 54 05  |,block%..J....T.|
00005c10  3a 0d 1a 5e 10 dd f2 67  72 6f 75 70 5f 72 28 4e  |:..^...group_r(N|
00005c20  29 0d 1a 68 15 4d 3d bb  24 28 69 6e 64 5f 67 72  |)..h.M=.$(ind_gr|
00005c30  70 25 2b 33 31 29 0d 1a  72 14 e7 4d 2b 4e 3c 30  |p%+31)..r..M+N<0|
00005c40  84 4d 2b 4e 3e 32 35 35  3a e1 0d 1a 7c 08 4d 2b  |.M+N>255:...|.M+|
00005c50  3d 4e 0d 1a 86 15 24 28  69 6e 64 5f 67 72 70 25  |=N....$(ind_grp%|
00005c60  2b 33 31 29 3d c3 4d 0d  1a 90 5a 21 62 6c 6f 63  |+31)=.M...Z!bloc|
00005c70  6b 25 3d 68 61 6e 64 6c  65 5f 67 72 6f 75 70 25  |k%=handle_group%|
00005c80  3a 62 6c 6f 63 6b 25 21  34 3d 31 34 3a 62 6c 6f  |:block%!4=14:blo|
00005c90  63 6b 25 21 38 3d 30 3a  62 6c 6f 63 6b 25 21 31  |ck%!8=0:block%!1|
00005ca0  32 3d 30 3a c8 99 22 57  69 6d 70 5f 53 65 74 49  |2=0:.."Wimp_SetI|
00005cb0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00005cc0  25 0d 1a 9a 14 f2 67 72  6f 75 70 5f 62 61 72 28  |%.....group_bar(|
00005cd0  31 35 2c 4d 29 0d 1a a4  11 f2 67 72 6f 75 70 5f  |15,M).....group_|
00005ce0  63 6f 6c 6f 75 72 0d 1a  ae 05 e1 0d 1a b8 05 3a  |colour.........:|
00005cf0  0d 1a c2 12 dd f2 67 72  6f 75 70 5f 72 63 6c 69  |......group_rcli|
00005d00  63 6b 0d 1a cc 39 21 62  6c 6f 63 6b 25 3d 68 61  |ck...9!block%=ha|
00005d10  6e 64 6c 65 5f 67 72 6f  75 70 25 3a c8 99 22 57  |ndle_group%:.."W|
00005d20  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00005d30  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 1a d6 19 4d  |te",,block%....M|
00005d40  3d 21 70 6f 6c 6c 25 2d  62 6c 6f 63 6b 25 21 34  |=!poll%-block%!4|
00005d50  2d 31 39 30 0d 1a e0 15  24 28 69 6e 64 5f 67 72  |-190....$(ind_gr|
00005d60  70 25 2b 33 31 29 3d c3  4d 0d 1a ea 1d 70 6f 6c  |p%+31)=.M....pol|
00005d70  6c 25 21 34 3d 31 34 3a  f2 67 72 6f 75 70 5f 70  |l%!4=14:.group_p|
00005d80  72 6f 28 33 31 29 0d 1a  f4 05 e1 0d 1a fe 05 3a  |ro(31).........:|
00005d90  0d 1b 08 10 dd f2 67 72  6f 75 70 5f 67 28 4e 29  |......group_g(N)|
00005da0  0d 1b 12 15 4d 3d bb 24  28 69 6e 64 5f 67 72 70  |....M=.$(ind_grp|
00005db0  25 2b 34 34 29 0d 1b 1c  14 e7 4d 2b 4e 3c 30 84  |%+44).....M+N<0.|
00005dc0  4d 2b 4e 3e 32 35 35 3a  e1 0d 1b 26 08 4d 2b 3d  |M+N>255:...&.M+=|
00005dd0  4e 0d 1b 30 15 24 28 69  6e 64 5f 67 72 70 25 2b  |N..0.$(ind_grp%+|
00005de0  34 34 29 3d c3 4d 0d 1b  3a 5a 21 62 6c 6f 63 6b  |44)=.M..:Z!block|
00005df0  25 3d 68 61 6e 64 6c 65  5f 67 72 6f 75 70 25 3a  |%=handle_group%:|
00005e00  62 6c 6f 63 6b 25 21 34  3d 32 30 3a 62 6c 6f 63  |block%!4=20:bloc|
00005e10  6b 25 21 38 3d 30 3a 62  6c 6f 63 6b 25 21 31 32  |k%!8=0:block%!12|
00005e20  3d 30 3a c8 99 22 57 69  6d 70 5f 53 65 74 49 63  |=0:.."Wimp_SetIc|
00005e30  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
00005e40  0d 1b 44 14 f2 67 72 6f  75 70 5f 62 61 72 28 32  |..D..group_bar(2|
00005e50  31 2c 4d 29 0d 1b 4e 11  f2 67 72 6f 75 70 5f 63  |1,M)..N..group_c|
00005e60  6f 6c 6f 75 72 0d 1b 58  05 e1 0d 1b 62 05 3a 0d  |olour..X....b.:.|
00005e70  1b 6c 12 dd f2 67 72 6f  75 70 5f 62 63 6c 69 63  |.l...group_bclic|
00005e80  6b 0d 1b 76 39 21 62 6c  6f 63 6b 25 3d 68 61 6e  |k..v9!block%=han|
00005e90  64 6c 65 5f 67 72 6f 75  70 25 3a c8 99 22 57 69  |dle_group%:.."Wi|
00005ea0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00005eb0  65 22 2c 2c 62 6c 6f 63  6b 25 0d 1b 80 19 4d 3d  |e",,block%....M=|
00005ec0  21 70 6f 6c 6c 25 2d 62  6c 6f 63 6b 25 21 34 2d  |!poll%-block%!4-|
00005ed0  31 39 30 0d 1b 8a 15 24  28 69 6e 64 5f 67 72 70  |190....$(ind_grp|
00005ee0  25 2b 34 34 29 3d c3 4d  0d 1b 94 1d 70 6f 6c 6c  |%+44)=.M....poll|
00005ef0  25 21 34 3d 32 30 3a f2  67 72 6f 75 70 5f 70 72  |%!4=20:.group_pr|
00005f00  6f 28 34 34 29 0d 1b 9e  05 e1 0d 1b a8 05 3a 0d  |o(44).........:.|
00005f10  1b b2 10 dd f2 67 72 6f  75 70 5f 62 28 4e 29 0d  |.....group_b(N).|
00005f20  1b bc 15 4d 3d bb 24 28  69 6e 64 5f 67 72 70 25  |...M=.$(ind_grp%|
00005f30  2b 35 37 29 0d 1b c6 14  e7 4d 2b 4e 3c 30 84 4d  |+57).....M+N<0.M|
00005f40  2b 4e 3e 32 35 35 3a e1  0d 1b d0 08 4d 2b 3d 4e  |+N>255:.....M+=N|
00005f50  0d 1b da 15 24 28 69 6e  64 5f 67 72 70 25 2b 35  |....$(ind_grp%+5|
00005f60  37 29 3d c3 4d 0d 1b e4  5a 21 62 6c 6f 63 6b 25  |7)=.M...Z!block%|
00005f70  3d 68 61 6e 64 6c 65 5f  67 72 6f 75 70 25 3a 62  |=handle_group%:b|
00005f80  6c 6f 63 6b 25 21 34 3d  32 36 3a 62 6c 6f 63 6b  |lock%!4=26:block|
00005f90  25 21 38 3d 30 3a 62 6c  6f 63 6b 25 21 31 32 3d  |%!8=0:block%!12=|
00005fa0  30 3a c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |0:.."Wimp_SetIco|
00005fb0  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |nState",,block%.|
00005fc0  1b ee 14 f2 67 72 6f 75  70 5f 62 61 72 28 32 37  |....group_bar(27|
00005fd0  2c 4d 29 0d 1b f8 11 f2  67 72 6f 75 70 5f 63 6f  |,M).....group_co|
00005fe0  6c 6f 75 72 0d 1c 02 05  e1 0d 1c 0c 05 3a 0d 1c  |lour.........:..|
00005ff0  16 12 dd f2 67 72 6f 75  70 5f 67 63 6c 69 63 6b  |....group_gclick|
00006000  0d 1c 20 39 21 62 6c 6f  63 6b 25 3d 68 61 6e 64  |.. 9!block%=hand|
00006010  6c 65 5f 67 72 6f 75 70  25 3a c8 99 22 57 69 6d  |le_group%:.."Wim|
00006020  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00006030  22 2c 2c 62 6c 6f 63 6b  25 0d 1c 2a 19 4d 3d 21  |",,block%..*.M=!|
00006040  70 6f 6c 6c 25 2d 62 6c  6f 63 6b 25 21 34 2d 31  |poll%-block%!4-1|
00006050  39 30 0d 1c 34 15 24 28  69 6e 64 5f 67 72 70 25  |90..4.$(ind_grp%|
00006060  2b 35 37 29 3d c3 4d 0d  1c 3e 1d 70 6f 6c 6c 25  |+57)=.M..>.poll%|
00006070  21 34 3d 32 36 3a f2 67  72 6f 75 70 5f 70 72 6f  |!4=26:.group_pro|
00006080  28 35 37 29 0d 1c 48 05  e1 0d 1c 52 05 3a 0d 1c  |(57)..H....R.:..|
00006090  5c 11 dd f2 67 72 6f 75  70 5f 63 6c 28 4e 29 0d  |\...group_cl(N).|
000060a0  1c 66 20 c8 99 22 57 69  6d 70 5f 52 65 61 64 50  |.f .."Wimp_ReadP|
000060b0  61 6c 65 74 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |alette",,block%.|
000060c0  1c 70 22 24 28 69 6e 64  5f 67 72 70 25 2b 33 31  |.p"$(ind_grp%+31|
000060d0  29 3d c3 62 6c 6f 63 6b  25 3f 28 4e 2a 34 2b 31  |)=.block%?(N*4+1|
000060e0  29 0d 1c 7a 22 24 28 69  6e 64 5f 67 72 70 25 2b  |)..z"$(ind_grp%+|
000060f0  34 34 29 3d c3 62 6c 6f  63 6b 25 3f 28 4e 2a 34  |44)=.block%?(N*4|
00006100  2b 32 29 0d 1c 84 22 24  28 69 6e 64 5f 67 72 70  |+2)..."$(ind_grp|
00006110  25 2b 35 37 29 3d c3 62  6c 6f 63 6b 25 3f 28 4e  |%+57)=.block%?(N|
00006120  2a 34 2b 33 29 0d 1c 8e  5a 21 62 6c 6f 63 6b 25  |*4+3)...Z!block%|
00006130  3d 68 61 6e 64 6c 65 5f  67 72 6f 75 70 25 3a 62  |=handle_group%:b|
00006140  6c 6f 63 6b 25 21 34 3d  31 34 3a 62 6c 6f 63 6b  |lock%!4=14:block|
00006150  25 21 38 3d 30 3a 62 6c  6f 63 6b 25 21 31 32 3d  |%!8=0:block%!12=|
00006160  30 3a c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |0:.."Wimp_SetIco|
00006170  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |nState",,block%.|
00006180  1c 98 2d 62 6c 6f 63 6b  25 21 34 3d 32 30 3a c8  |..-block%!4=20:.|
00006190  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
000061a0  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 1c a2 2d  |ate",,block%...-|
000061b0  62 6c 6f 63 6b 25 21 34  3d 32 36 3a c8 99 22 57  |block%!4=26:.."W|
000061c0  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
000061d0  22 2c 2c 62 6c 6f 63 6b  25 0d 1c ac 22 f2 67 72  |",,block%...".gr|
000061e0  6f 75 70 5f 62 61 72 28  31 35 2c bb 24 28 69 6e  |oup_bar(15,.$(in|
000061f0  64 5f 67 72 70 25 2b 33  31 29 29 0d 1c b6 22 f2  |d_grp%+31))...".|
00006200  67 72 6f 75 70 5f 62 61  72 28 32 31 2c bb 24 28  |group_bar(21,.$(|
00006210  69 6e 64 5f 67 72 70 25  2b 34 34 29 29 0d 1c c0  |ind_grp%+44))...|
00006220  22 f2 67 72 6f 75 70 5f  62 61 72 28 32 37 2c bb  |".group_bar(27,.|
00006230  24 28 69 6e 64 5f 67 72  70 25 2b 35 37 29 29 0d  |$(ind_grp%+57)).|
00006240  1c ca 11 f2 67 72 6f 75  70 5f 63 6f 6c 6f 75 72  |....group_colour|
00006250  0d 1c d4 05 e1 0d 1c de  05 3a 0d 1c e8 14 dd f2  |.........:......|
00006260  67 72 6f 75 70 5f 62 61  72 28 4e 2c 4d 29 0d 1c  |group_bar(N,M)..|
00006270  f2 5e 21 62 6c 6f 63 6b  25 3d 68 61 6e 64 6c 65  |.^!block%=handle|
00006280  5f 67 72 6f 75 70 25 3a  62 6c 6f 63 6b 25 21 34  |_group%:block%!4|
00006290  3d 4e 3a c8 99 22 57 69  6d 70 5f 47 65 74 49 63  |=N:.."Wimp_GetIc|
000062a0  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
000062b0  3a c8 99 22 57 69 6d 70  5f 44 65 6c 65 74 65 49  |:.."Wimp_DeleteI|
000062c0  63 6f 6e 22 2c 2c 62 6c  6f 63 6b 25 0d 1c fc 48  |con",,block%...H|
000062d0  62 6c 6f 63 6b 25 21 34  3d 68 61 6e 64 6c 65 5f  |block%!4=handle_|
000062e0  67 72 6f 75 70 25 3a 62  6c 6f 63 6b 25 21 31 36  |group%:block%!16|
000062f0  3d 31 39 36 2b 4d 3a c8  99 22 57 69 6d 70 5f 43  |=196+M:.."Wimp_C|
00006300  72 65 61 74 65 49 63 6f  6e 22 2c 2c 62 6c 6f 63  |reateIcon",,bloc|
00006310  6b 25 2b 34 0d 1d 06 30  21 62 6c 6f 63 6b 25 3d  |k%+4...0!block%=|
00006320  68 61 6e 64 6c 65 5f 67  72 6f 75 70 25 3a 62 6c  |handle_group%:bl|
00006330  6f 63 6b 25 21 38 3d 30  3a 62 6c 6f 63 6b 25 21  |ock%!8=0:block%!|
00006340  31 32 3d 30 0d 1d 10 2c  62 6c 6f 63 6b 25 21 34  |12=0...,block%!4|
00006350  3d 4e 3a c8 99 22 57 69  6d 70 5f 53 65 74 49 63  |=N:.."Wimp_SetIc|
00006360  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
00006370  0d 1d 1a 34 62 6c 6f 63  6b 25 21 34 3d 28 4e 2d  |...4block%!4=(N-|
00006380  39 29 81 36 2d 31 3a c8  99 22 57 69 6d 70 5f 53  |9).6-1:.."Wimp_S|
00006390  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
000063a0  6f 63 6b 25 0d 1d 24 05  e1 0d 1d 2e 05 3a 0d 1d  |ock%..$......:..|
000063b0  38 12 dd f2 67 72 6f 75  70 5f 63 6f 6c 6f 75 72  |8...group_colour|
000063c0  0d 1d 42 19 21 62 6c 6f  63 6b 25 3d 68 61 6e 64  |..B.!block%=hand|
000063d0  6c 65 5f 67 72 6f 75 70  25 0d 1d 4c 22 c8 99 22  |le_group%..L".."|
000063e0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 49 6e  |Wimp_GetWindowIn|
000063f0  66 6f 22 2c 2c 62 6c 6f  63 6b 25 0d 1d 56 52 21  |fo",,block%..VR!|
00006400  62 6c 6f 63 6b 25 3d 28  28 bb 24 28 69 6e 64 5f  |block%=((.$(ind_|
00006410  67 72 70 25 2b 35 37 29  29 3c 3c 32 34 29 2b 28  |grp%+57))<<24)+(|
00006420  28 bb 24 28 69 6e 64 5f  67 72 70 25 2b 34 34 29  |(.$(ind_grp%+44)|
00006430  29 3c 3c 31 36 29 2b 28  28 bb 24 28 69 6e 64 5f  |)<<16)+((.$(ind_|
00006440  67 72 70 25 2b 33 31 29  29 3c 3c 38 29 0d 1d 60  |grp%+31))<<8)..`|
00006450  29 c8 99 22 43 6f 6c 6f  75 72 54 72 61 6e 73 5f  |).."ColourTrans_|
00006460  53 65 74 47 43 4f 4c 22  2c 21 62 6c 6f 63 6b 25  |SetGCOL",!block%|
00006470  2c 2c 2c 30 2c 30 0d 1d  6a 28 c8 93 c8 90 62 6c  |,,,0,0..j(....bl|
00006480  6f 63 6b 25 21 34 2b 34  35 36 2c 62 6c 6f 63 6b  |ock%!4+456,block|
00006490  25 21 38 2b 32 32 38 2c  31 36 34 2c 32 38 0d 1d  |%!8+228,164,28..|
000064a0  74 05 e1 0d 1d 7e 05 3a  0d 1d 88 10 dd f2 67 72  |t....~.:......gr|
000064b0  6f 75 70 5f 74 28 4e 29  0d 1d 92 15 24 28 69 6e  |oup_t(N)....$(in|
000064c0  64 5f 67 72 70 25 2b 37  34 29 3d c3 4e 0d 1d 9c  |d_grp%+74)=.N...|
000064d0  5a 21 62 6c 6f 63 6b 25  3d 68 61 6e 64 6c 65 5f  |Z!block%=handle_|
000064e0  67 72 6f 75 70 25 3a 62  6c 6f 63 6b 25 21 34 3d  |group%:block%!4=|
000064f0  34 38 3a 62 6c 6f 63 6b  25 21 38 3d 30 3a 62 6c  |48:block%!8=0:bl|
00006500  6f 63 6b 25 21 31 32 3d  30 3a c8 99 22 57 69 6d  |ock%!12=0:.."Wim|
00006510  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00006520  2c 62 6c 6f 63 6b 25 0d  1d a6 05 e1 0d 1d b0 05  |,block%.........|
00006530  3a 0d 1d ba 11 dd f2 67  72 6f 75 70 5f 6c 6e 28  |:......group_ln(|
00006540  4e 29 0d 1d c4 15 69 6e  64 5f 67 72 70 25 3f 31  |N)....ind_grp%?1|
00006550  33 34 3d 4e 2b 34 38 0d  1d ce 5a 21 62 6c 6f 63  |34=N+48...Z!bloc|
00006560  6b 25 3d 68 61 6e 64 6c  65 5f 67 72 6f 75 70 25  |k%=handle_group%|
00006570  3a 62 6c 6f 63 6b 25 21  34 3d 35 37 3a 62 6c 6f  |:block%!4=57:blo|
00006580  63 6b 25 21 38 3d 30 3a  62 6c 6f 63 6b 25 21 31  |ck%!8=0:block%!1|
00006590  32 3d 30 3a c8 99 22 57  69 6d 70 5f 53 65 74 49  |2=0:.."Wimp_SetI|
000065a0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
000065b0  25 0d 1d d8 05 e1 0d 1d  e2 05 3a 0d 1d ec 12 dd  |%.........:.....|
000065c0  f2 67 72 6f 75 70 5f 72  65 74 75 72 6e 0d 1d f6  |.group_return...|
000065d0  28 4e 25 3d 30 3a e7 70  6f 6c 6c 25 21 32 34 3d  |(N%=0:.poll%!24=|
000065e0  31 33 84 70 6f 6c 6c 25  21 32 34 3d 26 31 38 45  |13.poll%!24=&18E|
000065f0  3a 4e 25 3d 31 0d 1e 00  18 e7 70 6f 6c 6c 25 21  |:N%=1.....poll%!|
00006600  32 34 3d 26 31 38 46 3a  4e 25 3d 2d 31 0d 1e 0a  |24=&18F:N%=-1...|
00006610  56 e7 70 6f 6c 6c 25 21  34 3d 32 30 80 4e 25 3d  |V.poll%!4=20.N%=|
00006620  2d 31 3a f2 67 72 6f 75  70 5f 70 72 6f 28 34 34  |-1:.group_pro(44|
00006630  29 3a f2 63 61 72 65 74  5f 73 65 74 70 6f 73 28  |):.caret_setpos(|
00006640  68 61 6e 64 6c 65 5f 67  72 6f 75 70 25 2c 31 34  |handle_group%,14|
00006650  2c a4 6c 65 6e 28 69 6e  64 5f 67 72 70 25 2b 33  |,.len(ind_grp%+3|
00006660  31 29 29 0d 1e 14 55 e7  70 6f 6c 6c 25 21 34 3d  |1))...U.poll%!4=|
00006670  31 34 80 4e 25 3d 31 3a  f2 67 72 6f 75 70 5f 70  |14.N%=1:.group_p|
00006680  72 6f 28 33 31 29 3a f2  63 61 72 65 74 5f 73 65  |ro(31):.caret_se|
00006690  74 70 6f 73 28 68 61 6e  64 6c 65 5f 67 72 6f 75  |tpos(handle_grou|
000066a0  70 25 2c 32 30 2c a4 6c  65 6e 28 69 6e 64 5f 67  |p%,20,.len(ind_g|
000066b0  72 70 25 2b 34 34 29 29  0d 1e 1e 55 e7 70 6f 6c  |rp%+44))...U.pol|
000066c0  6c 25 21 34 3d 32 30 80  4e 25 3d 31 3a f2 67 72  |l%!4=20.N%=1:.gr|
000066d0  6f 75 70 5f 70 72 6f 28  34 34 29 3a f2 63 61 72  |oup_pro(44):.car|
000066e0  65 74 5f 73 65 74 70 6f  73 28 68 61 6e 64 6c 65  |et_setpos(handle|
000066f0  5f 67 72 6f 75 70 25 2c  32 36 2c a4 6c 65 6e 28  |_group%,26,.len(|
00006700  69 6e 64 5f 67 72 70 25  2b 35 37 29 29 0d 1e 28  |ind_grp%+57))..(|
00006710  55 e7 70 6f 6c 6c 25 21  34 3d 32 36 80 4e 25 3d  |U.poll%!4=26.N%=|
00006720  31 3a f2 67 72 6f 75 70  5f 70 72 6f 28 35 37 29  |1:.group_pro(57)|
00006730  3a f2 63 61 72 65 74 5f  73 65 74 70 6f 73 28 68  |:.caret_setpos(h|
00006740  61 6e 64 6c 65 5f 67 72  6f 75 70 25 2c 34 38 2c  |andle_group%,48,|
00006750  a4 6c 65 6e 28 69 6e 64  5f 67 72 70 25 2b 37 34  |.len(ind_grp%+74|
00006760  29 29 0d 1e 32 56 e7 70  6f 6c 6c 25 21 34 3d 32  |))..2V.poll%!4=2|
00006770  36 80 4e 25 3d 2d 31 3a  f2 67 72 6f 75 70 5f 70  |6.N%=-1:.group_p|
00006780  72 6f 28 35 37 29 3a f2  63 61 72 65 74 5f 73 65  |ro(57):.caret_se|
00006790  74 70 6f 73 28 68 61 6e  64 6c 65 5f 67 72 6f 75  |tpos(handle_grou|
000067a0  70 25 2c 32 30 2c a4 6c  65 6e 28 69 6e 64 5f 67  |p%,20,.len(ind_g|
000067b0  72 70 25 2b 34 34 29 29  0d 1e 3c 47 e7 70 6f 6c  |rp%+44))..<G.pol|
000067c0  6c 25 21 34 3d 34 38 80  4e 25 3d 2d 31 3a f2 63  |l%!4=48.N%=-1:.c|
000067d0  61 72 65 74 5f 73 65 74  70 6f 73 28 68 61 6e 64  |aret_setpos(hand|
000067e0  6c 65 5f 67 72 6f 75 70  25 2c 32 36 2c a4 6c 65  |le_group%,26,.le|
000067f0  6e 28 69 6e 64 5f 67 72  70 25 2b 35 37 29 29 0d  |n(ind_grp%+57)).|
00006800  1e 46 67 e7 70 6f 6c 6c  25 21 34 3d 34 38 80 70  |.Fg.poll%!4=48.p|
00006810  6f 6c 6c 25 21 32 34 3d  31 33 3a 62 75 74 74 6f  |oll%!24=13:butto|
00006820  6e 25 3d 34 3a f2 6f 6b  5f 63 6c 69 63 6b 28 68  |n%=4:.ok_click(h|
00006830  61 6e 64 6c 65 5f 67 72  6f 75 70 25 2c 36 37 29  |andle_group%,67)|
00006840  3a f2 67 72 6f 75 70 5f  4f 4b 3a f2 6f 6b 5f 63  |:.group_OK:.ok_c|
00006850  6c 69 63 6b 28 68 61 6e  64 6c 65 5f 67 72 6f 75  |lick(handle_grou|
00006860  70 25 2c 36 37 29 0d 1e  50 05 e1 0d 1e 5a 05 3a  |p%,67)..P....Z.:|
00006870  0d 1e 64 0e dd f2 67 72  6f 75 70 5f 4f 4b 0d 1e  |..d...group_OK..|
00006880  6e 2a 67 72 6f 75 70 5f  64 61 74 61 25 3f 28 67  |n*group_data%?(g|
00006890  72 6f 75 70 25 2a 34 32  29 3d 69 6e 64 5f 67 72  |roup%*42)=ind_gr|
000068a0  70 25 3f 32 31 2d 34 39  0d 1e 78 2c 67 72 6f 75  |p%?21-49..x,grou|
000068b0  70 5f 64 61 74 61 25 3f  28 67 72 6f 75 70 25 2a  |p_data%?(group%*|
000068c0  34 32 2b 31 29 3d 69 6e  64 5f 67 72 70 25 3f 32  |42+1)=ind_grp%?2|
000068d0  36 2d 34 38 0d 1e 82 2d  67 72 6f 75 70 5f 64 61  |6-48...-group_da|
000068e0  74 61 25 3f 28 67 72 6f  75 70 25 2a 34 32 2b 32  |ta%?(group%*42+2|
000068f0  29 3d bb 24 28 69 6e 64  5f 67 72 70 25 2b 33 31  |)=.$(ind_grp%+31|
00006900  29 0d 1e 8c 2d 67 72 6f  75 70 5f 64 61 74 61 25  |)...-group_data%|
00006910  3f 28 67 72 6f 75 70 25  2a 34 32 2b 33 29 3d bb  |?(group%*42+3)=.|
00006920  24 28 69 6e 64 5f 67 72  70 25 2b 34 34 29 0d 1e  |$(ind_grp%+44)..|
00006930  96 2d 67 72 6f 75 70 5f  64 61 74 61 25 3f 28 67  |.-group_data%?(g|
00006940  72 6f 75 70 25 2a 34 32  2b 34 29 3d bb 24 28 69  |roup%*42+4)=.$(i|
00006950  6e 64 5f 67 72 70 25 2b  35 37 29 0d 1e a0 33 67  |nd_grp%+57)...3g|
00006960  72 6f 75 70 5f 64 61 74  61 25 21 28 67 72 6f 75  |roup_data%!(grou|
00006970  70 25 2a 34 32 2b 35 29  3d 28 bb 24 28 69 6e 64  |p%*42+5)=(.$(ind|
00006980  5f 67 72 70 25 2b 37 34  29 29 2a 36 34 30 0d 1e  |_grp%+74))*640..|
00006990  aa 2d 67 72 6f 75 70 5f  64 61 74 61 25 3f 28 67  |.-group_data%?(g|
000069a0  72 6f 75 70 25 2a 34 32  2b 39 29 3d 69 6e 64 5f  |roup%*42+9)=ind_|
000069b0  67 72 70 25 3f 31 33 34  2d 34 38 0d 1e b4 1d 4e  |grp%?134-48....N|
000069c0  3d 30 3a 21 62 6c 6f 63  6b 25 3d 68 61 6e 64 6c  |=0:!block%=handl|
000069d0  65 5f 67 72 6f 75 70 25  0d 1e be 2d 62 6c 6f 63  |e_group%...-bloc|
000069e0  6b 25 21 34 3d 36 33 3a  c8 99 22 57 69 6d 70 5f  |k%!4=63:.."Wimp_|
000069f0  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00006a00  6c 6f 63 6b 25 0d 1e c8  23 e7 28 28 62 6c 6f 63  |lock%...#.((bloc|
00006a10  6b 25 21 32 34 29 20 80  20 26 32 30 30 30 30 30  |k%!24) . &200000|
00006a20  29 3e 30 3a 4e 2b 3d 31  0d 1e d2 2d 62 6c 6f 63  |)>0:N+=1...-bloc|
00006a30  6b 25 21 34 3d 36 34 3a  c8 99 22 57 69 6d 70 5f  |k%!4=64:.."Wimp_|
00006a40  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00006a50  6c 6f 63 6b 25 0d 1e dc  23 e7 28 28 62 6c 6f 63  |lock%...#.((bloc|
00006a60  6b 25 21 32 34 29 20 80  20 26 32 30 30 30 30 30  |k%!24) . &200000|
00006a70  29 3e 30 3a 4e 2b 3d 32  0d 1e e6 2d 62 6c 6f 63  |)>0:N+=2...-bloc|
00006a80  6b 25 21 34 3d 36 35 3a  c8 99 22 57 69 6d 70 5f  |k%!4=65:.."Wimp_|
00006a90  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00006aa0  6c 6f 63 6b 25 0d 1e f0  23 e7 28 28 62 6c 6f 63  |lock%...#.((bloc|
00006ab0  6b 25 21 32 34 29 20 80  20 26 32 30 30 30 30 30  |k%!24) . &200000|
00006ac0  29 3e 30 3a 4e 2b 3d 34  0d 1e fa 20 67 72 6f 75  |)>0:N+=4... grou|
00006ad0  70 5f 64 61 74 61 25 3f  28 67 72 6f 75 70 25 2a  |p_data%?(group%*|
00006ae0  34 32 2b 31 30 29 3d 4e  0d 1f 04 26 e7 62 75 74  |42+10)=N...&.but|
00006af0  74 6f 6e 25 3d 34 3a c8  99 22 57 69 6d 70 5f 43  |ton%=4:.."Wimp_C|
00006b00  72 65 61 74 65 4d 65 6e  75 22 2c 2c 2d 31 0d 1f  |reateMenu",,-1..|
00006b10  0e 05 e1 0d 1f 18 05 3a  0d 1f 22 12 dd f2 67 72  |.......:.."...gr|
00006b20  6f 75 70 5f 70 72 6f 28  4e 29 0d 1f 2c 21 4d 3d  |oup_pro(N)..,!M=|
00006b30  bb 24 28 69 6e 64 5f 67  72 70 25 2b 4e 29 3a e7  |.$(ind_grp%+N):.|
00006b40  4d 3e 32 35 35 3a 4d 3d  32 35 35 0d 1f 36 14 24  |M>255:M=255..6.$|
00006b50  28 69 6e 64 5f 67 72 70  25 2b 4e 29 3d c3 4d 0d  |(ind_grp%+N)=.M.|
00006b60  1f 40 5f 21 62 6c 6f 63  6b 25 3d 68 61 6e 64 6c  |.@_!block%=handl|
00006b70  65 5f 67 72 6f 75 70 25  3a 62 6c 6f 63 6b 25 21  |e_group%:block%!|
00006b80  34 3d 70 6f 6c 6c 25 21  34 3a 62 6c 6f 63 6b 25  |4=poll%!4:block%|
00006b90  21 38 3d 30 3a 62 6c 6f  63 6b 25 21 31 32 3d 30  |!8=0:block%!12=0|
00006ba0  3a c8 99 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |:.."Wimp_SetIcon|
00006bb0  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 1f  |State",,block%..|
00006bc0  4a 1b f2 67 72 6f 75 70  5f 62 61 72 28 70 6f 6c  |J..group_bar(pol|
00006bd0  6c 25 21 34 2b 31 2c 4d  29 0d 1f 54 11 f2 67 72  |l%!4+1,M)..T..gr|
00006be0  6f 75 70 5f 63 6f 6c 6f  75 72 0d 1f 5e 05 e1 0d  |oup_colour..^...|
00006bf0  1f 68 05 3a 0d 1f 72 0f  dd f2 6d 61 70 5f 67 72  |.h.:..r...map_gr|
00006c00  28 4e 29 0d 1f 7c 15 4d  3d bb 24 28 69 6e 64 5f  |(N)..|.M=.$(ind_|
00006c10  6d 61 70 25 2b 33 33 29  0d 1f 86 14 e7 4d 2b 4e  |map%+33).....M+N|
00006c20  3c 30 84 4d 2b 4e 3e 39  39 39 3a e1 0d 1f 90 08  |<0.M+N>999:.....|
00006c30  4d 2b 3d 4e 0d 1f 9a 15  24 28 69 6e 64 5f 6d 61  |M+=N....$(ind_ma|
00006c40  70 25 2b 33 33 29 3d c3  4d 0d 1f a4 57 21 62 6c  |p%+33)=.M...W!bl|
00006c50  6f 63 6b 25 3d 68 61 6e  64 6c 65 5f 6d 61 70 25  |ock%=handle_map%|
00006c60  3a 62 6c 6f 63 6b 25 21  34 3d 37 3a 62 6c 6f 63  |:block%!4=7:bloc|
00006c70  6b 25 21 38 3d 30 3a 62  6c 6f 63 6b 25 21 31 32  |k%!8=0:block%!12|
00006c80  3d 30 3a c8 99 22 57 69  6d 70 5f 53 65 74 49 63  |=0:.."Wimp_SetIc|
00006c90  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
00006ca0  0d 1f ae 25 c8 99 22 57  69 6d 70 5f 47 65 74 43  |...%.."Wimp_GetC|
00006cb0  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 2c 62  |aretPosition",,b|
00006cc0  6c 6f 63 6b 25 0d 1f b8  12 e7 62 6c 6f 63 6b 25  |lock%.....block%|
00006cd0  21 34 3c 3e 37 3a e1 0d  1f c2 38 c8 99 22 57 69  |!4<>7:....8.."Wi|
00006ce0  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00006cf0  69 6f 6e 22 2c 68 61 6e  64 6c 65 5f 6d 61 70 25  |ion",handle_map%|
00006d00  2c 37 2c 2d 31 2c 2d 31  2c 2d 31 2c a9 c3 4d 0d  |,7,-1,-1,-1,..M.|
00006d10  1f cc 05 e1 0d 1f d6 05  3a 0d 1f e0 10 dd f2 6d  |........:......m|
00006d20  61 70 5f 72 65 74 75 72  6e 0d 1f ea 28 4e 25 3d  |ap_return...(N%=|
00006d30  30 3a e7 70 6f 6c 6c 25  21 32 34 3d 31 33 84 70  |0:.poll%!24=13.p|
00006d40  6f 6c 6c 25 21 32 34 3d  26 31 38 45 3a 4e 25 3d  |oll%!24=&18E:N%=|
00006d50  31 0d 1f f4 18 e7 70 6f  6c 6c 25 21 32 34 3d 26  |1.....poll%!24=&|
00006d60  31 38 46 3a 4e 25 3d 2d  31 0d 1f fe 44 e7 70 6f  |18F:N%=-1...D.po|
00006d70  6c 6c 25 21 34 3d 31 31  80 4e 25 3d 2d 31 3a f2  |ll%!4=11.N%=-1:.|
00006d80  63 61 72 65 74 5f 73 65  74 70 6f 73 28 68 61 6e  |caret_setpos(han|
00006d90  64 6c 65 5f 6d 61 70 25  2c 37 2c a4 6c 65 6e 28  |dle_map%,7,.len(|
00006da0  69 6e 64 5f 6d 61 70 25  2b 33 36 29 29 0d 20 08  |ind_map%+36)). .|
00006db0  43 e7 70 6f 6c 6c 25 21  34 3d 37 80 4e 25 3d 31  |C.poll%!4=7.N%=1|
00006dc0  3a f2 63 61 72 65 74 5f  73 65 74 70 6f 73 28 68  |:.caret_setpos(h|
00006dd0  61 6e 64 6c 65 5f 6d 61  70 25 2c 31 31 2c a4 6c  |andle_map%,11,.l|
00006de0  65 6e 28 69 6e 64 5f 6d  61 70 25 2b 34 39 29 29  |en(ind_map%+49))|
00006df0  0d 20 12 61 e7 70 6f 6c  6c 25 21 34 3d 31 31 80  |. .a.poll%!4=11.|
00006e00  70 6f 6c 6c 25 21 32 34  3d 31 33 3a 62 75 74 74  |poll%!24=13:butt|
00006e10  6f 6e 25 3d 34 3a f2 6f  6b 5f 63 6c 69 63 6b 28  |on%=4:.ok_click(|
00006e20  68 61 6e 64 6c 65 5f 6d  61 70 25 2c 31 33 29 3a  |handle_map%,13):|
00006e30  f2 6d 61 70 5f 4f 4b 3a  f2 6f 6b 5f 63 6c 69 63  |.map_OK:.ok_clic|
00006e40  6b 28 68 61 6e 64 6c 65  5f 6d 61 70 25 2c 31 33  |k(handle_map%,13|
00006e50  29 0d 20 1c 05 e1 0d 20  26 05 3a 0d 20 30 0c dd  |). .... &.:. 0..|
00006e60  f2 6d 61 70 5f 4f 4b 0d  20 3a 29 67 72 6f 75 70  |.map_OK. :)group|
00006e70  5f 6d 61 70 25 21 28 67  72 6f 75 70 25 2a 34 29  |_map%!(group%*4)|
00006e80  3d bb 24 28 69 6e 64 5f  6d 61 70 25 2b 33 33 29  |=.$(ind_map%+33)|
00006e90  0d 20 44 2e 24 28 67 72  6f 75 70 5f 64 61 74 61  |. D.$(group_data|
00006ea0  25 2b 67 72 6f 75 70 25  2a 34 32 2b 31 31 29 3d  |%+group%*42+11)=|
00006eb0  24 28 69 6e 64 5f 6d 61  70 25 2b 34 39 29 0d 20  |$(ind_map%+49). |
00006ec0  4e 26 e7 62 75 74 74 6f  6e 25 3d 34 3a c8 99 22  |N&.button%=4:.."|
00006ed0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00006ee0  2c 2c 2d 31 0d 20 58 05  e1 0d 20 62 05 3a 0d 20  |,,-1. X... b.:. |
00006ef0  6c 11 dd f2 6c 61 62 65  6c 5f 67 72 28 4e 29 0d  |l...label_gr(N).|
00006f00  20 76 15 4d 3d bb 24 28  69 6e 64 5f 6c 61 62 25  | v.M=.$(ind_lab%|
00006f10  2b 33 38 29 0d 20 80 14  e7 4d 2b 4e 3c 30 84 4d  |+38). ...M+N<0.M|
00006f20  2b 4e 3e 39 39 39 3a e1  0d 20 8a 08 4d 2b 3d 4e  |+N>999:.. ..M+=N|
00006f30  0d 20 94 15 24 28 69 6e  64 5f 6c 61 62 25 2b 33  |. ..$(ind_lab%+3|
00006f40  38 29 3d c3 4d 0d 20 9e  59 21 62 6c 6f 63 6b 25  |8)=.M. .Y!block%|
00006f50  3d 68 61 6e 64 6c 65 5f  6c 61 62 65 6c 25 3a 62  |=handle_label%:b|
00006f60  6c 6f 63 6b 25 21 34 3d  37 3a 62 6c 6f 63 6b 25  |lock%!4=7:block%|
00006f70  21 38 3d 30 3a 62 6c 6f  63 6b 25 21 31 32 3d 30  |!8=0:block%!12=0|
00006f80  3a c8 99 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |:.."Wimp_SetIcon|
00006f90  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 20  |State",,block%. |
00006fa0  a8 25 c8 99 22 57 69 6d  70 5f 47 65 74 43 61 72  |.%.."Wimp_GetCar|
00006fb0  65 74 50 6f 73 69 74 69  6f 6e 22 2c 2c 62 6c 6f  |etPosition",,blo|
00006fc0  63 6b 25 0d 20 b2 12 e7  62 6c 6f 63 6b 25 21 34  |ck%. ...block%!4|
00006fd0  3c 3e 37 3a e1 0d 20 bc  3a c8 99 22 57 69 6d 70  |<>7:.. .:.."Wimp|
00006fe0  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
00006ff0  6e 22 2c 68 61 6e 64 6c  65 5f 6c 61 62 65 6c 25  |n",handle_label%|
00007000  2c 37 2c 2d 31 2c 2d 31  2c 2d 31 2c a9 c3 4d 0d  |,7,-1,-1,-1,..M.|
00007010  20 c6 05 e1 0d 20 d0 05  3a 0d 20 da 0e dd f2 6c  | .... ..:. ....l|
00007020  61 62 65 6c 5f 4f 4b 0d  20 e4 21 67 72 6f 75 70  |abel_OK. .!group|
00007030  5f 6d 61 70 25 21 32 34  3d bb 24 28 69 6e 64 5f  |_map%!24=.$(ind_|
00007040  6c 61 62 25 2b 33 38 29  0d 20 ee 26 e7 62 75 74  |lab%+38). .&.but|
00007050  74 6f 6e 25 3d 34 3a c8  99 22 57 69 6d 70 5f 43  |ton%=4:.."Wimp_C|
00007060  72 65 61 74 65 4d 65 6e  75 22 2c 2c 2d 31 0d 20  |reateMenu",,-1. |
00007070  f8 05 e1 0d 21 02 05 3a  0d 21 0c 11 dd f2 62 65  |....!..:.!....be|
00007080  73 74 5f 73 65 6c 65 63  74 0d 21 16 1d 4e 3d 70  |st_select.!..N=p|
00007090  6f 6c 6c 25 21 38 3a 67  72 61 70 68 5f 62 65 73  |oll%!8:graph_bes|
000070a0  74 25 3d 4e 2b 31 0d 21  20 4e e7 4e 3d 31 3a 6d  |t%=N+1.! N.N=1:m|
000070b0  65 6e 75 5f 62 65 73 74  25 3f 32 38 3d 30 3a 6d  |enu_best%?28=0:m|
000070c0  65 6e 75 5f 62 65 73 74  25 3f 35 32 3d 31 32 39  |enu_best%?52=129|
000070d0  3a 3a 8b 6d 65 6e 75 5f  62 65 73 74 25 3f 32 38  |::.menu_best%?28|
000070e0  3d 31 3a 6d 65 6e 75 5f  62 65 73 74 25 3f 35 32  |=1:menu_best%?52|
000070f0  3d 31 32 38 0d 21 2a 05  e1 0d 21 34 05 3a 0d 21  |=128.!*...!4.:.!|
00007100  3e 0f dd f2 62 61 63 6b  5f 72 28 4e 29 0d 21 48  |>...back_r(N).!H|
00007110  15 4d 3d bb 24 28 69 6e  64 5f 62 63 6b 25 2b 31  |.M=.$(ind_bck%+1|
00007120  31 29 0d 21 52 14 e7 4d  2b 4e 3c 30 84 4d 2b 4e  |1).!R..M+N<0.M+N|
00007130  3e 32 35 35 3a e1 0d 21  5c 08 4d 2b 3d 4e 0d 21  |>255:..!\.M+=N.!|
00007140  66 15 24 28 69 6e 64 5f  62 63 6b 25 2b 31 31 29  |f.$(ind_bck%+11)|
00007150  3d c3 4d 0d 21 70 58 21  62 6c 6f 63 6b 25 3d 68  |=.M.!pX!block%=h|
00007160  61 6e 64 6c 65 5f 62 61  63 6b 25 3a 62 6c 6f 63  |andle_back%:bloc|
00007170  6b 25 21 34 3d 35 3a 62  6c 6f 63 6b 25 21 38 3d  |k%!4=5:block%!8=|
00007180  30 3a 62 6c 6f 63 6b 25  21 31 32 3d 30 3a c8 99  |0:block%!12=0:..|
00007190  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
000071a0  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 21 7a 12 f2  |te",,block%.!z..|
000071b0  62 61 63 6b 5f 62 61 72  28 36 2c 4d 29 0d 21 84  |back_bar(6,M).!.|
000071c0  10 f2 62 61 63 6b 5f 63  6f 6c 6f 75 72 0d 21 8e  |..back_colour.!.|
000071d0  05 e1 0d 21 98 05 3a 0d  21 a2 11 dd f2 62 61 63  |...!..:.!....bac|
000071e0  6b 5f 72 63 6c 69 63 6b  0d 21 ac 38 21 62 6c 6f  |k_rclick.!.8!blo|
000071f0  63 6b 25 3d 68 61 6e 64  6c 65 5f 62 61 63 6b 25  |ck%=handle_back%|
00007200  3a c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |:.."Wimp_GetWind|
00007210  6f 77 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |owState",,block%|
00007220  0d 21 b6 19 4d 3d 21 70  6f 6c 6c 25 2d 62 6c 6f  |.!..M=!poll%-blo|
00007230  63 6b 25 21 34 2d 31 39  30 0d 21 c0 15 24 28 69  |ck%!4-190.!..$(i|
00007240  6e 64 5f 62 63 6b 25 2b  31 31 29 3d c3 4d 0d 21  |nd_bck%+11)=.M.!|
00007250  ca 1b 70 6f 6c 6c 25 21  34 3d 35 3a f2 62 61 63  |..poll%!4=5:.bac|
00007260  6b 5f 70 72 6f 28 31 31  29 0d 21 d4 05 e1 0d 21  |k_pro(11).!....!|
00007270  de 05 3a 0d 21 e8 0f dd  f2 62 61 63 6b 5f 67 28  |..:.!....back_g(|
00007280  4e 29 0d 21 f2 15 4d 3d  bb 24 28 69 6e 64 5f 62  |N).!..M=.$(ind_b|
00007290  63 6b 25 2b 32 34 29 0d  21 fc 14 e7 4d 2b 4e 3c  |ck%+24).!...M+N<|
000072a0  30 84 4d 2b 4e 3e 32 35  35 3a e1 0d 22 06 08 4d  |0.M+N>255:.."..M|
000072b0  2b 3d 4e 0d 22 10 15 24  28 69 6e 64 5f 62 63 6b  |+=N."..$(ind_bck|
000072c0  25 2b 32 34 29 3d c3 4d  0d 22 1a 59 21 62 6c 6f  |%+24)=.M.".Y!blo|
000072d0  63 6b 25 3d 68 61 6e 64  6c 65 5f 62 61 63 6b 25  |ck%=handle_back%|
000072e0  3a 62 6c 6f 63 6b 25 21  34 3d 31 31 3a 62 6c 6f  |:block%!4=11:blo|
000072f0  63 6b 25 21 38 3d 30 3a  62 6c 6f 63 6b 25 21 31  |ck%!8=0:block%!1|
00007300  32 3d 30 3a c8 99 22 57  69 6d 70 5f 53 65 74 49  |2=0:.."Wimp_SetI|
00007310  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00007320  25 0d 22 24 13 f2 62 61  63 6b 5f 62 61 72 28 31  |%."$..back_bar(1|
00007330  32 2c 4d 29 0d 22 2e 10  f2 62 61 63 6b 5f 63 6f  |2,M)."...back_co|
00007340  6c 6f 75 72 0d 22 38 05  e1 0d 22 42 05 3a 0d 22  |lour."8..."B.:."|
00007350  4c 11 dd f2 62 61 63 6b  5f 62 63 6c 69 63 6b 0d  |L...back_bclick.|
00007360  22 56 38 21 62 6c 6f 63  6b 25 3d 68 61 6e 64 6c  |"V8!block%=handl|
00007370  65 5f 62 61 63 6b 25 3a  c8 99 22 57 69 6d 70 5f  |e_back%:.."Wimp_|
00007380  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00007390  2c 62 6c 6f 63 6b 25 0d  22 60 19 4d 3d 21 70 6f  |,block%."`.M=!po|
000073a0  6c 6c 25 2d 62 6c 6f 63  6b 25 21 34 2d 31 39 30  |ll%-block%!4-190|
000073b0  0d 22 6a 15 24 28 69 6e  64 5f 62 63 6b 25 2b 32  |."j.$(ind_bck%+2|
000073c0  34 29 3d c3 4d 0d 22 74  1c 70 6f 6c 6c 25 21 34  |4)=.M."t.poll%!4|
000073d0  3d 31 31 3a f2 62 61 63  6b 5f 70 72 6f 28 32 34  |=11:.back_pro(24|
000073e0  29 0d 22 7e 05 e1 0d 22  88 05 3a 0d 22 92 0f dd  |)."~..."..:."...|
000073f0  f2 62 61 63 6b 5f 62 28  4e 29 0d 22 9c 15 4d 3d  |.back_b(N)."..M=|
00007400  bb 24 28 69 6e 64 5f 62  63 6b 25 2b 33 37 29 0d  |.$(ind_bck%+37).|
00007410  22 a6 14 e7 4d 2b 4e 3c  30 84 4d 2b 4e 3e 32 35  |"...M+N<0.M+N>25|
00007420  35 3a e1 0d 22 b0 08 4d  2b 3d 4e 0d 22 ba 15 24  |5:.."..M+=N."..$|
00007430  28 69 6e 64 5f 62 63 6b  25 2b 33 37 29 3d c3 4d  |(ind_bck%+37)=.M|
00007440  0d 22 c4 59 21 62 6c 6f  63 6b 25 3d 68 61 6e 64  |.".Y!block%=hand|
00007450  6c 65 5f 62 61 63 6b 25  3a 62 6c 6f 63 6b 25 21  |le_back%:block%!|
00007460  34 3d 31 37 3a 62 6c 6f  63 6b 25 21 38 3d 30 3a  |4=17:block%!8=0:|
00007470  62 6c 6f 63 6b 25 21 31  32 3d 30 3a c8 99 22 57  |block%!12=0:.."W|
00007480  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00007490  22 2c 2c 62 6c 6f 63 6b  25 0d 22 ce 13 f2 62 61  |",,block%."...ba|
000074a0  63 6b 5f 62 61 72 28 31  38 2c 4d 29 0d 22 d8 10  |ck_bar(18,M)."..|
000074b0  f2 62 61 63 6b 5f 63 6f  6c 6f 75 72 0d 22 e2 05  |.back_colour."..|
000074c0  e1 0d 22 ec 05 3a 0d 22  f6 11 dd f2 62 61 63 6b  |.."..:."....back|
000074d0  5f 67 63 6c 69 63 6b 0d  23 00 38 21 62 6c 6f 63  |_gclick.#.8!bloc|
000074e0  6b 25 3d 68 61 6e 64 6c  65 5f 62 61 63 6b 25 3a  |k%=handle_back%:|
000074f0  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00007500  77 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |wState",,block%.|
00007510  23 0a 19 4d 3d 21 70 6f  6c 6c 25 2d 62 6c 6f 63  |#..M=!poll%-bloc|
00007520  6b 25 21 34 2d 31 39 30  0d 23 14 15 24 28 69 6e  |k%!4-190.#..$(in|
00007530  64 5f 62 63 6b 25 2b 33  37 29 3d c3 4d 0d 23 1e  |d_bck%+37)=.M.#.|
00007540  1c 70 6f 6c 6c 25 21 34  3d 31 37 3a f2 62 61 63  |.poll%!4=17:.bac|
00007550  6b 5f 70 72 6f 28 33 37  29 0d 23 28 05 e1 0d 23  |k_pro(37).#(...#|
00007560  32 05 3a 0d 23 3c 10 dd  f2 62 61 63 6b 5f 63 6c  |2.:.#<...back_cl|
00007570  28 4e 29 0d 23 46 20 c8  99 22 57 69 6d 70 5f 52  |(N).#F .."Wimp_R|
00007580  65 61 64 50 61 6c 65 74  74 65 22 2c 2c 62 6c 6f  |eadPalette",,blo|
00007590  63 6b 25 0d 23 50 22 24  28 69 6e 64 5f 62 63 6b  |ck%.#P"$(ind_bck|
000075a0  25 2b 31 31 29 3d c3 62  6c 6f 63 6b 25 3f 28 4e  |%+11)=.block%?(N|
000075b0  2a 34 2b 31 29 0d 23 5a  22 24 28 69 6e 64 5f 62  |*4+1).#Z"$(ind_b|
000075c0  63 6b 25 2b 32 34 29 3d  c3 62 6c 6f 63 6b 25 3f  |ck%+24)=.block%?|
000075d0  28 4e 2a 34 2b 32 29 0d  23 64 22 24 28 69 6e 64  |(N*4+2).#d"$(ind|
000075e0  5f 62 63 6b 25 2b 33 37  29 3d c3 62 6c 6f 63 6b  |_bck%+37)=.block|
000075f0  25 3f 28 4e 2a 34 2b 33  29 0d 23 6e 58 21 62 6c  |%?(N*4+3).#nX!bl|
00007600  6f 63 6b 25 3d 68 61 6e  64 6c 65 5f 62 61 63 6b  |ock%=handle_back|
00007610  25 3a 62 6c 6f 63 6b 25  21 34 3d 35 3a 62 6c 6f  |%:block%!4=5:blo|
00007620  63 6b 25 21 38 3d 30 3a  62 6c 6f 63 6b 25 21 31  |ck%!8=0:block%!1|
00007630  32 3d 30 3a c8 99 22 57  69 6d 70 5f 53 65 74 49  |2=0:.."Wimp_SetI|
00007640  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00007650  25 0d 23 78 2d 62 6c 6f  63 6b 25 21 34 3d 31 31  |%.#x-block%!4=11|
00007660  3a c8 99 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |:.."Wimp_SetIcon|
00007670  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 23  |State",,block%.#|
00007680  82 2d 62 6c 6f 63 6b 25  21 34 3d 31 37 3a c8 99  |.-block%!4=17:..|
00007690  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
000076a0  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 23 8c 20 f2  |te",,block%.#. .|
000076b0  62 61 63 6b 5f 62 61 72  28 36 2c bb 24 28 69 6e  |back_bar(6,.$(in|
000076c0  64 5f 62 63 6b 25 2b 31  31 29 29 0d 23 96 21 f2  |d_bck%+11)).#.!.|
000076d0  62 61 63 6b 5f 62 61 72  28 31 32 2c bb 24 28 69  |back_bar(12,.$(i|
000076e0  6e 64 5f 62 63 6b 25 2b  32 34 29 29 0d 23 a0 21  |nd_bck%+24)).#.!|
000076f0  f2 62 61 63 6b 5f 62 61  72 28 31 38 2c bb 24 28  |.back_bar(18,.$(|
00007700  69 6e 64 5f 62 63 6b 25  2b 33 37 29 29 0d 23 aa  |ind_bck%+37)).#.|
00007710  10 f2 62 61 63 6b 5f 63  6f 6c 6f 75 72 0d 23 b4  |..back_colour.#.|
00007720  05 e1 0d 23 be 05 3a 0d  23 c8 13 dd f2 62 61 63  |...#..:.#....bac|
00007730  6b 5f 62 61 72 28 4e 2c  4d 29 0d 23 d2 5d 21 62  |k_bar(N,M).#.]!b|
00007740  6c 6f 63 6b 25 3d 68 61  6e 64 6c 65 5f 62 61 63  |lock%=handle_bac|
00007750  6b 25 3a 62 6c 6f 63 6b  25 21 34 3d 4e 3a c8 99  |k%:block%!4=N:..|
00007760  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00007770  74 65 22 2c 2c 62 6c 6f  63 6b 25 3a c8 99 22 57  |te",,block%:.."W|
00007780  69 6d 70 5f 44 65 6c 65  74 65 49 63 6f 6e 22 2c  |imp_DeleteIcon",|
00007790  2c 62 6c 6f 63 6b 25 0d  23 dc 47 62 6c 6f 63 6b  |,block%.#.Gblock|
000077a0  25 21 34 3d 68 61 6e 64  6c 65 5f 62 61 63 6b 25  |%!4=handle_back%|
000077b0  3a 62 6c 6f 63 6b 25 21  31 36 3d 31 39 36 2b 4d  |:block%!16=196+M|
000077c0  3a c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |:.."Wimp_CreateI|
000077d0  63 6f 6e 22 2c 2c 62 6c  6f 63 6b 25 2b 34 0d 23  |con",,block%+4.#|
000077e0  e6 3c 21 62 6c 6f 63 6b  25 3d 68 61 6e 64 6c 65  |.<!block%=handle|
000077f0  5f 62 61 63 6b 25 3a 62  6c 6f 63 6b 25 21 34 3d  |_back%:block%!4=|
00007800  4e 2d 31 3a 62 6c 6f 63  6b 25 21 38 3d 30 3a 62  |N-1:block%!8=0:b|
00007810  6c 6f 63 6b 25 21 31 32  3d 30 0d 23 f0 32 62 6c  |lock%!12=0.#.2bl|
00007820  6f 63 6b 25 21 34 3d 28  4e 29 81 36 2d 31 3a c8  |ock%!4=(N).6-1:.|
00007830  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
00007840  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 23 fa 05  |ate",,block%.#..|
00007850  e1 0d 24 04 05 3a 0d 24  0e 11 dd f2 62 61 63 6b  |..$..:.$....back|
00007860  5f 63 6f 6c 6f 75 72 0d  24 18 18 21 62 6c 6f 63  |_colour.$..!bloc|
00007870  6b 25 3d 68 61 6e 64 6c  65 5f 62 61 63 6b 25 0d  |k%=handle_back%.|
00007880  24 22 22 c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |$"".."Wimp_GetWi|
00007890  6e 64 6f 77 49 6e 66 6f  22 2c 2c 62 6c 6f 63 6b  |ndowInfo",,block|
000078a0  25 0d 24 2c 4c 21 62 6c  6f 63 6b 25 3d 28 bb 24  |%.$,L!block%=(.$|
000078b0  28 69 6e 64 5f 62 63 6b  25 2b 33 37 29 3c 3c 32  |(ind_bck%+37)<<2|
000078c0  34 29 2b 28 bb 24 28 69  6e 64 5f 62 63 6b 25 2b  |4)+(.$(ind_bck%+|
000078d0  32 34 29 3c 3c 31 36 29  2b 28 bb 24 28 69 6e 64  |24)<<16)+(.$(ind|
000078e0  5f 62 63 6b 25 2b 31 31  29 3c 3c 38 29 0d 24 36  |_bck%+11)<<8).$6|
000078f0  29 c8 99 22 43 6f 6c 6f  75 72 54 72 61 6e 73 5f  |).."ColourTrans_|
00007900  53 65 74 47 43 4f 4c 22  2c 21 62 6c 6f 63 6b 25  |SetGCOL",!block%|
00007910  2c 2c 2c 30 2c 30 0d 24  40 28 c8 93 c8 90 62 6c  |,,,0,0.$@(....bl|
00007920  6f 63 6b 25 21 34 2b 34  35 34 2c 62 6c 6f 63 6b  |ock%!4+454,block|
00007930  25 21 38 2b 32 34 38 2c  31 36 34 2c 32 38 0d 24  |%!8+248,164,28.$|
00007940  4a 05 e1 0d 24 54 05 3a  0d 24 5e 11 dd f2 62 61  |J...$T.:.$^...ba|
00007950  63 6b 5f 72 65 74 75 72  6e 0d 24 68 28 4e 25 3d  |ck_return.$h(N%=|
00007960  30 3a e7 70 6f 6c 6c 25  21 32 34 3d 31 33 84 70  |0:.poll%!24=13.p|
00007970  6f 6c 6c 25 21 32 34 3d  26 31 38 45 3a 4e 25 3d  |oll%!24=&18E:N%=|
00007980  31 0d 24 72 18 e7 70 6f  6c 6c 25 21 32 34 3d 26  |1.$r..poll%!24=&|
00007990  31 38 46 3a 4e 25 3d 2d  31 0d 24 7c 53 e7 70 6f  |18F:N%=-1.$|S.po|
000079a0  6c 6c 25 21 34 3d 31 31  80 4e 25 3d 2d 31 3a f2  |ll%!4=11.N%=-1:.|
000079b0  62 61 63 6b 5f 70 72 6f  28 32 34 29 3a f2 63 61  |back_pro(24):.ca|
000079c0  72 65 74 5f 73 65 74 70  6f 73 28 68 61 6e 64 6c  |ret_setpos(handl|
000079d0  65 5f 62 61 63 6b 25 2c  35 2c a4 6c 65 6e 28 69  |e_back%,5,.len(i|
000079e0  6e 64 5f 62 63 6b 25 2b  32 30 29 29 0d 24 86 52  |nd_bck%+20)).$.R|
000079f0  e7 70 6f 6c 6c 25 21 34  3d 35 80 4e 25 3d 31 3a  |.poll%!4=5.N%=1:|
00007a00  f2 62 61 63 6b 5f 70 72  6f 28 31 31 29 3a f2 63  |.back_pro(11):.c|
00007a10  61 72 65 74 5f 73 65 74  70 6f 73 28 68 61 6e 64  |aret_setpos(hand|
00007a20  6c 65 5f 62 61 63 6b 25  2c 31 31 2c a4 6c 65 6e  |le_back%,11,.len|
00007a30  28 69 6e 64 5f 62 63 6b  25 2b 32 34 29 29 0d 24  |(ind_bck%+24)).$|
00007a40  90 54 e7 70 6f 6c 6c 25  21 34 3d 31 37 80 4e 25  |.T.poll%!4=17.N%|
00007a50  3d 2d 31 3a f2 62 61 63  6b 5f 70 72 6f 28 33 37  |=-1:.back_pro(37|
00007a60  29 3a f2 63 61 72 65 74  5f 73 65 74 70 6f 73 28  |):.caret_setpos(|
00007a70  68 61 6e 64 6c 65 5f 62  61 63 6b 25 2c 31 31 2c  |handle_back%,11,|
00007a80  a4 6c 65 6e 28 69 6e 64  5f 62 63 6b 25 2b 32 34  |.len(ind_bck%+24|
00007a90  29 29 0d 24 9a 53 e7 70  6f 6c 6c 25 21 34 3d 31  |)).$.S.poll%!4=1|
00007aa0  31 80 4e 25 3d 31 3a f2  62 61 63 6b 5f 70 72 6f  |1.N%=1:.back_pro|
00007ab0  28 32 34 29 3a f2 63 61  72 65 74 5f 73 65 74 70  |(24):.caret_setp|
00007ac0  6f 73 28 68 61 6e 64 6c  65 5f 62 61 63 6b 25 2c  |os(handle_back%,|
00007ad0  31 37 2c a4 6c 65 6e 28  69 6e 64 5f 62 63 6b 25  |17,.len(ind_bck%|
00007ae0  2b 33 37 29 29 0d 24 a4  72 e7 70 6f 6c 6c 25 21  |+37)).$.r.poll%!|
00007af0  34 3d 31 37 80 70 6f 6c  6c 25 21 32 34 3d 31 33  |4=17.poll%!24=13|
00007b00  3a f2 62 61 63 6b 5f 70  72 6f 28 33 37 29 3a 62  |:.back_pro(37):b|
00007b10  75 74 74 6f 6e 25 3d 34  3a f2 6f 6b 5f 63 6c 69  |utton%=4:.ok_cli|
00007b20  63 6b 28 68 61 6e 64 6c  65 5f 62 61 63 6b 25 2c  |ck(handle_back%,|
00007b30  33 38 29 3a f2 62 61 63  6b 5f 4f 4b 3a f2 6f 6b  |38):.back_OK:.ok|
00007b40  5f 63 6c 69 63 6b 28 68  61 6e 64 6c 65 5f 62 61  |_click(handle_ba|
00007b50  63 6b 25 2c 33 38 29 0d  24 ae 05 e1 0d 24 b8 05  |ck%,38).$....$..|
00007b60  3a 0d 24 c2 0d dd f2 62  61 63 6b 5f 4f 4b 0d 24  |:.$....back_OK.$|
00007b70  cc 10 e7 67 72 6f 75 70  25 3d 32 35 35 8c 0d 24  |...group%=255..$|
00007b80  d6 21 20 64 61 74 61 5f  62 61 63 6b 25 3f 31 3d  |.! data_back%?1=|
00007b90  bb 24 28 69 6e 64 5f 62  63 6b 25 2b 31 31 29 0d  |.$(ind_bck%+11).|
00007ba0  24 e0 21 20 64 61 74 61  5f 62 61 63 6b 25 3f 32  |$.! data_back%?2|
00007bb0  3d bb 24 28 69 6e 64 5f  62 63 6b 25 2b 32 34 29  |=.$(ind_bck%+24)|
00007bc0  0d 24 ea 21 20 64 61 74  61 5f 62 61 63 6b 25 3f  |.$.! data_back%?|
00007bd0  33 3d bb 24 28 69 6e 64  5f 62 63 6b 25 2b 33 37  |3=.$(ind_bck%+37|
00007be0  29 0d 24 f4 05 cc 0d 24  fe 2e 20 70 69 65 5f 70  |).$....$.. pie_p|
00007bf0  61 6c 65 74 74 65 25 3f  28 67 72 6f 75 70 25 2a  |alette%?(group%*|
00007c00  34 2b 31 29 3d bb 24 28  69 6e 64 5f 62 63 6b 25  |4+1)=.$(ind_bck%|
00007c10  2b 31 31 29 0d 25 08 2e  20 70 69 65 5f 70 61 6c  |+11).%.. pie_pal|
00007c20  65 74 74 65 25 3f 28 67  72 6f 75 70 25 2a 34 2b  |ette%?(group%*4+|
00007c30  32 29 3d bb 24 28 69 6e  64 5f 62 63 6b 25 2b 32  |2)=.$(ind_bck%+2|
00007c40  34 29 0d 25 12 2e 20 70  69 65 5f 70 61 6c 65 74  |4).%.. pie_palet|
00007c50  74 65 25 3f 28 67 72 6f  75 70 25 2a 34 2b 33 29  |te%?(group%*4+3)|
00007c60  3d bb 24 28 69 6e 64 5f  62 63 6b 25 2b 33 37 29  |=.$(ind_bck%+37)|
00007c70  0d 25 1c 05 cd 0d 25 26  26 e7 62 75 74 74 6f 6e  |.%....%&&.button|
00007c80  25 3d 34 3a c8 99 22 57  69 6d 70 5f 43 72 65 61  |%=4:.."Wimp_Crea|
00007c90  74 65 4d 65 6e 75 22 2c  2c 2d 31 0d 25 30 05 e1  |teMenu",,-1.%0..|
00007ca0  0d 25 3a 05 3a 0d 25 44  11 dd f2 62 61 63 6b 5f  |.%:.:.%D...back_|
00007cb0  70 72 6f 28 4e 29 0d 25  4e 1e e7 4e 3e 31 30 30  |pro(N).%N..N>100|
00007cc0  30 3a 4e 2d 3d 31 30 30  30 3a 4e 25 3d a3 3a 8b  |0:N-=1000:N%=.:.|
00007cd0  4e 25 3d b9 0d 25 58 21  4d 3d bb 24 28 69 6e 64  |N%=..%X!M=.$(ind|
00007ce0  5f 62 63 6b 25 2b 4e 29  3a e7 4d 3e 32 35 35 3a  |_bck%+N):.M>255:|
00007cf0  4d 3d 32 35 35 0d 25 62  14 24 28 69 6e 64 5f 62  |M=255.%b.$(ind_b|
00007d00  63 6b 25 2b 4e 29 3d c3  4d 0d 25 6c 5e 21 62 6c  |ck%+N)=.M.%l^!bl|
00007d10  6f 63 6b 25 3d 68 61 6e  64 6c 65 5f 62 61 63 6b  |ock%=handle_back|
00007d20  25 3a 62 6c 6f 63 6b 25  21 34 3d 70 6f 6c 6c 25  |%:block%!4=poll%|
00007d30  21 34 3a 62 6c 6f 63 6b  25 21 38 3d 30 3a 62 6c  |!4:block%!8=0:bl|
00007d40  6f 63 6b 25 21 31 32 3d  30 3a c8 99 22 57 69 6d  |ock%!12=0:.."Wim|
00007d50  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00007d60  2c 62 6c 6f 63 6b 25 0d  25 76 1a f2 62 61 63 6b  |,block%.%v..back|
00007d70  5f 62 61 72 28 70 6f 6c  6c 25 21 34 2b 31 2c 4d  |_bar(poll%!4+1,M|
00007d80  29 0d 25 80 13 e7 4e 25  f2 62 61 63 6b 5f 63 6f  |).%...N%.back_co|
00007d90  6c 6f 75 72 0d 25 8a 05  e1 0d 25 94 05 3a 0d 25  |lour.%....%..:.%|
00007da0  9e 0f dd f2 73 74 79 6c  65 5f 6b 65 79 0d 25 a8  |....style_key.%.|
00007db0  2f e7 67 72 61 70 68 5f  6b 65 79 25 3a 67 72 61  |/.graph_key%:gra|
00007dc0  70 68 5f 6b 65 79 25 3d  a3 3a 6d 65 6e 75 5f 73  |ph_key%=.:menu_s|
00007dd0  74 79 6c 65 25 3f 32 38  3d 30 3a e1 0d 25 b2 23  |tyle%?28=0:..%.#|
00007de0  67 72 61 70 68 5f 6b 65  79 25 3d b9 3a 6d 65 6e  |graph_key%=.:men|
00007df0  75 5f 73 74 79 6c 65 25  3f 32 38 3d 31 3a e1 0d  |u_style%?28=1:..|
00007e00  25 bc 05 3a 0d 25 c6 0f  dd f2 73 74 79 6c 65 5f  |%..:.%....style_|
00007e10  62 6f 78 0d 25 d0 2f e7  67 72 61 70 68 5f 62 6f  |box.%./.graph_bo|
00007e20  78 25 3a 67 72 61 70 68  5f 62 6f 78 25 3d a3 3a  |x%:graph_box%=.:|
00007e30  6d 65 6e 75 5f 73 74 79  6c 65 25 3f 35 32 3d 38  |menu_style%?52=8|
00007e40  3a e1 0d 25 da 23 67 72  61 70 68 5f 62 6f 78 25  |:..%.#graph_box%|
00007e50  3d b9 3a 6d 65 6e 75 5f  73 74 79 6c 65 25 3f 35  |=.:menu_style%?5|
00007e60  32 3d 39 3a e1 0d 25 e4  05 3a 0d 25 ee 0e dd f2  |2=9:..%..:.%....|
00007e70  73 74 79 6c 65 5f 33 44  0d 25 f8 2e e7 67 72 61  |style_3D.%...gra|
00007e80  70 68 5f 33 44 25 3a 67  72 61 70 68 5f 33 44 25  |ph_3D%:graph_3D%|
00007e90  3d a3 3a 6d 65 6e 75 5f  73 74 79 6c 65 25 3f 31  |=.:menu_style%?1|
00007ea0  34 38 3d 38 3a e1 0d 26  02 23 67 72 61 70 68 5f  |48=8:..&.#graph_|
00007eb0  33 44 25 3d b9 3a 6d 65  6e 75 5f 73 74 79 6c 65  |3D%=.:menu_style|
00007ec0  25 3f 31 34 38 3d 39 3a  e1 0d 26 0c 05 3a 0d 26  |%?148=9:..&..:.&|
00007ed0  16 13 dd f2 73 74 79 6c  65 5f 6f 75 74 6c 69 6e  |....style_outlin|
00007ee0  65 0d 26 20 3d e7 67 72  61 70 68 5f 6f 75 74 6c  |e.& =.graph_outl|
00007ef0  69 6e 65 25 3d 30 3a 67  72 61 70 68 5f 6f 75 74  |ine%=0:graph_out|
00007f00  6c 69 6e 65 25 3d 2d 31  3a 6d 65 6e 75 5f 73 74  |line%=-1:menu_st|
00007f10  79 6c 65 25 3f 31 37 32  3d 31 32 38 3a e1 0d 26  |yle%?172=128:..&|
00007f20  2a 2a 67 72 61 70 68 5f  6f 75 74 6c 69 6e 65 25  |**graph_outline%|
00007f30  3d 30 3a 6d 65 6e 75 5f  73 74 79 6c 65 25 3f 31  |=0:menu_style%?1|
00007f40  37 32 3d 31 32 39 3a e1  0d 26 34 05 3a 0d 26 3e  |72=129:..&4.:.&>|
00007f50  0f dd f2 66 6f 6e 74 5f  6c 69 73 74 0d 26 48 12  |...font_list.&H.|
00007f60  f2 66 6f 6e 74 5f 74 69  63 6b 6c 69 73 74 0d 26  |.font_ticklist.&|
00007f70  52 23 c8 99 22 57 69 6d  70 5f 47 65 74 50 6f 69  |R#.."Wimp_GetPoi|
00007f80  6e 74 65 72 49 6e 66 6f  22 2c 2c 62 6c 6f 63 6b  |nterInfo",,block|
00007f90  25 0d 26 5c 3b c8 99 22  57 69 6d 70 5f 43 72 65  |%.&\;.."Wimp_Cre|
00007fa0  61 74 65 53 75 62 4d 65  6e 75 22 2c 2c 6d 65 6e  |ateSubMenu",,men|
00007fb0  75 5f 66 6f 6e 74 6c 69  73 74 25 2c 21 62 6c 6f  |u_fontlist%,!blo|
00007fc0  63 6b 25 2c 62 6c 6f 63  6b 25 21 34 0d 26 66 05  |ck%,block%!4.&f.|
00007fd0  e1 0d 26 70 05 3a 0d 26  7a 16 dd f2 73 74 79 6c  |..&p.:.&z...styl|
00007fe0  65 5f 66 6f 6e 74 73 65  6c 65 63 74 0d 26 84 14  |e_fontselect.&..|
00007ff0  66 6f 6e 74 5f 63 25 3d  70 6f 6c 6c 25 21 31 36  |font_c%=poll%!16|
00008000  0d 26 8e 2b 24 28 69 6e  64 5f 66 6e 74 25 2b 34  |.&.+$(ind_fnt%+4|
00008010  33 29 3d 24 28 66 6f 6e  74 5f 6c 69 73 74 25 2b  |3)=$(font_list%+|
00008020  66 6f 6e 74 5f 63 25 2a  34 30 29 0d 26 98 58 21  |font_c%*40).&.X!|
00008030  62 6c 6f 63 6b 25 3d 68  61 6e 64 6c 65 5f 66 6f  |block%=handle_fo|
00008040  6e 74 25 3a 62 6c 6f 63  6b 25 21 34 3d 34 3a 62  |nt%:block%!4=4:b|
00008050  6c 6f 63 6b 25 21 38 3d  30 3a 62 6c 6f 63 6b 25  |lock%!8=0:block%|
00008060  21 31 32 3d 30 3a c8 99  22 57 69 6d 70 5f 53 65  |!12=0:.."Wimp_Se|
00008070  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00008080  63 6b 25 0d 26 a2 14 c8  8e 6d 65 6e 75 5f 63 75  |ck%.&....menu_cu|
00008090  72 72 65 6e 74 25 ca 0d  26 ac 26 20 c9 31 3a c8  |rrent%..&.& .1:.|
000080a0  99 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  |."Wimp_CreateMen|
000080b0  75 22 2c 2c 6d 65 6e 75  5f 62 61 72 25 0d 26 b6  |u",,menu_bar%.&.|
000080c0  26 20 c9 32 3a c8 99 22  57 69 6d 70 5f 43 72 65  |& .2:.."Wimp_Cre|
000080d0  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 5f 77  |ateMenu",,menu_w|
000080e0  69 6e 25 0d 26 c0 05 cb  0d 26 ca 05 e1 0d 26 d4  |in%.&....&....&.|
000080f0  05 3a 0d 26 de 10 dd f2  66 6f 6e 74 5f 77 69 28  |.:.&....font_wi(|
00008100  4e 29 0d 26 e8 16 4d 3d  bb 24 28 69 6e 64 5f 66  |N).&..M=.$(ind_f|
00008110  6e 74 25 2b 31 33 31 29  0d 26 f2 0d e7 4d 2b 4e  |nt%+131).&...M+N|
00008120  3c 3d 30 3a e1 0d 26 fc  10 f2 66 6f 6e 74 5f 77  |<=0:..&...font_w|
00008130  28 4d 2b 4e 29 0d 27 06  05 e1 0d 27 10 05 3a 0d  |(M+N).'....'..:.|
00008140  27 1a 10 dd f2 66 6f 6e  74 5f 68 69 28 4e 29 0d  |'....font_hi(N).|
00008150  27 24 16 4d 3d bb 24 28  69 6e 64 5f 66 6e 74 25  |'$.M=.$(ind_fnt%|
00008160  2b 31 34 34 29 0d 27 2e  0d e7 4d 2b 4e 3c 3d 30  |+144).'...M+N<=0|
00008170  3a e1 0d 27 38 10 f2 66  6f 6e 74 5f 68 28 4d 2b  |:..'8..font_h(M+|
00008180  4e 29 0d 27 42 05 e1 0d  27 4c 05 3a 0d 27 56 0f  |N).'B...'L.:.'V.|
00008190  dd f2 66 6f 6e 74 5f 77  28 4e 29 0d 27 60 16 24  |..font_w(N).'`.$|
000081a0  28 69 6e 64 5f 66 6e 74  25 2b 31 33 31 29 3d c3  |(ind_fnt%+131)=.|
000081b0  4e 0d 27 6a 59 21 62 6c  6f 63 6b 25 3d 68 61 6e  |N.'jY!block%=han|
000081c0  64 6c 65 5f 66 6f 6e 74  25 3a 62 6c 6f 63 6b 25  |dle_font%:block%|
000081d0  21 34 3d 31 34 3a 62 6c  6f 63 6b 25 21 38 3d 30  |!4=14:block%!8=0|
000081e0  3a 62 6c 6f 63 6b 25 21  31 32 3d 30 3a c8 99 22  |:block%!12=0:.."|
000081f0  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00008200  65 22 2c 2c 62 6c 6f 63  6b 25 0d 27 74 25 c8 99  |e",,block%.'t%..|
00008210  22 57 69 6d 70 5f 47 65  74 43 61 72 65 74 50 6f  |"Wimp_GetCaretPo|
00008220  73 69 74 69 6f 6e 22 2c  2c 62 6c 6f 63 6b 25 0d  |sition",,block%.|
00008230  27 7e 69 e7 21 62 6c 6f  63 6b 25 3d 68 61 6e 64  |'~i.!block%=hand|
00008240  6c 65 5f 66 6f 6e 74 25  80 62 6c 6f 63 6b 25 21  |le_font%.block%!|
00008250  34 3d 31 34 3a c8 99 22  57 69 6d 70 5f 53 65 74  |4=14:.."Wimp_Set|
00008260  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 68  |CaretPosition",h|
00008270  61 6e 64 6c 65 5f 66 6f  6e 74 25 2c 31 34 2c 30  |andle_font%,14,0|
00008280  2c 30 2c 2d 31 2c a4 6c  65 6e 28 69 6e 64 5f 66  |,0,-1,.len(ind_f|
00008290  6e 74 25 2b 31 33 31 29  0d 27 88 05 e1 0d 27 92  |nt%+131).'....'.|
000082a0  05 3a 0d 27 9c 0f dd f2  66 6f 6e 74 5f 68 28 4e  |.:.'....font_h(N|
000082b0  29 0d 27 a6 16 24 28 69  6e 64 5f 66 6e 74 25 2b  |).'..$(ind_fnt%+|
000082c0  31 34 34 29 3d c3 4e 0d  27 b0 59 21 62 6c 6f 63  |144)=.N.'.Y!bloc|
000082d0  6b 25 3d 68 61 6e 64 6c  65 5f 66 6f 6e 74 25 3a  |k%=handle_font%:|
000082e0  62 6c 6f 63 6b 25 21 34  3d 31 38 3a 62 6c 6f 63  |block%!4=18:bloc|
000082f0  6b 25 21 38 3d 30 3a 62  6c 6f 63 6b 25 21 31 32  |k%!8=0:block%!12|
00008300  3d 30 3a c8 99 22 57 69  6d 70 5f 53 65 74 49 63  |=0:.."Wimp_SetIc|
00008310  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
00008320  0d 27 ba 25 c8 99 22 57  69 6d 70 5f 47 65 74 43  |.'.%.."Wimp_GetC|
00008330  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 2c 62  |aretPosition",,b|
00008340  6c 6f 63 6b 25 0d 27 c4  69 e7 21 62 6c 6f 63 6b  |lock%.'.i.!block|
00008350  25 3d 68 61 6e 64 6c 65  5f 66 6f 6e 74 25 80 62  |%=handle_font%.b|
00008360  6c 6f 63 6b 25 21 34 3d  31 38 3a c8 99 22 57 69  |lock%!4=18:.."Wi|
00008370  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00008380  69 6f 6e 22 2c 68 61 6e  64 6c 65 5f 66 6f 6e 74  |ion",handle_font|
00008390  25 2c 31 38 2c 30 2c 30  2c 2d 31 2c a4 6c 65 6e  |%,18,0,0,-1,.len|
000083a0  28 69 6e 64 5f 66 6e 74  25 2b 31 34 34 29 0d 27  |(ind_fnt%+144).'|
000083b0  ce 05 e1 0d 27 d8 05 3a  0d 27 e2 11 dd f2 66 6f  |....'..:.'....fo|
000083c0  6e 74 5f 72 65 74 75 72  6e 0d 27 ec 28 4e 25 3d  |nt_return.'.(N%=|
000083d0  30 3a e7 70 6f 6c 6c 25  21 32 34 3d 31 33 84 70  |0:.poll%!24=13.p|
000083e0  6f 6c 6c 25 21 32 34 3d  26 31 38 45 3a 4e 25 3d  |oll%!24=&18E:N%=|
000083f0  31 0d 27 f6 18 e7 70 6f  6c 6c 25 21 32 34 3d 26  |1.'...poll%!24=&|
00008400  31 38 46 3a 4e 25 3d 2d  31 0d 28 00 47 e7 70 6f  |18F:N%=-1.(.G.po|
00008410  6c 6c 25 21 34 3d 31 38  80 4e 25 3d 2d 31 3a f2  |ll%!4=18.N%=-1:.|
00008420  63 61 72 65 74 5f 73 65  74 70 6f 73 28 68 61 6e  |caret_setpos(han|
00008430  64 6c 65 5f 66 6f 6e 74  25 2c 31 34 2c a4 6c 65  |dle_font%,14,.le|
00008440  6e 28 69 6e 64 5f 66 6e  74 25 2b 31 33 31 29 29  |n(ind_fnt%+131))|
00008450  0d 28 0a 46 e7 70 6f 6c  6c 25 21 34 3d 31 34 80  |.(.F.poll%!4=14.|
00008460  4e 25 3d 31 3a f2 63 61  72 65 74 5f 73 65 74 70  |N%=1:.caret_setp|
00008470  6f 73 28 68 61 6e 64 6c  65 5f 66 6f 6e 74 25 2c  |os(handle_font%,|
00008480  31 38 2c a4 6c 65 6e 28  69 6e 64 5f 66 6e 74 25  |18,.len(ind_fnt%|
00008490  2b 31 34 34 29 29 0d 28  14 64 e7 70 6f 6c 6c 25  |+144)).(.d.poll%|
000084a0  21 34 3d 31 38 80 70 6f  6c 6c 25 21 32 34 3d 31  |!4=18.poll%!24=1|
000084b0  33 3a 62 75 74 74 6f 6e  25 3d 34 3a f2 6f 6b 5f  |3:button%=4:.ok_|
000084c0  63 6c 69 63 6b 28 68 61  6e 64 6c 65 5f 66 6f 6e  |click(handle_fon|
000084d0  74 25 2c 32 31 29 3a f2  66 6f 6e 74 5f 4f 4b 3a  |t%,21):.font_OK:|
000084e0  f2 6f 6b 5f 63 6c 69 63  6b 28 68 61 6e 64 6c 65  |.ok_click(handle|
000084f0  5f 66 6f 6e 74 25 2c 32  31 29 0d 28 1e 05 e1 0d  |_font%,21).(....|
00008500  28 28 05 3a 0d 28 32 0d  dd f2 66 6f 6e 74 5f 4f  |((.:.(2...font_O|
00008510  4b 0d 28 3c 0d c8 8e 67  72 6f 75 70 25 ca 0d 28  |K.(<...group%..(|
00008520  46 55 20 c9 30 3a 74 65  78 74 5f 74 69 74 6c 65  |FU .0:text_title|
00008530  63 3d 66 6f 6e 74 5f 63  25 3a 74 65 78 74 5f 74  |c=font_c%:text_t|
00008540  69 74 6c 65 78 3d bb 24  28 69 6e 64 5f 66 6e 74  |itlex=.$(ind_fnt|
00008550  25 2b 31 33 31 29 3a 74  65 78 74 5f 74 69 74 6c  |%+131):text_titl|
00008560  65 79 3d bb 24 28 69 6e  64 5f 66 6e 74 25 2b 31  |ey=.$(ind_fnt%+1|
00008570  34 34 29 0d 28 50 52 20  c9 31 3a 74 65 78 74 5f  |44).(PR .1:text_|
00008580  61 78 69 73 63 3d 66 6f  6e 74 5f 63 25 3a 74 65  |axisc=font_c%:te|
00008590  78 74 5f 61 78 69 73 78  3d bb 24 28 69 6e 64 5f  |xt_axisx=.$(ind_|
000085a0  66 6e 74 25 2b 31 33 31  29 3a 74 65 78 74 5f 61  |fnt%+131):text_a|
000085b0  78 69 73 79 3d bb 24 28  69 6e 64 5f 66 6e 74 25  |xisy=.$(ind_fnt%|
000085c0  2b 31 34 34 29 0d 28 5a  4f 20 c9 32 3a 74 65 78  |+144).(ZO .2:tex|
000085d0  74 5f 6b 65 79 63 3d 66  6f 6e 74 5f 63 25 3a 74  |t_keyc=font_c%:t|
000085e0  65 78 74 5f 6b 65 79 78  3d bb 24 28 69 6e 64 5f  |ext_keyx=.$(ind_|
000085f0  66 6e 74 25 2b 31 33 31  29 3a 74 65 78 74 5f 6b  |fnt%+131):text_k|
00008600  65 79 79 3d bb 24 28 69  6e 64 5f 66 6e 74 25 2b  |eyy=.$(ind_fnt%+|
00008610  31 34 34 29 0d 28 64 05  cb 0d 28 6e 26 e7 62 75  |144).(d...(n&.bu|
00008620  74 74 6f 6e 25 3d 34 3a  c8 99 22 57 69 6d 70 5f  |tton%=4:.."Wimp_|
00008630  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 0d  |CreateMenu",,-1.|
00008640  28 78 05 e1 0d 28 82 05  3a 0d 28 8c 0f dd f2 70  |(x...(..:.(....p|
00008650  61 6e 65 5f 73 28 4e 29  0d 28 96 15 4d 3d bb 24  |ane_s(N).(..M=.$|
00008660  28 69 6e 64 5f 70 6e 25  2b 39 37 31 29 0d 28 a0  |(ind_pn%+971).(.|
00008670  14 e7 4d 2b 4e 3c 31 84  4d 2b 4e 3e 39 39 39 3a  |..M+N<1.M+N>999:|
00008680  e1 0d 28 aa 08 4d 2b 3d  4e 0d 28 b4 15 24 28 69  |..(..M+=N.(..$(i|
00008690  6e 64 5f 70 6e 25 2b 39  37 31 29 3d c3 4d 0d 28  |nd_pn%+971)=.M.(|
000086a0  be 59 21 62 6c 6f 63 6b  25 3d 68 61 6e 64 6c 65  |.Y!block%=handle|
000086b0  5f 70 61 6e 65 25 3a 62  6c 6f 63 6b 25 21 34 3d  |_pane%:block%!4=|
000086c0  34 36 3a 62 6c 6f 63 6b  25 21 38 3d 30 3a 62 6c  |46:block%!8=0:bl|
000086d0  6f 63 6b 25 21 31 32 3d  30 3a c8 99 22 57 69 6d  |ock%!12=0:.."Wim|
000086e0  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
000086f0  2c 62 6c 6f 63 6b 25 0d  28 c8 25 c8 99 22 57 69  |,block%.(.%.."Wi|
00008700  6d 70 5f 47 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_GetCaretPosit|
00008710  69 6f 6e 22 2c 2c 62 6c  6f 63 6b 25 0d 28 d2 29  |ion",,block%.(.)|
00008720  e7 21 62 6c 6f 63 6b 25  3c 3e 68 61 6e 64 6c 65  |.!block%<>handle|
00008730  5f 70 61 6e 65 25 84 62  6c 6f 63 6b 25 21 34 3c  |_pane%.block%!4<|
00008740  3e 34 36 3a e1 0d 28 dc  3a c8 99 22 57 69 6d 70  |>46:..(.:.."Wimp|
00008750  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
00008760  6e 22 2c 68 61 6e 64 6c  65 5f 70 61 6e 65 25 2c  |n",handle_pane%,|
00008770  34 36 2c 2d 31 2c 2d 31  2c 2d 31 2c a9 c3 4d 0d  |46,-1,-1,-1,..M.|
00008780  28 e6 05 e1 0d 28 f0 05  3a 0d 28 fa 0f dd f2 70  |(....(..:.(....p|
00008790  61 6e 65 5f 66 28 4e 29  0d 29 04 15 4d 3d bb 24  |ane_f(N).)..M=.$|
000087a0  28 69 6e 64 5f 70 6e 25  2b 39 38 33 29 0d 29 0e  |(ind_pn%+983).).|
000087b0  14 e7 4d 2b 4e 3c 31 84  4d 2b 4e 3e 39 39 39 3a  |..M+N<1.M+N>999:|
000087c0  e1 0d 29 18 08 4d 2b 3d  4e 0d 29 22 15 24 28 69  |..)..M+=N.)".$(i|
000087d0  6e 64 5f 70 6e 25 2b 39  38 33 29 3d c3 4d 0d 29  |nd_pn%+983)=.M.)|
000087e0  2c 59 21 62 6c 6f 63 6b  25 3d 68 61 6e 64 6c 65  |,Y!block%=handle|
000087f0  5f 70 61 6e 65 25 3a 62  6c 6f 63 6b 25 21 34 3d  |_pane%:block%!4=|
00008800  35 30 3a 62 6c 6f 63 6b  25 21 38 3d 30 3a 62 6c  |50:block%!8=0:bl|
00008810  6f 63 6b 25 21 31 32 3d  30 3a c8 99 22 57 69 6d  |ock%!12=0:.."Wim|
00008820  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00008830  2c 62 6c 6f 63 6b 25 0d  29 36 25 c8 99 22 57 69  |,block%.)6%.."Wi|
00008840  6d 70 5f 47 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_GetCaretPosit|
00008850  69 6f 6e 22 2c 2c 62 6c  6f 63 6b 25 0d 29 40 29  |ion",,block%.)@)|
00008860  e7 21 62 6c 6f 63 6b 25  3c 3e 68 61 6e 64 6c 65  |.!block%<>handle|
00008870  5f 70 61 6e 65 25 84 62  6c 6f 63 6b 25 21 34 3c  |_pane%.block%!4<|
00008880  3e 35 30 3a e1 0d 29 4a  3a c8 99 22 57 69 6d 70  |>50:..)J:.."Wimp|
00008890  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
000088a0  6e 22 2c 68 61 6e 64 6c  65 5f 70 61 6e 65 25 2c  |n",handle_pane%,|
000088b0  35 30 2c 2d 31 2c 2d 31  2c 2d 31 2c a9 c3 4d 0d  |50,-1,-1,-1,..M.|
000088c0  29 54 05 e1 0d 29 5e 05  3a 0d 29 68 0d dd f2 70  |)T...)^.:.)h...p|
000088d0  61 6e 65 5f 4f 4b 0d 29  72 18 21 62 6c 6f 63 6b  |ane_OK.)r.!block|
000088e0  25 3d 68 61 6e 64 6c 65  5f 70 61 6e 65 25 0d 29  |%=handle_pane%.)|
000088f0  7c 2c 62 6c 6f 63 6b 25  21 34 3d 31 3a c8 99 22  ||,block%!4=1:.."|
00008900  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00008910  65 22 2c 2c 62 6c 6f 63  6b 25 0d 29 86 35 e7 62  |e",,block%.).5.b|
00008920  6c 6f 63 6b 25 21 32 34  80 26 32 30 30 30 30 30  |lock%!24.&200000|
00008930  3a 67 72 61 70 68 5f 74  69 74 6c 65 25 3d b9 3a  |:graph_title%=.:|
00008940  8b 67 72 61 70 68 5f 74  69 74 6c 65 25 3d a3 0d  |.graph_title%=..|
00008950  29 90 1b 24 73 5f 74 69  74 6c 65 25 3d 24 28 69  |)..$s_title%=$(i|
00008960  6e 64 5f 70 6e 25 2b 32  34 29 0d 29 9a 2c 62 6c  |nd_pn%+24).).,bl|
00008970  6f 63 6b 25 21 34 3d 34  3a c8 99 22 57 69 6d 70  |ock%!4=4:.."Wimp|
00008980  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00008990  62 6c 6f 63 6b 25 0d 29  a4 35 e7 62 6c 6f 63 6b  |block%.).5.block|
000089a0  25 21 32 34 80 26 32 30  30 30 30 30 3a 67 72 61  |%!24.&200000:gra|
000089b0  70 68 5f 78 61 78 69 73  25 3d b9 3a 8b 67 72 61  |ph_xaxis%=.:.gra|
000089c0  70 68 5f 78 61 78 69 73  25 3d a3 0d 29 ae 1b 24  |ph_xaxis%=..)..$|
000089d0  73 5f 78 61 78 69 73 25  3d 24 28 69 6e 64 5f 70  |s_xaxis%=$(ind_p|
000089e0  6e 25 2b 39 38 29 0d 29  b8 0f 67 72 61 70 68 5f  |n%+98).)..graph_|
000089f0  78 67 25 3d 30 0d 29 c2  4b 62 6c 6f 63 6b 25 21  |xg%=0.).Kblock%!|
00008a00  34 3d 36 3a c8 99 22 57  69 6d 70 5f 47 65 74 49  |4=6:.."Wimp_GetI|
00008a10  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00008a20  25 3a e7 62 6c 6f 63 6b  25 21 32 34 80 26 32 30  |%:.block%!24.&20|
00008a30  30 30 30 30 3a 67 72 61  70 68 5f 78 67 25 3d 31  |0000:graph_xg%=1|
00008a40  0d 29 cc 4b 62 6c 6f 63  6b 25 21 34 3d 37 3a c8  |.).Kblock%!4=7:.|
00008a50  99 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  |."Wimp_GetIconSt|
00008a60  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 3a e7 62 6c  |ate",,block%:.bl|
00008a70  6f 63 6b 25 21 32 34 80  26 32 30 30 30 30 30 3a  |ock%!24.&200000:|
00008a80  67 72 61 70 68 5f 78 67  25 3d 32 0d 29 d6 1e 67  |graph_xg%=2.)..g|
00008a90  72 61 70 68 5f 78 64 69  76 3d bb 24 28 69 6e 64  |raph_xdiv=.$(ind|
00008aa0  5f 70 6e 25 2b 32 31 32  29 0d 29 e0 1f 67 72 61  |_pn%+212).)..gra|
00008ab0  70 68 5f 78 73 64 69 76  3d bb 24 28 69 6e 64 5f  |ph_xsdiv=.$(ind_|
00008ac0  70 6e 25 2b 32 34 34 29  0d 29 ea 2d 62 6c 6f 63  |pn%+244).).-bloc|
00008ad0  6b 25 21 34 3d 31 32 3a  c8 99 22 57 69 6d 70 5f  |k%!4=12:.."Wimp_|
00008ae0  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00008af0  6c 6f 63 6b 25 0d 29 f4  33 e7 62 6c 6f 63 6b 25  |lock%.).3.block%|
00008b00  21 32 34 80 26 32 30 30  30 30 30 3a 67 72 61 70  |!24.&200000:grap|
00008b10  68 5f 78 63 61 6c 25 3d  b9 3a 8b 67 72 61 70 68  |h_xcal%=.:.graph|
00008b20  5f 78 63 61 6c 25 3d a3  0d 29 fe 1d 64 61 74 61  |_xcal%=..)..data|
00008b30  5f 78 6d 69 6e 3d bb 24  28 69 6e 64 5f 70 6e 25  |_xmin=.$(ind_pn%|
00008b40  2b 32 39 39 29 0d 2a 08  1d 64 61 74 61 5f 78 6d  |+299).*..data_xm|
00008b50  61 78 3d bb 24 28 69 6e  64 5f 70 6e 25 2b 33 31  |ax=.$(ind_pn%+31|
00008b60  38 29 0d 2a 12 2d 62 6c  6f 63 6b 25 21 34 3d 31  |8).*.-block%!4=1|
00008b70  38 3a c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |8:.."Wimp_GetIco|
00008b80  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |nState",,block%.|
00008b90  2a 1c 35 e7 62 6c 6f 63  6b 25 21 32 34 80 26 32  |*.5.block%!24.&2|
00008ba0  30 30 30 30 30 3a 67 72  61 70 68 5f 79 61 78 69  |00000:graph_yaxi|
00008bb0  73 25 3d b9 3a 8b 67 72  61 70 68 5f 79 61 78 69  |s%=.:.graph_yaxi|
00008bc0  73 25 3d a3 0d 2a 26 1c  24 73 5f 79 61 78 69 73  |s%=..*&.$s_yaxis|
00008bd0  25 3d 24 28 69 6e 64 5f  70 6e 25 2b 33 36 38 29  |%=$(ind_pn%+368)|
00008be0  0d 2a 30 0f 67 72 61 70  68 5f 79 67 25 3d 30 0d  |.*0.graph_yg%=0.|
00008bf0  2a 3a 4c 62 6c 6f 63 6b  25 21 34 3d 32 30 3a c8  |*:Lblock%!4=20:.|
00008c00  99 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  |."Wimp_GetIconSt|
00008c10  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 3a e7 62 6c  |ate",,block%:.bl|
00008c20  6f 63 6b 25 21 32 34 80  26 32 30 30 30 30 30 3a  |ock%!24.&200000:|
00008c30  67 72 61 70 68 5f 79 67  25 3d 31 0d 2a 44 4c 62  |graph_yg%=1.*DLb|
00008c40  6c 6f 63 6b 25 21 34 3d  32 31 3a c8 99 22 57 69  |lock%!4=21:.."Wi|
00008c50  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00008c60  2c 2c 62 6c 6f 63 6b 25  3a e7 62 6c 6f 63 6b 25  |,,block%:.block%|
00008c70  21 32 34 80 26 32 30 30  30 30 30 3a 67 72 61 70  |!24.&200000:grap|
00008c80  68 5f 79 67 25 3d 32 0d  2a 4e 1e 67 72 61 70 68  |h_yg%=2.*N.graph|
00008c90  5f 79 64 69 76 3d bb 24  28 69 6e 64 5f 70 6e 25  |_ydiv=.$(ind_pn%|
00008ca0  2b 34 38 32 29 0d 2a 58  1f 67 72 61 70 68 5f 79  |+482).*X.graph_y|
00008cb0  73 64 69 76 3d bb 24 28  69 6e 64 5f 70 6e 25 2b  |sdiv=.$(ind_pn%+|
00008cc0  35 31 34 29 0d 2a 62 2d  62 6c 6f 63 6b 25 21 34  |514).*b-block%!4|
00008cd0  3d 32 36 3a c8 99 22 57  69 6d 70 5f 47 65 74 49  |=26:.."Wimp_GetI|
00008ce0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00008cf0  25 0d 2a 6c 33 e7 62 6c  6f 63 6b 25 21 32 34 80  |%.*l3.block%!24.|
00008d00  26 32 30 30 30 30 30 3a  67 72 61 70 68 5f 79 63  |&200000:graph_yc|
00008d10  61 6c 25 3d b9 3a 8b 67  72 61 70 68 5f 79 63 61  |al%=.:.graph_yca|
00008d20  6c 25 3d a3 0d 2a 76 1d  64 61 74 61 5f 79 6d 69  |l%=..*v.data_ymi|
00008d30  6e 3d bb 24 28 69 6e 64  5f 70 6e 25 2b 35 36 39  |n=.$(ind_pn%+569|
00008d40  29 0d 2a 80 1d 64 61 74  61 5f 79 6d 61 78 3d bb  |).*..data_ymax=.|
00008d50  24 28 69 6e 64 5f 70 6e  25 2b 35 38 38 29 0d 2a  |$(ind_pn%+588).*|
00008d60  8a 14 67 72 61 70 68 5f  62 61 72 74 79 70 65 25  |..graph_bartype%|
00008d70  3d 30 0d 2a 94 31 e3 62  6c 6f 63 6b 25 21 34 3d  |=0.*.1.block%!4=|
00008d80  33 33 b8 33 37 3a c8 99  22 57 69 6d 70 5f 47 65  |33.37:.."Wimp_Ge|
00008d90  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00008da0  63 6b 25 0d 2a 9e 32 e7  62 6c 6f 63 6b 25 21 32  |ck%.*.2.block%!2|
00008db0  34 80 26 32 30 30 30 30  30 3a 67 72 61 70 68 5f  |4.&200000:graph_|
00008dc0  62 61 72 74 79 70 65 25  2b 3d 62 6c 6f 63 6b 25  |bartype%+=block%|
00008dd0  21 34 2d 33 32 0d 2a a8  05 ed 0d 2a b2 16 67 72  |!4-32.*....*..gr|
00008de0  61 70 68 5f 62 61 72 6d  61 72 67 69 6e 25 3d 30  |aph_barmargin%=0|
00008df0  0d 2a bc 2d 62 6c 6f 63  6b 25 21 34 3d 33 38 3a  |.*.-block%!4=38:|
00008e00  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00008e10  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 2a c6  |tate",,block%.*.|
00008e20  2a e7 62 6c 6f 63 6b 25  21 32 34 80 26 32 30 30  |*.block%!24.&200|
00008e30  30 30 30 3a 67 72 61 70  68 5f 62 61 72 6d 61 72  |000:graph_barmar|
00008e40  67 69 6e 25 2b 3d 31 0d  2a d0 2d 62 6c 6f 63 6b  |gin%+=1.*.-block|
00008e50  25 21 34 3d 33 39 3a c8  99 22 57 69 6d 70 5f 47  |%!4=39:.."Wimp_G|
00008e60  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
00008e70  6f 63 6b 25 0d 2a da 2c  e7 62 6c 6f 63 6b 25 21  |ock%.*.,.block%!|
00008e80  32 34 80 26 32 30 30 30  30 30 3a 67 72 61 70 68  |24.&200000:graph|
00008e90  5f 62 61 72 6d 61 72 67  69 6e 25 2b 3d 31 32 38  |_barmargin%+=128|
00008ea0  0d 2a e4 2d 62 6c 6f 63  6b 25 21 34 3d 34 31 3a  |.*.-block%!4=41:|
00008eb0  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00008ec0  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 2a ee  |tate",,block%.*.|
00008ed0  29 e7 62 6c 6f 63 6b 25  21 32 34 80 26 32 30 30  |).block%!24.&200|
00008ee0  30 30 30 3a 67 72 61 70  68 5f 62 61 72 74 79 70  |000:graph_bartyp|
00008ef0  65 25 2b 3d 31 30 0d 2a  f8 2d 62 6c 6f 63 6b 25  |e%+=10.*.-block%|
00008f00  21 34 3d 34 33 3a c8 99  22 57 69 6d 70 5f 47 65  |!4=43:.."Wimp_Ge|
00008f10  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00008f20  63 6b 25 0d 2b 02 31 e7  62 6c 6f 63 6b 25 21 32  |ck%.+.1.block%!2|
00008f30  34 80 26 32 30 30 30 30  30 3a 67 72 61 70 68 5f  |4.&200000:graph_|
00008f40  65 78 70 25 3d b9 3a 8b  67 72 61 70 68 5f 65 78  |exp%=.:.graph_ex|
00008f50  70 25 3d a3 0d 2b 0c 1d  67 72 61 70 68 5f 65 73  |p%=..+..graph_es|
00008f60  25 3d bb 24 28 69 6e 64  5f 70 6e 25 2b 39 37 31  |%=.$(ind_pn%+971|
00008f70  29 0d 2b 16 1d 67 72 61  70 68 5f 65 66 25 3d bb  |).+..graph_ef%=.|
00008f80  24 28 69 6e 64 5f 70 6e  25 2b 39 38 33 29 0d 2b  |$(ind_pn%+983).+|
00008f90  20 44 f2 70 61 6e 65 5f  63 61 6c 63 75 6c 61 74  | D.pane_calculat|
00008fa0  65 3a c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |e:.."Wimp_ForceR|
00008fb0  65 64 72 61 77 22 2c 68  61 6e 64 6c 65 5f 70 61  |edraw",handle_pa|
00008fc0  6e 65 25 2c 30 2c 2d 31  30 32 33 2c 31 32 37 39  |ne%,0,-1023,1279|
00008fd0  2c 30 0d 2b 2a 13 66 6c  61 67 5f 66 69 64 64 6c  |,0.+*.flag_fiddl|
00008fe0  65 64 25 3d a3 0d 2b 34  05 e1 0d 2b 3e 05 3a 0d  |ed%=..+4...+>.:.|
00008ff0  2b 48 11 dd f2 70 61 6e  65 5f 72 65 74 75 72 6e  |+H...pane_return|
00009000  0d 2b 52 28 4e 25 3d 30  3a e7 70 6f 6c 6c 25 21  |.+R(N%=0:.poll%!|
00009010  32 34 3d 31 33 84 70 6f  6c 6c 25 21 32 34 3d 26  |24=13.poll%!24=&|
00009020  31 38 45 3a 4e 25 3d 31  0d 2b 5c 18 e7 70 6f 6c  |18E:N%=1.+\..pol|
00009030  6c 25 21 32 34 3d 26 31  38 46 3a 4e 25 3d 2d 31  |l%!24=&18F:N%=-1|
00009040  0d 2b 66 43 e7 70 6f 6c  6c 25 21 34 3d 35 80 4e  |.+fC.poll%!4=5.N|
00009050  25 3d 2d 31 3a f2 63 61  72 65 74 5f 73 65 74 70  |%=-1:.caret_setp|
00009060  6f 73 28 68 61 6e 64 6c  65 5f 70 61 6e 65 25 2c  |os(handle_pane%,|
00009070  32 2c a4 6c 65 6e 28 69  6e 64 5f 70 6e 25 2b 32  |2,.len(ind_pn%+2|
00009080  34 29 29 0d 2b 70 52 e7  70 6f 6c 6c 25 21 34 3d  |4)).+pR.poll%!4=|
00009090  32 80 4e 25 3d 31 84 70  6f 6c 6c 25 21 34 3d 39  |2.N%=1.poll%!4=9|
000090a0  80 4e 25 3d 2d 31 3a f2  63 61 72 65 74 5f 73 65  |.N%=-1:.caret_se|
000090b0  74 70 6f 73 28 68 61 6e  64 6c 65 5f 70 61 6e 65  |tpos(handle_pane|
000090c0  25 2c 35 2c a4 6c 65 6e  28 69 6e 64 5f 70 6e 25  |%,5,.len(ind_pn%|
000090d0  2b 39 38 29 29 0d 2b 7a  54 e7 70 6f 6c 6c 25 21  |+98)).+zT.poll%!|
000090e0  34 3d 35 80 4e 25 3d 31  84 70 6f 6c 6c 25 21 34  |4=5.N%=1.poll%!4|
000090f0  3d 31 31 80 4e 25 3d 2d  31 3a f2 63 61 72 65 74  |=11.N%=-1:.caret|
00009100  5f 73 65 74 70 6f 73 28  68 61 6e 64 6c 65 5f 70  |_setpos(handle_p|
00009110  61 6e 65 25 2c 39 2c a4  6c 65 6e 28 69 6e 64 5f  |ane%,9,.len(ind_|
00009120  70 6e 25 2b 32 31 32 29  29 0d 2b 84 55 e7 70 6f  |pn%+212)).+.U.po|
00009130  6c 6c 25 21 34 3d 39 80  4e 25 3d 31 84 70 6f 6c  |ll%!4=9.N%=1.pol|
00009140  6c 25 21 34 3d 31 34 80  4e 25 3d 2d 31 3a f2 63  |l%!4=14.N%=-1:.c|
00009150  61 72 65 74 5f 73 65 74  70 6f 73 28 68 61 6e 64  |aret_setpos(hand|
00009160  6c 65 5f 70 61 6e 65 25  2c 31 31 2c a4 6c 65 6e  |le_pane%,11,.len|
00009170  28 69 6e 64 5f 70 6e 25  2b 32 34 34 29 29 0d 2b  |(ind_pn%+244)).+|
00009180  8e 56 e7 70 6f 6c 6c 25  21 34 3d 31 31 80 4e 25  |.V.poll%!4=11.N%|
00009190  3d 31 84 70 6f 6c 6c 25  21 34 3d 31 36 80 4e 25  |=1.poll%!4=16.N%|
000091a0  3d 2d 31 3a f2 63 61 72  65 74 5f 73 65 74 70 6f  |=-1:.caret_setpo|
000091b0  73 28 68 61 6e 64 6c 65  5f 70 61 6e 65 25 2c 31  |s(handle_pane%,1|
000091c0  34 2c a4 6c 65 6e 28 69  6e 64 5f 70 6e 25 2b 32  |4,.len(ind_pn%+2|
000091d0  39 39 29 29 0d 2b 98 56  e7 70 6f 6c 6c 25 21 34  |99)).+.V.poll%!4|
000091e0  3d 31 34 80 4e 25 3d 31  84 70 6f 6c 6c 25 21 34  |=14.N%=1.poll%!4|
000091f0  3d 31 39 80 4e 25 3d 2d  31 3a f2 63 61 72 65 74  |=19.N%=-1:.caret|
00009200  5f 73 65 74 70 6f 73 28  68 61 6e 64 6c 65 5f 70  |_setpos(handle_p|
00009210  61 6e 65 25 2c 31 36 2c  a4 6c 65 6e 28 69 6e 64  |ane%,16,.len(ind|
00009220  5f 70 6e 25 2b 33 31 38  29 29 0d 2b a2 56 e7 70  |_pn%+318)).+.V.p|
00009230  6f 6c 6c 25 21 34 3d 31  36 80 4e 25 3d 31 84 70  |oll%!4=16.N%=1.p|
00009240  6f 6c 6c 25 21 34 3d 32  33 80 4e 25 3d 2d 31 3a  |oll%!4=23.N%=-1:|
00009250  f2 63 61 72 65 74 5f 73  65 74 70 6f 73 28 68 61  |.caret_setpos(ha|
00009260  6e 64 6c 65 5f 70 61 6e  65 25 2c 31 39 2c a4 6c  |ndle_pane%,19,.l|
00009270  65 6e 28 69 6e 64 5f 70  6e 25 2b 33 36 38 29 29  |en(ind_pn%+368))|
00009280  0d 2b ac 56 e7 70 6f 6c  6c 25 21 34 3d 31 39 80  |.+.V.poll%!4=19.|
00009290  4e 25 3d 31 84 70 6f 6c  6c 25 21 34 3d 32 35 80  |N%=1.poll%!4=25.|
000092a0  4e 25 3d 2d 31 3a f2 63  61 72 65 74 5f 73 65 74  |N%=-1:.caret_set|
000092b0  70 6f 73 28 68 61 6e 64  6c 65 5f 70 61 6e 65 25  |pos(handle_pane%|
000092c0  2c 32 33 2c a4 6c 65 6e  28 69 6e 64 5f 70 6e 25  |,23,.len(ind_pn%|
000092d0  2b 34 38 32 29 29 0d 2b  b6 56 e7 70 6f 6c 6c 25  |+482)).+.V.poll%|
000092e0  21 34 3d 32 33 80 4e 25  3d 31 84 70 6f 6c 6c 25  |!4=23.N%=1.poll%|
000092f0  21 34 3d 32 38 80 4e 25  3d 2d 31 3a f2 63 61 72  |!4=28.N%=-1:.car|
00009300  65 74 5f 73 65 74 70 6f  73 28 68 61 6e 64 6c 65  |et_setpos(handle|
00009310  5f 70 61 6e 65 25 2c 32  35 2c a4 6c 65 6e 28 69  |_pane%,25,.len(i|
00009320  6e 64 5f 70 6e 25 2b 35  31 34 29 29 0d 2b c0 56  |nd_pn%+514)).+.V|
00009330  e7 70 6f 6c 6c 25 21 34  3d 32 35 80 4e 25 3d 31  |.poll%!4=25.N%=1|
00009340  84 70 6f 6c 6c 25 21 34  3d 33 30 80 4e 25 3d 2d  |.poll%!4=30.N%=-|
00009350  31 3a f2 63 61 72 65 74  5f 73 65 74 70 6f 73 28  |1:.caret_setpos(|
00009360  68 61 6e 64 6c 65 5f 70  61 6e 65 25 2c 32 38 2c  |handle_pane%,28,|
00009370  a4 6c 65 6e 28 69 6e 64  5f 70 6e 25 2b 35 36 39  |.len(ind_pn%+569|
00009380  29 29 0d 2b ca 56 e7 70  6f 6c 6c 25 21 34 3d 32  |)).+.V.poll%!4=2|
00009390  38 80 4e 25 3d 31 84 70  6f 6c 6c 25 21 34 3d 34  |8.N%=1.poll%!4=4|
000093a0  36 80 4e 25 3d 2d 31 3a  f2 63 61 72 65 74 5f 73  |6.N%=-1:.caret_s|
000093b0  65 74 70 6f 73 28 68 61  6e 64 6c 65 5f 70 61 6e  |etpos(handle_pan|
000093c0  65 25 2c 33 30 2c a4 6c  65 6e 28 69 6e 64 5f 70  |e%,30,.len(ind_p|
000093d0  6e 25 2b 35 38 38 29 29  0d 2b d4 56 e7 70 6f 6c  |n%+588)).+.V.pol|
000093e0  6c 25 21 34 3d 33 30 80  4e 25 3d 31 84 70 6f 6c  |l%!4=30.N%=1.pol|
000093f0  6c 25 21 34 3d 35 30 80  4e 25 3d 2d 31 3a f2 63  |l%!4=50.N%=-1:.c|
00009400  61 72 65 74 5f 73 65 74  70 6f 73 28 68 61 6e 64  |aret_setpos(hand|
00009410  6c 65 5f 70 61 6e 65 25  2c 34 36 2c a4 6c 65 6e  |le_pane%,46,.len|
00009420  28 69 6e 64 5f 70 6e 25  2b 39 37 31 29 29 0d 2b  |(ind_pn%+971)).+|
00009430  de 45 e7 70 6f 6c 6c 25  21 34 3d 34 36 80 4e 25  |.E.poll%!4=46.N%|
00009440  3d 31 3a f2 63 61 72 65  74 5f 73 65 74 70 6f 73  |=1:.caret_setpos|
00009450  28 68 61 6e 64 6c 65 5f  70 61 6e 65 25 2c 35 30  |(handle_pane%,50|
00009460  2c a4 6c 65 6e 28 69 6e  64 5f 70 6e 25 2b 39 38  |,.len(ind_pn%+98|
00009470  33 29 29 0d 2b e8 66 e7  70 6f 6c 6c 25 21 34 3d  |3)).+.f.poll%!4=|
00009480  35 30 80 70 6f 6c 6c 25  21 32 34 3d 31 33 3a 62  |50.poll%!24=13:b|
00009490  75 74 74 6f 6e 25 3d 34  3a f2 6f 6b 5f 63 6c 69  |utton%=4:.ok_cli|
000094a0  63 6b 28 68 61 6e 64 6c  65 5f 66 6f 72 6d 61 74  |ck(handle_format|
000094b0  25 2c 36 29 3a f2 70 61  6e 65 5f 4f 4b 3a f2 6f  |%,6):.pane_OK:.o|
000094c0  6b 5f 63 6c 69 63 6b 28  68 61 6e 64 6c 65 5f 66  |k_click(handle_f|
000094d0  6f 72 6d 61 74 25 2c 36  29 0d 2b f2 05 e1 0d 2b  |ormat%,6).+....+|
000094e0  fc 05 3a 0d 2c 06 5d dd  f2 6f 6b 5f 63 6c 69 63  |..:.,.]..ok_clic|
000094f0  6b 28 21 62 6c 6f 63 6b  25 2c 62 6c 6f 63 6b 25  |k(!block%,block%|
00009500  21 34 29 3a 62 6c 6f 63  6b 25 21 38 3d 26 32 30  |!4):block%!8=&20|
00009510  30 30 30 30 3a 62 6c 6f  63 6b 25 21 31 32 3d 30  |0000:block%!12=0|
00009520  3a c8 99 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |:.."Wimp_SetIcon|
00009530  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 3a e1  |State",,block%:.|
00009540  0d 2c 10 05 3a 0d 2c 1a  05 3a 0d 2c 24 42 f4 20  |.,..:.,..:.,$B. |
00009550  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 20 53 6f 6d 65 20  |********** Some |
00009560  6d 61 74 75 72 65 20 67  72 61 70 68 20 73 65 6c  |mature graph sel|
00009570  65 63 74 69 6f 6e 20 74  79 70 65 20 73 74 75 66  |ection type stuf|
00009580  66 20 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 2c 2e 05  |f **********.,..|
00009590  3a 0d 2c 38 15 dd f2 67  72 61 70 68 5f 73 65 6c  |:.,8...graph_sel|
000095a0  65 63 74 28 4e 29 0d 2c  42 0a c8 8e 20 4e 20 ca  |ect(N).,B... N .|
000095b0  0d 2c 4c 19 20 c9 31 3a  f2 67 72 61 70 68 5f 73  |.,L. .1:.graph_s|
000095c0  65 6c 65 63 74 6c 69 6e  65 0d 2c 56 18 20 c9 32  |electline.,V. .2|
000095d0  3a f2 67 72 61 70 68 5f  73 65 6c 65 63 74 62 61  |:.graph_selectba|
000095e0  72 0d 2c 60 18 20 c9 33  3a f2 67 72 61 70 68 5f  |r.,`. .3:.graph_|
000095f0  73 65 6c 65 63 74 70 69  65 0d 2c 6a 1a 20 c9 34  |selectpie.,j. .4|
00009600  3a f2 67 72 61 70 68 5f  73 65 6c 65 63 74 74 61  |:.graph_selectta|
00009610  62 6c 65 0d 2c 74 05 cb  0d 2c 7e 1e 69 6e 64 5f  |ble.,t...,~.ind_|
00009620  66 72 6d 25 3f 34 33 3d  34 38 2b 67 72 61 70 68  |frm%?43=48+graph|
00009630  5f 74 79 70 65 25 0d 2c  88 92 e7 67 72 61 70 68  |_type%.,...graph|
00009640  5f 77 69 6e 64 6f 77 25  3a 21 62 6c 6f 63 6b 25  |_window%:!block%|
00009650  3d 68 61 6e 64 6c 65 5f  66 6f 72 6d 61 74 25 3a  |=handle_format%:|
00009660  62 6c 6f 63 6b 25 21 34  3d 32 3a 62 6c 6f 63 6b  |block%!4=2:block|
00009670  25 21 38 3d 30 3a 62 6c  6f 63 6b 25 21 31 32 3d  |%!8=0:block%!12=|
00009680  30 3a c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |0:.."Wimp_SetIco|
00009690  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 3a  |nState",,block%:|
000096a0  62 6c 6f 63 6b 25 21 34  3d 33 3a c8 99 22 57 69  |block%!4=3:.."Wi|
000096b0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
000096c0  2c 2c 62 6c 6f 63 6b 25  0d 2c 92 05 e1 0d 2c 9c  |,,block%.,....,.|
000096d0  05 3a 0d 2c a6 16 dd f2  67 72 61 70 68 5f 73 65  |.:.,....graph_se|
000096e0  6c 65 63 74 6c 69 6e 65  0d 2c b0 11 67 72 61 70  |lectline.,..grap|
000096f0  68 5f 74 79 70 65 25 3d  31 0d 2c ba 43 6d 65 6e  |h_type%=1.,.Cmen|
00009700  75 5f 62 61 72 25 3f 31  32 34 3d 31 3a 6d 65 6e  |u_bar%?124=1:men|
00009710  75 5f 62 61 72 25 3f 31  34 38 3d 30 3a 6d 65 6e  |u_bar%?148=0:men|
00009720  75 5f 62 61 72 25 3f 31  37 32 3d 30 3a 6d 65 6e  |u_bar%?172=0:men|
00009730  75 5f 62 61 72 25 3f 31  39 36 3d 32 0d 2c c4 45  |u_bar%?196=2.,.E|
00009740  6d 65 6e 75 5f 77 69 6e  25 3f 31 30 30 3d 31 3a  |menu_win%?100=1:|
00009750  6d 65 6e 75 5f 77 69 6e  25 3f 31 32 34 3d 30 3a  |menu_win%?124=0:|
00009760  6d 65 6e 75 5f 77 69 6e  25 3f 31 34 38 3d 30 3a  |menu_win%?148=0:|
00009770  6d 65 6e 75 5f 77 69 6e  25 3f 31 37 32 3d 31 32  |menu_win%?172=12|
00009780  38 0d 2c ce 1f 24 28 69  6e 64 5f 66 72 6d 25 2b  |8.,..$(ind_frm%+|
00009790  34 38 29 3d 22 4c 69 6e  65 20 67 72 61 70 68 22  |48)="Line graph"|
000097a0  0d 2c d8 05 e1 0d 2c e2  05 3a 0d 2c ec 15 dd f2  |.,....,..:.,....|
000097b0  67 72 61 70 68 5f 73 65  6c 65 63 74 62 61 72 0d  |graph_selectbar.|
000097c0  2c f6 11 67 72 61 70 68  5f 74 79 70 65 25 3d 32  |,..graph_type%=2|
000097d0  0d 2d 00 43 6d 65 6e 75  5f 62 61 72 25 3f 31 32  |.-.Cmenu_bar%?12|
000097e0  34 3d 30 3a 6d 65 6e 75  5f 62 61 72 25 3f 31 34  |4=0:menu_bar%?14|
000097f0  38 3d 31 3a 6d 65 6e 75  5f 62 61 72 25 3f 31 37  |8=1:menu_bar%?17|
00009800  32 3d 30 3a 6d 65 6e 75  5f 62 61 72 25 3f 31 39  |2=0:menu_bar%?19|
00009810  36 3d 32 0d 2d 0a 45 6d  65 6e 75 5f 77 69 6e 25  |6=2.-.Emenu_win%|
00009820  3f 31 30 30 3d 30 3a 6d  65 6e 75 5f 77 69 6e 25  |?100=0:menu_win%|
00009830  3f 31 32 34 3d 31 3a 6d  65 6e 75 5f 77 69 6e 25  |?124=1:menu_win%|
00009840  3f 31 34 38 3d 30 3a 6d  65 6e 75 5f 77 69 6e 25  |?148=0:menu_win%|
00009850  3f 31 37 32 3d 31 32 38  0d 2d 14 1e 24 28 69 6e  |?172=128.-..$(in|
00009860  64 5f 66 72 6d 25 2b 34  38 29 3d 22 42 61 72 20  |d_frm%+48)="Bar |
00009870  63 68 61 72 74 22 0d 2d  1e 05 e1 0d 2d 28 05 3a  |chart".-....-(.:|
00009880  0d 2d 32 15 dd f2 67 72  61 70 68 5f 73 65 6c 65  |.-2...graph_sele|
00009890  63 74 70 69 65 0d 2d 3c  11 67 72 61 70 68 5f 74  |ctpie.-<.graph_t|
000098a0  79 70 65 25 3d 33 0d 2d  46 43 6d 65 6e 75 5f 62  |ype%=3.-FCmenu_b|
000098b0  61 72 25 3f 31 32 34 3d  30 3a 6d 65 6e 75 5f 62  |ar%?124=0:menu_b|
000098c0  61 72 25 3f 31 34 38 3d  30 3a 6d 65 6e 75 5f 62  |ar%?148=0:menu_b|
000098d0  61 72 25 3f 31 37 32 3d  31 3a 6d 65 6e 75 5f 62  |ar%?172=1:menu_b|
000098e0  61 72 25 3f 31 39 36 3d  32 0d 2d 50 45 6d 65 6e  |ar%?196=2.-PEmen|
000098f0  75 5f 77 69 6e 25 3f 31  30 30 3d 30 3a 6d 65 6e  |u_win%?100=0:men|
00009900  75 5f 77 69 6e 25 3f 31  32 34 3d 30 3a 6d 65 6e  |u_win%?124=0:men|
00009910  75 5f 77 69 6e 25 3f 31  34 38 3d 31 3a 6d 65 6e  |u_win%?148=1:men|
00009920  75 5f 77 69 6e 25 3f 31  37 32 3d 31 32 38 0d 2d  |u_win%?172=128.-|
00009930  5a 1e 24 28 69 6e 64 5f  66 72 6d 25 2b 34 38 29  |Z.$(ind_frm%+48)|
00009940  3d 22 50 69 65 20 63 68  61 72 74 22 0d 2d 64 05  |="Pie chart".-d.|
00009950  e1 0d 2d 6e 05 3a 0d 2d  78 17 dd f2 67 72 61 70  |..-n.:.-x...grap|
00009960  68 5f 73 65 6c 65 63 74  74 61 62 6c 65 0d 2d 82  |h_selecttable.-.|
00009970  11 67 72 61 70 68 5f 74  79 70 65 25 3d 34 0d 2d  |.graph_type%=4.-|
00009980  8c 43 6d 65 6e 75 5f 62  61 72 25 3f 31 32 34 3d  |.Cmenu_bar%?124=|
00009990  30 3a 6d 65 6e 75 5f 62  61 72 25 3f 31 34 38 3d  |0:menu_bar%?148=|
000099a0  30 3a 6d 65 6e 75 5f 62  61 72 25 3f 31 37 32 3d  |0:menu_bar%?172=|
000099b0  30 3a 6d 65 6e 75 5f 62  61 72 25 3f 31 39 36 3d  |0:menu_bar%?196=|
000099c0  33 0d 2d 96 45 6d 65 6e  75 5f 77 69 6e 25 3f 31  |3.-.Emenu_win%?1|
000099d0  30 30 3d 30 3a 6d 65 6e  75 5f 77 69 6e 25 3f 31  |00=0:menu_win%?1|
000099e0  32 34 3d 30 3a 6d 65 6e  75 5f 77 69 6e 25 3f 31  |24=0:menu_win%?1|
000099f0  34 38 3d 30 3a 6d 65 6e  75 5f 77 69 6e 25 3f 31  |48=0:menu_win%?1|
00009a00  37 32 3d 31 32 39 0d 2d  a0 1a 24 28 69 6e 64 5f  |72=129.-..$(ind_|
00009a10  66 72 6d 25 2b 34 38 29  3d 22 54 61 62 6c 65 22  |frm%+48)="Table"|
00009a20  0d 2d aa 05 e1 0d 2d b4  05 3a 0d 2d be 05 3a 0d  |.-....-..:.-..:.|
00009a30  2d c8 33 f4 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 20  |-.3. ********** |
00009a40  53 6f 6d 65 20 73 74 75  66 66 20 77 69 74 68 20  |Some stuff with |
00009a50  61 20 63 61 72 65 74 20  2a 2a 2a 2a 2a 2a 2a 2a  |a caret ********|
00009a60  2a 2a 0d 2d d2 05 3a 0d  2d dc 24 dd f2 63 61 72  |**.-..:.-.$..car|
00009a70  65 74 5f 73 65 74 70 6f  73 28 68 61 6e 64 6c 65  |et_setpos(handle|
00009a80  25 2c 69 63 6f 6e 25 2c  58 25 29 0d 2d e6 35 c8  |%,icon%,X%).-.5.|
00009a90  99 22 57 69 6d 70 5f 53  65 74 43 61 72 65 74 50  |."Wimp_SetCaretP|
00009aa0  6f 73 69 74 69 6f 6e 22  2c 68 61 6e 64 6c 65 25  |osition",handle%|
00009ab0  2c 69 63 6f 6e 25 2c 30  2c 30 2c 2d 31 2c 58 25  |,icon%,0,0,-1,X%|
00009ac0  0d 2d f0 05 e1 0d 2d fa  05 3a 0d 2e 04 0c dd a4  |.-....-..:......|
00009ad0  6c 65 6e 28 4e 29 0d 2e  0e 28 4d 25 3d 2d 31 3a  |len(N)...(M%=-1:|
00009ae0  f5 4d 25 2b 3d 31 3a fd  4e 3f 4d 25 3d 30 84 4e  |.M%+=1:.N?M%=0.N|
00009af0  3f 4d 25 3d 31 30 84 4e  3f 4d 25 3d 31 33 0d 2e  |?M%=10.N?M%=13..|
00009b00  18 07 3d 4d 25 0d 2e 22  05 3a 0d 2e 2c 05 3a 0d  |..=M%..".:..,.:.|
00009b10  2e 36 2a f4 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 20  |.6*. ********** |
00009b20  46 75 6e 20 77 69 74 68  20 66 6f 6e 74 73 20 2a  |Fun with fonts *|
00009b30  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 2e 40 05 3a 0d 2e  |*********..@.:..|
00009b40  4a 10 dd f2 66 6f 6e 74  5f 63 68 65 63 6b 0d 2e  |J...font_check..|
00009b50  54 2b 24 62 6c 6f 63 6b  25 3d 22 3c 46 6f 6e 74  |T+$block%="<Font|
00009b60  24 50 72 65 66 69 78 3e  20 61 6e 64 20 3c 46 6f  |$Prefix> and <Fo|
00009b70  6e 74 24 50 61 74 68 3e  22 0d 2e 5e 2e c8 99 22  |nt$Path>"..^..."|
00009b80  4f 53 5f 47 53 54 72 61  6e 73 22 2c 62 6c 6f 63  |OS_GSTrans",bloc|
00009b90  6b 25 2c 62 6c 6f 63 6b  25 2b 31 30 30 2c 32 35  |k%,block%+100,25|
00009ba0  35 20 b8 20 2c 2c 4e 0d  2e 68 15 62 6c 6f 63 6b  |5 . ,,N..h.block|
00009bb0  25 3f 28 31 30 30 2b 4e  29 3d 31 33 0d 2e 72 33  |%?(100+N)=13..r3|
00009bc0  e7 24 28 62 6c 6f 63 6b  25 2b 31 30 30 29 3c 3e  |.$(block%+100)<>|
00009bd0  24 66 6f 6e 74 5f 70 61  74 68 25 3a f2 66 6f 6e  |$font_path%:.fon|
00009be0  74 5f 64 6f 74 68 65 62  75 73 69 6e 65 73 73 0d  |t_dothebusiness.|
00009bf0  2e 7c 05 e1 0d 2e 86 05  3a 0d 2e 90 18 dd f2 66  |.|......:......f|
00009c00  6f 6e 74 5f 64 6f 74 68  65 62 75 73 69 6e 65 73  |ont_dothebusines|
00009c10  73 0d 2e 9a 14 c8 99 22  48 6f 75 72 67 6c 61 73  |s......"Hourglas|
00009c20  73 5f 4f 6e 22 0d 2e a4  2b 24 62 6c 6f 63 6b 25  |s_On"...+$block%|
00009c30  3d 22 3c 46 6f 6e 74 24  50 72 65 66 69 78 3e 20  |="<Font$Prefix> |
00009c40  61 6e 64 20 3c 46 6f 6e  74 24 50 61 74 68 3e 22  |and <Font$Path>"|
00009c50  0d 2e ae 2e c8 99 22 4f  53 5f 47 53 54 72 61 6e  |......"OS_GSTran|
00009c60  73 22 2c 62 6c 6f 63 6b  25 2c 62 6c 6f 63 6b 25  |s",block%,block%|
00009c70  2b 31 30 30 2c 32 35 35  20 b8 20 2c 2c 4e 0d 2e  |+100,255 . ,,N..|
00009c80  b8 15 62 6c 6f 63 6b 25  3f 28 31 30 30 2b 4e 29  |..block%?(100+N)|
00009c90  3d 31 33 0d 2e c2 1d 24  66 6f 6e 74 5f 70 61 74  |=13....$font_pat|
00009ca0  68 25 3d 24 28 62 6c 6f  63 6b 25 2b 31 30 30 29  |h%=$(block%+100)|
00009cb0  0d 2e cc 34 66 6f 6e 74  5f 63 6f 75 6e 74 65 72  |...4font_counter|
00009cc0  25 3d 30 3a 24 28 66 6f  6e 74 5f 6c 69 73 74 25  |%=0:$(font_list%|
00009cd0  29 3d 22 53 79 73 74 65  6d 20 46 6f 6e 74 22 3a  |)="System Font":|
00009ce0  59 3d 31 31 0d 2e d6 8e  6d 65 6e 75 5f 66 6f 6e  |Y=11....menu_fon|
00009cf0  74 6c 69 73 74 25 21 32  38 3d 31 3a 6d 65 6e 75  |tlist%!28=1:menu|
00009d00  5f 66 6f 6e 74 6c 69 73  74 25 21 33 32 3d 2d 31  |_fontlist%!32=-1|
00009d10  3a 6d 65 6e 75 5f 66 6f  6e 74 6c 69 73 74 25 21  |:menu_fontlist%!|
00009d20  33 36 3d 26 37 30 30 39  31 32 31 3a 6d 65 6e 75  |36=&7009121:menu|
00009d30  5f 66 6f 6e 74 6c 69 73  74 25 21 34 30 3d 66 6f  |_fontlist%!40=fo|
00009d40  6e 74 5f 6c 69 73 74 25  3a 6d 65 6e 75 5f 66 6f  |nt_list%:menu_fo|
00009d50  6e 74 6c 69 73 74 25 21  34 34 3d 2d 31 3a 6d 65  |ntlist%!44=-1:me|
00009d60  6e 75 5f 66 6f 6e 74 6c  69 73 74 25 21 34 38 3d  |nu_fontlist%!48=|
00009d70  34 30 0d 2e e0 50 c8 99  22 58 4f 53 5f 52 65 61  |40...P.."XOS_Rea|
00009d80  64 56 61 72 56 61 6c 22  2c 22 46 6f 6e 74 24 50  |dVarVal","Font$P|
00009d90  61 74 68 22 2c 62 6c 6f  63 6b 25 2c 32 35 36 2c  |ath",block%,256,|
00009da0  30 2c 33 b8 3b 4e 3a e7  28 4e 20 80 31 29 3a c8  |0,3.;N:.(N .1):.|
00009db0  99 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  |."Hourglass_Off"|
00009dc0  3a e1 0d 2e ea 79 24 62  6c 6f 63 6b 25 3d 24 28  |:....y$block%=$(|
00009dd0  66 6f 6e 74 5f 6c 69 73  74 25 2b 74 65 78 74 5f  |font_list%+text_|
00009de0  74 69 74 6c 65 63 2a 34  30 29 3a 24 28 62 6c 6f  |titlec*40):$(blo|
00009df0  63 6b 25 2b 34 31 29 3d  24 28 66 6f 6e 74 5f 6c  |ck%+41)=$(font_l|
00009e00  69 73 74 25 2b 74 65 78  74 5f 61 78 69 73 63 2a  |ist%+text_axisc*|
00009e10  34 30 29 3a 24 28 62 6c  6f 63 6b 25 2b 38 32 29  |40):$(block%+82)|
00009e20  3d 24 28 66 6f 6e 74 5f  6c 69 73 74 25 2b 74 65  |=$(font_list%+te|
00009e30  78 74 5f 6b 65 79 63 2a  34 30 29 0d 2e f4 05 3a  |xt_keyc*40)....:|
00009e40  0d 2e fe 09 4e 3d 30 3a  f5 0d 2f 08 51 66 6f 6e  |....N=0:../.Qfon|
00009e50  74 5f 63 6f 75 6e 74 65  72 25 2b 3d 31 3a c8 99  |t_counter%+=1:..|
00009e60  22 46 6f 6e 74 5f 4c 69  73 74 46 6f 6e 74 73 22  |"Font_ListFonts"|
00009e70  2c 2c 66 6f 6e 74 5f 6c  69 73 74 25 2b 28 66 6f  |,,font_list%+(fo|
00009e80  6e 74 5f 63 6f 75 6e 74  65 72 25 2a 34 30 29 2c  |nt_counter%*40),|
00009e90  4e 2c 2d 31 20 b8 20 2c  2c 4e 0d 2f 12 36 4d 3d  |N,-1 . ,,N./.6M=|
00009ea0  a4 6c 65 6e 28 66 6f 6e  74 5f 6c 69 73 74 25 2b  |.len(font_list%+|
00009eb0  28 28 66 6f 6e 74 5f 63  6f 75 6e 74 65 72 25 2d  |((font_counter%-|
00009ec0  31 29 2a 34 30 29 29 3a  e7 4d 3e 59 3a 59 3d 4d  |1)*40)):.M>Y:Y=M|
00009ed0  0d 2f 1c c7 4d 3d 32 38  2b 32 34 2a 66 6f 6e 74  |./..M=28+24*font|
00009ee0  5f 63 6f 75 6e 74 65 72  25 3a 6d 65 6e 75 5f 66  |_counter%:menu_f|
00009ef0  6f 6e 74 6c 69 73 74 25  21 4d 3d 30 3a 6d 65 6e  |ontlist%!M=0:men|
00009f00  75 5f 66 6f 6e 74 6c 69  73 74 25 21 28 4d 2b 34  |u_fontlist%!(M+4|
00009f10  29 3d 30 3a 6d 65 6e 75  5f 66 6f 6e 74 6c 69 73  |)=0:menu_fontlis|
00009f20  74 25 21 28 4d 2b 38 29  3d 26 37 30 30 39 31 32  |t%!(M+8)=&700912|
00009f30  31 3a 6d 65 6e 75 5f 66  6f 6e 74 6c 69 73 74 25  |1:menu_fontlist%|
00009f40  21 28 4d 2b 31 32 29 3d  66 6f 6e 74 5f 6c 69 73  |!(M+12)=font_lis|
00009f50  74 25 2b 28 66 6f 6e 74  5f 63 6f 75 6e 74 65 72  |t%+(font_counter|
00009f60  25 2a 34 30 29 3a 6d 65  6e 75 5f 66 6f 6e 74 6c  |%*40):menu_fontl|
00009f70  69 73 74 25 21 28 4d 2b  31 36 29 3d 2d 31 3a 6d  |ist%!(M+16)=-1:m|
00009f80  65 6e 75 5f 66 6f 6e 74  6c 69 73 74 25 21 28 4d  |enu_fontlist%!(M|
00009f90  2b 32 30 29 3d 34 30 0d  2f 26 1b fd 4e 3d 2d 31  |+20)=40./&..N=-1|
00009fa0  84 66 6f 6e 74 5f 63 6f  75 6e 74 65 72 25 3d 32  |.font_counter%=2|
00009fb0  35 36 0d 2f 30 60 e7 66  6f 6e 74 5f 63 6f 75 6e  |56./0`.font_coun|
00009fc0  74 65 72 25 3d 32 35 36  3a 4e 3d a4 6d 65 73 73  |ter%=256:N=.mess|
00009fd0  61 67 65 28 22 47 72 61  70 68 50 6c 75 73 20 68  |age("GraphPlus h|
00009fe0  61 73 20 72 65 61 63 68  65 64 20 69 74 73 20 6d  |as reached its m|
00009ff0  61 78 69 6d 75 6d 20 66  6f 6e 74 20 68 61 6e 64  |aximum font hand|
0000a000  6c 69 6e 67 20 63 61 70  61 63 69 74 79 2e 22 2c  |ling capacity.",|
0000a010  30 29 0d 2f 3a 05 3a 0d  2f 44 57 66 6f 6e 74 5f  |0)./:.:./DWfont_|
0000a020  63 6f 75 6e 74 65 72 25  2d 3d 31 3a 6d 65 6e 75  |counter%-=1:menu|
0000a030  5f 66 6f 6e 74 6c 69 73  74 25 21 28 32 38 2b 32  |_fontlist%!(28+2|
0000a040  34 2a 66 6f 6e 74 5f 63  6f 75 6e 74 65 72 25 29  |4*font_counter%)|
0000a050  3d 31 32 38 3a 6d 65 6e  75 5f 66 6f 6e 74 6c 69  |=128:menu_fontli|
0000a060  73 74 25 21 31 36 3d 31  36 2b 31 36 2a 59 0d 2f  |st%!16=16+16*Y./|
0000a070  4e 15 c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |N..."Hourglass_O|
0000a080  66 66 22 0d 2f 58 24 74  65 78 74 5f 74 69 74 6c  |ff"./X$text_titl|
0000a090  65 63 3d a4 66 6f 6e 74  5f 73 65 61 72 63 68 28  |ec=.font_search(|
0000a0a0  62 6c 6f 63 6b 25 29 0d  2f 62 26 74 65 78 74 5f  |block%)./b&text_|
0000a0b0  61 78 69 73 63 3d a4 66  6f 6e 74 5f 73 65 61 72  |axisc=.font_sear|
0000a0c0  63 68 28 62 6c 6f 63 6b  25 2b 34 31 29 0d 2f 6c  |ch(block%+41)./l|
0000a0d0  25 74 65 78 74 5f 6b 65  79 63 3d a4 66 6f 6e 74  |%text_keyc=.font|
0000a0e0  5f 73 65 61 72 63 68 28  62 6c 6f 63 6b 25 2b 38  |_search(block%+8|
0000a0f0  32 29 0d 2f 76 05 e1 0d  2f 80 05 3a 0d 2f 8a 14  |2)./v.../..:./..|
0000a100  dd a4 66 6f 6e 74 5f 73  65 61 72 63 68 28 4e 29  |..font_search(N)|
0000a110  0d 2f 94 37 4d 3d 2d 31  3a f5 4d 2b 3d 31 3a fd  |./.7M=-1:.M+=1:.|
0000a120  24 4e 3d 24 28 66 6f 6e  74 5f 6c 69 73 74 25 2b  |$N=$(font_list%+|
0000a130  4d 2a 34 30 29 84 4d 3d  66 6f 6e 74 5f 63 6f 75  |M*40).M=font_cou|
0000a140  6e 74 65 72 25 2b 31 0d  2f 9e 73 e7 4d 3d 66 6f  |nter%+1./.s.M=fo|
0000a150  6e 74 5f 63 6f 75 6e 74  65 72 25 2b 31 80 66 6f  |nt_counter%+1.fo|
0000a160  6e 74 5f 63 6f 75 6e 74  65 72 25 3c 3e 30 3a 4e  |nt_counter%<>0:N|
0000a170  3d a4 6d 65 73 73 61 67  65 28 22 46 6f 6e 74 20  |=.message("Font |
0000a180  22 2b 24 4e 2b 22 20 63  61 6e 6e 6f 74 20 62 65  |"+$N+" cannot be|
0000a190  20 66 6f 75 6e 64 2e 20  52 65 70 6c 61 63 69 6e  | found. Replacin|
0000a1a0  67 20 77 69 74 68 20 53  79 73 74 65 6d 20 46 6f  |g with System Fo|
0000a1b0  6e 74 2e 22 2c 30 29 3a  3d 30 0d 2f a8 06 3d 4d  |nt.",0):=0./..=M|
0000a1c0  0d 2f b2 05 3a 0d 2f bc  14 dd a4 66 6f 6e 74 5f  |./..:./....font_|
0000a1d0  72 65 63 6f 67 6e 69 73  65 0d 2f c6 1b e3 4e 3d  |recognise./...N=|
0000a1e0  30 b8 33 39 3a 62 6c 6f  63 6b 25 3f 4e 3d 9a 23  |0.39:block%?N=.#|
0000a1f0  58 25 3a ed 0d 2f d0 19  3d a4 66 6f 6e 74 5f 73  |X%:../..=.font_s|
0000a200  65 61 72 63 68 28 62 6c  6f 63 6b 25 29 0d 2f da  |earch(block%)./.|
0000a210  05 3a 0d 2f e4 05 3a 0d  2f ee 27 f4 20 2a 2a 2a  |.:./..:./.'. ***|
0000a220  2a 2a 2a 2a 2a 2a 2a 20  57 69 6e 64 6f 77 20 63  |******* Window c|
0000a230  6f 64 65 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 2f  |ode **********./|
0000a240  f8 05 3a 0d 30 02 1a dd  f2 77 69 6e 64 6f 77 5f  |..:.0....window_|
0000a250  72 65 71 75 65 73 74 52  65 64 72 61 77 0d 30 0c  |requestRedraw.0.|
0000a260  24 c8 99 22 57 69 6d 70  5f 52 65 64 72 61 77 57  |$.."Wimp_RedrawW|
0000a270  69 6e 64 6f 77 22 2c 2c  70 6f 6c 6c 25 20 b8 20  |indow",,poll% . |
0000a280  4e 0d 30 16 08 c8 95 20  4e 0d 30 20 24 c8 99 22  |N.0.... N.0 $.."|
0000a290  57 69 6d 70 5f 47 65 74  52 65 63 74 61 6e 67 6c  |Wimp_GetRectangl|
0000a2a0  65 22 2c 2c 70 6f 6c 6c  25 20 b8 20 4e 0d 30 2a  |e",,poll% . N.0*|
0000a2b0  27 e7 21 70 6f 6c 6c 25  3d 68 61 6e 64 6c 65 5f  |'.!poll%=handle_|
0000a2c0  67 72 6f 75 70 25 3a f2  67 72 6f 75 70 5f 63 6f  |group%:.group_co|
0000a2d0  6c 6f 75 72 0d 30 34 25  e7 21 70 6f 6c 6c 25 3d  |lour.04%.!poll%=|
0000a2e0  68 61 6e 64 6c 65 5f 62  61 63 6b 25 3a f2 62 61  |handle_back%:.ba|
0000a2f0  63 6b 5f 63 6f 6c 6f 75  72 0d 30 3e 05 ce 0d 30  |ck_colour.0>...0|
0000a300  48 05 e1 0d 30 52 05 3a  0d 30 5c 18 dd f2 77 69  |H...0R.:.0\...wi|
0000a310  6e 64 6f 77 5f 72 65 71  75 65 73 74 4f 70 65 6e  |ndow_requestOpen|
0000a320  0d 30 66 1c e7 21 70 6f  6c 6c 25 3d 68 61 6e 64  |.0f..!poll%=hand|
0000a330  6c 65 5f 75 70 64 61 74  65 25 3a e1 0d 30 70 38  |le_update%:..0p8|
0000a340  e7 21 70 6f 6c 6c 25 3c  3e 68 61 6e 64 6c 65 5f  |.!poll%<>handle_|
0000a350  66 6f 72 6d 61 74 25 3a  c8 99 22 57 69 6d 70 5f  |format%:.."Wimp_|
0000a360  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 70 6f 6c  |OpenWindow",,pol|
0000a370  6c 25 3a e1 0d 30 7a 27  e3 4e 3d 30 b8 32 35 36  |l%:..0z'.N=0.256|
0000a380  88 34 3a 62 6c 6f 63 6b  25 21 28 32 30 30 2b 4e  |.4:block%!(200+N|
0000a390  29 3d 70 6f 6c 6c 25 21  4e 3a ed 0d 30 84 38 21  |)=poll%!N:..0.8!|
0000a3a0  62 6c 6f 63 6b 25 3d 68  61 6e 64 6c 65 5f 70 61  |block%=handle_pa|
0000a3b0  6e 65 25 3a c8 99 22 57  69 6d 70 5f 47 65 74 57  |ne%:.."Wimp_GetW|
0000a3c0  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6f  |indowState",,blo|
0000a3d0  63 6b 25 0d 30 8e 63 21  70 6f 6c 6c 25 3d 68 61  |ck%.0.c!poll%=ha|
0000a3e0  6e 64 6c 65 5f 70 61 6e  65 25 3a 70 6f 6c 6c 25  |ndle_pane%:poll%|
0000a3f0  21 34 2b 3d 35 32 3a 70  6f 6c 6c 25 21 38 2b 3d  |!4+=52:poll%!8+=|
0000a400  31 30 30 3a 70 6f 6c 6c  25 21 31 36 2d 3d 38 30  |100:poll%!16-=80|
0000a410  3a 70 6f 6c 6c 25 21 32  30 3d 62 6c 6f 63 6b 25  |:poll%!20=block%|
0000a420  21 32 30 3a 70 6f 6c 6c  25 21 32 34 3d 62 6c 6f  |!20:poll%!24=blo|
0000a430  63 6b 25 21 32 34 0d 30  98 1e c8 99 22 57 69 6d  |ck%!24.0...."Wim|
0000a440  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 70  |p_OpenWindow",,p|
0000a450  6f 6c 6c 25 0d 30 a2 3b  62 6c 6f 63 6b 25 21 32  |oll%.0.;block%!2|
0000a460  32 38 3d 68 61 6e 64 6c  65 5f 70 61 6e 65 25 3a  |28=handle_pane%:|
0000a470  c8 99 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |.."Wimp_OpenWind|
0000a480  6f 77 22 2c 2c 62 6c 6f  63 6b 25 2b 32 30 30 0d  |ow",,block%+200.|
0000a490  30 ac 05 e1 0d 30 b6 05  3a 0d 30 c0 19 dd f2 77  |0....0..:.0....w|
0000a4a0  69 6e 64 6f 77 5f 72 65  71 75 65 73 74 43 6c 6f  |indow_requestClo|
0000a4b0  73 65 0d 30 ca 1f c8 99  22 57 69 6d 70 5f 43 6c  |se.0...."Wimp_Cl|
0000a4c0  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 70 6f 6c 6c  |oseWindow",,poll|
0000a4d0  25 0d 30 d4 90 e7 21 70  6f 6c 6c 25 3d 68 61 6e  |%.0...!poll%=han|
0000a4e0  64 6c 65 5f 66 6f 72 6d  61 74 25 3a 67 72 61 70  |dle_format%:grap|
0000a4f0  68 5f 77 69 6e 64 6f 77  25 3d a3 3a 21 62 6c 6f  |h_window%=.:!blo|
0000a500  63 6b 25 3d 68 61 6e 64  6c 65 5f 70 61 6e 65 25  |ck%=handle_pane%|
0000a510  3a c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |:.."Wimp_CloseWi|
0000a520  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 3a 21 62  |ndow",,block%:!b|
0000a530  6c 6f 63 6b 25 3d 68 61  6e 64 6c 65 5f 63 72 65  |lock%=handle_cre|
0000a540  61 74 65 25 3a c8 99 22  57 69 6d 70 5f 43 6c 6f  |ate%:.."Wimp_Clo|
0000a550  73 65 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |seWindow",,block|
0000a560  25 0d 30 de 05 e1 0d 30  e8 05 3a 0d 30 f2 16 dd  |%.0....0..:.0...|
0000a570  f2 77 69 6e 64 6f 77 5f  6f 70 65 6e 67 72 61 70  |.window_opengrap|
0000a580  68 0d 30 fc 13 f2 70 61  6e 65 5f 63 61 6c 63 75  |h.0...pane_calcu|
0000a590  6c 61 74 65 0d 31 06 90  21 62 6c 6f 63 6b 25 3d  |late.1..!block%=|
0000a5a0  68 61 6e 64 6c 65 5f 70  61 6e 65 25 3a 62 6c 6f  |handle_pane%:blo|
0000a5b0  63 6b 25 21 34 3d 32 35  32 3a 62 6c 6f 63 6b 25  |ck%!4=252:block%|
0000a5c0  21 38 3d 32 38 38 3a 62  6c 6f 63 6b 25 21 31 32  |!8=288:block%!12|
0000a5d0  3d 31 32 38 30 3a 62 6c  6f 63 6b 25 21 31 36 3d  |=1280:block%!16=|
0000a5e0  36 36 30 3a 62 6c 6f 63  6b 25 21 32 30 3d 30 3a  |660:block%!20=0:|
0000a5f0  62 6c 6f 63 6b 25 21 32  34 3d 30 3a 62 6c 6f 63  |block%!24=0:bloc|
0000a600  6b 25 21 32 38 3d 2d 31  3a c8 99 22 57 69 6d 70  |k%!28=-1:.."Wimp|
0000a610  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 62 6c  |_OpenWindow",,bl|
0000a620  6f 63 6b 25 0d 31 10 9a  21 62 6c 6f 63 6b 25 3d  |ock%.1..!block%=|
0000a630  68 61 6e 64 6c 65 5f 66  6f 72 6d 61 74 25 3a 62  |handle_format%:b|
0000a640  6c 6f 63 6b 25 21 34 3d  32 30 30 3a 62 6c 6f 63  |lock%!4=200:bloc|
0000a650  6b 25 21 38 3d 30 3a 62  6c 6f 63 6b 25 21 31 32  |k%!8=0:block%!12|
0000a660  3d 31 32 38 30 3a 62 6c  6f 63 6b 25 21 31 36 3d  |=1280:block%!16=|
0000a670  37 34 30 3a 62 6c 6f 63  6b 25 21 32 30 3d 30 3a  |740:block%!20=0:|
0000a680  62 6c 6f 63 6b 25 21 32  34 3d 30 3a 62 6c 6f 63  |block%!24=0:bloc|
0000a690  6b 25 21 32 38 3d 68 61  6e 64 6c 65 5f 70 61 6e  |k%!28=handle_pan|
0000a6a0  65 25 3a c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  |e%:.."Wimp_OpenW|
0000a6b0  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 0d 31  |indow",,block%.1|
0000a6c0  1a 13 67 72 61 70 68 5f  77 69 6e 64 6f 77 25 3d  |..graph_window%=|
0000a6d0  b9 0d 31 24 05 e1 0d 31  2e 05 3a 0d 31 38 16 dd  |..1$...1..:.18..|
0000a6e0  f2 77 69 6e 64 6f 77 5f  6c 69 66 74 67 72 61 70  |.window_liftgrap|
0000a6f0  68 0d 31 42 38 21 70 6f  6c 6c 25 3d 68 61 6e 64  |h.1B8!poll%=hand|
0000a700  6c 65 5f 66 6f 72 6d 61  74 25 3a c8 99 22 57 69  |le_format%:.."Wi|
0000a710  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
0000a720  65 22 2c 2c 70 6f 6c 6c  25 0d 31 4c 23 70 6f 6c  |e",,poll%.1L#pol|
0000a730  6c 25 21 32 38 3d 2d 31  3a f2 77 69 6e 64 6f 77  |l%!28=-1:.window|
0000a740  5f 72 65 71 75 65 73 74  4f 70 65 6e 0d 31 56 05  |_requestOpen.1V.|
0000a750  e1 0d 31 60 05 3a 0d 31  6a 19 dd f2 77 69 6e 64  |..1`.:.1j...wind|
0000a760  6f 77 5f 6f 70 65 6e 64  61 74 61 70 61 74 68 0d  |ow_opendatapath.|
0000a770  31 74 20 24 62 6c 6f 63  6b 25 3d 22 47 72 61 70  |1t $block%="Grap|
0000a780  68 50 6c 75 73 44 61 74  61 24 50 61 74 68 22 0d  |hPlusData$Path".|
0000a790  31 7e 35 c8 99 22 58 4f  53 5f 52 65 61 64 56 61  |1~5.."XOS_ReadVa|
0000a7a0  72 56 61 6c 22 2c 62 6c  6f 63 6b 25 2c 69 6e 64  |rVal",block%,ind|
0000a7b0  5f 64 70 25 2b 34 2c 32  35 36 2c 30 2c 33 b8 2c  |_dp%+4,256,0,3.,|
0000a7c0  2c 4d 3b 4e 0d 31 88 14  69 6e 64 5f 64 70 25 3f  |,M;N.1..ind_dp%?|
0000a7d0  28 34 2b 4d 29 3d 31 30  0d 31 92 3d e7 28 4e 20  |(4+M)=10.1.=.(N |
0000a7e0  80 31 29 3d 31 3a 4e 3d  a4 6d 65 73 73 61 67 65  |.1)=1:N=.message|
0000a7f0  28 22 45 72 72 6f 72 20  77 68 65 6e 20 72 65 61  |("Error when rea|
0000a800  64 69 6e 67 20 64 61 74  61 20 70 61 74 68 2e 22  |ding data path."|
0000a810  2c 30 29 3a e1 0d 31 9c  3e c8 99 22 57 69 6d 70  |,0):..1.>.."Wimp|
0000a820  5f 43 72 65 61 74 65 53  75 62 4d 65 6e 75 22 2c  |_CreateSubMenu",|
0000a830  2c 68 61 6e 64 6c 65 5f  64 61 74 61 70 61 74 68  |,handle_datapath|
0000a840  25 2c 70 6f 6c 6c 25 21  32 34 2c 70 6f 6c 6c 25  |%,poll%!24,poll%|
0000a850  21 32 38 0d 31 a6 05 e1  0d 31 b0 05 3a 0d 31 ba  |!28.1....1..:.1.|
0000a860  05 3a 0d 31 c4 27 f4 20  2a 2a 2a 2a 2a 2a 2a 2a  |.:.1.'. ********|
0000a870  2a 2a 20 57 68 61 74 20  61 20 64 72 61 67 20 2a  |** What a drag *|
0000a880  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 31 ce 05 3a 0d 31  |*********.1..:.1|
0000a890  d8 14 dd f2 64 72 61 67  5f 73 74 61 72 74 73 61  |....drag_startsa|
0000a8a0  76 65 0d 31 e2 41 21 62  6c 6f 63 6b 25 3d 68 61  |ve.1.A!block%=ha|
0000a8b0  6e 64 6c 65 5f 73 61 76  65 25 3a 62 6c 6f 63 6b  |ndle_save%:block|
0000a8c0  25 21 34 3d 30 3a c8 99  22 57 69 6d 70 5f 47 65  |%!4=0:.."Wimp_Ge|
0000a8d0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
0000a8e0  63 6b 25 0d 31 ec 3e 62  6c 6f 63 6b 25 21 31 30  |ck%.1.>block%!10|
0000a8f0  30 3d 68 61 6e 64 6c 65  5f 73 61 76 65 25 3a c8  |0=handle_save%:.|
0000a900  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
0000a910  49 6e 66 6f 22 2c 2c 62  6c 6f 63 6b 25 2b 31 30  |Info",,block%+10|
0000a920  30 0d 31 f6 21 21 70 6f  6c 6c 25 3d 68 61 6e 64  |0.1.!!poll%=hand|
0000a930  6c 65 5f 73 61 76 65 25  3a 70 6f 6c 6c 25 21 34  |le_save%:poll%!4|
0000a940  3d 35 0d 32 00 1f 70 6f  6c 6c 25 21 38 3d 62 6c  |=5.2..poll%!8=bl|
0000a950  6f 63 6b 25 21 31 30 34  2b 62 6c 6f 63 6b 25 21  |ock%!104+block%!|
0000a960  38 0d 32 0a 21 70 6f 6c  6c 25 21 31 32 3d 62 6c  |8.2.!poll%!12=bl|
0000a970  6f 63 6b 25 21 31 31 36  2b 62 6c 6f 63 6b 25 21  |ock%!116+block%!|
0000a980  31 32 0d 32 14 21 70 6f  6c 6c 25 21 31 36 3d 62  |12.2.!poll%!16=b|
0000a990  6c 6f 63 6b 25 21 31 30  34 2b 62 6c 6f 63 6b 25  |lock%!104+block%|
0000a9a0  21 31 36 0d 32 1e 21 70  6f 6c 6c 25 21 32 30 3d  |!16.2.!poll%!20=|
0000a9b0  62 6c 6f 63 6b 25 21 31  31 36 2b 62 6c 6f 63 6b  |block%!116+block|
0000a9c0  25 21 32 30 0d 32 28 19  70 6f 6c 6c 25 21 32 34  |%!20.2(.poll%!24|
0000a9d0  3d 30 3a 70 6f 6c 6c 25  21 32 38 3d 30 0d 32 32  |=0:poll%!28=0.22|
0000a9e0  1b 70 6f 6c 6c 25 21 33  32 3d 2d 31 3a 70 6f 6c  |.poll%!32=-1:pol|
0000a9f0  6c 25 21 33 36 3d 2d 31  0d 32 3c 59 e7 64 73 74  |l%!36=-1.2<Y.dst|
0000aa00  61 72 74 25 3a c8 99 20  64 73 74 61 72 74 25 2c  |art%:.. dstart%,|
0000aa10  25 31 31 30 30 30 31 30  31 2c 31 2c 22 66 69 6c  |%11000101,1,"fil|
0000aa20  65 5f 30 66 30 22 2c 70  6f 6c 6c 25 2b 38 2c 70  |e_0f0",poll%+8,p|
0000aa30  6f 6c 6c 25 2b 32 34 20  8b 20 c8 99 22 57 69 6d  |oll%+24 . .."Wim|
0000aa40  70 5f 44 72 61 67 42 6f  78 22 2c 2c 70 6f 6c 6c  |p_DragBox",,poll|
0000aa50  25 0d 32 46 12 66 69 6c  65 5f 73 74 61 74 75 73  |%.2F.file_status|
0000aa60  25 3d 31 0d 32 50 05 e1  0d 32 5a 05 3a 0d 32 64  |%=1.2P...2Z.:.2d|
0000aa70  16 dd f2 64 72 61 67 5f  73 74 61 72 74 63 72 65  |...drag_startcre|
0000aa80  61 74 65 0d 32 6e 43 21  62 6c 6f 63 6b 25 3d 68  |ate.2nC!block%=h|
0000aa90  61 6e 64 6c 65 5f 63 72  65 61 74 65 25 3a 62 6c  |andle_create%:bl|
0000aaa0  6f 63 6b 25 21 34 3d 30  3a c8 99 22 57 69 6d 70  |ock%!4=0:.."Wimp|
0000aab0  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
0000aac0  62 6c 6f 63 6b 25 0d 32  78 40 62 6c 6f 63 6b 25  |block%.2x@block%|
0000aad0  21 31 30 30 3d 68 61 6e  64 6c 65 5f 63 72 65 61  |!100=handle_crea|
0000aae0  74 65 25 3a c8 99 22 57  69 6d 70 5f 47 65 74 57  |te%:.."Wimp_GetW|
0000aaf0  69 6e 64 6f 77 49 6e 66  6f 22 2c 2c 62 6c 6f 63  |indowInfo",,bloc|
0000ab00  6b 25 2b 31 30 30 0d 32  82 23 21 70 6f 6c 6c 25  |k%+100.2.#!poll%|
0000ab10  3d 68 61 6e 64 6c 65 5f  63 72 65 61 74 65 25 3a  |=handle_create%:|
0000ab20  70 6f 6c 6c 25 21 34 3d  35 0d 32 8c 1f 70 6f 6c  |poll%!4=5.2..pol|
0000ab30  6c 25 21 38 3d 62 6c 6f  63 6b 25 21 31 30 34 2b  |l%!8=block%!104+|
0000ab40  62 6c 6f 63 6b 25 21 38  0d 32 96 21 70 6f 6c 6c  |block%!8.2.!poll|
0000ab50  25 21 31 32 3d 62 6c 6f  63 6b 25 21 31 31 36 2b  |%!12=block%!116+|
0000ab60  62 6c 6f 63 6b 25 21 31  32 0d 32 a0 21 70 6f 6c  |block%!12.2.!pol|
0000ab70  6c 25 21 31 36 3d 62 6c  6f 63 6b 25 21 31 30 34  |l%!16=block%!104|
0000ab80  2b 62 6c 6f 63 6b 25 21  31 36 0d 32 aa 21 70 6f  |+block%!16.2.!po|
0000ab90  6c 6c 25 21 32 30 3d 62  6c 6f 63 6b 25 21 31 31  |ll%!20=block%!11|
0000aba0  36 2b 62 6c 6f 63 6b 25  21 32 30 0d 32 b4 19 70  |6+block%!20.2..p|
0000abb0  6f 6c 6c 25 21 32 34 3d  30 3a 70 6f 6c 6c 25 21  |oll%!24=0:poll%!|
0000abc0  32 38 3d 30 0d 32 be 1b  70 6f 6c 6c 25 21 33 32  |28=0.2..poll%!32|
0000abd0  3d 2d 31 3a 70 6f 6c 6c  25 21 33 36 3d 2d 31 0d  |=-1:poll%!36=-1.|
0000abe0  32 c8 59 e7 64 73 74 61  72 74 25 3a c8 99 20 64  |2.Y.dstart%:.. d|
0000abf0  73 74 61 72 74 25 2c 25  31 31 30 30 30 31 30 31  |start%,%11000101|
0000ac00  2c 31 2c 22 66 69 6c 65  5f 61 66 66 22 2c 70 6f  |,1,"file_aff",po|
0000ac10  6c 6c 25 2b 38 2c 70 6f  6c 6c 25 2b 32 34 20 8b  |ll%+8,poll%+24 .|
0000ac20  20 c8 99 22 57 69 6d 70  5f 44 72 61 67 42 6f 78  | .."Wimp_DragBox|
0000ac30  22 2c 2c 70 6f 6c 6c 25  0d 32 d2 13 66 69 6c 65  |",,poll%.2..file|
0000ac40  5f 73 74 61 74 75 73 25  3d 31 30 0d 32 dc 05 e1  |_status%=10.2...|
0000ac50  0d 32 e6 05 3a 0d 32 f0  16 dd f2 64 72 61 67 5f  |.2..:.2....drag_|
0000ac60  75 73 65 72 64 72 61 67  62 6f 78 0d 32 fa 22 c8  |userdragbox.2.".|
0000ac70  99 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  |."Wimp_GetPointe|
0000ac80  72 49 6e 66 6f 22 2c 2c  70 6f 6c 6c 25 0d 33 04  |rInfo",,poll%.3.|
0000ac90  27 21 62 6c 6f 63 6b 25  3d 32 35 36 3a 62 6c 6f  |'!block%=256:blo|
0000aca0  63 6b 25 21 31 32 3d 30  3a 62 6c 6f 63 6b 25 21  |ck%!12=0:block%!|
0000acb0  31 36 3d 31 0d 33 0e 69  62 6c 6f 63 6b 25 21 32  |16=1.3.iblock%!2|
0000acc0  30 3d 70 6f 6c 6c 25 21  31 32 3a 62 6c 6f 63 6b  |0=poll%!12:block|
0000acd0  25 21 32 34 3d 70 6f 6c  6c 25 21 31 36 3a 62 6c  |%!24=poll%!16:bl|
0000ace0  6f 63 6b 25 21 32 38 3d  21 70 6f 6c 6c 25 3a 62  |ock%!28=!poll%:b|
0000acf0  6c 6f 63 6b 25 21 33 32  3d 70 6f 6c 6c 25 21 34  |lock%!32=poll%!4|
0000ad00  3a 62 6c 6f 63 6b 25 21  33 36 3d 35 34 33 3a 62  |:block%!36=543:b|
0000ad10  6c 6f 63 6b 25 21 34 30  3d 26 30 66 30 0d 33 18  |lock%!40=&0f0.3.|
0000ad20  31 e7 66 69 6c 65 5f 73  74 61 74 75 73 25 3d 31  |1.file_status%=1|
0000ad30  3a f2 73 61 76 65 5f 6c  65 61 66 28 69 6e 64 5f  |:.save_leaf(ind_|
0000ad40  73 61 25 2c 62 6c 6f 63  6b 25 2b 34 34 29 0d 33  |sa%,block%+44).3|
0000ad50  22 32 e7 66 69 6c 65 5f  73 74 61 74 75 73 25 3d  |"2.file_status%=|
0000ad60  31 30 3a f2 73 61 76 65  5f 6c 65 61 66 28 69 6e  |10:.save_leaf(in|
0000ad70  64 5f 73 67 25 2c 62 6c  6f 63 6b 25 2b 34 34 29  |d_sg%,block%+44)|
0000ad80  0d 33 2c 2b c8 99 22 57  69 6d 70 5f 53 65 6e 64  |.3,+.."Wimp_Send|
0000ad90  4d 65 73 73 61 67 65 22  2c 31 38 2c 62 6c 6f 63  |Message",18,bloc|
0000ada0  6b 25 2c 70 6f 6c 6c 25  21 31 32 0d 33 36 15 66  |k%,poll%!12.36.f|
0000adb0  69 6c 65 5f 73 74 61 74  75 73 25 2b 3d 31 3a e1  |ile_status%+=1:.|
0000adc0  0d 33 40 05 3a 0d 33 4a  05 3a 0d 33 54 2b f4 20  |.3@.:.3J.:.3T+. |
0000add0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 20 53 61 76 69 6e  |********** Savin|
0000ade0  67 2c 20 69 74 20 68 65  6c 70 73 20 2a 2a 2a 2a  |g, it helps ****|
0000adf0  2a 2a 2a 2a 2a 0d 33 5e  05 3a 0d 33 68 11 dd f2  |*****.3^.:.3h...|
0000ae00  73 61 76 65 5f 74 65 6d  70 4f 4b 0d 33 72 42 4e  |save_tempOK.3rBN|
0000ae10  3d 2d 31 3a f5 4e 2b 3d  31 3a fd 69 6e 64 5f 73  |=-1:.N+=1:.ind_s|
0000ae20  61 25 3f 4e 3d 34 36 84  69 6e 64 5f 73 61 25 3f  |a%?N=46.ind_sa%?|
0000ae30  4e 3d 30 84 69 6e 64 5f  73 61 25 3f 4e 3d 31 30  |N=0.ind_sa%?N=10|
0000ae40  84 69 6e 64 5f 73 61 25  3f 4e 3d 31 33 0d 33 7c  |.ind_sa%?N=13.3||
0000ae50  57 e7 69 6e 64 5f 73 61  25 3f 4e 3c 3e 34 36 3a  |W.ind_sa%?N<>46:|
0000ae60  4e 3d a4 6d 65 73 73 61  67 65 28 22 54 6f 20 73  |N=.message("To s|
0000ae70  61 76 65 2c 20 64 72 61  67 20 74 68 65 20 74 65  |ave, drag the te|
0000ae80  6d 70 6c 61 74 65 20 69  63 6f 6e 20 74 6f 20 61  |mplate icon to a|
0000ae90  20 66 69 6c 65 72 20 77  69 6e 64 6f 77 2e 22 2c  | filer window.",|
0000aea0  30 29 3a e1 0d 33 86 18  24 28 70 6f 6c 6c 25 2b  |0):..3..$(poll%+|
0000aeb0  34 34 29 3d 24 69 6e 64  5f 73 61 25 0d 33 90 12  |44)=$ind_sa%.3..|
0000aec0  f2 73 61 76 65 5f 74 65  6d 70 6c 61 74 65 0d 33  |.save_template.3|
0000aed0  9a 1b c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |...."Wimp_Create|
0000aee0  4d 65 6e 75 22 2c 2c 2d  31 0d 33 a4 05 e1 0d 33  |Menu",,-1.3....3|
0000aef0  ae 05 3a 0d 33 b8 13 dd  f2 73 61 76 65 5f 63 72  |..:.3....save_cr|
0000af00  65 61 74 65 4f 4b 0d 33  c2 42 4e 3d 2d 31 3a f5  |eateOK.3.BN=-1:.|
0000af10  4e 2b 3d 31 3a fd 69 6e  64 5f 73 67 25 3f 4e 3d  |N+=1:.ind_sg%?N=|
0000af20  34 36 84 69 6e 64 5f 73  67 25 3f 4e 3d 30 84 69  |46.ind_sg%?N=0.i|
0000af30  6e 64 5f 73 67 25 3f 4e  3d 31 30 84 69 6e 64 5f  |nd_sg%?N=10.ind_|
0000af40  73 67 25 3f 4e 3d 31 33  0d 33 cc 57 e7 69 6e 64  |sg%?N=13.3.W.ind|
0000af50  5f 73 67 25 3f 4e 3c 3e  34 36 3a 4e 3d a4 6d 65  |_sg%?N<>46:N=.me|
0000af60  73 73 61 67 65 28 22 54  6f 20 73 61 76 65 2c 20  |ssage("To save, |
0000af70  64 72 61 67 20 74 68 65  20 64 72 61 77 66 69 6c  |drag the drawfil|
0000af80  65 20 69 63 6f 6e 20 74  6f 20 61 20 66 69 6c 65  |e icon to a file|
0000af90  72 20 77 69 6e 64 6f 77  2e 22 2c 30 29 3a e1 0d  |r window.",0):..|
0000afa0  33 d6 19 24 66 69 6c 65  5f 67 72 61 70 68 25 3d  |3..$file_graph%=|
0000afb0  24 69 6e 64 5f 73 67 25  0d 33 e0 11 f2 67 72 61  |$ind_sg%.3...gra|
0000afc0  70 68 5f 63 72 65 61 74  65 0d 33 ea 05 e1 0d 33  |ph_create.3....3|
0000afd0  f4 05 3a 0d 33 fe 15 dd  f2 73 61 76 65 5f 6c 65  |..:.3....save_le|
0000afe0  61 66 28 4e 25 2c 4e 29  0d 34 08 0e 4d 3d a4 6c  |af(N%,N).4..M=.l|
0000aff0  65 6e 28 4e 25 29 0d 34  12 17 f5 3a 4d 2d 3d 31  |en(N%).4...:M-=1|
0000b000  3a fd 4e 25 3f 4d 3d 34  36 84 4d 3d 30 0d 34 1c  |:.N%?M=46.M=0.4.|
0000b010  11 e7 4e 25 3f 4d 3d 34  36 3a 4d 2b 3d 31 0d 34  |..N%?M=46:M+=1.4|
0000b020  26 0e 24 4e 3d 24 28 4e  25 2b 4d 29 0d 34 30 05  |&.$N=$(N%+M).40.|
0000b030  e1 0d 34 3a 05 3a 0d 34  44 0e dd f2 73 61 76 65  |..4:.:.4D...save|
0000b040  5f 61 63 6b 0d 34 4e 4d  e7 70 6f 6c 6c 25 21 33  |_ack.4NM.poll%!3|
0000b050  36 3d 2d 31 3a 4e 3d a4  6d 65 73 73 61 67 65 28  |6=-1:N=.message(|
0000b060  22 55 6e 73 61 66 65 20  74 6f 20 73 61 76 65 20  |"Unsafe to save |
0000b070  22 2b 24 28 70 6f 6c 6c  25 2b 34 34 29 2c 30 29  |"+$(poll%+44),0)|
0000b080  3a 66 69 6c 65 5f 73 74  61 74 75 73 25 3d 30 3a  |:file_status%=0:|
0000b090  e1 0d 34 58 08 5a 25 3d  31 0d 34 62 22 e7 66 69  |..4X.Z%=1.4b".fi|
0000b0a0  6c 65 5f 73 74 61 74 75  73 25 3d 32 3a f2 73 61  |le_status%=2:.sa|
0000b0b0  76 65 5f 74 65 6d 70 6c  61 74 65 0d 34 6c 26 e7  |ve_template.4l&.|
0000b0c0  66 69 6c 65 5f 73 74 61  74 75 73 25 3d 31 31 3a  |file_status%=11:|
0000b0d0  f2 73 61 76 65 5f 63 72  65 61 74 65 67 72 61 70  |.save_creategrap|
0000b0e0  68 0d 34 76 3c e7 5a 25  3c 3e 30 3a 70 6f 6c 6c  |h.4v<.Z%<>0:poll|
0000b0f0  25 21 31 36 3d 33 3a c8  99 22 57 69 6d 70 5f 53  |%!16=3:.."Wimp_S|
0000b100  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 38 2c 70  |endMessage",18,p|
0000b110  6f 6c 6c 25 2c 70 6f 6c  6c 25 21 32 30 0d 34 80  |oll%,poll%!20.4.|
0000b120  1b c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |..."Wimp_CreateM|
0000b130  65 6e 75 22 2c 2c 2d 31  0d 34 8a 05 e1 0d 34 94  |enu",,-1.4....4.|
0000b140  05 3a 0d 34 9e 16 dd f2  73 61 76 65 5f 74 65 6d  |.:.4....save_tem|
0000b150  70 6c 61 74 65 3a ea 85  0d 34 a8 1b 24 66 69 6c  |plate:...4..$fil|
0000b160  65 5f 74 65 6d 70 25 3d  24 28 70 6f 6c 6c 25 2b  |e_temp%=$(poll%+|
0000b170  34 34 29 0d 34 b2 18 24  69 6e 64 5f 73 61 25 3d  |44).4..$ind_sa%=|
0000b180  24 28 70 6f 6c 6c 25 2b  34 34 29 0d 34 bc 22 c8  |$(poll%+44).4.".|
0000b190  99 22 58 4f 53 5f 46 69  6e 64 22 2c 26 38 32 2c  |."XOS_Find",&82,|
0000b1a0  70 6f 6c 6c 25 2b 34 34  b8 58 25 3b 4e 0d 34 c6  |poll%+44.X%;N.4.|
0000b1b0  44 e7 28 4e 20 80 31 29  3d 31 84 58 25 3d 30 3a  |D.(N .1)=1.X%=0:|
0000b1c0  4e 3d a4 6d 65 73 73 61  67 65 28 22 46 6f 72 6d  |N=.message("Form|
0000b1d0  61 74 20 74 65 6d 70 6c  61 74 65 20 6e 6f 74 20  |at template not |
0000b1e0  73 61 76 65 64 2e 22 2c  30 29 3a 5a 25 3d 30 3a  |saved.",0):Z%=0:|
0000b1f0  e1 0d 34 d0 89 ee 85 ea  4d 3d a4 6d 65 73 73 61  |..4.....M=.messa|
0000b200  67 65 28 22 47 72 61 70  68 50 6c 75 73 20 68 61  |ge("GraphPlus ha|
0000b210  73 20 65 6e 63 6f 75 6e  74 65 72 65 64 20 61 6e  |s encountered an|
0000b220  20 65 72 72 6f 72 20 77  68 65 6e 20 73 61 76 69  | error when savi|
0000b230  6e 67 20 74 65 6d 70 6c  61 74 65 2e 20 49 66 20  |ng template. If |
0000b240  70 6f 73 73 69 62 6c 65  20 71 75 69 74 20 47 72  |possible quit Gr|
0000b250  61 70 68 50 6c 75 73 20  61 6e 64 20 72 65 6c 6f  |aphPlus and relo|
0000b260  61 64 2e 22 2c 30 29 3a  c8 99 22 4f 53 5f 46 69  |ad.",0):.."OS_Fi|
0000b270  6e 64 22 2c 30 2c 58 25  3a e1 0d 34 da 33 f2 64  |nd",0,X%:..4.3.d|
0000b280  66 69 6c 65 5f 70 75 74  28 22 47 72 61 70 68 50  |file_put("GraphP|
0000b290  6c 75 73 20 54 65 6d 70  6c 61 74 65 22 29 3a f2  |lus Template"):.|
0000b2a0  64 66 69 6c 65 5f 62 70  75 74 28 30 29 0d 34 e4  |dfile_bput(0).4.|
0000b2b0  1c f2 64 66 69 6c 65 5f  62 70 75 74 28 67 72 61  |..dfile_bput(gra|
0000b2c0  70 68 5f 74 79 70 65 25  29 0d 34 ee 27 e3 4d 3d  |ph_type%).4.'.M=|
0000b2d0  30 b8 32 37 3a f2 64 66  69 6c 65 5f 62 70 75 74  |0.27:.dfile_bput|
0000b2e0  28 67 72 6f 75 70 5f 6d  61 70 25 3f 4d 29 3a ed  |(group_map%?M):.|
0000b2f0  0d 34 f8 29 e3 4d 3d 30  b8 32 35 31 3a f2 64 66  |.4.).M=0.251:.df|
0000b300  69 6c 65 5f 62 70 75 74  28 67 72 6f 75 70 5f 64  |ile_bput(group_d|
0000b310  61 74 61 25 3f 4d 29 3a  ed 0d 35 02 6a f2 64 66  |ata%?M):..5.j.df|
0000b320  69 6c 65 5f 73 70 75 74  6c 28 66 6f 6e 74 5f 6c  |ile_sputl(font_l|
0000b330  69 73 74 25 2b 74 65 78  74 5f 74 69 74 6c 65 63  |ist%+text_titlec|
0000b340  2a 34 30 2c 34 30 29 3a  f2 64 66 69 6c 65 5f 77  |*40,40):.dfile_w|
0000b350  70 75 74 28 74 65 78 74  5f 74 69 74 6c 65 78 2a  |put(text_titlex*|
0000b360  31 30 30 30 29 3a f2 64  66 69 6c 65 5f 77 70 75  |1000):.dfile_wpu|
0000b370  74 28 74 65 78 74 5f 74  69 74 6c 65 79 2a 31 30  |t(text_titley*10|
0000b380  30 30 29 0d 35 0c 67 f2  64 66 69 6c 65 5f 73 70  |00).5.g.dfile_sp|
0000b390  75 74 6c 28 66 6f 6e 74  5f 6c 69 73 74 25 2b 74  |utl(font_list%+t|
0000b3a0  65 78 74 5f 61 78 69 73  63 2a 34 30 2c 34 30 29  |ext_axisc*40,40)|
0000b3b0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 74 65 78  |:.dfile_wput(tex|
0000b3c0  74 5f 61 78 69 73 78 2a  31 30 30 30 29 3a f2 64  |t_axisx*1000):.d|
0000b3d0  66 69 6c 65 5f 77 70 75  74 28 74 65 78 74 5f 61  |file_wput(text_a|
0000b3e0  78 69 73 79 2a 31 30 30  30 29 0d 35 16 64 f2 64  |xisy*1000).5.d.d|
0000b3f0  66 69 6c 65 5f 73 70 75  74 6c 28 66 6f 6e 74 5f  |file_sputl(font_|
0000b400  6c 69 73 74 25 2b 74 65  78 74 5f 6b 65 79 63 2a  |list%+text_keyc*|
0000b410  34 30 2c 34 30 29 3a f2  64 66 69 6c 65 5f 77 70  |40,40):.dfile_wp|
0000b420  75 74 28 74 65 78 74 5f  6b 65 79 78 2a 31 30 30  |ut(text_keyx*100|
0000b430  30 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 74  |0):.dfile_wput(t|
0000b440  65 78 74 5f 6b 65 79 79  2a 31 30 30 30 29 0d 35  |ext_keyy*1000).5|
0000b450  20 2d e7 67 72 61 70 68  5f 6b 65 79 25 3a f2 64  | -.graph_key%:.d|
0000b460  66 69 6c 65 5f 62 70 75  74 28 31 29 8b f2 64 66  |file_bput(1)..df|
0000b470  69 6c 65 5f 62 70 75 74  28 30 29 0d 35 2a 2e e7  |ile_bput(0).5*..|
0000b480  67 72 61 70 68 5f 62 61  63 6b 25 3a f2 64 66 69  |graph_back%:.dfi|
0000b490  6c 65 5f 62 70 75 74 28  31 29 8b f2 64 66 69 6c  |le_bput(1)..dfil|
0000b4a0  65 5f 62 70 75 74 28 30  29 0d 35 34 2c e7 67 72  |e_bput(0).54,.gr|
0000b4b0  61 70 68 5f 33 44 25 3a  f2 64 66 69 6c 65 5f 62  |aph_3D%:.dfile_b|
0000b4c0  70 75 74 28 31 29 8b f2  64 66 69 6c 65 5f 62 70  |put(1)..dfile_bp|
0000b4d0  75 74 28 30 29 0d 35 3e  33 e7 67 72 61 70 68 5f  |ut(0).5>3.graph_|
0000b4e0  6f 75 74 6c 69 6e 65 25  3d 30 3a f2 64 66 69 6c  |outline%=0:.dfil|
0000b4f0  65 5f 62 70 75 74 28 31  29 8b f2 64 66 69 6c 65  |e_bput(1)..dfile|
0000b500  5f 62 70 75 74 28 30 29  0d 35 48 51 f2 64 66 69  |_bput(0).5HQ.dfi|
0000b510  6c 65 5f 62 70 75 74 28  64 61 74 61 5f 62 61 63  |le_bput(data_bac|
0000b520  6b 25 3f 31 29 3a f2 64  66 69 6c 65 5f 62 70 75  |k%?1):.dfile_bpu|
0000b530  74 28 64 61 74 61 5f 62  61 63 6b 25 3f 32 29 3a  |t(data_back%?2):|
0000b540  f2 64 66 69 6c 65 5f 62  70 75 74 28 64 61 74 61  |.dfile_bput(data|
0000b550  5f 62 61 63 6b 25 3f 33  29 0d 35 52 1c f2 64 66  |_back%?3).5R..df|
0000b560  69 6c 65 5f 62 70 75 74  28 67 72 61 70 68 5f 62  |ile_bput(graph_b|
0000b570  65 73 74 25 29 0d 35 5c  21 e3 4d 3d 30 b8 36 33  |est%).5\!.M=0.63|
0000b580  3a d5 23 58 25 2c 70 69  65 5f 70 61 6c 65 74 74  |:.#X%,pie_palett|
0000b590  65 25 3f 4d 3a ed 0d 35  66 30 e7 67 72 61 70 68  |e%?M:..5f0.graph|
0000b5a0  5f 74 69 74 6c 65 25 3a  f2 64 66 69 6c 65 5f 62  |_title%:.dfile_b|
0000b5b0  70 75 74 28 31 29 3a 8b  f2 64 66 69 6c 65 5f 62  |put(1):..dfile_b|
0000b5c0  70 75 74 28 30 29 0d 35  70 1d f2 64 66 69 6c 65  |put(0).5p..dfile|
0000b5d0  5f 73 70 75 74 6c 28 73  5f 74 69 74 6c 65 25 2c  |_sputl(s_title%,|
0000b5e0  34 30 29 0d 35 7a 30 e7  67 72 61 70 68 5f 78 61  |40).5z0.graph_xa|
0000b5f0  78 69 73 25 3a f2 64 66  69 6c 65 5f 62 70 75 74  |xis%:.dfile_bput|
0000b600  28 31 29 3a 8b f2 64 66  69 6c 65 5f 62 70 75 74  |(1):..dfile_bput|
0000b610  28 30 29 0d 35 84 1d f2  64 66 69 6c 65 5f 73 70  |(0).5...dfile_sp|
0000b620  75 74 6c 28 73 5f 78 61  78 69 73 25 2c 34 30 29  |utl(s_xaxis%,40)|
0000b630  0d 35 8e 1a f2 64 66 69  6c 65 5f 62 70 75 74 28  |.5...dfile_bput(|
0000b640  67 72 61 70 68 5f 78 67  25 29 0d 35 98 2f e7 67  |graph_xg%).5./.g|
0000b650  72 61 70 68 5f 78 63 61  6c 25 3a f2 64 66 69 6c  |raph_xcal%:.dfil|
0000b660  65 5f 62 70 75 74 28 31  29 3a 8b f2 64 66 69 6c  |e_bput(1):..dfil|
0000b670  65 5f 62 70 75 74 28 30  29 0d 35 a2 20 f2 64 66  |e_bput(0).5. .df|
0000b680  69 6c 65 5f 77 70 75 74  28 67 72 61 70 68 5f 78  |ile_wput(graph_x|
0000b690  64 69 76 2a 31 30 30 30  29 0d 35 ac 21 f2 64 66  |div*1000).5.!.df|
0000b6a0  69 6c 65 5f 77 70 75 74  28 67 72 61 70 68 5f 78  |ile_wput(graph_x|
0000b6b0  73 64 69 76 2a 31 30 30  30 29 0d 35 b6 1f f2 64  |sdiv*1000).5...d|
0000b6c0  66 69 6c 65 5f 77 70 75  74 28 64 61 74 61 5f 78  |file_wput(data_x|
0000b6d0  6d 69 6e 2a 31 30 30 30  29 0d 35 c0 1f f2 64 66  |min*1000).5...df|
0000b6e0  69 6c 65 5f 77 70 75 74  28 64 61 74 61 5f 78 6d  |ile_wput(data_xm|
0000b6f0  61 78 2a 31 30 30 30 29  0d 35 ca 30 e7 67 72 61  |ax*1000).5.0.gra|
0000b700  70 68 5f 79 61 78 69 73  25 3a f2 64 66 69 6c 65  |ph_yaxis%:.dfile|
0000b710  5f 62 70 75 74 28 31 29  3a 8b f2 64 66 69 6c 65  |_bput(1):..dfile|
0000b720  5f 62 70 75 74 28 30 29  0d 35 d4 1d f2 64 66 69  |_bput(0).5...dfi|
0000b730  6c 65 5f 73 70 75 74 6c  28 73 5f 79 61 78 69 73  |le_sputl(s_yaxis|
0000b740  25 2c 34 30 29 0d 35 de  1a f2 64 66 69 6c 65 5f  |%,40).5...dfile_|
0000b750  62 70 75 74 28 67 72 61  70 68 5f 79 67 25 29 0d  |bput(graph_yg%).|
0000b760  35 e8 2f e7 67 72 61 70  68 5f 79 63 61 6c 25 3a  |5./.graph_ycal%:|
0000b770  f2 64 66 69 6c 65 5f 62  70 75 74 28 31 29 3a 8b  |.dfile_bput(1):.|
0000b780  f2 64 66 69 6c 65 5f 62  70 75 74 28 30 29 0d 35  |.dfile_bput(0).5|
0000b790  f2 20 f2 64 66 69 6c 65  5f 77 70 75 74 28 67 72  |. .dfile_wput(gr|
0000b7a0  61 70 68 5f 79 64 69 76  2a 31 30 30 30 29 0d 35  |aph_ydiv*1000).5|
0000b7b0  fc 21 f2 64 66 69 6c 65  5f 77 70 75 74 28 67 72  |.!.dfile_wput(gr|
0000b7c0  61 70 68 5f 79 73 64 69  76 2a 31 30 30 30 29 0d  |aph_ysdiv*1000).|
0000b7d0  36 06 1f f2 64 66 69 6c  65 5f 77 70 75 74 28 64  |6...dfile_wput(d|
0000b7e0  61 74 61 5f 79 6d 69 6e  2a 31 30 30 30 29 0d 36  |ata_ymin*1000).6|
0000b7f0  10 1f f2 64 66 69 6c 65  5f 77 70 75 74 28 64 61  |...dfile_wput(da|
0000b800  74 61 5f 79 6d 61 78 2a  31 30 30 30 29 0d 36 1a  |ta_ymax*1000).6.|
0000b810  1f f2 64 66 69 6c 65 5f  62 70 75 74 28 67 72 61  |..dfile_bput(gra|
0000b820  70 68 5f 62 61 72 74 79  70 65 25 29 0d 36 24 21  |ph_bartype%).6$!|
0000b830  f2 64 66 69 6c 65 5f 62  70 75 74 28 67 72 61 70  |.dfile_bput(grap|
0000b840  68 5f 62 61 72 6d 61 72  67 69 6e 25 29 0d 36 2e  |h_barmargin%).6.|
0000b850  2e e7 67 72 61 70 68 5f  65 78 70 25 3a f2 64 66  |..graph_exp%:.df|
0000b860  69 6c 65 5f 62 70 75 74  28 31 29 3a 8b f2 64 66  |ile_bput(1):..df|
0000b870  69 6c 65 5f 62 70 75 74  28 30 29 0d 36 38 1a f2  |ile_bput(0).68..|
0000b880  64 66 69 6c 65 5f 77 70  75 74 28 67 72 61 70 68  |dfile_wput(graph|
0000b890  5f 65 73 25 29 0d 36 42  1a f2 64 66 69 6c 65 5f  |_es%).6B..dfile_|
0000b8a0  77 70 75 74 28 67 72 61  70 68 5f 65 66 25 29 0d  |wput(graph_ef%).|
0000b8b0  36 4c 14 c8 99 22 4f 53  5f 46 69 6e 64 22 2c 30  |6L..."OS_Find",0|
0000b8c0  2c 58 25 0d 36 56 1f c8  99 22 4f 53 5f 46 69 6c  |,X%.6V..."OS_Fil|
0000b8d0  65 22 2c 31 38 2c 69 6e  64 5f 73 61 25 2c 26 30  |e",18,ind_sa%,&0|
0000b8e0  66 30 0d 36 60 05 e1 0d  36 6a 05 3a 0d 36 74 16  |f0.6`...6j.:.6t.|
0000b8f0  dd f2 73 61 76 65 5f 63  72 65 61 74 65 67 72 61  |..save_creategra|
0000b900  70 68 0d 36 7e 1c 24 66  69 6c 65 5f 67 72 61 70  |ph.6~.$file_grap|
0000b910  68 25 3d 24 28 70 6f 6c  6c 25 2b 34 34 29 0d 36  |h%=$(poll%+44).6|
0000b920  88 18 24 69 6e 64 5f 73  67 25 3d 24 28 70 6f 6c  |..$ind_sg%=$(pol|
0000b930  6c 25 2b 34 34 29 0d 36  92 11 f2 67 72 61 70 68  |l%+44).6...graph|
0000b940  5f 63 72 65 61 74 65 0d  36 9c 05 e1 0d 36 a6 05  |_create.6....6..|
0000b950  3a 0d 36 b0 05 3a 0d 36  ba 38 f4 20 2a 2a 2a 2a  |:.6..:.6.8. ****|
0000b960  2a 2a 2a 2a 2a 2a 20 57  65 6c 6c 2c 20 61 20 6c  |****** Well, a l|
0000b970  6f 61 64 20 69 73 20 6a  75 73 74 20 61 73 20 67  |oad is just as g|
0000b980  6f 6f 64 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 36  |ood **********.6|
0000b990  c4 05 3a 0d 36 ce 12 dd  f2 6c 6f 61 64 5f 6d 65  |..:.6....load_me|
0000b9a0  73 73 61 67 65 0d 36 d8  23 e7 70 6f 6c 6c 25 21  |ssage.6.#.poll%!|
0000b9b0  34 30 3d 26 30 66 30 3a  f2 6c 6f 61 64 5f 74 65  |40=&0f0:.load_te|
0000b9c0  6d 70 6c 61 74 65 3a e1  0d 36 e2 5b e7 70 6f 6c  |mplate:..6.[.pol|
0000b9d0  6c 25 21 34 30 3c 3e 26  64 66 65 3a 4e 3d a4 6d  |l%!40<>&dfe:N=.m|
0000b9e0  65 73 73 61 67 65 28 22  4e 6f 74 20 61 20 43 53  |essage("Not a CS|
0000b9f0  56 20 66 69 6c 65 2e 20  41 72 65 20 79 6f 75 20  |V file. Are you |
0000ba00  73 75 72 65 20 79 6f 75  20 77 61 6e 74 20 74 6f  |sure you want to|
0000ba10  20 75 73 65 20 69 74 3f  22 2c 33 29 3a e7 4e 3d  | use it?",3):.N=|
0000ba20  32 3a e1 0d 36 ec 15 f2  6c 6f 61 64 5f 73 65 74  |2:..6...load_set|
0000ba30  64 61 74 61 70 61 74 68  0d 36 f6 05 e1 0d 37 00  |datapath.6....7.|
0000ba40  05 3a 0d 37 0a 13 dd f2  6c 6f 61 64 5f 74 65 6d  |.:.7....load_tem|
0000ba50  70 6c 61 74 65 0d 37 14  13 58 25 3d 8e 24 28 70  |plate.7..X%=.$(p|
0000ba60  6f 6c 6c 25 2b 34 34 29  0d 37 1e 1f 70 6f 6c 6c  |oll%+44).7..poll|
0000ba70  25 21 31 32 3d 70 6f 6c  6c 25 21 38 3a 70 6f 6c  |%!12=poll%!8:pol|
0000ba80  6c 25 21 31 36 3d 34 0d  37 28 2a c8 99 22 57 69  |l%!16=4.7(*.."Wi|
0000ba90  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
0000baa0  31 37 2c 70 6f 6c 6c 25  2c 70 6f 6c 6c 25 21 32  |17,poll%,poll%!2|
0000bab0  30 0d 37 32 12 f2 6c 6f  61 64 5f 74 65 6d 70 66  |0.72..load_tempf|
0000bac0  69 6c 65 0d 37 3c 08 d9  23 58 25 0d 37 46 13 f2  |ile.7<..#X%.7F..|
0000bad0  70 61 6e 65 5f 63 61 6c  63 75 6c 61 74 65 0d 37  |pane_calculate.7|
0000bae0  50 34 c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |P4.."Wimp_ForceR|
0000baf0  65 64 72 61 77 22 2c 68  61 6e 64 6c 65 5f 70 61  |edraw",handle_pa|
0000bb00  6e 65 25 2c 30 2c 2d 31  30 32 33 2c 31 32 37 39  |ne%,0,-1023,1279|
0000bb10  2c 30 0d 37 5a 05 e1 0d  37 64 05 3a 0d 37 6e 16  |,0.7Z...7d.:.7n.|
0000bb20  dd f2 6c 6f 61 64 5f 74  65 6d 70 66 69 6c 65 3a  |..load_tempfile:|
0000bb30  ea 85 0d 37 78 61 ee 85  ea 4d 3d a4 6d 65 73 73  |...7xa...M=.mess|
0000bb40  61 67 65 28 22 47 72 61  70 68 50 6c 75 73 20 74  |age("GraphPlus t|
0000bb50  65 6d 70 6c 61 74 65 20  6c 6f 61 64 69 6e 67 20  |emplate loading |
0000bb60  65 72 72 6f 72 2e 20 54  68 65 20 63 75 72 72 65  |error. The curre|
0000bb70  6e 74 20 74 65 6d 70 6c  61 74 65 20 6d 61 79 20  |nt template may |
0000bb80  62 65 20 63 6f 72 72 75  70 74 65 64 2e 22 2c 30  |be corrupted.",0|
0000bb90  29 3a e1 0d 37 82 1c cf  23 58 25 3d 31 39 3a 67  |):..7...#X%=19:g|
0000bba0  72 61 70 68 5f 74 79 70  65 25 3d 9a 23 58 25 0d  |raph_type%=.#X%.|
0000bbb0  37 8c 1e f2 67 72 61 70  68 5f 73 65 6c 65 63 74  |7...graph_select|
0000bbc0  28 67 72 61 70 68 5f 74  79 70 65 25 29 0d 37 96  |(graph_type%).7.|
0000bbd0  1f e3 4d 3d 30 b8 32 37  3a 67 72 6f 75 70 5f 6d  |..M=0.27:group_m|
0000bbe0  61 70 25 3f 4d 3d 9a 23  58 25 3a ed 0d 37 a0 21  |ap%?M=.#X%:..7.!|
0000bbf0  e3 4d 3d 30 b8 32 35 31  3a 67 72 6f 75 70 5f 64  |.M=0.251:group_d|
0000bc00  61 74 61 25 3f 4d 3d 9a  23 58 25 3a ed 0d 37 aa  |ata%?M=.#X%:..7.|
0000bc10  77 74 65 78 74 5f 74 69  74 6c 65 63 3d a4 66 6f  |wtext_titlec=.fo|
0000bc20  6e 74 5f 72 65 63 6f 67  6e 69 73 65 3a f2 66 69  |nt_recognise:.fi|
0000bc30  6c 65 5f 77 67 65 74 28  62 6c 6f 63 6b 25 29 3a  |le_wget(block%):|
0000bc40  74 65 78 74 5f 74 69 74  6c 65 78 3d 21 62 6c 6f  |text_titlex=!blo|
0000bc50  63 6b 25 2f 31 30 30 30  3a f2 66 69 6c 65 5f 77  |ck%/1000:.file_w|
0000bc60  67 65 74 28 62 6c 6f 63  6b 25 29 3a 74 65 78 74  |get(block%):text|
0000bc70  5f 74 69 74 6c 65 79 3d  21 62 6c 6f 63 6b 25 2f  |_titley=!block%/|
0000bc80  31 30 30 30 0d 37 b4 74  74 65 78 74 5f 61 78 69  |1000.7.ttext_axi|
0000bc90  73 63 3d a4 66 6f 6e 74  5f 72 65 63 6f 67 6e 69  |sc=.font_recogni|
0000bca0  73 65 3a f2 66 69 6c 65  5f 77 67 65 74 28 62 6c  |se:.file_wget(bl|
0000bcb0  6f 63 6b 25 29 3a 74 65  78 74 5f 61 78 69 73 78  |ock%):text_axisx|
0000bcc0  3d 21 62 6c 6f 63 6b 25  2f 31 30 30 30 3a f2 66  |=!block%/1000:.f|
0000bcd0  69 6c 65 5f 77 67 65 74  28 62 6c 6f 63 6b 25 29  |ile_wget(block%)|
0000bce0  3a 74 65 78 74 5f 61 78  69 73 79 3d 21 62 6c 6f  |:text_axisy=!blo|
0000bcf0  63 6b 25 2f 31 30 30 30  0d 37 be 71 74 65 78 74  |ck%/1000.7.qtext|
0000bd00  5f 6b 65 79 63 3d a4 66  6f 6e 74 5f 72 65 63 6f  |_keyc=.font_reco|
0000bd10  67 6e 69 73 65 3a f2 66  69 6c 65 5f 77 67 65 74  |gnise:.file_wget|
0000bd20  28 62 6c 6f 63 6b 25 29  3a 74 65 78 74 5f 6b 65  |(block%):text_ke|
0000bd30  79 78 3d 21 62 6c 6f 63  6b 25 2f 31 30 30 30 3a  |yx=!block%/1000:|
0000bd40  f2 66 69 6c 65 5f 77 67  65 74 28 62 6c 6f 63 6b  |.file_wget(block|
0000bd50  25 29 3a 74 65 78 74 5f  6b 65 79 79 3d 21 62 6c  |%):text_keyy=!bl|
0000bd60  6f 63 6b 25 2f 31 30 30  30 0d 37 c8 4c 4e 3d 9a  |ock%/1000.7.LN=.|
0000bd70  23 58 25 3a e7 4e 3d 31  3a 67 72 61 70 68 5f 6b  |#X%:.N=1:graph_k|
0000bd80  65 79 25 3d b9 3a 6d 65  6e 75 5f 73 74 79 6c 65  |ey%=.:menu_style|
0000bd90  25 3f 32 38 3d 31 3a 8b  67 72 61 70 68 5f 6b 65  |%?28=1:.graph_ke|
0000bda0  79 25 3d a3 3a 6d 65 6e  75 5f 73 74 79 6c 65 25  |y%=.:menu_style%|
0000bdb0  3f 32 38 3d 30 0d 37 d2  4c 4e 3d 9a 23 58 25 3a  |?28=0.7.LN=.#X%:|
0000bdc0  e7 4e 3d 31 3a 67 72 61  70 68 5f 62 6f 78 25 3d  |.N=1:graph_box%=|
0000bdd0  b9 3a 6d 65 6e 75 5f 73  74 79 6c 65 25 3f 35 32  |.:menu_style%?52|
0000bde0  3d 39 3a 8b 67 72 61 70  68 5f 62 6f 78 25 3d a3  |=9:.graph_box%=.|
0000bdf0  3a 6d 65 6e 75 5f 73 74  79 6c 65 25 3f 35 32 3d  |:menu_style%?52=|
0000be00  38 0d 37 dc 4c 4e 3d 9a  23 58 25 3a e7 4e 3d 31  |8.7.LN=.#X%:.N=1|
0000be10  3a 67 72 61 70 68 5f 33  44 25 3d b9 3a 6d 65 6e  |:graph_3D%=.:men|
0000be20  75 5f 73 74 79 6c 65 25  3f 31 34 38 3d 31 3a 8b  |u_style%?148=1:.|
0000be30  67 72 61 70 68 5f 33 44  25 3d a3 3a 6d 65 6e 75  |graph_3D%=.:menu|
0000be40  5f 73 74 79 6c 65 25 3f  31 34 38 3d 30 0d 37 e6  |_style%?148=0.7.|
0000be50  5b 4e 3d 9a 23 58 25 3a  e7 4e 3d 31 3a 67 72 61  |[N=.#X%:.N=1:gra|
0000be60  70 68 5f 6f 75 74 6c 69  6e 65 25 3d 30 3a 6d 65  |ph_outline%=0:me|
0000be70  6e 75 5f 73 74 79 6c 65  25 3f 31 37 32 3d 31 32  |nu_style%?172=12|
0000be80  39 3a 8b 67 72 61 70 68  5f 6f 75 74 6c 69 6e 65  |9:.graph_outline|
0000be90  25 3d 2d 31 3a 6d 65 6e  75 5f 73 74 79 6c 65 25  |%=-1:menu_style%|
0000bea0  3f 31 37 32 3d 31 32 38  0d 37 f0 39 64 61 74 61  |?172=128.7.9data|
0000beb0  5f 62 61 63 6b 25 3f 31  3d 9a 23 58 25 3a 64 61  |_back%?1=.#X%:da|
0000bec0  74 61 5f 62 61 63 6b 25  3f 32 3d 9a 23 58 25 3a  |ta_back%?2=.#X%:|
0000bed0  64 61 74 61 5f 62 61 63  6b 25 3f 33 3d 9a 23 58  |data_back%?3=.#X|
0000bee0  25 0d 37 fa 68 67 72 61  70 68 5f 62 65 73 74 25  |%.7.hgraph_best%|
0000bef0  3d 9a 23 58 25 3a e7 67  72 61 70 68 5f 62 65 73  |=.#X%:.graph_bes|
0000bf00  74 25 3d 32 3a 6d 65 6e  75 5f 62 65 73 74 25 3f  |t%=2:menu_best%?|
0000bf10  32 38 3d 30 3a 6d 65 6e  75 5f 62 65 73 74 25 3f  |28=0:menu_best%?|
0000bf20  35 32 3d 31 32 39 3a 8b  6d 65 6e 75 5f 62 65 73  |52=129:.menu_bes|
0000bf30  74 25 3f 32 38 3d 31 3a  6d 65 6e 75 5f 62 65 73  |t%?28=1:menu_bes|
0000bf40  74 25 3f 35 32 3d 31 32  38 0d 38 04 21 e3 4d 3d  |t%?52=128.8.!.M=|
0000bf50  30 b8 36 33 3a 70 69 65  5f 70 61 6c 65 74 74 65  |0.63:pie_palette|
0000bf60  25 3f 4d 3d 9a 23 58 25  3a ed 0d 38 0e 2e 4e 3d  |%?M=.#X%:..8..N=|
0000bf70  9a 23 58 25 3a e7 4e 3d  31 3a 67 72 61 70 68 5f  |.#X%:.N=1:graph_|
0000bf80  74 69 74 6c 65 25 3d b9  3a 8b 67 72 61 70 68 5f  |title%=.:.graph_|
0000bf90  74 69 74 6c 65 25 3d a3  0d 38 18 1d e3 4e 3d 30  |title%=..8...N=0|
0000bfa0  b8 33 39 3a 73 5f 74 69  74 6c 65 25 3f 4e 3d 9a  |.39:s_title%?N=.|
0000bfb0  23 58 25 3a ed 0d 38 22  2e 4e 3d 9a 23 58 25 3a  |#X%:..8".N=.#X%:|
0000bfc0  e7 4e 3d 31 3a 67 72 61  70 68 5f 78 61 78 69 73  |.N=1:graph_xaxis|
0000bfd0  25 3d b9 3a 8b 67 72 61  70 68 5f 78 61 78 69 73  |%=.:.graph_xaxis|
0000bfe0  25 3d a3 0d 38 2c 1d e3  4e 3d 30 b8 33 39 3a 73  |%=..8,..N=0.39:s|
0000bff0  5f 78 61 78 69 73 25 3f  4e 3d 9a 23 58 25 3a ed  |_xaxis%?N=.#X%:.|
0000c000  0d 38 36 12 67 72 61 70  68 5f 78 67 25 3d 9a 23  |.86.graph_xg%=.#|
0000c010  58 25 0d 38 40 2c 4e 3d  9a 23 58 25 3a e7 4e 3d  |X%.8@,N=.#X%:.N=|
0000c020  31 3a 67 72 61 70 68 5f  78 63 61 6c 25 3d b9 3a  |1:graph_xcal%=.:|
0000c030  8b 67 72 61 70 68 5f 78  63 61 6c 25 3d a3 0d 38  |.graph_xcal%=..8|
0000c040  4a 2c f2 66 69 6c 65 5f  77 67 65 74 28 70 6f 6c  |J,.file_wget(pol|
0000c050  6c 25 29 3a 67 72 61 70  68 5f 78 64 69 76 3d 21  |l%):graph_xdiv=!|
0000c060  70 6f 6c 6c 25 2f 31 30  30 30 0d 38 54 2d f2 66  |poll%/1000.8T-.f|
0000c070  69 6c 65 5f 77 67 65 74  28 70 6f 6c 6c 25 29 3a  |ile_wget(poll%):|
0000c080  67 72 61 70 68 5f 78 73  64 69 76 3d 21 70 6f 6c  |graph_xsdiv=!pol|
0000c090  6c 25 2f 31 30 30 30 0d  38 5e 2b f2 66 69 6c 65  |l%/1000.8^+.file|
0000c0a0  5f 77 67 65 74 28 70 6f  6c 6c 25 29 3a 64 61 74  |_wget(poll%):dat|
0000c0b0  61 5f 78 6d 69 6e 3d 21  70 6f 6c 6c 25 2f 31 30  |a_xmin=!poll%/10|
0000c0c0  30 30 0d 38 68 2b f2 66  69 6c 65 5f 77 67 65 74  |00.8h+.file_wget|
0000c0d0  28 70 6f 6c 6c 25 29 3a  64 61 74 61 5f 78 6d 61  |(poll%):data_xma|
0000c0e0  78 3d 21 70 6f 6c 6c 25  2f 31 30 30 30 0d 38 72  |x=!poll%/1000.8r|
0000c0f0  2e 4e 3d 9a 23 58 25 3a  e7 4e 3d 31 3a 67 72 61  |.N=.#X%:.N=1:gra|
0000c100  70 68 5f 79 61 78 69 73  25 3d b9 3a 8b 67 72 61  |ph_yaxis%=.:.gra|
0000c110  70 68 5f 79 61 78 69 73  25 3d a3 0d 38 7c 1d e3  |ph_yaxis%=..8|..|
0000c120  4e 3d 30 b8 33 39 3a 73  5f 79 61 78 69 73 25 3f  |N=0.39:s_yaxis%?|
0000c130  4e 3d 9a 23 58 25 3a ed  0d 38 86 12 67 72 61 70  |N=.#X%:..8..grap|
0000c140  68 5f 79 67 25 3d 9a 23  58 25 0d 38 90 2c 4e 3d  |h_yg%=.#X%.8.,N=|
0000c150  9a 23 58 25 3a e7 4e 3d  31 3a 67 72 61 70 68 5f  |.#X%:.N=1:graph_|
0000c160  79 63 61 6c 25 3d b9 3a  8b 67 72 61 70 68 5f 79  |ycal%=.:.graph_y|
0000c170  63 61 6c 25 3d a3 0d 38  9a 2c f2 66 69 6c 65 5f  |cal%=..8.,.file_|
0000c180  77 67 65 74 28 70 6f 6c  6c 25 29 3a 67 72 61 70  |wget(poll%):grap|
0000c190  68 5f 79 64 69 76 3d 21  70 6f 6c 6c 25 2f 31 30  |h_ydiv=!poll%/10|
0000c1a0  30 30 0d 38 a4 2d f2 66  69 6c 65 5f 77 67 65 74  |00.8.-.file_wget|
0000c1b0  28 70 6f 6c 6c 25 29 3a  67 72 61 70 68 5f 79 73  |(poll%):graph_ys|
0000c1c0  64 69 76 3d 21 70 6f 6c  6c 25 2f 31 30 30 30 0d  |div=!poll%/1000.|
0000c1d0  38 ae 2b f2 66 69 6c 65  5f 77 67 65 74 28 70 6f  |8.+.file_wget(po|
0000c1e0  6c 6c 25 29 3a 64 61 74  61 5f 79 6d 69 6e 3d 21  |ll%):data_ymin=!|
0000c1f0  70 6f 6c 6c 25 2f 31 30  30 30 0d 38 b8 2b f2 66  |poll%/1000.8.+.f|
0000c200  69 6c 65 5f 77 67 65 74  28 70 6f 6c 6c 25 29 3a  |ile_wget(poll%):|
0000c210  64 61 74 61 5f 79 6d 61  78 3d 21 70 6f 6c 6c 25  |data_ymax=!poll%|
0000c220  2f 31 30 30 30 0d 38 c2  17 67 72 61 70 68 5f 62  |/1000.8..graph_b|
0000c230  61 72 74 79 70 65 25 3d  9a 23 58 25 0d 38 cc 19  |artype%=.#X%.8..|
0000c240  67 72 61 70 68 5f 62 61  72 6d 61 72 67 69 6e 25  |graph_barmargin%|
0000c250  3d 9a 23 58 25 0d 38 d6  2a 4e 3d 9a 23 58 25 3a  |=.#X%.8.*N=.#X%:|
0000c260  e7 4e 3d 31 3a 67 72 61  70 68 5f 65 78 70 25 3d  |.N=1:graph_exp%=|
0000c270  b9 3a 8b 67 72 61 70 68  5f 65 78 70 25 3d a3 0d  |.:.graph_exp%=..|
0000c280  38 e0 26 f2 66 69 6c 65  5f 77 67 65 74 28 70 6f  |8.&.file_wget(po|
0000c290  6c 6c 25 29 3a 67 72 61  70 68 5f 65 73 25 3d 21  |ll%):graph_es%=!|
0000c2a0  70 6f 6c 6c 25 0d 38 ea  26 f2 66 69 6c 65 5f 77  |poll%.8.&.file_w|
0000c2b0  67 65 74 28 70 6f 6c 6c  25 29 3a 67 72 61 70 68  |get(poll%):graph|
0000c2c0  5f 65 66 25 3d 21 70 6f  6c 6c 25 0d 38 f4 1e f2  |_ef%=!poll%.8...|
0000c2d0  67 72 61 70 68 5f 73 65  6c 65 63 74 28 67 72 61  |graph_select(gra|
0000c2e0  70 68 5f 74 79 70 65 25  29 0d 38 fe 05 e1 0d 39  |ph_type%).8....9|
0000c2f0  08 05 3a 0d 39 12 13 dd  f2 6c 6f 61 64 5f 64 61  |..:.9....load_da|
0000c300  74 61 6f 70 65 6e 0d 39  1c 20 e7 70 6f 6c 6c 25  |taopen.9. .poll%|
0000c310  21 34 30 3d 26 30 66 30  3a f2 6c 6f 61 64 5f 6d  |!40=&0f0:.load_m|
0000c320  65 73 73 61 67 65 0d 39  26 05 e1 0d 39 30 05 3a  |essage.9&...90.:|
0000c330  0d 39 3a 16 dd f2 6c 6f  61 64 5f 73 65 74 64 61  |.9:...load_setda|
0000c340  74 61 70 61 74 68 0d 39  44 2c ff 28 22 53 65 74  |tapath.9D,.("Set|
0000c350  20 47 72 61 70 68 50 6c  75 73 44 61 74 61 24 50  | GraphPlusData$P|
0000c360  61 74 68 20 22 2b 24 28  70 6f 6c 6c 25 2b 34 34  |ath "+$(poll%+44|
0000c370  29 29 0d 39 4e 05 e1 0d  39 58 05 3a 0d 39 62 05  |)).9N...9X.:.9b.|
0000c380  3a 0d 39 6c 2f f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |:.9l/. *********|
0000c390  2a 20 54 68 6f 73 65 20  64 61 72 6e 20 6d 65 73  |* Those darn mes|
0000c3a0  73 61 67 65 73 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |sages **********|
0000c3b0  0d 39 76 05 3a 0d 39 80  15 dd f2 6d 65 73 73 61  |.9v.:.9....messa|
0000c3c0  67 65 5f 70 72 6f 63 65  73 73 0d 39 8a 0f c8 8e  |ge_process.9....|
0000c3d0  70 6f 6c 6c 25 21 31 36  ca 0d 39 94 1d 20 c9 30  |poll%!16..9.. .0|
0000c3e0  20 20 20 20 20 3a f2 62  79 65 62 79 65 5f 73 68  |     :.byebye_sh|
0000c3f0  75 74 64 6f 77 6e 0d 39  9e 16 20 c9 32 20 20 20  |utdown.9.. .2   |
0000c400  20 20 3a f2 73 61 76 65  5f 61 63 6b 0d 39 a8 1a  |  :.save_ack.9..|
0000c410  20 c9 33 20 20 20 20 20  3a f2 6c 6f 61 64 5f 6d  | .3     :.load_m|
0000c420  65 73 73 61 67 65 0d 39  b2 1b 20 c9 35 20 20 20  |essage.9.. .5   |
0000c430  20 20 3a f2 6c 6f 61 64  5f 64 61 74 61 6f 70 65  |  :.load_dataope|
0000c440  6e 0d 39 bc 21 20 c9 26  34 30 30 43 30 3a f2 6d  |n.9.! .&400C0:.m|
0000c450  65 73 73 61 67 65 5f 6d  65 6e 75 77 61 72 6e 69  |essage_menuwarni|
0000c460  6e 67 0d 39 c6 07 cb 3a  e1 0d 39 d0 05 3a 0d 39  |ng.9...:..9..:.9|
0000c470  da 19 dd f2 6d 65 73 73  61 67 65 5f 6d 65 6e 75  |....message_menu|
0000c480  77 61 72 6e 69 6e 67 0d  39 e4 14 c8 8e 6d 65 6e  |warning.9....men|
0000c490  75 5f 63 75 72 72 65 6e  74 25 ca 0d 39 ee 18 20  |u_current%..9.. |
0000c4a0  c9 31 3a f2 6d 65 73 73  61 67 65 5f 6d 65 6e 75  |.1:.message_menu|
0000c4b0  62 61 72 0d 39 f8 17 20  c9 32 3a f2 6d 65 73 73  |bar.9.. .2:.mess|
0000c4c0  61 67 65 5f 77 69 6e 62  61 72 0d 3a 02 05 cb 0d  |age_winbar.:....|
0000c4d0  3a 0c 05 e1 0d 3a 16 05  3a 0d 3a 20 15 dd f2 6d  |:....:..:.: ...m|
0000c4e0  65 73 73 61 67 65 5f 6d  65 6e 75 62 61 72 0d 3a  |essage_menubar.:|
0000c4f0  2a 29 e7 70 6f 6c 6c 25  21 33 32 3d 31 80 70 6f  |*).poll%!32=1.po|
0000c500  6c 6c 25 21 33 36 3d 31  3a f2 6d 65 6e 75 5f 6f  |ll%!36=1:.menu_o|
0000c510  70 65 6e 62 61 63 6b 0d  3a 34 35 e7 70 6f 6c 6c  |penback.:45.poll|
0000c520  25 21 33 32 3d 31 80 70  6f 6c 6c 25 21 33 36 3d  |%!32=1.poll%!36=|
0000c530  32 3a f2 66 6f 6e 74 5f  63 68 65 63 6b 3a f2 6d  |2:.font_check:.m|
0000c540  65 6e 75 5f 6f 70 65 6e  66 6f 6e 74 0d 3a 3e 2c  |enu_openfont.:>,|
0000c550  e7 70 6f 6c 6c 25 21 33  32 3d 31 80 70 6f 6c 6c  |.poll%!32=1.poll|
0000c560  25 21 33 36 3d 34 3a f2  6d 65 6e 75 5f 6f 70 65  |%!36=4:.menu_ope|
0000c570  6e 70 61 6c 65 74 74 65  0d 3a 48 29 e7 70 6f 6c  |npalette.:H).pol|
0000c580  6c 25 21 33 32 3d 33 80  70 6f 6c 6c 25 21 33 36  |l%!32=3.poll%!36|
0000c590  3d 30 3a f2 6d 65 6e 75  5f 6f 70 65 6e 73 61 76  |=0:.menu_opensav|
0000c5a0  65 0d 3a 52 2f e7 70 6f  6c 6c 25 21 33 32 3d 33  |e.:R/.poll%!32=3|
0000c5b0  80 70 6f 6c 6c 25 21 33  36 3d 31 3a f2 77 69 6e  |.poll%!36=1:.win|
0000c5c0  64 6f 77 5f 6f 70 65 6e  64 61 74 61 70 61 74 68  |dow_opendatapath|
0000c5d0  0d 3a 5c 34 e7 70 6f 6c  6c 25 21 33 32 3d 32 80  |.:\4.poll%!32=2.|
0000c5e0  70 6f 6c 6c 25 21 33 36  3d 30 80 70 6f 6c 6c 25  |poll%!36=0.poll%|
0000c5f0  21 34 30 3c 3e 36 3a f2  6d 65 6e 75 5f 6f 70 65  |!40<>6:.menu_ope|
0000c600  6e 6d 61 70 0d 3a 66 35  e7 70 6f 6c 6c 25 21 33  |nmap.:f5.poll%!3|
0000c610  32 3d 32 80 70 6f 6c 6c  25 21 33 36 3d 30 80 70  |2=2.poll%!36=0.p|
0000c620  6f 6c 6c 25 21 34 30 3d  36 3a f2 6d 65 6e 75 5f  |oll%!40=6:.menu_|
0000c630  6f 70 65 6e 6c 61 62 65  6c 0d 3a 70 2a e7 70 6f  |openlabel.:p*.po|
0000c640  6c 6c 25 21 33 32 3d 32  80 70 6f 6c 6c 25 21 33  |ll%!32=2.poll%!3|
0000c650  36 3d 31 3a f2 6d 65 6e  75 5f 6f 70 65 6e 67 72  |6=1:.menu_opengr|
0000c660  6f 75 70 0d 3a 7a 05 e1  0d 3a 84 05 3a 0d 3a 8e  |oup.:z...:..:.:.|
0000c670  14 dd f2 6d 65 73 73 61  67 65 5f 77 69 6e 62 61  |...message_winba|
0000c680  72 0d 3a 98 29 e7 70 6f  6c 6c 25 21 33 32 3d 30  |r.:.).poll%!32=0|
0000c690  80 70 6f 6c 6c 25 21 33  36 3d 31 3a f2 6d 65 6e  |.poll%!36=1:.men|
0000c6a0  75 5f 6f 70 65 6e 62 61  63 6b 0d 3a a2 35 e7 70  |u_openback.:.5.p|
0000c6b0  6f 6c 6c 25 21 33 32 3d  30 80 70 6f 6c 6c 25 21  |oll%!32=0.poll%!|
0000c6c0  33 36 3d 32 3a f2 66 6f  6e 74 5f 63 68 65 63 6b  |36=2:.font_check|
0000c6d0  3a f2 6d 65 6e 75 5f 6f  70 65 6e 66 6f 6e 74 0d  |:.menu_openfont.|
0000c6e0  3a ac 2c e7 70 6f 6c 6c  25 21 33 32 3d 30 80 70  |:.,.poll%!32=0.p|
0000c6f0  6f 6c 6c 25 21 33 36 3d  34 3a f2 6d 65 6e 75 5f  |oll%!36=4:.menu_|
0000c700  6f 70 65 6e 70 61 6c 65  74 74 65 0d 3a b6 29 e7  |openpalette.:.).|
0000c710  70 6f 6c 6c 25 21 33 32  3d 32 80 70 6f 6c 6c 25  |poll%!32=2.poll%|
0000c720  21 33 36 3d 30 3a f2 6d  65 6e 75 5f 6f 70 65 6e  |!36=0:.menu_open|
0000c730  73 61 76 65 0d 3a c0 2f  e7 70 6f 6c 6c 25 21 33  |save.:./.poll%!3|
0000c740  32 3d 32 80 70 6f 6c 6c  25 21 33 36 3d 31 3a f2  |2=2.poll%!36=1:.|
0000c750  77 69 6e 64 6f 77 5f 6f  70 65 6e 64 61 74 61 70  |window_opendatap|
0000c760  61 74 68 0d 3a ca 34 e7  70 6f 6c 6c 25 21 33 32  |ath.:.4.poll%!32|
0000c770  3d 31 80 70 6f 6c 6c 25  21 33 36 3d 30 80 70 6f  |=1.poll%!36=0.po|
0000c780  6c 6c 25 21 34 30 3c 3e  36 3a f2 6d 65 6e 75 5f  |ll%!40<>6:.menu_|
0000c790  6f 70 65 6e 6d 61 70 0d  3a d4 35 e7 70 6f 6c 6c  |openmap.:.5.poll|
0000c7a0  25 21 33 32 3d 31 80 70  6f 6c 6c 25 21 33 36 3d  |%!32=1.poll%!36=|
0000c7b0  30 80 70 6f 6c 6c 25 21  34 30 3d 36 3a f2 6d 65  |0.poll%!40=6:.me|
0000c7c0  6e 75 5f 6f 70 65 6e 6c  61 62 65 6c 0d 3a de 2a  |nu_openlabel.:.*|
0000c7d0  e7 70 6f 6c 6c 25 21 33  32 3d 31 80 70 6f 6c 6c  |.poll%!32=1.poll|
0000c7e0  25 21 33 36 3d 31 3a f2  6d 65 6e 75 5f 6f 70 65  |%!36=1:.menu_ope|
0000c7f0  6e 67 72 6f 75 70 0d 3a  e8 05 e1 0d 3a f2 05 3a  |ngroup.:....:..:|
0000c800  0d 3a fc 05 3a 0d 3b 06  2d f4 20 2a 2a 2a 2a 2a  |.:..:.;.-. *****|
0000c810  2a 2a 2a 2a 2a 20 54 68  69 6e 67 73 20 61 74 20  |***** Things at |
0000c820  74 68 65 20 65 6e 64 20  2a 2a 2a 2a 2a 2a 2a 2a  |the end ********|
0000c830  2a 2a 0d 3b 10 05 3a 0d  3b 1a 15 dd f2 62 79 65  |**.;..:.;....bye|
0000c840  62 79 65 5f 73 68 75 74  64 6f 77 6e 0d 3b 24 26  |bye_shutdown.;$&|
0000c850  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |.."Wimp_CloseDow|
0000c860  6e 22 2c 74 61 73 6b 25  2c 26 34 42 35 33 34 31  |n",task%,&4B5341|
0000c870  35 34 0d 3b 2e 0f c8 99  22 4f 53 5f 45 78 69 74  |54.;...."OS_Exit|
0000c880  22 0d 3b 38 12 f4 20 47  6f 6f 64 20 52 69 64 61  |".;8.. Good Rida|
0000c890  6e 63 65 0d 3b 42 05 e0  0d 3b 4c 05 3a 0d 3b 56  |nce.;B...;L.:.;V|
0000c8a0  6e dd a4 6d 65 73 73 61  67 65 28 24 28 6d 65 73  |n..message($(mes|
0000c8b0  73 25 2b 32 30 29 2c 66  6c 61 67 25 29 3a 6d 65  |s%+20),flag%):me|
0000c8c0  73 73 25 21 31 36 3d 30  3a 24 6d 65 73 73 25 3d  |ss%!16=0:$mess%=|
0000c8d0  22 47 72 61 70 68 50 6c  75 73 22 3a c8 99 22 57  |"GraphPlus":.."W|
0000c8e0  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
0000c8f0  2c 6d 65 73 73 25 2b 31  36 2c 66 6c 61 67 25 2c  |,mess%+16,flag%,|
0000c900  6d 65 73 73 25 b8 2c 4e  3a 3d 4e 0d 3b 60 05 3a  |mess%.,N:=N.;`.:|
0000c910  0d 3b 6a 0b dd f2 65 72  72 6f 72 0d 3b 74 07 ee  |.;j...error.;t..|
0000c920  85 87 0d 3b 7e 9d 4e 3d  a4 6d 65 73 73 61 67 65  |...;~.N=.message|
0000c930  28 22 53 65 72 69 6f 75  73 20 69 6e 74 65 72 6e  |("Serious intern|
0000c940  61 6c 20 65 72 72 6f 72  20 26 22 2b c3 7e 28 9e  |al error &"+.~(.|
0000c950  29 2b 22 3a 20 6d 75 73  74 20 65 78 69 74 2e 20  |)+": must exit. |
0000c960  43 6c 69 63 6b 20 6f 6e  20 4f 4b 20 74 6f 20 64  |Click on OK to d|
0000c970  75 6d 70 20 63 75 72 72  65 6e 74 20 74 65 6d 70  |ump current temp|
0000c980  6c 61 74 65 20 69 6e 20  47 72 61 70 68 50 6c 75  |late in GraphPlu|
0000c990  73 20 64 69 72 65 63 74  6f 72 79 20 61 73 20 27  |s directory as '|
0000c9a0  54 65 6d 70 44 75 6d 70  27 2e 22 2c 33 29 3a e7  |TempDump'.",3):.|
0000c9b0  4e 3d 31 3a f2 65 72 72  6f 72 5f 64 75 6d 70 0d  |N=1:.error_dump.|
0000c9c0  3b 88 14 f2 62 79 65 62  79 65 5f 73 68 75 74 64  |;...byebye_shutd|
0000c9d0  6f 77 6e 0d 3b 92 08 46  49 53 48 0d 3b 9c 05 3a  |own.;..FISH.;..:|
0000c9e0  0d 3b a6 10 dd f2 65 72  72 6f 72 5f 64 75 6d 70  |.;....error_dump|
0000c9f0  0d 3b b0 28 24 62 6c 6f  63 6b 25 3d 22 47 72 61  |.;.($block%="Gra|
0000ca00  70 68 50 6c 75 73 24 44  69 72 22 3a 62 6c 6f 63  |phPlus$Dir":bloc|
0000ca10  6b 25 3f 32 35 36 3d 30  0d 3b ba 34 c8 99 22 58  |k%?256=0.;.4.."X|
0000ca20  4f 53 5f 52 65 61 64 56  61 72 56 61 6c 22 2c 62  |OS_ReadVarVal",b|
0000ca30  6c 6f 63 6b 25 2c 70 6f  6c 6c 25 2b 34 34 2c 32  |lock%,poll%+44,2|
0000ca40  35 36 2c 30 2c 33 b8 2c  2c 4d 3b 4e 0d 3b c4 56  |56,0,3.,,M;N.;.V|
0000ca50  e7 28 4e 20 80 31 29 3d  31 3a 4e 3d a4 6d 65 73  |.(N .1)=1:N=.mes|
0000ca60  73 61 67 65 28 22 46 6f  72 6d 61 74 20 74 65 6d  |sage("Format tem|
0000ca70  70 6c 61 74 65 20 6e 6f  74 20 73 61 76 65 64 3b  |plate not saved;|
0000ca80  20 64 69 72 65 63 74 6f  72 79 20 76 61 72 69 61  | directory varia|
0000ca90  62 6c 65 20 64 65 6c 65  74 65 64 2e 22 2c 30 29  |ble deleted.",0)|
0000caa0  3a e1 0d 3b ce 1d 24 28  70 6f 6c 6c 25 2b 34 34  |:..;..$(poll%+44|
0000cab0  2b 4d 29 3d 22 2e 54 65  6d 70 44 75 6d 70 22 0d  |+M)=".TempDump".|
0000cac0  3b d8 12 f2 73 61 76 65  5f 74 65 6d 70 6c 61 74  |;...save_templat|
0000cad0  65 0d 3b e2 05 e1 0d 3b  ec 05 3a 0d 3b f6 05 3a  |e.;....;..:.;..:|
0000cae0  0d 3c 00 30 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.<.0. **********|
0000caf0  20 4c 65 74 73 20 6d 61  6b 65 20 73 6f 6d 65 20  | Lets make some |
0000cb00  67 72 61 70 68 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |graph **********|
0000cb10  0d 3c 0a 05 3a 0d 3c 14  05 3a 0d 3c 1e 13 dd f2  |.<..:.<..:.<....|
0000cb20  67 72 61 70 68 5f 73 61  76 65 62 6f 78 0d 3c 28  |graph_savebox.<(|
0000cb30  16 58 3d 21 70 6f 6c 6c  25 3a 59 3d 70 6f 6c 6c  |.X=!poll%:Y=poll|
0000cb40  25 21 34 0d 3c 32 20 24  62 6c 6f 63 6b 25 3d 22  |%!4.<2 $block%="|
0000cb50  47 72 61 70 68 50 6c 75  73 44 61 74 61 24 50 61  |GraphPlusData$Pa|
0000cb60  74 68 22 0d 3c 3c 33 c8  99 22 58 4f 53 5f 52 65  |th".<<3.."XOS_Re|
0000cb70  61 64 56 61 72 56 61 6c  22 2c 62 6c 6f 63 6b 25  |adVarVal",block%|
0000cb80  2c 62 6c 6f 63 6b 25 2b  31 30 30 2c 32 35 36 2c  |,block%+100,256,|
0000cb90  30 2c 33 b8 3b 4e 0d 3c  46 60 e7 28 4e 20 80 31  |0,3.;N.<F`.(N .1|
0000cba0  29 3d 31 3a 4e 3d a4 6d  65 73 73 61 67 65 28 22  |)=1:N=.message("|
0000cbb0  54 68 65 20 64 61 74 61  20 70 61 74 68 20 76 61  |The data path va|
0000cbc0  72 69 61 62 6c 65 20 68  61 73 20 62 65 65 6e 20  |riable has been |
0000cbd0  64 65 6c 65 74 65 64 2e  20 55 6e 61 62 6c 65 20  |deleted. Unable |
0000cbe0  74 6f 20 63 72 65 61 74  65 20 67 72 61 70 68 2e  |to create graph.|
0000cbf0  22 2c 30 29 3a e1 0d 3c  50 26 4e 3d 39 39 3a f5  |",0):..<P&N=99:.|
0000cc00  4e 2b 3d 31 3a fd 62 6c  6f 63 6b 25 3f 4e 3d 34  |N+=1:.block%?N=4|
0000cc10  36 84 62 6c 6f 63 6b 25  3f 4e 3d 30 0d 3c 5a 5a  |6.block%?N=0.<ZZ|
0000cc20  e7 62 6c 6f 63 6b 25 3f  4e 3d 30 3a 4e 3d a4 6d  |.block%?N=0:N=.m|
0000cc30  65 73 73 61 67 65 28 22  47 72 61 70 68 50 6c 75  |essage("GraphPlu|
0000cc40  73 20 68 61 73 20 6e 6f  74 20 73 65 65 6e 20 61  |s has not seen a|
0000cc50  6e 79 20 64 61 74 61 2e  20 55 6e 61 62 6c 65 20  |ny data. Unable |
0000cc60  74 6f 20 63 72 65 61 74  65 20 67 72 61 70 68 2e  |to create graph.|
0000cc70  22 2c 30 29 3a e1 0d 3c  64 60 e7 24 28 69 6e 64  |",0):..<d`.$(ind|
0000cc80  5f 70 6e 25 2b 32 34 29  3c 3e 24 73 5f 74 69 74  |_pn%+24)<>$s_tit|
0000cc90  6c 65 25 84 24 28 69 6e  64 5f 70 6e 25 2b 39 38  |le%.$(ind_pn%+98|
0000cca0  29 3c 3e 24 73 5f 78 61  78 69 73 25 84 24 28 69  |)<>$s_xaxis%.$(i|
0000ccb0  6e 64 5f 70 6e 25 2b 33  36 38 29 3c 3e 24 73 5f  |nd_pn%+368)<>$s_|
0000ccc0  79 61 78 69 73 25 3a 66  6c 61 67 5f 66 69 64 64  |yaxis%:flag_fidd|
0000ccd0  6c 65 64 25 3d b9 0d 3c  6e 83 e7 67 72 61 70 68  |led%=..<n..graph|
0000cce0  5f 78 64 69 76 3c 3e bb  24 28 69 6e 64 5f 70 6e  |_xdiv<>.$(ind_pn|
0000ccf0  25 2b 32 31 32 29 84 67  72 61 70 68 5f 78 73 64  |%+212).graph_xsd|
0000cd00  69 76 3c 3e bb 24 28 69  6e 64 5f 70 6e 25 2b 32  |iv<>.$(ind_pn%+2|
0000cd10  34 34 29 84 64 61 74 61  5f 78 6d 69 6e 3c 3e bb  |44).data_xmin<>.|
0000cd20  24 28 69 6e 64 5f 70 6e  25 2b 32 39 39 29 84 64  |$(ind_pn%+299).d|
0000cd30  61 74 61 5f 78 6d 61 78  3c 3e bb 24 28 69 6e 64  |ata_xmax<>.$(ind|
0000cd40  5f 70 6e 25 2b 33 31 38  29 3a 66 6c 61 67 5f 66  |_pn%+318):flag_f|
0000cd50  69 64 64 6c 65 64 25 3d  b9 0d 3c 78 83 e7 67 72  |iddled%=..<x..gr|
0000cd60  61 70 68 5f 79 64 69 76  3c 3e bb 24 28 69 6e 64  |aph_ydiv<>.$(ind|
0000cd70  5f 70 6e 25 2b 34 38 32  29 84 67 72 61 70 68 5f  |_pn%+482).graph_|
0000cd80  79 73 64 69 76 3c 3e bb  24 28 69 6e 64 5f 70 6e  |ysdiv<>.$(ind_pn|
0000cd90  25 2b 35 31 34 29 84 64  61 74 61 5f 79 6d 69 6e  |%+514).data_ymin|
0000cda0  3c 3e bb 24 28 69 6e 64  5f 70 6e 25 2b 35 36 39  |<>.$(ind_pn%+569|
0000cdb0  29 84 64 61 74 61 5f 79  6d 61 78 3c 3e bb 24 28  |).data_ymax<>.$(|
0000cdc0  69 6e 64 5f 70 6e 25 2b  35 38 38 29 3a 66 6c 61  |ind_pn%+588):fla|
0000cdd0  67 5f 66 69 64 64 6c 65  64 25 3d b9 0d 3c 82 4a  |g_fiddled%=..<.J|
0000cde0  e7 67 72 61 70 68 5f 65  73 25 3c 3e bb 24 28 69  |.graph_es%<>.$(i|
0000cdf0  6e 64 5f 70 6e 25 2b 39  37 31 29 84 67 72 61 70  |nd_pn%+971).grap|
0000ce00  68 5f 65 66 25 3c 3e bb  24 28 69 6e 64 5f 70 6e  |h_ef%<>.$(ind_pn|
0000ce10  25 2b 39 38 33 29 3a 66  6c 61 67 5f 66 69 64 64  |%+983):flag_fidd|
0000ce20  6c 65 64 25 3d b9 0d 3c  8c a5 e7 66 6c 61 67 5f  |led%=..<...flag_|
0000ce30  66 69 64 64 6c 65 64 25  3a 4e 3d a4 6d 65 73 73  |fiddled%:N=.mess|
0000ce40  61 67 65 28 22 54 68 65  20 67 72 61 70 68 20 66  |age("The graph f|
0000ce50  6f 72 6d 61 74 20 77 69  6e 64 6f 77 20 68 61 73  |ormat window has|
0000ce60  20 62 65 65 6e 20 61 6c  74 65 72 65 64 2e 20 44  | been altered. D|
0000ce70  6f 20 79 6f 75 20 77 61  6e 74 20 74 6f 20 63 72  |o you want to cr|
0000ce80  65 61 74 65 20 61 20 67  72 61 70 68 20 77 69 74  |eate a graph wit|
0000ce90  68 20 74 68 65 20 73 74  6f 72 65 64 20 74 65 6d  |h the stored tem|
0000cea0  70 6c 61 74 65 2c 20 6f  72 20 63 61 6e 63 65 6c  |plate, or cancel|
0000ceb0  20 74 68 69 73 20 6f 70  65 72 61 74 69 6f 6e 3f  | this operation?|
0000cec0  22 2c 33 29 3a e7 4e 3d  32 3a e1 0d 3c 96 19 24  |",3):.N=2:..<..$|
0000ced0  69 6e 64 5f 73 67 25 3d  24 66 69 6c 65 5f 67 72  |ind_sg%=$file_gr|
0000cee0  61 70 68 25 0d 3c a0 1a  21 62 6c 6f 63 6b 25 3d  |aph%.<..!block%=|
0000cef0  68 61 6e 64 6c 65 5f 63  72 65 61 74 65 25 0d 3c  |handle_create%.<|
0000cf00  aa 3e 62 6c 6f 63 6b 25  21 34 3d 58 2d 36 34 3a  |.>block%!4=X-64:|
0000cf10  62 6c 6f 63 6b 25 21 38  3d 2d 35 30 30 3a 62 6c  |block%!8=-500:bl|
0000cf20  6f 63 6b 25 21 31 32 3d  58 2b 35 30 30 3a 62 6c  |ock%!12=X+500:bl|
0000cf30  6f 63 6b 25 21 31 36 3d  59 2b 34 38 0d 3c b4 1b  |ock%!16=Y+48.<..|
0000cf40  62 6c 6f 63 6b 25 21 32  30 3d 30 3a 62 6c 6f 63  |block%!20=0:bloc|
0000cf50  6b 25 21 32 34 3d 30 0d  3c be 10 62 6c 6f 63 6b  |k%!24=0.<..block|
0000cf60  25 21 32 38 3d 2d 31 0d  3c c8 1f c8 99 22 57 69  |%!28=-1.<...."Wi|
0000cf70  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
0000cf80  62 6c 6f 63 6b 25 0d 3c  d2 47 c8 99 22 57 69 6d  |block%.<.G.."Wim|
0000cf90  70 5f 53 65 74 43 61 72  65 74 50 6f 73 69 74 69  |p_SetCaretPositi|
0000cfa0  6f 6e 22 2c 68 61 6e 64  6c 65 5f 63 72 65 61 74  |on",handle_creat|
0000cfb0  65 25 2c 31 2c 30 2c 30  2c 2d 31 2c a4 6c 65 6e  |e%,1,0,0,-1,.len|
0000cfc0  28 66 69 6c 65 5f 67 72  61 70 68 25 29 0d 3c dc  |(file_graph%).<.|
0000cfd0  05 e1 0d 3c e6 05 3a 0d  3c f0 15 dd f2 67 72 61  |...<..:.<....gra|
0000cfe0  70 68 5f 63 72 65 61 74  65 3a ea 85 0d 3c fa 14  |ph_create:...<..|
0000cff0  75 70 64 61 74 65 5f 66  61 73 74 65 72 25 3d a3  |update_faster%=.|
0000d000  0d 3d 04 2b 24 74 65 78  74 25 3d 22 4c 6f 61 64  |.=.+$text%="Load|
0000d010  69 6e 67 20 64 61 74 61  66 69 6c 65 22 3a f2 75  |ing datafile":.u|
0000d020  70 64 61 74 65 5f 73 74  61 72 74 0d 3d 0e 0e ee  |pdate_start.=...|
0000d030  85 ea 20 f2 65 72 72 6f  72 0d 3d 18 38 e7 67 72  |.. .error.=.8.gr|
0000d040  61 70 68 5f 62 6f 78 25  3a 21 67 72 61 70 68 5f  |aph_box%:!graph_|
0000d050  62 61 63 6b 25 3d 21 64  61 74 61 5f 62 61 63 6b  |back%=!data_back|
0000d060  25 8b 21 67 72 61 70 68  5f 62 61 63 6b 25 3d 2d  |%.!graph_back%=-|
0000d070  31 0d 3d 22 2d 67 72 61  70 68 5f 74 69 74 6c 65  |1.="-graph_title|
0000d080  63 3d 30 3a 67 72 61 70  68 5f 61 78 69 73 63 3d  |c=0:graph_axisc=|
0000d090  30 3a 67 72 61 70 68 5f  6b 65 79 63 3d 30 0d 3d  |0:graph_keyc=0.=|
0000d0a0  2c 05 3a 0d 3d 36 1e c8  99 22 57 69 6d 70 5f 53  |,.:.=6..."Wimp_S|
0000d0b0  6c 6f 74 53 69 7a 65 22  2c 2d 31 2c 2d 31 b8 5a  |lotSize",-1,-1.Z|
0000d0c0  25 0d 3d 40 22 24 62 6c  6f 63 6b 25 3d 22 3c 47  |%.=@"$block%="<G|
0000d0d0  72 61 70 68 50 6c 75 73  44 61 74 61 24 50 61 74  |raphPlusData$Pat|
0000d0e0  68 3e 22 0d 3d 4a 23 c8  99 22 58 4f 53 5f 46 69  |h>".=J#.."XOS_Fi|
0000d0f0  6c 65 22 2c 31 37 2c 62  6c 6f 63 6b 25 b8 2c 2c  |le",17,block%.,,|
0000d100  2c 2c 56 25 3b 4e 0d 3d  54 78 e7 28 4e 20 80 31  |,,V%;N.=Tx.(N .1|
0000d110  29 3d 31 3a 4e 3d a4 6d  65 73 73 61 67 65 28 22  |)=1:N=.message("|
0000d120  44 61 74 61 20 66 69 6c  65 20 6e 6f 74 20 6c 6f  |Data file not lo|
0000d130  61 64 65 64 3a 20 63 6f  75 6c 64 6e 27 74 20 72  |aded: couldn't r|
0000d140  65 61 64 20 66 69 6c 65  20 73 69 7a 65 2e 20 55  |ead file size. U|
0000d150  6e 61 62 6c 65 20 74 6f  20 63 72 65 61 74 65 20  |nable to create |
0000d160  67 72 61 70 68 22 2c 30  29 3a 5a 25 3d 30 3a f2  |graph",0):Z%=0:.|
0000d170  75 70 64 61 74 65 5f 73  6d 61 73 68 3a e1 0d 3d  |update_smash:..=|
0000d180  5e 22 c8 99 22 58 57 69  6d 70 5f 53 6c 6f 74 53  |^".."XWimp_SlotS|
0000d190  69 7a 65 22 2c 5a 25 2b  56 25 2c 2d 31 b8 3b 4e  |ize",Z%+V%,-1.;N|
0000d1a0  0d 3d 68 6f e7 28 4e 20  80 31 29 3d 31 3a 4e 3d  |.=ho.(N .1)=1:N=|
0000d1b0  a4 6d 65 73 73 61 67 65  28 22 4e 6f 74 20 65 6e  |.message("Not en|
0000d1c0  6f 75 67 68 20 6d 65 6d  6f 72 79 20 74 6f 20 6c  |ough memory to l|
0000d1d0  6f 61 64 20 64 61 74 61  20 66 69 6c 65 2e 20 55  |oad data file. U|
0000d1e0  6e 61 62 6c 65 20 74 6f  20 63 72 65 61 74 65 20  |nable to create |
0000d1f0  67 72 61 70 68 2e 22 2c  30 29 3a 5a 25 3d 30 3a  |graph.",0):Z%=0:|
0000d200  f2 75 70 64 61 74 65 5f  73 6d 61 73 68 3a e1 0d  |.update_smash:..|
0000d210  3d 72 26 c8 99 22 58 4f  53 5f 46 69 6c 65 22 2c  |=r&.."XOS_File",|
0000d220  31 36 2c 62 6c 6f 63 6b  25 2c 5a 25 2b 26 38 30  |16,block%,Z%+&80|
0000d230  30 31 b8 3b 4e 0d 3d 7c  77 e7 28 4e 20 80 31 29  |01.;N.=|w.(N .1)|
0000d240  3d 31 3a 4e 3d a4 6d 65  73 73 61 67 65 28 22 44  |=1:N=.message("D|
0000d250  61 74 61 20 66 69 6c 65  20 6e 6f 74 20 6c 6f 61  |ata file not loa|
0000d260  64 65 64 2e 20 55 6e 61  62 6c 65 20 74 6f 20 63  |ded. Unable to c|
0000d270  72 65 61 74 65 20 67 72  61 70 68 22 2c 30 29 3a  |reate graph",0):|
0000d280  c8 99 22 57 69 6d 70 5f  53 6c 6f 74 53 69 7a 65  |.."Wimp_SlotSize|
0000d290  22 2c 5a 25 2c 2d 31 3a  5a 25 3d 30 3a f2 75 70  |",Z%,-1:Z%=0:.up|
0000d2a0  64 61 74 65 5f 73 6d 61  73 68 3a e1 0d 3d 86 33  |date_smash:..=.3|
0000d2b0  4d 25 3d 30 3a e3 67 72  6f 75 70 25 3d 30 b8 35  |M%=0:.group%=0.5|
0000d2c0  3a e7 67 72 6f 75 70 5f  6d 61 70 25 21 28 67 72  |:.group_map%!(gr|
0000d2d0  6f 75 70 25 2a 34 29 3e  30 3a 4d 25 2b 3d 31 0d  |oup%*4)>0:M%+=1.|
0000d2e0  3d 90 05 ed 0d 3d 9a 87  e7 4d 25 3d 30 3a 4e 3d  |=....=...M%=0:N=|
0000d2f0  a4 6d 65 73 73 61 67 65  28 22 47 72 61 70 68 20  |.message("Graph |
0000d300  65 72 72 6f 72 2e 20 54  68 65 72 65 20 69 73 20  |error. There is |
0000d310  6e 6f 20 73 70 65 63 69  66 69 65 64 20 64 61 74  |no specified dat|
0000d320  61 2e 20 55 6e 61 62 6c  65 20 74 6f 20 63 72 65  |a. Unable to cre|
0000d330  61 74 65 20 67 72 61 70  68 2e 22 2c 30 29 3a c8  |ate graph.",0):.|
0000d340  99 22 57 69 6d 70 5f 53  6c 6f 74 53 69 7a 65 22  |."Wimp_SlotSize"|
0000d350  2c 5a 25 2c 2d 31 3a 5a  25 3d 30 3a f2 75 70 64  |,Z%,-1:Z%=0:.upd|
0000d360  61 74 65 5f 73 6d 61 73  68 3a e1 0d 3d a4 b3 4e  |ate_smash:..=..N|
0000d370  3d a4 6c 65 6e 28 66 69  6c 65 5f 67 72 61 70 68  |=.len(file_graph|
0000d380  25 29 3a 4d 25 3d 4e 2b  31 3a f5 4e 2d 3d 31 3a  |%):M%=N+1:.N-=1:|
0000d390  fd 66 69 6c 65 5f 67 72  61 70 68 25 3f 4e 3d 34  |.file_graph%?N=4|
0000d3a0  36 3a 4d 3d 30 3a f5 62  6c 6f 63 6b 25 3f 28 31  |6:M=0:.block%?(1|
0000d3b0  30 30 2b 4d 29 3d 66 69  6c 65 5f 67 72 61 70 68  |00+M)=file_graph|
0000d3c0  25 3f 4d 3a 4d 2b 3d 31  3a fd 4d 3d 4e 2b 31 3a  |%?M:M+=1:.M=N+1:|
0000d3d0  62 6c 6f 63 6b 25 3f 28  31 30 30 2b 4d 29 3d 31  |block%?(100+M)=1|
0000d3e0  33 3a 4e 2b 3d 31 3a 4d  3d 30 3a f5 62 6c 6f 63  |3:N+=1:M=0:.bloc|
0000d3f0  6b 25 3f 4d 3d 66 69 6c  65 5f 67 72 61 70 68 25  |k%?M=file_graph%|
0000d400  3f 4e 3a 4e 2b 3d 31 3a  4d 2b 3d 31 3a fd 4e 3d  |?N:N+=1:M+=1:.N=|
0000d410  4d 25 3a 62 6c 6f 63 6b  25 3f 4d 3d 31 33 0d 3d  |M%:block%?M=13.=|
0000d420  ae 2a c8 99 22 58 4f 53  5f 46 69 6c 65 22 2c 31  |.*.."XOS_File",1|
0000d430  33 2c 62 6c 6f 63 6b 25  2c 2c 2c 62 6c 6f 63 6b  |3,block%,,,block|
0000d440  25 2b 31 30 30 b8 58 25  0d 3d b8 75 e7 58 25 3d  |%+100.X%.=.u.X%=|
0000d450  32 3a 4e 3d a4 6d 65 73  73 61 67 65 28 22 41 20  |2:N=.message("A |
0000d460  64 69 72 65 63 74 6f 72  79 20 61 6c 72 65 61 64  |directory alread|
0000d470  79 20 65 78 69 73 74 73  20 77 69 74 68 20 74 68  |y exists with th|
0000d480  69 73 20 70 61 74 68 6e  61 6d 65 2e 22 2c 30 29  |is pathname.",0)|
0000d490  3a c8 99 22 57 69 6d 70  5f 53 6c 6f 74 53 69 7a  |:.."Wimp_SlotSiz|
0000d4a0  65 22 2c 5a 25 2c 2d 31  3a 5a 25 3d 30 3a f2 75  |e",Z%,-1:Z%=0:.u|
0000d4b0  70 64 61 74 65 5f 73 6d  61 73 68 3a e1 0d 3d c2  |pdate_smash:..=.|
0000d4c0  96 67 72 61 70 68 5f 6f  76 65 72 6c 61 79 25 3d  |.graph_overlay%=|
0000d4d0  a3 3a e7 58 25 3d 31 3a  4e 3d a4 6d 65 73 73 61  |.:.X%=1:N=.messa|
0000d4e0  67 65 28 22 54 68 69 73  20 66 69 6c 65 20 61 6c  |ge("This file al|
0000d4f0  72 65 61 64 79 20 65 78  69 73 74 73 2e 20 43 6c  |ready exists. Cl|
0000d500  69 63 6b 20 4f 4b 20 74  6f 20 6f 76 65 72 6c 61  |ick OK to overla|
0000d510  79 20 74 68 69 73 20 67  72 61 70 68 20 6f 72 20  |y this graph or |
0000d520  43 61 6e 63 65 6c 20 74  6f 20 6f 76 65 72 77 72  |Cancel to overwr|
0000d530  69 74 65 20 66 69 6c 65  2e 22 2c 33 29 3a e7 4e  |ite file.",3):.N|
0000d540  3d 31 3a 67 72 61 70 68  5f 6f 76 65 72 6c 61 79  |=1:graph_overlay|
0000d550  25 3d b9 0d 3d cc 33 e7  ac 67 72 61 70 68 5f 6f  |%=..=.3..graph_o|
0000d560  76 65 72 6c 61 79 25 3a  c8 99 22 4f 53 5f 46 69  |verlay%:.."OS_Fi|
0000d570  6e 64 22 2c 26 38 32 2c  66 69 6c 65 5f 67 72 61  |nd",&82,file_gra|
0000d580  70 68 25 b8 58 25 0d 3d  d6 61 e7 67 72 61 70 68  |ph%.X%.=.a.graph|
0000d590  5f 6f 76 65 72 6c 61 79  25 3a c8 99 22 4f 53 5f  |_overlay%:.."OS_|
0000d5a0  46 69 6e 64 22 2c 26 43  32 2c 66 69 6c 65 5f 67  |Find",&C2,file_g|
0000d5b0  72 61 70 68 25 b8 58 25  3a e7 58 25 3c 3e 30 3a  |raph%.X%:.X%<>0:|
0000d5c0  c8 99 22 4f 53 5f 41 72  67 73 22 2c 32 2c 58 25  |.."OS_Args",2,X%|
0000d5d0  b8 2c 2c 4d 3a c8 99 22  4f 53 5f 41 72 67 73 22  |.,,M:.."OS_Args"|
0000d5e0  2c 31 2c 58 25 2c 4d 0d  3d e0 6a e7 58 25 3d 30  |,1,X%,M.=.j.X%=0|
0000d5f0  3a 4e 3d a4 6d 65 73 73  61 67 65 28 22 53 61 76  |:N=.message("Sav|
0000d600  65 20 65 72 72 6f 72 2e  20 55 6e 61 62 6c 65 20  |e error. Unable |
0000d610  74 6f 20 63 72 65 61 74  65 20 67 72 61 70 68 2e  |to create graph.|
0000d620  22 2c 30 29 3a c8 99 22  57 69 6d 70 5f 53 6c 6f  |",0):.."Wimp_Slo|
0000d630  74 53 69 7a 65 22 2c 5a  25 2c 2d 31 3a 5a 25 3d  |tSize",Z%,-1:Z%=|
0000d640  30 3a f2 75 70 64 61 74  65 5f 73 6d 61 73 68 3a  |0:.update_smash:|
0000d650  e1 0d 3d ea 05 3a 0d 3d  f4 1f ee 85 ea 20 c8 99  |..=..:.=..... ..|
0000d660  22 4f 53 5f 46 69 6e 64  22 2c 30 2c 58 25 3a f2  |"OS_Find",0,X%:.|
0000d670  65 72 72 6f 72 0d 3d fe  11 f2 75 70 64 61 74 65  |error.=...update|
0000d680  5f 73 74 61 72 74 0d 3e  08 05 3a 0d 3e 12 22 e7  |_start.>..:.>.".|
0000d690  ac 67 72 61 70 68 5f 6f  76 65 72 6c 61 79 25 3a  |.graph_overlay%:|
0000d6a0  f2 67 72 61 70 68 5f 68  65 61 64 65 72 0d 3e 1c  |.graph_header.>.|
0000d6b0  50 e7 ac 67 72 61 70 68  5f 6f 76 65 72 6c 61 79  |P..graph_overlay|
0000d6c0  25 3a e7 74 65 78 74 5f  74 69 74 6c 65 63 3c 3e  |%:.text_titlec<>|
0000d6d0  30 84 74 65 78 74 5f 61  78 69 73 63 3c 3e 30 84  |0.text_axisc<>0.|
0000d6e0  74 65 78 74 5f 6b 65 79  63 3c 3e 30 3a f2 67 72  |text_keyc<>0:.gr|
0000d6f0  61 70 68 5f 66 6f 6e 74  74 61 62 6c 65 0d 3e 26  |aph_fonttable.>&|
0000d700  12 c8 8e 67 72 61 70 68  5f 74 79 70 65 25 ca 0d  |...graph_type%..|
0000d710  3e 30 1c 20 c9 31 3a f2  67 72 61 70 68 5f 64 61  |>0. .1:.graph_da|
0000d720  74 61 73 63 61 6c 65 4c  69 6e 65 0d 3e 3a 1b 20  |tascaleLine.>:. |
0000d730  c9 32 3a f2 67 72 61 70  68 5f 64 61 74 61 73 63  |.2:.graph_datasc|
0000d740  61 6c 65 42 61 72 0d 3e  44 05 cb 0d 3e 4e 05 3a  |aleBar.>D...>N.:|
0000d750  0d 3e 58 24 24 74 65 78  74 25 3d 22 50 61 67 65  |.>X$$text%="Page|
0000d760  20 6c 61 79 6f 75 74 22  3a f2 75 70 64 61 74 65  | layout":.update|
0000d770  5f 74 6f 70 0d 3e 62 3a  e7 ac 67 72 61 70 68 5f  |_top.>b:..graph_|
0000d780  6f 76 65 72 6c 61 79 25  3a e7 67 72 61 70 68 5f  |overlay%:.graph_|
0000d790  62 6f 78 25 80 67 72 61  70 68 5f 74 79 70 65 25  |box%.graph_type%|
0000d7a0  3c 3e 34 3a f2 67 72 61  70 68 5f 62 6f 78 0d 3e  |<>4:.graph_box.>|
0000d7b0  6c 3e e7 ac 67 72 61 70  68 5f 6f 76 65 72 6c 61  |l>..graph_overla|
0000d7c0  79 25 3a e7 67 72 61 70  68 5f 74 79 70 65 25 3d  |y%:.graph_type%=|
0000d7d0  31 84 67 72 61 70 68 5f  74 79 70 65 25 3d 32 3a  |1.graph_type%=2:|
0000d7e0  f2 67 72 61 70 68 5f 70  61 70 65 72 0d 3e 76 43  |.graph_paper.>vC|
0000d7f0  21 62 6c 6f 63 6b 25 3d  68 61 6e 64 6c 65 5f 66  |!block%=handle_f|
0000d800  6f 72 6d 61 74 25 3a 62  6c 6f 63 6b 25 21 34 3d  |ormat%:block%!4=|
0000d810  33 3a c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |3:.."Wimp_GetIco|
0000d820  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |nState",,block%.|
0000d830  3e 80 46 e7 ac 67 72 61  70 68 5f 6f 76 65 72 6c  |>.F..graph_overl|
0000d840  61 79 25 3a e7 67 72 61  70 68 5f 74 69 74 6c 65  |ay%:.graph_title|
0000d850  25 80 67 72 61 70 68 5f  74 79 70 65 25 3c 3e 34  |%.graph_type%<>4|
0000d860  3a f2 67 72 61 70 68 5f  74 69 74 6c 65 28 32 32  |:.graph_title(22|
0000d870  33 30 30 30 29 0d 3e 8a  49 e7 ac 67 72 61 70 68  |3000).>.I..graph|
0000d880  5f 6f 76 65 72 6c 61 79  25 3a e7 67 72 61 70 68  |_overlay%:.graph|
0000d890  5f 6b 65 79 25 80 67 72  61 70 68 5f 74 79 70 65  |_key%.graph_type|
0000d8a0  25 3c 3e 33 80 67 72 61  70 68 5f 74 79 70 65 25  |%<>3.graph_type%|
0000d8b0  3c 3e 34 3a f2 67 72 61  70 68 5f 6b 65 79 0d 3e  |<>4:.graph_key.>|
0000d8c0  94 05 3a 0d 3e 9e 12 c8  8e 67 72 61 70 68 5f 74  |..:.>....graph_t|
0000d8d0  79 70 65 25 ca 0d 3e a8  19 20 c9 31 3a f2 67 72  |ype%..>.. .1:.gr|
0000d8e0  61 70 68 5f 63 72 65 61  74 65 6c 69 6e 65 0d 3e  |aph_createline.>|
0000d8f0  b2 18 20 c9 32 3a f2 67  72 61 70 68 5f 63 72 65  |.. .2:.graph_cre|
0000d900  61 74 65 62 61 72 0d 3e  bc 18 20 c9 33 3a f2 67  |atebar.>.. .3:.g|
0000d910  72 61 70 68 5f 63 72 65  61 74 65 70 69 65 0d 3e  |raph_createpie.>|
0000d920  c6 1a 20 c9 34 3a f2 67  72 61 70 68 5f 63 72 65  |.. .4:.graph_cre|
0000d930  61 74 65 74 61 62 6c 65  0d 3e d0 05 cb 0d 3e da  |atetable.>....>.|
0000d940  05 3a 0d 3e e4 14 c8 99  22 4f 53 5f 46 69 6e 64  |.:.>...."OS_Find|
0000d950  22 2c 30 2c 58 25 0d 3e  ee 23 c8 99 22 4f 53 5f  |",0,X%.>.#.."OS_|
0000d960  46 69 6c 65 22 2c 31 38  2c 66 69 6c 65 5f 67 72  |File",18,file_gr|
0000d970  61 70 68 25 2c 26 61 66  66 0d 3e f8 1e c8 99 22  |aph%,&aff.>...."|
0000d980  57 69 6d 70 5f 53 6c 6f  74 53 69 7a 65 22 2c 5a  |Wimp_SlotSize",Z|
0000d990  25 2c 2d 31 b8 3b 4e 0d  3f 02 05 3a 0d 3f 0c 11  |%,-1.;N.?..:.?..|
0000d9a0  f2 75 70 64 61 74 65 5f  73 6d 61 73 68 0d 3f 16  |.update_smash.?.|
0000d9b0  44 f2 70 61 6e 65 5f 63  61 6c 63 75 6c 61 74 65  |D.pane_calculate|
0000d9c0  3a c8 99 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |:.."Wimp_ForceRe|
0000d9d0  64 72 61 77 22 2c 68 61  6e 64 6c 65 5f 70 61 6e  |draw",handle_pan|
0000d9e0  65 25 2c 30 2c 2d 31 30  32 33 2c 31 32 37 39 2c  |e%,0,-1023,1279,|
0000d9f0  30 0d 3f 20 05 e1 0d 3f  2a 05 3a 0d 3f 34 16 dd  |0.? ...?*.:.?4..|
0000da00  f2 67 72 61 70 68 5f 63  72 65 61 74 65 6c 69 6e  |.graph_createlin|
0000da10  65 0d 3f 3e 37 52 25 3d  30 3a e3 67 72 6f 75 70  |e.?>7R%=0:.group|
0000da20  25 3d 30 b8 35 3a e7 67  72 6f 75 70 5f 6d 61 70  |%=0.5:.group_map|
0000da30  25 21 28 67 72 6f 75 70  25 2a 34 29 3e 30 3a 52  |%!(group%*4)>0:R|
0000da40  25 2b 3d 31 35 30 30 30  0d 3f 48 0f ed 3a 52 25  |%+=15000.?H..:R%|
0000da50  2d 3d 31 35 30 30 30 0d  3f 52 14 e7 ac 67 72 61  |-=15000.?R...gra|
0000da60  70 68 5f 33 44 25 3a 52  25 3d 30 0d 3f 5c 12 e3  |ph_3D%:R%=0.?\..|
0000da70  67 72 6f 75 70 25 3d 35  b8 30 88 2d 31 0d 3f 66  |group%=5.0.-1.?f|
0000da80  34 24 74 65 78 74 25 3d  22 44 72 61 77 69 6e 67  |4$text%="Drawing|
0000da90  20 67 72 6f 75 70 3a 20  22 2b c3 28 67 72 6f 75  | group: "+.(grou|
0000daa0  70 25 2b 31 29 3a f2 75  70 64 61 74 65 5f 74 6f  |p%+1):.update_to|
0000dab0  70 0d 3f 70 1e e7 67 72  6f 75 70 5f 6d 61 70 25  |p.?p..group_map%|
0000dac0  21 28 67 72 6f 75 70 25  2a 34 29 3e 30 20 8c 0d  |!(group%*4)>0 ..|
0000dad0  3f 7a 21 4e 25 3d 67 72  6f 75 70 5f 64 61 74 61  |?z!N%=group_data|
0000dae0  25 3f 28 67 72 6f 75 70  25 2a 34 32 2b 31 30 29  |%?(group%*42+10)|
0000daf0  0d 3f 84 1d 20 e7 28 4e  25 80 34 29 3d 34 3a f2  |.?.. .(N%.4)=4:.|
0000db00  67 72 61 70 68 5f 62 65  73 74 66 69 74 0d 3f 8e  |graph_bestfit.?.|
0000db10  2a 20 e7 28 4e 25 80 32  29 3d 32 80 ac 67 72 61  |* .(N%.2)=2..gra|
0000db20  70 68 5f 33 44 25 3a f2  67 72 61 70 68 5f 6c 69  |ph_3D%:.graph_li|
0000db30  6e 65 75 6e 64 65 72 0d  3f 98 2a 20 e7 28 4e 25  |neunder.?.* .(N%|
0000db40  80 31 29 3d 31 80 ac 67  72 61 70 68 5f 33 44 25  |.1)=1..graph_3D%|
0000db50  3a f2 67 72 61 70 68 5f  70 6f 69 6e 74 6c 69 6e  |:.graph_pointlin|
0000db60  65 0d 3f a2 36 20 e7 28  28 4e 25 80 31 29 3d 31  |e.?.6 .((N%.1)=1|
0000db70  84 28 4e 25 80 32 29 3d  32 29 80 67 72 61 70 68  |.(N%.2)=2).graph|
0000db80  5f 33 44 25 3a f2 67 72  61 70 68 5f 70 6f 69 6e  |_3D%:.graph_poin|
0000db90  74 6c 69 6e 65 33 44 0d  3f ac 29 20 e7 28 4e 25  |tline3D.?.) .(N%|
0000dba0  80 32 29 3d 32 80 67 72  61 70 68 5f 33 44 25 3a  |.2)=2.graph_3D%:|
0000dbb0  f2 67 72 61 70 68 5f 6c  69 6e 65 75 6e 64 65 72  |.graph_lineunder|
0000dbc0  0d 3f b6 12 20 f2 67 72  61 70 68 5f 70 6f 69 6e  |.?.. .graph_poin|
0000dbd0  74 73 0d 3f c0 19 20 e7  67 72 61 70 68 5f 33 44  |ts.?.. .graph_3D|
0000dbe0  25 3a 52 25 2d 3d 31 35  30 30 30 0d 3f ca 05 cd  |%:R%-=15000.?...|
0000dbf0  0d 3f d4 05 ed 0d 3f de  05 e1 0d 3f e8 05 3a 0d  |.?....?....?..:.|
0000dc00  3f f2 15 dd f2 67 72 61  70 68 5f 63 72 65 61 74  |?....graph_creat|
0000dc10  65 62 61 72 0d 3f fc 15  c8 8e 67 72 61 70 68 5f  |ebar.?....graph_|
0000dc20  62 61 72 74 79 70 65 25  ca 0d 40 06 16 20 c9 35  |bartype%..@.. .5|
0000dc30  20 3a f2 67 72 61 70 68  5f 62 61 72 4f 76 72 0d  | :.graph_barOvr.|
0000dc40  40 10 16 20 c9 31 35 3a  f2 67 72 61 70 68 5f 62  |@.. .15:.graph_b|
0000dc50  61 72 4f 76 72 0d 40 1a  11 20 7f 3a f2 67 72 61  |arOvr.@.. .:.gra|
0000dc60  70 68 5f 62 61 72 0d 40  24 05 cb 0d 40 2e 33 4e  |ph_bar.@$...@.3N|
0000dc70  3d 67 72 6f 75 70 5f 6d  61 70 25 21 32 34 3a e7  |=group_map%!24:.|
0000dc80  4e 3e 30 80 4e 3c 3d 64  61 74 61 5f 77 69 64 74  |N>0.N<=data_widt|
0000dc90  68 25 3a f2 62 61 72 5f  6c 61 62 65 6c 73 0d 40  |h%:.bar_labels.@|
0000dca0  38 05 e1 0d 40 42 05 3a  0d 40 4c 15 dd f2 67 72  |8...@B.:.@L...gr|
0000dcb0  61 70 68 5f 63 72 65 61  74 65 70 69 65 0d 40 56  |aph_createpie.@V|
0000dcc0  13 f2 67 72 61 70 68 5f  64 61 74 61 70 61 72 61  |..graph_datapara|
0000dcd0  0d 40 60 31 4d 3d 30 3a  e3 67 72 6f 75 70 25 3d  |.@`1M=0:.group%=|
0000dce0  30 b8 35 3a e7 67 72 6f  75 70 5f 6d 61 70 25 21  |0.5:.group_map%!|
0000dcf0  28 67 72 6f 75 70 25 2a  34 29 3e 30 3a 4d 2b 3d  |(group%*4)>0:M+=|
0000dd00  31 0d 40 6a 0c ed 3a e7  4d 3d 30 3a e1 0d 40 74  |1.@j..:.M=0:..@t|
0000dd10  23 e7 67 72 6f 75 70 5f  6d 61 70 25 21 32 34 3e  |#.group_map%!24>|
0000dd20  30 80 4d 3e 31 3a f2 67  72 61 70 68 5f 6b 65 79  |0.M>1:.graph_key|
0000dd30  0d 40 7e 31 4d 3d 30 3a  e3 67 72 6f 75 70 25 3d  |.@~1M=0:.group%=|
0000dd40  30 b8 35 3a e7 67 72 6f  75 70 5f 6d 61 70 25 21  |0.5:.group_map%!|
0000dd50  28 67 72 6f 75 70 25 2a  34 29 3e 30 3a 4d 2b 3d  |(group%*4)>0:M+=|
0000dd60  31 0d 40 88 0c ed 3a c8  8e 20 4d 20 ca 0d 40 92  |1.@...:.. M ..@.|
0000dd70  10 20 c9 31 3a 52 25 3d  39 30 30 30 30 0d 40 9c  |. .1:R%=90000.@.|
0000dd80  10 20 c9 32 3a 52 25 3d  36 33 35 30 30 0d 40 a6  |. .2:R%=63500.@.|
0000dd90  10 20 c9 33 3a 52 25 3d  34 30 30 30 30 0d 40 b0  |. .3:R%=40000.@.|
0000dda0  10 20 c9 34 3a 52 25 3d  34 30 30 30 30 0d 40 ba  |. .4:R%=40000.@.|
0000ddb0  10 20 c9 35 3a 52 25 3d  34 30 30 30 30 0d 40 c4  |. .5:R%=40000.@.|
0000ddc0  10 20 c9 36 3a 52 25 3d  34 30 30 30 30 0d 40 ce  |. .6:R%=40000.@.|
0000ddd0  05 cb 0d 40 d8 18 e7 67  72 61 70 68 5f 33 44 25  |...@...graph_3D%|
0000dde0  3a 52 25 2d 3d 31 30 30  30 30 0d 40 e2 12 e3 67  |:R%-=10000.@...g|
0000ddf0  72 6f 75 70 25 3d 35 b8  30 88 2d 31 0d 40 ec 28  |roup%=5.0.-1.@.(|
0000de00  20 58 3d 30 3a e3 4e 3d  30 b8 35 3a e7 67 72 6f  | X=0:.N=0.5:.gro|
0000de10  75 70 5f 6d 61 70 25 21  28 4e 2a 34 29 3e 30 3a  |up_map%!(N*4)>0:|
0000de20  58 2b 3d 31 0d 40 f6 06  20 ed 0d 41 00 0b 20 59  |X+=1.@.. ..A.. Y|
0000de30  3d 58 20 81 32 0d 41 0a  2f 20 41 25 3d 30 3a e3  |=X .2.A./ A%=0:.|
0000de40  4e 3d 30 b8 67 72 6f 75  70 25 3a e7 67 72 6f 75  |N=0.group%:.grou|
0000de50  70 5f 6d 61 70 25 21 28  4e 2a 34 29 3e 30 3a 41  |p_map%!(N*4)>0:A|
0000de60  25 2b 3d 31 0d 41 14 06  20 ed 0d 41 1e 0e 20 e7  |%+=1.A.. ..A.. .|
0000de70  58 3c 3d 32 3a 59 3d 58  0d 41 28 14 20 58 2d 3d  |X<=2:Y=X.A(. X-=|
0000de80  31 3a 59 2d 3d 31 3a 41  25 2d 3d 31 0d 41 32 36  |1:Y-=1:A%-=1.A26|
0000de90  20 24 74 65 78 74 25 3d  22 43 72 65 61 74 69 6e  | $text%="Creatin|
0000dea0  67 20 63 68 61 72 74 3a  20 22 2b c3 28 67 72 6f  |g chart: "+.(gro|
0000deb0  75 70 25 2b 31 29 3a f2  75 70 64 61 74 65 5f 74  |up%+1):.update_t|
0000dec0  6f 70 0d 41 3c 1f 20 e7  67 72 6f 75 70 5f 6d 61  |op.A<. .group_ma|
0000ded0  70 25 21 28 67 72 6f 75  70 25 2a 34 29 3e 30 20  |p%!(group%*4)>0 |
0000dee0  8c 0d 41 46 14 20 20 f2  67 72 61 70 68 5f 70 69  |..AF.  .graph_pi|
0000def0  65 64 72 61 77 0d 41 50  06 20 cd 0d 41 5a 05 ed  |edraw.AP. ..AZ..|
0000df00  0d 41 64 05 e1 0d 41 6e  05 3a 0d 41 78 17 dd f2  |.Ad...An.:.Ax...|
0000df10  67 72 61 70 68 5f 63 72  65 61 74 65 74 61 62 6c  |graph_createtabl|
0000df20  65 0d 41 82 13 f2 67 72  61 70 68 5f 64 61 74 61  |e.A...graph_data|
0000df30  70 61 72 61 0d 41 8c 27  24 74 65 78 74 25 3d 22  |para.A.'$text%="|
0000df40  43 72 65 61 74 69 6e 67  20 74 61 62 6c 65 22 3a  |Creating table":|
0000df50  f2 75 70 64 61 74 65 5f  74 6f 70 0d 41 96 34 59  |.update_top.A.4Y|
0000df60  3d 36 34 30 2a 74 65 78  74 5f 61 78 69 73 79 3a  |=640*text_axisy:|
0000df70  e7 74 65 78 74 5f 61 78  69 73 63 3d 30 3a 59 3d  |.text_axisc=0:Y=|
0000df80  31 30 30 30 2a 74 65 78  74 5f 61 78 69 73 79 0d  |1000*text_axisy.|
0000df90  41 a0 16 e7 20 67 72 6f  75 70 5f 6d 61 70 25 21  |A... group_map%!|
0000dfa0  32 34 3e 30 8c 0d 41 aa  23 20 24 74 65 78 74 25  |24>0..A.# $text%|
0000dfb0  3d 22 4c 61 62 65 6c 73  22 3a f2 75 70 64 61 74  |="Labels":.updat|
0000dfc0  65 5f 62 6f 74 74 6f 6d  0d 41 b4 08 20 78 3d 30  |e_bottom.A.. x=0|
0000dfd0  0d 41 be 17 20 e3 41 25  3d 31 b8 64 61 74 61 5f  |.A.. .A%=1.data_|
0000dfe0  6c 65 6e 67 74 68 25 0d  41 c8 21 20 f2 64 61 74  |length%.A.! .dat|
0000dff0  61 5f 73 67 65 74 28 67  72 6f 75 70 5f 6d 61 70  |a_sget(group_map|
0000e000  25 21 32 34 2c 41 25 29  0d 41 d2 13 20 4f 3d a4  |%!24,A%).A.. O=.|
0000e010  6c 65 6e 28 62 6c 6f 63  6b 25 29 0d 41 dc 10 20  |len(block%).A.. |
0000e020  4f 2b 3d 34 2d 28 4f 20  83 34 29 0d 41 e6 15 20  |O+=4-(O .4).A.. |
0000e030  e7 74 65 78 74 5f 61 78  69 73 63 3c 3e 30 20 8c  |.text_axisc<>0 .|
0000e040  0d 41 f0 55 20 20 c8 99  22 46 6f 6e 74 5f 46 69  |.A.U  .."Font_Fi|
0000e050  6e 64 46 6f 6e 74 22 2c  2c 66 6f 6e 74 5f 6c 69  |ndFont",,font_li|
0000e060  73 74 25 2b 74 65 78 74  5f 61 78 69 73 63 2a 34  |st%+text_axisc*4|
0000e070  30 2c 74 65 78 74 5f 61  78 69 73 78 2a 31 36 2c  |0,text_axisx*16,|
0000e080  74 65 78 74 5f 61 78 69  73 79 2a 31 36 2c 30 2c  |text_axisy*16,0,|
0000e090  30 20 b8 20 4e 0d 41 fa  4b 20 20 c8 99 22 46 6f  |0 . N.A.K  .."Fo|
0000e0a0  6e 74 5f 53 74 72 69 6e  67 57 69 64 74 68 22 2c  |nt_StringWidth",|
0000e0b0  2c 62 6c 6f 63 6b 25 2c  33 30 30 30 30 30 2c 32  |,block%,300000,2|
0000e0c0  30 30 30 30 30 2c 2d 31  2c 62 6c 6f 63 6b 25 2b  |00000,-1,block%+|
0000e0d0  a4 6c 65 6e 28 62 6c 6f  63 6b 25 29 b8 2c 2c 58  |.len(block%).,,X|
0000e0e0  0d 42 04 19 20 20 c8 99  22 46 6f 6e 74 5f 4c 6f  |.B..  .."Font_Lo|
0000e0f0  73 65 46 6f 6e 74 22 2c  4e 0d 42 0e 06 20 cc 0d  |seFont",N.B.. ..|
0000e100  42 18 24 20 20 58 3d 74  65 78 74 5f 61 78 69 73  |B.$  X=text_axis|
0000e110  78 2a 31 30 30 30 2a a4  6c 65 6e 28 62 6c 6f 63  |x*1000*.len(bloc|
0000e120  6b 25 29 0d 42 22 06 20  cd 0d 42 2c 11 20 58 3d  |k%).B". ..B,. X=|
0000e130  58 2a 36 34 30 2f 31 30  30 30 0d 42 36 0d 20 e7  |X*640/1000.B6. .|
0000e140  58 3e 78 3a 78 3d 58 0d  42 40 06 20 ed 0d 42 4a  |X>x:x=X.B@. ..BJ|
0000e150  0d 20 78 2b 3d 31 30 30  30 30 0d 42 54 17 20 e3  |. x+=10000.BT. .|
0000e160  41 25 3d 31 b8 64 61 74  61 5f 6c 65 6e 67 74 68  |A%=1.data_length|
0000e170  25 0d 42 5e 21 20 f2 64  61 74 61 5f 73 67 65 74  |%.B^! .data_sget|
0000e180  28 67 72 6f 75 70 5f 6d  61 70 25 21 32 34 2c 41  |(group_map%!24,A|
0000e190  25 29 0d 42 68 13 20 4f  3d a4 6c 65 6e 28 62 6c  |%).Bh. O=.len(bl|
0000e1a0  6f 63 6b 25 29 0d 42 72  10 20 4f 2b 3d 34 2d 28  |ock%).Br. O+=4-(|
0000e1b0  4f 20 83 34 29 0d 42 7c  4c 20 e7 67 72 61 70 68  |O .4).B|L .graph|
0000e1c0  5f 62 6f 78 25 3a f2 74  61 62 6c 65 5f 62 6f 78  |_box%:.table_box|
0000e1d0  28 30 2c 59 2a 64 61 74  61 5f 6c 65 6e 67 74 68  |(0,Y*data_length|
0000e1e0  25 2d 41 25 2a 59 2c 78  2c 59 2a 64 61 74 61 5f  |%-A%*Y,x,Y*data_|
0000e1f0  6c 65 6e 67 74 68 25 2d  28 41 25 2d 31 29 2a 59  |length%-(A%-1)*Y|
0000e200  29 0d 42 86 6e 20 f2 64  66 69 6c 65 5f 77 70 75  |).B.n .dfile_wpu|
0000e210  74 28 31 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(1):.dfile_wput|
0000e220  28 32 34 2b 32 38 2b 4f  29 3a f2 64 66 69 6c 65  |(24+28+O):.dfile|
0000e230  5f 77 70 75 74 28 30 29  3a f2 64 66 69 6c 65 5f  |_wput(0):.dfile_|
0000e240  77 70 75 74 28 30 29 3a  f2 64 66 69 6c 65 5f 77  |wput(0):.dfile_w|
0000e250  70 75 74 28 33 30 30 30  30 30 29 3a f2 64 66 69  |put(300000):.dfi|
0000e260  6c 65 5f 77 70 75 74 28  32 30 30 30 30 30 29 0d  |le_wput(200000).|
0000e270  42 90 7e 20 f2 64 66 69  6c 65 5f 77 70 75 74 28  |B.~ .dfile_wput(|
0000e280  30 29 3a f2 64 66 69 6c  65 5f 62 70 75 74 28 3f  |0):.dfile_bput(?|
0000e290  67 72 61 70 68 5f 62 61  63 6b 25 29 3a f2 64 66  |graph_back%):.df|
0000e2a0  69 6c 65 5f 62 70 75 74  28 67 72 61 70 68 5f 62  |ile_bput(graph_b|
0000e2b0  61 63 6b 25 3f 31 29 3a  f2 64 66 69 6c 65 5f 62  |ack%?1):.dfile_b|
0000e2c0  70 75 74 28 67 72 61 70  68 5f 62 61 63 6b 25 3f  |put(graph_back%?|
0000e2d0  32 29 3a f2 64 66 69 6c  65 5f 62 70 75 74 28 67  |2):.dfile_bput(g|
0000e2e0  72 61 70 68 5f 62 61 63  6b 25 3f 33 29 0d 42 9a  |raph_back%?3).B.|
0000e2f0  a2 20 f2 64 66 69 6c 65  5f 77 70 75 74 28 67 72  |. .dfile_wput(gr|
0000e300  61 70 68 5f 61 78 69 73  63 29 3a f2 64 66 69 6c  |aph_axisc):.dfil|
0000e310  65 5f 77 70 75 74 28 36  34 30 2a 74 65 78 74 5f  |e_wput(640*text_|
0000e320  61 78 69 73 78 29 3a f2  64 66 69 6c 65 5f 77 70  |axisx):.dfile_wp|
0000e330  75 74 28 36 34 30 2a 74  65 78 74 5f 61 78 69 73  |ut(640*text_axis|
0000e340  79 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 35  |y):.dfile_wput(5|
0000e350  30 30 30 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |000):.dfile_wput|
0000e360  28 59 2a 64 61 74 61 5f  6c 65 6e 67 74 68 25 2d  |(Y*data_length%-|
0000e370  28 41 25 2d 2e 32 35 29  2a 59 29 3a f2 64 66 69  |(A%-.25)*Y):.dfi|
0000e380  6c 65 5f 73 70 75 74 28  62 6c 6f 63 6b 25 29 0d  |le_sput(block%).|
0000e390  42 a4 14 20 f2 70 6f 6c  6c 5f 6d 69 6e 6f 72 6c  |B.. .poll_minorl|
0000e3a0  6f 6f 70 0d 42 ae 06 20  ed 0d 42 b8 09 20 42 25  |oop.B.. ..B.. B%|
0000e3b0  3d 78 0d 42 c2 05 cd 0d  42 cc 0f e3 67 72 6f 75  |=x.B....B...grou|
0000e3c0  70 25 3d 30 b8 35 0d 42  d6 1d e7 67 72 6f 75 70  |p%=0.5.B...group|
0000e3d0  5f 6d 61 70 25 21 28 67  72 6f 75 70 25 2a 34 29  |_map%!(group%*4)|
0000e3e0  3e 30 8c 0d 42 e0 2f 20  24 74 65 78 74 25 3d 22  |>0..B./ $text%="|
0000e3f0  47 72 6f 75 70 20 22 2b  c3 28 67 72 6f 75 70 25  |Group "+.(group%|
0000e400  2b 31 29 3a f2 75 70 64  61 74 65 5f 62 6f 74 74  |+1):.update_bott|
0000e410  6f 6d 0d 42 ea 08 20 78  3d 30 0d 42 f4 17 20 e3  |om.B.. x=0.B.. .|
0000e420  41 25 3d 31 b8 64 61 74  61 5f 6c 65 6e 67 74 68  |A%=1.data_length|
0000e430  25 0d 42 fe 29 20 f2 64  61 74 61 5f 73 67 65 74  |%.B.) .data_sget|
0000e440  28 67 72 6f 75 70 5f 6d  61 70 25 21 28 67 72 6f  |(group_map%!(gro|
0000e450  75 70 25 2a 34 29 2c 41  25 29 0d 43 08 13 20 4f  |up%*4),A%).C.. O|
0000e460  3d a4 6c 65 6e 28 62 6c  6f 63 6b 25 29 0d 43 12  |=.len(block%).C.|
0000e470  10 20 4f 2b 3d 34 2d 28  4f 20 83 34 29 0d 43 1c  |. O+=4-(O .4).C.|
0000e480  15 20 e7 74 65 78 74 5f  61 78 69 73 63 3c 3e 30  |. .text_axisc<>0|
0000e490  20 8c 0d 43 26 55 20 20  c8 99 22 46 6f 6e 74 5f  | ..C&U  .."Font_|
0000e4a0  46 69 6e 64 46 6f 6e 74  22 2c 2c 66 6f 6e 74 5f  |FindFont",,font_|
0000e4b0  6c 69 73 74 25 2b 74 65  78 74 5f 61 78 69 73 63  |list%+text_axisc|
0000e4c0  2a 34 30 2c 74 65 78 74  5f 61 78 69 73 78 2a 31  |*40,text_axisx*1|
0000e4d0  36 2c 74 65 78 74 5f 61  78 69 73 79 2a 31 36 2c  |6,text_axisy*16,|
0000e4e0  30 2c 30 20 b8 20 4e 0d  43 30 4b 20 20 c8 99 22  |0,0 . N.C0K  .."|
0000e4f0  46 6f 6e 74 5f 53 74 72  69 6e 67 57 69 64 74 68  |Font_StringWidth|
0000e500  22 2c 2c 62 6c 6f 63 6b  25 2c 33 30 30 30 30 30  |",,block%,300000|
0000e510  2c 32 30 30 30 30 30 2c  2d 31 2c 62 6c 6f 63 6b  |,200000,-1,block|
0000e520  25 2b a4 6c 65 6e 28 62  6c 6f 63 6b 25 29 b8 2c  |%+.len(block%).,|
0000e530  2c 58 0d 43 3a 19 20 20  c8 99 22 46 6f 6e 74 5f  |,X.C:.  .."Font_|
0000e540  4c 6f 73 65 46 6f 6e 74  22 2c 4e 0d 43 44 06 20  |LoseFont",N.CD. |
0000e550  cc 0d 43 4e 24 20 20 58  3d 74 65 78 74 5f 61 78  |..CN$  X=text_ax|
0000e560  69 73 78 2a 31 30 30 30  2a a4 6c 65 6e 28 62 6c  |isx*1000*.len(bl|
0000e570  6f 63 6b 25 29 0d 43 58  06 20 cd 0d 43 62 11 20  |ock%).CX. ..Cb. |
0000e580  58 3d 58 2a 36 34 30 2f  31 30 30 30 0d 43 6c 0d  |X=X*640/1000.Cl.|
0000e590  20 e7 58 3e 78 3a 78 3d  58 0d 43 76 06 20 ed 0d  | .X>x:x=X.Cv. ..|
0000e5a0  43 80 11 20 e7 67 72 61  70 68 5f 6b 65 79 25 8c  |C.. .graph_key%.|
0000e5b0  0d 43 8a 29 20 20 24 62  6c 6f 63 6b 25 3d 24 28  |.C.)  $block%=$(|
0000e5c0  67 72 6f 75 70 5f 64 61  74 61 25 2b 67 72 6f 75  |group_data%+grou|
0000e5d0  70 25 2a 34 32 2b 31 31  29 0d 43 94 14 20 20 4f  |p%*42+11).C..  O|
0000e5e0  3d a4 6c 65 6e 28 62 6c  6f 63 6b 25 29 0d 43 9e  |=.len(block%).C.|
0000e5f0  11 20 20 4f 2b 3d 34 2d  28 4f 20 83 34 29 0d 43  |.  O+=4-(O .4).C|
0000e600  a8 16 20 20 e7 74 65 78  74 5f 61 78 69 73 63 3c  |..  .text_axisc<|
0000e610  3e 30 20 8c 0d 43 b2 56  20 20 20 c8 99 22 46 6f  |>0 ..C.V   .."Fo|
0000e620  6e 74 5f 46 69 6e 64 46  6f 6e 74 22 2c 2c 66 6f  |nt_FindFont",,fo|
0000e630  6e 74 5f 6c 69 73 74 25  2b 74 65 78 74 5f 61 78  |nt_list%+text_ax|
0000e640  69 73 63 2a 34 30 2c 74  65 78 74 5f 61 78 69 73  |isc*40,text_axis|
0000e650  78 2a 31 36 2c 74 65 78  74 5f 61 78 69 73 79 2a  |x*16,text_axisy*|
0000e660  31 36 2c 30 2c 30 20 b8  20 4e 0d 43 bc 4c 20 20  |16,0,0 . N.C.L  |
0000e670  20 c8 99 22 46 6f 6e 74  5f 53 74 72 69 6e 67 57  | .."Font_StringW|
0000e680  69 64 74 68 22 2c 2c 62  6c 6f 63 6b 25 2c 33 30  |idth",,block%,30|
0000e690  30 30 30 30 2c 32 30 30  30 30 30 2c 2d 31 2c 62  |0000,200000,-1,b|
0000e6a0  6c 6f 63 6b 25 2b a4 6c  65 6e 28 62 6c 6f 63 6b  |lock%+.len(block|
0000e6b0  25 29 b8 2c 2c 58 0d 43  c6 1a 20 20 20 c8 99 22  |%).,,X.C..   .."|
0000e6c0  46 6f 6e 74 5f 4c 6f 73  65 46 6f 6e 74 22 2c 4e  |Font_LoseFont",N|
0000e6d0  0d 43 d0 07 20 20 cc 0d  43 da 25 20 20 20 58 3d  |.C..  ..C.%   X=|
0000e6e0  74 65 78 74 5f 61 78 69  73 78 2a 31 30 30 30 2a  |text_axisx*1000*|
0000e6f0  a4 6c 65 6e 28 62 6c 6f  63 6b 25 29 0d 43 e4 07  |.len(block%).C..|
0000e700  20 20 cd 0d 43 ee 12 20  20 58 3d 58 2a 36 34 30  |  ..C..  X=X*640|
0000e710  2f 31 30 30 30 0d 43 f8  0e 20 20 e7 58 3e 78 3a  |/1000.C..  .X>x:|
0000e720  78 3d 58 0d 44 02 06 20  cd 0d 44 0c 0d 20 78 2b  |x=X.D.. ..D.. x+|
0000e730  3d 31 30 30 30 30 0d 44  16 17 20 e3 41 25 3d 31  |=10000.D.. .A%=1|
0000e740  b8 64 61 74 61 5f 6c 65  6e 67 74 68 25 0d 44 20  |.data_length%.D |
0000e750  29 20 f2 64 61 74 61 5f  73 67 65 74 28 67 72 6f  |) .data_sget(gro|
0000e760  75 70 5f 6d 61 70 25 21  28 67 72 6f 75 70 25 2a  |up_map%!(group%*|
0000e770  34 29 2c 41 25 29 0d 44  2a 13 20 4f 3d a4 6c 65  |4),A%).D*. O=.le|
0000e780  6e 28 62 6c 6f 63 6b 25  29 0d 44 34 10 20 4f 2b  |n(block%).D4. O+|
0000e790  3d 34 2d 28 4f 20 83 34  29 0d 44 3e 50 20 e7 67  |=4-(O .4).D>P .g|
0000e7a0  72 61 70 68 5f 62 6f 78  25 3a f2 74 61 62 6c 65  |raph_box%:.table|
0000e7b0  5f 62 6f 78 28 42 25 2c  59 2a 64 61 74 61 5f 6c  |_box(B%,Y*data_l|
0000e7c0  65 6e 67 74 68 25 2d 41  25 2a 59 2c 42 25 2b 78  |ength%-A%*Y,B%+x|
0000e7d0  2c 59 2a 64 61 74 61 5f  6c 65 6e 67 74 68 25 2d  |,Y*data_length%-|
0000e7e0  28 41 25 2d 31 29 2a 59  29 0d 44 48 6e 20 f2 64  |(A%-1)*Y).DHn .d|
0000e7f0  66 69 6c 65 5f 77 70 75  74 28 31 29 3a f2 64 66  |file_wput(1):.df|
0000e800  69 6c 65 5f 77 70 75 74  28 32 34 2b 32 38 2b 4f  |ile_wput(24+28+O|
0000e810  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |):.dfile_wput(0)|
0000e820  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 3a  |:.dfile_wput(0):|
0000e830  f2 64 66 69 6c 65 5f 77  70 75 74 28 33 30 30 30  |.dfile_wput(3000|
0000e840  30 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |00):.dfile_wput(|
0000e850  32 30 30 30 30 30 29 0d  44 52 7e 20 f2 64 66 69  |200000).DR~ .dfi|
0000e860  6c 65 5f 77 70 75 74 28  30 29 3a f2 64 66 69 6c  |le_wput(0):.dfil|
0000e870  65 5f 62 70 75 74 28 3f  67 72 61 70 68 5f 62 61  |e_bput(?graph_ba|
0000e880  63 6b 25 29 3a f2 64 66  69 6c 65 5f 62 70 75 74  |ck%):.dfile_bput|
0000e890  28 67 72 61 70 68 5f 62  61 63 6b 25 3f 31 29 3a  |(graph_back%?1):|
0000e8a0  f2 64 66 69 6c 65 5f 62  70 75 74 28 67 72 61 70  |.dfile_bput(grap|
0000e8b0  68 5f 62 61 63 6b 25 3f  32 29 3a f2 64 66 69 6c  |h_back%?2):.dfil|
0000e8c0  65 5f 62 70 75 74 28 67  72 61 70 68 5f 62 61 63  |e_bput(graph_bac|
0000e8d0  6b 25 3f 33 29 0d 44 5c  a5 20 f2 64 66 69 6c 65  |k%?3).D\. .dfile|
0000e8e0  5f 77 70 75 74 28 67 72  61 70 68 5f 61 78 69 73  |_wput(graph_axis|
0000e8f0  63 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 36  |c):.dfile_wput(6|
0000e900  34 30 2a 74 65 78 74 5f  61 78 69 73 78 29 3a f2  |40*text_axisx):.|
0000e910  64 66 69 6c 65 5f 77 70  75 74 28 36 34 30 2a 74  |dfile_wput(640*t|
0000e920  65 78 74 5f 61 78 69 73  79 29 3a f2 64 66 69 6c  |ext_axisy):.dfil|
0000e930  65 5f 77 70 75 74 28 42  25 2b 35 30 30 30 29 3a  |e_wput(B%+5000):|
0000e940  f2 64 66 69 6c 65 5f 77  70 75 74 28 59 2a 64 61  |.dfile_wput(Y*da|
0000e950  74 61 5f 6c 65 6e 67 74  68 25 2d 28 41 25 2d 2e  |ta_length%-(A%-.|
0000e960  32 35 29 2a 59 29 3a f2  64 66 69 6c 65 5f 73 70  |25)*Y):.dfile_sp|
0000e970  75 74 28 62 6c 6f 63 6b  25 29 0d 44 66 14 20 f2  |ut(block%).Df. .|
0000e980  70 6f 6c 6c 5f 6d 69 6e  6f 72 6c 6f 6f 70 0d 44  |poll_minorloop.D|
0000e990  70 06 20 ed 0d 44 7a 11  20 e7 67 72 61 70 68 5f  |p. ..Dz. .graph_|
0000e9a0  6b 65 79 25 8c 0d 44 84  29 20 20 24 62 6c 6f 63  |key%..D.)  $bloc|
0000e9b0  6b 25 3d 24 28 67 72 6f  75 70 5f 64 61 74 61 25  |k%=$(group_data%|
0000e9c0  2b 67 72 6f 75 70 25 2a  34 32 2b 31 31 29 0d 44  |+group%*42+11).D|
0000e9d0  8e 14 20 20 4f 3d a4 6c  65 6e 28 62 6c 6f 63 6b  |..  O=.len(block|
0000e9e0  25 29 0d 44 98 11 20 20  4f 2b 3d 34 2d 28 4f 20  |%).D..  O+=4-(O |
0000e9f0  83 34 29 0d 44 a2 47 20  20 e7 67 72 61 70 68 5f  |.4).D.G  .graph_|
0000ea00  62 6f 78 25 3a f2 74 61  62 6c 65 5f 62 6f 78 28  |box%:.table_box(|
0000ea10  42 25 2c 59 2a 64 61 74  61 5f 6c 65 6e 67 74 68  |B%,Y*data_length|
0000ea20  25 2c 42 25 2b 78 2c 59  2a 28 64 61 74 61 5f 6c  |%,B%+x,Y*(data_l|
0000ea30  65 6e 67 74 68 25 2b 31  29 29 0d 44 ac 6f 20 20  |ength%+1)).D.o  |
0000ea40  f2 64 66 69 6c 65 5f 77  70 75 74 28 31 29 3a f2  |.dfile_wput(1):.|
0000ea50  64 66 69 6c 65 5f 77 70  75 74 28 32 34 2b 32 38  |dfile_wput(24+28|
0000ea60  2b 4f 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |+O):.dfile_wput(|
0000ea70  30 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 30  |0):.dfile_wput(0|
0000ea80  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 33 30  |):.dfile_wput(30|
0000ea90  30 30 30 30 29 3a f2 64  66 69 6c 65 5f 77 70 75  |0000):.dfile_wpu|
0000eaa0  74 28 32 30 30 30 30 30  29 0d 44 b6 7f 20 20 f2  |t(200000).D..  .|
0000eab0  64 66 69 6c 65 5f 77 70  75 74 28 30 29 3a f2 64  |dfile_wput(0):.d|
0000eac0  66 69 6c 65 5f 62 70 75  74 28 3f 67 72 61 70 68  |file_bput(?graph|
0000ead0  5f 62 61 63 6b 25 29 3a  f2 64 66 69 6c 65 5f 62  |_back%):.dfile_b|
0000eae0  70 75 74 28 67 72 61 70  68 5f 62 61 63 6b 25 3f  |put(graph_back%?|
0000eaf0  31 29 3a f2 64 66 69 6c  65 5f 62 70 75 74 28 67  |1):.dfile_bput(g|
0000eb00  72 61 70 68 5f 62 61 63  6b 25 3f 32 29 3a f2 64  |raph_back%?2):.d|
0000eb10  66 69 6c 65 5f 62 70 75  74 28 67 72 61 70 68 5f  |file_bput(graph_|
0000eb20  62 61 63 6b 25 3f 33 29  0d 44 c0 a1 20 20 f2 64  |back%?3).D..  .d|
0000eb30  66 69 6c 65 5f 77 70 75  74 28 67 72 61 70 68 5f  |file_wput(graph_|
0000eb40  61 78 69 73 63 29 3a f2  64 66 69 6c 65 5f 77 70  |axisc):.dfile_wp|
0000eb50  75 74 28 36 34 30 2a 74  65 78 74 5f 61 78 69 73  |ut(640*text_axis|
0000eb60  78 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 36  |x):.dfile_wput(6|
0000eb70  34 30 2a 74 65 78 74 5f  61 78 69 73 79 29 3a f2  |40*text_axisy):.|
0000eb80  64 66 69 6c 65 5f 77 70  75 74 28 42 25 2b 35 30  |dfile_wput(B%+50|
0000eb90  30 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |00):.dfile_wput(|
0000eba0  59 2a 28 64 61 74 61 5f  6c 65 6e 67 74 68 25 2b  |Y*(data_length%+|
0000ebb0  2e 32 35 29 29 3a f2 64  66 69 6c 65 5f 73 70 75  |.25)):.dfile_spu|
0000ebc0  74 28 62 6c 6f 63 6b 25  29 0d 44 ca 06 20 cd 0d  |t(block%).D.. ..|
0000ebd0  44 d4 0a 20 42 25 2b 3d  78 0d 44 de 05 cd 0d 44  |D.. B%+=x.D....D|
0000ebe0  e8 05 ed 0d 44 f2 42 e7  67 72 61 70 68 5f 74 69  |....D.B.graph_ti|
0000ebf0  74 6c 65 25 80 67 72 61  70 68 5f 6b 65 79 25 3a  |tle%.graph_key%:|
0000ec00  f2 67 72 61 70 68 5f 74  69 74 6c 65 28 59 2a 28  |.graph_title(Y*(|
0000ec10  64 61 74 61 5f 6c 65 6e  67 74 68 25 2b 31 29 2b  |data_length%+1)+|
0000ec20  33 30 30 30 29 0d 44 fc  3f e7 67 72 61 70 68 5f  |3000).D.?.graph_|
0000ec30  74 69 74 6c 65 25 80 ac  67 72 61 70 68 5f 6b 65  |title%..graph_ke|
0000ec40  79 25 3a f2 67 72 61 70  68 5f 74 69 74 6c 65 28  |y%:.graph_title(|
0000ec50  59 2a 64 61 74 61 5f 6c  65 6e 67 74 68 25 2b 33  |Y*data_length%+3|
0000ec60  30 30 30 29 0d 45 06 05  e1 0d 45 10 05 3a 0d 45  |000).E....E..:.E|
0000ec70  1a 18 dd f2 74 61 62 6c  65 5f 62 6f 78 28 78 2c  |....table_box(x,|
0000ec80  79 2c 58 2c 59 29 0d 45  24 0f f4 20 4f 48 3a 20  |y,X,Y).E$.. OH: |
0000ec90  41 20 62 6f 78 0d 45 2e  72 f2 64 66 69 6c 65 5f  |A box.E.r.dfile_|
0000eca0  77 70 75 74 28 32 29 3a  f2 64 66 69 6c 65 5f 77  |wput(2):.dfile_w|
0000ecb0  70 75 74 28 32 34 2b 31  36 2b 31 32 2a 35 2b 34  |put(24+16+12*5+4|
0000ecc0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |):.dfile_wput(0)|
0000ecd0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 3a  |:.dfile_wput(0):|
0000ece0  f2 64 66 69 6c 65 5f 77  70 75 74 28 33 32 30 30  |.dfile_wput(3200|
0000ecf0  30 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |00):.dfile_wput(|
0000ed00  32 32 30 30 30 30 29 0d  45 38 9b f2 64 66 69 6c  |220000).E8..dfil|
0000ed10  65 5f 62 70 75 74 28 3f  67 72 61 70 68 5f 62 61  |e_bput(?graph_ba|
0000ed20  63 6b 25 29 3a f2 64 66  69 6c 65 5f 62 70 75 74  |ck%):.dfile_bput|
0000ed30  28 67 72 61 70 68 5f 62  61 63 6b 25 3f 31 29 3a  |(graph_back%?1):|
0000ed40  f2 64 66 69 6c 65 5f 62  70 75 74 28 67 72 61 70  |.dfile_bput(grap|
0000ed50  68 5f 62 61 63 6b 25 3f  32 29 3a f2 64 66 69 6c  |h_back%?2):.dfil|
0000ed60  65 5f 62 70 75 74 28 67  72 61 70 68 5f 62 61 63  |e_bput(graph_bac|
0000ed70  6b 25 3f 33 29 3a f2 64  66 69 6c 65 5f 77 70 75  |k%?3):.dfile_wpu|
0000ed80  74 28 30 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(0):.dfile_wput|
0000ed90  28 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(0):.dfile_wput(|
0000eda0  30 29 0d 45 42 30 f2 64  66 69 6c 65 5f 77 70 75  |0).EB0.dfile_wpu|
0000edb0  74 28 32 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(2):.dfile_wput|
0000edc0  28 78 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(x):.dfile_wput(|
0000edd0  79 29 0d 45 4c 30 f2 64  66 69 6c 65 5f 77 70 75  |y).EL0.dfile_wpu|
0000ede0  74 28 38 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(8):.dfile_wput|
0000edf0  28 58 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(X):.dfile_wput(|
0000ee00  79 29 0d 45 56 30 f2 64  66 69 6c 65 5f 77 70 75  |y).EV0.dfile_wpu|
0000ee10  74 28 38 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(8):.dfile_wput|
0000ee20  28 58 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(X):.dfile_wput(|
0000ee30  59 29 0d 45 60 30 f2 64  66 69 6c 65 5f 77 70 75  |Y).E`0.dfile_wpu|
0000ee40  74 28 38 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(8):.dfile_wput|
0000ee50  28 78 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(x):.dfile_wput(|
0000ee60  59 29 0d 45 6a 30 f2 64  66 69 6c 65 5f 77 70 75  |Y).Ej0.dfile_wpu|
0000ee70  74 28 38 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(8):.dfile_wput|
0000ee80  28 78 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(x):.dfile_wput(|
0000ee90  79 29 0d 45 74 12 f2 64  66 69 6c 65 5f 77 70 75  |y).Et..dfile_wpu|
0000eea0  74 28 30 29 0d 45 7e 05  e1 0d 45 88 05 3a 0d 45  |t(0).E~...E..:.E|
0000eeb0  92 13 dd f2 67 72 61 70  68 5f 70 69 65 64 72 61  |....graph_piedra|
0000eec0  77 0d 45 9c 79 e7 58 3c  3d 31 3a f2 67 72 61 70  |w.E.y.X<=1:.grap|
0000eed0  68 5f 70 69 65 6b 65 79  28 31 36 30 30 30 30 2b  |h_piekey(160000+|
0000eee0  28 52 25 2a 32 2e 37 35  2a 28 41 25 2d 59 2f 32  |(R%*2.75*(A%-Y/2|
0000eef0  29 29 2c 31 31 30 30 30  30 2d 52 25 2a 28 31 2e  |)),110000-R%*(1.|
0000ef00  32 2b 58 2a 2e 32 29 29  3a f2 67 72 61 70 68 5f  |2+X*.2)):.graph_|
0000ef10  70 69 65 28 31 36 30 30  30 30 2b 28 52 25 2a 32  |pie(160000+(R%*2|
0000ef20  2e 37 35 2a 28 41 25 2d  59 2f 32 29 29 2c 31 31  |.75*(A%-Y/2)),11|
0000ef30  30 30 30 30 2c 52 25 29  3a e1 0d 45 a6 1b e7 67  |0000,R%):..E...g|
0000ef40  72 61 70 68 5f 33 44 25  3a 4e 3d 31 30 30 30 30  |raph_3D%:N=10000|
0000ef50  3a 8b 4e 3d 30 0d 45 b0  82 e7 58 3e 3d 32 3a e7  |:.N=0.E...X>=2:.|
0000ef60  59 3e 3d 41 25 3a f2 67  72 61 70 68 5f 70 69 65  |Y>=A%:.graph_pie|
0000ef70  6b 65 79 28 31 36 30 30  30 30 2b 28 52 25 2a 32  |key(160000+(R%*2|
0000ef80  2e 37 35 2a 28 41 25 2d  59 2f 32 29 29 2c 31 31  |.75*(A%-Y/2)),11|
0000ef90  30 30 30 30 2b 4e 2b 52  25 2a 32 2e 35 29 3a f2  |0000+N+R%*2.5):.|
0000efa0  67 72 61 70 68 5f 70 69  65 28 31 36 30 30 30 30  |graph_pie(160000|
0000efb0  2b 28 52 25 2a 32 2e 37  35 2a 28 41 25 2d 59 2f  |+(R%*2.75*(A%-Y/|
0000efc0  32 29 29 2c 31 31 30 30  30 30 2b 52 25 2a 31 2e  |2)),110000+R%*1.|
0000efd0  33 2c 52 25 29 3a e1 0d  45 ba 1b e7 67 72 61 70  |3,R%):..E...grap|
0000efe0  68 5f 33 44 25 3a 4e 3d  2d 35 30 30 30 3a 8b 4e  |h_3D%:N=-5000:.N|
0000eff0  3d 30 0d 45 c4 95 e7 58  3e 3d 32 3a e7 59 3c 41  |=0.E...X>=2:.Y<A|
0000f000  25 3a f2 67 72 61 70 68  5f 70 69 65 6b 65 79 28  |%:.graph_piekey(|
0000f010  31 36 30 30 30 30 2b 28  52 25 2a 32 2e 37 35 2a  |160000+(R%*2.75*|
0000f020  28 28 41 25 2d 59 29 2d  28 58 2d 59 2b 31 29 2f  |((A%-Y)-(X-Y+1)/|
0000f030  32 29 29 2c 31 31 30 30  30 30 2b 4e 2d 52 25 2a  |2)),110000+N-R%*|
0000f040  32 2e 35 29 3a f2 67 72  61 70 68 5f 70 69 65 28  |2.5):.graph_pie(|
0000f050  31 36 30 30 30 30 2b 28  52 25 2a 32 2e 37 35 2a  |160000+(R%*2.75*|
0000f060  28 28 41 25 2d 59 29 2d  28 58 2d 59 2b 31 29 2f  |((A%-Y)-(X-Y+1)/|
0000f070  32 29 29 2c 31 31 30 30  30 30 2d 52 25 2a 31 2e  |2)),110000-R%*1.|
0000f080  33 2c 52 25 29 3a e1 0d  45 ce 05 fa 0d 45 d8 05  |3,R%):..E....E..|
0000f090  3a 0d 45 e2 11 dd f2 67  72 61 70 68 5f 70 61 70  |:.E....graph_pap|
0000f0a0  65 72 0d 45 ec 0f f2 67  72 61 70 68 5f 61 78 69  |er.E...graph_axi|
0000f0b0  73 0d 45 f6 1e e7 67 72  61 70 68 5f 74 79 70 65  |s.E...graph_type|
0000f0c0  25 3d 31 3a f2 67 72 61  70 68 5f 78 64 69 76 0d  |%=1:.graph_xdiv.|
0000f0d0  46 00 30 e7 67 72 61 70  68 5f 74 79 70 65 25 3d  |F.0.graph_type%=|
0000f0e0  32 80 67 72 61 70 68 5f  62 61 72 74 79 70 65 25  |2.graph_bartype%|
0000f0f0  3e 31 30 3a f2 67 72 61  70 68 5f 78 64 69 76 0d  |>10:.graph_xdiv.|
0000f100  46 0a 31 e7 67 72 61 70  68 5f 74 79 70 65 25 3d  |F.1.graph_type%=|
0000f110  31 80 67 72 61 70 68 5f  78 67 25 3d 31 3a f2 67  |1.graph_xg%=1:.g|
0000f120  72 61 70 68 5f 78 64 69  76 67 72 69 64 28 30 29  |raph_xdivgrid(0)|
0000f130  0d 46 14 43 e7 67 72 61  70 68 5f 74 79 70 65 25  |.F.C.graph_type%|
0000f140  3d 32 80 67 72 61 70 68  5f 62 61 72 74 79 70 65  |=2.graph_bartype|
0000f150  25 3e 31 30 80 67 72 61  70 68 5f 78 67 25 3d 31  |%>10.graph_xg%=1|
0000f160  3a f2 67 72 61 70 68 5f  78 64 69 76 67 72 69 64  |:.graph_xdivgrid|
0000f170  28 30 29 0d 46 1e 33 e7  67 72 61 70 68 5f 74 79  |(0).F.3.graph_ty|
0000f180  70 65 25 3d 31 80 67 72  61 70 68 5f 78 67 25 3d  |pe%=1.graph_xg%=|
0000f190  32 3a f2 67 72 61 70 68  5f 78 64 69 76 67 72 69  |2:.graph_xdivgri|
0000f1a0  64 28 31 32 38 29 0d 46  28 45 e7 67 72 61 70 68  |d(128).F(E.graph|
0000f1b0  5f 74 79 70 65 25 3d 32  80 67 72 61 70 68 5f 62  |_type%=2.graph_b|
0000f1c0  61 72 74 79 70 65 25 3e  31 30 80 67 72 61 70 68  |artype%>10.graph|
0000f1d0  5f 78 67 25 3d 32 3a f2  67 72 61 70 68 5f 78 64  |_xg%=2:.graph_xd|
0000f1e0  69 76 67 72 69 64 28 31  32 38 29 0d 46 32 20 e7  |ivgrid(128).F2 .|
0000f1f0  67 72 61 70 68 5f 78 67  25 3d 31 3a f2 67 72 61  |graph_xg%=1:.gra|
0000f200  70 68 5f 78 65 64 67 65  28 30 29 0d 46 3c 22 e7  |ph_xedge(0).F<".|
0000f210  67 72 61 70 68 5f 78 67  25 3d 32 3a f2 67 72 61  |graph_xg%=2:.gra|
0000f220  70 68 5f 78 65 64 67 65  28 31 32 38 29 0d 46 46  |ph_xedge(128).FF|
0000f230  1e e7 67 72 61 70 68 5f  74 79 70 65 25 3d 31 3a  |..graph_type%=1:|
0000f240  f2 67 72 61 70 68 5f 79  64 69 76 0d 46 50 30 e7  |.graph_ydiv.FP0.|
0000f250  67 72 61 70 68 5f 74 79  70 65 25 3d 32 80 67 72  |graph_type%=2.gr|
0000f260  61 70 68 5f 62 61 72 74  79 70 65 25 3c 31 30 3a  |aph_bartype%<10:|
0000f270  f2 67 72 61 70 68 5f 79  64 69 76 0d 46 5a 31 e7  |.graph_ydiv.FZ1.|
0000f280  67 72 61 70 68 5f 74 79  70 65 25 3d 31 80 67 72  |graph_type%=1.gr|
0000f290  61 70 68 5f 79 67 25 3d  31 3a f2 67 72 61 70 68  |aph_yg%=1:.graph|
0000f2a0  5f 79 64 69 76 67 72 69  64 28 30 29 0d 46 64 43  |_ydivgrid(0).FdC|
0000f2b0  e7 67 72 61 70 68 5f 74  79 70 65 25 3d 32 80 67  |.graph_type%=2.g|
0000f2c0  72 61 70 68 5f 62 61 72  74 79 70 65 25 3c 31 30  |raph_bartype%<10|
0000f2d0  80 67 72 61 70 68 5f 79  67 25 3d 31 3a f2 67 72  |.graph_yg%=1:.gr|
0000f2e0  61 70 68 5f 79 64 69 76  67 72 69 64 28 30 29 0d  |aph_ydivgrid(0).|
0000f2f0  46 6e 33 e7 67 72 61 70  68 5f 74 79 70 65 25 3d  |Fn3.graph_type%=|
0000f300  31 80 67 72 61 70 68 5f  79 67 25 3d 32 3a f2 67  |1.graph_yg%=2:.g|
0000f310  72 61 70 68 5f 79 64 69  76 67 72 69 64 28 31 32  |raph_ydivgrid(12|
0000f320  38 29 0d 46 78 45 e7 67  72 61 70 68 5f 74 79 70  |8).FxE.graph_typ|
0000f330  65 25 3d 32 80 67 72 61  70 68 5f 62 61 72 74 79  |e%=2.graph_barty|
0000f340  70 65 25 3c 31 30 80 67  72 61 70 68 5f 79 67 25  |pe%<10.graph_yg%|
0000f350  3d 32 3a f2 67 72 61 70  68 5f 79 64 69 76 67 72  |=2:.graph_ydivgr|
0000f360  69 64 28 31 32 38 29 0d  46 82 20 e7 67 72 61 70  |id(128).F. .grap|
0000f370  68 5f 79 67 25 3d 31 3a  f2 67 72 61 70 68 5f 79  |h_yg%=1:.graph_y|
0000f380  65 64 67 65 28 30 29 0d  46 8c 22 e7 67 72 61 70  |edge(0).F.".grap|
0000f390  68 5f 79 67 25 3d 32 3a  f2 67 72 61 70 68 5f 79  |h_yg%=2:.graph_y|
0000f3a0  65 64 67 65 28 31 32 38  29 0d 46 96 1f e7 67 72  |edge(128).F...gr|
0000f3b0  61 70 68 5f 78 61 78 69  73 25 3a f2 67 72 61 70  |aph_xaxis%:.grap|
0000f3c0  68 5f 78 6c 61 62 65 6c  0d 46 a0 1f e7 67 72 61  |h_xlabel.F...gra|
0000f3d0  70 68 5f 79 61 78 69 73  25 3a f2 67 72 61 70 68  |ph_yaxis%:.graph|
0000f3e0  5f 79 6c 61 62 65 6c 0d  46 aa 05 e1 0d 46 b4 05  |_ylabel.F....F..|
0000f3f0  3a 0d 46 be 05 3a 0d 46  c8 12 dd f2 67 72 61 70  |:.F..:.F....grap|
0000f400  68 5f 68 65 61 64 65 72  0d 46 d2 45 24 62 6c 6f  |h_header.F.E$blo|
0000f410  63 6b 25 3d 22 44 72 61  77 c9 22 2b c4 37 2c bd  |ck%="Draw."+.7,.|
0000f420  30 29 2b c4 33 2c bd 30  29 2b 22 47 72 61 70 68  |0)+.3,.0)+"Graph|
0000f430  50 6c 75 73 22 3a f2 64  66 69 6c 65 5f 73 70 75  |Plus":.dfile_spu|
0000f440  74 6c 28 62 6c 6f 63 6b  25 2c 32 34 29 0d 46 dc  |tl(block%,24).F.|
0000f450  49 f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 3a  |I.dfile_wput(0):|
0000f460  f2 64 66 69 6c 65 5f 77  70 75 74 28 30 29 3a f2  |.dfile_wput(0):.|
0000f470  64 66 69 6c 65 5f 77 70  75 74 28 34 36 30 30 30  |dfile_wput(46000|
0000f480  30 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |0):.dfile_wput(2|
0000f490  35 30 30 30 30 29 0d 46  e6 05 e1 0d 46 f0 05 3a  |50000).F....F..:|
0000f4a0  0d 46 fa 19 dd f2 67 72  61 70 68 5f 64 61 74 61  |.F....graph_data|
0000f4b0  73 63 61 6c 65 4c 69 6e  65 0d 47 04 2c 24 74 65  |scaleLine.G.,$te|
0000f4c0  78 74 25 3d 22 44 61 74  61 73 63 61 6c 6c 69 6e  |xt%="Datascallin|
0000f4d0  67 20 28 4c 69 6e 65 29  22 3a f2 75 70 64 61 74  |g (Line)":.updat|
0000f4e0  65 5f 74 6f 70 0d 47 0e  13 f2 67 72 61 70 68 5f  |e_top.G...graph_|
0000f4f0  64 61 74 61 70 61 72 61  0d 47 18 1a 21 62 6c 6f  |datapara.G..!blo|
0000f500  63 6b 25 3d 68 61 6e 64  6c 65 5f 66 6f 72 6d 61  |ck%=handle_forma|
0000f510  74 25 0d 47 22 34 e7 67  72 61 70 68 5f 78 63 61  |t%.G"4.graph_xca|
0000f520  6c 25 3a f2 67 72 61 70  68 5f 73 65 61 72 63 68  |l%:.graph_search|
0000f530  6d 69 6e 78 3a f2 67 72  61 70 68 5f 73 65 61 72  |minx:.graph_sear|
0000f540  63 68 6d 61 78 78 0d 47  2c 25 e7 64 61 74 61 5f  |chmaxx.G,%.data_|
0000f550  78 6d 69 6e 3d 64 61 74  61 5f 78 6d 61 78 3a 64  |xmin=data_xmax:d|
0000f560  61 74 61 5f 78 6d 61 78  2b 3d 31 0d 47 36 34 e7  |ata_xmax+=1.G64.|
0000f570  67 72 61 70 68 5f 79 63  61 6c 25 3a f2 67 72 61  |graph_ycal%:.gra|
0000f580  70 68 5f 73 65 61 72 63  68 6d 69 6e 79 3a f2 67  |ph_searchminy:.g|
0000f590  72 61 70 68 5f 73 65 61  72 63 68 6d 61 78 79 0d  |raph_searchmaxy.|
0000f5a0  47 40 25 e7 64 61 74 61  5f 79 6d 69 6e 3d 64 61  |G@%.data_ymin=da|
0000f5b0  74 61 5f 79 6d 61 78 3a  64 61 74 61 5f 79 6d 61  |ta_ymax:data_yma|
0000f5c0  78 2b 3d 31 0d 47 4a 47  e7 67 72 61 70 68 5f 78  |x+=1.GJG.graph_x|
0000f5d0  64 69 76 3d 30 3a 67 72  61 70 68 5f 78 64 69 76  |div=0:graph_xdiv|
0000f5e0  3d 64 61 74 61 5f 78 6d  61 78 2d 64 61 74 61 5f  |=data_xmax-data_|
0000f5f0  78 6d 69 6e 3a 67 72 61  70 68 5f 78 73 64 69 76  |xmin:graph_xsdiv|
0000f600  3d 67 72 61 70 68 5f 78  64 69 76 0d 47 54 40 e7  |=graph_xdiv.GT@.|
0000f610  67 72 61 70 68 5f 78 73  64 69 76 3d 30 84 67 72  |graph_xsdiv=0.gr|
0000f620  61 70 68 5f 78 73 64 69  76 3e 67 72 61 70 68 5f  |aph_xsdiv>graph_|
0000f630  78 64 69 76 3a 67 72 61  70 68 5f 78 73 64 69 76  |xdiv:graph_xsdiv|
0000f640  3d 67 72 61 70 68 5f 78  64 69 76 0d 47 5e 59 e7  |=graph_xdiv.G^Y.|
0000f650  67 72 61 70 68 5f 78 64  69 76 3e 64 61 74 61 5f  |graph_xdiv>data_|
0000f660  78 6d 61 78 2d 64 61 74  61 5f 78 6d 69 6e 3a 67  |xmax-data_xmin:g|
0000f670  72 61 70 68 5f 78 64 69  76 3d 64 61 74 61 5f 78  |raph_xdiv=data_x|
0000f680  6d 61 78 2d 64 61 74 61  5f 78 6d 69 6e 3a 67 72  |max-data_xmin:gr|
0000f690  61 70 68 5f 78 73 64 69  76 3d 67 72 61 70 68 5f  |aph_xsdiv=graph_|
0000f6a0  78 64 69 76 0d 47 68 3b  e7 67 72 61 70 68 5f 78  |xdiv.Gh;.graph_x|
0000f6b0  73 64 69 76 3e 64 61 74  61 5f 78 6d 61 78 2d 64  |sdiv>data_xmax-d|
0000f6c0  61 74 61 5f 78 6d 69 6e  3a 67 72 61 70 68 5f 78  |ata_xmin:graph_x|
0000f6d0  73 64 69 76 3d 67 72 61  70 68 5f 78 64 69 76 0d  |sdiv=graph_xdiv.|
0000f6e0  47 72 47 e7 67 72 61 70  68 5f 79 64 69 76 3d 30  |GrG.graph_ydiv=0|
0000f6f0  3a 67 72 61 70 68 5f 79  64 69 76 3d 64 61 74 61  |:graph_ydiv=data|
0000f700  5f 79 6d 61 78 2d 64 61  74 61 5f 79 6d 69 6e 3a  |_ymax-data_ymin:|
0000f710  67 72 61 70 68 5f 79 73  64 69 76 3d 67 72 61 70  |graph_ysdiv=grap|
0000f720  68 5f 79 64 69 76 0d 47  7c 40 e7 67 72 61 70 68  |h_ydiv.G|@.graph|
0000f730  5f 79 73 64 69 76 3d 30  84 67 72 61 70 68 5f 79  |_ysdiv=0.graph_y|
0000f740  73 64 69 76 3e 67 72 61  70 68 5f 79 64 69 76 3a  |sdiv>graph_ydiv:|
0000f750  67 72 61 70 68 5f 79 73  64 69 76 3d 67 72 61 70  |graph_ysdiv=grap|
0000f760  68 5f 79 64 69 76 0d 47  86 59 e7 67 72 61 70 68  |h_ydiv.G.Y.graph|
0000f770  5f 79 64 69 76 3e 64 61  74 61 5f 79 6d 61 78 2d  |_ydiv>data_ymax-|
0000f780  64 61 74 61 5f 79 6d 69  6e 3a 67 72 61 70 68 5f  |data_ymin:graph_|
0000f790  79 64 69 76 3d 64 61 74  61 5f 79 6d 61 78 2d 64  |ydiv=data_ymax-d|
0000f7a0  61 74 61 5f 79 6d 69 6e  3a 67 72 61 70 68 5f 79  |ata_ymin:graph_y|
0000f7b0  73 64 69 76 3d 67 72 61  70 68 5f 79 64 69 76 0d  |sdiv=graph_ydiv.|
0000f7c0  47 90 3b e7 67 72 61 70  68 5f 79 73 64 69 76 3e  |G.;.graph_ysdiv>|
0000f7d0  64 61 74 61 5f 79 6d 61  78 2d 64 61 74 61 5f 79  |data_ymax-data_y|
0000f7e0  6d 69 6e 3a 67 72 61 70  68 5f 79 73 64 69 76 3d  |min:graph_ysdiv=|
0000f7f0  67 72 61 70 68 5f 79 64  69 76 0d 47 9a 05 3a 0d  |graph_ydiv.G..:.|
0000f800  47 a4 31 4d 3d 30 3a e3  67 72 6f 75 70 25 3d 30  |G.1M=0:.group%=0|
0000f810  b8 35 3a e7 67 72 6f 75  70 5f 6d 61 70 25 21 28  |.5:.group_map%!(|
0000f820  67 72 6f 75 70 25 2a 34  29 3e 30 3a 4d 2b 3d 31  |group%*4)>0:M+=1|
0000f830  0d 47 ae 15 ed 3a e7 ac  67 72 61 70 68 5f 33 44  |.G...:..graph_3D|
0000f840  25 3a 4d 3d 30 0d 47 b8  0d 4d 3d 31 35 30 30 30  |%:M=0.G..M=15000|
0000f850  2a 4d 0d 47 c2 33 67 72  61 70 68 5f 78 73 63 61  |*M.G.3graph_xsca|
0000f860  6c 65 3d 28 32 38 30 30  30 30 2d 4d 29 20 2f 20  |le=(280000-M) / |
0000f870  28 64 61 74 61 5f 78 6d  61 78 2d 64 61 74 61 5f  |(data_xmax-data_|
0000f880  78 6d 69 6e 29 0d 47 cc  33 67 72 61 70 68 5f 79  |xmin).G.3graph_y|
0000f890  73 63 61 6c 65 3d 28 31  38 30 30 30 30 2d 4d 29  |scale=(180000-M)|
0000f8a0  20 2f 20 28 64 61 74 61  5f 79 6d 61 78 2d 64 61  | / (data_ymax-da|
0000f8b0  74 61 5f 79 6d 69 6e 29  0d 47 d6 05 e1 0d 47 e0  |ta_ymin).G....G.|
0000f8c0  05 3a 0d 47 ea 18 dd f2  67 72 61 70 68 5f 64 61  |.:.G....graph_da|
0000f8d0  74 61 73 63 61 6c 65 42  61 72 0d 47 f4 2b 24 74  |tascaleBar.G.+$t|
0000f8e0  65 78 74 25 3d 22 44 61  74 61 73 63 61 6c 6c 69  |ext%="Datascalli|
0000f8f0  6e 67 20 28 42 61 72 29  22 3a f2 75 70 64 61 74  |ng (Bar)":.updat|
0000f900  65 5f 74 6f 70 0d 47 fe  13 f2 67 72 61 70 68 5f  |e_top.G...graph_|
0000f910  64 61 74 61 70 61 72 61  0d 48 08 05 3a 0d 48 12  |datapara.H..:.H.|
0000f920  34 e7 67 72 61 70 68 5f  78 63 61 6c 25 3a f2 67  |4.graph_xcal%:.g|
0000f930  72 61 70 68 5f 73 65 61  72 63 68 6d 69 6e 78 3a  |raph_searchminx:|
0000f940  f2 67 72 61 70 68 5f 73  65 61 72 63 68 6d 61 78  |.graph_searchmax|
0000f950  78 0d 48 1c 25 e7 64 61  74 61 5f 78 6d 69 6e 3d  |x.H.%.data_xmin=|
0000f960  64 61 74 61 5f 78 6d 61  78 3a 64 61 74 61 5f 78  |data_xmax:data_x|
0000f970  6d 61 78 2b 3d 31 0d 48  26 34 e7 67 72 61 70 68  |max+=1.H&4.graph|
0000f980  5f 79 63 61 6c 25 3a f2  67 72 61 70 68 5f 73 65  |_ycal%:.graph_se|
0000f990  61 72 63 68 6d 69 6e 68  3a f2 67 72 61 70 68 5f  |archminh:.graph_|
0000f9a0  73 65 61 72 63 68 6d 61  78 68 0d 48 30 25 e7 64  |searchmaxh.H0%.d|
0000f9b0  61 74 61 5f 79 6d 69 6e  3d 64 61 74 61 5f 79 6d  |ata_ymin=data_ym|
0000f9c0  61 78 3a 64 61 74 61 5f  79 6d 61 78 2b 3d 31 0d  |ax:data_ymax+=1.|
0000f9d0  48 3a 47 e7 67 72 61 70  68 5f 78 64 69 76 3d 30  |H:G.graph_xdiv=0|
0000f9e0  3a 67 72 61 70 68 5f 78  64 69 76 3d 64 61 74 61  |:graph_xdiv=data|
0000f9f0  5f 78 6d 61 78 2d 64 61  74 61 5f 78 6d 69 6e 3a  |_xmax-data_xmin:|
0000fa00  67 72 61 70 68 5f 78 73  64 69 76 3d 67 72 61 70  |graph_xsdiv=grap|
0000fa10  68 5f 78 64 69 76 0d 48  44 40 e7 67 72 61 70 68  |h_xdiv.HD@.graph|
0000fa20  5f 78 73 64 69 76 3d 30  84 67 72 61 70 68 5f 78  |_xsdiv=0.graph_x|
0000fa30  73 64 69 76 3e 67 72 61  70 68 5f 78 64 69 76 3a  |sdiv>graph_xdiv:|
0000fa40  67 72 61 70 68 5f 78 73  64 69 76 3d 67 72 61 70  |graph_xsdiv=grap|
0000fa50  68 5f 78 64 69 76 0d 48  4e 59 e7 67 72 61 70 68  |h_xdiv.HNY.graph|
0000fa60  5f 78 64 69 76 3e 64 61  74 61 5f 78 6d 61 78 2d  |_xdiv>data_xmax-|
0000fa70  64 61 74 61 5f 78 6d 69  6e 3a 67 72 61 70 68 5f  |data_xmin:graph_|
0000fa80  78 64 69 76 3d 64 61 74  61 5f 78 6d 61 78 2d 64  |xdiv=data_xmax-d|
0000fa90  61 74 61 5f 78 6d 69 6e  3a 67 72 61 70 68 5f 78  |ata_xmin:graph_x|
0000faa0  73 64 69 76 3d 67 72 61  70 68 5f 78 64 69 76 0d  |sdiv=graph_xdiv.|
0000fab0  48 58 3b e7 67 72 61 70  68 5f 78 73 64 69 76 3e  |HX;.graph_xsdiv>|
0000fac0  64 61 74 61 5f 78 6d 61  78 2d 64 61 74 61 5f 78  |data_xmax-data_x|
0000fad0  6d 69 6e 3a 67 72 61 70  68 5f 78 73 64 69 76 3d  |min:graph_xsdiv=|
0000fae0  67 72 61 70 68 5f 78 64  69 76 0d 48 62 47 e7 67  |graph_xdiv.HbG.g|
0000faf0  72 61 70 68 5f 79 64 69  76 3d 30 3a 67 72 61 70  |raph_ydiv=0:grap|
0000fb00  68 5f 79 64 69 76 3d 64  61 74 61 5f 79 6d 61 78  |h_ydiv=data_ymax|
0000fb10  2d 64 61 74 61 5f 79 6d  69 6e 3a 67 72 61 70 68  |-data_ymin:graph|
0000fb20  5f 79 73 64 69 76 3d 67  72 61 70 68 5f 79 64 69  |_ysdiv=graph_ydi|
0000fb30  76 0d 48 6c 40 e7 67 72  61 70 68 5f 79 73 64 69  |v.Hl@.graph_ysdi|
0000fb40  76 3d 30 84 67 72 61 70  68 5f 79 73 64 69 76 3e  |v=0.graph_ysdiv>|
0000fb50  67 72 61 70 68 5f 79 64  69 76 3a 67 72 61 70 68  |graph_ydiv:graph|
0000fb60  5f 79 73 64 69 76 3d 67  72 61 70 68 5f 79 64 69  |_ysdiv=graph_ydi|
0000fb70  76 0d 48 76 59 e7 67 72  61 70 68 5f 79 64 69 76  |v.HvY.graph_ydiv|
0000fb80  3e 64 61 74 61 5f 79 6d  61 78 2d 64 61 74 61 5f  |>data_ymax-data_|
0000fb90  79 6d 69 6e 3a 67 72 61  70 68 5f 79 64 69 76 3d  |ymin:graph_ydiv=|
0000fba0  64 61 74 61 5f 79 6d 61  78 2d 64 61 74 61 5f 79  |data_ymax-data_y|
0000fbb0  6d 69 6e 3a 67 72 61 70  68 5f 79 73 64 69 76 3d  |min:graph_ysdiv=|
0000fbc0  67 72 61 70 68 5f 79 64  69 76 0d 48 80 3b e7 67  |graph_ydiv.H.;.g|
0000fbd0  72 61 70 68 5f 79 73 64  69 76 3e 64 61 74 61 5f  |raph_ysdiv>data_|
0000fbe0  79 6d 61 78 2d 64 61 74  61 5f 79 6d 69 6e 3a 67  |ymax-data_ymin:g|
0000fbf0  72 61 70 68 5f 79 73 64  69 76 3d 67 72 61 70 68  |raph_ysdiv=graph|
0000fc00  5f 79 64 69 76 0d 48 8a  05 3a 0d 48 94 31 4e 3d  |_ydiv.H..:.H.1N=|
0000fc10  30 3a e3 67 72 6f 75 70  25 3d 30 b8 35 3a e7 67  |0:.group%=0.5:.g|
0000fc20  72 6f 75 70 5f 6d 61 70  25 21 28 67 72 6f 75 70  |roup_map%!(group|
0000fc30  25 2a 34 29 3e 30 3a 4e  2b 3d 31 0d 48 9e 05 ed  |%*4)>0:N+=1.H...|
0000fc40  0d 48 a8 13 e7 ac 67 72  61 70 68 5f 33 44 25 3a  |.H....graph_3D%:|
0000fc50  4e 3d 30 0d 48 b2 35 e7  67 72 61 70 68 5f 33 44  |N=0.H.5.graph_3D|
0000fc60  25 80 67 72 61 70 68 5f  74 79 70 65 25 3d 32 80  |%.graph_type%=2.|
0000fc70  67 72 61 70 68 5f 62 61  72 74 79 70 65 25 83 31  |graph_bartype%.1|
0000fc80  30 3c 3e 33 3a 4e 3d 31  0d 48 bc 0d 4e 3d 31 35  |0<>3:N=1.H..N=15|
0000fc90  30 30 30 2a 4e 0d 48 c6  33 67 72 61 70 68 5f 78  |000*N.H.3graph_x|
0000fca0  73 63 61 6c 65 3d 28 32  38 30 30 30 30 2d 4e 29  |scale=(280000-N)|
0000fcb0  20 2f 20 28 64 61 74 61  5f 78 6d 61 78 2d 64 61  | / (data_xmax-da|
0000fcc0  74 61 5f 78 6d 69 6e 29  0d 48 d0 33 67 72 61 70  |ta_xmin).H.3grap|
0000fcd0  68 5f 79 73 63 61 6c 65  3d 28 31 38 30 30 30 30  |h_yscale=(180000|
0000fce0  2d 4e 29 20 2f 20 28 64  61 74 61 5f 79 6d 61 78  |-N) / (data_ymax|
0000fcf0  2d 64 61 74 61 5f 79 6d  69 6e 29 0d 48 da 05 3a  |-data_ymin).H..:|
0000fd00  0d 48 e4 13 4e 3d 30 3a  e3 67 72 6f 75 70 25 3d  |.H..N=0:.group%=|
0000fd10  30 b8 35 0d 48 ee 21 e7  67 72 6f 75 70 5f 6d 61  |0.5.H.!.group_ma|
0000fd20  70 25 21 28 67 72 6f 75  70 25 2a 34 29 3e 30 3a  |p%!(group%*4)>0:|
0000fd30  4e 2b 3d 31 0d 48 f8 0a  ed 3a 52 25 3d 4e 0d 49  |N+=1.H...:R%=N.I|
0000fd40  02 25 e7 67 72 61 70 68  5f 33 44 25 80 67 72 61  |.%.graph_3D%.gra|
0000fd50  70 68 5f 62 61 72 74 79  70 65 25 3c 3e 33 3a 52  |ph_bartype%<>3:R|
0000fd60  25 3d 31 0d 49 0c 14 e7  ac 67 72 61 70 68 5f 33  |%=1.I....graph_3|
0000fd70  44 25 3a 52 25 3d 30 0d  49 16 24 4d 3d 30 3a e7  |D%:R%=0.I.$M=0:.|
0000fd80  28 67 72 61 70 68 5f 62  61 72 6d 61 72 67 69 6e  |(graph_barmargin|
0000fd90  25 80 31 29 3d 31 3a 4d  2b 3d 31 0d 49 20 24 e7  |%.1)=1:M+=1.I $.|
0000fda0  28 67 72 61 70 68 5f 62  61 72 6d 61 72 67 69 6e  |(graph_barmargin|
0000fdb0  25 80 31 32 38 29 3d 31  32 38 3a 4d 2b 3d 31 0d  |%.128)=128:M+=1.|
0000fdc0  49 2a 3e e7 67 72 61 70  68 5f 62 61 72 74 79 70  |I*>.graph_bartyp|
0000fdd0  65 25 3e 31 30 3a 4c 25  3d 31 38 30 30 30 30 2d  |e%>10:L%=180000-|
0000fde0  52 25 2a 31 35 30 30 30  3a 8b 20 4c 25 3d 32 38  |R%*15000:. L%=28|
0000fdf0  30 30 30 30 2d 52 25 2a  31 35 30 30 30 0d 49 34  |0000-R%*15000.I4|
0000fe00  18 c8 8e 67 72 61 70 68  5f 62 61 72 74 79 70 65  |...graph_bartype|
0000fe10  25 83 31 30 ca 0d 49 3e  07 20 c9 31 0d 49 48 29  |%.10..I>. .1.IH)|
0000fe20  20 24 74 65 78 74 25 3d  22 47 72 61 70 68 20 61  | $text%="Graph a|
0000fe30  64 6a 61 63 65 6e 74 3a  22 3a f2 75 70 64 61 74  |djacent:":.updat|
0000fe40  65 5f 74 6f 70 0d 49 52  28 20 67 72 61 70 68 5f  |e_top.IR( graph_|
0000fe50  62 61 72 73 69 7a 65 3d  4c 25 2f 28 64 61 74 61  |barsize=L%/(data|
0000fe60  5f 6c 65 6e 67 74 68 25  2a 4e 2b 4d 29 0d 49 5c  |_length%*N+M).I\|
0000fe70  24 20 67 72 61 70 68 5f  67 72 6f 75 70 73 69 7a  |$ graph_groupsiz|
0000fe80  65 3d 67 72 61 70 68 5f  62 61 72 73 69 7a 65 2a  |e=graph_barsize*|
0000fe90  4e 0d 49 66 21 20 67 72  61 70 68 5f 62 61 72 77  |N.If! graph_barw|
0000fea0  69 64 74 68 3d 67 72 61  70 68 5f 62 61 72 73 69  |idth=graph_barsi|
0000feb0  7a 65 0d 49 70 07 20 c9  32 0d 49 7a 2b 20 24 74  |ze.Ip. .2.Iz+ $t|
0000fec0  65 78 74 25 3d 22 47 72  61 70 68 20 69 6e 64 69  |ext%="Graph indi|
0000fed0  76 69 64 75 61 6c 3a 22  3a f2 75 70 64 61 74 65  |vidual:":.update|
0000fee0  5f 74 6f 70 0d 49 84 2b  20 67 72 61 70 68 5f 62  |_top.I.+ graph_b|
0000fef0  61 72 73 69 7a 65 3d 4c  25 2f 28 64 61 74 61 5f  |arsize=L%/(data_|
0000ff00  6c 65 6e 67 74 68 25 2a  4e 2d 2e 35 2b 4d 29 0d  |length%*N-.5+M).|
0000ff10  49 8e 24 20 67 72 61 70  68 5f 67 72 6f 75 70 73  |I.$ graph_groups|
0000ff20  69 7a 65 3d 67 72 61 70  68 5f 62 61 72 73 69 7a  |ize=graph_barsiz|
0000ff30  65 2a 4e 0d 49 98 23 20  67 72 61 70 68 5f 62 61  |e*N.I.# graph_ba|
0000ff40  72 77 69 64 74 68 3d 67  72 61 70 68 5f 62 61 72  |rwidth=graph_bar|
0000ff50  73 69 7a 65 2f 32 0d 49  a2 07 20 c9 33 0d 49 ac  |size/2.I.. .3.I.|
0000ff60  27 20 24 74 65 78 74 25  3d 22 47 72 61 70 68 20  |' $text%="Graph |
0000ff70  6f 66 66 73 65 74 3a 22  3a f2 75 70 64 61 74 65  |offset:":.update|
0000ff80  5f 74 6f 70 0d 49 b6 10  20 e7 67 72 61 70 68 5f  |_top.I.. .graph_|
0000ff90  33 44 25 8c 0d 49 c0 2b  20 20 67 72 61 70 68 5f  |3D%..I.+  graph_|
0000ffa0  67 72 6f 75 70 73 69 7a  65 3d 4c 25 2f 28 64 61  |groupsize=L%/(da|
0000ffb0  74 61 5f 6c 65 6e 67 74  68 25 2d 31 2b 4d 29 0d  |ta_length%-1+M).|
0000ffc0  49 ca 28 20 20 67 72 61  70 68 5f 62 61 72 77 69  |I.(  graph_barwi|
0000ffd0  64 74 68 3d 67 72 61 70  68 5f 67 72 6f 75 70 73  |dth=graph_groups|
0000ffe0  69 7a 65 2a 2e 37 35 0d  49 d4 26 20 20 67 72 61  |ize*.75.I.&  gra|
0000fff0  70 68 5f 62 61 72 73 69  7a 65 3d 67 72 61 70 68  |ph_barsize=graph|
00010000  5f 62 61 72 77 69 64 74  68 2a 2e 37 35 0d 49 de  |_barwidth*.75.I.|
00010010  06 20 cc 0d 49 e8 30 20  20 67 72 61 70 68 5f 62  |. ..I.0  graph_b|
00010020  61 72 77 69 64 74 68 3d  4c 25 2f 28 64 61 74 61  |arwidth=L%/(data|
00010030  5f 6c 65 6e 67 74 68 25  2a 28 4e 2b 31 29 2d 31  |_length%*(N+1)-1|
00010040  2b 4d 29 0d 49 f2 2a 20  20 67 72 61 70 68 5f 67  |+M).I.*  graph_g|
00010050  72 6f 75 70 73 69 7a 65  3d 67 72 61 70 68 5f 62  |roupsize=graph_b|
00010060  61 72 77 69 64 74 68 2a  28 4e 2b 31 29 0d 49 fc  |arwidth*(N+1).I.|
00010070  26 20 20 67 72 61 70 68  5f 62 61 72 73 69 7a 65  |&  graph_barsize|
00010080  3d 67 72 61 70 68 5f 62  61 72 77 69 64 74 68 2a  |=graph_barwidth*|
00010090  2e 37 35 0d 4a 06 06 20  cd 0d 4a 10 07 20 c9 34  |.75.J.. ..J.. .4|
000100a0  0d 4a 1a 28 20 24 74 65  78 74 25 3d 22 47 72 61  |.J.( $text%="Gra|
000100b0  70 68 20 67 72 6f 75 70  65 64 3a 22 3a f2 75 70  |ph grouped:":.up|
000100c0  64 61 74 65 5f 74 6f 70  0d 4a 24 2e 20 67 72 61  |date_top.J$. gra|
000100d0  70 68 5f 62 61 72 73 69  7a 65 3d 4c 25 2f 28 64  |ph_barsize=L%/(d|
000100e0  61 74 61 5f 6c 65 6e 67  74 68 25 2a 28 4e 2b 31  |ata_length%*(N+1|
000100f0  29 2d 31 2b 4d 29 0d 4a  2e 28 20 67 72 61 70 68  |)-1+M).J.( graph|
00010100  5f 67 72 6f 75 70 73 69  7a 65 3d 67 72 61 70 68  |_groupsize=graph|
00010110  5f 62 61 72 73 69 7a 65  2a 28 4e 2b 31 29 0d 4a  |_barsize*(N+1).J|
00010120  38 21 20 67 72 61 70 68  5f 62 61 72 77 69 64 74  |8! graph_barwidt|
00010130  68 3d 67 72 61 70 68 5f  62 61 72 73 69 7a 65 0d  |h=graph_barsize.|
00010140  4a 42 07 20 c9 35 0d 4a  4c 29 20 24 74 65 78 74  |JB. .5.JL) $text|
00010150  25 3d 22 47 72 61 70 68  20 6f 76 65 72 6c 61 69  |%="Graph overlai|
00010160  64 3a 22 3a f2 75 70 64  61 74 65 5f 74 6f 70 0d  |d:":.update_top.|
00010170  4a 56 2d 20 67 72 61 70  68 5f 67 72 6f 75 70 73  |JV- graph_groups|
00010180  69 7a 65 3d 4c 25 2f 28  64 61 74 61 5f 6c 65 6e  |ize=L%/(data_len|
00010190  67 74 68 25 2d 2e 35 2b  4d 2f 32 29 0d 4a 60 14  |gth%-.5+M/2).J`.|
000101a0  20 67 72 61 70 68 5f 62  61 72 73 69 7a 65 3d 30  | graph_barsize=0|
000101b0  0d 4a 6a 25 20 67 72 61  70 68 5f 62 61 72 77 69  |.Jj% graph_barwi|
000101c0  64 74 68 3d 67 72 61 70  68 5f 67 72 6f 75 70 73  |dth=graph_groups|
000101d0  69 7a 65 2f 32 0d 4a 74  05 cb 0d 4a 7e 05 e1 0d  |ize/2.Jt...J~...|
000101e0  4a 88 05 3a 0d 4a 92 18  dd f2 67 72 61 70 68 5f  |J..:.J....graph_|
000101f0  64 61 74 61 73 63 61 6c  65 50 69 65 0d 4a 9c 0a  |datascalePie.J..|
00010200  e3 4e 3d 30 b8 35 0d 4a  a6 38 e7 67 72 6f 75 70  |.N=0.5.J.8.group|
00010210  5f 6d 61 70 25 21 28 4e  2a 34 29 3e 28 64 61 74  |_map%!(N*4)>(dat|
00010220  61 5f 77 69 64 74 68 25  2d 31 29 3a 67 72 6f 75  |a_width%-1):grou|
00010230  70 5f 6d 61 70 25 21 28  4e 2a 34 29 3d 30 0d 4a  |p_map%!(N*4)=0.J|
00010240  b0 05 ed 0d 4a ba 05 e1  0d 4a c4 05 3a 0d 4a ce  |....J....J..:.J.|
00010250  14 dd f2 67 72 61 70 68  5f 64 61 74 61 70 61 72  |...graph_datapar|
00010260  61 0d 4a d8 0c 59 25 3d  26 38 30 30 31 0d 4a e2  |a.J..Y%=&8001.J.|
00010270  09 4d 3d 31 3a f5 0d 4a  ec 11 41 3d 5a 25 3f 59  |.M=1:..J..A=Z%?Y|
00010280  25 3a 59 25 2b 3d 31 0d  4a f6 0e e7 41 3d 34 34  |%:Y%+=1.J...A=44|
00010290  3a 4d 2b 3d 31 0d 4b 00  0e fd 41 3d 31 30 84 41  |:M+=1.K...A=10.A|
000102a0  3d 31 33 0d 4b 0a 11 64  61 74 61 5f 77 69 64 74  |=13.K..data_widt|
000102b0  68 25 3d 4d 0d 4b 14 09  4d 3d 31 3a f5 0d 4b 1e  |h%=M.K..M=1:..K.|
000102c0  11 41 3d 5a 25 3f 59 25  3a 59 25 2b 3d 31 0d 4b  |.A=Z%?Y%:Y%+=1.K|
000102d0  28 13 e7 41 3d 31 30 84  41 3d 31 33 3a 4d 2b 3d  |(..A=10.A=13:M+=|
000102e0  31 0d 4b 32 10 fd 59 25  3d 26 38 30 30 31 2b 56  |1.K2..Y%=&8001+V|
000102f0  25 0d 4b 3c 12 64 61 74  61 5f 6c 65 6e 67 74 68  |%.K<.data_length|
00010300  25 3d 4d 0d 4b 46 21 e7  67 72 61 70 68 5f 74 79  |%=M.KF!.graph_ty|
00010310  70 65 25 3d 31 3a 64 61  74 61 5f 77 69 64 74 68  |pe%=1:data_width|
00010320  25 2d 3d 31 0d 4b 50 3b  e3 4e 3d 30 b8 35 3a e7  |%-=1.KP;.N=0.5:.|
00010330  67 72 6f 75 70 5f 6d 61  70 25 21 28 4e 2a 34 29  |group_map%!(N*4)|
00010340  3e 64 61 74 61 5f 77 69  64 74 68 25 3a 67 72 6f  |>data_width%:gro|
00010350  75 70 5f 6d 61 70 25 21  28 4e 2a 34 29 3d 30 0d  |up_map%!(N*4)=0.|
00010360  4b 5a 23 ed 3a e7 67 72  61 70 68 5f 74 79 70 65  |KZ#.:.graph_type|
00010370  25 3d 31 3a 64 61 74 61  5f 77 69 64 74 68 25 2b  |%=1:data_width%+|
00010380  3d 31 0d 4b 64 05 e1 0d  4b 6e 05 3a 0d 4b 78 16  |=1.Kd...Kn.:.Kx.|
00010390  dd f2 67 72 61 70 68 5f  73 65 61 72 63 68 6d 69  |..graph_searchmi|
000103a0  6e 78 0d 4b 82 25 24 74  65 78 74 25 3d 22 4d 69  |nx.K.%$text%="Mi|
000103b0  6e 69 6d 75 6d 20 78 22  3a f2 75 70 64 61 74 65  |nimum x":.update|
000103c0  5f 62 6f 74 74 6f 6d 0d  4b 8c 1e 4d 3d a4 64 61  |_bottom.K..M=.da|
000103d0  74 61 5f 67 65 74 28 21  67 72 6f 75 70 5f 6d 61  |ta_get(!group_ma|
000103e0  70 25 2c 31 29 0d 4b 96  0f e3 67 72 6f 75 70 25  |p%,1).K...group%|
000103f0  3d 30 b8 35 0d 4b a0 1c  78 25 3d 67 72 6f 75 70  |=0.5.K..x%=group|
00010400  5f 6d 61 70 25 21 28 67  72 6f 75 70 25 2a 34 29  |_map%!(group%*4)|
00010410  0d 4b aa 0c e7 20 78 25  3e 30 20 8c 0d 4b b4 17  |.K... x%>0 ..K..|
00010420  20 e3 79 25 3d 31 b8 64  61 74 61 5f 6c 65 6e 67  | .y%=1.data_leng|
00010430  74 68 25 0d 4b be 20 20  58 3d a4 64 61 74 61 5f  |th%.K.  X=.data_|
00010440  67 65 74 28 78 25 2c 79  25 29 3a e7 58 3c 4d 3a  |get(x%,y%):.X<M:|
00010450  4d 3d 58 0d 4b c8 06 20  ed 0d 4b d2 05 cd 0d 4b  |M=X.K.. ..K....K|
00010460  dc 05 ed 0d 4b e6 0f 64  61 74 61 5f 78 6d 69 6e  |....K..data_xmin|
00010470  3d 4d 0d 4b f0 05 e1 0d  4b fa 05 3a 0d 4c 04 16  |=M.K....K..:.L..|
00010480  dd f2 67 72 61 70 68 5f  73 65 61 72 63 68 6d 61  |..graph_searchma|
00010490  78 78 0d 4c 0e 25 24 74  65 78 74 25 3d 22 4d 61  |xx.L.%$text%="Ma|
000104a0  78 69 6d 75 6d 20 78 22  3a f2 75 70 64 61 74 65  |ximum x":.update|
000104b0  5f 62 6f 74 74 6f 6d 0d  4c 18 1e 4d 3d a4 64 61  |_bottom.L..M=.da|
000104c0  74 61 5f 67 65 74 28 21  67 72 6f 75 70 5f 6d 61  |ta_get(!group_ma|
000104d0  70 25 2c 31 29 0d 4c 22  0f e3 67 72 6f 75 70 25  |p%,1).L"..group%|
000104e0  3d 30 b8 35 0d 4c 2c 1c  78 25 3d 67 72 6f 75 70  |=0.5.L,.x%=group|
000104f0  5f 6d 61 70 25 21 28 67  72 6f 75 70 25 2a 34 29  |_map%!(group%*4)|
00010500  0d 4c 36 0c e7 20 78 25  3e 30 20 8c 0d 4c 40 17  |.L6.. x%>0 ..L@.|
00010510  20 e3 79 25 3d 31 b8 64  61 74 61 5f 6c 65 6e 67  | .y%=1.data_leng|
00010520  74 68 25 0d 4c 4a 20 20  59 3d a4 64 61 74 61 5f  |th%.LJ  Y=.data_|
00010530  67 65 74 28 78 25 2c 79  25 29 3a e7 59 3e 4d 3a  |get(x%,y%):.Y>M:|
00010540  4d 3d 59 0d 4c 54 06 20  ed 0d 4c 5e 05 cd 0d 4c  |M=Y.LT. ..L^...L|
00010550  68 05 ed 0d 4c 72 0f 64  61 74 61 5f 78 6d 61 78  |h...Lr.data_xmax|
00010560  3d 4d 0d 4c 7c 05 e1 0d  4c 86 05 3a 0d 4c 90 16  |=M.L|...L..:.L..|
00010570  dd f2 67 72 61 70 68 5f  73 65 61 72 63 68 6d 69  |..graph_searchmi|
00010580  6e 79 0d 4c 9a 25 24 74  65 78 74 25 3d 22 4d 69  |ny.L.%$text%="Mi|
00010590  6e 69 6d 75 6d 20 79 22  3a f2 75 70 64 61 74 65  |nimum y":.update|
000105a0  5f 62 6f 74 74 6f 6d 0d  4c a4 20 4d 3d a4 64 61  |_bottom.L. M=.da|
000105b0  74 61 5f 67 65 74 28 21  67 72 6f 75 70 5f 6d 61  |ta_get(!group_ma|
000105c0  70 25 2b 31 2c 31 29 0d  4c ae 0f e3 67 72 6f 75  |p%+1,1).L...grou|
000105d0  70 25 3d 30 b8 35 0d 4c  b8 1c 78 25 3d 67 72 6f  |p%=0.5.L..x%=gro|
000105e0  75 70 5f 6d 61 70 25 21  28 67 72 6f 75 70 25 2a  |up_map%!(group%*|
000105f0  34 29 0d 4c c2 0c e7 20  78 25 3e 30 20 8c 0d 4c  |4).L... x%>0 ..L|
00010600  cc 17 20 e3 79 25 3d 31  b8 64 61 74 61 5f 6c 65  |.. .y%=1.data_le|
00010610  6e 67 74 68 25 0d 4c d6  22 20 58 3d a4 64 61 74  |ngth%.L." X=.dat|
00010620  61 5f 67 65 74 28 78 25  2b 31 2c 79 25 29 3a e7  |a_get(x%+1,y%):.|
00010630  58 3c 4d 3a 4d 3d 58 0d  4c e0 06 20 ed 0d 4c ea  |X<M:M=X.L.. ..L.|
00010640  05 cd 0d 4c f4 05 ed 0d  4c fe 0f 64 61 74 61 5f  |...L....L..data_|
00010650  79 6d 69 6e 3d 4d 0d 4d  08 05 e1 0d 4d 12 05 3a  |ymin=M.M....M..:|
00010660  0d 4d 1c 16 dd f2 67 72  61 70 68 5f 73 65 61 72  |.M....graph_sear|
00010670  63 68 6d 61 78 79 0d 4d  26 25 24 74 65 78 74 25  |chmaxy.M&%$text%|
00010680  3d 22 4d 61 78 69 6d 75  6d 20 79 22 3a f2 75 70  |="Maximum y":.up|
00010690  64 61 74 65 5f 62 6f 74  74 6f 6d 0d 4d 30 20 4d  |date_bottom.M0 M|
000106a0  3d a4 64 61 74 61 5f 67  65 74 28 21 67 72 6f 75  |=.data_get(!grou|
000106b0  70 5f 6d 61 70 25 2b 31  2c 31 29 0d 4d 3a 0f e3  |p_map%+1,1).M:..|
000106c0  67 72 6f 75 70 25 3d 30  b8 35 0d 4d 44 1c 78 25  |group%=0.5.MD.x%|
000106d0  3d 67 72 6f 75 70 5f 6d  61 70 25 21 28 67 72 6f  |=group_map%!(gro|
000106e0  75 70 25 2a 34 29 0d 4d  4e 0c e7 20 78 25 3e 30  |up%*4).MN.. x%>0|
000106f0  20 8c 0d 4d 58 17 20 e3  79 25 3d 31 b8 64 61 74  | ..MX. .y%=1.dat|
00010700  61 5f 6c 65 6e 67 74 68  25 0d 4d 62 22 20 59 3d  |a_length%.Mb" Y=|
00010710  a4 64 61 74 61 5f 67 65  74 28 78 25 2b 31 2c 79  |.data_get(x%+1,y|
00010720  25 29 3a e7 59 3e 4d 3a  4d 3d 59 0d 4d 6c 06 20  |%):.Y>M:M=Y.Ml. |
00010730  ed 0d 4d 76 05 cd 0d 4d  80 05 ed 0d 4d 8a 0f 64  |..Mv...M....M..d|
00010740  61 74 61 5f 79 6d 61 78  3d 4d 0d 4d 94 05 e1 0d  |ata_ymax=M.M....|
00010750  4d 9e 05 3a 0d 4d a8 16  dd f2 67 72 61 70 68 5f  |M..:.M....graph_|
00010760  73 65 61 72 63 68 6d 69  6e 68 0d 4d b2 2a 24 74  |searchminh.M.*$t|
00010770  65 78 74 25 3d 22 4d 69  6e 69 6d 75 6d 20 68 65  |ext%="Minimum he|
00010780  69 67 68 74 22 3a f2 75  70 64 61 74 65 5f 62 6f  |ight":.update_bo|
00010790  74 74 6f 6d 0d 4d bc 1e  4d 3d a4 64 61 74 61 5f  |ttom.M..M=.data_|
000107a0  67 65 74 28 21 67 72 6f  75 70 5f 6d 61 70 25 2c  |get(!group_map%,|
000107b0  31 29 0d 4d c6 0f e3 67  72 6f 75 70 25 3d 30 b8  |1).M...group%=0.|
000107c0  35 0d 4d d0 1c 78 25 3d  67 72 6f 75 70 5f 6d 61  |5.M..x%=group_ma|
000107d0  70 25 21 28 67 72 6f 75  70 25 2a 34 29 0d 4d da  |p%!(group%*4).M.|
000107e0  0c e7 20 78 25 3e 30 20  8c 0d 4d e4 17 20 e3 79  |.. x%>0 ..M.. .y|
000107f0  25 3d 31 b8 64 61 74 61  5f 6c 65 6e 67 74 68 25  |%=1.data_length%|
00010800  0d 4d ee 20 20 58 3d a4  64 61 74 61 5f 67 65 74  |.M.  X=.data_get|
00010810  28 78 25 2c 79 25 29 3a  e7 58 3c 4d 3a 4d 3d 58  |(x%,y%):.X<M:M=X|
00010820  0d 4d f8 06 20 ed 0d 4e  02 05 cd 0d 4e 0c 05 ed  |.M.. ..N....N...|
00010830  0d 4e 16 0f 64 61 74 61  5f 79 6d 69 6e 3d 4d 0d  |.N..data_ymin=M.|
00010840  4e 20 05 e1 0d 4e 2a 05  3a 0d 4e 34 16 dd f2 67  |N ...N*.:.N4...g|
00010850  72 61 70 68 5f 73 65 61  72 63 68 6d 61 78 68 0d  |raph_searchmaxh.|
00010860  4e 3e 2a 24 74 65 78 74  25 3d 22 4d 61 78 69 6d  |N>*$text%="Maxim|
00010870  75 6d 20 68 65 69 67 68  74 22 3a f2 75 70 64 61  |um height":.upda|
00010880  74 65 5f 62 6f 74 74 6f  6d 0d 4e 48 1e 4d 3d a4  |te_bottom.NH.M=.|
00010890  64 61 74 61 5f 67 65 74  28 21 67 72 6f 75 70 5f  |data_get(!group_|
000108a0  6d 61 70 25 2c 31 29 0d  4e 52 0f e3 67 72 6f 75  |map%,1).NR..grou|
000108b0  70 25 3d 30 b8 35 0d 4e  5c 1c 78 25 3d 67 72 6f  |p%=0.5.N\.x%=gro|
000108c0  75 70 5f 6d 61 70 25 21  28 67 72 6f 75 70 25 2a  |up_map%!(group%*|
000108d0  34 29 0d 4e 66 0c e7 20  78 25 3e 30 20 8c 0d 4e  |4).Nf.. x%>0 ..N|
000108e0  70 17 20 e3 79 25 3d 31  b8 64 61 74 61 5f 6c 65  |p. .y%=1.data_le|
000108f0  6e 67 74 68 25 0d 4e 7a  20 20 59 3d a4 64 61 74  |ngth%.Nz  Y=.dat|
00010900  61 5f 67 65 74 28 78 25  2c 79 25 29 3a e7 59 3e  |a_get(x%,y%):.Y>|
00010910  4d 3a 4d 3d 59 0d 4e 84  06 20 ed 0d 4e 8e 05 cd  |M:M=Y.N.. ..N...|
00010920  0d 4e 98 05 ed 0d 4e a2  0f 64 61 74 61 5f 79 6d  |.N....N..data_ym|
00010930  61 78 3d 4d 0d 4e ac 05  e1 0d 4e b6 05 3a 0d 4e  |ax=M.N....N..:.N|
00010940  c0 0f dd f2 67 72 61 70  68 5f 62 6f 78 0d 4e ca  |....graph_box.N.|
00010950  16 f4 20 4f 48 3a 20 42  6f 75 6e 64 69 6e 67 20  |.. OH: Bounding |
00010960  62 6f 78 0d 4e d4 6d f2  64 66 69 6c 65 5f 77 70  |box.N.m.dfile_wp|
00010970  75 74 28 32 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(2):.dfile_wpu|
00010980  74 28 32 34 2b 32 30 2a  34 29 3a f2 64 66 69 6c  |t(24+20*4):.dfil|
00010990  65 5f 77 70 75 74 28 30  29 3a f2 64 66 69 6c 65  |e_wput(0):.dfile|
000109a0  5f 77 70 75 74 28 30 29  3a f2 64 66 69 6c 65 5f  |_wput(0):.dfile_|
000109b0  77 70 75 74 28 33 32 30  30 30 30 29 3a f2 64 66  |wput(320000):.df|
000109c0  69 6c 65 5f 77 70 75 74  28 32 32 30 30 30 30 29  |ile_wput(220000)|
000109d0  0d 4e de 9b f2 64 66 69  6c 65 5f 62 70 75 74 28  |.N...dfile_bput(|
000109e0  3f 67 72 61 70 68 5f 62  61 63 6b 25 29 3a f2 64  |?graph_back%):.d|
000109f0  66 69 6c 65 5f 62 70 75  74 28 67 72 61 70 68 5f  |file_bput(graph_|
00010a00  62 61 63 6b 25 3f 31 29  3a f2 64 66 69 6c 65 5f  |back%?1):.dfile_|
00010a10  62 70 75 74 28 67 72 61  70 68 5f 62 61 63 6b 25  |bput(graph_back%|
00010a20  3f 32 29 3a f2 64 66 69  6c 65 5f 62 70 75 74 28  |?2):.dfile_bput(|
00010a30  67 72 61 70 68 5f 62 61  63 6b 25 3f 33 29 3a f2  |graph_back%?3):.|
00010a40  64 66 69 6c 65 5f 77 70  75 74 28 30 29 3a f2 64  |dfile_wput(0):.d|
00010a50  66 69 6c 65 5f 77 70 75  74 28 30 29 3a f2 64 66  |file_wput(0):.df|
00010a60  69 6c 65 5f 77 70 75 74  28 30 29 0d 4e e8 30 f2  |ile_wput(0).N.0.|
00010a70  64 66 69 6c 65 5f 77 70  75 74 28 32 29 3a f2 64  |dfile_wput(2):.d|
00010a80  66 69 6c 65 5f 77 70 75  74 28 30 29 3a f2 64 66  |file_wput(0):.df|
00010a90  69 6c 65 5f 77 70 75 74  28 30 29 0d 4e f2 35 f2  |ile_wput(0).N.5.|
00010aa0  64 66 69 6c 65 5f 77 70  75 74 28 38 29 3a f2 64  |dfile_wput(8):.d|
00010ab0  66 69 6c 65 5f 77 70 75  74 28 33 32 30 30 30 30  |file_wput(320000|
00010ac0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |):.dfile_wput(0)|
00010ad0  0d 4e fc 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |.N.:.dfile_wput(|
00010ae0  38 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 33  |8):.dfile_wput(3|
00010af0  32 30 30 30 30 29 3a f2  64 66 69 6c 65 5f 77 70  |20000):.dfile_wp|
00010b00  75 74 28 32 32 30 30 30  30 29 0d 4f 06 35 f2 64  |ut(220000).O.5.d|
00010b10  66 69 6c 65 5f 77 70 75  74 28 38 29 3a f2 64 66  |file_wput(8):.df|
00010b20  69 6c 65 5f 77 70 75 74  28 30 29 3a f2 64 66 69  |ile_wput(0):.dfi|
00010b30  6c 65 5f 77 70 75 74 28  32 32 30 30 30 30 29 0d  |le_wput(220000).|
00010b40  4f 10 30 f2 64 66 69 6c  65 5f 77 70 75 74 28 38  |O.0.dfile_wput(8|
00010b50  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |):.dfile_wput(0)|
00010b60  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 0d  |:.dfile_wput(0).|
00010b70  4f 1a 12 f2 64 66 69 6c  65 5f 77 70 75 74 28 30  |O...dfile_wput(0|
00010b80  29 0d 4f 24 05 e1 0d 4f  2e 05 3a 0d 4f 38 10 dd  |).O$...O..:.O8..|
00010b90  f2 67 72 61 70 68 5f 61  78 69 73 0d 4f 42 20 24  |.graph_axis.OB $|
00010ba0  74 65 78 74 25 3d 22 41  78 69 73 22 3a f2 75 70  |text%="Axis":.up|
00010bb0  64 61 74 65 5f 62 6f 74  74 6f 6d 0d 4f 4c 27 4d  |date_bottom.OL'M|
00010bc0  3d 30 3a e3 4e 3d 30 b8  35 3a e7 67 72 6f 75 70  |=0:.N=0.5:.group|
00010bd0  5f 6d 61 70 25 21 28 4e  2a 34 29 3e 30 3a 4d 2b  |_map%!(N*4)>0:M+|
00010be0  3d 31 0d 4f 56 15 ed 3a  e7 ac 67 72 61 70 68 5f  |=1.OV..:..graph_|
00010bf0  33 44 25 3a 4d 3d 30 0d  4f 60 32 e7 67 72 61 70  |3D%:M=0.O`2.grap|
00010c00  68 5f 33 44 25 80 67 72  61 70 68 5f 74 79 70 65  |h_3D%.graph_type|
00010c10  25 3d 32 80 67 72 61 70  68 5f 62 61 72 74 79 70  |%=2.graph_bartyp|
00010c20  65 25 3c 3e 33 3a 4d 3d  31 0d 4f 6a 14 e3 4e 3d  |e%<>3:M=1.Oj..N=|
00010c30  30 b8 4d 3a 58 3d 4e 2a  31 35 30 30 30 0d 4f 74  |0.M:X=N*15000.Ot|
00010c40  0e f4 20 4f 48 3a 20 41  78 69 73 0d 4f 7e 6b f2  |.. OH: Axis.O~k.|
00010c50  64 66 69 6c 65 5f 77 70  75 74 28 32 29 3a f2 64  |dfile_wput(2):.d|
00010c60  66 69 6c 65 5f 77 70 75  74 28 32 34 2b 35 36 29  |file_wput(24+56)|
00010c70  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 3a  |:.dfile_wput(0):|
00010c80  f2 64 66 69 6c 65 5f 77  70 75 74 28 30 29 3a f2  |.dfile_wput(0):.|
00010c90  64 66 69 6c 65 5f 77 70  75 74 28 33 30 30 30 30  |dfile_wput(30000|
00010ca0  30 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |0):.dfile_wput(2|
00010cb0  30 30 30 30 30 29 0d 4f  88 40 f2 64 66 69 6c 65  |00000).O.@.dfile|
00010cc0  5f 77 70 75 74 28 2d 31  29 3a f2 64 66 69 6c 65  |_wput(-1):.dfile|
00010cd0  5f 77 70 75 74 28 30 29  3a f2 64 66 69 6c 65 5f  |_wput(0):.dfile_|
00010ce0  77 70 75 74 28 30 29 3a  f2 64 66 69 6c 65 5f 77  |wput(0):.dfile_w|
00010cf0  70 75 74 28 30 29 0d 4f  92 5f f2 64 66 69 6c 65  |put(0).O._.dfile|
00010d00  5f 77 70 75 74 28 32 29  3a f2 64 66 69 6c 65 5f  |_wput(2):.dfile_|
00010d10  77 70 75 74 28 32 30 30  30 30 2b 58 29 3a f2 64  |wput(20000+X):.d|
00010d20  66 69 6c 65 5f 77 70 75  74 28 32 30 30 30 30 2b  |file_wput(20000+|
00010d30  58 2b 28 64 61 74 61 5f  79 6d 61 78 2d 64 61 74  |X+(data_ymax-dat|
00010d40  61 5f 79 6d 69 6e 29 2a  67 72 61 70 68 5f 79 73  |a_ymin)*graph_ys|
00010d50  63 61 6c 65 29 0d 4f 9c  3c f2 64 66 69 6c 65 5f  |cale).O.<.dfile_|
00010d60  77 70 75 74 28 38 29 3a  f2 64 66 69 6c 65 5f 77  |wput(8):.dfile_w|
00010d70  70 75 74 28 32 30 30 30  30 2b 58 29 3a f2 64 66  |put(20000+X):.df|
00010d80  69 6c 65 5f 77 70 75 74  28 32 30 30 30 30 2b 58  |ile_wput(20000+X|
00010d90  29 0d 4f a6 5f f2 64 66  69 6c 65 5f 77 70 75 74  |).O._.dfile_wput|
00010da0  28 38 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(8):.dfile_wput(|
00010db0  32 30 30 30 30 2b 58 2b  28 64 61 74 61 5f 78 6d  |20000+X+(data_xm|
00010dc0  61 78 2d 64 61 74 61 5f  78 6d 69 6e 29 2a 67 72  |ax-data_xmin)*gr|
00010dd0  61 70 68 5f 78 73 63 61  6c 65 29 3a f2 64 66 69  |aph_xscale):.dfi|
00010de0  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 58 29  |le_wput(20000+X)|
00010df0  0d 4f b0 12 f2 64 66 69  6c 65 5f 77 70 75 74 28  |.O...dfile_wput(|
00010e00  30 29 0d 4f ba 05 ed 0d  4f c4 11 e7 ac 67 72 61  |0).O....O....gra|
00010e10  70 68 5f 33 44 25 3a e1  0d 4f ce 05 3a 0d 4f d8  |ph_3D%:..O..:.O.|
00010e20  72 f2 64 66 69 6c 65 5f  77 70 75 74 28 32 29 3a  |r.dfile_wput(2):|
00010e30  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 34 2b 31  |.dfile_wput(24+1|
00010e40  36 2b 36 2a 31 32 2b 34  29 3a f2 64 66 69 6c 65  |6+6*12+4):.dfile|
00010e50  5f 77 70 75 74 28 30 29  3a f2 64 66 69 6c 65 5f  |_wput(0):.dfile_|
00010e60  77 70 75 74 28 30 29 3a  f2 64 66 69 6c 65 5f 77  |wput(0):.dfile_w|
00010e70  70 75 74 28 33 30 30 30  30 30 29 3a f2 64 66 69  |put(300000):.dfi|
00010e80  6c 65 5f 77 70 75 74 28  32 30 30 30 30 30 29 0d  |le_wput(200000).|
00010e90  4f e2 40 f2 64 66 69 6c  65 5f 77 70 75 74 28 2d  |O.@.dfile_wput(-|
00010ea0  31 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 30  |1):.dfile_wput(0|
00010eb0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |):.dfile_wput(0)|
00010ec0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 0d  |:.dfile_wput(0).|
00010ed0  4f ec 5b f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |O.[.dfile_wput(2|
00010ee0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
00010ef0  30 30 30 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |000):.dfile_wput|
00010f00  28 32 30 30 30 30 2b 28  64 61 74 61 5f 79 6d 61  |(20000+(data_yma|
00010f10  78 2d 64 61 74 61 5f 79  6d 69 6e 29 2a 67 72 61  |x-data_ymin)*gra|
00010f20  70 68 5f 79 73 63 61 6c  65 29 0d 4f f6 5f f2 64  |ph_yscale).O._.d|
00010f30  66 69 6c 65 5f 77 70 75  74 28 38 29 3a f2 64 66  |file_wput(8):.df|
00010f40  69 6c 65 5f 77 70 75 74  28 32 30 30 30 30 2b 58  |ile_wput(20000+X|
00010f50  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
00010f60  30 30 30 2b 58 2b 28 64  61 74 61 5f 79 6d 61 78  |000+X+(data_ymax|
00010f70  2d 64 61 74 61 5f 79 6d  69 6e 29 2a 67 72 61 70  |-data_ymin)*grap|
00010f80  68 5f 79 73 63 61 6c 65  29 0d 50 00 38 f2 64 66  |h_yscale).P.8.df|
00010f90  69 6c 65 5f 77 70 75 74  28 32 29 3a f2 64 66 69  |ile_wput(2):.dfi|
00010fa0  6c 65 5f 77 70 75 74 28  32 30 30 30 30 29 3a f2  |le_wput(20000):.|
00010fb0  64 66 69 6c 65 5f 77 70  75 74 28 32 30 30 30 30  |dfile_wput(20000|
00010fc0  29 0d 50 0a 3c f2 64 66  69 6c 65 5f 77 70 75 74  |).P.<.dfile_wput|
00010fd0  28 38 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(8):.dfile_wput(|
00010fe0  32 30 30 30 30 2b 58 29  3a f2 64 66 69 6c 65 5f  |20000+X):.dfile_|
00010ff0  77 70 75 74 28 32 30 30  30 30 2b 58 29 0d 50 14  |wput(20000+X).P.|
00011000  5b f2 64 66 69 6c 65 5f  77 70 75 74 28 32 29 3a  |[.dfile_wput(2):|
00011010  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 30 30 30  |.dfile_wput(2000|
00011020  30 2b 28 64 61 74 61 5f  78 6d 61 78 2d 64 61 74  |0+(data_xmax-dat|
00011030  61 5f 78 6d 69 6e 29 2a  67 72 61 70 68 5f 78 73  |a_xmin)*graph_xs|
00011040  63 61 6c 65 29 3a f2 64  66 69 6c 65 5f 77 70 75  |cale):.dfile_wpu|
00011050  74 28 32 30 30 30 30 29  0d 50 1e 5f f2 64 66 69  |t(20000).P._.dfi|
00011060  6c 65 5f 77 70 75 74 28  38 29 3a f2 64 66 69 6c  |le_wput(8):.dfil|
00011070  65 5f 77 70 75 74 28 32  30 30 30 30 2b 58 2b 28  |e_wput(20000+X+(|
00011080  64 61 74 61 5f 78 6d 61  78 2d 64 61 74 61 5f 78  |data_xmax-data_x|
00011090  6d 69 6e 29 2a 67 72 61  70 68 5f 78 73 63 61 6c  |min)*graph_xscal|
000110a0  65 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |e):.dfile_wput(2|
000110b0  30 30 30 30 2b 58 29 0d  50 28 12 f2 64 66 69 6c  |0000+X).P(..dfil|
000110c0  65 5f 77 70 75 74 28 30  29 0d 50 32 05 e1 0d 50  |e_wput(0).P2...P|
000110d0  3c 05 3a 0d 50 46 10 dd  f2 67 72 61 70 68 5f 78  |<.:.PF...graph_x|
000110e0  64 69 76 0d 50 50 27 24  74 65 78 74 25 3d 22 58  |div.PP'$text%="X|
000110f0  20 64 69 76 69 73 69 6f  6e 73 22 3a f2 75 70 64  | divisions":.upd|
00011100  61 74 65 5f 62 6f 74 74  6f 6d 0d 50 5a 15 f4 20  |ate_bottom.PZ.. |
00011110  4f 48 3a 20 58 20 64 69  76 69 73 69 6f 6e 73 0d  |OH: X divisions.|
00011120  50 64 29 41 25 3d 28 64  61 74 61 5f 78 6d 61 78  |Pd)A%=(data_xmax|
00011130  2d 64 61 74 61 5f 78 6d  69 6e 29 20 2f 20 67 72  |-data_xmin) / gr|
00011140  61 70 68 5f 78 64 69 76  0d 50 6e 1f 42 25 3d 67  |aph_xdiv.Pn.B%=g|
00011150  72 61 70 68 5f 78 64 69  76 20 2f 20 67 72 61 70  |raph_xdiv / grap|
00011160  68 5f 78 73 64 69 76 0d  50 78 7d f2 64 66 69 6c  |h_xsdiv.Px}.dfil|
00011170  65 5f 77 70 75 74 28 32  29 3a f2 64 66 69 6c 65  |e_wput(2):.dfile|
00011180  5f 77 70 75 74 28 32 34  2b 31 36 2b 28 28 41 25  |_wput(24+16+((A%|
00011190  2b 41 25 2a 42 25 29 2a  32 34 29 2b 34 29 3a f2  |+A%*B%)*24)+4):.|
000111a0  64 66 69 6c 65 5f 77 70  75 74 28 30 29 3a f2 64  |dfile_wput(0):.d|
000111b0  66 69 6c 65 5f 77 70 75  74 28 30 29 3a f2 64 66  |file_wput(0):.df|
000111c0  69 6c 65 5f 77 70 75 74  28 33 30 30 30 30 30 29  |ile_wput(300000)|
000111d0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 30 30  |:.dfile_wput(200|
000111e0  30 30 30 29 0d 50 82 40  f2 64 66 69 6c 65 5f 77  |000).P.@.dfile_w|
000111f0  70 75 74 28 2d 31 29 3a  f2 64 66 69 6c 65 5f 77  |put(-1):.dfile_w|
00011200  70 75 74 28 30 29 3a f2  64 66 69 6c 65 5f 77 70  |put(0):.dfile_wp|
00011210  75 74 28 30 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(0):.dfile_wpu|
00011220  74 28 30 29 0d 50 8c 0b  e3 4d 3d 31 b8 41 25 0d  |t(0).P...M=1.A%.|
00011230  50 96 54 f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |P.T.dfile_wput(2|
00011240  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
00011250  30 30 30 2b 28 4d 2a 67  72 61 70 68 5f 78 64 69  |000+(M*graph_xdi|
00011260  76 2a 67 72 61 70 68 5f  78 73 63 61 6c 65 29 29  |v*graph_xscale))|
00011270  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 30 30  |:.dfile_wput(200|
00011280  30 30 29 0d 50 a0 54 f2  64 66 69 6c 65 5f 77 70  |00).P.T.dfile_wp|
00011290  75 74 28 38 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(8):.dfile_wpu|
000112a0  74 28 32 30 30 30 30 2b  28 4d 2a 67 72 61 70 68  |t(20000+(M*graph|
000112b0  5f 78 64 69 76 2a 67 72  61 70 68 5f 78 73 63 61  |_xdiv*graph_xsca|
000112c0  6c 65 29 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |le)):.dfile_wput|
000112d0  28 31 37 30 30 30 29 0d  50 aa 0b e3 4f 3d 31 b8  |(17000).P...O=1.|
000112e0  42 25 0d 50 b4 75 f2 64  66 69 6c 65 5f 77 70 75  |B%.P.u.dfile_wpu|
000112f0  74 28 32 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(2):.dfile_wput|
00011300  28 32 30 30 30 30 2b 28  28 4d 2d 31 29 2a 67 72  |(20000+((M-1)*gr|
00011310  61 70 68 5f 78 64 69 76  2a 67 72 61 70 68 5f 78  |aph_xdiv*graph_x|
00011320  73 63 61 6c 65 29 2b 28  4f 2a 67 72 61 70 68 5f  |scale)+(O*graph_|
00011330  78 73 64 69 76 2a 67 72  61 70 68 5f 78 73 63 61  |xsdiv*graph_xsca|
00011340  6c 65 29 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |le)):.dfile_wput|
00011350  28 32 30 30 30 30 29 0d  50 be 75 f2 64 66 69 6c  |(20000).P.u.dfil|
00011360  65 5f 77 70 75 74 28 38  29 3a f2 64 66 69 6c 65  |e_wput(8):.dfile|
00011370  5f 77 70 75 74 28 32 30  30 30 30 2b 28 28 4d 2d  |_wput(20000+((M-|
00011380  31 29 2a 67 72 61 70 68  5f 78 64 69 76 2a 67 72  |1)*graph_xdiv*gr|
00011390  61 70 68 5f 78 73 63 61  6c 65 29 2b 28 4f 2a 67  |aph_xscale)+(O*g|
000113a0  72 61 70 68 5f 78 73 64  69 76 2a 67 72 61 70 68  |raph_xsdiv*graph|
000113b0  5f 78 73 63 61 6c 65 29  29 3a f2 64 66 69 6c 65  |_xscale)):.dfile|
000113c0  5f 77 70 75 74 28 31 38  30 30 30 29 0d 50 c8 05  |_wput(18000).P..|
000113d0  ed 0d 50 d2 05 ed 0d 50  dc 12 f2 64 66 69 6c 65  |..P....P...dfile|
000113e0  5f 77 70 75 74 28 30 29  0d 50 e6 2b 24 74 65 78  |_wput(0).P.+$tex|
000113f0  74 25 3d 22 58 20 64 69  76 69 73 69 6f 6e 20 74  |t%="X division t|
00011400  65 78 74 22 3a f2 75 70  64 61 74 65 5f 62 6f 74  |ext":.update_bot|
00011410  74 6f 6d 0d 50 f0 19 f4  20 4f 48 3a 20 58 20 64  |tom.P... OH: X d|
00011420  69 76 69 73 69 6f 6e 20  74 65 78 74 0d 50 fa 0b  |ivision text.P..|
00011430  e3 4d 3d 30 b8 41 25 0d  51 04 2e 24 28 62 6c 6f  |.M=0.A%.Q..$(blo|
00011440  63 6b 25 29 3d c3 28 64  61 74 61 5f 78 6d 69 6e  |ck%)=.(data_xmin|
00011450  2b 4d 2a 67 72 61 70 68  5f 78 64 69 76 29 2b c4  |+M*graph_xdiv)+.|
00011460  34 2c bd 30 29 0d 51 0e  19 4f 3d 30 3a f5 4f 2b  |4,.0).Q..O=0:.O+|
00011470  3d 31 3a fd 62 6c 6f 63  6b 25 3f 4f 3d 30 0d 51  |=1:.block%?O=0.Q|
00011480  18 0f 4f 2b 3d 34 2d 28  4f 20 83 34 29 0d 51 22  |..O+=4-(O .4).Q"|
00011490  14 e7 74 65 78 74 5f 61  78 69 73 63 3c 3e 30 20  |..text_axisc<>0 |
000114a0  8c 0d 51 2c 54 20 c8 99  22 46 6f 6e 74 5f 46 69  |..Q,T .."Font_Fi|
000114b0  6e 64 46 6f 6e 74 22 2c  2c 66 6f 6e 74 5f 6c 69  |ndFont",,font_li|
000114c0  73 74 25 2b 74 65 78 74  5f 61 78 69 73 63 2a 34  |st%+text_axisc*4|
000114d0  30 2c 74 65 78 74 5f 61  78 69 73 78 2a 31 36 2c  |0,text_axisx*16,|
000114e0  74 65 78 74 5f 61 78 69  73 79 2a 31 36 2c 30 2c  |text_axisy*16,0,|
000114f0  30 20 b8 20 4e 0d 51 36  4a 20 c8 99 22 46 6f 6e  |0 . N.Q6J .."Fon|
00011500  74 5f 53 74 72 69 6e 67  57 69 64 74 68 22 2c 2c  |t_StringWidth",,|
00011510  62 6c 6f 63 6b 25 2c 33  30 30 30 30 30 2c 32 30  |block%,300000,20|
00011520  30 30 30 30 2c 2d 31 2c  62 6c 6f 63 6b 25 2b a4  |0000,-1,block%+.|
00011530  6c 65 6e 28 62 6c 6f 63  6b 25 29 b8 2c 2c 58 0d  |len(block%).,,X.|
00011540  51 40 18 20 c8 99 22 46  6f 6e 74 5f 4c 6f 73 65  |Q@. .."Font_Lose|
00011550  46 6f 6e 74 22 2c 4e 0d  51 4a 05 cc 0d 51 54 22  |Font",N.QJ...QT"|
00011560  58 3d 74 65 78 74 5f 61  78 69 73 78 2a 31 30 30  |X=text_axisx*100|
00011570  30 2a a4 6c 65 6e 28 62  6c 6f 63 6b 25 29 0d 51  |0*.len(block%).Q|
00011580  5e 05 cd 0d 51 68 10 58  3d 58 2a 33 32 30 2f 31  |^...Qh.X=X*320/1|
00011590  30 30 30 0d 51 72 6d f2  64 66 69 6c 65 5f 77 70  |000.Qrm.dfile_wp|
000115a0  75 74 28 31 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(1):.dfile_wpu|
000115b0  74 28 32 34 2b 32 38 2b  4f 29 3a f2 64 66 69 6c  |t(24+28+O):.dfil|
000115c0  65 5f 77 70 75 74 28 30  29 3a f2 64 66 69 6c 65  |e_wput(0):.dfile|
000115d0  5f 77 70 75 74 28 30 29  3a f2 64 66 69 6c 65 5f  |_wput(0):.dfile_|
000115e0  77 70 75 74 28 33 30 30  30 30 30 29 3a f2 64 66  |wput(300000):.df|
000115f0  69 6c 65 5f 77 70 75 74  28 32 30 30 30 30 30 29  |ile_wput(200000)|
00011600  0d 51 7c 7d f2 64 66 69  6c 65 5f 77 70 75 74 28  |.Q|}.dfile_wput(|
00011610  30 29 3a f2 64 66 69 6c  65 5f 62 70 75 74 28 3f  |0):.dfile_bput(?|
00011620  67 72 61 70 68 5f 62 61  63 6b 25 29 3a f2 64 66  |graph_back%):.df|
00011630  69 6c 65 5f 62 70 75 74  28 67 72 61 70 68 5f 62  |ile_bput(graph_b|
00011640  61 63 6b 25 3f 31 29 3a  f2 64 66 69 6c 65 5f 62  |ack%?1):.dfile_b|
00011650  70 75 74 28 67 72 61 70  68 5f 62 61 63 6b 25 3f  |put(graph_back%?|
00011660  32 29 3a f2 64 66 69 6c  65 5f 62 70 75 74 28 67  |2):.dfile_bput(g|
00011670  72 61 70 68 5f 62 61 63  6b 25 3f 33 29 0d 51 86  |raph_back%?3).Q.|
00011680  bb f2 64 66 69 6c 65 5f  77 70 75 74 28 67 72 61  |..dfile_wput(gra|
00011690  70 68 5f 61 78 69 73 63  29 3a f2 64 66 69 6c 65  |ph_axisc):.dfile|
000116a0  5f 77 70 75 74 28 36 34  30 2a 74 65 78 74 5f 61  |_wput(640*text_a|
000116b0  78 69 73 78 29 3a f2 64  66 69 6c 65 5f 77 70 75  |xisx):.dfile_wpu|
000116c0  74 28 36 34 30 2a 74 65  78 74 5f 61 78 69 73 79  |t(640*text_axisy|
000116d0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
000116e0  30 30 30 2b 28 4d 2a 67  72 61 70 68 5f 78 64 69  |000+(M*graph_xdi|
000116f0  76 2a 67 72 61 70 68 5f  78 73 63 61 6c 65 29 2d  |v*graph_xscale)-|
00011700  58 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 31  |X):.dfile_wput(1|
00011710  35 30 30 30 2d 33 38 30  2a 74 65 78 74 5f 61 78  |5000-380*text_ax|
00011720  69 73 79 29 3a f2 64 66  69 6c 65 5f 73 70 75 74  |isy):.dfile_sput|
00011730  28 62 6c 6f 63 6b 25 29  0d 51 90 05 ed 0d 51 9a  |(block%).Q....Q.|
00011740  05 e1 0d 51 a4 05 3a 0d  51 ae 17 dd f2 67 72 61  |...Q..:.Q....gra|
00011750  70 68 5f 78 64 69 76 67  72 69 64 28 4e 29 0d 51  |ph_xdivgrid(N).Q|
00011760  b8 39 e7 4e 3d 30 3a 24  74 65 78 74 25 3d 22 58  |.9.N=0:$text%="X|
00011770  20 67 72 69 64 20 28 73  6f 6c 69 64 29 22 8b 24  | grid (solid)".$|
00011780  74 65 78 74 25 3d 22 58  20 67 72 69 64 20 28 64  |text%="X grid (d|
00011790  6f 74 74 65 64 29 22 0d  51 c2 12 f2 75 70 64 61  |otted)".Q...upda|
000117a0  74 65 5f 62 6f 74 74 6f  6d 0d 51 cc 14 52 25 3d  |te_bottom.Q..R%=|
000117b0  30 3a e3 67 72 6f 75 70  25 3d 30 b8 35 0d 51 d6  |0:.group%=0.5.Q.|
000117c0  22 e7 67 72 6f 75 70 5f  6d 61 70 25 21 28 67 72  |".group_map%!(gr|
000117d0  6f 75 70 25 2a 34 29 3e  30 3a 52 25 2b 3d 31 0d  |oup%*4)>0:R%+=1.|
000117e0  51 e0 05 ed 0d 51 ea 33  e7 67 72 61 70 68 5f 33  |Q....Q.3.graph_3|
000117f0  44 25 80 67 72 61 70 68  5f 74 79 70 65 25 3d 32  |D%.graph_type%=2|
00011800  80 67 72 61 70 68 5f 62  61 72 74 79 70 65 25 3c  |.graph_bartype%<|
00011810  3e 33 3a 52 25 3d 31 0d  51 f4 14 e7 ac 67 72 61  |>3:R%=1.Q....gra|
00011820  70 68 5f 33 44 25 3a 52  25 3d 30 0d 51 fe 05 3a  |ph_3D%:R%=0.Q..:|
00011830  0d 52 08 1a f4 20 4f 48  3a 20 58 20 64 69 76 69  |.R... OH: X divi|
00011840  73 69 6f 6e 73 20 67 72  69 64 0d 52 12 29 41 25  |sions grid.R.)A%|
00011850  3d 28 64 61 74 61 5f 78  6d 61 78 2d 64 61 74 61  |=(data_xmax-data|
00011860  5f 78 6d 69 6e 29 20 2f  20 67 72 61 70 68 5f 78  |_xmin) / graph_x|
00011870  64 69 76 0d 52 1c 11 4d  3d 30 3a e7 52 25 3e 30  |div.R..M=0:.R%>0|
00011880  3a 4d 3d 31 0d 52 26 15  4c 25 3d 30 3a e7 4e 3d  |:M=1.R&.L%=0:.N=|
00011890  31 32 38 3a 4c 25 3d 31  36 0d 52 30 80 f2 64 66  |128:L%=16.R0..df|
000118a0  69 6c 65 5f 77 70 75 74  28 32 29 3a f2 64 66 69  |ile_wput(2):.dfi|
000118b0  6c 65 5f 77 70 75 74 28  32 34 2b 31 36 2b 4c 25  |le_wput(24+16+L%|
000118c0  2b 28 41 25 2a 32 34 29  2b 4d 2a 31 32 2a 41 25  |+(A%*24)+M*12*A%|
000118d0  2b 34 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |+4):.dfile_wput(|
000118e0  30 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 30  |0):.dfile_wput(0|
000118f0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 33 30  |):.dfile_wput(30|
00011900  30 30 30 30 29 3a f2 64  66 69 6c 65 5f 77 70 75  |0000):.dfile_wpu|
00011910  74 28 32 30 30 30 30 30  29 0d 52 3a 40 f2 64 66  |t(200000).R:@.df|
00011920  69 6c 65 5f 77 70 75 74  28 2d 31 29 3a f2 64 66  |ile_wput(-1):.df|
00011930  69 6c 65 5f 77 70 75 74  28 30 29 3a f2 64 66 69  |ile_wput(0):.dfi|
00011940  6c 65 5f 77 70 75 74 28  30 29 3a f2 64 66 69 6c  |le_wput(0):.dfil|
00011950  65 5f 77 70 75 74 28 4e  29 0d 52 44 4c e7 4e 3d  |e_wput(N).RDL.N=|
00011960  31 32 38 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |128:.dfile_wput(|
00011970  30 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |0):.dfile_wput(2|
00011980  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 34 30  |):.dfile_wput(40|
00011990  30 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |00):.dfile_wput(|
000119a0  33 30 30 30 29 0d 52 4e  0b e3 4d 3d 31 b8 41 25  |3000).RN..M=1.A%|
000119b0  0d 52 58 54 f2 64 66 69  6c 65 5f 77 70 75 74 28  |.RXT.dfile_wput(|
000119c0  32 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |2):.dfile_wput(2|
000119d0  30 30 30 30 2b 28 4d 2a  67 72 61 70 68 5f 78 64  |0000+(M*graph_xd|
000119e0  69 76 2a 67 72 61 70 68  5f 78 73 63 61 6c 65 29  |iv*graph_xscale)|
000119f0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
00011a00  30 30 30 29 0d 52 62 6c  e7 52 25 3e 30 3a f2 64  |000).Rbl.R%>0:.d|
00011a10  66 69 6c 65 5f 77 70 75  74 28 38 29 3a f2 64 66  |file_wput(8):.df|
00011a20  69 6c 65 5f 77 70 75 74  28 32 30 30 30 30 2b 28  |ile_wput(20000+(|
00011a30  4d 2a 67 72 61 70 68 5f  78 64 69 76 2a 67 72 61  |M*graph_xdiv*gra|
00011a40  70 68 5f 78 73 63 61 6c  65 29 2b 52 25 2a 31 35  |ph_xscale)+R%*15|
00011a50  30 30 30 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |000):.dfile_wput|
00011a60  28 32 30 30 30 30 2b 52  25 2a 31 35 30 30 30 29  |(20000+R%*15000)|
00011a70  0d 52 6c 5e f2 64 66 69  6c 65 5f 77 70 75 74 28  |.Rl^.dfile_wput(|
00011a80  38 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |8):.dfile_wput(2|
00011a90  30 30 30 30 2b 28 4d 2a  67 72 61 70 68 5f 78 64  |0000+(M*graph_xd|
00011aa0  69 76 2a 67 72 61 70 68  5f 78 73 63 61 6c 65 29  |iv*graph_xscale)|
00011ab0  2b 52 25 2a 31 35 30 30  30 29 3a f2 64 66 69 6c  |+R%*15000):.dfil|
00011ac0  65 5f 77 70 75 74 28 32  30 30 30 30 30 29 0d 52  |e_wput(200000).R|
00011ad0  76 05 ed 0d 52 80 12 f2  64 66 69 6c 65 5f 77 70  |v...R...dfile_wp|
00011ae0  75 74 28 30 29 0d 52 8a  05 e1 0d 52 94 05 3a 0d  |ut(0).R....R..:.|
00011af0  52 9e 14 dd f2 67 72 61  70 68 5f 78 65 64 67 65  |R....graph_xedge|
00011b00  28 4e 29 0d 52 a8 39 e7  4e 3d 30 3a 24 74 65 78  |(N).R.9.N=0:$tex|
00011b10  74 25 3d 22 58 20 65 64  67 65 20 28 73 6f 6c 69  |t%="X edge (soli|
00011b20  64 29 22 8b 24 74 65 78  74 25 3d 22 58 20 65 64  |d)".$text%="X ed|
00011b30  67 65 20 28 64 6f 74 74  65 64 29 22 0d 52 b2 12  |ge (dotted)".R..|
00011b40  f2 75 70 64 61 74 65 5f  62 6f 74 74 6f 6d 0d 52  |.update_bottom.R|
00011b50  bc 10 f4 20 4f 48 3a 20  58 20 65 64 67 65 0d 52  |... OH: X edge.R|
00011b60  c6 15 4c 25 3d 30 3a e7  4e 3d 31 32 38 3a 4c 25  |..L%=0:.N=128:L%|
00011b70  3d 31 36 0d 52 d0 73 f2  64 66 69 6c 65 5f 77 70  |=16.R.s.dfile_wp|
00011b80  75 74 28 32 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(2):.dfile_wpu|
00011b90  74 28 32 34 2b 31 36 2b  4c 25 2b 32 34 2b 34 29  |t(24+16+L%+24+4)|
00011ba0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 3a  |:.dfile_wput(0):|
00011bb0  f2 64 66 69 6c 65 5f 77  70 75 74 28 30 29 3a f2  |.dfile_wput(0):.|
00011bc0  64 66 69 6c 65 5f 77 70  75 74 28 33 30 30 30 30  |dfile_wput(30000|
00011bd0  30 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |0):.dfile_wput(2|
00011be0  30 30 30 30 30 29 0d 52  da 40 f2 64 66 69 6c 65  |00000).R.@.dfile|
00011bf0  5f 77 70 75 74 28 2d 31  29 3a f2 64 66 69 6c 65  |_wput(-1):.dfile|
00011c00  5f 77 70 75 74 28 30 29  3a f2 64 66 69 6c 65 5f  |_wput(0):.dfile_|
00011c10  77 70 75 74 28 30 29 3a  f2 64 66 69 6c 65 5f 77  |wput(0):.dfile_w|
00011c20  70 75 74 28 4e 29 0d 52  e4 4c e7 4e 3d 31 32 38  |put(N).R.L.N=128|
00011c30  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 3a  |:.dfile_wput(0):|
00011c40  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 29 3a f2  |.dfile_wput(2):.|
00011c50  64 66 69 6c 65 5f 77 70  75 74 28 34 30 30 30 29  |dfile_wput(4000)|
00011c60  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 33 30 30  |:.dfile_wput(300|
00011c70  30 29 0d 52 ee 42 f2 64  66 69 6c 65 5f 77 70 75  |0).R.B.dfile_wpu|
00011c80  74 28 32 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(2):.dfile_wput|
00011c90  28 33 30 30 30 30 30 29  3a f2 64 66 69 6c 65 5f  |(300000):.dfile_|
00011ca0  77 70 75 74 28 32 30 30  30 30 2b 52 25 2a 31 35  |wput(20000+R%*15|
00011cb0  30 30 30 29 0d 52 f8 3a  f2 64 66 69 6c 65 5f 77  |000).R.:.dfile_w|
00011cc0  70 75 74 28 38 29 3a f2  64 66 69 6c 65 5f 77 70  |put(8):.dfile_wp|
00011cd0  75 74 28 33 30 30 30 30  30 29 3a f2 64 66 69 6c  |ut(300000):.dfil|
00011ce0  65 5f 77 70 75 74 28 32  30 30 30 30 30 29 0d 53  |e_wput(200000).S|
00011cf0  02 12 f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |...dfile_wput(0)|
00011d00  0d 53 0c 05 e1 0d 53 16  05 3a 0d 53 20 10 dd f2  |.S....S..:.S ...|
00011d10  67 72 61 70 68 5f 79 64  69 76 0d 53 2a 27 24 74  |graph_ydiv.S*'$t|
00011d20  65 78 74 25 3d 22 59 20  64 69 76 69 73 69 6f 6e  |ext%="Y division|
00011d30  73 22 3a f2 75 70 64 61  74 65 5f 62 6f 74 74 6f  |s":.update_botto|
00011d40  6d 0d 53 34 15 f4 20 4f  48 3a 20 59 20 64 69 76  |m.S4.. OH: Y div|
00011d50  69 73 69 6f 6e 73 0d 53  3e 29 41 25 3d 28 64 61  |isions.S>)A%=(da|
00011d60  74 61 5f 79 6d 61 78 2d  64 61 74 61 5f 79 6d 69  |ta_ymax-data_ymi|
00011d70  6e 29 20 2f 20 67 72 61  70 68 5f 79 64 69 76 0d  |n) / graph_ydiv.|
00011d80  53 48 1f 42 25 3d 67 72  61 70 68 5f 79 64 69 76  |SH.B%=graph_ydiv|
00011d90  20 2f 20 67 72 61 70 68  5f 79 73 64 69 76 0d 53  | / graph_ysdiv.S|
00011da0  52 7d f2 64 66 69 6c 65  5f 77 70 75 74 28 32 29  |R}.dfile_wput(2)|
00011db0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 34 2b  |:.dfile_wput(24+|
00011dc0  31 36 2b 28 28 41 25 2b  41 25 2a 42 25 29 2a 32  |16+((A%+A%*B%)*2|
00011dd0  34 29 2b 34 29 3a f2 64  66 69 6c 65 5f 77 70 75  |4)+4):.dfile_wpu|
00011de0  74 28 30 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(0):.dfile_wput|
00011df0  28 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(0):.dfile_wput(|
00011e00  33 30 30 30 30 30 29 3a  f2 64 66 69 6c 65 5f 77  |300000):.dfile_w|
00011e10  70 75 74 28 32 30 30 30  30 30 29 0d 53 5c 40 f2  |put(200000).S\@.|
00011e20  64 66 69 6c 65 5f 77 70  75 74 28 2d 31 29 3a f2  |dfile_wput(-1):.|
00011e30  64 66 69 6c 65 5f 77 70  75 74 28 30 29 3a f2 64  |dfile_wput(0):.d|
00011e40  66 69 6c 65 5f 77 70 75  74 28 30 29 3a f2 64 66  |file_wput(0):.df|
00011e50  69 6c 65 5f 77 70 75 74  28 30 29 0d 53 66 0b e3  |ile_wput(0).Sf..|
00011e60  4d 3d 31 b8 41 25 0d 53  70 54 f2 64 66 69 6c 65  |M=1.A%.SpT.dfile|
00011e70  5f 77 70 75 74 28 32 29  3a f2 64 66 69 6c 65 5f  |_wput(2):.dfile_|
00011e80  77 70 75 74 28 32 30 30  30 30 29 3a f2 64 66 69  |wput(20000):.dfi|
00011e90  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 28 4d  |le_wput(20000+(M|
00011ea0  2a 67 72 61 70 68 5f 79  64 69 76 2a 67 72 61 70  |*graph_ydiv*grap|
00011eb0  68 5f 79 73 63 61 6c 65  29 29 0d 53 7a 54 f2 64  |h_yscale)).SzT.d|
00011ec0  66 69 6c 65 5f 77 70 75  74 28 38 29 3a f2 64 66  |file_wput(8):.df|
00011ed0  69 6c 65 5f 77 70 75 74  28 31 37 30 30 30 29 3a  |ile_wput(17000):|
00011ee0  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 30 30 30  |.dfile_wput(2000|
00011ef0  30 2b 28 4d 2a 67 72 61  70 68 5f 79 64 69 76 2a  |0+(M*graph_ydiv*|
00011f00  67 72 61 70 68 5f 79 73  63 61 6c 65 29 29 0d 53  |graph_yscale)).S|
00011f10  84 0b e3 4f 3d 31 b8 42  25 0d 53 8e 75 f2 64 66  |...O=1.B%.S.u.df|
00011f20  69 6c 65 5f 77 70 75 74  28 32 29 3a f2 64 66 69  |ile_wput(2):.dfi|
00011f30  6c 65 5f 77 70 75 74 28  32 30 30 30 30 29 3a f2  |le_wput(20000):.|
00011f40  64 66 69 6c 65 5f 77 70  75 74 28 32 30 30 30 30  |dfile_wput(20000|
00011f50  2b 28 28 4d 2d 31 29 2a  67 72 61 70 68 5f 79 64  |+((M-1)*graph_yd|
00011f60  69 76 2a 67 72 61 70 68  5f 79 73 63 61 6c 65 29  |iv*graph_yscale)|
00011f70  2b 28 4f 2a 67 72 61 70  68 5f 79 73 64 69 76 2a  |+(O*graph_ysdiv*|
00011f80  67 72 61 70 68 5f 79 73  63 61 6c 65 29 29 0d 53  |graph_yscale)).S|
00011f90  98 75 f2 64 66 69 6c 65  5f 77 70 75 74 28 38 29  |.u.dfile_wput(8)|
00011fa0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 31 38 30  |:.dfile_wput(180|
00011fb0  30 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |00):.dfile_wput(|
00011fc0  32 30 30 30 30 2b 28 28  4d 2d 31 29 2a 67 72 61  |20000+((M-1)*gra|
00011fd0  70 68 5f 79 64 69 76 2a  67 72 61 70 68 5f 79 73  |ph_ydiv*graph_ys|
00011fe0  63 61 6c 65 29 2b 28 4f  2a 67 72 61 70 68 5f 79  |cale)+(O*graph_y|
00011ff0  73 64 69 76 2a 67 72 61  70 68 5f 79 73 63 61 6c  |sdiv*graph_yscal|
00012000  65 29 29 0d 53 a2 05 ed  0d 53 ac 05 ed 0d 53 b6  |e)).S....S....S.|
00012010  12 f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 0d  |..dfile_wput(0).|
00012020  53 c0 2b 24 74 65 78 74  25 3d 22 59 20 64 69 76  |S.+$text%="Y div|
00012030  69 73 69 6f 6e 20 74 65  78 74 22 3a f2 75 70 64  |ision text":.upd|
00012040  61 74 65 5f 62 6f 74 74  6f 6d 0d 53 ca 19 f4 20  |ate_bottom.S... |
00012050  4f 48 3a 20 59 20 64 69  76 69 73 69 6f 6e 20 74  |OH: Y division t|
00012060  65 78 74 0d 53 d4 0b e3  4d 3d 30 b8 41 25 0d 53  |ext.S...M=0.A%.S|
00012070  de 2e 24 28 62 6c 6f 63  6b 25 29 3d c3 28 64 61  |..$(block%)=.(da|
00012080  74 61 5f 79 6d 69 6e 2b  4d 2a 67 72 61 70 68 5f  |ta_ymin+M*graph_|
00012090  79 64 69 76 29 2b c4 34  2c bd 30 29 0d 53 e8 19  |ydiv)+.4,.0).S..|
000120a0  4f 3d 30 3a f5 4f 2b 3d  31 3a fd 62 6c 6f 63 6b  |O=0:.O+=1:.block|
000120b0  25 3f 4f 3d 30 0d 53 f2  0f 4f 2b 3d 34 2d 28 4f  |%?O=0.S..O+=4-(O|
000120c0  20 83 34 29 0d 53 fc 14  e7 74 65 78 74 5f 61 78  | .4).S...text_ax|
000120d0  69 73 63 3c 3e 30 20 8c  0d 54 06 54 20 c8 99 22  |isc<>0 ..T.T .."|
000120e0  46 6f 6e 74 5f 46 69 6e  64 46 6f 6e 74 22 2c 2c  |Font_FindFont",,|
000120f0  66 6f 6e 74 5f 6c 69 73  74 25 2b 74 65 78 74 5f  |font_list%+text_|
00012100  61 78 69 73 63 2a 34 30  2c 74 65 78 74 5f 61 78  |axisc*40,text_ax|
00012110  69 73 78 2a 31 36 2c 74  65 78 74 5f 61 78 69 73  |isx*16,text_axis|
00012120  79 2a 31 36 2c 30 2c 30  20 b8 20 4e 0d 54 10 4a  |y*16,0,0 . N.T.J|
00012130  20 c8 99 22 46 6f 6e 74  5f 53 74 72 69 6e 67 57  | .."Font_StringW|
00012140  69 64 74 68 22 2c 2c 62  6c 6f 63 6b 25 2c 33 30  |idth",,block%,30|
00012150  30 30 30 30 2c 32 30 30  30 30 30 2c 2d 31 2c 62  |0000,200000,-1,b|
00012160  6c 6f 63 6b 25 2b a4 6c  65 6e 28 62 6c 6f 63 6b  |lock%+.len(block|
00012170  25 29 b8 2c 2c 58 0d 54  1a 18 20 c8 99 22 46 6f  |%).,,X.T.. .."Fo|
00012180  6e 74 5f 4c 6f 73 65 46  6f 6e 74 22 2c 4e 0d 54  |nt_LoseFont",N.T|
00012190  24 05 cc 0d 54 2e 22 58  3d 74 65 78 74 5f 61 78  |$...T."X=text_ax|
000121a0  69 73 78 2a 31 30 30 30  2a a4 6c 65 6e 28 62 6c  |isx*1000*.len(bl|
000121b0  6f 63 6b 25 29 0d 54 38  05 cd 0d 54 42 10 58 3d  |ock%).T8...TB.X=|
000121c0  58 2a 36 34 30 2f 31 30  30 30 0d 54 4c 6d f2 64  |X*640/1000.TLm.d|
000121d0  66 69 6c 65 5f 77 70 75  74 28 31 29 3a f2 64 66  |file_wput(1):.df|
000121e0  69 6c 65 5f 77 70 75 74  28 32 34 2b 32 38 2b 4f  |ile_wput(24+28+O|
000121f0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |):.dfile_wput(0)|
00012200  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 3a  |:.dfile_wput(0):|
00012210  f2 64 66 69 6c 65 5f 77  70 75 74 28 33 30 30 30  |.dfile_wput(3000|
00012220  30 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |00):.dfile_wput(|
00012230  32 30 30 30 30 30 29 0d  54 56 7d f2 64 66 69 6c  |200000).TV}.dfil|
00012240  65 5f 77 70 75 74 28 30  29 3a f2 64 66 69 6c 65  |e_wput(0):.dfile|
00012250  5f 62 70 75 74 28 3f 67  72 61 70 68 5f 62 61 63  |_bput(?graph_bac|
00012260  6b 25 29 3a f2 64 66 69  6c 65 5f 62 70 75 74 28  |k%):.dfile_bput(|
00012270  67 72 61 70 68 5f 62 61  63 6b 25 3f 31 29 3a f2  |graph_back%?1):.|
00012280  64 66 69 6c 65 5f 62 70  75 74 28 67 72 61 70 68  |dfile_bput(graph|
00012290  5f 62 61 63 6b 25 3f 32  29 3a f2 64 66 69 6c 65  |_back%?2):.dfile|
000122a0  5f 62 70 75 74 28 67 72  61 70 68 5f 62 61 63 6b  |_bput(graph_back|
000122b0  25 3f 33 29 0d 54 60 bd  f2 64 66 69 6c 65 5f 77  |%?3).T`..dfile_w|
000122c0  70 75 74 28 67 72 61 70  68 5f 61 78 69 73 63 29  |put(graph_axisc)|
000122d0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 36 34 30  |:.dfile_wput(640|
000122e0  2a 74 65 78 74 5f 61 78  69 73 78 29 3a f2 64 66  |*text_axisx):.df|
000122f0  69 6c 65 5f 77 70 75 74  28 36 34 30 2a 74 65 78  |ile_wput(640*tex|
00012300  74 5f 61 78 69 73 79 29  3a f2 64 66 69 6c 65 5f  |t_axisy):.dfile_|
00012310  77 70 75 74 28 31 36 30  30 30 2d 58 29 3a f2 64  |wput(16000-X):.d|
00012320  66 69 6c 65 5f 77 70 75  74 28 32 30 30 30 30 2b  |file_wput(20000+|
00012330  28 4d 2a 67 72 61 70 68  5f 79 64 69 76 2a 67 72  |(M*graph_ydiv*gr|
00012340  61 70 68 5f 79 73 63 61  6c 65 29 2d 28 31 36 30  |aph_yscale)-(160|
00012350  2a 74 65 78 74 5f 61 78  69 73 79 29 29 3a f2 64  |*text_axisy)):.d|
00012360  66 69 6c 65 5f 73 70 75  74 28 62 6c 6f 63 6b 25  |file_sput(block%|
00012370  29 0d 54 6a 05 ed 0d 54  74 05 e1 0d 54 7e 05 3a  |).Tj...Tt...T~.:|
00012380  0d 54 88 17 dd f2 67 72  61 70 68 5f 79 64 69 76  |.T....graph_ydiv|
00012390  67 72 69 64 28 4e 29 0d  54 92 39 e7 4e 3d 30 3a  |grid(N).T.9.N=0:|
000123a0  24 74 65 78 74 25 3d 22  59 20 67 72 69 64 20 28  |$text%="Y grid (|
000123b0  73 6f 6c 69 64 29 22 8b  24 74 65 78 74 25 3d 22  |solid)".$text%="|
000123c0  59 20 67 72 69 64 20 28  64 6f 74 74 65 64 29 22  |Y grid (dotted)"|
000123d0  0d 54 9c 12 f2 75 70 64  61 74 65 5f 62 6f 74 74  |.T...update_bott|
000123e0  6f 6d 0d 54 a6 14 52 25  3d 30 3a e3 67 72 6f 75  |om.T..R%=0:.grou|
000123f0  70 25 3d 30 b8 35 0d 54  b0 22 e7 67 72 6f 75 70  |p%=0.5.T.".group|
00012400  5f 6d 61 70 25 21 28 67  72 6f 75 70 25 2a 34 29  |_map%!(group%*4)|
00012410  3e 30 3a 52 25 2b 3d 31  0d 54 ba 05 ed 0d 54 c4  |>0:R%+=1.T....T.|
00012420  33 e7 67 72 61 70 68 5f  33 44 25 80 67 72 61 70  |3.graph_3D%.grap|
00012430  68 5f 74 79 70 65 25 3d  32 80 67 72 61 70 68 5f  |h_type%=2.graph_|
00012440  62 61 72 74 79 70 65 25  3c 3e 33 3a 52 25 3d 31  |bartype%<>3:R%=1|
00012450  0d 54 ce 14 e7 ac 67 72  61 70 68 5f 33 44 25 3a  |.T....graph_3D%:|
00012460  52 25 3d 30 0d 54 d8 05  3a 0d 54 e2 1a f4 20 4f  |R%=0.T..:.T... O|
00012470  48 3a 20 59 20 64 69 76  69 73 69 6f 6e 73 20 67  |H: Y divisions g|
00012480  72 69 64 0d 54 ec 29 41  25 3d 28 64 61 74 61 5f  |rid.T.)A%=(data_|
00012490  79 6d 61 78 2d 64 61 74  61 5f 79 6d 69 6e 29 20  |ymax-data_ymin) |
000124a0  2f 20 67 72 61 70 68 5f  79 64 69 76 0d 54 f6 11  |/ graph_ydiv.T..|
000124b0  4d 3d 30 3a e7 52 25 3e  30 3a 4d 3d 31 0d 55 00  |M=0:.R%>0:M=1.U.|
000124c0  15 4c 25 3d 30 3a e7 4e  3d 31 32 38 3a 4c 25 3d  |.L%=0:.N=128:L%=|
000124d0  31 36 0d 55 0a 80 f2 64  66 69 6c 65 5f 77 70 75  |16.U...dfile_wpu|
000124e0  74 28 32 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(2):.dfile_wput|
000124f0  28 32 34 2b 31 36 2b 4c  25 2b 28 41 25 2a 32 34  |(24+16+L%+(A%*24|
00012500  29 2b 4d 2a 31 32 2a 41  25 2b 34 29 3a f2 64 66  |)+M*12*A%+4):.df|
00012510  69 6c 65 5f 77 70 75 74  28 30 29 3a f2 64 66 69  |ile_wput(0):.dfi|
00012520  6c 65 5f 77 70 75 74 28  30 29 3a f2 64 66 69 6c  |le_wput(0):.dfil|
00012530  65 5f 77 70 75 74 28 33  30 30 30 30 30 29 3a f2  |e_wput(300000):.|
00012540  64 66 69 6c 65 5f 77 70  75 74 28 32 30 30 30 30  |dfile_wput(20000|
00012550  30 29 0d 55 14 40 f2 64  66 69 6c 65 5f 77 70 75  |0).U.@.dfile_wpu|
00012560  74 28 2d 31 29 3a f2 64  66 69 6c 65 5f 77 70 75  |t(-1):.dfile_wpu|
00012570  74 28 30 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(0):.dfile_wput|
00012580  28 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(0):.dfile_wput(|
00012590  4e 29 0d 55 1e 4c e7 4e  3d 31 32 38 3a f2 64 66  |N).U.L.N=128:.df|
000125a0  69 6c 65 5f 77 70 75 74  28 30 29 3a f2 64 66 69  |ile_wput(0):.dfi|
000125b0  6c 65 5f 77 70 75 74 28  32 29 3a f2 64 66 69 6c  |le_wput(2):.dfil|
000125c0  65 5f 77 70 75 74 28 34  30 30 30 29 3a f2 64 66  |e_wput(4000):.df|
000125d0  69 6c 65 5f 77 70 75 74  28 33 30 30 30 29 0d 55  |ile_wput(3000).U|
000125e0  28 0b e3 4d 3d 31 b8 41  25 0d 55 32 54 f2 64 66  |(..M=1.A%.U2T.df|
000125f0  69 6c 65 5f 77 70 75 74  28 32 29 3a f2 64 66 69  |ile_wput(2):.dfi|
00012600  6c 65 5f 77 70 75 74 28  32 30 30 30 30 29 3a f2  |le_wput(20000):.|
00012610  64 66 69 6c 65 5f 77 70  75 74 28 32 30 30 30 30  |dfile_wput(20000|
00012620  2b 28 4d 2a 67 72 61 70  68 5f 79 64 69 76 2a 67  |+(M*graph_ydiv*g|
00012630  72 61 70 68 5f 79 73 63  61 6c 65 29 29 0d 55 3c  |raph_yscale)).U<|
00012640  6c e7 52 25 3e 30 3a f2  64 66 69 6c 65 5f 77 70  |l.R%>0:.dfile_wp|
00012650  75 74 28 38 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(8):.dfile_wpu|
00012660  74 28 32 30 30 30 30 2b  52 25 2a 31 35 30 30 30  |t(20000+R%*15000|
00012670  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
00012680  30 30 30 2b 28 4d 2a 67  72 61 70 68 5f 79 64 69  |000+(M*graph_ydi|
00012690  76 2a 67 72 61 70 68 5f  79 73 63 61 6c 65 29 2b  |v*graph_yscale)+|
000126a0  52 25 2a 31 35 30 30 30  29 0d 55 46 5e f2 64 66  |R%*15000).UF^.df|
000126b0  69 6c 65 5f 77 70 75 74  28 38 29 3a f2 64 66 69  |ile_wput(8):.dfi|
000126c0  6c 65 5f 77 70 75 74 28  33 30 30 30 30 30 29 3a  |le_wput(300000):|
000126d0  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 30 30 30  |.dfile_wput(2000|
000126e0  30 2b 28 4d 2a 67 72 61  70 68 5f 79 64 69 76 2a  |0+(M*graph_ydiv*|
000126f0  67 72 61 70 68 5f 79 73  63 61 6c 65 29 2b 52 25  |graph_yscale)+R%|
00012700  2a 31 35 30 30 30 29 0d  55 50 05 ed 0d 55 5a 12  |*15000).UP...UZ.|
00012710  f2 64 66 69 6c 65 5f 77  70 75 74 28 30 29 0d 55  |.dfile_wput(0).U|
00012720  64 05 e1 0d 55 6e 05 3a  0d 55 78 14 dd f2 67 72  |d...Un.:.Ux...gr|
00012730  61 70 68 5f 79 65 64 67  65 28 4e 29 0d 55 82 39  |aph_yedge(N).U.9|
00012740  e7 4e 3d 30 3a 24 74 65  78 74 25 3d 22 59 20 65  |.N=0:$text%="Y e|
00012750  64 67 65 20 28 73 6f 6c  69 64 29 22 8b 24 74 65  |dge (solid)".$te|
00012760  78 74 25 3d 22 59 20 65  64 67 65 20 28 64 6f 74  |xt%="Y edge (dot|
00012770  74 65 64 29 22 0d 55 8c  12 f2 75 70 64 61 74 65  |ted)".U...update|
00012780  5f 62 6f 74 74 6f 6d 0d  55 96 10 f4 20 4f 48 3a  |_bottom.U... OH:|
00012790  20 58 20 65 64 67 65 0d  55 a0 15 4c 25 3d 30 3a  | X edge.U..L%=0:|
000127a0  e7 4e 3d 31 32 38 3a 4c  25 3d 31 36 0d 55 aa 73  |.N=128:L%=16.U.s|
000127b0  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 29 3a f2  |.dfile_wput(2):.|
000127c0  64 66 69 6c 65 5f 77 70  75 74 28 32 34 2b 31 36  |dfile_wput(24+16|
000127d0  2b 4c 25 2b 32 34 2b 34  29 3a f2 64 66 69 6c 65  |+L%+24+4):.dfile|
000127e0  5f 77 70 75 74 28 30 29  3a f2 64 66 69 6c 65 5f  |_wput(0):.dfile_|
000127f0  77 70 75 74 28 30 29 3a  f2 64 66 69 6c 65 5f 77  |wput(0):.dfile_w|
00012800  70 75 74 28 33 30 30 30  30 30 29 3a f2 64 66 69  |put(300000):.dfi|
00012810  6c 65 5f 77 70 75 74 28  32 30 30 30 30 30 29 0d  |le_wput(200000).|
00012820  55 b4 40 f2 64 66 69 6c  65 5f 77 70 75 74 28 2d  |U.@.dfile_wput(-|
00012830  31 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 30  |1):.dfile_wput(0|
00012840  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |):.dfile_wput(0)|
00012850  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 4e 29 0d  |:.dfile_wput(N).|
00012860  55 be 4c e7 4e 3d 31 32  38 3a f2 64 66 69 6c 65  |U.L.N=128:.dfile|
00012870  5f 77 70 75 74 28 30 29  3a f2 64 66 69 6c 65 5f  |_wput(0):.dfile_|
00012880  77 70 75 74 28 32 29 3a  f2 64 66 69 6c 65 5f 77  |wput(2):.dfile_w|
00012890  70 75 74 28 34 30 30 30  29 3a f2 64 66 69 6c 65  |put(4000):.dfile|
000128a0  5f 77 70 75 74 28 33 30  30 30 29 0d 55 c8 42 f2  |_wput(3000).U.B.|
000128b0  64 66 69 6c 65 5f 77 70  75 74 28 32 29 3a f2 64  |dfile_wput(2):.d|
000128c0  66 69 6c 65 5f 77 70 75  74 28 32 30 30 30 30 2b  |file_wput(20000+|
000128d0  52 25 2a 31 35 30 30 30  29 3a f2 64 66 69 6c 65  |R%*15000):.dfile|
000128e0  5f 77 70 75 74 28 32 30  30 30 30 30 29 0d 55 d2  |_wput(200000).U.|
000128f0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 38 29 3a  |:.dfile_wput(8):|
00012900  f2 64 66 69 6c 65 5f 77  70 75 74 28 33 30 30 30  |.dfile_wput(3000|
00012910  30 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |00):.dfile_wput(|
00012920  32 30 30 30 30 30 29 0d  55 dc 12 f2 64 66 69 6c  |200000).U...dfil|
00012930  65 5f 77 70 75 74 28 30  29 0d 55 e6 05 e1 0d 55  |e_wput(0).U....U|
00012940  f0 05 3a 0d 55 fa 05 3a  0d 56 04 15 dd f2 67 72  |..:.U..:.V....gr|
00012950  61 70 68 5f 70 6f 69 6e  74 6c 69 6e 65 0d 56 0e  |aph_pointline.V.|
00012960  20 24 74 65 78 74 25 3d  22 4c 69 6e 65 22 3a f2  | $text%="Line":.|
00012970  75 70 64 61 74 65 5f 62  6f 74 74 6f 6d 0d 56 18  |update_bottom.V.|
00012980  21 78 25 3d 67 72 6f 75  70 5f 6d 61 70 25 21 28  |!x%=group_map%!(|
00012990  67 72 6f 75 70 25 2a 34  29 3a 79 25 3d 31 0d 56  |group%*4):y%=1.V|
000129a0  22 13 f4 20 4f 62 6a 65  63 74 20 68 65 61 64 65  |".. Object heade|
000129b0  72 0d 56 2c 37 53 25 3d  30 3a 4c 25 3d 30 3a e7  |r.V,7S%=0:L%=0:.|
000129c0  67 72 6f 75 70 5f 64 61  74 61 25 3f 28 67 72 6f  |group_data%?(gro|
000129d0  75 70 25 2a 34 32 2b 39  29 3e 31 3a 53 25 3d 31  |up%*42+9)>1:S%=1|
000129e0  32 38 3a 4c 25 3d 31 36  0d 56 36 82 f2 64 66 69  |28:L%=16.V6..dfi|
000129f0  6c 65 5f 77 70 75 74 28  32 29 3a f2 64 66 69 6c  |le_wput(2):.dfil|
00012a00  65 5f 77 70 75 74 28 32  34 2b 31 36 2b 4c 25 2b  |e_wput(24+16+L%+|
00012a10  28 64 61 74 61 5f 6c 65  6e 67 74 68 25 2a 31 32  |(data_length%*12|
00012a20  29 2b 34 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |)+4):.dfile_wput|
00012a30  28 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(0):.dfile_wput(|
00012a40  30 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 33  |0):.dfile_wput(3|
00012a50  30 30 30 30 30 29 3a f2  64 66 69 6c 65 5f 77 70  |00000):.dfile_wp|
00012a60  75 74 28 32 35 30 30 30  30 29 0d 56 40 ce f2 64  |ut(250000).V@..d|
00012a70  66 69 6c 65 5f 77 70 75  74 28 2d 31 29 3a f2 64  |file_wput(-1):.d|
00012a80  66 69 6c 65 5f 62 70 75  74 28 30 29 3a f2 64 66  |file_bput(0):.df|
00012a90  69 6c 65 5f 62 70 75 74  28 67 72 6f 75 70 5f 64  |ile_bput(group_d|
00012aa0  61 74 61 25 3f 28 67 72  6f 75 70 25 2a 34 32 2b  |ata%?(group%*42+|
00012ab0  32 29 29 3a f2 64 66 69  6c 65 5f 62 70 75 74 28  |2)):.dfile_bput(|
00012ac0  67 72 6f 75 70 5f 64 61  74 61 25 3f 28 67 72 6f  |group_data%?(gro|
00012ad0  75 70 25 2a 34 32 2b 33  29 29 3a f2 64 66 69 6c  |up%*42+3)):.dfil|
00012ae0  65 5f 62 70 75 74 28 67  72 6f 75 70 5f 64 61 74  |e_bput(group_dat|
00012af0  61 25 3f 28 67 72 6f 75  70 25 2a 34 32 2b 34 29  |a%?(group%*42+4)|
00012b00  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 67 72  |):.dfile_wput(gr|
00012b10  6f 75 70 5f 64 61 74 61  25 21 28 67 72 6f 75 70  |oup_data%!(group|
00012b20  25 2a 34 32 2b 35 29 29  3a f2 64 66 69 6c 65 5f  |%*42+5)):.dfile_|
00012b30  77 70 75 74 28 53 25 29  0d 56 4a 2a 43 25 3d 31  |wput(S%).VJ*C%=1|
00012b40  32 30 30 30 81 28 35 2d  67 72 6f 75 70 5f 64 61  |2000.(5-group_da|
00012b50  74 61 25 3f 28 67 72 6f  75 70 25 2a 34 32 2b 39  |ta%?(group%*42+9|
00012b60  29 29 0d 56 54 49 e7 53  25 3d 31 32 38 3a f2 64  |)).VTI.S%=128:.d|
00012b70  66 69 6c 65 5f 77 70 75  74 28 30 29 3a f2 64 66  |file_wput(0):.df|
00012b80  69 6c 65 5f 77 70 75 74  28 32 29 3a f2 64 66 69  |ile_wput(2):.dfi|
00012b90  6c 65 5f 77 70 75 74 28  43 25 29 3a f2 64 66 69  |le_wput(C%):.dfi|
00012ba0  6c 65 5f 77 70 75 74 28  43 25 29 0d 56 5e 3f 58  |le_wput(C%).V^?X|
00012bb0  3d a4 64 61 74 61 5f 67  65 74 28 78 25 2c 79 25  |=.data_get(x%,y%|
00012bc0  29 2d 64 61 74 61 5f 78  6d 69 6e 3a 59 3d a4 64  |)-data_xmin:Y=.d|
00012bd0  61 74 61 5f 67 65 74 28  78 25 2b 31 2c 79 25 29  |ata_get(x%+1,y%)|
00012be0  2d 64 61 74 61 5f 79 6d  69 6e 0d 56 68 60 f2 64  |-data_ymin.Vh`.d|
00012bf0  66 69 6c 65 5f 77 70 75  74 28 32 29 3a f2 64 66  |file_wput(2):.df|
00012c00  69 6c 65 5f 77 70 75 74  28 32 30 30 30 30 2b 28  |ile_wput(20000+(|
00012c10  58 2a 67 72 61 70 68 5f  78 73 63 61 6c 65 29 2b  |X*graph_xscale)+|
00012c20  52 25 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |R%):.dfile_wput(|
00012c30  32 30 30 30 30 2b 28 59  2a 67 72 61 70 68 5f 79  |20000+(Y*graph_y|
00012c40  73 63 61 6c 65 29 2b 52  25 29 0d 56 72 16 e3 79  |scale)+R%).Vr..y|
00012c50  25 3d 32 b8 64 61 74 61  5f 6c 65 6e 67 74 68 25  |%=2.data_length%|
00012c60  0d 56 7c 3f 58 3d a4 64  61 74 61 5f 67 65 74 28  |.V|?X=.data_get(|
00012c70  78 25 2c 79 25 29 2d 64  61 74 61 5f 78 6d 69 6e  |x%,y%)-data_xmin|
00012c80  3a 59 3d a4 64 61 74 61  5f 67 65 74 28 78 25 2b  |:Y=.data_get(x%+|
00012c90  31 2c 79 25 29 2d 64 61  74 61 5f 79 6d 69 6e 0d  |1,y%)-data_ymin.|
00012ca0  56 86 5c f2 64 66 69 6c  65 5f 77 70 75 74 28 38  |V.\.dfile_wput(8|
00012cb0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
00012cc0  30 30 30 2b 58 2a 67 72  61 70 68 5f 78 73 63 61  |000+X*graph_xsca|
00012cd0  6c 65 2b 52 25 29 3a f2  64 66 69 6c 65 5f 77 70  |le+R%):.dfile_wp|
00012ce0  75 74 28 32 30 30 30 30  2b 59 2a 67 72 61 70 68  |ut(20000+Y*graph|
00012cf0  5f 79 73 63 61 6c 65 2b  52 25 29 0d 56 90 13 f2  |_yscale+R%).V...|
00012d00  70 6f 6c 6c 5f 6d 69 6e  6f 72 6c 6f 6f 70 0d 56  |poll_minorloop.V|
00012d10  9a 05 ed 0d 56 a4 12 f2  64 66 69 6c 65 5f 77 70  |....V...dfile_wp|
00012d20  75 74 28 30 29 0d 56 ae  05 e1 0d 56 b8 05 3a 0d  |ut(0).V....V..:.|
00012d30  56 c2 17 dd f2 67 72 61  70 68 5f 70 6f 69 6e 74  |V....graph_point|
00012d40  6c 69 6e 65 33 44 0d 56  cc 23 24 74 65 78 74 25  |line3D.V.#$text%|
00012d50  3d 22 33 44 20 4c 69 6e  65 22 3a f2 75 70 64 61  |="3D Line":.upda|
00012d60  74 65 5f 62 6f 74 74 6f  6d 0d 56 d6 21 78 25 3d  |te_bottom.V.!x%=|
00012d70  67 72 6f 75 70 5f 6d 61  70 25 21 28 67 72 6f 75  |group_map%!(grou|
00012d80  70 25 2a 34 29 3a 79 25  3d 31 0d 56 e0 3f 58 3d  |p%*4):y%=1.V.?X=|
00012d90  a4 64 61 74 61 5f 67 65  74 28 78 25 2c 79 25 29  |.data_get(x%,y%)|
00012da0  2d 64 61 74 61 5f 78 6d  69 6e 3a 59 3d a4 64 61  |-data_xmin:Y=.da|
00012db0  74 61 5f 67 65 74 28 78  25 2b 31 2c 79 25 29 2d  |ta_get(x%+1,y%)-|
00012dc0  64 61 74 61 5f 79 6d 69  6e 0d 56 ea 16 e3 79 25  |data_ymin.V...y%|
00012dd0  3d 32 b8 64 61 74 61 5f  6c 65 6e 67 74 68 25 0d  |=2.data_length%.|
00012de0  56 f4 3f 78 3d a4 64 61  74 61 5f 67 65 74 28 78  |V.?x=.data_get(x|
00012df0  25 2c 79 25 29 2d 64 61  74 61 5f 78 6d 69 6e 3a  |%,y%)-data_xmin:|
00012e00  79 3d a4 64 61 74 61 5f  67 65 74 28 78 25 2b 31  |y=.data_get(x%+1|
00012e10  2c 79 25 29 2d 64 61 74  61 5f 79 6d 69 6e 0d 56  |,y%)-data_ymin.V|
00012e20  fe 13 f4 20 4f 62 6a 65  63 74 20 68 65 61 64 65  |... Object heade|
00012e30  72 0d 57 08 74 f2 64 66  69 6c 65 5f 77 70 75 74  |r.W.t.dfile_wput|
00012e40  28 32 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(2):.dfile_wput(|
00012e50  32 34 2b 31 36 2b 28 35  2a 31 32 29 2b 34 29 3a  |24+16+(5*12)+4):|
00012e60  f2 64 66 69 6c 65 5f 77  70 75 74 28 30 29 3a f2  |.dfile_wput(0):.|
00012e70  64 66 69 6c 65 5f 77 70  75 74 28 30 29 3a f2 64  |dfile_wput(0):.d|
00012e80  66 69 6c 65 5f 77 70 75  74 28 33 30 30 30 30 30  |file_wput(300000|
00012e90  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 35  |):.dfile_wput(25|
00012ea0  30 30 30 30 29 0d 57 12  22 43 25 3d 30 3a e7 78  |0000).W."C%=0:.x|
00012eb0  3c 3e 58 3a e7 28 79 2d  59 29 2f 28 78 2d 58 29  |<>X:.(y-Y)/(x-X)|
00012ec0  3e 31 3a 43 25 3d 32 0d  57 1c cd f2 64 66 69 6c  |>1:C%=2.W...dfil|
00012ed0  65 5f 62 70 75 74 28 30  29 3a f2 64 66 69 6c 65  |e_bput(0):.dfile|
00012ee0  5f 62 66 61 64 65 28 67  72 6f 75 70 5f 64 61 74  |_bfade(group_dat|
00012ef0  61 25 3f 28 67 72 6f 75  70 25 2a 34 32 2b 32 29  |a%?(group%*42+2)|
00012f00  2c 43 25 29 3a f2 64 66  69 6c 65 5f 62 66 61 64  |,C%):.dfile_bfad|
00012f10  65 28 67 72 6f 75 70 5f  64 61 74 61 25 3f 28 67  |e(group_data%?(g|
00012f20  72 6f 75 70 25 2a 34 32  2b 33 29 2c 43 25 29 3a  |roup%*42+3),C%):|
00012f30  f2 64 66 69 6c 65 5f 62  66 61 64 65 28 67 72 6f  |.dfile_bfade(gro|
00012f40  75 70 5f 64 61 74 61 25  3f 28 67 72 6f 75 70 25  |up_data%?(group%|
00012f50  2a 34 32 2b 34 29 2c 43  25 29 3a f2 64 66 69 6c  |*42+4),C%):.dfil|
00012f60  65 5f 77 70 75 74 28 67  72 61 70 68 5f 6f 75 74  |e_wput(graph_out|
00012f70  6c 69 6e 65 25 29 3a f2  64 66 69 6c 65 5f 77 70  |line%):.dfile_wp|
00012f80  75 74 28 30 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(0):.dfile_wpu|
00012f90  74 28 30 29 0d 57 26 5c  f2 64 66 69 6c 65 5f 77  |t(0).W&\.dfile_w|
00012fa0  70 75 74 28 32 29 3a f2  64 66 69 6c 65 5f 77 70  |put(2):.dfile_wp|
00012fb0  75 74 28 32 30 30 30 30  2b 58 2a 67 72 61 70 68  |ut(20000+X*graph|
00012fc0  5f 78 73 63 61 6c 65 2b  52 25 29 3a f2 64 66 69  |_xscale+R%):.dfi|
00012fd0  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 59 2a  |le_wput(20000+Y*|
00012fe0  67 72 61 70 68 5f 79 73  63 61 6c 65 2b 52 25 29  |graph_yscale+R%)|
00012ff0  0d 57 30 5c f2 64 66 69  6c 65 5f 77 70 75 74 28  |.W0\.dfile_wput(|
00013000  38 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |8):.dfile_wput(2|
00013010  30 30 30 30 2b 78 2a 67  72 61 70 68 5f 78 73 63  |0000+x*graph_xsc|
00013020  61 6c 65 2b 52 25 29 3a  f2 64 66 69 6c 65 5f 77  |ale+R%):.dfile_w|
00013030  70 75 74 28 32 30 30 30  30 2b 79 2a 67 72 61 70  |put(20000+y*grap|
00013040  68 5f 79 73 63 61 6c 65  2b 52 25 29 0d 57 3a 5c  |h_yscale+R%).W:\|
00013050  f2 64 66 69 6c 65 5f 77  70 75 74 28 38 29 3a f2  |.dfile_wput(8):.|
00013060  64 66 69 6c 65 5f 77 70  75 74 28 33 35 30 30 30  |dfile_wput(35000|
00013070  2b 78 2a 67 72 61 70 68  5f 78 73 63 61 6c 65 2b  |+x*graph_xscale+|
00013080  52 25 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |R%):.dfile_wput(|
00013090  33 35 30 30 30 2b 79 2a  67 72 61 70 68 5f 79 73  |35000+y*graph_ys|
000130a0  63 61 6c 65 2b 52 25 29  0d 57 44 5c f2 64 66 69  |cale+R%).WD\.dfi|
000130b0  6c 65 5f 77 70 75 74 28  38 29 3a f2 64 66 69 6c  |le_wput(8):.dfil|
000130c0  65 5f 77 70 75 74 28 33  35 30 30 30 2b 58 2a 67  |e_wput(35000+X*g|
000130d0  72 61 70 68 5f 78 73 63  61 6c 65 2b 52 25 29 3a  |raph_xscale+R%):|
000130e0  f2 64 66 69 6c 65 5f 77  70 75 74 28 33 35 30 30  |.dfile_wput(3500|
000130f0  30 2b 59 2a 67 72 61 70  68 5f 79 73 63 61 6c 65  |0+Y*graph_yscale|
00013100  2b 52 25 29 0d 57 4e 5c  f2 64 66 69 6c 65 5f 77  |+R%).WN\.dfile_w|
00013110  70 75 74 28 38 29 3a f2  64 66 69 6c 65 5f 77 70  |put(8):.dfile_wp|
00013120  75 74 28 32 30 30 30 30  2b 58 2a 67 72 61 70 68  |ut(20000+X*graph|
00013130  5f 78 73 63 61 6c 65 2b  52 25 29 3a f2 64 66 69  |_xscale+R%):.dfi|
00013140  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 59 2a  |le_wput(20000+Y*|
00013150  67 72 61 70 68 5f 79 73  63 61 6c 65 2b 52 25 29  |graph_yscale+R%)|
00013160  0d 57 58 12 f2 64 66 69  6c 65 5f 77 70 75 74 28  |.WX..dfile_wput(|
00013170  30 29 0d 57 62 0b 58 3d  78 3a 59 3d 79 0d 57 6c  |0).Wb.X=x:Y=y.Wl|
00013180  13 f2 70 6f 6c 6c 5f 6d  69 6e 6f 72 6c 6f 6f 70  |..poll_minorloop|
00013190  0d 57 76 05 ed 0d 57 80  05 e1 0d 57 8a 05 3a 0d  |.Wv...W....W..:.|
000131a0  57 94 15 dd f2 67 72 61  70 68 5f 6c 69 6e 65 75  |W....graph_lineu|
000131b0  6e 64 65 72 0d 57 9e 26  24 74 65 78 74 25 3d 22  |nder.W.&$text%="|
000131c0  41 72 65 61 20 75 6e 64  65 72 22 3a f2 75 70 64  |Area under":.upd|
000131d0  61 74 65 5f 62 6f 74 74  6f 6d 0d 57 a8 21 78 25  |ate_bottom.W.!x%|
000131e0  3d 67 72 6f 75 70 5f 6d  61 70 25 21 28 67 72 6f  |=group_map%!(gro|
000131f0  75 70 25 2a 34 29 3a 79  25 3d 31 0d 57 b2 13 f4  |up%*4):y%=1.W...|
00013200  20 4f 48 3a 20 4c 69 6e  65 75 6e 64 65 72 0d 57  | OH: Lineunder.W|
00013210  bc 83 f2 64 66 69 6c 65  5f 77 70 75 74 28 32 29  |...dfile_wput(2)|
00013220  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 34 2b  |:.dfile_wput(24+|
00013230  31 36 2b 28 28 64 61 74  61 5f 6c 65 6e 67 74 68  |16+((data_length|
00013240  25 2b 32 29 2a 31 32 29  2b 34 29 3a f2 64 66 69  |%+2)*12)+4):.dfi|
00013250  6c 65 5f 77 70 75 74 28  30 29 3a f2 64 66 69 6c  |le_wput(0):.dfil|
00013260  65 5f 77 70 75 74 28 30  29 3a f2 64 66 69 6c 65  |e_wput(0):.dfile|
00013270  5f 77 70 75 74 28 33 30  30 30 30 30 29 3a f2 64  |_wput(300000):.d|
00013280  66 69 6c 65 5f 77 70 75  74 28 32 30 30 30 30 30  |file_wput(200000|
00013290  29 0d 57 c6 0f e7 67 72  61 70 68 5f 33 44 25 8c  |).W...graph_3D%.|
000132a0  0d 57 d0 ad 20 f2 64 66  69 6c 65 5f 62 70 75 74  |.W.. .dfile_bput|
000132b0  28 30 29 3a f2 64 66 69  6c 65 5f 62 66 61 64 65  |(0):.dfile_bfade|
000132c0  28 67 72 6f 75 70 5f 64  61 74 61 25 3f 28 67 72  |(group_data%?(gr|
000132d0  6f 75 70 25 2a 34 32 2b  32 29 2c 31 29 3a f2 64  |oup%*42+2),1):.d|
000132e0  66 69 6c 65 5f 62 66 61  64 65 28 67 72 6f 75 70  |file_bfade(group|
000132f0  5f 64 61 74 61 25 3f 28  67 72 6f 75 70 25 2a 34  |_data%?(group%*4|
00013300  32 2b 33 29 2c 31 29 3a  f2 64 66 69 6c 65 5f 62  |2+3),1):.dfile_b|
00013310  66 61 64 65 28 67 72 6f  75 70 5f 64 61 74 61 25  |fade(group_data%|
00013320  3f 28 67 72 6f 75 70 25  2a 34 32 2b 34 29 2c 31  |?(group%*42+4),1|
00013330  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 67 72  |):.dfile_wput(gr|
00013340  61 70 68 5f 6f 75 74 6c  69 6e 65 25 29 0d 57 da  |aph_outline%).W.|
00013350  05 cc 0d 57 e4 98 20 f2  64 66 69 6c 65 5f 62 70  |...W.. .dfile_bp|
00013360  75 74 28 30 29 3a f2 64  66 69 6c 65 5f 62 70 75  |ut(0):.dfile_bpu|
00013370  74 28 67 72 6f 75 70 5f  64 61 74 61 25 3f 28 67  |t(group_data%?(g|
00013380  72 6f 75 70 25 2a 34 32  2b 32 29 29 3a f2 64 66  |roup%*42+2)):.df|
00013390  69 6c 65 5f 62 70 75 74  28 67 72 6f 75 70 5f 64  |ile_bput(group_d|
000133a0  61 74 61 25 3f 28 67 72  6f 75 70 25 2a 34 32 2b  |ata%?(group%*42+|
000133b0  33 29 29 3a f2 64 66 69  6c 65 5f 62 70 75 74 28  |3)):.dfile_bput(|
000133c0  67 72 6f 75 70 5f 64 61  74 61 25 3f 28 67 72 6f  |group_data%?(gro|
000133d0  75 70 25 2a 34 32 2b 34  29 29 3a f2 64 66 69 6c  |up%*42+4)):.dfil|
000133e0  65 5f 77 70 75 74 28 2d  31 29 0d 57 ee 05 cd 0d  |e_wput(-1).W....|
000133f0  57 f8 21 f2 64 66 69 6c  65 5f 77 70 75 74 28 30  |W.!.dfile_wput(0|
00013400  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |):.dfile_wput(0)|
00013410  0d 58 02 3f 58 3d a4 64  61 74 61 5f 67 65 74 28  |.X.?X=.data_get(|
00013420  78 25 2c 79 25 29 2d 64  61 74 61 5f 78 6d 69 6e  |x%,y%)-data_xmin|
00013430  3a 59 3d a4 64 61 74 61  5f 67 65 74 28 78 25 2b  |:Y=.data_get(x%+|
00013440  31 2c 79 25 29 2d 64 61  74 61 5f 79 6d 69 6e 0d  |1,y%)-data_ymin.|
00013450  58 0c 4f f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |X.O.dfile_wput(2|
00013460  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
00013470  30 30 30 2b 28 58 2a 67  72 61 70 68 5f 78 73 63  |000+(X*graph_xsc|
00013480  61 6c 65 29 2b 52 25 29  3a f2 64 66 69 6c 65 5f  |ale)+R%):.dfile_|
00013490  77 70 75 74 28 32 30 30  30 30 2b 52 25 29 0d 58  |wput(20000+R%).X|
000134a0  16 60 f2 64 66 69 6c 65  5f 77 70 75 74 28 38 29  |.`.dfile_wput(8)|
000134b0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 30 30  |:.dfile_wput(200|
000134c0  30 30 2b 28 58 2a 67 72  61 70 68 5f 78 73 63 61  |00+(X*graph_xsca|
000134d0  6c 65 29 2b 52 25 29 3a  f2 64 66 69 6c 65 5f 77  |le)+R%):.dfile_w|
000134e0  70 75 74 28 32 30 30 30  30 2b 28 59 2a 67 72 61  |put(20000+(Y*gra|
000134f0  70 68 5f 79 73 63 61 6c  65 29 2b 52 25 29 0d 58  |ph_yscale)+R%).X|
00013500  20 16 e3 79 25 3d 32 b8  64 61 74 61 5f 6c 65 6e  | ..y%=2.data_len|
00013510  67 74 68 25 0d 58 2a 3f  58 3d a4 64 61 74 61 5f  |gth%.X*?X=.data_|
00013520  67 65 74 28 78 25 2c 79  25 29 2d 64 61 74 61 5f  |get(x%,y%)-data_|
00013530  78 6d 69 6e 3a 59 3d a4  64 61 74 61 5f 67 65 74  |xmin:Y=.data_get|
00013540  28 78 25 2b 31 2c 79 25  29 2d 64 61 74 61 5f 79  |(x%+1,y%)-data_y|
00013550  6d 69 6e 0d 58 34 5c f2  64 66 69 6c 65 5f 77 70  |min.X4\.dfile_wp|
00013560  75 74 28 38 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(8):.dfile_wpu|
00013570  74 28 32 30 30 30 30 2b  58 2a 67 72 61 70 68 5f  |t(20000+X*graph_|
00013580  78 73 63 61 6c 65 2b 52  25 29 3a f2 64 66 69 6c  |xscale+R%):.dfil|
00013590  65 5f 77 70 75 74 28 32  30 30 30 30 2b 59 2a 67  |e_wput(20000+Y*g|
000135a0  72 61 70 68 5f 79 73 63  61 6c 65 2b 52 25 29 0d  |raph_yscale+R%).|
000135b0  58 3e 13 f2 70 6f 6c 6c  5f 6d 69 6e 6f 72 6c 6f  |X>..poll_minorlo|
000135c0  6f 70 0d 58 48 05 ed 0d  58 52 4f f2 64 66 69 6c  |op.XH...XRO.dfil|
000135d0  65 5f 77 70 75 74 28 38  29 3a f2 64 66 69 6c 65  |e_wput(8):.dfile|
000135e0  5f 77 70 75 74 28 32 30  30 30 30 2b 28 58 2a 67  |_wput(20000+(X*g|
000135f0  72 61 70 68 5f 78 73 63  61 6c 65 29 2b 52 25 29  |raph_xscale)+R%)|
00013600  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 30 30  |:.dfile_wput(200|
00013610  30 30 2b 52 25 29 0d 58  5c 12 f2 64 66 69 6c 65  |00+R%).X\..dfile|
00013620  5f 77 70 75 74 28 30 29  0d 58 66 11 e7 ac 67 72  |_wput(0).Xf...gr|
00013630  61 70 68 5f 33 44 25 3a  e1 0d 58 70 72 f2 64 66  |aph_3D%:..Xpr.df|
00013640  69 6c 65 5f 77 70 75 74  28 32 29 3a f2 64 66 69  |ile_wput(2):.dfi|
00013650  6c 65 5f 77 70 75 74 28  32 34 2b 31 36 2b 35 2a  |le_wput(24+16+5*|
00013660  31 32 2b 34 29 3a f2 64  66 69 6c 65 5f 77 70 75  |12+4):.dfile_wpu|
00013670  74 28 30 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(0):.dfile_wput|
00013680  28 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(0):.dfile_wput(|
00013690  33 30 30 30 30 30 29 3a  f2 64 66 69 6c 65 5f 77  |300000):.dfile_w|
000136a0  70 75 74 28 32 30 30 30  30 30 29 0d 58 7a c1 f2  |put(200000).Xz..|
000136b0  64 66 69 6c 65 5f 62 70  75 74 28 30 29 3a f2 64  |dfile_bput(0):.d|
000136c0  66 69 6c 65 5f 62 70 75  74 28 67 72 6f 75 70 5f  |file_bput(group_|
000136d0  64 61 74 61 25 3f 28 67  72 6f 75 70 25 2a 34 32  |data%?(group%*42|
000136e0  2b 32 29 29 3a f2 64 66  69 6c 65 5f 62 70 75 74  |+2)):.dfile_bput|
000136f0  28 67 72 6f 75 70 5f 64  61 74 61 25 3f 28 67 72  |(group_data%?(gr|
00013700  6f 75 70 25 2a 34 32 2b  33 29 29 3a f2 64 66 69  |oup%*42+3)):.dfi|
00013710  6c 65 5f 62 70 75 74 28  67 72 6f 75 70 5f 64 61  |le_bput(group_da|
00013720  74 61 25 3f 28 67 72 6f  75 70 25 2a 34 32 2b 34  |ta%?(group%*42+4|
00013730  29 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 67  |)):.dfile_wput(g|
00013740  72 61 70 68 5f 6f 75 74  6c 69 6e 65 25 29 3a f2  |raph_outline%):.|
00013750  64 66 69 6c 65 5f 77 70  75 74 28 30 29 3a f2 64  |dfile_wput(0):.d|
00013760  66 69 6c 65 5f 77 70 75  74 28 30 29 0d 58 84 4d  |file_wput(0).X.M|
00013770  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 29 3a f2  |.dfile_wput(2):.|
00013780  64 66 69 6c 65 5f 77 70  75 74 28 32 30 30 30 30  |dfile_wput(20000|
00013790  2b 58 2a 67 72 61 70 68  5f 78 73 63 61 6c 65 2b  |+X*graph_xscale+|
000137a0  52 25 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |R%):.dfile_wput(|
000137b0  32 30 30 30 30 2b 52 25  29 0d 58 8e 5c f2 64 66  |20000+R%).X.\.df|
000137c0  69 6c 65 5f 77 70 75 74  28 38 29 3a f2 64 66 69  |ile_wput(8):.dfi|
000137d0  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 58 2a  |le_wput(20000+X*|
000137e0  67 72 61 70 68 5f 78 73  63 61 6c 65 2b 52 25 29  |graph_xscale+R%)|
000137f0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 30 30  |:.dfile_wput(200|
00013800  30 30 2b 59 2a 67 72 61  70 68 5f 79 73 63 61 6c  |00+Y*graph_yscal|
00013810  65 2b 52 25 29 0d 58 98  5c f2 64 66 69 6c 65 5f  |e+R%).X.\.dfile_|
00013820  77 70 75 74 28 38 29 3a  f2 64 66 69 6c 65 5f 77  |wput(8):.dfile_w|
00013830  70 75 74 28 33 35 30 30  30 2b 58 2a 67 72 61 70  |put(35000+X*grap|
00013840  68 5f 78 73 63 61 6c 65  2b 52 25 29 3a f2 64 66  |h_xscale+R%):.df|
00013850  69 6c 65 5f 77 70 75 74  28 33 35 30 30 30 2b 59  |ile_wput(35000+Y|
00013860  2a 67 72 61 70 68 5f 79  73 63 61 6c 65 2b 52 25  |*graph_yscale+R%|
00013870  29 0d 58 a2 4d f2 64 66  69 6c 65 5f 77 70 75 74  |).X.M.dfile_wput|
00013880  28 38 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(8):.dfile_wput(|
00013890  33 35 30 30 30 2b 58 2a  67 72 61 70 68 5f 78 73  |35000+X*graph_xs|
000138a0  63 61 6c 65 2b 52 25 29  3a f2 64 66 69 6c 65 5f  |cale+R%):.dfile_|
000138b0  77 70 75 74 28 33 35 30  30 30 2b 52 25 29 0d 58  |wput(35000+R%).X|
000138c0  ac 4d f2 64 66 69 6c 65  5f 77 70 75 74 28 38 29  |.M.dfile_wput(8)|
000138d0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 30 30  |:.dfile_wput(200|
000138e0  30 30 2b 58 2a 67 72 61  70 68 5f 78 73 63 61 6c  |00+X*graph_xscal|
000138f0  65 2b 52 25 29 3a f2 64  66 69 6c 65 5f 77 70 75  |e+R%):.dfile_wpu|
00013900  74 28 32 30 30 30 30 2b  52 25 29 0d 58 b6 12 f2  |t(20000+R%).X...|
00013910  64 66 69 6c 65 5f 77 70  75 74 28 30 29 0d 58 c0  |dfile_wput(0).X.|
00013920  05 e1 0d 58 ca 05 3a 0d  58 d4 12 dd f2 67 72 61  |...X..:.X....gra|
00013930  70 68 5f 70 6f 69 6e 74  73 0d 58 de 20 e7 67 72  |ph_points.X. .gr|
00013940  6f 75 70 5f 64 61 74 61  25 3f 28 67 72 6f 75 70  |oup_data%?(group|
00013950  25 2a 34 32 29 3d 30 3a  e1 0d 58 e8 22 24 74 65  |%*42)=0:..X."$te|
00013960  78 74 25 3d 22 50 6f 69  6e 74 73 22 3a f2 75 70  |xt%="Points":.up|
00013970  64 61 74 65 5f 62 6f 74  74 6f 6d 0d 58 f2 1c 78  |date_bottom.X..x|
00013980  25 3d 67 72 6f 75 70 5f  6d 61 70 25 21 28 67 72  |%=group_map%!(gr|
00013990  6f 75 70 25 2a 34 29 0d  58 fc 16 e3 79 25 3d 31  |oup%*4).X...y%=1|
000139a0  b8 64 61 74 61 5f 6c 65  6e 67 74 68 25 0d 59 06  |.data_length%.Y.|
000139b0  3f 58 3d a4 64 61 74 61  5f 67 65 74 28 78 25 2c  |?X=.data_get(x%,|
000139c0  79 25 29 2d 64 61 74 61  5f 78 6d 69 6e 3a 59 3d  |y%)-data_xmin:Y=|
000139d0  a4 64 61 74 61 5f 67 65  74 28 78 25 2b 31 2c 79  |.data_get(x%+1,y|
000139e0  25 29 2d 64 61 74 61 5f  79 6d 69 6e 0d 59 10 65  |%)-data_ymin.Y.e|
000139f0  43 25 3d 28 67 72 6f 75  70 5f 64 61 74 61 25 3f  |C%=(group_data%?|
00013a00  28 67 72 6f 75 70 25 2a  34 32 2b 34 29 3c 3c 32  |(group%*42+4)<<2|
00013a10  34 29 2b 28 67 72 6f 75  70 5f 64 61 74 61 25 3f  |4)+(group_data%?|
00013a20  28 67 72 6f 75 70 25 2a  34 32 2b 33 29 3c 3c 31  |(group%*42+3)<<1|
00013a30  36 29 2b 28 67 72 6f 75  70 5f 64 61 74 61 25 3f  |6)+(group_data%?|
00013a40  28 67 72 6f 75 70 25 2a  34 32 2b 32 29 3c 3c 38  |(group%*42+2)<<8|
00013a50  29 0d 59 1a 1f 4d 3d 67  72 6f 75 70 5f 64 61 74  |).Y..M=group_dat|
00013a60  61 25 3f 28 67 72 6f 75  70 25 2a 34 32 2b 31 29  |a%?(group%*42+1)|
00013a70  0d 59 24 1e c8 8e 67 72  6f 75 70 5f 64 61 74 61  |.Y$...group_data|
00013a80  25 3f 28 67 72 6f 75 70  25 2a 34 32 29 ca 0d 59  |%?(group%*42)..Y|
00013a90  2e 15 20 c9 31 3a f2 70  6f 69 6e 74 5f 63 69 72  |.. .1:.point_cir|
00013aa0  28 4d 29 0d 59 38 15 20  c9 32 3a f2 70 6f 69 6e  |(M).Y8. .2:.poin|
00013ab0  74 5f 73 71 75 28 4d 29  0d 59 42 15 20 c9 33 3a  |t_squ(M).YB. .3:|
00013ac0  f2 70 6f 69 6e 74 5f 74  72 69 28 4d 29 0d 59 4c  |.point_tri(M).YL|
00013ad0  15 20 c9 34 3a f2 70 6f  69 6e 74 5f 64 69 61 28  |. .4:.point_dia(|
00013ae0  4d 29 0d 59 56 15 20 c9  35 3a f2 70 6f 69 6e 74  |M).YV. .5:.point|
00013af0  5f 73 74 61 28 4d 29 0d  59 60 17 20 c9 36 3a f2  |_sta(M).Y`. .6:.|
00013b00  70 6f 69 6e 74 5f 63 72  6f 73 73 28 4d 29 0d 59  |point_cross(M).Y|
00013b10  6a 13 20 c9 37 3a f2 70  6f 69 6e 74 5f 78 28 4d  |j. .7:.point_x(M|
00013b20  29 0d 59 74 05 cb 0d 59  7e 13 f2 70 6f 6c 6c 5f  |).Yt...Y~..poll_|
00013b30  6d 69 6e 6f 72 6c 6f 6f  70 0d 59 88 05 ed 0d 59  |minorloop.Y....Y|
00013b40  92 05 e1 0d 59 9c 05 3a  0d 59 a6 12 dd f2 70 6f  |....Y..:.Y....po|
00013b50  69 6e 74 5f 63 69 72 28  4e 29 0d 59 b0 10 f4 20  |int_cir(N).Y... |
00013b60  4f 48 3a 20 43 69 72 63  6c 65 0d 59 ba 7b f2 64  |OH: Circle.Y.{.d|
00013b70  66 69 6c 65 5f 77 70 75  74 28 32 29 3a f2 64 66  |file_wput(2):.df|
00013b80  69 6c 65 5f 77 70 75 74  28 32 34 2b 31 36 2b 28  |ile_wput(24+16+(|
00013b90  31 2a 31 32 29 2b 28 34  2a 32 38 29 2b 34 29 3a  |1*12)+(4*28)+4):|
00013ba0  f2 64 66 69 6c 65 5f 77  70 75 74 28 30 29 3a f2  |.dfile_wput(0):.|
00013bb0  64 66 69 6c 65 5f 77 70  75 74 28 30 29 3a f2 64  |dfile_wput(0):.d|
00013bc0  66 69 6c 65 5f 77 70 75  74 28 33 30 30 30 30 30  |file_wput(300000|
00013bd0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
00013be0  30 30 30 30 29 0d 59 c4  4d f2 64 66 69 6c 65 5f  |0000).Y.M.dfile_|
00013bf0  77 70 75 74 28 43 25 29  3a f2 64 66 69 6c 65 5f  |wput(C%):.dfile_|
00013c00  77 70 75 74 28 67 72 61  70 68 5f 6f 75 74 6c 69  |wput(graph_outli|
00013c10  6e 65 25 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |ne%):.dfile_wput|
00013c20  28 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(0):.dfile_wput(|
00013c30  30 29 0d 59 ce 63 f2 64  66 69 6c 65 5f 77 70 75  |0).Y.c.dfile_wpu|
00013c40  74 28 32 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(2):.dfile_wput|
00013c50  28 32 30 30 30 30 2b 58  2a 67 72 61 70 68 5f 78  |(20000+X*graph_x|
00013c60  73 63 61 6c 65 2d 31 30  30 30 2a 4e 2b 52 25 29  |scale-1000*N+R%)|
00013c70  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 30 30  |:.dfile_wput(200|
00013c80  30 30 2b 59 2a 67 72 61  70 68 5f 79 73 63 61 6c  |00+Y*graph_yscal|
00013c90  65 2b 52 25 29 0d 59 d8  12 f2 64 66 69 6c 65 5f  |e+R%).Y...dfile_|
00013ca0  77 70 75 74 28 36 29 0d  59 e2 5b 20 f2 64 66 69  |wput(6).Y.[ .dfi|
00013cb0  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 58 2a  |le_wput(20000+X*|
00013cc0  67 72 61 70 68 5f 78 73  63 61 6c 65 2d 31 30 30  |graph_xscale-100|
00013cd0  30 2a 4e 2b 52 25 29 3a  f2 64 66 69 6c 65 5f 77  |0*N+R%):.dfile_w|
00013ce0  70 75 74 28 32 30 30 30  30 2b 59 2a 67 72 61 70  |put(20000+Y*grap|
00013cf0  68 5f 79 73 63 61 6c 65  2d 35 30 30 2a 4e 2b 52  |h_yscale-500*N+R|
00013d00  25 29 0d 59 ec 5b 20 f2  64 66 69 6c 65 5f 77 70  |%).Y.[ .dfile_wp|
00013d10  75 74 28 32 30 30 30 30  2b 58 2a 67 72 61 70 68  |ut(20000+X*graph|
00013d20  5f 78 73 63 61 6c 65 2d  35 30 30 2a 4e 2b 52 25  |_xscale-500*N+R%|
00013d30  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
00013d40  30 30 30 2b 59 2a 67 72  61 70 68 5f 79 73 63 61  |000+Y*graph_ysca|
00013d50  6c 65 2d 31 30 30 30 2a  4e 2b 52 25 29 0d 59 f6  |le-1000*N+R%).Y.|
00013d60  55 20 f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |U .dfile_wput(20|
00013d70  30 30 30 2b 58 2a 67 72  61 70 68 5f 78 73 63 61  |000+X*graph_xsca|
00013d80  6c 65 2b 52 25 29 3a f2  64 66 69 6c 65 5f 77 70  |le+R%):.dfile_wp|
00013d90  75 74 28 32 30 30 30 30  2b 59 2a 67 72 61 70 68  |ut(20000+Y*graph|
00013da0  5f 79 73 63 61 6c 65 2d  31 30 30 30 2a 4e 2b 52  |_yscale-1000*N+R|
00013db0  25 29 0d 5a 00 12 f2 64  66 69 6c 65 5f 77 70 75  |%).Z...dfile_wpu|
00013dc0  74 28 36 29 0d 5a 0a 5a  f2 64 66 69 6c 65 5f 77  |t(6).Z.Z.dfile_w|
00013dd0  70 75 74 28 32 30 30 30  30 2b 58 2a 67 72 61 70  |put(20000+X*grap|
00013de0  68 5f 78 73 63 61 6c 65  2b 35 30 30 2a 4e 2b 52  |h_xscale+500*N+R|
00013df0  25 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |%):.dfile_wput(2|
00013e00  30 30 30 30 2b 59 2a 67  72 61 70 68 5f 79 73 63  |0000+Y*graph_ysc|
00013e10  61 6c 65 2d 31 30 30 30  2a 4e 2b 52 25 29 0d 5a  |ale-1000*N+R%).Z|
00013e20  14 5a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |.Z.dfile_wput(20|
00013e30  30 30 30 2b 58 2a 67 72  61 70 68 5f 78 73 63 61  |000+X*graph_xsca|
00013e40  6c 65 2b 31 30 30 30 2a  4e 2b 52 25 29 3a f2 64  |le+1000*N+R%):.d|
00013e50  66 69 6c 65 5f 77 70 75  74 28 32 30 30 30 30 2b  |file_wput(20000+|
00013e60  59 2a 67 72 61 70 68 5f  79 73 63 61 6c 65 2d 35  |Y*graph_yscale-5|
00013e70  30 30 2a 4e 2b 52 25 29  0d 5a 1e 54 f2 64 66 69  |00*N+R%).Z.T.dfi|
00013e80  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 58 2a  |le_wput(20000+X*|
00013e90  67 72 61 70 68 5f 78 73  63 61 6c 65 2b 31 30 30  |graph_xscale+100|
00013ea0  30 2a 4e 2b 52 25 29 3a  f2 64 66 69 6c 65 5f 77  |0*N+R%):.dfile_w|
00013eb0  70 75 74 28 32 30 30 30  30 2b 59 2a 67 72 61 70  |put(20000+Y*grap|
00013ec0  68 5f 79 73 63 61 6c 65  2b 52 25 29 0d 5a 28 12  |h_yscale+R%).Z(.|
00013ed0  f2 64 66 69 6c 65 5f 77  70 75 74 28 36 29 0d 5a  |.dfile_wput(6).Z|
00013ee0  32 5a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |2Z.dfile_wput(20|
00013ef0  30 30 30 2b 58 2a 67 72  61 70 68 5f 78 73 63 61  |000+X*graph_xsca|
00013f00  6c 65 2b 31 30 30 30 2a  4e 2b 52 25 29 3a f2 64  |le+1000*N+R%):.d|
00013f10  66 69 6c 65 5f 77 70 75  74 28 32 30 30 30 30 2b  |file_wput(20000+|
00013f20  59 2a 67 72 61 70 68 5f  79 73 63 61 6c 65 2b 35  |Y*graph_yscale+5|
00013f30  30 30 2a 4e 2b 52 25 29  0d 5a 3c 5a f2 64 66 69  |00*N+R%).Z<Z.dfi|
00013f40  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 58 2a  |le_wput(20000+X*|
00013f50  67 72 61 70 68 5f 78 73  63 61 6c 65 2b 35 30 30  |graph_xscale+500|
00013f60  2a 4e 2b 52 25 29 3a f2  64 66 69 6c 65 5f 77 70  |*N+R%):.dfile_wp|
00013f70  75 74 28 32 30 30 30 30  2b 59 2a 67 72 61 70 68  |ut(20000+Y*graph|
00013f80  5f 79 73 63 61 6c 65 2b  31 30 30 30 2a 4e 2b 52  |_yscale+1000*N+R|
00013f90  25 29 0d 5a 46 54 f2 64  66 69 6c 65 5f 77 70 75  |%).ZFT.dfile_wpu|
00013fa0  74 28 32 30 30 30 30 2b  58 2a 67 72 61 70 68 5f  |t(20000+X*graph_|
00013fb0  78 73 63 61 6c 65 2b 52  25 29 3a f2 64 66 69 6c  |xscale+R%):.dfil|
00013fc0  65 5f 77 70 75 74 28 32  30 30 30 30 2b 59 2a 67  |e_wput(20000+Y*g|
00013fd0  72 61 70 68 5f 79 73 63  61 6c 65 2b 31 30 30 30  |raph_yscale+1000|
00013fe0  2a 4e 2b 52 25 29 0d 5a  50 12 f2 64 66 69 6c 65  |*N+R%).ZP..dfile|
00013ff0  5f 77 70 75 74 28 36 29  0d 5a 5a 5a f2 64 66 69  |_wput(6).ZZZ.dfi|
00014000  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 58 2a  |le_wput(20000+X*|
00014010  67 72 61 70 68 5f 78 73  63 61 6c 65 2d 35 30 30  |graph_xscale-500|
00014020  2a 4e 2b 52 25 29 3a f2  64 66 69 6c 65 5f 77 70  |*N+R%):.dfile_wp|
00014030  75 74 28 32 30 30 30 30  2b 59 2a 67 72 61 70 68  |ut(20000+Y*graph|
00014040  5f 79 73 63 61 6c 65 2b  31 30 30 30 2a 4e 2b 52  |_yscale+1000*N+R|
00014050  25 29 0d 5a 64 5a f2 64  66 69 6c 65 5f 77 70 75  |%).ZdZ.dfile_wpu|
00014060  74 28 32 30 30 30 30 2b  58 2a 67 72 61 70 68 5f  |t(20000+X*graph_|
00014070  78 73 63 61 6c 65 2d 31  30 30 30 2a 4e 2b 52 25  |xscale-1000*N+R%|
00014080  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
00014090  30 30 30 2b 59 2a 67 72  61 70 68 5f 79 73 63 61  |000+Y*graph_ysca|
000140a0  6c 65 2b 35 30 30 2a 4e  2b 52 25 29 0d 5a 6e 54  |le+500*N+R%).ZnT|
000140b0  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 30 30 30  |.dfile_wput(2000|
000140c0  30 2b 58 2a 67 72 61 70  68 5f 78 73 63 61 6c 65  |0+X*graph_xscale|
000140d0  2d 31 30 30 30 2a 4e 2b  52 25 29 3a f2 64 66 69  |-1000*N+R%):.dfi|
000140e0  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 59 2a  |le_wput(20000+Y*|
000140f0  67 72 61 70 68 5f 79 73  63 61 6c 65 2b 52 25 29  |graph_yscale+R%)|
00014100  0d 5a 78 12 f2 64 66 69  6c 65 5f 77 70 75 74 28  |.Zx..dfile_wput(|
00014110  30 29 0d 5a 82 05 e1 0d  5a 8c 05 3a 0d 5a 96 12  |0).Z....Z..:.Z..|
00014120  dd f2 70 6f 69 6e 74 5f  73 71 75 28 4e 29 0d 5a  |..point_squ(N).Z|
00014130  a0 10 f4 20 4f 48 3a 20  53 71 75 61 72 65 0d 5a  |... OH: Square.Z|
00014140  aa 74 f2 64 66 69 6c 65  5f 77 70 75 74 28 32 29  |.t.dfile_wput(2)|
00014150  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 34 2b  |:.dfile_wput(24+|
00014160  31 36 2b 28 35 2a 31 32  29 2b 34 29 3a f2 64 66  |16+(5*12)+4):.df|
00014170  69 6c 65 5f 77 70 75 74  28 30 29 3a f2 64 66 69  |ile_wput(0):.dfi|
00014180  6c 65 5f 77 70 75 74 28  30 29 3a f2 64 66 69 6c  |le_wput(0):.dfil|
00014190  65 5f 77 70 75 74 28 33  30 30 30 30 30 29 3a f2  |e_wput(300000):.|
000141a0  64 66 69 6c 65 5f 77 70  75 74 28 32 30 30 30 30  |dfile_wput(20000|
000141b0  30 29 0d 5a b4 4d f2 64  66 69 6c 65 5f 77 70 75  |0).Z.M.dfile_wpu|
000141c0  74 28 43 25 29 3a f2 64  66 69 6c 65 5f 77 70 75  |t(C%):.dfile_wpu|
000141d0  74 28 67 72 61 70 68 5f  6f 75 74 6c 69 6e 65 25  |t(graph_outline%|
000141e0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |):.dfile_wput(0)|
000141f0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 0d  |:.dfile_wput(0).|
00014200  5a be 6a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |Z.j.dfile_wput(2|
00014210  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
00014220  30 30 30 2b 58 2a 67 72  61 70 68 5f 78 73 63 61  |000+X*graph_xsca|
00014230  6c 65 2d 31 30 30 30 2a  4e 2b 52 25 29 3a f2 64  |le-1000*N+R%):.d|
00014240  66 69 6c 65 5f 77 70 75  74 28 32 30 30 30 30 2b  |file_wput(20000+|
00014250  59 2a 67 72 61 70 68 5f  79 73 63 61 6c 65 2d 31  |Y*graph_yscale-1|
00014260  30 30 30 2a 4e 2b 52 25  29 0d 5a c8 6a f2 64 66  |000*N+R%).Z.j.df|
00014270  69 6c 65 5f 77 70 75 74  28 38 29 3a f2 64 66 69  |ile_wput(8):.dfi|
00014280  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 58 2a  |le_wput(20000+X*|
00014290  67 72 61 70 68 5f 78 73  63 61 6c 65 2b 31 30 30  |graph_xscale+100|
000142a0  30 2a 4e 2b 52 25 29 3a  f2 64 66 69 6c 65 5f 77  |0*N+R%):.dfile_w|
000142b0  70 75 74 28 32 30 30 30  30 2b 59 2a 67 72 61 70  |put(20000+Y*grap|
000142c0  68 5f 79 73 63 61 6c 65  2d 31 30 30 30 2a 4e 2b  |h_yscale-1000*N+|
000142d0  52 25 29 0d 5a d2 6a f2  64 66 69 6c 65 5f 77 70  |R%).Z.j.dfile_wp|
000142e0  75 74 28 38 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(8):.dfile_wpu|
000142f0  74 28 32 30 30 30 30 2b  58 2a 67 72 61 70 68 5f  |t(20000+X*graph_|
00014300  78 73 63 61 6c 65 2b 31  30 30 30 2a 4e 2b 52 25  |xscale+1000*N+R%|
00014310  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
00014320  30 30 30 2b 59 2a 67 72  61 70 68 5f 79 73 63 61  |000+Y*graph_ysca|
00014330  6c 65 2b 31 30 30 30 2a  4e 2b 52 25 29 0d 5a dc  |le+1000*N+R%).Z.|
00014340  6a f2 64 66 69 6c 65 5f  77 70 75 74 28 38 29 3a  |j.dfile_wput(8):|
00014350  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 30 30 30  |.dfile_wput(2000|
00014360  30 2b 58 2a 67 72 61 70  68 5f 78 73 63 61 6c 65  |0+X*graph_xscale|
00014370  2d 31 30 30 30 2a 4e 2b  52 25 29 3a f2 64 66 69  |-1000*N+R%):.dfi|
00014380  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 59 2a  |le_wput(20000+Y*|
00014390  67 72 61 70 68 5f 79 73  63 61 6c 65 2b 31 30 30  |graph_yscale+100|
000143a0  30 2a 4e 2b 52 25 29 0d  5a e6 6a f2 64 66 69 6c  |0*N+R%).Z.j.dfil|
000143b0  65 5f 77 70 75 74 28 38  29 3a f2 64 66 69 6c 65  |e_wput(8):.dfile|
000143c0  5f 77 70 75 74 28 32 30  30 30 30 2b 58 2a 67 72  |_wput(20000+X*gr|
000143d0  61 70 68 5f 78 73 63 61  6c 65 2d 31 30 30 30 2a  |aph_xscale-1000*|
000143e0  4e 2b 52 25 29 3a f2 64  66 69 6c 65 5f 77 70 75  |N+R%):.dfile_wpu|
000143f0  74 28 32 30 30 30 30 2b  59 2a 67 72 61 70 68 5f  |t(20000+Y*graph_|
00014400  79 73 63 61 6c 65 2d 31  30 30 30 2a 4e 2b 52 25  |yscale-1000*N+R%|
00014410  29 0d 5a f0 12 f2 64 66  69 6c 65 5f 77 70 75 74  |).Z...dfile_wput|
00014420  28 30 29 0d 5a fa 05 e1  0d 5b 04 05 3a 0d 5b 0e  |(0).Z....[..:.[.|
00014430  12 dd f2 70 6f 69 6e 74  5f 74 72 69 28 4e 29 0d  |...point_tri(N).|
00014440  5b 18 12 f4 20 4f 48 3a  20 54 72 69 61 6e 67 6c  |[... OH: Triangl|
00014450  65 0d 5b 22 74 f2 64 66  69 6c 65 5f 77 70 75 74  |e.["t.dfile_wput|
00014460  28 32 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(2):.dfile_wput(|
00014470  32 34 2b 31 36 2b 28 34  2a 31 32 29 2b 34 29 3a  |24+16+(4*12)+4):|
00014480  f2 64 66 69 6c 65 5f 77  70 75 74 28 30 29 3a f2  |.dfile_wput(0):.|
00014490  64 66 69 6c 65 5f 77 70  75 74 28 30 29 3a f2 64  |dfile_wput(0):.d|
000144a0  66 69 6c 65 5f 77 70 75  74 28 33 30 30 30 30 30  |file_wput(300000|
000144b0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
000144c0  30 30 30 30 29 0d 5b 2c  4d f2 64 66 69 6c 65 5f  |0000).[,M.dfile_|
000144d0  77 70 75 74 28 43 25 29  3a f2 64 66 69 6c 65 5f  |wput(C%):.dfile_|
000144e0  77 70 75 74 28 67 72 61  70 68 5f 6f 75 74 6c 69  |wput(graph_outli|
000144f0  6e 65 25 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |ne%):.dfile_wput|
00014500  28 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(0):.dfile_wput(|
00014510  30 29 0d 5b 36 6a f2 64  66 69 6c 65 5f 77 70 75  |0).[6j.dfile_wpu|
00014520  74 28 32 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(2):.dfile_wput|
00014530  28 32 30 30 30 30 2b 58  2a 67 72 61 70 68 5f 78  |(20000+X*graph_x|
00014540  73 63 61 6c 65 2d 31 30  30 30 2a 4e 2b 52 25 29  |scale-1000*N+R%)|
00014550  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 30 30  |:.dfile_wput(200|
00014560  30 30 2b 59 2a 67 72 61  70 68 5f 79 73 63 61 6c  |00+Y*graph_yscal|
00014570  65 2d 31 30 30 30 2a 4e  2b 52 25 29 0d 5b 40 6a  |e-1000*N+R%).[@j|
00014580  f2 64 66 69 6c 65 5f 77  70 75 74 28 38 29 3a f2  |.dfile_wput(8):.|
00014590  64 66 69 6c 65 5f 77 70  75 74 28 32 30 30 30 30  |dfile_wput(20000|
000145a0  2b 58 2a 67 72 61 70 68  5f 78 73 63 61 6c 65 2b  |+X*graph_xscale+|
000145b0  31 30 30 30 2a 4e 2b 52  25 29 3a f2 64 66 69 6c  |1000*N+R%):.dfil|
000145c0  65 5f 77 70 75 74 28 32  30 30 30 30 2b 59 2a 67  |e_wput(20000+Y*g|
000145d0  72 61 70 68 5f 79 73 63  61 6c 65 2d 31 30 30 30  |raph_yscale-1000|
000145e0  2a 4e 2b 52 25 29 0d 5b  4a 63 f2 64 66 69 6c 65  |*N+R%).[Jc.dfile|
000145f0  5f 77 70 75 74 28 38 29  3a f2 64 66 69 6c 65 5f  |_wput(8):.dfile_|
00014600  77 70 75 74 28 32 30 30  30 30 2b 58 2a 67 72 61  |wput(20000+X*gra|
00014610  70 68 5f 78 73 63 61 6c  65 2b 52 25 29 3a f2 64  |ph_xscale+R%):.d|
00014620  66 69 6c 65 5f 77 70 75  74 28 32 30 30 30 30 2b  |file_wput(20000+|
00014630  59 2a 67 72 61 70 68 5f  79 73 63 61 6c 65 2b 31  |Y*graph_yscale+1|
00014640  30 30 30 2a 4e 2b 52 25  29 0d 5b 54 6a f2 64 66  |000*N+R%).[Tj.df|
00014650  69 6c 65 5f 77 70 75 74  28 38 29 3a f2 64 66 69  |ile_wput(8):.dfi|
00014660  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 58 2a  |le_wput(20000+X*|
00014670  67 72 61 70 68 5f 78 73  63 61 6c 65 2d 31 30 30  |graph_xscale-100|
00014680  30 2a 4e 2b 52 25 29 3a  f2 64 66 69 6c 65 5f 77  |0*N+R%):.dfile_w|
00014690  70 75 74 28 32 30 30 30  30 2b 59 2a 67 72 61 70  |put(20000+Y*grap|
000146a0  68 5f 79 73 63 61 6c 65  2d 31 30 30 30 2a 4e 2b  |h_yscale-1000*N+|
000146b0  52 25 29 0d 5b 5e 12 f2  64 66 69 6c 65 5f 77 70  |R%).[^..dfile_wp|
000146c0  75 74 28 30 29 0d 5b 68  05 e1 0d 5b 72 05 3a 0d  |ut(0).[h...[r.:.|
000146d0  5b 7c 12 dd f2 70 6f 69  6e 74 5f 64 69 61 28 4e  |[|...point_dia(N|
000146e0  29 0d 5b 86 11 f4 20 4f  48 3a 20 44 69 61 6d 6f  |).[... OH: Diamo|
000146f0  6e 64 0d 5b 90 74 f2 64  66 69 6c 65 5f 77 70 75  |nd.[.t.dfile_wpu|
00014700  74 28 32 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(2):.dfile_wput|
00014710  28 32 34 2b 31 36 2b 28  35 2a 31 32 29 2b 34 29  |(24+16+(5*12)+4)|
00014720  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 3a  |:.dfile_wput(0):|
00014730  f2 64 66 69 6c 65 5f 77  70 75 74 28 30 29 3a f2  |.dfile_wput(0):.|
00014740  64 66 69 6c 65 5f 77 70  75 74 28 33 30 30 30 30  |dfile_wput(30000|
00014750  30 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |0):.dfile_wput(2|
00014760  30 30 30 30 30 29 0d 5b  9a 4d f2 64 66 69 6c 65  |00000).[.M.dfile|
00014770  5f 77 70 75 74 28 43 25  29 3a f2 64 66 69 6c 65  |_wput(C%):.dfile|
00014780  5f 77 70 75 74 28 67 72  61 70 68 5f 6f 75 74 6c  |_wput(graph_outl|
00014790  69 6e 65 25 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ine%):.dfile_wpu|
000147a0  74 28 30 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(0):.dfile_wput|
000147b0  28 30 29 0d 5b a4 63 f2  64 66 69 6c 65 5f 77 70  |(0).[.c.dfile_wp|
000147c0  75 74 28 32 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(2):.dfile_wpu|
000147d0  74 28 32 30 30 30 30 2b  58 2a 67 72 61 70 68 5f  |t(20000+X*graph_|
000147e0  78 73 63 61 6c 65 2d 31  30 30 30 2a 4e 2b 52 25  |xscale-1000*N+R%|
000147f0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
00014800  30 30 30 2b 59 2a 67 72  61 70 68 5f 79 73 63 61  |000+Y*graph_ysca|
00014810  6c 65 2b 52 25 29 0d 5b  ae 63 f2 64 66 69 6c 65  |le+R%).[.c.dfile|
00014820  5f 77 70 75 74 28 38 29  3a f2 64 66 69 6c 65 5f  |_wput(8):.dfile_|
00014830  77 70 75 74 28 32 30 30  30 30 2b 58 2a 67 72 61  |wput(20000+X*gra|
00014840  70 68 5f 78 73 63 61 6c  65 2b 52 25 29 3a f2 64  |ph_xscale+R%):.d|
00014850  66 69 6c 65 5f 77 70 75  74 28 32 30 30 30 30 2b  |file_wput(20000+|
00014860  59 2a 67 72 61 70 68 5f  79 73 63 61 6c 65 2d 31  |Y*graph_yscale-1|
00014870  30 30 30 2a 4e 2b 52 25  29 0d 5b b8 63 f2 64 66  |000*N+R%).[.c.df|
00014880  69 6c 65 5f 77 70 75 74  28 38 29 3a f2 64 66 69  |ile_wput(8):.dfi|
00014890  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 58 2a  |le_wput(20000+X*|
000148a0  67 72 61 70 68 5f 78 73  63 61 6c 65 2b 31 30 30  |graph_xscale+100|
000148b0  30 2a 4e 2b 52 25 29 3a  f2 64 66 69 6c 65 5f 77  |0*N+R%):.dfile_w|
000148c0  70 75 74 28 32 30 30 30  30 2b 59 2a 67 72 61 70  |put(20000+Y*grap|
000148d0  68 5f 79 73 63 61 6c 65  2b 52 25 29 0d 5b c2 63  |h_yscale+R%).[.c|
000148e0  f2 64 66 69 6c 65 5f 77  70 75 74 28 38 29 3a f2  |.dfile_wput(8):.|
000148f0  64 66 69 6c 65 5f 77 70  75 74 28 32 30 30 30 30  |dfile_wput(20000|
00014900  2b 58 2a 67 72 61 70 68  5f 78 73 63 61 6c 65 2b  |+X*graph_xscale+|
00014910  52 25 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |R%):.dfile_wput(|
00014920  32 30 30 30 30 2b 59 2a  67 72 61 70 68 5f 79 73  |20000+Y*graph_ys|
00014930  63 61 6c 65 2b 31 30 30  30 2a 4e 2b 52 25 29 0d  |cale+1000*N+R%).|
00014940  5b cc 63 f2 64 66 69 6c  65 5f 77 70 75 74 28 38  |[.c.dfile_wput(8|
00014950  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
00014960  30 30 30 2b 58 2a 67 72  61 70 68 5f 78 73 63 61  |000+X*graph_xsca|
00014970  6c 65 2d 31 30 30 30 2a  4e 2b 52 25 29 3a f2 64  |le-1000*N+R%):.d|
00014980  66 69 6c 65 5f 77 70 75  74 28 32 30 30 30 30 2b  |file_wput(20000+|
00014990  59 2a 67 72 61 70 68 5f  79 73 63 61 6c 65 2b 52  |Y*graph_yscale+R|
000149a0  25 29 0d 5b d6 12 f2 64  66 69 6c 65 5f 77 70 75  |%).[...dfile_wpu|
000149b0  74 28 30 29 0d 5b e0 05  e1 0d 5b ea 05 3a 0d 5b  |t(0).[....[..:.[|
000149c0  f4 12 dd f2 70 6f 69 6e  74 5f 73 74 61 28 4e 29  |....point_sta(N)|
000149d0  0d 5b fe 0e f4 20 4f 48  3a 20 53 74 61 72 0d 5c  |.[... OH: Star.\|
000149e0  08 75 f2 64 66 69 6c 65  5f 77 70 75 74 28 32 29  |.u.dfile_wput(2)|
000149f0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 34 2b  |:.dfile_wput(24+|
00014a00  31 36 2b 28 31 33 2a 31  32 29 2b 34 29 3a f2 64  |16+(13*12)+4):.d|
00014a10  66 69 6c 65 5f 77 70 75  74 28 30 29 3a f2 64 66  |file_wput(0):.df|
00014a20  69 6c 65 5f 77 70 75 74  28 30 29 3a f2 64 66 69  |ile_wput(0):.dfi|
00014a30  6c 65 5f 77 70 75 74 28  33 30 30 30 30 30 29 3a  |le_wput(300000):|
00014a40  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 30 30 30  |.dfile_wput(2000|
00014a50  30 30 29 0d 5c 12 4d f2  64 66 69 6c 65 5f 77 70  |00).\.M.dfile_wp|
00014a60  75 74 28 43 25 29 3a f2  64 66 69 6c 65 5f 77 70  |ut(C%):.dfile_wp|
00014a70  75 74 28 67 72 61 70 68  5f 6f 75 74 6c 69 6e 65  |ut(graph_outline|
00014a80  25 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 30  |%):.dfile_wput(0|
00014a90  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |):.dfile_wput(0)|
00014aa0  0d 5c 1c 63 f2 64 66 69  6c 65 5f 77 70 75 74 28  |.\.c.dfile_wput(|
00014ab0  32 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |2):.dfile_wput(2|
00014ac0  30 30 30 30 2b 58 2a 67  72 61 70 68 5f 78 73 63  |0000+X*graph_xsc|
00014ad0  61 6c 65 2b 52 25 29 3a  f2 64 66 69 6c 65 5f 77  |ale+R%):.dfile_w|
00014ae0  70 75 74 28 32 30 30 30  30 2b 59 2a 67 72 61 70  |put(20000+Y*grap|
00014af0  68 5f 79 73 63 61 6c 65  2d 31 30 30 30 2a 4e 2b  |h_yscale-1000*N+|
00014b00  52 25 29 0d 5c 26 68 f2  64 66 69 6c 65 5f 77 70  |R%).\&h.dfile_wp|
00014b10  75 74 28 38 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(8):.dfile_wpu|
00014b20  74 28 32 30 30 30 30 2b  58 2a 67 72 61 70 68 5f  |t(20000+X*graph_|
00014b30  78 73 63 61 6c 65 2b 33  30 30 2a 4e 2b 52 25 29  |xscale+300*N+R%)|
00014b40  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 30 30  |:.dfile_wput(200|
00014b50  30 30 2b 59 2a 67 72 61  70 68 5f 79 73 63 61 6c  |00+Y*graph_yscal|
00014b60  65 2d 35 30 30 2a 4e 2b  52 25 29 0d 5c 30 69 f2  |e-500*N+R%).\0i.|
00014b70  64 66 69 6c 65 5f 77 70  75 74 28 38 29 3a f2 64  |dfile_wput(8):.d|
00014b80  66 69 6c 65 5f 77 70 75  74 28 32 30 30 30 30 2b  |file_wput(20000+|
00014b90  58 2a 67 72 61 70 68 5f  78 73 63 61 6c 65 2b 31  |X*graph_xscale+1|
00014ba0  30 30 30 2a 4e 2b 52 25  29 3a f2 64 66 69 6c 65  |000*N+R%):.dfile|
00014bb0  5f 77 70 75 74 28 32 30  30 30 30 2b 59 2a 67 72  |_wput(20000+Y*gr|
00014bc0  61 70 68 5f 79 73 63 61  6c 65 2d 35 30 30 2a 4e  |aph_yscale-500*N|
00014bd0  2b 52 25 29 0d 5c 3a 62  f2 64 66 69 6c 65 5f 77  |+R%).\:b.dfile_w|
00014be0  70 75 74 28 38 29 3a f2  64 66 69 6c 65 5f 77 70  |put(8):.dfile_wp|
00014bf0  75 74 28 32 30 30 30 30  2b 58 2a 67 72 61 70 68  |ut(20000+X*graph|
00014c00  5f 78 73 63 61 6c 65 2b  35 30 30 2a 4e 2b 52 25  |_xscale+500*N+R%|
00014c10  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
00014c20  30 30 30 2b 59 2a 67 72  61 70 68 5f 79 73 63 61  |000+Y*graph_ysca|
00014c30  6c 65 2b 52 25 29 0d 5c  44 69 f2 64 66 69 6c 65  |le+R%).\Di.dfile|
00014c40  5f 77 70 75 74 28 38 29  3a f2 64 66 69 6c 65 5f  |_wput(8):.dfile_|
00014c50  77 70 75 74 28 32 30 30  30 30 2b 58 2a 67 72 61  |wput(20000+X*gra|
00014c60  70 68 5f 78 73 63 61 6c  65 2b 31 30 30 30 2a 4e  |ph_xscale+1000*N|
00014c70  2b 52 25 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |+R%):.dfile_wput|
00014c80  28 32 30 30 30 30 2b 59  2a 67 72 61 70 68 5f 79  |(20000+Y*graph_y|
00014c90  73 63 61 6c 65 2b 35 30  30 2a 4e 2b 52 25 29 0d  |scale+500*N+R%).|
00014ca0  5c 4e 68 f2 64 66 69 6c  65 5f 77 70 75 74 28 38  |\Nh.dfile_wput(8|
00014cb0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
00014cc0  30 30 30 2b 58 2a 67 72  61 70 68 5f 78 73 63 61  |000+X*graph_xsca|
00014cd0  6c 65 2b 33 30 30 2a 4e  2b 52 25 29 3a f2 64 66  |le+300*N+R%):.df|
00014ce0  69 6c 65 5f 77 70 75 74  28 32 30 30 30 30 2b 59  |ile_wput(20000+Y|
00014cf0  2a 67 72 61 70 68 5f 79  73 63 61 6c 65 2b 35 30  |*graph_yscale+50|
00014d00  30 2a 4e 2b 52 25 29 0d  5c 58 63 f2 64 66 69 6c  |0*N+R%).\Xc.dfil|
00014d10  65 5f 77 70 75 74 28 38  29 3a f2 64 66 69 6c 65  |e_wput(8):.dfile|
00014d20  5f 77 70 75 74 28 32 30  30 30 30 2b 58 2a 67 72  |_wput(20000+X*gr|
00014d30  61 70 68 5f 78 73 63 61  6c 65 2b 52 25 29 3a f2  |aph_xscale+R%):.|
00014d40  64 66 69 6c 65 5f 77 70  75 74 28 32 30 30 30 30  |dfile_wput(20000|
00014d50  2b 59 2a 67 72 61 70 68  5f 79 73 63 61 6c 65 2b  |+Y*graph_yscale+|
00014d60  31 30 30 30 2a 4e 2b 52  25 29 0d 5c 62 68 f2 64  |1000*N+R%).\bh.d|
00014d70  66 69 6c 65 5f 77 70 75  74 28 38 29 3a f2 64 66  |file_wput(8):.df|
00014d80  69 6c 65 5f 77 70 75 74  28 32 30 30 30 30 2b 58  |ile_wput(20000+X|
00014d90  2a 67 72 61 70 68 5f 78  73 63 61 6c 65 2d 33 30  |*graph_xscale-30|
00014da0  30 2a 4e 2b 52 25 29 3a  f2 64 66 69 6c 65 5f 77  |0*N+R%):.dfile_w|
00014db0  70 75 74 28 32 30 30 30  30 2b 59 2a 67 72 61 70  |put(20000+Y*grap|
00014dc0  68 5f 79 73 63 61 6c 65  2b 35 30 30 2a 4e 2b 52  |h_yscale+500*N+R|
00014dd0  25 29 0d 5c 6c 69 f2 64  66 69 6c 65 5f 77 70 75  |%).\li.dfile_wpu|
00014de0  74 28 38 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(8):.dfile_wput|
00014df0  28 32 30 30 30 30 2b 58  2a 67 72 61 70 68 5f 78  |(20000+X*graph_x|
00014e00  73 63 61 6c 65 2d 31 30  30 30 2a 4e 2b 52 25 29  |scale-1000*N+R%)|
00014e10  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 30 30  |:.dfile_wput(200|
00014e20  30 30 2b 59 2a 67 72 61  70 68 5f 79 73 63 61 6c  |00+Y*graph_yscal|
00014e30  65 2b 35 30 30 2a 4e 2b  52 25 29 0d 5c 76 62 f2  |e+500*N+R%).\vb.|
00014e40  64 66 69 6c 65 5f 77 70  75 74 28 38 29 3a f2 64  |dfile_wput(8):.d|
00014e50  66 69 6c 65 5f 77 70 75  74 28 32 30 30 30 30 2b  |file_wput(20000+|
00014e60  58 2a 67 72 61 70 68 5f  78 73 63 61 6c 65 2d 35  |X*graph_xscale-5|
00014e70  30 30 2a 4e 2b 52 25 29  3a f2 64 66 69 6c 65 5f  |00*N+R%):.dfile_|
00014e80  77 70 75 74 28 32 30 30  30 30 2b 59 2a 67 72 61  |wput(20000+Y*gra|
00014e90  70 68 5f 79 73 63 61 6c  65 2b 52 25 29 0d 5c 80  |ph_yscale+R%).\.|
00014ea0  69 f2 64 66 69 6c 65 5f  77 70 75 74 28 38 29 3a  |i.dfile_wput(8):|
00014eb0  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 30 30 30  |.dfile_wput(2000|
00014ec0  30 2b 58 2a 67 72 61 70  68 5f 78 73 63 61 6c 65  |0+X*graph_xscale|
00014ed0  2d 31 30 30 30 2a 4e 2b  52 25 29 3a f2 64 66 69  |-1000*N+R%):.dfi|
00014ee0  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 59 2a  |le_wput(20000+Y*|
00014ef0  67 72 61 70 68 5f 79 73  63 61 6c 65 2d 35 30 30  |graph_yscale-500|
00014f00  2a 4e 2b 52 25 29 0d 5c  8a 68 f2 64 66 69 6c 65  |*N+R%).\.h.dfile|
00014f10  5f 77 70 75 74 28 38 29  3a f2 64 66 69 6c 65 5f  |_wput(8):.dfile_|
00014f20  77 70 75 74 28 32 30 30  30 30 2b 58 2a 67 72 61  |wput(20000+X*gra|
00014f30  70 68 5f 78 73 63 61 6c  65 2d 33 30 30 2a 4e 2b  |ph_xscale-300*N+|
00014f40  52 25 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |R%):.dfile_wput(|
00014f50  32 30 30 30 30 2b 59 2a  67 72 61 70 68 5f 79 73  |20000+Y*graph_ys|
00014f60  63 61 6c 65 2d 35 30 30  2a 4e 2b 52 25 29 0d 5c  |cale-500*N+R%).\|
00014f70  94 63 f2 64 66 69 6c 65  5f 77 70 75 74 28 38 29  |.c.dfile_wput(8)|
00014f80  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 30 30  |:.dfile_wput(200|
00014f90  30 30 2b 58 2a 67 72 61  70 68 5f 78 73 63 61 6c  |00+X*graph_xscal|
00014fa0  65 2b 52 25 29 3a f2 64  66 69 6c 65 5f 77 70 75  |e+R%):.dfile_wpu|
00014fb0  74 28 32 30 30 30 30 2b  59 2a 67 72 61 70 68 5f  |t(20000+Y*graph_|
00014fc0  79 73 63 61 6c 65 2d 31  30 30 30 2a 4e 2b 52 25  |yscale-1000*N+R%|
00014fd0  29 0d 5c 9e 12 f2 64 66  69 6c 65 5f 77 70 75 74  |).\...dfile_wput|
00014fe0  28 30 29 0d 5c a8 05 e1  0d 5c b2 05 3a 0d 5c bc  |(0).\....\..:.\.|
00014ff0  14 dd f2 70 6f 69 6e 74  5f 63 72 6f 73 73 28 4e  |...point_cross(N|
00015000  29 0d 5c c6 0f f4 20 4f  48 3a 20 43 72 6f 73 73  |).\... OH: Cross|
00015010  0d 5c d0 74 f2 64 66 69  6c 65 5f 77 70 75 74 28  |.\.t.dfile_wput(|
00015020  32 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |2):.dfile_wput(2|
00015030  34 2b 31 36 2b 28 34 2a  31 32 29 2b 34 29 3a f2  |4+16+(4*12)+4):.|
00015040  64 66 69 6c 65 5f 77 70  75 74 28 30 29 3a f2 64  |dfile_wput(0):.d|
00015050  66 69 6c 65 5f 77 70 75  74 28 30 29 3a f2 64 66  |file_wput(0):.df|
00015060  69 6c 65 5f 77 70 75 74  28 33 30 30 30 30 30 29  |ile_wput(300000)|
00015070  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 30 30  |:.dfile_wput(200|
00015080  30 30 30 29 0d 5c da 40  f2 64 66 69 6c 65 5f 77  |000).\.@.dfile_w|
00015090  70 75 74 28 2d 31 29 3a  f2 64 66 69 6c 65 5f 77  |put(-1):.dfile_w|
000150a0  70 75 74 28 30 29 3a f2  64 66 69 6c 65 5f 77 70  |put(0):.dfile_wp|
000150b0  75 74 28 30 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(0):.dfile_wpu|
000150c0  74 28 30 29 0d 5c e4 63  f2 64 66 69 6c 65 5f 77  |t(0).\.c.dfile_w|
000150d0  70 75 74 28 32 29 3a f2  64 66 69 6c 65 5f 77 70  |put(2):.dfile_wp|
000150e0  75 74 28 32 30 30 30 30  2b 58 2a 67 72 61 70 68  |ut(20000+X*graph|
000150f0  5f 78 73 63 61 6c 65 2b  52 25 29 3a f2 64 66 69  |_xscale+R%):.dfi|
00015100  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 59 2a  |le_wput(20000+Y*|
00015110  67 72 61 70 68 5f 79 73  63 61 6c 65 2d 31 30 30  |graph_yscale-100|
00015120  30 2a 4e 2b 52 25 29 0d  5c ee 63 f2 64 66 69 6c  |0*N+R%).\.c.dfil|
00015130  65 5f 77 70 75 74 28 38  29 3a f2 64 66 69 6c 65  |e_wput(8):.dfile|
00015140  5f 77 70 75 74 28 32 30  30 30 30 2b 58 2a 67 72  |_wput(20000+X*gr|
00015150  61 70 68 5f 78 73 63 61  6c 65 2b 52 25 29 3a f2  |aph_xscale+R%):.|
00015160  64 66 69 6c 65 5f 77 70  75 74 28 32 30 30 30 30  |dfile_wput(20000|
00015170  2b 59 2a 67 72 61 70 68  5f 79 73 63 61 6c 65 2b  |+Y*graph_yscale+|
00015180  31 30 30 30 2a 4e 2b 52  25 29 0d 5c f8 63 f2 64  |1000*N+R%).\.c.d|
00015190  66 69 6c 65 5f 77 70 75  74 28 32 29 3a f2 64 66  |file_wput(2):.df|
000151a0  69 6c 65 5f 77 70 75 74  28 32 30 30 30 30 2b 58  |ile_wput(20000+X|
000151b0  2a 67 72 61 70 68 5f 78  73 63 61 6c 65 2d 31 30  |*graph_xscale-10|
000151c0  30 30 2a 4e 2b 52 25 29  3a f2 64 66 69 6c 65 5f  |00*N+R%):.dfile_|
000151d0  77 70 75 74 28 32 30 30  30 30 2b 59 2a 67 72 61  |wput(20000+Y*gra|
000151e0  70 68 5f 79 73 63 61 6c  65 2b 52 25 29 0d 5d 02  |ph_yscale+R%).].|
000151f0  63 f2 64 66 69 6c 65 5f  77 70 75 74 28 38 29 3a  |c.dfile_wput(8):|
00015200  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 30 30 30  |.dfile_wput(2000|
00015210  30 2b 58 2a 67 72 61 70  68 5f 78 73 63 61 6c 65  |0+X*graph_xscale|
00015220  2b 31 30 30 30 2a 4e 2b  52 25 29 3a f2 64 66 69  |+1000*N+R%):.dfi|
00015230  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 59 2a  |le_wput(20000+Y*|
00015240  67 72 61 70 68 5f 79 73  63 61 6c 65 2b 52 25 29  |graph_yscale+R%)|
00015250  0d 5d 0c 12 f2 64 66 69  6c 65 5f 77 70 75 74 28  |.]...dfile_wput(|
00015260  30 29 0d 5d 16 05 e1 0d  5d 20 05 3a 0d 5d 2a 10  |0).]....] .:.]*.|
00015270  dd f2 70 6f 69 6e 74 5f  78 28 4e 29 0d 5d 34 0b  |..point_x(N).]4.|
00015280  f4 20 4f 48 3a 20 58 0d  5d 3e 74 f2 64 66 69 6c  |. OH: X.]>t.dfil|
00015290  65 5f 77 70 75 74 28 32  29 3a f2 64 66 69 6c 65  |e_wput(2):.dfile|
000152a0  5f 77 70 75 74 28 32 34  2b 31 36 2b 28 34 2a 31  |_wput(24+16+(4*1|
000152b0  32 29 2b 34 29 3a f2 64  66 69 6c 65 5f 77 70 75  |2)+4):.dfile_wpu|
000152c0  74 28 30 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(0):.dfile_wput|
000152d0  28 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(0):.dfile_wput(|
000152e0  33 30 30 30 30 30 29 3a  f2 64 66 69 6c 65 5f 77  |300000):.dfile_w|
000152f0  70 75 74 28 32 30 30 30  30 30 29 0d 5d 48 40 f2  |put(200000).]H@.|
00015300  64 66 69 6c 65 5f 77 70  75 74 28 2d 31 29 3a f2  |dfile_wput(-1):.|
00015310  64 66 69 6c 65 5f 77 70  75 74 28 30 29 3a f2 64  |dfile_wput(0):.d|
00015320  66 69 6c 65 5f 77 70 75  74 28 30 29 3a f2 64 66  |file_wput(0):.df|
00015330  69 6c 65 5f 77 70 75 74  28 30 29 0d 5d 52 6a f2  |ile_wput(0).]Rj.|
00015340  64 66 69 6c 65 5f 77 70  75 74 28 32 29 3a f2 64  |dfile_wput(2):.d|
00015350  66 69 6c 65 5f 77 70 75  74 28 32 30 30 30 30 2b  |file_wput(20000+|
00015360  58 2a 67 72 61 70 68 5f  78 73 63 61 6c 65 2d 31  |X*graph_xscale-1|
00015370  30 30 30 2a 4e 2b 52 25  29 3a f2 64 66 69 6c 65  |000*N+R%):.dfile|
00015380  5f 77 70 75 74 28 32 30  30 30 30 2b 59 2a 67 72  |_wput(20000+Y*gr|
00015390  61 70 68 5f 79 73 63 61  6c 65 2d 31 30 30 30 2a  |aph_yscale-1000*|
000153a0  4e 2b 52 25 29 0d 5d 5c  6a f2 64 66 69 6c 65 5f  |N+R%).]\j.dfile_|
000153b0  77 70 75 74 28 38 29 3a  f2 64 66 69 6c 65 5f 77  |wput(8):.dfile_w|
000153c0  70 75 74 28 32 30 30 30  30 2b 58 2a 67 72 61 70  |put(20000+X*grap|
000153d0  68 5f 78 73 63 61 6c 65  2b 31 30 30 30 2a 4e 2b  |h_xscale+1000*N+|
000153e0  52 25 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |R%):.dfile_wput(|
000153f0  32 30 30 30 30 2b 59 2a  67 72 61 70 68 5f 79 73  |20000+Y*graph_ys|
00015400  63 61 6c 65 2b 31 30 30  30 2a 4e 2b 52 25 29 0d  |cale+1000*N+R%).|
00015410  5d 66 6a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |]fj.dfile_wput(2|
00015420  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 30  |):.dfile_wput(20|
00015430  30 30 30 2b 58 2a 67 72  61 70 68 5f 78 73 63 61  |000+X*graph_xsca|
00015440  6c 65 2d 31 30 30 30 2a  4e 2b 52 25 29 3a f2 64  |le-1000*N+R%):.d|
00015450  66 69 6c 65 5f 77 70 75  74 28 32 30 30 30 30 2b  |file_wput(20000+|
00015460  59 2a 67 72 61 70 68 5f  79 73 63 61 6c 65 2b 31  |Y*graph_yscale+1|
00015470  30 30 30 2a 4e 2b 52 25  29 0d 5d 70 6a f2 64 66  |000*N+R%).]pj.df|
00015480  69 6c 65 5f 77 70 75 74  28 38 29 3a f2 64 66 69  |ile_wput(8):.dfi|
00015490  6c 65 5f 77 70 75 74 28  32 30 30 30 30 2b 58 2a  |le_wput(20000+X*|
000154a0  67 72 61 70 68 5f 78 73  63 61 6c 65 2b 31 30 30  |graph_xscale+100|
000154b0  30 2a 4e 2b 52 25 29 3a  f2 64 66 69 6c 65 5f 77  |0*N+R%):.dfile_w|
000154c0  70 75 74 28 32 30 30 30  30 2b 59 2a 67 72 61 70  |put(20000+Y*grap|
000154d0  68 5f 79 73 63 61 6c 65  2d 31 30 30 30 2a 4e 2b  |h_yscale-1000*N+|
000154e0  52 25 29 0d 5d 7a 12 f2  64 66 69 6c 65 5f 77 70  |R%).]z..dfile_wp|
000154f0  75 74 28 30 29 0d 5d 84  05 e1 0d 5d 8e 05 3a 0d  |ut(0).]....]..:.|
00015500  5d 98 13 dd f2 67 72 61  70 68 5f 62 65 73 74 66  |]....graph_bestf|
00015510  69 74 0d 5d a2 2a 24 74  65 78 74 25 3d 22 43 61  |it.].*$text%="Ca|
00015520  6c 63 75 6c 61 74 69 6e  67 20 42 46 22 3a f2 75  |lculating BF":.u|
00015530  70 64 61 74 65 5f 62 6f  74 74 6f 6d 0d 5d ac 17  |pdate_bottom.]..|
00015540  61 3d 30 3a 62 3d 30 3a  63 3d 30 3a 64 3d 30 3a  |a=0:b=0:c=0:d=0:|
00015550  65 3d 30 0d 5d b6 1c 78  25 3d 67 72 6f 75 70 5f  |e=0.]..x%=group_|
00015560  6d 61 70 25 21 28 67 72  6f 75 70 25 2a 34 29 0d  |map%!(group%*4).|
00015570  5d c0 16 e3 79 25 3d 31  b8 64 61 74 61 5f 6c 65  |]...y%=1.data_le|
00015580  6e 67 74 68 25 0d 5d ca  3f 58 3d a4 64 61 74 61  |ngth%.].?X=.data|
00015590  5f 67 65 74 28 78 25 2c  79 25 29 2d 64 61 74 61  |_get(x%,y%)-data|
000155a0  5f 78 6d 69 6e 3a 59 3d  a4 64 61 74 61 5f 67 65  |_xmin:Y=.data_ge|
000155b0  74 28 78 25 2b 31 2c 79  25 29 2d 64 61 74 61 5f  |t(x%+1,y%)-data_|
000155c0  79 6d 69 6e 0d 5d d4 22  61 2b 3d 59 3a 62 2b 3d  |ymin.]."a+=Y:b+=|
000155d0  58 3a 63 2b 3d 58 2a 59  3a 64 2b 3d 58 2a 58 3a  |X:c+=X*Y:d+=X*X:|
000155e0  65 2b 3d 59 2a 59 0d 5d  de 05 ed 0d 5d e8 14 e7  |e+=Y*Y.]....]...|
000155f0  67 72 61 70 68 5f 62 65  73 74 25 3d 31 20 8c 0d  |graph_best%=1 ..|
00015600  5d f2 30 20 41 3d 28 62  2a 61 2d 63 2a 64 61 74  |].0 A=(b*a-c*dat|
00015610  61 5f 6c 65 6e 67 74 68  25 29 2f 28 61 2a 62 2d  |a_length%)/(a*b-|
00015620  65 2a 64 61 74 61 5f 6c  65 6e 67 74 68 25 29 0d  |e*data_length%).|
00015630  5d fc 25 20 42 3d 28 62  2a 65 2d 63 2a 62 29 2f  |].% B=(b*e-c*b)/|
00015640  28 65 2a 64 61 74 61 5f  6c 65 6e 67 74 68 25 2d  |(e*data_length%-|
00015650  61 2a 62 29 0d 5e 06 05  cc 0d 5e 10 30 20 41 3d  |a*b).^....^.0 A=|
00015660  28 61 2a 62 2d 63 2a 64  61 74 61 5f 6c 65 6e 67  |(a*b-c*data_leng|
00015670  74 68 25 29 2f 28 62 2a  62 2d 64 2a 64 61 74 61  |th%)/(b*b-d*data|
00015680  5f 6c 65 6e 67 74 68 25  29 0d 5e 1a 25 20 42 3d  |_length%).^.% B=|
00015690  28 61 2a 64 2d 63 2a 62  29 2f 28 64 2a 64 61 74  |(a*d-c*b)/(d*dat|
000156a0  61 5f 6c 65 6e 67 74 68  25 2d 62 2a 62 29 0d 5e  |a_length%-b*b).^|
000156b0  24 05 cd 0d 5e 2e 29 24  74 65 78 74 25 3d 22 42  |$...^.)$text%="B|
000156c0  65 73 74 20 66 69 74 20  6c 69 6e 65 22 3a f2 75  |est fit line":.u|
000156d0  70 64 61 74 65 5f 62 6f  74 74 6f 6d 0d 5e 38 14  |pdate_bottom.^8.|
000156e0  e7 67 72 61 70 68 5f 62  65 73 74 25 3d 31 20 8c  |.graph_best%=1 .|
000156f0  0d 5e 42 25 20 78 3d 32  30 30 30 30 2b 28 42 2a  |.^B% x=20000+(B*|
00015700  67 72 61 70 68 5f 78 73  63 61 6c 65 29 3a 79 3d  |graph_xscale):y=|
00015710  32 30 30 30 30 0d 5e 4c  2e 20 e7 78 3c 32 30 30  |20000.^L. .x<200|
00015720  30 30 3a 78 3d 32 30 30  30 30 3a 79 3d 32 30 30  |00:x=20000:y=200|
00015730  30 30 2d 42 2f 41 2a 67  72 61 70 68 5f 79 73 63  |00-B/A*graph_ysc|
00015740  61 6c 65 0d 5e 56 8a 20  e7 78 3e 32 30 30 30 30  |ale.^V. .x>20000|
00015750  2b 28 64 61 74 61 5f 78  6d 61 78 2d 64 61 74 61  |+(data_xmax-data|
00015760  5f 78 6d 69 6e 29 2a 67  72 61 70 68 5f 78 73 63  |_xmin)*graph_xsc|
00015770  61 6c 65 3a 78 3d 32 30  30 30 30 2b 28 64 61 74  |ale:x=20000+(dat|
00015780  61 5f 78 6d 61 78 2d 64  61 74 61 5f 78 6d 69 6e  |a_xmax-data_xmin|
00015790  29 2a 67 72 61 70 68 5f  78 73 63 61 6c 65 3a 79  |)*graph_xscale:y|
000157a0  3d 32 30 30 30 30 2b 28  64 61 74 61 5f 78 6d 61  |=20000+(data_xma|
000157b0  78 2d 64 61 74 61 5f 78  6d 69 6e 2d 42 29 2f 41  |x-data_xmin-B)/A|
000157c0  2a 67 72 61 70 68 5f 79  73 63 61 6c 65 0d 5e 60  |*graph_yscale.^`|
000157d0  64 20 58 3d 32 30 30 30  30 2b 28 28 41 2a 28 64  |d X=20000+((A*(d|
000157e0  61 74 61 5f 78 6d 61 78  2d 64 61 74 61 5f 78 6d  |ata_xmax-data_xm|
000157f0  69 6e 29 2b 42 29 2a 67  72 61 70 68 5f 78 73 63  |in)+B)*graph_xsc|
00015800  61 6c 65 29 3a 59 3d 32  30 30 30 30 2b 28 28 64  |ale):Y=20000+((d|
00015810  61 74 61 5f 78 6d 61 78  2d 64 61 74 61 5f 78 6d  |ata_xmax-data_xm|
00015820  69 6e 29 2a 67 72 61 70  68 5f 79 73 63 61 6c 65  |in)*graph_yscale|
00015830  29 0d 5e 6a 2e 20 e7 58  3c 32 30 30 30 30 3a 58  |).^j. .X<20000:X|
00015840  3d 32 30 30 30 30 3a 59  3d 32 30 30 30 30 2d 42  |=20000:Y=20000-B|
00015850  2f 41 2a 67 72 61 70 68  5f 79 73 63 61 6c 65 0d  |/A*graph_yscale.|
00015860  5e 74 8a 20 e7 58 3e 32  30 30 30 30 2b 28 64 61  |^t. .X>20000+(da|
00015870  74 61 5f 78 6d 61 78 2d  64 61 74 61 5f 78 6d 69  |ta_xmax-data_xmi|
00015880  6e 29 2a 67 72 61 70 68  5f 78 73 63 61 6c 65 3a  |n)*graph_xscale:|
00015890  58 3d 32 30 30 30 30 2b  28 64 61 74 61 5f 78 6d  |X=20000+(data_xm|
000158a0  61 78 2d 64 61 74 61 5f  78 6d 69 6e 29 2a 67 72  |ax-data_xmin)*gr|
000158b0  61 70 68 5f 78 73 63 61  6c 65 3a 59 3d 32 30 30  |aph_xscale:Y=200|
000158c0  30 30 2b 28 64 61 74 61  5f 78 6d 61 78 2d 64 61  |00+(data_xmax-da|
000158d0  74 61 5f 78 6d 69 6e 2d  42 29 2f 41 2a 67 72 61  |ta_xmin-B)/A*gra|
000158e0  70 68 5f 79 73 63 61 6c  65 0d 5e 7e 05 cc 0d 5e  |ph_yscale.^~...^|
000158f0  88 25 20 78 3d 32 30 30  30 30 3a 79 3d 32 30 30  |.% x=20000:y=200|
00015900  30 30 2b 28 42 2a 67 72  61 70 68 5f 79 73 63 61  |00+(B*graph_ysca|
00015910  6c 65 29 0d 5e 92 2e 20  e7 79 3c 32 30 30 30 30  |le).^.. .y<20000|
00015920  3a 78 3d 32 30 30 30 30  2d 42 2f 41 2a 67 72 61  |:x=20000-B/A*gra|
00015930  70 68 5f 78 73 63 61 6c  65 3a 79 3d 32 30 30 30  |ph_xscale:y=2000|
00015940  30 0d 5e 9c 8a 20 e7 79  3e 32 30 30 30 30 2b 28  |0.^.. .y>20000+(|
00015950  64 61 74 61 5f 79 6d 61  78 2d 64 61 74 61 5f 79  |data_ymax-data_y|
00015960  6d 69 6e 29 2a 67 72 61  70 68 5f 79 73 63 61 6c  |min)*graph_yscal|
00015970  65 3a 78 3d 32 30 30 30  30 2b 28 64 61 74 61 5f  |e:x=20000+(data_|
00015980  79 6d 61 78 2d 64 61 74  61 5f 79 6d 69 6e 2d 42  |ymax-data_ymin-B|
00015990  29 2f 41 2a 67 72 61 70  68 5f 78 73 63 61 6c 65  |)/A*graph_xscale|
000159a0  3a 79 3d 32 30 30 30 30  2b 28 64 61 74 61 5f 79  |:y=20000+(data_y|
000159b0  6d 61 78 2d 64 61 74 61  5f 79 6d 69 6e 29 2a 67  |max-data_ymin)*g|
000159c0  72 61 70 68 5f 79 73 63  61 6c 65 0d 5e a6 64 20  |raph_yscale.^.d |
000159d0  58 3d 32 30 30 30 30 2b  28 28 64 61 74 61 5f 78  |X=20000+((data_x|
000159e0  6d 61 78 2d 64 61 74 61  5f 78 6d 69 6e 29 2a 67  |max-data_xmin)*g|
000159f0  72 61 70 68 5f 78 73 63  61 6c 65 29 3a 59 3d 32  |raph_xscale):Y=2|
00015a00  30 30 30 30 2b 28 28 41  2a 28 64 61 74 61 5f 78  |0000+((A*(data_x|
00015a10  6d 61 78 2d 64 61 74 61  5f 78 6d 69 6e 29 2b 42  |max-data_xmin)+B|
00015a20  29 2a 67 72 61 70 68 5f  79 73 63 61 6c 65 29 0d  |)*graph_yscale).|
00015a30  5e b0 2e 20 e7 59 3c 32  30 30 30 30 3a 58 3d 32  |^.. .Y<20000:X=2|
00015a40  30 30 30 30 2d 42 2f 41  2a 67 72 61 70 68 5f 78  |0000-B/A*graph_x|
00015a50  73 63 61 6c 65 3a 59 3d  32 30 30 30 30 0d 5e ba  |scale:Y=20000.^.|
00015a60  8a 20 e7 79 3e 32 30 30  30 30 2b 28 64 61 74 61  |. .y>20000+(data|
00015a70  5f 79 6d 61 78 2d 64 61  74 61 5f 79 6d 69 6e 29  |_ymax-data_ymin)|
00015a80  2a 67 72 61 70 68 5f 79  73 63 61 6c 65 3a 58 3d  |*graph_yscale:X=|
00015a90  32 30 30 30 30 2b 28 64  61 74 61 5f 79 6d 61 78  |20000+(data_ymax|
00015aa0  2d 64 61 74 61 5f 79 6d  69 6e 2d 42 29 2f 41 2a  |-data_ymin-B)/A*|
00015ab0  67 72 61 70 68 5f 78 73  63 61 6c 65 3a 59 3d 32  |graph_xscale:Y=2|
00015ac0  30 30 30 30 2b 28 64 61  74 61 5f 79 6d 61 78 2d  |0000+(data_ymax-|
00015ad0  64 61 74 61 5f 79 6d 69  6e 29 2a 67 72 61 70 68  |data_ymin)*graph|
00015ae0  5f 79 73 63 61 6c 65 0d  5e c4 05 cd 0d 5e ce 1f  |_yscale.^....^..|
00015af0  e7 ac 67 72 61 70 68 5f  33 44 25 3a f2 67 72 61  |..graph_3D%:.gra|
00015b00  70 68 5f 64 72 61 77 62  65 73 74 0d 5e d8 20 e7  |ph_drawbest.^. .|
00015b10  67 72 61 70 68 5f 33 44  25 3a f2 67 72 61 70 68  |graph_3D%:.graph|
00015b20  5f 64 72 61 77 62 65 73  74 33 44 0d 5e e2 05 e1  |_drawbest3D.^...|
00015b30  0d 5e ec 05 3a 0d 5e f6  14 dd f2 67 72 61 70 68  |.^..:.^....graph|
00015b40  5f 64 72 61 77 62 65 73  74 0d 5f 00 12 f4 20 4f  |_drawbest._... O|
00015b50  48 3a 20 42 65 73 74 20  66 69 74 0d 5f 0a 2c 53  |H: Best fit._.,S|
00015b60  25 3d 30 3a e7 67 72 6f  75 70 5f 64 61 74 61 25  |%=0:.group_data%|
00015b70  3f 28 67 72 6f 75 70 25  2a 34 32 2b 39 29 3e 31  |?(group%*42+9)>1|
00015b80  3a 53 25 3d 31 32 38 0d  5f 14 16 4c 25 3d 30 3a  |:S%=128._..L%=0:|
00015b90  e7 53 25 3d 31 32 38 3a  4c 25 3d 31 36 0d 5f 1e  |.S%=128:L%=16._.|
00015ba0  77 f2 64 66 69 6c 65 5f  77 70 75 74 28 32 29 3a  |w.dfile_wput(2):|
00015bb0  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 34 2b 31  |.dfile_wput(24+1|
00015bc0  36 2b 4c 25 2b 28 32 2a  31 32 29 2b 34 29 3a f2  |6+L%+(2*12)+4):.|
00015bd0  64 66 69 6c 65 5f 77 70  75 74 28 30 29 3a f2 64  |dfile_wput(0):.d|
00015be0  66 69 6c 65 5f 77 70 75  74 28 30 29 3a f2 64 66  |file_wput(0):.df|
00015bf0  69 6c 65 5f 77 70 75 74  28 33 30 30 30 30 30 29  |ile_wput(300000)|
00015c00  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 35 30  |:.dfile_wput(250|
00015c10  30 30 30 29 0d 5f 28 65  43 25 3d 28 67 72 6f 75  |000)._(eC%=(grou|
00015c20  70 5f 64 61 74 61 25 3f  28 67 72 6f 75 70 25 2a  |p_data%?(group%*|
00015c30  34 32 2b 34 29 3c 3c 32  34 29 2b 28 67 72 6f 75  |42+4)<<24)+(grou|
00015c40  70 5f 64 61 74 61 25 3f  28 67 72 6f 75 70 25 2a  |p_data%?(group%*|
00015c50  34 32 2b 33 29 3c 3c 31  36 29 2b 28 67 72 6f 75  |42+3)<<16)+(grou|
00015c60  70 5f 64 61 74 61 25 3f  28 67 72 6f 75 70 25 2a  |p_data%?(group%*|
00015c70  34 32 2b 32 29 3c 3c 38  29 0d 5f 32 5a f2 64 66  |42+2)<<8)._2Z.df|
00015c80  69 6c 65 5f 77 70 75 74  28 2d 31 29 3a f2 64 66  |ile_wput(-1):.df|
00015c90  69 6c 65 5f 77 70 75 74  28 43 25 29 3a f2 64 66  |ile_wput(C%):.df|
00015ca0  69 6c 65 5f 77 70 75 74  28 67 72 6f 75 70 5f 64  |ile_wput(group_d|
00015cb0  61 74 61 25 21 28 67 72  6f 75 70 25 2a 34 32 2b  |ata%!(group%*42+|
00015cc0  35 29 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |5)):.dfile_wput(|
00015cd0  53 25 29 0d 5f 3c 2a 43  25 3d 31 32 30 30 30 81  |S%)._<*C%=12000.|
00015ce0  28 35 2d 67 72 6f 75 70  5f 64 61 74 61 25 3f 28  |(5-group_data%?(|
00015cf0  67 72 6f 75 70 25 2a 34  32 2b 39 29 29 0d 5f 46  |group%*42+9))._F|
00015d00  49 e7 53 25 3d 31 32 38  3a f2 64 66 69 6c 65 5f  |I.S%=128:.dfile_|
00015d10  77 70 75 74 28 30 29 3a  f2 64 66 69 6c 65 5f 77  |wput(0):.dfile_w|
00015d20  70 75 74 28 32 29 3a f2  64 66 69 6c 65 5f 77 70  |put(2):.dfile_wp|
00015d30  75 74 28 43 25 29 3a f2  64 66 69 6c 65 5f 77 70  |ut(C%):.dfile_wp|
00015d40  75 74 28 43 25 29 0d 5f  50 30 f2 64 66 69 6c 65  |ut(C%)._P0.dfile|
00015d50  5f 77 70 75 74 28 32 29  3a f2 64 66 69 6c 65 5f  |_wput(2):.dfile_|
00015d60  77 70 75 74 28 78 29 3a  f2 64 66 69 6c 65 5f 77  |wput(x):.dfile_w|
00015d70  70 75 74 28 79 29 0d 5f  5a 30 f2 64 66 69 6c 65  |put(y)._Z0.dfile|
00015d80  5f 77 70 75 74 28 38 29  3a f2 64 66 69 6c 65 5f  |_wput(8):.dfile_|
00015d90  77 70 75 74 28 58 29 3a  f2 64 66 69 6c 65 5f 77  |wput(X):.dfile_w|
00015da0  70 75 74 28 59 29 0d 5f  64 12 f2 64 66 69 6c 65  |put(Y)._d..dfile|
00015db0  5f 77 70 75 74 28 30 29  0d 5f 6e 05 e1 0d 5f 78  |_wput(0)._n..._x|
00015dc0  05 3a 0d 5f 82 16 dd f2  67 72 61 70 68 5f 64 72  |.:._....graph_dr|
00015dd0  61 77 62 65 73 74 33 44  0d 5f 8c 12 f4 20 4f 48  |awbest3D._... OH|
00015de0  3a 20 42 65 73 74 20 66  69 74 0d 5f 96 72 f2 64  |: Best fit._.r.d|
00015df0  66 69 6c 65 5f 77 70 75  74 28 32 29 3a f2 64 66  |file_wput(2):.df|
00015e00  69 6c 65 5f 77 70 75 74  28 32 34 2b 31 36 2b 35  |ile_wput(24+16+5|
00015e10  2a 31 32 2b 34 29 3a f2  64 66 69 6c 65 5f 77 70  |*12+4):.dfile_wp|
00015e20  75 74 28 30 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(0):.dfile_wpu|
00015e30  74 28 30 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(0):.dfile_wput|
00015e40  28 33 30 30 30 30 30 29  3a f2 64 66 69 6c 65 5f  |(300000):.dfile_|
00015e50  77 70 75 74 28 32 35 30  30 30 30 29 0d 5f a0 c1  |wput(250000)._..|
00015e60  f2 64 66 69 6c 65 5f 62  70 75 74 28 30 29 3a f2  |.dfile_bput(0):.|
00015e70  64 66 69 6c 65 5f 62 70  75 74 28 67 72 6f 75 70  |dfile_bput(group|
00015e80  5f 64 61 74 61 25 3f 28  67 72 6f 75 70 25 2a 34  |_data%?(group%*4|
00015e90  32 2b 32 29 29 3a f2 64  66 69 6c 65 5f 62 70 75  |2+2)):.dfile_bpu|
00015ea0  74 28 67 72 6f 75 70 5f  64 61 74 61 25 3f 28 67  |t(group_data%?(g|
00015eb0  72 6f 75 70 25 2a 34 32  2b 33 29 29 3a f2 64 66  |roup%*42+3)):.df|
00015ec0  69 6c 65 5f 62 70 75 74  28 67 72 6f 75 70 5f 64  |ile_bput(group_d|
00015ed0  61 74 61 25 3f 28 67 72  6f 75 70 25 2a 34 32 2b  |ata%?(group%*42+|
00015ee0  34 29 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |4)):.dfile_wput(|
00015ef0  67 72 61 70 68 5f 6f 75  74 6c 69 6e 65 25 29 3a  |graph_outline%):|
00015f00  f2 64 66 69 6c 65 5f 77  70 75 74 28 30 29 3a f2  |.dfile_wput(0):.|
00015f10  64 66 69 6c 65 5f 77 70  75 74 28 30 29 0d 5f aa  |dfile_wput(0)._.|
00015f20  12 4e 3d 67 72 6f 75 70  25 2a 31 35 30 30 30 0d  |.N=group%*15000.|
00015f30  5f b4 34 f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |_.4.dfile_wput(2|
00015f40  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 78 2b  |):.dfile_wput(x+|
00015f50  4e 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 79  |N):.dfile_wput(y|
00015f60  2b 4e 29 0d 5f be 40 f2  64 66 69 6c 65 5f 77 70  |+N)._.@.dfile_wp|
00015f70  75 74 28 38 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(8):.dfile_wpu|
00015f80  74 28 78 2b 4e 2b 31 35  30 30 30 29 3a f2 64 66  |t(x+N+15000):.df|
00015f90  69 6c 65 5f 77 70 75 74  28 79 2b 4e 2b 31 35 30  |ile_wput(y+N+150|
00015fa0  30 30 29 0d 5f c8 40 f2  64 66 69 6c 65 5f 77 70  |00)._.@.dfile_wp|
00015fb0  75 74 28 38 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(8):.dfile_wpu|
00015fc0  74 28 58 2b 4e 2b 31 35  30 30 30 29 3a f2 64 66  |t(X+N+15000):.df|
00015fd0  69 6c 65 5f 77 70 75 74  28 59 2b 4e 2b 31 35 30  |ile_wput(Y+N+150|
00015fe0  30 30 29 0d 5f d2 34 f2  64 66 69 6c 65 5f 77 70  |00)._.4.dfile_wp|
00015ff0  75 74 28 38 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(8):.dfile_wpu|
00016000  74 28 58 2b 4e 29 3a f2  64 66 69 6c 65 5f 77 70  |t(X+N):.dfile_wp|
00016010  75 74 28 59 2b 4e 29 0d  5f dc 34 f2 64 66 69 6c  |ut(Y+N)._.4.dfil|
00016020  65 5f 77 70 75 74 28 38  29 3a f2 64 66 69 6c 65  |e_wput(8):.dfile|
00016030  5f 77 70 75 74 28 78 2b  4e 29 3a f2 64 66 69 6c  |_wput(x+N):.dfil|
00016040  65 5f 77 70 75 74 28 79  2b 4e 29 0d 5f e6 12 f2  |e_wput(y+N)._...|
00016050  64 66 69 6c 65 5f 77 70  75 74 28 30 29 0d 5f f0  |dfile_wput(0)._.|
00016060  05 e1 0d 5f fa 05 3a 0d  60 04 15 dd f2 67 72 61  |..._..:.`....gra|
00016070  70 68 5f 74 69 74 6c 65  28 41 25 29 0d 60 0e 21  |ph_title(A%).`.!|
00016080  24 74 65 78 74 25 3d 22  54 69 74 6c 65 22 3a f2  |$text%="Title":.|
00016090  75 70 64 61 74 65 5f 62  6f 74 74 6f 6d 0d 60 18  |update_bottom.`.|
000160a0  14 f4 20 4f 48 3a 20 54  69 74 6c 65 20 74 65 78  |.. OH: Title tex|
000160b0  74 0d 60 22 21 4e 3d a4  6c 65 6e 28 73 5f 74 69  |t.`"!N=.len(s_ti|
000160c0  74 6c 65 25 29 3a 4e 2b  3d 34 2d 28 4e 20 83 20  |tle%):N+=4-(N . |
000160d0  34 29 0d 60 2c 82 f2 64  66 69 6c 65 5f 77 70 75  |4).`,..dfile_wpu|
000160e0  74 28 31 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(1):.dfile_wput|
000160f0  28 32 34 2b 32 38 2b 4e  29 3a f2 64 66 69 6c 65  |(24+28+N):.dfile|
00016100  5f 77 70 75 74 28 30 29  3a f2 64 66 69 6c 65 5f  |_wput(0):.dfile_|
00016110  77 70 75 74 28 32 32 30  30 30 30 29 3a f2 64 66  |wput(220000):.df|
00016120  69 6c 65 5f 77 70 75 74  28 33 30 30 30 30 30 29  |ile_wput(300000)|
00016130  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 32 33  |:.dfile_wput(223|
00016140  30 30 30 2b 74 65 78 74  5f 74 69 74 6c 65 79 2a  |000+text_titley*|
00016150  36 34 30 29 0d 60 36 54  f2 64 66 69 6c 65 5f 77  |640).`6T.dfile_w|
00016160  70 75 74 28 30 29 3a f2  64 66 69 6c 65 5f 62 70  |put(0):.dfile_bp|
00016170  75 74 28 30 29 3a f2 64  66 69 6c 65 5f 62 70 75  |ut(0):.dfile_bpu|
00016180  74 28 32 35 35 29 3a f2  64 66 69 6c 65 5f 62 70  |t(255):.dfile_bp|
00016190  75 74 28 32 35 35 29 3a  f2 64 66 69 6c 65 5f 62  |ut(255):.dfile_b|
000161a0  70 75 74 28 32 35 35 29  0d 60 40 76 f2 64 66 69  |put(255).`@v.dfi|
000161b0  6c 65 5f 77 70 75 74 28  67 72 61 70 68 5f 74 69  |le_wput(graph_ti|
000161c0  74 6c 65 63 29 3a f2 64  66 69 6c 65 5f 77 70 75  |tlec):.dfile_wpu|
000161d0  74 28 36 34 30 2a 74 65  78 74 5f 74 69 74 6c 65  |t(640*text_title|
000161e0  78 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 36  |x):.dfile_wput(6|
000161f0  34 30 2a 74 65 78 74 5f  74 69 74 6c 65 79 29 3a  |40*text_titley):|
00016200  f2 64 66 69 6c 65 5f 77  70 75 74 28 30 29 3a f2  |.dfile_wput(0):.|
00016210  64 66 69 6c 65 5f 77 70  75 74 28 41 25 29 0d 60  |dfile_wput(A%).`|
00016220  4a 19 f2 64 66 69 6c 65  5f 73 70 75 74 28 73 5f  |J..dfile_sput(s_|
00016230  74 69 74 6c 65 25 29 0d  60 54 05 e1 0d 60 5e 05  |title%).`T...`^.|
00016240  3a 0d 60 68 12 dd f2 67  72 61 70 68 5f 78 6c 61  |:.`h...graph_xla|
00016250  62 65 6c 0d 60 72 23 24  74 65 78 74 25 3d 22 58  |bel.`r#$text%="X|
00016260  20 6c 61 62 65 6c 22 3a  f2 75 70 64 61 74 65 5f  | label":.update_|
00016270  62 6f 74 74 6f 6d 0d 60  7c 16 f4 20 4f 48 3a 20  |bottom.`|.. OH: |
00016280  58 20 6c 61 62 65 6c 20  74 65 78 74 0d 60 86 21  |X label text.`.!|
00016290  4e 3d a4 6c 65 6e 28 73  5f 78 61 78 69 73 25 29  |N=.len(s_xaxis%)|
000162a0  3a 4e 2b 3d 34 2d 28 4e  20 83 20 34 29 0d 60 90  |:N+=4-(N . 4).`.|
000162b0  15 e7 20 74 65 78 74 5f  61 78 69 73 63 3c 3e 30  |.. text_axisc<>0|
000162c0  20 8c 0d 60 9a 54 20 c8  99 22 46 6f 6e 74 5f 46  | ..`.T .."Font_F|
000162d0  69 6e 64 46 6f 6e 74 22  2c 2c 66 6f 6e 74 5f 6c  |indFont",,font_l|
000162e0  69 73 74 25 2b 74 65 78  74 5f 61 78 69 73 63 2a  |ist%+text_axisc*|
000162f0  34 30 2c 74 65 78 74 5f  61 78 69 73 78 2a 31 36  |40,text_axisx*16|
00016300  2c 74 65 78 74 5f 61 78  69 73 79 2a 31 36 2c 30  |,text_axisy*16,0|
00016310  2c 30 20 b8 20 4d 0d 60  a4 50 20 c8 99 22 46 6f  |,0 . M.`.P .."Fo|
00016320  6e 74 5f 53 74 72 69 6e  67 57 69 64 74 68 22 2c  |nt_StringWidth",|
00016330  2c 73 5f 78 61 78 69 73  25 2c 33 30 30 30 30 30  |,s_xaxis%,300000|
00016340  2c 32 30 30 30 30 30 2c  2d 31 2c 73 5f 78 61 78  |,200000,-1,s_xax|
00016350  69 73 25 2b a4 6c 65 6e  28 73 5f 78 61 78 69 73  |is%+.len(s_xaxis|
00016360  25 29 b8 2c 2c 58 0d 60  ae 18 20 c8 99 22 46 6f  |%).,,X.`.. .."Fo|
00016370  6e 74 5f 4c 6f 73 65 46  6f 6e 74 22 2c 4d 0d 60  |nt_LoseFont",M.`|
00016380  b8 05 cc 0d 60 c2 24 58  3d 74 65 78 74 5f 61 78  |....`.$X=text_ax|
00016390  69 73 78 2a 31 30 30 30  2a a4 6c 65 6e 28 73 5f  |isx*1000*.len(s_|
000163a0  78 61 78 69 73 25 29 0d  60 cc 05 cd 0d 60 d6 10  |xaxis%).`....`..|
000163b0  58 3d 58 2a 36 34 30 2f  31 30 30 30 0d 60 e0 72  |X=X*640/1000.`.r|
000163c0  f2 64 66 69 6c 65 5f 77  70 75 74 28 31 29 3a f2  |.dfile_wput(1):.|
000163d0  64 66 69 6c 65 5f 77 70  75 74 28 32 34 2b 32 38  |dfile_wput(24+28|
000163e0  2b 4e 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |+N):.dfile_wput(|
000163f0  30 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |0):.dfile_wput(2|
00016400  32 30 30 30 30 29 3a f2  64 66 69 6c 65 5f 77 70  |20000):.dfile_wp|
00016410  75 74 28 33 30 30 30 30  30 29 3a f2 64 66 69 6c  |ut(300000):.dfil|
00016420  65 5f 77 70 75 74 28 32  32 30 30 30 30 29 0d 60  |e_wput(220000).`|
00016430  ea 7d f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |.}.dfile_wput(0)|
00016440  3a f2 64 66 69 6c 65 5f  62 70 75 74 28 3f 67 72  |:.dfile_bput(?gr|
00016450  61 70 68 5f 62 61 63 6b  25 29 3a f2 64 66 69 6c  |aph_back%):.dfil|
00016460  65 5f 62 70 75 74 28 67  72 61 70 68 5f 62 61 63  |e_bput(graph_bac|
00016470  6b 25 3f 31 29 3a f2 64  66 69 6c 65 5f 62 70 75  |k%?1):.dfile_bpu|
00016480  74 28 67 72 61 70 68 5f  62 61 63 6b 25 3f 32 29  |t(graph_back%?2)|
00016490  3a f2 64 66 69 6c 65 5f  62 70 75 74 28 67 72 61  |:.dfile_bput(gra|
000164a0  70 68 5f 62 61 63 6b 25  3f 33 29 0d 60 f4 7c f2  |ph_back%?3).`.|.|
000164b0  64 66 69 6c 65 5f 77 70  75 74 28 67 72 61 70 68  |dfile_wput(graph|
000164c0  5f 61 78 69 73 63 29 3a  f2 64 66 69 6c 65 5f 77  |_axisc):.dfile_w|
000164d0  70 75 74 28 36 34 30 2a  74 65 78 74 5f 61 78 69  |put(640*text_axi|
000164e0  73 78 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |sx):.dfile_wput(|
000164f0  36 34 30 2a 74 65 78 74  5f 61 78 69 73 79 29 3a  |640*text_axisy):|
00016500  f2 64 66 69 6c 65 5f 77  70 75 74 28 33 30 30 30  |.dfile_wput(3000|
00016510  30 30 2d 58 29 3a f2 64  66 69 6c 65 5f 77 70 75  |00-X):.dfile_wpu|
00016520  74 28 32 30 30 30 29 0d  60 fe 19 f2 64 66 69 6c  |t(2000).`...dfil|
00016530  65 5f 73 70 75 74 28 73  5f 78 61 78 69 73 25 29  |e_sput(s_xaxis%)|
00016540  0d 61 08 05 e1 0d 61 12  05 3a 0d 61 1c 12 dd f2  |.a....a..:.a....|
00016550  67 72 61 70 68 5f 79 6c  61 62 65 6c 0d 61 26 23  |graph_ylabel.a&#|
00016560  24 74 65 78 74 25 3d 22  59 20 6c 61 62 65 6c 22  |$text%="Y label"|
00016570  3a f2 75 70 64 61 74 65  5f 62 6f 74 74 6f 6d 0d  |:.update_bottom.|
00016580  61 30 16 f4 20 4f 48 3a  20 59 20 6c 61 62 65 6c  |a0.. OH: Y label|
00016590  20 74 65 78 74 0d 61 3a  21 4e 3d a4 6c 65 6e 28  | text.a:!N=.len(|
000165a0  73 5f 79 61 78 69 73 25  29 3a 4e 2b 3d 34 2d 28  |s_yaxis%):N+=4-(|
000165b0  4e 20 83 20 34 29 0d 61  44 72 f2 64 66 69 6c 65  |N . 4).aDr.dfile|
000165c0  5f 77 70 75 74 28 31 29  3a f2 64 66 69 6c 65 5f  |_wput(1):.dfile_|
000165d0  77 70 75 74 28 32 34 2b  32 38 2b 4e 29 3a f2 64  |wput(24+28+N):.d|
000165e0  66 69 6c 65 5f 77 70 75  74 28 30 29 3a f2 64 66  |file_wput(0):.df|
000165f0  69 6c 65 5f 77 70 75 74  28 32 32 30 30 30 30 29  |ile_wput(220000)|
00016600  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 33 30 30  |:.dfile_wput(300|
00016610  30 30 30 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |000):.dfile_wput|
00016620  28 32 32 30 30 30 30 29  0d 61 4e 7d f2 64 66 69  |(220000).aN}.dfi|
00016630  6c 65 5f 77 70 75 74 28  30 29 3a f2 64 66 69 6c  |le_wput(0):.dfil|
00016640  65 5f 62 70 75 74 28 3f  67 72 61 70 68 5f 62 61  |e_bput(?graph_ba|
00016650  63 6b 25 29 3a f2 64 66  69 6c 65 5f 62 70 75 74  |ck%):.dfile_bput|
00016660  28 67 72 61 70 68 5f 62  61 63 6b 25 3f 31 29 3a  |(graph_back%?1):|
00016670  f2 64 66 69 6c 65 5f 62  70 75 74 28 67 72 61 70  |.dfile_bput(grap|
00016680  68 5f 62 61 63 6b 25 3f  32 29 3a f2 64 66 69 6c  |h_back%?2):.dfil|
00016690  65 5f 62 70 75 74 28 67  72 61 70 68 5f 62 61 63  |e_bput(graph_bac|
000166a0  6b 25 3f 33 29 0d 61 58  7b f2 64 66 69 6c 65 5f  |k%?3).aX{.dfile_|
000166b0  77 70 75 74 28 67 72 61  70 68 5f 61 78 69 73 63  |wput(graph_axisc|
000166c0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 36 34  |):.dfile_wput(64|
000166d0  30 2a 74 65 78 74 5f 61  78 69 73 78 29 3a f2 64  |0*text_axisx):.d|
000166e0  66 69 6c 65 5f 77 70 75  74 28 36 34 30 2a 74 65  |file_wput(640*te|
000166f0  78 74 5f 61 78 69 73 79  29 3a f2 64 66 69 6c 65  |xt_axisy):.dfile|
00016700  5f 77 70 75 74 28 32 30  30 30 30 29 3a f2 64 66  |_wput(20000):.df|
00016710  69 6c 65 5f 77 70 75 74  28 32 30 35 30 30 30 29  |ile_wput(205000)|
00016720  0d 61 62 19 f2 64 66 69  6c 65 5f 73 70 75 74 28  |.ab..dfile_sput(|
00016730  73 5f 79 61 78 69 73 25  29 0d 61 6c 05 e1 0d 61  |s_yaxis%).al...a|
00016740  76 05 3a 0d 61 80 15 dd  f2 67 72 61 70 68 5f 66  |v.:.a....graph_f|
00016750  6f 6e 74 74 61 62 6c 65  0d 61 8a 23 24 74 65 78  |onttable.a.#$tex|
00016760  74 25 3d 22 46 6f 6e 74  20 74 61 62 6c 65 22 3a  |t%="Font table":|
00016770  f2 75 70 64 61 74 65 5f  74 6f 70 0d 61 94 09 52  |.update_top.a..R|
00016780  25 3d 2d 31 0d 61 9e 3e  e7 74 65 78 74 5f 74 69  |%=-1.a.>.text_ti|
00016790  74 6c 65 63 3c 3e 30 3a  f2 67 72 61 70 68 5f 66  |tlec<>0:.graph_f|
000167a0  6f 6e 74 74 28 31 2c 74  65 78 74 5f 74 69 74 6c  |ontt(1,text_titl|
000167b0  65 63 29 3a 67 72 61 70  68 5f 74 69 74 6c 65 63  |ec):graph_titlec|
000167c0  3d 31 0d 61 a8 3b e7 74  65 78 74 5f 61 78 69 73  |=1.a.;.text_axis|
000167d0  63 3c 3e 30 3a f2 67 72  61 70 68 5f 66 6f 6e 74  |c<>0:.graph_font|
000167e0  74 28 32 2c 74 65 78 74  5f 61 78 69 73 63 29 3a  |t(2,text_axisc):|
000167f0  67 72 61 70 68 5f 61 78  69 73 63 3d 32 0d 61 b2  |graph_axisc=2.a.|
00016800  38 e7 74 65 78 74 5f 6b  65 79 63 3c 3e 30 3a f2  |8.text_keyc<>0:.|
00016810  67 72 61 70 68 5f 66 6f  6e 74 74 28 33 2c 74 65  |graph_fontt(3,te|
00016820  78 74 5f 6b 65 79 63 29  3a 67 72 61 70 68 5f 6b  |xt_keyc):graph_k|
00016830  65 79 63 3d 33 0d 61 bc  10 52 25 2b 3d 34 2d 28  |eyc=3.a..R%+=4-(|
00016840  52 25 83 34 29 0d 61 c6  14 f4 20 4f 48 3a 20 46  |R%.4).a... OH: F|
00016850  6f 6e 74 20 74 61 62 6c  65 0d 61 d0 24 f2 64 66  |ont table.a.$.df|
00016860  69 6c 65 5f 77 70 75 74  28 30 29 3a f2 64 66 69  |ile_wput(0):.dfi|
00016870  6c 65 5f 77 70 75 74 28  38 2b 52 25 29 0d 61 da  |le_wput(8+R%).a.|
00016880  1b f2 64 66 69 6c 65 5f  73 70 75 74 6c 28 62 6c  |..dfile_sputl(bl|
00016890  6f 63 6b 25 2c 52 25 29  0d 61 e4 05 e1 0d 61 ee  |ock%,R%).a....a.|
000168a0  05 3a 0d 61 f8 16 dd f2  67 72 61 70 68 5f 66 6f  |.:.a....graph_fo|
000168b0  6e 74 6c 65 6e 28 4d 29  0d 62 02 2f 24 28 62 6c  |ntlen(M).b./$(bl|
000168c0  6f 63 6b 25 2b 4c 25 29  3d bd 30 2b 24 28 66 6f  |ock%+L%)=.0+$(fo|
000168d0  6e 74 5f 6c 69 73 74 25  2b 4d 2a 34 30 29 2b bd  |nt_list%+M*40)+.|
000168e0  30 2b bd 30 2b bd 30 0d  62 0c 17 f5 4c 25 2b 3d  |0+.0+.0.b...L%+=|
000168f0  31 3a fd 62 6c 6f 63 6b  25 3f 4c 25 3d 30 0d 62  |1:.block%?L%=0.b|
00016900  16 05 e1 0d 62 20 05 3a  0d 62 2a 16 dd f2 67 72  |....b .:.b*...gr|
00016910  61 70 68 5f 66 6f 6e 74  74 28 4e 2c 4d 29 0d 62  |aph_fontt(N,M).b|
00016920  34 2b 24 28 62 6c 6f 63  6b 25 2b 52 25 2b 31 29  |4+$(block%+R%+1)|
00016930  3d bd 4e 2b 24 28 66 6f  6e 74 5f 6c 69 73 74 25  |=.N+$(font_list%|
00016940  2b 4d 2a 34 30 29 2b bd  30 0d 62 3e 17 f5 52 25  |+M*40)+.0.b>..R%|
00016950  2b 3d 31 3a fd 62 6c 6f  63 6b 25 3f 52 25 3d 30  |+=1:.block%?R%=0|
00016960  0d 62 48 05 e1 0d 62 52  05 3a 0d 62 5c 0f dd f2  |.bH...bR.:.b\...|
00016970  67 72 61 70 68 5f 6b 65  79 0d 62 66 1f 24 74 65  |graph_key.bf.$te|
00016980  78 74 25 3d 22 4b 65 79  22 3a f2 75 70 64 61 74  |xt%="Key":.updat|
00016990  65 5f 62 6f 74 74 6f 6d  0d 62 70 0b 42 3d 30 3a  |e_bottom.bp.B=0:|
000169a0  58 3d 30 0d 62 7a 29 e7  67 72 61 70 68 5f 74 79  |X=0.bz).graph_ty|
000169b0  70 65 25 3c 3e 33 3a 41  3d 35 3a 8b 41 3d 64 61  |pe%<>3:A=5:.A=da|
000169c0  74 61 5f 6c 65 6e 67 74  68 25 2d 31 0d 62 84 0f  |ta_length%-1.b..|
000169d0  e3 67 72 6f 75 70 25 3d  30 b8 41 0d 62 8e 1b 4e  |.group%=0.A.b..N|
000169e0  3d 67 72 6f 75 70 5f 6d  61 70 25 3f 28 67 72 6f  |=group_map%?(gro|
000169f0  75 70 25 2a 34 29 0d 62  98 19 e7 4e 3c 3e 30 84  |up%*4).b...N<>0.|
00016a00  67 72 61 70 68 5f 74 79  70 65 25 3d 33 20 8c 0d  |graph_type%=3 ..|
00016a10  62 a2 5e 20 e7 67 72 61  70 68 5f 74 79 70 65 25  |b.^ .graph_type%|
00016a20  3c 3d 32 3a 52 25 3d 67  72 6f 75 70 5f 64 61 74  |<=2:R%=group_dat|
00016a30  61 25 2b 67 72 6f 75 70  25 2a 34 32 2b 31 31 3a  |a%+group%*42+11:|
00016a40  8b f2 64 61 74 61 5f 73  67 65 74 28 67 72 6f 75  |..data_sget(grou|
00016a50  70 5f 6d 61 70 25 21 32  34 2c 67 72 6f 75 70 25  |p_map%!24,group%|
00016a60  2b 31 29 3a 52 25 3d 62  6c 6f 63 6b 25 0d 62 ac  |+1):R%=block%.b.|
00016a70  15 20 e7 20 74 65 78 74  5f 6b 65 79 63 3c 3e 30  |. . text_keyc<>0|
00016a80  20 8c 0d 62 b6 53 20 20  c8 99 22 46 6f 6e 74 5f  | ..b.S  .."Font_|
00016a90  46 69 6e 64 46 6f 6e 74  22 2c 2c 66 6f 6e 74 5f  |FindFont",,font_|
00016aa0  6c 69 73 74 25 2b 74 65  78 74 5f 6b 65 79 63 2a  |list%+text_keyc*|
00016ab0  34 30 2c 74 65 78 74 5f  6b 65 79 78 2a 31 36 2c  |40,text_keyx*16,|
00016ac0  74 65 78 74 5f 6b 65 79  79 2a 31 36 2c 30 2c 30  |text_keyy*16,0,0|
00016ad0  20 b8 20 4e 25 0d 62 c0  3f 20 20 c8 99 22 46 6f  | . N%.b.?  .."Fo|
00016ae0  6e 74 5f 53 74 72 69 6e  67 57 69 64 74 68 22 2c  |nt_StringWidth",|
00016af0  2c 52 25 2c 33 30 30 30  30 30 2c 32 30 30 30 30  |,R%,300000,20000|
00016b00  30 2c 2d 31 2c 52 25 2b  a4 6c 65 6e 28 52 25 29  |0,-1,R%+.len(R%)|
00016b10  b8 2c 2c 59 0d 62 ca 1a  20 20 c8 99 22 46 6f 6e  |.,,Y.b..  .."Fon|
00016b20  74 5f 4c 6f 73 65 46 6f  6e 74 22 2c 4e 25 0d 62  |t_LoseFont",N%.b|
00016b30  d4 06 20 cc 0d 62 de 1f  20 20 59 3d 74 65 78 74  |.. ..b..  Y=text|
00016b40  5f 6b 65 79 78 2a 31 30  30 30 2a a4 6c 65 6e 28  |_keyx*1000*.len(|
00016b50  52 25 29 0d 62 e8 06 20  cd 0d 62 f2 0d 20 e7 59  |R%).b.. ..b.. .Y|
00016b60  3e 58 3a 58 3d 59 0d 62  fc 09 20 42 2b 3d 31 0d  |>X:X=Y.b.. B+=1.|
00016b70  63 06 05 cd 0d 63 10 17  ed 3a 42 2b 3d 31 3a 58  |c....c...:B+=1:X|
00016b80  3d 58 2a 36 34 30 2f 31  30 30 30 0d 63 1a 11 f4  |=X*640/1000.c...|
00016b90  20 4f 48 3a 20 4b 65 79  20 62 6f 78 0d 63 24 72  | OH: Key box.c$r|
00016ba0  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 29 3a f2  |.dfile_wput(2):.|
00016bb0  64 66 69 6c 65 5f 77 70  75 74 28 32 34 2b 31 36  |dfile_wput(24+16|
00016bc0  2b 31 32 2a 35 2b 34 29  3a f2 64 66 69 6c 65 5f  |+12*5+4):.dfile_|
00016bd0  77 70 75 74 28 30 29 3a  f2 64 66 69 6c 65 5f 77  |wput(0):.dfile_w|
00016be0  70 75 74 28 30 29 3a f2  64 66 69 6c 65 5f 77 70  |put(0):.dfile_wp|
00016bf0  75 74 28 33 32 30 30 30  30 29 3a f2 64 66 69 6c  |ut(320000):.dfil|
00016c00  65 5f 77 70 75 74 28 32  32 30 30 30 30 29 0d 63  |e_wput(220000).c|
00016c10  2e 9b f2 64 66 69 6c 65  5f 62 70 75 74 28 3f 67  |...dfile_bput(?g|
00016c20  72 61 70 68 5f 62 61 63  6b 25 29 3a f2 64 66 69  |raph_back%):.dfi|
00016c30  6c 65 5f 62 70 75 74 28  67 72 61 70 68 5f 62 61  |le_bput(graph_ba|
00016c40  63 6b 25 3f 31 29 3a f2  64 66 69 6c 65 5f 62 70  |ck%?1):.dfile_bp|
00016c50  75 74 28 67 72 61 70 68  5f 62 61 63 6b 25 3f 32  |ut(graph_back%?2|
00016c60  29 3a f2 64 66 69 6c 65  5f 62 70 75 74 28 67 72  |):.dfile_bput(gr|
00016c70  61 70 68 5f 62 61 63 6b  25 3f 33 29 3a f2 64 66  |aph_back%?3):.df|
00016c80  69 6c 65 5f 77 70 75 74  28 30 29 3a f2 64 66 69  |ile_wput(0):.dfi|
00016c90  6c 65 5f 77 70 75 74 28  30 29 3a f2 64 66 69 6c  |le_wput(0):.dfil|
00016ca0  65 5f 77 70 75 74 28 30  29 0d 63 38 42 f2 64 66  |e_wput(0).c8B.df|
00016cb0  69 6c 65 5f 77 70 75 74  28 32 29 3a f2 64 66 69  |ile_wput(2):.dfi|
00016cc0  6c 65 5f 77 70 75 74 28  33 33 30 30 30 30 29 3a  |le_wput(330000):|
00016cd0  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 32 38 30  |.dfile_wput(2280|
00016ce0  30 30 2d 42 2a 31 38 30  30 30 29 0d 63 42 44 f2  |00-B*18000).cBD.|
00016cf0  64 66 69 6c 65 5f 77 70  75 74 28 38 29 3a f2 64  |dfile_wput(8):.d|
00016d00  66 69 6c 65 5f 77 70 75  74 28 33 37 30 30 30 30  |file_wput(370000|
00016d10  2b 58 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |+X):.dfile_wput(|
00016d20  32 32 38 30 30 30 2d 42  2a 31 38 30 30 30 29 0d  |228000-B*18000).|
00016d30  63 4c 3c f2 64 66 69 6c  65 5f 77 70 75 74 28 38  |cL<.dfile_wput(8|
00016d40  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 33 37  |):.dfile_wput(37|
00016d50  30 30 30 30 2b 58 29 3a  f2 64 66 69 6c 65 5f 77  |0000+X):.dfile_w|
00016d60  70 75 74 28 32 32 30 30  30 30 29 0d 63 56 3a f2  |put(220000).cV:.|
00016d70  64 66 69 6c 65 5f 77 70  75 74 28 38 29 3a f2 64  |dfile_wput(8):.d|
00016d80  66 69 6c 65 5f 77 70 75  74 28 33 33 30 30 30 30  |file_wput(330000|
00016d90  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 32  |):.dfile_wput(22|
00016da0  30 30 30 30 29 0d 63 60  42 f2 64 66 69 6c 65 5f  |0000).c`B.dfile_|
00016db0  77 70 75 74 28 38 29 3a  f2 64 66 69 6c 65 5f 77  |wput(8):.dfile_w|
00016dc0  70 75 74 28 33 33 30 30  30 30 29 3a f2 64 66 69  |put(330000):.dfi|
00016dd0  6c 65 5f 77 70 75 74 28  32 32 38 30 30 30 2d 42  |le_wput(228000-B|
00016de0  2a 31 38 30 30 30 29 0d  63 6a 12 f2 64 66 69 6c  |*18000).cj..dfil|
00016df0  65 5f 77 70 75 74 28 30  29 0d 63 74 07 42 3d 30  |e_wput(0).ct.B=0|
00016e00  0d 63 7e 29 e7 67 72 61  70 68 5f 74 79 70 65 25  |.c~).graph_type%|
00016e10  3c 3e 33 3a 41 3d 35 3a  8b 41 3d 64 61 74 61 5f  |<>3:A=5:.A=data_|
00016e20  6c 65 6e 67 74 68 25 2d  31 0d 63 88 0f e3 67 72  |length%-1.c...gr|
00016e30  6f 75 70 25 3d 30 b8 41  0d 63 92 2b e7 67 72 61  |oup%=0.A.c.+.gra|
00016e40  70 68 5f 74 79 70 65 25  3c 3e 33 3a 4e 3d 67 72  |ph_type%<>3:N=gr|
00016e50  6f 75 70 5f 6d 61 70 25  21 28 67 72 6f 75 70 25  |oup_map%!(group%|
00016e60  2a 34 29 0d 63 9c 19 e7  4e 3c 3e 30 84 67 72 61  |*4).c...N<>0.gra|
00016e70  70 68 5f 74 79 70 65 25  3d 33 20 8c 0d 63 a6 13  |ph_type%=3 ..c..|
00016e80  20 c8 8e 67 72 61 70 68  5f 74 79 70 65 25 ca 0d  | ..graph_type%..|
00016e90  63 b0 09 20 20 c9 20 31  0d 63 ba 16 20 20 20 f4  |c..  . 1.c..   .|
00016ea0  20 4f 48 3a 20 49 74 65  6d 20 6c 69 6e 65 0d 63  | OH: Item line.c|
00016eb0  c4 3a 20 20 20 53 25 3d  30 3a 4c 25 3d 30 3a e7  |.:   S%=0:L%=0:.|
00016ec0  67 72 6f 75 70 5f 64 61  74 61 25 3f 28 67 72 6f  |group_data%?(gro|
00016ed0  75 70 25 2a 34 32 2b 39  29 3e 31 3a 53 25 3d 31  |up%*42+9)>1:S%=1|
00016ee0  32 38 3a 4c 25 3d 31 36  0d 63 ce 7d 20 20 20 f2  |28:L%=16.c.}   .|
00016ef0  64 66 69 6c 65 5f 77 70  75 74 28 32 29 3a f2 64  |dfile_wput(2):.d|
00016f00  66 69 6c 65 5f 77 70 75  74 28 32 34 2b 31 36 2b  |file_wput(24+16+|
00016f10  4c 25 2b 32 2a 31 32 2b  34 29 3a f2 64 66 69 6c  |L%+2*12+4):.dfil|
00016f20  65 5f 77 70 75 74 28 33  33 30 30 30 30 29 3a f2  |e_wput(330000):.|
00016f30  64 66 69 6c 65 5f 77 70  75 74 28 30 29 3a f2 64  |dfile_wput(0):.d|
00016f40  66 69 6c 65 5f 77 70 75  74 28 33 33 30 30 30 30  |file_wput(330000|
00016f50  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 32  |):.dfile_wput(22|
00016f60  30 30 30 30 29 0d 63 d8  d1 20 20 20 f2 64 66 69  |0000).c..   .dfi|
00016f70  6c 65 5f 77 70 75 74 28  2d 31 29 3a f2 64 66 69  |le_wput(-1):.dfi|
00016f80  6c 65 5f 62 70 75 74 28  30 29 3a f2 64 66 69 6c  |le_bput(0):.dfil|
00016f90  65 5f 62 70 75 74 28 67  72 6f 75 70 5f 64 61 74  |e_bput(group_dat|
00016fa0  61 25 3f 28 67 72 6f 75  70 25 2a 34 32 2b 32 29  |a%?(group%*42+2)|
00016fb0  29 3a f2 64 66 69 6c 65  5f 62 70 75 74 28 67 72  |):.dfile_bput(gr|
00016fc0  6f 75 70 5f 64 61 74 61  25 3f 28 67 72 6f 75 70  |oup_data%?(group|
00016fd0  25 2a 34 32 2b 33 29 29  3a f2 64 66 69 6c 65 5f  |%*42+3)):.dfile_|
00016fe0  62 70 75 74 28 67 72 6f  75 70 5f 64 61 74 61 25  |bput(group_data%|
00016ff0  3f 28 67 72 6f 75 70 25  2a 34 32 2b 34 29 29 3a  |?(group%*42+4)):|
00017000  f2 64 66 69 6c 65 5f 77  70 75 74 28 67 72 6f 75  |.dfile_wput(grou|
00017010  70 5f 64 61 74 61 25 21  28 67 72 6f 75 70 25 2a  |p_data%!(group%*|
00017020  34 32 2b 35 29 29 3a f2  64 66 69 6c 65 5f 77 70  |42+5)):.dfile_wp|
00017030  75 74 28 53 25 29 0d 63  e2 2c 20 20 20 43 25 3d  |ut(S%).c.,   C%=|
00017040  38 30 30 30 81 28 35 2d  67 72 6f 75 70 5f 64 61  |8000.(5-group_da|
00017050  74 61 25 3f 28 67 72 6f  75 70 25 2a 34 32 2b 39  |ta%?(group%*42+9|
00017060  29 29 0d 63 ec 4c 20 20  20 e7 53 25 3d 31 32 38  |)).c.L   .S%=128|
00017070  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 3a  |:.dfile_wput(0):|
00017080  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 29 3a f2  |.dfile_wput(2):.|
00017090  64 66 69 6c 65 5f 77 70  75 74 28 43 25 29 3a f2  |dfile_wput(C%):.|
000170a0  64 66 69 6c 65 5f 77 70  75 74 28 43 25 29 0d 63  |dfile_wput(C%).c|
000170b0  f6 45 20 20 20 f2 64 66  69 6c 65 5f 77 70 75 74  |.E   .dfile_wput|
000170c0  28 32 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(2):.dfile_wput(|
000170d0  33 33 34 30 30 30 29 3a  f2 64 66 69 6c 65 5f 77  |334000):.dfile_w|
000170e0  70 75 74 28 32 30 37 30  30 30 2d 31 38 30 30 30  |put(207000-18000|
000170f0  2a 42 29 0d 64 00 45 20  20 20 f2 64 66 69 6c 65  |*B).d.E   .dfile|
00017100  5f 77 70 75 74 28 38 29  3a f2 64 66 69 6c 65 5f  |_wput(8):.dfile_|
00017110  77 70 75 74 28 33 35 32  30 30 30 29 3a f2 64 66  |wput(352000):.df|
00017120  69 6c 65 5f 77 70 75 74  28 32 30 37 30 30 30 2d  |ile_wput(207000-|
00017130  31 38 30 30 30 2a 42 29  0d 64 0a 15 20 20 20 f2  |18000*B).d..   .|
00017140  64 66 69 6c 65 5f 77 70  75 74 28 30 29 0d 64 14  |dfile_wput(0).d.|
00017150  13 20 20 20 f4 20 49 74  65 6d 20 70 6f 69 6e 74  |.   . Item point|
00017160  0d 64 1e 4a 20 20 20 58  3d 28 33 34 33 30 30 30  |.d.J   X=(343000|
00017170  2d 32 30 30 30 30 29 2f  67 72 61 70 68 5f 78 73  |-20000)/graph_xs|
00017180  63 61 6c 65 3a 59 3d 28  32 30 37 30 30 30 2d 32  |cale:Y=(207000-2|
00017190  30 30 30 30 2d 31 38 30  30 30 2a 42 29 2f 67 72  |0000-18000*B)/gr|
000171a0  61 70 68 5f 79 73 63 61  6c 65 0d 64 28 6d 20 20  |aph_yscale.d(m  |
000171b0  20 52 25 3d 30 3a 43 25  3d 28 67 72 6f 75 70 5f  | R%=0:C%=(group_|
000171c0  64 61 74 61 25 3f 28 67  72 6f 75 70 25 2a 34 32  |data%?(group%*42|
000171d0  2b 34 29 3c 3c 32 34 29  2b 28 67 72 6f 75 70 5f  |+4)<<24)+(group_|
000171e0  64 61 74 61 25 3f 28 67  72 6f 75 70 25 2a 34 32  |data%?(group%*42|
000171f0  2b 33 29 3c 3c 31 36 29  2b 28 67 72 6f 75 70 5f  |+3)<<16)+(group_|
00017200  64 61 74 61 25 3f 28 67  72 6f 75 70 25 2a 34 32  |data%?(group%*42|
00017210  2b 32 29 3c 3c 38 29 0d  64 32 23 20 20 20 4d 25  |+2)<<8).d2#   M%|
00017220  3d 67 72 6f 75 70 5f 64  61 74 61 25 3f 28 67 72  |=group_data%?(gr|
00017230  6f 75 70 25 2a 34 32 2b  31 29 0d 64 3c 21 20 20  |oup%*42+1).d<!  |
00017240  20 c8 8e 67 72 6f 75 70  5f 64 61 74 61 25 3f 28  | ..group_data%?(|
00017250  67 72 6f 75 70 25 2a 34  32 29 ca 0d 64 46 19 20  |group%*42)..dF. |
00017260  20 20 20 c9 31 3a f2 70  6f 69 6e 74 5f 63 69 72  |   .1:.point_cir|
00017270  28 4d 25 29 0d 64 50 19  20 20 20 20 c9 32 3a f2  |(M%).dP.    .2:.|
00017280  70 6f 69 6e 74 5f 73 71  75 28 4d 25 29 0d 64 5a  |point_squ(M%).dZ|
00017290  19 20 20 20 20 c9 33 3a  f2 70 6f 69 6e 74 5f 74  |.    .3:.point_t|
000172a0  72 69 28 4d 25 29 0d 64  64 19 20 20 20 20 c9 34  |ri(M%).dd.    .4|
000172b0  3a f2 70 6f 69 6e 74 5f  64 69 61 28 4d 25 29 0d  |:.point_dia(M%).|
000172c0  64 6e 19 20 20 20 20 c9  35 3a f2 70 6f 69 6e 74  |dn.    .5:.point|
000172d0  5f 73 74 61 28 4d 25 29  0d 64 78 1b 20 20 20 20  |_sta(M%).dx.    |
000172e0  c9 36 3a f2 70 6f 69 6e  74 5f 63 72 6f 73 73 28  |.6:.point_cross(|
000172f0  4d 25 29 0d 64 82 17 20  20 20 20 c9 37 3a f2 70  |M%).d..    .7:.p|
00017300  6f 69 6e 74 5f 78 28 4d  25 29 0d 64 8c 08 20 20  |oint_x(M%).d..  |
00017310  20 cb 0d 64 96 08 20 20  c9 32 0d 64 a0 15 20 20  | ..d..  .2.d..  |
00017320  20 f4 20 4f 48 3a 20 49  74 65 6d 20 62 6f 78 0d  | . OH: Item box.|
00017330  64 aa 75 20 20 20 f2 64  66 69 6c 65 5f 77 70 75  |d.u   .dfile_wpu|
00017340  74 28 32 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(2):.dfile_wput|
00017350  28 32 34 2b 31 36 2b 31  32 2a 35 2b 34 29 3a f2  |(24+16+12*5+4):.|
00017360  64 66 69 6c 65 5f 77 70  75 74 28 30 29 3a f2 64  |dfile_wput(0):.d|
00017370  66 69 6c 65 5f 77 70 75  74 28 30 29 3a f2 64 66  |file_wput(0):.df|
00017380  69 6c 65 5f 77 70 75 74  28 33 32 30 30 30 30 29  |ile_wput(320000)|
00017390  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 32 30  |:.dfile_wput(220|
000173a0  30 30 30 29 0d 64 b4 c4  20 20 20 f2 64 66 69 6c  |000).d..   .dfil|
000173b0  65 5f 62 70 75 74 28 30  29 3a f2 64 66 69 6c 65  |e_bput(0):.dfile|
000173c0  5f 62 70 75 74 28 67 72  6f 75 70 5f 64 61 74 61  |_bput(group_data|
000173d0  25 3f 28 67 72 6f 75 70  25 2a 34 32 2b 32 29 29  |%?(group%*42+2))|
000173e0  3a f2 64 66 69 6c 65 5f  62 70 75 74 28 67 72 6f  |:.dfile_bput(gro|
000173f0  75 70 5f 64 61 74 61 25  3f 28 67 72 6f 75 70 25  |up_data%?(group%|
00017400  2a 34 32 2b 33 29 29 3a  f2 64 66 69 6c 65 5f 62  |*42+3)):.dfile_b|
00017410  70 75 74 28 67 72 6f 75  70 5f 64 61 74 61 25 3f  |put(group_data%?|
00017420  28 67 72 6f 75 70 25 2a  34 32 2b 34 29 29 3a f2  |(group%*42+4)):.|
00017430  64 66 69 6c 65 5f 77 70  75 74 28 67 72 61 70 68  |dfile_wput(graph|
00017440  5f 6f 75 74 6c 69 6e 65  25 29 3a f2 64 66 69 6c  |_outline%):.dfil|
00017450  65 5f 77 70 75 74 28 30  29 3a f2 64 66 69 6c 65  |e_wput(0):.dfile|
00017460  5f 77 70 75 74 28 30 29  0d 64 be 45 20 20 20 f2  |_wput(0).d.E   .|
00017470  64 66 69 6c 65 5f 77 70  75 74 28 32 29 3a f2 64  |dfile_wput(2):.d|
00017480  66 69 6c 65 5f 77 70 75  74 28 33 33 38 30 30 30  |file_wput(338000|
00017490  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 31  |):.dfile_wput(21|
000174a0  32 30 30 30 2d 31 38 30  30 30 2a 42 29 0d 64 c8  |2000-18000*B).d.|
000174b0  45 20 20 20 f2 64 66 69  6c 65 5f 77 70 75 74 28  |E   .dfile_wput(|
000174c0  38 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 33  |8):.dfile_wput(3|
000174d0  34 38 30 30 30 29 3a f2  64 66 69 6c 65 5f 77 70  |48000):.dfile_wp|
000174e0  75 74 28 32 31 32 30 30  30 2d 31 38 30 30 30 2a  |ut(212000-18000*|
000174f0  42 29 0d 64 d2 45 20 20  20 f2 64 66 69 6c 65 5f  |B).d.E   .dfile_|
00017500  77 70 75 74 28 38 29 3a  f2 64 66 69 6c 65 5f 77  |wput(8):.dfile_w|
00017510  70 75 74 28 33 34 38 30  30 30 29 3a f2 64 66 69  |put(348000):.dfi|
00017520  6c 65 5f 77 70 75 74 28  32 30 32 30 30 30 2d 31  |le_wput(202000-1|
00017530  38 30 30 30 2a 42 29 0d  64 dc 45 20 20 20 f2 64  |8000*B).d.E   .d|
00017540  66 69 6c 65 5f 77 70 75  74 28 38 29 3a f2 64 66  |file_wput(8):.df|
00017550  69 6c 65 5f 77 70 75 74  28 33 33 38 30 30 30 29  |ile_wput(338000)|
00017560  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 30 32  |:.dfile_wput(202|
00017570  30 30 30 2d 31 38 30 30  30 2a 42 29 0d 64 e6 45  |000-18000*B).d.E|
00017580  20 20 20 f2 64 66 69 6c  65 5f 77 70 75 74 28 38  |   .dfile_wput(8|
00017590  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 33 33  |):.dfile_wput(33|
000175a0  38 30 30 30 29 3a f2 64  66 69 6c 65 5f 77 70 75  |8000):.dfile_wpu|
000175b0  74 28 32 31 32 30 30 30  2d 31 38 30 30 30 2a 42  |t(212000-18000*B|
000175c0  29 0d 64 f0 15 20 20 20  f2 64 66 69 6c 65 5f 77  |).d..   .dfile_w|
000175d0  70 75 74 28 30 29 0d 64  fa 08 20 20 c9 33 0d 65  |put(0).d..  .3.e|
000175e0  04 15 20 20 20 f4 20 4f  48 3a 20 49 74 65 6d 20  |..   . OH: Item |
000175f0  70 69 65 0d 65 0e 75 20  20 20 f2 64 66 69 6c 65  |pie.e.u   .dfile|
00017600  5f 77 70 75 74 28 32 29  3a f2 64 66 69 6c 65 5f  |_wput(2):.dfile_|
00017610  77 70 75 74 28 32 34 2b  31 36 2b 31 32 2a 34 2b  |wput(24+16+12*4+|
00017620  34 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 30  |4):.dfile_wput(0|
00017630  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |):.dfile_wput(0)|
00017640  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 33 32 30  |:.dfile_wput(320|
00017650  30 30 30 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |000):.dfile_wput|
00017660  28 32 32 30 30 30 30 29  0d 65 18 8c 20 20 20 f2  |(220000).e..   .|
00017670  64 66 69 6c 65 5f 62 70  75 74 28 70 69 65 5f 70  |dfile_bput(pie_p|
00017680  61 6c 65 74 74 65 25 3f  28 42 2a 34 29 29 3a f2  |alette%?(B*4)):.|
00017690  64 66 69 6c 65 5f 62 70  75 74 28 70 69 65 5f 70  |dfile_bput(pie_p|
000176a0  61 6c 65 74 74 65 25 3f  28 42 2a 34 2b 31 29 29  |alette%?(B*4+1))|
000176b0  3a f2 64 66 69 6c 65 5f  62 70 75 74 28 70 69 65  |:.dfile_bput(pie|
000176c0  5f 70 61 6c 65 74 74 65  25 3f 28 42 2a 34 2b 32  |_palette%?(B*4+2|
000176d0  29 29 3a f2 64 66 69 6c  65 5f 62 70 75 74 28 70  |)):.dfile_bput(p|
000176e0  69 65 5f 70 61 6c 65 74  74 65 25 3f 28 42 2a 34  |ie_palette%?(B*4|
000176f0  2b 33 29 29 0d 65 22 40  20 20 20 f2 64 66 69 6c  |+3)).e"@   .dfil|
00017700  65 5f 77 70 75 74 28 67  72 61 70 68 5f 6f 75 74  |e_wput(graph_out|
00017710  6c 69 6e 65 25 29 3a f2  64 66 69 6c 65 5f 77 70  |line%):.dfile_wp|
00017720  75 74 28 30 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(0):.dfile_wpu|
00017730  74 28 30 29 0d 65 2c 45  20 20 20 f2 64 66 69 6c  |t(0).e,E   .dfil|
00017740  65 5f 77 70 75 74 28 32  29 3a f2 64 66 69 6c 65  |e_wput(2):.dfile|
00017750  5f 77 70 75 74 28 33 33  38 30 30 30 29 3a f2 64  |_wput(338000):.d|
00017760  66 69 6c 65 5f 77 70 75  74 28 32 31 32 30 30 30  |file_wput(212000|
00017770  2d 31 38 30 30 30 2a 42  29 0d 65 36 45 20 20 20  |-18000*B).e6E   |
00017780  f2 64 66 69 6c 65 5f 77  70 75 74 28 38 29 3a f2  |.dfile_wput(8):.|
00017790  64 66 69 6c 65 5f 77 70  75 74 28 33 34 38 30 30  |dfile_wput(34800|
000177a0  30 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |0):.dfile_wput(2|
000177b0  30 37 30 30 30 2d 31 38  30 30 30 2a 42 29 0d 65  |07000-18000*B).e|
000177c0  40 45 20 20 20 f2 64 66  69 6c 65 5f 77 70 75 74  |@E   .dfile_wput|
000177d0  28 38 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(8):.dfile_wput(|
000177e0  33 33 38 30 30 30 29 3a  f2 64 66 69 6c 65 5f 77  |338000):.dfile_w|
000177f0  70 75 74 28 32 30 32 30  30 30 2d 31 38 30 30 30  |put(202000-18000|
00017800  2a 42 29 0d 65 4a 45 20  20 20 f2 64 66 69 6c 65  |*B).eJE   .dfile|
00017810  5f 77 70 75 74 28 38 29  3a f2 64 66 69 6c 65 5f  |_wput(8):.dfile_|
00017820  77 70 75 74 28 33 33 38  30 30 30 29 3a f2 64 66  |wput(338000):.df|
00017830  69 6c 65 5f 77 70 75 74  28 32 31 32 30 30 30 2d  |ile_wput(212000-|
00017840  31 38 30 30 30 2a 42 29  0d 65 54 15 20 20 20 f2  |18000*B).eT.   .|
00017850  64 66 69 6c 65 5f 77 70  75 74 28 30 29 0d 65 5e  |dfile_wput(0).e^|
00017860  06 20 cb 0d 65 68 13 20  f4 20 4f 48 3a 20 4b 65  |. ..eh. . OH: Ke|
00017870  79 20 74 65 78 74 0d 65  72 5e 20 e7 67 72 61 70  |y text.er^ .grap|
00017880  68 5f 74 79 70 65 25 3c  3e 33 3a 52 25 3d 67 72  |h_type%<>3:R%=gr|
00017890  6f 75 70 5f 64 61 74 61  25 2b 67 72 6f 75 70 25  |oup_data%+group%|
000178a0  2a 34 32 2b 31 31 3a 8b  f2 64 61 74 61 5f 73 67  |*42+11:..data_sg|
000178b0  65 74 28 67 72 6f 75 70  5f 6d 61 70 25 21 32 34  |et(group_map%!24|
000178c0  2c 67 72 6f 75 70 25 2b  31 29 3a 52 25 3d 62 6c  |,group%+1):R%=bl|
000178d0  6f 63 6b 25 0d 65 7c 10  20 4e 25 3d a4 6c 65 6e  |ock%.e|. N%=.len|
000178e0  28 52 25 29 0d 65 86 13  20 4e 25 2b 3d 34 2d 28  |(R%).e.. N%+=4-(|
000178f0  4e 25 20 83 20 34 29 0d  65 90 74 20 f2 64 66 69  |N% . 4).e.t .dfi|
00017900  6c 65 5f 77 70 75 74 28  31 29 3a f2 64 66 69 6c  |le_wput(1):.dfil|
00017910  65 5f 77 70 75 74 28 32  34 2b 32 38 2b 4e 25 29  |e_wput(24+28+N%)|
00017920  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 3a  |:.dfile_wput(0):|
00017930  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 32 30 30  |.dfile_wput(2200|
00017940  30 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |00):.dfile_wput(|
00017950  33 30 30 30 30 30 29 3a  f2 64 66 69 6c 65 5f 77  |300000):.dfile_w|
00017960  70 75 74 28 32 32 30 30  30 30 29 0d 65 9a 7e 20  |put(220000).e.~ |
00017970  f2 64 66 69 6c 65 5f 77  70 75 74 28 30 29 3a f2  |.dfile_wput(0):.|
00017980  64 66 69 6c 65 5f 62 70  75 74 28 3f 67 72 61 70  |dfile_bput(?grap|
00017990  68 5f 62 61 63 6b 25 29  3a f2 64 66 69 6c 65 5f  |h_back%):.dfile_|
000179a0  62 70 75 74 28 67 72 61  70 68 5f 62 61 63 6b 25  |bput(graph_back%|
000179b0  3f 31 29 3a f2 64 66 69  6c 65 5f 62 70 75 74 28  |?1):.dfile_bput(|
000179c0  67 72 61 70 68 5f 62 61  63 6b 25 3f 32 29 3a f2  |graph_back%?2):.|
000179d0  64 66 69 6c 65 5f 62 70  75 74 28 67 72 61 70 68  |dfile_bput(graph|
000179e0  5f 62 61 63 6b 25 3f 33  29 0d 65 a4 92 20 f2 64  |_back%?3).e.. .d|
000179f0  66 69 6c 65 5f 77 70 75  74 28 67 72 61 70 68 5f  |file_wput(graph_|
00017a00  6b 65 79 63 29 3a f2 64  66 69 6c 65 5f 77 70 75  |keyc):.dfile_wpu|
00017a10  74 28 36 34 30 2a 74 65  78 74 5f 6b 65 79 78 29  |t(640*text_keyx)|
00017a20  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 36 34 30  |:.dfile_wput(640|
00017a30  2a 74 65 78 74 5f 6b 65  79 79 29 3a f2 64 66 69  |*text_keyy):.dfi|
00017a40  6c 65 5f 77 70 75 74 28  33 36 30 30 30 30 29 3a  |le_wput(360000):|
00017a50  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 30 37 30  |.dfile_wput(2070|
00017a60  30 30 2d 31 38 30 30 30  2a 42 2d 28 31 36 30 2a  |00-18000*B-(160*|
00017a70  74 65 78 74 5f 6b 65 79  79 29 29 0d 65 ae 14 20  |text_keyy)).e.. |
00017a80  f2 64 66 69 6c 65 5f 73  70 75 74 28 52 25 29 0d  |.dfile_sput(R%).|
00017a90  65 b8 09 20 42 2b 3d 31  0d 65 c2 05 cd 0d 65 cc  |e.. B+=1.e....e.|
00017aa0  05 ed 0d 65 d6 05 e1 0d  65 e0 05 3a 0d 65 ea 0f  |...e....e..:.e..|
00017ab0  dd f2 67 72 61 70 68 5f  62 61 72 0d 65 f4 20 24  |..graph_bar.e. $|
00017ac0  74 65 78 74 25 3d 22 42  61 72 73 22 3a f2 75 70  |text%="Bars":.up|
00017ad0  64 61 74 65 5f 62 6f 74  74 6f 6d 0d 65 fe 2b e7  |date_bottom.e.+.|
00017ae0  67 72 61 70 68 5f 62 61  72 74 79 70 65 25 3c 31  |graph_bartype%<1|
00017af0  30 3a e3 4e 25 3d 30 b8  64 61 74 61 5f 6c 65 6e  |0:.N%=0.data_len|
00017b00  67 74 68 25 2d 31 0d 66  08 2e e7 67 72 61 70 68  |gth%-1.f...graph|
00017b10  5f 62 61 72 74 79 70 65  25 3e 31 30 3a e3 4e 25  |_bartype%>10:.N%|
00017b20  3d 64 61 74 61 5f 6c 65  6e 67 74 68 25 2d 31 b8  |=data_length%-1.|
00017b30  30 88 2d 31 0d 66 12 34  20 4d 25 3d 30 3a e3 67  |0.-1.f.4 M%=0:.g|
00017b40  72 6f 75 70 25 3d 30 b8  35 3a e7 67 72 6f 75 70  |roup%=0.5:.group|
00017b50  5f 6d 61 70 25 21 28 67  72 6f 75 70 25 2a 34 29  |_map%!(group%*4)|
00017b60  3e 30 3a 4d 25 2b 3d 31  0d 66 1c 12 20 ed 3a 4d  |>0:M%+=1.f.. .:M|
00017b70  25 2d 3d 31 3a 52 25 3d  4d 25 0d 66 26 2e e7 67  |%-=1:R%=M%.f&..g|
00017b80  72 61 70 68 5f 62 61 72  74 79 70 65 25 3c 31 30  |raph_bartype%<10|
00017b90  3a 41 3d 64 61 74 61 5f  79 6d 69 6e 3a 42 3d 64  |:A=data_ymin:B=d|
00017ba0  61 74 61 5f 79 6d 61 78  0d 66 30 2e e7 67 72 61  |ata_ymax.f0..gra|
00017bb0  70 68 5f 62 61 72 74 79  70 65 25 3e 31 30 3a 41  |ph_bartype%>10:A|
00017bc0  3d 64 61 74 61 5f 78 6d  69 6e 3a 42 3d 64 61 74  |=data_xmin:B=dat|
00017bd0  61 5f 78 6d 61 78 0d 66  3a 14 e7 41 3c 30 3a 4f  |a_xmax.f:..A<0:O|
00017be0  25 3d 2d 41 3a 8b 4f 25  3d 30 0d 66 44 0f e7 42  |%=-A:.O%=0.fD..B|
00017bf0  3c 30 3a 4f 25 3d 41 2d  42 0d 66 4e 07 4d 3d 30  |<0:O%=A-B.fN.M=0|
00017c00  0d 66 58 3e e7 67 72 61  70 68 5f 33 44 25 80 67  |.fX>.graph_3D%.g|
00017c10  72 61 70 68 5f 62 61 72  74 79 70 65 25 3c 31 30  |raph_bartype%<10|
00017c20  80 67 72 61 70 68 5f 62  61 72 74 79 70 65 25 3c  |.graph_bartype%<|
00017c30  3e 33 3a e3 67 72 6f 75  70 25 3d 30 b8 35 0d 66  |>3:.group%=0.5.f|
00017c40  62 3f e7 67 72 61 70 68  5f 33 44 25 80 67 72 61  |b?.graph_3D%.gra|
00017c50  70 68 5f 62 61 72 74 79  70 65 25 3d 33 3a e3 67  |ph_bartype%=3:.g|
00017c60  72 6f 75 70 25 3d 35 b8  30 88 2d 31 3a 4d 3d 4d  |roup%=5.0.-1:M=M|
00017c70  25 2a 31 35 30 30 30 3a  52 25 3d 4d 25 0d 66 6c  |%*15000:R%=M%.fl|
00017c80  42 e7 67 72 61 70 68 5f  33 44 25 80 67 72 61 70  |B.graph_3D%.grap|
00017c90  68 5f 62 61 72 74 79 70  65 25 3e 31 30 80 67 72  |h_bartype%>10.gr|
00017ca0  61 70 68 5f 62 61 72 74  79 70 65 25 3c 3e 31 33  |aph_bartype%<>13|
00017cb0  3a e3 67 72 6f 75 70 25  3d 35 b8 30 88 2d 31 0d  |:.group%=5.0.-1.|
00017cc0  66 76 3d e7 67 72 61 70  68 5f 33 44 25 80 67 72  |fv=.graph_3D%.gr|
00017cd0  61 70 68 5f 62 61 72 74  79 70 65 25 3d 31 33 3a  |aph_bartype%=13:|
00017ce0  e3 67 72 6f 75 70 25 3d  30 b8 35 3a 4d 3d 4d 25  |.group%=0.5:M=M%|
00017cf0  2a 31 35 30 30 30 3a 52  25 3d 4d 25 0d 66 80 1b  |*15000:R%=M%.f..|
00017d00  e7 ac 67 72 61 70 68 5f  33 44 25 3a e3 67 72 6f  |..graph_3D%:.gro|
00017d10  75 70 25 3d 30 b8 35 0d  66 8a 2f e7 67 72 6f 75  |up%=0.5.f./.grou|
00017d20  70 5f 6d 61 70 25 21 28  67 72 6f 75 70 25 2a 34  |p_map%!(group%*4|
00017d30  29 3e 30 80 67 72 61 70  68 5f 62 61 72 74 79 70  |)>0.graph_bartyp|
00017d40  65 25 3c 31 30 8c 0d 66  94 2c 20 59 3d a4 64 61  |e%<10..f., Y=.da|
00017d50  74 61 5f 67 65 74 28 67  72 6f 75 70 5f 6d 61 70  |ta_get(group_map|
00017d60  25 21 28 67 72 6f 75 70  25 2a 34 29 2c 4e 25 2b  |%!(group%*4),N%+|
00017d70  31 29 0d 66 9e 1d 20 e7  59 3e 64 61 74 61 5f 79  |1).f.. .Y>data_y|
00017d80  6d 61 78 3a 59 3d 64 61  74 61 5f 79 6d 61 78 0d  |max:Y=data_ymax.|
00017d90  66 a8 1d 20 e7 59 3c 64  61 74 61 5f 79 6d 69 6e  |f.. .Y<data_ymin|
00017da0  3a 59 3d 64 61 74 61 5f  79 6d 69 6e 0d 66 b2 11  |:Y=data_ymin.f..|
00017db0  20 59 2d 3d 64 61 74 61  5f 79 6d 69 6e 0d 66 bc  | Y-=data_ymin.f.|
00017dc0  b6 20 e7 ac 67 72 61 70  68 5f 33 44 25 3a f2 67  |. ..graph_3D%:.g|
00017dd0  72 61 70 68 5f 64 62 61  72 28 32 30 30 30 30 2b  |raph_dbar(20000+|
00017de0  28 67 72 61 70 68 5f 62  61 72 6d 61 72 67 69 6e  |(graph_barmargin|
00017df0  25 80 31 29 2a 67 72 61  70 68 5f 62 61 72 73 69  |%.1)*graph_barsi|
00017e00  7a 65 2b 4e 25 2a 67 72  61 70 68 5f 67 72 6f 75  |ze+N%*graph_grou|
00017e10  70 73 69 7a 65 2b 28 52  25 2d 4d 25 29 2a 67 72  |psize+(R%-M%)*gr|
00017e20  61 70 68 5f 62 61 72 73  69 7a 65 2b 4d 2c 32 30  |aph_barsize+M,20|
00017e30  30 30 30 2b 4d 2b 4f 25  2a 67 72 61 70 68 5f 79  |000+M+O%*graph_y|
00017e40  73 63 61 6c 65 2c 67 72  61 70 68 5f 62 61 72 77  |scale,graph_barw|
00017e50  69 64 74 68 2c 32 30 30  30 30 2b 4d 2b 59 2a 67  |idth,20000+M+Y*g|
00017e60  72 61 70 68 5f 79 73 63  61 6c 65 2c 67 72 6f 75  |raph_yscale,grou|
00017e70  70 25 29 0d 66 c6 b8 20  e7 67 72 61 70 68 5f 33  |p%).f.. .graph_3|
00017e80  44 25 3a f2 67 72 61 70  68 5f 64 62 61 72 33 44  |D%:.graph_dbar3D|
00017e90  68 28 32 30 30 30 30 2b  28 67 72 61 70 68 5f 62  |h(20000+(graph_b|
00017ea0  61 72 6d 61 72 67 69 6e  25 80 31 29 2a 67 72 61  |armargin%.1)*gra|
00017eb0  70 68 5f 62 61 72 73 69  7a 65 2b 4e 25 2a 67 72  |ph_barsize+N%*gr|
00017ec0  61 70 68 5f 67 72 6f 75  70 73 69 7a 65 2b 28 52  |aph_groupsize+(R|
00017ed0  25 2d 4d 25 29 2a 67 72  61 70 68 5f 62 61 72 73  |%-M%)*graph_bars|
00017ee0  69 7a 65 2b 4d 2c 32 30  30 30 30 2b 4d 2b 4f 25  |ize+M,20000+M+O%|
00017ef0  2a 67 72 61 70 68 5f 79  73 63 61 6c 65 2c 67 72  |*graph_yscale,gr|
00017f00  61 70 68 5f 62 61 72 77  69 64 74 68 2c 32 30 30  |aph_barwidth,200|
00017f10  30 30 2b 4d 2b 59 2a 67  72 61 70 68 5f 79 73 63  |00+M+Y*graph_ysc|
00017f20  61 6c 65 2c 67 72 6f 75  70 25 29 0d 66 d0 0a 20  |ale,group%).f.. |
00017f30  4d 25 2d 3d 31 0d 66 da  05 cd 0d 66 e4 2f e7 67  |M%-=1.f....f./.g|
00017f40  72 6f 75 70 5f 6d 61 70  25 21 28 67 72 6f 75 70  |roup_map%!(group|
00017f50  25 2a 34 29 3e 30 80 67  72 61 70 68 5f 62 61 72  |%*4)>0.graph_bar|
00017f60  74 79 70 65 25 3e 31 30  8c 0d 66 ee 2c 20 59 3d  |type%>10..f., Y=|
00017f70  a4 64 61 74 61 5f 67 65  74 28 67 72 6f 75 70 5f  |.data_get(group_|
00017f80  6d 61 70 25 21 28 67 72  6f 75 70 25 2a 34 29 2c  |map%!(group%*4),|
00017f90  4e 25 2b 31 29 0d 66 f8  1d 20 e7 59 3e 64 61 74  |N%+1).f.. .Y>dat|
00017fa0  61 5f 78 6d 61 78 3a 59  3d 64 61 74 61 5f 78 6d  |a_xmax:Y=data_xm|
00017fb0  61 78 0d 67 02 1d 20 e7  59 3c 64 61 74 61 5f 78  |ax.g.. .Y<data_x|
00017fc0  6d 69 6e 3a 59 3d 64 61  74 61 5f 78 6d 69 6e 0d  |min:Y=data_xmin.|
00017fd0  67 0c 11 20 59 2d 3d 64  61 74 61 5f 78 6d 69 6e  |g.. Y-=data_xmin|
00017fe0  0d 67 16 b8 20 e7 ac 67  72 61 70 68 5f 33 44 25  |.g.. ..graph_3D%|
00017ff0  3a f2 67 72 61 70 68 5f  64 62 61 72 28 32 30 30  |:.graph_dbar(200|
00018000  30 30 2b 4d 2b 4f 25 2a  67 72 61 70 68 5f 78 73  |00+M+O%*graph_xs|
00018010  63 61 6c 65 2c 32 30 30  30 30 30 2d 4d 2d 28 67  |cale,200000-M-(g|
00018020  72 61 70 68 5f 62 61 72  6d 61 72 67 69 6e 25 80  |raph_barmargin%.|
00018030  31 29 2a 67 72 61 70 68  5f 62 61 72 73 69 7a 65  |1)*graph_barsize|
00018040  2d 4e 25 2a 67 72 61 70  68 5f 67 72 6f 75 70 73  |-N%*graph_groups|
00018050  69 7a 65 2d 28 52 25 2d  4d 25 29 2a 67 72 61 70  |ize-(R%-M%)*grap|
00018060  68 5f 62 61 72 73 69 7a  65 2c 32 30 30 30 30 2b  |h_barsize,20000+|
00018070  4d 2b 59 2a 67 72 61 70  68 5f 78 73 63 61 6c 65  |M+Y*graph_xscale|
00018080  2c 2d 67 72 61 70 68 5f  62 61 72 77 69 64 74 68  |,-graph_barwidth|
00018090  2c 67 72 6f 75 70 25 29  0d 67 20 d2 20 e7 67 72  |,group%).g . .gr|
000180a0  61 70 68 5f 33 44 25 3a  f2 67 72 61 70 68 5f 64  |aph_3D%:.graph_d|
000180b0  62 61 72 33 44 76 28 32  30 30 30 30 2b 4d 2b 4f  |bar3Dv(20000+M+O|
000180c0  25 2a 67 72 61 70 68 5f  78 73 63 61 6c 65 2c 32  |%*graph_xscale,2|
000180d0  30 30 30 30 2b 28 67 72  61 70 68 5f 62 61 72 6d  |0000+(graph_barm|
000180e0  61 72 67 69 6e 25 80 31  32 38 29 2a 67 72 61 70  |argin%.128)*grap|
000180f0  68 5f 62 61 72 73 69 7a  65 2f 31 32 38 2b 28 64  |h_barsize/128+(d|
00018100  61 74 61 5f 6c 65 6e 67  74 68 25 2d 4e 25 2d 31  |ata_length%-N%-1|
00018110  29 2a 67 72 61 70 68 5f  67 72 6f 75 70 73 69 7a  |)*graph_groupsiz|
00018120  65 2b 28 52 25 2d 4d 25  2b 31 29 2a 67 72 61 70  |e+(R%-M%+1)*grap|
00018130  68 5f 62 61 72 73 69 7a  65 2d 4d 2c 32 30 30 30  |h_barsize-M,2000|
00018140  30 2b 4d 2b 59 2a 67 72  61 70 68 5f 78 73 63 61  |0+M+Y*graph_xsca|
00018150  6c 65 2c 2d 67 72 61 70  68 5f 62 61 72 77 69 64  |le,-graph_barwid|
00018160  74 68 2c 67 72 6f 75 70  25 29 0d 67 2a 0a 20 4d  |th,group%).g*. M|
00018170  25 2d 3d 31 0d 67 34 05  cd 0d 67 3e 13 f2 70 6f  |%-=1.g4...g>..po|
00018180  6c 6c 5f 6d 69 6e 6f 72  6c 6f 6f 70 0d 67 48 05  |ll_minorloop.gH.|
00018190  ed 0d 67 52 05 ed 0d 67  5c 05 e1 0d 67 66 05 3a  |..gR...g\...gf.:|
000181a0  0d 67 70 12 dd f2 67 72  61 70 68 5f 62 61 72 4f  |.gp...graph_barO|
000181b0  76 72 0d 67 7a 2b 24 74  65 78 74 25 3d 22 42 61  |vr.gz+$text%="Ba|
000181c0  72 73 20 28 6f 76 65 72  6c 61 69 64 29 22 3a f2  |rs (overlaid)":.|
000181d0  75 70 64 61 74 65 5f 62  6f 74 74 6f 6d 0d 67 84  |update_bottom.g.|
000181e0  21 e3 67 72 6f 75 70 25  3d 30 b8 35 3a 62 6c 6f  |!.group%=0.5:blo|
000181f0  63 6b 25 3f 67 72 6f 75  70 25 3d 30 3a ed 0d 67  |ck%?group%=0:..g|
00018200  8e 45 e7 67 72 61 70 68  5f 62 61 72 74 79 70 65  |.E.graph_bartype|
00018210  25 3c 31 30 3a e3 4e 25  3d 30 b8 64 61 74 61 5f  |%<10:.N%=0.data_|
00018220  6c 65 6e 67 74 68 25 2d  31 20 8b 20 e3 4e 25 3d  |length%-1 . .N%=|
00018230  64 61 74 61 5f 6c 65 6e  67 74 68 25 2d 31 b8 30  |data_length%-1.0|
00018240  88 2d 31 0d 67 98 44 4d  25 3d 30 3a e3 67 72 6f  |.-1.g.DM%=0:.gro|
00018250  75 70 25 3d 30 b8 35 3a  e7 67 72 6f 75 70 5f 6d  |up%=0.5:.group_m|
00018260  61 70 25 21 28 67 72 6f  75 70 25 2a 34 29 3e 30  |ap%!(group%*4)>0|
00018270  3a 62 6c 6f 63 6b 25 3f  4d 25 3d 67 72 6f 75 70  |:block%?M%=group|
00018280  25 3a 4d 25 2b 3d 31 0d  67 a2 0d ed 3a 52 25 3d  |%:M%+=1.g...:R%=|
00018290  4d 25 2d 31 0d 67 ac 18  4c 25 3d 67 72 61 70 68  |M%-1.g..L%=graph|
000182a0  5f 67 72 6f 75 70 73 69  7a 65 2f 32 0d 67 b6 05  |_groupsize/2.g..|
000182b0  3a 0d 67 c0 15 e3 67 72  6f 75 70 25 3d 4d 25 2d  |:.g...group%=M%-|
000182c0  31 b8 31 88 2d 31 0d 67  ca 31 41 3d 30 3a 59 3d  |1.1.-1.g.1A=0:Y=|
000182d0  94 a4 64 61 74 61 5f 67  65 74 28 67 72 6f 75 70  |..data_get(group|
000182e0  5f 6d 61 70 25 21 28 3f  62 6c 6f 63 6b 25 2a 34  |_map%!(?block%*4|
000182f0  29 2c 4e 25 2b 31 29 0d  67 d4 47 e3 4d 3d 31 b8  |),N%+1).g.G.M=1.|
00018300  67 72 6f 75 70 25 3a 58  3d 94 a4 64 61 74 61 5f  |group%:X=..data_|
00018310  67 65 74 28 67 72 6f 75  70 5f 6d 61 70 25 21 28  |get(group_map%!(|
00018320  62 6c 6f 63 6b 25 3f 4d  2a 34 29 2c 4e 25 2b 31  |block%?M*4),N%+1|
00018330  29 3a e7 58 3e 59 3a 59  3d 58 3a 41 3d 4d 0d 67  |):.X>Y:Y=X:A=M.g|
00018340  de 05 ed 0d 67 e8 1c c8  94 62 6c 6f 63 6b 25 3f  |....g....block%?|
00018350  67 72 6f 75 70 25 2c 62  6c 6f 63 6b 25 3f 41 0d  |group%,block%?A.|
00018360  67 f2 05 ed 0d 67 fc 05  3a 0d 68 06 14 4f 3d 30  |g....g..:.h..O=0|
00018370  3a 42 25 3d 30 3a 58 3d  30 3a 59 3d 30 0d 68 10  |:B%=0:X=0:Y=0.h.|
00018380  25 e3 67 72 6f 75 70 25  3d 4d 25 2d 31 b8 30 88  |%.group%=M%-1.0.|
00018390  2d 31 3a 4d 3d 62 6c 6f  63 6b 25 3f 67 72 6f 75  |-1:M=block%?grou|
000183a0  70 25 0d 68 1a 26 4f 3d  a4 64 61 74 61 5f 67 65  |p%.h.&O=.data_ge|
000183b0  74 28 67 72 6f 75 70 5f  6d 61 70 25 21 28 4d 2a  |t(group_map%!(M*|
000183c0  34 29 2c 4e 25 2b 31 29  0d 68 24 12 e7 41 25 3e  |4),N%+1).h$..A%>|
000183d0  59 3a 59 3d 41 25 3a 58  3d 4d 0d 68 2e 12 ed 3a  |Y:Y=A%:X=M.h...:|
000183e0  4f 2d 3d 31 30 30 30 30  30 30 30 30 0d 68 38 05  |O-=100000000.h8.|
000183f0  3a 0d 68 42 2e e7 67 72  61 70 68 5f 62 61 72 74  |:.hB..graph_bart|
00018400  79 70 65 25 3c 31 30 3a  41 3d 64 61 74 61 5f 79  |ype%<10:A=data_y|
00018410  6d 69 6e 3a 42 3d 64 61  74 61 5f 79 6d 61 78 0d  |min:B=data_ymax.|
00018420  68 4c 2e e7 67 72 61 70  68 5f 62 61 72 74 79 70  |hL..graph_bartyp|
00018430  65 25 3e 31 30 3a 41 3d  64 61 74 61 5f 78 6d 69  |e%>10:A=data_xmi|
00018440  6e 3a 42 3d 64 61 74 61  5f 78 6d 61 78 0d 68 56  |n:B=data_xmax.hV|
00018450  14 e7 41 3c 30 3a 4f 25  3d 2d 41 3a 8b 4f 25 3d  |..A<0:O%=-A:.O%=|
00018460  30 0d 68 60 0f e7 42 3c  30 3a 4f 25 3d 41 2d 42  |0.h`..B<0:O%=A-B|
00018470  0d 68 6a 10 e7 67 72 61  70 68 5f 33 44 25 20 8c  |.hj..graph_3D% .|
00018480  0d 68 74 36 20 4d 3d 62  6c 6f 63 6b 25 3f 28 58  |.ht6 M=block%?(X|
00018490  2d 31 29 3a 59 3d a4 64  61 74 61 5f 67 65 74 28  |-1):Y=.data_get(|
000184a0  67 72 6f 75 70 5f 6d 61  70 25 21 28 58 2a 34 29  |group_map%!(X*4)|
000184b0  2c 4e 25 2b 31 29 0d 68  7e 0d 20 e7 59 3e 42 3a  |,N%+1).h~. .Y>B:|
000184c0  59 3d 42 0d 68 88 0d 20  e7 59 3c 41 3a 59 3d 41  |Y=B.h.. .Y<A:Y=A|
000184d0  0d 68 92 09 20 59 2d 3d  41 0d 68 9c 98 20 e7 67  |.h.. Y-=A.h.. .g|
000184e0  72 61 70 68 5f 62 61 72  74 79 70 65 25 3c 31 30  |raph_bartype%<10|
000184f0  3a f2 67 72 61 70 68 5f  64 62 61 72 65 6e 64 68  |:.graph_dbarendh|
00018500  28 32 30 30 30 30 2b 28  67 72 61 70 68 5f 62 61  |(20000+(graph_ba|
00018510  72 6d 61 72 67 69 6e 25  80 31 29 2a 4c 25 2b 4e  |rmargin%.1)*L%+N|
00018520  25 2a 67 72 61 70 68 5f  67 72 6f 75 70 73 69 7a  |%*graph_groupsiz|
00018530  65 2b 42 25 2c 32 30 30  30 30 2b 4f 25 2a 67 72  |e+B%,20000+O%*gr|
00018540  61 70 68 5f 79 73 63 61  6c 65 2c 67 72 61 70 68  |aph_yscale,graph|
00018550  5f 62 61 72 77 69 64 74  68 2c 32 30 30 30 30 2b  |_barwidth,20000+|
00018560  59 2a 67 72 61 70 68 5f  79 73 63 61 6c 65 2c 58  |Y*graph_yscale,X|
00018570  29 0d 68 a6 bf 20 e7 67  72 61 70 68 5f 62 61 72  |).h.. .graph_bar|
00018580  74 79 70 65 25 3e 31 30  3a f2 67 72 61 70 68 5f  |type%>10:.graph_|
00018590  64 62 61 72 65 6e 64 76  28 32 30 30 30 30 2b 4f  |dbarendv(20000+O|
000185a0  25 2a 67 72 61 70 68 5f  78 73 63 61 6c 65 2c 32  |%*graph_xscale,2|
000185b0  30 30 30 30 2b 28 67 72  61 70 68 5f 62 61 72 6d  |0000+(graph_barm|
000185c0  61 72 67 69 6e 25 80 31  32 38 29 2a 4c 25 2f 31  |argin%.128)*L%/1|
000185d0  32 38 2b 28 64 61 74 61  5f 6c 65 6e 67 74 68 25  |28+(data_length%|
000185e0  2d 4e 25 2d 31 29 2a 67  72 61 70 68 5f 67 72 6f  |-N%-1)*graph_gro|
000185f0  75 70 73 69 7a 65 2b 42  25 2b 67 72 61 70 68 5f  |upsize+B%+graph_|
00018600  62 61 72 77 69 64 74 68  2c 32 30 30 30 30 2b 59  |barwidth,20000+Y|
00018610  2a 67 72 61 70 68 5f 78  73 63 61 6c 65 2c 2d 67  |*graph_xscale,-g|
00018620  72 61 70 68 5f 62 61 72  77 69 64 74 68 2c 58 29  |raph_barwidth,X)|
00018630  0d 68 b0 05 cd 0d 68 ba  25 e3 67 72 6f 75 70 25  |.h....h.%.group%|
00018640  3d 4d 25 2d 31 b8 30 88  2d 31 3a 4d 3d 62 6c 6f  |=M%-1.0.-1:M=blo|
00018650  63 6b 25 3f 67 72 6f 75  70 25 0d 68 c4 26 59 3d  |ck%?group%.h.&Y=|
00018660  a4 64 61 74 61 5f 67 65  74 28 67 72 6f 75 70 5f  |.data_get(group_|
00018670  6d 61 70 25 21 28 4d 2a  34 29 2c 4e 25 2b 31 29  |map%!(M*4),N%+1)|
00018680  0d 68 ce 0c e7 59 3e 42  3a 59 3d 42 0d 68 d8 0c  |.h...Y>B:Y=B.h..|
00018690  e7 59 3c 41 3a 59 3d 41  0d 68 e2 08 59 2d 3d 41  |.Y<A:Y=A.h..Y-=A|
000186a0  0d 68 ec 0a e7 59 3d 4f  20 8c 0d 68 f6 0d 20 42  |.h...Y=O ..h.. B|
000186b0  25 2b 3d 34 30 30 30 0d  69 00 ac 20 e7 67 72 61  |%+=4000.i.. .gra|
000186c0  70 68 5f 33 44 25 80 67  72 61 70 68 5f 62 61 72  |ph_3D%.graph_bar|
000186d0  74 79 70 65 25 3c 31 30  3a f2 67 72 61 70 68 5f  |type%<10:.graph_|
000186e0  64 62 61 72 65 6e 64 68  28 32 30 30 30 30 2b 28  |dbarendh(20000+(|
000186f0  67 72 61 70 68 5f 62 61  72 6d 61 72 67 69 6e 25  |graph_barmargin%|
00018700  80 31 29 2a 4c 25 2b 4e  25 2a 67 72 61 70 68 5f  |.1)*L%+N%*graph_|
00018710  67 72 6f 75 70 73 69 7a  65 2b 42 25 2b 67 72 61  |groupsize+B%+gra|
00018720  70 68 5f 62 61 72 77 69  64 74 68 2d 34 30 30 30  |ph_barwidth-4000|
00018730  2c 32 30 30 30 30 2b 4f  25 2a 67 72 61 70 68 5f  |,20000+O%*graph_|
00018740  79 73 63 61 6c 65 2c 34  30 30 30 2c 32 30 30 30  |yscale,4000,2000|
00018750  30 2b 59 2a 67 72 61 70  68 5f 79 73 63 61 6c 65  |0+Y*graph_yscale|
00018760  2c 4d 29 0d 69 0a bf 20  e7 67 72 61 70 68 5f 33  |,M).i.. .graph_3|
00018770  44 25 80 67 72 61 70 68  5f 62 61 72 74 79 70 65  |D%.graph_bartype|
00018780  25 3e 31 30 3a f2 67 72  61 70 68 5f 64 62 61 72  |%>10:.graph_dbar|
00018790  65 6e 64 76 28 32 30 30  30 30 2b 4f 25 2a 67 72  |endv(20000+O%*gr|
000187a0  61 70 68 5f 78 73 63 61  6c 65 2c 32 30 30 30 30  |aph_xscale,20000|
000187b0  2b 28 67 72 61 70 68 5f  62 61 72 6d 61 72 67 69  |+(graph_barmargi|
000187c0  6e 25 80 31 32 38 29 2a  4c 25 2f 31 32 38 2b 28  |n%.128)*L%/128+(|
000187d0  64 61 74 61 5f 6c 65 6e  67 74 68 25 2d 4e 25 2d  |data_length%-N%-|
000187e0  31 29 2a 67 72 61 70 68  5f 67 72 6f 75 70 73 69  |1)*graph_groupsi|
000187f0  7a 65 2b 42 25 2b 67 72  61 70 68 5f 62 61 72 77  |ze+B%+graph_barw|
00018800  69 64 74 68 2c 32 30 30  30 30 2b 59 2a 67 72 61  |idth,20000+Y*gra|
00018810  70 68 5f 78 73 63 61 6c  65 2c 2d 34 30 30 30 2c  |ph_xscale,-4000,|
00018820  4d 29 0d 69 14 05 cd 0d  69 1e 96 e7 67 72 61 70  |M).i....i...grap|
00018830  68 5f 62 61 72 74 79 70  65 25 3c 31 30 3a f2 67  |h_bartype%<10:.g|
00018840  72 61 70 68 5f 64 62 61  72 4f 76 68 28 32 30 30  |raph_dbarOvh(200|
00018850  30 30 2b 28 67 72 61 70  68 5f 62 61 72 6d 61 72  |00+(graph_barmar|
00018860  67 69 6e 25 80 31 29 2a  4c 25 2b 4e 25 2a 67 72  |gin%.1)*L%+N%*gr|
00018870  61 70 68 5f 67 72 6f 75  70 73 69 7a 65 2b 42 25  |aph_groupsize+B%|
00018880  2c 32 30 30 30 30 2b 4f  25 2a 67 72 61 70 68 5f  |,20000+O%*graph_|
00018890  79 73 63 61 6c 65 2c 67  72 61 70 68 5f 62 61 72  |yscale,graph_bar|
000188a0  77 69 64 74 68 2c 32 30  30 30 30 2b 59 2a 67 72  |width,20000+Y*gr|
000188b0  61 70 68 5f 79 73 63 61  6c 65 2c 4d 29 0d 69 28  |aph_yscale,M).i(|
000188c0  bd e7 67 72 61 70 68 5f  62 61 72 74 79 70 65 25  |..graph_bartype%|
000188d0  3e 31 30 3a f2 67 72 61  70 68 5f 64 62 61 72 4f  |>10:.graph_dbarO|
000188e0  76 76 28 32 30 30 30 30  2b 4f 25 2a 67 72 61 70  |vv(20000+O%*grap|
000188f0  68 5f 78 73 63 61 6c 65  2c 32 30 30 30 30 2b 28  |h_xscale,20000+(|
00018900  67 72 61 70 68 5f 62 61  72 6d 61 72 67 69 6e 25  |graph_barmargin%|
00018910  80 31 32 38 29 2a 4c 25  2f 31 32 38 2b 28 64 61  |.128)*L%/128+(da|
00018920  74 61 5f 6c 65 6e 67 74  68 25 2d 4e 25 2d 31 29  |ta_length%-N%-1)|
00018930  2a 67 72 61 70 68 5f 67  72 6f 75 70 73 69 7a 65  |*graph_groupsize|
00018940  2b 42 25 2b 67 72 61 70  68 5f 62 61 72 77 69 64  |+B%+graph_barwid|
00018950  74 68 2c 32 30 30 30 30  2b 59 2a 67 72 61 70 68  |th,20000+Y*graph|
00018960  5f 78 73 63 61 6c 65 2c  2d 67 72 61 70 68 5f 62  |_xscale,-graph_b|
00018970  61 72 77 69 64 74 68 2c  4d 29 0d 69 32 09 4d 25  |arwidth,M).i2.M%|
00018980  2d 3d 31 0d 69 3c 07 4f  3d 59 0d 69 46 13 f2 70  |-=1.i<.O=Y.iF..p|
00018990  6f 6c 6c 5f 6d 69 6e 6f  72 6c 6f 6f 70 0d 69 50  |oll_minorloop.iP|
000189a0  05 ed 0d 69 5a 05 ed 0d  69 64 05 e1 0d 69 6e 05  |...iZ...id...in.|
000189b0  3a 0d 69 78 1e dd f2 67  72 61 70 68 5f 64 62 61  |:.ix...graph_dba|
000189c0  72 33 44 68 28 78 2c 79  2c 58 2c 59 2c 4d 29 0d  |r3Dh(x,y,X,Y,M).|
000189d0  69 82 51 f2 67 72 61 70  68 5f 64 62 61 72 65 6e  |i.Q.graph_dbaren|
000189e0  64 68 28 78 2c 79 2c 58  2c 59 2c 4d 29 3a f2 67  |dh(x,y,X,Y,M):.g|
000189f0  72 61 70 68 5f 64 62 61  72 28 78 2c 79 2c 58 2c  |raph_dbar(x,y,X,|
00018a00  59 2c 4d 29 3a f2 67 72  61 70 68 5f 64 62 61 72  |Y,M):.graph_dbar|
00018a10  73 69 64 65 68 28 78 2c  79 2c 58 2c 59 2c 4d 29  |sideh(x,y,X,Y,M)|
00018a20  0d 69 8c 05 e1 0d 69 96  05 3a 0d 69 a0 1e dd f2  |.i....i..:.i....|
00018a30  67 72 61 70 68 5f 64 62  61 72 33 44 76 28 78 2c  |graph_dbar3Dv(x,|
00018a40  79 2c 58 2c 59 2c 4d 29  0d 69 aa 51 f2 67 72 61  |y,X,Y,M).i.Q.gra|
00018a50  70 68 5f 64 62 61 72 65  6e 64 76 28 78 2c 79 2c  |ph_dbarendv(x,y,|
00018a60  58 2c 59 2c 4d 29 3a f2  67 72 61 70 68 5f 64 62  |X,Y,M):.graph_db|
00018a70  61 72 28 78 2c 79 2c 58  2c 59 2c 4d 29 3a f2 67  |ar(x,y,X,Y,M):.g|
00018a80  72 61 70 68 5f 64 62 61  72 73 69 64 65 76 28 78  |raph_dbarsidev(x|
00018a90  2c 79 2c 58 2c 59 2c 4d  29 0d 69 b4 05 e1 0d 69  |,y,X,Y,M).i....i|
00018aa0  be 05 3a 0d 69 c8 1e dd  f2 67 72 61 70 68 5f 64  |..:.i....graph_d|
00018ab0  62 61 72 4f 76 68 28 78  2c 79 2c 58 2c 59 2c 4d  |barOvh(x,y,X,Y,M|
00018ac0  29 0d 69 d2 41 f2 67 72  61 70 68 5f 64 62 61 72  |).i.A.graph_dbar|
00018ad0  28 78 2c 79 2c 58 2c 59  2c 4d 29 3a e7 67 72 61  |(x,y,X,Y,M):.gra|
00018ae0  70 68 5f 33 44 25 3a f2  67 72 61 70 68 5f 64 62  |ph_3D%:.graph_db|
00018af0  61 72 73 69 64 65 68 28  78 2c 79 2c 58 2c 59 2c  |arsideh(x,y,X,Y,|
00018b00  4d 29 0d 69 dc 05 e1 0d  69 e6 05 3a 0d 69 f0 1e  |M).i....i..:.i..|
00018b10  dd f2 67 72 61 70 68 5f  64 62 61 72 4f 76 76 28  |..graph_dbarOvv(|
00018b20  78 2c 79 2c 58 2c 59 2c  4d 29 0d 69 fa 41 f2 67  |x,y,X,Y,M).i.A.g|
00018b30  72 61 70 68 5f 64 62 61  72 28 78 2c 79 2c 58 2c  |raph_dbar(x,y,X,|
00018b40  59 2c 4d 29 3a e7 67 72  61 70 68 5f 33 44 25 3a  |Y,M):.graph_3D%:|
00018b50  f2 67 72 61 70 68 5f 64  62 61 72 73 69 64 65 76  |.graph_dbarsidev|
00018b60  28 78 2c 79 2c 58 2c 59  2c 4d 29 0d 6a 04 05 e1  |(x,y,X,Y,M).j...|
00018b70  0d 6a 0e 05 3a 0d 6a 18  1b dd f2 67 72 61 70 68  |.j..:.j....graph|
00018b80  5f 64 62 61 72 28 78 2c  79 2c 58 2c 59 2c 4d 29  |_dbar(x,y,X,Y,M)|
00018b90  0d 6a 22 22 e7 67 72 61  70 68 5f 62 61 72 74 79  |.j"".graph_barty|
00018ba0  70 65 25 3c 31 30 3a 58  2b 3d 78 20 8b 20 59 2b  |pe%<10:X+=x . Y+|
00018bb0  3d 79 0d 6a 2c 0f f4 20  4f 48 3a 20 41 20 62 61  |=y.j,.. OH: A ba|
00018bc0  72 0d 6a 36 72 f2 64 66  69 6c 65 5f 77 70 75 74  |r.j6r.dfile_wput|
00018bd0  28 32 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(2):.dfile_wput(|
00018be0  32 34 2b 31 36 2b 31 32  2a 35 2b 34 29 3a f2 64  |24+16+12*5+4):.d|
00018bf0  66 69 6c 65 5f 77 70 75  74 28 30 29 3a f2 64 66  |file_wput(0):.df|
00018c00  69 6c 65 5f 77 70 75 74  28 30 29 3a f2 64 66 69  |ile_wput(0):.dfi|
00018c10  6c 65 5f 77 70 75 74 28  33 32 30 30 30 30 29 3a  |le_wput(320000):|
00018c20  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 32 30 30  |.dfile_wput(2200|
00018c30  30 30 29 0d 6a 40 b2 f2  64 66 69 6c 65 5f 62 70  |00).j@..dfile_bp|
00018c40  75 74 28 30 29 3a f2 64  66 69 6c 65 5f 62 70 75  |ut(0):.dfile_bpu|
00018c50  74 28 67 72 6f 75 70 5f  64 61 74 61 25 3f 28 4d  |t(group_data%?(M|
00018c60  2a 34 32 2b 32 29 29 3a  f2 64 66 69 6c 65 5f 62  |*42+2)):.dfile_b|
00018c70  70 75 74 28 67 72 6f 75  70 5f 64 61 74 61 25 3f  |put(group_data%?|
00018c80  28 4d 2a 34 32 2b 33 29  29 3a f2 64 66 69 6c 65  |(M*42+3)):.dfile|
00018c90  5f 62 70 75 74 28 67 72  6f 75 70 5f 64 61 74 61  |_bput(group_data|
00018ca0  25 3f 28 4d 2a 34 32 2b  34 29 29 3a f2 64 66 69  |%?(M*42+4)):.dfi|
00018cb0  6c 65 5f 77 70 75 74 28  67 72 61 70 68 5f 6f 75  |le_wput(graph_ou|
00018cc0  74 6c 69 6e 65 25 29 3a  f2 64 66 69 6c 65 5f 77  |tline%):.dfile_w|
00018cd0  70 75 74 28 30 29 3a f2  64 66 69 6c 65 5f 77 70  |put(0):.dfile_wp|
00018ce0  75 74 28 30 29 0d 6a 4a  30 f2 64 66 69 6c 65 5f  |ut(0).jJ0.dfile_|
00018cf0  77 70 75 74 28 32 29 3a  f2 64 66 69 6c 65 5f 77  |wput(2):.dfile_w|
00018d00  70 75 74 28 78 29 3a f2  64 66 69 6c 65 5f 77 70  |put(x):.dfile_wp|
00018d10  75 74 28 79 29 0d 6a 54  30 f2 64 66 69 6c 65 5f  |ut(y).jT0.dfile_|
00018d20  77 70 75 74 28 38 29 3a  f2 64 66 69 6c 65 5f 77  |wput(8):.dfile_w|
00018d30  70 75 74 28 58 29 3a f2  64 66 69 6c 65 5f 77 70  |put(X):.dfile_wp|
00018d40  75 74 28 79 29 0d 6a 5e  30 f2 64 66 69 6c 65 5f  |ut(y).j^0.dfile_|
00018d50  77 70 75 74 28 38 29 3a  f2 64 66 69 6c 65 5f 77  |wput(8):.dfile_w|
00018d60  70 75 74 28 58 29 3a f2  64 66 69 6c 65 5f 77 70  |put(X):.dfile_wp|
00018d70  75 74 28 59 29 0d 6a 68  30 f2 64 66 69 6c 65 5f  |ut(Y).jh0.dfile_|
00018d80  77 70 75 74 28 38 29 3a  f2 64 66 69 6c 65 5f 77  |wput(8):.dfile_w|
00018d90  70 75 74 28 78 29 3a f2  64 66 69 6c 65 5f 77 70  |put(x):.dfile_wp|
00018da0  75 74 28 59 29 0d 6a 72  30 f2 64 66 69 6c 65 5f  |ut(Y).jr0.dfile_|
00018db0  77 70 75 74 28 38 29 3a  f2 64 66 69 6c 65 5f 77  |wput(8):.dfile_w|
00018dc0  70 75 74 28 78 29 3a f2  64 66 69 6c 65 5f 77 70  |put(x):.dfile_wp|
00018dd0  75 74 28 79 29 0d 6a 7c  12 f2 64 66 69 6c 65 5f  |ut(y).j|..dfile_|
00018de0  77 70 75 74 28 30 29 0d  6a 86 05 e1 0d 6a 90 05  |wput(0).j....j..|
00018df0  3a 0d 6a 9a 1f dd f2 67  72 61 70 68 5f 64 62 61  |:.j....graph_dba|
00018e00  72 65 6e 64 68 28 78 2c  79 2c 58 2c 59 2c 4d 29  |rendh(x,y,X,Y,M)|
00018e10  0d 6a a4 08 58 2b 3d 78  0d 6a ae 0e e7 79 3e 59  |.j..X+=x.j...y>Y|
00018e20  3a c8 94 79 2c 59 0d 6a  b8 1c f4 20 4f 48 3a 20  |:..y,Y.j... OH: |
00018e30  41 20 74 6f 70 20 61 6e  64 20 61 20 62 6f 74 74  |A top and a bott|
00018e40  6f 6d 0d 6a c2 72 f2 64  66 69 6c 65 5f 77 70 75  |om.j.r.dfile_wpu|
00018e50  74 28 32 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(2):.dfile_wput|
00018e60  28 32 34 2b 31 36 2b 31  32 2a 37 2b 34 29 3a f2  |(24+16+12*7+4):.|
00018e70  64 66 69 6c 65 5f 77 70  75 74 28 30 29 3a f2 64  |dfile_wput(0):.d|
00018e80  66 69 6c 65 5f 77 70 75  74 28 30 29 3a f2 64 66  |file_wput(0):.df|
00018e90  69 6c 65 5f 77 70 75 74  28 33 32 30 30 30 30 29  |ile_wput(320000)|
00018ea0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 32 30  |:.dfile_wput(220|
00018eb0  30 30 30 29 0d 6a cc bb  f2 64 66 69 6c 65 5f 62  |000).j...dfile_b|
00018ec0  70 75 74 28 30 29 3a f2  64 66 69 6c 65 5f 62 66  |put(0):.dfile_bf|
00018ed0  61 64 65 28 67 72 6f 75  70 5f 64 61 74 61 25 3f  |ade(group_data%?|
00018ee0  28 4d 2a 34 32 2b 32 29  2c 31 29 3a f2 64 66 69  |(M*42+2),1):.dfi|
00018ef0  6c 65 5f 62 66 61 64 65  28 67 72 6f 75 70 5f 64  |le_bfade(group_d|
00018f00  61 74 61 25 3f 28 4d 2a  34 32 2b 33 29 2c 31 29  |ata%?(M*42+3),1)|
00018f10  3a f2 64 66 69 6c 65 5f  62 66 61 64 65 28 67 72  |:.dfile_bfade(gr|
00018f20  6f 75 70 5f 64 61 74 61  25 3f 28 4d 2a 34 32 2b  |oup_data%?(M*42+|
00018f30  34 29 2c 31 29 3a f2 64  66 69 6c 65 5f 77 70 75  |4),1):.dfile_wpu|
00018f40  74 28 67 72 61 70 68 5f  6f 75 74 6c 69 6e 65 25  |t(graph_outline%|
00018f50  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |):.dfile_wput(0)|
00018f60  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 0d  |:.dfile_wput(0).|
00018f70  6a d6 30 f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |j.0.dfile_wput(2|
00018f80  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 78 29  |):.dfile_wput(x)|
00018f90  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 79 29 0d  |:.dfile_wput(y).|
00018fa0  6a e0 30 f2 64 66 69 6c  65 5f 77 70 75 74 28 38  |j.0.dfile_wput(8|
00018fb0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 58 29  |):.dfile_wput(X)|
00018fc0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 79 29 0d  |:.dfile_wput(y).|
00018fd0  6a ea 3c f2 64 66 69 6c  65 5f 77 70 75 74 28 38  |j.<.dfile_wput(8|
00018fe0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 58 2b  |):.dfile_wput(X+|
00018ff0  31 35 30 30 30 29 3a f2  64 66 69 6c 65 5f 77 70  |15000):.dfile_wp|
00019000  75 74 28 79 2b 31 35 30  30 30 29 0d 6a f4 3c f2  |ut(y+15000).j.<.|
00019010  64 66 69 6c 65 5f 77 70  75 74 28 38 29 3a f2 64  |dfile_wput(8):.d|
00019020  66 69 6c 65 5f 77 70 75  74 28 58 2b 31 35 30 30  |file_wput(X+1500|
00019030  30 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 59  |0):.dfile_wput(Y|
00019040  2b 31 35 30 30 30 29 0d  6a fe 3c f2 64 66 69 6c  |+15000).j.<.dfil|
00019050  65 5f 77 70 75 74 28 38  29 3a f2 64 66 69 6c 65  |e_wput(8):.dfile|
00019060  5f 77 70 75 74 28 78 2b  31 35 30 30 30 29 3a f2  |_wput(x+15000):.|
00019070  64 66 69 6c 65 5f 77 70  75 74 28 59 2b 31 35 30  |dfile_wput(Y+150|
00019080  30 30 29 0d 6b 08 30 f2  64 66 69 6c 65 5f 77 70  |00).k.0.dfile_wp|
00019090  75 74 28 38 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(8):.dfile_wpu|
000190a0  74 28 78 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(x):.dfile_wput|
000190b0  28 59 29 0d 6b 12 30 f2  64 66 69 6c 65 5f 77 70  |(Y).k.0.dfile_wp|
000190c0  75 74 28 38 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(8):.dfile_wpu|
000190d0  74 28 78 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(x):.dfile_wput|
000190e0  28 79 29 0d 6b 1c 12 f2  64 66 69 6c 65 5f 77 70  |(y).k...dfile_wp|
000190f0  75 74 28 30 29 0d 6b 26  05 e1 0d 6b 30 05 3a 0d  |ut(0).k&...k0.:.|
00019100  6b 3a 1f dd f2 67 72 61  70 68 5f 64 62 61 72 65  |k:...graph_dbare|
00019110  6e 64 76 28 78 2c 79 2c  58 2c 59 2c 4d 29 0d 6b  |ndv(x,y,X,Y,M).k|
00019120  44 08 59 2b 3d 79 0d 6b  4e 0e e7 78 3e 58 3a c8  |D.Y+=y.kN..x>X:.|
00019130  94 78 2c 58 0d 6b 58 10  f4 20 4f 48 3a 20 41 20  |.x,X.kX.. OH: A |
00019140  73 69 64 65 0d 6b 62 72  f2 64 66 69 6c 65 5f 77  |side.kbr.dfile_w|
00019150  70 75 74 28 32 29 3a f2  64 66 69 6c 65 5f 77 70  |put(2):.dfile_wp|
00019160  75 74 28 32 34 2b 31 36  2b 31 32 2a 37 2b 34 29  |ut(24+16+12*7+4)|
00019170  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 3a  |:.dfile_wput(0):|
00019180  f2 64 66 69 6c 65 5f 77  70 75 74 28 30 29 3a f2  |.dfile_wput(0):.|
00019190  64 66 69 6c 65 5f 77 70  75 74 28 33 32 30 30 30  |dfile_wput(32000|
000191a0  30 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |0):.dfile_wput(2|
000191b0  32 30 30 30 30 29 0d 6b  6c bb f2 64 66 69 6c 65  |20000).kl..dfile|
000191c0  5f 62 70 75 74 28 30 29  3a f2 64 66 69 6c 65 5f  |_bput(0):.dfile_|
000191d0  62 66 61 64 65 28 67 72  6f 75 70 5f 64 61 74 61  |bfade(group_data|
000191e0  25 3f 28 4d 2a 34 32 2b  32 29 2c 32 29 3a f2 64  |%?(M*42+2),2):.d|
000191f0  66 69 6c 65 5f 62 66 61  64 65 28 67 72 6f 75 70  |file_bfade(group|
00019200  5f 64 61 74 61 25 3f 28  4d 2a 34 32 2b 33 29 2c  |_data%?(M*42+3),|
00019210  32 29 3a f2 64 66 69 6c  65 5f 62 66 61 64 65 28  |2):.dfile_bfade(|
00019220  67 72 6f 75 70 5f 64 61  74 61 25 3f 28 4d 2a 34  |group_data%?(M*4|
00019230  32 2b 34 29 2c 32 29 3a  f2 64 66 69 6c 65 5f 77  |2+4),2):.dfile_w|
00019240  70 75 74 28 67 72 61 70  68 5f 6f 75 74 6c 69 6e  |put(graph_outlin|
00019250  65 25 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |e%):.dfile_wput(|
00019260  30 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 30  |0):.dfile_wput(0|
00019270  29 0d 6b 76 30 f2 64 66  69 6c 65 5f 77 70 75 74  |).kv0.dfile_wput|
00019280  28 32 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(2):.dfile_wput(|
00019290  78 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 59  |x):.dfile_wput(Y|
000192a0  29 0d 6b 80 30 f2 64 66  69 6c 65 5f 77 70 75 74  |).k.0.dfile_wput|
000192b0  28 38 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(8):.dfile_wput(|
000192c0  58 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 59  |X):.dfile_wput(Y|
000192d0  29 0d 6b 8a 3c f2 64 66  69 6c 65 5f 77 70 75 74  |).k.<.dfile_wput|
000192e0  28 38 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(8):.dfile_wput(|
000192f0  58 2b 31 35 30 30 30 29  3a f2 64 66 69 6c 65 5f  |X+15000):.dfile_|
00019300  77 70 75 74 28 59 2b 31  35 30 30 30 29 0d 6b 94  |wput(Y+15000).k.|
00019310  3c f2 64 66 69 6c 65 5f  77 70 75 74 28 38 29 3a  |<.dfile_wput(8):|
00019320  f2 64 66 69 6c 65 5f 77  70 75 74 28 58 2b 31 35  |.dfile_wput(X+15|
00019330  30 30 30 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |000):.dfile_wput|
00019340  28 79 2b 31 35 30 30 30  29 0d 6b 9e 3c f2 64 66  |(y+15000).k.<.df|
00019350  69 6c 65 5f 77 70 75 74  28 38 29 3a f2 64 66 69  |ile_wput(8):.dfi|
00019360  6c 65 5f 77 70 75 74 28  78 2b 31 35 30 30 30 29  |le_wput(x+15000)|
00019370  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 79 2b 31  |:.dfile_wput(y+1|
00019380  35 30 30 30 29 0d 6b a8  30 f2 64 66 69 6c 65 5f  |5000).k.0.dfile_|
00019390  77 70 75 74 28 38 29 3a  f2 64 66 69 6c 65 5f 77  |wput(8):.dfile_w|
000193a0  70 75 74 28 78 29 3a f2  64 66 69 6c 65 5f 77 70  |put(x):.dfile_wp|
000193b0  75 74 28 79 29 0d 6b b2  30 f2 64 66 69 6c 65 5f  |ut(y).k.0.dfile_|
000193c0  77 70 75 74 28 38 29 3a  f2 64 66 69 6c 65 5f 77  |wput(8):.dfile_w|
000193d0  70 75 74 28 78 29 3a f2  64 66 69 6c 65 5f 77 70  |put(x):.dfile_wp|
000193e0  75 74 28 59 29 0d 6b bc  12 f2 64 66 69 6c 65 5f  |ut(Y).k...dfile_|
000193f0  77 70 75 74 28 30 29 0d  6b c6 05 e1 0d 6b d0 05  |wput(0).k....k..|
00019400  3a 0d 6b da 20 dd f2 67  72 61 70 68 5f 64 62 61  |:.k. ..graph_dba|
00019410  72 73 69 64 65 68 28 78  2c 79 2c 58 2c 59 2c 4d  |rsideh(x,y,X,Y,M|
00019420  29 0d 6b e4 22 e7 67 72  61 70 68 5f 62 61 72 74  |).k.".graph_bart|
00019430  79 70 65 25 3c 31 30 3a  58 2b 3d 78 20 8b 20 59  |ype%<10:X+=x . Y|
00019440  2b 3d 79 0d 6b ee 10 f4  20 4f 48 3a 20 41 20 73  |+=y.k... OH: A s|
00019450  69 64 65 0d 6b f8 72 f2  64 66 69 6c 65 5f 77 70  |ide.k.r.dfile_wp|
00019460  75 74 28 32 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(2):.dfile_wpu|
00019470  74 28 32 34 2b 31 36 2b  31 32 2a 35 2b 34 29 3a  |t(24+16+12*5+4):|
00019480  f2 64 66 69 6c 65 5f 77  70 75 74 28 30 29 3a f2  |.dfile_wput(0):.|
00019490  64 66 69 6c 65 5f 77 70  75 74 28 30 29 3a f2 64  |dfile_wput(0):.d|
000194a0  66 69 6c 65 5f 77 70 75  74 28 33 32 30 30 30 30  |file_wput(320000|
000194b0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 32  |):.dfile_wput(22|
000194c0  30 30 30 30 29 0d 6c 02  bb f2 64 66 69 6c 65 5f  |0000).l...dfile_|
000194d0  62 70 75 74 28 30 29 3a  f2 64 66 69 6c 65 5f 62  |bput(0):.dfile_b|
000194e0  66 61 64 65 28 67 72 6f  75 70 5f 64 61 74 61 25  |fade(group_data%|
000194f0  3f 28 4d 2a 34 32 2b 32  29 2c 32 29 3a f2 64 66  |?(M*42+2),2):.df|
00019500  69 6c 65 5f 62 66 61 64  65 28 67 72 6f 75 70 5f  |ile_bfade(group_|
00019510  64 61 74 61 25 3f 28 4d  2a 34 32 2b 33 29 2c 32  |data%?(M*42+3),2|
00019520  29 3a f2 64 66 69 6c 65  5f 62 66 61 64 65 28 67  |):.dfile_bfade(g|
00019530  72 6f 75 70 5f 64 61 74  61 25 3f 28 4d 2a 34 32  |roup_data%?(M*42|
00019540  2b 34 29 2c 32 29 3a f2  64 66 69 6c 65 5f 77 70  |+4),2):.dfile_wp|
00019550  75 74 28 67 72 61 70 68  5f 6f 75 74 6c 69 6e 65  |ut(graph_outline|
00019560  25 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 30  |%):.dfile_wput(0|
00019570  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |):.dfile_wput(0)|
00019580  0d 6c 0c 30 f2 64 66 69  6c 65 5f 77 70 75 74 28  |.l.0.dfile_wput(|
00019590  32 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 58  |2):.dfile_wput(X|
000195a0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 79 29  |):.dfile_wput(y)|
000195b0  0d 6c 16 3c f2 64 66 69  6c 65 5f 77 70 75 74 28  |.l.<.dfile_wput(|
000195c0  38 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 58  |8):.dfile_wput(X|
000195d0  2b 31 35 30 30 30 29 3a  f2 64 66 69 6c 65 5f 77  |+15000):.dfile_w|
000195e0  70 75 74 28 79 2b 31 35  30 30 30 29 0d 6c 20 3c  |put(y+15000).l <|
000195f0  f2 64 66 69 6c 65 5f 77  70 75 74 28 38 29 3a f2  |.dfile_wput(8):.|
00019600  64 66 69 6c 65 5f 77 70  75 74 28 58 2b 31 35 30  |dfile_wput(X+150|
00019610  30 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |00):.dfile_wput(|
00019620  59 2b 31 35 30 30 30 29  0d 6c 2a 30 f2 64 66 69  |Y+15000).l*0.dfi|
00019630  6c 65 5f 77 70 75 74 28  38 29 3a f2 64 66 69 6c  |le_wput(8):.dfil|
00019640  65 5f 77 70 75 74 28 58  29 3a f2 64 66 69 6c 65  |e_wput(X):.dfile|
00019650  5f 77 70 75 74 28 59 29  0d 6c 34 30 f2 64 66 69  |_wput(Y).l40.dfi|
00019660  6c 65 5f 77 70 75 74 28  38 29 3a f2 64 66 69 6c  |le_wput(8):.dfil|
00019670  65 5f 77 70 75 74 28 58  29 3a f2 64 66 69 6c 65  |e_wput(X):.dfile|
00019680  5f 77 70 75 74 28 79 29  0d 6c 3e 12 f2 64 66 69  |_wput(y).l>..dfi|
00019690  6c 65 5f 77 70 75 74 28  30 29 0d 6c 48 05 e1 0d  |le_wput(0).lH...|
000196a0  6c 52 05 3a 0d 6c 5c 20  dd f2 67 72 61 70 68 5f  |lR.:.l\ ..graph_|
000196b0  64 62 61 72 73 69 64 65  76 28 78 2c 79 2c 58 2c  |dbarsidev(x,y,X,|
000196c0  59 2c 4d 29 0d 6c 66 17  59 2b 3d 79 2b 67 72 61  |Y,M).lf.Y+=y+gra|
000196d0  70 68 5f 62 61 72 77 69  64 74 68 0d 6c 70 1c f4  |ph_barwidth.lp..|
000196e0  20 4f 48 3a 20 41 20 74  6f 70 20 61 6e 64 20 61  | OH: A top and a|
000196f0  20 62 6f 74 74 6f 6d 0d  6c 7a 72 f2 64 66 69 6c  | bottom.lzr.dfil|
00019700  65 5f 77 70 75 74 28 32  29 3a f2 64 66 69 6c 65  |e_wput(2):.dfile|
00019710  5f 77 70 75 74 28 32 34  2b 31 36 2b 31 32 2a 35  |_wput(24+16+12*5|
00019720  2b 34 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |+4):.dfile_wput(|
00019730  30 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 30  |0):.dfile_wput(0|
00019740  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 33 32  |):.dfile_wput(32|
00019750  30 30 30 30 29 3a f2 64  66 69 6c 65 5f 77 70 75  |0000):.dfile_wpu|
00019760  74 28 32 32 30 30 30 30  29 0d 6c 84 bb f2 64 66  |t(220000).l...df|
00019770  69 6c 65 5f 62 70 75 74  28 30 29 3a f2 64 66 69  |ile_bput(0):.dfi|
00019780  6c 65 5f 62 66 61 64 65  28 67 72 6f 75 70 5f 64  |le_bfade(group_d|
00019790  61 74 61 25 3f 28 4d 2a  34 32 2b 32 29 2c 31 29  |ata%?(M*42+2),1)|
000197a0  3a f2 64 66 69 6c 65 5f  62 66 61 64 65 28 67 72  |:.dfile_bfade(gr|
000197b0  6f 75 70 5f 64 61 74 61  25 3f 28 4d 2a 34 32 2b  |oup_data%?(M*42+|
000197c0  33 29 2c 31 29 3a f2 64  66 69 6c 65 5f 62 66 61  |3),1):.dfile_bfa|
000197d0  64 65 28 67 72 6f 75 70  5f 64 61 74 61 25 3f 28  |de(group_data%?(|
000197e0  4d 2a 34 32 2b 34 29 2c  31 29 3a f2 64 66 69 6c  |M*42+4),1):.dfil|
000197f0  65 5f 77 70 75 74 28 67  72 61 70 68 5f 6f 75 74  |e_wput(graph_out|
00019800  6c 69 6e 65 25 29 3a f2  64 66 69 6c 65 5f 77 70  |line%):.dfile_wp|
00019810  75 74 28 30 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(0):.dfile_wpu|
00019820  74 28 30 29 0d 6c 8e 30  f2 64 66 69 6c 65 5f 77  |t(0).l.0.dfile_w|
00019830  70 75 74 28 32 29 3a f2  64 66 69 6c 65 5f 77 70  |put(2):.dfile_wp|
00019840  75 74 28 78 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(x):.dfile_wpu|
00019850  74 28 59 29 0d 6c 98 30  f2 64 66 69 6c 65 5f 77  |t(Y).l.0.dfile_w|
00019860  70 75 74 28 38 29 3a f2  64 66 69 6c 65 5f 77 70  |put(8):.dfile_wp|
00019870  75 74 28 58 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(X):.dfile_wpu|
00019880  74 28 59 29 0d 6c a2 3c  f2 64 66 69 6c 65 5f 77  |t(Y).l.<.dfile_w|
00019890  70 75 74 28 38 29 3a f2  64 66 69 6c 65 5f 77 70  |put(8):.dfile_wp|
000198a0  75 74 28 58 2b 31 35 30  30 30 29 3a f2 64 66 69  |ut(X+15000):.dfi|
000198b0  6c 65 5f 77 70 75 74 28  59 2b 31 35 30 30 30 29  |le_wput(Y+15000)|
000198c0  0d 6c ac 3c f2 64 66 69  6c 65 5f 77 70 75 74 28  |.l.<.dfile_wput(|
000198d0  38 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 78  |8):.dfile_wput(x|
000198e0  2b 31 35 30 30 30 29 3a  f2 64 66 69 6c 65 5f 77  |+15000):.dfile_w|
000198f0  70 75 74 28 59 2b 31 35  30 30 30 29 0d 6c b6 30  |put(Y+15000).l.0|
00019900  f2 64 66 69 6c 65 5f 77  70 75 74 28 38 29 3a f2  |.dfile_wput(8):.|
00019910  64 66 69 6c 65 5f 77 70  75 74 28 78 29 3a f2 64  |dfile_wput(x):.d|
00019920  66 69 6c 65 5f 77 70 75  74 28 59 29 0d 6c c0 12  |file_wput(Y).l..|
00019930  f2 64 66 69 6c 65 5f 77  70 75 74 28 30 29 0d 6c  |.dfile_wput(0).l|
00019940  ca 05 e1 0d 6c d4 05 3a  0d 6c de 16 dd f2 64 66  |....l..:.l....df|
00019950  69 6c 65 5f 62 66 61 64  65 28 4e 2c 4d 29 0d 6c  |ile_bfade(N,M).l|
00019960  e8 13 d5 23 58 25 2c 94  28 4e 2d 4d 2a 26 31 30  |...#X%,.(N-M*&10|
00019970  29 0d 6c f2 05 e1 0d 6c  fc 05 3a 0d 6d 06 05 3a  |).l....l..:.m..:|
00019980  0d 6d 10 10 dd f2 62 61  72 5f 6c 61 62 65 6c 73  |.m....bar_labels|
00019990  0d 6d 1a 26 24 74 65 78  74 25 3d 22 42 61 72 20  |.m.&$text%="Bar |
000199a0  6c 61 62 65 6c 73 22 3a  f2 75 70 64 61 74 65 5f  |labels":.update_|
000199b0  62 6f 74 74 6f 6d 0d 6d  24 1a f4 20 4f 48 3a 20  |bottom.m$.. OH: |
000199c0  42 61 72 20 67 72 61 70  68 20 6c 61 62 65 6c 73  |Bar graph labels|
000199d0  0d 6d 2e 16 e3 41 25 3d  31 b8 64 61 74 61 5f 6c  |.m...A%=1.data_l|
000199e0  65 6e 67 74 68 25 0d 6d  38 20 f2 64 61 74 61 5f  |ength%.m8 .data_|
000199f0  73 67 65 74 28 67 72 6f  75 70 5f 6d 61 70 25 21  |sget(group_map%!|
00019a00  32 34 2c 41 25 29 0d 6d  42 19 4f 3d 30 3a f5 4f  |24,A%).mB.O=0:.O|
00019a10  2b 3d 31 3a fd 62 6c 6f  63 6b 25 3f 4f 3d 30 0d  |+=1:.block%?O=0.|
00019a20  6d 4c 0f 4f 2b 3d 34 2d  28 4f 20 83 34 29 0d 6d  |mL.O+=4-(O .4).m|
00019a30  56 14 e7 74 65 78 74 5f  61 78 69 73 63 3c 3e 30  |V..text_axisc<>0|
00019a40  20 8c 0d 6d 60 54 20 c8  99 22 46 6f 6e 74 5f 46  | ..m`T .."Font_F|
00019a50  69 6e 64 46 6f 6e 74 22  2c 2c 66 6f 6e 74 5f 6c  |indFont",,font_l|
00019a60  69 73 74 25 2b 74 65 78  74 5f 61 78 69 73 63 2a  |ist%+text_axisc*|
00019a70  34 30 2c 74 65 78 74 5f  61 78 69 73 78 2a 31 36  |40,text_axisx*16|
00019a80  2c 74 65 78 74 5f 61 78  69 73 79 2a 31 36 2c 30  |,text_axisy*16,0|
00019a90  2c 30 20 b8 20 4e 0d 6d  6a 4a 20 c8 99 22 46 6f  |,0 . N.mjJ .."Fo|
00019aa0  6e 74 5f 53 74 72 69 6e  67 57 69 64 74 68 22 2c  |nt_StringWidth",|
00019ab0  2c 62 6c 6f 63 6b 25 2c  33 30 30 30 30 30 2c 32  |,block%,300000,2|
00019ac0  30 30 30 30 30 2c 2d 31  2c 62 6c 6f 63 6b 25 2b  |00000,-1,block%+|
00019ad0  a4 6c 65 6e 28 62 6c 6f  63 6b 25 29 b8 2c 2c 58  |.len(block%).,,X|
00019ae0  0d 6d 74 18 20 c8 99 22  46 6f 6e 74 5f 4c 6f 73  |.mt. .."Font_Los|
00019af0  65 46 6f 6e 74 22 2c 4e  0d 6d 7e 05 cc 0d 6d 88  |eFont",N.m~...m.|
00019b00  22 58 3d 74 65 78 74 5f  61 78 69 73 78 2a 31 30  |"X=text_axisx*10|
00019b10  30 30 2a a4 6c 65 6e 28  62 6c 6f 63 6b 25 29 0d  |00*.len(block%).|
00019b20  6d 92 05 cd 0d 6d 9c 10  58 3d 58 2a 33 32 30 2f  |m....m..X=X*320/|
00019b30  31 30 30 30 0d 6d a6 15  c8 8e 67 72 61 70 68 5f  |1000.m....graph_|
00019b40  62 61 72 74 79 70 65 25  ca 0d 6d b0 23 20 c9 31  |bartype%..m.# .1|
00019b50  20 3a 59 25 3d 28 41 25  2d 2e 35 29 2a 67 72 61  | :Y%=(A%-.5)*gra|
00019b60  70 68 5f 67 72 6f 75 70  73 69 7a 65 0d 6d ba 23  |ph_groupsize.m.#|
00019b70  20 c9 31 31 3a 59 25 3d  28 41 25 2d 2e 35 29 2a  | .11:Y%=(A%-.5)*|
00019b80  67 72 61 70 68 5f 67 72  6f 75 70 73 69 7a 65 0d  |graph_groupsize.|
00019b90  6d c4 23 20 c9 32 20 3a  59 25 3d 28 41 25 2d 2e  |m.# .2 :Y%=(A%-.|
00019ba0  35 29 2a 67 72 61 70 68  5f 67 72 6f 75 70 73 69  |5)*graph_groupsi|
00019bb0  7a 65 0d 6d ce 23 20 c9  31 32 3a 59 25 3d 28 41  |ze.m.# .12:Y%=(A|
00019bc0  25 2d 2e 35 29 2a 67 72  61 70 68 5f 67 72 6f 75  |%-.5)*graph_grou|
00019bd0  70 73 69 7a 65 0d 6d d8  33 20 c9 33 20 3a 59 25  |psize.m.3 .3 :Y%|
00019be0  3d 28 41 25 2d 2e 35 29  2a 67 72 61 70 68 5f 67  |=(A%-.5)*graph_g|
00019bf0  72 6f 75 70 73 69 7a 65  2d 67 72 61 70 68 5f 62  |roupsize-graph_b|
00019c00  61 72 73 69 7a 65 2f 32  0d 6d e2 33 20 c9 31 33  |arsize/2.m.3 .13|
00019c10  3a 59 25 3d 28 41 25 2d  2e 35 29 2a 67 72 61 70  |:Y%=(A%-.5)*grap|
00019c20  68 5f 67 72 6f 75 70 73  69 7a 65 2d 67 72 61 70  |h_groupsize-grap|
00019c30  68 5f 62 61 72 73 69 7a  65 2f 32 0d 6d ec 33 20  |h_barsize/2.m.3 |
00019c40  c9 34 20 3a 59 25 3d 28  41 25 2d 2e 35 29 2a 67  |.4 :Y%=(A%-.5)*g|
00019c50  72 61 70 68 5f 67 72 6f  75 70 73 69 7a 65 2d 67  |raph_groupsize-g|
00019c60  72 61 70 68 5f 62 61 72  73 69 7a 65 2f 32 0d 6d  |raph_barsize/2.m|
00019c70  f6 33 20 c9 31 34 3a 59  25 3d 28 41 25 2d 2e 35  |.3 .14:Y%=(A%-.5|
00019c80  29 2a 67 72 61 70 68 5f  67 72 6f 75 70 73 69 7a  |)*graph_groupsiz|
00019c90  65 2d 67 72 61 70 68 5f  62 61 72 73 69 7a 65 2f  |e-graph_barsize/|
00019ca0  32 0d 6e 00 57 20 c9 35  20 3a 59 25 3d 28 41 25  |2.n.W .5 :Y%=(A%|
00019cb0  2d 31 29 2a 67 72 61 70  68 5f 67 72 6f 75 70 73  |-1)*graph_groups|
00019cc0  69 7a 65 2b 67 72 61 70  68 5f 62 61 72 77 69 64  |ize+graph_barwid|
00019cd0  74 68 2f 32 2b 28 67 72  61 70 68 5f 62 61 72 6d  |th/2+(graph_barm|
00019ce0  61 72 67 69 6e 25 80 31  29 2a 67 72 61 70 68 5f  |argin%.1)*graph_|
00019cf0  62 61 72 77 69 64 74 68  0d 6e 0a 57 20 c9 31 35  |barwidth.n.W .15|
00019d00  3a 59 25 3d 28 41 25 2d  31 29 2a 67 72 61 70 68  |:Y%=(A%-1)*graph|
00019d10  5f 67 72 6f 75 70 73 69  7a 65 2b 67 72 61 70 68  |_groupsize+graph|
00019d20  5f 62 61 72 77 69 64 74  68 2f 32 2b 28 67 72 61  |_barwidth/2+(gra|
00019d30  70 68 5f 62 61 72 6d 61  72 67 69 6e 25 80 31 29  |ph_barmargin%.1)|
00019d40  2a 67 72 61 70 68 5f 62  61 72 77 69 64 74 68 0d  |*graph_barwidth.|
00019d50  6e 14 05 cb 0d 6e 1e 30  e7 67 72 61 70 68 5f 62  |n....n.0.graph_b|
00019d60  61 72 74 79 70 65 25 3c  31 30 3a 59 25 2d 3d 58  |artype%<10:Y%-=X|
00019d70  3a 8b 59 25 2d 3d 31 39  30 2a 74 65 78 74 5f 61  |:.Y%-=190*text_a|
00019d80  78 69 73 79 0d 6e 28 6d  f2 64 66 69 6c 65 5f 77  |xisy.n(m.dfile_w|
00019d90  70 75 74 28 31 29 3a f2  64 66 69 6c 65 5f 77 70  |put(1):.dfile_wp|
00019da0  75 74 28 32 34 2b 32 38  2b 4f 29 3a f2 64 66 69  |ut(24+28+O):.dfi|
00019db0  6c 65 5f 77 70 75 74 28  30 29 3a f2 64 66 69 6c  |le_wput(0):.dfil|
00019dc0  65 5f 77 70 75 74 28 30  29 3a f2 64 66 69 6c 65  |e_wput(0):.dfile|
00019dd0  5f 77 70 75 74 28 33 30  30 30 30 30 29 3a f2 64  |_wput(300000):.d|
00019de0  66 69 6c 65 5f 77 70 75  74 28 32 30 30 30 30 30  |file_wput(200000|
00019df0  29 0d 6e 32 7d f2 64 66  69 6c 65 5f 77 70 75 74  |).n2}.dfile_wput|
00019e00  28 30 29 3a f2 64 66 69  6c 65 5f 62 70 75 74 28  |(0):.dfile_bput(|
00019e10  3f 67 72 61 70 68 5f 62  61 63 6b 25 29 3a f2 64  |?graph_back%):.d|
00019e20  66 69 6c 65 5f 62 70 75  74 28 67 72 61 70 68 5f  |file_bput(graph_|
00019e30  62 61 63 6b 25 3f 31 29  3a f2 64 66 69 6c 65 5f  |back%?1):.dfile_|
00019e40  62 70 75 74 28 67 72 61  70 68 5f 62 61 63 6b 25  |bput(graph_back%|
00019e50  3f 32 29 3a f2 64 66 69  6c 65 5f 62 70 75 74 28  |?2):.dfile_bput(|
00019e60  67 72 61 70 68 5f 62 61  63 6b 25 3f 33 29 0d 6e  |graph_back%?3).n|
00019e70  3c 54 f2 64 66 69 6c 65  5f 77 70 75 74 28 67 72  |<T.dfile_wput(gr|
00019e80  61 70 68 5f 61 78 69 73  63 29 3a f2 64 66 69 6c  |aph_axisc):.dfil|
00019e90  65 5f 77 70 75 74 28 36  34 30 2a 74 65 78 74 5f  |e_wput(640*text_|
00019ea0  61 78 69 73 78 29 3a f2  64 66 69 6c 65 5f 77 70  |axisx):.dfile_wp|
00019eb0  75 74 28 36 34 30 2a 74  65 78 74 5f 61 78 69 73  |ut(640*text_axis|
00019ec0  79 29 0d 6e 46 71 e7 67  72 61 70 68 5f 62 61 72  |y).nFq.graph_bar|
00019ed0  74 79 70 65 25 3c 31 30  3a f2 64 66 69 6c 65 5f  |type%<10:.dfile_|
00019ee0  77 70 75 74 28 32 30 30  30 30 2b 28 67 72 61 70  |wput(20000+(grap|
00019ef0  68 5f 62 61 72 6d 61 72  67 69 6e 25 80 31 29 2a  |h_barmargin%.1)*|
00019f00  67 72 61 70 68 5f 62 61  72 73 69 7a 65 2b 59 25  |graph_barsize+Y%|
00019f10  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 31 35  |):.dfile_wput(15|
00019f20  30 30 30 2d 33 38 30 2a  74 65 78 74 5f 61 78 69  |000-380*text_axi|
00019f30  73 79 29 0d 6e 50 66 e7  67 72 61 70 68 5f 62 61  |sy).nPf.graph_ba|
00019f40  72 74 79 70 65 25 3e 31  30 3a f2 64 66 69 6c 65  |rtype%>10:.dfile|
00019f50  5f 77 70 75 74 28 31 36  30 30 30 2d 58 2a 32 29  |_wput(16000-X*2)|
00019f60  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 30 30  |:.dfile_wput(200|
00019f70  30 30 2b 28 67 72 61 70  68 5f 62 61 72 6d 61 72  |00+(graph_barmar|
00019f80  67 69 6e 25 80 31 29 2a  67 72 61 70 68 5f 62 61  |gin%.1)*graph_ba|
00019f90  72 73 69 7a 65 2b 59 25  29 0d 6e 5a 17 f2 64 66  |rsize+Y%).nZ..df|
00019fa0  69 6c 65 5f 73 70 75 74  28 62 6c 6f 63 6b 25 29  |ile_sput(block%)|
00019fb0  0d 6e 64 05 ed 0d 6e 6e  05 e1 0d 6e 78 05 3a 0d  |.nd...nn...nx.:.|
00019fc0  6e 82 17 dd f2 67 72 61  70 68 5f 70 69 65 28 58  |n....graph_pie(X|
00019fd0  2c 59 2c 52 25 29 0d 6e  8c 17 e7 67 72 61 70 68  |,Y,R%).n...graph|
00019fe0  5f 33 44 25 3a 59 2b 3d  31 30 30 30 30 0d 6e 96  |_3D%:Y+=10000.n.|
00019ff0  4c 4f 3d 30 3a e3 4e 25  3d 31 b8 64 61 74 61 5f  |LO=0:.N%=1.data_|
0001a000  6c 65 6e 67 74 68 25 3a  4f 2b 3d a4 64 61 74 61  |length%:O+=.data|
0001a010  5f 67 65 74 28 67 72 6f  75 70 5f 6d 61 70 25 21  |_get(group_map%!|
0001a020  28 67 72 6f 75 70 25 2a  34 29 2c 4e 25 29 3a ed  |(group%*4),N%):.|
0001a030  3a e7 4f 3d 30 3a 4f 3d  31 0d 6e a0 1d e7 67 72  |:.O=0:O=1.n...gr|
0001a040  61 70 68 5f 33 44 25 3a  f2 67 72 61 70 68 5f 70  |aph_3D%:.graph_p|
0001a050  69 65 62 61 73 65 0d 6e  aa 13 f2 67 72 61 70 68  |iebase.n...graph|
0001a060  5f 70 69 65 63 72 75 73  74 0d 6e b4 33 4e 3d 67  |_piecrust.n.3N=g|
0001a070  72 6f 75 70 5f 6d 61 70  25 21 32 34 3a e7 4e 3e  |roup_map%!24:.N>|
0001a080  30 80 4e 3c 3d 64 61 74  61 5f 77 69 64 74 68 25  |0.N<=data_width%|
0001a090  3a f2 70 69 65 5f 6c 61  62 65 6c 73 0d 6e be 05  |:.pie_labels.n..|
0001a0a0  e1 0d 6e c8 05 3a 0d 6e  d2 14 dd f2 67 72 61 70  |..n..:.n....grap|
0001a0b0  68 5f 70 69 65 63 72 75  73 74 0d 6e dc 1a 41 3d  |h_piecrust.n..A=|
0001a0c0  30 3a e3 4e 25 3d 31 b8  64 61 74 61 5f 6c 65 6e  |0:.N%=1.data_len|
0001a0d0  67 74 68 25 0d 6e e6 29  42 3d a4 64 61 74 61 5f  |gth%.n.)B=.data_|
0001a0e0  67 65 74 28 67 72 6f 75  70 5f 6d 61 70 25 21 28  |get(group_map%!(|
0001a0f0  67 72 6f 75 70 25 2a 34  29 2c 4e 25 29 0d 6e f0  |group%*4),N%).n.|
0001a100  5b e7 67 72 61 70 68 5f  65 78 70 25 80 4e 25 3e  |[.graph_exp%.N%>|
0001a110  3d 67 72 61 70 68 5f 65  73 25 80 4e 25 3c 3d 67  |=graph_es%.N%<=g|
0001a120  72 61 70 68 5f 65 66 25  3a 4e 3d 41 2b 42 2f 32  |raph_ef%:N=A+B/2|
0001a130  3a 58 2b 3d 2e 31 2a 52  25 2a b5 28 4e 2f 4f 2a  |:X+=.1*R%*.(N/O*|
0001a140  af 2a 32 29 3a 59 2b 3d  2e 31 2a 52 25 2a 9b 28  |.*2):Y+=.1*R%*.(|
0001a150  4e 2f 4f 2a af 2a 32 29  0d 6e fa 20 4d 25 3d 30  |N/O*.*2).n. M%=0|
0001a160  3a 4e 3d 42 3a f5 4e 2d  3d 4f 2f 34 3a 4d 25 2b  |:N=B:.N-=O/4:M%+|
0001a170  3d 31 3a fd 4e 3c 3d 30  0d 6f 04 15 f4 20 4f 48  |=1:.N<=0.o... OH|
0001a180  3a 20 50 69 65 20 73 65  67 6d 65 6e 74 0d 6f 0e  |: Pie segment.o.|
0001a190  7a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 29 3a  |z.dfile_wput(2):|
0001a1a0  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 34 2b 31  |.dfile_wput(24+1|
0001a1b0  36 2b 33 2a 31 32 2b 28  32 38 2a 4d 25 29 2b 34  |6+3*12+(28*M%)+4|
0001a1c0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |):.dfile_wput(0)|
0001a1d0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 3a  |:.dfile_wput(0):|
0001a1e0  f2 64 66 69 6c 65 5f 77  70 75 74 28 33 30 30 30  |.dfile_wput(3000|
0001a1f0  30 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |00):.dfile_wput(|
0001a200  32 30 30 30 30 30 29 0d  6f 18 21 4d 25 3d 4e 25  |200000).o.!M%=N%|
0001a210  2d 31 3a 4d 25 2b 3d 31  36 3a f5 4d 25 2d 3d 31  |-1:M%+=16:.M%-=1|
0001a220  36 3a fd 4d 25 3c 31 36  0d 6f 22 c7 f2 64 66 69  |6:.M%<16.o"..dfi|
0001a230  6c 65 5f 62 70 75 74 28  70 69 65 5f 70 61 6c 65  |le_bput(pie_pale|
0001a240  74 74 65 25 3f 28 4d 25  2a 34 29 29 3a f2 64 66  |tte%?(M%*4)):.df|
0001a250  69 6c 65 5f 62 70 75 74  28 70 69 65 5f 70 61 6c  |ile_bput(pie_pal|
0001a260  65 74 74 65 25 3f 28 4d  25 2a 34 2b 31 29 29 3a  |ette%?(M%*4+1)):|
0001a270  f2 64 66 69 6c 65 5f 62  70 75 74 28 70 69 65 5f  |.dfile_bput(pie_|
0001a280  70 61 6c 65 74 74 65 25  3f 28 4d 25 2a 34 2b 32  |palette%?(M%*4+2|
0001a290  29 29 3a f2 64 66 69 6c  65 5f 62 70 75 74 28 70  |)):.dfile_bput(p|
0001a2a0  69 65 5f 70 61 6c 65 74  74 65 25 3f 28 4d 25 2a  |ie_palette%?(M%*|
0001a2b0  34 2b 33 29 29 3a f2 64  66 69 6c 65 5f 77 70 75  |4+3)):.dfile_wpu|
0001a2c0  74 28 67 72 61 70 68 5f  6f 75 74 6c 69 6e 65 25  |t(graph_outline%|
0001a2d0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |):.dfile_wput(0)|
0001a2e0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 0d  |:.dfile_wput(0).|
0001a2f0  6f 2c 30 f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |o,0.dfile_wput(2|
0001a300  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 58 29  |):.dfile_wput(X)|
0001a310  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 59 29 0d  |:.dfile_wput(Y).|
0001a320  6f 36 4e f2 64 66 69 6c  65 5f 77 70 75 74 28 38  |o6N.dfile_wput(8|
0001a330  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 58 2b  |):.dfile_wput(X+|
0001a340  52 25 2a b5 28 41 2f 4f  2a af 2a 32 29 29 3a f2  |R%*.(A/O*.*2)):.|
0001a350  64 66 69 6c 65 5f 77 70  75 74 28 59 2b 52 25 2a  |dfile_wput(Y+R%*|
0001a360  9b 28 28 41 2f 4f 29 2a  af 2a 32 29 29 0d 6f 40  |.((A/O)*.*2)).o@|
0001a370  14 4e 3d 42 3a e7 42 3e  4f 2f 34 3a 4e 3d 4f 2f  |.N=B:.B>O/4:N=O/|
0001a380  34 0d 6f 4a 05 f5 0d 6f  54 12 f2 64 66 69 6c 65  |4.oJ...oT..dfile|
0001a390  5f 77 70 75 74 28 36 29  0d 6f 5e 79 f2 64 66 69  |_wput(6).o^y.dfi|
0001a3a0  6c 65 5f 77 70 75 74 28  58 2b 52 25 2a b5 28 41  |le_wput(X+R%*.(A|
0001a3b0  2f 4f 2a af 2a 32 29 2b  52 25 2a 4e 2f 4f 2a 32  |/O*.*2)+R%*N/O*2|
0001a3c0  2e 32 35 2a b5 28 28 41  2f 4f 2b 2e 32 35 29 2a  |.25*.((A/O+.25)*|
0001a3d0  af 2a 32 29 29 3a f2 64  66 69 6c 65 5f 77 70 75  |.*2)):.dfile_wpu|
0001a3e0  74 28 59 2b 52 25 2a 9b  28 28 41 2f 4f 29 2a af  |t(Y+R%*.((A/O)*.|
0001a3f0  2a 32 29 2b 52 25 2a 4e  2f 4f 2a 32 2e 32 35 2a  |*2)+R%*N/O*2.25*|
0001a400  9b 28 28 41 2f 4f 2b 2e  32 35 29 2a af 2a 32 29  |.((A/O+.25)*.*2)|
0001a410  29 0d 6f 68 08 41 2b 3d  4e 0d 6f 72 77 f2 64 66  |).oh.A+=N.orw.df|
0001a420  69 6c 65 5f 77 70 75 74  28 58 2b 52 25 2a b5 28  |ile_wput(X+R%*.(|
0001a430  41 2f 4f 2a af 2a 32 29  2b 52 25 2a 4e 2f 4f 2a  |A/O*.*2)+R%*N/O*|
0001a440  32 2e 32 35 2a b5 28 28  41 2f 4f 2d 2e 32 35 29  |2.25*.((A/O-.25)|
0001a450  2a af 2a 32 29 29 3a f2  64 66 69 6c 65 5f 77 70  |*.*2)):.dfile_wp|
0001a460  75 74 28 59 2b 52 25 2a  9b 28 41 2f 4f 2a af 2a  |ut(Y+R%*.(A/O*.*|
0001a470  32 29 2b 52 25 2a 4e 2f  4f 2a 32 2e 32 35 2a 9b  |2)+R%*N/O*2.25*.|
0001a480  28 28 41 2f 4f 2d 2e 32  35 29 2a af 2a 32 29 29  |((A/O-.25)*.*2))|
0001a490  0d 6f 7c 3d f2 64 66 69  6c 65 5f 77 70 75 74 28  |.o|=.dfile_wput(|
0001a4a0  58 2b 52 25 2a b5 28 41  2f 4f 2a af 2a 32 29 29  |X+R%*.(A/O*.*2))|
0001a4b0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 59 2b 52  |:.dfile_wput(Y+R|
0001a4c0  25 2a 9b 28 41 2f 4f 2a  af 2a 32 29 29 0d 6f 86  |%*.(A/O*.*2)).o.|
0001a4d0  0d e7 4e 3d 42 3a 41 25  3d b9 0d 6f 90 1d e7 4e  |..N=B:A%=..o...N|
0001a4e0  3c 42 3a 42 2d 3d 4f 2f  34 3a 41 25 3d a3 3a e7  |<B:B-=O/4:A%=.:.|
0001a4f0  4e 3e 42 3a 4e 3d 42 0d  6f 9a 07 fd 41 25 0d 6f  |N>B:N=B.o...A%.o|
0001a500  a4 30 f2 64 66 69 6c 65  5f 77 70 75 74 28 38 29  |.0.dfile_wput(8)|
0001a510  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 58 29 3a  |:.dfile_wput(X):|
0001a520  f2 64 66 69 6c 65 5f 77  70 75 74 28 59 29 0d 6f  |.dfile_wput(Y).o|
0001a530  ae 12 f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |...dfile_wput(0)|
0001a540  0d 6f b8 29 42 3d a4 64  61 74 61 5f 67 65 74 28  |.o.)B=.data_get(|
0001a550  67 72 6f 75 70 5f 6d 61  70 25 21 28 67 72 6f 75  |group_map%!(grou|
0001a560  70 25 2a 34 29 2c 4e 25  29 0d 6f c2 5b e7 67 72  |p%*4),N%).o.[.gr|
0001a570  61 70 68 5f 65 78 70 25  80 4e 25 3e 3d 67 72 61  |aph_exp%.N%>=gra|
0001a580  70 68 5f 65 73 25 80 4e  25 3c 3d 67 72 61 70 68  |ph_es%.N%<=graph|
0001a590  5f 65 66 25 3a 4e 3d 41  2d 42 2f 32 3a 58 2d 3d  |_ef%:N=A-B/2:X-=|
0001a5a0  2e 31 2a 52 25 2a b5 28  4e 2f 4f 2a af 2a 32 29  |.1*R%*.(N/O*.*2)|
0001a5b0  3a 59 2d 3d 2e 31 2a 52  25 2a 9b 28 4e 2f 4f 2a  |:Y-=.1*R%*.(N/O*|
0001a5c0  af 2a 32 29 0d 6f cc 13  f2 70 6f 6c 6c 5f 6d 69  |.*2).o...poll_mi|
0001a5d0  6e 6f 72 6c 6f 6f 70 0d  6f d6 05 ed 0d 6f e0 05  |norloop.o....o..|
0001a5e0  e1 0d 6f ea 05 3a 0d 6f  f4 13 dd f2 67 72 61 70  |..o..:.o....grap|
0001a5f0  68 5f 70 69 65 62 61 73  65 0d 6f fe 0c 59 2d 3d  |h_piebase.o..Y-=|
0001a600  31 30 30 30 30 0d 70 08  32 41 3d 30 3a 4e 25 3d  |10000.p.2A=0:N%=|
0001a610  31 3a 42 3d a4 64 61 74  61 5f 67 65 74 28 67 72  |1:B=.data_get(gr|
0001a620  6f 75 70 5f 6d 61 70 25  21 28 67 72 6f 75 70 25  |oup_map%!(group%|
0001a630  2a 34 29 2c 4e 25 29 0d  70 12 05 f5 0d 70 1c 5c  |*4),N%).p....p.\|
0001a640  20 e7 67 72 61 70 68 5f  65 78 70 25 80 4e 25 3e  | .graph_exp%.N%>|
0001a650  3d 67 72 61 70 68 5f 65  73 25 80 4e 25 3c 3d 67  |=graph_es%.N%<=g|
0001a660  72 61 70 68 5f 65 66 25  3a 4e 3d 41 2b 42 2f 32  |raph_ef%:N=A+B/2|
0001a670  3a 58 2b 3d 2e 31 2a 52  25 2a b5 28 4e 2f 4f 2a  |:X+=.1*R%*.(N/O*|
0001a680  af 2a 32 29 3a 59 2b 3d  2e 31 2a 52 25 2a 9b 28  |.*2):Y+=.1*R%*.(|
0001a690  4e 2f 4f 2a af 2a 32 29  0d 70 26 21 20 4d 25 3d  |N/O*.*2).p&! M%=|
0001a6a0  30 3a 4e 3d 42 3a f5 4e  2d 3d 4f 2f 34 3a 4d 25  |0:N=B:.N-=O/4:M%|
0001a6b0  2b 3d 31 3a fd 4e 3c 3d  30 0d 70 30 1a 20 f2 67  |+=1:.N<=0.p0. .g|
0001a6c0  72 61 70 68 5f 73 74 65  61 6b 61 6e 64 6b 69 64  |raph_steakandkid|
0001a6d0  6e 65 79 0d 70 3a 5c 20  e7 67 72 61 70 68 5f 65  |ney.p:\ .graph_e|
0001a6e0  78 70 25 80 4e 25 3e 3d  67 72 61 70 68 5f 65 73  |xp%.N%>=graph_es|
0001a6f0  25 80 4e 25 3c 3d 67 72  61 70 68 5f 65 66 25 3a  |%.N%<=graph_ef%:|
0001a700  4e 3d 41 2d 42 2f 32 3a  58 2d 3d 2e 31 2a 52 25  |N=A-B/2:X-=.1*R%|
0001a710  2a b5 28 4e 2f 4f 2a af  2a 32 29 3a 59 2d 3d 2e  |*.(N/O*.*2):Y-=.|
0001a720  31 2a 52 25 2a 9b 28 4e  2f 4f 2a af 2a 32 29 0d  |1*R%*.(N/O*.*2).|
0001a730  70 44 30 20 4e 25 2b 3d  31 3a 42 3d a4 64 61 74  |pD0 N%+=1:B=.dat|
0001a740  61 5f 67 65 74 28 67 72  6f 75 70 5f 6d 61 70 25  |a_get(group_map%|
0001a750  21 28 67 72 6f 75 70 25  2a 34 29 2c 4e 25 29 0d  |!(group%*4),N%).|
0001a760  70 4e 12 fd 41 2b 42 3e  4f 2f 32 3a 4c 25 3d 4e  |pN..A+B>O/2:L%=N|
0001a770  25 0d 70 58 1e 41 3d 4f  3a e3 4e 25 3d 64 61 74  |%.pX.A=O:.N%=dat|
0001a780  61 5f 6c 65 6e 67 74 68  25 b8 4c 25 88 2d 31 0d  |a_length%.L%.-1.|
0001a790  70 62 2f 20 42 3d a4 64  61 74 61 5f 67 65 74 28  |pb/ B=.data_get(|
0001a7a0  67 72 6f 75 70 5f 6d 61  70 25 21 28 67 72 6f 75  |group_map%!(grou|
0001a7b0  70 25 2a 34 29 2c 4e 25  29 3a 41 2d 3d 42 0d 70  |p%*4),N%):A-=B.p|
0001a7c0  6c 5c 20 e7 67 72 61 70  68 5f 65 78 70 25 80 4e  |l\ .graph_exp%.N|
0001a7d0  25 3e 3d 67 72 61 70 68  5f 65 73 25 80 4e 25 3c  |%>=graph_es%.N%<|
0001a7e0  3d 67 72 61 70 68 5f 65  66 25 3a 4e 3d 41 2b 42  |=graph_ef%:N=A+B|
0001a7f0  2f 32 3a 58 2b 3d 2e 31  2a 52 25 2a b5 28 4e 2f  |/2:X+=.1*R%*.(N/|
0001a800  4f 2a af 2a 32 29 3a 59  2b 3d 2e 31 2a 52 25 2a  |O*.*2):Y+=.1*R%*|
0001a810  9b 28 4e 2f 4f 2a af 2a  32 29 0d 70 76 21 20 4d  |.(N/O*.*2).pv! M|
0001a820  25 3d 30 3a 4e 3d 42 3a  f5 4e 2d 3d 4f 2f 34 3a  |%=0:N=B:.N-=O/4:|
0001a830  4d 25 2b 3d 31 3a fd 4e  3c 3d 30 0d 70 80 1f 20  |M%+=1:.N<=0.p.. |
0001a840  f2 67 72 61 70 68 5f 73  74 65 61 6b 61 6e 64 6b  |.graph_steakandk|
0001a850  69 64 6e 65 79 3a 41 2d  3d 42 0d 70 8a 5c 20 e7  |idney:A-=B.p.\ .|
0001a860  67 72 61 70 68 5f 65 78  70 25 80 4e 25 3e 3d 67  |graph_exp%.N%>=g|
0001a870  72 61 70 68 5f 65 73 25  80 4e 25 3c 3d 67 72 61  |raph_es%.N%<=gra|
0001a880  70 68 5f 65 66 25 3a 4e  3d 41 2b 42 2f 32 3a 58  |ph_ef%:N=A+B/2:X|
0001a890  2d 3d 2e 31 2a 52 25 2a  b5 28 4e 2f 4f 2a af 2a  |-=.1*R%*.(N/O*.*|
0001a8a0  32 29 3a 59 2d 3d 2e 31  2a 52 25 2a 9b 28 4e 2f  |2):Y-=.1*R%*.(N/|
0001a8b0  4f 2a af 2a 32 29 0d 70  94 14 20 f2 70 6f 6c 6c  |O*.*2).p.. .poll|
0001a8c0  5f 6d 69 6e 6f 72 6c 6f  6f 70 0d 70 9e 05 ed 0d  |_minorloop.p....|
0001a8d0  70 a8 0c 59 2b 3d 31 30  30 30 30 0d 70 b2 05 e1  |p..Y+=10000.p...|
0001a8e0  0d 70 bc 05 3a 0d 70 c6  1a dd f2 67 72 61 70 68  |.p..:.p....graph|
0001a8f0  5f 73 74 65 61 6b 61 6e  64 6b 69 64 6e 65 79 0d  |_steakandkidney.|
0001a900  70 d0 1a f4 20 4f 48 3a  20 50 69 65 20 73 65 67  |p... OH: Pie seg|
0001a910  6d 65 6e 74 20 62 61 73  65 0d 70 da 7a f2 64 66  |ment base.p.z.df|
0001a920  69 6c 65 5f 77 70 75 74  28 32 29 3a f2 64 66 69  |ile_wput(2):.dfi|
0001a930  6c 65 5f 77 70 75 74 28  32 34 2b 31 36 2b 33 2a  |le_wput(24+16+3*|
0001a940  31 32 2b 28 32 38 2a 4d  25 29 2b 34 29 3a f2 64  |12+(28*M%)+4):.d|
0001a950  66 69 6c 65 5f 77 70 75  74 28 30 29 3a f2 64 66  |file_wput(0):.df|
0001a960  69 6c 65 5f 77 70 75 74  28 30 29 3a f2 64 66 69  |ile_wput(0):.dfi|
0001a970  6c 65 5f 77 70 75 74 28  33 30 30 30 30 30 29 3a  |le_wput(300000):|
0001a980  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 30 30 30  |.dfile_wput(2000|
0001a990  30 30 29 0d 70 e4 21 4d  25 3d 4e 25 2d 31 3a 4d  |00).p.!M%=N%-1:M|
0001a9a0  25 2b 3d 31 36 3a f5 4d  25 2d 3d 31 36 3a fd 4d  |%+=16:.M%-=16:.M|
0001a9b0  25 3c 31 36 0d 70 ee d3  f2 64 66 69 6c 65 5f 62  |%<16.p...dfile_b|
0001a9c0  66 61 64 65 28 70 69 65  5f 70 61 6c 65 74 74 65  |fade(pie_palette|
0001a9d0  25 3f 28 4d 25 2a 34 29  2c 32 29 3a f2 64 66 69  |%?(M%*4),2):.dfi|
0001a9e0  6c 65 5f 62 66 61 64 65  28 70 69 65 5f 70 61 6c  |le_bfade(pie_pal|
0001a9f0  65 74 74 65 25 3f 28 4d  25 2a 34 2b 31 29 2c 32  |ette%?(M%*4+1),2|
0001aa00  29 3a f2 64 66 69 6c 65  5f 62 66 61 64 65 28 70  |):.dfile_bfade(p|
0001aa10  69 65 5f 70 61 6c 65 74  74 65 25 3f 28 4d 25 2a  |ie_palette%?(M%*|
0001aa20  34 2b 32 29 2c 32 29 3a  f2 64 66 69 6c 65 5f 62  |4+2),2):.dfile_b|
0001aa30  66 61 64 65 28 70 69 65  5f 70 61 6c 65 74 74 65  |fade(pie_palette|
0001aa40  25 3f 28 4d 25 2a 34 2b  33 29 2c 32 29 3a f2 64  |%?(M%*4+3),2):.d|
0001aa50  66 69 6c 65 5f 77 70 75  74 28 67 72 61 70 68 5f  |file_wput(graph_|
0001aa60  6f 75 74 6c 69 6e 65 25  29 3a f2 64 66 69 6c 65  |outline%):.dfile|
0001aa70  5f 77 70 75 74 28 30 29  3a f2 64 66 69 6c 65 5f  |_wput(0):.dfile_|
0001aa80  77 70 75 74 28 30 29 0d  70 f8 30 f2 64 66 69 6c  |wput(0).p.0.dfil|
0001aa90  65 5f 77 70 75 74 28 32  29 3a f2 64 66 69 6c 65  |e_wput(2):.dfile|
0001aaa0  5f 77 70 75 74 28 58 29  3a f2 64 66 69 6c 65 5f  |_wput(X):.dfile_|
0001aab0  77 70 75 74 28 59 29 0d  71 02 4e f2 64 66 69 6c  |wput(Y).q.N.dfil|
0001aac0  65 5f 77 70 75 74 28 38  29 3a f2 64 66 69 6c 65  |e_wput(8):.dfile|
0001aad0  5f 77 70 75 74 28 58 2b  52 25 2a b5 28 41 2f 4f  |_wput(X+R%*.(A/O|
0001aae0  2a af 2a 32 29 29 3a f2  64 66 69 6c 65 5f 77 70  |*.*2)):.dfile_wp|
0001aaf0  75 74 28 59 2b 52 25 2a  9b 28 28 41 2f 4f 29 2a  |ut(Y+R%*.((A/O)*|
0001ab00  af 2a 32 29 29 0d 71 0c  14 4e 3d 42 3a e7 42 3e  |.*2)).q..N=B:.B>|
0001ab10  4f 2f 34 3a 4e 3d 4f 2f  34 0d 71 16 05 f5 0d 71  |O/4:N=O/4.q....q|
0001ab20  20 12 f2 64 66 69 6c 65  5f 77 70 75 74 28 36 29  | ..dfile_wput(6)|
0001ab30  0d 71 2a 79 f2 64 66 69  6c 65 5f 77 70 75 74 28  |.q*y.dfile_wput(|
0001ab40  58 2b 52 25 2a b5 28 41  2f 4f 2a af 2a 32 29 2b  |X+R%*.(A/O*.*2)+|
0001ab50  52 25 2a 4e 2f 4f 2a 32  2e 32 35 2a b5 28 28 41  |R%*N/O*2.25*.((A|
0001ab60  2f 4f 2b 2e 32 35 29 2a  af 2a 32 29 29 3a f2 64  |/O+.25)*.*2)):.d|
0001ab70  66 69 6c 65 5f 77 70 75  74 28 59 2b 52 25 2a 9b  |file_wput(Y+R%*.|
0001ab80  28 28 41 2f 4f 29 2a af  2a 32 29 2b 52 25 2a 4e  |((A/O)*.*2)+R%*N|
0001ab90  2f 4f 2a 32 2e 32 35 2a  9b 28 28 41 2f 4f 2b 2e  |/O*2.25*.((A/O+.|
0001aba0  32 35 29 2a af 2a 32 29  29 0d 71 34 08 41 2b 3d  |25)*.*2)).q4.A+=|
0001abb0  4e 0d 71 3e 77 f2 64 66  69 6c 65 5f 77 70 75 74  |N.q>w.dfile_wput|
0001abc0  28 58 2b 52 25 2a b5 28  41 2f 4f 2a af 2a 32 29  |(X+R%*.(A/O*.*2)|
0001abd0  2b 52 25 2a 4e 2f 4f 2a  32 2e 32 35 2a b5 28 28  |+R%*N/O*2.25*.((|
0001abe0  41 2f 4f 2d 2e 32 35 29  2a af 2a 32 29 29 3a f2  |A/O-.25)*.*2)):.|
0001abf0  64 66 69 6c 65 5f 77 70  75 74 28 59 2b 52 25 2a  |dfile_wput(Y+R%*|
0001ac00  9b 28 41 2f 4f 2a af 2a  32 29 2b 52 25 2a 4e 2f  |.(A/O*.*2)+R%*N/|
0001ac10  4f 2a 32 2e 32 35 2a 9b  28 28 41 2f 4f 2d 2e 32  |O*2.25*.((A/O-.2|
0001ac20  35 29 2a af 2a 32 29 29  0d 71 48 3d f2 64 66 69  |5)*.*2)).qH=.dfi|
0001ac30  6c 65 5f 77 70 75 74 28  58 2b 52 25 2a b5 28 41  |le_wput(X+R%*.(A|
0001ac40  2f 4f 2a af 2a 32 29 29  3a f2 64 66 69 6c 65 5f  |/O*.*2)):.dfile_|
0001ac50  77 70 75 74 28 59 2b 52  25 2a 9b 28 41 2f 4f 2a  |wput(Y+R%*.(A/O*|
0001ac60  af 2a 32 29 29 0d 71 52  0d e7 4e 3d 42 3a 41 25  |.*2)).qR..N=B:A%|
0001ac70  3d b9 0d 71 5c 1d e7 4e  3c 42 3a 42 2d 3d 4f 2f  |=..q\..N<B:B-=O/|
0001ac80  34 3a 41 25 3d a3 3a e7  4e 3e 42 3a 4e 3d 42 0d  |4:A%=.:.N>B:N=B.|
0001ac90  71 66 07 fd 41 25 0d 71  70 0d e7 41 3e 4f 3a 41  |qf..A%.qp..A>O:A|
0001aca0  2d 3d 4f 0d 71 7a 30 f2  64 66 69 6c 65 5f 77 70  |-=O.qz0.dfile_wp|
0001acb0  75 74 28 38 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(8):.dfile_wpu|
0001acc0  74 28 58 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(X):.dfile_wput|
0001acd0  28 59 29 0d 71 84 12 f2  64 66 69 6c 65 5f 77 70  |(Y).q...dfile_wp|
0001ace0  75 74 28 30 29 0d 71 8e  2e 42 3d a4 64 61 74 61  |ut(0).q..B=.data|
0001acf0  5f 67 65 74 28 67 72 6f  75 70 5f 6d 61 70 25 21  |_get(group_map%!|
0001ad00  28 67 72 6f 75 70 25 2a  34 29 2c 4e 25 29 3a 41  |(group%*4),N%):A|
0001ad10  2d 3d 42 0d 71 98 0e e7  41 2b 42 3c 3d 4f 2f 32  |-=B.q...A+B<=O/2|
0001ad20  8c 0d 71 a2 20 20 f4 20  4f 48 3a 20 50 69 65 20  |..q.  . OH: Pie |
0001ad30  73 65 67 6d 65 6e 74 20  6c 65 66 74 20 77 61 6c  |segment left wal|
0001ad40  6c 0d 71 ac 73 20 f2 64  66 69 6c 65 5f 77 70 75  |l.q.s .dfile_wpu|
0001ad50  74 28 32 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(2):.dfile_wput|
0001ad60  28 32 34 2b 31 36 2b 34  2a 31 32 2b 34 29 3a f2  |(24+16+4*12+4):.|
0001ad70  64 66 69 6c 65 5f 77 70  75 74 28 30 29 3a f2 64  |dfile_wput(0):.d|
0001ad80  66 69 6c 65 5f 77 70 75  74 28 30 29 3a f2 64 66  |file_wput(0):.df|
0001ad90  69 6c 65 5f 77 70 75 74  28 33 30 30 30 30 30 29  |ile_wput(300000)|
0001ada0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 32 30 30  |:.dfile_wput(200|
0001adb0  30 30 30 29 0d 71 b6 22  20 4d 25 3d 4e 25 2d 31  |000).q." M%=N%-1|
0001adc0  3a 4d 25 2b 3d 31 36 3a  f5 4d 25 2d 3d 31 36 3a  |:M%+=16:.M%-=16:|
0001add0  fd 4d 25 3c 31 36 0d 71  c0 d4 20 f2 64 66 69 6c  |.M%<16.q.. .dfil|
0001ade0  65 5f 62 66 61 64 65 28  70 69 65 5f 70 61 6c 65  |e_bfade(pie_pale|
0001adf0  74 74 65 25 3f 28 4d 25  2a 34 29 2c 32 29 3a f2  |tte%?(M%*4),2):.|
0001ae00  64 66 69 6c 65 5f 62 66  61 64 65 28 70 69 65 5f  |dfile_bfade(pie_|
0001ae10  70 61 6c 65 74 74 65 25  3f 28 4d 25 2a 34 2b 31  |palette%?(M%*4+1|
0001ae20  29 2c 32 29 3a f2 64 66  69 6c 65 5f 62 66 61 64  |),2):.dfile_bfad|
0001ae30  65 28 70 69 65 5f 70 61  6c 65 74 74 65 25 3f 28  |e(pie_palette%?(|
0001ae40  4d 25 2a 34 2b 32 29 2c  32 29 3a f2 64 66 69 6c  |M%*4+2),2):.dfil|
0001ae50  65 5f 62 66 61 64 65 28  70 69 65 5f 70 61 6c 65  |e_bfade(pie_pale|
0001ae60  74 74 65 25 3f 28 4d 25  2a 34 2b 33 29 2c 32 29  |tte%?(M%*4+3),2)|
0001ae70  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 67 72 61  |:.dfile_wput(gra|
0001ae80  70 68 5f 6f 75 74 6c 69  6e 65 25 29 3a f2 64 66  |ph_outline%):.df|
0001ae90  69 6c 65 5f 77 70 75 74  28 30 29 3a f2 64 66 69  |ile_wput(0):.dfi|
0001aea0  6c 65 5f 77 70 75 74 28  30 29 0d 71 ca 37 20 f2  |le_wput(0).q.7 .|
0001aeb0  64 66 69 6c 65 5f 77 70  75 74 28 32 29 3a f2 64  |dfile_wput(2):.d|
0001aec0  66 69 6c 65 5f 77 70 75  74 28 58 29 3a f2 64 66  |file_wput(X):.df|
0001aed0  69 6c 65 5f 77 70 75 74  28 59 2b 31 30 30 30 30  |ile_wput(Y+10000|
0001aee0  29 0d 71 d4 31 20 f2 64  66 69 6c 65 5f 77 70 75  |).q.1 .dfile_wpu|
0001aef0  74 28 38 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(8):.dfile_wput|
0001af00  28 58 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(X):.dfile_wput(|
0001af10  59 29 0d 71 de 57 20 f2  64 66 69 6c 65 5f 77 70  |Y).q.W .dfile_wp|
0001af20  75 74 28 38 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(8):.dfile_wpu|
0001af30  74 28 58 2b 52 25 2a b5  28 28 41 2b 42 29 2f 4f  |t(X+R%*.((A+B)/O|
0001af40  2a af 2a 32 29 29 3a f2  64 66 69 6c 65 5f 77 70  |*.*2)):.dfile_wp|
0001af50  75 74 28 59 2b 52 25 2a  9b 28 28 28 41 2b 42 29  |ut(Y+R%*.(((A+B)|
0001af60  2f 4f 29 2a af 2a 32 29  29 0d 71 e8 5d 20 f2 64  |/O)*.*2)).q.] .d|
0001af70  66 69 6c 65 5f 77 70 75  74 28 38 29 3a f2 64 66  |file_wput(8):.df|
0001af80  69 6c 65 5f 77 70 75 74  28 58 2b 52 25 2a b5 28  |ile_wput(X+R%*.(|
0001af90  28 41 2b 42 29 2f 4f 2a  af 2a 32 29 29 3a f2 64  |(A+B)/O*.*2)):.d|
0001afa0  66 69 6c 65 5f 77 70 75  74 28 59 2b 52 25 2a 9b  |file_wput(Y+R%*.|
0001afb0  28 28 28 41 2b 42 29 2f  4f 29 2a af 2a 32 29 2b  |(((A+B)/O)*.*2)+|
0001afc0  31 30 30 30 30 29 0d 71  f2 13 20 f2 64 66 69 6c  |10000).q.. .dfil|
0001afd0  65 5f 77 70 75 74 28 30  29 0d 71 fc 05 cd 0d 72  |e_wput(0).q....r|
0001afe0  06 18 e7 41 3c 3d 33 2a  4f 2f 34 80 41 2b 42 3e  |...A<=3*O/4.A+B>|
0001aff0  3d 4f 2f 34 20 8c 0d 72  10 22 20 f4 20 4f 48 3a  |=O/4 ..r." . OH:|
0001b000  20 50 69 65 20 73 65 67  6d 65 6e 74 20 63 75 72  | Pie segment cur|
0001b010  76 65 64 20 77 61 6c 6c  0d 72 1a 73 20 f2 64 66  |ved wall.r.s .df|
0001b020  69 6c 65 5f 77 70 75 74  28 32 29 3a f2 64 66 69  |ile_wput(2):.dfi|
0001b030  6c 65 5f 77 70 75 74 28  32 34 2b 31 36 2b 34 2a  |le_wput(24+16+4*|
0001b040  31 32 2b 34 29 3a f2 64  66 69 6c 65 5f 77 70 75  |12+4):.dfile_wpu|
0001b050  74 28 30 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(0):.dfile_wput|
0001b060  28 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(0):.dfile_wput(|
0001b070  33 30 30 30 30 30 29 3a  f2 64 66 69 6c 65 5f 77  |300000):.dfile_w|
0001b080  70 75 74 28 32 30 30 30  30 30 29 0d 72 24 22 20  |put(200000).r$" |
0001b090  4d 25 3d 4e 25 2d 31 3a  4d 25 2b 3d 31 36 3a f5  |M%=N%-1:M%+=16:.|
0001b0a0  4d 25 2d 3d 31 36 3a fd  4d 25 3c 31 36 0d 72 2e  |M%-=16:.M%<16.r.|
0001b0b0  d4 20 f2 64 66 69 6c 65  5f 62 66 61 64 65 28 70  |. .dfile_bfade(p|
0001b0c0  69 65 5f 70 61 6c 65 74  74 65 25 3f 28 4d 25 2a  |ie_palette%?(M%*|
0001b0d0  34 29 2c 32 29 3a f2 64  66 69 6c 65 5f 62 66 61  |4),2):.dfile_bfa|
0001b0e0  64 65 28 70 69 65 5f 70  61 6c 65 74 74 65 25 3f  |de(pie_palette%?|
0001b0f0  28 4d 25 2a 34 2b 31 29  2c 32 29 3a f2 64 66 69  |(M%*4+1),2):.dfi|
0001b100  6c 65 5f 62 66 61 64 65  28 70 69 65 5f 70 61 6c  |le_bfade(pie_pal|
0001b110  65 74 74 65 25 3f 28 4d  25 2a 34 2b 32 29 2c 32  |ette%?(M%*4+2),2|
0001b120  29 3a f2 64 66 69 6c 65  5f 62 66 61 64 65 28 70  |):.dfile_bfade(p|
0001b130  69 65 5f 70 61 6c 65 74  74 65 25 3f 28 4d 25 2a  |ie_palette%?(M%*|
0001b140  34 2b 33 29 2c 32 29 3a  f2 64 66 69 6c 65 5f 77  |4+3),2):.dfile_w|
0001b150  70 75 74 28 67 72 61 70  68 5f 6f 75 74 6c 69 6e  |put(graph_outlin|
0001b160  65 25 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |e%):.dfile_wput(|
0001b170  30 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 30  |0):.dfile_wput(0|
0001b180  29 0d 72 38 4f 20 f2 64  66 69 6c 65 5f 77 70 75  |).r8O .dfile_wpu|
0001b190  74 28 32 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(2):.dfile_wput|
0001b1a0  28 58 2b 52 25 2a b5 28  41 2f 4f 2a af 2a 32 29  |(X+R%*.(A/O*.*2)|
0001b1b0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 59 2b  |):.dfile_wput(Y+|
0001b1c0  52 25 2a 9b 28 28 41 2f  4f 29 2a af 2a 32 29 29  |R%*.((A/O)*.*2))|
0001b1d0  0d 72 42 55 20 f2 64 66  69 6c 65 5f 77 70 75 74  |.rBU .dfile_wput|
0001b1e0  28 38 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(8):.dfile_wput(|
0001b1f0  58 2b 52 25 2a b5 28 41  2f 4f 2a af 2a 32 29 29  |X+R%*.(A/O*.*2))|
0001b200  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 59 2b 52  |:.dfile_wput(Y+R|
0001b210  25 2a 9b 28 28 41 2f 4f  29 2a af 2a 32 29 2b 31  |%*.((A/O)*.*2)+1|
0001b220  30 30 30 30 29 0d 72 4c  5d 20 f2 64 66 69 6c 65  |0000).rL] .dfile|
0001b230  5f 77 70 75 74 28 38 29  3a f2 64 66 69 6c 65 5f  |_wput(8):.dfile_|
0001b240  77 70 75 74 28 58 2b 52  25 2a b5 28 28 41 2b 42  |wput(X+R%*.((A+B|
0001b250  29 2f 4f 2a af 2a 32 29  29 3a f2 64 66 69 6c 65  |)/O*.*2)):.dfile|
0001b260  5f 77 70 75 74 28 59 2b  52 25 2a 9b 28 28 28 41  |_wput(Y+R%*.(((A|
0001b270  2b 42 29 2f 4f 29 2a af  2a 32 29 2b 31 30 30 30  |+B)/O)*.*2)+1000|
0001b280  30 29 0d 72 56 57 20 f2  64 66 69 6c 65 5f 77 70  |0).rVW .dfile_wp|
0001b290  75 74 28 38 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(8):.dfile_wpu|
0001b2a0  74 28 58 2b 52 25 2a b5  28 28 41 2b 42 29 2f 4f  |t(X+R%*.((A+B)/O|
0001b2b0  2a af 2a 32 29 29 3a f2  64 66 69 6c 65 5f 77 70  |*.*2)):.dfile_wp|
0001b2c0  75 74 28 59 2b 52 25 2a  9b 28 28 28 41 2b 42 29  |ut(Y+R%*.(((A+B)|
0001b2d0  2f 4f 29 2a af 2a 32 29  29 0d 72 60 13 20 f2 64  |/O)*.*2)).r`. .d|
0001b2e0  66 69 6c 65 5f 77 70 75  74 28 30 29 0d 72 6a 05  |file_wput(0).rj.|
0001b2f0  cd 0d 72 74 0c e7 41 3e  3d 4f 2f 32 8c 0d 72 7e  |..rt..A>=O/2..r~|
0001b300  21 20 f4 20 4f 48 3a 20  50 69 65 20 73 65 67 6d  |! . OH: Pie segm|
0001b310  65 6e 74 20 72 69 67 68  74 20 77 61 6c 6c 0d 72  |ent right wall.r|
0001b320  88 73 20 f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |.s .dfile_wput(2|
0001b330  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 32 34  |):.dfile_wput(24|
0001b340  2b 31 36 2b 34 2a 31 32  2b 34 29 3a f2 64 66 69  |+16+4*12+4):.dfi|
0001b350  6c 65 5f 77 70 75 74 28  30 29 3a f2 64 66 69 6c  |le_wput(0):.dfil|
0001b360  65 5f 77 70 75 74 28 30  29 3a f2 64 66 69 6c 65  |e_wput(0):.dfile|
0001b370  5f 77 70 75 74 28 33 30  30 30 30 30 29 3a f2 64  |_wput(300000):.d|
0001b380  66 69 6c 65 5f 77 70 75  74 28 32 30 30 30 30 30  |file_wput(200000|
0001b390  29 0d 72 92 22 20 4d 25  3d 4e 25 2d 31 3a 4d 25  |).r." M%=N%-1:M%|
0001b3a0  2b 3d 31 36 3a f5 4d 25  2d 3d 31 36 3a fd 4d 25  |+=16:.M%-=16:.M%|
0001b3b0  3c 31 36 0d 72 9c d4 20  f2 64 66 69 6c 65 5f 62  |<16.r.. .dfile_b|
0001b3c0  66 61 64 65 28 70 69 65  5f 70 61 6c 65 74 74 65  |fade(pie_palette|
0001b3d0  25 3f 28 4d 25 2a 34 29  2c 32 29 3a f2 64 66 69  |%?(M%*4),2):.dfi|
0001b3e0  6c 65 5f 62 66 61 64 65  28 70 69 65 5f 70 61 6c  |le_bfade(pie_pal|
0001b3f0  65 74 74 65 25 3f 28 4d  25 2a 34 2b 31 29 2c 32  |ette%?(M%*4+1),2|
0001b400  29 3a f2 64 66 69 6c 65  5f 62 66 61 64 65 28 70  |):.dfile_bfade(p|
0001b410  69 65 5f 70 61 6c 65 74  74 65 25 3f 28 4d 25 2a  |ie_palette%?(M%*|
0001b420  34 2b 32 29 2c 32 29 3a  f2 64 66 69 6c 65 5f 62  |4+2),2):.dfile_b|
0001b430  66 61 64 65 28 70 69 65  5f 70 61 6c 65 74 74 65  |fade(pie_palette|
0001b440  25 3f 28 4d 25 2a 34 2b  33 29 2c 32 29 3a f2 64  |%?(M%*4+3),2):.d|
0001b450  66 69 6c 65 5f 77 70 75  74 28 67 72 61 70 68 5f  |file_wput(graph_|
0001b460  6f 75 74 6c 69 6e 65 25  29 3a f2 64 66 69 6c 65  |outline%):.dfile|
0001b470  5f 77 70 75 74 28 30 29  3a f2 64 66 69 6c 65 5f  |_wput(0):.dfile_|
0001b480  77 70 75 74 28 30 29 0d  72 a6 37 20 f2 64 66 69  |wput(0).r.7 .dfi|
0001b490  6c 65 5f 77 70 75 74 28  32 29 3a f2 64 66 69 6c  |le_wput(2):.dfil|
0001b4a0  65 5f 77 70 75 74 28 58  29 3a f2 64 66 69 6c 65  |e_wput(X):.dfile|
0001b4b0  5f 77 70 75 74 28 59 2b  31 30 30 30 30 29 0d 72  |_wput(Y+10000).r|
0001b4c0  b0 31 20 f2 64 66 69 6c  65 5f 77 70 75 74 28 38  |.1 .dfile_wput(8|
0001b4d0  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 58 29  |):.dfile_wput(X)|
0001b4e0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 59 29 0d  |:.dfile_wput(Y).|
0001b4f0  72 ba 4f 20 f2 64 66 69  6c 65 5f 77 70 75 74 28  |r.O .dfile_wput(|
0001b500  38 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 58  |8):.dfile_wput(X|
0001b510  2b 52 25 2a b5 28 41 2f  4f 2a af 2a 32 29 29 3a  |+R%*.(A/O*.*2)):|
0001b520  f2 64 66 69 6c 65 5f 77  70 75 74 28 59 2b 52 25  |.dfile_wput(Y+R%|
0001b530  2a 9b 28 28 41 2f 4f 29  2a af 2a 32 29 29 0d 72  |*.((A/O)*.*2)).r|
0001b540  c4 55 20 f2 64 66 69 6c  65 5f 77 70 75 74 28 38  |.U .dfile_wput(8|
0001b550  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 58 2b  |):.dfile_wput(X+|
0001b560  52 25 2a b5 28 41 2f 4f  2a af 2a 32 29 29 3a f2  |R%*.(A/O*.*2)):.|
0001b570  64 66 69 6c 65 5f 77 70  75 74 28 59 2b 52 25 2a  |dfile_wput(Y+R%*|
0001b580  9b 28 28 41 2f 4f 29 2a  af 2a 32 29 2b 31 30 30  |.((A/O)*.*2)+100|
0001b590  30 30 29 0d 72 ce 13 20  f2 64 66 69 6c 65 5f 77  |00).r.. .dfile_w|
0001b5a0  70 75 74 28 30 29 0d 72  d8 05 cd 0d 72 e2 21 4d  |put(0).r....r.!M|
0001b5b0  25 3d 4e 25 2d 31 3a 4d  25 2b 3d 31 36 3a f5 4d  |%=N%-1:M%+=16:.M|
0001b5c0  25 2d 3d 31 36 3a fd 4d  25 3c 31 36 0d 72 ec 13  |%-=16:.M%<16.r..|
0001b5d0  e7 41 3c 4f 2f 34 80 41  2b 42 3e 4f 2f 34 8c 0d  |.A<O/4.A+B>O/4..|
0001b5e0  72 f6 19 20 f4 20 4f 48  3a 20 52 69 67 68 74 20  |r.. . OH: Right |
0001b5f0  73 69 64 65 20 62 69 74  0d 73 00 73 20 f2 64 66  |side bit.s.s .df|
0001b600  69 6c 65 5f 77 70 75 74  28 32 29 3a f2 64 66 69  |ile_wput(2):.dfi|
0001b610  6c 65 5f 77 70 75 74 28  32 34 2b 31 36 2b 33 2a  |le_wput(24+16+3*|
0001b620  31 32 2b 34 29 3a f2 64  66 69 6c 65 5f 77 70 75  |12+4):.dfile_wpu|
0001b630  74 28 30 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |t(0):.dfile_wput|
0001b640  28 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(0):.dfile_wput(|
0001b650  33 30 30 30 30 30 29 3a  f2 64 66 69 6c 65 5f 77  |300000):.dfile_w|
0001b660  70 75 74 28 32 30 30 30  30 30 29 0d 73 0a d4 20  |put(200000).s.. |
0001b670  f2 64 66 69 6c 65 5f 62  66 61 64 65 28 70 69 65  |.dfile_bfade(pie|
0001b680  5f 70 61 6c 65 74 74 65  25 3f 28 4d 25 2a 34 29  |_palette%?(M%*4)|
0001b690  2c 32 29 3a f2 64 66 69  6c 65 5f 62 66 61 64 65  |,2):.dfile_bfade|
0001b6a0  28 70 69 65 5f 70 61 6c  65 74 74 65 25 3f 28 4d  |(pie_palette%?(M|
0001b6b0  25 2a 34 2b 31 29 2c 32  29 3a f2 64 66 69 6c 65  |%*4+1),2):.dfile|
0001b6c0  5f 62 66 61 64 65 28 70  69 65 5f 70 61 6c 65 74  |_bfade(pie_palet|
0001b6d0  74 65 25 3f 28 4d 25 2a  34 2b 32 29 2c 32 29 3a  |te%?(M%*4+2),2):|
0001b6e0  f2 64 66 69 6c 65 5f 62  66 61 64 65 28 70 69 65  |.dfile_bfade(pie|
0001b6f0  5f 70 61 6c 65 74 74 65  25 3f 28 4d 25 2a 34 2b  |_palette%?(M%*4+|
0001b700  33 29 2c 32 29 3a f2 64  66 69 6c 65 5f 77 70 75  |3),2):.dfile_wpu|
0001b710  74 28 67 72 61 70 68 5f  6f 75 74 6c 69 6e 65 25  |t(graph_outline%|
0001b720  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |):.dfile_wput(0)|
0001b730  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 30 29 0d  |:.dfile_wput(0).|
0001b740  73 14 34 20 f2 64 66 69  6c 65 5f 77 70 75 74 28  |s.4 .dfile_wput(|
0001b750  32 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 58  |2):.dfile_wput(X|
0001b760  2b 52 25 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |+R%):.dfile_wput|
0001b770  28 59 29 0d 73 1e 3a 20  f2 64 66 69 6c 65 5f 77  |(Y).s.: .dfile_w|
0001b780  70 75 74 28 38 29 3a f2  64 66 69 6c 65 5f 77 70  |put(8):.dfile_wp|
0001b790  75 74 28 58 2b 52 25 29  3a f2 64 66 69 6c 65 5f  |ut(X+R%):.dfile_|
0001b7a0  77 70 75 74 28 59 2b 31  30 30 30 30 29 0d 73 28  |wput(Y+10000).s(|
0001b7b0  37 20 f2 64 66 69 6c 65  5f 77 70 75 74 28 38 29  |7 .dfile_wput(8)|
0001b7c0  3a f2 64 66 69 6c 65 5f  77 70 75 74 28 58 29 3a  |:.dfile_wput(X):|
0001b7d0  f2 64 66 69 6c 65 5f 77  70 75 74 28 59 2b 31 30  |.dfile_wput(Y+10|
0001b7e0  30 30 30 29 0d 73 32 13  20 f2 64 66 69 6c 65 5f  |000).s2. .dfile_|
0001b7f0  77 70 75 74 28 30 29 0d  73 3c 05 cd 0d 73 46 17  |wput(0).s<...sF.|
0001b800  e7 41 3c 4f 2a 33 2f 34  80 41 2b 42 3e 4f 2a 33  |.A<O*3/4.A+B>O*3|
0001b810  2f 34 8c 0d 73 50 18 20  f4 20 4f 48 3a 20 4c 65  |/4..sP. . OH: Le|
0001b820  66 74 20 73 69 64 65 20  62 69 74 0d 73 5a 73 20  |ft side bit.sZs |
0001b830  f2 64 66 69 6c 65 5f 77  70 75 74 28 32 29 3a f2  |.dfile_wput(2):.|
0001b840  64 66 69 6c 65 5f 77 70  75 74 28 32 34 2b 31 36  |dfile_wput(24+16|
0001b850  2b 33 2a 31 32 2b 34 29  3a f2 64 66 69 6c 65 5f  |+3*12+4):.dfile_|
0001b860  77 70 75 74 28 30 29 3a  f2 64 66 69 6c 65 5f 77  |wput(0):.dfile_w|
0001b870  70 75 74 28 30 29 3a f2  64 66 69 6c 65 5f 77 70  |put(0):.dfile_wp|
0001b880  75 74 28 33 30 30 30 30  30 29 3a f2 64 66 69 6c  |ut(300000):.dfil|
0001b890  65 5f 77 70 75 74 28 32  30 30 30 30 30 29 0d 73  |e_wput(200000).s|
0001b8a0  64 d4 20 f2 64 66 69 6c  65 5f 62 66 61 64 65 28  |d. .dfile_bfade(|
0001b8b0  70 69 65 5f 70 61 6c 65  74 74 65 25 3f 28 4d 25  |pie_palette%?(M%|
0001b8c0  2a 34 29 2c 32 29 3a f2  64 66 69 6c 65 5f 62 66  |*4),2):.dfile_bf|
0001b8d0  61 64 65 28 70 69 65 5f  70 61 6c 65 74 74 65 25  |ade(pie_palette%|
0001b8e0  3f 28 4d 25 2a 34 2b 31  29 2c 32 29 3a f2 64 66  |?(M%*4+1),2):.df|
0001b8f0  69 6c 65 5f 62 66 61 64  65 28 70 69 65 5f 70 61  |ile_bfade(pie_pa|
0001b900  6c 65 74 74 65 25 3f 28  4d 25 2a 34 2b 32 29 2c  |lette%?(M%*4+2),|
0001b910  32 29 3a f2 64 66 69 6c  65 5f 62 66 61 64 65 28  |2):.dfile_bfade(|
0001b920  70 69 65 5f 70 61 6c 65  74 74 65 25 3f 28 4d 25  |pie_palette%?(M%|
0001b930  2a 34 2b 33 29 2c 32 29  3a f2 64 66 69 6c 65 5f  |*4+3),2):.dfile_|
0001b940  77 70 75 74 28 67 72 61  70 68 5f 6f 75 74 6c 69  |wput(graph_outli|
0001b950  6e 65 25 29 3a f2 64 66  69 6c 65 5f 77 70 75 74  |ne%):.dfile_wput|
0001b960  28 30 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(0):.dfile_wput(|
0001b970  30 29 0d 73 6e 34 20 f2  64 66 69 6c 65 5f 77 70  |0).sn4 .dfile_wp|
0001b980  75 74 28 32 29 3a f2 64  66 69 6c 65 5f 77 70 75  |ut(2):.dfile_wpu|
0001b990  74 28 58 2d 52 25 29 3a  f2 64 66 69 6c 65 5f 77  |t(X-R%):.dfile_w|
0001b9a0  70 75 74 28 59 29 0d 73  78 3a 20 f2 64 66 69 6c  |put(Y).sx: .dfil|
0001b9b0  65 5f 77 70 75 74 28 38  29 3a f2 64 66 69 6c 65  |e_wput(8):.dfile|
0001b9c0  5f 77 70 75 74 28 58 2d  52 25 29 3a f2 64 66 69  |_wput(X-R%):.dfi|
0001b9d0  6c 65 5f 77 70 75 74 28  59 2b 31 30 30 30 30 29  |le_wput(Y+10000)|
0001b9e0  0d 73 82 37 20 f2 64 66  69 6c 65 5f 77 70 75 74  |.s.7 .dfile_wput|
0001b9f0  28 38 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |(8):.dfile_wput(|
0001ba00  58 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 59  |X):.dfile_wput(Y|
0001ba10  2b 31 30 30 30 30 29 0d  73 8c 13 20 f2 64 66 69  |+10000).s.. .dfi|
0001ba20  6c 65 5f 77 70 75 74 28  30 29 0d 73 96 05 cd 0d  |le_wput(0).s....|
0001ba30  73 a0 08 41 2b 3d 42 0d  73 aa 05 e1 0d 73 b4 05  |s..A+=B.s....s..|
0001ba40  3a 0d 73 be 10 dd f2 70  69 65 5f 6c 61 62 65 6c  |:.s....pie_label|
0001ba50  73 0d 73 c8 2d e7 52 25  3c 39 30 30 30 30 80 ac  |s.s.-.R%<90000..|
0001ba60  67 72 61 70 68 5f 33 44  25 84 52 25 3c 38 30 30  |graph_3D%.R%<800|
0001ba70  30 30 80 67 72 61 70 68  5f 33 44 25 3a e1 0d 73  |00.graph_3D%:..s|
0001ba80  d2 0c 52 25 2d 3d 35 30  30 30 0d 73 dc 22 24 74  |..R%-=5000.s."$t|
0001ba90  65 78 74 25 3d 22 4c 61  62 65 6c 73 22 3a f2 75  |ext%="Labels":.u|
0001baa0  70 64 61 74 65 5f 62 6f  74 74 6f 6d 0d 73 e6 1a  |pdate_bottom.s..|
0001bab0  41 3d 30 3a e3 4e 25 3d  31 b8 64 61 74 61 5f 6c  |A=0:.N%=1.data_l|
0001bac0  65 6e 67 74 68 25 0d 73  f0 29 42 3d a4 64 61 74  |ength%.s.)B=.dat|
0001bad0  61 5f 67 65 74 28 67 72  6f 75 70 5f 6d 61 70 25  |a_get(group_map%|
0001bae0  21 28 67 72 6f 75 70 25  2a 34 29 2c 4e 25 29 0d  |!(group%*4),N%).|
0001baf0  73 fa 5b e7 67 72 61 70  68 5f 65 78 70 25 80 4e  |s.[.graph_exp%.N|
0001bb00  25 3e 3d 67 72 61 70 68  5f 65 73 25 80 4e 25 3c  |%>=graph_es%.N%<|
0001bb10  3d 67 72 61 70 68 5f 65  66 25 3a 4e 3d 41 2b 42  |=graph_ef%:N=A+B|
0001bb20  2f 32 3a 58 2b 3d 2e 31  2a 52 25 2a b5 28 4e 2f  |/2:X+=.1*R%*.(N/|
0001bb30  4f 2a af 2a 32 29 3a 59  2b 3d 2e 31 2a 52 25 2a  |O*.*2):Y+=.1*R%*|
0001bb40  9b 28 4e 2f 4f 2a af 2a  32 29 0d 74 04 20 f2 64  |.(N/O*.*2).t. .d|
0001bb50  61 74 61 5f 73 67 65 74  28 67 72 6f 75 70 5f 6d  |ata_sget(group_m|
0001bb60  61 70 25 21 32 34 2c 4e  25 29 0d 74 0e 1c 4c 25  |ap%!24,N%).t..L%|
0001bb70  3d 30 3a f5 4c 25 2b 3d  31 3a fd 62 6c 6f 63 6b  |=0:.L%+=1:.block|
0001bb80  25 3f 4c 25 3d 30 0d 74  18 11 4c 25 2b 3d 34 2d  |%?L%=0.t..L%+=4-|
0001bb90  28 4c 25 20 83 34 29 0d  74 22 14 e7 74 65 78 74  |(L% .4).t"..text|
0001bba0  5f 61 78 69 73 63 3c 3e  30 20 8c 0d 74 2c 55 20  |_axisc<>0 ..t,U |
0001bbb0  c8 99 22 46 6f 6e 74 5f  46 69 6e 64 46 6f 6e 74  |.."Font_FindFont|
0001bbc0  22 2c 2c 66 6f 6e 74 5f  6c 69 73 74 25 2b 74 65  |",,font_list%+te|
0001bbd0  78 74 5f 61 78 69 73 63  2a 34 30 2c 74 65 78 74  |xt_axisc*40,text|
0001bbe0  5f 61 78 69 73 78 2a 31  36 2c 74 65 78 74 5f 61  |_axisx*16,text_a|
0001bbf0  78 69 73 79 2a 31 36 2c  30 2c 30 20 b8 20 41 25  |xisy*16,0,0 . A%|
0001bc00  0d 74 36 4a 20 c8 99 22  46 6f 6e 74 5f 53 74 72  |.t6J .."Font_Str|
0001bc10  69 6e 67 57 69 64 74 68  22 2c 2c 62 6c 6f 63 6b  |ingWidth",,block|
0001bc20  25 2c 33 30 30 30 30 30  2c 32 30 30 30 30 30 2c  |%,300000,200000,|
0001bc30  2d 31 2c 62 6c 6f 63 6b  25 2b a4 6c 65 6e 28 62  |-1,block%+.len(b|
0001bc40  6c 6f 63 6b 25 29 b8 2c  2c 4e 0d 74 40 19 20 c8  |lock%).,,N.t@. .|
0001bc50  99 22 46 6f 6e 74 5f 4c  6f 73 65 46 6f 6e 74 22  |."Font_LoseFont"|
0001bc60  2c 41 25 0d 74 4a 05 cc  0d 74 54 22 4e 3d 74 65  |,A%.tJ...tT"N=te|
0001bc70  78 74 5f 61 78 69 73 78  2a 31 30 30 30 2a a4 6c  |xt_axisx*1000*.l|
0001bc80  65 6e 28 62 6c 6f 63 6b  25 29 0d 74 5e 05 cd 0d  |en(block%).t^...|
0001bc90  74 68 0a 41 2b 3d 42 2f  32 0d 74 72 2b 4d 3d 30  |th.A+=B/2.tr+M=0|
0001bca0  3a e7 41 2f 4f 3e 2e 32  35 80 41 2f 4f 3c 2e 37  |:.A/O>.25.A/O<.7|
0001bcb0  35 3a 4d 3d 28 33 32 30  2a 74 65 78 74 5f 61 78  |5:M=(320*text_ax|
0001bcc0  69 73 79 29 0d 74 7c 27  e7 67 72 61 70 68 5f 33  |isy).t|'.graph_3|
0001bcd0  44 25 80 41 2f 4f 3e 2e  32 35 80 41 2f 4f 3c 2e  |D%.A/O>.25.A/O<.|
0001bce0  37 35 3a 4d 2b 3d 31 30  30 30 30 0d 74 86 1b 4e  |75:M+=10000.t..N|
0001bcf0  3d 4e 2a 36 34 30 2f 31  30 30 30 3a e7 41 3c 4f  |=N*640/1000:.A<O|
0001bd00  2f 32 3a 4e 3d 30 0d 74  90 1a f4 20 4f 48 3a 20  |/2:N=0.t... OH: |
0001bd10  50 69 65 20 63 68 61 72  74 20 6c 61 62 65 6c 73  |Pie chart labels|
0001bd20  0d 74 9a 6e f2 64 66 69  6c 65 5f 77 70 75 74 28  |.t.n.dfile_wput(|
0001bd30  31 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 32  |1):.dfile_wput(2|
0001bd40  34 2b 32 38 2b 4c 25 29  3a f2 64 66 69 6c 65 5f  |4+28+L%):.dfile_|
0001bd50  77 70 75 74 28 30 29 3a  f2 64 66 69 6c 65 5f 77  |wput(0):.dfile_w|
0001bd60  70 75 74 28 30 29 3a f2  64 66 69 6c 65 5f 77 70  |put(0):.dfile_wp|
0001bd70  75 74 28 33 30 30 30 30  30 29 3a f2 64 66 69 6c  |ut(300000):.dfil|
0001bd80  65 5f 77 70 75 74 28 32  30 30 30 30 30 29 0d 74  |e_wput(200000).t|
0001bd90  a4 7d f2 64 66 69 6c 65  5f 77 70 75 74 28 30 29  |.}.dfile_wput(0)|
0001bda0  3a f2 64 66 69 6c 65 5f  62 70 75 74 28 3f 67 72  |:.dfile_bput(?gr|
0001bdb0  61 70 68 5f 62 61 63 6b  25 29 3a f2 64 66 69 6c  |aph_back%):.dfil|
0001bdc0  65 5f 62 70 75 74 28 67  72 61 70 68 5f 62 61 63  |e_bput(graph_bac|
0001bdd0  6b 25 3f 31 29 3a f2 64  66 69 6c 65 5f 62 70 75  |k%?1):.dfile_bpu|
0001bde0  74 28 67 72 61 70 68 5f  62 61 63 6b 25 3f 32 29  |t(graph_back%?2)|
0001bdf0  3a f2 64 66 69 6c 65 5f  62 70 75 74 28 67 72 61  |:.dfile_bput(gra|
0001be00  70 68 5f 62 61 63 6b 25  3f 33 29 0d 74 ae 54 f2  |ph_back%?3).t.T.|
0001be10  64 66 69 6c 65 5f 77 70  75 74 28 67 72 61 70 68  |dfile_wput(graph|
0001be20  5f 61 78 69 73 63 29 3a  f2 64 66 69 6c 65 5f 77  |_axisc):.dfile_w|
0001be30  70 75 74 28 36 34 30 2a  74 65 78 74 5f 61 78 69  |put(640*text_axi|
0001be40  73 78 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |sx):.dfile_wput(|
0001be50  36 34 30 2a 74 65 78 74  5f 61 78 69 73 79 29 0d  |640*text_axisy).|
0001be60  74 b8 4b f2 64 66 69 6c  65 5f 77 70 75 74 28 58  |t.K.dfile_wput(X|
0001be70  2b 52 25 2a 31 2e 31 2a  b5 28 41 2f 4f 2a af 2a  |+R%*1.1*.(A/O*.*|
0001be80  32 29 2d 4e 29 3a f2 64  66 69 6c 65 5f 77 70 75  |2)-N):.dfile_wpu|
0001be90  74 28 59 2b 52 25 2a 31  2e 31 2a 9b 28 28 41 2f  |t(Y+R%*1.1*.((A/|
0001bea0  4f 29 2a af 2a 32 29 2d  4d 29 0d 74 c2 17 f2 64  |O)*.*2)-M).t...d|
0001beb0  66 69 6c 65 5f 73 70 75  74 28 62 6c 6f 63 6b 25  |file_sput(block%|
0001bec0  29 0d 74 cc 0a 41 2b 3d  42 2f 32 0d 74 d6 5b e7  |).t..A+=B/2.t.[.|
0001bed0  67 72 61 70 68 5f 65 78  70 25 80 4e 25 3e 3d 67  |graph_exp%.N%>=g|
0001bee0  72 61 70 68 5f 65 73 25  80 4e 25 3c 3d 67 72 61  |raph_es%.N%<=gra|
0001bef0  70 68 5f 65 66 25 3a 4e  3d 41 2d 42 2f 32 3a 58  |ph_ef%:N=A-B/2:X|
0001bf00  2d 3d 2e 31 2a 52 25 2a  b5 28 4e 2f 4f 2a af 2a  |-=.1*R%*.(N/O*.*|
0001bf10  32 29 3a 59 2d 3d 2e 31  2a 52 25 2a 9b 28 4e 2f  |2):Y-=.1*R%*.(N/|
0001bf20  4f 2a af 2a 32 29 0d 74  e0 05 ed 0d 74 ea 05 e1  |O*.*2).t....t...|
0001bf30  0d 74 f4 05 3a 0d 74 fe  26 dd f2 67 72 61 70 68  |.t..:.t.&..graph|
0001bf40  5f 70 69 65 6b 65 79 28  78 2c 79 29 3a e7 ac 67  |_piekey(x,y):..g|
0001bf50  72 61 70 68 5f 6b 65 79  25 3a e1 0d 75 08 1e 41  |raph_key%:..u..A|
0001bf60  3d 67 72 6f 75 70 5f 64  61 74 61 25 2b 67 72 6f  |=group_data%+gro|
0001bf70  75 70 25 2a 34 32 2b 31  31 0d 75 12 14 e7 74 65  |up%*42+11.u...te|
0001bf80  78 74 5f 61 78 69 73 63  3c 3e 30 20 8c 0d 75 1c  |xt_axisc<>0 ..u.|
0001bf90  54 20 c8 99 22 46 6f 6e  74 5f 46 69 6e 64 46 6f  |T .."Font_FindFo|
0001bfa0  6e 74 22 2c 2c 66 6f 6e  74 5f 6c 69 73 74 25 2b  |nt",,font_list%+|
0001bfb0  74 65 78 74 5f 61 78 69  73 63 2a 34 30 2c 74 65  |text_axisc*40,te|
0001bfc0  78 74 5f 61 78 69 73 78  2a 31 36 2c 74 65 78 74  |xt_axisx*16,text|
0001bfd0  5f 61 78 69 73 79 2a 31  36 2c 30 2c 30 20 b8 20  |_axisy*16,0,0 . |
0001bfe0  4d 0d 75 26 3b 20 c8 99  22 46 6f 6e 74 5f 53 74  |M.u&; .."Font_St|
0001bff0  72 69 6e 67 57 69 64 74  68 22 2c 2c 41 2c 33 30  |ringWidth",,A,30|
0001c000  30 30 30 30 2c 32 30 30  30 30 30 2c 2d 31 2c 41  |0000,200000,-1,A|
0001c010  2b a4 6c 65 6e 28 41 29  b8 2c 2c 4e 0d 75 30 18  |+.len(A).,,N.u0.|
0001c020  20 c8 99 22 46 6f 6e 74  5f 4c 6f 73 65 46 6f 6e  | .."Font_LoseFon|
0001c030  74 22 2c 4d 0d 75 3a 05  cc 0d 75 44 1d 4e 3d 74  |t",M.u:...uD.N=t|
0001c040  65 78 74 5f 61 78 69 73  78 2a 31 30 30 30 2a a4  |ext_axisx*1000*.|
0001c050  6c 65 6e 28 41 29 0d 75  4e 05 cd 0d 75 58 11 78  |len(A).uN...uX.x|
0001c060  2d 3d 4e 2a 33 32 30 2f  31 30 30 30 0d 75 62 1b  |-=N*320/1000.ub.|
0001c070  e7 41 25 3e 59 3a 79 2d  3d 33 32 30 2a 74 65 78  |.A%>Y:y-=320*tex|
0001c080  74 5f 61 78 69 73 79 0d  75 6c 1c 4c 25 3d a4 6c  |t_axisy.ul.L%=.l|
0001c090  65 6e 28 41 29 3a 4c 25  2b 3d 34 2d 28 4c 25 20  |en(A):L%+=4-(L% |
0001c0a0  83 34 29 0d 75 76 18 f4  20 4f 48 3a 20 50 69 65  |.4).uv.. OH: Pie|
0001c0b0  20 63 68 61 72 74 20 6b  65 79 73 0d 75 80 6e f2  | chart keys.u.n.|
0001c0c0  64 66 69 6c 65 5f 77 70  75 74 28 31 29 3a f2 64  |dfile_wput(1):.d|
0001c0d0  66 69 6c 65 5f 77 70 75  74 28 32 34 2b 32 38 2b  |file_wput(24+28+|
0001c0e0  4c 25 29 3a f2 64 66 69  6c 65 5f 77 70 75 74 28  |L%):.dfile_wput(|
0001c0f0  30 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 30  |0):.dfile_wput(0|
0001c100  29 3a f2 64 66 69 6c 65  5f 77 70 75 74 28 33 30  |):.dfile_wput(30|
0001c110  30 30 30 30 29 3a f2 64  66 69 6c 65 5f 77 70 75  |0000):.dfile_wpu|
0001c120  74 28 32 30 30 30 30 30  29 0d 75 8a 7d f2 64 66  |t(200000).u.}.df|
0001c130  69 6c 65 5f 77 70 75 74  28 30 29 3a f2 64 66 69  |ile_wput(0):.dfi|
0001c140  6c 65 5f 62 70 75 74 28  3f 67 72 61 70 68 5f 62  |le_bput(?graph_b|
0001c150  61 63 6b 25 29 3a f2 64  66 69 6c 65 5f 62 70 75  |ack%):.dfile_bpu|
0001c160  74 28 67 72 61 70 68 5f  62 61 63 6b 25 3f 31 29  |t(graph_back%?1)|
0001c170  3a f2 64 66 69 6c 65 5f  62 70 75 74 28 67 72 61  |:.dfile_bput(gra|
0001c180  70 68 5f 62 61 63 6b 25  3f 32 29 3a f2 64 66 69  |ph_back%?2):.dfi|
0001c190  6c 65 5f 62 70 75 74 28  67 72 61 70 68 5f 62 61  |le_bput(graph_ba|
0001c1a0  63 6b 25 3f 33 29 0d 75  94 54 f2 64 66 69 6c 65  |ck%?3).u.T.dfile|
0001c1b0  5f 77 70 75 74 28 67 72  61 70 68 5f 61 78 69 73  |_wput(graph_axis|
0001c1c0  63 29 3a f2 64 66 69 6c  65 5f 77 70 75 74 28 36  |c):.dfile_wput(6|
0001c1d0  34 30 2a 74 65 78 74 5f  61 78 69 73 78 29 3a f2  |40*text_axisx):.|
0001c1e0  64 66 69 6c 65 5f 77 70  75 74 28 36 34 30 2a 74  |dfile_wput(640*t|
0001c1f0  65 78 74 5f 61 78 69 73  79 29 0d 75 9e 21 f2 64  |ext_axisy).u.!.d|
0001c200  66 69 6c 65 5f 77 70 75  74 28 78 29 3a f2 64 66  |file_wput(x):.df|
0001c210  69 6c 65 5f 77 70 75 74  28 79 29 0d 75 a8 12 f2  |ile_wput(y).u...|
0001c220  64 66 69 6c 65 5f 73 70  75 74 28 41 29 0d 75 b2  |dfile_sput(A).u.|
0001c230  05 e1 0d 75 bc 05 3a 0d  75 c6 05 3a 0d 75 d0 18  |...u..:.u..:.u..|
0001c240  dd f2 64 66 69 6c 65 5f  70 75 74 28 24 62 6c 6f  |..dfile_put($blo|
0001c250  63 6b 25 29 0d 75 da 17  e3 4e 3d 30 b8 a4 6c 65  |ck%).u...N=0..le|
0001c260  6e 28 62 6c 6f 63 6b 25  29 2d 31 0d 75 e4 11 d5  |n(block%)-1.u...|
0001c270  23 58 25 2c 62 6c 6f 63  6b 25 3f 4e 0d 75 ee 05  |#X%,block%?N.u..|
0001c280  ed 0d 75 f8 05 e1 0d 76  02 05 3a 0d 76 0c 13 dd  |..u....v..:.v...|
0001c290  f2 64 66 69 6c 65 5f 73  70 75 74 28 58 29 0d 76  |.dfile_sput(X).v|
0001c2a0  16 08 4d 25 3d 34 0d 76  20 0a 45 25 3d 30 3a f5  |..M%=4.v .E%=0:.|
0001c2b0  0d 76 2a 0b 44 25 3d 58  3f 45 25 0d 76 34 15 e7  |.v*.D%=X?E%.v4..|
0001c2c0  44 25 3d 31 30 84 44 25  3d 31 33 3a 44 25 3d 30  |D%=10.D%=13:D%=0|
0001c2d0  0d 76 3e 1c d5 23 58 25  2c 44 25 3a 4d 25 2d 3d  |.v>..#X%,D%:M%-=|
0001c2e0  31 3a e7 4d 25 3d 30 3a  4d 25 3d 34 0d 76 48 0f  |1:.M%=0:M%=4.vH.|
0001c2f0  45 25 2b 3d 31 3a fd 44  25 3d 30 0d 76 52 0b e7  |E%+=1:.D%=0.vR..|
0001c300  4d 25 3d 34 3a e1 0d 76  5c 0b e3 4e 3d 31 b8 4d  |M%=4:..v\..N=1.M|
0001c310  25 0d 76 66 0a d5 23 58  25 2c 30 0d 76 70 05 ed  |%.vf..#X%,0.vp..|
0001c320  0d 76 7a 05 e1 0d 76 84  05 3a 0d 76 8e 17 dd f2  |.vz...v..:.v....|
0001c330  64 66 69 6c 65 5f 73 70  75 74 6c 28 58 2c 52 25  |dfile_sputl(X,R%|
0001c340  29 0d 76 98 0a 4e 25 3d  30 3a f5 0d 76 a2 0d d5  |).v..N%=0:..v...|
0001c350  23 58 25 2c 58 3f 4e 25  0d 76 ac 10 4e 25 2b 3d  |#X%,X?N%.v..N%+=|
0001c360  31 3a fd 4e 25 3d 52 25  0d 76 b6 05 e1 0d 76 c0  |1:.N%=R%.v....v.|
0001c370  05 3a 0d 76 ca 1c dd f2  64 66 69 6c 65 5f 77 70  |.:.v....dfile_wp|
0001c380  75 74 28 4e 29 3a 21 6d  65 73 73 25 3d 4e 0d 76  |ut(N):!mess%=N.v|
0001c390  d4 36 d5 23 58 25 2c 3f  6d 65 73 73 25 3a d5 23  |.6.#X%,?mess%:.#|
0001c3a0  58 25 2c 6d 65 73 73 25  3f 31 3a d5 23 58 25 2c  |X%,mess%?1:.#X%,|
0001c3b0  6d 65 73 73 25 3f 32 3a  d5 23 58 25 2c 6d 65 73  |mess%?2:.#X%,mes|
0001c3c0  73 25 3f 33 0d 76 de 05  e1 0d 76 e8 05 3a 0d 76  |s%?3.v....v..:.v|
0001c3d0  f2 12 dd f2 66 69 6c 65  5f 77 67 65 74 28 4e 29  |....file_wget(N)|
0001c3e0  0d 76 fc 36 3f 6d 65 73  73 25 3d 9a 23 58 25 3a  |.v.6?mess%=.#X%:|
0001c3f0  6d 65 73 73 25 3f 31 3d  9a 23 58 25 3a 6d 65 73  |mess%?1=.#X%:mes|
0001c400  73 25 3f 32 3d 9a 23 58  25 3a 6d 65 73 73 25 3f  |s%?2=.#X%:mess%?|
0001c410  33 3d 9a 23 58 25 0d 77  06 0d 21 4e 3d 21 6d 65  |3=.#X%.w..!N=!me|
0001c420  73 73 25 0d 77 10 05 e1  0d 77 1a 05 3a 0d 77 24  |ss%.w....w..:.w$|
0001c430  13 dd f2 64 66 69 6c 65  5f 62 70 75 74 28 4e 29  |...dfile_bput(N)|
0001c440  0d 77 2e 0a d5 23 58 25  2c 4e 0d 77 38 05 e1 0d  |.w...#X%,N.w8...|
0001c450  77 42 05 3a 0d 77 4c 15  dd a4 64 61 74 61 5f 67  |wB.:.wL...data_g|
0001c460  65 74 28 45 25 2c 46 25  29 0d 77 56 0f 45 25 2d  |et(E%,F%).wV.E%-|
0001c470  3d 31 3a 46 25 2d 3d 31  0d 77 60 0c 59 25 3d 26  |=1:F%-=1.w`.Y%=&|
0001c480  38 30 30 31 0d 77 6a 1b  e3 43 25 3d 30 b8 45 25  |8001.wj..C%=0.E%|
0001c490  2b 46 25 2a 64 61 74 61  5f 77 69 64 74 68 25 0d  |+F%*data_width%.|
0001c4a0  77 74 09 61 24 3d 22 22  0d 77 7e 05 f5 0d 77 88  |wt.a$="".w~...w.|
0001c4b0  11 4e 3d 5a 25 3f 59 25  3a 59 25 2b 3d 31 0d 77  |.N=Z%?Y%:Y%+=1.w|
0001c4c0  92 0a 61 24 2b 3d bd 4e  0d 77 9c 17 fd 4e 3d 34  |..a$+=.N.w...N=4|
0001c4d0  34 84 4e 3d 31 33 84 4e  3d 31 30 84 4e 3d 30 0d  |4.N=13.N=10.N=0.|
0001c4e0  77 a6 05 ed 0d 77 b0 17  e7 4e 3d 34 34 3a 61 24  |w....w...N=44:a$|
0001c4f0  3d c0 61 24 2c a9 61 24  2d 31 29 0d 77 ba 08 3d  |=.a$,.a$-1).w..=|
0001c500  bb 61 24 0d 77 c4 05 3a  0d 77 ce 16 dd f2 64 61  |.a$.w..:.w....da|
0001c510  74 61 5f 73 67 65 74 28  45 25 2c 46 25 29 0d 77  |ta_sget(E%,F%).w|
0001c520  d8 0f 45 25 2d 3d 31 3a  46 25 2d 3d 31 0d 77 e2  |..E%-=1:F%-=1.w.|
0001c530  0c 59 25 3d 26 38 30 30  31 0d 77 ec 1b e3 43 25  |.Y%=&8001.w...C%|
0001c540  3d 30 b8 45 25 2b 46 25  2a 64 61 74 61 5f 77 69  |=0.E%+F%*data_wi|
0001c550  64 74 68 25 0d 77 f6 07  4d 3d 30 0d 78 00 05 f5  |dth%.w..M=0.x...|
0001c560  0d 78 0a 11 4e 3d 5a 25  3f 59 25 3a 59 25 2b 3d  |.x..N=Z%?Y%:Y%+=|
0001c570  31 0d 78 14 13 62 6c 6f  63 6b 25 3f 4d 3d 4e 3a  |1.x..block%?M=N:|
0001c580  4d 2b 3d 31 0d 78 1e 1d  fd 4e 3d 34 34 84 4e 3d  |M+=1.x...N=44.N=|
0001c590  31 33 84 4e 3d 31 30 84  4e 3d 30 84 4d 3d 32 35  |13.N=10.N=0.M=25|
0001c5a0  35 0d 78 28 14 ed 3a 62  6c 6f 63 6b 25 3f 28 4d  |5.x(..:block%?(M|
0001c5b0  2d 31 29 3d 30 0d 78 32  05 e1 0d 78 3c 05 3a 0d  |-1)=0.x2...x<.:.|
0001c5c0  78 46 3d f4 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 20  |xF=. ********** |
0001c5d0  49 74 27 73 20 6e 69 63  65 20 74 6f 20 6b 6e 6f  |It's nice to kno|
0001c5e0  77 20 77 68 61 74 27 73  20 67 6f 69 6e 67 20 6f  |w what's going o|
0001c5f0  6e 20 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 78 50 05  |n **********.xP.|
0001c600  3a 0d 78 5a 12 dd f2 75  70 64 61 74 65 5f 73 74  |:.xZ...update_st|
0001c610  61 72 74 0d 78 64 ad 67  72 61 70 68 5f 77 69 6e  |art.xd.graph_win|
0001c620  64 6f 77 25 3d a3 3a 21  62 6c 6f 63 6b 25 3d 68  |dow%=.:!block%=h|
0001c630  61 6e 64 6c 65 5f 70 61  6e 65 25 3a c8 99 22 57  |andle_pane%:.."W|
0001c640  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
0001c650  2c 2c 62 6c 6f 63 6b 25  3a 21 62 6c 6f 63 6b 25  |,,block%:!block%|
0001c660  3d 68 61 6e 64 6c 65 5f  66 6f 72 6d 61 74 25 3a  |=handle_format%:|
0001c670  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |.."Wimp_CloseWin|
0001c680  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 3a 21 62 6c  |dow",,block%:!bl|
0001c690  6f 63 6b 25 3d 68 61 6e  64 6c 65 5f 63 72 65 61  |ock%=handle_crea|
0001c6a0  74 65 25 3a c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |te%:.."Wimp_Clos|
0001c6b0  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |eWindow",,block%|
0001c6c0  0d 78 6e 5b 21 62 6c 6f  63 6b 25 3d 2d 31 3a 62  |.xn[!block%=-1:b|
0001c6d0  6c 6f 63 6b 25 21 34 3d  49 25 3a 62 6c 6f 63 6b  |lock%!4=I%:block|
0001c6e0  25 21 38 3d 26 34 30 30  30 30 30 3a 62 6c 6f 63  |%!8=&400000:bloc|
0001c6f0  6b 25 21 31 32 3d 26 34  30 30 30 30 30 3a c8 99  |k%!12=&400000:..|
0001c700  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
0001c710  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 78 78 26 c8  |te",,block%.xx&.|
0001c720  99 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  |."OS_ReadModeVar|
0001c730  69 61 62 6c 65 22 2c 2d  31 2c 31 31 b8 2c 2c 4a  |iable",-1,11.,,J|
0001c740  25 0d 78 82 26 c8 99 22  4f 53 5f 52 65 61 64 4d  |%.x.&.."OS_ReadM|
0001c750  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 2d 31 2c  |odeVariable",-1,|
0001c760  31 32 b8 2c 2c 4b 25 0d  78 8c 30 c8 99 22 4f 53  |12.,,K%.x.0.."OS|
0001c770  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
0001c780  65 22 2c 2d 31 2c 35 b8  2c 2c 4d 3a 4b 25 3d 4b  |e",-1,5.,,M:K%=K|
0001c790  25 2a 28 32 5e 4d 29 0d  78 96 30 c8 99 22 4f 53  |%*(2^M).x.0.."OS|
0001c7a0  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
0001c7b0  65 22 2c 2d 31 2c 34 b8  2c 2c 4d 3a 4a 25 3d 4a  |e",-1,4.,,M:J%=J|
0001c7c0  25 2a 28 32 5e 4d 29 0d  78 a0 1a 4a 25 3d 4a 25  |%*(2^M).x..J%=J%|
0001c7d0  81 32 2d 32 37 32 3a 4b  25 3d 4b 25 81 32 2b 38  |.2-272:K%=K%.2+8|
0001c7e0  38 0d 78 aa 1e 69 6e 64  5f 75 70 64 25 3f 33 35  |8.x..ind_upd%?35|
0001c7f0  3d 34 38 2b 67 72 61 70  68 5f 74 79 70 65 25 0d  |=48+graph_type%.|
0001c800  78 b4 91 21 62 6c 6f 63  6b 25 3d 68 61 6e 64 6c  |x..!block%=handl|
0001c810  65 5f 75 70 64 61 74 65  25 3a 62 6c 6f 63 6b 25  |e_update%:block%|
0001c820  21 34 3d 4a 25 3a 62 6c  6f 63 6b 25 21 38 3d 30  |!4=J%:block%!8=0|
0001c830  3a 62 6c 6f 63 6b 25 21  31 32 3d 4a 25 2b 31 32  |:block%!12=J%+12|
0001c840  30 30 3a 62 6c 6f 63 6b  25 21 31 36 3d 4b 25 3a  |00:block%!16=K%:|
0001c850  62 6c 6f 63 6b 25 21 32  30 3d 30 3a 62 6c 6f 63  |block%!20=0:bloc|
0001c860  6b 25 21 32 34 3d 30 3a  62 6c 6f 63 6b 25 21 32  |k%!24=0:block%!2|
0001c870  38 3d 2d 31 3a c8 99 22  57 69 6d 70 5f 4f 70 65  |8=-1:.."Wimp_Ope|
0001c880  6e 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |nWindow",,block%|
0001c890  0d 78 be 05 e1 0d 78 c8  05 3a 0d 78 d2 10 dd f2  |.x....x..:.x....|
0001c8a0  75 70 64 61 74 65 5f 74  6f 70 0d 78 dc 19 24 28  |update_top.x..$(|
0001c8b0  69 6e 64 5f 75 70 64 25  2b 34 30 29 3d 24 74 65  |ind_upd%+40)=$te|
0001c8c0  78 74 25 0d 78 e6 5a 21  62 6c 6f 63 6b 25 3d 68  |xt%.x.Z!block%=h|
0001c8d0  61 6e 64 6c 65 5f 75 70  64 61 74 65 25 3a 62 6c  |andle_update%:bl|
0001c8e0  6f 63 6b 25 21 34 3d 33  3a 62 6c 6f 63 6b 25 21  |ock%!4=3:block%!|
0001c8f0  38 3d 30 3a 62 6c 6f 63  6b 25 21 31 32 3d 30 3a  |8=0:block%!12=0:|
0001c900  c8 99 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |.."Wimp_SetIconS|
0001c910  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 78 f0  |tate",,block%.x.|
0001c920  1f 24 74 65 78 74 25 3d  22 8f 8f 8f 22 3a f2 75  |.$text%="...":.u|
0001c930  70 64 61 74 65 5f 62 6f  74 74 6f 6d 0d 78 fa 13  |pdate_bottom.x..|
0001c940  f2 70 6f 6c 6c 5f 6d 69  6e 6f 72 6c 6f 6f 70 0d  |.poll_minorloop.|
0001c950  79 04 05 e1 0d 79 0e 05  3a 0d 79 18 13 dd f2 75  |y....y..:.y....u|
0001c960  70 64 61 74 65 5f 62 6f  74 74 6f 6d 0d 79 22 19  |pdate_bottom.y".|
0001c970  24 28 69 6e 64 5f 75 70  64 25 2b 36 33 29 3d 24  |$(ind_upd%+63)=$|
0001c980  74 65 78 74 25 0d 79 2c  5a 21 62 6c 6f 63 6b 25  |text%.y,Z!block%|
0001c990  3d 68 61 6e 64 6c 65 5f  75 70 64 61 74 65 25 3a  |=handle_update%:|
0001c9a0  62 6c 6f 63 6b 25 21 34  3d 34 3a 62 6c 6f 63 6b  |block%!4=4:block|
0001c9b0  25 21 38 3d 30 3a 62 6c  6f 63 6b 25 21 31 32 3d  |%!8=0:block%!12=|
0001c9c0  30 3a c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |0:.."Wimp_SetIco|
0001c9d0  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |nState",,block%.|
0001c9e0  79 36 13 f2 70 6f 6c 6c  5f 6d 69 6e 6f 72 6c 6f  |y6..poll_minorlo|
0001c9f0  6f 70 0d 79 40 05 e1 0d  79 4a 05 3a 0d 79 54 12  |op.y@...yJ.:.yT.|
0001ca00  dd f2 75 70 64 61 74 65  5f 73 6d 61 73 68 0d 79  |..update_smash.y|
0001ca10  5e 37 21 62 6c 6f 63 6b  25 3d 68 61 6e 64 6c 65  |^7!block%=handle|
0001ca20  5f 75 70 64 61 74 65 25  3a c8 99 22 57 69 6d 70  |_update%:.."Wimp|
0001ca30  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 62  |_CloseWindow",,b|
0001ca40  6c 6f 63 6b 25 0d 79 68  55 21 62 6c 6f 63 6b 25  |lock%.yhU!block%|
0001ca50  3d 2d 31 3a 62 6c 6f 63  6b 25 21 34 3d 49 25 3a  |=-1:block%!4=I%:|
0001ca60  62 6c 6f 63 6b 25 21 38  3d 30 3a 62 6c 6f 63 6b  |block%!8=0:block|
0001ca70  25 21 31 32 3d 26 34 30  30 30 30 30 3a c8 99 22  |%!12=&400000:.."|
0001ca80  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
0001ca90  65 22 2c 2c 62 6c 6f 63  6b 25 0d 79 72 05 e1 0d  |e",,block%.yr...|
0001caa0  79 7c 05 3a 0d 79 86 26  dd f2 70 6f 6c 6c 5f 6d  |y|.:.y.&..poll_m|
0001cab0  69 6e 6f 72 6c 6f 6f 70  3a e7 75 70 64 61 74 65  |inorloop:.update|
0001cac0  5f 66 61 73 74 65 72 25  3a e1 0d 79 90 25 c8 99  |_faster%:..y.%..|
0001cad0  22 57 69 6d 70 5f 50 6f  6c 6c 22 2c 26 31 39 33  |"Wimp_Poll",&193|
0001cae0  32 2c 62 6c 6f 63 6b 25  b8 65 76 65 6e 74 25 0d  |2,block%.event%.|
0001caf0  79 9a 2b e7 65 76 65 6e  74 25 3d 32 3a c8 99 22  |y.+.event%=2:.."|
0001cb00  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
0001cb10  2c 2c 62 6c 6f 63 6b 25  3a e1 0d 79 a4 3f e7 65  |,,block%:..y.?.e|
0001cb20  76 65 6e 74 25 3d 31 37  84 65 76 65 6e 74 25 3d  |vent%=17.event%=|
0001cb30  31 38 84 65 76 65 6e 74  25 3d 31 39 3a e7 62 6c  |18.event%=19:.bl|
0001cb40  6f 63 6b 25 21 31 36 3d  38 3a f2 62 79 65 62 79  |ock%!16=8:.byeby|
0001cb50  65 5f 70 72 65 71 75 69  74 0d 79 ae 45 e7 65 76  |e_prequit.y.E.ev|
0001cb60  65 6e 74 25 3d 31 37 84  65 76 65 6e 74 25 3d 31  |ent%=17.event%=1|
0001cb70  38 84 65 76 65 6e 74 25  3d 31 39 3a e7 62 6c 6f  |8.event%=19:.blo|
0001cb80  63 6b 25 21 31 36 3d 30  3a d9 23 58 25 3a f2 62  |ck%!16=0:.#X%:.b|
0001cb90  79 65 62 79 65 5f 73 68  75 74 64 6f 77 6e 0d 79  |yebye_shutdown.y|
0001cba0  b8 3e e7 65 76 65 6e 74  25 3d 36 80 62 6c 6f 63  |.>.event%=6.bloc|
0001cbb0  6b 25 21 38 3d 32 80 62  6c 6f 63 6b 25 21 31 32  |k%!8=2.block%!12|
0001cbc0  3d 68 61 6e 64 6c 65 5f  75 70 64 61 74 65 25 3a  |=handle_update%:|
0001cbd0  f2 6d 65 6e 75 5f 75 70  64 61 74 65 0d 79 c2 1c  |.menu_update.y..|
0001cbe0  e7 65 76 65 6e 74 25 3d  39 3a f2 75 70 64 61 74  |.event%=9:.updat|
0001cbf0  65 5f 66 61 73 74 65 72  0d 79 cc 05 e1 0d 79 d6  |e_faster.y....y.|
0001cc00  05 3a 0d 79 e0 14 dd f2  62 79 65 62 79 65 5f 70  |.:.y....byebye_p|
0001cc10  72 65 71 75 69 74 0d 79  ea 58 4e 3d a4 6d 65 73  |requit.y.XN=.mes|
0001cc20  73 61 67 65 28 22 47 72  61 70 68 50 6c 75 73 20  |sage("GraphPlus |
0001cc30  69 73 20 63 72 65 61 74  69 6e 67 20 61 20 67 72  |is creating a gr|
0001cc40  61 70 68 2e 20 44 6f 20  79 6f 75 20 77 61 6e 74  |aph. Do you want|
0001cc50  20 74 6f 20 74 65 72 6d  69 6e 61 74 65 20 61 70  | to terminate ap|
0001cc60  70 6c 69 63 61 74 69 6f  6e 3f 22 2c 33 29 0d 79  |plication?",3).y|
0001cc70  f4 56 e7 4e 3d 32 3a 4e  3d 62 6c 6f 63 6b 25 21  |.V.N=2:N=block%!|
0001cc80  34 3a 62 6c 6f 63 6b 25  21 34 3d 74 61 73 6b 25  |4:block%!4=task%|
0001cc90  3a 62 6c 6f 63 6b 25 21  31 32 3d 62 6c 6f 63 6b  |:block%!12=block|
0001cca0  25 21 38 3a c8 99 22 57  69 6d 70 5f 53 65 6e 64  |%!8:.."Wimp_Send|
0001ccb0  4d 65 73 73 61 67 65 22  2c 31 39 2c 62 6c 6f 63  |Message",19,bloc|
0001ccc0  6b 25 2c 4e 0d 79 fe 05  e1 0d 7a 08 05 3a 0d 7a  |k%,N.y....z..:.z|
0001ccd0  12 59 dd f2 6d 65 6e 75  5f 75 70 64 61 74 65 3a  |.Y..menu_update:|
0001cce0  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |.."Wimp_CreateMe|
0001ccf0  6e 75 22 2c 2c 6d 65 6e  75 5f 74 61 73 6b 25 2c  |nu",,menu_task%,|
0001cd00  21 62 6c 6f 63 6b 25 2d  36 34 2c 62 6c 6f 63 6b  |!block%-64,block|
0001cd10  25 21 34 3a 6d 65 6e 75  5f 63 75 72 72 65 6e 74  |%!4:menu_current|
0001cd20  25 3d 32 35 36 3a e1 0d  7a 1c 05 3a 0d 7a 26 13  |%=256:..z..:.z&.|
0001cd30  dd f2 75 70 64 61 74 65  5f 66 61 73 74 65 72 0d  |..update_faster.|
0001cd40  7a 30 2c 24 74 65 78 74  25 3d 22 53 69 6e 67 6c  |z0,$text%="Singl|
0001cd50  65 20 74 61 73 6b 69 6e  67 20 6d 6f 64 65 22 3a  |e tasking mode":|
0001cd60  f2 75 70 64 61 74 65 5f  74 6f 70 0d 7a 3a 27 24  |.update_top.z:'$|
0001cd70  74 65 78 74 25 3d 22 50  6c 65 61 73 65 20 77 61  |text%="Please wa|
0001cd80  69 74 22 3a f2 75 70 64  61 74 65 5f 62 6f 74 74  |it":.update_bott|
0001cd90  6f 6d 0d 7a 44 14 75 70  64 61 74 65 5f 66 61 73  |om.zD.update_fas|
0001cda0  74 65 72 25 3d b9 0d 7a  4e 05 e1 0d ff           |ter%=..zN....|
0001cdad