� >:graphs.$.versions.v1
� Plots mathmatical graphs
"� Cartesian, Polar, Parametric
(3� Version 1 + FUNCTION EVALUATOR  A.F.Lane 1990
2
<� � � 0:�:�:�
F�initialise_variables
P� � �error
Z�load_sprites
d�load_templates
n�create_menu
x�initialise_functions
�graph_icon% =�iconbar
�� � �error
�
�assemble
��get_environment
�
�mainloop
��
�
� 
�� �initialise_variables
��set_vocab
��set_stacks
�� caret% 24
�� code% 600

� graph_box% 18

� block% &300

� sprites% 2000

"� buffer% &4000

,� temp% &1500

6� DIM quit_menu% &200

@� DIM main_menu% &300

J� cart_plot%(6)

T� cart_functions$(6)

^ � entered_cart_functions$(6)

h!� current_cart_func_text% 200

r� plot_values% 40320

|� polar_plot%(3)

�� polar_functions$(3)

�!� entered_polar_functions$(3)

�"� current_polar_func_text% 200

�polar_plot%() = �

�� parax_functions$(3)

�� paray_functions$(3)

�cart_plot%() = �

�!� entered_parax_functions$(6)

�!� entered_paray_functions$(6)

�"� current_parax_func_text% 200

�"� current_paray_func_text% 200

�� para_functions$(6)

�� para_plot%(6)
� help_block% 100
� b% 400
� table% 5200
&maxstack% = 50
0� stack%(maxstack%)
:� draw_array% 24000
Dpara_plot%() = �
N$block%= "TASK"
X?ș "Wimp_Initialise",200,!block%,"Graphs" � version%, task%
bcart_plot% = �
lpolar_plot%= �
vpara_plot% = �
�main_menu_open = �
�quit_menu_open = �
�finished% = �
�auto_y_cartaxes% = �
�show_axes%   = �
�cart_axes_yes_icon% = 9
�cart_func_yes_icon% = 6
�cart_func_count_icon% = 3
�cart_func_icon%      =7
�current_cart_func%  = 1
�cart_min_x_icon%    = 5
�cart_max_x_icon%    = 6
�cart_min_y_icon%    = 7
cart_max_y_icon%    = 8

x_icon%=2

y_icon%=3
 old_main_x_origin$ = ""
*old_main_y_origin$ = ""
4main_x_origin% = 0
>main_y_origin% = 0
Hentered_maxx  =  5
Rentered_minx  = -5
\entered_maxy  = 10
fentered_miny  =-10
pauto_y_paraaxes% = �
z%�adjust_axes(maxx,minx,maxy,miny)
�show_coordinates% = �
�default_format% = @%
� increment = (maxx-minx)/1280
� yfactor = 1024/(maxy - miny)
�)y_shift% = 512 +yfactor*(miny+maxy)/2
�degrees% = �
�C�calc_cart_axes(minx,maxx,miny,maxy,yfactor,y_shift%,increment)
�zooming% = �
�para_axes_yes_icon% = 9
�para_min_x_icon% = 5
�para_max_x_icon% = 6
�para_min_y_icon% = 7
�para_max_y_icon% = 8
para_min_t_icon% = 11
para_max_t_icon% = 13
current_para_func% =1
$para_func_yes_icon% = 6
.para_funcx_icon%   =7
8para_funcy_icon%   =11
Bpara_func_count_icon%=3
Lpolar_radius_icon%    = 2
Vpolar_min_icon%       = 4
`polar_max_icon%       = 5
jpolar_axes_yes_icon%  = 7
tpolar_left_icon%      = 4
~polar_func_count_icon%= 3
�polar_right_icon%     = 5
�polar_func_icon%      = 7
�polar_func_yes_icon%  = 6
�polar_colour_icon%    = 9
�auto_polar_axes%      = �
�current_polar_func%   = 1
�#big%                  = 1000000
�max_radius            = 1
�ok_icon%              = 0
�picture%              = 3
�entered_rad           = 1
�"format$               = "data"
sf                    =1

old_sf                =1
save_open%            =�
save1_open%           =�
(�
2 
<
F� �initialise_functions
Pcart_functions$(1) ="X^2"
Zcart_functions$(2) ="X^3"
dcart_functions$(3) ="1/X"
ncart_functions$(4) ="1/X^2"
xcart_functions$(5) ="SINX"
�cart_functions$(6) ="LOGX"
�para_functions$(1) ="2t^2"
�para_functions$(2) ="4t"
�para_functions$(3) ="SINt"
�para_functions$(4) ="COS3t"
�para_functions$(5) ="2t"
�para_functions$(6) ="1/t"
�� graph% = 1 � 6
�?  entered_cart_functions$(graph%) = cart_functions$(graph%)
��
��initialise_para
�window%= cartesian%
�.cart_func_icon%= �update_cart_function( 1)
Hcart_axes_yes_icon%=�change_text(cartaxes%,cart_axes_yes_icon%,"NO")
�tick(main_menu%,5)
�no_tick(main_menu%,6)
"�no_tick(main_menu%,7)
,�no_tick(main_menu%,8)
6�tick(main_menu%,9)
@window% = parametric%
J0para_funcx_icon%= �update_parax_function( 1)
T0para_funcy_icon%= �update_paray_function( 1)
^Hpara_axes_yes_icon%=�change_text(paraaxes%,cart_axes_yes_icon%,"NO")
hwindow% = polar%
r#polar_functions$(1) ="SINtCOSt"
|$polar_functions$(2) ="SIN3tCOS4"
�polar_functions$(3) ="TANt"
�para_functions$(6) ="1/t"
�� graph% = 1 � 3
�A  entered_polar_functions$(graph%) = polar_functions$(graph%)
��
�0polar_func_icon%= �update_polar_function( 1)
�window%= cartesian%
��
�
�
�� �load_sprites
�-S%=�"<Graph$Dir>.Sprites":T%=�#S%+16:�#S%
�� sprites% T%
!sprites%=T%:sprites%!8=1
"ș "OS_SpriteOp",&109,sprites%
8ș "OS_SpriteOp",&10A,sprites%,"<Graph$Dir>.sprites"
&�
0
:
D� �load_templates
N3ș "Wimp_OpenTemplate",,"<Graph$Dir>.templates"
XIș "Wimp_LoadTemplate",,buffer%,temp%+&200,temp%+&2FF,-1,"proginfo",0
b+ș "Wimp_CreateWindow",,buffer% � info%
lEș "Wimp_LoadTemplate",,buffer%,temp%+&300,temp%+&5FF,-1,"save",0
vbuffer%!64 = sprites%
�+ș "Wimp_CreateWindow",,buffer% � save%
�Fș "Wimp_LoadTemplate",,buffer%,temp%+&600,temp%+&8FF,-1,"save1",0
�buffer%!64 = sprites%
�,ș "Wimp_CreateWindow",,buffer% � save1%
�Eș "Wimp_LoadTemplate",,buffer%,temp%+&900,temp%+&9FF,-1,"main",0
�buffer%!64 = sprites%
�+ș "Wimp_CreateWindow",,buffer% � main%
�Iș "Wimp_LoadTemplate",,buffer%,temp%+&A00,temp%+&AFF,-1,"cartaxes",0
�/ș "Wimp_CreateWindow",,buffer% � cartaxes%
�Jș "Wimp_LoadTemplate",,buffer%,temp%+&B00,temp%+&DFF,-1,"cartesian",0
�buffer%!64 = sprites%
�0ș "Wimp_CreateWindow",,buffer% � cartesian%
�Fș "Wimp_LoadTemplate",,buffer%,temp%+&E00,temp%+&EFF,-1,"coord",0
,ș "Wimp_CreateWindow",,buffer% � coord%
Lș "Wimp_LoadTemplate",,buffer%,temp%+&F00,temp%+&10FF,-1,"parametric",0
buffer%!64 = sprites%
 1ș "Wimp_CreateWindow",,buffer% � parametric%
*Kș "Wimp_LoadTemplate",,buffer%,temp%+&1100,temp%+&11FF,-1,"paraaxes",0
4/ș "Wimp_CreateWindow",,buffer% � paraaxes%
>Lș "Wimp_LoadTemplate",,buffer%,temp%+&1200,temp%+&12FF,-1,"polaraxes",0
H0ș "Wimp_CreateWindow",,buffer% � polaraxes%
RHș "Wimp_LoadTemplate",,buffer%,temp%+&1300,temp%+&14FF,-1,"polar",0
\buffer%!64 = sprites%
f,ș "Wimp_CreateWindow",,buffer% � polar%
pș "Wimp_CloseTemplate"
zformat$="data"
�&dummy$=�read_filename_text(save1%)
�format$="draw"
�%dummy$=�read_filename_text(save%)
�$fi%="GraphData"
�$gi%="GraphDraw"
��
�
�
�
�
�
�
�� �error
	� temp%
	temp% = @%
	@% = default_format%
	$� � = 17 �
	.&  �error_message("Escape pressed")
	8	  � 3
	B  �
	L�
	V2  �error_message(�$+" (internal error) "+�(�))
	`�
	j@%=temp%
	t�
	~
	�
	�
	�
	�
	�
	�� �error_message(text$)
	�ș"Hourglass_Smash"
	�ș"Wimp_DragBox",,-1
	�
!block%=�
	�$(block%+4)=text$
	�+ș "Wimp_ReportError",block%,1,"Graphs"
	��





(
2
<� �glass(o%)
F
� o% �
P  ș"Hourglass_On"
Z�
d  ș"Hourglass_Off"
n�
x�
�
�
�
�
�
�
�� �no_tick(menu%,item%)
�byte%=menu%+28+item%*24
�!byte% = !byte% � &FFFFFFFE
��
�
�
�� �tick(menu%,item%)
byte%=menu%+28+item%*24
!byte% = !byte% � 1
�
"
,
6
@
J
T � �tick_reverse(menu%,item%)
^byte%=menu%+28+item%*24
h� !byte% � 1 = 1 �
r!byte% = !byte% � &FFFFFFFE
|�
�!byte% = !byte% � 1
��
��
�
�
�
�
�
�
�� �mainloop
��
��update_coordinates
�	�poll
� finished%
�

&
0� �poll
:Dș "Wimp_Poll",(� show_coordinates% � 1),block% � reason%,block%
DȎ reason% �
N%� 1     : �setsf:�redraw(!block%)
X*� 2     : ș "Wimp_OpenWindow",,block%
b� 3     : �close(!block%)
l#� 4     : �leave_window(block%)
v� 6     : �buttons(block%)
�� 7     : �save
� � 8     : �key_press(block%)
�!� 9     : �menuselect(block%)
�� 17,18 : �receive(block%)
��
��
�
�� �key_press(block%)
�#� window%, icon%, key% ,height%
�window% = !block%
�icon% = block%!4
�height% = block%!16
�key% = block%!24


Ȏ key% �

  � 13 : �return

  � &181 : �f1

   � 27   : �escape_pressed

*

4  ș "Wimp_ProcessKey",key%

>�

H�

R

\
� �return

fȎ window% �

p# � save1%     :format$ = "data"

z                   �quicksave

�# � save%      :format$ = "draw"

�                   �quicksave

� � cartaxes%  :�nextcart

� � paraaxes%  :�nextpara

� � polaraxes% :�nextpolar

��

��

�

�� �nextcart

� �get_caret

�% caret_icon% =(caret_icon%-4)�4+5

�" �caret(cartaxes%,caret_icon%)

��


� �nextpara
$ �get_caret
. Ȏ caret_icon% �
81 � para_min_x_icon% : icon% =para_max_x_icon%
B1 � para_max_x_icon% : icon% =para_min_y_icon%
L1 � para_min_y_icon% : icon% =para_max_y_icon%
V1 � para_max_y_icon% : icon% =para_min_t_icon%
`1 � para_min_t_icon% : icon% =para_max_t_icon%
j1 � para_max_t_icon% : icon% =para_min_x_icon%
t�
~�caret(paraaxes%,icon%)
��
�
�� �nextpolar
� �get_caret
� Ȏ caret_icon% �
�2 � polar_radius_icon%  :icon%= polar_min_icon%
�2 � polar_min_icon%     :icon%= polar_max_icon%
�5 � polar_max_icon%     :icon%= polar_radius_icon%
� �
��caret(polaraxes%,icon%)
��
�




	� �f1
(	A%=@%
2@%=&01000608
<Dcart_min_y_icon%=�change_text(cartaxes%,cart_min_y_icon%,�(-10))
FCcart_max_y_icon%=�change_text(cartaxes%,cart_max_y_icon%,�(10))
PCcart_min_x_icon%=�change_text(cartaxes%,cart_min_x_icon%,�(-5))
ZBcart_max_x_icon%=�change_text(cartaxes%,cart_max_x_icon%,�(5))
d2ș "Wimp_ForceRedraw",cartaxes%,0,-1280,1280,0
n	@%=A%
x�
�
�
�� �caret(window%,icon%)
�3 ș"Wimp_SetCaretPosition",window%,icon%,,,-1,0
��
�
�� �get_caret
�& ș"Wimp_GetCaretPosition",,caret%
� caret_window% = !caret%
� caret_icon% = caret%!4
� caret_height% = caret%!16
��
�

� �update_coordinates
)� show_coordinates% � � polar_plot% �
"$ș "Wimp_GetPointerInfo",,block%
,x$=�(!block%)
6y$=�(block%!4)
@� block%!12 = main% �
JOx=(!block% -main_x_origin%) *(maxx-minx)/1280/sf+minx:� replace by * factor
T<y=(block%!4 - main_y_origin% )* (maxy-miny)/1024/sf+maxy
^� para_plot% � x=x*1.25
h	A%=@%
r@%= &0100070A
|x$=�(x)
�y$=�(y)
�	@%=A%
��
�	x$=""
�	y$=""
��
�8� x$<>old_main_x_origin$  � y$<>old_main_y_origin$ �
�old_main_x_origin$ =x$
�old_main_y_origin$ =y$
�+x_icon%=�change_text(coord%,x_icon%,x$)
�+y_icon%=�change_text(coord%,y_icon%,y$)
�2ș "Wimp_ForceRedraw",coord%,-100,-300,400,100
��
�
�

&
0
:� �redraw(handle%)
D!block% = handle%
N*ș "Wimp_RedrawWindow",,block% � more%
Xȕ more% <> 0
b�get_window_parameters
l�redraw_main_window
v*ș "Wimp_GetRectangle",,block% � more%
��
��
�
�
�
�
�
�
�� �close(parameter%)
�!block% = parameter%
�!ș "Wimp_CloseWindow",,block%
�Ȏ parameter% �
�%� coord% : �no_tick(main_menu%,8)
"              coordinates% = �
�
�
 
*
4
>
H
R
\� �buttons(parameter%)
fmouse_x%= !parameter%
pmouse_y%= parameter%!4
zbutton% = parameter%!8
�window% = parameter%!12
�icon%   = parameter%!16
�� button% � 2 �
�$�menu(window%,mouse_x%,mouse_y%)
��
� � window% = -2 �
�     �open_window(main%)
��
��
�� button% � 4 �
�Ȏ window% �
�C  � main%       : ș "Wimp_ForceRedraw",polaraxes%,0,-500,900,0
�'                     � cart_plot% �
+                        �calculate_cart
H                        ș "Wimp_ForceRedraw",cartaxes%,0,-500,900,0
                     �
$'                     � para_plot% �
.+                        �calculate_para
8H                        ș "Wimp_ForceRedraw",paraaxes%,0,-500,900,0
B                     �
L(                     � polar_plot% �
V,                        �calculate_polar
`I                        ș "Wimp_ForceRedraw",polaraxes%,0,-500,900,0
j                     �
t4  � cartaxes%   : �updatecartaxes(window%,icon%)
~5  � cartesian%  : �updatecartesian(window%,icon%)
�4  � paraaxes%   : �updateparaaxes(window%,icon%)
�6  � parametric% : �updateparametric(window%,icon%)
�5  � polaraxes%  : �updatepolaraxes(window%,icon%)
�1  � polar%      : �updatepolar(window%,icon%)
�&  � save1%      : format$ = "data"
�8                     � icon% = ok_icon% � �quicksave
�B                     � icon% = picture% � �draw_click(window%)
�&  � save%       : format$ = "draw"
�8                     � icon% = ok_icon% � �quicksave
�B                     � icon% = picture% � �draw_click(window%)
�
��
�

� button% � 1 �
Ȏ window% �
  � main% :    �zoom
(�
2�
<�
F�
P
Z
d
n
x
�� �open_window(handle%)
�  !block% = handle%
�&  ș "Wimp_GetWindowState",,block%
�0  block%!28 = -1 : � Ensure window is on top
�"  ș "Wimp_OpenWindow",,block%
��
� 
�
�
�� �menu(window%,x%,y%)
�Ȏ window% �
�*� main% :  menu_block%    = main_menu%
�$              main_menu_open = �
$              quit_menu_open = �
*� -2    :  menu_block%    = quit_menu%
$              main_menu_open = �
"$              quit_menu_open = �
,�
6+ș "Wimp_CreateMenu",,menu_block%,x%,y%
@�
J
T
^
h� �iconbar
rN!block%=-1:block%!4=0:block%!8=0:block%!12=63:block%!16=68:block%!20=&2102
|spname$="!graphs"
�D� block%!24 (�spname$+1):$(block%!24)=spname$:block%!28=sprites%
�block%!32=�spname$+1
�&ș "Wimp_CreateIcon",,block% � ic%
�=ic%
� 
�
�
�
�� �menuselect(block%)
�selection% = !block%
�� main_menu_open �
�#ș"Wimp_GetPointerInfo",,block%
�� block%!8 = 1 �
  � reopen menu
&  ș "Wimp_CreateMenu",,main_menu%
�
&Ȏ selection% �
0� 0  :    �file_data
:� 1  :    �file_graphs
D,� 2  :    � � polar_plot% � �coordinates
N� 3  :    �axes
X� 4  :    �functions
b� 5  :    �select_cartesian
l� 6  :    �select_polar
v � 7  :    �select_parametric
�� 8  :    �degrees
�� 9  :    �axes_flag
�� 10 :    �line
��
��
�Ȏ selection% �
�� 0  : �close_down
�� 1  : �open_window(info%)
��
��
��
�
�


� �leave_window(parameter%)
 
� window%
*window% = !parameter%
4Ȏ window% �
>!�  info%      : �close(info%)
H.� WHEN  cartesian% : PROCextract_cart_func
R-�                   PROCconvert_functions
\2�WHEN  parametric%: PROCextract_para_functions
f2�                   PROCreturn_paraaxes_values
p2�                   PROCconvert_para_functions
z3�WHEN  polar%     : PROCextract_polar_functions
�3�                   PROCconvert_polar_functions
�$�  cartaxes%  : �check_cart_axes
�%�  polaraxes% : �check_polar_axes
�$�  paraaxes%  : �check_para_axes
��
��
�
�
�
�
� 
�
�� �close_down
$block% = "TASK"
%ș "Wimp_CloseDown",task%,!block%
finished% = �
$�
.
8
B
L
V
`� �receive(parameter%)
j
� reason%
tnew_task% = parameter%!4
~ref%=parameter%!8
�reason%=parameter%!16
�Ȏ  reason% �
�� 0   : �close_down
�!� 2   : �datasave(parameter%)
�5� 3,5 : � parameter%!12=0 � �dataload(parameter%)
�� 6   : �memory
�� &502: �help
��
��
� 
�
�� �axes
)� cart_plot%  �open_window(cartaxes%)

)� para_plot%  �open_window(paraaxes%)
*� polar_plot% �open_window(polaraxes%)
�
(
2
<
F
P
Z� �functions
d*� cart_plot%  �open_window(cartesian%)
n+� para_plot%  �open_window(parametric%)
x&� polar_plot% �open_window(polar%)
�  �
�
�
�
�
�
�$� �updatecartaxes(window%,icon%)
�#� icon% = cart_axes_yes_icon% �
�+  auto_y_cartaxes% = � auto_y_cartaxes%
� � auto_y_cartaxes% �
�: cart_axes_yes_icon%=�change_text(window%,icon%,"YES")
�( �deselect(window%,cart_min_y_icon%)
�( �deselect(window%,cart_max_y_icon%)
�
9 cart_axes_yes_icon%=�change_text(window%,icon%,"NO")
( �reselect(window%,cart_min_y_icon%)
"( �reselect(window%,cart_max_y_icon%)
,�
6�
@.ș "Wimp_ForceRedraw",window%,0,-300,800,0
J�
T
^
h
r 
|$� �read_icon_text(window%,icon%)
�!block% = window%
�block%!4 = icon%
�"ș "Wimp_GetIconState",,block%
�text% = block%+ 28
�=$text%
�
�
�
�
�� �deselect(window%,icon%)
�!block% = window%
�block%!4= icon%
�block%!8= 2^22
block%!12 = 2^22
"ș "Wimp_SetIconState",,block%
�
&
0
:
D
N� �reselect(window%,icon%)
X!block% = window%
bblock%!4= icon%
lblock%!8= 0
vblock%!12 = 2^22
�"ș "Wimp_SetIconState",,block%
��
�
�
�
�
�%� �updatecartesian(window%,icon%)
��extract_cart_func
�' � cart_plot%(current_cart_func%) �
�H cart_func_yes_icon%=�change_text(window%,cart_func_yes_icon%,"YES")
��
�G cart_func_yes_icon%=�change_text(window%,cart_func_yes_icon%,"NO")
��
#� icon% = cart_func_yes_icon% �
G  cart_plot%(current_cart_func%) = � cart_plot%(current_cart_func%)
' � cart_plot%(current_cart_func%) �
 : cart_func_yes_icon%=�change_text(window%,icon%,"YES")
*�
49 cart_func_yes_icon%=�change_text(window%,icon%,"NO")
>�
H�
R*� icon% = 4 � current_cart_func% > 1 �
\    current_cart_func% -=1
f]cart_func_count_icon% = �change_text(window%,cart_func_count_icon%,�(current_cart_func%))
p�
z
�*� icon% = 5 � current_cart_func% < 6 �
�    current_cart_func% +=1
�]cart_func_count_icon% = �change_text(window%,cart_func_count_icon%,�(current_cart_func%))
��
�>cart_func_icon%=�update_cart_function( current_cart_func%)
�&� cart_plot%(current_cart_func%) �
�H cart_func_yes_icon%=�change_text(window%,cart_func_yes_icon%,"YES")
��
�G cart_func_yes_icon%=�change_text(window%,cart_func_yes_icon%,"NO")
��
�6�set_graph_colour_icon(window%,current_cart_func%)
�!block% = window%
�.ș "Wimp_ForceRedraw",window%,0,-300,900,0
�

 
$
. 
87��set_graph_colour_icon(window%,current_cart_func%)
Bblock%!0 = window%
Lblock%!4 = 9
V+block%!8 = (9 + current_cart_func%)<<28
`block%!12 = &F <<28
j"ș "Wimp_SetIconState",,block%
t�
~ 
�
�
�'� �change_text(window%,icon%,text$)
�!block% = window%
�block%!4 = icon%
�"ș "Wimp_GetIconState",,block%
�text% = block%+28
�$text% = text$
� ș "Wimp_DeleteIcon",,block%
�*� below% = block% + 4 � block% +35 � 4
�  !below% = below%!4
��
(ș "Wimp_CreateIcon",,block% � icon%


=icon%


(
2
<
F
P#� �update_cart_function( item%)
Z!block% = window%
dblock%!4 = cart_func_icon%
n"ș "Wimp_GetIconState",,block%
x ș "Wimp_DeleteIcon",,block%
�*� below% = block% + 4 � block% +35 � 4
�  !below% = below%!4
��
�text% = block% + 24
�validation% = block% + 28
� buffer_length% = block% + 32
�$!text% = current_cart_func_text%
�!validation% = -1
�!buffer_length% = 100
�=$current_cart_func_text% = entered_cart_functions$(item%)
�(ș "Wimp_CreateIcon",,block% � icon%
�
=icon%
�
6� �return_axes_values(� minx,� maxx,� miny,� maxy)
=entered_minx=��read_icon_text(cartaxes%,cart_min_x_icon%)
=entered_maxx=��read_icon_text(cartaxes%,cart_max_x_icon%)
"=entered_miny=��read_icon_text(cartaxes%,cart_min_y_icon%)
,=entered_maxy=��read_icon_text(cartaxes%,cart_max_y_icon%)
6%�adjust_axes(maxx,minx,maxy,miny)
@�
J
T
^� �extract_cart_func
h!block% = window%
rblock%!4 = cart_func_icon%
|"ș "Wimp_GetIconState",,block%
�>entered_cart_functions$(current_cart_func%) = $(block%!28)
�� graph% = 1 � 6
�> cart_functions$(graph%) = entered_cart_functions$(graph%)
��
��
�
�
�
�� �redraw_main_window
�
�setsf
�� cart_plot% �
��draw_cart_axes
�%�x_plot2(ebx%,etx%-2,ety%,eby%,1)
 � 26
 main_x_origin% =wbx% - xsc%
 main_y_origin% =wty% - ysc%
 &�
 0
 :� para_plot%  �
 D  �draw_cart_axes
 N'  �x_plot1(ebx%,etx%-2,ety%,eby%,1)
 X
  � 26
 b!  main_x_origin% =wbx% - xsc%
 l!  main_y_origin% =wty% - ysc%
 v!  main_x_origin% =wbx% - xsc%
 �!  main_y_origin% =wty% - ysc%
 ��
 �� polar_plot%  �
 �  �draw_polar_axes
 �&  �x_plot(ebx%,etx%-2,ety%,eby%,1)
 �
  � 26
 �!  main_x_origin% =wbx% - xsc%
 �!  main_y_origin% =wty% - ysc%
 ��
 ��
 �
 �� �setsf
 �!b%= main%
!ș "Wimp_GetWindowInfo",,b%
!sf=(b%!12-b%!4)/1280
!multiplier% = sf * 1024
! � old_sf <> sf �
!*/ ș"OS_ReadModeVariable",�,4 � ,,pix_value%
!4 pix_value% +=1
!>  pix_value% = pix_value%/ sf
!H old_sf = sf
!R !b% = main%
!\
 b%!4 = 0
!f b%!8 = -2000
!p b%!12 = 2000
!z b%!16 = 0
!�. ș"Wimp_ForceRedraw",main%,0,-2000,2000,0
!�	 B%=0
!� C%= table%
!� D% = multiplier%
!�� scale
!��
!��
!�
!�
!�� �get_window_parameters
!�wbx% = block%!4
!�wby% = block%!8
!�wtx% = block%!12
"wty% = block%!16
"xsc% = block%!20
"ysc% = block%!24
"$gbx% = block%!28
".gby% = block%!32
"8gtx% = block%!36
"Bgty% = block%!40
"Lhp% = wtx% - wbx%
"Vvp% = wty% -wby%
"`ebx% = xsc% + gbx%-wbx%
"jetx% = xsc%+gtx%-wbx%
"tety%=ysc% + gty%-wty%
"~eby% = ysc%-gby%-wty%
"�&� 26,5,24,gbx%;gby%;gtx%-2;gty%-4;
"�ȑ wbx% - xsc%,wty%-ysc%
"��
"�
"�
"�
"�
"�
"�
"�
"�
"�� �calculate_cart
#� count%, count1%
#

�glass(�)
#count% = 0
#� graph%= 1 � 6
#((   � cart_plot%(graph%) � count% +=1
#2�
#<count1%= count%
#Fwindow% = cartesian%
#P�extract_cart_func
#Z�convert_functions
#d,�return_axes_values(minx,maxx,miny,maxy)
#n�  auto_y_cartaxes% �
#x  count% =count%*2
#�  count1%=count1%*2
#�*  �return_y_range(minx,maxx,miny,maxy)
#��
#� increment = (maxx-minx)/1280
#� yfactor = 1024/(maxy - miny)
#�)y_shift% = 512 +yfactor*(miny+maxy)/2
#�� graph% = 1 � 6
#�,base% = plot_values% +(graph% -1)*1280*4
#�� cart_plot%(graph%) �
#�5ș"Hourglass_Percentage",100-(count1%/count%)*100
#� count1% -=1
#�� X% = 0 � 1280
#�  X= minx+increment*X%
$	  x=X
$
  ok% = �
$	  � �
$"  � � � ok% = � :
$,
  � ok% �
$6A    base%!(X%*4) = yfactor*�cart_functions$(graph%) -y_shift%
$@  �
$J    base%!(X%*4)= -big%
$T  �
$^	  � �
$h�
$r�
$|�
$�C�calc_cart_axes(minx,maxx,miny,maxy,yfactor,y_shift%,increment)
$�
�glass(�)
$�.ș "Wimp_ForceRedraw",main%,0,-1280,1280,0
$��
$�
$�.� �return_y_range(minx,maxx,� miny,� maxy)
$� increment = (maxx-minx)/1280
$�entered_maxy= -10E30
$�entered_miny=  10E30
$�� graph% = 1 � 6
$�� cart_plot%(graph%) �
$�7  ș"Hourglass_Percentage",100-(count1%/count%)*100
$�� X% = 0 � 1280
%  X= minx+increment*X%
%	  x=X
%
  ok% = �
%&	  � �
%0  � � � ok% = �
%:
  � ok% �
%D(    value = �cart_functions$(graph%)
%N3  � value < entered_miny � entered_miny = value
%X3  � value > entered_maxy � entered_maxy = value
%b  �
%l	  � �
%v�
%�  count1%-=1
%��
%��
%�	A%=@%
%�@%=&01000308
%�Mcart_min_y_icon%=�change_text(cartaxes%,cart_min_y_icon%,�(entered_miny))
%�Mcart_max_y_icon%=�change_text(cartaxes%,cart_max_y_icon%,�(entered_maxy))
%�2ș "Wimp_ForceRedraw",cartaxes%,0,-1280,1280,0
%�	@%=A%
%�%�adjust_axes(maxx,minx,maxy,miny)
%��
%�
%�
&
&E� �calc_cart_axes(minx,maxx,miny,maxy,yfactor,y_shift%,increment)
&	A%=@%
& @%=&01000108
&*� 0 >= miny � 0 <= maxy  �
&4  x_axes_level= 0
&>*  x_axes_level% = 0 * yfactor-y_shift%
&H  �
&R'  x_axes_level= �(�((maxy+miny)))/2
&\6  x_axes_level% = x_axes_level  * yfactor-y_shift%
&f�
&p� 0 >= minx � 0 <= maxx  �
&z.  y_axes_level% = 1280/(maxx-minx)*(-minx)
&�  y_axes_level=0
&�  �
&�'  y_axes_level= �(�((maxx+minx)))/2
&�:  y_axes_level% = 1280/(maxx-minx)*(y_axes_level-minx)
&��
&�	@%=A%
&��
&�
&�
&�� �draw_cart_axes
&�� y%,y1%
&�� show_axes%   �
&�y%=y_axes_level%*sf
'y1%=(y_axes_level%-20)*sf
'� para_plot% �
'-  lmx%= 210*sf:lmy%=(x_axes_level%-20)*sf
'$0  rmx%= 1068*sf: rmy% =(x_axes_level%-20)*sf
'.�
'8-  lmx%= 104*sf:lmy%=(x_axes_level%-20)*sf
'B0  rmx%= 1174*sf: rmy% =(x_axes_level%-20)*sf
'L�
'V�0,7
'`� 0,x_axes_level%*sf
'j� 1280*sf,x_axes_level%*sf
't� lmx%,lmy%
'~�1,0,40*sf
'�� rmx%,rmy%
'��1,0,40*sf
'�!� 1100*sf,x_axes_level%*sf-20
'��"y=";�(x_axes_level)
'�
� y%,0
'�� y%,-1050*sf
'�� y1%,-84*sf
'�� 1,40*sf,0
'�� y1%,-938*sf
'�� 1,40*sf,0
'�� y%+10,-50
'�� "x=";�(y_axes_level)
(�
(
�
( 
(
((
(2� �coordinates
(<+show_coordinates% = � show_coordinates%
(F� show_coordinates% �
(P�open_window(coord%)
(Z�tick(main_menu%,2)
(d�
(n�close(coord%)
(x�no_tick(main_menu%,2)
(��
(��
(�
(�
(�� �check_cart_axes
(�,�return_axes_values(minx,maxx,miny,maxy)
(�	A%=@%
(�@%=&01000308
(�� minx >= maxx �
(�  Ȕ minx,maxx
(�  � minx=maxx � maxx=maxx+1
(�H  cart_max_x_icon% =�change_text(cartaxes%,cart_max_x_icon%,�(maxx))
(�H  cart_min_x_icon% =�change_text(cartaxes%,cart_min_x_icon%,�(minx))
)4  ș "Wimp_ForceRedraw",cartaxes%,0,-1280,1280,0
)F  �error_message("X min must be less than X max. Values adjusted")
)�
)"� maxx - minx < 1E-6 �
),B�error_message("There may be errors due to the small X range")
)6�
)@�
)J)� � auto_y_cartaxes% � miny >= maxy �
)T  Ȕ miny,maxy
)^#  � miny = maxy � maxy = maxy+1
)hH  cart_max_y_icon% =�change_text(cartaxes%,cart_max_y_icon%,�(maxy))
)rH  cart_min_y_icon% =�change_text(cartaxes%,cart_min_y_icon%,�(miny))
)|4  ș "Wimp_ForceRedraw",cartaxes%,0,-1280,1280,0
)�F  �error_message("Y min must be less than Y max. Values adjusted")
)��
)��
)�
)�
)�� �axes_flag
)�show_axes% = � show_axes%
)�� show_axes% �
)�  �tick(main_menu%,9)
)��
)�  �no_tick(main_menu%,9)
)��
)�.ș "Wimp_ForceRedraw",main%,0,-1280,1280,0
*�
*
*� �degrees
*&degrees% = � degrees%
*0� degrees% �
*:  �tick(main_menu%,8)
*D�
*N  �no_tick(main_menu%,8)
*X�
*b�
*l
*v
*�
*�
*�� �convert_functions
*�� gra% = 1 � 6
*�� cart_plot%(gra%) �
*�8cart_functions$(gra%)= �upper(cart_functions$(gra%))
*�G�convert(cart_functions$(gra%),"X",cart_functions$(gra%),error_no%)
*�� error_no% <> 0 �
*�(  �report_func_error(gra%,error_no%)
*�  cart_plot%(gra%)=�
*�$  �updatecartesian(cartesian%,9)
*��
*�$�ext_func(cart_functions$(gra%))
+�
+�
+�
+ 
+*
+4
+>#� �replace(object$,target$,by$)
+H� start%, position%
+Rstart% = �object$,target$)
+\
ȕ start%
+f.position% = �(object$)-�(target$)-start%+1
+p8object$ = �object$,start%-1)+by$+�object$,position%)
+z,start% = �object$,target$,start%+�(by$))
+��
+�=object$
+�
+�
+�
+�/� �adjust_axes(� maxx,� minx,� maxy,� miny)
+�� average,sf
+�sf= 1.2
+�-average =  (entered_maxx +entered_minx)/2
+�*maxx=(entered_maxx-average)*sf+average
+�*minx=(entered_minx-average)*sf+average
+�-average =  (entered_maxy +entered_miny)/2
+�*maxy=(entered_maxy-average)*sf+average
,*miny=(entered_miny-average)*sf+average
,�
,
,$
,.� �zoom
,8� A%
,B� � zooming% � cart_plot% �
,Lzooming% = �
,V� 26
,`!block% = main%
,j#ș "Wimp_GetWindowInfo",,block%
,t.�24,block%!4;block%!8;block%!12;block%!16;
,~�4,5
,�$ș "Wimp_GetPointerInfo",,block%
,�x1% =  !block%
,�y1% =  block%!4
,��
,� ȗ mx,my,b
,�	� b=0
,��
,� ȗ mx,my,b
,� x2% =  mx
,� y2% =  my
,� ȓ x1%,y1%,x2%-x1%,y2%-y1%
,� Ȗ
- ȓ x1%,y1%,x2%-x1%,y2%-y1%
-
 ȗ mx,my,b
-� b = 1 � b=4
-	A%=@%
-(@%=&01000608
-2� x1% > x2% � Ȕ x1%,x2%
-<� y1% > y2% � Ȕ y1%,y2%
-F:n_minx=(x1% -main_x_origin%) *(maxx-minx)/1280/sf+minx
-P:n_maxx=(x2% -main_x_origin%) *(maxx-minx)/1280/sf+minx
-Z<n_miny=(y1% - main_y_origin% )* (maxy-miny)/1024/sf+maxy
-d<n_maxy=(y2% - main_y_origin% )* (maxy-miny)/1024/sf+maxy
-n;� b=1 � �(n_miny) <>�(n_maxy) � �(n_minx) <>�(n_maxx) �
-xminx = n_minx
-�miny = n_miny
-�maxx = n_maxx
-�maxy = n_maxy
-�Ecart_min_y_icon%=�change_text(cartaxes%,cart_min_y_icon%,�(miny))
-�Ecart_max_y_icon%=�change_text(cartaxes%,cart_max_y_icon%,�(maxy))
-�Ecart_min_x_icon%=�change_text(cartaxes%,cart_min_x_icon%,�(minx))
-�Ecart_max_x_icon%=�change_text(cartaxes%,cart_max_x_icon%,�(maxx))
-�2ș "Wimp_ForceRedraw",cartaxes%,0,-1280,1280,0
-��calculate_cart
-��
-�	@%=A%
-�zooming% = �
-��
.�
.
.� �fact(x%)
."� sum, count%
.,sum = 1
.6� x% > 1 �
.@� count% = 2 � x%
.J sum = sum * count%
.T�
.^�
.h=sum
.r 
.|� �cosh(x)
.�=0.5*(�(x)+�(-x))
.�
.�� �sinh(x)
.�=0.5*(�(x)-�(-x))
.� 
.�� �tanh(x)
.�=�sinh(x)/�cosh(x)
.�
.�� �arccosh(x)
.�=�(x+(x*x-1)^0.5)
.�
.�� �arcsinh(x)
.�=�(x+(x*x+1)^0.5)
/
/� �arctanh(x)
/=0.5*�((1+x)/(1-x))
/&
/0� �upper(text$)
/:� result$,i%,c$
/Dresult$=""
/N� i% = 1 � �text$
/X c$=�text$,i%,1)
/b* � c$>="a" � c$<="z" � c$=�(�(c$)�&DF)
/l result$=result$+c$
/v�
/�=result$
/�
/�� �select_cartesian
/�cart_plot% = �
/�polar_plot%= �
/�para_plot% = �
/��no_tick(main_menu%,6)
/��no_tick(main_menu%,7)
/��tick(main_menu%,5)
/��close(parametric%)
/��close(paraaxes%)
/��close(polar%)
/��close(polaraxes%)
0�open_window(cartaxes%)
0�open_window(cartesian%)
0�calculate_cart
0 � show_coordinates% �
0*�open_window(coord%)
04�
0>�
0H
0R
0\� �select_polar
0fwindow%= polar%
0pcart_plot% = �
0zpolar_plot%= �
0�para_plot% = �
0��no_tick(main_menu%,5)
0��no_tick(main_menu%,7)
0��tick(main_menu%,6)
0��close(parametric%)
0��close(paraaxes%)
0��close(cartesian%)
0��close(cartaxes%)
0��close(coord%)
0��close(polaraxes%)
0��open_window(polar%)
0��open_window(polaraxes%)
0��calculate_polar
1�
1
1
1$� �select_parametric
1.window%=parametric%
18cart_plot% = �
1Bpolar_plot%= �
1Lpara_plot% = �
1V�no_tick(main_menu%,6)
1`�no_tick(main_menu%,5)
1j�tick(main_menu%,7)
1t�close(cartesian%)
1~�close(cartaxes%)
1��close(polar%)
1��close(polaraxes%)
1��open_window(paraaxes%)
1��open_window(parametric%)
1�� show_coordinates% �
1��open_window(coord%)
1��
1��calculate_para
1��
1�
1�
1�$� �updateparaaxes(window%,icon%)
2#� icon% = para_axes_yes_icon% �
2
+  auto_y_paraaxes% = � auto_y_paraaxes%
2 � auto_y_paraaxes% �
2: para_axes_yes_icon%=�change_text(window%,icon%,"YES")
2(( �deselect(window%,para_min_y_icon%)
22( �deselect(window%,para_max_y_icon%)
2<( �deselect(window%,para_min_x_icon%)
2F( �deselect(window%,para_max_x_icon%)
2P�
2Z9 para_axes_yes_icon%=�change_text(window%,icon%,"NO")
2d( �reselect(window%,para_min_y_icon%)
2n( �reselect(window%,para_max_y_icon%)
2x( �reselect(window%,para_min_x_icon%)
2�( �reselect(window%,para_max_x_icon%)
2��
2��
2�.ș "Wimp_ForceRedraw",window%,0,-500,800,0
2��
2�
2�
2�&� �updateparametric(window%,icon%)
2��extract_para_func
2�' � para_plot%(current_para_func%) �
2�H para_func_yes_icon%=�change_text(window%,para_func_yes_icon%,"YES")
2��
2�G para_func_yes_icon%=�change_text(window%,para_func_yes_icon%,"NO")
3�
3#� icon% = para_func_yes_icon% �
3G  para_plot%(current_para_func%) = � para_plot%(current_para_func%)
3"' � para_plot%(current_para_func%) �
3,: para_func_yes_icon%=�change_text(window%,icon%,"YES")
36�
3@9 para_func_yes_icon%=�change_text(window%,icon%,"NO")
3J�
3T�
3^*� icon% = 4 � current_para_func% > 1 �
3h    current_para_func% -=1
3r]para_func_count_icon% = �change_text(window%,para_func_count_icon%,�(current_para_func%))
3|�
3�*� icon% = 5 � current_para_func% < 3 �
3�    current_para_func% +=1
3�]para_func_count_icon% = �change_text(window%,para_func_count_icon%,�(current_para_func%))
3��
3�A para_funcx_icon%=�update_parax_function( current_para_func%)
3�A para_funcy_icon%=�update_paray_function( current_para_func%)
3�&� para_plot%(current_para_func%) �
3�H para_func_yes_icon%=�change_text(window%,para_func_yes_icon%,"YES")
3��
3�G para_func_yes_icon%=�change_text(window%,para_func_yes_icon%,"NO")
3��
3�6�set_graph_colour_icon(window%,current_para_func%)
3�!block% = window%
4.ș "Wimp_ForceRedraw",window%,0,-300,900,0
4�
4
4&$� �update_parax_function( item%)
40!block% = window%
4:block%!4 = para_funcx_icon%
4D"ș "Wimp_GetIconState",,block%
4N ș "Wimp_DeleteIcon",,block%
4X*� below% = block% + 4 � block% +35 � 4
4b  !below% = below%!4
4l�
4vtext% = block% + 24
4�validation% = block% + 28
4� buffer_length% = block% + 32
4�%!text% = current_parax_func_text%
4�!validation% = -1
4�!buffer_length% = 200
4�?$current_parax_func_text% = entered_parax_functions$(item%)
4�(ș "Wimp_CreateIcon",,block% � icon%
4�
=icon%
4�
4�$� �update_paray_function( item%)
4�!block% = window%
4�block%!4 = para_funcy_icon%
4�"ș "Wimp_GetIconState",,block%
5 ș "Wimp_DeleteIcon",,block%
5*� below% = block% + 4 � block% +35 � 4
5  !below% = below%!4
5 �
5*text% = block% + 24
54validation% = block% + 28
5> buffer_length% = block% + 32
5H%!text% = current_paray_func_text%
5R!validation% = -1
5\!buffer_length% = 200
5f?$current_paray_func_text% = entered_paray_functions$(item%)
5p(ș "Wimp_CreateIcon",,block% � icon%
5z
=icon%
5�
5�
5�
5�� �extract_para_func
5�!block% = window%
5�block%!4 = para_funcx_icon%
5�"ș "Wimp_GetIconState",,block%
5�?entered_parax_functions$(current_para_func%) = $(block%!28)
5�!block% = window%
5�block%!4 = para_funcy_icon%
5�"ș "Wimp_GetIconState",,block%
5�?entered_paray_functions$(current_para_func%) = $(block%!28)
5�� graph% = 1 � 3
6@ parax_functions$(graph%) = entered_parax_functions$(graph%)
6@ paray_functions$(graph%) = entered_paray_functions$(graph%)
6�
6$�
6.
68
6B
6L� �initialise_para
6V4entered_parax_functions$(1) = para_functions$(1)
6`4entered_paray_functions$(1) = para_functions$(2)
6j4entered_parax_functions$(2) = para_functions$(3)
6t4entered_paray_functions$(2) = para_functions$(4)
6~4entered_parax_functions$(3) = para_functions$(5)
6�4entered_paray_functions$(3) = para_functions$(6)
6�� graph% = 1 � 3
6�A  parax_functions$(graph%) = entered_parax_functions$(graph%)
6�A  paray_functions$(graph%) = entered_paray_functions$(graph%)
6��
6��
6�� �calculate_para
6�� count%, count1%
6�
�glass(�)
6�count% = 0
6�� graph%= 1 � 3
6�(   � para_plot%(graph%) � count% +=1
7�
7
count1%= count%
7�extract_para_functions
7�convert_para_functions
7(�return_paraaxes_values
72�  auto_y_paraaxes% �
7<  count% =count%*2
7F  count1%=count1%*2
7P3 �ret_para_range(minx,maxx,miny,maxy,mint,maxt)
7Z�
7d increment = (maxt-mint)/1280
7n yfactor = 1024/(maxy - miny)
7x)y_shift% = 512 +yfactor*(miny+maxy)/2
7� xfactor = 1024/(maxx - minx)
7�'x_shift%=-640+xfactor*(minx+maxx)/2
7�� graph% = 1 � 3
7�� para_plot%(graph%) �
7�5ș"Hourglass_Percentage",100-(count1%/count%)*100
7� count1% -=1
7�X% = graph%*2-2
7�Y% = graph%*2-1
7�#xbase% = plot_values%+X%*1280*4
7�#ybase% = plot_values%+Y%*1280*4
7�� T% = 0 � 1280
7�  T= mint+increment*T%
7�	  t=T
8
  ok% = �
8	  � �
8  � � � ok% = �
8"
  � ok% �
8,?    ybase%!(T%*4) = yfactor*�para_functions$(Y%+1)-y_shift%
86  �
8@    ybase%!(T%*4) = big%
8J  �
8T	  � �
8^
  ok% = �
8h	  � �
8r  � � � ok% = �
8|
  � ok% �
8�@    xbase%!(T%*4)  = xfactor*�para_functions$(X%+1)-x_shift%
8�  �
8�    xbase%!(T%*4) = big%
8�  �
8�	  � �
8��
8��
8��
8�C�calc_para_axes(minx,maxx,miny,maxy,yfactor,y_shift%,increment)
8�
�glass(�)
8�.ș "Wimp_ForceRedraw",main%,0,-1280,1280,0
8��
8�� �return_paraaxes_values
9=entered_minx=��read_icon_text(paraaxes%,para_min_x_icon%)
9=entered_maxx=��read_icon_text(paraaxes%,para_max_x_icon%)
9=entered_miny=��read_icon_text(paraaxes%,para_min_y_icon%)
9&=entered_maxy=��read_icon_text(paraaxes%,para_max_y_icon%)
905mint=��read_icon_text(paraaxes%,para_min_t_icon%)
9:5maxt=��read_icon_text(paraaxes%,para_max_t_icon%)
9D%�adjust_axes(maxx,minx,maxy,miny)
9N�
9X 
9b
9l� �extract_para_functions
9v!block% = parametric%
9�block%!4 = para_funcx_icon%
9�"ș "Wimp_GetIconState",,block%
9�?entered_parax_functions$(current_para_func%) = $(block%!28)
9�block%!4 = para_funcy_icon%
9�"ș "Wimp_GetIconState",,block%
9�?entered_paray_functions$(current_para_func%) = $(block%!28)
9�� graph% = 1 � 3
9�A para_functions$(graph%*2) = entered_paray_functions$(graph%)
9�C para_functions$(graph%*2-1) = entered_parax_functions$(graph%)
9��
9��
9� 
9�
:� �convert_para_functions
:� gra% = 1 � 6
:"� para_plot%((gra% + 1) � 2) �
: :  para_functions$(gra%)= �upper(para_functions$(gra%))
:*I  �convert(para_functions$(gra%),"T",para_functions$(gra%),error_no%)
:4  � error_no% <> 0 �
:>*    �report_func_error(gra%,error_no%)
:H!    para_plot%((gra%+1)� 2)=�
:R(    �updateparametric(parametric%,9)
:\  �
:f% �ext_func(para_functions$(gra%))
:p�
:z�
:��
:�
:�
:�
:�
:�K��ret_para_range(RETURNminx,RETURNmaxx,RETURNminy,RETURNmaxy,mint,maxt)
:� increment = (maxt-mint)/1280
:�entered_maxy= -10E30
:�entered_miny=  10E30
:�entered_maxx= -10E30
:�entered_minx=  10E30
:�� graph% = 1 � 3
:�X% = graph%*2-1
;Y% = graph%*2
;� para_plot%(graph%) �
;7  ș"Hourglass_Percentage",100-(count1%/count%)*100
;$� T% = 0 � 1280
;.  T= mint+increment*T%
;8	  t=T
;B
  ok% = �
;L	  � �
;V  � � � ok% = �
;`
  � ok% �
;j$    value = �para_functions$(Y%)
;t3  � value < entered_miny � entered_miny = value
;~3  � value > entered_maxy � entered_maxy = value
;�  �
;�	  � �
;�
  ok% = �
;�	  � �
;�  � � � ok% = �
;�
  � ok% �
;�$    value = �para_functions$(X%)
;�3  � value < entered_minx � entered_minx = value
;�3  � value > entered_maxx � entered_maxx = value
;�  �
;�	  � �
;��
<  count1%-=1
<
�
<�
<	A%=@%
<(@%=&01000308
<2Mpara_min_y_icon%=�change_text(paraaxes%,para_min_y_icon%,�(entered_miny))
<<Mpara_max_y_icon%=�change_text(paraaxes%,para_max_y_icon%,�(entered_maxy))
<FMpara_min_x_icon%=�change_text(paraaxes%,para_min_x_icon%,�(entered_minx))
<PMpara_max_x_icon%=�change_text(paraaxes%,para_max_x_icon%,�(entered_maxx))
<Zminx = entered_minx
<dmaxx = entered_maxx
<nminy = entered_miny
<xmaxy = entered_maxy
<�2ș "Wimp_ForceRedraw",paraaxes%,0,-1280,1280,0
<�	@%=A%
<�%�adjust_axes(maxx,minx,maxy,miny)
<��
<�
<�
<�E� �calc_para_axes(minx,maxx,miny,maxy,yfactor,y_shift%,increment)
<�	A%=@%
<�@%=&01000108
<�� 0 >= miny � 0 <= maxy  �
<�  x_axes_level= 0
<�*  x_axes_level% = 0 * yfactor-y_shift%
<�  �
='  x_axes_level= �(�((maxy+miny)))/2
=6  x_axes_level% = x_axes_level  * yfactor-y_shift%
=�
="� 0 >= minx � 0 <= maxx  �
=,.  y_axes_level% = 1280/(maxx-minx)*(-minx)
=6  y_axes_level=0
=@  �
=J'  y_axes_level= �(�((maxx+minx)))/2
=T:  y_axes_level% = 1280/(maxx-minx)*(y_axes_level-minx)
=^�
=h	@%=A%
=r�
=| 
=�
=�
=�%� �updatepolaraxes(window%,icon%)
=�$� icon% = polar_axes_yes_icon% �
=�*  auto_polar_axes%= � auto_polar_axes%
=� � auto_polar_axes% �
=�; polar_axes_yes_icon%=�change_text(window%,icon%,"YES")
=�* �deselect(window%,polar_radius_icon%)
=��
=�: polar_axes_yes_icon%=�change_text(window%,icon%,"NO")
=�* �reselect(window%,polar_radius_icon%)
=��
=��
>.ș "Wimp_ForceRedraw",window%,0,-300,800,0
>�
>
>&
>0
>: 
>D
>N� �calculate_polar
>X� count%, count1%
>bwindow% = polar%
>l
�glass(�)
>vcount% = 0
>�� graph%= 1 � 3
>�)   � polar_plot%(graph%) � count% +=1
>��
>�count1%= count%
>��extract_polar_functions
>��convert_polar_functions
>��return_polaraxes_values
>��  auto_polar_axes% �
>�  count% =count%*2
>�  count1%=count1%*2
>� �return_radius
>��
>�*increment = (max_theta-min_theta)/1280
?� radius = 0 � radius = 1
?yfactor = 512/radius
?y_shift% = 512
? x_shift% = 640
?*�  degrees% �
?4� graph% = 1 � 3
?>x% = graph% *2 -2
?Hy% = graph% *2 -1
?R(xbase% = plot_values% + x% *4 * 1280
?\(ybase% = plot_values% + y% *4 * 1280
?f� polar_plot%(graph%) �
?p5ș"Hourglass_Percentage",100-(count1%/count%)*100
?z count1% -=1
?�� angle% = 0 � 1280
?�#  T= min_theta+increment*angle%
?�	  t=T
?�
  ok% = �
?�	  � �
?�  � � � ok% = �
?�
  � ok% �
?�*    result = �polar_functions$(graph%)
?�  �
?�    result = big%
?�  �
?� � �
?�8  xbase%!(angle%*4) = yfactor*result*��(t)+ x_shift%
@8  ybase%!(angle%*4) = yfactor*result*��(t)- y_shift%
@�
@�
@$�
@.�
@8� graph% = 1 � 3
@Bx% = graph% *2 -2
@Ly% = graph% *2 -1
@V(xbase% = plot_values% + x% *4 * 1280
@`(ybase% = plot_values% + y% *4 * 1280
@j� polar_plot%(graph%) �
@t5ș"Hourglass_Percentage",100-(count1%/count%)*100
@~ count1% -=1
@�� angle% = 0 � 1280
@�#  T= min_theta+increment*angle%
@�	  t=T
@�
  ok% = �
@�	  � �
@�  � � � ok% = �
@�
  � ok% �
@�*    result = �polar_functions$(graph%)
@�  �
@�    result = big%
@�  �
@� � �
A8  xbase%!(angle%*4)  = yfactor*result*�(t)+ x_shift%
A
7  ybase%!(angle%*4) = yfactor*result*�(t)- y_shift%
A�
A�
A(�
A2�
A<
�glass(�)
AF.ș "Wimp_ForceRedraw",main%,0,-1280,1280,0
AP�
AZ 
Ad
An
Ax
A�� �return_polaraxes_values
A�<entered_min=��read_icon_text(polaraxes%,polar_min_icon%)
A�<entered_max=��read_icon_text(polaraxes%,polar_max_icon%)
A�?entered_rad=��read_icon_text(polaraxes%,polar_radius_icon%)
A�min_theta = entered_min
A�max_theta = entered_max
A�radius = entered_rad*1.2
A��
A�
A�!� �updatepolar(window%,icon%)
A��extract_polar_functions
A�) � polar_plot%(current_polar_func%) �
A�J polar_func_yes_icon%=�change_text(window%,polar_func_yes_icon%,"YES")
B�
BI polar_func_yes_icon%=�change_text(window%,polar_func_yes_icon%,"NO")
B�
B"$� icon% = polar_func_yes_icon% �
B,K  polar_plot%(current_polar_func%) = � polar_plot%(current_polar_func%)
B6) � polar_plot%(current_polar_func%) �
B@; polar_func_yes_icon%=�change_text(window%,icon%,"YES")
BJ�
BT: polar_func_yes_icon%=�change_text(window%,icon%,"NO")
B^�
Bh�
Br+� icon% = 4 � current_polar_func% > 1 �
B|    current_polar_func% -=1
B�`polar_func_count_icon% = �change_text(window%,polar_func_count_icon%,�(current_polar_func%))
B��
B�+� icon% = 5 � current_polar_func% < 3 �
B�    current_polar_func% +=1
B�`polar_func_count_icon% = �change_text(window%,polar_func_count_icon%,�(current_polar_func%))
B��
B�Apolar_func_icon%=�update_polar_function( current_polar_func%)
B�(� polar_plot%(current_polar_func%) �
B�J polar_func_yes_icon%=�change_text(window%,polar_func_yes_icon%,"Yes")
B��
B�I polar_func_yes_icon%=�change_text(window%,polar_func_yes_icon%,"No")
B��
B�7�set_graph_colour_icon(window%,current_polar_func%)
C!block% = window%
C.ș "Wimp_ForceRedraw",window%,0,-300,900,0
C�
C&
C0
C:$� �update_polar_function( item%)
CD!block% = window%
CNblock%!4 = polar_func_icon%
CX"ș "Wimp_GetIconState",,block%
Cb ș "Wimp_DeleteIcon",,block%
Cl*� below% = block% + 4 � block% +35 � 4
Cv  !below% = below%!4
C��
C�text% = block% + 24
C�validation% = block% + 28
C� buffer_length% = block% + 32
C�%!text% = current_polar_func_text%
C�!validation% = -1
C�!buffer_length% = 100
C�?$current_polar_func_text% = entered_polar_functions$(item%)
C�(ș "Wimp_CreateIcon",,block% � icon%
C�
=icon%
C�
C�
C�� �extract_polar_functions
D!block% = window%
Dblock%!4 = polar_func_icon%
D"ș "Wimp_GetIconState",,block%
D @entered_polar_functions$(current_polar_func%) = $(block%!28)
D*� graph% = 1 � 3
D4@ polar_functions$(graph%) = entered_polar_functions$(graph%)
D>�
DH�
DR
D\
Df
Dp
Dz� �convert_polar_functions
D�� gra% = 1 � 3
D�� polar_plot%(gra%) �
D�:polar_functions$(gra%)= �upper(polar_functions$(gra%))
D�I�convert(polar_functions$(gra%),"T",polar_functions$(gra%),error_no%)
D�� error_no% <> 0 �
D�(  �report_func_error(gra%,error_no%)
D�  polar_plot%(gra%)=�
D��updatepolar(polar%,9)
D��
D�%�ext_func(polar_functions$(gra%))
D��
D��
D��
E
E
E� �check_polar_axes
E$� � auto_polar_axes% �
E.�return_polaraxes_values
E8� min_theta >= max_theta �
EB Ȕ min_theta, max_theta
EL4 � min_theta = max_theta � max_theta=max_theta+1
EVN �error_message("Min angle must be less than Max angle. Values adjusted.")
E`K polar_min_icon% =�change_text(polaraxes%,polar_min_icon%,�(min_theta))
EjK polar_max_icon% =�change_text(polaraxes%,polar_max_icon%,�(max_theta))
Et4 ș "Wimp_ForceRedraw",polaraxes%,0,-1280,1280,0
E~�
E��
E��
E�
E�
E�� �check_para_axes
E�� � auto_y_paraaxes% �
E��return_paraaxes_values
E�$� entered_maxx <= entered_minx �
E�"  Ȕ entered_minx,entered_maxx
E�?  � entered_minx=entered_maxx � entered_maxx=entered_maxx+1
E�Mpara_max_x_icon%=�change_text(paraaxes%,para_max_x_icon%,�(entered_maxx))
E�Mpara_min_x_icon%=�change_text(paraaxes%,para_min_x_icon%,�(entered_minx))
F4  ș "Wimp_ForceRedraw",paraaxes%,0,-1280,1280,0
F
F  �error_message("X min must be less than X max. Values adjusted")
F�
F$� entered_maxy <= entered_miny �
F("  Ȕ entered_miny,entered_maxy
F2?  � entered_miny=entered_maxy � entered_maxy=entered_maxy+1
F<Mpara_max_y_icon%=�change_text(paraaxes%,para_max_y_icon%,�(entered_maxy))
FFMpara_min_y_icon%=�change_text(paraaxes%,para_min_y_icon%,�(entered_miny))
FP4  ș "Wimp_ForceRedraw",paraaxes%,0,-1280,1280,0
FZF  �error_message("Y min must be less than Y max. Values adjusted")
Fd�
Fn� maxt <= mint �
Fx  Ȕ mint,maxt
F�  � mint=maxt � maxt=maxt+1
F�H  para_max_t_icon% =�change_text(paraaxes%,para_max_t_icon%,�(maxt))
F�H  para_min_t_icon% =�change_text(paraaxes%,para_min_t_icon%,�(mint))
F�4  ș "Wimp_ForceRedraw",paraaxes%,0,-1280,1280,0
F�F  �error_message("t min must be less than t max. Values adjusted")
F��
F��
F��
F�
F�� �return_radius
F�max_radius=0
F�*increment = (max_theta-min_theta)/1280
F�� graph% = 1 � 3
G� polar_plot%(graph%) �
G7  ș"Hourglass_Percentage",100-(count1%/count%)*100
G� angle% = 0 � 1280
G"#  T= min_theta+increment*angle%
G,	  t=T
G6
  ok% = �
G@	  � �
GJ  � � � ok% = �
GT
  � ok% �
G^*    result = �polar_functions$(graph%)
Gh  �
Gr    result =0
G|  �
G�	  � �
G�   � �(result) > max_radius �
G�    max_radius = �(result)
G�  �
G��
G�  count1%-=1
G��
G��
G�radius=max_radius*1.2
G�	A%=@%
G�@%=&01000308
G�entered_rad = max_radius
G�Rpolar_radius_icon% =�change_text(polaraxes%,polar_radius_icon%,�(entered_rad))
H3ș "Wimp_ForceRedraw",polaraxes%,0,-1280,1280,0
H	@%=A%
H�
H&
H0
H:� �draw_polar_axes
HD� show_axes% �
HNș"Wimp_SetColour",1
HXȏ  640*sf,-512*sf,106*sf
Hbȏ 640*sf,-512*sf,213*sf
Hlȏ  640*sf,-512*sf,320*sf
Hvȏ  640*sf,-512*sf,427*sf
H�� 1067*sf,-512*sf
H�� 220*sf,-512*sf
H�� 640*sf,-85*sf
H�� 640*sf,-939*sf
H�� 942*sf,-210*sf
H�� 338*sf,-814*sf
H�� 338*sf,-210*sf
H�� 942*sf,-814*sf
H�� 1070*sf,-512*sf
H�	A%=@%
H�@%=&01000308
H�� �(entered_rad)
H�	@%=A%
I�
I�
I
I 
I*� �assemble
I4� pass% = 0 � 2 � 2
I>
P%= code%
IH[ OPT pass%
IRMOV R12, R1
I\MOV R9, #0
If5MOV R11, R0 ;            put table start into r11
Ip	.LOOP
IzMOV R4, #1280
I�MOV R0, #69
I�,LDR R1, [R6] ;           get the x value
I�/CMP R1 , #0 ;            is it out of range
I�BMI noplot
I�/CMP R1, R4;              is it out of range
I�BPL noplot
I�;ADD R1, R11, R1, LSL #2; add table start to x value * 4
I�1LDR R1,[R1]          ;   get value from table
I�LDR R8,graph_box%
I�CMP R1, R8
I�BMI noplot
I�LDR R8,graph_box%+4
I�(CMP R1,R8;               range check
JBPL noplot
JLDR R2, [R7]
J-RSB R2, R2, #0;          make r2 positive
J$/CMP R2, #0 ;             is it out of range
J.BMI noplot
J8/CMP R2, R4 ;             is it out of range
JBBPL noplot
JL;ADD R2,R11,R2, LSL#2 ;   add table start to y value * 4
JV1LDR R2,[R2]          ;   get value from table
J`-RSB R2, R2, #0;          make r2 negative
JjLDR R8, graph_box%+8
Jt
CMP R2,R8
J~BPL noplot
J�LDR R8, graph_box%+12
J�CMP R2, R8
J�BMI noplot
J�CCMP R1, R9;             is this point the same as the previous?
J�BNE doplot
J�CMP R2,R10
J�5BEQ noplot;             yes so dont plot it again
J�.doplot
J�SWI "OS_Plot"
J�5MOV R9,R1     ;          store last plotted point
J�MOV R10,R2
J�.noplot
KADD R6, R6, #4
K
ADD R7, R7, #4
KSUB R5, R5, #4
KCMP R5, #0
K(BGT LOOP
K2MOV R15,R14
K<
KF.cart_code%
KPMOV R9, #0
KZMOV R12, R1
Kd5MOV R11, R0 ;            put table start into r11
Kn)MOV R10, #0 ;            x coordinate
Kx.cart_LOOP
K�MOV R4, #1280
K�MOV R0, #69
K�AADD R1,R11,R10, LSL#2 ;        add table start to x value * 4
K�LDR R1,[R1]
K�LDR R8,graph_box%
K�(CMP R1, R8;           cf x with left
K�BMI cart_noplot
K�LDR R8,graph_box%+4
K�)CMP R1,R8 ;           cf x with right
K�BPL cart_noplot
K�.LDR R2, [R7] ;        r7 points to y value
K�*RSB R2, R2, #0;       make r2 positive
K�+CMP R2, #0 ;         is it out of range
LBMI cart_noplot
L(CMP R2, R4 ;      is it out of range
LBPL cart_noplot
L"8ADD R2,R11,R2, LSL#2 ;add table start to y value * 4
L,.LDR R2,[R2]          ;get value from table
L6.RSB R2, R2, #0;           make r2 negative
L@LDR R8, graph_box%+8
LJ
CMP R2,R8
LTBPL cart_noplot
L^LDR R8, graph_box%+12
LhCMP R2, R8
LrBMI cart_noplot
L|SWI "OS_Plot"
L�.cart_noplot
L�ADD R10, R10, R12
L�ADD R7, R7, R12, ASL #2
L�SUB R5, R5, R12, ASL #2
L�CMP R5, #0
L�BGT cart_LOOP
L�MOV R15,R14
L� 
L�!.scale ; R1 is B% the counter
L�#       ; R2 is pointer to table
L�!       ; R3 is the multiplier
L�       ; R0 is the result
L�!MUL R0,R1,R3       ; multiply
M'MOV R0,R0, ASR #10 ; divide by 1024
MSTR R0,[R2]
MADD R1,R1,#1
M&ADD R2,R2,#4
M0CMP R1, #1280
M:
BMI scale
MDMOV R15,R14
MN]
MX�
Mb�
Ml
Mv<� �x_plot(left%, right%, top%, bottom%, plot_parameter%)
M�graph_box%!0     =left%
M�graph_box%!4     =right%
M�graph_box%!8     =top%
M�graph_box%!12    =bottom%
M�� graph% = 1 � 3
M�� polar_plot%(graph%) �
M�#    ș"Wimp_SetColour",9+graph%
M�    y% =graph%*2-1
M�    x% =graph%*2-2
M�?    F% = 5120  :� register 5  counts down from 5120 to zero
M�M    G% = plot_values% + 1280*x%*4   : � register 6  data array for x axis
M�M    H% = plot_values% + 1280*y%*4   : � register 7  data array for y axis
M�    B% = pix_value%
N1    A% = table%  : � R0 gets address of table
N    � code%
N�
N �
N*�
N4
N>=� �x_plot1(left%, right%, top%, bottom%, plot_parameter%)
NHgraph_box%!0     =left%
NRgraph_box%!4     =right%
N\graph_box%!8     =top%
Nfgraph_box%!12    =bottom%
Np� graph% = 1 � 3
Nz� para_plot%(graph%) �
N�#    ș"Wimp_SetColour",9+graph%
N�    y% =graph%*2-1
N�    x% =graph%*2-2
N�?    F% = 5120  :� register 5  counts down from 5120 to zero
N�M    G% = plot_values% + 1280*x%*4   : � register 6  data array for x axis
N�M    H% = plot_values% + 1280*y%*4   : � register 7  data array for y axis
N�1    A% = table%  : � R0 gets address of table
N�    B% = pix_value%
N�    � code%
N��
N��
N��
N�
O
O=� �x_plot2(left%, right%, top%, bottom%, plot_parameter%)
Ograph_box%!0     =left%
O$graph_box%!4     =right%
O.graph_box%!8     =top%
O8graph_box%!12    =bottom%
OB� graph% = 1 � 6
OL� cart_plot%(graph%) �
OV#    ș"Wimp_SetColour",9+graph%
O`    y% =graph%-1
Oj@    F% = 5120  :� register 5  counts down from right to left
Ot:    G% = left%   : � register 6  data array for x axis
O~L    H% = plot_values% + 1280*y%*4  : � register 7  data array for y axis
O�1    A% = table%  : � R0 gets address of table
O�    B% = pix_value%
O�    � cart_code%
O��
O��
O��
O�
O�� �help
O�+� t$,window%, icon%, terms$, ap$, warn$
O�)ș "Wimp_GetPointerInfo",,help_block%
O�window% = help_block%!12
O�icon%   = help_block%!16
P<warn$ = "|MIt can be entered in normal algebraic format"
P
Awarn$ = warn$+"|MIf you are unsure of evaluation order then "
P2warn$ = warn$+"use brackets|MUse ^ for powers"
PȎ window% �
P(C� main% : t$="This is the graph window.|MSelect to recalculate"
P2B            � cart_plot% t$=t$+"|MAdjust to select a zoom box"
P<� cartesian%
PF     Ȏ icon% �
PP-     � 4 : t$="Select for previous graph"
PZ)     � 5 : t$="Select for next graph"
Pd     � cart_func_yes_icon%
PnJ          t$="Select to change.|MIndicates if gragh is plotted or not"
PxB     � cart_func_icon% : t$="The function to be plotted"+warn$
P�@     � 9 :t$="This shows the colour of the current function"
P�
     �
P�� cartaxes%
P�(     ap$ = "|Mf1 for default values"
P�     Ȏ icon% �
P�     � cart_max_x_icon%
P�:       t$= "The maximum X value.|MSelect to alter"+ap$
P�     � cart_min_x_icon%
P�:       t$= "The minimum X value.|MSelect to alter"+ap$
P�
P�     � cart_max_y_icon%
P�:       t$= "The maximum Y value.|MSelect to alter"+ap$
P�     � cart_min_y_icon%
Q:       t$= "The minimum Y value.|MSelect to alter"+ap$
Q     � auto_y_cartaxes%
Q8       t$= "Manual or Auto Y axes.|MSelect to alter"
Q"
     �
Q,� info%
Q6C     t$="This displays information about the Graph application"
Q@� save1%
QJG     t$="This window allows graph function|Mand axes to be saved  "
QT     Ȏ icon% �
Q^4     � 2 : t$=t$+"|MFile name to save functions"
Qh<     � 0 : t$=t$+"|MSelect to save using given filename"
QrK     � 3 : t$=t$+"|MSelect, hold and drag to a directory viwer to save"
Q|
     �
Q�� save%
Q�M     t$="This window allows graph display|Mto be saved as a Draw file.  "
Q�     Ȏ icon% �
Q�=     � 2 : t$=t$+"|MFile name to save graph as Draw file"
Q�<     � 0 : t$=t$+"|MSelect to save using given filename"
Q�K     � 3 : t$=t$+"|MSelect, hold and drag to a directory viwer to save"
Q�
     �
Q�� parametric%
Q�     Ȏ icon% �
Q�      terms$="|in terms of t"
Q�-     � 4 : t$="Select for previous graph"
Q�)     � 5 : t$="Select for next graph"
Q�     � para_func_yes_icon%
RJ          t$="Select to change.|MIndicates if gragh is plotted or not"
RM     � para_funcx_icon%:t$="The X componant of the function"+terms$+warn$
RM     � para_funcy_icon%:t$="The Y componant of the function"+terms$+warn$
R&@     � 9 :t$="This shows the colour of the current function"
R0
     �
R:� paraaxes%
RD     Ȏ icon% �
RN     � para_max_x_icon%
RX6       t$= "The maximum X value.|MSelect to alter"
Rb     � para_min_x_icon%
Rl6       t$= "The minimum X value.|MSelect to alter"
Rv     � para_min_t_icon%
R�6       t$= "The minimum T value.|MSelect to alter"
R�     � para_max_t_icon%
R�6       t$= "The maximum T value.|MSelect to alter"
R�     � para_max_y_icon%
R�6       t$= "The maximum Y value.|MSelect to alter"
R�     � para_min_y_icon%
R�6       t$= "The minimum Y value.|MSelect to alter"
R�     � auto_y_cartaxes%
R�8       t$= "Manual or Auto Y axes.|MSelect to alter"
R�
     �
R�
R�� polar%
R�     Ȏ icon% �
S-     � 4 : t$="Select for previous graph"
S)     � 5 : t$="Select for next graph"
S     � polar_func_yes_icon%
S J          t$="Select to change.|MIndicates if gragh is plotted or not"
S*L     � polar_func_icon% : t$="The function to be plotted|Min terms of t"
S4,                             t$=t$+warn$
S>@     � 9 :t$="This shows the colour of the current function"
SH
     �
SR� polaraxes%
S\     Ȏ icon% �
Sf     � polar_max_icon%
Sp:       t$= "The maximum angle value.|MSelect to alter"
Sz     � polar_min_icon%
S�6       t$= "The minimum X value.|MSelect to alter"
S�     � auto_polar_axes%
S�D       t$= "Manual or Auto Radius calculation.|MSelect to alter"
S�     � polar_radius_icon%
S�E       t$= "The maximum radius to be displayed.|MSelect to alter"
S�
     �
S�
S��
S�� t$<>"" �
S�  block%!12=block%!8
S�  block%!16=&503
S�  $(block%+20)=t$+�0
S�  !block% = (25+�t$)� � 3
T-  ș"Wimp_SendMessage",17,block%,block%!4
T�
T�
T$
T.� �save_to_disc(name$)
T8� format$ ="data" �
TBfile% =�(name$)
TL� graph% = 1 � 6
TV � #file%, cart_plot%(graph%)
T`%� #file%, cart_functions$(graph%)
Tj-� #file%, entered_cart_functions$(graph%)
Tt.� #file%, entered_parax_functions$(graph%)
T~.� #file%, entered_paray_functions$(graph%)
T�%� #file%, para_functions$(graph%)
T� � #file%, para_plot%(graph%)
T��
T�
T�� graph% = 1 � 3
T�!� #file%, polar_plot%(graph%)
T�&� #file%, polar_functions$(graph%)
T�.� #file%, entered_polar_functions$(graph%)
T�&� #file%, parax_functions$(graph%)
T�&� #file%, paray_functions$(graph%)
T��
T�
U� #file%,cart_plot%
U
� #file%,polar_plot%
U� #file%,para_plot%
U� #file%,main_menu_open
U(� #file%,quit_menu_open
U2� #file%,finished%
U<� #file%,auto_y_cartaxes%
UF� #file%,show_axes%
UP� #file%,old_main_x_origin$
UZ� #file%,old_main_y_origin$
Ud� #file%,main_x_origin%
Un� #file%,main_y_origin%
Ux� #file%,entered_maxx
U�� #file%,entered_minx
U�� #file%,entered_maxy
U�� #file%,entered_miny
U�� #file%,auto_y_paraaxes%
U� � #file%,maxx,minx,maxy,miny
U�� #file%,increment
U�� #file%,yfactor
U�� #file%,y_shift%
U�� #file%,degrees%
U�� #file%,zooming%
U�� #file%,auto_polar_axes%
U�
U�;� #file%,�read_icon_text(cartaxes%,cart_axes_yes_icon%)
V8� #file%,�read_icon_text(cartaxes%,cart_min_x_icon%)
V8� #file%,�read_icon_text(cartaxes%,cart_max_x_icon%)
V8� #file%,�read_icon_text(cartaxes%,cart_min_y_icon%)
V"8� #file%,�read_icon_text(cartaxes%,cart_max_y_icon%)
V,
V6
V@;� #file%,�read_icon_text(paraaxes%,para_axes_yes_icon%)
VJ9� #file%,�read_icon_text(paraaxes%,para_min_x_icon% )
VT9� #file%,�read_icon_text(paraaxes%,para_max_x_icon% )
V^9� #file%,�read_icon_text(paraaxes%,para_min_y_icon% )
Vh9� #file%,�read_icon_text(paraaxes%,para_max_y_icon% )
Vr9� #file%,�read_icon_text(paraaxes%,para_min_t_icon% )
V|9� #file%,�read_icon_text(paraaxes%,para_max_t_icon% )
V�
V�
V�;� #file%,�read_icon_text(polaraxes%,polar_radius_icon%)
V�9� #file%,�read_icon_text(polaraxes%,polar_min_icon% )
V�8� #file%,�read_icon_text(polaraxes%,polar_max_icon%)
V�=� #file%,�read_icon_text(polaraxes%,polar_axes_yes_icon%)
V� 
V�� #file%
V�ș"Wimp_CreateMenu",,-1
V��("settype "+name$+" 777")
V��
V�  �draw(name$)
V��
W�
W
W
W&!� �load_from_disc(file_name$)
W0file% = �(file_name$)
W:� graph% = 1 � 6
WD � #file%, cart_plot%(graph%)
WN%� #file%, cart_functions$(graph%)
WX-� #file%, entered_cart_functions$(graph%)
Wb.� #file%, entered_parax_functions$(graph%)
Wl.� #file%, entered_paray_functions$(graph%)
Wv%� #file%, para_functions$(graph%)
W� � #file%, para_plot%(graph%)
W��
W�
W�� graph% = 1 � 3
W�!� #file%, polar_plot%(graph%)
W�&� #file%, polar_functions$(graph%)
W�.� #file%, entered_polar_functions$(graph%)
W�&� #file%, parax_functions$(graph%)
W�&� #file%, paray_functions$(graph%)
W��
W�� #file%,cart_plot%
W�� #file%,polar_plot%
W�� #file%,para_plot%
X� #file%,main_menu_open
X� #file%,quit_menu_open
X� #file%,finished%
X � #file%,auto_y_cartaxes%
X*� #file%,show_axes%
X4� #file%,old_main_x_origin$
X>� #file%,old_main_y_origin$
XH� #file%,main_x_origin%
XR� #file%,main_y_origin%
X\� #file%,entered_maxx
Xf� #file%,entered_minx
Xp� #file%,entered_maxy
Xz� #file%,entered_miny
X�� #file%,auto_y_paraaxes%
X� � #file%,maxx,minx,maxy,miny
X�� #file%,increment
X�� #file%,yfactor
X�� #file%,y_shift%
X�� #file%,degrees%
X�� #file%,zooming%
X�� #file%,auto_polar_axes%
X�� #file%, text$
X�Icart_axes_yes_icon%=�change_text(cartaxes%,cart_axes_yes_icon%,text$)
X�� #file%, text$
X�Ccart_min_x_icon%=�change_text(cartaxes%,cart_min_x_icon%,text$)
X�� #file%, text$
YBcart_max_x_icon=�change_text(cartaxes%,cart_max_x_icon%,text$)
Y� #file%, text$
YCcart_min_y_icon%=�change_text(cartaxes%,cart_min_y_icon%,text$)
Y$� #file%, text$
Y.Ccart_max_y_icon%=�change_text(cartaxes%,cart_max_y_icon%,text$)
Y8
YB� #file%, text$
YLIpara_axes_yes_icon%=�change_text(paraaxes%,para_axes_yes_icon%,text$)
YV� #file%, text$
Y`Dpara_min_x_icon%=�change_text(paraaxes%,para_min_x_icon%,text$ )
Yj� #file%, text$
YtDpara_max_x_icon%=�change_text(paraaxes%,para_max_x_icon%,text$ )
Y~� #file%, text$
Y�Dpara_min_y_icon%=�change_text(paraaxes%,para_min_y_icon%,text$ )
Y�� #file%, text$
Y�Dpara_max_y_icon%=�change_text(paraaxes%,para_max_y_icon%,text$ )
Y�� #file%, text$
Y�mint = �(text$)
Y�Dpara_min_t_icon%=�change_text(paraaxes%,para_min_t_icon%,text$ )
Y�maxt = �(text$)
Y�� #file%, text$
Y�Dpara_max_t_icon%=�change_text(paraaxes%,para_max_t_icon%,text$ )
Y�� #file%, text$
Y�Hpolar_radius_icon%=�change_text(polaraxes%,polar_radius_icon%,text$)
Y�� #file%, text$
ZCpolar_min_icon%=�change_text(polaraxes%,polar_min_icon%,text$ )
Z
� #file%, text$
ZBpolar_max_icon%=�change_text(polaraxes%,polar_max_icon%,text$)
Z� #file%, text$
Z(Lpolar_axes_yes_icon%=�change_text(polaraxes%,polar_axes_yes_icon%,text$)
Z2� #file%
Z<�install
ZF�
ZP
ZZ
Zd
Zn
Zx� �install
Z�window%= cartesian%
Z�.cart_func_icon%= �update_cart_function( 1)
Z�� cart_plot%(1) �
Z�Jcart_func_yes_icon%=�change_text(cartesian%,cart_func_yes_icon%,"Yes")
Z��
Z�Icart_func_yes_icon%=�change_text(cartesian%,cart_func_yes_icon%,"No")
Z��
Z�window% = parametric%
Z�0para_funcx_icon%= �update_parax_function( 1)
Z�0para_funcy_icon%= �update_paray_function( 1)
Z�� para_plot%(1) �
Z�Kpara_func_yes_icon%=�change_text(parametric%,para_func_yes_icon%,"Yes")
Z��
[Jpara_func_yes_icon%=�change_text(parametric%,para_func_yes_icon%,"NO")
[�
[window% = polar%
["0polar_func_icon%= �update_polar_function( 1)
[,� polar_plot%(1) �
[6Hpolar_func_yes_icon%=�change_text(polar%,polar_func_yes_icon%,"Yes")
[@�
[JGpolar_func_yes_icon%=�change_text(polar%,polar_func_yes_icon%,"NO")
[T�
[^current_cart_func% =1
[hcurrent_para_func% =1
[rcurrent_polar_func%   = 1
[|� degrees% �
[�  �tick(main_menu%,8)
[��
[�  �no_tick(main_menu%,8)
[��
[�� show_coordinates% �
[�  �tick(main_menu%,2)
[��
[�  �no_tick(main_menu%,2)
[��
[�� show_axes% �
[�  �tick(main_menu%,9)
[��
[�  �no_tick(main_menu%,9)
\�
\
\ � auto_y_cartaxes% �
\&* �deselect(cartaxes%,cart_min_y_icon%)
\0* �deselect(cartaxes%,cart_max_y_icon%)
\:�
\D* �reselect(cartaxes%,cart_min_y_icon%)
\N* �reselect(cartaxes%,cart_max_y_icon%)
\X�
\b
\l � auto_y_paraaxes% �
\v* �deselect(paraaxes%,para_min_y_icon%)
\�* �deselect(paraaxes%,para_max_y_icon%)
\�* �deselect(paraaxes%,para_min_x_icon%)
\�* �deselect(paraaxes%,para_max_x_icon%)
\��
\�* �reselect(paraaxes%,para_min_y_icon%)
\�* �reselect(paraaxes%,para_max_y_icon%)
\�* �reselect(paraaxes%,para_min_x_icon%)
\�* �reselect(paraaxes%,para_max_x_icon%)
\��
\�
\� � auto_polar_axes% �
\�- �deselect(polaraxes%,polar_radius_icon%)
\��
]- �reselect(polaraxes%,polar_radius_icon%)
]�
]
] 
]*$� cart_plot% � �select_cartesian
]4!� polar_plot% � �select_polar
]>� para_plot% �
]H  window%=parametric%
]R  �extract_para_func
]\  �select_parametric
]f�
]p
]z� set colour of icon
]�(�set_graph_colour_icon(cartesian%,1)
]�)�set_graph_colour_icon(parametric%,1)
]�$�set_graph_colour_icon(polar%,1)
]�
]�� set function number
]�Lcart_func_count_icon%=�change_text(cartesian%,cart_func_count_icon%,"1")
]�Mpara_func_count_icon%=�change_text(parametric%,para_func_count_icon%,"1")
]�Jpolar_func_count_icon%=�change_text(polar%,polar_func_count_icon%,"1")
]�
]�� set function
]�window%=cartesian%
]�-cart_func_icon% =�update_cart_function(1)
]�window%=polar%
^0polar_func_icon%= �update_polar_function( 1)
^window%=parametric%
^0para_funcx_icon%= �update_parax_function( 1)
^$0para_funcy_icon%= �update_paray_function( 1)
^.
^8
^B� update window
^L&�  cart_plot% � wind%  =cartesian%
^V'� para_plot% � wind%   =parametric%
^`"� polar_plot% �  wind% =polar%
^j,ș "Wimp_ForceRedraw",wind%,0,-300,900,0
^twindow%=parametric%
^~�open_window(main%)
^�!� polar_plot% � �select_polar
^��
^�
^�� �get_environment
^�ș "OS_GetEnv" � c$
^�p = �c$,"""",�c$,"""")+1)
^�c$=�c$,p+1)
^�ȕ �c$,1)=" "
^�  c$=�c$,2)
^��
^�"� c$<>"" � �load_from_disc(c$)
^�� c$<>"" � $fi% = c$
_�
_

_
_� �file_data
_(  save_open% = �
_2  �open_window(save%)
_<�
_F
_P
_Z� �load(name$)
_d�
_n
_x� �create_menu
_�� menu_block% 300
_�� menu1_block% 100
_�$menu_block% ="Graph Menu"
_�?(menu_block%+12) = 7
_�?(menu_block%+13) = 2
_�?(menu_block%+14) = 7
_�?(menu_block%+15) = 0
_�!(menu_block%+16) = 196
_�!(menu_block%+20) = 44
_�!(menu_block%+24) = 0
_�!(menu_block%+4+(24+0)) =0
_�%!(menu_block%+4+(24*1+4)) =save1%
_�(!(menu_block%+4+(24*1+8)) = &7000021
`+$(menu_block%+4+(24*1+12)) ="Save Data"
` !(menu_block%+4+(24*2+0)) =0
`%!(menu_block%+4+(24*2+4)) = save%
`"'!(menu_block%+4+(24*2+8)) =&7000021
`,-$(menu_block%+4+(24*2+12)) ="Save Graphs"
`6 !(menu_block%+4+(24*3+0)) =0
`@!!(menu_block%+4+(24*3+4)) =-1
`J(!(menu_block%+4+(24*3+8)) = &7000021
`T-$(menu_block%+4+(24*3+12)) ="Coordinates"
`^ !(menu_block%+4+(24*4+0)) =0
`h!!(menu_block%+4+(24*4+4)) =-1
`r'!(menu_block%+4+(24*4+8)) =&7000021
`|&$(menu_block%+4+(24*4+12)) ="Axes"
`� !(menu_block%+4+(24*5+0)) =2
`�!!(menu_block%+4+(24*5+4)) =-1
`�'!(menu_block%+4+(24*5+8)) =&7000021
`�+$(menu_block%+4+(24*5+12)) ="Functions"
`� !(menu_block%+4+(24*6+0)) =0
`�"!(menu_block%+4+(24*6+4)) = -1
`�'!(menu_block%+4+(24*6+8)) =&7000021
`�+$(menu_block%+4+(24*6+12)) ="Cartesian"
`� !(menu_block%+4+(24*7+0)) =0
`�"!(menu_block%+4+(24*7+4)) = -1
`�'!(menu_block%+4+(24*7+8)) =&7000021
`�'$(menu_block%+4+(24*7+12)) ="Polar"
`� !(menu_block%+4+(24*8+0)) =2
a"!(menu_block%+4+(24*8+4)) = -1
a'!(menu_block%+4+(24*8+8)) =&7000021
a,$(menu_block%+4+(24*8+12)) ="Parametric"
a& !(menu_block%+4+(24*9+0)) =0
a0"!(menu_block%+4+(24*9+4)) = -1
a:'!(menu_block%+4+(24*9+8)) =&7000021
aD)$(menu_block%+4+(24*9+12)) ="Degrees"
aN$!(menu_block%+4+(24*10+0)) = &81
aX#!(menu_block%+4+(24*10+4)) = -1
ab(!(menu_block%+4+(24*10+8)) =&7000021
al,$(menu_block%+4+(24*10+12)) ="Show Axes"
avmain_menu% = menu_block%
a�$menu1_block% ="Quit Menu"
a�?(menu1_block%+12) = 7
a�?(menu1_block%+13) = 2
a�?(menu1_block%+14) = 7
a�?(menu1_block%+15) = 0
a�!(menu1_block%+16) = 196
a�!(menu1_block%+20) = 44
a�!(menu1_block%+24) = 0
a�!(menu1_block%+4+(24+0)) =0
a�#!(menu1_block%+4+(24*1+4)) = -1
a�)!(menu1_block%+4+(24*1+8)) = &7000021
a�'$(menu1_block%+4+(24*1+12)) ="Quit"
a�#!(menu1_block%+4+(24*2+0)) =&80
b&!(menu1_block%+4+(24*2+4)) = info%
b(!(menu1_block%+4+(24*2+8)) =&7000021
b'$(menu1_block%+4+(24*2+12)) ="Info"
b quit_menu%=menu1_block%
b*�
b4
b>� �draw_click(window%)
bH!block% = window%
bR#ș"Wimp_GetWindowState",,block%
b\wex = block%!4-block%!20
bfwey = block%!16 - block%!24
bpblock%!4 = picture%
bz!ș"Wimp_GetIconState",,block%
b�!block%= window%
b�block%!4 = 5
b�block%!8 = block%!8+wex
b�block%!12 = block%!12+wey
b�block%!16 = block%!16+wex
b�block%!20 = block%!20+wey
b�block%!24 = 0
b�block%!28 = 0
b�block%!32 = &7FFFFFFF
b�block%!36 = &7FFFFFFF
b�ș"Wimp_DragBox",,block%
b��
b�
c"� �read_filename_text(window%)
c� format$ = "data" �
c  !help_block% = save1%
c$�
c.  !help_block% = save%
c8�
cB&help_block%!4 = 2 :� the text icon
cL'ș "Wimp_GetIconState",,help_block%
cV� format$ = "data" �
c`  fi%=help_block%!28
cj�
ct  gi%=help_block%!28
c~�
c� = $(help_block%+ 28)
c�
c�� �leaf(path$)
c�ȕ �path$,".")
c�path$=�path$,�path$,".")+1)
c��
c�
=path$
c�
c�
c�� �save
c�#ș"Wimp_GetPointerInfo",,block%
c�block%!20 = 64
dblock%!32 = 0
d
block%!36 = 1
dblock%!40 = block%!12
dblock%!44 = block%!16
d(block%!48 = !block%
d2block%!52 = block%!4
d<� format$="data" �
dF   $(block%+64) = �leaf($fi%)
dP  block%!56 = 568
dZ  block%!60 = &777
dd�
dn   $(block%+64) = �leaf($gi%)
dx  block%!56 = &4000
d�  block%!60 = &AFF
d��
d�	� Hmm
d�9ș"Wimp_SendMessage",17,block%+20,block%!12,block%!16
d��
d�
d�� �datasave(b%)
d�#�save_to_disc(�get_name(b%+44))
d�� format$="data" �
d� $fi%= �get_name(b%+44)
d��
d� $gi%= �get_name(b%+44)
d��
e
eb%!12 = b%!8
e
b%!16 = 3
e"!b% = 64
e,*ș"Wimp_SendMessage",17,b%,b%!20,b%!24
e6saveref%=b%!8
e@�
eJ
eT
e^ 
eh� �get_name(P%)
er	A$=""
e|ȕ ?P%<>0 � ?P%<> 13
e� A$ = A$+�?P%:P%+=1
e��
e�=A$
e�
e�� �quicksave
e�� format$="data" �
e�  file$=$fi%
e��
e�  file$=$gi%
e��
e�� �file$,".") �
e��save_to_disc(file$)
e��
fC �error_message("To Save, draw the icon to a directory viewer")
f�
f�
f&
f0� �dataload(b%)
f:� b%!40 = &777 �
fD  �ackload(b%)
fN'  �load_from_disc(�get_name(b%+44))
fX  $fi% = �get_name(b%+44)
fb�
fl�
fv 
f�� �ackload(b%)
f�
b%=block%
f�b%!12=b%!8
f�b%!16=4
f�
!b%=64
f�#ș"Wimp_SendMessage",17,b%,b%!4
f��
f�
f�
f�
f�
f�
f�
g
g
g��push(P%)
g 1�stack%>=maxstack%:�99,"MathGraph stack full"
g*stack%(stack%)=P%
g4
stack%+=1
g>�
gH
gR
g\
gf��pull(� P%)
gp*�stack%<=0:�99,"MathGraph stack empty"
gz
stack%-=1
g�P%=stack%(stack%)
g��
g�
g�
g�
g���startobj(T%)
g��P%
g�P%=draw_p%
g�
�push(P%)
g�
!P%=T%
g�
P%!4=0
g�
P%!8=0
g�P%!12=0
hP%!16=0
hP%!20=0
hdraw_p%+=24
h$�
h.
h8
hB
hL��endobj
hV�P%
h`
�pull(P%)
hjP%!4=draw_p%-P%
ht+�P%!8<draw_array%!24draw_array%!24=P%!8
h~-�P%!12<draw_array%!28draw_array%!28=P%!12
h�-�P%!16>draw_array%!32draw_array%!32=P%!16
h�-�P%!20>draw_array%!36draw_array%!36=P%!20
h��
h�
h�
h�
h���startdraw
h�$draw_array%="Draw"
h�draw_array%!4=201
h�draw_array%!8=0
h� $(draw_array%+12)="!Graph  "
h�draw_array%!24=0
idraw_array%!28=0
i
draw_array%!32=230400
idraw_array%!36=184320
idstt%=draw_array%
i(draw_p%=draw_array%+40
i2stack%=0
i<�
iF
iP
��enddraw
iZ/�stack%<>0 �99,"The drawing has gone wrong"
iddend%=draw_p%-4
in�
ix
i���startgroup(T$)
i��startobj(6)
i�$draw_p%=�T$+�12," "),12)
i�draw_p%+=12
i��
i�
i���endgroup
i��endobj
i��
i�
i�
i���textl(X%,Y%,H%,C%,A$)
i��startobj(1)
j!draw_p%=C%
jdraw_p%!4=&FFFFFF00
jdraw_p%!8=0
j"draw_p%+=12
j,!draw_p%=H%�2
j6draw_p%!4=H%
j@draw_p%+=8
jJ!draw_p%=X%
jTdraw_p%!4=Y%
j^draw_p%+=8
jhH%=4-�A$�4
jr$draw_p%=A$+�H%,�0)
j|draw_p%+=�A$+H%
j��endobj
j��
j�
j�
j�
j�3��startpath(X%,Y%,fillcol%,linecol%,linethick%)
j��startobj(2)
j�!draw_p%=fillcol%
j�draw_p%!4=linecol%
j�draw_p%+=8
j�!draw_p%=linethick%
j�draw_p%!4=2^6
j�draw_p%+=8
k!draw_p%=2
kdraw_p%!4=X%
kdraw_p%!8=Y%
k&draw_p%+=12
k0�
k:
kD��drawto(X%,Y%)
kN!draw_p%=8
kXdraw_p%!4=X%
kbdraw_p%!8=Y%
kldraw_p%+=12
kv�
k�
k�
k���moveto(X%,Y%)
k�!draw_p%=2
k�draw_p%!4=X%
k�draw_p%!8=Y%
k�draw_p%+=12
k��
k�
k�
k�
��endpath
k�!draw_p%=0
k�draw_p%+=4
l�endobj
l�
l
l ��closepath
l*!draw_p%=5
l4draw_p%+=4
l>�endpath
lH�
lR�cs
l\�
lf
lp#��bezier(X%,Y%,x1%,y1%,x2%,y2%)
lz6!draw_p%=6:draw_p%!4=x1%:draw_p%!8=y1%:draw_p%+=12
l�)!draw_p%=x2%:draw_p%!4=y2%:draw_p%+=8
l�'!draw_p%=X%:draw_p%!4=Y%:draw_p%+=8
l��
l�
l�3��circle(X%,Y%,R%,fillcol%,linecol%,linethick%)
l��f
l�f=��33.3333333
l�X%=X%*200+50000
l�
Y%=Y%*200
l�
R%=R%*200
l�5�startpath(X%,Y%+R%,fillcol%,linecol%,linethick%)
l�1�bezier(X%-R%,Y%,X%-R%*f,Y%+R%,X%-R%,Y%+R%*f)
l�1�bezier(X%,Y%-R%,X%-R%,Y%-R%*f,X%-R%*f,Y%-R%)
m1�bezier(X%+R%,Y%,X%+R%*f,Y%-R%,X%+R%,Y%-R%*f)
m1�bezier(X%,Y%+R%,X%+R%,Y%+R%*f,X%+R%*f,Y%+R%)
m�closepath
m$�
m.
m8
mB
mL
mV��save_draw(name$)
m`�T%
mj4�"Save "+name$+" "+�~draw_array%+" "+�~(dend%+4)
mt�"Settype "+name$+" AFF"
m~�
m�
m�
m�
m�
m�
ݤzts(T%)
m��T$
m�ȕ?T%<>0
m�T$+=�?T%
m�	T%+=1
m��
m�=T$
m�
n
n

n
n
n(
n2� �draw(name$)
n<
�glass(�)
nFdraw_p%=draw_array%
nP�startdraw
nZ�startgroup("line")
nd� cart_plot%  �draw_cart
nn!� para_plot% �draw_parametric
nx� polar_plot% �draw_polar
n�
�endgroup
n��enddraw
n��save_draw(name$)
n�
�glass(�)
n��
n�
n�
n�
n�� �draw_cart
n��draw_cart_axes_draw
n�� graph% = 1 � 6
n�- base% = plot_values% +(graph% -1)*1280*4
n� � cart_plot%(graph%) �
o
  X%=0
o0  �startpath(0,-1000+0,-1,�colour(graph%),1)
o  move% = �
o"  � PROCpoint_move(0,0)
o,  � X% = 0 � 1276 � 4
o6    y% =base%!(X%*4)
o@      � move% �
oJ$         �point_move(X%,y%+1000)
oT      �
o^$         �point_plot(X%,y%+1000)
oh      �
or  �
o|   �endpath
o� �
o��
o��
o� 
o�� �draw_cart_axes_draw
o�� tx%,ty%,t$
o�move%=�
o�� show_axes%   �
o�!  �startpath(0,2512,-1,&FF,1)
o�'  �point_move(0,x_axes_level%+1000)
o�*  �point_plot(1280,x_axes_level%+1000)
o�'  �point_move(y_axes_level%,0+1000)
o�+  �point_plot(y_axes_level%,-1050+1000)
p-  �point_move( 104,x_axes_level%-20+1000)
p-  �point_plot( 104,x_axes_level%+20+1000)
p.  �point_move( 1174,x_axes_level%-20+1000)
p&.  �point_plot( 1174,x_axes_level%+20+1000)
p0-  �point_move( y_axes_level%-20,-84+1000)
p:-  �point_plot( y_axes_level%+20,-84+1000)
pD.  �point_move( y_axes_level%-20,-938+1000)
pN.  �point_plot( y_axes_level%+20,-938+1000)
pX  �endpath
pb  tx%=1100*200+50000
pl%  ty%=(x_axes_level%-20+1000)*200
pv  t$="y="+�(x_axes_level)
p�!  �textl(tx%,ty%,8000,&FF,t$)
p�(  tx% = (y_axes_level%+10)*200+50000
p�  ty%=(-50+1000)*200
p�  t$="x="+�(y_axes_level)
p�!  �textl(tx%,ty%,8000,&FF,t$)
p��
p��
p�
p�
p�� �draw_parametric
p��draw_para_axes_draw
p�� graph% = 1 � 3
p�  X% = graph%*2-2
q  Y% = graph%*2-1
q%  xbase% = plot_values%+X%*1280*4
q%  ybase% = plot_values%+Y%*1280*4
q  � para_plot%(graph%) �
q*
  X%=0
q40  �startpath(0,-1000+0,-1,�colour(graph%),1)
q>  move% = �
qH  � T% = 0 � 1276 � 2
qR    y% =ybase%!(T%*4)
q\    x% =xbase%!(T%*4)
qf      � move% �
qp$         �point_move(x%,y%+1000)
qz      �
q�$         �point_plot(x%,y%+1000)
q�      �
q�  �
q�   �endpath
q� �
q��
q��
q� 
q�� �draw_para_axes_draw
q�� tx%,ty%,t$
q�move%=�
q�� show_axes%   �
q�!  �startpath(0,2512,-1,&FF,1)
r'  �point_move(0,x_axes_level%+1000)
r*  �point_plot(1280,x_axes_level%+1000)
r'  �point_move(y_axes_level%,0+1000)
r$+  �point_plot(y_axes_level%,-1050+1000)
r.-  �point_move( 210,x_axes_level%-20+1000)
r8-  �point_plot( 210,x_axes_level%+20+1000)
rB.  �point_move( 1068,x_axes_level%-20+1000)
rL.  �point_plot( 1068,x_axes_level%+20+1000)
rV-  �point_move( y_axes_level%-20,-84+1000)
r`-  �point_plot( y_axes_level%+20,-84+1000)
rj.  �point_move( y_axes_level%-20,-938+1000)
rt.  �point_plot( y_axes_level%+20,-938+1000)
r~  �endpath
r�  tx%=1100*200+50000
r�%  ty%=(x_axes_level%-20+1000)*200
r�  t$="y="+�(x_axes_level)
r�!  �textl(tx%,ty%,8000,&FF,t$)
r�(  tx% = (y_axes_level%+10)*200+50000
r�  ty%=(-50+1000)*200
r�  t$="x="+�(y_axes_level)
r�!  �textl(tx%,ty%,8000,&FF,t$)
r��
r��
r�
r�
s� �draw_polar
s
�draw_polar_axes_draw
s� graph% = 1 � 3
s  X% = graph%*2-2
s(  Y% = graph%*2-1
s2%  xbase% = plot_values%+X%*1280*4
s<%  ybase% = plot_values%+Y%*1280*4
sF � polar_plot%(graph%) �
sP
  X%=0
sZ0  �startpath(0,-1000+0,-1,�colour(graph%),1)
sd  move% = �
sn  � T% = 0 � 1276 � 2
sx    y% =ybase%!(T%*4)
s�    x% =xbase%!(T%*4)
s�      � move% �
s�$         �point_move(x%,y%+1000)
s�      �
s�$         �point_plot(x%,y%+1000)
s�      �
s�  �
s�   �endpath
s� �
s��
s��
s� 
s�
t 
t� �draw_polar_axes_draw
t� tx%,ty%,t$
t"move%=�
t,� show_axes%   �
t6 
t@-  �circle(640,-512+1024,106,-1,&DDDDDD,1)
tJ-  �circle(640,-512+1024,213,-1,&DDDDDD,1)
tT-  �circle(640,-512+1024,320,-1,&DDDDDD,1)
t^-  �circle(640,-512+1024,427,-1,&DDDDDD,1)
th%  �startpath(0,2512,-1,&DDDDDD,1)
tr!  �point_move(1067,-512+1000)
t|   �point_plot(220,-512+1000)
t�  �point_move(640,-85+1000)
t�   �point_plot(640,-939+1000)
t�   �point_move(942,-210+1000)
t�   �point_plot(338,-814+1000)
t�   �point_move(338,-210+1000)
t�   �point_plot(942,-814+1000)
t�  �endpath
t�  tx% = (1070)*200+50000
t�  ty%=(-512+1000)*200
t�  A%=@%
t�  @%=&01000308
t�  t$=�(entered_rad)
t�!  �textl(tx%,ty%,8000,&FF,t$)
u  @%=A%
u�
u�
u&
u0� �colour(value%)
u:Ȏ value% �
uD  � 1 : =&CC00
uN  � 2 : =&DD0000
uX  � 3 : =&EEEEBB
ub  � 4 : =&558800
ul  � 5 : =&FFBB00
uv  � 6 : =&00BBFF
u��
u��
u�
u�� �point_move(x%,y%)
u�6� x% >=0 � x% <= 1280  � y% >= -200 � y% <= 1200 �
u�& �moveto(50000+x%*200,5000+y%*200)
u� move% = �
u��
u��
u�
u�� �point_plot(x%,y%)
u�  move% = �
u�4 � y% > -150 � y% < 1100 � x% >=0 � x% <= 1280 �
v'  �drawto(50000+x%*200,5000+y%*200)
v �
v   move% = �
v   �
v*�
v4
v>
vH
vR� �escape_pressed
v\�
vf
vp
� �memory
vzq%=parameter%
v�� IFq%!12<>saveref%:ENDPROC
v�
�glass(�)
v�draw_p%=draw_array%
v��startdraw
v��startgroup("line")
v�� cart_plot%  �draw_cart
v�!� para_plot% �draw_parametric
v�� polar_plot% �draw_polar
v�
�endgroup
v��enddraw
v�
�glass(�)
v��
v� �dend%-draw_array%+1<q%!24 �
w q%!24=dend%-draw_array%%+4
w�
w�7
w$Bș"Wimp_TransferBlock",task%,draw_array%,new_task%,q%!20,q%!24
w.
!q%=28
w8q%!16=7
wBq%!12=ref%
wL)draw_array%+=q%!24 : � is this needed
wV$ș"Wimp_SendMessage",17,q%,task%
w`saveref%=q%!8
wj�
wt:
w~:
w�:
w�2� �convert(input$,var$,� output$, � error_no%)
w�%� error%, eval_sp%, old_var$, en%
w�error_no% =0
w�eval_sp% = 0
w�old_var$ = var$
w�var$ = "@"
w��strip_space(input$)
w�� �(input$) = 0 �
w�  error_no% = 5
w��
w�  �bracketfix(input$)
x+  �analyse1(old_var$,input$,error%,en%)
x
  � error% �
x    error_no%=en%
x  �
x(    �unary(input$,var$)
x2    �variable(input$,var$)
x<    �number(input$,var$)
xF(    �analyse(var$,input$,error%,en%)
xP    � error% �
xZ      error_no%=1
xd	    �
xn      �build(error_no%)
xx      � error_no% = 0 �
x�$         �result(output$,error%)
x�%         � error% � error_no% = 4
x�      �
x�	    �
x�  �
x�  �back(output$,old_var$)
x��
x� � error_no% <>0 � output$=""
x��
x�:
x�:
x�� �variable(� line$,v$)
x�� c$,pointer%,new$,op$
yop$="+-*/^)"
y
new$ = ""
y� � line$ > 1 �
y"!� pointer% = 1 �  � (line$)-1
y,  c$ = �line$, pointer%,1)
y6  new$=new$+c$
y@2  �  c$= v$ � �op$,�line$,pointer%+1,1)) = 0 �
yJ        new$=new$+"*"
yT  �
y^.  �  c$= ")" � �line$,pointer%+1,1) ="(" �
yh        new$=new$+"*"
yr  �
y|�
y�new$=new$+�line$,1)
y��
y�  new$ = line$
y��
y�line$=new$
y��
y�:
y�:
y�� �number(� line$,var$)
y�� c$,pointer%,new$,op$,num$
y�op$="+-*/^)"
y�num$="0123456789."
y�
new$ = ""
z� � line$ > 1 �
z!� pointer% = 1 �  � (line$)-1
z    number%=�
z&    next_not_no_op% = �
z0  c$ = �line$, pointer%,1)
z:   n$ = �line$, pointer%+1,1)
zD  new$=new$+c$
zN#  � �num$,c$) > 0 � number% = �
zX/  � �op$+num$,n$) = 0 � next_not_no_op% = �
zb#  � number% � next_not_no_op% �
zl3    � n$=var$ �   new$=new$+"#" � new$=new$+"*"
zv  �
z��
z�new$=new$+�line$,1)
z��
z� new$ = line$
z��
z�line$=new$
z��
z�:
z�:
z�:
z�:
z�:
z�:
{� �unary( � line$, var$)
{'� c$, pointer%, new$, num$,p$,char$
{num$ = "0123456789.()"+var$
{ new$=""
{*� pointer% = 1 � � line$
{4  c$ = �line$, pointer%,1)
{>   p$ = �line$, pointer%-1,1)
{H  char$ = c$
{R  � pointer% =1 � c$="-" �
{\     char$ = "~"
{f  �
{p1     � c$ = "-" � �num$,p$) = 0 � char$ = "~"
{z  �
{�-  � c$ = "+" � �num$,p$) = 0 � char$ = ""
{�  new$ = new$ + char$
{��
{�line$ = new$
{��
{�:
{�:
{�:
{�-� �analyse(var$,function$,� error%,� en%)
{�� term$,prec%
{�
en% =1
{�error% = �
{��init_stack
|
�init_add
|!ȕ � function$ >0  � � error%
|7  �lexical(var$,function$,term$, prec%, error%,en%)
|$  �add_to_rpn(term$,prec%)
|.�
|8�flush_rpn
|B�
|L:
|V:
|`:
|j0� �analyse1(var$,� function$,� error%,� en%)
|t� term$,prec%
|~
en% =1
|�error% = �
|�rpn$=""
|��init_stack
|�
�init_add
|� ȕ � function$ >0 � � error%
|�5  �lexical(var$,function$,term$, prec%, err%,en%)
|�   � term$ = var$ � term$="@"
|�  rpn$=rpn$+term$
|�  � err% � error% = �
|��
|�function$ = rpn$
|��
}:
}
:
}:
}=� �lexical(var$, � line$, � term$,� prec%,� error%,� en%)
}(*� num$,length%,remainder$,c%,operator%
}2error% = �
}<num$ = "0123456789."
}Flength% = �( line$)
}Premainder$=""
}Z� �num$,�line$, 1)) > 0 �
}d    c% = 0
}n	    �
}x      c%+=1
}�1    � c% = length% � �num$,�line$,c%+1,1)) =0
}�    prec% = -1
}�    term$ = �line$, c%)
}�#    error% = � �valid_no(term$)
}�    � error% � en% = 7
}�)    remainder$ = �line$, length% -c%)
}��
}�    c% = 0
}�    operator% = �
}�	    �
}�       c%+=1
}�>       � �line$, �(word$(c%))) = word$(c%) � operator% = �
}�%    � operator% � word$(c%)="END"
~    � operator% �
~       prec% = prec%(c%)
~       term$ = word$(c%)
~"0       remainder$ = �line$,length%-�(term$))
~,
     �
~6#       � �line$,�(var$))=var$ �
~@          prec% = -1
~J2          remainder$ = �line$,length%-�(var$))
~T          term$ = var$
~^       �
~h          error%= �
~r          en% = 1
~|       �
~�
     �
~��
~�line$ = remainder$
~��
~�:
~�:
~�:
~�:
~�� �set_vocab
~�	� c%,
~�� word$(40), prec%(40)
~��
~�c%=0
�
  c%+=1
  � word$(c%), prec%(c%)
&� word$(c%) ="END"
0� "+",1
:� "-",2
D� "*",3
N� "/",4
X� "~",6
b� "#",6
l� "^",7
v
� "SIN",5
�
� "TAN",5
�
� "COS",5
�
� "ASN",5
�
� "ATN",5
�
� "ACS",5
�
� "ABS",5
�
� "INT",5
�
� "DEG",5
�
� "RAD",5
�� "SINH",5
�� "COSH",5
�� "TANH",5
�� "FACT",5
�� "INVTANH",5
�� "INVSINH",5
�� "INVCOSH",5
� 
� "LOG",5
�*� "LN",5
�4
� "EXP",5
�>� "(",0
�H� ")",0
�R
� "PI",-1
�\
� "END",8
�f�
�p:
�z:
��:
��� �strip_space( � line$)
��� c$,pointer%,new$
��new$ =""
��� pointer% = 1 � � line$
��  c$ = �line$, pointer%,1)
��!  � c$ <>" " � new$ = new$+c$
���
��line$ = new$
���
��:
��:
��:
�� �set_stacks
�/� rpn$(100),rpn%(100), add$(100), add%(100)
�rpn_sp% = 0
�$eval_sp% = 0
�.�
�8:
�B:
�L� �init_stack
�Vrpn_sp% = 0
�`�
�j:
�t� �push_m(string$,prec%)
�~rpn$(rpn_sp%) = string$
��rpn%(rpn_sp%) = prec%
��rpn_sp%+=1
���
��:
��:
��+� �pull_m(� string$, � prec%, � error%)
��� rpn_sp% = 0 �
��   error% = �
���
��   error% = �
��   rpn_sp%-=1
��   string$ = rpn$(rpn_sp%)
�   prec% = rpn%(rpn_sp%)
�
�
��
�:
�(:
�2:
�<:
�F:
�P)� �evaluate(term$,prec%, � error_no%)
�Z*� result$,operand1$,operand2$,an_error
�dan_error = �
�nerror_no% = 0
�xȎ prec% �
��!  � -1 : �push_m(term$,prec%)
��  � 1,2,3,4,6,7
��            � term$="~" �
��0              �pull_m(operand1$,prec%,error)
��(              � error � an_error = �
��9              result$="("+term$+"("+operand1$+")"+")"
��(              �push_m(result$,prec%)
��            �
��1              �pull_m(operand1$,prec%, error)
��(              � error � an_error = �
��1              �pull_m(operand2$,prec%, error)
��(              � error � an_error = �
��;              result$="("+operand2$+term$+operand1$+")"
�(              �push_m(result$,prec%)
�            �
�*  � 5 : �pull_m(operand1$,prec%,error)
�"%           � error � an_error = �
�,6           result$="("+term$+"("+operand1$+")"+")"
�6%           �push_m(result$,prec%)
�@   : error_no% = 2
�J�
�T� an_error � error_no% = 3
�^�
�h:
�r:
�|#� �result(� function$,� error%)
��� error,operand1$
��
error%= �
��"�pull_m(operand1$,prec%,error)
��
� error �
��   error%=�
���
��   function$ = operand1$
���
���
��:
��:
��� �add_to_rpn(term$,prec%)
��-� operator$,op_prec%, error%,op_prec%,np%
�� prec% = -1 �
�   �add(term$,prec%)
��
�&   � term$=")" �
�0      �
�:0         �pull_m(operator$,op_prec%, error%)
�D8         � operator$<>"(" � �add(operator$,op_prec%)
�N"      � operator$="(" � error%
�X   �
�b2     � �next_rpn_precedence= 8 � term$ = "(" �
�l       �push_m(term$,prec%)
�v
     �
��,       � �next_rpn_precedence <= prec% �
��!         �push_m(term$,prec%)
��      �
��         �
��2           �pull_m(operator$,op_prec%, error%)
��'           �add(operator$,op_prec%)
��)           np% = �next_rpn_precedence
��7         � np% <= prec% � np% =0 � np% = 8 � error%
��!         �push_m(term$,prec%)
��      �
��
     �
��   �
���
��
�:
�:
� � �flush_rpn
�* � operator$,op_prec%, error%
�4 ȕ �next_rpn_precedence <> 8
�>+    �pull_m(operator$,op_prec%, error%)
�H     �add(operator$,op_prec%)
�R�
�\�
�f:
�p:
�z:
��� �next_rpn_precedence
��� rpn_sp% = 0 �
�� =8
���
�� = rpn%(rpn_sp%-1)
���
��:
��:
��� �init_add
��pointer%=0
���
��:
��:
�� �add(string$,prec%)
� add$(pointer%) = string$
� add%(pointer%) = prec%
�$ pointer%+=1
�.�
�8:
�B:
�L� �build(� error%)
�V� local_error%
�`error% = 0
�jrpn_sp% =0
�t� a% = 0 � pointer% -1
�~/  �evaluate(add$(a%),add%(a%),local_error%)
��0  � local_error% > 0 � error% = local_error%
���
���
��:
��:
��:
��:
��:
��� �valid_no(number$)
��� c%, points
��
ok = �
��� number$="." � ok=�
�  points=0
�
  � c% = 1 � �number$
�+     � �number$,c%,1) = "." � points+=1
�  �
�(  � points>1 � ok=�
�2�
�<=ok
�F:
�P:
�Z� �back(� term$, var$)
�d� news$,i%,char$
�nnew$=""
�x� i% = 1 � �term$
��  char$ = �term$,i%,1)
��   � char$ = "@" � char$=var$
��!  � char$ = "#" � char$ = "*"
��!  � char$ = "~" � char$ = "-"
��  new$ = new$+char$
���
��term$=new$
���
��:
��:
��� �bracketfix(� input$)
��
� c%,new$
��new$=""
�� c% = 1 � �input$-1
�  c1$ = �input$,c%,1)
�  c2$ = �input$,c%+1,1)
�"$  � c1$=")" � �"+-*/^)",c2$)=0 �
�,    new$ = new$ + c1$+"#"
�6  �
�@    new$=new$+c1$
�J  �
�T�
�^input$=new$+c2$
�h�
�r:
�|:
��:
��:
��:
��:
��:
��(� �report_func_error(gra%,error_no%)
��� text$, fn$
��fn$=�(gra%)
��� para_plot% �
��  � gra% � 2 = 0 �
��    fn$=�((1+gra%) � 2)
��    fn$=fn$+" Y(t) "
��  �
�    fn$=�((1+gra%) � 2)
�    fn$=fn$+" X(t) "
�  �
�&�
�0Ȏ error_no% �
�::� 1 : text$="contains a function which does not exist"
�D+� 2 : text$="has incorrect bracket use"
�N,� 3 : text$="has incorrect operator use"
�X#� 5 : text$="has no expression"
�b(� 6 : text$="has an operand missing"
�l+� 7 : text$="has a badly formed number"
�v : text$="Error 9"
���
��+text$=text$+". It will not be plotted."
��2�func_error_message("Function "+fn$+" "+text$)
���redraw_main_window :� ok?
���
��
��
�� � �func_error_message(text$)
��ș"Hourglass_Smash"
��ș"Wimp_DragBox",,-1
��
!block%=�
��$(block%+4)=text$
��+ș "Wimp_ReportError",block%,1,"Graphs"
��
�
�
� 
�*� �ext_func(� f$)
�4*f$= �replace(f$,"ARCTANH","FNarctanh")
�>*f$= �replace(f$,"ARCCOSH","FNarccosh")
�H*f$= �replace(f$,"ARCSINH","FNarcsinh")
�R$f$= �replace(f$,"SINH","FNsinh")
�\$f$= �replace(f$,"COSH","FNcosh")
�f$f$= �replace(f$,"TANH","FNtanh")
�p$f$= �replace(f$,"FACT","FNfact")
�z� degrees% �
��$f$ = �replace(f$,"SIN","SINRAD")
��$f$ = �replace(f$,"COS","COSRAD")
��$f$ = �replace(f$,"TAN","TANRAD")
��$f$ = �replace(f$,"ASN","DEGASN")
��$f$ = �replace(f$,"ATN","DEGATN")
��$f$ = �replace(f$,"ACS","DEGACS")
���
���
��
��
��� �DUMMY
���
��
�
�
�

00000000  0d 00 0a 1c f4 20 3e 3a  67 72 61 70 68 73 2e 24  |..... >:graphs.$|
00000010  2e 76 65 72 73 69 6f 6e  73 2e 76 31 0d 00 14 1e  |.versions.v1....|
00000020  f4 20 50 6c 6f 74 73 20  6d 61 74 68 6d 61 74 69  |. Plots mathmati|
00000030  63 61 6c 20 67 72 61 70  68 73 0d 00 1e 22 f4 20  |cal graphs...". |
00000040  43 61 72 74 65 73 69 61  6e 2c 20 50 6f 6c 61 72  |Cartesian, Polar|
00000050  2c 20 50 61 72 61 6d 65  74 72 69 63 0d 00 28 33  |, Parametric..(3|
00000060  f4 20 56 65 72 73 69 6f  6e 20 31 20 2b 20 46 55  |. Version 1 + FU|
00000070  4e 43 54 49 4f 4e 20 45  56 41 4c 55 41 54 4f 52  |NCTION EVALUATOR|
00000080  20 20 41 2e 46 2e 4c 61  6e 65 20 31 39 39 30 0d  |  A.F.Lane 1990.|
00000090  00 32 04 0d 00 3c 12 ee  20 85 20 eb 20 30 3a f6  |.2...<.. . . 0:.|
000000a0  3a f1 9e 3a e0 0d 00 46  19 f2 69 6e 69 74 69 61  |:..:...F..initia|
000000b0  6c 69 73 65 5f 76 61 72  69 61 62 6c 65 73 0d 00  |lise_variables..|
000000c0  50 0e ee 20 85 20 f2 65  72 72 6f 72 0d 00 5a 11  |P.. . .error..Z.|
000000d0  f2 6c 6f 61 64 5f 73 70  72 69 74 65 73 0d 00 64  |.load_sprites..d|
000000e0  13 f2 6c 6f 61 64 5f 74  65 6d 70 6c 61 74 65 73  |..load_templates|
000000f0  0d 00 6e 10 f2 63 72 65  61 74 65 5f 6d 65 6e 75  |..n..create_menu|
00000100  0d 00 78 19 f2 69 6e 69  74 69 61 6c 69 73 65 5f  |..x..initialise_|
00000110  66 75 6e 63 74 69 6f 6e  73 0d 00 82 19 67 72 61  |functions....gra|
00000120  70 68 5f 69 63 6f 6e 25  20 3d a4 69 63 6f 6e 62  |ph_icon% =.iconb|
00000130  61 72 0d 00 8c 0e ee 20  85 20 f2 65 72 72 6f 72  |ar..... . .error|
00000140  0d 00 96 0d f2 61 73 73  65 6d 62 6c 65 0d 00 a0  |.....assemble...|
00000150  14 f2 67 65 74 5f 65 6e  76 69 72 6f 6e 6d 65 6e  |..get_environmen|
00000160  74 0d 00 aa 0d f2 6d 61  69 6e 6c 6f 6f 70 0d 00  |t.....mainloop..|
00000170  b4 05 e0 0d 00 be 04 0d  00 c8 05 20 0d 00 d2 1b  |........... ....|
00000180  dd 20 f2 69 6e 69 74 69  61 6c 69 73 65 5f 76 61  |. .initialise_va|
00000190  72 69 61 62 6c 65 73 0d  00 dc 0e f2 73 65 74 5f  |riables.....set_|
000001a0  76 6f 63 61 62 0d 00 e6  0f f2 73 65 74 5f 73 74  |vocab.....set_st|
000001b0  61 63 6b 73 0d 00 f0 0f  de 20 63 61 72 65 74 25  |acks..... caret%|
000001c0  20 32 34 0d 00 fa 0f de  20 63 6f 64 65 25 20 36  | 24..... code% 6|
000001d0  30 30 0d 01 04 13 de 20  67 72 61 70 68 5f 62 6f  |00..... graph_bo|
000001e0  78 25 20 31 38 0d 01 0e  11 de 20 62 6c 6f 63 6b  |x% 18..... block|
000001f0  25 20 26 33 30 30 0d 01  18 13 de 20 73 70 72 69  |% &300..... spri|
00000200  74 65 73 25 20 32 30 30  30 0d 01 22 13 de 20 62  |tes% 2000..".. b|
00000210  75 66 66 65 72 25 20 26  34 30 30 30 0d 01 2c 11  |uffer% &4000..,.|
00000220  de 20 74 65 6d 70 25 20  26 31 35 30 30 0d 01 36  |. temp% &1500..6|
00000230  19 f4 20 44 49 4d 20 71  75 69 74 5f 6d 65 6e 75  |.. DIM quit_menu|
00000240  25 20 26 32 30 30 0d 01  40 19 f4 20 44 49 4d 20  |% &200..@.. DIM |
00000250  6d 61 69 6e 5f 6d 65 6e  75 25 20 26 33 30 30 0d  |main_menu% &300.|
00000260  01 4a 13 de 20 63 61 72  74 5f 70 6c 6f 74 25 28  |.J.. cart_plot%(|
00000270  36 29 0d 01 54 18 de 20  63 61 72 74 5f 66 75 6e  |6)..T.. cart_fun|
00000280  63 74 69 6f 6e 73 24 28  36 29 0d 01 5e 20 de 20  |ctions$(6)..^ . |
00000290  65 6e 74 65 72 65 64 5f  63 61 72 74 5f 66 75 6e  |entered_cart_fun|
000002a0  63 74 69 6f 6e 73 24 28  36 29 0d 01 68 21 de 20  |ctions$(6)..h!. |
000002b0  63 75 72 72 65 6e 74 5f  63 61 72 74 5f 66 75 6e  |current_cart_fun|
000002c0  63 5f 74 65 78 74 25 20  32 30 30 0d 01 72 18 de  |c_text% 200..r..|
000002d0  20 70 6c 6f 74 5f 76 61  6c 75 65 73 25 20 34 30  | plot_values% 40|
000002e0  33 32 30 0d 01 7c 14 de  20 70 6f 6c 61 72 5f 70  |320..|.. polar_p|
000002f0  6c 6f 74 25 28 33 29 0d  01 86 19 de 20 70 6f 6c  |lot%(3)..... pol|
00000300  61 72 5f 66 75 6e 63 74  69 6f 6e 73 24 28 33 29  |ar_functions$(3)|
00000310  0d 01 90 21 de 20 65 6e  74 65 72 65 64 5f 70 6f  |...!. entered_po|
00000320  6c 61 72 5f 66 75 6e 63  74 69 6f 6e 73 24 28 33  |lar_functions$(3|
00000330  29 0d 01 9a 22 de 20 63  75 72 72 65 6e 74 5f 70  |)...". current_p|
00000340  6f 6c 61 72 5f 66 75 6e  63 5f 74 65 78 74 25 20  |olar_func_text% |
00000350  32 30 30 0d 01 a4 15 70  6f 6c 61 72 5f 70 6c 6f  |200....polar_plo|
00000360  74 25 28 29 20 3d 20 a3  0d 01 ae 19 de 20 70 61  |t%() = ...... pa|
00000370  72 61 78 5f 66 75 6e 63  74 69 6f 6e 73 24 28 33  |rax_functions$(3|
00000380  29 0d 01 b8 19 de 20 70  61 72 61 79 5f 66 75 6e  |)..... paray_fun|
00000390  63 74 69 6f 6e 73 24 28  33 29 0d 01 c2 14 63 61  |ctions$(3)....ca|
000003a0  72 74 5f 70 6c 6f 74 25  28 29 20 3d 20 a3 0d 01  |rt_plot%() = ...|
000003b0  cc 21 de 20 65 6e 74 65  72 65 64 5f 70 61 72 61  |.!. entered_para|
000003c0  78 5f 66 75 6e 63 74 69  6f 6e 73 24 28 36 29 0d  |x_functions$(6).|
000003d0  01 d6 21 de 20 65 6e 74  65 72 65 64 5f 70 61 72  |..!. entered_par|
000003e0  61 79 5f 66 75 6e 63 74  69 6f 6e 73 24 28 36 29  |ay_functions$(6)|
000003f0  0d 01 e0 22 de 20 63 75  72 72 65 6e 74 5f 70 61  |...". current_pa|
00000400  72 61 78 5f 66 75 6e 63  5f 74 65 78 74 25 20 32  |rax_func_text% 2|
00000410  30 30 0d 01 ea 22 de 20  63 75 72 72 65 6e 74 5f  |00...". current_|
00000420  70 61 72 61 79 5f 66 75  6e 63 5f 74 65 78 74 25  |paray_func_text%|
00000430  20 32 30 30 0d 01 f4 18  de 20 70 61 72 61 5f 66  | 200..... para_f|
00000440  75 6e 63 74 69 6f 6e 73  24 28 36 29 0d 01 fe 13  |unctions$(6)....|
00000450  de 20 70 61 72 61 5f 70  6c 6f 74 25 28 36 29 0d  |. para_plot%(6).|
00000460  02 08 15 de 20 68 65 6c  70 5f 62 6c 6f 63 6b 25  |.... help_block%|
00000470  20 31 30 30 0d 02 12 0c  de 20 62 25 20 34 30 30  | 100..... b% 400|
00000480  0d 02 1c 11 de 20 74 61  62 6c 65 25 20 35 32 30  |..... table% 520|
00000490  30 0d 02 26 12 6d 61 78  73 74 61 63 6b 25 20 3d  |0..&.maxstack% =|
000004a0  20 35 30 0d 02 30 17 de  20 73 74 61 63 6b 25 28  | 50..0.. stack%(|
000004b0  6d 61 78 73 74 61 63 6b  25 29 0d 02 3a 17 de 20  |maxstack%)..:.. |
000004c0  64 72 61 77 5f 61 72 72  61 79 25 20 32 34 30 30  |draw_array% 2400|
000004d0  30 0d 02 44 14 70 61 72  61 5f 70 6c 6f 74 25 28  |0..D.para_plot%(|
000004e0  29 20 3d 20 a3 0d 02 4e  13 24 62 6c 6f 63 6b 25  |) = ...N.$block%|
000004f0  3d 20 22 54 41 53 4b 22  0d 02 58 3f c8 99 20 22  |= "TASK"..X?.. "|
00000500  57 69 6d 70 5f 49 6e 69  74 69 61 6c 69 73 65 22  |Wimp_Initialise"|
00000510  2c 32 30 30 2c 21 62 6c  6f 63 6b 25 2c 22 47 72  |,200,!block%,"Gr|
00000520  61 70 68 73 22 20 b8 20  76 65 72 73 69 6f 6e 25  |aphs" . version%|
00000530  2c 20 74 61 73 6b 25 0d  02 62 12 63 61 72 74 5f  |, task%..b.cart_|
00000540  70 6c 6f 74 25 20 3d 20  b9 0d 02 6c 12 70 6f 6c  |plot% = ...l.pol|
00000550  61 72 5f 70 6c 6f 74 25  3d 20 a3 0d 02 76 12 70  |ar_plot%= ...v.p|
00000560  61 72 61 5f 70 6c 6f 74  25 20 3d 20 a3 0d 02 80  |ara_plot% = ....|
00000570  16 6d 61 69 6e 5f 6d 65  6e 75 5f 6f 70 65 6e 20  |.main_menu_open |
00000580  3d 20 a3 0d 02 8a 16 71  75 69 74 5f 6d 65 6e 75  |= .....quit_menu|
00000590  5f 6f 70 65 6e 20 3d 20  a3 0d 02 94 11 66 69 6e  |_open = .....fin|
000005a0  69 73 68 65 64 25 20 3d  20 a3 0d 02 9e 18 61 75  |ished% = .....au|
000005b0  74 6f 5f 79 5f 63 61 72  74 61 78 65 73 25 20 3d  |to_y_cartaxes% =|
000005c0  20 a3 0d 02 a8 14 73 68  6f 77 5f 61 78 65 73 25  | .....show_axes%|
000005d0  20 20 20 3d 20 b9 0d 02  b2 1b 63 61 72 74 5f 61  |   = .....cart_a|
000005e0  78 65 73 5f 79 65 73 5f  69 63 6f 6e 25 20 3d 20  |xes_yes_icon% = |
000005f0  39 0d 02 bc 1b 63 61 72  74 5f 66 75 6e 63 5f 79  |9....cart_func_y|
00000600  65 73 5f 69 63 6f 6e 25  20 3d 20 36 0d 02 c6 1d  |es_icon% = 6....|
00000610  63 61 72 74 5f 66 75 6e  63 5f 63 6f 75 6e 74 5f  |cart_func_count_|
00000620  69 63 6f 6e 25 20 3d 20  33 0d 02 d0 1b 63 61 72  |icon% = 3....car|
00000630  74 5f 66 75 6e 63 5f 69  63 6f 6e 25 20 20 20 20  |t_func_icon%    |
00000640  20 20 3d 37 0d 02 da 1b  63 75 72 72 65 6e 74 5f  |  =7....current_|
00000650  63 61 72 74 5f 66 75 6e  63 25 20 20 3d 20 31 0d  |cart_func%  = 1.|
00000660  02 e4 1b 63 61 72 74 5f  6d 69 6e 5f 78 5f 69 63  |...cart_min_x_ic|
00000670  6f 6e 25 20 20 20 20 3d  20 35 0d 02 ee 1b 63 61  |on%    = 5....ca|
00000680  72 74 5f 6d 61 78 5f 78  5f 69 63 6f 6e 25 20 20  |rt_max_x_icon%  |
00000690  20 20 3d 20 36 0d 02 f8  1b 63 61 72 74 5f 6d 69  |  = 6....cart_mi|
000006a0  6e 5f 79 5f 69 63 6f 6e  25 20 20 20 20 3d 20 37  |n_y_icon%    = 7|
000006b0  0d 03 02 1b 63 61 72 74  5f 6d 61 78 5f 79 5f 69  |....cart_max_y_i|
000006c0  63 6f 6e 25 20 20 20 20  3d 20 38 0d 03 0c 0d 78  |con%    = 8....x|
000006d0  5f 69 63 6f 6e 25 3d 32  0d 03 16 0d 79 5f 69 63  |_icon%=2....y_ic|
000006e0  6f 6e 25 3d 33 0d 03 20  1b 6f 6c 64 5f 6d 61 69  |on%=3.. .old_mai|
000006f0  6e 5f 78 5f 6f 72 69 67  69 6e 24 20 3d 20 22 22  |n_x_origin$ = ""|
00000700  0d 03 2a 1b 6f 6c 64 5f  6d 61 69 6e 5f 79 5f 6f  |..*.old_main_y_o|
00000710  72 69 67 69 6e 24 20 3d  20 22 22 0d 03 34 16 6d  |rigin$ = ""..4.m|
00000720  61 69 6e 5f 78 5f 6f 72  69 67 69 6e 25 20 3d 20  |ain_x_origin% = |
00000730  30 0d 03 3e 16 6d 61 69  6e 5f 79 5f 6f 72 69 67  |0..>.main_y_orig|
00000740  69 6e 25 20 3d 20 30 0d  03 48 16 65 6e 74 65 72  |in% = 0..H.enter|
00000750  65 64 5f 6d 61 78 78 20  20 3d 20 20 35 0d 03 52  |ed_maxx  =  5..R|
00000760  16 65 6e 74 65 72 65 64  5f 6d 69 6e 78 20 20 3d  |.entered_minx  =|
00000770  20 2d 35 0d 03 5c 16 65  6e 74 65 72 65 64 5f 6d  | -5..\.entered_m|
00000780  61 78 79 20 20 3d 20 31  30 0d 03 66 16 65 6e 74  |axy  = 10..f.ent|
00000790  65 72 65 64 5f 6d 69 6e  79 20 20 3d 2d 31 30 0d  |ered_miny  =-10.|
000007a0  03 70 18 61 75 74 6f 5f  79 5f 70 61 72 61 61 78  |.p.auto_y_paraax|
000007b0  65 73 25 20 3d 20 a3 0d  03 7a 25 f2 61 64 6a 75  |es% = ...z%.adju|
000007c0  73 74 5f 61 78 65 73 28  6d 61 78 78 2c 6d 69 6e  |st_axes(maxx,min|
000007d0  78 2c 6d 61 78 79 2c 6d  69 6e 79 29 0d 03 84 19  |x,maxy,miny)....|
000007e0  73 68 6f 77 5f 63 6f 6f  72 64 69 6e 61 74 65 73  |show_coordinates|
000007f0  25 20 3d 20 a3 0d 03 8e  18 64 65 66 61 75 6c 74  |% = .....default|
00000800  5f 66 6f 72 6d 61 74 25  20 3d 20 40 25 0d 03 98  |_format% = @%...|
00000810  20 69 6e 63 72 65 6d 65  6e 74 20 3d 20 28 6d 61  | increment = (ma|
00000820  78 78 2d 6d 69 6e 78 29  2f 31 32 38 30 0d 03 a2  |xx-minx)/1280...|
00000830  20 79 66 61 63 74 6f 72  20 3d 20 31 30 32 34 2f  | yfactor = 1024/|
00000840  28 6d 61 78 79 20 2d 20  6d 69 6e 79 29 0d 03 ac  |(maxy - miny)...|
00000850  29 79 5f 73 68 69 66 74  25 20 3d 20 35 31 32 20  |)y_shift% = 512 |
00000860  2b 79 66 61 63 74 6f 72  2a 28 6d 69 6e 79 2b 6d  |+yfactor*(miny+m|
00000870  61 78 79 29 2f 32 0d 03  b6 10 64 65 67 72 65 65  |axy)/2....degree|
00000880  73 25 20 3d 20 a3 0d 03  c0 43 f2 63 61 6c 63 5f  |s% = ....C.calc_|
00000890  63 61 72 74 5f 61 78 65  73 28 6d 69 6e 78 2c 6d  |cart_axes(minx,m|
000008a0  61 78 78 2c 6d 69 6e 79  2c 6d 61 78 79 2c 79 66  |axx,miny,maxy,yf|
000008b0  61 63 74 6f 72 2c 79 5f  73 68 69 66 74 25 2c 69  |actor,y_shift%,i|
000008c0  6e 63 72 65 6d 65 6e 74  29 0d 03 ca 10 7a 6f 6f  |ncrement)....zoo|
000008d0  6d 69 6e 67 25 20 3d 20  a3 0d 03 d4 1b 70 61 72  |ming% = .....par|
000008e0  61 5f 61 78 65 73 5f 79  65 73 5f 69 63 6f 6e 25  |a_axes_yes_icon%|
000008f0  20 3d 20 39 0d 03 de 18  70 61 72 61 5f 6d 69 6e  | = 9....para_min|
00000900  5f 78 5f 69 63 6f 6e 25  20 3d 20 35 0d 03 e8 18  |_x_icon% = 5....|
00000910  70 61 72 61 5f 6d 61 78  5f 78 5f 69 63 6f 6e 25  |para_max_x_icon%|
00000920  20 3d 20 36 0d 03 f2 18  70 61 72 61 5f 6d 69 6e  | = 6....para_min|
00000930  5f 79 5f 69 63 6f 6e 25  20 3d 20 37 0d 03 fc 18  |_y_icon% = 7....|
00000940  70 61 72 61 5f 6d 61 78  5f 79 5f 69 63 6f 6e 25  |para_max_y_icon%|
00000950  20 3d 20 38 0d 04 06 19  70 61 72 61 5f 6d 69 6e  | = 8....para_min|
00000960  5f 74 5f 69 63 6f 6e 25  20 3d 20 31 31 0d 04 10  |_t_icon% = 11...|
00000970  19 70 61 72 61 5f 6d 61  78 5f 74 5f 69 63 6f 6e  |.para_max_t_icon|
00000980  25 20 3d 20 31 33 0d 04  1a 19 63 75 72 72 65 6e  |% = 13....curren|
00000990  74 5f 70 61 72 61 5f 66  75 6e 63 25 20 3d 31 0d  |t_para_func% =1.|
000009a0  04 24 1b 70 61 72 61 5f  66 75 6e 63 5f 79 65 73  |.$.para_func_yes|
000009b0  5f 69 63 6f 6e 25 20 3d  20 36 0d 04 2e 19 70 61  |_icon% = 6....pa|
000009c0  72 61 5f 66 75 6e 63 78  5f 69 63 6f 6e 25 20 20  |ra_funcx_icon%  |
000009d0  20 3d 37 0d 04 38 1a 70  61 72 61 5f 66 75 6e 63  | =7..8.para_func|
000009e0  79 5f 69 63 6f 6e 25 20  20 20 3d 31 31 0d 04 42  |y_icon%   =11..B|
000009f0  1b 70 61 72 61 5f 66 75  6e 63 5f 63 6f 75 6e 74  |.para_func_count|
00000a00  5f 69 63 6f 6e 25 3d 33  0d 04 4c 1d 70 6f 6c 61  |_icon%=3..L.pola|
00000a10  72 5f 72 61 64 69 75 73  5f 69 63 6f 6e 25 20 20  |r_radius_icon%  |
00000a20  20 20 3d 20 32 0d 04 56  1d 70 6f 6c 61 72 5f 6d  |  = 2..V.polar_m|
00000a30  69 6e 5f 69 63 6f 6e 25  20 20 20 20 20 20 20 3d  |in_icon%       =|
00000a40  20 34 0d 04 60 1d 70 6f  6c 61 72 5f 6d 61 78 5f  | 4..`.polar_max_|
00000a50  69 63 6f 6e 25 20 20 20  20 20 20 20 3d 20 35 0d  |icon%       = 5.|
00000a60  04 6a 1d 70 6f 6c 61 72  5f 61 78 65 73 5f 79 65  |.j.polar_axes_ye|
00000a70  73 5f 69 63 6f 6e 25 20  20 3d 20 37 0d 04 74 1d  |s_icon%  = 7..t.|
00000a80  70 6f 6c 61 72 5f 6c 65  66 74 5f 69 63 6f 6e 25  |polar_left_icon%|
00000a90  20 20 20 20 20 20 3d 20  34 0d 04 7e 1d 70 6f 6c  |      = 4..~.pol|
00000aa0  61 72 5f 66 75 6e 63 5f  63 6f 75 6e 74 5f 69 63  |ar_func_count_ic|
00000ab0  6f 6e 25 3d 20 33 0d 04  88 1d 70 6f 6c 61 72 5f  |on%= 3....polar_|
00000ac0  72 69 67 68 74 5f 69 63  6f 6e 25 20 20 20 20 20  |right_icon%     |
00000ad0  3d 20 35 0d 04 92 1d 70  6f 6c 61 72 5f 66 75 6e  |= 5....polar_fun|
00000ae0  63 5f 69 63 6f 6e 25 20  20 20 20 20 20 3d 20 37  |c_icon%      = 7|
00000af0  0d 04 9c 1d 70 6f 6c 61  72 5f 66 75 6e 63 5f 79  |....polar_func_y|
00000b00  65 73 5f 69 63 6f 6e 25  20 20 3d 20 36 0d 04 a6  |es_icon%  = 6...|
00000b10  1d 70 6f 6c 61 72 5f 63  6f 6c 6f 75 72 5f 69 63  |.polar_colour_ic|
00000b20  6f 6e 25 20 20 20 20 3d  20 39 0d 04 b0 1d 61 75  |on%    = 9....au|
00000b30  74 6f 5f 70 6f 6c 61 72  5f 61 78 65 73 25 20 20  |to_polar_axes%  |
00000b40  20 20 20 20 3d 20 a3 0d  04 ba 1d 63 75 72 72 65  |    = .....curre|
00000b50  6e 74 5f 70 6f 6c 61 72  5f 66 75 6e 63 25 20 20  |nt_polar_func%  |
00000b60  20 3d 20 31 0d 04 c4 23  62 69 67 25 20 20 20 20  | = 1...#big%    |
00000b70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3d 20  |              = |
00000b80  31 30 30 30 30 30 30 0d  04 ce 1d 6d 61 78 5f 72  |1000000....max_r|
00000b90  61 64 69 75 73 20 20 20  20 20 20 20 20 20 20 20  |adius           |
00000ba0  20 3d 20 31 0d 04 d8 1d  6f 6b 5f 69 63 6f 6e 25  | = 1....ok_icon%|
00000bb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3d 20  |              = |
00000bc0  30 0d 04 e2 1d 70 69 63  74 75 72 65 25 20 20 20  |0....picture%   |
00000bd0  20 20 20 20 20 20 20 20  20 20 20 3d 20 33 0d 04  |           = 3..|
00000be0  ec 1d 65 6e 74 65 72 65  64 5f 72 61 64 20 20 20  |..entered_rad   |
00000bf0  20 20 20 20 20 20 20 20  3d 20 31 0d 04 f6 22 66  |        = 1..."f|
00000c00  6f 72 6d 61 74 24 20 20  20 20 20 20 20 20 20 20  |ormat$          |
00000c10  20 20 20 20 20 3d 20 22  64 61 74 61 22 0d 05 00  |     = "data"...|
00000c20  1c 73 66 20 20 20 20 20  20 20 20 20 20 20 20 20  |.sf             |
00000c30  20 20 20 20 20 20 20 3d  31 0d 05 0a 1c 6f 6c 64  |       =1....old|
00000c40  5f 73 66 20 20 20 20 20  20 20 20 20 20 20 20 20  |_sf             |
00000c50  20 20 20 3d 31 0d 05 14  1c 73 61 76 65 5f 6f 70  |   =1....save_op|
00000c60  65 6e 25 20 20 20 20 20  20 20 20 20 20 20 20 3d  |en%            =|
00000c70  a3 0d 05 1e 1c 73 61 76  65 31 5f 6f 70 65 6e 25  |.....save1_open%|
00000c80  20 20 20 20 20 20 20 20  20 20 20 3d a3 0d 05 28  |           =...(|
00000c90  05 e1 0d 05 32 05 20 0d  05 3c 04 0d 05 46 1b dd  |....2. ..<...F..|
00000ca0  20 f2 69 6e 69 74 69 61  6c 69 73 65 5f 66 75 6e  | .initialise_fun|
00000cb0  63 74 69 6f 6e 73 0d 05  50 1d 63 61 72 74 5f 66  |ctions..P.cart_f|
00000cc0  75 6e 63 74 69 6f 6e 73  24 28 31 29 20 3d 22 58  |unctions$(1) ="X|
00000cd0  5e 32 22 0d 05 5a 1d 63  61 72 74 5f 66 75 6e 63  |^2"..Z.cart_func|
00000ce0  74 69 6f 6e 73 24 28 32  29 20 3d 22 58 5e 33 22  |tions$(2) ="X^3"|
00000cf0  0d 05 64 1d 63 61 72 74  5f 66 75 6e 63 74 69 6f  |..d.cart_functio|
00000d00  6e 73 24 28 33 29 20 3d  22 31 2f 58 22 0d 05 6e  |ns$(3) ="1/X"..n|
00000d10  1f 63 61 72 74 5f 66 75  6e 63 74 69 6f 6e 73 24  |.cart_functions$|
00000d20  28 34 29 20 3d 22 31 2f  58 5e 32 22 0d 05 78 1e  |(4) ="1/X^2"..x.|
00000d30  63 61 72 74 5f 66 75 6e  63 74 69 6f 6e 73 24 28  |cart_functions$(|
00000d40  35 29 20 3d 22 53 49 4e  58 22 0d 05 82 1e 63 61  |5) ="SINX"....ca|
00000d50  72 74 5f 66 75 6e 63 74  69 6f 6e 73 24 28 36 29  |rt_functions$(6)|
00000d60  20 3d 22 4c 4f 47 58 22  0d 05 8c 1e 70 61 72 61  | ="LOGX"....para|
00000d70  5f 66 75 6e 63 74 69 6f  6e 73 24 28 31 29 20 3d  |_functions$(1) =|
00000d80  22 32 74 5e 32 22 0d 05  96 1c 70 61 72 61 5f 66  |"2t^2"....para_f|
00000d90  75 6e 63 74 69 6f 6e 73  24 28 32 29 20 3d 22 34  |unctions$(2) ="4|
00000da0  74 22 0d 05 a0 1e 70 61  72 61 5f 66 75 6e 63 74  |t"....para_funct|
00000db0  69 6f 6e 73 24 28 33 29  20 3d 22 53 49 4e 74 22  |ions$(3) ="SINt"|
00000dc0  0d 05 aa 1f 70 61 72 61  5f 66 75 6e 63 74 69 6f  |....para_functio|
00000dd0  6e 73 24 28 34 29 20 3d  22 43 4f 53 33 74 22 0d  |ns$(4) ="COS3t".|
00000de0  05 b4 1c 70 61 72 61 5f  66 75 6e 63 74 69 6f 6e  |...para_function|
00000df0  73 24 28 35 29 20 3d 22  32 74 22 0d 05 be 1d 70  |s$(5) ="2t"....p|
00000e00  61 72 61 5f 66 75 6e 63  74 69 6f 6e 73 24 28 36  |ara_functions$(6|
00000e10  29 20 3d 22 31 2f 74 22  0d 05 c8 14 e3 20 67 72  |) ="1/t"..... gr|
00000e20  61 70 68 25 20 3d 20 31  20 b8 20 36 0d 05 d2 3f  |aph% = 1 . 6...?|
00000e30  20 20 65 6e 74 65 72 65  64 5f 63 61 72 74 5f 66  |  entered_cart_f|
00000e40  75 6e 63 74 69 6f 6e 73  24 28 67 72 61 70 68 25  |unctions$(graph%|
00000e50  29 20 3d 20 63 61 72 74  5f 66 75 6e 63 74 69 6f  |) = cart_functio|
00000e60  6e 73 24 28 67 72 61 70  68 25 29 0d 05 dc 05 ed  |ns$(graph%).....|
00000e70  0d 05 e6 14 f2 69 6e 69  74 69 61 6c 69 73 65 5f  |.....initialise_|
00000e80  70 61 72 61 0d 05 f0 17  77 69 6e 64 6f 77 25 3d  |para....window%=|
00000e90  20 63 61 72 74 65 73 69  61 6e 25 0d 05 fa 2e 63  | cartesian%....c|
00000ea0  61 72 74 5f 66 75 6e 63  5f 69 63 6f 6e 25 3d 20  |art_func_icon%= |
00000eb0  a4 75 70 64 61 74 65 5f  63 61 72 74 5f 66 75 6e  |.update_cart_fun|
00000ec0  63 74 69 6f 6e 28 20 31  29 0d 06 04 48 63 61 72  |ction( 1)...Hcar|
00000ed0  74 5f 61 78 65 73 5f 79  65 73 5f 69 63 6f 6e 25  |t_axes_yes_icon%|
00000ee0  3d a4 63 68 61 6e 67 65  5f 74 65 78 74 28 63 61  |=.change_text(ca|
00000ef0  72 74 61 78 65 73 25 2c  63 61 72 74 5f 61 78 65  |rtaxes%,cart_axe|
00000f00  73 5f 79 65 73 5f 69 63  6f 6e 25 2c 22 4e 4f 22  |s_yes_icon%,"NO"|
00000f10  29 0d 06 0e 17 f2 74 69  63 6b 28 6d 61 69 6e 5f  |).....tick(main_|
00000f20  6d 65 6e 75 25 2c 35 29  0d 06 18 1a f2 6e 6f 5f  |menu%,5).....no_|
00000f30  74 69 63 6b 28 6d 61 69  6e 5f 6d 65 6e 75 25 2c  |tick(main_menu%,|
00000f40  36 29 0d 06 22 1a f2 6e  6f 5f 74 69 63 6b 28 6d  |6).."..no_tick(m|
00000f50  61 69 6e 5f 6d 65 6e 75  25 2c 37 29 0d 06 2c 1a  |ain_menu%,7)..,.|
00000f60  f2 6e 6f 5f 74 69 63 6b  28 6d 61 69 6e 5f 6d 65  |.no_tick(main_me|
00000f70  6e 75 25 2c 38 29 0d 06  36 17 f2 74 69 63 6b 28  |nu%,8)..6..tick(|
00000f80  6d 61 69 6e 5f 6d 65 6e  75 25 2c 39 29 0d 06 40  |main_menu%,9)..@|
00000f90  19 77 69 6e 64 6f 77 25  20 3d 20 70 61 72 61 6d  |.window% = param|
00000fa0  65 74 72 69 63 25 0d 06  4a 30 70 61 72 61 5f 66  |etric%..J0para_f|
00000fb0  75 6e 63 78 5f 69 63 6f  6e 25 3d 20 a4 75 70 64  |uncx_icon%= .upd|
00000fc0  61 74 65 5f 70 61 72 61  78 5f 66 75 6e 63 74 69  |ate_parax_functi|
00000fd0  6f 6e 28 20 31 29 0d 06  54 30 70 61 72 61 5f 66  |on( 1)..T0para_f|
00000fe0  75 6e 63 79 5f 69 63 6f  6e 25 3d 20 a4 75 70 64  |uncy_icon%= .upd|
00000ff0  61 74 65 5f 70 61 72 61  79 5f 66 75 6e 63 74 69  |ate_paray_functi|
00001000  6f 6e 28 20 31 29 0d 06  5e 48 70 61 72 61 5f 61  |on( 1)..^Hpara_a|
00001010  78 65 73 5f 79 65 73 5f  69 63 6f 6e 25 3d a4 63  |xes_yes_icon%=.c|
00001020  68 61 6e 67 65 5f 74 65  78 74 28 70 61 72 61 61  |hange_text(paraa|
00001030  78 65 73 25 2c 63 61 72  74 5f 61 78 65 73 5f 79  |xes%,cart_axes_y|
00001040  65 73 5f 69 63 6f 6e 25  2c 22 4e 4f 22 29 0d 06  |es_icon%,"NO")..|
00001050  68 14 77 69 6e 64 6f 77  25 20 3d 20 70 6f 6c 61  |h.window% = pola|
00001060  72 25 0d 06 72 23 70 6f  6c 61 72 5f 66 75 6e 63  |r%..r#polar_func|
00001070  74 69 6f 6e 73 24 28 31  29 20 3d 22 53 49 4e 74  |tions$(1) ="SINt|
00001080  43 4f 53 74 22 0d 06 7c  24 70 6f 6c 61 72 5f 66  |COSt"..|$polar_f|
00001090  75 6e 63 74 69 6f 6e 73  24 28 32 29 20 3d 22 53  |unctions$(2) ="S|
000010a0  49 4e 33 74 43 4f 53 34  22 0d 06 86 1f 70 6f 6c  |IN3tCOS4"....pol|
000010b0  61 72 5f 66 75 6e 63 74  69 6f 6e 73 24 28 33 29  |ar_functions$(3)|
000010c0  20 3d 22 54 41 4e 74 22  0d 06 90 1d 70 61 72 61  | ="TANt"....para|
000010d0  5f 66 75 6e 63 74 69 6f  6e 73 24 28 36 29 20 3d  |_functions$(6) =|
000010e0  22 31 2f 74 22 0d 06 9a  14 e3 20 67 72 61 70 68  |"1/t"..... graph|
000010f0  25 20 3d 20 31 20 b8 20  33 0d 06 a4 41 20 20 65  |% = 1 . 3...A  e|
00001100  6e 74 65 72 65 64 5f 70  6f 6c 61 72 5f 66 75 6e  |ntered_polar_fun|
00001110  63 74 69 6f 6e 73 24 28  67 72 61 70 68 25 29 20  |ctions$(graph%) |
00001120  3d 20 70 6f 6c 61 72 5f  66 75 6e 63 74 69 6f 6e  |= polar_function|
00001130  73 24 28 67 72 61 70 68  25 29 0d 06 ae 05 ed 0d  |s$(graph%)......|
00001140  06 b8 30 70 6f 6c 61 72  5f 66 75 6e 63 5f 69 63  |..0polar_func_ic|
00001150  6f 6e 25 3d 20 a4 75 70  64 61 74 65 5f 70 6f 6c  |on%= .update_pol|
00001160  61 72 5f 66 75 6e 63 74  69 6f 6e 28 20 31 29 0d  |ar_function( 1).|
00001170  06 c2 17 77 69 6e 64 6f  77 25 3d 20 63 61 72 74  |...window%= cart|
00001180  65 73 69 61 6e 25 0d 06  cc 05 e1 0d 06 d6 04 0d  |esian%..........|
00001190  06 e0 04 0d 06 ea 13 dd  20 f2 6c 6f 61 64 5f 73  |........ .load_s|
000011a0  70 72 69 74 65 73 0d 06  f4 2d 53 25 3d 8e 22 3c  |prites...-S%=."<|
000011b0  47 72 61 70 68 24 44 69  72 3e 2e 53 70 72 69 74  |Graph$Dir>.Sprit|
000011c0  65 73 22 3a 54 25 3d a2  23 53 25 2b 31 36 3a d9  |es":T%=.#S%+16:.|
000011d0  23 53 25 0d 06 fe 11 de  20 73 70 72 69 74 65 73  |#S%..... sprites|
000011e0  25 20 54 25 0d 07 08 1d  21 73 70 72 69 74 65 73  |% T%....!sprites|
000011f0  25 3d 54 25 3a 73 70 72  69 74 65 73 25 21 38 3d  |%=T%:sprites%!8=|
00001200  31 0d 07 12 22 c8 99 20  22 4f 53 5f 53 70 72 69  |1...".. "OS_Spri|
00001210  74 65 4f 70 22 2c 26 31  30 39 2c 73 70 72 69 74  |teOp",&109,sprit|
00001220  65 73 25 0d 07 1c 38 c8  99 20 22 4f 53 5f 53 70  |es%...8.. "OS_Sp|
00001230  72 69 74 65 4f 70 22 2c  26 31 30 41 2c 73 70 72  |riteOp",&10A,spr|
00001240  69 74 65 73 25 2c 22 3c  47 72 61 70 68 24 44 69  |ites%,"<Graph$Di|
00001250  72 3e 2e 73 70 72 69 74  65 73 22 0d 07 26 05 e1  |r>.sprites"..&..|
00001260  0d 07 30 04 0d 07 3a 04  0d 07 44 15 dd 20 f2 6c  |..0...:...D.. .l|
00001270  6f 61 64 5f 74 65 6d 70  6c 61 74 65 73 0d 07 4e  |oad_templates..N|
00001280  33 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |3.. "Wimp_OpenTe|
00001290  6d 70 6c 61 74 65 22 2c  2c 22 3c 47 72 61 70 68  |mplate",,"<Graph|
000012a0  24 44 69 72 3e 2e 74 65  6d 70 6c 61 74 65 73 22  |$Dir>.templates"|
000012b0  0d 07 58 49 c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |..XI.. "Wimp_Loa|
000012c0  64 54 65 6d 70 6c 61 74  65 22 2c 2c 62 75 66 66  |dTemplate",,buff|
000012d0  65 72 25 2c 74 65 6d 70  25 2b 26 32 30 30 2c 74  |er%,temp%+&200,t|
000012e0  65 6d 70 25 2b 26 32 46  46 2c 2d 31 2c 22 70 72  |emp%+&2FF,-1,"pr|
000012f0  6f 67 69 6e 66 6f 22 2c  30 0d 07 62 2b c8 99 20  |oginfo",0..b+.. |
00001300  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00001310  6f 77 22 2c 2c 62 75 66  66 65 72 25 20 b8 20 69  |ow",,buffer% . i|
00001320  6e 66 6f 25 0d 07 6c 45  c8 99 20 22 57 69 6d 70  |nfo%..lE.. "Wimp|
00001330  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00001340  62 75 66 66 65 72 25 2c  74 65 6d 70 25 2b 26 33  |buffer%,temp%+&3|
00001350  30 30 2c 74 65 6d 70 25  2b 26 35 46 46 2c 2d 31  |00,temp%+&5FF,-1|
00001360  2c 22 73 61 76 65 22 2c  30 0d 07 76 19 62 75 66  |,"save",0..v.buf|
00001370  66 65 72 25 21 36 34 20  3d 20 73 70 72 69 74 65  |fer%!64 = sprite|
00001380  73 25 0d 07 80 2b c8 99  20 22 57 69 6d 70 5f 43  |s%...+.. "Wimp_C|
00001390  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 75  |reateWindow",,bu|
000013a0  66 66 65 72 25 20 b8 20  73 61 76 65 25 0d 07 8a  |ffer% . save%...|
000013b0  46 c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |F.. "Wimp_LoadTe|
000013c0  6d 70 6c 61 74 65 22 2c  2c 62 75 66 66 65 72 25  |mplate",,buffer%|
000013d0  2c 74 65 6d 70 25 2b 26  36 30 30 2c 74 65 6d 70  |,temp%+&600,temp|
000013e0  25 2b 26 38 46 46 2c 2d  31 2c 22 73 61 76 65 31  |%+&8FF,-1,"save1|
000013f0  22 2c 30 0d 07 94 19 62  75 66 66 65 72 25 21 36  |",0....buffer%!6|
00001400  34 20 3d 20 73 70 72 69  74 65 73 25 0d 07 9e 2c  |4 = sprites%...,|
00001410  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00001420  69 6e 64 6f 77 22 2c 2c  62 75 66 66 65 72 25 20  |indow",,buffer% |
00001430  b8 20 73 61 76 65 31 25  0d 07 a8 45 c8 99 20 22  |. save1%...E.. "|
00001440  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00001450  65 22 2c 2c 62 75 66 66  65 72 25 2c 74 65 6d 70  |e",,buffer%,temp|
00001460  25 2b 26 39 30 30 2c 74  65 6d 70 25 2b 26 39 46  |%+&900,temp%+&9F|
00001470  46 2c 2d 31 2c 22 6d 61  69 6e 22 2c 30 0d 07 b2  |F,-1,"main",0...|
00001480  19 62 75 66 66 65 72 25  21 36 34 20 3d 20 73 70  |.buffer%!64 = sp|
00001490  72 69 74 65 73 25 0d 07  bc 2b c8 99 20 22 57 69  |rites%...+.. "Wi|
000014a0  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
000014b0  2c 2c 62 75 66 66 65 72  25 20 b8 20 6d 61 69 6e  |,,buffer% . main|
000014c0  25 0d 07 c6 49 c8 99 20  22 57 69 6d 70 5f 4c 6f  |%...I.. "Wimp_Lo|
000014d0  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 62 75 66  |adTemplate",,buf|
000014e0  66 65 72 25 2c 74 65 6d  70 25 2b 26 41 30 30 2c  |fer%,temp%+&A00,|
000014f0  74 65 6d 70 25 2b 26 41  46 46 2c 2d 31 2c 22 63  |temp%+&AFF,-1,"c|
00001500  61 72 74 61 78 65 73 22  2c 30 0d 07 d0 2f c8 99  |artaxes",0.../..|
00001510  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00001520  64 6f 77 22 2c 2c 62 75  66 66 65 72 25 20 b8 20  |dow",,buffer% . |
00001530  63 61 72 74 61 78 65 73  25 0d 07 da 4a c8 99 20  |cartaxes%...J.. |
00001540  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00001550  74 65 22 2c 2c 62 75 66  66 65 72 25 2c 74 65 6d  |te",,buffer%,tem|
00001560  70 25 2b 26 42 30 30 2c  74 65 6d 70 25 2b 26 44  |p%+&B00,temp%+&D|
00001570  46 46 2c 2d 31 2c 22 63  61 72 74 65 73 69 61 6e  |FF,-1,"cartesian|
00001580  22 2c 30 0d 07 e4 19 62  75 66 66 65 72 25 21 36  |",0....buffer%!6|
00001590  34 20 3d 20 73 70 72 69  74 65 73 25 0d 07 ee 30  |4 = sprites%...0|
000015a0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
000015b0  69 6e 64 6f 77 22 2c 2c  62 75 66 66 65 72 25 20  |indow",,buffer% |
000015c0  b8 20 63 61 72 74 65 73  69 61 6e 25 0d 07 f8 46  |. cartesian%...F|
000015d0  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
000015e0  70 6c 61 74 65 22 2c 2c  62 75 66 66 65 72 25 2c  |plate",,buffer%,|
000015f0  74 65 6d 70 25 2b 26 45  30 30 2c 74 65 6d 70 25  |temp%+&E00,temp%|
00001600  2b 26 45 46 46 2c 2d 31  2c 22 63 6f 6f 72 64 22  |+&EFF,-1,"coord"|
00001610  2c 30 0d 08 02 2c c8 99  20 22 57 69 6d 70 5f 43  |,0...,.. "Wimp_C|
00001620  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 75  |reateWindow",,bu|
00001630  66 66 65 72 25 20 b8 20  63 6f 6f 72 64 25 0d 08  |ffer% . coord%..|
00001640  0c 4c c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |.L.. "Wimp_LoadT|
00001650  65 6d 70 6c 61 74 65 22  2c 2c 62 75 66 66 65 72  |emplate",,buffer|
00001660  25 2c 74 65 6d 70 25 2b  26 46 30 30 2c 74 65 6d  |%,temp%+&F00,tem|
00001670  70 25 2b 26 31 30 46 46  2c 2d 31 2c 22 70 61 72  |p%+&10FF,-1,"par|
00001680  61 6d 65 74 72 69 63 22  2c 30 0d 08 16 19 62 75  |ametric",0....bu|
00001690  66 66 65 72 25 21 36 34  20 3d 20 73 70 72 69 74  |ffer%!64 = sprit|
000016a0  65 73 25 0d 08 20 31 c8  99 20 22 57 69 6d 70 5f  |es%.. 1.. "Wimp_|
000016b0  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 62  |CreateWindow",,b|
000016c0  75 66 66 65 72 25 20 b8  20 70 61 72 61 6d 65 74  |uffer% . paramet|
000016d0  72 69 63 25 0d 08 2a 4b  c8 99 20 22 57 69 6d 70  |ric%..*K.. "Wimp|
000016e0  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
000016f0  62 75 66 66 65 72 25 2c  74 65 6d 70 25 2b 26 31  |buffer%,temp%+&1|
00001700  31 30 30 2c 74 65 6d 70  25 2b 26 31 31 46 46 2c  |100,temp%+&11FF,|
00001710  2d 31 2c 22 70 61 72 61  61 78 65 73 22 2c 30 0d  |-1,"paraaxes",0.|
00001720  08 34 2f c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.4/.. "Wimp_Crea|
00001730  74 65 57 69 6e 64 6f 77  22 2c 2c 62 75 66 66 65  |teWindow",,buffe|
00001740  72 25 20 b8 20 70 61 72  61 61 78 65 73 25 0d 08  |r% . paraaxes%..|
00001750  3e 4c c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |>L.. "Wimp_LoadT|
00001760  65 6d 70 6c 61 74 65 22  2c 2c 62 75 66 66 65 72  |emplate",,buffer|
00001770  25 2c 74 65 6d 70 25 2b  26 31 32 30 30 2c 74 65  |%,temp%+&1200,te|
00001780  6d 70 25 2b 26 31 32 46  46 2c 2d 31 2c 22 70 6f  |mp%+&12FF,-1,"po|
00001790  6c 61 72 61 78 65 73 22  2c 30 0d 08 48 30 c8 99  |laraxes",0..H0..|
000017a0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
000017b0  64 6f 77 22 2c 2c 62 75  66 66 65 72 25 20 b8 20  |dow",,buffer% . |
000017c0  70 6f 6c 61 72 61 78 65  73 25 0d 08 52 48 c8 99  |polaraxes%..RH..|
000017d0  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
000017e0  61 74 65 22 2c 2c 62 75  66 66 65 72 25 2c 74 65  |ate",,buffer%,te|
000017f0  6d 70 25 2b 26 31 33 30  30 2c 74 65 6d 70 25 2b  |mp%+&1300,temp%+|
00001800  26 31 34 46 46 2c 2d 31  2c 22 70 6f 6c 61 72 22  |&14FF,-1,"polar"|
00001810  2c 30 0d 08 5c 19 62 75  66 66 65 72 25 21 36 34  |,0..\.buffer%!64|
00001820  20 3d 20 73 70 72 69 74  65 73 25 0d 08 66 2c c8  | = sprites%..f,.|
00001830  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00001840  6e 64 6f 77 22 2c 2c 62  75 66 66 65 72 25 20 b8  |ndow",,buffer% .|
00001850  20 70 6f 6c 61 72 25 0d  08 70 1b c8 99 20 22 57  | polar%..p... "W|
00001860  69 6d 70 5f 43 6c 6f 73  65 54 65 6d 70 6c 61 74  |imp_CloseTemplat|
00001870  65 22 0d 08 7a 12 66 6f  72 6d 61 74 24 3d 22 64  |e"..z.format$="d|
00001880  61 74 61 22 0d 08 84 26  64 75 6d 6d 79 24 3d a4  |ata"...&dummy$=.|
00001890  72 65 61 64 5f 66 69 6c  65 6e 61 6d 65 5f 74 65  |read_filename_te|
000018a0  78 74 28 73 61 76 65 31  25 29 0d 08 8e 12 66 6f  |xt(save1%)....fo|
000018b0  72 6d 61 74 24 3d 22 64  72 61 77 22 0d 08 98 25  |rmat$="draw"...%|
000018c0  64 75 6d 6d 79 24 3d a4  72 65 61 64 5f 66 69 6c  |dummy$=.read_fil|
000018d0  65 6e 61 6d 65 5f 74 65  78 74 28 73 61 76 65 25  |ename_text(save%|
000018e0  29 0d 08 a2 14 24 66 69  25 3d 22 47 72 61 70 68  |)....$fi%="Graph|
000018f0  44 61 74 61 22 0d 08 ac  14 24 67 69 25 3d 22 47  |Data"....$gi%="G|
00001900  72 61 70 68 44 72 61 77  22 0d 08 b6 05 e1 0d 08  |raphDraw".......|
00001910  c0 04 0d 08 ca 04 0d 08  d4 04 0d 08 de 04 0d 08  |................|
00001920  e8 04 0d 08 f2 04 0d 08  fc 0c dd 20 f2 65 72 72  |........... .err|
00001930  6f 72 0d 09 06 0b ea 20  74 65 6d 70 25 0d 09 10  |or..... temp%...|
00001940  0e 74 65 6d 70 25 20 3d  20 40 25 0d 09 1a 18 40  |.temp% = @%....@|
00001950  25 20 3d 20 64 65 66 61  75 6c 74 5f 66 6f 72 6d  |% = default_form|
00001960  61 74 25 0d 09 24 0e e7  20 9f 20 3d 20 31 37 20  |at%..$.. . = 17 |
00001970  8c 0d 09 2e 26 20 20 f2  65 72 72 6f 72 5f 6d 65  |....&  .error_me|
00001980  73 73 61 67 65 28 22 45  73 63 61 70 65 20 70 72  |ssage("Escape pr|
00001990  65 73 73 65 64 22 29 0d  09 38 09 20 20 ef 20 33  |essed")..8.  . 3|
000019a0  0d 09 42 07 20 20 e0 0d  09 4c 05 cc 0d 09 56 32  |..B.  ...L....V2|
000019b0  20 20 f2 65 72 72 6f 72  5f 6d 65 73 73 61 67 65  |  .error_message|
000019c0  28 f6 24 2b 22 20 28 69  6e 74 65 72 6e 61 6c 20  |(.$+" (internal |
000019d0  65 72 72 6f 72 29 20 22  2b c3 28 9e 29 29 0d 09  |error) "+.(.))..|
000019e0  60 05 cd 0d 09 6a 0c 40  25 3d 74 65 6d 70 25 0d  |`....j.@%=temp%.|
000019f0  09 74 05 e1 0d 09 7e 04  0d 09 88 04 0d 09 92 04  |.t....~.........|
00001a00  0d 09 9c 04 0d 09 a6 04  0d 09 b0 04 0d 09 ba 1b  |................|
00001a10  dd 20 f2 65 72 72 6f 72  5f 6d 65 73 73 61 67 65  |. .error_message|
00001a20  28 74 65 78 74 24 29 0d  09 c4 17 c8 99 22 48 6f  |(text$)......"Ho|
00001a30  75 72 67 6c 61 73 73 5f  53 6d 61 73 68 22 0d 09  |urglass_Smash"..|
00001a40  ce 18 c8 99 22 57 69 6d  70 5f 44 72 61 67 42 6f  |...."Wimp_DragBo|
00001a50  78 22 2c 2c 2d 31 0d 09  d8 0d 21 62 6c 6f 63 6b  |x",,-1....!block|
00001a60  25 3d 9f 0d 09 e2 15 24  28 62 6c 6f 63 6b 25 2b  |%=.....$(block%+|
00001a70  34 29 3d 74 65 78 74 24  0d 09 ec 2b c8 99 20 22  |4)=text$...+.. "|
00001a80  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00001a90  22 2c 62 6c 6f 63 6b 25  2c 31 2c 22 47 72 61 70  |",block%,1,"Grap|
00001aa0  68 73 22 0d 09 f6 05 e1  0d 0a 00 04 0d 0a 0a 04  |hs".............|
00001ab0  0d 0a 14 04 0d 0a 1e 04  0d 0a 28 04 0d 0a 32 04  |..........(...2.|
00001ac0  0d 0a 3c 10 dd 20 f2 67  6c 61 73 73 28 6f 25 29  |..<.. .glass(o%)|
00001ad0  0d 0a 46 0a e7 20 6f 25  20 8c 0d 0a 50 16 20 20  |..F.. o% ...P.  |
00001ae0  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |.."Hourglass_On"|
00001af0  0d 0a 5a 05 cc 0d 0a 64  17 20 20 c8 99 22 48 6f  |..Z....d.  .."Ho|
00001b00  75 72 67 6c 61 73 73 5f  4f 66 66 22 0d 0a 6e 05  |urglass_Off"..n.|
00001b10  cd 0d 0a 78 05 e1 0d 0a  82 04 0d 0a 8c 04 0d 0a  |...x............|
00001b20  96 04 0d 0a a0 04 0d 0a  aa 04 0d 0a b4 04 0d 0a  |................|
00001b30  be 1b dd 20 f2 6e 6f 5f  74 69 63 6b 28 6d 65 6e  |... .no_tick(men|
00001b40  75 25 2c 69 74 65 6d 25  29 0d 0a c8 1b 62 79 74  |u%,item%)....byt|
00001b50  65 25 3d 6d 65 6e 75 25  2b 32 38 2b 69 74 65 6d  |e%=menu%+28+item|
00001b60  25 2a 32 34 0d 0a d2 1f  21 62 79 74 65 25 20 3d  |%*24....!byte% =|
00001b70  20 21 62 79 74 65 25 20  80 20 26 46 46 46 46 46  | !byte% . &FFFFF|
00001b80  46 46 45 0d 0a dc 05 e1  0d 0a e6 04 0d 0a f0 04  |FFE.............|
00001b90  0d 0a fa 18 dd 20 f2 74  69 63 6b 28 6d 65 6e 75  |..... .tick(menu|
00001ba0  25 2c 69 74 65 6d 25 29  0d 0b 04 1b 62 79 74 65  |%,item%)....byte|
00001bb0  25 3d 6d 65 6e 75 25 2b  32 38 2b 69 74 65 6d 25  |%=menu%+28+item%|
00001bc0  2a 32 34 0d 0b 0e 17 21  62 79 74 65 25 20 3d 20  |*24....!byte% = |
00001bd0  21 62 79 74 65 25 20 84  20 31 0d 0b 18 05 e1 0d  |!byte% . 1......|
00001be0  0b 22 04 0d 0b 2c 04 0d  0b 36 04 0d 0b 40 04 0d  |."...,...6...@..|
00001bf0  0b 4a 04 0d 0b 54 20 dd  20 f2 74 69 63 6b 5f 72  |.J...T . .tick_r|
00001c00  65 76 65 72 73 65 28 6d  65 6e 75 25 2c 69 74 65  |everse(menu%,ite|
00001c10  6d 25 29 0d 0b 5e 1b 62  79 74 65 25 3d 6d 65 6e  |m%)..^.byte%=men|
00001c20  75 25 2b 32 38 2b 69 74  65 6d 25 2a 32 34 0d 0b  |u%+28+item%*24..|
00001c30  68 16 e7 20 21 62 79 74  65 25 20 80 20 31 20 3d  |h.. !byte% . 1 =|
00001c40  20 31 20 8c 0d 0b 72 1f  21 62 79 74 65 25 20 3d  | 1 ...r.!byte% =|
00001c50  20 21 62 79 74 65 25 20  80 20 26 46 46 46 46 46  | !byte% . &FFFFF|
00001c60  46 46 45 0d 0b 7c 05 cc  0d 0b 86 17 21 62 79 74  |FFE..|......!byt|
00001c70  65 25 20 3d 20 21 62 79  74 65 25 20 84 20 31 0d  |e% = !byte% . 1.|
00001c80  0b 90 05 cd 0d 0b 9a 05  e1 0d 0b a4 04 0d 0b ae  |................|
00001c90  04 0d 0b b8 04 0d 0b c2  04 0d 0b cc 04 0d 0b d6  |................|
00001ca0  04 0d 0b e0 0f dd 20 f2  6d 61 69 6e 6c 6f 6f 70  |...... .mainloop|
00001cb0  0d 0b ea 05 f5 0d 0b f4  17 f2 75 70 64 61 74 65  |..........update|
00001cc0  5f 63 6f 6f 72 64 69 6e  61 74 65 73 0d 0b fe 09  |_coordinates....|
00001cd0  f2 70 6f 6c 6c 0d 0c 08  0f fd 20 66 69 6e 69 73  |.poll..... finis|
00001ce0  68 65 64 25 0d 0c 12 05  e1 0d 0c 1c 04 0d 0c 26  |hed%...........&|
00001cf0  04 0d 0c 30 0b dd 20 f2  70 6f 6c 6c 0d 0c 3a 44  |...0.. .poll..:D|
00001d00  c8 99 20 22 57 69 6d 70  5f 50 6f 6c 6c 22 2c 28  |.. "Wimp_Poll",(|
00001d10  ac 20 73 68 6f 77 5f 63  6f 6f 72 64 69 6e 61 74  |. show_coordinat|
00001d20  65 73 25 20 80 20 31 29  2c 62 6c 6f 63 6b 25 20  |es% . 1),block% |
00001d30  b8 20 72 65 61 73 6f 6e  25 2c 62 6c 6f 63 6b 25  |. reason%,block%|
00001d40  0d 0c 44 10 c8 8e 20 72  65 61 73 6f 6e 25 20 ca  |..D... reason% .|
00001d50  0d 0c 4e 25 c9 20 31 20  20 20 20 20 3a 20 f2 73  |..N%. 1     : .s|
00001d60  65 74 73 66 3a f2 72 65  64 72 61 77 28 21 62 6c  |etsf:.redraw(!bl|
00001d70  6f 63 6b 25 29 0d 0c 58  2a c9 20 32 20 20 20 20  |ock%)..X*. 2    |
00001d80  20 3a 20 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  | : .. "Wimp_Open|
00001d90  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 0d  |Window",,block%.|
00001da0  0c 62 1d c9 20 33 20 20  20 20 20 3a 20 f2 63 6c  |.b.. 3     : .cl|
00001db0  6f 73 65 28 21 62 6c 6f  63 6b 25 29 0d 0c 6c 23  |ose(!block%)..l#|
00001dc0  c9 20 34 20 20 20 20 20  3a 20 f2 6c 65 61 76 65  |. 4     : .leave|
00001dd0  5f 77 69 6e 64 6f 77 28  62 6c 6f 63 6b 25 29 0d  |_window(block%).|
00001de0  0c 76 1e c9 20 36 20 20  20 20 20 3a 20 f2 62 75  |.v.. 6     : .bu|
00001df0  74 74 6f 6e 73 28 62 6c  6f 63 6b 25 29 0d 0c 80  |ttons(block%)...|
00001e00  13 c9 20 37 20 20 20 20  20 3a 20 f2 73 61 76 65  |.. 7     : .save|
00001e10  0d 0c 8a 20 c9 20 38 20  20 20 20 20 3a 20 f2 6b  |... . 8     : .k|
00001e20  65 79 5f 70 72 65 73 73  28 62 6c 6f 63 6b 25 29  |ey_press(block%)|
00001e30  0d 0c 94 21 c9 20 39 20  20 20 20 20 3a 20 f2 6d  |...!. 9     : .m|
00001e40  65 6e 75 73 65 6c 65 63  74 28 62 6c 6f 63 6b 25  |enuselect(block%|
00001e50  29 0d 0c 9e 1e c9 20 31  37 2c 31 38 20 3a 20 f2  |)..... 17,18 : .|
00001e60  72 65 63 65 69 76 65 28  62 6c 6f 63 6b 25 29 0d  |receive(block%).|
00001e70  0c a8 05 cb 0d 0c b2 05  e1 0d 0c bc 04 0d 0c c6  |................|
00001e80  18 dd 20 f2 6b 65 79 5f  70 72 65 73 73 28 62 6c  |.. .key_press(bl|
00001e90  6f 63 6b 25 29 0d 0c d0  23 ea 20 77 69 6e 64 6f  |ock%)...#. windo|
00001ea0  77 25 2c 20 69 63 6f 6e  25 2c 20 6b 65 79 25 20  |w%, icon%, key% |
00001eb0  2c 68 65 69 67 68 74 25  0d 0c da 15 77 69 6e 64  |,height%....wind|
00001ec0  6f 77 25 20 3d 20 21 62  6c 6f 63 6b 25 0d 0c e4  |ow% = !block%...|
00001ed0  14 69 63 6f 6e 25 20 3d  20 62 6c 6f 63 6b 25 21  |.icon% = block%!|
00001ee0  34 0d 0c ee 17 68 65 69  67 68 74 25 20 3d 20 62  |4....height% = b|
00001ef0  6c 6f 63 6b 25 21 31 36  0d 0c f8 14 6b 65 79 25  |lock%!16....key%|
00001f00  20 3d 20 62 6c 6f 63 6b  25 21 32 34 0d 0d 02 0d  | = block%!24....|
00001f10  c8 8e 20 6b 65 79 25 20  ca 0d 0d 0c 14 20 20 c9  |.. key% .....  .|
00001f20  20 31 33 20 3a 20 f2 72  65 74 75 72 6e 0d 0d 16  | 13 : .return...|
00001f30  12 20 20 c9 20 26 31 38  31 20 3a 20 f2 66 31 0d  |.  . &181 : .f1.|
00001f40  0d 20 1e 20 20 c9 20 32  37 20 20 20 3a 20 f2 65  |. .  . 27   : .e|
00001f50  73 63 61 70 65 5f 70 72  65 73 73 65 64 0d 0d 2a  |scape_pressed..*|
00001f60  05 7f 0d 0d 34 1f 20 20  c8 99 20 22 57 69 6d 70  |....4.  .. "Wimp|
00001f70  5f 50 72 6f 63 65 73 73  4b 65 79 22 2c 6b 65 79  |_ProcessKey",key|
00001f80  25 0d 0d 3e 05 cb 0d 0d  48 05 e1 0d 0d 52 04 0d  |%..>....H....R..|
00001f90  0d 5c 0d dd 20 f2 72 65  74 75 72 6e 0d 0d 66 10  |.\.. .return..f.|
00001fa0  c8 8e 20 77 69 6e 64 6f  77 25 20 ca 0d 0d 70 23  |.. window% ...p#|
00001fb0  20 c9 20 73 61 76 65 31  25 20 20 20 20 20 3a 66  | . save1%     :f|
00001fc0  6f 72 6d 61 74 24 20 3d  20 22 64 61 74 61 22 0d  |ormat$ = "data".|
00001fd0  0d 7a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.z              |
00001fe0  20 20 20 20 20 f2 71 75  69 63 6b 73 61 76 65 0d  |     .quicksave.|
00001ff0  0d 84 23 20 c9 20 73 61  76 65 25 20 20 20 20 20  |..# . save%     |
00002000  20 3a 66 6f 72 6d 61 74  24 20 3d 20 22 64 72 61  | :format$ = "dra|
00002010  77 22 0d 0d 8e 20 20 20  20 20 20 20 20 20 20 20  |w"...           |
00002020  20 20 20 20 20 20 20 20  f2 71 75 69 63 6b 73 61  |        .quicksa|
00002030  76 65 0d 0d 98 1c 20 c9  20 63 61 72 74 61 78 65  |ve.... . cartaxe|
00002040  73 25 20 20 3a f2 6e 65  78 74 63 61 72 74 0d 0d  |s%  :.nextcart..|
00002050  a2 1c 20 c9 20 70 61 72  61 61 78 65 73 25 20 20  |.. . paraaxes%  |
00002060  3a f2 6e 65 78 74 70 61  72 61 0d 0d ac 1d 20 c9  |:.nextpara.... .|
00002070  20 70 6f 6c 61 72 61 78  65 73 25 20 3a f2 6e 65  | polaraxes% :.ne|
00002080  78 74 70 6f 6c 61 72 0d  0d b6 05 cb 0d 0d c0 05  |xtpolar.........|
00002090  e1 0d 0d ca 04 0d 0d d4  0f dd 20 f2 6e 65 78 74  |.......... .next|
000020a0  63 61 72 74 0d 0d de 0f  20 f2 67 65 74 5f 63 61  |cart.... .get_ca|
000020b0  72 65 74 0d 0d e8 25 20  63 61 72 65 74 5f 69 63  |ret...% caret_ic|
000020c0  6f 6e 25 20 3d 28 63 61  72 65 74 5f 69 63 6f 6e  |on% =(caret_icon|
000020d0  25 2d 34 29 83 34 2b 35  0d 0d f2 22 20 f2 63 61  |%-4).4+5..." .ca|
000020e0  72 65 74 28 63 61 72 74  61 78 65 73 25 2c 63 61  |ret(cartaxes%,ca|
000020f0  72 65 74 5f 69 63 6f 6e  25 29 0d 0d fc 05 e1 0d  |ret_icon%)......|
00002100  0e 06 04 0d 0e 10 04 0d  0e 1a 0f dd 20 f2 6e 65  |............ .ne|
00002110  78 74 70 61 72 61 0d 0e  24 0f 20 f2 67 65 74 5f  |xtpara..$. .get_|
00002120  63 61 72 65 74 0d 0e 2e  15 20 c8 8e 20 63 61 72  |caret.... .. car|
00002130  65 74 5f 69 63 6f 6e 25  20 ca 0d 0e 38 31 20 c9  |et_icon% ...81 .|
00002140  20 70 61 72 61 5f 6d 69  6e 5f 78 5f 69 63 6f 6e  | para_min_x_icon|
00002150  25 20 3a 20 69 63 6f 6e  25 20 3d 70 61 72 61 5f  |% : icon% =para_|
00002160  6d 61 78 5f 78 5f 69 63  6f 6e 25 0d 0e 42 31 20  |max_x_icon%..B1 |
00002170  c9 20 70 61 72 61 5f 6d  61 78 5f 78 5f 69 63 6f  |. para_max_x_ico|
00002180  6e 25 20 3a 20 69 63 6f  6e 25 20 3d 70 61 72 61  |n% : icon% =para|
00002190  5f 6d 69 6e 5f 79 5f 69  63 6f 6e 25 0d 0e 4c 31  |_min_y_icon%..L1|
000021a0  20 c9 20 70 61 72 61 5f  6d 69 6e 5f 79 5f 69 63  | . para_min_y_ic|
000021b0  6f 6e 25 20 3a 20 69 63  6f 6e 25 20 3d 70 61 72  |on% : icon% =par|
000021c0  61 5f 6d 61 78 5f 79 5f  69 63 6f 6e 25 0d 0e 56  |a_max_y_icon%..V|
000021d0  31 20 c9 20 70 61 72 61  5f 6d 61 78 5f 79 5f 69  |1 . para_max_y_i|
000021e0  63 6f 6e 25 20 3a 20 69  63 6f 6e 25 20 3d 70 61  |con% : icon% =pa|
000021f0  72 61 5f 6d 69 6e 5f 74  5f 69 63 6f 6e 25 0d 0e  |ra_min_t_icon%..|
00002200  60 31 20 c9 20 70 61 72  61 5f 6d 69 6e 5f 74 5f  |`1 . para_min_t_|
00002210  69 63 6f 6e 25 20 3a 20  69 63 6f 6e 25 20 3d 70  |icon% : icon% =p|
00002220  61 72 61 5f 6d 61 78 5f  74 5f 69 63 6f 6e 25 0d  |ara_max_t_icon%.|
00002230  0e 6a 31 20 c9 20 70 61  72 61 5f 6d 61 78 5f 74  |.j1 . para_max_t|
00002240  5f 69 63 6f 6e 25 20 3a  20 69 63 6f 6e 25 20 3d  |_icon% : icon% =|
00002250  70 61 72 61 5f 6d 69 6e  5f 78 5f 69 63 6f 6e 25  |para_min_x_icon%|
00002260  0d 0e 74 05 cb 0d 0e 7e  1b f2 63 61 72 65 74 28  |..t....~..caret(|
00002270  70 61 72 61 61 78 65 73  25 2c 69 63 6f 6e 25 29  |paraaxes%,icon%)|
00002280  0d 0e 88 05 e1 0d 0e 92  04 0d 0e 9c 10 dd 20 f2  |.............. .|
00002290  6e 65 78 74 70 6f 6c 61  72 0d 0e a6 0f 20 f2 67  |nextpolar.... .g|
000022a0  65 74 5f 63 61 72 65 74  0d 0e b0 15 20 c8 8e 20  |et_caret.... .. |
000022b0  63 61 72 65 74 5f 69 63  6f 6e 25 20 ca 0d 0e ba  |caret_icon% ....|
000022c0  32 20 c9 20 70 6f 6c 61  72 5f 72 61 64 69 75 73  |2 . polar_radius|
000022d0  5f 69 63 6f 6e 25 20 20  3a 69 63 6f 6e 25 3d 20  |_icon%  :icon%= |
000022e0  70 6f 6c 61 72 5f 6d 69  6e 5f 69 63 6f 6e 25 0d  |polar_min_icon%.|
000022f0  0e c4 32 20 c9 20 70 6f  6c 61 72 5f 6d 69 6e 5f  |..2 . polar_min_|
00002300  69 63 6f 6e 25 20 20 20  20 20 3a 69 63 6f 6e 25  |icon%     :icon%|
00002310  3d 20 70 6f 6c 61 72 5f  6d 61 78 5f 69 63 6f 6e  |= polar_max_icon|
00002320  25 0d 0e ce 35 20 c9 20  70 6f 6c 61 72 5f 6d 61  |%...5 . polar_ma|
00002330  78 5f 69 63 6f 6e 25 20  20 20 20 20 3a 69 63 6f  |x_icon%     :ico|
00002340  6e 25 3d 20 70 6f 6c 61  72 5f 72 61 64 69 75 73  |n%= polar_radius|
00002350  5f 69 63 6f 6e 25 0d 0e  d8 06 20 cb 0d 0e e2 1c  |_icon%.... .....|
00002360  f2 63 61 72 65 74 28 70  6f 6c 61 72 61 78 65 73  |.caret(polaraxes|
00002370  25 2c 69 63 6f 6e 25 29  0d 0e ec 05 e1 0d 0e f6  |%,icon%)........|
00002380  04 0d 0f 00 04 0d 0f 0a  04 0d 0f 14 04 0d 0f 1e  |................|
00002390  09 dd 20 f2 66 31 0d 0f  28 09 41 25 3d 40 25 0d  |.. .f1..(.A%=@%.|
000023a0  0f 32 10 40 25 3d 26 30  31 30 30 30 36 30 38 0d  |.2.@%=&01000608.|
000023b0  0f 3c 44 63 61 72 74 5f  6d 69 6e 5f 79 5f 69 63  |.<Dcart_min_y_ic|
000023c0  6f 6e 25 3d a4 63 68 61  6e 67 65 5f 74 65 78 74  |on%=.change_text|
000023d0  28 63 61 72 74 61 78 65  73 25 2c 63 61 72 74 5f  |(cartaxes%,cart_|
000023e0  6d 69 6e 5f 79 5f 69 63  6f 6e 25 2c c3 28 2d 31  |min_y_icon%,.(-1|
000023f0  30 29 29 0d 0f 46 43 63  61 72 74 5f 6d 61 78 5f  |0))..FCcart_max_|
00002400  79 5f 69 63 6f 6e 25 3d  a4 63 68 61 6e 67 65 5f  |y_icon%=.change_|
00002410  74 65 78 74 28 63 61 72  74 61 78 65 73 25 2c 63  |text(cartaxes%,c|
00002420  61 72 74 5f 6d 61 78 5f  79 5f 69 63 6f 6e 25 2c  |art_max_y_icon%,|
00002430  c3 28 31 30 29 29 0d 0f  50 43 63 61 72 74 5f 6d  |.(10))..PCcart_m|
00002440  69 6e 5f 78 5f 69 63 6f  6e 25 3d a4 63 68 61 6e  |in_x_icon%=.chan|
00002450  67 65 5f 74 65 78 74 28  63 61 72 74 61 78 65 73  |ge_text(cartaxes|
00002460  25 2c 63 61 72 74 5f 6d  69 6e 5f 78 5f 69 63 6f  |%,cart_min_x_ico|
00002470  6e 25 2c c3 28 2d 35 29  29 0d 0f 5a 42 63 61 72  |n%,.(-5))..ZBcar|
00002480  74 5f 6d 61 78 5f 78 5f  69 63 6f 6e 25 3d a4 63  |t_max_x_icon%=.c|
00002490  68 61 6e 67 65 5f 74 65  78 74 28 63 61 72 74 61  |hange_text(carta|
000024a0  78 65 73 25 2c 63 61 72  74 5f 6d 61 78 5f 78 5f  |xes%,cart_max_x_|
000024b0  69 63 6f 6e 25 2c c3 28  35 29 29 0d 0f 64 32 c8  |icon%,.(5))..d2.|
000024c0  99 20 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |. "Wimp_ForceRed|
000024d0  72 61 77 22 2c 63 61 72  74 61 78 65 73 25 2c 30  |raw",cartaxes%,0|
000024e0  2c 2d 31 32 38 30 2c 31  32 38 30 2c 30 0d 0f 6e  |,-1280,1280,0..n|
000024f0  09 40 25 3d 41 25 0d 0f  78 05 e1 0d 0f 82 04 0d  |.@%=A%..x.......|
00002500  0f 8c 04 0d 0f 96 1b dd  20 f2 63 61 72 65 74 28  |........ .caret(|
00002510  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 29 0d 0f  |window%,icon%)..|
00002520  a0 33 20 c8 99 22 57 69  6d 70 5f 53 65 74 43 61  |.3 .."Wimp_SetCa|
00002530  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 77 69 6e  |retPosition",win|
00002540  64 6f 77 25 2c 69 63 6f  6e 25 2c 2c 2c 2d 31 2c  |dow%,icon%,,,-1,|
00002550  30 0d 0f aa 05 e1 0d 0f  b4 04 0d 0f be 10 dd 20  |0.............. |
00002560  f2 67 65 74 5f 63 61 72  65 74 0d 0f c8 26 20 c8  |.get_caret...& .|
00002570  99 22 57 69 6d 70 5f 47  65 74 43 61 72 65 74 50  |."Wimp_GetCaretP|
00002580  6f 73 69 74 69 6f 6e 22  2c 2c 63 61 72 65 74 25  |osition",,caret%|
00002590  0d 0f d2 1c 20 63 61 72  65 74 5f 77 69 6e 64 6f  |.... caret_windo|
000025a0  77 25 20 3d 20 21 63 61  72 65 74 25 0d 0f dc 1b  |w% = !caret%....|
000025b0  20 63 61 72 65 74 5f 69  63 6f 6e 25 20 3d 20 63  | caret_icon% = c|
000025c0  61 72 65 74 25 21 34 0d  0f e6 1e 20 63 61 72 65  |aret%!4.... care|
000025d0  74 5f 68 65 69 67 68 74  25 20 3d 20 63 61 72 65  |t_height% = care|
000025e0  74 25 21 31 36 0d 0f f0  05 e1 0d 0f fa 04 0d 10  |t%!16...........|
000025f0  04 04 0d 10 0e 19 dd 20  f2 75 70 64 61 74 65 5f  |....... .update_|
00002600  63 6f 6f 72 64 69 6e 61  74 65 73 0d 10 18 29 e7  |coordinates...).|
00002610  20 73 68 6f 77 5f 63 6f  6f 72 64 69 6e 61 74 65  | show_coordinate|
00002620  73 25 20 80 20 ac 20 70  6f 6c 61 72 5f 70 6c 6f  |s% . . polar_plo|
00002630  74 25 20 8c 0d 10 22 24  c8 99 20 22 57 69 6d 70  |t% ..."$.. "Wimp|
00002640  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00002650  2c 2c 62 6c 6f 63 6b 25  0d 10 2c 11 78 24 3d c3  |,,block%..,.x$=.|
00002660  28 21 62 6c 6f 63 6b 25  29 0d 10 36 12 79 24 3d  |(!block%)..6.y$=|
00002670  c3 28 62 6c 6f 63 6b 25  21 34 29 0d 10 40 19 e7  |.(block%!4)..@..|
00002680  20 62 6c 6f 63 6b 25 21  31 32 20 3d 20 6d 61 69  | block%!12 = mai|
00002690  6e 25 20 8c 0d 10 4a 4f  78 3d 28 21 62 6c 6f 63  |n% ...JOx=(!bloc|
000026a0  6b 25 20 2d 6d 61 69 6e  5f 78 5f 6f 72 69 67 69  |k% -main_x_origi|
000026b0  6e 25 29 20 2a 28 6d 61  78 78 2d 6d 69 6e 78 29  |n%) *(maxx-minx)|
000026c0  2f 31 32 38 30 2f 73 66  2b 6d 69 6e 78 3a f4 20  |/1280/sf+minx:. |
000026d0  72 65 70 6c 61 63 65 20  62 79 20 2a 20 66 61 63  |replace by * fac|
000026e0  74 6f 72 0d 10 54 3c 79  3d 28 62 6c 6f 63 6b 25  |tor..T<y=(block%|
000026f0  21 34 20 2d 20 6d 61 69  6e 5f 79 5f 6f 72 69 67  |!4 - main_y_orig|
00002700  69 6e 25 20 29 2a 20 28  6d 61 78 79 2d 6d 69 6e  |in% )* (maxy-min|
00002710  79 29 2f 31 30 32 34 2f  73 66 2b 6d 61 78 79 0d  |y)/1024/sf+maxy.|
00002720  10 5e 1b e7 20 70 61 72  61 5f 70 6c 6f 74 25 20  |.^.. para_plot% |
00002730  8c 20 78 3d 78 2a 31 2e  32 35 0d 10 68 09 41 25  |. x=x*1.25..h.A%|
00002740  3d 40 25 0d 10 72 11 40  25 3d 20 26 30 31 30 30  |=@%..r.@%= &0100|
00002750  30 37 30 41 0d 10 7c 0b  78 24 3d c3 28 78 29 0d  |070A..|.x$=.(x).|
00002760  10 86 0b 79 24 3d c3 28  79 29 0d 10 90 09 40 25  |...y$=.(y)....@%|
00002770  3d 41 25 0d 10 9a 05 cc  0d 10 a4 09 78 24 3d 22  |=A%.........x$="|
00002780  22 0d 10 ae 09 79 24 3d  22 22 0d 10 b8 05 cd 0d  |"....y$=""......|
00002790  10 c2 38 e7 20 78 24 3c  3e 6f 6c 64 5f 6d 61 69  |..8. x$<>old_mai|
000027a0  6e 5f 78 5f 6f 72 69 67  69 6e 24 20 20 84 20 79  |n_x_origin$  . y|
000027b0  24 3c 3e 6f 6c 64 5f 6d  61 69 6e 5f 79 5f 6f 72  |$<>old_main_y_or|
000027c0  69 67 69 6e 24 20 8c 0d  10 cc 1a 6f 6c 64 5f 6d  |igin$ .....old_m|
000027d0  61 69 6e 5f 78 5f 6f 72  69 67 69 6e 24 20 3d 78  |ain_x_origin$ =x|
000027e0  24 0d 10 d6 1a 6f 6c 64  5f 6d 61 69 6e 5f 79 5f  |$....old_main_y_|
000027f0  6f 72 69 67 69 6e 24 20  3d 79 24 0d 10 e0 2b 78  |origin$ =y$...+x|
00002800  5f 69 63 6f 6e 25 3d a4  63 68 61 6e 67 65 5f 74  |_icon%=.change_t|
00002810  65 78 74 28 63 6f 6f 72  64 25 2c 78 5f 69 63 6f  |ext(coord%,x_ico|
00002820  6e 25 2c 78 24 29 0d 10  ea 2b 79 5f 69 63 6f 6e  |n%,x$)...+y_icon|
00002830  25 3d a4 63 68 61 6e 67  65 5f 74 65 78 74 28 63  |%=.change_text(c|
00002840  6f 6f 72 64 25 2c 79 5f  69 63 6f 6e 25 2c 79 24  |oord%,y_icon%,y$|
00002850  29 0d 10 f4 32 c8 99 20  22 57 69 6d 70 5f 46 6f  |)...2.. "Wimp_Fo|
00002860  72 63 65 52 65 64 72 61  77 22 2c 63 6f 6f 72 64  |rceRedraw",coord|
00002870  25 2c 2d 31 30 30 2c 2d  33 30 30 2c 34 30 30 2c  |%,-100,-300,400,|
00002880  31 30 30 0d 10 fe 05 cd  0d 11 08 05 cd 0d 11 12  |100.............|
00002890  05 e1 0d 11 1c 04 0d 11  26 04 0d 11 30 04 0d 11  |........&...0...|
000028a0  3a 16 dd 20 f2 72 65 64  72 61 77 28 68 61 6e 64  |:.. .redraw(hand|
000028b0  6c 65 25 29 0d 11 44 15  21 62 6c 6f 63 6b 25 20  |le%)..D.!block% |
000028c0  3d 20 68 61 6e 64 6c 65  25 0d 11 4e 2a c8 99 20  |= handle%..N*.. |
000028d0  22 57 69 6d 70 5f 52 65  64 72 61 77 57 69 6e 64  |"Wimp_RedrawWind|
000028e0  6f 77 22 2c 2c 62 6c 6f  63 6b 25 20 b8 20 6d 6f  |ow",,block% . mo|
000028f0  72 65 25 0d 11 58 11 c8  95 20 6d 6f 72 65 25 20  |re%..X... more% |
00002900  3c 3e 20 30 0d 11 62 1a  f2 67 65 74 5f 77 69 6e  |<> 0..b..get_win|
00002910  64 6f 77 5f 70 61 72 61  6d 65 74 65 72 73 0d 11  |dow_parameters..|
00002920  6c 17 f2 72 65 64 72 61  77 5f 6d 61 69 6e 5f 77  |l..redraw_main_w|
00002930  69 6e 64 6f 77 0d 11 76  2a c8 99 20 22 57 69 6d  |indow..v*.. "Wim|
00002940  70 5f 47 65 74 52 65 63  74 61 6e 67 6c 65 22 2c  |p_GetRectangle",|
00002950  2c 62 6c 6f 63 6b 25 20  b8 20 6d 6f 72 65 25 0d  |,block% . more%.|
00002960  11 80 05 ce 0d 11 8a 05  e1 0d 11 94 04 0d 11 9e  |................|
00002970  04 0d 11 a8 04 0d 11 b2  04 0d 11 bc 04 0d 11 c6  |................|
00002980  04 0d 11 d0 18 dd 20 f2  63 6c 6f 73 65 28 70 61  |...... .close(pa|
00002990  72 61 6d 65 74 65 72 25  29 0d 11 da 18 21 62 6c  |rameter%)....!bl|
000029a0  6f 63 6b 25 20 3d 20 70  61 72 61 6d 65 74 65 72  |ock% = parameter|
000029b0  25 0d 11 e4 21 c8 99 20  22 57 69 6d 70 5f 43 6c  |%...!.. "Wimp_Cl|
000029c0  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |oseWindow",,bloc|
000029d0  6b 25 0d 11 ee 13 c8 8e  20 70 61 72 61 6d 65 74  |k%...... paramet|
000029e0  65 72 25 20 ca 0d 11 f8  25 c9 20 63 6f 6f 72 64  |er% ....%. coord|
000029f0  25 20 3a 20 f2 6e 6f 5f  74 69 63 6b 28 6d 61 69  |% : .no_tick(mai|
00002a00  6e 5f 6d 65 6e 75 25 2c  38 29 0d 12 02 22 20 20  |n_menu%,8)..."  |
00002a10  20 20 20 20 20 20 20 20  20 20 20 20 63 6f 6f 72  |            coor|
00002a20  64 69 6e 61 74 65 73 25  20 3d 20 a3 0d 12 0c 05  |dinates% = .....|
00002a30  cb 0d 12 16 05 e1 0d 12  20 04 0d 12 2a 04 0d 12  |........ ...*...|
00002a40  34 04 0d 12 3e 04 0d 12  48 04 0d 12 52 04 0d 12  |4...>...H...R...|
00002a50  5c 1a dd 20 f2 62 75 74  74 6f 6e 73 28 70 61 72  |\.. .buttons(par|
00002a60  61 6d 65 74 65 72 25 29  0d 12 66 19 6d 6f 75 73  |ameter%)..f.mous|
00002a70  65 5f 78 25 3d 20 21 70  61 72 61 6d 65 74 65 72  |e_x%= !parameter|
00002a80  25 0d 12 70 1a 6d 6f 75  73 65 5f 79 25 3d 20 70  |%..p.mouse_y%= p|
00002a90  61 72 61 6d 65 74 65 72  25 21 34 0d 12 7a 1a 62  |arameter%!4..z.b|
00002aa0  75 74 74 6f 6e 25 20 3d  20 70 61 72 61 6d 65 74  |utton% = paramet|
00002ab0  65 72 25 21 38 0d 12 84  1b 77 69 6e 64 6f 77 25  |er%!8....window%|
00002ac0  20 3d 20 70 61 72 61 6d  65 74 65 72 25 21 31 32  | = parameter%!12|
00002ad0  0d 12 8e 1b 69 63 6f 6e  25 20 20 20 3d 20 70 61  |....icon%   = pa|
00002ae0  72 61 6d 65 74 65 72 25  21 31 36 0d 12 98 13 e7  |rameter%!16.....|
00002af0  20 62 75 74 74 6f 6e 25  20 80 20 32 20 8c 0d 12  | button% . 2 ...|
00002b00  a2 24 f2 6d 65 6e 75 28  77 69 6e 64 6f 77 25 2c  |.$.menu(window%,|
00002b10  6d 6f 75 73 65 5f 78 25  2c 6d 6f 75 73 65 5f 79  |mouse_x%,mouse_y|
00002b20  25 29 0d 12 ac 05 cc 0d  12 b6 15 20 e7 20 77 69  |%)......... . wi|
00002b30  6e 64 6f 77 25 20 3d 20  2d 32 20 8c 0d 12 c0 1c  |ndow% = -2 .....|
00002b40  20 20 20 20 20 f2 6f 70  65 6e 5f 77 69 6e 64 6f  |     .open_windo|
00002b50  77 28 6d 61 69 6e 25 29  0d 12 ca 05 cd 0d 12 d4  |w(main%)........|
00002b60  05 cd 0d 12 de 13 e7 20  62 75 74 74 6f 6e 25 20  |....... button% |
00002b70  80 20 34 20 8c 0d 12 e8  10 c8 8e 20 77 69 6e 64  |. 4 ....... wind|
00002b80  6f 77 25 20 ca 0d 12 f2  43 20 20 c9 20 6d 61 69  |ow% ....C  . mai|
00002b90  6e 25 20 20 20 20 20 20  20 3a 20 c8 99 20 22 57  |n%       : .. "W|
00002ba0  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
00002bb0  2c 70 6f 6c 61 72 61 78  65 73 25 2c 30 2c 2d 35  |,polaraxes%,0,-5|
00002bc0  30 30 2c 39 30 30 2c 30  0d 12 fc 27 20 20 20 20  |00,900,0...'    |
00002bd0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002be0  20 e7 20 63 61 72 74 5f  70 6c 6f 74 25 20 8c 0d  | . cart_plot% ..|
00002bf0  13 06 2b 20 20 20 20 20  20 20 20 20 20 20 20 20  |..+             |
00002c00  20 20 20 20 20 20 20 20  20 20 20 f2 63 61 6c 63  |           .calc|
00002c10  75 6c 61 74 65 5f 63 61  72 74 0d 13 10 48 20 20  |ulate_cart...H  |
00002c20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002c30  20 20 20 20 20 20 c8 99  20 22 57 69 6d 70 5f 46  |      .. "Wimp_F|
00002c40  6f 72 63 65 52 65 64 72  61 77 22 2c 63 61 72 74  |orceRedraw",cart|
00002c50  61 78 65 73 25 2c 30 2c  2d 35 30 30 2c 39 30 30  |axes%,0,-500,900|
00002c60  2c 30 0d 13 1a 1a 20 20  20 20 20 20 20 20 20 20  |,0....          |
00002c70  20 20 20 20 20 20 20 20  20 20 20 cd 0d 13 24 27  |           ...$'|
00002c80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002c90  20 20 20 20 20 e7 20 70  61 72 61 5f 70 6c 6f 74  |     . para_plot|
00002ca0  25 20 8c 0d 13 2e 2b 20  20 20 20 20 20 20 20 20  |% ....+         |
00002cb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 f2  |               .|
00002cc0  63 61 6c 63 75 6c 61 74  65 5f 70 61 72 61 0d 13  |calculate_para..|
00002cd0  38 48 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |8H              |
00002ce0  20 20 20 20 20 20 20 20  20 20 c8 99 20 22 57 69  |          .. "Wi|
00002cf0  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00002d00  70 61 72 61 61 78 65 73  25 2c 30 2c 2d 35 30 30  |paraaxes%,0,-500|
00002d10  2c 39 30 30 2c 30 0d 13  42 1a 20 20 20 20 20 20  |,900,0..B.      |
00002d20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 cd  |               .|
00002d30  0d 13 4c 28 20 20 20 20  20 20 20 20 20 20 20 20  |..L(            |
00002d40  20 20 20 20 20 20 20 20  20 e7 20 70 6f 6c 61 72  |         . polar|
00002d50  5f 70 6c 6f 74 25 20 8c  0d 13 56 2c 20 20 20 20  |_plot% ...V,    |
00002d60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002d70  20 20 20 20 f2 63 61 6c  63 75 6c 61 74 65 5f 70  |    .calculate_p|
00002d80  6f 6c 61 72 0d 13 60 49  20 20 20 20 20 20 20 20  |olar..`I        |
00002d90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002da0  c8 99 20 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |.. "Wimp_ForceRe|
00002db0  64 72 61 77 22 2c 70 6f  6c 61 72 61 78 65 73 25  |draw",polaraxes%|
00002dc0  2c 30 2c 2d 35 30 30 2c  39 30 30 2c 30 0d 13 6a  |,0,-500,900,0..j|
00002dd0  1a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00002de0  20 20 20 20 20 20 cd 0d  13 74 34 20 20 c9 20 63  |      ...t4  . c|
00002df0  61 72 74 61 78 65 73 25  20 20 20 3a 20 f2 75 70  |artaxes%   : .up|
00002e00  64 61 74 65 63 61 72 74  61 78 65 73 28 77 69 6e  |datecartaxes(win|
00002e10  64 6f 77 25 2c 69 63 6f  6e 25 29 0d 13 7e 35 20  |dow%,icon%)..~5 |
00002e20  20 c9 20 63 61 72 74 65  73 69 61 6e 25 20 20 3a  | . cartesian%  :|
00002e30  20 f2 75 70 64 61 74 65  63 61 72 74 65 73 69 61  | .updatecartesia|
00002e40  6e 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |n(window%,icon%)|
00002e50  0d 13 88 34 20 20 c9 20  70 61 72 61 61 78 65 73  |...4  . paraaxes|
00002e60  25 20 20 20 3a 20 f2 75  70 64 61 74 65 70 61 72  |%   : .updatepar|
00002e70  61 61 78 65 73 28 77 69  6e 64 6f 77 25 2c 69 63  |aaxes(window%,ic|
00002e80  6f 6e 25 29 0d 13 92 36  20 20 c9 20 70 61 72 61  |on%)...6  . para|
00002e90  6d 65 74 72 69 63 25 20  3a 20 f2 75 70 64 61 74  |metric% : .updat|
00002ea0  65 70 61 72 61 6d 65 74  72 69 63 28 77 69 6e 64  |eparametric(wind|
00002eb0  6f 77 25 2c 69 63 6f 6e  25 29 0d 13 9c 35 20 20  |ow%,icon%)...5  |
00002ec0  c9 20 70 6f 6c 61 72 61  78 65 73 25 20 20 3a 20  |. polaraxes%  : |
00002ed0  f2 75 70 64 61 74 65 70  6f 6c 61 72 61 78 65 73  |.updatepolaraxes|
00002ee0  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 0d  |(window%,icon%).|
00002ef0  13 a6 31 20 20 c9 20 70  6f 6c 61 72 25 20 20 20  |..1  . polar%   |
00002f00  20 20 20 3a 20 f2 75 70  64 61 74 65 70 6f 6c 61  |   : .updatepola|
00002f10  72 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |r(window%,icon%)|
00002f20  0d 13 b0 26 20 20 c9 20  73 61 76 65 31 25 20 20  |...&  . save1%  |
00002f30  20 20 20 20 3a 20 66 6f  72 6d 61 74 24 20 3d 20  |    : format$ = |
00002f40  22 64 61 74 61 22 0d 13  ba 38 20 20 20 20 20 20  |"data"...8      |
00002f50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 e7  |               .|
00002f60  20 69 63 6f 6e 25 20 3d  20 6f 6b 5f 69 63 6f 6e  | icon% = ok_icon|
00002f70  25 20 8c 20 f2 71 75 69  63 6b 73 61 76 65 0d 13  |% . .quicksave..|
00002f80  c4 42 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.B              |
00002f90  20 20 20 20 20 20 20 e7  20 69 63 6f 6e 25 20 3d  |       . icon% =|
00002fa0  20 70 69 63 74 75 72 65  25 20 8c 20 f2 64 72 61  | picture% . .dra|
00002fb0  77 5f 63 6c 69 63 6b 28  77 69 6e 64 6f 77 25 29  |w_click(window%)|
00002fc0  0d 13 ce 26 20 20 c9 20  73 61 76 65 25 20 20 20  |...&  . save%   |
00002fd0  20 20 20 20 3a 20 66 6f  72 6d 61 74 24 20 3d 20  |    : format$ = |
00002fe0  22 64 72 61 77 22 0d 13  d8 38 20 20 20 20 20 20  |"draw"...8      |
00002ff0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 e7  |               .|
00003000  20 69 63 6f 6e 25 20 3d  20 6f 6b 5f 69 63 6f 6e  | icon% = ok_icon|
00003010  25 20 8c 20 f2 71 75 69  63 6b 73 61 76 65 0d 13  |% . .quicksave..|
00003020  e2 42 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.B              |
00003030  20 20 20 20 20 20 20 e7  20 69 63 6f 6e 25 20 3d  |       . icon% =|
00003040  20 70 69 63 74 75 72 65  25 20 8c 20 f2 64 72 61  | picture% . .dra|
00003050  77 5f 63 6c 69 63 6b 28  77 69 6e 64 6f 77 25 29  |w_click(window%)|
00003060  0d 13 ec 04 0d 13 f6 05  cb 0d 14 00 05 cd 0d 14  |................|
00003070  0a 13 e7 20 62 75 74 74  6f 6e 25 20 80 20 31 20  |... button% . 1 |
00003080  8c 0d 14 14 10 c8 8e 20  77 69 6e 64 6f 77 25 20  |....... window% |
00003090  ca 0d 14 1e 18 20 20 c9  20 6d 61 69 6e 25 20 3a  |.....  . main% :|
000030a0  20 20 20 20 f2 7a 6f 6f  6d 0d 14 28 05 cb 0d 14  |    .zoom..(....|
000030b0  32 05 cd 0d 14 3c 05 e1  0d 14 46 05 e1 0d 14 50  |2....<....F....P|
000030c0  04 0d 14 5a 04 0d 14 64  04 0d 14 6e 04 0d 14 78  |...Z...d...n...x|
000030d0  04 0d 14 82 1b dd 20 f2  6f 70 65 6e 5f 77 69 6e  |...... .open_win|
000030e0  64 6f 77 28 68 61 6e 64  6c 65 25 29 0d 14 8c 17  |dow(handle%)....|
000030f0  20 20 21 62 6c 6f 63 6b  25 20 3d 20 68 61 6e 64  |  !block% = hand|
00003100  6c 65 25 0d 14 96 26 20  20 c8 99 20 22 57 69 6d  |le%...&  .. "Wim|
00003110  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00003120  22 2c 2c 62 6c 6f 63 6b  25 0d 14 a0 30 20 20 62  |",,block%...0  b|
00003130  6c 6f 63 6b 25 21 32 38  20 3d 20 2d 31 20 3a 20  |lock%!28 = -1 : |
00003140  f4 20 45 6e 73 75 72 65  20 77 69 6e 64 6f 77 20  |. Ensure window |
00003150  69 73 20 6f 6e 20 74 6f  70 0d 14 aa 22 20 20 c8  |is on top..."  .|
00003160  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00003170  6f 77 22 2c 2c 62 6c 6f  63 6b 25 0d 14 b4 05 e1  |ow",,block%.....|
00003180  0d 14 be 05 20 0d 14 c8  04 0d 14 d2 04 0d 14 dc  |.... ...........|
00003190  1a dd 20 f2 6d 65 6e 75  28 77 69 6e 64 6f 77 25  |.. .menu(window%|
000031a0  2c 78 25 2c 79 25 29 0d  14 e6 10 c8 8e 20 77 69  |,x%,y%)...... wi|
000031b0  6e 64 6f 77 25 20 ca 0d  14 f0 2a c9 20 6d 61 69  |ndow% ....*. mai|
000031c0  6e 25 20 3a 20 20 6d 65  6e 75 5f 62 6c 6f 63 6b  |n% :  menu_block|
000031d0  25 20 20 20 20 3d 20 6d  61 69 6e 5f 6d 65 6e 75  |%    = main_menu|
000031e0  25 0d 14 fa 24 20 20 20  20 20 20 20 20 20 20 20  |%...$           |
000031f0  20 20 20 6d 61 69 6e 5f  6d 65 6e 75 5f 6f 70 65  |   main_menu_ope|
00003200  6e 20 3d 20 b9 0d 15 04  24 20 20 20 20 20 20 20  |n = ....$       |
00003210  20 20 20 20 20 20 20 71  75 69 74 5f 6d 65 6e 75  |       quit_menu|
00003220  5f 6f 70 65 6e 20 3d 20  a3 0d 15 0e 2a c9 20 2d  |_open = ....*. -|
00003230  32 20 20 20 20 3a 20 20  6d 65 6e 75 5f 62 6c 6f  |2    :  menu_blo|
00003240  63 6b 25 20 20 20 20 3d  20 71 75 69 74 5f 6d 65  |ck%    = quit_me|
00003250  6e 75 25 0d 15 18 24 20  20 20 20 20 20 20 20 20  |nu%...$         |
00003260  20 20 20 20 20 6d 61 69  6e 5f 6d 65 6e 75 5f 6f  |     main_menu_o|
00003270  70 65 6e 20 3d 20 a3 0d  15 22 24 20 20 20 20 20  |pen = ..."$     |
00003280  20 20 20 20 20 20 20 20  20 71 75 69 74 5f 6d 65  |         quit_me|
00003290  6e 75 5f 6f 70 65 6e 20  3d 20 b9 0d 15 2c 05 cb  |nu_open = ...,..|
000032a0  0d 15 36 2b c8 99 20 22  57 69 6d 70 5f 43 72 65  |..6+.. "Wimp_Cre|
000032b0  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 5f 62  |ateMenu",,menu_b|
000032c0  6c 6f 63 6b 25 2c 78 25  2c 79 25 0d 15 40 05 e1  |lock%,x%,y%..@..|
000032d0  0d 15 4a 04 0d 15 54 04  0d 15 5e 04 0d 15 68 0e  |..J...T...^...h.|
000032e0  dd 20 a4 69 63 6f 6e 62  61 72 0d 15 72 4e 21 62  |. .iconbar..rN!b|
000032f0  6c 6f 63 6b 25 3d 2d 31  3a 62 6c 6f 63 6b 25 21  |lock%=-1:block%!|
00003300  34 3d 30 3a 62 6c 6f 63  6b 25 21 38 3d 30 3a 62  |4=0:block%!8=0:b|
00003310  6c 6f 63 6b 25 21 31 32  3d 36 33 3a 62 6c 6f 63  |lock%!12=63:bloc|
00003320  6b 25 21 31 36 3d 36 38  3a 62 6c 6f 63 6b 25 21  |k%!16=68:block%!|
00003330  32 30 3d 26 32 31 30 32  0d 15 7c 15 73 70 6e 61  |20=&2102..|.spna|
00003340  6d 65 24 3d 22 21 67 72  61 70 68 73 22 0d 15 86  |me$="!graphs"...|
00003350  44 de 20 62 6c 6f 63 6b  25 21 32 34 20 28 a9 73  |D. block%!24 (.s|
00003360  70 6e 61 6d 65 24 2b 31  29 3a 24 28 62 6c 6f 63  |pname$+1):$(bloc|
00003370  6b 25 21 32 34 29 3d 73  70 6e 61 6d 65 24 3a 62  |k%!24)=spname$:b|
00003380  6c 6f 63 6b 25 21 32 38  3d 73 70 72 69 74 65 73  |lock%!28=sprites|
00003390  25 0d 15 90 18 62 6c 6f  63 6b 25 21 33 32 3d a9  |%....block%!32=.|
000033a0  73 70 6e 61 6d 65 24 2b  31 0d 15 9a 26 c8 99 20  |spname$+1...&.. |
000033b0  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
000033c0  22 2c 2c 62 6c 6f 63 6b  25 20 b8 20 69 63 25 0d  |",,block% . ic%.|
000033d0  15 a4 08 3d 69 63 25 0d  15 ae 05 20 0d 15 b8 04  |...=ic%.... ....|
000033e0  0d 15 c2 04 0d 15 cc 04  0d 15 d6 19 dd 20 f2 6d  |............. .m|
000033f0  65 6e 75 73 65 6c 65 63  74 28 62 6c 6f 63 6b 25  |enuselect(block%|
00003400  29 0d 15 e0 18 73 65 6c  65 63 74 69 6f 6e 25 20  |)....selection% |
00003410  3d 20 21 62 6c 6f 63 6b  25 0d 15 ea 16 e7 20 6d  |= !block%..... m|
00003420  61 69 6e 5f 6d 65 6e 75  5f 6f 70 65 6e 20 8c 0d  |ain_menu_open ..|
00003430  15 f4 23 c8 99 22 57 69  6d 70 5f 47 65 74 50 6f  |..#.."Wimp_GetPo|
00003440  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 62 6c 6f 63  |interInfo",,bloc|
00003450  6b 25 0d 15 fe 14 e7 20  62 6c 6f 63 6b 25 21 38  |k%..... block%!8|
00003460  20 3d 20 31 20 8c 0d 16  08 13 20 20 f4 20 72 65  | = 1 .....  . re|
00003470  6f 70 65 6e 20 6d 65 6e  75 0d 16 12 26 20 20 c8  |open menu...&  .|
00003480  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00003490  6e 75 22 2c 2c 6d 61 69  6e 5f 6d 65 6e 75 25 0d  |nu",,main_menu%.|
000034a0  16 1c 05 cd 0d 16 26 13  c8 8e 20 73 65 6c 65 63  |......&... selec|
000034b0  74 69 6f 6e 25 20 ca 0d  16 30 18 c9 20 30 20 20  |tion% ...0.. 0  |
000034c0  3a 20 20 20 20 f2 66 69  6c 65 5f 64 61 74 61 0d  |:    .file_data.|
000034d0  16 3a 1a c9 20 31 20 20  3a 20 20 20 20 f2 66 69  |.:.. 1  :    .fi|
000034e0  6c 65 5f 67 72 61 70 68  73 0d 16 44 2c c9 20 32  |le_graphs..D,. 2|
000034f0  20 20 3a 20 20 20 20 e7  20 ac 20 70 6f 6c 61 72  |  :    . . polar|
00003500  5f 70 6c 6f 74 25 20 8c  20 f2 63 6f 6f 72 64 69  |_plot% . .coordi|
00003510  6e 61 74 65 73 0d 16 4e  13 c9 20 33 20 20 3a 20  |nates..N.. 3  : |
00003520  20 20 20 f2 61 78 65 73  0d 16 58 18 c9 20 34 20  |   .axes..X.. 4 |
00003530  20 3a 20 20 20 20 f2 66  75 6e 63 74 69 6f 6e 73  | :    .functions|
00003540  0d 16 62 1f c9 20 35 20  20 3a 20 20 20 20 f2 73  |..b.. 5  :    .s|
00003550  65 6c 65 63 74 5f 63 61  72 74 65 73 69 61 6e 0d  |elect_cartesian.|
00003560  16 6c 1b c9 20 36 20 20  3a 20 20 20 20 f2 73 65  |.l.. 6  :    .se|
00003570  6c 65 63 74 5f 70 6f 6c  61 72 0d 16 76 20 c9 20  |lect_polar..v . |
00003580  37 20 20 3a 20 20 20 20  f2 73 65 6c 65 63 74 5f  |7  :    .select_|
00003590  70 61 72 61 6d 65 74 72  69 63 0d 16 80 16 c9 20  |parametric..... |
000035a0  38 20 20 3a 20 20 20 20  f2 64 65 67 72 65 65 73  |8  :    .degrees|
000035b0  0d 16 8a 18 c9 20 39 20  20 3a 20 20 20 20 f2 61  |..... 9  :    .a|
000035c0  78 65 73 5f 66 6c 61 67  0d 16 94 13 c9 20 31 30  |xes_flag..... 10|
000035d0  20 3a 20 20 20 20 f2 6c  69 6e 65 0d 16 9e 05 cb  | :    .line.....|
000035e0  0d 16 a8 05 cc 0d 16 b2  13 c8 8e 20 73 65 6c 65  |........... sele|
000035f0  63 74 69 6f 6e 25 20 ca  0d 16 bc 16 c9 20 30 20  |ction% ...... 0 |
00003600  20 3a 20 f2 63 6c 6f 73  65 5f 64 6f 77 6e 0d 16  | : .close_down..|
00003610  c6 1e c9 20 31 20 20 3a  20 f2 6f 70 65 6e 5f 77  |... 1  : .open_w|
00003620  69 6e 64 6f 77 28 69 6e  66 6f 25 29 0d 16 d0 05  |indow(info%)....|
00003630  cb 0d 16 da 05 cd 0d 16  e4 05 e1 0d 16 ee 04 0d  |................|
00003640  16 f8 04 0d 17 02 04 0d  17 0c 04 0d 17 16 1f dd  |................|
00003650  20 f2 6c 65 61 76 65 5f  77 69 6e 64 6f 77 28 70  | .leave_window(p|
00003660  61 72 61 6d 65 74 65 72  25 29 0d 17 20 0d ea 20  |arameter%).. .. |
00003670  77 69 6e 64 6f 77 25 0d  17 2a 19 77 69 6e 64 6f  |window%..*.windo|
00003680  77 25 20 3d 20 21 70 61  72 61 6d 65 74 65 72 25  |w% = !parameter%|
00003690  0d 17 34 10 c8 8e 20 77  69 6e 64 6f 77 25 20 ca  |..4... window% .|
000036a0  0d 17 3e 21 c9 20 20 69  6e 66 6f 25 20 20 20 20  |..>!.  info%    |
000036b0  20 20 3a 20 f2 63 6c 6f  73 65 28 69 6e 66 6f 25  |  : .close(info%|
000036c0  29 0d 17 48 2e f4 20 57  48 45 4e 20 20 63 61 72  |)..H.. WHEN  car|
000036d0  74 65 73 69 61 6e 25 20  3a 20 50 52 4f 43 65 78  |tesian% : PROCex|
000036e0  74 72 61 63 74 5f 63 61  72 74 5f 66 75 6e 63 0d  |tract_cart_func.|
000036f0  17 52 2d f4 20 20 20 20  20 20 20 20 20 20 20 20  |.R-.            |
00003700  20 20 20 20 20 20 20 50  52 4f 43 63 6f 6e 76 65  |       PROCconve|
00003710  72 74 5f 66 75 6e 63 74  69 6f 6e 73 0d 17 5c 32  |rt_functions..\2|
00003720  f4 57 48 45 4e 20 20 70  61 72 61 6d 65 74 72 69  |.WHEN  parametri|
00003730  63 25 3a 20 50 52 4f 43  65 78 74 72 61 63 74 5f  |c%: PROCextract_|
00003740  70 61 72 61 5f 66 75 6e  63 74 69 6f 6e 73 0d 17  |para_functions..|
00003750  66 32 f4 20 20 20 20 20  20 20 20 20 20 20 20 20  |f2.             |
00003760  20 20 20 20 20 20 50 52  4f 43 72 65 74 75 72 6e  |      PROCreturn|
00003770  5f 70 61 72 61 61 78 65  73 5f 76 61 6c 75 65 73  |_paraaxes_values|
00003780  0d 17 70 32 f4 20 20 20  20 20 20 20 20 20 20 20  |..p2.           |
00003790  20 20 20 20 20 20 20 20  50 52 4f 43 63 6f 6e 76  |        PROCconv|
000037a0  65 72 74 5f 70 61 72 61  5f 66 75 6e 63 74 69 6f  |ert_para_functio|
000037b0  6e 73 0d 17 7a 33 f4 57  48 45 4e 20 20 70 6f 6c  |ns..z3.WHEN  pol|
000037c0  61 72 25 20 20 20 20 20  3a 20 50 52 4f 43 65 78  |ar%     : PROCex|
000037d0  74 72 61 63 74 5f 70 6f  6c 61 72 5f 66 75 6e 63  |tract_polar_func|
000037e0  74 69 6f 6e 73 0d 17 84  33 f4 20 20 20 20 20 20  |tions...3.      |
000037f0  20 20 20 20 20 20 20 20  20 20 20 20 20 50 52 4f  |             PRO|
00003800  43 63 6f 6e 76 65 72 74  5f 70 6f 6c 61 72 5f 66  |Cconvert_polar_f|
00003810  75 6e 63 74 69 6f 6e 73  0d 17 8e 24 c9 20 20 63  |unctions...$.  c|
00003820  61 72 74 61 78 65 73 25  20 20 3a 20 f2 63 68 65  |artaxes%  : .che|
00003830  63 6b 5f 63 61 72 74 5f  61 78 65 73 0d 17 98 25  |ck_cart_axes...%|
00003840  c9 20 20 70 6f 6c 61 72  61 78 65 73 25 20 3a 20  |.  polaraxes% : |
00003850  f2 63 68 65 63 6b 5f 70  6f 6c 61 72 5f 61 78 65  |.check_polar_axe|
00003860  73 0d 17 a2 24 c9 20 20  70 61 72 61 61 78 65 73  |s...$.  paraaxes|
00003870  25 20 20 3a 20 f2 63 68  65 63 6b 5f 70 61 72 61  |%  : .check_para|
00003880  5f 61 78 65 73 0d 17 ac  05 cb 0d 17 b6 05 e1 0d  |_axes...........|
00003890  17 c0 04 0d 17 ca 04 0d  17 d4 04 0d 17 de 04 0d  |................|
000038a0  17 e8 05 20 0d 17 f2 04  0d 17 fc 11 dd 20 f2 63  |... ......... .c|
000038b0  6c 6f 73 65 5f 64 6f 77  6e 0d 18 06 14 24 62 6c  |lose_down....$bl|
000038c0  6f 63 6b 25 20 3d 20 22  54 41 53 4b 22 0d 18 10  |ock% = "TASK"...|
000038d0  25 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |%.. "Wimp_CloseD|
000038e0  6f 77 6e 22 2c 74 61 73  6b 25 2c 21 62 6c 6f 63  |own",task%,!bloc|
000038f0  6b 25 0d 18 1a 11 66 69  6e 69 73 68 65 64 25 20  |k%....finished% |
00003900  3d 20 b9 0d 18 24 05 e1  0d 18 2e 04 0d 18 38 04  |= ...$........8.|
00003910  0d 18 42 04 0d 18 4c 04  0d 18 56 04 0d 18 60 1a  |..B...L...V...`.|
00003920  dd 20 f2 72 65 63 65 69  76 65 28 70 61 72 61 6d  |. .receive(param|
00003930  65 74 65 72 25 29 0d 18  6a 0d ea 20 72 65 61 73  |eter%)..j.. reas|
00003940  6f 6e 25 0d 18 74 1c 6e  65 77 5f 74 61 73 6b 25  |on%..t.new_task%|
00003950  20 3d 20 70 61 72 61 6d  65 74 65 72 25 21 34 0d  | = parameter%!4.|
00003960  18 7e 15 72 65 66 25 3d  70 61 72 61 6d 65 74 65  |.~.ref%=paramete|
00003970  72 25 21 38 0d 18 88 19  72 65 61 73 6f 6e 25 3d  |r%!8....reason%=|
00003980  70 61 72 61 6d 65 74 65  72 25 21 31 36 0d 18 92  |parameter%!16...|
00003990  11 c8 8e 20 20 72 65 61  73 6f 6e 25 20 ca 0d 18  |...  reason% ...|
000039a0  9c 17 c9 20 30 20 20 20  3a 20 f2 63 6c 6f 73 65  |... 0   : .close|
000039b0  5f 64 6f 77 6e 0d 18 a6  21 c9 20 32 20 20 20 3a  |_down...!. 2   :|
000039c0  20 f2 64 61 74 61 73 61  76 65 28 70 61 72 61 6d  | .datasave(param|
000039d0  65 74 65 72 25 29 0d 18  b0 35 c9 20 33 2c 35 20  |eter%)...5. 3,5 |
000039e0  3a 20 e7 20 70 61 72 61  6d 65 74 65 72 25 21 31  |: . parameter%!1|
000039f0  32 3d 30 20 8c 20 f2 64  61 74 61 6c 6f 61 64 28  |2=0 . .dataload(|
00003a00  70 61 72 61 6d 65 74 65  72 25 29 0d 18 ba 13 c9  |parameter%).....|
00003a10  20 36 20 20 20 3a 20 f2  6d 65 6d 6f 72 79 0d 18  | 6   : .memory..|
00003a20  c4 11 c9 20 26 35 30 32  3a 20 f2 68 65 6c 70 0d  |... &502: .help.|
00003a30  18 ce 05 cb 0d 18 d8 05  e1 0d 18 e2 05 20 0d 18  |............. ..|
00003a40  ec 04 0d 18 f6 0b dd 20  f2 61 78 65 73 0d 19 00  |....... .axes...|
00003a50  29 e7 20 63 61 72 74 5f  70 6c 6f 74 25 20 20 f2  |). cart_plot%  .|
00003a60  6f 70 65 6e 5f 77 69 6e  64 6f 77 28 63 61 72 74  |open_window(cart|
00003a70  61 78 65 73 25 29 0d 19  0a 29 e7 20 70 61 72 61  |axes%)...). para|
00003a80  5f 70 6c 6f 74 25 20 20  f2 6f 70 65 6e 5f 77 69  |_plot%  .open_wi|
00003a90  6e 64 6f 77 28 70 61 72  61 61 78 65 73 25 29 0d  |ndow(paraaxes%).|
00003aa0  19 14 2a e7 20 70 6f 6c  61 72 5f 70 6c 6f 74 25  |..*. polar_plot%|
00003ab0  20 f2 6f 70 65 6e 5f 77  69 6e 64 6f 77 28 70 6f  | .open_window(po|
00003ac0  6c 61 72 61 78 65 73 25  29 0d 19 1e 05 e1 0d 19  |laraxes%).......|
00003ad0  28 04 0d 19 32 04 0d 19  3c 04 0d 19 46 04 0d 19  |(...2...<...F...|
00003ae0  50 04 0d 19 5a 10 dd 20  f2 66 75 6e 63 74 69 6f  |P...Z.. .functio|
00003af0  6e 73 0d 19 64 2a e7 20  63 61 72 74 5f 70 6c 6f  |ns..d*. cart_plo|
00003b00  74 25 20 20 f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |t%  .open_window|
00003b10  28 63 61 72 74 65 73 69  61 6e 25 29 0d 19 6e 2b  |(cartesian%)..n+|
00003b20  e7 20 70 61 72 61 5f 70  6c 6f 74 25 20 20 f2 6f  |. para_plot%  .o|
00003b30  70 65 6e 5f 77 69 6e 64  6f 77 28 70 61 72 61 6d  |pen_window(param|
00003b40  65 74 72 69 63 25 29 0d  19 78 26 e7 20 70 6f 6c  |etric%)..x&. pol|
00003b50  61 72 5f 70 6c 6f 74 25  20 f2 6f 70 65 6e 5f 77  |ar_plot% .open_w|
00003b60  69 6e 64 6f 77 28 70 6f  6c 61 72 25 29 0d 19 82  |indow(polar%)...|
00003b70  07 20 20 e1 0d 19 8c 04  0d 19 96 04 0d 19 a0 04  |.  .............|
00003b80  0d 19 aa 04 0d 19 b4 04  0d 19 be 24 dd 20 f2 75  |...........$. .u|
00003b90  70 64 61 74 65 63 61 72  74 61 78 65 73 28 77 69  |pdatecartaxes(wi|
00003ba0  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 19 c8 23  |ndow%,icon%)...#|
00003bb0  e7 20 69 63 6f 6e 25 20  3d 20 63 61 72 74 5f 61  |. icon% = cart_a|
00003bc0  78 65 73 5f 79 65 73 5f  69 63 6f 6e 25 20 8c 0d  |xes_yes_icon% ..|
00003bd0  19 d2 2b 20 20 61 75 74  6f 5f 79 5f 63 61 72 74  |..+  auto_y_cart|
00003be0  61 78 65 73 25 20 3d 20  ac 20 61 75 74 6f 5f 79  |axes% = . auto_y|
00003bf0  5f 63 61 72 74 61 78 65  73 25 0d 19 dc 19 20 e7  |_cartaxes%.... .|
00003c00  20 61 75 74 6f 5f 79 5f  63 61 72 74 61 78 65 73  | auto_y_cartaxes|
00003c10  25 20 8c 0d 19 e6 3a 20  63 61 72 74 5f 61 78 65  |% ....: cart_axe|
00003c20  73 5f 79 65 73 5f 69 63  6f 6e 25 3d a4 63 68 61  |s_yes_icon%=.cha|
00003c30  6e 67 65 5f 74 65 78 74  28 77 69 6e 64 6f 77 25  |nge_text(window%|
00003c40  2c 69 63 6f 6e 25 2c 22  59 45 53 22 29 0d 19 f0  |,icon%,"YES")...|
00003c50  28 20 f2 64 65 73 65 6c  65 63 74 28 77 69 6e 64  |( .deselect(wind|
00003c60  6f 77 25 2c 63 61 72 74  5f 6d 69 6e 5f 79 5f 69  |ow%,cart_min_y_i|
00003c70  63 6f 6e 25 29 0d 19 fa  28 20 f2 64 65 73 65 6c  |con%)...( .desel|
00003c80  65 63 74 28 77 69 6e 64  6f 77 25 2c 63 61 72 74  |ect(window%,cart|
00003c90  5f 6d 61 78 5f 79 5f 69  63 6f 6e 25 29 0d 1a 04  |_max_y_icon%)...|
00003ca0  05 cc 0d 1a 0e 39 20 63  61 72 74 5f 61 78 65 73  |.....9 cart_axes|
00003cb0  5f 79 65 73 5f 69 63 6f  6e 25 3d a4 63 68 61 6e  |_yes_icon%=.chan|
00003cc0  67 65 5f 74 65 78 74 28  77 69 6e 64 6f 77 25 2c  |ge_text(window%,|
00003cd0  69 63 6f 6e 25 2c 22 4e  4f 22 29 0d 1a 18 28 20  |icon%,"NO")...( |
00003ce0  f2 72 65 73 65 6c 65 63  74 28 77 69 6e 64 6f 77  |.reselect(window|
00003cf0  25 2c 63 61 72 74 5f 6d  69 6e 5f 79 5f 69 63 6f  |%,cart_min_y_ico|
00003d00  6e 25 29 0d 1a 22 28 20  f2 72 65 73 65 6c 65 63  |n%).."( .reselec|
00003d10  74 28 77 69 6e 64 6f 77  25 2c 63 61 72 74 5f 6d  |t(window%,cart_m|
00003d20  61 78 5f 79 5f 69 63 6f  6e 25 29 0d 1a 2c 05 cd  |ax_y_icon%)..,..|
00003d30  0d 1a 36 05 cd 0d 1a 40  2e c8 99 20 22 57 69 6d  |..6....@... "Wim|
00003d40  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 77  |p_ForceRedraw",w|
00003d50  69 6e 64 6f 77 25 2c 30  2c 2d 33 30 30 2c 38 30  |indow%,0,-300,80|
00003d60  30 2c 30 0d 1a 4a 05 e1  0d 1a 54 04 0d 1a 5e 04  |0,0..J....T...^.|
00003d70  0d 1a 68 04 0d 1a 72 05  20 0d 1a 7c 24 dd 20 a4  |..h...r. ..|$. .|
00003d80  72 65 61 64 5f 69 63 6f  6e 5f 74 65 78 74 28 77  |read_icon_text(w|
00003d90  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 29 0d 1a 86  |indow%,icon%)...|
00003da0  15 21 62 6c 6f 63 6b 25  20 3d 20 77 69 6e 64 6f  |.!block% = windo|
00003db0  77 25 0d 1a 90 14 62 6c  6f 63 6b 25 21 34 20 3d  |w%....block%!4 =|
00003dc0  20 69 63 6f 6e 25 0d 1a  9a 22 c8 99 20 22 57 69  | icon%...".. "Wi|
00003dd0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00003de0  2c 2c 62 6c 6f 63 6b 25  0d 1a a4 16 74 65 78 74  |,,block%....text|
00003df0  25 20 3d 20 62 6c 6f 63  6b 25 2b 20 32 38 0d 1a  |% = block%+ 28..|
00003e00  ae 0b 3d 24 74 65 78 74  25 0d 1a b8 04 0d 1a c2  |..=$text%.......|
00003e10  04 0d 1a cc 04 0d 1a d6  04 0d 1a e0 1e dd 20 f2  |.............. .|
00003e20  64 65 73 65 6c 65 63 74  28 77 69 6e 64 6f 77 25  |deselect(window%|
00003e30  2c 69 63 6f 6e 25 29 0d  1a ea 15 21 62 6c 6f 63  |,icon%)....!bloc|
00003e40  6b 25 20 3d 20 77 69 6e  64 6f 77 25 0d 1a f4 13  |k% = window%....|
00003e50  62 6c 6f 63 6b 25 21 34  3d 20 69 63 6f 6e 25 0d  |block%!4= icon%.|
00003e60  1a fe 12 62 6c 6f 63 6b  25 21 38 3d 20 32 5e 32  |...block%!8= 2^2|
00003e70  32 0d 1b 08 14 62 6c 6f  63 6b 25 21 31 32 20 3d  |2....block%!12 =|
00003e80  20 32 5e 32 32 0d 1b 12  22 c8 99 20 22 57 69 6d  | 2^22...".. "Wim|
00003e90  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00003ea0  2c 62 6c 6f 63 6b 25 0d  1b 1c 05 e1 0d 1b 26 04  |,block%.......&.|
00003eb0  0d 1b 30 04 0d 1b 3a 04  0d 1b 44 04 0d 1b 4e 1e  |..0...:...D...N.|
00003ec0  dd 20 f2 72 65 73 65 6c  65 63 74 28 77 69 6e 64  |. .reselect(wind|
00003ed0  6f 77 25 2c 69 63 6f 6e  25 29 0d 1b 58 15 21 62  |ow%,icon%)..X.!b|
00003ee0  6c 6f 63 6b 25 20 3d 20  77 69 6e 64 6f 77 25 0d  |lock% = window%.|
00003ef0  1b 62 13 62 6c 6f 63 6b  25 21 34 3d 20 69 63 6f  |.b.block%!4= ico|
00003f00  6e 25 0d 1b 6c 0f 62 6c  6f 63 6b 25 21 38 3d 20  |n%..l.block%!8= |
00003f10  30 0d 1b 76 14 62 6c 6f  63 6b 25 21 31 32 20 3d  |0..v.block%!12 =|
00003f20  20 32 5e 32 32 0d 1b 80  22 c8 99 20 22 57 69 6d  | 2^22...".. "Wim|
00003f30  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00003f40  2c 62 6c 6f 63 6b 25 0d  1b 8a 05 e1 0d 1b 94 04  |,block%.........|
00003f50  0d 1b 9e 04 0d 1b a8 04  0d 1b b2 04 0d 1b bc 25  |...............%|
00003f60  dd 20 f2 75 70 64 61 74  65 63 61 72 74 65 73 69  |. .updatecartesi|
00003f70  61 6e 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |an(window%,icon%|
00003f80  29 0d 1b c6 16 f2 65 78  74 72 61 63 74 5f 63 61  |).....extract_ca|
00003f90  72 74 5f 66 75 6e 63 0d  1b d0 27 20 e7 20 63 61  |rt_func...' . ca|
00003fa0  72 74 5f 70 6c 6f 74 25  28 63 75 72 72 65 6e 74  |rt_plot%(current|
00003fb0  5f 63 61 72 74 5f 66 75  6e 63 25 29 20 8c 0d 1b  |_cart_func%) ...|
00003fc0  da 48 20 63 61 72 74 5f  66 75 6e 63 5f 79 65 73  |.H cart_func_yes|
00003fd0  5f 69 63 6f 6e 25 3d a4  63 68 61 6e 67 65 5f 74  |_icon%=.change_t|
00003fe0  65 78 74 28 77 69 6e 64  6f 77 25 2c 63 61 72 74  |ext(window%,cart|
00003ff0  5f 66 75 6e 63 5f 79 65  73 5f 69 63 6f 6e 25 2c  |_func_yes_icon%,|
00004000  22 59 45 53 22 29 0d 1b  e4 05 cc 0d 1b ee 47 20  |"YES")........G |
00004010  63 61 72 74 5f 66 75 6e  63 5f 79 65 73 5f 69 63  |cart_func_yes_ic|
00004020  6f 6e 25 3d a4 63 68 61  6e 67 65 5f 74 65 78 74  |on%=.change_text|
00004030  28 77 69 6e 64 6f 77 25  2c 63 61 72 74 5f 66 75  |(window%,cart_fu|
00004040  6e 63 5f 79 65 73 5f 69  63 6f 6e 25 2c 22 4e 4f  |nc_yes_icon%,"NO|
00004050  22 29 0d 1b f8 05 cd 0d  1c 02 23 e7 20 69 63 6f  |")........#. ico|
00004060  6e 25 20 3d 20 63 61 72  74 5f 66 75 6e 63 5f 79  |n% = cart_func_y|
00004070  65 73 5f 69 63 6f 6e 25  20 8c 0d 1c 0c 47 20 20  |es_icon% ....G  |
00004080  63 61 72 74 5f 70 6c 6f  74 25 28 63 75 72 72 65  |cart_plot%(curre|
00004090  6e 74 5f 63 61 72 74 5f  66 75 6e 63 25 29 20 3d  |nt_cart_func%) =|
000040a0  20 ac 20 63 61 72 74 5f  70 6c 6f 74 25 28 63 75  | . cart_plot%(cu|
000040b0  72 72 65 6e 74 5f 63 61  72 74 5f 66 75 6e 63 25  |rrent_cart_func%|
000040c0  29 0d 1c 16 27 20 e7 20  63 61 72 74 5f 70 6c 6f  |)...' . cart_plo|
000040d0  74 25 28 63 75 72 72 65  6e 74 5f 63 61 72 74 5f  |t%(current_cart_|
000040e0  66 75 6e 63 25 29 20 8c  0d 1c 20 3a 20 63 61 72  |func%) ... : car|
000040f0  74 5f 66 75 6e 63 5f 79  65 73 5f 69 63 6f 6e 25  |t_func_yes_icon%|
00004100  3d a4 63 68 61 6e 67 65  5f 74 65 78 74 28 77 69  |=.change_text(wi|
00004110  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 22 59 45 53  |ndow%,icon%,"YES|
00004120  22 29 0d 1c 2a 05 cc 0d  1c 34 39 20 63 61 72 74  |")..*....49 cart|
00004130  5f 66 75 6e 63 5f 79 65  73 5f 69 63 6f 6e 25 3d  |_func_yes_icon%=|
00004140  a4 63 68 61 6e 67 65 5f  74 65 78 74 28 77 69 6e  |.change_text(win|
00004150  64 6f 77 25 2c 69 63 6f  6e 25 2c 22 4e 4f 22 29  |dow%,icon%,"NO")|
00004160  0d 1c 3e 05 cd 0d 1c 48  05 cd 0d 1c 52 2a e7 20  |..>....H....R*. |
00004170  69 63 6f 6e 25 20 3d 20  34 20 80 20 63 75 72 72  |icon% = 4 . curr|
00004180  65 6e 74 5f 63 61 72 74  5f 66 75 6e 63 25 20 3e  |ent_cart_func% >|
00004190  20 31 20 8c 0d 1c 5c 1e  20 20 20 20 63 75 72 72  | 1 ...\.    curr|
000041a0  65 6e 74 5f 63 61 72 74  5f 66 75 6e 63 25 20 2d  |ent_cart_func% -|
000041b0  3d 31 0d 1c 66 5d 63 61  72 74 5f 66 75 6e 63 5f  |=1..f]cart_func_|
000041c0  63 6f 75 6e 74 5f 69 63  6f 6e 25 20 3d 20 a4 63  |count_icon% = .c|
000041d0  68 61 6e 67 65 5f 74 65  78 74 28 77 69 6e 64 6f  |hange_text(windo|
000041e0  77 25 2c 63 61 72 74 5f  66 75 6e 63 5f 63 6f 75  |w%,cart_func_cou|
000041f0  6e 74 5f 69 63 6f 6e 25  2c c3 28 63 75 72 72 65  |nt_icon%,.(curre|
00004200  6e 74 5f 63 61 72 74 5f  66 75 6e 63 25 29 29 0d  |nt_cart_func%)).|
00004210  1c 70 05 cd 0d 1c 7a 04  0d 1c 84 2a e7 20 69 63  |.p....z....*. ic|
00004220  6f 6e 25 20 3d 20 35 20  80 20 63 75 72 72 65 6e  |on% = 5 . curren|
00004230  74 5f 63 61 72 74 5f 66  75 6e 63 25 20 3c 20 36  |t_cart_func% < 6|
00004240  20 8c 0d 1c 8e 1e 20 20  20 20 63 75 72 72 65 6e  | .....    curren|
00004250  74 5f 63 61 72 74 5f 66  75 6e 63 25 20 2b 3d 31  |t_cart_func% +=1|
00004260  0d 1c 98 5d 63 61 72 74  5f 66 75 6e 63 5f 63 6f  |...]cart_func_co|
00004270  75 6e 74 5f 69 63 6f 6e  25 20 3d 20 a4 63 68 61  |unt_icon% = .cha|
00004280  6e 67 65 5f 74 65 78 74  28 77 69 6e 64 6f 77 25  |nge_text(window%|
00004290  2c 63 61 72 74 5f 66 75  6e 63 5f 63 6f 75 6e 74  |,cart_func_count|
000042a0  5f 69 63 6f 6e 25 2c c3  28 63 75 72 72 65 6e 74  |_icon%,.(current|
000042b0  5f 63 61 72 74 5f 66 75  6e 63 25 29 29 0d 1c a2  |_cart_func%))...|
000042c0  05 cd 0d 1c ac 3e 63 61  72 74 5f 66 75 6e 63 5f  |.....>cart_func_|
000042d0  69 63 6f 6e 25 3d a4 75  70 64 61 74 65 5f 63 61  |icon%=.update_ca|
000042e0  72 74 5f 66 75 6e 63 74  69 6f 6e 28 20 63 75 72  |rt_function( cur|
000042f0  72 65 6e 74 5f 63 61 72  74 5f 66 75 6e 63 25 29  |rent_cart_func%)|
00004300  0d 1c b6 26 e7 20 63 61  72 74 5f 70 6c 6f 74 25  |...&. cart_plot%|
00004310  28 63 75 72 72 65 6e 74  5f 63 61 72 74 5f 66 75  |(current_cart_fu|
00004320  6e 63 25 29 20 8c 0d 1c  c0 48 20 63 61 72 74 5f  |nc%) ....H cart_|
00004330  66 75 6e 63 5f 79 65 73  5f 69 63 6f 6e 25 3d a4  |func_yes_icon%=.|
00004340  63 68 61 6e 67 65 5f 74  65 78 74 28 77 69 6e 64  |change_text(wind|
00004350  6f 77 25 2c 63 61 72 74  5f 66 75 6e 63 5f 79 65  |ow%,cart_func_ye|
00004360  73 5f 69 63 6f 6e 25 2c  22 59 45 53 22 29 0d 1c  |s_icon%,"YES")..|
00004370  ca 05 cc 0d 1c d4 47 20  63 61 72 74 5f 66 75 6e  |......G cart_fun|
00004380  63 5f 79 65 73 5f 69 63  6f 6e 25 3d a4 63 68 61  |c_yes_icon%=.cha|
00004390  6e 67 65 5f 74 65 78 74  28 77 69 6e 64 6f 77 25  |nge_text(window%|
000043a0  2c 63 61 72 74 5f 66 75  6e 63 5f 79 65 73 5f 69  |,cart_func_yes_i|
000043b0  63 6f 6e 25 2c 22 4e 4f  22 29 0d 1c de 05 cd 0d  |con%,"NO")......|
000043c0  1c e8 36 f2 73 65 74 5f  67 72 61 70 68 5f 63 6f  |..6.set_graph_co|
000043d0  6c 6f 75 72 5f 69 63 6f  6e 28 77 69 6e 64 6f 77  |lour_icon(window|
000043e0  25 2c 63 75 72 72 65 6e  74 5f 63 61 72 74 5f 66  |%,current_cart_f|
000043f0  75 6e 63 25 29 0d 1c f2  15 21 62 6c 6f 63 6b 25  |unc%)....!block%|
00004400  20 3d 20 77 69 6e 64 6f  77 25 0d 1c fc 2e c8 99  | = window%......|
00004410  20 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  | "Wimp_ForceRedr|
00004420  61 77 22 2c 77 69 6e 64  6f 77 25 2c 30 2c 2d 33  |aw",window%,0,-3|
00004430  30 30 2c 39 30 30 2c 30  0d 1d 06 05 e1 0d 1d 10  |00,900,0........|
00004440  04 0d 1d 1a 05 20 0d 1d  24 04 0d 1d 2e 05 20 0d  |..... ..$..... .|
00004450  1d 38 37 dd f2 73 65 74  5f 67 72 61 70 68 5f 63  |.87..set_graph_c|
00004460  6f 6c 6f 75 72 5f 69 63  6f 6e 28 77 69 6e 64 6f  |olour_icon(windo|
00004470  77 25 2c 63 75 72 72 65  6e 74 5f 63 61 72 74 5f  |w%,current_cart_|
00004480  66 75 6e 63 25 29 0d 1d  42 16 62 6c 6f 63 6b 25  |func%)..B.block%|
00004490  21 30 20 3d 20 77 69 6e  64 6f 77 25 0d 1d 4c 10  |!0 = window%..L.|
000044a0  62 6c 6f 63 6b 25 21 34  20 3d 20 39 0d 1d 56 2b  |block%!4 = 9..V+|
000044b0  62 6c 6f 63 6b 25 21 38  20 3d 20 28 39 20 2b 20  |block%!8 = (9 + |
000044c0  63 75 72 72 65 6e 74 5f  63 61 72 74 5f 66 75 6e  |current_cart_fun|
000044d0  63 25 29 3c 3c 32 38 0d  1d 60 17 62 6c 6f 63 6b  |c%)<<28..`.block|
000044e0  25 21 31 32 20 3d 20 26  46 20 3c 3c 32 38 0d 1d  |%!12 = &F <<28..|
000044f0  6a 22 c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |j".. "Wimp_SetIc|
00004500  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
00004510  0d 1d 74 05 e1 0d 1d 7e  05 20 0d 1d 88 04 0d 1d  |..t....~. ......|
00004520  92 04 0d 1d 9c 27 dd 20  a4 63 68 61 6e 67 65 5f  |.....'. .change_|
00004530  74 65 78 74 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |text(window%,ico|
00004540  6e 25 2c 74 65 78 74 24  29 0d 1d a6 15 21 62 6c  |n%,text$)....!bl|
00004550  6f 63 6b 25 20 3d 20 77  69 6e 64 6f 77 25 0d 1d  |ock% = window%..|
00004560  b0 14 62 6c 6f 63 6b 25  21 34 20 3d 20 69 63 6f  |..block%!4 = ico|
00004570  6e 25 0d 1d ba 22 c8 99  20 22 57 69 6d 70 5f 47  |n%...".. "Wimp_G|
00004580  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
00004590  6f 63 6b 25 0d 1d c4 15  74 65 78 74 25 20 3d 20  |ock%....text% = |
000045a0  62 6c 6f 63 6b 25 2b 32  38 0d 1d ce 12 24 74 65  |block%+28....$te|
000045b0  78 74 25 20 3d 20 74 65  78 74 24 0d 1d d8 20 c8  |xt% = text$... .|
000045c0  99 20 22 57 69 6d 70 5f  44 65 6c 65 74 65 49 63  |. "Wimp_DeleteIc|
000045d0  6f 6e 22 2c 2c 62 6c 6f  63 6b 25 0d 1d e2 2a e3  |on",,block%...*.|
000045e0  20 62 65 6c 6f 77 25 20  3d 20 62 6c 6f 63 6b 25  | below% = block%|
000045f0  20 2b 20 34 20 b8 20 62  6c 6f 63 6b 25 20 2b 33  | + 4 . block% +3|
00004600  35 20 88 20 34 0d 1d ec  18 20 20 21 62 65 6c 6f  |5 . 4....  !belo|
00004610  77 25 20 3d 20 62 65 6c  6f 77 25 21 34 0d 1d f6  |w% = below%!4...|
00004620  05 ed 0d 1e 00 28 c8 99  20 22 57 69 6d 70 5f 43  |.....(.. "Wimp_C|
00004630  72 65 61 74 65 49 63 6f  6e 22 2c 2c 62 6c 6f 63  |reateIcon",,bloc|
00004640  6b 25 20 b8 20 69 63 6f  6e 25 0d 1e 0a 0a 3d 69  |k% . icon%....=i|
00004650  63 6f 6e 25 0d 1e 14 04  0d 1e 1e 04 0d 1e 28 04  |con%..........(.|
00004660  0d 1e 32 04 0d 1e 3c 04  0d 1e 46 04 0d 1e 50 23  |..2...<...F...P#|
00004670  dd 20 a4 75 70 64 61 74  65 5f 63 61 72 74 5f 66  |. .update_cart_f|
00004680  75 6e 63 74 69 6f 6e 28  20 69 74 65 6d 25 29 0d  |unction( item%).|
00004690  1e 5a 15 21 62 6c 6f 63  6b 25 20 3d 20 77 69 6e  |.Z.!block% = win|
000046a0  64 6f 77 25 0d 1e 64 1e  62 6c 6f 63 6b 25 21 34  |dow%..d.block%!4|
000046b0  20 3d 20 63 61 72 74 5f  66 75 6e 63 5f 69 63 6f  | = cart_func_ico|
000046c0  6e 25 0d 1e 6e 22 c8 99  20 22 57 69 6d 70 5f 47  |n%..n".. "Wimp_G|
000046d0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
000046e0  6f 63 6b 25 0d 1e 78 20  c8 99 20 22 57 69 6d 70  |ock%..x .. "Wimp|
000046f0  5f 44 65 6c 65 74 65 49  63 6f 6e 22 2c 2c 62 6c  |_DeleteIcon",,bl|
00004700  6f 63 6b 25 0d 1e 82 2a  e3 20 62 65 6c 6f 77 25  |ock%...*. below%|
00004710  20 3d 20 62 6c 6f 63 6b  25 20 2b 20 34 20 b8 20  | = block% + 4 . |
00004720  62 6c 6f 63 6b 25 20 2b  33 35 20 88 20 34 0d 1e  |block% +35 . 4..|
00004730  8c 18 20 20 21 62 65 6c  6f 77 25 20 3d 20 62 65  |..  !below% = be|
00004740  6c 6f 77 25 21 34 0d 1e  96 05 ed 0d 1e a0 17 74  |low%!4.........t|
00004750  65 78 74 25 20 3d 20 62  6c 6f 63 6b 25 20 2b 20  |ext% = block% + |
00004760  32 34 0d 1e aa 1d 76 61  6c 69 64 61 74 69 6f 6e  |24....validation|
00004770  25 20 3d 20 62 6c 6f 63  6b 25 20 2b 20 32 38 0d  |% = block% + 28.|
00004780  1e b4 20 62 75 66 66 65  72 5f 6c 65 6e 67 74 68  |.. buffer_length|
00004790  25 20 3d 20 62 6c 6f 63  6b 25 20 2b 20 33 32 0d  |% = block% + 32.|
000047a0  1e be 24 21 74 65 78 74  25 20 3d 20 63 75 72 72  |..$!text% = curr|
000047b0  65 6e 74 5f 63 61 72 74  5f 66 75 6e 63 5f 74 65  |ent_cart_func_te|
000047c0  78 74 25 0d 1e c8 15 21  76 61 6c 69 64 61 74 69  |xt%....!validati|
000047d0  6f 6e 25 20 3d 20 2d 31  0d 1e d2 19 21 62 75 66  |on% = -1....!buf|
000047e0  66 65 72 5f 6c 65 6e 67  74 68 25 20 3d 20 31 30  |fer_length% = 10|
000047f0  30 0d 1e dc 3d 24 63 75  72 72 65 6e 74 5f 63 61  |0...=$current_ca|
00004800  72 74 5f 66 75 6e 63 5f  74 65 78 74 25 20 3d 20  |rt_func_text% = |
00004810  65 6e 74 65 72 65 64 5f  63 61 72 74 5f 66 75 6e  |entered_cart_fun|
00004820  63 74 69 6f 6e 73 24 28  69 74 65 6d 25 29 0d 1e  |ctions$(item%)..|
00004830  e6 28 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.(.. "Wimp_Creat|
00004840  65 49 63 6f 6e 22 2c 2c  62 6c 6f 63 6b 25 20 b8  |eIcon",,block% .|
00004850  20 69 63 6f 6e 25 0d 1e  f0 0a 3d 69 63 6f 6e 25  | icon%....=icon%|
00004860  0d 1e fa 04 0d 1f 04 36  dd 20 f2 72 65 74 75 72  |.......6. .retur|
00004870  6e 5f 61 78 65 73 5f 76  61 6c 75 65 73 28 f8 20  |n_axes_values(. |
00004880  6d 69 6e 78 2c f8 20 6d  61 78 78 2c f8 20 6d 69  |minx,. maxx,. mi|
00004890  6e 79 2c f8 20 6d 61 78  79 29 0d 1f 0e 3d 65 6e  |ny,. maxy)...=en|
000048a0  74 65 72 65 64 5f 6d 69  6e 78 3d bb a4 72 65 61  |tered_minx=..rea|
000048b0  64 5f 69 63 6f 6e 5f 74  65 78 74 28 63 61 72 74  |d_icon_text(cart|
000048c0  61 78 65 73 25 2c 63 61  72 74 5f 6d 69 6e 5f 78  |axes%,cart_min_x|
000048d0  5f 69 63 6f 6e 25 29 0d  1f 18 3d 65 6e 74 65 72  |_icon%)...=enter|
000048e0  65 64 5f 6d 61 78 78 3d  bb a4 72 65 61 64 5f 69  |ed_maxx=..read_i|
000048f0  63 6f 6e 5f 74 65 78 74  28 63 61 72 74 61 78 65  |con_text(cartaxe|
00004900  73 25 2c 63 61 72 74 5f  6d 61 78 5f 78 5f 69 63  |s%,cart_max_x_ic|
00004910  6f 6e 25 29 0d 1f 22 3d  65 6e 74 65 72 65 64 5f  |on%).."=entered_|
00004920  6d 69 6e 79 3d bb a4 72  65 61 64 5f 69 63 6f 6e  |miny=..read_icon|
00004930  5f 74 65 78 74 28 63 61  72 74 61 78 65 73 25 2c  |_text(cartaxes%,|
00004940  63 61 72 74 5f 6d 69 6e  5f 79 5f 69 63 6f 6e 25  |cart_min_y_icon%|
00004950  29 0d 1f 2c 3d 65 6e 74  65 72 65 64 5f 6d 61 78  |)..,=entered_max|
00004960  79 3d bb a4 72 65 61 64  5f 69 63 6f 6e 5f 74 65  |y=..read_icon_te|
00004970  78 74 28 63 61 72 74 61  78 65 73 25 2c 63 61 72  |xt(cartaxes%,car|
00004980  74 5f 6d 61 78 5f 79 5f  69 63 6f 6e 25 29 0d 1f  |t_max_y_icon%)..|
00004990  36 25 f2 61 64 6a 75 73  74 5f 61 78 65 73 28 6d  |6%.adjust_axes(m|
000049a0  61 78 78 2c 6d 69 6e 78  2c 6d 61 78 79 2c 6d 69  |axx,minx,maxy,mi|
000049b0  6e 79 29 0d 1f 40 05 e1  0d 1f 4a 04 0d 1f 54 04  |ny)..@....J...T.|
000049c0  0d 1f 5e 18 dd 20 f2 65  78 74 72 61 63 74 5f 63  |..^.. .extract_c|
000049d0  61 72 74 5f 66 75 6e 63  0d 1f 68 15 21 62 6c 6f  |art_func..h.!blo|
000049e0  63 6b 25 20 3d 20 77 69  6e 64 6f 77 25 0d 1f 72  |ck% = window%..r|
000049f0  1e 62 6c 6f 63 6b 25 21  34 20 3d 20 63 61 72 74  |.block%!4 = cart|
00004a00  5f 66 75 6e 63 5f 69 63  6f 6e 25 0d 1f 7c 22 c8  |_func_icon%..|".|
00004a10  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00004a20  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 1f 86  |tate",,block%...|
00004a30  3e 65 6e 74 65 72 65 64  5f 63 61 72 74 5f 66 75  |>entered_cart_fu|
00004a40  6e 63 74 69 6f 6e 73 24  28 63 75 72 72 65 6e 74  |nctions$(current|
00004a50  5f 63 61 72 74 5f 66 75  6e 63 25 29 20 3d 20 24  |_cart_func%) = $|
00004a60  28 62 6c 6f 63 6b 25 21  32 38 29 0d 1f 90 14 e3  |(block%!28).....|
00004a70  20 67 72 61 70 68 25 20  3d 20 31 20 b8 20 36 0d  | graph% = 1 . 6.|
00004a80  1f 9a 3e 20 63 61 72 74  5f 66 75 6e 63 74 69 6f  |..> cart_functio|
00004a90  6e 73 24 28 67 72 61 70  68 25 29 20 3d 20 65 6e  |ns$(graph%) = en|
00004aa0  74 65 72 65 64 5f 63 61  72 74 5f 66 75 6e 63 74  |tered_cart_funct|
00004ab0  69 6f 6e 73 24 28 67 72  61 70 68 25 29 0d 1f a4  |ions$(graph%)...|
00004ac0  05 ed 0d 1f ae 05 e1 0d  1f b8 04 0d 1f c2 04 0d  |................|
00004ad0  1f cc 04 0d 1f d6 19 dd  20 f2 72 65 64 72 61 77  |........ .redraw|
00004ae0  5f 6d 61 69 6e 5f 77 69  6e 64 6f 77 0d 1f e0 0a  |_main_window....|
00004af0  f2 73 65 74 73 66 0d 1f  ea 12 e7 20 63 61 72 74  |.setsf..... cart|
00004b00  5f 70 6c 6f 74 25 20 8c  0d 1f f4 13 f2 64 72 61  |_plot% ......dra|
00004b10  77 5f 63 61 72 74 5f 61  78 65 73 0d 1f fe 25 f2  |w_cart_axes...%.|
00004b20  78 5f 70 6c 6f 74 32 28  65 62 78 25 2c 65 74 78  |x_plot2(ebx%,etx|
00004b30  25 2d 32 2c 65 74 79 25  2c 65 62 79 25 2c 31 29  |%-2,ety%,eby%,1)|
00004b40  0d 20 08 08 ef 20 32 36  0d 20 12 1f 6d 61 69 6e  |. ... 26. ..main|
00004b50  5f 78 5f 6f 72 69 67 69  6e 25 20 3d 77 62 78 25  |_x_origin% =wbx%|
00004b60  20 2d 20 78 73 63 25 0d  20 1c 1f 6d 61 69 6e 5f  | - xsc%. ..main_|
00004b70  79 5f 6f 72 69 67 69 6e  25 20 3d 77 74 79 25 20  |y_origin% =wty% |
00004b80  2d 20 79 73 63 25 0d 20  26 05 cd 0d 20 30 04 0d  |- ysc%. &... 0..|
00004b90  20 3a 13 e7 20 70 61 72  61 5f 70 6c 6f 74 25 20  | :.. para_plot% |
00004ba0  20 8c 0d 20 44 15 20 20  f2 64 72 61 77 5f 63 61  | .. D.  .draw_ca|
00004bb0  72 74 5f 61 78 65 73 0d  20 4e 27 20 20 f2 78 5f  |rt_axes. N'  .x_|
00004bc0  70 6c 6f 74 31 28 65 62  78 25 2c 65 74 78 25 2d  |plot1(ebx%,etx%-|
00004bd0  32 2c 65 74 79 25 2c 65  62 79 25 2c 31 29 0d 20  |2,ety%,eby%,1). |
00004be0  58 0a 20 20 ef 20 32 36  0d 20 62 21 20 20 6d 61  |X.  . 26. b!  ma|
00004bf0  69 6e 5f 78 5f 6f 72 69  67 69 6e 25 20 3d 77 62  |in_x_origin% =wb|
00004c00  78 25 20 2d 20 78 73 63  25 0d 20 6c 21 20 20 6d  |x% - xsc%. l!  m|
00004c10  61 69 6e 5f 79 5f 6f 72  69 67 69 6e 25 20 3d 77  |ain_y_origin% =w|
00004c20  74 79 25 20 2d 20 79 73  63 25 0d 20 76 21 20 20  |ty% - ysc%. v!  |
00004c30  6d 61 69 6e 5f 78 5f 6f  72 69 67 69 6e 25 20 3d  |main_x_origin% =|
00004c40  77 62 78 25 20 2d 20 78  73 63 25 0d 20 80 21 20  |wbx% - xsc%. .! |
00004c50  20 6d 61 69 6e 5f 79 5f  6f 72 69 67 69 6e 25 20  | main_y_origin% |
00004c60  3d 77 74 79 25 20 2d 20  79 73 63 25 0d 20 8a 05  |=wty% - ysc%. ..|
00004c70  cd 0d 20 94 14 e7 20 70  6f 6c 61 72 5f 70 6c 6f  |.. ... polar_plo|
00004c80  74 25 20 20 8c 0d 20 9e  16 20 20 f2 64 72 61 77  |t%  .. ..  .draw|
00004c90  5f 70 6f 6c 61 72 5f 61  78 65 73 0d 20 a8 26 20  |_polar_axes. .& |
00004ca0  20 f2 78 5f 70 6c 6f 74  28 65 62 78 25 2c 65 74  | .x_plot(ebx%,et|
00004cb0  78 25 2d 32 2c 65 74 79  25 2c 65 62 79 25 2c 31  |x%-2,ety%,eby%,1|
00004cc0  29 0d 20 b2 0a 20 20 ef  20 32 36 0d 20 bc 21 20  |). ..  . 26. .! |
00004cd0  20 6d 61 69 6e 5f 78 5f  6f 72 69 67 69 6e 25 20  | main_x_origin% |
00004ce0  3d 77 62 78 25 20 2d 20  78 73 63 25 0d 20 c6 21  |=wbx% - xsc%. .!|
00004cf0  20 20 6d 61 69 6e 5f 79  5f 6f 72 69 67 69 6e 25  |  main_y_origin%|
00004d00  20 3d 77 74 79 25 20 2d  20 79 73 63 25 0d 20 d0  | =wty% - ysc%. .|
00004d10  05 cd 0d 20 da 05 e1 0d  20 e4 04 0d 20 ee 0c dd  |... .... ... ...|
00004d20  20 f2 73 65 74 73 66 0d  20 f8 0e 21 62 25 3d 20  | .setsf. ..!b%= |
00004d30  6d 61 69 6e 25 0d 21 02  1f c8 99 20 22 57 69 6d  |main%.!.... "Wim|
00004d40  70 5f 47 65 74 57 69 6e  64 6f 77 49 6e 66 6f 22  |p_GetWindowInfo"|
00004d50  2c 2c 62 25 0d 21 0c 18  73 66 3d 28 62 25 21 31  |,,b%.!..sf=(b%!1|
00004d60  32 2d 62 25 21 34 29 2f  31 32 38 30 0d 21 16 1b  |2-b%!4)/1280.!..|
00004d70  6d 75 6c 74 69 70 6c 69  65 72 25 20 3d 20 73 66  |multiplier% = sf|
00004d80  20 2a 20 31 30 32 34 0d  21 20 14 e7 20 6f 6c 64  | * 1024.! .. old|
00004d90  5f 73 66 20 3c 3e 20 73  66 20 8c 0d 21 2a 2f 20  |_sf <> sf ..!*/ |
00004da0  c8 99 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |.."OS_ReadModeVa|
00004db0  72 69 61 62 6c 65 22 2c  eb 2c 34 20 b8 20 2c 2c  |riable",.,4 . ,,|
00004dc0  70 69 78 5f 76 61 6c 75  65 25 0d 21 34 13 20 70  |pix_value%.!4. p|
00004dd0  69 78 5f 76 61 6c 75 65  25 20 2b 3d 31 0d 21 3e  |ix_value% +=1.!>|
00004de0  20 20 70 69 78 5f 76 61  6c 75 65 25 20 3d 20 70  |  pix_value% = p|
00004df0  69 78 5f 76 61 6c 75 65  25 2f 20 73 66 0d 21 48  |ix_value%/ sf.!H|
00004e00  10 20 6f 6c 64 5f 73 66  20 3d 20 73 66 0d 21 52  |. old_sf = sf.!R|
00004e10  10 20 21 62 25 20 3d 20  6d 61 69 6e 25 0d 21 5c  |. !b% = main%.!\|
00004e20  0d 20 62 25 21 34 20 3d  20 30 0d 21 66 11 20 62  |. b%!4 = 0.!f. b|
00004e30  25 21 38 20 3d 20 2d 32  30 30 30 0d 21 70 11 20  |%!8 = -2000.!p. |
00004e40  62 25 21 31 32 20 3d 20  32 30 30 30 0d 21 7a 0e  |b%!12 = 2000.!z.|
00004e50  20 62 25 21 31 36 20 3d  20 30 0d 21 84 2e 20 c8  | b%!16 = 0.!.. .|
00004e60  99 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  |."Wimp_ForceRedr|
00004e70  61 77 22 2c 6d 61 69 6e  25 2c 30 2c 2d 32 30 30  |aw",main%,0,-200|
00004e80  30 2c 32 30 30 30 2c 30  0d 21 8e 09 20 42 25 3d  |0,2000,0.!.. B%=|
00004e90  30 0d 21 98 0f 20 43 25  3d 20 74 61 62 6c 65 25  |0.!.. C%= table%|
00004ea0  0d 21 a2 15 20 44 25 20  3d 20 6d 75 6c 74 69 70  |.!.. D% = multip|
00004eb0  6c 69 65 72 25 0d 21 ac  0b d6 20 73 63 61 6c 65  |lier%.!... scale|
00004ec0  0d 21 b6 05 cd 0d 21 c0  05 e1 0d 21 ca 04 0d 21  |.!....!....!...!|
00004ed0  d4 04 0d 21 de 1c dd 20  f2 67 65 74 5f 77 69 6e  |...!... .get_win|
00004ee0  64 6f 77 5f 70 61 72 61  6d 65 74 65 72 73 0d 21  |dow_parameters.!|
00004ef0  e8 13 77 62 78 25 20 3d  20 62 6c 6f 63 6b 25 21  |..wbx% = block%!|
00004f00  34 0d 21 f2 13 77 62 79  25 20 3d 20 62 6c 6f 63  |4.!..wby% = bloc|
00004f10  6b 25 21 38 0d 21 fc 14  77 74 78 25 20 3d 20 62  |k%!8.!..wtx% = b|
00004f20  6c 6f 63 6b 25 21 31 32  0d 22 06 14 77 74 79 25  |lock%!12."..wty%|
00004f30  20 3d 20 62 6c 6f 63 6b  25 21 31 36 0d 22 10 14  | = block%!16."..|
00004f40  78 73 63 25 20 3d 20 62  6c 6f 63 6b 25 21 32 30  |xsc% = block%!20|
00004f50  0d 22 1a 14 79 73 63 25  20 3d 20 62 6c 6f 63 6b  |."..ysc% = block|
00004f60  25 21 32 34 0d 22 24 14  67 62 78 25 20 3d 20 62  |%!24."$.gbx% = b|
00004f70  6c 6f 63 6b 25 21 32 38  0d 22 2e 14 67 62 79 25  |lock%!28."..gby%|
00004f80  20 3d 20 62 6c 6f 63 6b  25 21 33 32 0d 22 38 14  | = block%!32."8.|
00004f90  67 74 78 25 20 3d 20 62  6c 6f 63 6b 25 21 33 36  |gtx% = block%!36|
00004fa0  0d 22 42 14 67 74 79 25  20 3d 20 62 6c 6f 63 6b  |."B.gty% = block|
00004fb0  25 21 34 30 0d 22 4c 15  68 70 25 20 3d 20 77 74  |%!40."L.hp% = wt|
00004fc0  78 25 20 2d 20 77 62 78  25 0d 22 56 14 76 70 25  |x% - wbx%."V.vp%|
00004fd0  20 3d 20 77 74 79 25 20  2d 77 62 79 25 0d 22 60  | = wty% -wby%."`|
00004fe0  1b 65 62 78 25 20 3d 20  78 73 63 25 20 2b 20 67  |.ebx% = xsc% + g|
00004ff0  62 78 25 2d 77 62 78 25  0d 22 6a 19 65 74 78 25  |bx%-wbx%."j.etx%|
00005000  20 3d 20 78 73 63 25 2b  67 74 78 25 2d 77 62 78  | = xsc%+gtx%-wbx|
00005010  25 0d 22 74 19 65 74 79  25 3d 79 73 63 25 20 2b  |%."t.ety%=ysc% +|
00005020  20 67 74 79 25 2d 77 74  79 25 0d 22 7e 19 65 62  | gty%-wty%."~.eb|
00005030  79 25 20 3d 20 79 73 63  25 2d 67 62 79 25 2d 77  |y% = ysc%-gby%-w|
00005040  74 79 25 0d 22 88 26 ef  20 32 36 2c 35 2c 32 34  |ty%.".&. 26,5,24|
00005050  2c 67 62 78 25 3b 67 62  79 25 3b 67 74 78 25 2d  |,gbx%;gby%;gtx%-|
00005060  32 3b 67 74 79 25 2d 34  3b 0d 22 92 1c c8 91 20  |2;gty%-4;.".... |
00005070  77 62 78 25 20 2d 20 78  73 63 25 2c 77 74 79 25  |wbx% - xsc%,wty%|
00005080  2d 79 73 63 25 0d 22 9c  05 e1 0d 22 a6 04 0d 22  |-ysc%."...."..."|
00005090  b0 04 0d 22 ba 04 0d 22  c4 04 0d 22 ce 04 0d 22  |..."..."..."..."|
000050a0  d8 04 0d 22 e2 04 0d 22  ec 04 0d 22 f6 15 dd 20  |..."..."..."... |
000050b0  f2 63 61 6c 63 75 6c 61  74 65 5f 63 61 72 74 0d  |.calculate_cart.|
000050c0  23 00 15 ea 20 63 6f 75  6e 74 25 2c 20 63 6f 75  |#... count%, cou|
000050d0  6e 74 31 25 0d 23 0a 0d  f2 67 6c 61 73 73 28 b9  |nt1%.#...glass(.|
000050e0  29 0d 23 14 0e 63 6f 75  6e 74 25 20 3d 20 30 0d  |).#..count% = 0.|
000050f0  23 1e 13 e3 20 67 72 61  70 68 25 3d 20 31 20 b8  |#... graph%= 1 .|
00005100  20 36 0d 23 28 28 20 20  20 e7 20 63 61 72 74 5f  | 6.#((   . cart_|
00005110  70 6c 6f 74 25 28 67 72  61 70 68 25 29 20 8c 20  |plot%(graph%) . |
00005120  63 6f 75 6e 74 25 20 2b  3d 31 0d 23 32 05 ed 0d  |count% +=1.#2...|
00005130  23 3c 13 63 6f 75 6e 74  31 25 3d 20 63 6f 75 6e  |#<.count1%= coun|
00005140  74 25 0d 23 46 18 77 69  6e 64 6f 77 25 20 3d 20  |t%.#F.window% = |
00005150  63 61 72 74 65 73 69 61  6e 25 0d 23 50 16 f2 65  |cartesian%.#P..e|
00005160  78 74 72 61 63 74 5f 63  61 72 74 5f 66 75 6e 63  |xtract_cart_func|
00005170  0d 23 5a 16 f2 63 6f 6e  76 65 72 74 5f 66 75 6e  |.#Z..convert_fun|
00005180  63 74 69 6f 6e 73 0d 23  64 2c f2 72 65 74 75 72  |ctions.#d,.retur|
00005190  6e 5f 61 78 65 73 5f 76  61 6c 75 65 73 28 6d 69  |n_axes_values(mi|
000051a0  6e 78 2c 6d 61 78 78 2c  6d 69 6e 79 2c 6d 61 78  |nx,maxx,miny,max|
000051b0  79 29 0d 23 6e 19 e7 20  20 61 75 74 6f 5f 79 5f  |y).#n..  auto_y_|
000051c0  63 61 72 74 61 78 65 73  25 20 8c 0d 23 78 16 20  |cartaxes% ..#x. |
000051d0  20 63 6f 75 6e 74 25 20  3d 63 6f 75 6e 74 25 2a  | count% =count%*|
000051e0  32 0d 23 82 17 20 20 63  6f 75 6e 74 31 25 3d 63  |2.#..  count1%=c|
000051f0  6f 75 6e 74 31 25 2a 32  0d 23 8c 2a 20 20 f2 72  |ount1%*2.#.*  .r|
00005200  65 74 75 72 6e 5f 79 5f  72 61 6e 67 65 28 6d 69  |eturn_y_range(mi|
00005210  6e 78 2c 6d 61 78 78 2c  6d 69 6e 79 2c 6d 61 78  |nx,maxx,miny,max|
00005220  79 29 0d 23 96 05 cd 0d  23 a0 20 69 6e 63 72 65  |y).#....#. incre|
00005230  6d 65 6e 74 20 3d 20 28  6d 61 78 78 2d 6d 69 6e  |ment = (maxx-min|
00005240  78 29 2f 31 32 38 30 0d  23 aa 20 79 66 61 63 74  |x)/1280.#. yfact|
00005250  6f 72 20 3d 20 31 30 32  34 2f 28 6d 61 78 79 20  |or = 1024/(maxy |
00005260  2d 20 6d 69 6e 79 29 0d  23 b4 29 79 5f 73 68 69  |- miny).#.)y_shi|
00005270  66 74 25 20 3d 20 35 31  32 20 2b 79 66 61 63 74  |ft% = 512 +yfact|
00005280  6f 72 2a 28 6d 69 6e 79  2b 6d 61 78 79 29 2f 32  |or*(miny+maxy)/2|
00005290  0d 23 be 14 e3 20 67 72  61 70 68 25 20 3d 20 31  |.#... graph% = 1|
000052a0  20 b8 20 36 0d 23 c8 2c  62 61 73 65 25 20 3d 20  | . 6.#.,base% = |
000052b0  70 6c 6f 74 5f 76 61 6c  75 65 73 25 20 2b 28 67  |plot_values% +(g|
000052c0  72 61 70 68 25 20 2d 31  29 2a 31 32 38 30 2a 34  |raph% -1)*1280*4|
000052d0  0d 23 d2 1a e7 20 63 61  72 74 5f 70 6c 6f 74 25  |.#... cart_plot%|
000052e0  28 67 72 61 70 68 25 29  20 8c 0d 23 dc 35 c8 99  |(graph%) ..#.5..|
000052f0  22 48 6f 75 72 67 6c 61  73 73 5f 50 65 72 63 65  |"Hourglass_Perce|
00005300  6e 74 61 67 65 22 2c 31  30 30 2d 28 63 6f 75 6e  |ntage",100-(coun|
00005310  74 31 25 2f 63 6f 75 6e  74 25 29 2a 31 30 30 0d  |t1%/count%)*100.|
00005320  23 e6 10 20 63 6f 75 6e  74 31 25 20 2d 3d 31 0d  |#.. count1% -=1.|
00005330  23 f0 13 e3 20 58 25 20  3d 20 30 20 b8 20 31 32  |#... X% = 0 . 12|
00005340  38 30 0d 23 fa 1a 20 20  58 3d 20 6d 69 6e 78 2b  |80.#..  X= minx+|
00005350  69 6e 63 72 65 6d 65 6e  74 2a 58 25 0d 24 04 09  |increment*X%.$..|
00005360  20 20 78 3d 58 0d 24 0e  0d 20 20 6f 6b 25 20 3d  |  x=X.$..  ok% =|
00005370  20 b9 0d 24 18 09 20 20  ea 20 85 0d 24 22 15 20  | ..$..  . ..$". |
00005380  20 ee 20 85 20 ea 20 6f  6b 25 20 3d 20 a3 20 3a  | . . . ok% = . :|
00005390  0d 24 2c 0d 20 20 e7 20  6f 6b 25 20 8c 0d 24 36  |.$,.  . ok% ..$6|
000053a0  41 20 20 20 20 62 61 73  65 25 21 28 58 25 2a 34  |A    base%!(X%*4|
000053b0  29 20 3d 20 79 66 61 63  74 6f 72 2a a0 63 61 72  |) = yfactor*.car|
000053c0  74 5f 66 75 6e 63 74 69  6f 6e 73 24 28 67 72 61  |t_functions$(gra|
000053d0  70 68 25 29 20 2d 79 5f  73 68 69 66 74 25 0d 24  |ph%) -y_shift%.$|
000053e0  40 07 20 20 cc 0d 24 4a  1b 20 20 20 20 62 61 73  |@.  ..$J.    bas|
000053f0  65 25 21 28 58 25 2a 34  29 3d 20 2d 62 69 67 25  |e%!(X%*4)= -big%|
00005400  0d 24 54 07 20 20 cd 0d  24 5e 09 20 20 f7 20 85  |.$T.  ..$^.  . .|
00005410  0d 24 68 05 ed 0d 24 72  05 cd 0d 24 7c 05 ed 0d  |.$h...$r...$|...|
00005420  24 86 43 f2 63 61 6c 63  5f 63 61 72 74 5f 61 78  |$.C.calc_cart_ax|
00005430  65 73 28 6d 69 6e 78 2c  6d 61 78 78 2c 6d 69 6e  |es(minx,maxx,min|
00005440  79 2c 6d 61 78 79 2c 79  66 61 63 74 6f 72 2c 79  |y,maxy,yfactor,y|
00005450  5f 73 68 69 66 74 25 2c  69 6e 63 72 65 6d 65 6e  |_shift%,incremen|
00005460  74 29 0d 24 90 0d f2 67  6c 61 73 73 28 a3 29 0d  |t).$...glass(.).|
00005470  24 9a 2e c8 99 20 22 57  69 6d 70 5f 46 6f 72 63  |$.... "Wimp_Forc|
00005480  65 52 65 64 72 61 77 22  2c 6d 61 69 6e 25 2c 30  |eRedraw",main%,0|
00005490  2c 2d 31 32 38 30 2c 31  32 38 30 2c 30 0d 24 a4  |,-1280,1280,0.$.|
000054a0  05 e1 0d 24 ae 04 0d 24  b8 2e dd 20 f2 72 65 74  |...$...$... .ret|
000054b0  75 72 6e 5f 79 5f 72 61  6e 67 65 28 6d 69 6e 78  |urn_y_range(minx|
000054c0  2c 6d 61 78 78 2c f8 20  6d 69 6e 79 2c f8 20 6d  |,maxx,. miny,. m|
000054d0  61 78 79 29 0d 24 c2 20  69 6e 63 72 65 6d 65 6e  |axy).$. incremen|
000054e0  74 20 3d 20 28 6d 61 78  78 2d 6d 69 6e 78 29 2f  |t = (maxx-minx)/|
000054f0  31 32 38 30 0d 24 cc 18  65 6e 74 65 72 65 64 5f  |1280.$..entered_|
00005500  6d 61 78 79 3d 20 2d 31  30 45 33 30 0d 24 d6 18  |maxy= -10E30.$..|
00005510  65 6e 74 65 72 65 64 5f  6d 69 6e 79 3d 20 20 31  |entered_miny=  1|
00005520  30 45 33 30 0d 24 e0 14  e3 20 67 72 61 70 68 25  |0E30.$... graph%|
00005530  20 3d 20 31 20 b8 20 36  0d 24 ea 1a e7 20 63 61  | = 1 . 6.$... ca|
00005540  72 74 5f 70 6c 6f 74 25  28 67 72 61 70 68 25 29  |rt_plot%(graph%)|
00005550  20 8c 0d 24 f4 37 20 20  c8 99 22 48 6f 75 72 67  | ..$.7  .."Hourg|
00005560  6c 61 73 73 5f 50 65 72  63 65 6e 74 61 67 65 22  |lass_Percentage"|
00005570  2c 31 30 30 2d 28 63 6f  75 6e 74 31 25 2f 63 6f  |,100-(count1%/co|
00005580  75 6e 74 25 29 2a 31 30  30 0d 24 fe 13 e3 20 58  |unt%)*100.$... X|
00005590  25 20 3d 20 30 20 b8 20  31 32 38 30 0d 25 08 1a  |% = 0 . 1280.%..|
000055a0  20 20 58 3d 20 6d 69 6e  78 2b 69 6e 63 72 65 6d  |  X= minx+increm|
000055b0  65 6e 74 2a 58 25 0d 25  12 09 20 20 78 3d 58 0d  |ent*X%.%..  x=X.|
000055c0  25 1c 0d 20 20 6f 6b 25  20 3d 20 b9 0d 25 26 09  |%..  ok% = ..%&.|
000055d0  20 20 ea 20 85 0d 25 30  13 20 20 ee 20 85 20 ea  |  . ..%0.  . . .|
000055e0  20 6f 6b 25 20 3d 20 a3  0d 25 3a 0d 20 20 e7 20  | ok% = ..%:.  . |
000055f0  6f 6b 25 20 8c 0d 25 44  28 20 20 20 20 76 61 6c  |ok% ..%D(    val|
00005600  75 65 20 3d 20 a0 63 61  72 74 5f 66 75 6e 63 74  |ue = .cart_funct|
00005610  69 6f 6e 73 24 28 67 72  61 70 68 25 29 0d 25 4e  |ions$(graph%).%N|
00005620  33 20 20 e7 20 76 61 6c  75 65 20 3c 20 65 6e 74  |3  . value < ent|
00005630  65 72 65 64 5f 6d 69 6e  79 20 8c 20 65 6e 74 65  |ered_miny . ente|
00005640  72 65 64 5f 6d 69 6e 79  20 3d 20 76 61 6c 75 65  |red_miny = value|
00005650  0d 25 58 33 20 20 e7 20  76 61 6c 75 65 20 3e 20  |.%X3  . value > |
00005660  65 6e 74 65 72 65 64 5f  6d 61 78 79 20 8c 20 65  |entered_maxy . e|
00005670  6e 74 65 72 65 64 5f 6d  61 78 79 20 3d 20 76 61  |ntered_maxy = va|
00005680  6c 75 65 0d 25 62 07 20  20 cd 0d 25 6c 09 20 20  |lue.%b.  ..%l.  |
00005690  f7 20 85 0d 25 76 05 ed  0d 25 80 10 20 20 63 6f  |. ..%v...%..  co|
000056a0  75 6e 74 31 25 2d 3d 31  0d 25 8a 05 cd 0d 25 94  |unt1%-=1.%....%.|
000056b0  05 ed 0d 25 9e 09 41 25  3d 40 25 0d 25 a8 10 40  |...%..A%=@%.%..@|
000056c0  25 3d 26 30 31 30 30 30  33 30 38 0d 25 b2 4d 63  |%=&01000308.%.Mc|
000056d0  61 72 74 5f 6d 69 6e 5f  79 5f 69 63 6f 6e 25 3d  |art_min_y_icon%=|
000056e0  a4 63 68 61 6e 67 65 5f  74 65 78 74 28 63 61 72  |.change_text(car|
000056f0  74 61 78 65 73 25 2c 63  61 72 74 5f 6d 69 6e 5f  |taxes%,cart_min_|
00005700  79 5f 69 63 6f 6e 25 2c  c3 28 65 6e 74 65 72 65  |y_icon%,.(entere|
00005710  64 5f 6d 69 6e 79 29 29  0d 25 bc 4d 63 61 72 74  |d_miny)).%.Mcart|
00005720  5f 6d 61 78 5f 79 5f 69  63 6f 6e 25 3d a4 63 68  |_max_y_icon%=.ch|
00005730  61 6e 67 65 5f 74 65 78  74 28 63 61 72 74 61 78  |ange_text(cartax|
00005740  65 73 25 2c 63 61 72 74  5f 6d 61 78 5f 79 5f 69  |es%,cart_max_y_i|
00005750  63 6f 6e 25 2c c3 28 65  6e 74 65 72 65 64 5f 6d  |con%,.(entered_m|
00005760  61 78 79 29 29 0d 25 c6  32 c8 99 20 22 57 69 6d  |axy)).%.2.. "Wim|
00005770  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 63  |p_ForceRedraw",c|
00005780  61 72 74 61 78 65 73 25  2c 30 2c 2d 31 32 38 30  |artaxes%,0,-1280|
00005790  2c 31 32 38 30 2c 30 0d  25 d0 09 40 25 3d 41 25  |,1280,0.%..@%=A%|
000057a0  0d 25 da 25 f2 61 64 6a  75 73 74 5f 61 78 65 73  |.%.%.adjust_axes|
000057b0  28 6d 61 78 78 2c 6d 69  6e 78 2c 6d 61 78 79 2c  |(maxx,minx,maxy,|
000057c0  6d 69 6e 79 29 0d 25 e4  05 e1 0d 25 ee 04 0d 25  |miny).%....%...%|
000057d0  f8 04 0d 26 02 04 0d 26  0c 45 dd 20 f2 63 61 6c  |...&...&.E. .cal|
000057e0  63 5f 63 61 72 74 5f 61  78 65 73 28 6d 69 6e 78  |c_cart_axes(minx|
000057f0  2c 6d 61 78 78 2c 6d 69  6e 79 2c 6d 61 78 79 2c  |,maxx,miny,maxy,|
00005800  79 66 61 63 74 6f 72 2c  79 5f 73 68 69 66 74 25  |yfactor,y_shift%|
00005810  2c 69 6e 63 72 65 6d 65  6e 74 29 0d 26 16 09 41  |,increment).&..A|
00005820  25 3d 40 25 0d 26 20 10  40 25 3d 26 30 31 30 30  |%=@%.& .@%=&0100|
00005830  30 31 30 38 0d 26 2a 1e  e7 20 30 20 3e 3d 20 6d  |0108.&*.. 0 >= m|
00005840  69 6e 79 20 80 20 30 20  3c 3d 20 6d 61 78 79 20  |iny . 0 <= maxy |
00005850  20 8c 0d 26 34 15 20 20  78 5f 61 78 65 73 5f 6c  | ..&4.  x_axes_l|
00005860  65 76 65 6c 3d 20 30 0d  26 3e 2a 20 20 78 5f 61  |evel= 0.&>*  x_a|
00005870  78 65 73 5f 6c 65 76 65  6c 25 20 3d 20 30 20 2a  |xes_level% = 0 *|
00005880  20 79 66 61 63 74 6f 72  2d 79 5f 73 68 69 66 74  | yfactor-y_shift|
00005890  25 0d 26 48 07 20 20 cc  0d 26 52 27 20 20 78 5f  |%.&H.  ..&R'  x_|
000058a0  61 78 65 73 5f 6c 65 76  65 6c 3d 20 bb 28 c3 28  |axes_level= .(.(|
000058b0  28 6d 61 78 79 2b 6d 69  6e 79 29 29 29 2f 32 0d  |(maxy+miny)))/2.|
000058c0  26 5c 36 20 20 78 5f 61  78 65 73 5f 6c 65 76 65  |&\6  x_axes_leve|
000058d0  6c 25 20 3d 20 78 5f 61  78 65 73 5f 6c 65 76 65  |l% = x_axes_leve|
000058e0  6c 20 20 2a 20 79 66 61  63 74 6f 72 2d 79 5f 73  |l  * yfactor-y_s|
000058f0  68 69 66 74 25 0d 26 66  05 cd 0d 26 70 1e e7 20  |hift%.&f...&p.. |
00005900  30 20 3e 3d 20 6d 69 6e  78 20 80 20 30 20 3c 3d  |0 >= minx . 0 <=|
00005910  20 6d 61 78 78 20 20 8c  0d 26 7a 2e 20 20 79 5f  | maxx  ..&z.  y_|
00005920  61 78 65 73 5f 6c 65 76  65 6c 25 20 3d 20 31 32  |axes_level% = 12|
00005930  38 30 2f 28 6d 61 78 78  2d 6d 69 6e 78 29 2a 28  |80/(maxx-minx)*(|
00005940  2d 6d 69 6e 78 29 0d 26  84 14 20 20 79 5f 61 78  |-minx).&..  y_ax|
00005950  65 73 5f 6c 65 76 65 6c  3d 30 0d 26 8e 07 20 20  |es_level=0.&..  |
00005960  cc 0d 26 98 27 20 20 79  5f 61 78 65 73 5f 6c 65  |..&.'  y_axes_le|
00005970  76 65 6c 3d 20 bb 28 c3  28 28 6d 61 78 78 2b 6d  |vel= .(.((maxx+m|
00005980  69 6e 78 29 29 29 2f 32  0d 26 a2 3a 20 20 79 5f  |inx)))/2.&.:  y_|
00005990  61 78 65 73 5f 6c 65 76  65 6c 25 20 3d 20 31 32  |axes_level% = 12|
000059a0  38 30 2f 28 6d 61 78 78  2d 6d 69 6e 78 29 2a 28  |80/(maxx-minx)*(|
000059b0  79 5f 61 78 65 73 5f 6c  65 76 65 6c 2d 6d 69 6e  |y_axes_level-min|
000059c0  78 29 0d 26 ac 05 cd 0d  26 b6 09 40 25 3d 41 25  |x).&....&..@%=A%|
000059d0  0d 26 c0 05 e1 0d 26 ca  04 0d 26 d4 04 0d 26 de  |.&....&...&...&.|
000059e0  15 dd 20 f2 64 72 61 77  5f 63 61 72 74 5f 61 78  |.. .draw_cart_ax|
000059f0  65 73 0d 26 e8 0c ea 20  79 25 2c 79 31 25 0d 26  |es.&... y%,y1%.&|
00005a00  f2 14 e7 20 73 68 6f 77  5f 61 78 65 73 25 20 20  |... show_axes%  |
00005a10  20 8c 0d 26 fc 17 79 25  3d 79 5f 61 78 65 73 5f  | ..&..y%=y_axes_|
00005a20  6c 65 76 65 6c 25 2a 73  66 0d 27 06 1d 79 31 25  |level%*sf.'..y1%|
00005a30  3d 28 79 5f 61 78 65 73  5f 6c 65 76 65 6c 25 2d  |=(y_axes_level%-|
00005a40  32 30 29 2a 73 66 0d 27  10 12 e7 20 70 61 72 61  |20)*sf.'... para|
00005a50  5f 70 6c 6f 74 25 20 8c  0d 27 1a 2d 20 20 6c 6d  |_plot% ..'.-  lm|
00005a60  78 25 3d 20 32 31 30 2a  73 66 3a 6c 6d 79 25 3d  |x%= 210*sf:lmy%=|
00005a70  28 78 5f 61 78 65 73 5f  6c 65 76 65 6c 25 2d 32  |(x_axes_level%-2|
00005a80  30 29 2a 73 66 0d 27 24  30 20 20 72 6d 78 25 3d  |0)*sf.'$0  rmx%=|
00005a90  20 31 30 36 38 2a 73 66  3a 20 72 6d 79 25 20 3d  | 1068*sf: rmy% =|
00005aa0  28 78 5f 61 78 65 73 5f  6c 65 76 65 6c 25 2d 32  |(x_axes_level%-2|
00005ab0  30 29 2a 73 66 0d 27 2e  05 cc 0d 27 38 2d 20 20  |0)*sf.'....'8-  |
00005ac0  6c 6d 78 25 3d 20 31 30  34 2a 73 66 3a 6c 6d 79  |lmx%= 104*sf:lmy|
00005ad0  25 3d 28 78 5f 61 78 65  73 5f 6c 65 76 65 6c 25  |%=(x_axes_level%|
00005ae0  2d 32 30 29 2a 73 66 0d  27 42 30 20 20 72 6d 78  |-20)*sf.'B0  rmx|
00005af0  25 3d 20 31 31 37 34 2a  73 66 3a 20 72 6d 79 25  |%= 1174*sf: rmy%|
00005b00  20 3d 28 78 5f 61 78 65  73 5f 6c 65 76 65 6c 25  | =(x_axes_level%|
00005b10  2d 32 30 29 2a 73 66 0d  27 4c 05 cd 0d 27 56 08  |-20)*sf.'L...'V.|
00005b20  e6 30 2c 37 0d 27 60 18  ec 20 30 2c 78 5f 61 78  |.0,7.'`.. 0,x_ax|
00005b30  65 73 5f 6c 65 76 65 6c  25 2a 73 66 0d 27 6a 1e  |es_level%*sf.'j.|
00005b40  df 20 31 32 38 30 2a 73  66 2c 78 5f 61 78 65 73  |. 1280*sf,x_axes|
00005b50  5f 6c 65 76 65 6c 25 2a  73 66 0d 27 74 0f ec 20  |_level%*sf.'t.. |
00005b60  6c 6d 78 25 2c 6c 6d 79  25 0d 27 7e 0e f0 31 2c  |lmx%,lmy%.'~..1,|
00005b70  30 2c 34 30 2a 73 66 0d  27 88 0f ec 20 72 6d 78  |0,40*sf.'... rmx|
00005b80  25 2c 72 6d 79 25 0d 27  92 0e f0 31 2c 30 2c 34  |%,rmy%.'...1,0,4|
00005b90  30 2a 73 66 0d 27 9c 21  ec 20 31 31 30 30 2a 73  |0*sf.'.!. 1100*s|
00005ba0  66 2c 78 5f 61 78 65 73  5f 6c 65 76 65 6c 25 2a  |f,x_axes_level%*|
00005bb0  73 66 2d 32 30 0d 27 a6  19 f1 22 79 3d 22 3b c3  |sf-20.'..."y=";.|
00005bc0  28 78 5f 61 78 65 73 5f  6c 65 76 65 6c 29 0d 27  |(x_axes_level).'|
00005bd0  b0 0a ec 20 79 25 2c 30  0d 27 ba 11 df 20 79 25  |... y%,0.'... y%|
00005be0  2c 2d 31 30 35 30 2a 73  66 0d 27 c4 10 ec 20 79  |,-1050*sf.'... y|
00005bf0  31 25 2c 2d 38 34 2a 73  66 0d 27 ce 0f f0 20 31  |1%,-84*sf.'... 1|
00005c00  2c 34 30 2a 73 66 2c 30  0d 27 d8 11 ec 20 79 31  |,40*sf,0.'... y1|
00005c10  25 2c 2d 39 33 38 2a 73  66 0d 27 e2 0f f0 20 31  |%,-938*sf.'... 1|
00005c20  2c 34 30 2a 73 66 2c 30  0d 27 ec 0f ec 20 79 25  |,40*sf,0.'... y%|
00005c30  2b 31 30 2c 2d 35 30 0d  27 f6 1a f1 20 22 78 3d  |+10,-50.'... "x=|
00005c40  22 3b c3 28 79 5f 61 78  65 73 5f 6c 65 76 65 6c  |";.(y_axes_level|
00005c50  29 0d 28 00 05 cd 0d 28  0a 05 e1 0d 28 14 05 20  |).(....(....(.. |
00005c60  0d 28 1e 04 0d 28 28 04  0d 28 32 12 dd 20 f2 63  |.(...((..(2.. .c|
00005c70  6f 6f 72 64 69 6e 61 74  65 73 0d 28 3c 2b 73 68  |oordinates.(<+sh|
00005c80  6f 77 5f 63 6f 6f 72 64  69 6e 61 74 65 73 25 20  |ow_coordinates% |
00005c90  3d 20 ac 20 73 68 6f 77  5f 63 6f 6f 72 64 69 6e  |= . show_coordin|
00005ca0  61 74 65 73 25 0d 28 46  19 e7 20 73 68 6f 77 5f  |ates%.(F.. show_|
00005cb0  63 6f 6f 72 64 69 6e 61  74 65 73 25 20 8c 0d 28  |coordinates% ..(|
00005cc0  50 18 f2 6f 70 65 6e 5f  77 69 6e 64 6f 77 28 63  |P..open_window(c|
00005cd0  6f 6f 72 64 25 29 0d 28  5a 17 f2 74 69 63 6b 28  |oord%).(Z..tick(|
00005ce0  6d 61 69 6e 5f 6d 65 6e  75 25 2c 32 29 0d 28 64  |main_menu%,2).(d|
00005cf0  05 cc 0d 28 6e 12 f2 63  6c 6f 73 65 28 63 6f 6f  |...(n..close(coo|
00005d00  72 64 25 29 0d 28 78 1a  f2 6e 6f 5f 74 69 63 6b  |rd%).(x..no_tick|
00005d10  28 6d 61 69 6e 5f 6d 65  6e 75 25 2c 32 29 0d 28  |(main_menu%,2).(|
00005d20  82 05 cd 0d 28 8c 05 e1  0d 28 96 04 0d 28 a0 04  |....(....(...(..|
00005d30  0d 28 aa 16 dd 20 f2 63  68 65 63 6b 5f 63 61 72  |.(... .check_car|
00005d40  74 5f 61 78 65 73 0d 28  b4 2c f2 72 65 74 75 72  |t_axes.(.,.retur|
00005d50  6e 5f 61 78 65 73 5f 76  61 6c 75 65 73 28 6d 69  |n_axes_values(mi|
00005d60  6e 78 2c 6d 61 78 78 2c  6d 69 6e 79 2c 6d 61 78  |nx,maxx,miny,max|
00005d70  79 29 0d 28 be 09 41 25  3d 40 25 0d 28 c8 10 40  |y).(..A%=@%.(..@|
00005d80  25 3d 26 30 31 30 30 30  33 30 38 0d 28 d2 14 e7  |%=&01000308.(...|
00005d90  20 6d 69 6e 78 20 3e 3d  20 6d 61 78 78 20 8c 0d  | minx >= maxx ..|
00005da0  28 dc 12 20 20 c8 94 20  6d 69 6e 78 2c 6d 61 78  |(..  .. minx,max|
00005db0  78 0d 28 e6 1f 20 20 e7  20 6d 69 6e 78 3d 6d 61  |x.(..  . minx=ma|
00005dc0  78 78 20 8c 20 6d 61 78  78 3d 6d 61 78 78 2b 31  |xx . maxx=maxx+1|
00005dd0  0d 28 f0 48 20 20 63 61  72 74 5f 6d 61 78 5f 78  |.(.H  cart_max_x|
00005de0  5f 69 63 6f 6e 25 20 3d  a4 63 68 61 6e 67 65 5f  |_icon% =.change_|
00005df0  74 65 78 74 28 63 61 72  74 61 78 65 73 25 2c 63  |text(cartaxes%,c|
00005e00  61 72 74 5f 6d 61 78 5f  78 5f 69 63 6f 6e 25 2c  |art_max_x_icon%,|
00005e10  c3 28 6d 61 78 78 29 29  0d 28 fa 48 20 20 63 61  |.(maxx)).(.H  ca|
00005e20  72 74 5f 6d 69 6e 5f 78  5f 69 63 6f 6e 25 20 3d  |rt_min_x_icon% =|
00005e30  a4 63 68 61 6e 67 65 5f  74 65 78 74 28 63 61 72  |.change_text(car|
00005e40  74 61 78 65 73 25 2c 63  61 72 74 5f 6d 69 6e 5f  |taxes%,cart_min_|
00005e50  78 5f 69 63 6f 6e 25 2c  c3 28 6d 69 6e 78 29 29  |x_icon%,.(minx))|
00005e60  0d 29 04 34 20 20 c8 99  20 22 57 69 6d 70 5f 46  |.).4  .. "Wimp_F|
00005e70  6f 72 63 65 52 65 64 72  61 77 22 2c 63 61 72 74  |orceRedraw",cart|
00005e80  61 78 65 73 25 2c 30 2c  2d 31 32 38 30 2c 31 32  |axes%,0,-1280,12|
00005e90  38 30 2c 30 0d 29 0e 46  20 20 f2 65 72 72 6f 72  |80,0.).F  .error|
00005ea0  5f 6d 65 73 73 61 67 65  28 22 58 20 6d 69 6e 20  |_message("X min |
00005eb0  6d 75 73 74 20 62 65 20  6c 65 73 73 20 74 68 61  |must be less tha|
00005ec0  6e 20 58 20 6d 61 78 2e  20 56 61 6c 75 65 73 20  |n X max. Values |
00005ed0  61 64 6a 75 73 74 65 64  22 29 0d 29 18 05 cc 0d  |adjusted").)....|
00005ee0  29 22 1a e7 20 6d 61 78  78 20 2d 20 6d 69 6e 78  |)".. maxx - minx|
00005ef0  20 3c 20 31 45 2d 36 20  8c 0d 29 2c 42 f2 65 72  | < 1E-6 ..),B.er|
00005f00  72 6f 72 5f 6d 65 73 73  61 67 65 28 22 54 68 65  |ror_message("The|
00005f10  72 65 20 6d 61 79 20 62  65 20 65 72 72 6f 72 73  |re may be errors|
00005f20  20 64 75 65 20 74 6f 20  74 68 65 20 73 6d 61 6c  | due to the smal|
00005f30  6c 20 58 20 72 61 6e 67  65 22 29 0d 29 36 05 cd  |l X range").)6..|
00005f40  0d 29 40 05 cd 0d 29 4a  29 e7 20 ac 20 61 75 74  |.)@...)J). . aut|
00005f50  6f 5f 79 5f 63 61 72 74  61 78 65 73 25 20 80 20  |o_y_cartaxes% . |
00005f60  6d 69 6e 79 20 3e 3d 20  6d 61 78 79 20 8c 0d 29  |miny >= maxy ..)|
00005f70  54 12 20 20 c8 94 20 6d  69 6e 79 2c 6d 61 78 79  |T.  .. miny,maxy|
00005f80  0d 29 5e 23 20 20 e7 20  6d 69 6e 79 20 3d 20 6d  |.)^#  . miny = m|
00005f90  61 78 79 20 8c 20 6d 61  78 79 20 3d 20 6d 61 78  |axy . maxy = max|
00005fa0  79 2b 31 0d 29 68 48 20  20 63 61 72 74 5f 6d 61  |y+1.)hH  cart_ma|
00005fb0  78 5f 79 5f 69 63 6f 6e  25 20 3d a4 63 68 61 6e  |x_y_icon% =.chan|
00005fc0  67 65 5f 74 65 78 74 28  63 61 72 74 61 78 65 73  |ge_text(cartaxes|
00005fd0  25 2c 63 61 72 74 5f 6d  61 78 5f 79 5f 69 63 6f  |%,cart_max_y_ico|
00005fe0  6e 25 2c c3 28 6d 61 78  79 29 29 0d 29 72 48 20  |n%,.(maxy)).)rH |
00005ff0  20 63 61 72 74 5f 6d 69  6e 5f 79 5f 69 63 6f 6e  | cart_min_y_icon|
00006000  25 20 3d a4 63 68 61 6e  67 65 5f 74 65 78 74 28  |% =.change_text(|
00006010  63 61 72 74 61 78 65 73  25 2c 63 61 72 74 5f 6d  |cartaxes%,cart_m|
00006020  69 6e 5f 79 5f 69 63 6f  6e 25 2c c3 28 6d 69 6e  |in_y_icon%,.(min|
00006030  79 29 29 0d 29 7c 34 20  20 c8 99 20 22 57 69 6d  |y)).)|4  .. "Wim|
00006040  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 63  |p_ForceRedraw",c|
00006050  61 72 74 61 78 65 73 25  2c 30 2c 2d 31 32 38 30  |artaxes%,0,-1280|
00006060  2c 31 32 38 30 2c 30 0d  29 86 46 20 20 f2 65 72  |,1280,0.).F  .er|
00006070  72 6f 72 5f 6d 65 73 73  61 67 65 28 22 59 20 6d  |ror_message("Y m|
00006080  69 6e 20 6d 75 73 74 20  62 65 20 6c 65 73 73 20  |in must be less |
00006090  74 68 61 6e 20 59 20 6d  61 78 2e 20 56 61 6c 75  |than Y max. Valu|
000060a0  65 73 20 61 64 6a 75 73  74 65 64 22 29 0d 29 90  |es adjusted").).|
000060b0  05 cd 0d 29 9a 05 e1 0d  29 a4 04 0d 29 ae 04 0d  |...)....)...)...|
000060c0  29 b8 10 dd 20 f2 61 78  65 73 5f 66 6c 61 67 0d  |)... .axes_flag.|
000060d0  29 c2 1d 73 68 6f 77 5f  61 78 65 73 25 20 3d 20  |)..show_axes% = |
000060e0  ac 20 73 68 6f 77 5f 61  78 65 73 25 0d 29 cc 12  |. show_axes%.)..|
000060f0  e7 20 73 68 6f 77 5f 61  78 65 73 25 20 8c 0d 29  |. show_axes% ..)|
00006100  d6 19 20 20 f2 74 69 63  6b 28 6d 61 69 6e 5f 6d  |..  .tick(main_m|
00006110  65 6e 75 25 2c 39 29 0d  29 e0 05 cc 0d 29 ea 1c  |enu%,9).)....)..|
00006120  20 20 f2 6e 6f 5f 74 69  63 6b 28 6d 61 69 6e 5f  |  .no_tick(main_|
00006130  6d 65 6e 75 25 2c 39 29  0d 29 f4 05 cd 0d 29 fe  |menu%,9).)....).|
00006140  2e c8 99 20 22 57 69 6d  70 5f 46 6f 72 63 65 52  |... "Wimp_ForceR|
00006150  65 64 72 61 77 22 2c 6d  61 69 6e 25 2c 30 2c 2d  |edraw",main%,0,-|
00006160  31 32 38 30 2c 31 32 38  30 2c 30 0d 2a 08 05 e1  |1280,1280,0.*...|
00006170  0d 2a 12 04 0d 2a 1c 0e  dd 20 f2 64 65 67 72 65  |.*...*... .degre|
00006180  65 73 0d 2a 26 19 64 65  67 72 65 65 73 25 20 3d  |es.*&.degrees% =|
00006190  20 ac 20 64 65 67 72 65  65 73 25 0d 2a 30 10 e7  | . degrees%.*0..|
000061a0  20 64 65 67 72 65 65 73  25 20 8c 0d 2a 3a 19 20  | degrees% ..*:. |
000061b0  20 f2 74 69 63 6b 28 6d  61 69 6e 5f 6d 65 6e 75  | .tick(main_menu|
000061c0  25 2c 38 29 0d 2a 44 05  cc 0d 2a 4e 1c 20 20 f2  |%,8).*D...*N.  .|
000061d0  6e 6f 5f 74 69 63 6b 28  6d 61 69 6e 5f 6d 65 6e  |no_tick(main_men|
000061e0  75 25 2c 38 29 0d 2a 58  05 cd 0d 2a 62 05 e1 0d  |u%,8).*X...*b...|
000061f0  2a 6c 04 0d 2a 76 04 0d  2a 80 04 0d 2a 8a 04 0d  |*l..*v..*...*...|
00006200  2a 94 18 dd 20 f2 63 6f  6e 76 65 72 74 5f 66 75  |*... .convert_fu|
00006210  6e 63 74 69 6f 6e 73 0d  2a 9e 12 e3 20 67 72 61  |nctions.*... gra|
00006220  25 20 3d 20 31 20 b8 20  36 0d 2a a8 18 e7 20 63  |% = 1 . 6.*... c|
00006230  61 72 74 5f 70 6c 6f 74  25 28 67 72 61 25 29 20  |art_plot%(gra%) |
00006240  8c 0d 2a b2 38 63 61 72  74 5f 66 75 6e 63 74 69  |..*.8cart_functi|
00006250  6f 6e 73 24 28 67 72 61  25 29 3d 20 a4 75 70 70  |ons$(gra%)= .upp|
00006260  65 72 28 63 61 72 74 5f  66 75 6e 63 74 69 6f 6e  |er(cart_function|
00006270  73 24 28 67 72 61 25 29  29 0d 2a bc 47 f2 63 6f  |s$(gra%)).*.G.co|
00006280  6e 76 65 72 74 28 63 61  72 74 5f 66 75 6e 63 74  |nvert(cart_funct|
00006290  69 6f 6e 73 24 28 67 72  61 25 29 2c 22 58 22 2c  |ions$(gra%),"X",|
000062a0  63 61 72 74 5f 66 75 6e  63 74 69 6f 6e 73 24 28  |cart_functions$(|
000062b0  67 72 61 25 29 2c 65 72  72 6f 72 5f 6e 6f 25 29  |gra%),error_no%)|
000062c0  0d 2a c6 16 e7 20 65 72  72 6f 72 5f 6e 6f 25 20  |.*... error_no% |
000062d0  3c 3e 20 30 20 8c 0d 2a  d0 28 20 20 f2 72 65 70  |<> 0 ..*.(  .rep|
000062e0  6f 72 74 5f 66 75 6e 63  5f 65 72 72 6f 72 28 67  |ort_func_error(g|
000062f0  72 61 25 2c 65 72 72 6f  72 5f 6e 6f 25 29 0d 2a  |ra%,error_no%).*|
00006300  da 18 20 20 63 61 72 74  5f 70 6c 6f 74 25 28 67  |..  cart_plot%(g|
00006310  72 61 25 29 3d a3 0d 2a  e4 24 20 20 f2 75 70 64  |ra%)=..*.$  .upd|
00006320  61 74 65 63 61 72 74 65  73 69 61 6e 28 63 61 72  |atecartesian(car|
00006330  74 65 73 69 61 6e 25 2c  39 29 0d 2a ee 05 cd 0d  |tesian%,9).*....|
00006340  2a f8 24 f2 65 78 74 5f  66 75 6e 63 28 63 61 72  |*.$.ext_func(car|
00006350  74 5f 66 75 6e 63 74 69  6f 6e 73 24 28 67 72 61  |t_functions$(gra|
00006360  25 29 29 0d 2b 02 05 cd  0d 2b 0c 05 ed 0d 2b 16  |%)).+....+....+.|
00006370  05 e1 0d 2b 20 04 0d 2b  2a 04 0d 2b 34 04 0d 2b  |...+ ..+*..+4..+|
00006380  3e 23 dd 20 a4 72 65 70  6c 61 63 65 28 6f 62 6a  |>#. .replace(obj|
00006390  65 63 74 24 2c 74 61 72  67 65 74 24 2c 62 79 24  |ect$,target$,by$|
000063a0  29 0d 2b 48 17 ea 20 73  74 61 72 74 25 2c 20 70  |).+H.. start%, p|
000063b0  6f 73 69 74 69 6f 6e 25  0d 2b 52 1e 73 74 61 72  |osition%.+R.star|
000063c0  74 25 20 3d 20 a7 6f 62  6a 65 63 74 24 2c 74 61  |t% = .object$,ta|
000063d0  72 67 65 74 24 29 0d 2b  5c 0d c8 95 20 73 74 61  |rget$).+\... sta|
000063e0  72 74 25 0d 2b 66 2e 70  6f 73 69 74 69 6f 6e 25  |rt%.+f.position%|
000063f0  20 3d 20 a9 28 6f 62 6a  65 63 74 24 29 2d a9 28  | = .(object$)-.(|
00006400  74 61 72 67 65 74 24 29  2d 73 74 61 72 74 25 2b  |target$)-start%+|
00006410  31 0d 2b 70 38 6f 62 6a  65 63 74 24 20 3d 20 c0  |1.+p8object$ = .|
00006420  6f 62 6a 65 63 74 24 2c  73 74 61 72 74 25 2d 31  |object$,start%-1|
00006430  29 2b 62 79 24 2b c2 6f  62 6a 65 63 74 24 2c 70  |)+by$+.object$,p|
00006440  6f 73 69 74 69 6f 6e 25  29 0d 2b 7a 2c 73 74 61  |osition%).+z,sta|
00006450  72 74 25 20 3d 20 a7 6f  62 6a 65 63 74 24 2c 74  |rt% = .object$,t|
00006460  61 72 67 65 74 24 2c 73  74 61 72 74 25 2b a9 28  |arget$,start%+.(|
00006470  62 79 24 29 29 0d 2b 84  05 ce 0d 2b 8e 0c 3d 6f  |by$)).+....+..=o|
00006480  62 6a 65 63 74 24 0d 2b  98 04 0d 2b a2 04 0d 2b  |bject$.+...+...+|
00006490  ac 04 0d 2b b6 2f dd 20  f2 61 64 6a 75 73 74 5f  |...+./. .adjust_|
000064a0  61 78 65 73 28 f8 20 6d  61 78 78 2c f8 20 6d 69  |axes(. maxx,. mi|
000064b0  6e 78 2c f8 20 6d 61 78  79 2c f8 20 6d 69 6e 79  |nx,. maxy,. miny|
000064c0  29 0d 2b c0 10 ea 20 61  76 65 72 61 67 65 2c 73  |).+... average,s|
000064d0  66 0d 2b ca 0b 73 66 3d  20 31 2e 32 0d 2b d4 2d  |f.+..sf= 1.2.+.-|
000064e0  61 76 65 72 61 67 65 20  3d 20 20 28 65 6e 74 65  |average =  (ente|
000064f0  72 65 64 5f 6d 61 78 78  20 2b 65 6e 74 65 72 65  |red_maxx +entere|
00006500  64 5f 6d 69 6e 78 29 2f  32 0d 2b de 2a 6d 61 78  |d_minx)/2.+.*max|
00006510  78 3d 28 65 6e 74 65 72  65 64 5f 6d 61 78 78 2d  |x=(entered_maxx-|
00006520  61 76 65 72 61 67 65 29  2a 73 66 2b 61 76 65 72  |average)*sf+aver|
00006530  61 67 65 0d 2b e8 2a 6d  69 6e 78 3d 28 65 6e 74  |age.+.*minx=(ent|
00006540  65 72 65 64 5f 6d 69 6e  78 2d 61 76 65 72 61 67  |ered_minx-averag|
00006550  65 29 2a 73 66 2b 61 76  65 72 61 67 65 0d 2b f2  |e)*sf+average.+.|
00006560  2d 61 76 65 72 61 67 65  20 3d 20 20 28 65 6e 74  |-average =  (ent|
00006570  65 72 65 64 5f 6d 61 78  79 20 2b 65 6e 74 65 72  |ered_maxy +enter|
00006580  65 64 5f 6d 69 6e 79 29  2f 32 0d 2b fc 2a 6d 61  |ed_miny)/2.+.*ma|
00006590  78 79 3d 28 65 6e 74 65  72 65 64 5f 6d 61 78 79  |xy=(entered_maxy|
000065a0  2d 61 76 65 72 61 67 65  29 2a 73 66 2b 61 76 65  |-average)*sf+ave|
000065b0  72 61 67 65 0d 2c 06 2a  6d 69 6e 79 3d 28 65 6e  |rage.,.*miny=(en|
000065c0  74 65 72 65 64 5f 6d 69  6e 79 2d 61 76 65 72 61  |tered_miny-avera|
000065d0  67 65 29 2a 73 66 2b 61  76 65 72 61 67 65 0d 2c  |ge)*sf+average.,|
000065e0  10 05 e1 0d 2c 1a 04 0d  2c 24 04 0d 2c 2e 0b dd  |....,...,$..,...|
000065f0  20 f2 7a 6f 6f 6d 0d 2c  38 08 ea 20 41 25 0d 2c  | .zoom.,8.. A%.,|
00006600  42 1f e7 20 ac 20 7a 6f  6f 6d 69 6e 67 25 20 80  |B.. . zooming% .|
00006610  20 63 61 72 74 5f 70 6c  6f 74 25 20 8c 0d 2c 4c  | cart_plot% ..,L|
00006620  10 7a 6f 6f 6d 69 6e 67  25 20 3d 20 b9 0d 2c 56  |.zooming% = ..,V|
00006630  08 ef 20 32 36 0d 2c 60  13 21 62 6c 6f 63 6b 25  |.. 26.,`.!block%|
00006640  20 3d 20 6d 61 69 6e 25  0d 2c 6a 23 c8 99 20 22  | = main%.,j#.. "|
00006650  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 49 6e  |Wimp_GetWindowIn|
00006660  66 6f 22 2c 2c 62 6c 6f  63 6b 25 0d 2c 74 2e ef  |fo",,block%.,t..|
00006670  32 34 2c 62 6c 6f 63 6b  25 21 34 3b 62 6c 6f 63  |24,block%!4;bloc|
00006680  6b 25 21 38 3b 62 6c 6f  63 6b 25 21 31 32 3b 62  |k%!8;block%!12;b|
00006690  6c 6f 63 6b 25 21 31 36  3b 0d 2c 7e 08 e6 34 2c  |lock%!16;.,~..4,|
000066a0  35 0d 2c 88 24 c8 99 20  22 57 69 6d 70 5f 47 65  |5.,.$.. "Wimp_Ge|
000066b0  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 62  |tPointerInfo",,b|
000066c0  6c 6f 63 6b 25 0d 2c 92  12 78 31 25 20 3d 20 20  |lock%.,..x1% =  |
000066d0  21 62 6c 6f 63 6b 25 0d  2c 9c 13 79 31 25 20 3d  |!block%.,..y1% =|
000066e0  20 20 62 6c 6f 63 6b 25  21 34 0d 2c a6 05 f5 0d  |  block%!4.,....|
000066f0  2c b0 0f 20 c8 97 20 6d  78 2c 6d 79 2c 62 0d 2c  |,.. .. mx,my,b.,|
00006700  ba 09 fd 20 62 3d 30 0d  2c c4 05 f5 0d 2c ce 0f  |... b=0.,....,..|
00006710  20 c8 97 20 6d 78 2c 6d  79 2c 62 0d 2c d8 0e 20  | .. mx,my,b.,.. |
00006720  78 32 25 20 3d 20 20 6d  78 0d 2c e2 0e 20 79 32  |x2% =  mx.,.. y2|
00006730  25 20 3d 20 20 6d 79 0d  2c ec 1f 20 c8 93 20 78  |% =  my.,.. .. x|
00006740  31 25 2c 79 31 25 2c 78  32 25 2d 78 31 25 2c 79  |1%,y1%,x2%-x1%,y|
00006750  32 25 2d 79 31 25 0d 2c  f6 07 20 c8 96 0d 2d 00  |2%-y1%.,.. ...-.|
00006760  1f 20 c8 93 20 78 31 25  2c 79 31 25 2c 78 32 25  |. .. x1%,y1%,x2%|
00006770  2d 78 31 25 2c 79 32 25  2d 79 31 25 0d 2d 0a 0f  |-x1%,y2%-y1%.-..|
00006780  20 c8 97 20 6d 78 2c 6d  79 2c 62 0d 2d 14 11 fd  | .. mx,my,b.-...|
00006790  20 62 20 3d 20 31 20 84  20 62 3d 34 0d 2d 1e 09  | b = 1 . b=4.-..|
000067a0  41 25 3d 40 25 0d 2d 28  10 40 25 3d 26 30 31 30  |A%=@%.-(.@%=&010|
000067b0  30 30 36 30 38 0d 2d 32  1c e7 20 78 31 25 20 3e  |00608.-2.. x1% >|
000067c0  20 78 32 25 20 8c 20 c8  94 20 78 31 25 2c 78 32  | x2% . .. x1%,x2|
000067d0  25 0d 2d 3c 1c e7 20 79  31 25 20 3e 20 79 32 25  |%.-<.. y1% > y2%|
000067e0  20 8c 20 c8 94 20 79 31  25 2c 79 32 25 0d 2d 46  | . .. y1%,y2%.-F|
000067f0  3a 6e 5f 6d 69 6e 78 3d  28 78 31 25 20 2d 6d 61  |:n_minx=(x1% -ma|
00006800  69 6e 5f 78 5f 6f 72 69  67 69 6e 25 29 20 2a 28  |in_x_origin%) *(|
00006810  6d 61 78 78 2d 6d 69 6e  78 29 2f 31 32 38 30 2f  |maxx-minx)/1280/|
00006820  73 66 2b 6d 69 6e 78 0d  2d 50 3a 6e 5f 6d 61 78  |sf+minx.-P:n_max|
00006830  78 3d 28 78 32 25 20 2d  6d 61 69 6e 5f 78 5f 6f  |x=(x2% -main_x_o|
00006840  72 69 67 69 6e 25 29 20  2a 28 6d 61 78 78 2d 6d  |rigin%) *(maxx-m|
00006850  69 6e 78 29 2f 31 32 38  30 2f 73 66 2b 6d 69 6e  |inx)/1280/sf+min|
00006860  78 0d 2d 5a 3c 6e 5f 6d  69 6e 79 3d 28 79 31 25  |x.-Z<n_miny=(y1%|
00006870  20 2d 20 6d 61 69 6e 5f  79 5f 6f 72 69 67 69 6e  | - main_y_origin|
00006880  25 20 29 2a 20 28 6d 61  78 79 2d 6d 69 6e 79 29  |% )* (maxy-miny)|
00006890  2f 31 30 32 34 2f 73 66  2b 6d 61 78 79 0d 2d 64  |/1024/sf+maxy.-d|
000068a0  3c 6e 5f 6d 61 78 79 3d  28 79 32 25 20 2d 20 6d  |<n_maxy=(y2% - m|
000068b0  61 69 6e 5f 79 5f 6f 72  69 67 69 6e 25 20 29 2a  |ain_y_origin% )*|
000068c0  20 28 6d 61 78 79 2d 6d  69 6e 79 29 2f 31 30 32  | (maxy-miny)/102|
000068d0  34 2f 73 66 2b 6d 61 78  79 0d 2d 6e 3b e7 20 62  |4/sf+maxy.-n;. b|
000068e0  3d 31 20 80 20 c3 28 6e  5f 6d 69 6e 79 29 20 3c  |=1 . .(n_miny) <|
000068f0  3e c3 28 6e 5f 6d 61 78  79 29 20 80 20 c3 28 6e  |>.(n_maxy) . .(n|
00006900  5f 6d 69 6e 78 29 20 3c  3e c3 28 6e 5f 6d 61 78  |_minx) <>.(n_max|
00006910  78 29 20 8c 0d 2d 78 11  6d 69 6e 78 20 3d 20 6e  |x) ..-x.minx = n|
00006920  5f 6d 69 6e 78 0d 2d 82  11 6d 69 6e 79 20 3d 20  |_minx.-..miny = |
00006930  6e 5f 6d 69 6e 79 0d 2d  8c 11 6d 61 78 78 20 3d  |n_miny.-..maxx =|
00006940  20 6e 5f 6d 61 78 78 0d  2d 96 11 6d 61 78 79 20  | n_maxx.-..maxy |
00006950  3d 20 6e 5f 6d 61 78 79  0d 2d a0 45 63 61 72 74  |= n_maxy.-.Ecart|
00006960  5f 6d 69 6e 5f 79 5f 69  63 6f 6e 25 3d a4 63 68  |_min_y_icon%=.ch|
00006970  61 6e 67 65 5f 74 65 78  74 28 63 61 72 74 61 78  |ange_text(cartax|
00006980  65 73 25 2c 63 61 72 74  5f 6d 69 6e 5f 79 5f 69  |es%,cart_min_y_i|
00006990  63 6f 6e 25 2c c3 28 6d  69 6e 79 29 29 0d 2d aa  |con%,.(miny)).-.|
000069a0  45 63 61 72 74 5f 6d 61  78 5f 79 5f 69 63 6f 6e  |Ecart_max_y_icon|
000069b0  25 3d a4 63 68 61 6e 67  65 5f 74 65 78 74 28 63  |%=.change_text(c|
000069c0  61 72 74 61 78 65 73 25  2c 63 61 72 74 5f 6d 61  |artaxes%,cart_ma|
000069d0  78 5f 79 5f 69 63 6f 6e  25 2c c3 28 6d 61 78 79  |x_y_icon%,.(maxy|
000069e0  29 29 0d 2d b4 45 63 61  72 74 5f 6d 69 6e 5f 78  |)).-.Ecart_min_x|
000069f0  5f 69 63 6f 6e 25 3d a4  63 68 61 6e 67 65 5f 74  |_icon%=.change_t|
00006a00  65 78 74 28 63 61 72 74  61 78 65 73 25 2c 63 61  |ext(cartaxes%,ca|
00006a10  72 74 5f 6d 69 6e 5f 78  5f 69 63 6f 6e 25 2c c3  |rt_min_x_icon%,.|
00006a20  28 6d 69 6e 78 29 29 0d  2d be 45 63 61 72 74 5f  |(minx)).-.Ecart_|
00006a30  6d 61 78 5f 78 5f 69 63  6f 6e 25 3d a4 63 68 61  |max_x_icon%=.cha|
00006a40  6e 67 65 5f 74 65 78 74  28 63 61 72 74 61 78 65  |nge_text(cartaxe|
00006a50  73 25 2c 63 61 72 74 5f  6d 61 78 5f 78 5f 69 63  |s%,cart_max_x_ic|
00006a60  6f 6e 25 2c c3 28 6d 61  78 78 29 29 0d 2d c8 32  |on%,.(maxx)).-.2|
00006a70  c8 99 20 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |.. "Wimp_ForceRe|
00006a80  64 72 61 77 22 2c 63 61  72 74 61 78 65 73 25 2c  |draw",cartaxes%,|
00006a90  30 2c 2d 31 32 38 30 2c  31 32 38 30 2c 30 0d 2d  |0,-1280,1280,0.-|
00006aa0  d2 13 f2 63 61 6c 63 75  6c 61 74 65 5f 63 61 72  |...calculate_car|
00006ab0  74 0d 2d dc 05 cd 0d 2d  e6 09 40 25 3d 41 25 0d  |t.-....-..@%=A%.|
00006ac0  2d f0 10 7a 6f 6f 6d 69  6e 67 25 20 3d 20 a3 0d  |-..zooming% = ..|
00006ad0  2d fa 05 cd 0d 2e 04 05  e1 0d 2e 0e 04 0d 2e 18  |-...............|
00006ae0  0f dd 20 a4 66 61 63 74  28 78 25 29 0d 2e 22 11  |.. .fact(x%)..".|
00006af0  ea 20 73 75 6d 2c 20 63  6f 75 6e 74 25 0d 2e 2c  |. sum, count%..,|
00006b00  0b 73 75 6d 20 3d 20 31  0d 2e 36 0e e7 20 78 25  |.sum = 1..6.. x%|
00006b10  20 3e 20 31 20 8c 0d 2e  40 15 e3 20 63 6f 75 6e  | > 1 ...@.. coun|
00006b20  74 25 20 3d 20 32 20 b8  20 78 25 0d 2e 4a 17 20  |t% = 2 . x%..J. |
00006b30  73 75 6d 20 3d 20 73 75  6d 20 2a 20 63 6f 75 6e  |sum = sum * coun|
00006b40  74 25 0d 2e 54 05 ed 0d  2e 5e 05 cd 0d 2e 68 08  |t%..T....^....h.|
00006b50  3d 73 75 6d 0d 2e 72 05  20 0d 2e 7c 0e dd 20 a4  |=sum..r. ..|.. .|
00006b60  63 6f 73 68 28 78 29 0d  2e 86 15 3d 30 2e 35 2a  |cosh(x)....=0.5*|
00006b70  28 a1 28 78 29 2b a1 28  2d 78 29 29 0d 2e 90 04  |(.(x)+.(-x))....|
00006b80  0d 2e 9a 0e dd 20 a4 73  69 6e 68 28 78 29 0d 2e  |..... .sinh(x)..|
00006b90  a4 15 3d 30 2e 35 2a 28  a1 28 78 29 2d a1 28 2d  |..=0.5*(.(x)-.(-|
00006ba0  78 29 29 0d 2e ae 05 20  0d 2e b8 0e dd 20 a4 74  |x)).... ..... .t|
00006bb0  61 6e 68 28 78 29 0d 2e  c2 16 3d a4 73 69 6e 68  |anh(x)....=.sinh|
00006bc0  28 78 29 2f a4 63 6f 73  68 28 78 29 0d 2e cc 04  |(x)/.cosh(x)....|
00006bd0  0d 2e d6 11 dd 20 a4 61  72 63 63 6f 73 68 28 78  |..... .arccosh(x|
00006be0  29 0d 2e e0 15 3d aa 28  78 2b 28 78 2a 78 2d 31  |)....=.(x+(x*x-1|
00006bf0  29 5e 30 2e 35 29 0d 2e  ea 04 0d 2e f4 11 dd 20  |)^0.5)......... |
00006c00  a4 61 72 63 73 69 6e 68  28 78 29 0d 2e fe 15 3d  |.arcsinh(x)....=|
00006c10  aa 28 78 2b 28 78 2a 78  2b 31 29 5e 30 2e 35 29  |.(x+(x*x+1)^0.5)|
00006c20  0d 2f 08 04 0d 2f 12 11  dd 20 a4 61 72 63 74 61  |./.../... .arcta|
00006c30  6e 68 28 78 29 0d 2f 1c  17 3d 30 2e 35 2a aa 28  |nh(x)./..=0.5*.(|
00006c40  28 31 2b 78 29 2f 28 31  2d 78 29 29 0d 2f 26 04  |(1+x)/(1-x))./&.|
00006c50  0d 2f 30 13 dd 20 a4 75  70 70 65 72 28 74 65 78  |./0.. .upper(tex|
00006c60  74 24 29 0d 2f 3a 13 ea  20 72 65 73 75 6c 74 24  |t$)./:.. result$|
00006c70  2c 69 25 2c 63 24 0d 2f  44 0e 72 65 73 75 6c 74  |,i%,c$./D.result|
00006c80  24 3d 22 22 0d 2f 4e 15  e3 20 69 25 20 3d 20 31  |$=""./N.. i% = 1|
00006c90  20 b8 20 a9 74 65 78 74  24 0d 2f 58 14 20 63 24  | . .text$./X. c$|
00006ca0  3d c1 74 65 78 74 24 2c  69 25 2c 31 29 0d 2f 62  |=.text$,i%,1)./b|
00006cb0  2a 20 e7 20 63 24 3e 3d  22 61 22 20 80 20 63 24  |* . c$>="a" . c$|
00006cc0  3c 3d 22 7a 22 20 8c 20  63 24 3d bd 28 97 28 63  |<="z" . c$=.(.(c|
00006cd0  24 29 80 26 44 46 29 0d  2f 6c 17 20 72 65 73 75  |$).&DF)./l. resu|
00006ce0  6c 74 24 3d 72 65 73 75  6c 74 24 2b 63 24 0d 2f  |lt$=result$+c$./|
00006cf0  76 05 ed 0d 2f 80 0c 3d  72 65 73 75 6c 74 24 0d  |v.../..=result$.|
00006d00  2f 8a 04 0d 2f 94 17 dd  20 f2 73 65 6c 65 63 74  |/.../... .select|
00006d10  5f 63 61 72 74 65 73 69  61 6e 0d 2f 9e 12 63 61  |_cartesian./..ca|
00006d20  72 74 5f 70 6c 6f 74 25  20 3d 20 b9 0d 2f a8 12  |rt_plot% = ../..|
00006d30  70 6f 6c 61 72 5f 70 6c  6f 74 25 3d 20 a3 0d 2f  |polar_plot%= ../|
00006d40  b2 12 70 61 72 61 5f 70  6c 6f 74 25 20 3d 20 a3  |..para_plot% = .|
00006d50  0d 2f bc 1a f2 6e 6f 5f  74 69 63 6b 28 6d 61 69  |./...no_tick(mai|
00006d60  6e 5f 6d 65 6e 75 25 2c  36 29 0d 2f c6 1a f2 6e  |n_menu%,6)./...n|
00006d70  6f 5f 74 69 63 6b 28 6d  61 69 6e 5f 6d 65 6e 75  |o_tick(main_menu|
00006d80  25 2c 37 29 0d 2f d0 17  f2 74 69 63 6b 28 6d 61  |%,7)./...tick(ma|
00006d90  69 6e 5f 6d 65 6e 75 25  2c 35 29 0d 2f da 17 f2  |in_menu%,5)./...|
00006da0  63 6c 6f 73 65 28 70 61  72 61 6d 65 74 72 69 63  |close(parametric|
00006db0  25 29 0d 2f e4 15 f2 63  6c 6f 73 65 28 70 61 72  |%)./...close(par|
00006dc0  61 61 78 65 73 25 29 0d  2f ee 12 f2 63 6c 6f 73  |aaxes%)./...clos|
00006dd0  65 28 70 6f 6c 61 72 25  29 0d 2f f8 16 f2 63 6c  |e(polar%)./...cl|
00006de0  6f 73 65 28 70 6f 6c 61  72 61 78 65 73 25 29 0d  |ose(polaraxes%).|
00006df0  30 02 1b f2 6f 70 65 6e  5f 77 69 6e 64 6f 77 28  |0...open_window(|
00006e00  63 61 72 74 61 78 65 73  25 29 0d 30 0c 1c f2 6f  |cartaxes%).0...o|
00006e10  70 65 6e 5f 77 69 6e 64  6f 77 28 63 61 72 74 65  |pen_window(carte|
00006e20  73 69 61 6e 25 29 0d 30  16 13 f2 63 61 6c 63 75  |sian%).0...calcu|
00006e30  6c 61 74 65 5f 63 61 72  74 0d 30 20 19 e7 20 73  |late_cart.0 .. s|
00006e40  68 6f 77 5f 63 6f 6f 72  64 69 6e 61 74 65 73 25  |how_coordinates%|
00006e50  20 8c 0d 30 2a 18 f2 6f  70 65 6e 5f 77 69 6e 64  | ..0*..open_wind|
00006e60  6f 77 28 63 6f 6f 72 64  25 29 0d 30 34 05 cd 0d  |ow(coord%).04...|
00006e70  30 3e 05 e1 0d 30 48 04  0d 30 52 04 0d 30 5c 13  |0>...0H..0R..0\.|
00006e80  dd 20 f2 73 65 6c 65 63  74 5f 70 6f 6c 61 72 0d  |. .select_polar.|
00006e90  30 66 13 77 69 6e 64 6f  77 25 3d 20 70 6f 6c 61  |0f.window%= pola|
00006ea0  72 25 0d 30 70 12 63 61  72 74 5f 70 6c 6f 74 25  |r%.0p.cart_plot%|
00006eb0  20 3d 20 a3 0d 30 7a 12  70 6f 6c 61 72 5f 70 6c  | = ..0z.polar_pl|
00006ec0  6f 74 25 3d 20 b9 0d 30  84 12 70 61 72 61 5f 70  |ot%= ..0..para_p|
00006ed0  6c 6f 74 25 20 3d 20 a3  0d 30 8e 1a f2 6e 6f 5f  |lot% = ..0...no_|
00006ee0  74 69 63 6b 28 6d 61 69  6e 5f 6d 65 6e 75 25 2c  |tick(main_menu%,|
00006ef0  35 29 0d 30 98 1a f2 6e  6f 5f 74 69 63 6b 28 6d  |5).0...no_tick(m|
00006f00  61 69 6e 5f 6d 65 6e 75  25 2c 37 29 0d 30 a2 17  |ain_menu%,7).0..|
00006f10  f2 74 69 63 6b 28 6d 61  69 6e 5f 6d 65 6e 75 25  |.tick(main_menu%|
00006f20  2c 36 29 0d 30 ac 17 f2  63 6c 6f 73 65 28 70 61  |,6).0...close(pa|
00006f30  72 61 6d 65 74 72 69 63  25 29 0d 30 b6 15 f2 63  |rametric%).0...c|
00006f40  6c 6f 73 65 28 70 61 72  61 61 78 65 73 25 29 0d  |lose(paraaxes%).|
00006f50  30 c0 16 f2 63 6c 6f 73  65 28 63 61 72 74 65 73  |0...close(cartes|
00006f60  69 61 6e 25 29 0d 30 ca  15 f2 63 6c 6f 73 65 28  |ian%).0...close(|
00006f70  63 61 72 74 61 78 65 73  25 29 0d 30 d4 12 f2 63  |cartaxes%).0...c|
00006f80  6c 6f 73 65 28 63 6f 6f  72 64 25 29 0d 30 de 16  |lose(coord%).0..|
00006f90  f2 63 6c 6f 73 65 28 70  6f 6c 61 72 61 78 65 73  |.close(polaraxes|
00006fa0  25 29 0d 30 e8 18 f2 6f  70 65 6e 5f 77 69 6e 64  |%).0...open_wind|
00006fb0  6f 77 28 70 6f 6c 61 72  25 29 0d 30 f2 1c f2 6f  |ow(polar%).0...o|
00006fc0  70 65 6e 5f 77 69 6e 64  6f 77 28 70 6f 6c 61 72  |pen_window(polar|
00006fd0  61 78 65 73 25 29 0d 30  fc 14 f2 63 61 6c 63 75  |axes%).0...calcu|
00006fe0  6c 61 74 65 5f 70 6f 6c  61 72 0d 31 06 05 e1 0d  |late_polar.1....|
00006ff0  31 10 04 0d 31 1a 04 0d  31 24 18 dd 20 f2 73 65  |1...1...1$.. .se|
00007000  6c 65 63 74 5f 70 61 72  61 6d 65 74 72 69 63 0d  |lect_parametric.|
00007010  31 2e 17 77 69 6e 64 6f  77 25 3d 70 61 72 61 6d  |1..window%=param|
00007020  65 74 72 69 63 25 0d 31  38 12 63 61 72 74 5f 70  |etric%.18.cart_p|
00007030  6c 6f 74 25 20 3d 20 a3  0d 31 42 12 70 6f 6c 61  |lot% = ..1B.pola|
00007040  72 5f 70 6c 6f 74 25 3d  20 a3 0d 31 4c 12 70 61  |r_plot%= ..1L.pa|
00007050  72 61 5f 70 6c 6f 74 25  20 3d 20 b9 0d 31 56 1a  |ra_plot% = ..1V.|
00007060  f2 6e 6f 5f 74 69 63 6b  28 6d 61 69 6e 5f 6d 65  |.no_tick(main_me|
00007070  6e 75 25 2c 36 29 0d 31  60 1a f2 6e 6f 5f 74 69  |nu%,6).1`..no_ti|
00007080  63 6b 28 6d 61 69 6e 5f  6d 65 6e 75 25 2c 35 29  |ck(main_menu%,5)|
00007090  0d 31 6a 17 f2 74 69 63  6b 28 6d 61 69 6e 5f 6d  |.1j..tick(main_m|
000070a0  65 6e 75 25 2c 37 29 0d  31 74 16 f2 63 6c 6f 73  |enu%,7).1t..clos|
000070b0  65 28 63 61 72 74 65 73  69 61 6e 25 29 0d 31 7e  |e(cartesian%).1~|
000070c0  15 f2 63 6c 6f 73 65 28  63 61 72 74 61 78 65 73  |..close(cartaxes|
000070d0  25 29 0d 31 88 12 f2 63  6c 6f 73 65 28 70 6f 6c  |%).1...close(pol|
000070e0  61 72 25 29 0d 31 92 16  f2 63 6c 6f 73 65 28 70  |ar%).1...close(p|
000070f0  6f 6c 61 72 61 78 65 73  25 29 0d 31 9c 1b f2 6f  |olaraxes%).1...o|
00007100  70 65 6e 5f 77 69 6e 64  6f 77 28 70 61 72 61 61  |pen_window(paraa|
00007110  78 65 73 25 29 0d 31 a6  1d f2 6f 70 65 6e 5f 77  |xes%).1...open_w|
00007120  69 6e 64 6f 77 28 70 61  72 61 6d 65 74 72 69 63  |indow(parametric|
00007130  25 29 0d 31 b0 19 e7 20  73 68 6f 77 5f 63 6f 6f  |%).1... show_coo|
00007140  72 64 69 6e 61 74 65 73  25 20 8c 0d 31 ba 18 f2  |rdinates% ..1...|
00007150  6f 70 65 6e 5f 77 69 6e  64 6f 77 28 63 6f 6f 72  |open_window(coor|
00007160  64 25 29 0d 31 c4 05 cd  0d 31 ce 13 f2 63 61 6c  |d%).1....1...cal|
00007170  63 75 6c 61 74 65 5f 70  61 72 61 0d 31 d8 05 e1  |culate_para.1...|
00007180  0d 31 e2 04 0d 31 ec 04  0d 31 f6 24 dd 20 f2 75  |.1...1...1.$. .u|
00007190  70 64 61 74 65 70 61 72  61 61 78 65 73 28 77 69  |pdateparaaxes(wi|
000071a0  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 32 00 23  |ndow%,icon%).2.#|
000071b0  e7 20 69 63 6f 6e 25 20  3d 20 70 61 72 61 5f 61  |. icon% = para_a|
000071c0  78 65 73 5f 79 65 73 5f  69 63 6f 6e 25 20 8c 0d  |xes_yes_icon% ..|
000071d0  32 0a 2b 20 20 61 75 74  6f 5f 79 5f 70 61 72 61  |2.+  auto_y_para|
000071e0  61 78 65 73 25 20 3d 20  ac 20 61 75 74 6f 5f 79  |axes% = . auto_y|
000071f0  5f 70 61 72 61 61 78 65  73 25 0d 32 14 19 20 e7  |_paraaxes%.2.. .|
00007200  20 61 75 74 6f 5f 79 5f  70 61 72 61 61 78 65 73  | auto_y_paraaxes|
00007210  25 20 8c 0d 32 1e 3a 20  70 61 72 61 5f 61 78 65  |% ..2.: para_axe|
00007220  73 5f 79 65 73 5f 69 63  6f 6e 25 3d a4 63 68 61  |s_yes_icon%=.cha|
00007230  6e 67 65 5f 74 65 78 74  28 77 69 6e 64 6f 77 25  |nge_text(window%|
00007240  2c 69 63 6f 6e 25 2c 22  59 45 53 22 29 0d 32 28  |,icon%,"YES").2(|
00007250  28 20 f2 64 65 73 65 6c  65 63 74 28 77 69 6e 64  |( .deselect(wind|
00007260  6f 77 25 2c 70 61 72 61  5f 6d 69 6e 5f 79 5f 69  |ow%,para_min_y_i|
00007270  63 6f 6e 25 29 0d 32 32  28 20 f2 64 65 73 65 6c  |con%).22( .desel|
00007280  65 63 74 28 77 69 6e 64  6f 77 25 2c 70 61 72 61  |ect(window%,para|
00007290  5f 6d 61 78 5f 79 5f 69  63 6f 6e 25 29 0d 32 3c  |_max_y_icon%).2<|
000072a0  28 20 f2 64 65 73 65 6c  65 63 74 28 77 69 6e 64  |( .deselect(wind|
000072b0  6f 77 25 2c 70 61 72 61  5f 6d 69 6e 5f 78 5f 69  |ow%,para_min_x_i|
000072c0  63 6f 6e 25 29 0d 32 46  28 20 f2 64 65 73 65 6c  |con%).2F( .desel|
000072d0  65 63 74 28 77 69 6e 64  6f 77 25 2c 70 61 72 61  |ect(window%,para|
000072e0  5f 6d 61 78 5f 78 5f 69  63 6f 6e 25 29 0d 32 50  |_max_x_icon%).2P|
000072f0  05 cc 0d 32 5a 39 20 70  61 72 61 5f 61 78 65 73  |...2Z9 para_axes|
00007300  5f 79 65 73 5f 69 63 6f  6e 25 3d a4 63 68 61 6e  |_yes_icon%=.chan|
00007310  67 65 5f 74 65 78 74 28  77 69 6e 64 6f 77 25 2c  |ge_text(window%,|
00007320  69 63 6f 6e 25 2c 22 4e  4f 22 29 0d 32 64 28 20  |icon%,"NO").2d( |
00007330  f2 72 65 73 65 6c 65 63  74 28 77 69 6e 64 6f 77  |.reselect(window|
00007340  25 2c 70 61 72 61 5f 6d  69 6e 5f 79 5f 69 63 6f  |%,para_min_y_ico|
00007350  6e 25 29 0d 32 6e 28 20  f2 72 65 73 65 6c 65 63  |n%).2n( .reselec|
00007360  74 28 77 69 6e 64 6f 77  25 2c 70 61 72 61 5f 6d  |t(window%,para_m|
00007370  61 78 5f 79 5f 69 63 6f  6e 25 29 0d 32 78 28 20  |ax_y_icon%).2x( |
00007380  f2 72 65 73 65 6c 65 63  74 28 77 69 6e 64 6f 77  |.reselect(window|
00007390  25 2c 70 61 72 61 5f 6d  69 6e 5f 78 5f 69 63 6f  |%,para_min_x_ico|
000073a0  6e 25 29 0d 32 82 28 20  f2 72 65 73 65 6c 65 63  |n%).2.( .reselec|
000073b0  74 28 77 69 6e 64 6f 77  25 2c 70 61 72 61 5f 6d  |t(window%,para_m|
000073c0  61 78 5f 78 5f 69 63 6f  6e 25 29 0d 32 8c 05 cd  |ax_x_icon%).2...|
000073d0  0d 32 96 05 cd 0d 32 a0  2e c8 99 20 22 57 69 6d  |.2....2.... "Wim|
000073e0  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 77  |p_ForceRedraw",w|
000073f0  69 6e 64 6f 77 25 2c 30  2c 2d 35 30 30 2c 38 30  |indow%,0,-500,80|
00007400  30 2c 30 0d 32 aa 05 e1  0d 32 b4 04 0d 32 be 04  |0,0.2....2...2..|
00007410  0d 32 c8 26 dd 20 f2 75  70 64 61 74 65 70 61 72  |.2.&. .updatepar|
00007420  61 6d 65 74 72 69 63 28  77 69 6e 64 6f 77 25 2c  |ametric(window%,|
00007430  69 63 6f 6e 25 29 0d 32  d2 16 f2 65 78 74 72 61  |icon%).2...extra|
00007440  63 74 5f 70 61 72 61 5f  66 75 6e 63 0d 32 dc 27  |ct_para_func.2.'|
00007450  20 e7 20 70 61 72 61 5f  70 6c 6f 74 25 28 63 75  | . para_plot%(cu|
00007460  72 72 65 6e 74 5f 70 61  72 61 5f 66 75 6e 63 25  |rrent_para_func%|
00007470  29 20 8c 0d 32 e6 48 20  70 61 72 61 5f 66 75 6e  |) ..2.H para_fun|
00007480  63 5f 79 65 73 5f 69 63  6f 6e 25 3d a4 63 68 61  |c_yes_icon%=.cha|
00007490  6e 67 65 5f 74 65 78 74  28 77 69 6e 64 6f 77 25  |nge_text(window%|
000074a0  2c 70 61 72 61 5f 66 75  6e 63 5f 79 65 73 5f 69  |,para_func_yes_i|
000074b0  63 6f 6e 25 2c 22 59 45  53 22 29 0d 32 f0 05 cc  |con%,"YES").2...|
000074c0  0d 32 fa 47 20 70 61 72  61 5f 66 75 6e 63 5f 79  |.2.G para_func_y|
000074d0  65 73 5f 69 63 6f 6e 25  3d a4 63 68 61 6e 67 65  |es_icon%=.change|
000074e0  5f 74 65 78 74 28 77 69  6e 64 6f 77 25 2c 70 61  |_text(window%,pa|
000074f0  72 61 5f 66 75 6e 63 5f  79 65 73 5f 69 63 6f 6e  |ra_func_yes_icon|
00007500  25 2c 22 4e 4f 22 29 0d  33 04 05 cd 0d 33 0e 23  |%,"NO").3....3.#|
00007510  e7 20 69 63 6f 6e 25 20  3d 20 70 61 72 61 5f 66  |. icon% = para_f|
00007520  75 6e 63 5f 79 65 73 5f  69 63 6f 6e 25 20 8c 0d  |unc_yes_icon% ..|
00007530  33 18 47 20 20 70 61 72  61 5f 70 6c 6f 74 25 28  |3.G  para_plot%(|
00007540  63 75 72 72 65 6e 74 5f  70 61 72 61 5f 66 75 6e  |current_para_fun|
00007550  63 25 29 20 3d 20 ac 20  70 61 72 61 5f 70 6c 6f  |c%) = . para_plo|
00007560  74 25 28 63 75 72 72 65  6e 74 5f 70 61 72 61 5f  |t%(current_para_|
00007570  66 75 6e 63 25 29 0d 33  22 27 20 e7 20 70 61 72  |func%).3"' . par|
00007580  61 5f 70 6c 6f 74 25 28  63 75 72 72 65 6e 74 5f  |a_plot%(current_|
00007590  70 61 72 61 5f 66 75 6e  63 25 29 20 8c 0d 33 2c  |para_func%) ..3,|
000075a0  3a 20 70 61 72 61 5f 66  75 6e 63 5f 79 65 73 5f  |: para_func_yes_|
000075b0  69 63 6f 6e 25 3d a4 63  68 61 6e 67 65 5f 74 65  |icon%=.change_te|
000075c0  78 74 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |xt(window%,icon%|
000075d0  2c 22 59 45 53 22 29 0d  33 36 05 cc 0d 33 40 39  |,"YES").36...3@9|
000075e0  20 70 61 72 61 5f 66 75  6e 63 5f 79 65 73 5f 69  | para_func_yes_i|
000075f0  63 6f 6e 25 3d a4 63 68  61 6e 67 65 5f 74 65 78  |con%=.change_tex|
00007600  74 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |t(window%,icon%,|
00007610  22 4e 4f 22 29 0d 33 4a  05 cd 0d 33 54 05 cd 0d  |"NO").3J...3T...|
00007620  33 5e 2a e7 20 69 63 6f  6e 25 20 3d 20 34 20 80  |3^*. icon% = 4 .|
00007630  20 63 75 72 72 65 6e 74  5f 70 61 72 61 5f 66 75  | current_para_fu|
00007640  6e 63 25 20 3e 20 31 20  8c 0d 33 68 1e 20 20 20  |nc% > 1 ..3h.   |
00007650  20 63 75 72 72 65 6e 74  5f 70 61 72 61 5f 66 75  | current_para_fu|
00007660  6e 63 25 20 2d 3d 31 0d  33 72 5d 70 61 72 61 5f  |nc% -=1.3r]para_|
00007670  66 75 6e 63 5f 63 6f 75  6e 74 5f 69 63 6f 6e 25  |func_count_icon%|
00007680  20 3d 20 a4 63 68 61 6e  67 65 5f 74 65 78 74 28  | = .change_text(|
00007690  77 69 6e 64 6f 77 25 2c  70 61 72 61 5f 66 75 6e  |window%,para_fun|
000076a0  63 5f 63 6f 75 6e 74 5f  69 63 6f 6e 25 2c c3 28  |c_count_icon%,.(|
000076b0  63 75 72 72 65 6e 74 5f  70 61 72 61 5f 66 75 6e  |current_para_fun|
000076c0  63 25 29 29 0d 33 7c 05  cd 0d 33 86 2a e7 20 69  |c%)).3|...3.*. i|
000076d0  63 6f 6e 25 20 3d 20 35  20 80 20 63 75 72 72 65  |con% = 5 . curre|
000076e0  6e 74 5f 70 61 72 61 5f  66 75 6e 63 25 20 3c 20  |nt_para_func% < |
000076f0  33 20 8c 0d 33 90 1e 20  20 20 20 63 75 72 72 65  |3 ..3..    curre|
00007700  6e 74 5f 70 61 72 61 5f  66 75 6e 63 25 20 2b 3d  |nt_para_func% +=|
00007710  31 0d 33 9a 5d 70 61 72  61 5f 66 75 6e 63 5f 63  |1.3.]para_func_c|
00007720  6f 75 6e 74 5f 69 63 6f  6e 25 20 3d 20 a4 63 68  |ount_icon% = .ch|
00007730  61 6e 67 65 5f 74 65 78  74 28 77 69 6e 64 6f 77  |ange_text(window|
00007740  25 2c 70 61 72 61 5f 66  75 6e 63 5f 63 6f 75 6e  |%,para_func_coun|
00007750  74 5f 69 63 6f 6e 25 2c  c3 28 63 75 72 72 65 6e  |t_icon%,.(curren|
00007760  74 5f 70 61 72 61 5f 66  75 6e 63 25 29 29 0d 33  |t_para_func%)).3|
00007770  a4 05 cd 0d 33 ae 41 20  70 61 72 61 5f 66 75 6e  |....3.A para_fun|
00007780  63 78 5f 69 63 6f 6e 25  3d a4 75 70 64 61 74 65  |cx_icon%=.update|
00007790  5f 70 61 72 61 78 5f 66  75 6e 63 74 69 6f 6e 28  |_parax_function(|
000077a0  20 63 75 72 72 65 6e 74  5f 70 61 72 61 5f 66 75  | current_para_fu|
000077b0  6e 63 25 29 0d 33 b8 41  20 70 61 72 61 5f 66 75  |nc%).3.A para_fu|
000077c0  6e 63 79 5f 69 63 6f 6e  25 3d a4 75 70 64 61 74  |ncy_icon%=.updat|
000077d0  65 5f 70 61 72 61 79 5f  66 75 6e 63 74 69 6f 6e  |e_paray_function|
000077e0  28 20 63 75 72 72 65 6e  74 5f 70 61 72 61 5f 66  |( current_para_f|
000077f0  75 6e 63 25 29 0d 33 c2  26 e7 20 70 61 72 61 5f  |unc%).3.&. para_|
00007800  70 6c 6f 74 25 28 63 75  72 72 65 6e 74 5f 70 61  |plot%(current_pa|
00007810  72 61 5f 66 75 6e 63 25  29 20 8c 0d 33 cc 48 20  |ra_func%) ..3.H |
00007820  70 61 72 61 5f 66 75 6e  63 5f 79 65 73 5f 69 63  |para_func_yes_ic|
00007830  6f 6e 25 3d a4 63 68 61  6e 67 65 5f 74 65 78 74  |on%=.change_text|
00007840  28 77 69 6e 64 6f 77 25  2c 70 61 72 61 5f 66 75  |(window%,para_fu|
00007850  6e 63 5f 79 65 73 5f 69  63 6f 6e 25 2c 22 59 45  |nc_yes_icon%,"YE|
00007860  53 22 29 0d 33 d6 05 cc  0d 33 e0 47 20 70 61 72  |S").3....3.G par|
00007870  61 5f 66 75 6e 63 5f 79  65 73 5f 69 63 6f 6e 25  |a_func_yes_icon%|
00007880  3d a4 63 68 61 6e 67 65  5f 74 65 78 74 28 77 69  |=.change_text(wi|
00007890  6e 64 6f 77 25 2c 70 61  72 61 5f 66 75 6e 63 5f  |ndow%,para_func_|
000078a0  79 65 73 5f 69 63 6f 6e  25 2c 22 4e 4f 22 29 0d  |yes_icon%,"NO").|
000078b0  33 ea 05 cd 0d 33 f4 36  f2 73 65 74 5f 67 72 61  |3....3.6.set_gra|
000078c0  70 68 5f 63 6f 6c 6f 75  72 5f 69 63 6f 6e 28 77  |ph_colour_icon(w|
000078d0  69 6e 64 6f 77 25 2c 63  75 72 72 65 6e 74 5f 70  |indow%,current_p|
000078e0  61 72 61 5f 66 75 6e 63  25 29 0d 33 fe 15 21 62  |ara_func%).3..!b|
000078f0  6c 6f 63 6b 25 20 3d 20  77 69 6e 64 6f 77 25 0d  |lock% = window%.|
00007900  34 08 2e c8 99 20 22 57  69 6d 70 5f 46 6f 72 63  |4.... "Wimp_Forc|
00007910  65 52 65 64 72 61 77 22  2c 77 69 6e 64 6f 77 25  |eRedraw",window%|
00007920  2c 30 2c 2d 33 30 30 2c  39 30 30 2c 30 0d 34 12  |,0,-300,900,0.4.|
00007930  05 e1 0d 34 1c 04 0d 34  26 24 dd 20 a4 75 70 64  |...4...4&$. .upd|
00007940  61 74 65 5f 70 61 72 61  78 5f 66 75 6e 63 74 69  |ate_parax_functi|
00007950  6f 6e 28 20 69 74 65 6d  25 29 0d 34 30 15 21 62  |on( item%).40.!b|
00007960  6c 6f 63 6b 25 20 3d 20  77 69 6e 64 6f 77 25 0d  |lock% = window%.|
00007970  34 3a 1f 62 6c 6f 63 6b  25 21 34 20 3d 20 70 61  |4:.block%!4 = pa|
00007980  72 61 5f 66 75 6e 63 78  5f 69 63 6f 6e 25 0d 34  |ra_funcx_icon%.4|
00007990  44 22 c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |D".. "Wimp_GetIc|
000079a0  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
000079b0  0d 34 4e 20 c8 99 20 22  57 69 6d 70 5f 44 65 6c  |.4N .. "Wimp_Del|
000079c0  65 74 65 49 63 6f 6e 22  2c 2c 62 6c 6f 63 6b 25  |eteIcon",,block%|
000079d0  0d 34 58 2a e3 20 62 65  6c 6f 77 25 20 3d 20 62  |.4X*. below% = b|
000079e0  6c 6f 63 6b 25 20 2b 20  34 20 b8 20 62 6c 6f 63  |lock% + 4 . bloc|
000079f0  6b 25 20 2b 33 35 20 88  20 34 0d 34 62 18 20 20  |k% +35 . 4.4b.  |
00007a00  21 62 65 6c 6f 77 25 20  3d 20 62 65 6c 6f 77 25  |!below% = below%|
00007a10  21 34 0d 34 6c 05 ed 0d  34 76 17 74 65 78 74 25  |!4.4l...4v.text%|
00007a20  20 3d 20 62 6c 6f 63 6b  25 20 2b 20 32 34 0d 34  | = block% + 24.4|
00007a30  80 1d 76 61 6c 69 64 61  74 69 6f 6e 25 20 3d 20  |..validation% = |
00007a40  62 6c 6f 63 6b 25 20 2b  20 32 38 0d 34 8a 20 62  |block% + 28.4. b|
00007a50  75 66 66 65 72 5f 6c 65  6e 67 74 68 25 20 3d 20  |uffer_length% = |
00007a60  62 6c 6f 63 6b 25 20 2b  20 33 32 0d 34 94 25 21  |block% + 32.4.%!|
00007a70  74 65 78 74 25 20 3d 20  63 75 72 72 65 6e 74 5f  |text% = current_|
00007a80  70 61 72 61 78 5f 66 75  6e 63 5f 74 65 78 74 25  |parax_func_text%|
00007a90  0d 34 9e 15 21 76 61 6c  69 64 61 74 69 6f 6e 25  |.4..!validation%|
00007aa0  20 3d 20 2d 31 0d 34 a8  19 21 62 75 66 66 65 72  | = -1.4..!buffer|
00007ab0  5f 6c 65 6e 67 74 68 25  20 3d 20 32 30 30 0d 34  |_length% = 200.4|
00007ac0  b2 3f 24 63 75 72 72 65  6e 74 5f 70 61 72 61 78  |.?$current_parax|
00007ad0  5f 66 75 6e 63 5f 74 65  78 74 25 20 3d 20 65 6e  |_func_text% = en|
00007ae0  74 65 72 65 64 5f 70 61  72 61 78 5f 66 75 6e 63  |tered_parax_func|
00007af0  74 69 6f 6e 73 24 28 69  74 65 6d 25 29 0d 34 bc  |tions$(item%).4.|
00007b00  28 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |(.. "Wimp_Create|
00007b10  49 63 6f 6e 22 2c 2c 62  6c 6f 63 6b 25 20 b8 20  |Icon",,block% . |
00007b20  69 63 6f 6e 25 0d 34 c6  0a 3d 69 63 6f 6e 25 0d  |icon%.4..=icon%.|
00007b30  34 d0 04 0d 34 da 24 dd  20 a4 75 70 64 61 74 65  |4...4.$. .update|
00007b40  5f 70 61 72 61 79 5f 66  75 6e 63 74 69 6f 6e 28  |_paray_function(|
00007b50  20 69 74 65 6d 25 29 0d  34 e4 15 21 62 6c 6f 63  | item%).4..!bloc|
00007b60  6b 25 20 3d 20 77 69 6e  64 6f 77 25 0d 34 ee 1f  |k% = window%.4..|
00007b70  62 6c 6f 63 6b 25 21 34  20 3d 20 70 61 72 61 5f  |block%!4 = para_|
00007b80  66 75 6e 63 79 5f 69 63  6f 6e 25 0d 34 f8 22 c8  |funcy_icon%.4.".|
00007b90  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00007ba0  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 35 02  |tate",,block%.5.|
00007bb0  20 c8 99 20 22 57 69 6d  70 5f 44 65 6c 65 74 65  | .. "Wimp_Delete|
00007bc0  49 63 6f 6e 22 2c 2c 62  6c 6f 63 6b 25 0d 35 0c  |Icon",,block%.5.|
00007bd0  2a e3 20 62 65 6c 6f 77  25 20 3d 20 62 6c 6f 63  |*. below% = bloc|
00007be0  6b 25 20 2b 20 34 20 b8  20 62 6c 6f 63 6b 25 20  |k% + 4 . block% |
00007bf0  2b 33 35 20 88 20 34 0d  35 16 18 20 20 21 62 65  |+35 . 4.5..  !be|
00007c00  6c 6f 77 25 20 3d 20 62  65 6c 6f 77 25 21 34 0d  |low% = below%!4.|
00007c10  35 20 05 ed 0d 35 2a 17  74 65 78 74 25 20 3d 20  |5 ...5*.text% = |
00007c20  62 6c 6f 63 6b 25 20 2b  20 32 34 0d 35 34 1d 76  |block% + 24.54.v|
00007c30  61 6c 69 64 61 74 69 6f  6e 25 20 3d 20 62 6c 6f  |alidation% = blo|
00007c40  63 6b 25 20 2b 20 32 38  0d 35 3e 20 62 75 66 66  |ck% + 28.5> buff|
00007c50  65 72 5f 6c 65 6e 67 74  68 25 20 3d 20 62 6c 6f  |er_length% = blo|
00007c60  63 6b 25 20 2b 20 33 32  0d 35 48 25 21 74 65 78  |ck% + 32.5H%!tex|
00007c70  74 25 20 3d 20 63 75 72  72 65 6e 74 5f 70 61 72  |t% = current_par|
00007c80  61 79 5f 66 75 6e 63 5f  74 65 78 74 25 0d 35 52  |ay_func_text%.5R|
00007c90  15 21 76 61 6c 69 64 61  74 69 6f 6e 25 20 3d 20  |.!validation% = |
00007ca0  2d 31 0d 35 5c 19 21 62  75 66 66 65 72 5f 6c 65  |-1.5\.!buffer_le|
00007cb0  6e 67 74 68 25 20 3d 20  32 30 30 0d 35 66 3f 24  |ngth% = 200.5f?$|
00007cc0  63 75 72 72 65 6e 74 5f  70 61 72 61 79 5f 66 75  |current_paray_fu|
00007cd0  6e 63 5f 74 65 78 74 25  20 3d 20 65 6e 74 65 72  |nc_text% = enter|
00007ce0  65 64 5f 70 61 72 61 79  5f 66 75 6e 63 74 69 6f  |ed_paray_functio|
00007cf0  6e 73 24 28 69 74 65 6d  25 29 0d 35 70 28 c8 99  |ns$(item%).5p(..|
00007d00  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
00007d10  6e 22 2c 2c 62 6c 6f 63  6b 25 20 b8 20 69 63 6f  |n",,block% . ico|
00007d20  6e 25 0d 35 7a 0a 3d 69  63 6f 6e 25 0d 35 84 04  |n%.5z.=icon%.5..|
00007d30  0d 35 8e 04 0d 35 98 04  0d 35 a2 18 dd 20 f2 65  |.5...5...5... .e|
00007d40  78 74 72 61 63 74 5f 70  61 72 61 5f 66 75 6e 63  |xtract_para_func|
00007d50  0d 35 ac 15 21 62 6c 6f  63 6b 25 20 3d 20 77 69  |.5..!block% = wi|
00007d60  6e 64 6f 77 25 0d 35 b6  1f 62 6c 6f 63 6b 25 21  |ndow%.5..block%!|
00007d70  34 20 3d 20 70 61 72 61  5f 66 75 6e 63 78 5f 69  |4 = para_funcx_i|
00007d80  63 6f 6e 25 0d 35 c0 22  c8 99 20 22 57 69 6d 70  |con%.5.".. "Wimp|
00007d90  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00007da0  62 6c 6f 63 6b 25 0d 35  ca 3f 65 6e 74 65 72 65  |block%.5.?entere|
00007db0  64 5f 70 61 72 61 78 5f  66 75 6e 63 74 69 6f 6e  |d_parax_function|
00007dc0  73 24 28 63 75 72 72 65  6e 74 5f 70 61 72 61 5f  |s$(current_para_|
00007dd0  66 75 6e 63 25 29 20 3d  20 24 28 62 6c 6f 63 6b  |func%) = $(block|
00007de0  25 21 32 38 29 0d 35 d4  15 21 62 6c 6f 63 6b 25  |%!28).5..!block%|
00007df0  20 3d 20 77 69 6e 64 6f  77 25 0d 35 de 1f 62 6c  | = window%.5..bl|
00007e00  6f 63 6b 25 21 34 20 3d  20 70 61 72 61 5f 66 75  |ock%!4 = para_fu|
00007e10  6e 63 79 5f 69 63 6f 6e  25 0d 35 e8 22 c8 99 20  |ncy_icon%.5.".. |
00007e20  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00007e30  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 35 f2 3f 65  |te",,block%.5.?e|
00007e40  6e 74 65 72 65 64 5f 70  61 72 61 79 5f 66 75 6e  |ntered_paray_fun|
00007e50  63 74 69 6f 6e 73 24 28  63 75 72 72 65 6e 74 5f  |ctions$(current_|
00007e60  70 61 72 61 5f 66 75 6e  63 25 29 20 3d 20 24 28  |para_func%) = $(|
00007e70  62 6c 6f 63 6b 25 21 32  38 29 0d 35 fc 14 e3 20  |block%!28).5... |
00007e80  67 72 61 70 68 25 20 3d  20 31 20 b8 20 33 0d 36  |graph% = 1 . 3.6|
00007e90  06 40 20 70 61 72 61 78  5f 66 75 6e 63 74 69 6f  |.@ parax_functio|
00007ea0  6e 73 24 28 67 72 61 70  68 25 29 20 3d 20 65 6e  |ns$(graph%) = en|
00007eb0  74 65 72 65 64 5f 70 61  72 61 78 5f 66 75 6e 63  |tered_parax_func|
00007ec0  74 69 6f 6e 73 24 28 67  72 61 70 68 25 29 0d 36  |tions$(graph%).6|
00007ed0  10 40 20 70 61 72 61 79  5f 66 75 6e 63 74 69 6f  |.@ paray_functio|
00007ee0  6e 73 24 28 67 72 61 70  68 25 29 20 3d 20 65 6e  |ns$(graph%) = en|
00007ef0  74 65 72 65 64 5f 70 61  72 61 79 5f 66 75 6e 63  |tered_paray_func|
00007f00  74 69 6f 6e 73 24 28 67  72 61 70 68 25 29 0d 36  |tions$(graph%).6|
00007f10  1a 05 ed 0d 36 24 05 e1  0d 36 2e 04 0d 36 38 04  |....6$...6...68.|
00007f20  0d 36 42 04 0d 36 4c 16  dd 20 f2 69 6e 69 74 69  |.6B..6L.. .initi|
00007f30  61 6c 69 73 65 5f 70 61  72 61 0d 36 56 34 65 6e  |alise_para.6V4en|
00007f40  74 65 72 65 64 5f 70 61  72 61 78 5f 66 75 6e 63  |tered_parax_func|
00007f50  74 69 6f 6e 73 24 28 31  29 20 3d 20 70 61 72 61  |tions$(1) = para|
00007f60  5f 66 75 6e 63 74 69 6f  6e 73 24 28 31 29 0d 36  |_functions$(1).6|
00007f70  60 34 65 6e 74 65 72 65  64 5f 70 61 72 61 79 5f  |`4entered_paray_|
00007f80  66 75 6e 63 74 69 6f 6e  73 24 28 31 29 20 3d 20  |functions$(1) = |
00007f90  70 61 72 61 5f 66 75 6e  63 74 69 6f 6e 73 24 28  |para_functions$(|
00007fa0  32 29 0d 36 6a 34 65 6e  74 65 72 65 64 5f 70 61  |2).6j4entered_pa|
00007fb0  72 61 78 5f 66 75 6e 63  74 69 6f 6e 73 24 28 32  |rax_functions$(2|
00007fc0  29 20 3d 20 70 61 72 61  5f 66 75 6e 63 74 69 6f  |) = para_functio|
00007fd0  6e 73 24 28 33 29 0d 36  74 34 65 6e 74 65 72 65  |ns$(3).6t4entere|
00007fe0  64 5f 70 61 72 61 79 5f  66 75 6e 63 74 69 6f 6e  |d_paray_function|
00007ff0  73 24 28 32 29 20 3d 20  70 61 72 61 5f 66 75 6e  |s$(2) = para_fun|
00008000  63 74 69 6f 6e 73 24 28  34 29 0d 36 7e 34 65 6e  |ctions$(4).6~4en|
00008010  74 65 72 65 64 5f 70 61  72 61 78 5f 66 75 6e 63  |tered_parax_func|
00008020  74 69 6f 6e 73 24 28 33  29 20 3d 20 70 61 72 61  |tions$(3) = para|
00008030  5f 66 75 6e 63 74 69 6f  6e 73 24 28 35 29 0d 36  |_functions$(5).6|
00008040  88 34 65 6e 74 65 72 65  64 5f 70 61 72 61 79 5f  |.4entered_paray_|
00008050  66 75 6e 63 74 69 6f 6e  73 24 28 33 29 20 3d 20  |functions$(3) = |
00008060  70 61 72 61 5f 66 75 6e  63 74 69 6f 6e 73 24 28  |para_functions$(|
00008070  36 29 0d 36 92 14 e3 20  67 72 61 70 68 25 20 3d  |6).6... graph% =|
00008080  20 31 20 b8 20 33 0d 36  9c 41 20 20 70 61 72 61  | 1 . 3.6.A  para|
00008090  78 5f 66 75 6e 63 74 69  6f 6e 73 24 28 67 72 61  |x_functions$(gra|
000080a0  70 68 25 29 20 3d 20 65  6e 74 65 72 65 64 5f 70  |ph%) = entered_p|
000080b0  61 72 61 78 5f 66 75 6e  63 74 69 6f 6e 73 24 28  |arax_functions$(|
000080c0  67 72 61 70 68 25 29 0d  36 a6 41 20 20 70 61 72  |graph%).6.A  par|
000080d0  61 79 5f 66 75 6e 63 74  69 6f 6e 73 24 28 67 72  |ay_functions$(gr|
000080e0  61 70 68 25 29 20 3d 20  65 6e 74 65 72 65 64 5f  |aph%) = entered_|
000080f0  70 61 72 61 79 5f 66 75  6e 63 74 69 6f 6e 73 24  |paray_functions$|
00008100  28 67 72 61 70 68 25 29  0d 36 b0 05 ed 0d 36 ba  |(graph%).6....6.|
00008110  05 e1 0d 36 c4 15 dd 20  f2 63 61 6c 63 75 6c 61  |...6... .calcula|
00008120  74 65 5f 70 61 72 61 0d  36 ce 15 ea 20 63 6f 75  |te_para.6... cou|
00008130  6e 74 25 2c 20 63 6f 75  6e 74 31 25 0d 36 d8 0d  |nt%, count1%.6..|
00008140  f2 67 6c 61 73 73 28 b9  29 0d 36 e2 0e 63 6f 75  |.glass(.).6..cou|
00008150  6e 74 25 20 3d 20 30 0d  36 ec 13 e3 20 67 72 61  |nt% = 0.6... gra|
00008160  70 68 25 3d 20 31 20 b8  20 33 0d 36 f6 28 20 20  |ph%= 1 . 3.6.(  |
00008170  20 e7 20 70 61 72 61 5f  70 6c 6f 74 25 28 67 72  | . para_plot%(gr|
00008180  61 70 68 25 29 20 8c 20  63 6f 75 6e 74 25 20 2b  |aph%) . count% +|
00008190  3d 31 0d 37 00 05 ed 0d  37 0a 13 63 6f 75 6e 74  |=1.7....7..count|
000081a0  31 25 3d 20 63 6f 75 6e  74 25 0d 37 14 1b f2 65  |1%= count%.7...e|
000081b0  78 74 72 61 63 74 5f 70  61 72 61 5f 66 75 6e 63  |xtract_para_func|
000081c0  74 69 6f 6e 73 0d 37 1e  1b f2 63 6f 6e 76 65 72  |tions.7...conver|
000081d0  74 5f 70 61 72 61 5f 66  75 6e 63 74 69 6f 6e 73  |t_para_functions|
000081e0  0d 37 28 1b f2 72 65 74  75 72 6e 5f 70 61 72 61  |.7(..return_para|
000081f0  61 78 65 73 5f 76 61 6c  75 65 73 0d 37 32 19 e7  |axes_values.72..|
00008200  20 20 61 75 74 6f 5f 79  5f 70 61 72 61 61 78 65  |  auto_y_paraaxe|
00008210  73 25 20 8c 0d 37 3c 16  20 20 63 6f 75 6e 74 25  |s% ..7<.  count%|
00008220  20 3d 63 6f 75 6e 74 25  2a 32 0d 37 46 17 20 20  | =count%*2.7F.  |
00008230  63 6f 75 6e 74 31 25 3d  63 6f 75 6e 74 31 25 2a  |count1%=count1%*|
00008240  32 0d 37 50 33 20 f2 72  65 74 5f 70 61 72 61 5f  |2.7P3 .ret_para_|
00008250  72 61 6e 67 65 28 6d 69  6e 78 2c 6d 61 78 78 2c  |range(minx,maxx,|
00008260  6d 69 6e 79 2c 6d 61 78  79 2c 6d 69 6e 74 2c 6d  |miny,maxy,mint,m|
00008270  61 78 74 29 0d 37 5a 05  cd 0d 37 64 20 69 6e 63  |axt).7Z...7d inc|
00008280  72 65 6d 65 6e 74 20 3d  20 28 6d 61 78 74 2d 6d  |rement = (maxt-m|
00008290  69 6e 74 29 2f 31 32 38  30 0d 37 6e 20 79 66 61  |int)/1280.7n yfa|
000082a0  63 74 6f 72 20 3d 20 31  30 32 34 2f 28 6d 61 78  |ctor = 1024/(max|
000082b0  79 20 2d 20 6d 69 6e 79  29 0d 37 78 29 79 5f 73  |y - miny).7x)y_s|
000082c0  68 69 66 74 25 20 3d 20  35 31 32 20 2b 79 66 61  |hift% = 512 +yfa|
000082d0  63 74 6f 72 2a 28 6d 69  6e 79 2b 6d 61 78 79 29  |ctor*(miny+maxy)|
000082e0  2f 32 0d 37 82 20 78 66  61 63 74 6f 72 20 3d 20  |/2.7. xfactor = |
000082f0  31 30 32 34 2f 28 6d 61  78 78 20 2d 20 6d 69 6e  |1024/(maxx - min|
00008300  78 29 0d 37 8c 27 78 5f  73 68 69 66 74 25 3d 2d  |x).7.'x_shift%=-|
00008310  36 34 30 2b 78 66 61 63  74 6f 72 2a 28 6d 69 6e  |640+xfactor*(min|
00008320  78 2b 6d 61 78 78 29 2f  32 0d 37 96 14 e3 20 67  |x+maxx)/2.7... g|
00008330  72 61 70 68 25 20 3d 20  31 20 b8 20 33 0d 37 a0  |raph% = 1 . 3.7.|
00008340  1a e7 20 70 61 72 61 5f  70 6c 6f 74 25 28 67 72  |.. para_plot%(gr|
00008350  61 70 68 25 29 20 8c 0d  37 aa 35 c8 99 22 48 6f  |aph%) ..7.5.."Ho|
00008360  75 72 67 6c 61 73 73 5f  50 65 72 63 65 6e 74 61  |urglass_Percenta|
00008370  67 65 22 2c 31 30 30 2d  28 63 6f 75 6e 74 31 25  |ge",100-(count1%|
00008380  2f 63 6f 75 6e 74 25 29  2a 31 30 30 0d 37 b4 10  |/count%)*100.7..|
00008390  20 63 6f 75 6e 74 31 25  20 2d 3d 31 0d 37 be 13  | count1% -=1.7..|
000083a0  58 25 20 3d 20 67 72 61  70 68 25 2a 32 2d 32 0d  |X% = graph%*2-2.|
000083b0  37 c8 13 59 25 20 3d 20  67 72 61 70 68 25 2a 32  |7..Y% = graph%*2|
000083c0  2d 31 0d 37 d2 23 78 62  61 73 65 25 20 3d 20 70  |-1.7.#xbase% = p|
000083d0  6c 6f 74 5f 76 61 6c 75  65 73 25 2b 58 25 2a 31  |lot_values%+X%*1|
000083e0  32 38 30 2a 34 0d 37 dc  23 79 62 61 73 65 25 20  |280*4.7.#ybase% |
000083f0  3d 20 70 6c 6f 74 5f 76  61 6c 75 65 73 25 2b 59  |= plot_values%+Y|
00008400  25 2a 31 32 38 30 2a 34  0d 37 e6 13 e3 20 54 25  |%*1280*4.7... T%|
00008410  20 3d 20 30 20 b8 20 31  32 38 30 0d 37 f0 1a 20  | = 0 . 1280.7.. |
00008420  20 54 3d 20 6d 69 6e 74  2b 69 6e 63 72 65 6d 65  | T= mint+increme|
00008430  6e 74 2a 54 25 0d 37 fa  09 20 20 74 3d 54 0d 38  |nt*T%.7..  t=T.8|
00008440  04 0d 20 20 6f 6b 25 20  3d 20 b9 0d 38 0e 09 20  |..  ok% = ..8.. |
00008450  20 ea 20 85 0d 38 18 13  20 20 ee 20 85 20 ea 20  | . ..8..  . . . |
00008460  6f 6b 25 20 3d 20 a3 0d  38 22 0d 20 20 e7 20 6f  |ok% = ..8".  . o|
00008470  6b 25 20 8c 0d 38 2c 3f  20 20 20 20 79 62 61 73  |k% ..8,?    ybas|
00008480  65 25 21 28 54 25 2a 34  29 20 3d 20 79 66 61 63  |e%!(T%*4) = yfac|
00008490  74 6f 72 2a a0 70 61 72  61 5f 66 75 6e 63 74 69  |tor*.para_functi|
000084a0  6f 6e 73 24 28 59 25 2b  31 29 2d 79 5f 73 68 69  |ons$(Y%+1)-y_shi|
000084b0  66 74 25 0d 38 36 07 20  20 cc 0d 38 40 1c 20 20  |ft%.86.  ..8@.  |
000084c0  20 20 79 62 61 73 65 25  21 28 54 25 2a 34 29 20  |  ybase%!(T%*4) |
000084d0  3d 20 62 69 67 25 0d 38  4a 07 20 20 cd 0d 38 54  |= big%.8J.  ..8T|
000084e0  09 20 20 f7 20 85 0d 38  5e 0d 20 20 6f 6b 25 20  |.  . ..8^.  ok% |
000084f0  3d 20 b9 0d 38 68 09 20  20 ea 20 85 0d 38 72 13  |= ..8h.  . ..8r.|
00008500  20 20 ee 20 85 20 ea 20  6f 6b 25 20 3d 20 a3 0d  |  . . . ok% = ..|
00008510  38 7c 0d 20 20 e7 20 6f  6b 25 20 8c 0d 38 86 40  |8|.  . ok% ..8.@|
00008520  20 20 20 20 78 62 61 73  65 25 21 28 54 25 2a 34  |    xbase%!(T%*4|
00008530  29 20 20 3d 20 78 66 61  63 74 6f 72 2a a0 70 61  |)  = xfactor*.pa|
00008540  72 61 5f 66 75 6e 63 74  69 6f 6e 73 24 28 58 25  |ra_functions$(X%|
00008550  2b 31 29 2d 78 5f 73 68  69 66 74 25 0d 38 90 07  |+1)-x_shift%.8..|
00008560  20 20 cc 0d 38 9a 1c 20  20 20 20 78 62 61 73 65  |  ..8..    xbase|
00008570  25 21 28 54 25 2a 34 29  20 3d 20 62 69 67 25 0d  |%!(T%*4) = big%.|
00008580  38 a4 07 20 20 cd 0d 38  ae 09 20 20 f7 20 85 0d  |8..  ..8..  . ..|
00008590  38 b8 05 ed 0d 38 c2 05  cd 0d 38 cc 05 ed 0d 38  |8....8....8....8|
000085a0  d6 43 f2 63 61 6c 63 5f  70 61 72 61 5f 61 78 65  |.C.calc_para_axe|
000085b0  73 28 6d 69 6e 78 2c 6d  61 78 78 2c 6d 69 6e 79  |s(minx,maxx,miny|
000085c0  2c 6d 61 78 79 2c 79 66  61 63 74 6f 72 2c 79 5f  |,maxy,yfactor,y_|
000085d0  73 68 69 66 74 25 2c 69  6e 63 72 65 6d 65 6e 74  |shift%,increment|
000085e0  29 0d 38 e0 0d f2 67 6c  61 73 73 28 a3 29 0d 38  |).8...glass(.).8|
000085f0  ea 2e c8 99 20 22 57 69  6d 70 5f 46 6f 72 63 65  |.... "Wimp_Force|
00008600  52 65 64 72 61 77 22 2c  6d 61 69 6e 25 2c 30 2c  |Redraw",main%,0,|
00008610  2d 31 32 38 30 2c 31 32  38 30 2c 30 0d 38 f4 05  |-1280,1280,0.8..|
00008620  e1 0d 38 fe 1d dd 20 f2  72 65 74 75 72 6e 5f 70  |..8... .return_p|
00008630  61 72 61 61 78 65 73 5f  76 61 6c 75 65 73 0d 39  |araaxes_values.9|
00008640  08 3d 65 6e 74 65 72 65  64 5f 6d 69 6e 78 3d bb  |.=entered_minx=.|
00008650  a4 72 65 61 64 5f 69 63  6f 6e 5f 74 65 78 74 28  |.read_icon_text(|
00008660  70 61 72 61 61 78 65 73  25 2c 70 61 72 61 5f 6d  |paraaxes%,para_m|
00008670  69 6e 5f 78 5f 69 63 6f  6e 25 29 0d 39 12 3d 65  |in_x_icon%).9.=e|
00008680  6e 74 65 72 65 64 5f 6d  61 78 78 3d bb a4 72 65  |ntered_maxx=..re|
00008690  61 64 5f 69 63 6f 6e 5f  74 65 78 74 28 70 61 72  |ad_icon_text(par|
000086a0  61 61 78 65 73 25 2c 70  61 72 61 5f 6d 61 78 5f  |aaxes%,para_max_|
000086b0  78 5f 69 63 6f 6e 25 29  0d 39 1c 3d 65 6e 74 65  |x_icon%).9.=ente|
000086c0  72 65 64 5f 6d 69 6e 79  3d bb a4 72 65 61 64 5f  |red_miny=..read_|
000086d0  69 63 6f 6e 5f 74 65 78  74 28 70 61 72 61 61 78  |icon_text(paraax|
000086e0  65 73 25 2c 70 61 72 61  5f 6d 69 6e 5f 79 5f 69  |es%,para_min_y_i|
000086f0  63 6f 6e 25 29 0d 39 26  3d 65 6e 74 65 72 65 64  |con%).9&=entered|
00008700  5f 6d 61 78 79 3d bb a4  72 65 61 64 5f 69 63 6f  |_maxy=..read_ico|
00008710  6e 5f 74 65 78 74 28 70  61 72 61 61 78 65 73 25  |n_text(paraaxes%|
00008720  2c 70 61 72 61 5f 6d 61  78 5f 79 5f 69 63 6f 6e  |,para_max_y_icon|
00008730  25 29 0d 39 30 35 6d 69  6e 74 3d bb a4 72 65 61  |%).905mint=..rea|
00008740  64 5f 69 63 6f 6e 5f 74  65 78 74 28 70 61 72 61  |d_icon_text(para|
00008750  61 78 65 73 25 2c 70 61  72 61 5f 6d 69 6e 5f 74  |axes%,para_min_t|
00008760  5f 69 63 6f 6e 25 29 0d  39 3a 35 6d 61 78 74 3d  |_icon%).9:5maxt=|
00008770  bb a4 72 65 61 64 5f 69  63 6f 6e 5f 74 65 78 74  |..read_icon_text|
00008780  28 70 61 72 61 61 78 65  73 25 2c 70 61 72 61 5f  |(paraaxes%,para_|
00008790  6d 61 78 5f 74 5f 69 63  6f 6e 25 29 0d 39 44 25  |max_t_icon%).9D%|
000087a0  f2 61 64 6a 75 73 74 5f  61 78 65 73 28 6d 61 78  |.adjust_axes(max|
000087b0  78 2c 6d 69 6e 78 2c 6d  61 78 79 2c 6d 69 6e 79  |x,minx,maxy,miny|
000087c0  29 0d 39 4e 05 e1 0d 39  58 05 20 0d 39 62 04 0d  |).9N...9X. .9b..|
000087d0  39 6c 1d dd 20 f2 65 78  74 72 61 63 74 5f 70 61  |9l.. .extract_pa|
000087e0  72 61 5f 66 75 6e 63 74  69 6f 6e 73 0d 39 76 19  |ra_functions.9v.|
000087f0  21 62 6c 6f 63 6b 25 20  3d 20 70 61 72 61 6d 65  |!block% = parame|
00008800  74 72 69 63 25 0d 39 80  1f 62 6c 6f 63 6b 25 21  |tric%.9..block%!|
00008810  34 20 3d 20 70 61 72 61  5f 66 75 6e 63 78 5f 69  |4 = para_funcx_i|
00008820  63 6f 6e 25 0d 39 8a 22  c8 99 20 22 57 69 6d 70  |con%.9.".. "Wimp|
00008830  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00008840  62 6c 6f 63 6b 25 0d 39  94 3f 65 6e 74 65 72 65  |block%.9.?entere|
00008850  64 5f 70 61 72 61 78 5f  66 75 6e 63 74 69 6f 6e  |d_parax_function|
00008860  73 24 28 63 75 72 72 65  6e 74 5f 70 61 72 61 5f  |s$(current_para_|
00008870  66 75 6e 63 25 29 20 3d  20 24 28 62 6c 6f 63 6b  |func%) = $(block|
00008880  25 21 32 38 29 0d 39 9e  1f 62 6c 6f 63 6b 25 21  |%!28).9..block%!|
00008890  34 20 3d 20 70 61 72 61  5f 66 75 6e 63 79 5f 69  |4 = para_funcy_i|
000088a0  63 6f 6e 25 0d 39 a8 22  c8 99 20 22 57 69 6d 70  |con%.9.".. "Wimp|
000088b0  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
000088c0  62 6c 6f 63 6b 25 0d 39  b2 3f 65 6e 74 65 72 65  |block%.9.?entere|
000088d0  64 5f 70 61 72 61 79 5f  66 75 6e 63 74 69 6f 6e  |d_paray_function|
000088e0  73 24 28 63 75 72 72 65  6e 74 5f 70 61 72 61 5f  |s$(current_para_|
000088f0  66 75 6e 63 25 29 20 3d  20 24 28 62 6c 6f 63 6b  |func%) = $(block|
00008900  25 21 32 38 29 0d 39 bc  14 e3 20 67 72 61 70 68  |%!28).9... graph|
00008910  25 20 3d 20 31 20 b8 20  33 0d 39 c6 41 20 70 61  |% = 1 . 3.9.A pa|
00008920  72 61 5f 66 75 6e 63 74  69 6f 6e 73 24 28 67 72  |ra_functions$(gr|
00008930  61 70 68 25 2a 32 29 20  3d 20 65 6e 74 65 72 65  |aph%*2) = entere|
00008940  64 5f 70 61 72 61 79 5f  66 75 6e 63 74 69 6f 6e  |d_paray_function|
00008950  73 24 28 67 72 61 70 68  25 29 0d 39 d0 43 20 70  |s$(graph%).9.C p|
00008960  61 72 61 5f 66 75 6e 63  74 69 6f 6e 73 24 28 67  |ara_functions$(g|
00008970  72 61 70 68 25 2a 32 2d  31 29 20 3d 20 65 6e 74  |raph%*2-1) = ent|
00008980  65 72 65 64 5f 70 61 72  61 78 5f 66 75 6e 63 74  |ered_parax_funct|
00008990  69 6f 6e 73 24 28 67 72  61 70 68 25 29 0d 39 da  |ions$(graph%).9.|
000089a0  05 ed 0d 39 e4 05 e1 0d  39 ee 05 20 0d 39 f8 04  |...9....9.. .9..|
000089b0  0d 3a 02 1d dd 20 f2 63  6f 6e 76 65 72 74 5f 70  |.:... .convert_p|
000089c0  61 72 61 5f 66 75 6e 63  74 69 6f 6e 73 0d 3a 0c  |ara_functions.:.|
000089d0  12 e3 20 67 72 61 25 20  3d 20 31 20 b8 20 36 0d  |.. gra% = 1 . 6.|
000089e0  3a 16 22 e7 20 70 61 72  61 5f 70 6c 6f 74 25 28  |:.". para_plot%(|
000089f0  28 67 72 61 25 20 2b 20  31 29 20 81 20 32 29 20  |(gra% + 1) . 2) |
00008a00  8c 0d 3a 20 3a 20 20 70  61 72 61 5f 66 75 6e 63  |..: :  para_func|
00008a10  74 69 6f 6e 73 24 28 67  72 61 25 29 3d 20 a4 75  |tions$(gra%)= .u|
00008a20  70 70 65 72 28 70 61 72  61 5f 66 75 6e 63 74 69  |pper(para_functi|
00008a30  6f 6e 73 24 28 67 72 61  25 29 29 0d 3a 2a 49 20  |ons$(gra%)).:*I |
00008a40  20 f2 63 6f 6e 76 65 72  74 28 70 61 72 61 5f 66  | .convert(para_f|
00008a50  75 6e 63 74 69 6f 6e 73  24 28 67 72 61 25 29 2c  |unctions$(gra%),|
00008a60  22 54 22 2c 70 61 72 61  5f 66 75 6e 63 74 69 6f  |"T",para_functio|
00008a70  6e 73 24 28 67 72 61 25  29 2c 65 72 72 6f 72 5f  |ns$(gra%),error_|
00008a80  6e 6f 25 29 0d 3a 34 18  20 20 e7 20 65 72 72 6f  |no%).:4.  . erro|
00008a90  72 5f 6e 6f 25 20 3c 3e  20 30 20 8c 0d 3a 3e 2a  |r_no% <> 0 ..:>*|
00008aa0  20 20 20 20 f2 72 65 70  6f 72 74 5f 66 75 6e 63  |    .report_func|
00008ab0  5f 65 72 72 6f 72 28 67  72 61 25 2c 65 72 72 6f  |_error(gra%,erro|
00008ac0  72 5f 6e 6f 25 29 0d 3a  48 21 20 20 20 20 70 61  |r_no%).:H!    pa|
00008ad0  72 61 5f 70 6c 6f 74 25  28 28 67 72 61 25 2b 31  |ra_plot%((gra%+1|
00008ae0  29 81 20 32 29 3d a3 0d  3a 52 28 20 20 20 20 f2  |). 2)=..:R(    .|
00008af0  75 70 64 61 74 65 70 61  72 61 6d 65 74 72 69 63  |updateparametric|
00008b00  28 70 61 72 61 6d 65 74  72 69 63 25 2c 39 29 0d  |(parametric%,9).|
00008b10  3a 5c 07 20 20 cd 0d 3a  66 25 20 f2 65 78 74 5f  |:\.  ..:f% .ext_|
00008b20  66 75 6e 63 28 70 61 72  61 5f 66 75 6e 63 74 69  |func(para_functi|
00008b30  6f 6e 73 24 28 67 72 61  25 29 29 0d 3a 70 05 cd  |ons$(gra%)).:p..|
00008b40  0d 3a 7a 05 ed 0d 3a 84  05 e1 0d 3a 8e 04 0d 3a  |.:z...:....:...:|
00008b50  98 04 0d 3a a2 04 0d 3a  ac 04 0d 3a b6 4b dd f2  |...:...:...:.K..|
00008b60  72 65 74 5f 70 61 72 61  5f 72 61 6e 67 65 28 52  |ret_para_range(R|
00008b70  45 54 55 52 4e 6d 69 6e  78 2c 52 45 54 55 52 4e  |ETURNminx,RETURN|
00008b80  6d 61 78 78 2c 52 45 54  55 52 4e 6d 69 6e 79 2c  |maxx,RETURNminy,|
00008b90  52 45 54 55 52 4e 6d 61  78 79 2c 6d 69 6e 74 2c  |RETURNmaxy,mint,|
00008ba0  6d 61 78 74 29 0d 3a c0  20 69 6e 63 72 65 6d 65  |maxt).:. increme|
00008bb0  6e 74 20 3d 20 28 6d 61  78 74 2d 6d 69 6e 74 29  |nt = (maxt-mint)|
00008bc0  2f 31 32 38 30 0d 3a ca  18 65 6e 74 65 72 65 64  |/1280.:..entered|
00008bd0  5f 6d 61 78 79 3d 20 2d  31 30 45 33 30 0d 3a d4  |_maxy= -10E30.:.|
00008be0  18 65 6e 74 65 72 65 64  5f 6d 69 6e 79 3d 20 20  |.entered_miny=  |
00008bf0  31 30 45 33 30 0d 3a de  18 65 6e 74 65 72 65 64  |10E30.:..entered|
00008c00  5f 6d 61 78 78 3d 20 2d  31 30 45 33 30 0d 3a e8  |_maxx= -10E30.:.|
00008c10  18 65 6e 74 65 72 65 64  5f 6d 69 6e 78 3d 20 20  |.entered_minx=  |
00008c20  31 30 45 33 30 0d 3a f2  14 e3 20 67 72 61 70 68  |10E30.:... graph|
00008c30  25 20 3d 20 31 20 b8 20  33 0d 3a fc 13 58 25 20  |% = 1 . 3.:..X% |
00008c40  3d 20 67 72 61 70 68 25  2a 32 2d 31 0d 3b 06 11  |= graph%*2-1.;..|
00008c50  59 25 20 3d 20 67 72 61  70 68 25 2a 32 0d 3b 10  |Y% = graph%*2.;.|
00008c60  1a e7 20 70 61 72 61 5f  70 6c 6f 74 25 28 67 72  |.. para_plot%(gr|
00008c70  61 70 68 25 29 20 8c 0d  3b 1a 37 20 20 c8 99 22  |aph%) ..;.7  .."|
00008c80  48 6f 75 72 67 6c 61 73  73 5f 50 65 72 63 65 6e  |Hourglass_Percen|
00008c90  74 61 67 65 22 2c 31 30  30 2d 28 63 6f 75 6e 74  |tage",100-(count|
00008ca0  31 25 2f 63 6f 75 6e 74  25 29 2a 31 30 30 0d 3b  |1%/count%)*100.;|
00008cb0  24 13 e3 20 54 25 20 3d  20 30 20 b8 20 31 32 38  |$.. T% = 0 . 128|
00008cc0  30 0d 3b 2e 1a 20 20 54  3d 20 6d 69 6e 74 2b 69  |0.;..  T= mint+i|
00008cd0  6e 63 72 65 6d 65 6e 74  2a 54 25 0d 3b 38 09 20  |ncrement*T%.;8. |
00008ce0  20 74 3d 54 0d 3b 42 0d  20 20 6f 6b 25 20 3d 20  | t=T.;B.  ok% = |
00008cf0  b9 0d 3b 4c 09 20 20 ea  20 85 0d 3b 56 13 20 20  |..;L.  . ..;V.  |
00008d00  ee 20 85 20 ea 20 6f 6b  25 20 3d 20 a3 0d 3b 60  |. . . ok% = ..;`|
00008d10  0d 20 20 e7 20 6f 6b 25  20 8c 0d 3b 6a 24 20 20  |.  . ok% ..;j$  |
00008d20  20 20 76 61 6c 75 65 20  3d 20 a0 70 61 72 61 5f  |  value = .para_|
00008d30  66 75 6e 63 74 69 6f 6e  73 24 28 59 25 29 0d 3b  |functions$(Y%).;|
00008d40  74 33 20 20 e7 20 76 61  6c 75 65 20 3c 20 65 6e  |t3  . value < en|
00008d50  74 65 72 65 64 5f 6d 69  6e 79 20 8c 20 65 6e 74  |tered_miny . ent|
00008d60  65 72 65 64 5f 6d 69 6e  79 20 3d 20 76 61 6c 75  |ered_miny = valu|
00008d70  65 0d 3b 7e 33 20 20 e7  20 76 61 6c 75 65 20 3e  |e.;~3  . value >|
00008d80  20 65 6e 74 65 72 65 64  5f 6d 61 78 79 20 8c 20  | entered_maxy . |
00008d90  65 6e 74 65 72 65 64 5f  6d 61 78 79 20 3d 20 76  |entered_maxy = v|
00008da0  61 6c 75 65 0d 3b 88 07  20 20 cd 0d 3b 92 09 20  |alue.;..  ..;.. |
00008db0  20 f7 20 85 0d 3b 9c 0d  20 20 6f 6b 25 20 3d 20  | . ..;..  ok% = |
00008dc0  b9 0d 3b a6 09 20 20 ea  20 85 0d 3b b0 13 20 20  |..;..  . ..;..  |
00008dd0  ee 20 85 20 ea 20 6f 6b  25 20 3d 20 a3 0d 3b ba  |. . . ok% = ..;.|
00008de0  0d 20 20 e7 20 6f 6b 25  20 8c 0d 3b c4 24 20 20  |.  . ok% ..;.$  |
00008df0  20 20 76 61 6c 75 65 20  3d 20 a0 70 61 72 61 5f  |  value = .para_|
00008e00  66 75 6e 63 74 69 6f 6e  73 24 28 58 25 29 0d 3b  |functions$(X%).;|
00008e10  ce 33 20 20 e7 20 76 61  6c 75 65 20 3c 20 65 6e  |.3  . value < en|
00008e20  74 65 72 65 64 5f 6d 69  6e 78 20 8c 20 65 6e 74  |tered_minx . ent|
00008e30  65 72 65 64 5f 6d 69 6e  78 20 3d 20 76 61 6c 75  |ered_minx = valu|
00008e40  65 0d 3b d8 33 20 20 e7  20 76 61 6c 75 65 20 3e  |e.;.3  . value >|
00008e50  20 65 6e 74 65 72 65 64  5f 6d 61 78 78 20 8c 20  | entered_maxx . |
00008e60  65 6e 74 65 72 65 64 5f  6d 61 78 78 20 3d 20 76  |entered_maxx = v|
00008e70  61 6c 75 65 0d 3b e2 07  20 20 cd 0d 3b ec 09 20  |alue.;..  ..;.. |
00008e80  20 f7 20 85 0d 3b f6 05  ed 0d 3c 00 10 20 20 63  | . ..;....<..  c|
00008e90  6f 75 6e 74 31 25 2d 3d  31 0d 3c 0a 05 cd 0d 3c  |ount1%-=1.<....<|
00008ea0  14 05 ed 0d 3c 1e 09 41  25 3d 40 25 0d 3c 28 10  |....<..A%=@%.<(.|
00008eb0  40 25 3d 26 30 31 30 30  30 33 30 38 0d 3c 32 4d  |@%=&01000308.<2M|
00008ec0  70 61 72 61 5f 6d 69 6e  5f 79 5f 69 63 6f 6e 25  |para_min_y_icon%|
00008ed0  3d a4 63 68 61 6e 67 65  5f 74 65 78 74 28 70 61  |=.change_text(pa|
00008ee0  72 61 61 78 65 73 25 2c  70 61 72 61 5f 6d 69 6e  |raaxes%,para_min|
00008ef0  5f 79 5f 69 63 6f 6e 25  2c c3 28 65 6e 74 65 72  |_y_icon%,.(enter|
00008f00  65 64 5f 6d 69 6e 79 29  29 0d 3c 3c 4d 70 61 72  |ed_miny)).<<Mpar|
00008f10  61 5f 6d 61 78 5f 79 5f  69 63 6f 6e 25 3d a4 63  |a_max_y_icon%=.c|
00008f20  68 61 6e 67 65 5f 74 65  78 74 28 70 61 72 61 61  |hange_text(paraa|
00008f30  78 65 73 25 2c 70 61 72  61 5f 6d 61 78 5f 79 5f  |xes%,para_max_y_|
00008f40  69 63 6f 6e 25 2c c3 28  65 6e 74 65 72 65 64 5f  |icon%,.(entered_|
00008f50  6d 61 78 79 29 29 0d 3c  46 4d 70 61 72 61 5f 6d  |maxy)).<FMpara_m|
00008f60  69 6e 5f 78 5f 69 63 6f  6e 25 3d a4 63 68 61 6e  |in_x_icon%=.chan|
00008f70  67 65 5f 74 65 78 74 28  70 61 72 61 61 78 65 73  |ge_text(paraaxes|
00008f80  25 2c 70 61 72 61 5f 6d  69 6e 5f 78 5f 69 63 6f  |%,para_min_x_ico|
00008f90  6e 25 2c c3 28 65 6e 74  65 72 65 64 5f 6d 69 6e  |n%,.(entered_min|
00008fa0  78 29 29 0d 3c 50 4d 70  61 72 61 5f 6d 61 78 5f  |x)).<PMpara_max_|
00008fb0  78 5f 69 63 6f 6e 25 3d  a4 63 68 61 6e 67 65 5f  |x_icon%=.change_|
00008fc0  74 65 78 74 28 70 61 72  61 61 78 65 73 25 2c 70  |text(paraaxes%,p|
00008fd0  61 72 61 5f 6d 61 78 5f  78 5f 69 63 6f 6e 25 2c  |ara_max_x_icon%,|
00008fe0  c3 28 65 6e 74 65 72 65  64 5f 6d 61 78 78 29 29  |.(entered_maxx))|
00008ff0  0d 3c 5a 17 6d 69 6e 78  20 3d 20 65 6e 74 65 72  |.<Z.minx = enter|
00009000  65 64 5f 6d 69 6e 78 0d  3c 64 17 6d 61 78 78 20  |ed_minx.<d.maxx |
00009010  3d 20 65 6e 74 65 72 65  64 5f 6d 61 78 78 0d 3c  |= entered_maxx.<|
00009020  6e 17 6d 69 6e 79 20 3d  20 65 6e 74 65 72 65 64  |n.miny = entered|
00009030  5f 6d 69 6e 79 0d 3c 78  17 6d 61 78 79 20 3d 20  |_miny.<x.maxy = |
00009040  65 6e 74 65 72 65 64 5f  6d 61 78 79 0d 3c 82 32  |entered_maxy.<.2|
00009050  c8 99 20 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |.. "Wimp_ForceRe|
00009060  64 72 61 77 22 2c 70 61  72 61 61 78 65 73 25 2c  |draw",paraaxes%,|
00009070  30 2c 2d 31 32 38 30 2c  31 32 38 30 2c 30 0d 3c  |0,-1280,1280,0.<|
00009080  8c 09 40 25 3d 41 25 0d  3c 96 25 f2 61 64 6a 75  |..@%=A%.<.%.adju|
00009090  73 74 5f 61 78 65 73 28  6d 61 78 78 2c 6d 69 6e  |st_axes(maxx,min|
000090a0  78 2c 6d 61 78 79 2c 6d  69 6e 79 29 0d 3c a0 05  |x,maxy,miny).<..|
000090b0  e1 0d 3c aa 04 0d 3c b4  04 0d 3c be 45 dd 20 f2  |..<...<...<.E. .|
000090c0  63 61 6c 63 5f 70 61 72  61 5f 61 78 65 73 28 6d  |calc_para_axes(m|
000090d0  69 6e 78 2c 6d 61 78 78  2c 6d 69 6e 79 2c 6d 61  |inx,maxx,miny,ma|
000090e0  78 79 2c 79 66 61 63 74  6f 72 2c 79 5f 73 68 69  |xy,yfactor,y_shi|
000090f0  66 74 25 2c 69 6e 63 72  65 6d 65 6e 74 29 0d 3c  |ft%,increment).<|
00009100  c8 09 41 25 3d 40 25 0d  3c d2 10 40 25 3d 26 30  |..A%=@%.<..@%=&0|
00009110  31 30 30 30 31 30 38 0d  3c dc 1e e7 20 30 20 3e  |1000108.<... 0 >|
00009120  3d 20 6d 69 6e 79 20 80  20 30 20 3c 3d 20 6d 61  |= miny . 0 <= ma|
00009130  78 79 20 20 8c 0d 3c e6  15 20 20 78 5f 61 78 65  |xy  ..<..  x_axe|
00009140  73 5f 6c 65 76 65 6c 3d  20 30 0d 3c f0 2a 20 20  |s_level= 0.<.*  |
00009150  78 5f 61 78 65 73 5f 6c  65 76 65 6c 25 20 3d 20  |x_axes_level% = |
00009160  30 20 2a 20 79 66 61 63  74 6f 72 2d 79 5f 73 68  |0 * yfactor-y_sh|
00009170  69 66 74 25 0d 3c fa 07  20 20 cc 0d 3d 04 27 20  |ift%.<..  ..=.' |
00009180  20 78 5f 61 78 65 73 5f  6c 65 76 65 6c 3d 20 bb  | x_axes_level= .|
00009190  28 c3 28 28 6d 61 78 79  2b 6d 69 6e 79 29 29 29  |(.((maxy+miny)))|
000091a0  2f 32 0d 3d 0e 36 20 20  78 5f 61 78 65 73 5f 6c  |/2.=.6  x_axes_l|
000091b0  65 76 65 6c 25 20 3d 20  78 5f 61 78 65 73 5f 6c  |evel% = x_axes_l|
000091c0  65 76 65 6c 20 20 2a 20  79 66 61 63 74 6f 72 2d  |evel  * yfactor-|
000091d0  79 5f 73 68 69 66 74 25  0d 3d 18 05 cd 0d 3d 22  |y_shift%.=....="|
000091e0  1e e7 20 30 20 3e 3d 20  6d 69 6e 78 20 80 20 30  |.. 0 >= minx . 0|
000091f0  20 3c 3d 20 6d 61 78 78  20 20 8c 0d 3d 2c 2e 20  | <= maxx  ..=,. |
00009200  20 79 5f 61 78 65 73 5f  6c 65 76 65 6c 25 20 3d  | y_axes_level% =|
00009210  20 31 32 38 30 2f 28 6d  61 78 78 2d 6d 69 6e 78  | 1280/(maxx-minx|
00009220  29 2a 28 2d 6d 69 6e 78  29 0d 3d 36 14 20 20 79  |)*(-minx).=6.  y|
00009230  5f 61 78 65 73 5f 6c 65  76 65 6c 3d 30 0d 3d 40  |_axes_level=0.=@|
00009240  07 20 20 cc 0d 3d 4a 27  20 20 79 5f 61 78 65 73  |.  ..=J'  y_axes|
00009250  5f 6c 65 76 65 6c 3d 20  bb 28 c3 28 28 6d 61 78  |_level= .(.((max|
00009260  78 2b 6d 69 6e 78 29 29  29 2f 32 0d 3d 54 3a 20  |x+minx)))/2.=T: |
00009270  20 79 5f 61 78 65 73 5f  6c 65 76 65 6c 25 20 3d  | y_axes_level% =|
00009280  20 31 32 38 30 2f 28 6d  61 78 78 2d 6d 69 6e 78  | 1280/(maxx-minx|
00009290  29 2a 28 79 5f 61 78 65  73 5f 6c 65 76 65 6c 2d  |)*(y_axes_level-|
000092a0  6d 69 6e 78 29 0d 3d 5e  05 cd 0d 3d 68 09 40 25  |minx).=^...=h.@%|
000092b0  3d 41 25 0d 3d 72 05 e1  0d 3d 7c 05 20 0d 3d 86  |=A%.=r...=|. .=.|
000092c0  04 0d 3d 90 04 0d 3d 9a  25 dd 20 f2 75 70 64 61  |..=...=.%. .upda|
000092d0  74 65 70 6f 6c 61 72 61  78 65 73 28 77 69 6e 64  |tepolaraxes(wind|
000092e0  6f 77 25 2c 69 63 6f 6e  25 29 0d 3d a4 24 e7 20  |ow%,icon%).=.$. |
000092f0  69 63 6f 6e 25 20 3d 20  70 6f 6c 61 72 5f 61 78  |icon% = polar_ax|
00009300  65 73 5f 79 65 73 5f 69  63 6f 6e 25 20 8c 0d 3d  |es_yes_icon% ..=|
00009310  ae 2a 20 20 61 75 74 6f  5f 70 6f 6c 61 72 5f 61  |.*  auto_polar_a|
00009320  78 65 73 25 3d 20 ac 20  61 75 74 6f 5f 70 6f 6c  |xes%= . auto_pol|
00009330  61 72 5f 61 78 65 73 25  0d 3d b8 19 20 e7 20 61  |ar_axes%.=.. . a|
00009340  75 74 6f 5f 70 6f 6c 61  72 5f 61 78 65 73 25 20  |uto_polar_axes% |
00009350  8c 0d 3d c2 3b 20 70 6f  6c 61 72 5f 61 78 65 73  |..=.; polar_axes|
00009360  5f 79 65 73 5f 69 63 6f  6e 25 3d a4 63 68 61 6e  |_yes_icon%=.chan|
00009370  67 65 5f 74 65 78 74 28  77 69 6e 64 6f 77 25 2c  |ge_text(window%,|
00009380  69 63 6f 6e 25 2c 22 59  45 53 22 29 0d 3d cc 2a  |icon%,"YES").=.*|
00009390  20 f2 64 65 73 65 6c 65  63 74 28 77 69 6e 64 6f  | .deselect(windo|
000093a0  77 25 2c 70 6f 6c 61 72  5f 72 61 64 69 75 73 5f  |w%,polar_radius_|
000093b0  69 63 6f 6e 25 29 0d 3d  d6 05 cc 0d 3d e0 3a 20  |icon%).=....=.: |
000093c0  70 6f 6c 61 72 5f 61 78  65 73 5f 79 65 73 5f 69  |polar_axes_yes_i|
000093d0  63 6f 6e 25 3d a4 63 68  61 6e 67 65 5f 74 65 78  |con%=.change_tex|
000093e0  74 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |t(window%,icon%,|
000093f0  22 4e 4f 22 29 0d 3d ea  2a 20 f2 72 65 73 65 6c  |"NO").=.* .resel|
00009400  65 63 74 28 77 69 6e 64  6f 77 25 2c 70 6f 6c 61  |ect(window%,pola|
00009410  72 5f 72 61 64 69 75 73  5f 69 63 6f 6e 25 29 0d  |r_radius_icon%).|
00009420  3d f4 05 cd 0d 3d fe 05  cd 0d 3e 08 2e c8 99 20  |=....=....>.... |
00009430  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
00009440  77 22 2c 77 69 6e 64 6f  77 25 2c 30 2c 2d 33 30  |w",window%,0,-30|
00009450  30 2c 38 30 30 2c 30 0d  3e 12 05 e1 0d 3e 1c 04  |0,800,0.>....>..|
00009460  0d 3e 26 04 0d 3e 30 04  0d 3e 3a 05 20 0d 3e 44  |.>&..>0..>:. .>D|
00009470  04 0d 3e 4e 16 dd 20 f2  63 61 6c 63 75 6c 61 74  |..>N.. .calculat|
00009480  65 5f 70 6f 6c 61 72 0d  3e 58 15 ea 20 63 6f 75  |e_polar.>X.. cou|
00009490  6e 74 25 2c 20 63 6f 75  6e 74 31 25 0d 3e 62 14  |nt%, count1%.>b.|
000094a0  77 69 6e 64 6f 77 25 20  3d 20 70 6f 6c 61 72 25  |window% = polar%|
000094b0  0d 3e 6c 0d f2 67 6c 61  73 73 28 b9 29 0d 3e 76  |.>l..glass(.).>v|
000094c0  0e 63 6f 75 6e 74 25 20  3d 20 30 0d 3e 80 13 e3  |.count% = 0.>...|
000094d0  20 67 72 61 70 68 25 3d  20 31 20 b8 20 33 0d 3e  | graph%= 1 . 3.>|
000094e0  8a 29 20 20 20 e7 20 70  6f 6c 61 72 5f 70 6c 6f  |.)   . polar_plo|
000094f0  74 25 28 67 72 61 70 68  25 29 20 8c 20 63 6f 75  |t%(graph%) . cou|
00009500  6e 74 25 20 2b 3d 31 0d  3e 94 05 ed 0d 3e 9e 13  |nt% +=1.>....>..|
00009510  63 6f 75 6e 74 31 25 3d  20 63 6f 75 6e 74 25 0d  |count1%= count%.|
00009520  3e a8 1c f2 65 78 74 72  61 63 74 5f 70 6f 6c 61  |>...extract_pola|
00009530  72 5f 66 75 6e 63 74 69  6f 6e 73 0d 3e b2 1c f2  |r_functions.>...|
00009540  63 6f 6e 76 65 72 74 5f  70 6f 6c 61 72 5f 66 75  |convert_polar_fu|
00009550  6e 63 74 69 6f 6e 73 0d  3e bc 1c f2 72 65 74 75  |nctions.>...retu|
00009560  72 6e 5f 70 6f 6c 61 72  61 78 65 73 5f 76 61 6c  |rn_polaraxes_val|
00009570  75 65 73 0d 3e c6 19 e7  20 20 61 75 74 6f 5f 70  |ues.>...  auto_p|
00009580  6f 6c 61 72 5f 61 78 65  73 25 20 8c 0d 3e d0 16  |olar_axes% ..>..|
00009590  20 20 63 6f 75 6e 74 25  20 3d 63 6f 75 6e 74 25  |  count% =count%|
000095a0  2a 32 0d 3e da 17 20 20  63 6f 75 6e 74 31 25 3d  |*2.>..  count1%=|
000095b0  63 6f 75 6e 74 31 25 2a  32 0d 3e e4 13 20 f2 72  |count1%*2.>.. .r|
000095c0  65 74 75 72 6e 5f 72 61  64 69 75 73 0d 3e ee 05  |eturn_radius.>..|
000095d0  cd 0d 3e f8 2a 69 6e 63  72 65 6d 65 6e 74 20 3d  |..>.*increment =|
000095e0  20 28 6d 61 78 5f 74 68  65 74 61 2d 6d 69 6e 5f  | (max_theta-min_|
000095f0  74 68 65 74 61 29 2f 31  32 38 30 0d 3f 02 1d e7  |theta)/1280.?...|
00009600  20 72 61 64 69 75 73 20  3d 20 30 20 8c 20 72 61  | radius = 0 . ra|
00009610  64 69 75 73 20 3d 20 31  0d 3f 0c 18 79 66 61 63  |dius = 1.?..yfac|
00009620  74 6f 72 20 3d 20 35 31  32 2f 72 61 64 69 75 73  |tor = 512/radius|
00009630  0d 3f 16 12 79 5f 73 68  69 66 74 25 20 3d 20 35  |.?..y_shift% = 5|
00009640  31 32 0d 3f 20 12 78 5f  73 68 69 66 74 25 20 3d  |12.? .x_shift% =|
00009650  20 36 34 30 0d 3f 2a 11  e7 20 20 64 65 67 72 65  | 640.?*..  degre|
00009660  65 73 25 20 8c 0d 3f 34  14 e3 20 67 72 61 70 68  |es% ..?4.. graph|
00009670  25 20 3d 20 31 20 b8 20  33 0d 3f 3e 15 78 25 20  |% = 1 . 3.?>.x% |
00009680  3d 20 67 72 61 70 68 25  20 2a 32 20 2d 32 0d 3f  |= graph% *2 -2.?|
00009690  48 15 79 25 20 3d 20 67  72 61 70 68 25 20 2a 32  |H.y% = graph% *2|
000096a0  20 2d 31 0d 3f 52 28 78  62 61 73 65 25 20 3d 20  | -1.?R(xbase% = |
000096b0  70 6c 6f 74 5f 76 61 6c  75 65 73 25 20 2b 20 78  |plot_values% + x|
000096c0  25 20 2a 34 20 2a 20 31  32 38 30 0d 3f 5c 28 79  |% *4 * 1280.?\(y|
000096d0  62 61 73 65 25 20 3d 20  70 6c 6f 74 5f 76 61 6c  |base% = plot_val|
000096e0  75 65 73 25 20 2b 20 79  25 20 2a 34 20 2a 20 31  |ues% + y% *4 * 1|
000096f0  32 38 30 0d 3f 66 1b e7  20 70 6f 6c 61 72 5f 70  |280.?f.. polar_p|
00009700  6c 6f 74 25 28 67 72 61  70 68 25 29 20 8c 0d 3f  |lot%(graph%) ..?|
00009710  70 35 c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 50  |p5.."Hourglass_P|
00009720  65 72 63 65 6e 74 61 67  65 22 2c 31 30 30 2d 28  |ercentage",100-(|
00009730  63 6f 75 6e 74 31 25 2f  63 6f 75 6e 74 25 29 2a  |count1%/count%)*|
00009740  31 30 30 0d 3f 7a 10 20  63 6f 75 6e 74 31 25 20  |100.?z. count1% |
00009750  2d 3d 31 0d 3f 84 17 e3  20 61 6e 67 6c 65 25 20  |-=1.?... angle% |
00009760  3d 20 30 20 b8 20 31 32  38 30 0d 3f 8e 23 20 20  |= 0 . 1280.?.#  |
00009770  54 3d 20 6d 69 6e 5f 74  68 65 74 61 2b 69 6e 63  |T= min_theta+inc|
00009780  72 65 6d 65 6e 74 2a 61  6e 67 6c 65 25 0d 3f 98  |rement*angle%.?.|
00009790  09 20 20 74 3d 54 0d 3f  a2 0d 20 20 6f 6b 25 20  |.  t=T.?..  ok% |
000097a0  3d 20 b9 0d 3f ac 09 20  20 ea 20 85 0d 3f b6 13  |= ..?..  . ..?..|
000097b0  20 20 ee 20 85 20 ea 20  6f 6b 25 20 3d 20 a3 0d  |  . . . ok% = ..|
000097c0  3f c0 0d 20 20 e7 20 6f  6b 25 20 8c 0d 3f ca 2a  |?..  . ok% ..?.*|
000097d0  20 20 20 20 72 65 73 75  6c 74 20 3d 20 a0 70 6f  |    result = .po|
000097e0  6c 61 72 5f 66 75 6e 63  74 69 6f 6e 73 24 28 67  |lar_functions$(g|
000097f0  72 61 70 68 25 29 0d 3f  d4 07 20 20 cc 0d 3f de  |raph%).?..  ..?.|
00009800  15 20 20 20 20 72 65 73  75 6c 74 20 3d 20 62 69  |.    result = bi|
00009810  67 25 0d 3f e8 07 20 20  cd 0d 3f f2 08 20 f7 20  |g%.?..  ..?.. . |
00009820  85 0d 3f fc 38 20 20 78  62 61 73 65 25 21 28 61  |..?.8  xbase%!(a|
00009830  6e 67 6c 65 25 2a 34 29  20 3d 20 79 66 61 63 74  |ngle%*4) = yfact|
00009840  6f 72 2a 72 65 73 75 6c  74 2a 9b b2 28 74 29 2b  |or*result*..(t)+|
00009850  20 78 5f 73 68 69 66 74  25 0d 40 06 38 20 20 79  | x_shift%.@.8  y|
00009860  62 61 73 65 25 21 28 61  6e 67 6c 65 25 2a 34 29  |base%!(angle%*4)|
00009870  20 3d 20 79 66 61 63 74  6f 72 2a 72 65 73 75 6c  | = yfactor*resul|
00009880  74 2a b5 b2 28 74 29 2d  20 79 5f 73 68 69 66 74  |t*..(t)- y_shift|
00009890  25 0d 40 10 05 ed 0d 40  1a 05 cd 0d 40 24 05 ed  |%.@....@....@$..|
000098a0  0d 40 2e 05 cc 0d 40 38  14 e3 20 67 72 61 70 68  |.@....@8.. graph|
000098b0  25 20 3d 20 31 20 b8 20  33 0d 40 42 15 78 25 20  |% = 1 . 3.@B.x% |
000098c0  3d 20 67 72 61 70 68 25  20 2a 32 20 2d 32 0d 40  |= graph% *2 -2.@|
000098d0  4c 15 79 25 20 3d 20 67  72 61 70 68 25 20 2a 32  |L.y% = graph% *2|
000098e0  20 2d 31 0d 40 56 28 78  62 61 73 65 25 20 3d 20  | -1.@V(xbase% = |
000098f0  70 6c 6f 74 5f 76 61 6c  75 65 73 25 20 2b 20 78  |plot_values% + x|
00009900  25 20 2a 34 20 2a 20 31  32 38 30 0d 40 60 28 79  |% *4 * 1280.@`(y|
00009910  62 61 73 65 25 20 3d 20  70 6c 6f 74 5f 76 61 6c  |base% = plot_val|
00009920  75 65 73 25 20 2b 20 79  25 20 2a 34 20 2a 20 31  |ues% + y% *4 * 1|
00009930  32 38 30 0d 40 6a 1b e7  20 70 6f 6c 61 72 5f 70  |280.@j.. polar_p|
00009940  6c 6f 74 25 28 67 72 61  70 68 25 29 20 8c 0d 40  |lot%(graph%) ..@|
00009950  74 35 c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 50  |t5.."Hourglass_P|
00009960  65 72 63 65 6e 74 61 67  65 22 2c 31 30 30 2d 28  |ercentage",100-(|
00009970  63 6f 75 6e 74 31 25 2f  63 6f 75 6e 74 25 29 2a  |count1%/count%)*|
00009980  31 30 30 0d 40 7e 10 20  63 6f 75 6e 74 31 25 20  |100.@~. count1% |
00009990  2d 3d 31 0d 40 88 17 e3  20 61 6e 67 6c 65 25 20  |-=1.@... angle% |
000099a0  3d 20 30 20 b8 20 31 32  38 30 0d 40 92 23 20 20  |= 0 . 1280.@.#  |
000099b0  54 3d 20 6d 69 6e 5f 74  68 65 74 61 2b 69 6e 63  |T= min_theta+inc|
000099c0  72 65 6d 65 6e 74 2a 61  6e 67 6c 65 25 0d 40 9c  |rement*angle%.@.|
000099d0  09 20 20 74 3d 54 0d 40  a6 0d 20 20 6f 6b 25 20  |.  t=T.@..  ok% |
000099e0  3d 20 b9 0d 40 b0 09 20  20 ea 20 85 0d 40 ba 13  |= ..@..  . ..@..|
000099f0  20 20 ee 20 85 20 ea 20  6f 6b 25 20 3d 20 a3 0d  |  . . . ok% = ..|
00009a00  40 c4 0d 20 20 e7 20 6f  6b 25 20 8c 0d 40 ce 2a  |@..  . ok% ..@.*|
00009a10  20 20 20 20 72 65 73 75  6c 74 20 3d 20 a0 70 6f  |    result = .po|
00009a20  6c 61 72 5f 66 75 6e 63  74 69 6f 6e 73 24 28 67  |lar_functions$(g|
00009a30  72 61 70 68 25 29 0d 40  d8 07 20 20 cc 0d 40 e2  |raph%).@..  ..@.|
00009a40  15 20 20 20 20 72 65 73  75 6c 74 20 3d 20 62 69  |.    result = bi|
00009a50  67 25 0d 40 ec 07 20 20  cd 0d 40 f6 08 20 f7 20  |g%.@..  ..@.. . |
00009a60  85 0d 41 00 38 20 20 78  62 61 73 65 25 21 28 61  |..A.8  xbase%!(a|
00009a70  6e 67 6c 65 25 2a 34 29  20 20 3d 20 79 66 61 63  |ngle%*4)  = yfac|
00009a80  74 6f 72 2a 72 65 73 75  6c 74 2a 9b 28 74 29 2b  |tor*result*.(t)+|
00009a90  20 78 5f 73 68 69 66 74  25 0d 41 0a 37 20 20 79  | x_shift%.A.7  y|
00009aa0  62 61 73 65 25 21 28 61  6e 67 6c 65 25 2a 34 29  |base%!(angle%*4)|
00009ab0  20 3d 20 79 66 61 63 74  6f 72 2a 72 65 73 75 6c  | = yfactor*resul|
00009ac0  74 2a b5 28 74 29 2d 20  79 5f 73 68 69 66 74 25  |t*.(t)- y_shift%|
00009ad0  0d 41 14 05 ed 0d 41 1e  05 cd 0d 41 28 05 ed 0d  |.A....A....A(...|
00009ae0  41 32 05 cd 0d 41 3c 0d  f2 67 6c 61 73 73 28 a3  |A2...A<..glass(.|
00009af0  29 0d 41 46 2e c8 99 20  22 57 69 6d 70 5f 46 6f  |).AF... "Wimp_Fo|
00009b00  72 63 65 52 65 64 72 61  77 22 2c 6d 61 69 6e 25  |rceRedraw",main%|
00009b10  2c 30 2c 2d 31 32 38 30  2c 31 32 38 30 2c 30 0d  |,0,-1280,1280,0.|
00009b20  41 50 05 e1 0d 41 5a 05  20 0d 41 64 04 0d 41 6e  |AP...AZ. .Ad..An|
00009b30  04 0d 41 78 04 0d 41 82  1e dd 20 f2 72 65 74 75  |..Ax..A... .retu|
00009b40  72 6e 5f 70 6f 6c 61 72  61 78 65 73 5f 76 61 6c  |rn_polaraxes_val|
00009b50  75 65 73 0d 41 8c 3c 65  6e 74 65 72 65 64 5f 6d  |ues.A.<entered_m|
00009b60  69 6e 3d bb a4 72 65 61  64 5f 69 63 6f 6e 5f 74  |in=..read_icon_t|
00009b70  65 78 74 28 70 6f 6c 61  72 61 78 65 73 25 2c 70  |ext(polaraxes%,p|
00009b80  6f 6c 61 72 5f 6d 69 6e  5f 69 63 6f 6e 25 29 0d  |olar_min_icon%).|
00009b90  41 96 3c 65 6e 74 65 72  65 64 5f 6d 61 78 3d bb  |A.<entered_max=.|
00009ba0  a4 72 65 61 64 5f 69 63  6f 6e 5f 74 65 78 74 28  |.read_icon_text(|
00009bb0  70 6f 6c 61 72 61 78 65  73 25 2c 70 6f 6c 61 72  |polaraxes%,polar|
00009bc0  5f 6d 61 78 5f 69 63 6f  6e 25 29 0d 41 a0 3f 65  |_max_icon%).A.?e|
00009bd0  6e 74 65 72 65 64 5f 72  61 64 3d bb a4 72 65 61  |ntered_rad=..rea|
00009be0  64 5f 69 63 6f 6e 5f 74  65 78 74 28 70 6f 6c 61  |d_icon_text(pola|
00009bf0  72 61 78 65 73 25 2c 70  6f 6c 61 72 5f 72 61 64  |raxes%,polar_rad|
00009c00  69 75 73 5f 69 63 6f 6e  25 29 0d 41 aa 1b 6d 69  |ius_icon%).A..mi|
00009c10  6e 5f 74 68 65 74 61 20  3d 20 65 6e 74 65 72 65  |n_theta = entere|
00009c20  64 5f 6d 69 6e 0d 41 b4  1b 6d 61 78 5f 74 68 65  |d_min.A..max_the|
00009c30  74 61 20 3d 20 65 6e 74  65 72 65 64 5f 6d 61 78  |ta = entered_max|
00009c40  0d 41 be 1c 72 61 64 69  75 73 20 3d 20 65 6e 74  |.A..radius = ent|
00009c50  65 72 65 64 5f 72 61 64  2a 31 2e 32 0d 41 c8 05  |ered_rad*1.2.A..|
00009c60  e1 0d 41 d2 04 0d 41 dc  21 dd 20 f2 75 70 64 61  |..A...A.!. .upda|
00009c70  74 65 70 6f 6c 61 72 28  77 69 6e 64 6f 77 25 2c  |tepolar(window%,|
00009c80  69 63 6f 6e 25 29 0d 41  e6 1c f2 65 78 74 72 61  |icon%).A...extra|
00009c90  63 74 5f 70 6f 6c 61 72  5f 66 75 6e 63 74 69 6f  |ct_polar_functio|
00009ca0  6e 73 0d 41 f0 29 20 e7  20 70 6f 6c 61 72 5f 70  |ns.A.) . polar_p|
00009cb0  6c 6f 74 25 28 63 75 72  72 65 6e 74 5f 70 6f 6c  |lot%(current_pol|
00009cc0  61 72 5f 66 75 6e 63 25  29 20 8c 0d 41 fa 4a 20  |ar_func%) ..A.J |
00009cd0  70 6f 6c 61 72 5f 66 75  6e 63 5f 79 65 73 5f 69  |polar_func_yes_i|
00009ce0  63 6f 6e 25 3d a4 63 68  61 6e 67 65 5f 74 65 78  |con%=.change_tex|
00009cf0  74 28 77 69 6e 64 6f 77  25 2c 70 6f 6c 61 72 5f  |t(window%,polar_|
00009d00  66 75 6e 63 5f 79 65 73  5f 69 63 6f 6e 25 2c 22  |func_yes_icon%,"|
00009d10  59 45 53 22 29 0d 42 04  05 cc 0d 42 0e 49 20 70  |YES").B....B.I p|
00009d20  6f 6c 61 72 5f 66 75 6e  63 5f 79 65 73 5f 69 63  |olar_func_yes_ic|
00009d30  6f 6e 25 3d a4 63 68 61  6e 67 65 5f 74 65 78 74  |on%=.change_text|
00009d40  28 77 69 6e 64 6f 77 25  2c 70 6f 6c 61 72 5f 66  |(window%,polar_f|
00009d50  75 6e 63 5f 79 65 73 5f  69 63 6f 6e 25 2c 22 4e  |unc_yes_icon%,"N|
00009d60  4f 22 29 0d 42 18 05 cd  0d 42 22 24 e7 20 69 63  |O").B....B"$. ic|
00009d70  6f 6e 25 20 3d 20 70 6f  6c 61 72 5f 66 75 6e 63  |on% = polar_func|
00009d80  5f 79 65 73 5f 69 63 6f  6e 25 20 8c 0d 42 2c 4b  |_yes_icon% ..B,K|
00009d90  20 20 70 6f 6c 61 72 5f  70 6c 6f 74 25 28 63 75  |  polar_plot%(cu|
00009da0  72 72 65 6e 74 5f 70 6f  6c 61 72 5f 66 75 6e 63  |rrent_polar_func|
00009db0  25 29 20 3d 20 ac 20 70  6f 6c 61 72 5f 70 6c 6f  |%) = . polar_plo|
00009dc0  74 25 28 63 75 72 72 65  6e 74 5f 70 6f 6c 61 72  |t%(current_polar|
00009dd0  5f 66 75 6e 63 25 29 0d  42 36 29 20 e7 20 70 6f  |_func%).B6) . po|
00009de0  6c 61 72 5f 70 6c 6f 74  25 28 63 75 72 72 65 6e  |lar_plot%(curren|
00009df0  74 5f 70 6f 6c 61 72 5f  66 75 6e 63 25 29 20 8c  |t_polar_func%) .|
00009e00  0d 42 40 3b 20 70 6f 6c  61 72 5f 66 75 6e 63 5f  |.B@; polar_func_|
00009e10  79 65 73 5f 69 63 6f 6e  25 3d a4 63 68 61 6e 67  |yes_icon%=.chang|
00009e20  65 5f 74 65 78 74 28 77  69 6e 64 6f 77 25 2c 69  |e_text(window%,i|
00009e30  63 6f 6e 25 2c 22 59 45  53 22 29 0d 42 4a 05 cc  |con%,"YES").BJ..|
00009e40  0d 42 54 3a 20 70 6f 6c  61 72 5f 66 75 6e 63 5f  |.BT: polar_func_|
00009e50  79 65 73 5f 69 63 6f 6e  25 3d a4 63 68 61 6e 67  |yes_icon%=.chang|
00009e60  65 5f 74 65 78 74 28 77  69 6e 64 6f 77 25 2c 69  |e_text(window%,i|
00009e70  63 6f 6e 25 2c 22 4e 4f  22 29 0d 42 5e 05 cd 0d  |con%,"NO").B^...|
00009e80  42 68 05 cd 0d 42 72 2b  e7 20 69 63 6f 6e 25 20  |Bh...Br+. icon% |
00009e90  3d 20 34 20 80 20 63 75  72 72 65 6e 74 5f 70 6f  |= 4 . current_po|
00009ea0  6c 61 72 5f 66 75 6e 63  25 20 3e 20 31 20 8c 0d  |lar_func% > 1 ..|
00009eb0  42 7c 1f 20 20 20 20 63  75 72 72 65 6e 74 5f 70  |B|.    current_p|
00009ec0  6f 6c 61 72 5f 66 75 6e  63 25 20 2d 3d 31 0d 42  |olar_func% -=1.B|
00009ed0  86 60 70 6f 6c 61 72 5f  66 75 6e 63 5f 63 6f 75  |.`polar_func_cou|
00009ee0  6e 74 5f 69 63 6f 6e 25  20 3d 20 a4 63 68 61 6e  |nt_icon% = .chan|
00009ef0  67 65 5f 74 65 78 74 28  77 69 6e 64 6f 77 25 2c  |ge_text(window%,|
00009f00  70 6f 6c 61 72 5f 66 75  6e 63 5f 63 6f 75 6e 74  |polar_func_count|
00009f10  5f 69 63 6f 6e 25 2c c3  28 63 75 72 72 65 6e 74  |_icon%,.(current|
00009f20  5f 70 6f 6c 61 72 5f 66  75 6e 63 25 29 29 0d 42  |_polar_func%)).B|
00009f30  90 05 cd 0d 42 9a 2b e7  20 69 63 6f 6e 25 20 3d  |....B.+. icon% =|
00009f40  20 35 20 80 20 63 75 72  72 65 6e 74 5f 70 6f 6c  | 5 . current_pol|
00009f50  61 72 5f 66 75 6e 63 25  20 3c 20 33 20 8c 0d 42  |ar_func% < 3 ..B|
00009f60  a4 1f 20 20 20 20 63 75  72 72 65 6e 74 5f 70 6f  |..    current_po|
00009f70  6c 61 72 5f 66 75 6e 63  25 20 2b 3d 31 0d 42 ae  |lar_func% +=1.B.|
00009f80  60 70 6f 6c 61 72 5f 66  75 6e 63 5f 63 6f 75 6e  |`polar_func_coun|
00009f90  74 5f 69 63 6f 6e 25 20  3d 20 a4 63 68 61 6e 67  |t_icon% = .chang|
00009fa0  65 5f 74 65 78 74 28 77  69 6e 64 6f 77 25 2c 70  |e_text(window%,p|
00009fb0  6f 6c 61 72 5f 66 75 6e  63 5f 63 6f 75 6e 74 5f  |olar_func_count_|
00009fc0  69 63 6f 6e 25 2c c3 28  63 75 72 72 65 6e 74 5f  |icon%,.(current_|
00009fd0  70 6f 6c 61 72 5f 66 75  6e 63 25 29 29 0d 42 b8  |polar_func%)).B.|
00009fe0  05 cd 0d 42 c2 41 70 6f  6c 61 72 5f 66 75 6e 63  |...B.Apolar_func|
00009ff0  5f 69 63 6f 6e 25 3d a4  75 70 64 61 74 65 5f 70  |_icon%=.update_p|
0000a000  6f 6c 61 72 5f 66 75 6e  63 74 69 6f 6e 28 20 63  |olar_function( c|
0000a010  75 72 72 65 6e 74 5f 70  6f 6c 61 72 5f 66 75 6e  |urrent_polar_fun|
0000a020  63 25 29 0d 42 cc 28 e7  20 70 6f 6c 61 72 5f 70  |c%).B.(. polar_p|
0000a030  6c 6f 74 25 28 63 75 72  72 65 6e 74 5f 70 6f 6c  |lot%(current_pol|
0000a040  61 72 5f 66 75 6e 63 25  29 20 8c 0d 42 d6 4a 20  |ar_func%) ..B.J |
0000a050  70 6f 6c 61 72 5f 66 75  6e 63 5f 79 65 73 5f 69  |polar_func_yes_i|
0000a060  63 6f 6e 25 3d a4 63 68  61 6e 67 65 5f 74 65 78  |con%=.change_tex|
0000a070  74 28 77 69 6e 64 6f 77  25 2c 70 6f 6c 61 72 5f  |t(window%,polar_|
0000a080  66 75 6e 63 5f 79 65 73  5f 69 63 6f 6e 25 2c 22  |func_yes_icon%,"|
0000a090  59 65 73 22 29 0d 42 e0  05 cc 0d 42 ea 49 20 70  |Yes").B....B.I p|
0000a0a0  6f 6c 61 72 5f 66 75 6e  63 5f 79 65 73 5f 69 63  |olar_func_yes_ic|
0000a0b0  6f 6e 25 3d a4 63 68 61  6e 67 65 5f 74 65 78 74  |on%=.change_text|
0000a0c0  28 77 69 6e 64 6f 77 25  2c 70 6f 6c 61 72 5f 66  |(window%,polar_f|
0000a0d0  75 6e 63 5f 79 65 73 5f  69 63 6f 6e 25 2c 22 4e  |unc_yes_icon%,"N|
0000a0e0  6f 22 29 0d 42 f4 05 cd  0d 42 fe 37 f2 73 65 74  |o").B....B.7.set|
0000a0f0  5f 67 72 61 70 68 5f 63  6f 6c 6f 75 72 5f 69 63  |_graph_colour_ic|
0000a100  6f 6e 28 77 69 6e 64 6f  77 25 2c 63 75 72 72 65  |on(window%,curre|
0000a110  6e 74 5f 70 6f 6c 61 72  5f 66 75 6e 63 25 29 0d  |nt_polar_func%).|
0000a120  43 08 15 21 62 6c 6f 63  6b 25 20 3d 20 77 69 6e  |C..!block% = win|
0000a130  64 6f 77 25 0d 43 12 2e  c8 99 20 22 57 69 6d 70  |dow%.C.... "Wimp|
0000a140  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 77 69  |_ForceRedraw",wi|
0000a150  6e 64 6f 77 25 2c 30 2c  2d 33 30 30 2c 39 30 30  |ndow%,0,-300,900|
0000a160  2c 30 0d 43 1c 05 e1 0d  43 26 04 0d 43 30 04 0d  |,0.C....C&..C0..|
0000a170  43 3a 24 dd 20 a4 75 70  64 61 74 65 5f 70 6f 6c  |C:$. .update_pol|
0000a180  61 72 5f 66 75 6e 63 74  69 6f 6e 28 20 69 74 65  |ar_function( ite|
0000a190  6d 25 29 0d 43 44 15 21  62 6c 6f 63 6b 25 20 3d  |m%).CD.!block% =|
0000a1a0  20 77 69 6e 64 6f 77 25  0d 43 4e 1f 62 6c 6f 63  | window%.CN.bloc|
0000a1b0  6b 25 21 34 20 3d 20 70  6f 6c 61 72 5f 66 75 6e  |k%!4 = polar_fun|
0000a1c0  63 5f 69 63 6f 6e 25 0d  43 58 22 c8 99 20 22 57  |c_icon%.CX".. "W|
0000a1d0  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
0000a1e0  22 2c 2c 62 6c 6f 63 6b  25 0d 43 62 20 c8 99 20  |",,block%.Cb .. |
0000a1f0  22 57 69 6d 70 5f 44 65  6c 65 74 65 49 63 6f 6e  |"Wimp_DeleteIcon|
0000a200  22 2c 2c 62 6c 6f 63 6b  25 0d 43 6c 2a e3 20 62  |",,block%.Cl*. b|
0000a210  65 6c 6f 77 25 20 3d 20  62 6c 6f 63 6b 25 20 2b  |elow% = block% +|
0000a220  20 34 20 b8 20 62 6c 6f  63 6b 25 20 2b 33 35 20  | 4 . block% +35 |
0000a230  88 20 34 0d 43 76 18 20  20 21 62 65 6c 6f 77 25  |. 4.Cv.  !below%|
0000a240  20 3d 20 62 65 6c 6f 77  25 21 34 0d 43 80 05 ed  | = below%!4.C...|
0000a250  0d 43 8a 17 74 65 78 74  25 20 3d 20 62 6c 6f 63  |.C..text% = bloc|
0000a260  6b 25 20 2b 20 32 34 0d  43 94 1d 76 61 6c 69 64  |k% + 24.C..valid|
0000a270  61 74 69 6f 6e 25 20 3d  20 62 6c 6f 63 6b 25 20  |ation% = block% |
0000a280  2b 20 32 38 0d 43 9e 20  62 75 66 66 65 72 5f 6c  |+ 28.C. buffer_l|
0000a290  65 6e 67 74 68 25 20 3d  20 62 6c 6f 63 6b 25 20  |ength% = block% |
0000a2a0  2b 20 33 32 0d 43 a8 25  21 74 65 78 74 25 20 3d  |+ 32.C.%!text% =|
0000a2b0  20 63 75 72 72 65 6e 74  5f 70 6f 6c 61 72 5f 66  | current_polar_f|
0000a2c0  75 6e 63 5f 74 65 78 74  25 0d 43 b2 15 21 76 61  |unc_text%.C..!va|
0000a2d0  6c 69 64 61 74 69 6f 6e  25 20 3d 20 2d 31 0d 43  |lidation% = -1.C|
0000a2e0  bc 19 21 62 75 66 66 65  72 5f 6c 65 6e 67 74 68  |..!buffer_length|
0000a2f0  25 20 3d 20 31 30 30 0d  43 c6 3f 24 63 75 72 72  |% = 100.C.?$curr|
0000a300  65 6e 74 5f 70 6f 6c 61  72 5f 66 75 6e 63 5f 74  |ent_polar_func_t|
0000a310  65 78 74 25 20 3d 20 65  6e 74 65 72 65 64 5f 70  |ext% = entered_p|
0000a320  6f 6c 61 72 5f 66 75 6e  63 74 69 6f 6e 73 24 28  |olar_functions$(|
0000a330  69 74 65 6d 25 29 0d 43  d0 28 c8 99 20 22 57 69  |item%).C.(.. "Wi|
0000a340  6d 70 5f 43 72 65 61 74  65 49 63 6f 6e 22 2c 2c  |mp_CreateIcon",,|
0000a350  62 6c 6f 63 6b 25 20 b8  20 69 63 6f 6e 25 0d 43  |block% . icon%.C|
0000a360  da 0a 3d 69 63 6f 6e 25  0d 43 e4 04 0d 43 ee 04  |..=icon%.C...C..|
0000a370  0d 43 f8 1e dd 20 f2 65  78 74 72 61 63 74 5f 70  |.C... .extract_p|
0000a380  6f 6c 61 72 5f 66 75 6e  63 74 69 6f 6e 73 0d 44  |olar_functions.D|
0000a390  02 15 21 62 6c 6f 63 6b  25 20 3d 20 77 69 6e 64  |..!block% = wind|
0000a3a0  6f 77 25 0d 44 0c 1f 62  6c 6f 63 6b 25 21 34 20  |ow%.D..block%!4 |
0000a3b0  3d 20 70 6f 6c 61 72 5f  66 75 6e 63 5f 69 63 6f  |= polar_func_ico|
0000a3c0  6e 25 0d 44 16 22 c8 99  20 22 57 69 6d 70 5f 47  |n%.D.".. "Wimp_G|
0000a3d0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
0000a3e0  6f 63 6b 25 0d 44 20 40  65 6e 74 65 72 65 64 5f  |ock%.D @entered_|
0000a3f0  70 6f 6c 61 72 5f 66 75  6e 63 74 69 6f 6e 73 24  |polar_functions$|
0000a400  28 63 75 72 72 65 6e 74  5f 70 6f 6c 61 72 5f 66  |(current_polar_f|
0000a410  75 6e 63 25 29 20 3d 20  24 28 62 6c 6f 63 6b 25  |unc%) = $(block%|
0000a420  21 32 38 29 0d 44 2a 14  e3 20 67 72 61 70 68 25  |!28).D*.. graph%|
0000a430  20 3d 20 31 20 b8 20 33  0d 44 34 40 20 70 6f 6c  | = 1 . 3.D4@ pol|
0000a440  61 72 5f 66 75 6e 63 74  69 6f 6e 73 24 28 67 72  |ar_functions$(gr|
0000a450  61 70 68 25 29 20 3d 20  65 6e 74 65 72 65 64 5f  |aph%) = entered_|
0000a460  70 6f 6c 61 72 5f 66 75  6e 63 74 69 6f 6e 73 24  |polar_functions$|
0000a470  28 67 72 61 70 68 25 29  0d 44 3e 05 ed 0d 44 48  |(graph%).D>...DH|
0000a480  05 e1 0d 44 52 04 0d 44  5c 04 0d 44 66 04 0d 44  |...DR..D\..Df..D|
0000a490  70 04 0d 44 7a 1e dd 20  f2 63 6f 6e 76 65 72 74  |p..Dz.. .convert|
0000a4a0  5f 70 6f 6c 61 72 5f 66  75 6e 63 74 69 6f 6e 73  |_polar_functions|
0000a4b0  0d 44 84 12 e3 20 67 72  61 25 20 3d 20 31 20 b8  |.D... gra% = 1 .|
0000a4c0  20 33 0d 44 8e 19 e7 20  70 6f 6c 61 72 5f 70 6c  | 3.D... polar_pl|
0000a4d0  6f 74 25 28 67 72 61 25  29 20 8c 0d 44 98 3a 70  |ot%(gra%) ..D.:p|
0000a4e0  6f 6c 61 72 5f 66 75 6e  63 74 69 6f 6e 73 24 28  |olar_functions$(|
0000a4f0  67 72 61 25 29 3d 20 a4  75 70 70 65 72 28 70 6f  |gra%)= .upper(po|
0000a500  6c 61 72 5f 66 75 6e 63  74 69 6f 6e 73 24 28 67  |lar_functions$(g|
0000a510  72 61 25 29 29 0d 44 a2  49 f2 63 6f 6e 76 65 72  |ra%)).D.I.conver|
0000a520  74 28 70 6f 6c 61 72 5f  66 75 6e 63 74 69 6f 6e  |t(polar_function|
0000a530  73 24 28 67 72 61 25 29  2c 22 54 22 2c 70 6f 6c  |s$(gra%),"T",pol|
0000a540  61 72 5f 66 75 6e 63 74  69 6f 6e 73 24 28 67 72  |ar_functions$(gr|
0000a550  61 25 29 2c 65 72 72 6f  72 5f 6e 6f 25 29 0d 44  |a%),error_no%).D|
0000a560  ac 16 e7 20 65 72 72 6f  72 5f 6e 6f 25 20 3c 3e  |... error_no% <>|
0000a570  20 30 20 8c 0d 44 b6 28  20 20 f2 72 65 70 6f 72  | 0 ..D.(  .repor|
0000a580  74 5f 66 75 6e 63 5f 65  72 72 6f 72 28 67 72 61  |t_func_error(gra|
0000a590  25 2c 65 72 72 6f 72 5f  6e 6f 25 29 0d 44 c0 19  |%,error_no%).D..|
0000a5a0  20 20 70 6f 6c 61 72 5f  70 6c 6f 74 25 28 67 72  |  polar_plot%(gr|
0000a5b0  61 25 29 3d a3 0d 44 ca  1a f2 75 70 64 61 74 65  |a%)=..D...update|
0000a5c0  70 6f 6c 61 72 28 70 6f  6c 61 72 25 2c 39 29 0d  |polar(polar%,9).|
0000a5d0  44 d4 05 cd 0d 44 de 25  f2 65 78 74 5f 66 75 6e  |D....D.%.ext_fun|
0000a5e0  63 28 70 6f 6c 61 72 5f  66 75 6e 63 74 69 6f 6e  |c(polar_function|
0000a5f0  73 24 28 67 72 61 25 29  29 0d 44 e8 05 cd 0d 44  |s$(gra%)).D....D|
0000a600  f2 05 ed 0d 44 fc 05 e1  0d 45 06 04 0d 45 10 04  |....D....E...E..|
0000a610  0d 45 1a 17 dd 20 f2 63  68 65 63 6b 5f 70 6f 6c  |.E... .check_pol|
0000a620  61 72 5f 61 78 65 73 0d  45 24 1a e7 20 ac 20 61  |ar_axes.E$.. . a|
0000a630  75 74 6f 5f 70 6f 6c 61  72 5f 61 78 65 73 25 20  |uto_polar_axes% |
0000a640  8c 0d 45 2e 1c f2 72 65  74 75 72 6e 5f 70 6f 6c  |..E...return_pol|
0000a650  61 72 61 78 65 73 5f 76  61 6c 75 65 73 0d 45 38  |araxes_values.E8|
0000a660  1e e7 20 6d 69 6e 5f 74  68 65 74 61 20 3e 3d 20  |.. min_theta >= |
0000a670  6d 61 78 5f 74 68 65 74  61 20 8c 0d 45 42 1c 20  |max_theta ..EB. |
0000a680  c8 94 20 6d 69 6e 5f 74  68 65 74 61 2c 20 6d 61  |.. min_theta, ma|
0000a690  78 5f 74 68 65 74 61 0d  45 4c 34 20 e7 20 6d 69  |x_theta.EL4 . mi|
0000a6a0  6e 5f 74 68 65 74 61 20  3d 20 6d 61 78 5f 74 68  |n_theta = max_th|
0000a6b0  65 74 61 20 8c 20 6d 61  78 5f 74 68 65 74 61 3d  |eta . max_theta=|
0000a6c0  6d 61 78 5f 74 68 65 74  61 2b 31 0d 45 56 4e 20  |max_theta+1.EVN |
0000a6d0  f2 65 72 72 6f 72 5f 6d  65 73 73 61 67 65 28 22  |.error_message("|
0000a6e0  4d 69 6e 20 61 6e 67 6c  65 20 6d 75 73 74 20 62  |Min angle must b|
0000a6f0  65 20 6c 65 73 73 20 74  68 61 6e 20 4d 61 78 20  |e less than Max |
0000a700  61 6e 67 6c 65 2e 20 56  61 6c 75 65 73 20 61 64  |angle. Values ad|
0000a710  6a 75 73 74 65 64 2e 22  29 0d 45 60 4b 20 70 6f  |justed.").E`K po|
0000a720  6c 61 72 5f 6d 69 6e 5f  69 63 6f 6e 25 20 3d a4  |lar_min_icon% =.|
0000a730  63 68 61 6e 67 65 5f 74  65 78 74 28 70 6f 6c 61  |change_text(pola|
0000a740  72 61 78 65 73 25 2c 70  6f 6c 61 72 5f 6d 69 6e  |raxes%,polar_min|
0000a750  5f 69 63 6f 6e 25 2c c3  28 6d 69 6e 5f 74 68 65  |_icon%,.(min_the|
0000a760  74 61 29 29 0d 45 6a 4b  20 70 6f 6c 61 72 5f 6d  |ta)).EjK polar_m|
0000a770  61 78 5f 69 63 6f 6e 25  20 3d a4 63 68 61 6e 67  |ax_icon% =.chang|
0000a780  65 5f 74 65 78 74 28 70  6f 6c 61 72 61 78 65 73  |e_text(polaraxes|
0000a790  25 2c 70 6f 6c 61 72 5f  6d 61 78 5f 69 63 6f 6e  |%,polar_max_icon|
0000a7a0  25 2c c3 28 6d 61 78 5f  74 68 65 74 61 29 29 0d  |%,.(max_theta)).|
0000a7b0  45 74 34 20 c8 99 20 22  57 69 6d 70 5f 46 6f 72  |Et4 .. "Wimp_For|
0000a7c0  63 65 52 65 64 72 61 77  22 2c 70 6f 6c 61 72 61  |ceRedraw",polara|
0000a7d0  78 65 73 25 2c 30 2c 2d  31 32 38 30 2c 31 32 38  |xes%,0,-1280,128|
0000a7e0  30 2c 30 0d 45 7e 05 cd  0d 45 88 05 cd 0d 45 92  |0,0.E~...E....E.|
0000a7f0  05 e1 0d 45 9c 04 0d 45  a6 04 0d 45 b0 16 dd 20  |...E...E...E... |
0000a800  f2 63 68 65 63 6b 5f 70  61 72 61 5f 61 78 65 73  |.check_para_axes|
0000a810  0d 45 ba 1a e7 20 ac 20  61 75 74 6f 5f 79 5f 70  |.E... . auto_y_p|
0000a820  61 72 61 61 78 65 73 25  20 8c 0d 45 c4 1b f2 72  |araaxes% ..E...r|
0000a830  65 74 75 72 6e 5f 70 61  72 61 61 78 65 73 5f 76  |eturn_paraaxes_v|
0000a840  61 6c 75 65 73 0d 45 ce  24 e7 20 65 6e 74 65 72  |alues.E.$. enter|
0000a850  65 64 5f 6d 61 78 78 20  3c 3d 20 65 6e 74 65 72  |ed_maxx <= enter|
0000a860  65 64 5f 6d 69 6e 78 20  8c 0d 45 d8 22 20 20 c8  |ed_minx ..E."  .|
0000a870  94 20 65 6e 74 65 72 65  64 5f 6d 69 6e 78 2c 65  |. entered_minx,e|
0000a880  6e 74 65 72 65 64 5f 6d  61 78 78 0d 45 e2 3f 20  |ntered_maxx.E.? |
0000a890  20 e7 20 65 6e 74 65 72  65 64 5f 6d 69 6e 78 3d  | . entered_minx=|
0000a8a0  65 6e 74 65 72 65 64 5f  6d 61 78 78 20 8c 20 65  |entered_maxx . e|
0000a8b0  6e 74 65 72 65 64 5f 6d  61 78 78 3d 65 6e 74 65  |ntered_maxx=ente|
0000a8c0  72 65 64 5f 6d 61 78 78  2b 31 0d 45 ec 4d 70 61  |red_maxx+1.E.Mpa|
0000a8d0  72 61 5f 6d 61 78 5f 78  5f 69 63 6f 6e 25 3d a4  |ra_max_x_icon%=.|
0000a8e0  63 68 61 6e 67 65 5f 74  65 78 74 28 70 61 72 61  |change_text(para|
0000a8f0  61 78 65 73 25 2c 70 61  72 61 5f 6d 61 78 5f 78  |axes%,para_max_x|
0000a900  5f 69 63 6f 6e 25 2c c3  28 65 6e 74 65 72 65 64  |_icon%,.(entered|
0000a910  5f 6d 61 78 78 29 29 0d  45 f6 4d 70 61 72 61 5f  |_maxx)).E.Mpara_|
0000a920  6d 69 6e 5f 78 5f 69 63  6f 6e 25 3d a4 63 68 61  |min_x_icon%=.cha|
0000a930  6e 67 65 5f 74 65 78 74  28 70 61 72 61 61 78 65  |nge_text(paraaxe|
0000a940  73 25 2c 70 61 72 61 5f  6d 69 6e 5f 78 5f 69 63  |s%,para_min_x_ic|
0000a950  6f 6e 25 2c c3 28 65 6e  74 65 72 65 64 5f 6d 69  |on%,.(entered_mi|
0000a960  6e 78 29 29 0d 46 00 34  20 20 c8 99 20 22 57 69  |nx)).F.4  .. "Wi|
0000a970  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
0000a980  70 61 72 61 61 78 65 73  25 2c 30 2c 2d 31 32 38  |paraaxes%,0,-128|
0000a990  30 2c 31 32 38 30 2c 30  0d 46 0a 46 20 20 f2 65  |0,1280,0.F.F  .e|
0000a9a0  72 72 6f 72 5f 6d 65 73  73 61 67 65 28 22 58 20  |rror_message("X |
0000a9b0  6d 69 6e 20 6d 75 73 74  20 62 65 20 6c 65 73 73  |min must be less|
0000a9c0  20 74 68 61 6e 20 58 20  6d 61 78 2e 20 56 61 6c  | than X max. Val|
0000a9d0  75 65 73 20 61 64 6a 75  73 74 65 64 22 29 0d 46  |ues adjusted").F|
0000a9e0  14 05 cd 0d 46 1e 24 e7  20 65 6e 74 65 72 65 64  |....F.$. entered|
0000a9f0  5f 6d 61 78 79 20 3c 3d  20 65 6e 74 65 72 65 64  |_maxy <= entered|
0000aa00  5f 6d 69 6e 79 20 8c 0d  46 28 22 20 20 c8 94 20  |_miny ..F("  .. |
0000aa10  65 6e 74 65 72 65 64 5f  6d 69 6e 79 2c 65 6e 74  |entered_miny,ent|
0000aa20  65 72 65 64 5f 6d 61 78  79 0d 46 32 3f 20 20 e7  |ered_maxy.F2?  .|
0000aa30  20 65 6e 74 65 72 65 64  5f 6d 69 6e 79 3d 65 6e  | entered_miny=en|
0000aa40  74 65 72 65 64 5f 6d 61  78 79 20 8c 20 65 6e 74  |tered_maxy . ent|
0000aa50  65 72 65 64 5f 6d 61 78  79 3d 65 6e 74 65 72 65  |ered_maxy=entere|
0000aa60  64 5f 6d 61 78 79 2b 31  0d 46 3c 4d 70 61 72 61  |d_maxy+1.F<Mpara|
0000aa70  5f 6d 61 78 5f 79 5f 69  63 6f 6e 25 3d a4 63 68  |_max_y_icon%=.ch|
0000aa80  61 6e 67 65 5f 74 65 78  74 28 70 61 72 61 61 78  |ange_text(paraax|
0000aa90  65 73 25 2c 70 61 72 61  5f 6d 61 78 5f 79 5f 69  |es%,para_max_y_i|
0000aaa0  63 6f 6e 25 2c c3 28 65  6e 74 65 72 65 64 5f 6d  |con%,.(entered_m|
0000aab0  61 78 79 29 29 0d 46 46  4d 70 61 72 61 5f 6d 69  |axy)).FFMpara_mi|
0000aac0  6e 5f 79 5f 69 63 6f 6e  25 3d a4 63 68 61 6e 67  |n_y_icon%=.chang|
0000aad0  65 5f 74 65 78 74 28 70  61 72 61 61 78 65 73 25  |e_text(paraaxes%|
0000aae0  2c 70 61 72 61 5f 6d 69  6e 5f 79 5f 69 63 6f 6e  |,para_min_y_icon|
0000aaf0  25 2c c3 28 65 6e 74 65  72 65 64 5f 6d 69 6e 79  |%,.(entered_miny|
0000ab00  29 29 0d 46 50 34 20 20  c8 99 20 22 57 69 6d 70  |)).FP4  .. "Wimp|
0000ab10  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 70 61  |_ForceRedraw",pa|
0000ab20  72 61 61 78 65 73 25 2c  30 2c 2d 31 32 38 30 2c  |raaxes%,0,-1280,|
0000ab30  31 32 38 30 2c 30 0d 46  5a 46 20 20 f2 65 72 72  |1280,0.FZF  .err|
0000ab40  6f 72 5f 6d 65 73 73 61  67 65 28 22 59 20 6d 69  |or_message("Y mi|
0000ab50  6e 20 6d 75 73 74 20 62  65 20 6c 65 73 73 20 74  |n must be less t|
0000ab60  68 61 6e 20 59 20 6d 61  78 2e 20 56 61 6c 75 65  |han Y max. Value|
0000ab70  73 20 61 64 6a 75 73 74  65 64 22 29 0d 46 64 05  |s adjusted").Fd.|
0000ab80  cd 0d 46 6e 14 e7 20 6d  61 78 74 20 3c 3d 20 6d  |..Fn.. maxt <= m|
0000ab90  69 6e 74 20 8c 0d 46 78  12 20 20 c8 94 20 6d 69  |int ..Fx.  .. mi|
0000aba0  6e 74 2c 6d 61 78 74 0d  46 82 1f 20 20 e7 20 6d  |nt,maxt.F..  . m|
0000abb0  69 6e 74 3d 6d 61 78 74  20 8c 20 6d 61 78 74 3d  |int=maxt . maxt=|
0000abc0  6d 61 78 74 2b 31 0d 46  8c 48 20 20 70 61 72 61  |maxt+1.F.H  para|
0000abd0  5f 6d 61 78 5f 74 5f 69  63 6f 6e 25 20 3d a4 63  |_max_t_icon% =.c|
0000abe0  68 61 6e 67 65 5f 74 65  78 74 28 70 61 72 61 61  |hange_text(paraa|
0000abf0  78 65 73 25 2c 70 61 72  61 5f 6d 61 78 5f 74 5f  |xes%,para_max_t_|
0000ac00  69 63 6f 6e 25 2c c3 28  6d 61 78 74 29 29 0d 46  |icon%,.(maxt)).F|
0000ac10  96 48 20 20 70 61 72 61  5f 6d 69 6e 5f 74 5f 69  |.H  para_min_t_i|
0000ac20  63 6f 6e 25 20 3d a4 63  68 61 6e 67 65 5f 74 65  |con% =.change_te|
0000ac30  78 74 28 70 61 72 61 61  78 65 73 25 2c 70 61 72  |xt(paraaxes%,par|
0000ac40  61 5f 6d 69 6e 5f 74 5f  69 63 6f 6e 25 2c c3 28  |a_min_t_icon%,.(|
0000ac50  6d 69 6e 74 29 29 0d 46  a0 34 20 20 c8 99 20 22  |mint)).F.4  .. "|
0000ac60  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
0000ac70  22 2c 70 61 72 61 61 78  65 73 25 2c 30 2c 2d 31  |",paraaxes%,0,-1|
0000ac80  32 38 30 2c 31 32 38 30  2c 30 0d 46 aa 46 20 20  |280,1280,0.F.F  |
0000ac90  f2 65 72 72 6f 72 5f 6d  65 73 73 61 67 65 28 22  |.error_message("|
0000aca0  74 20 6d 69 6e 20 6d 75  73 74 20 62 65 20 6c 65  |t min must be le|
0000acb0  73 73 20 74 68 61 6e 20  74 20 6d 61 78 2e 20 56  |ss than t max. V|
0000acc0  61 6c 75 65 73 20 61 64  6a 75 73 74 65 64 22 29  |alues adjusted")|
0000acd0  0d 46 b4 05 cd 0d 46 be  05 cd 0d 46 c8 05 e1 0d  |.F....F....F....|
0000ace0  46 d2 04 0d 46 dc 14 dd  20 f2 72 65 74 75 72 6e  |F...F... .return|
0000acf0  5f 72 61 64 69 75 73 0d  46 e6 10 6d 61 78 5f 72  |_radius.F..max_r|
0000ad00  61 64 69 75 73 3d 30 0d  46 f0 2a 69 6e 63 72 65  |adius=0.F.*incre|
0000ad10  6d 65 6e 74 20 3d 20 28  6d 61 78 5f 74 68 65 74  |ment = (max_thet|
0000ad20  61 2d 6d 69 6e 5f 74 68  65 74 61 29 2f 31 32 38  |a-min_theta)/128|
0000ad30  30 0d 46 fa 14 e3 20 67  72 61 70 68 25 20 3d 20  |0.F... graph% = |
0000ad40  31 20 b8 20 33 0d 47 04  1b e7 20 70 6f 6c 61 72  |1 . 3.G... polar|
0000ad50  5f 70 6c 6f 74 25 28 67  72 61 70 68 25 29 20 8c  |_plot%(graph%) .|
0000ad60  0d 47 0e 37 20 20 c8 99  22 48 6f 75 72 67 6c 61  |.G.7  .."Hourgla|
0000ad70  73 73 5f 50 65 72 63 65  6e 74 61 67 65 22 2c 31  |ss_Percentage",1|
0000ad80  30 30 2d 28 63 6f 75 6e  74 31 25 2f 63 6f 75 6e  |00-(count1%/coun|
0000ad90  74 25 29 2a 31 30 30 0d  47 18 17 e3 20 61 6e 67  |t%)*100.G... ang|
0000ada0  6c 65 25 20 3d 20 30 20  b8 20 31 32 38 30 0d 47  |le% = 0 . 1280.G|
0000adb0  22 23 20 20 54 3d 20 6d  69 6e 5f 74 68 65 74 61  |"#  T= min_theta|
0000adc0  2b 69 6e 63 72 65 6d 65  6e 74 2a 61 6e 67 6c 65  |+increment*angle|
0000add0  25 0d 47 2c 09 20 20 74  3d 54 0d 47 36 0d 20 20  |%.G,.  t=T.G6.  |
0000ade0  6f 6b 25 20 3d 20 b9 0d  47 40 09 20 20 ea 20 85  |ok% = ..G@.  . .|
0000adf0  0d 47 4a 13 20 20 ee 20  85 20 ea 20 6f 6b 25 20  |.GJ.  . . . ok% |
0000ae00  3d 20 a3 0d 47 54 0d 20  20 e7 20 6f 6b 25 20 8c  |= ..GT.  . ok% .|
0000ae10  0d 47 5e 2a 20 20 20 20  72 65 73 75 6c 74 20 3d  |.G^*    result =|
0000ae20  20 a0 70 6f 6c 61 72 5f  66 75 6e 63 74 69 6f 6e  | .polar_function|
0000ae30  73 24 28 67 72 61 70 68  25 29 0d 47 68 07 20 20  |s$(graph%).Gh.  |
0000ae40  cc 0d 47 72 11 20 20 20  20 72 65 73 75 6c 74 20  |..Gr.    result |
0000ae50  3d 30 0d 47 7c 07 20 20  cd 0d 47 86 09 20 20 f7  |=0.G|.  ..G..  .|
0000ae60  20 85 0d 47 90 20 20 20  e7 20 94 28 72 65 73 75  | ..G.   . .(resu|
0000ae70  6c 74 29 20 3e 20 6d 61  78 5f 72 61 64 69 75 73  |lt) > max_radius|
0000ae80  20 8c 0d 47 9a 1e 20 20  20 20 6d 61 78 5f 72 61  | ..G..    max_ra|
0000ae90  64 69 75 73 20 3d 20 94  28 72 65 73 75 6c 74 29  |dius = .(result)|
0000aea0  0d 47 a4 07 20 20 cd 0d  47 ae 05 ed 0d 47 b8 10  |.G..  ..G....G..|
0000aeb0  20 20 63 6f 75 6e 74 31  25 2d 3d 31 0d 47 c2 05  |  count1%-=1.G..|
0000aec0  cd 0d 47 cc 05 ed 0d 47  d6 19 72 61 64 69 75 73  |..G....G..radius|
0000aed0  3d 6d 61 78 5f 72 61 64  69 75 73 2a 31 2e 32 0d  |=max_radius*1.2.|
0000aee0  47 e0 09 41 25 3d 40 25  0d 47 ea 10 40 25 3d 26  |G..A%=@%.G..@%=&|
0000aef0  30 31 30 30 30 33 30 38  0d 47 f4 1c 65 6e 74 65  |01000308.G..ente|
0000af00  72 65 64 5f 72 61 64 20  3d 20 6d 61 78 5f 72 61  |red_rad = max_ra|
0000af10  64 69 75 73 0d 47 fe 52  70 6f 6c 61 72 5f 72 61  |dius.G.Rpolar_ra|
0000af20  64 69 75 73 5f 69 63 6f  6e 25 20 3d a4 63 68 61  |dius_icon% =.cha|
0000af30  6e 67 65 5f 74 65 78 74  28 70 6f 6c 61 72 61 78  |nge_text(polarax|
0000af40  65 73 25 2c 70 6f 6c 61  72 5f 72 61 64 69 75 73  |es%,polar_radius|
0000af50  5f 69 63 6f 6e 25 2c c3  28 65 6e 74 65 72 65 64  |_icon%,.(entered|
0000af60  5f 72 61 64 29 29 0d 48  08 33 c8 99 20 22 57 69  |_rad)).H.3.. "Wi|
0000af70  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
0000af80  70 6f 6c 61 72 61 78 65  73 25 2c 30 2c 2d 31 32  |polaraxes%,0,-12|
0000af90  38 30 2c 31 32 38 30 2c  30 0d 48 12 09 40 25 3d  |80,1280,0.H..@%=|
0000afa0  41 25 0d 48 1c 05 e1 0d  48 26 04 0d 48 30 04 0d  |A%.H....H&..H0..|
0000afb0  48 3a 16 dd 20 f2 64 72  61 77 5f 70 6f 6c 61 72  |H:.. .draw_polar|
0000afc0  5f 61 78 65 73 0d 48 44  12 e7 20 73 68 6f 77 5f  |_axes.HD.. show_|
0000afd0  61 78 65 73 25 20 8c 0d  48 4e 18 c8 99 22 57 69  |axes% ..HN..."Wi|
0000afe0  6d 70 5f 53 65 74 43 6f  6c 6f 75 72 22 2c 31 0d  |mp_SetColour",1.|
0000aff0  48 58 1d c8 8f 20 20 36  34 30 2a 73 66 2c 2d 35  |HX...  640*sf,-5|
0000b000  31 32 2a 73 66 2c 31 30  36 2a 73 66 0d 48 62 1c  |12*sf,106*sf.Hb.|
0000b010  c8 8f 20 36 34 30 2a 73  66 2c 2d 35 31 32 2a 73  |.. 640*sf,-512*s|
0000b020  66 2c 32 31 33 2a 73 66  0d 48 6c 1d c8 8f 20 20  |f,213*sf.Hl...  |
0000b030  36 34 30 2a 73 66 2c 2d  35 31 32 2a 73 66 2c 33  |640*sf,-512*sf,3|
0000b040  32 30 2a 73 66 0d 48 76  1d c8 8f 20 20 36 34 30  |20*sf.Hv...  640|
0000b050  2a 73 66 2c 2d 35 31 32  2a 73 66 2c 34 32 37 2a  |*sf,-512*sf,427*|
0000b060  73 66 0d 48 80 15 ec 20  31 30 36 37 2a 73 66 2c  |sf.H... 1067*sf,|
0000b070  2d 35 31 32 2a 73 66 0d  48 8a 14 df 20 32 32 30  |-512*sf.H... 220|
0000b080  2a 73 66 2c 2d 35 31 32  2a 73 66 0d 48 94 13 ec  |*sf,-512*sf.H...|
0000b090  20 36 34 30 2a 73 66 2c  2d 38 35 2a 73 66 0d 48  | 640*sf,-85*sf.H|
0000b0a0  9e 14 df 20 36 34 30 2a  73 66 2c 2d 39 33 39 2a  |... 640*sf,-939*|
0000b0b0  73 66 0d 48 a8 14 ec 20  39 34 32 2a 73 66 2c 2d  |sf.H... 942*sf,-|
0000b0c0  32 31 30 2a 73 66 0d 48  b2 14 df 20 33 33 38 2a  |210*sf.H... 338*|
0000b0d0  73 66 2c 2d 38 31 34 2a  73 66 0d 48 bc 14 ec 20  |sf,-814*sf.H... |
0000b0e0  33 33 38 2a 73 66 2c 2d  32 31 30 2a 73 66 0d 48  |338*sf,-210*sf.H|
0000b0f0  c6 14 df 20 39 34 32 2a  73 66 2c 2d 38 31 34 2a  |... 942*sf,-814*|
0000b100  73 66 0d 48 d0 15 ec 20  31 30 37 30 2a 73 66 2c  |sf.H... 1070*sf,|
0000b110  2d 35 31 32 2a 73 66 0d  48 da 09 41 25 3d 40 25  |-512*sf.H..A%=@%|
0000b120  0d 48 e4 10 40 25 3d 26  30 31 30 30 30 33 30 38  |.H..@%=&01000308|
0000b130  0d 48 ee 14 f1 20 c3 28  65 6e 74 65 72 65 64 5f  |.H... .(entered_|
0000b140  72 61 64 29 0d 48 f8 09  40 25 3d 41 25 0d 49 02  |rad).H..@%=A%.I.|
0000b150  05 cd 0d 49 0c 05 e1 0d  49 16 04 0d 49 20 04 0d  |...I....I...I ..|
0000b160  49 2a 0f dd 20 f2 61 73  73 65 6d 62 6c 65 0d 49  |I*.. .assemble.I|
0000b170  34 17 e3 20 70 61 73 73  25 20 3d 20 30 20 b8 20  |4.. pass% = 0 . |
0000b180  32 20 88 20 32 0d 49 3e  0d 50 25 3d 20 63 6f 64  |2 . 2.I>.P%= cod|
0000b190  65 25 0d 49 48 0f 5b 20  4f 50 54 20 70 61 73 73  |e%.IH.[ OPT pass|
0000b1a0  25 0d 49 52 0f 4d 4f 56  20 52 31 32 2c 20 52 31  |%.IR.MOV R12, R1|
0000b1b0  0d 49 5c 0e 4d 4f 56 20  52 39 2c 20 23 30 0d 49  |.I\.MOV R9, #0.I|
0000b1c0  66 35 4d 4f 56 20 52 31  31 2c 20 52 30 20 3b 20  |f5MOV R11, R0 ; |
0000b1d0  20 20 20 20 20 20 20 20  20 20 20 70 75 74 20 74  |           put t|
0000b1e0  61 62 6c 65 20 73 74 61  72 74 20 69 6e 74 6f 20  |able start into |
0000b1f0  72 31 31 0d 49 70 09 2e  4c 4f 4f 50 0d 49 7a 11  |r11.Ip..LOOP.Iz.|
0000b200  4d 4f 56 20 52 34 2c 20  23 31 32 38 30 0d 49 84  |MOV R4, #1280.I.|
0000b210  0f 4d 4f 56 20 52 30 2c  20 23 36 39 0d 49 8e 2c  |.MOV R0, #69.I.,|
0000b220  4c 44 52 20 52 31 2c 20  5b 52 36 5d 20 3b 20 20  |LDR R1, [R6] ;  |
0000b230  20 20 20 20 20 20 20 20  20 67 65 74 20 74 68 65  |         get the|
0000b240  20 78 20 76 61 6c 75 65  0d 49 98 2f 43 4d 50 20  | x value.I./CMP |
0000b250  52 31 20 2c 20 23 30 20  3b 20 20 20 20 20 20 20  |R1 , #0 ;       |
0000b260  20 20 20 20 20 69 73 20  69 74 20 6f 75 74 20 6f  |     is it out o|
0000b270  66 20 72 61 6e 67 65 0d  49 a2 0e 42 4d 49 20 6e  |f range.I..BMI n|
0000b280  6f 70 6c 6f 74 0d 49 ac  2f 43 4d 50 20 52 31 2c  |oplot.I./CMP R1,|
0000b290  20 52 34 3b 20 20 20 20  20 20 20 20 20 20 20 20  | R4;            |
0000b2a0  20 20 69 73 20 69 74 20  6f 75 74 20 6f 66 20 72  |  is it out of r|
0000b2b0  61 6e 67 65 0d 49 b6 0e  42 50 4c 20 6e 6f 70 6c  |ange.I..BPL nopl|
0000b2c0  6f 74 0d 49 c0 3b 41 44  44 20 52 31 2c 20 52 31  |ot.I.;ADD R1, R1|
0000b2d0  31 2c 20 52 31 2c 20 4c  53 4c 20 23 32 3b 20 61  |1, R1, LSL #2; a|
0000b2e0  64 64 20 74 61 62 6c 65  20 73 74 61 72 74 20 74  |dd table start t|
0000b2f0  6f 20 78 20 76 61 6c 75  65 20 2a 20 34 0d 49 ca  |o x value * 4.I.|
0000b300  31 4c 44 52 20 52 31 2c  5b 52 31 5d 20 20 20 20  |1LDR R1,[R1]    |
0000b310  20 20 20 20 20 20 3b 20  20 20 67 65 74 20 76 61  |      ;   get va|
0000b320  6c 75 65 20 66 72 6f 6d  20 74 61 62 6c 65 0d 49  |lue from table.I|
0000b330  d4 15 4c 44 52 20 52 38  2c 67 72 61 70 68 5f 62  |..LDR R8,graph_b|
0000b340  6f 78 25 0d 49 de 0e 43  4d 50 20 52 31 2c 20 52  |ox%.I..CMP R1, R|
0000b350  38 0d 49 e8 0e 42 4d 49  20 6e 6f 70 6c 6f 74 0d  |8.I..BMI noplot.|
0000b360  49 f2 17 4c 44 52 20 52  38 2c 67 72 61 70 68 5f  |I..LDR R8,graph_|
0000b370  62 6f 78 25 2b 34 0d 49  fc 28 43 4d 50 20 52 31  |box%+4.I.(CMP R1|
0000b380  2c 52 38 3b 20 20 20 20  20 20 20 20 20 20 20 20  |,R8;            |
0000b390  20 20 20 72 61 6e 67 65  20 63 68 65 63 6b 0d 4a  |   range check.J|
0000b3a0  06 0e 42 50 4c 20 6e 6f  70 6c 6f 74 0d 4a 10 10  |..BPL noplot.J..|
0000b3b0  4c 44 52 20 52 32 2c 20  5b 52 37 5d 0d 4a 1a 2d  |LDR R2, [R7].J.-|
0000b3c0  52 53 42 20 52 32 2c 20  52 32 2c 20 23 30 3b 20  |RSB R2, R2, #0; |
0000b3d0  20 20 20 20 20 20 20 20  20 6d 61 6b 65 20 72 32  |         make r2|
0000b3e0  20 70 6f 73 69 74 69 76  65 0d 4a 24 2f 43 4d 50  | positive.J$/CMP|
0000b3f0  20 52 32 2c 20 23 30 20  3b 20 20 20 20 20 20 20  | R2, #0 ;       |
0000b400  20 20 20 20 20 20 69 73  20 69 74 20 6f 75 74 20  |      is it out |
0000b410  6f 66 20 72 61 6e 67 65  0d 4a 2e 0e 42 4d 49 20  |of range.J..BMI |
0000b420  6e 6f 70 6c 6f 74 0d 4a  38 2f 43 4d 50 20 52 32  |noplot.J8/CMP R2|
0000b430  2c 20 52 34 20 3b 20 20  20 20 20 20 20 20 20 20  |, R4 ;          |
0000b440  20 20 20 69 73 20 69 74  20 6f 75 74 20 6f 66 20  |   is it out of |
0000b450  72 61 6e 67 65 0d 4a 42  0e 42 50 4c 20 6e 6f 70  |range.JB.BPL nop|
0000b460  6c 6f 74 0d 4a 4c 3b 41  44 44 20 52 32 2c 52 31  |lot.JL;ADD R2,R1|
0000b470  31 2c 52 32 2c 20 4c 53  4c 23 32 20 3b 20 20 20  |1,R2, LSL#2 ;   |
0000b480  61 64 64 20 74 61 62 6c  65 20 73 74 61 72 74 20  |add table start |
0000b490  74 6f 20 79 20 76 61 6c  75 65 20 2a 20 34 0d 4a  |to y value * 4.J|
0000b4a0  56 31 4c 44 52 20 52 32  2c 5b 52 32 5d 20 20 20  |V1LDR R2,[R2]   |
0000b4b0  20 20 20 20 20 20 20 3b  20 20 20 67 65 74 20 76  |       ;   get v|
0000b4c0  61 6c 75 65 20 66 72 6f  6d 20 74 61 62 6c 65 0d  |alue from table.|
0000b4d0  4a 60 2d 52 53 42 20 52  32 2c 20 52 32 2c 20 23  |J`-RSB R2, R2, #|
0000b4e0  30 3b 20 20 20 20 20 20  20 20 20 20 6d 61 6b 65  |0;          make|
0000b4f0  20 72 32 20 6e 65 67 61  74 69 76 65 0d 4a 6a 18  | r2 negative.Jj.|
0000b500  4c 44 52 20 52 38 2c 20  67 72 61 70 68 5f 62 6f  |LDR R8, graph_bo|
0000b510  78 25 2b 38 0d 4a 74 0d  43 4d 50 20 52 32 2c 52  |x%+8.Jt.CMP R2,R|
0000b520  38 0d 4a 7e 0e 42 50 4c  20 6e 6f 70 6c 6f 74 0d  |8.J~.BPL noplot.|
0000b530  4a 88 19 4c 44 52 20 52  38 2c 20 67 72 61 70 68  |J..LDR R8, graph|
0000b540  5f 62 6f 78 25 2b 31 32  0d 4a 92 0e 43 4d 50 20  |_box%+12.J..CMP |
0000b550  52 32 2c 20 52 38 0d 4a  9c 0e 42 4d 49 20 6e 6f  |R2, R8.J..BMI no|
0000b560  70 6c 6f 74 0d 4a a6 43  43 4d 50 20 52 31 2c 20  |plot.J.CCMP R1, |
0000b570  52 39 3b 20 20 20 20 20  20 20 20 20 20 20 20 20  |R9;             |
0000b580  69 73 20 74 68 69 73 20  70 6f 69 6e 74 20 74 68  |is this point th|
0000b590  65 20 73 61 6d 65 20 61  73 20 74 68 65 20 70 72  |e same as the pr|
0000b5a0  65 76 69 6f 75 73 3f 0d  4a b0 0e 42 4e 45 20 64  |evious?.J..BNE d|
0000b5b0  6f 70 6c 6f 74 0d 4a ba  0e 43 4d 50 20 52 32 2c  |oplot.J..CMP R2,|
0000b5c0  52 31 30 0d 4a c4 35 42  45 51 20 6e 6f 70 6c 6f  |R10.J.5BEQ noplo|
0000b5d0  74 3b 20 20 20 20 20 20  20 20 20 20 20 20 20 79  |t;             y|
0000b5e0  65 73 20 73 6f 20 64 6f  6e 74 20 70 6c 6f 74 20  |es so dont plot |
0000b5f0  69 74 20 61 67 61 69 6e  0d 4a ce 0b 2e 64 6f 70  |it again.J...dop|
0000b600  6c 6f 74 0d 4a d8 11 53  57 49 20 22 4f 53 5f 50  |lot.J..SWI "OS_P|
0000b610  6c 6f 74 22 0d 4a e2 35  4d 4f 56 20 52 39 2c 52  |lot".J.5MOV R9,R|
0000b620  31 20 20 20 20 20 3b 20  20 20 20 20 20 20 20 20  |1     ;         |
0000b630  20 73 74 6f 72 65 20 6c  61 73 74 20 70 6c 6f 74  | store last plot|
0000b640  74 65 64 20 70 6f 69 6e  74 0d 4a ec 0e 4d 4f 56  |ted point.J..MOV|
0000b650  20 52 31 30 2c 52 32 0d  4a f6 0b 2e 6e 6f 70 6c  | R10,R2.J...nopl|
0000b660  6f 74 0d 4b 00 12 41 44  44 20 52 36 2c 20 52 36  |ot.K..ADD R6, R6|
0000b670  2c 20 23 34 0d 4b 0a 12  41 44 44 20 52 37 2c 20  |, #4.K..ADD R7, |
0000b680  52 37 2c 20 23 34 0d 4b  14 12 53 55 42 20 52 35  |R7, #4.K..SUB R5|
0000b690  2c 20 52 35 2c 20 23 34  0d 4b 1e 0e 43 4d 50 20  |, R5, #4.K..CMP |
0000b6a0  52 35 2c 20 23 30 0d 4b  28 0c 42 47 54 20 4c 4f  |R5, #0.K(.BGT LO|
0000b6b0  4f 50 0d 4b 32 0f 4d 4f  56 20 52 31 35 2c 52 31  |OP.K2.MOV R15,R1|
0000b6c0  34 0d 4b 3c 04 0d 4b 46  0f 2e 63 61 72 74 5f 63  |4.K<..KF..cart_c|
0000b6d0  6f 64 65 25 0d 4b 50 0e  4d 4f 56 20 52 39 2c 20  |ode%.KP.MOV R9, |
0000b6e0  23 30 0d 4b 5a 0f 4d 4f  56 20 52 31 32 2c 20 52  |#0.KZ.MOV R12, R|
0000b6f0  31 0d 4b 64 35 4d 4f 56  20 52 31 31 2c 20 52 30  |1.Kd5MOV R11, R0|
0000b700  20 3b 20 20 20 20 20 20  20 20 20 20 20 20 70 75  | ;            pu|
0000b710  74 20 74 61 62 6c 65 20  73 74 61 72 74 20 69 6e  |t table start in|
0000b720  74 6f 20 72 31 31 0d 4b  6e 29 4d 4f 56 20 52 31  |to r11.Kn)MOV R1|
0000b730  30 2c 20 23 30 20 3b 20  20 20 20 20 20 20 20 20  |0, #0 ;         |
0000b740  20 20 20 78 20 63 6f 6f  72 64 69 6e 61 74 65 0d  |   x coordinate.|
0000b750  4b 78 0e 2e 63 61 72 74  5f 4c 4f 4f 50 0d 4b 82  |Kx..cart_LOOP.K.|
0000b760  11 4d 4f 56 20 52 34 2c  20 23 31 32 38 30 0d 4b  |.MOV R4, #1280.K|
0000b770  8c 0f 4d 4f 56 20 52 30  2c 20 23 36 39 0d 4b 96  |..MOV R0, #69.K.|
0000b780  41 41 44 44 20 52 31 2c  52 31 31 2c 52 31 30 2c  |AADD R1,R11,R10,|
0000b790  20 4c 53 4c 23 32 20 3b  20 20 20 20 20 20 20 20  | LSL#2 ;        |
0000b7a0  61 64 64 20 74 61 62 6c  65 20 73 74 61 72 74 20  |add table start |
0000b7b0  74 6f 20 78 20 76 61 6c  75 65 20 2a 20 34 0d 4b  |to x value * 4.K|
0000b7c0  a0 0f 4c 44 52 20 52 31  2c 5b 52 31 5d 0d 4b aa  |..LDR R1,[R1].K.|
0000b7d0  15 4c 44 52 20 52 38 2c  67 72 61 70 68 5f 62 6f  |.LDR R8,graph_bo|
0000b7e0  78 25 0d 4b b4 28 43 4d  50 20 52 31 2c 20 52 38  |x%.K.(CMP R1, R8|
0000b7f0  3b 20 20 20 20 20 20 20  20 20 20 20 63 66 20 78  |;           cf x|
0000b800  20 77 69 74 68 20 6c 65  66 74 0d 4b be 13 42 4d  | with left.K..BM|
0000b810  49 20 63 61 72 74 5f 6e  6f 70 6c 6f 74 0d 4b c8  |I cart_noplot.K.|
0000b820  17 4c 44 52 20 52 38 2c  67 72 61 70 68 5f 62 6f  |.LDR R8,graph_bo|
0000b830  78 25 2b 34 0d 4b d2 29  43 4d 50 20 52 31 2c 52  |x%+4.K.)CMP R1,R|
0000b840  38 20 3b 20 20 20 20 20  20 20 20 20 20 20 63 66  |8 ;           cf|
0000b850  20 78 20 77 69 74 68 20  72 69 67 68 74 0d 4b dc  | x with right.K.|
0000b860  13 42 50 4c 20 63 61 72  74 5f 6e 6f 70 6c 6f 74  |.BPL cart_noplot|
0000b870  0d 4b e6 2e 4c 44 52 20  52 32 2c 20 5b 52 37 5d  |.K..LDR R2, [R7]|
0000b880  20 3b 20 20 20 20 20 20  20 20 72 37 20 70 6f 69  | ;        r7 poi|
0000b890  6e 74 73 20 74 6f 20 79  20 76 61 6c 75 65 0d 4b  |nts to y value.K|
0000b8a0  f0 2a 52 53 42 20 52 32  2c 20 52 32 2c 20 23 30  |.*RSB R2, R2, #0|
0000b8b0  3b 20 20 20 20 20 20 20  6d 61 6b 65 20 72 32 20  |;       make r2 |
0000b8c0  70 6f 73 69 74 69 76 65  0d 4b fa 2b 43 4d 50 20  |positive.K.+CMP |
0000b8d0  52 32 2c 20 23 30 20 3b  20 20 20 20 20 20 20 20  |R2, #0 ;        |
0000b8e0  20 69 73 20 69 74 20 6f  75 74 20 6f 66 20 72 61  | is it out of ra|
0000b8f0  6e 67 65 0d 4c 04 13 42  4d 49 20 63 61 72 74 5f  |nge.L..BMI cart_|
0000b900  6e 6f 70 6c 6f 74 0d 4c  0e 28 43 4d 50 20 52 32  |noplot.L.(CMP R2|
0000b910  2c 20 52 34 20 3b 20 20  20 20 20 20 69 73 20 69  |, R4 ;      is i|
0000b920  74 20 6f 75 74 20 6f 66  20 72 61 6e 67 65 0d 4c  |t out of range.L|
0000b930  18 13 42 50 4c 20 63 61  72 74 5f 6e 6f 70 6c 6f  |..BPL cart_noplo|
0000b940  74 0d 4c 22 38 41 44 44  20 52 32 2c 52 31 31 2c  |t.L"8ADD R2,R11,|
0000b950  52 32 2c 20 4c 53 4c 23  32 20 3b 61 64 64 20 74  |R2, LSL#2 ;add t|
0000b960  61 62 6c 65 20 73 74 61  72 74 20 74 6f 20 79 20  |able start to y |
0000b970  76 61 6c 75 65 20 2a 20  34 0d 4c 2c 2e 4c 44 52  |value * 4.L,.LDR|
0000b980  20 52 32 2c 5b 52 32 5d  20 20 20 20 20 20 20 20  | R2,[R2]        |
0000b990  20 20 3b 67 65 74 20 76  61 6c 75 65 20 66 72 6f  |  ;get value fro|
0000b9a0  6d 20 74 61 62 6c 65 0d  4c 36 2e 52 53 42 20 52  |m table.L6.RSB R|
0000b9b0  32 2c 20 52 32 2c 20 23  30 3b 20 20 20 20 20 20  |2, R2, #0;      |
0000b9c0  20 20 20 20 20 6d 61 6b  65 20 72 32 20 6e 65 67  |     make r2 neg|
0000b9d0  61 74 69 76 65 0d 4c 40  18 4c 44 52 20 52 38 2c  |ative.L@.LDR R8,|
0000b9e0  20 67 72 61 70 68 5f 62  6f 78 25 2b 38 0d 4c 4a  | graph_box%+8.LJ|
0000b9f0  0d 43 4d 50 20 52 32 2c  52 38 0d 4c 54 13 42 50  |.CMP R2,R8.LT.BP|
0000ba00  4c 20 63 61 72 74 5f 6e  6f 70 6c 6f 74 0d 4c 5e  |L cart_noplot.L^|
0000ba10  19 4c 44 52 20 52 38 2c  20 67 72 61 70 68 5f 62  |.LDR R8, graph_b|
0000ba20  6f 78 25 2b 31 32 0d 4c  68 0e 43 4d 50 20 52 32  |ox%+12.Lh.CMP R2|
0000ba30  2c 20 52 38 0d 4c 72 13  42 4d 49 20 63 61 72 74  |, R8.Lr.BMI cart|
0000ba40  5f 6e 6f 70 6c 6f 74 0d  4c 7c 11 53 57 49 20 22  |_noplot.L|.SWI "|
0000ba50  4f 53 5f 50 6c 6f 74 22  0d 4c 86 10 2e 63 61 72  |OS_Plot".L...car|
0000ba60  74 5f 6e 6f 70 6c 6f 74  0d 4c 90 15 41 44 44 20  |t_noplot.L..ADD |
0000ba70  52 31 30 2c 20 52 31 30  2c 20 52 31 32 0d 4c 9a  |R10, R10, R12.L.|
0000ba80  1b 41 44 44 20 52 37 2c  20 52 37 2c 20 52 31 32  |.ADD R7, R7, R12|
0000ba90  2c 20 41 53 4c 20 23 32  0d 4c a4 1b 53 55 42 20  |, ASL #2.L..SUB |
0000baa0  52 35 2c 20 52 35 2c 20  52 31 32 2c 20 41 53 4c  |R5, R5, R12, ASL|
0000bab0  20 23 32 0d 4c ae 0e 43  4d 50 20 52 35 2c 20 23  | #2.L..CMP R5, #|
0000bac0  30 0d 4c b8 11 42 47 54  20 63 61 72 74 5f 4c 4f  |0.L..BGT cart_LO|
0000bad0  4f 50 0d 4c c2 0f 4d 4f  56 20 52 31 35 2c 52 31  |OP.L..MOV R15,R1|
0000bae0  34 0d 4c cc 05 20 0d 4c  d6 21 2e 73 63 61 6c 65  |4.L.. .L.!.scale|
0000baf0  20 3b 20 52 31 20 69 73  20 42 25 20 74 68 65 20  | ; R1 is B% the |
0000bb00  63 6f 75 6e 74 65 72 0d  4c e0 23 20 20 20 20 20  |counter.L.#     |
0000bb10  20 20 3b 20 52 32 20 69  73 20 70 6f 69 6e 74 65  |  ; R2 is pointe|
0000bb20  72 20 74 6f 20 74 61 62  6c 65 0d 4c ea 21 20 20  |r to table.L.!  |
0000bb30  20 20 20 20 20 3b 20 52  33 20 69 73 20 74 68 65  |     ; R3 is the|
0000bb40  20 6d 75 6c 74 69 70 6c  69 65 72 0d 4c f4 1d 20  | multiplier.L.. |
0000bb50  20 20 20 20 20 20 3b 20  52 30 20 69 73 20 74 68  |      ; R0 is th|
0000bb60  65 20 72 65 73 75 6c 74  0d 4c fe 21 4d 55 4c 20  |e result.L.!MUL |
0000bb70  52 30 2c 52 31 2c 52 33  20 20 20 20 20 20 20 3b  |R0,R1,R3       ;|
0000bb80  20 6d 75 6c 74 69 70 6c  79 0d 4d 08 27 4d 4f 56  | multiply.M.'MOV|
0000bb90  20 52 30 2c 52 30 2c 20  41 53 52 20 23 31 30 20  | R0,R0, ASR #10 |
0000bba0  3b 20 64 69 76 69 64 65  20 62 79 20 31 30 32 34  |; divide by 1024|
0000bbb0  0d 4d 12 0f 53 54 52 20  52 30 2c 5b 52 32 5d 0d  |.M..STR R0,[R2].|
0000bbc0  4d 1c 10 41 44 44 20 52  31 2c 52 31 2c 23 31 0d  |M..ADD R1,R1,#1.|
0000bbd0  4d 26 10 41 44 44 20 52  32 2c 52 32 2c 23 34 0d  |M&.ADD R2,R2,#4.|
0000bbe0  4d 30 11 43 4d 50 20 52  31 2c 20 23 31 32 38 30  |M0.CMP R1, #1280|
0000bbf0  0d 4d 3a 0d 42 4d 49 20  73 63 61 6c 65 0d 4d 44  |.M:.BMI scale.MD|
0000bc00  0f 4d 4f 56 20 52 31 35  2c 52 31 34 0d 4d 4e 05  |.MOV R15,R14.MN.|
0000bc10  5d 0d 4d 58 05 ed 0d 4d  62 05 e1 0d 4d 6c 04 0d  |].MX...Mb...Ml..|
0000bc20  4d 76 3c dd 20 f2 78 5f  70 6c 6f 74 28 6c 65 66  |Mv<. .x_plot(lef|
0000bc30  74 25 2c 20 72 69 67 68  74 25 2c 20 74 6f 70 25  |t%, right%, top%|
0000bc40  2c 20 62 6f 74 74 6f 6d  25 2c 20 70 6c 6f 74 5f  |, bottom%, plot_|
0000bc50  70 61 72 61 6d 65 74 65  72 25 29 0d 4d 80 1b 67  |parameter%).M..g|
0000bc60  72 61 70 68 5f 62 6f 78  25 21 30 20 20 20 20 20  |raph_box%!0     |
0000bc70  3d 6c 65 66 74 25 0d 4d  8a 1c 67 72 61 70 68 5f  |=left%.M..graph_|
0000bc80  62 6f 78 25 21 34 20 20  20 20 20 3d 72 69 67 68  |box%!4     =righ|
0000bc90  74 25 0d 4d 94 1a 67 72  61 70 68 5f 62 6f 78 25  |t%.M..graph_box%|
0000bca0  21 38 20 20 20 20 20 3d  74 6f 70 25 0d 4d 9e 1d  |!8     =top%.M..|
0000bcb0  67 72 61 70 68 5f 62 6f  78 25 21 31 32 20 20 20  |graph_box%!12   |
0000bcc0  20 3d 62 6f 74 74 6f 6d  25 0d 4d a8 14 e3 20 67  | =bottom%.M... g|
0000bcd0  72 61 70 68 25 20 3d 20  31 20 b8 20 33 0d 4d b2  |raph% = 1 . 3.M.|
0000bce0  1b e7 20 70 6f 6c 61 72  5f 70 6c 6f 74 25 28 67  |.. polar_plot%(g|
0000bcf0  72 61 70 68 25 29 20 8c  0d 4d bc 23 20 20 20 20  |raph%) ..M.#    |
0000bd00  c8 99 22 57 69 6d 70 5f  53 65 74 43 6f 6c 6f 75  |.."Wimp_SetColou|
0000bd10  72 22 2c 39 2b 67 72 61  70 68 25 0d 4d c6 16 20  |r",9+graph%.M.. |
0000bd20  20 20 20 79 25 20 3d 67  72 61 70 68 25 2a 32 2d  |   y% =graph%*2-|
0000bd30  31 0d 4d d0 16 20 20 20  20 78 25 20 3d 67 72 61  |1.M..    x% =gra|
0000bd40  70 68 25 2a 32 2d 32 0d  4d da 3f 20 20 20 20 46  |ph%*2-2.M.?    F|
0000bd50  25 20 3d 20 35 31 32 30  20 20 3a f4 20 72 65 67  |% = 5120  :. reg|
0000bd60  69 73 74 65 72 20 35 20  20 63 6f 75 6e 74 73 20  |ister 5  counts |
0000bd70  64 6f 77 6e 20 66 72 6f  6d 20 35 31 32 30 20 74  |down from 5120 t|
0000bd80  6f 20 7a 65 72 6f 0d 4d  e4 4d 20 20 20 20 47 25  |o zero.M.M    G%|
0000bd90  20 3d 20 70 6c 6f 74 5f  76 61 6c 75 65 73 25 20  | = plot_values% |
0000bda0  2b 20 31 32 38 30 2a 78  25 2a 34 20 20 20 3a 20  |+ 1280*x%*4   : |
0000bdb0  f4 20 72 65 67 69 73 74  65 72 20 36 20 20 64 61  |. register 6  da|
0000bdc0  74 61 20 61 72 72 61 79  20 66 6f 72 20 78 20 61  |ta array for x a|
0000bdd0  78 69 73 0d 4d ee 4d 20  20 20 20 48 25 20 3d 20  |xis.M.M    H% = |
0000bde0  70 6c 6f 74 5f 76 61 6c  75 65 73 25 20 2b 20 31  |plot_values% + 1|
0000bdf0  32 38 30 2a 79 25 2a 34  20 20 20 3a 20 f4 20 72  |280*y%*4   : . r|
0000be00  65 67 69 73 74 65 72 20  37 20 20 64 61 74 61 20  |egister 7  data |
0000be10  61 72 72 61 79 20 66 6f  72 20 79 20 61 78 69 73  |array for y axis|
0000be20  0d 4d f8 17 20 20 20 20  42 25 20 3d 20 70 69 78  |.M..    B% = pix|
0000be30  5f 76 61 6c 75 65 25 0d  4e 02 31 20 20 20 20 41  |_value%.N.1    A|
0000be40  25 20 3d 20 74 61 62 6c  65 25 20 20 3a 20 f4 20  |% = table%  : . |
0000be50  52 30 20 67 65 74 73 20  61 64 64 72 65 73 73 20  |R0 gets address |
0000be60  6f 66 20 74 61 62 6c 65  0d 4e 0c 0f 20 20 20 20  |of table.N..    |
0000be70  d6 20 63 6f 64 65 25 0d  4e 16 05 cd 0d 4e 20 05  |. code%.N....N .|
0000be80  ed 0d 4e 2a 05 e1 0d 4e  34 04 0d 4e 3e 3d dd 20  |..N*...N4..N>=. |
0000be90  f2 78 5f 70 6c 6f 74 31  28 6c 65 66 74 25 2c 20  |.x_plot1(left%, |
0000bea0  72 69 67 68 74 25 2c 20  74 6f 70 25 2c 20 62 6f  |right%, top%, bo|
0000beb0  74 74 6f 6d 25 2c 20 70  6c 6f 74 5f 70 61 72 61  |ttom%, plot_para|
0000bec0  6d 65 74 65 72 25 29 0d  4e 48 1b 67 72 61 70 68  |meter%).NH.graph|
0000bed0  5f 62 6f 78 25 21 30 20  20 20 20 20 3d 6c 65 66  |_box%!0     =lef|
0000bee0  74 25 0d 4e 52 1c 67 72  61 70 68 5f 62 6f 78 25  |t%.NR.graph_box%|
0000bef0  21 34 20 20 20 20 20 3d  72 69 67 68 74 25 0d 4e  |!4     =right%.N|
0000bf00  5c 1a 67 72 61 70 68 5f  62 6f 78 25 21 38 20 20  |\.graph_box%!8  |
0000bf10  20 20 20 3d 74 6f 70 25  0d 4e 66 1d 67 72 61 70  |   =top%.Nf.grap|
0000bf20  68 5f 62 6f 78 25 21 31  32 20 20 20 20 3d 62 6f  |h_box%!12    =bo|
0000bf30  74 74 6f 6d 25 0d 4e 70  14 e3 20 67 72 61 70 68  |ttom%.Np.. graph|
0000bf40  25 20 3d 20 31 20 b8 20  33 0d 4e 7a 1a e7 20 70  |% = 1 . 3.Nz.. p|
0000bf50  61 72 61 5f 70 6c 6f 74  25 28 67 72 61 70 68 25  |ara_plot%(graph%|
0000bf60  29 20 8c 0d 4e 84 23 20  20 20 20 c8 99 22 57 69  |) ..N.#    .."Wi|
0000bf70  6d 70 5f 53 65 74 43 6f  6c 6f 75 72 22 2c 39 2b  |mp_SetColour",9+|
0000bf80  67 72 61 70 68 25 0d 4e  8e 16 20 20 20 20 79 25  |graph%.N..    y%|
0000bf90  20 3d 67 72 61 70 68 25  2a 32 2d 31 0d 4e 98 16  | =graph%*2-1.N..|
0000bfa0  20 20 20 20 78 25 20 3d  67 72 61 70 68 25 2a 32  |    x% =graph%*2|
0000bfb0  2d 32 0d 4e a2 3f 20 20  20 20 46 25 20 3d 20 35  |-2.N.?    F% = 5|
0000bfc0  31 32 30 20 20 3a f4 20  72 65 67 69 73 74 65 72  |120  :. register|
0000bfd0  20 35 20 20 63 6f 75 6e  74 73 20 64 6f 77 6e 20  | 5  counts down |
0000bfe0  66 72 6f 6d 20 35 31 32  30 20 74 6f 20 7a 65 72  |from 5120 to zer|
0000bff0  6f 0d 4e ac 4d 20 20 20  20 47 25 20 3d 20 70 6c  |o.N.M    G% = pl|
0000c000  6f 74 5f 76 61 6c 75 65  73 25 20 2b 20 31 32 38  |ot_values% + 128|
0000c010  30 2a 78 25 2a 34 20 20  20 3a 20 f4 20 72 65 67  |0*x%*4   : . reg|
0000c020  69 73 74 65 72 20 36 20  20 64 61 74 61 20 61 72  |ister 6  data ar|
0000c030  72 61 79 20 66 6f 72 20  78 20 61 78 69 73 0d 4e  |ray for x axis.N|
0000c040  b6 4d 20 20 20 20 48 25  20 3d 20 70 6c 6f 74 5f  |.M    H% = plot_|
0000c050  76 61 6c 75 65 73 25 20  2b 20 31 32 38 30 2a 79  |values% + 1280*y|
0000c060  25 2a 34 20 20 20 3a 20  f4 20 72 65 67 69 73 74  |%*4   : . regist|
0000c070  65 72 20 37 20 20 64 61  74 61 20 61 72 72 61 79  |er 7  data array|
0000c080  20 66 6f 72 20 79 20 61  78 69 73 0d 4e c0 31 20  | for y axis.N.1 |
0000c090  20 20 20 41 25 20 3d 20  74 61 62 6c 65 25 20 20  |   A% = table%  |
0000c0a0  3a 20 f4 20 52 30 20 67  65 74 73 20 61 64 64 72  |: . R0 gets addr|
0000c0b0  65 73 73 20 6f 66 20 74  61 62 6c 65 0d 4e ca 17  |ess of table.N..|
0000c0c0  20 20 20 20 42 25 20 3d  20 70 69 78 5f 76 61 6c  |    B% = pix_val|
0000c0d0  75 65 25 0d 4e d4 0f 20  20 20 20 d6 20 63 6f 64  |ue%.N..    . cod|
0000c0e0  65 25 0d 4e de 05 cd 0d  4e e8 05 ed 0d 4e f2 05  |e%.N....N....N..|
0000c0f0  e1 0d 4e fc 04 0d 4f 06  04 0d 4f 10 3d dd 20 f2  |..N...O...O.=. .|
0000c100  78 5f 70 6c 6f 74 32 28  6c 65 66 74 25 2c 20 72  |x_plot2(left%, r|
0000c110  69 67 68 74 25 2c 20 74  6f 70 25 2c 20 62 6f 74  |ight%, top%, bot|
0000c120  74 6f 6d 25 2c 20 70 6c  6f 74 5f 70 61 72 61 6d  |tom%, plot_param|
0000c130  65 74 65 72 25 29 0d 4f  1a 1b 67 72 61 70 68 5f  |eter%).O..graph_|
0000c140  62 6f 78 25 21 30 20 20  20 20 20 3d 6c 65 66 74  |box%!0     =left|
0000c150  25 0d 4f 24 1c 67 72 61  70 68 5f 62 6f 78 25 21  |%.O$.graph_box%!|
0000c160  34 20 20 20 20 20 3d 72  69 67 68 74 25 0d 4f 2e  |4     =right%.O.|
0000c170  1a 67 72 61 70 68 5f 62  6f 78 25 21 38 20 20 20  |.graph_box%!8   |
0000c180  20 20 3d 74 6f 70 25 0d  4f 38 1d 67 72 61 70 68  |  =top%.O8.graph|
0000c190  5f 62 6f 78 25 21 31 32  20 20 20 20 3d 62 6f 74  |_box%!12    =bot|
0000c1a0  74 6f 6d 25 0d 4f 42 14  e3 20 67 72 61 70 68 25  |tom%.OB.. graph%|
0000c1b0  20 3d 20 31 20 b8 20 36  0d 4f 4c 1a e7 20 63 61  | = 1 . 6.OL.. ca|
0000c1c0  72 74 5f 70 6c 6f 74 25  28 67 72 61 70 68 25 29  |rt_plot%(graph%)|
0000c1d0  20 8c 0d 4f 56 23 20 20  20 20 c8 99 22 57 69 6d  | ..OV#    .."Wim|
0000c1e0  70 5f 53 65 74 43 6f 6c  6f 75 72 22 2c 39 2b 67  |p_SetColour",9+g|
0000c1f0  72 61 70 68 25 0d 4f 60  14 20 20 20 20 79 25 20  |raph%.O`.    y% |
0000c200  3d 67 72 61 70 68 25 2d  31 0d 4f 6a 40 20 20 20  |=graph%-1.Oj@   |
0000c210  20 46 25 20 3d 20 35 31  32 30 20 20 3a f4 20 72  | F% = 5120  :. r|
0000c220  65 67 69 73 74 65 72 20  35 20 20 63 6f 75 6e 74  |egister 5  count|
0000c230  73 20 64 6f 77 6e 20 66  72 6f 6d 20 72 69 67 68  |s down from righ|
0000c240  74 20 74 6f 20 6c 65 66  74 0d 4f 74 3a 20 20 20  |t to left.Ot:   |
0000c250  20 47 25 20 3d 20 6c 65  66 74 25 20 20 20 3a 20  | G% = left%   : |
0000c260  f4 20 72 65 67 69 73 74  65 72 20 36 20 20 64 61  |. register 6  da|
0000c270  74 61 20 61 72 72 61 79  20 66 6f 72 20 78 20 61  |ta array for x a|
0000c280  78 69 73 0d 4f 7e 4c 20  20 20 20 48 25 20 3d 20  |xis.O~L    H% = |
0000c290  70 6c 6f 74 5f 76 61 6c  75 65 73 25 20 2b 20 31  |plot_values% + 1|
0000c2a0  32 38 30 2a 79 25 2a 34  20 20 3a 20 f4 20 72 65  |280*y%*4  : . re|
0000c2b0  67 69 73 74 65 72 20 37  20 20 64 61 74 61 20 61  |gister 7  data a|
0000c2c0  72 72 61 79 20 66 6f 72  20 79 20 61 78 69 73 0d  |rray for y axis.|
0000c2d0  4f 88 31 20 20 20 20 41  25 20 3d 20 74 61 62 6c  |O.1    A% = tabl|
0000c2e0  65 25 20 20 3a 20 f4 20  52 30 20 67 65 74 73 20  |e%  : . R0 gets |
0000c2f0  61 64 64 72 65 73 73 20  6f 66 20 74 61 62 6c 65  |address of table|
0000c300  0d 4f 92 17 20 20 20 20  42 25 20 3d 20 70 69 78  |.O..    B% = pix|
0000c310  5f 76 61 6c 75 65 25 0d  4f 9c 14 20 20 20 20 d6  |_value%.O..    .|
0000c320  20 63 61 72 74 5f 63 6f  64 65 25 0d 4f a6 05 cd  | cart_code%.O...|
0000c330  0d 4f b0 05 ed 0d 4f ba  05 e1 0d 4f c4 04 0d 4f  |.O....O....O...O|
0000c340  ce 0b dd 20 f2 68 65 6c  70 0d 4f d8 2b ea 20 74  |... .help.O.+. t|
0000c350  24 2c 77 69 6e 64 6f 77  25 2c 20 69 63 6f 6e 25  |$,window%, icon%|
0000c360  2c 20 74 65 72 6d 73 24  2c 20 61 70 24 2c 20 77  |, terms$, ap$, w|
0000c370  61 72 6e 24 0d 4f e2 29  c8 99 20 22 57 69 6d 70  |arn$.O.).. "Wimp|
0000c380  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
0000c390  2c 2c 68 65 6c 70 5f 62  6c 6f 63 6b 25 0d 4f ec  |,,help_block%.O.|
0000c3a0  1c 77 69 6e 64 6f 77 25  20 3d 20 68 65 6c 70 5f  |.window% = help_|
0000c3b0  62 6c 6f 63 6b 25 21 31  32 0d 4f f6 1c 69 63 6f  |block%!12.O..ico|
0000c3c0  6e 25 20 20 20 3d 20 68  65 6c 70 5f 62 6c 6f 63  |n%   = help_bloc|
0000c3d0  6b 25 21 31 36 0d 50 00  3c 77 61 72 6e 24 20 3d  |k%!16.P.<warn$ =|
0000c3e0  20 22 7c 4d 49 74 20 63  61 6e 20 62 65 20 65 6e  | "|MIt can be en|
0000c3f0  74 65 72 65 64 20 69 6e  20 6e 6f 72 6d 61 6c 20  |tered in normal |
0000c400  61 6c 67 65 62 72 61 69  63 20 66 6f 72 6d 61 74  |algebraic format|
0000c410  22 0d 50 0a 41 77 61 72  6e 24 20 3d 20 77 61 72  |".P.Awarn$ = war|
0000c420  6e 24 2b 22 7c 4d 49 66  20 79 6f 75 20 61 72 65  |n$+"|MIf you are|
0000c430  20 75 6e 73 75 72 65 20  6f 66 20 65 76 61 6c 75  | unsure of evalu|
0000c440  61 74 69 6f 6e 20 6f 72  64 65 72 20 74 68 65 6e  |ation order then|
0000c450  20 22 0d 50 14 32 77 61  72 6e 24 20 3d 20 77 61  | ".P.2warn$ = wa|
0000c460  72 6e 24 2b 22 75 73 65  20 62 72 61 63 6b 65 74  |rn$+"use bracket|
0000c470  73 7c 4d 55 73 65 20 5e  20 66 6f 72 20 70 6f 77  |s|MUse ^ for pow|
0000c480  65 72 73 22 0d 50 1e 10  c8 8e 20 77 69 6e 64 6f  |ers".P.... windo|
0000c490  77 25 20 ca 0d 50 28 43  c9 20 6d 61 69 6e 25 20  |w% ..P(C. main% |
0000c4a0  3a 20 74 24 3d 22 54 68  69 73 20 69 73 20 74 68  |: t$="This is th|
0000c4b0  65 20 67 72 61 70 68 20  77 69 6e 64 6f 77 2e 7c  |e graph window.||
0000c4c0  4d 53 65 6c 65 63 74 20  74 6f 20 72 65 63 61 6c  |MSelect to recal|
0000c4d0  63 75 6c 61 74 65 22 0d  50 32 42 20 20 20 20 20  |culate".P2B     |
0000c4e0  20 20 20 20 20 20 20 e7  20 63 61 72 74 5f 70 6c  |       . cart_pl|
0000c4f0  6f 74 25 20 74 24 3d 74  24 2b 22 7c 4d 41 64 6a  |ot% t$=t$+"|MAdj|
0000c500  75 73 74 20 74 6f 20 73  65 6c 65 63 74 20 61 20  |ust to select a |
0000c510  7a 6f 6f 6d 20 62 6f 78  22 0d 50 3c 10 c9 20 63  |zoom box".P<.. c|
0000c520  61 72 74 65 73 69 61 6e  25 0d 50 46 13 20 20 20  |artesian%.PF.   |
0000c530  20 20 c8 8e 20 69 63 6f  6e 25 20 ca 0d 50 50 2d  |  .. icon% ..PP-|
0000c540  20 20 20 20 20 c9 20 34  20 3a 20 74 24 3d 22 53  |     . 4 : t$="S|
0000c550  65 6c 65 63 74 20 66 6f  72 20 70 72 65 76 69 6f  |elect for previo|
0000c560  75 73 20 67 72 61 70 68  22 0d 50 5a 29 20 20 20  |us graph".PZ)   |
0000c570  20 20 c9 20 35 20 3a 20  74 24 3d 22 53 65 6c 65  |  . 5 : t$="Sele|
0000c580  63 74 20 66 6f 72 20 6e  65 78 74 20 67 72 61 70  |ct for next grap|
0000c590  68 22 0d 50 64 1e 20 20  20 20 20 c9 20 63 61 72  |h".Pd.     . car|
0000c5a0  74 5f 66 75 6e 63 5f 79  65 73 5f 69 63 6f 6e 25  |t_func_yes_icon%|
0000c5b0  0d 50 6e 4a 20 20 20 20  20 20 20 20 20 20 74 24  |.PnJ          t$|
0000c5c0  3d 22 53 65 6c 65 63 74  20 74 6f 20 63 68 61 6e  |="Select to chan|
0000c5d0  67 65 2e 7c 4d 49 6e 64  69 63 61 74 65 73 20 69  |ge.|MIndicates i|
0000c5e0  66 20 67 72 61 67 68 20  69 73 20 70 6c 6f 74 74  |f gragh is plott|
0000c5f0  65 64 20 6f 72 20 6e 6f  74 22 0d 50 78 42 20 20  |ed or not".PxB  |
0000c600  20 20 20 c9 20 63 61 72  74 5f 66 75 6e 63 5f 69  |   . cart_func_i|
0000c610  63 6f 6e 25 20 3a 20 74  24 3d 22 54 68 65 20 66  |con% : t$="The f|
0000c620  75 6e 63 74 69 6f 6e 20  74 6f 20 62 65 20 70 6c  |unction to be pl|
0000c630  6f 74 74 65 64 22 2b 77  61 72 6e 24 0d 50 82 40  |otted"+warn$.P.@|
0000c640  20 20 20 20 20 c9 20 39  20 3a 74 24 3d 22 54 68  |     . 9 :t$="Th|
0000c650  69 73 20 73 68 6f 77 73  20 74 68 65 20 63 6f 6c  |is shows the col|
0000c660  6f 75 72 20 6f 66 20 74  68 65 20 63 75 72 72 65  |our of the curre|
0000c670  6e 74 20 66 75 6e 63 74  69 6f 6e 22 0d 50 8c 0a  |nt function".P..|
0000c680  20 20 20 20 20 cb 0d 50  96 0f c9 20 63 61 72 74  |     ..P... cart|
0000c690  61 78 65 73 25 0d 50 a0  28 20 20 20 20 20 61 70  |axes%.P.(     ap|
0000c6a0  24 20 3d 20 22 7c 4d 66  31 20 66 6f 72 20 64 65  |$ = "|Mf1 for de|
0000c6b0  66 61 75 6c 74 20 76 61  6c 75 65 73 22 0d 50 aa  |fault values".P.|
0000c6c0  13 20 20 20 20 20 c8 8e  20 69 63 6f 6e 25 20 ca  |.     .. icon% .|
0000c6d0  0d 50 b4 1b 20 20 20 20  20 c9 20 63 61 72 74 5f  |.P..     . cart_|
0000c6e0  6d 61 78 5f 78 5f 69 63  6f 6e 25 0d 50 be 3a 20  |max_x_icon%.P.: |
0000c6f0  20 20 20 20 20 20 74 24  3d 20 22 54 68 65 20 6d  |      t$= "The m|
0000c700  61 78 69 6d 75 6d 20 58  20 76 61 6c 75 65 2e 7c  |aximum X value.||
0000c710  4d 53 65 6c 65 63 74 20  74 6f 20 61 6c 74 65 72  |MSelect to alter|
0000c720  22 2b 61 70 24 0d 50 c8  1b 20 20 20 20 20 c9 20  |"+ap$.P..     . |
0000c730  63 61 72 74 5f 6d 69 6e  5f 78 5f 69 63 6f 6e 25  |cart_min_x_icon%|
0000c740  0d 50 d2 3a 20 20 20 20  20 20 20 74 24 3d 20 22  |.P.:       t$= "|
0000c750  54 68 65 20 6d 69 6e 69  6d 75 6d 20 58 20 76 61  |The minimum X va|
0000c760  6c 75 65 2e 7c 4d 53 65  6c 65 63 74 20 74 6f 20  |lue.|MSelect to |
0000c770  61 6c 74 65 72 22 2b 61  70 24 0d 50 dc 04 0d 50  |alter"+ap$.P...P|
0000c780  e6 1b 20 20 20 20 20 c9  20 63 61 72 74 5f 6d 61  |..     . cart_ma|
0000c790  78 5f 79 5f 69 63 6f 6e  25 0d 50 f0 3a 20 20 20  |x_y_icon%.P.:   |
0000c7a0  20 20 20 20 74 24 3d 20  22 54 68 65 20 6d 61 78  |    t$= "The max|
0000c7b0  69 6d 75 6d 20 59 20 76  61 6c 75 65 2e 7c 4d 53  |imum Y value.|MS|
0000c7c0  65 6c 65 63 74 20 74 6f  20 61 6c 74 65 72 22 2b  |elect to alter"+|
0000c7d0  61 70 24 0d 50 fa 1b 20  20 20 20 20 c9 20 63 61  |ap$.P..     . ca|
0000c7e0  72 74 5f 6d 69 6e 5f 79  5f 69 63 6f 6e 25 0d 51  |rt_min_y_icon%.Q|
0000c7f0  04 3a 20 20 20 20 20 20  20 74 24 3d 20 22 54 68  |.:       t$= "Th|
0000c800  65 20 6d 69 6e 69 6d 75  6d 20 59 20 76 61 6c 75  |e minimum Y valu|
0000c810  65 2e 7c 4d 53 65 6c 65  63 74 20 74 6f 20 61 6c  |e.|MSelect to al|
0000c820  74 65 72 22 2b 61 70 24  0d 51 0e 1b 20 20 20 20  |ter"+ap$.Q..    |
0000c830  20 c9 20 61 75 74 6f 5f  79 5f 63 61 72 74 61 78  | . auto_y_cartax|
0000c840  65 73 25 0d 51 18 38 20  20 20 20 20 20 20 74 24  |es%.Q.8       t$|
0000c850  3d 20 22 4d 61 6e 75 61  6c 20 6f 72 20 41 75 74  |= "Manual or Aut|
0000c860  6f 20 59 20 61 78 65 73  2e 7c 4d 53 65 6c 65 63  |o Y axes.|MSelec|
0000c870  74 20 74 6f 20 61 6c 74  65 72 22 0d 51 22 0a 20  |t to alter".Q". |
0000c880  20 20 20 20 cb 0d 51 2c  0b c9 20 69 6e 66 6f 25  |    ..Q,.. info%|
0000c890  0d 51 36 43 20 20 20 20  20 74 24 3d 22 54 68 69  |.Q6C     t$="Thi|
0000c8a0  73 20 64 69 73 70 6c 61  79 73 20 69 6e 66 6f 72  |s displays infor|
0000c8b0  6d 61 74 69 6f 6e 20 61  62 6f 75 74 20 74 68 65  |mation about the|
0000c8c0  20 47 72 61 70 68 20 61  70 70 6c 69 63 61 74 69  | Graph applicati|
0000c8d0  6f 6e 22 0d 51 40 0c c9  20 73 61 76 65 31 25 0d  |on".Q@.. save1%.|
0000c8e0  51 4a 47 20 20 20 20 20  74 24 3d 22 54 68 69 73  |QJG     t$="This|
0000c8f0  20 77 69 6e 64 6f 77 20  61 6c 6c 6f 77 73 20 67  | window allows g|
0000c900  72 61 70 68 20 66 75 6e  63 74 69 6f 6e 7c 4d 61  |raph function|Ma|
0000c910  6e 64 20 61 78 65 73 20  74 6f 20 62 65 20 73 61  |nd axes to be sa|
0000c920  76 65 64 20 20 22 0d 51  54 13 20 20 20 20 20 c8  |ved  ".QT.     .|
0000c930  8e 20 69 63 6f 6e 25 20  ca 0d 51 5e 34 20 20 20  |. icon% ..Q^4   |
0000c940  20 20 c9 20 32 20 3a 20  74 24 3d 74 24 2b 22 7c  |  . 2 : t$=t$+"||
0000c950  4d 46 69 6c 65 20 6e 61  6d 65 20 74 6f 20 73 61  |MFile name to sa|
0000c960  76 65 20 66 75 6e 63 74  69 6f 6e 73 22 0d 51 68  |ve functions".Qh|
0000c970  3c 20 20 20 20 20 c9 20  30 20 3a 20 74 24 3d 74  |<     . 0 : t$=t|
0000c980  24 2b 22 7c 4d 53 65 6c  65 63 74 20 74 6f 20 73  |$+"|MSelect to s|
0000c990  61 76 65 20 75 73 69 6e  67 20 67 69 76 65 6e 20  |ave using given |
0000c9a0  66 69 6c 65 6e 61 6d 65  22 0d 51 72 4b 20 20 20  |filename".QrK   |
0000c9b0  20 20 c9 20 33 20 3a 20  74 24 3d 74 24 2b 22 7c  |  . 3 : t$=t$+"||
0000c9c0  4d 53 65 6c 65 63 74 2c  20 68 6f 6c 64 20 61 6e  |MSelect, hold an|
0000c9d0  64 20 64 72 61 67 20 74  6f 20 61 20 64 69 72 65  |d drag to a dire|
0000c9e0  63 74 6f 72 79 20 76 69  77 65 72 20 74 6f 20 73  |ctory viwer to s|
0000c9f0  61 76 65 22 0d 51 7c 0a  20 20 20 20 20 cb 0d 51  |ave".Q|.     ..Q|
0000ca00  86 0b c9 20 73 61 76 65  25 0d 51 90 4d 20 20 20  |... save%.Q.M   |
0000ca10  20 20 74 24 3d 22 54 68  69 73 20 77 69 6e 64 6f  |  t$="This windo|
0000ca20  77 20 61 6c 6c 6f 77 73  20 67 72 61 70 68 20 64  |w allows graph d|
0000ca30  69 73 70 6c 61 79 7c 4d  74 6f 20 62 65 20 73 61  |isplay|Mto be sa|
0000ca40  76 65 64 20 61 73 20 61  20 44 72 61 77 20 66 69  |ved as a Draw fi|
0000ca50  6c 65 2e 20 20 22 0d 51  9a 13 20 20 20 20 20 c8  |le.  ".Q..     .|
0000ca60  8e 20 69 63 6f 6e 25 20  ca 0d 51 a4 3d 20 20 20  |. icon% ..Q.=   |
0000ca70  20 20 c9 20 32 20 3a 20  74 24 3d 74 24 2b 22 7c  |  . 2 : t$=t$+"||
0000ca80  4d 46 69 6c 65 20 6e 61  6d 65 20 74 6f 20 73 61  |MFile name to sa|
0000ca90  76 65 20 67 72 61 70 68  20 61 73 20 44 72 61 77  |ve graph as Draw|
0000caa0  20 66 69 6c 65 22 0d 51  ae 3c 20 20 20 20 20 c9  | file".Q.<     .|
0000cab0  20 30 20 3a 20 74 24 3d  74 24 2b 22 7c 4d 53 65  | 0 : t$=t$+"|MSe|
0000cac0  6c 65 63 74 20 74 6f 20  73 61 76 65 20 75 73 69  |lect to save usi|
0000cad0  6e 67 20 67 69 76 65 6e  20 66 69 6c 65 6e 61 6d  |ng given filenam|
0000cae0  65 22 0d 51 b8 4b 20 20  20 20 20 c9 20 33 20 3a  |e".Q.K     . 3 :|
0000caf0  20 74 24 3d 74 24 2b 22  7c 4d 53 65 6c 65 63 74  | t$=t$+"|MSelect|
0000cb00  2c 20 68 6f 6c 64 20 61  6e 64 20 64 72 61 67 20  |, hold and drag |
0000cb10  74 6f 20 61 20 64 69 72  65 63 74 6f 72 79 20 76  |to a directory v|
0000cb20  69 77 65 72 20 74 6f 20  73 61 76 65 22 0d 51 c2  |iwer to save".Q.|
0000cb30  0a 20 20 20 20 20 cb 0d  51 cc 11 c9 20 70 61 72  |.     ..Q... par|
0000cb40  61 6d 65 74 72 69 63 25  0d 51 d6 13 20 20 20 20  |ametric%.Q..    |
0000cb50  20 c8 8e 20 69 63 6f 6e  25 20 ca 0d 51 e0 20 20  | .. icon% ..Q.  |
0000cb60  20 20 20 20 74 65 72 6d  73 24 3d 22 7c 69 6e 20  |    terms$="|in |
0000cb70  74 65 72 6d 73 20 6f 66  20 74 22 0d 51 ea 2d 20  |terms of t".Q.- |
0000cb80  20 20 20 20 c9 20 34 20  3a 20 74 24 3d 22 53 65  |    . 4 : t$="Se|
0000cb90  6c 65 63 74 20 66 6f 72  20 70 72 65 76 69 6f 75  |lect for previou|
0000cba0  73 20 67 72 61 70 68 22  0d 51 f4 29 20 20 20 20  |s graph".Q.)    |
0000cbb0  20 c9 20 35 20 3a 20 74  24 3d 22 53 65 6c 65 63  | . 5 : t$="Selec|
0000cbc0  74 20 66 6f 72 20 6e 65  78 74 20 67 72 61 70 68  |t for next graph|
0000cbd0  22 0d 51 fe 1e 20 20 20  20 20 c9 20 70 61 72 61  |".Q..     . para|
0000cbe0  5f 66 75 6e 63 5f 79 65  73 5f 69 63 6f 6e 25 0d  |_func_yes_icon%.|
0000cbf0  52 08 4a 20 20 20 20 20  20 20 20 20 20 74 24 3d  |R.J          t$=|
0000cc00  22 53 65 6c 65 63 74 20  74 6f 20 63 68 61 6e 67  |"Select to chang|
0000cc10  65 2e 7c 4d 49 6e 64 69  63 61 74 65 73 20 69 66  |e.|MIndicates if|
0000cc20  20 67 72 61 67 68 20 69  73 20 70 6c 6f 74 74 65  | gragh is plotte|
0000cc30  64 20 6f 72 20 6e 6f 74  22 0d 52 12 4d 20 20 20  |d or not".R.M   |
0000cc40  20 20 c9 20 70 61 72 61  5f 66 75 6e 63 78 5f 69  |  . para_funcx_i|
0000cc50  63 6f 6e 25 3a 74 24 3d  22 54 68 65 20 58 20 63  |con%:t$="The X c|
0000cc60  6f 6d 70 6f 6e 61 6e 74  20 6f 66 20 74 68 65 20  |omponant of the |
0000cc70  66 75 6e 63 74 69 6f 6e  22 2b 74 65 72 6d 73 24  |function"+terms$|
0000cc80  2b 77 61 72 6e 24 0d 52  1c 4d 20 20 20 20 20 c9  |+warn$.R.M     .|
0000cc90  20 70 61 72 61 5f 66 75  6e 63 79 5f 69 63 6f 6e  | para_funcy_icon|
0000cca0  25 3a 74 24 3d 22 54 68  65 20 59 20 63 6f 6d 70  |%:t$="The Y comp|
0000ccb0  6f 6e 61 6e 74 20 6f 66  20 74 68 65 20 66 75 6e  |onant of the fun|
0000ccc0  63 74 69 6f 6e 22 2b 74  65 72 6d 73 24 2b 77 61  |ction"+terms$+wa|
0000ccd0  72 6e 24 0d 52 26 40 20  20 20 20 20 c9 20 39 20  |rn$.R&@     . 9 |
0000cce0  3a 74 24 3d 22 54 68 69  73 20 73 68 6f 77 73 20  |:t$="This shows |
0000ccf0  74 68 65 20 63 6f 6c 6f  75 72 20 6f 66 20 74 68  |the colour of th|
0000cd00  65 20 63 75 72 72 65 6e  74 20 66 75 6e 63 74 69  |e current functi|
0000cd10  6f 6e 22 0d 52 30 0a 20  20 20 20 20 cb 0d 52 3a  |on".R0.     ..R:|
0000cd20  0f c9 20 70 61 72 61 61  78 65 73 25 0d 52 44 13  |.. paraaxes%.RD.|
0000cd30  20 20 20 20 20 c8 8e 20  69 63 6f 6e 25 20 ca 0d  |     .. icon% ..|
0000cd40  52 4e 1b 20 20 20 20 20  c9 20 70 61 72 61 5f 6d  |RN.     . para_m|
0000cd50  61 78 5f 78 5f 69 63 6f  6e 25 0d 52 58 36 20 20  |ax_x_icon%.RX6  |
0000cd60  20 20 20 20 20 74 24 3d  20 22 54 68 65 20 6d 61  |     t$= "The ma|
0000cd70  78 69 6d 75 6d 20 58 20  76 61 6c 75 65 2e 7c 4d  |ximum X value.|M|
0000cd80  53 65 6c 65 63 74 20 74  6f 20 61 6c 74 65 72 22  |Select to alter"|
0000cd90  0d 52 62 1b 20 20 20 20  20 c9 20 70 61 72 61 5f  |.Rb.     . para_|
0000cda0  6d 69 6e 5f 78 5f 69 63  6f 6e 25 0d 52 6c 36 20  |min_x_icon%.Rl6 |
0000cdb0  20 20 20 20 20 20 74 24  3d 20 22 54 68 65 20 6d  |      t$= "The m|
0000cdc0  69 6e 69 6d 75 6d 20 58  20 76 61 6c 75 65 2e 7c  |inimum X value.||
0000cdd0  4d 53 65 6c 65 63 74 20  74 6f 20 61 6c 74 65 72  |MSelect to alter|
0000cde0  22 0d 52 76 1b 20 20 20  20 20 c9 20 70 61 72 61  |".Rv.     . para|
0000cdf0  5f 6d 69 6e 5f 74 5f 69  63 6f 6e 25 0d 52 80 36  |_min_t_icon%.R.6|
0000ce00  20 20 20 20 20 20 20 74  24 3d 20 22 54 68 65 20  |       t$= "The |
0000ce10  6d 69 6e 69 6d 75 6d 20  54 20 76 61 6c 75 65 2e  |minimum T value.|
0000ce20  7c 4d 53 65 6c 65 63 74  20 74 6f 20 61 6c 74 65  ||MSelect to alte|
0000ce30  72 22 0d 52 8a 1b 20 20  20 20 20 c9 20 70 61 72  |r".R..     . par|
0000ce40  61 5f 6d 61 78 5f 74 5f  69 63 6f 6e 25 0d 52 94  |a_max_t_icon%.R.|
0000ce50  36 20 20 20 20 20 20 20  74 24 3d 20 22 54 68 65  |6       t$= "The|
0000ce60  20 6d 61 78 69 6d 75 6d  20 54 20 76 61 6c 75 65  | maximum T value|
0000ce70  2e 7c 4d 53 65 6c 65 63  74 20 74 6f 20 61 6c 74  |.|MSelect to alt|
0000ce80  65 72 22 0d 52 9e 1b 20  20 20 20 20 c9 20 70 61  |er".R..     . pa|
0000ce90  72 61 5f 6d 61 78 5f 79  5f 69 63 6f 6e 25 0d 52  |ra_max_y_icon%.R|
0000cea0  a8 36 20 20 20 20 20 20  20 74 24 3d 20 22 54 68  |.6       t$= "Th|
0000ceb0  65 20 6d 61 78 69 6d 75  6d 20 59 20 76 61 6c 75  |e maximum Y valu|
0000cec0  65 2e 7c 4d 53 65 6c 65  63 74 20 74 6f 20 61 6c  |e.|MSelect to al|
0000ced0  74 65 72 22 0d 52 b2 1b  20 20 20 20 20 c9 20 70  |ter".R..     . p|
0000cee0  61 72 61 5f 6d 69 6e 5f  79 5f 69 63 6f 6e 25 0d  |ara_min_y_icon%.|
0000cef0  52 bc 36 20 20 20 20 20  20 20 74 24 3d 20 22 54  |R.6       t$= "T|
0000cf00  68 65 20 6d 69 6e 69 6d  75 6d 20 59 20 76 61 6c  |he minimum Y val|
0000cf10  75 65 2e 7c 4d 53 65 6c  65 63 74 20 74 6f 20 61  |ue.|MSelect to a|
0000cf20  6c 74 65 72 22 0d 52 c6  1b 20 20 20 20 20 c9 20  |lter".R..     . |
0000cf30  61 75 74 6f 5f 79 5f 63  61 72 74 61 78 65 73 25  |auto_y_cartaxes%|
0000cf40  0d 52 d0 38 20 20 20 20  20 20 20 74 24 3d 20 22  |.R.8       t$= "|
0000cf50  4d 61 6e 75 61 6c 20 6f  72 20 41 75 74 6f 20 59  |Manual or Auto Y|
0000cf60  20 61 78 65 73 2e 7c 4d  53 65 6c 65 63 74 20 74  | axes.|MSelect t|
0000cf70  6f 20 61 6c 74 65 72 22  0d 52 da 0a 20 20 20 20  |o alter".R..    |
0000cf80  20 cb 0d 52 e4 04 0d 52  ee 0c c9 20 70 6f 6c 61  | ..R...R... pola|
0000cf90  72 25 0d 52 f8 13 20 20  20 20 20 c8 8e 20 69 63  |r%.R..     .. ic|
0000cfa0  6f 6e 25 20 ca 0d 53 02  2d 20 20 20 20 20 c9 20  |on% ..S.-     . |
0000cfb0  34 20 3a 20 74 24 3d 22  53 65 6c 65 63 74 20 66  |4 : t$="Select f|
0000cfc0  6f 72 20 70 72 65 76 69  6f 75 73 20 67 72 61 70  |or previous grap|
0000cfd0  68 22 0d 53 0c 29 20 20  20 20 20 c9 20 35 20 3a  |h".S.)     . 5 :|
0000cfe0  20 74 24 3d 22 53 65 6c  65 63 74 20 66 6f 72 20  | t$="Select for |
0000cff0  6e 65 78 74 20 67 72 61  70 68 22 0d 53 16 1f 20  |next graph".S.. |
0000d000  20 20 20 20 c9 20 70 6f  6c 61 72 5f 66 75 6e 63  |    . polar_func|
0000d010  5f 79 65 73 5f 69 63 6f  6e 25 0d 53 20 4a 20 20  |_yes_icon%.S J  |
0000d020  20 20 20 20 20 20 20 20  74 24 3d 22 53 65 6c 65  |        t$="Sele|
0000d030  63 74 20 74 6f 20 63 68  61 6e 67 65 2e 7c 4d 49  |ct to change.|MI|
0000d040  6e 64 69 63 61 74 65 73  20 69 66 20 67 72 61 67  |ndicates if grag|
0000d050  68 20 69 73 20 70 6c 6f  74 74 65 64 20 6f 72 20  |h is plotted or |
0000d060  6e 6f 74 22 0d 53 2a 4c  20 20 20 20 20 c9 20 70  |not".S*L     . p|
0000d070  6f 6c 61 72 5f 66 75 6e  63 5f 69 63 6f 6e 25 20  |olar_func_icon% |
0000d080  3a 20 74 24 3d 22 54 68  65 20 66 75 6e 63 74 69  |: t$="The functi|
0000d090  6f 6e 20 74 6f 20 62 65  20 70 6c 6f 74 74 65 64  |on to be plotted|
0000d0a0  7c 4d 69 6e 20 74 65 72  6d 73 20 6f 66 20 74 22  ||Min terms of t"|
0000d0b0  0d 53 34 2c 20 20 20 20  20 20 20 20 20 20 20 20  |.S4,            |
0000d0c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000d0d0  20 74 24 3d 74 24 2b 77  61 72 6e 24 0d 53 3e 40  | t$=t$+warn$.S>@|
0000d0e0  20 20 20 20 20 c9 20 39  20 3a 74 24 3d 22 54 68  |     . 9 :t$="Th|
0000d0f0  69 73 20 73 68 6f 77 73  20 74 68 65 20 63 6f 6c  |is shows the col|
0000d100  6f 75 72 20 6f 66 20 74  68 65 20 63 75 72 72 65  |our of the curre|
0000d110  6e 74 20 66 75 6e 63 74  69 6f 6e 22 0d 53 48 0a  |nt function".SH.|
0000d120  20 20 20 20 20 cb 0d 53  52 10 c9 20 70 6f 6c 61  |     ..SR.. pola|
0000d130  72 61 78 65 73 25 0d 53  5c 13 20 20 20 20 20 c8  |raxes%.S\.     .|
0000d140  8e 20 69 63 6f 6e 25 20  ca 0d 53 66 1a 20 20 20  |. icon% ..Sf.   |
0000d150  20 20 c9 20 70 6f 6c 61  72 5f 6d 61 78 5f 69 63  |  . polar_max_ic|
0000d160  6f 6e 25 0d 53 70 3a 20  20 20 20 20 20 20 74 24  |on%.Sp:       t$|
0000d170  3d 20 22 54 68 65 20 6d  61 78 69 6d 75 6d 20 61  |= "The maximum a|
0000d180  6e 67 6c 65 20 76 61 6c  75 65 2e 7c 4d 53 65 6c  |ngle value.|MSel|
0000d190  65 63 74 20 74 6f 20 61  6c 74 65 72 22 0d 53 7a  |ect to alter".Sz|
0000d1a0  1a 20 20 20 20 20 c9 20  70 6f 6c 61 72 5f 6d 69  |.     . polar_mi|
0000d1b0  6e 5f 69 63 6f 6e 25 0d  53 84 36 20 20 20 20 20  |n_icon%.S.6     |
0000d1c0  20 20 74 24 3d 20 22 54  68 65 20 6d 69 6e 69 6d  |  t$= "The minim|
0000d1d0  75 6d 20 58 20 76 61 6c  75 65 2e 7c 4d 53 65 6c  |um X value.|MSel|
0000d1e0  65 63 74 20 74 6f 20 61  6c 74 65 72 22 0d 53 8e  |ect to alter".S.|
0000d1f0  1b 20 20 20 20 20 c9 20  61 75 74 6f 5f 70 6f 6c  |.     . auto_pol|
0000d200  61 72 5f 61 78 65 73 25  0d 53 98 44 20 20 20 20  |ar_axes%.S.D    |
0000d210  20 20 20 74 24 3d 20 22  4d 61 6e 75 61 6c 20 6f  |   t$= "Manual o|
0000d220  72 20 41 75 74 6f 20 52  61 64 69 75 73 20 63 61  |r Auto Radius ca|
0000d230  6c 63 75 6c 61 74 69 6f  6e 2e 7c 4d 53 65 6c 65  |lculation.|MSele|
0000d240  63 74 20 74 6f 20 61 6c  74 65 72 22 0d 53 a2 1d  |ct to alter".S..|
0000d250  20 20 20 20 20 c9 20 70  6f 6c 61 72 5f 72 61 64  |     . polar_rad|
0000d260  69 75 73 5f 69 63 6f 6e  25 0d 53 ac 45 20 20 20  |ius_icon%.S.E   |
0000d270  20 20 20 20 74 24 3d 20  22 54 68 65 20 6d 61 78  |    t$= "The max|
0000d280  69 6d 75 6d 20 72 61 64  69 75 73 20 74 6f 20 62  |imum radius to b|
0000d290  65 20 64 69 73 70 6c 61  79 65 64 2e 7c 4d 53 65  |e displayed.|MSe|
0000d2a0  6c 65 63 74 20 74 6f 20  61 6c 74 65 72 22 0d 53  |lect to alter".S|
0000d2b0  b6 0a 20 20 20 20 20 cb  0d 53 c0 04 0d 53 ca 05  |..     ..S...S..|
0000d2c0  cb 0d 53 d4 0e e7 20 74  24 3c 3e 22 22 20 8c 0d  |..S... t$<>"" ..|
0000d2d0  53 de 18 20 20 62 6c 6f  63 6b 25 21 31 32 3d 62  |S..  block%!12=b|
0000d2e0  6c 6f 63 6b 25 21 38 0d  53 e8 14 20 20 62 6c 6f  |lock%!8.S..  blo|
0000d2f0  63 6b 25 21 31 36 3d 26  35 30 33 0d 53 f2 18 20  |ck%!16=&503.S.. |
0000d300  20 24 28 62 6c 6f 63 6b  25 2b 32 30 29 3d 74 24  | $(block%+20)=t$|
0000d310  2b bd 30 0d 53 fc 1d 20  20 21 62 6c 6f 63 6b 25  |+.0.S..  !block%|
0000d320  20 3d 20 28 32 35 2b a9  74 24 29 80 20 ac 20 33  | = (25+.t$). . 3|
0000d330  0d 54 06 2d 20 20 c8 99  22 57 69 6d 70 5f 53 65  |.T.-  .."Wimp_Se|
0000d340  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 62 6c  |ndMessage",17,bl|
0000d350  6f 63 6b 25 2c 62 6c 6f  63 6b 25 21 34 0d 54 10  |ock%,block%!4.T.|
0000d360  05 cd 0d 54 1a 05 e1 0d  54 24 04 0d 54 2e 1a dd  |...T....T$..T...|
0000d370  20 f2 73 61 76 65 5f 74  6f 5f 64 69 73 63 28 6e  | .save_to_disc(n|
0000d380  61 6d 65 24 29 0d 54 38  17 e7 20 66 6f 72 6d 61  |ame$).T8.. forma|
0000d390  74 24 20 3d 22 64 61 74  61 22 20 8c 0d 54 42 13  |t$ ="data" ..TB.|
0000d3a0  66 69 6c 65 25 20 3d ae  28 6e 61 6d 65 24 29 0d  |file% =.(name$).|
0000d3b0  54 4c 14 e3 20 67 72 61  70 68 25 20 3d 20 31 20  |TL.. graph% = 1 |
0000d3c0  b8 20 36 0d 54 56 20 f1  20 23 66 69 6c 65 25 2c  |. 6.TV . #file%,|
0000d3d0  20 63 61 72 74 5f 70 6c  6f 74 25 28 67 72 61 70  | cart_plot%(grap|
0000d3e0  68 25 29 0d 54 60 25 f1  20 23 66 69 6c 65 25 2c  |h%).T`%. #file%,|
0000d3f0  20 63 61 72 74 5f 66 75  6e 63 74 69 6f 6e 73 24  | cart_functions$|
0000d400  28 67 72 61 70 68 25 29  0d 54 6a 2d f1 20 23 66  |(graph%).Tj-. #f|
0000d410  69 6c 65 25 2c 20 65 6e  74 65 72 65 64 5f 63 61  |ile%, entered_ca|
0000d420  72 74 5f 66 75 6e 63 74  69 6f 6e 73 24 28 67 72  |rt_functions$(gr|
0000d430  61 70 68 25 29 0d 54 74  2e f1 20 23 66 69 6c 65  |aph%).Tt.. #file|
0000d440  25 2c 20 65 6e 74 65 72  65 64 5f 70 61 72 61 78  |%, entered_parax|
0000d450  5f 66 75 6e 63 74 69 6f  6e 73 24 28 67 72 61 70  |_functions$(grap|
0000d460  68 25 29 0d 54 7e 2e f1  20 23 66 69 6c 65 25 2c  |h%).T~.. #file%,|
0000d470  20 65 6e 74 65 72 65 64  5f 70 61 72 61 79 5f 66  | entered_paray_f|
0000d480  75 6e 63 74 69 6f 6e 73  24 28 67 72 61 70 68 25  |unctions$(graph%|
0000d490  29 0d 54 88 25 f1 20 23  66 69 6c 65 25 2c 20 70  |).T.%. #file%, p|
0000d4a0  61 72 61 5f 66 75 6e 63  74 69 6f 6e 73 24 28 67  |ara_functions$(g|
0000d4b0  72 61 70 68 25 29 0d 54  92 20 f1 20 23 66 69 6c  |raph%).T. . #fil|
0000d4c0  65 25 2c 20 70 61 72 61  5f 70 6c 6f 74 25 28 67  |e%, para_plot%(g|
0000d4d0  72 61 70 68 25 29 0d 54  9c 05 ed 0d 54 a6 04 0d  |raph%).T....T...|
0000d4e0  54 b0 14 e3 20 67 72 61  70 68 25 20 3d 20 31 20  |T... graph% = 1 |
0000d4f0  b8 20 33 0d 54 ba 21 f1  20 23 66 69 6c 65 25 2c  |. 3.T.!. #file%,|
0000d500  20 70 6f 6c 61 72 5f 70  6c 6f 74 25 28 67 72 61  | polar_plot%(gra|
0000d510  70 68 25 29 0d 54 c4 26  f1 20 23 66 69 6c 65 25  |ph%).T.&. #file%|
0000d520  2c 20 70 6f 6c 61 72 5f  66 75 6e 63 74 69 6f 6e  |, polar_function|
0000d530  73 24 28 67 72 61 70 68  25 29 0d 54 ce 2e f1 20  |s$(graph%).T... |
0000d540  23 66 69 6c 65 25 2c 20  65 6e 74 65 72 65 64 5f  |#file%, entered_|
0000d550  70 6f 6c 61 72 5f 66 75  6e 63 74 69 6f 6e 73 24  |polar_functions$|
0000d560  28 67 72 61 70 68 25 29  0d 54 d8 26 f1 20 23 66  |(graph%).T.&. #f|
0000d570  69 6c 65 25 2c 20 70 61  72 61 78 5f 66 75 6e 63  |ile%, parax_func|
0000d580  74 69 6f 6e 73 24 28 67  72 61 70 68 25 29 0d 54  |tions$(graph%).T|
0000d590  e2 26 f1 20 23 66 69 6c  65 25 2c 20 70 61 72 61  |.&. #file%, para|
0000d5a0  79 5f 66 75 6e 63 74 69  6f 6e 73 24 28 67 72 61  |y_functions$(gra|
0000d5b0  70 68 25 29 0d 54 ec 05  ed 0d 54 f6 04 0d 55 00  |ph%).T....T...U.|
0000d5c0  17 f1 20 23 66 69 6c 65  25 2c 63 61 72 74 5f 70  |.. #file%,cart_p|
0000d5d0  6c 6f 74 25 0d 55 0a 18  f1 20 23 66 69 6c 65 25  |lot%.U... #file%|
0000d5e0  2c 70 6f 6c 61 72 5f 70  6c 6f 74 25 0d 55 14 17  |,polar_plot%.U..|
0000d5f0  f1 20 23 66 69 6c 65 25  2c 70 61 72 61 5f 70 6c  |. #file%,para_pl|
0000d600  6f 74 25 0d 55 1e 1b f1  20 23 66 69 6c 65 25 2c  |ot%.U... #file%,|
0000d610  6d 61 69 6e 5f 6d 65 6e  75 5f 6f 70 65 6e 0d 55  |main_menu_open.U|
0000d620  28 1b f1 20 23 66 69 6c  65 25 2c 71 75 69 74 5f  |(.. #file%,quit_|
0000d630  6d 65 6e 75 5f 6f 70 65  6e 0d 55 32 16 f1 20 23  |menu_open.U2.. #|
0000d640  66 69 6c 65 25 2c 66 69  6e 69 73 68 65 64 25 0d  |file%,finished%.|
0000d650  55 3c 1d f1 20 23 66 69  6c 65 25 2c 61 75 74 6f  |U<.. #file%,auto|
0000d660  5f 79 5f 63 61 72 74 61  78 65 73 25 0d 55 46 17  |_y_cartaxes%.UF.|
0000d670  f1 20 23 66 69 6c 65 25  2c 73 68 6f 77 5f 61 78  |. #file%,show_ax|
0000d680  65 73 25 0d 55 50 1f f1  20 23 66 69 6c 65 25 2c  |es%.UP.. #file%,|
0000d690  6f 6c 64 5f 6d 61 69 6e  5f 78 5f 6f 72 69 67 69  |old_main_x_origi|
0000d6a0  6e 24 0d 55 5a 1f f1 20  23 66 69 6c 65 25 2c 6f  |n$.UZ.. #file%,o|
0000d6b0  6c 64 5f 6d 61 69 6e 5f  79 5f 6f 72 69 67 69 6e  |ld_main_y_origin|
0000d6c0  24 0d 55 64 1b f1 20 23  66 69 6c 65 25 2c 6d 61  |$.Ud.. #file%,ma|
0000d6d0  69 6e 5f 78 5f 6f 72 69  67 69 6e 25 0d 55 6e 1b  |in_x_origin%.Un.|
0000d6e0  f1 20 23 66 69 6c 65 25  2c 6d 61 69 6e 5f 79 5f  |. #file%,main_y_|
0000d6f0  6f 72 69 67 69 6e 25 0d  55 78 19 f1 20 23 66 69  |origin%.Ux.. #fi|
0000d700  6c 65 25 2c 65 6e 74 65  72 65 64 5f 6d 61 78 78  |le%,entered_maxx|
0000d710  0d 55 82 19 f1 20 23 66  69 6c 65 25 2c 65 6e 74  |.U... #file%,ent|
0000d720  65 72 65 64 5f 6d 69 6e  78 0d 55 8c 19 f1 20 23  |ered_minx.U... #|
0000d730  66 69 6c 65 25 2c 65 6e  74 65 72 65 64 5f 6d 61  |file%,entered_ma|
0000d740  78 79 0d 55 96 19 f1 20  23 66 69 6c 65 25 2c 65  |xy.U... #file%,e|
0000d750  6e 74 65 72 65 64 5f 6d  69 6e 79 0d 55 a0 1d f1  |ntered_miny.U...|
0000d760  20 23 66 69 6c 65 25 2c  61 75 74 6f 5f 79 5f 70  | #file%,auto_y_p|
0000d770  61 72 61 61 78 65 73 25  0d 55 aa 20 f1 20 23 66  |araaxes%.U. . #f|
0000d780  69 6c 65 25 2c 6d 61 78  78 2c 6d 69 6e 78 2c 6d  |ile%,maxx,minx,m|
0000d790  61 78 79 2c 6d 69 6e 79  0d 55 b4 16 f1 20 23 66  |axy,miny.U... #f|
0000d7a0  69 6c 65 25 2c 69 6e 63  72 65 6d 65 6e 74 0d 55  |ile%,increment.U|
0000d7b0  be 14 f1 20 23 66 69 6c  65 25 2c 79 66 61 63 74  |... #file%,yfact|
0000d7c0  6f 72 0d 55 c8 15 f1 20  23 66 69 6c 65 25 2c 79  |or.U... #file%,y|
0000d7d0  5f 73 68 69 66 74 25 0d  55 d2 15 f1 20 23 66 69  |_shift%.U... #fi|
0000d7e0  6c 65 25 2c 64 65 67 72  65 65 73 25 0d 55 dc 15  |le%,degrees%.U..|
0000d7f0  f1 20 23 66 69 6c 65 25  2c 7a 6f 6f 6d 69 6e 67  |. #file%,zooming|
0000d800  25 0d 55 e6 1d f1 20 23  66 69 6c 65 25 2c 61 75  |%.U... #file%,au|
0000d810  74 6f 5f 70 6f 6c 61 72  5f 61 78 65 73 25 0d 55  |to_polar_axes%.U|
0000d820  f0 04 0d 55 fa 3b f1 20  23 66 69 6c 65 25 2c a4  |...U.;. #file%,.|
0000d830  72 65 61 64 5f 69 63 6f  6e 5f 74 65 78 74 28 63  |read_icon_text(c|
0000d840  61 72 74 61 78 65 73 25  2c 63 61 72 74 5f 61 78  |artaxes%,cart_ax|
0000d850  65 73 5f 79 65 73 5f 69  63 6f 6e 25 29 0d 56 04  |es_yes_icon%).V.|
0000d860  38 f1 20 23 66 69 6c 65  25 2c a4 72 65 61 64 5f  |8. #file%,.read_|
0000d870  69 63 6f 6e 5f 74 65 78  74 28 63 61 72 74 61 78  |icon_text(cartax|
0000d880  65 73 25 2c 63 61 72 74  5f 6d 69 6e 5f 78 5f 69  |es%,cart_min_x_i|
0000d890  63 6f 6e 25 29 0d 56 0e  38 f1 20 23 66 69 6c 65  |con%).V.8. #file|
0000d8a0  25 2c a4 72 65 61 64 5f  69 63 6f 6e 5f 74 65 78  |%,.read_icon_tex|
0000d8b0  74 28 63 61 72 74 61 78  65 73 25 2c 63 61 72 74  |t(cartaxes%,cart|
0000d8c0  5f 6d 61 78 5f 78 5f 69  63 6f 6e 25 29 0d 56 18  |_max_x_icon%).V.|
0000d8d0  38 f1 20 23 66 69 6c 65  25 2c a4 72 65 61 64 5f  |8. #file%,.read_|
0000d8e0  69 63 6f 6e 5f 74 65 78  74 28 63 61 72 74 61 78  |icon_text(cartax|
0000d8f0  65 73 25 2c 63 61 72 74  5f 6d 69 6e 5f 79 5f 69  |es%,cart_min_y_i|
0000d900  63 6f 6e 25 29 0d 56 22  38 f1 20 23 66 69 6c 65  |con%).V"8. #file|
0000d910  25 2c a4 72 65 61 64 5f  69 63 6f 6e 5f 74 65 78  |%,.read_icon_tex|
0000d920  74 28 63 61 72 74 61 78  65 73 25 2c 63 61 72 74  |t(cartaxes%,cart|
0000d930  5f 6d 61 78 5f 79 5f 69  63 6f 6e 25 29 0d 56 2c  |_max_y_icon%).V,|
0000d940  04 0d 56 36 04 0d 56 40  3b f1 20 23 66 69 6c 65  |..V6..V@;. #file|
0000d950  25 2c a4 72 65 61 64 5f  69 63 6f 6e 5f 74 65 78  |%,.read_icon_tex|
0000d960  74 28 70 61 72 61 61 78  65 73 25 2c 70 61 72 61  |t(paraaxes%,para|
0000d970  5f 61 78 65 73 5f 79 65  73 5f 69 63 6f 6e 25 29  |_axes_yes_icon%)|
0000d980  0d 56 4a 39 f1 20 23 66  69 6c 65 25 2c a4 72 65  |.VJ9. #file%,.re|
0000d990  61 64 5f 69 63 6f 6e 5f  74 65 78 74 28 70 61 72  |ad_icon_text(par|
0000d9a0  61 61 78 65 73 25 2c 70  61 72 61 5f 6d 69 6e 5f  |aaxes%,para_min_|
0000d9b0  78 5f 69 63 6f 6e 25 20  29 0d 56 54 39 f1 20 23  |x_icon% ).VT9. #|
0000d9c0  66 69 6c 65 25 2c a4 72  65 61 64 5f 69 63 6f 6e  |file%,.read_icon|
0000d9d0  5f 74 65 78 74 28 70 61  72 61 61 78 65 73 25 2c  |_text(paraaxes%,|
0000d9e0  70 61 72 61 5f 6d 61 78  5f 78 5f 69 63 6f 6e 25  |para_max_x_icon%|
0000d9f0  20 29 0d 56 5e 39 f1 20  23 66 69 6c 65 25 2c a4  | ).V^9. #file%,.|
0000da00  72 65 61 64 5f 69 63 6f  6e 5f 74 65 78 74 28 70  |read_icon_text(p|
0000da10  61 72 61 61 78 65 73 25  2c 70 61 72 61 5f 6d 69  |araaxes%,para_mi|
0000da20  6e 5f 79 5f 69 63 6f 6e  25 20 29 0d 56 68 39 f1  |n_y_icon% ).Vh9.|
0000da30  20 23 66 69 6c 65 25 2c  a4 72 65 61 64 5f 69 63  | #file%,.read_ic|
0000da40  6f 6e 5f 74 65 78 74 28  70 61 72 61 61 78 65 73  |on_text(paraaxes|
0000da50  25 2c 70 61 72 61 5f 6d  61 78 5f 79 5f 69 63 6f  |%,para_max_y_ico|
0000da60  6e 25 20 29 0d 56 72 39  f1 20 23 66 69 6c 65 25  |n% ).Vr9. #file%|
0000da70  2c a4 72 65 61 64 5f 69  63 6f 6e 5f 74 65 78 74  |,.read_icon_text|
0000da80  28 70 61 72 61 61 78 65  73 25 2c 70 61 72 61 5f  |(paraaxes%,para_|
0000da90  6d 69 6e 5f 74 5f 69 63  6f 6e 25 20 29 0d 56 7c  |min_t_icon% ).V||
0000daa0  39 f1 20 23 66 69 6c 65  25 2c a4 72 65 61 64 5f  |9. #file%,.read_|
0000dab0  69 63 6f 6e 5f 74 65 78  74 28 70 61 72 61 61 78  |icon_text(paraax|
0000dac0  65 73 25 2c 70 61 72 61  5f 6d 61 78 5f 74 5f 69  |es%,para_max_t_i|
0000dad0  63 6f 6e 25 20 29 0d 56  86 04 0d 56 90 04 0d 56  |con% ).V...V...V|
0000dae0  9a 3b f1 20 23 66 69 6c  65 25 2c a4 72 65 61 64  |.;. #file%,.read|
0000daf0  5f 69 63 6f 6e 5f 74 65  78 74 28 70 6f 6c 61 72  |_icon_text(polar|
0000db00  61 78 65 73 25 2c 70 6f  6c 61 72 5f 72 61 64 69  |axes%,polar_radi|
0000db10  75 73 5f 69 63 6f 6e 25  29 0d 56 a4 39 f1 20 23  |us_icon%).V.9. #|
0000db20  66 69 6c 65 25 2c a4 72  65 61 64 5f 69 63 6f 6e  |file%,.read_icon|
0000db30  5f 74 65 78 74 28 70 6f  6c 61 72 61 78 65 73 25  |_text(polaraxes%|
0000db40  2c 70 6f 6c 61 72 5f 6d  69 6e 5f 69 63 6f 6e 25  |,polar_min_icon%|
0000db50  20 29 0d 56 ae 38 f1 20  23 66 69 6c 65 25 2c a4  | ).V.8. #file%,.|
0000db60  72 65 61 64 5f 69 63 6f  6e 5f 74 65 78 74 28 70  |read_icon_text(p|
0000db70  6f 6c 61 72 61 78 65 73  25 2c 70 6f 6c 61 72 5f  |olaraxes%,polar_|
0000db80  6d 61 78 5f 69 63 6f 6e  25 29 0d 56 b8 3d f1 20  |max_icon%).V.=. |
0000db90  23 66 69 6c 65 25 2c a4  72 65 61 64 5f 69 63 6f  |#file%,.read_ico|
0000dba0  6e 5f 74 65 78 74 28 70  6f 6c 61 72 61 78 65 73  |n_text(polaraxes|
0000dbb0  25 2c 70 6f 6c 61 72 5f  61 78 65 73 5f 79 65 73  |%,polar_axes_yes|
0000dbc0  5f 69 63 6f 6e 25 29 0d  56 c2 05 20 0d 56 cc 0c  |_icon%).V.. .V..|
0000dbd0  d9 20 23 66 69 6c 65 25  0d 56 d6 1b c8 99 22 57  |. #file%.V...."W|
0000dbe0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
0000dbf0  2c 2d 31 0d 56 e0 1e ff  28 22 73 65 74 74 79 70  |,-1.V...("settyp|
0000dc00  65 20 22 2b 6e 61 6d 65  24 2b 22 20 37 37 37 22  |e "+name$+" 777"|
0000dc10  29 0d 56 ea 05 cc 0d 56  f4 12 20 20 f2 64 72 61  |).V....V..  .dra|
0000dc20  77 28 6e 61 6d 65 24 29  0d 56 fe 05 cd 0d 57 08  |w(name$).V....W.|
0000dc30  05 e1 0d 57 12 04 0d 57  1c 04 0d 57 26 21 dd 20  |...W...W...W&!. |
0000dc40  f2 6c 6f 61 64 5f 66 72  6f 6d 5f 64 69 73 63 28  |.load_from_disc(|
0000dc50  66 69 6c 65 5f 6e 61 6d  65 24 29 0d 57 30 19 66  |file_name$).W0.f|
0000dc60  69 6c 65 25 20 3d 20 8e  28 66 69 6c 65 5f 6e 61  |ile% = .(file_na|
0000dc70  6d 65 24 29 0d 57 3a 14  e3 20 67 72 61 70 68 25  |me$).W:.. graph%|
0000dc80  20 3d 20 31 20 b8 20 36  0d 57 44 20 e8 20 23 66  | = 1 . 6.WD . #f|
0000dc90  69 6c 65 25 2c 20 63 61  72 74 5f 70 6c 6f 74 25  |ile%, cart_plot%|
0000dca0  28 67 72 61 70 68 25 29  0d 57 4e 25 e8 20 23 66  |(graph%).WN%. #f|
0000dcb0  69 6c 65 25 2c 20 63 61  72 74 5f 66 75 6e 63 74  |ile%, cart_funct|
0000dcc0  69 6f 6e 73 24 28 67 72  61 70 68 25 29 0d 57 58  |ions$(graph%).WX|
0000dcd0  2d e8 20 23 66 69 6c 65  25 2c 20 65 6e 74 65 72  |-. #file%, enter|
0000dce0  65 64 5f 63 61 72 74 5f  66 75 6e 63 74 69 6f 6e  |ed_cart_function|
0000dcf0  73 24 28 67 72 61 70 68  25 29 0d 57 62 2e e8 20  |s$(graph%).Wb.. |
0000dd00  23 66 69 6c 65 25 2c 20  65 6e 74 65 72 65 64 5f  |#file%, entered_|
0000dd10  70 61 72 61 78 5f 66 75  6e 63 74 69 6f 6e 73 24  |parax_functions$|
0000dd20  28 67 72 61 70 68 25 29  0d 57 6c 2e e8 20 23 66  |(graph%).Wl.. #f|
0000dd30  69 6c 65 25 2c 20 65 6e  74 65 72 65 64 5f 70 61  |ile%, entered_pa|
0000dd40  72 61 79 5f 66 75 6e 63  74 69 6f 6e 73 24 28 67  |ray_functions$(g|
0000dd50  72 61 70 68 25 29 0d 57  76 25 e8 20 23 66 69 6c  |raph%).Wv%. #fil|
0000dd60  65 25 2c 20 70 61 72 61  5f 66 75 6e 63 74 69 6f  |e%, para_functio|
0000dd70  6e 73 24 28 67 72 61 70  68 25 29 0d 57 80 20 e8  |ns$(graph%).W. .|
0000dd80  20 23 66 69 6c 65 25 2c  20 70 61 72 61 5f 70 6c  | #file%, para_pl|
0000dd90  6f 74 25 28 67 72 61 70  68 25 29 0d 57 8a 05 ed  |ot%(graph%).W...|
0000dda0  0d 57 94 04 0d 57 9e 14  e3 20 67 72 61 70 68 25  |.W...W... graph%|
0000ddb0  20 3d 20 31 20 b8 20 33  0d 57 a8 21 e8 20 23 66  | = 1 . 3.W.!. #f|
0000ddc0  69 6c 65 25 2c 20 70 6f  6c 61 72 5f 70 6c 6f 74  |ile%, polar_plot|
0000ddd0  25 28 67 72 61 70 68 25  29 0d 57 b2 26 e8 20 23  |%(graph%).W.&. #|
0000dde0  66 69 6c 65 25 2c 20 70  6f 6c 61 72 5f 66 75 6e  |file%, polar_fun|
0000ddf0  63 74 69 6f 6e 73 24 28  67 72 61 70 68 25 29 0d  |ctions$(graph%).|
0000de00  57 bc 2e e8 20 23 66 69  6c 65 25 2c 20 65 6e 74  |W... #file%, ent|
0000de10  65 72 65 64 5f 70 6f 6c  61 72 5f 66 75 6e 63 74  |ered_polar_funct|
0000de20  69 6f 6e 73 24 28 67 72  61 70 68 25 29 0d 57 c6  |ions$(graph%).W.|
0000de30  26 e8 20 23 66 69 6c 65  25 2c 20 70 61 72 61 78  |&. #file%, parax|
0000de40  5f 66 75 6e 63 74 69 6f  6e 73 24 28 67 72 61 70  |_functions$(grap|
0000de50  68 25 29 0d 57 d0 26 e8  20 23 66 69 6c 65 25 2c  |h%).W.&. #file%,|
0000de60  20 70 61 72 61 79 5f 66  75 6e 63 74 69 6f 6e 73  | paray_functions|
0000de70  24 28 67 72 61 70 68 25  29 0d 57 da 05 ed 0d 57  |$(graph%).W....W|
0000de80  e4 17 e8 20 23 66 69 6c  65 25 2c 63 61 72 74 5f  |... #file%,cart_|
0000de90  70 6c 6f 74 25 0d 57 ee  18 e8 20 23 66 69 6c 65  |plot%.W... #file|
0000dea0  25 2c 70 6f 6c 61 72 5f  70 6c 6f 74 25 0d 57 f8  |%,polar_plot%.W.|
0000deb0  17 e8 20 23 66 69 6c 65  25 2c 70 61 72 61 5f 70  |.. #file%,para_p|
0000dec0  6c 6f 74 25 0d 58 02 1b  e8 20 23 66 69 6c 65 25  |lot%.X... #file%|
0000ded0  2c 6d 61 69 6e 5f 6d 65  6e 75 5f 6f 70 65 6e 0d  |,main_menu_open.|
0000dee0  58 0c 1b e8 20 23 66 69  6c 65 25 2c 71 75 69 74  |X... #file%,quit|
0000def0  5f 6d 65 6e 75 5f 6f 70  65 6e 0d 58 16 16 e8 20  |_menu_open.X... |
0000df00  23 66 69 6c 65 25 2c 66  69 6e 69 73 68 65 64 25  |#file%,finished%|
0000df10  0d 58 20 1d e8 20 23 66  69 6c 65 25 2c 61 75 74  |.X .. #file%,aut|
0000df20  6f 5f 79 5f 63 61 72 74  61 78 65 73 25 0d 58 2a  |o_y_cartaxes%.X*|
0000df30  17 e8 20 23 66 69 6c 65  25 2c 73 68 6f 77 5f 61  |.. #file%,show_a|
0000df40  78 65 73 25 0d 58 34 1f  e8 20 23 66 69 6c 65 25  |xes%.X4.. #file%|
0000df50  2c 6f 6c 64 5f 6d 61 69  6e 5f 78 5f 6f 72 69 67  |,old_main_x_orig|
0000df60  69 6e 24 0d 58 3e 1f e8  20 23 66 69 6c 65 25 2c  |in$.X>.. #file%,|
0000df70  6f 6c 64 5f 6d 61 69 6e  5f 79 5f 6f 72 69 67 69  |old_main_y_origi|
0000df80  6e 24 0d 58 48 1b e8 20  23 66 69 6c 65 25 2c 6d  |n$.XH.. #file%,m|
0000df90  61 69 6e 5f 78 5f 6f 72  69 67 69 6e 25 0d 58 52  |ain_x_origin%.XR|
0000dfa0  1b e8 20 23 66 69 6c 65  25 2c 6d 61 69 6e 5f 79  |.. #file%,main_y|
0000dfb0  5f 6f 72 69 67 69 6e 25  0d 58 5c 19 e8 20 23 66  |_origin%.X\.. #f|
0000dfc0  69 6c 65 25 2c 65 6e 74  65 72 65 64 5f 6d 61 78  |ile%,entered_max|
0000dfd0  78 0d 58 66 19 e8 20 23  66 69 6c 65 25 2c 65 6e  |x.Xf.. #file%,en|
0000dfe0  74 65 72 65 64 5f 6d 69  6e 78 0d 58 70 19 e8 20  |tered_minx.Xp.. |
0000dff0  23 66 69 6c 65 25 2c 65  6e 74 65 72 65 64 5f 6d  |#file%,entered_m|
0000e000  61 78 79 0d 58 7a 19 e8  20 23 66 69 6c 65 25 2c  |axy.Xz.. #file%,|
0000e010  65 6e 74 65 72 65 64 5f  6d 69 6e 79 0d 58 84 1d  |entered_miny.X..|
0000e020  e8 20 23 66 69 6c 65 25  2c 61 75 74 6f 5f 79 5f  |. #file%,auto_y_|
0000e030  70 61 72 61 61 78 65 73  25 0d 58 8e 20 e8 20 23  |paraaxes%.X. . #|
0000e040  66 69 6c 65 25 2c 6d 61  78 78 2c 6d 69 6e 78 2c  |file%,maxx,minx,|
0000e050  6d 61 78 79 2c 6d 69 6e  79 0d 58 98 16 e8 20 23  |maxy,miny.X... #|
0000e060  66 69 6c 65 25 2c 69 6e  63 72 65 6d 65 6e 74 0d  |file%,increment.|
0000e070  58 a2 14 e8 20 23 66 69  6c 65 25 2c 79 66 61 63  |X... #file%,yfac|
0000e080  74 6f 72 0d 58 ac 15 e8  20 23 66 69 6c 65 25 2c  |tor.X... #file%,|
0000e090  79 5f 73 68 69 66 74 25  0d 58 b6 15 e8 20 23 66  |y_shift%.X... #f|
0000e0a0  69 6c 65 25 2c 64 65 67  72 65 65 73 25 0d 58 c0  |ile%,degrees%.X.|
0000e0b0  15 e8 20 23 66 69 6c 65  25 2c 7a 6f 6f 6d 69 6e  |.. #file%,zoomin|
0000e0c0  67 25 0d 58 ca 1d e8 20  23 66 69 6c 65 25 2c 61  |g%.X... #file%,a|
0000e0d0  75 74 6f 5f 70 6f 6c 61  72 5f 61 78 65 73 25 0d  |uto_polar_axes%.|
0000e0e0  58 d4 13 e8 20 23 66 69  6c 65 25 2c 20 74 65 78  |X... #file%, tex|
0000e0f0  74 24 0d 58 de 49 63 61  72 74 5f 61 78 65 73 5f  |t$.X.Icart_axes_|
0000e100  79 65 73 5f 69 63 6f 6e  25 3d a4 63 68 61 6e 67  |yes_icon%=.chang|
0000e110  65 5f 74 65 78 74 28 63  61 72 74 61 78 65 73 25  |e_text(cartaxes%|
0000e120  2c 63 61 72 74 5f 61 78  65 73 5f 79 65 73 5f 69  |,cart_axes_yes_i|
0000e130  63 6f 6e 25 2c 74 65 78  74 24 29 0d 58 e8 13 e8  |con%,text$).X...|
0000e140  20 23 66 69 6c 65 25 2c  20 74 65 78 74 24 0d 58  | #file%, text$.X|
0000e150  f2 43 63 61 72 74 5f 6d  69 6e 5f 78 5f 69 63 6f  |.Ccart_min_x_ico|
0000e160  6e 25 3d a4 63 68 61 6e  67 65 5f 74 65 78 74 28  |n%=.change_text(|
0000e170  63 61 72 74 61 78 65 73  25 2c 63 61 72 74 5f 6d  |cartaxes%,cart_m|
0000e180  69 6e 5f 78 5f 69 63 6f  6e 25 2c 74 65 78 74 24  |in_x_icon%,text$|
0000e190  29 0d 58 fc 13 e8 20 23  66 69 6c 65 25 2c 20 74  |).X... #file%, t|
0000e1a0  65 78 74 24 0d 59 06 42  63 61 72 74 5f 6d 61 78  |ext$.Y.Bcart_max|
0000e1b0  5f 78 5f 69 63 6f 6e 3d  a4 63 68 61 6e 67 65 5f  |_x_icon=.change_|
0000e1c0  74 65 78 74 28 63 61 72  74 61 78 65 73 25 2c 63  |text(cartaxes%,c|
0000e1d0  61 72 74 5f 6d 61 78 5f  78 5f 69 63 6f 6e 25 2c  |art_max_x_icon%,|
0000e1e0  74 65 78 74 24 29 0d 59  10 13 e8 20 23 66 69 6c  |text$).Y... #fil|
0000e1f0  65 25 2c 20 74 65 78 74  24 0d 59 1a 43 63 61 72  |e%, text$.Y.Ccar|
0000e200  74 5f 6d 69 6e 5f 79 5f  69 63 6f 6e 25 3d a4 63  |t_min_y_icon%=.c|
0000e210  68 61 6e 67 65 5f 74 65  78 74 28 63 61 72 74 61  |hange_text(carta|
0000e220  78 65 73 25 2c 63 61 72  74 5f 6d 69 6e 5f 79 5f  |xes%,cart_min_y_|
0000e230  69 63 6f 6e 25 2c 74 65  78 74 24 29 0d 59 24 13  |icon%,text$).Y$.|
0000e240  e8 20 23 66 69 6c 65 25  2c 20 74 65 78 74 24 0d  |. #file%, text$.|
0000e250  59 2e 43 63 61 72 74 5f  6d 61 78 5f 79 5f 69 63  |Y.Ccart_max_y_ic|
0000e260  6f 6e 25 3d a4 63 68 61  6e 67 65 5f 74 65 78 74  |on%=.change_text|
0000e270  28 63 61 72 74 61 78 65  73 25 2c 63 61 72 74 5f  |(cartaxes%,cart_|
0000e280  6d 61 78 5f 79 5f 69 63  6f 6e 25 2c 74 65 78 74  |max_y_icon%,text|
0000e290  24 29 0d 59 38 04 0d 59  42 13 e8 20 23 66 69 6c  |$).Y8..YB.. #fil|
0000e2a0  65 25 2c 20 74 65 78 74  24 0d 59 4c 49 70 61 72  |e%, text$.YLIpar|
0000e2b0  61 5f 61 78 65 73 5f 79  65 73 5f 69 63 6f 6e 25  |a_axes_yes_icon%|
0000e2c0  3d a4 63 68 61 6e 67 65  5f 74 65 78 74 28 70 61  |=.change_text(pa|
0000e2d0  72 61 61 78 65 73 25 2c  70 61 72 61 5f 61 78 65  |raaxes%,para_axe|
0000e2e0  73 5f 79 65 73 5f 69 63  6f 6e 25 2c 74 65 78 74  |s_yes_icon%,text|
0000e2f0  24 29 0d 59 56 13 e8 20  23 66 69 6c 65 25 2c 20  |$).YV.. #file%, |
0000e300  74 65 78 74 24 0d 59 60  44 70 61 72 61 5f 6d 69  |text$.Y`Dpara_mi|
0000e310  6e 5f 78 5f 69 63 6f 6e  25 3d a4 63 68 61 6e 67  |n_x_icon%=.chang|
0000e320  65 5f 74 65 78 74 28 70  61 72 61 61 78 65 73 25  |e_text(paraaxes%|
0000e330  2c 70 61 72 61 5f 6d 69  6e 5f 78 5f 69 63 6f 6e  |,para_min_x_icon|
0000e340  25 2c 74 65 78 74 24 20  29 0d 59 6a 13 e8 20 23  |%,text$ ).Yj.. #|
0000e350  66 69 6c 65 25 2c 20 74  65 78 74 24 0d 59 74 44  |file%, text$.YtD|
0000e360  70 61 72 61 5f 6d 61 78  5f 78 5f 69 63 6f 6e 25  |para_max_x_icon%|
0000e370  3d a4 63 68 61 6e 67 65  5f 74 65 78 74 28 70 61  |=.change_text(pa|
0000e380  72 61 61 78 65 73 25 2c  70 61 72 61 5f 6d 61 78  |raaxes%,para_max|
0000e390  5f 78 5f 69 63 6f 6e 25  2c 74 65 78 74 24 20 29  |_x_icon%,text$ )|
0000e3a0  0d 59 7e 13 e8 20 23 66  69 6c 65 25 2c 20 74 65  |.Y~.. #file%, te|
0000e3b0  78 74 24 0d 59 88 44 70  61 72 61 5f 6d 69 6e 5f  |xt$.Y.Dpara_min_|
0000e3c0  79 5f 69 63 6f 6e 25 3d  a4 63 68 61 6e 67 65 5f  |y_icon%=.change_|
0000e3d0  74 65 78 74 28 70 61 72  61 61 78 65 73 25 2c 70  |text(paraaxes%,p|
0000e3e0  61 72 61 5f 6d 69 6e 5f  79 5f 69 63 6f 6e 25 2c  |ara_min_y_icon%,|
0000e3f0  74 65 78 74 24 20 29 0d  59 92 13 e8 20 23 66 69  |text$ ).Y... #fi|
0000e400  6c 65 25 2c 20 74 65 78  74 24 0d 59 9c 44 70 61  |le%, text$.Y.Dpa|
0000e410  72 61 5f 6d 61 78 5f 79  5f 69 63 6f 6e 25 3d a4  |ra_max_y_icon%=.|
0000e420  63 68 61 6e 67 65 5f 74  65 78 74 28 70 61 72 61  |change_text(para|
0000e430  61 78 65 73 25 2c 70 61  72 61 5f 6d 61 78 5f 79  |axes%,para_max_y|
0000e440  5f 69 63 6f 6e 25 2c 74  65 78 74 24 20 29 0d 59  |_icon%,text$ ).Y|
0000e450  a6 13 e8 20 23 66 69 6c  65 25 2c 20 74 65 78 74  |... #file%, text|
0000e460  24 0d 59 b0 13 6d 69 6e  74 20 3d 20 bb 28 74 65  |$.Y..mint = .(te|
0000e470  78 74 24 29 0d 59 ba 44  70 61 72 61 5f 6d 69 6e  |xt$).Y.Dpara_min|
0000e480  5f 74 5f 69 63 6f 6e 25  3d a4 63 68 61 6e 67 65  |_t_icon%=.change|
0000e490  5f 74 65 78 74 28 70 61  72 61 61 78 65 73 25 2c  |_text(paraaxes%,|
0000e4a0  70 61 72 61 5f 6d 69 6e  5f 74 5f 69 63 6f 6e 25  |para_min_t_icon%|
0000e4b0  2c 74 65 78 74 24 20 29  0d 59 c4 13 6d 61 78 74  |,text$ ).Y..maxt|
0000e4c0  20 3d 20 bb 28 74 65 78  74 24 29 0d 59 ce 13 e8  | = .(text$).Y...|
0000e4d0  20 23 66 69 6c 65 25 2c  20 74 65 78 74 24 0d 59  | #file%, text$.Y|
0000e4e0  d8 44 70 61 72 61 5f 6d  61 78 5f 74 5f 69 63 6f  |.Dpara_max_t_ico|
0000e4f0  6e 25 3d a4 63 68 61 6e  67 65 5f 74 65 78 74 28  |n%=.change_text(|
0000e500  70 61 72 61 61 78 65 73  25 2c 70 61 72 61 5f 6d  |paraaxes%,para_m|
0000e510  61 78 5f 74 5f 69 63 6f  6e 25 2c 74 65 78 74 24  |ax_t_icon%,text$|
0000e520  20 29 0d 59 e2 13 e8 20  23 66 69 6c 65 25 2c 20  | ).Y... #file%, |
0000e530  74 65 78 74 24 0d 59 ec  48 70 6f 6c 61 72 5f 72  |text$.Y.Hpolar_r|
0000e540  61 64 69 75 73 5f 69 63  6f 6e 25 3d a4 63 68 61  |adius_icon%=.cha|
0000e550  6e 67 65 5f 74 65 78 74  28 70 6f 6c 61 72 61 78  |nge_text(polarax|
0000e560  65 73 25 2c 70 6f 6c 61  72 5f 72 61 64 69 75 73  |es%,polar_radius|
0000e570  5f 69 63 6f 6e 25 2c 74  65 78 74 24 29 0d 59 f6  |_icon%,text$).Y.|
0000e580  13 e8 20 23 66 69 6c 65  25 2c 20 74 65 78 74 24  |.. #file%, text$|
0000e590  0d 5a 00 43 70 6f 6c 61  72 5f 6d 69 6e 5f 69 63  |.Z.Cpolar_min_ic|
0000e5a0  6f 6e 25 3d a4 63 68 61  6e 67 65 5f 74 65 78 74  |on%=.change_text|
0000e5b0  28 70 6f 6c 61 72 61 78  65 73 25 2c 70 6f 6c 61  |(polaraxes%,pola|
0000e5c0  72 5f 6d 69 6e 5f 69 63  6f 6e 25 2c 74 65 78 74  |r_min_icon%,text|
0000e5d0  24 20 29 0d 5a 0a 13 e8  20 23 66 69 6c 65 25 2c  |$ ).Z... #file%,|
0000e5e0  20 74 65 78 74 24 0d 5a  14 42 70 6f 6c 61 72 5f  | text$.Z.Bpolar_|
0000e5f0  6d 61 78 5f 69 63 6f 6e  25 3d a4 63 68 61 6e 67  |max_icon%=.chang|
0000e600  65 5f 74 65 78 74 28 70  6f 6c 61 72 61 78 65 73  |e_text(polaraxes|
0000e610  25 2c 70 6f 6c 61 72 5f  6d 61 78 5f 69 63 6f 6e  |%,polar_max_icon|
0000e620  25 2c 74 65 78 74 24 29  0d 5a 1e 13 e8 20 23 66  |%,text$).Z... #f|
0000e630  69 6c 65 25 2c 20 74 65  78 74 24 0d 5a 28 4c 70  |ile%, text$.Z(Lp|
0000e640  6f 6c 61 72 5f 61 78 65  73 5f 79 65 73 5f 69 63  |olar_axes_yes_ic|
0000e650  6f 6e 25 3d a4 63 68 61  6e 67 65 5f 74 65 78 74  |on%=.change_text|
0000e660  28 70 6f 6c 61 72 61 78  65 73 25 2c 70 6f 6c 61  |(polaraxes%,pola|
0000e670  72 5f 61 78 65 73 5f 79  65 73 5f 69 63 6f 6e 25  |r_axes_yes_icon%|
0000e680  2c 74 65 78 74 24 29 0d  5a 32 0c d9 20 23 66 69  |,text$).Z2.. #fi|
0000e690  6c 65 25 0d 5a 3c 0c f2  69 6e 73 74 61 6c 6c 0d  |le%.Z<..install.|
0000e6a0  5a 46 05 e1 0d 5a 50 04  0d 5a 5a 04 0d 5a 64 04  |ZF...ZP..ZZ..Zd.|
0000e6b0  0d 5a 6e 04 0d 5a 78 0e  dd 20 f2 69 6e 73 74 61  |.Zn..Zx.. .insta|
0000e6c0  6c 6c 0d 5a 82 17 77 69  6e 64 6f 77 25 3d 20 63  |ll.Z..window%= c|
0000e6d0  61 72 74 65 73 69 61 6e  25 0d 5a 8c 2e 63 61 72  |artesian%.Z..car|
0000e6e0  74 5f 66 75 6e 63 5f 69  63 6f 6e 25 3d 20 a4 75  |t_func_icon%= .u|
0000e6f0  70 64 61 74 65 5f 63 61  72 74 5f 66 75 6e 63 74  |pdate_cart_funct|
0000e700  69 6f 6e 28 20 31 29 0d  5a 96 15 e7 20 63 61 72  |ion( 1).Z... car|
0000e710  74 5f 70 6c 6f 74 25 28  31 29 20 8c 0d 5a a0 4a  |t_plot%(1) ..Z.J|
0000e720  63 61 72 74 5f 66 75 6e  63 5f 79 65 73 5f 69 63  |cart_func_yes_ic|
0000e730  6f 6e 25 3d a4 63 68 61  6e 67 65 5f 74 65 78 74  |on%=.change_text|
0000e740  28 63 61 72 74 65 73 69  61 6e 25 2c 63 61 72 74  |(cartesian%,cart|
0000e750  5f 66 75 6e 63 5f 79 65  73 5f 69 63 6f 6e 25 2c  |_func_yes_icon%,|
0000e760  22 59 65 73 22 29 0d 5a  aa 05 cc 0d 5a b4 49 63  |"Yes").Z....Z.Ic|
0000e770  61 72 74 5f 66 75 6e 63  5f 79 65 73 5f 69 63 6f  |art_func_yes_ico|
0000e780  6e 25 3d a4 63 68 61 6e  67 65 5f 74 65 78 74 28  |n%=.change_text(|
0000e790  63 61 72 74 65 73 69 61  6e 25 2c 63 61 72 74 5f  |cartesian%,cart_|
0000e7a0  66 75 6e 63 5f 79 65 73  5f 69 63 6f 6e 25 2c 22  |func_yes_icon%,"|
0000e7b0  4e 6f 22 29 0d 5a be 05  cd 0d 5a c8 19 77 69 6e  |No").Z....Z..win|
0000e7c0  64 6f 77 25 20 3d 20 70  61 72 61 6d 65 74 72 69  |dow% = parametri|
0000e7d0  63 25 0d 5a d2 30 70 61  72 61 5f 66 75 6e 63 78  |c%.Z.0para_funcx|
0000e7e0  5f 69 63 6f 6e 25 3d 20  a4 75 70 64 61 74 65 5f  |_icon%= .update_|
0000e7f0  70 61 72 61 78 5f 66 75  6e 63 74 69 6f 6e 28 20  |parax_function( |
0000e800  31 29 0d 5a dc 30 70 61  72 61 5f 66 75 6e 63 79  |1).Z.0para_funcy|
0000e810  5f 69 63 6f 6e 25 3d 20  a4 75 70 64 61 74 65 5f  |_icon%= .update_|
0000e820  70 61 72 61 79 5f 66 75  6e 63 74 69 6f 6e 28 20  |paray_function( |
0000e830  31 29 0d 5a e6 15 e7 20  70 61 72 61 5f 70 6c 6f  |1).Z... para_plo|
0000e840  74 25 28 31 29 20 8c 0d  5a f0 4b 70 61 72 61 5f  |t%(1) ..Z.Kpara_|
0000e850  66 75 6e 63 5f 79 65 73  5f 69 63 6f 6e 25 3d a4  |func_yes_icon%=.|
0000e860  63 68 61 6e 67 65 5f 74  65 78 74 28 70 61 72 61  |change_text(para|
0000e870  6d 65 74 72 69 63 25 2c  70 61 72 61 5f 66 75 6e  |metric%,para_fun|
0000e880  63 5f 79 65 73 5f 69 63  6f 6e 25 2c 22 59 65 73  |c_yes_icon%,"Yes|
0000e890  22 29 0d 5a fa 05 cc 0d  5b 04 4a 70 61 72 61 5f  |").Z....[.Jpara_|
0000e8a0  66 75 6e 63 5f 79 65 73  5f 69 63 6f 6e 25 3d a4  |func_yes_icon%=.|
0000e8b0  63 68 61 6e 67 65 5f 74  65 78 74 28 70 61 72 61  |change_text(para|
0000e8c0  6d 65 74 72 69 63 25 2c  70 61 72 61 5f 66 75 6e  |metric%,para_fun|
0000e8d0  63 5f 79 65 73 5f 69 63  6f 6e 25 2c 22 4e 4f 22  |c_yes_icon%,"NO"|
0000e8e0  29 0d 5b 0e 05 cd 0d 5b  18 14 77 69 6e 64 6f 77  |).[....[..window|
0000e8f0  25 20 3d 20 70 6f 6c 61  72 25 0d 5b 22 30 70 6f  |% = polar%.["0po|
0000e900  6c 61 72 5f 66 75 6e 63  5f 69 63 6f 6e 25 3d 20  |lar_func_icon%= |
0000e910  a4 75 70 64 61 74 65 5f  70 6f 6c 61 72 5f 66 75  |.update_polar_fu|
0000e920  6e 63 74 69 6f 6e 28 20  31 29 0d 5b 2c 16 e7 20  |nction( 1).[,.. |
0000e930  70 6f 6c 61 72 5f 70 6c  6f 74 25 28 31 29 20 8c  |polar_plot%(1) .|
0000e940  0d 5b 36 48 70 6f 6c 61  72 5f 66 75 6e 63 5f 79  |.[6Hpolar_func_y|
0000e950  65 73 5f 69 63 6f 6e 25  3d a4 63 68 61 6e 67 65  |es_icon%=.change|
0000e960  5f 74 65 78 74 28 70 6f  6c 61 72 25 2c 70 6f 6c  |_text(polar%,pol|
0000e970  61 72 5f 66 75 6e 63 5f  79 65 73 5f 69 63 6f 6e  |ar_func_yes_icon|
0000e980  25 2c 22 59 65 73 22 29  0d 5b 40 05 cc 0d 5b 4a  |%,"Yes").[@...[J|
0000e990  47 70 6f 6c 61 72 5f 66  75 6e 63 5f 79 65 73 5f  |Gpolar_func_yes_|
0000e9a0  69 63 6f 6e 25 3d a4 63  68 61 6e 67 65 5f 74 65  |icon%=.change_te|
0000e9b0  78 74 28 70 6f 6c 61 72  25 2c 70 6f 6c 61 72 5f  |xt(polar%,polar_|
0000e9c0  66 75 6e 63 5f 79 65 73  5f 69 63 6f 6e 25 2c 22  |func_yes_icon%,"|
0000e9d0  4e 4f 22 29 0d 5b 54 05  cd 0d 5b 5e 19 63 75 72  |NO").[T...[^.cur|
0000e9e0  72 65 6e 74 5f 63 61 72  74 5f 66 75 6e 63 25 20  |rent_cart_func% |
0000e9f0  3d 31 0d 5b 68 19 63 75  72 72 65 6e 74 5f 70 61  |=1.[h.current_pa|
0000ea00  72 61 5f 66 75 6e 63 25  20 3d 31 0d 5b 72 1d 63  |ra_func% =1.[r.c|
0000ea10  75 72 72 65 6e 74 5f 70  6f 6c 61 72 5f 66 75 6e  |urrent_polar_fun|
0000ea20  63 25 20 20 20 3d 20 31  0d 5b 7c 10 e7 20 64 65  |c%   = 1.[|.. de|
0000ea30  67 72 65 65 73 25 20 8c  0d 5b 86 19 20 20 f2 74  |grees% ..[..  .t|
0000ea40  69 63 6b 28 6d 61 69 6e  5f 6d 65 6e 75 25 2c 38  |ick(main_menu%,8|
0000ea50  29 0d 5b 90 05 cc 0d 5b  9a 1c 20 20 f2 6e 6f 5f  |).[....[..  .no_|
0000ea60  74 69 63 6b 28 6d 61 69  6e 5f 6d 65 6e 75 25 2c  |tick(main_menu%,|
0000ea70  38 29 0d 5b a4 05 cd 0d  5b ae 19 e7 20 73 68 6f  |8).[....[... sho|
0000ea80  77 5f 63 6f 6f 72 64 69  6e 61 74 65 73 25 20 8c  |w_coordinates% .|
0000ea90  0d 5b b8 19 20 20 f2 74  69 63 6b 28 6d 61 69 6e  |.[..  .tick(main|
0000eaa0  5f 6d 65 6e 75 25 2c 32  29 0d 5b c2 05 cc 0d 5b  |_menu%,2).[....[|
0000eab0  cc 1c 20 20 f2 6e 6f 5f  74 69 63 6b 28 6d 61 69  |..  .no_tick(mai|
0000eac0  6e 5f 6d 65 6e 75 25 2c  32 29 0d 5b d6 05 cd 0d  |n_menu%,2).[....|
0000ead0  5b e0 12 e7 20 73 68 6f  77 5f 61 78 65 73 25 20  |[... show_axes% |
0000eae0  8c 0d 5b ea 19 20 20 f2  74 69 63 6b 28 6d 61 69  |..[..  .tick(mai|
0000eaf0  6e 5f 6d 65 6e 75 25 2c  39 29 0d 5b f4 05 cc 0d  |n_menu%,9).[....|
0000eb00  5b fe 1c 20 20 f2 6e 6f  5f 74 69 63 6b 28 6d 61  |[..  .no_tick(ma|
0000eb10  69 6e 5f 6d 65 6e 75 25  2c 39 29 0d 5c 08 05 cd  |in_menu%,9).\...|
0000eb20  0d 5c 12 04 0d 5c 1c 19  20 e7 20 61 75 74 6f 5f  |.\...\.. . auto_|
0000eb30  79 5f 63 61 72 74 61 78  65 73 25 20 8c 0d 5c 26  |y_cartaxes% ..\&|
0000eb40  2a 20 f2 64 65 73 65 6c  65 63 74 28 63 61 72 74  |* .deselect(cart|
0000eb50  61 78 65 73 25 2c 63 61  72 74 5f 6d 69 6e 5f 79  |axes%,cart_min_y|
0000eb60  5f 69 63 6f 6e 25 29 0d  5c 30 2a 20 f2 64 65 73  |_icon%).\0* .des|
0000eb70  65 6c 65 63 74 28 63 61  72 74 61 78 65 73 25 2c  |elect(cartaxes%,|
0000eb80  63 61 72 74 5f 6d 61 78  5f 79 5f 69 63 6f 6e 25  |cart_max_y_icon%|
0000eb90  29 0d 5c 3a 05 cc 0d 5c  44 2a 20 f2 72 65 73 65  |).\:...\D* .rese|
0000eba0  6c 65 63 74 28 63 61 72  74 61 78 65 73 25 2c 63  |lect(cartaxes%,c|
0000ebb0  61 72 74 5f 6d 69 6e 5f  79 5f 69 63 6f 6e 25 29  |art_min_y_icon%)|
0000ebc0  0d 5c 4e 2a 20 f2 72 65  73 65 6c 65 63 74 28 63  |.\N* .reselect(c|
0000ebd0  61 72 74 61 78 65 73 25  2c 63 61 72 74 5f 6d 61  |artaxes%,cart_ma|
0000ebe0  78 5f 79 5f 69 63 6f 6e  25 29 0d 5c 58 05 cd 0d  |x_y_icon%).\X...|
0000ebf0  5c 62 04 0d 5c 6c 19 20  e7 20 61 75 74 6f 5f 79  |\b..\l. . auto_y|
0000ec00  5f 70 61 72 61 61 78 65  73 25 20 8c 0d 5c 76 2a  |_paraaxes% ..\v*|
0000ec10  20 f2 64 65 73 65 6c 65  63 74 28 70 61 72 61 61  | .deselect(paraa|
0000ec20  78 65 73 25 2c 70 61 72  61 5f 6d 69 6e 5f 79 5f  |xes%,para_min_y_|
0000ec30  69 63 6f 6e 25 29 0d 5c  80 2a 20 f2 64 65 73 65  |icon%).\.* .dese|
0000ec40  6c 65 63 74 28 70 61 72  61 61 78 65 73 25 2c 70  |lect(paraaxes%,p|
0000ec50  61 72 61 5f 6d 61 78 5f  79 5f 69 63 6f 6e 25 29  |ara_max_y_icon%)|
0000ec60  0d 5c 8a 2a 20 f2 64 65  73 65 6c 65 63 74 28 70  |.\.* .deselect(p|
0000ec70  61 72 61 61 78 65 73 25  2c 70 61 72 61 5f 6d 69  |araaxes%,para_mi|
0000ec80  6e 5f 78 5f 69 63 6f 6e  25 29 0d 5c 94 2a 20 f2  |n_x_icon%).\.* .|
0000ec90  64 65 73 65 6c 65 63 74  28 70 61 72 61 61 78 65  |deselect(paraaxe|
0000eca0  73 25 2c 70 61 72 61 5f  6d 61 78 5f 78 5f 69 63  |s%,para_max_x_ic|
0000ecb0  6f 6e 25 29 0d 5c 9e 05  cc 0d 5c a8 2a 20 f2 72  |on%).\....\.* .r|
0000ecc0  65 73 65 6c 65 63 74 28  70 61 72 61 61 78 65 73  |eselect(paraaxes|
0000ecd0  25 2c 70 61 72 61 5f 6d  69 6e 5f 79 5f 69 63 6f  |%,para_min_y_ico|
0000ece0  6e 25 29 0d 5c b2 2a 20  f2 72 65 73 65 6c 65 63  |n%).\.* .reselec|
0000ecf0  74 28 70 61 72 61 61 78  65 73 25 2c 70 61 72 61  |t(paraaxes%,para|
0000ed00  5f 6d 61 78 5f 79 5f 69  63 6f 6e 25 29 0d 5c bc  |_max_y_icon%).\.|
0000ed10  2a 20 f2 72 65 73 65 6c  65 63 74 28 70 61 72 61  |* .reselect(para|
0000ed20  61 78 65 73 25 2c 70 61  72 61 5f 6d 69 6e 5f 78  |axes%,para_min_x|
0000ed30  5f 69 63 6f 6e 25 29 0d  5c c6 2a 20 f2 72 65 73  |_icon%).\.* .res|
0000ed40  65 6c 65 63 74 28 70 61  72 61 61 78 65 73 25 2c  |elect(paraaxes%,|
0000ed50  70 61 72 61 5f 6d 61 78  5f 78 5f 69 63 6f 6e 25  |para_max_x_icon%|
0000ed60  29 0d 5c d0 05 cd 0d 5c  da 04 0d 5c e4 19 20 e7  |).\....\...\.. .|
0000ed70  20 61 75 74 6f 5f 70 6f  6c 61 72 5f 61 78 65 73  | auto_polar_axes|
0000ed80  25 20 8c 0d 5c ee 2d 20  f2 64 65 73 65 6c 65 63  |% ..\.- .deselec|
0000ed90  74 28 70 6f 6c 61 72 61  78 65 73 25 2c 70 6f 6c  |t(polaraxes%,pol|
0000eda0  61 72 5f 72 61 64 69 75  73 5f 69 63 6f 6e 25 29  |ar_radius_icon%)|
0000edb0  0d 5c f8 05 cc 0d 5d 02  2d 20 f2 72 65 73 65 6c  |.\....].- .resel|
0000edc0  65 63 74 28 70 6f 6c 61  72 61 78 65 73 25 2c 70  |ect(polaraxes%,p|
0000edd0  6f 6c 61 72 5f 72 61 64  69 75 73 5f 69 63 6f 6e  |olar_radius_icon|
0000ede0  25 29 0d 5d 0c 05 cd 0d  5d 16 04 0d 5d 20 04 0d  |%).]....]...] ..|
0000edf0  5d 2a 24 e7 20 63 61 72  74 5f 70 6c 6f 74 25 20  |]*$. cart_plot% |
0000ee00  8c 20 f2 73 65 6c 65 63  74 5f 63 61 72 74 65 73  |. .select_cartes|
0000ee10  69 61 6e 0d 5d 34 21 e7  20 70 6f 6c 61 72 5f 70  |ian.]4!. polar_p|
0000ee20  6c 6f 74 25 20 8c 20 f2  73 65 6c 65 63 74 5f 70  |lot% . .select_p|
0000ee30  6f 6c 61 72 0d 5d 3e 12  e7 20 70 61 72 61 5f 70  |olar.]>.. para_p|
0000ee40  6c 6f 74 25 20 8c 0d 5d  48 19 20 20 77 69 6e 64  |lot% ..]H.  wind|
0000ee50  6f 77 25 3d 70 61 72 61  6d 65 74 72 69 63 25 0d  |ow%=parametric%.|
0000ee60  5d 52 18 20 20 f2 65 78  74 72 61 63 74 5f 70 61  |]R.  .extract_pa|
0000ee70  72 61 5f 66 75 6e 63 0d  5d 5c 18 20 20 f2 73 65  |ra_func.]\.  .se|
0000ee80  6c 65 63 74 5f 70 61 72  61 6d 65 74 72 69 63 0d  |lect_parametric.|
0000ee90  5d 66 05 cd 0d 5d 70 04  0d 5d 7a 18 f4 20 73 65  |]f...]p..]z.. se|
0000eea0  74 20 63 6f 6c 6f 75 72  20 6f 66 20 69 63 6f 6e  |t colour of icon|
0000eeb0  0d 5d 84 28 f2 73 65 74  5f 67 72 61 70 68 5f 63  |.].(.set_graph_c|
0000eec0  6f 6c 6f 75 72 5f 69 63  6f 6e 28 63 61 72 74 65  |olour_icon(carte|
0000eed0  73 69 61 6e 25 2c 31 29  0d 5d 8e 29 f2 73 65 74  |sian%,1).].).set|
0000eee0  5f 67 72 61 70 68 5f 63  6f 6c 6f 75 72 5f 69 63  |_graph_colour_ic|
0000eef0  6f 6e 28 70 61 72 61 6d  65 74 72 69 63 25 2c 31  |on(parametric%,1|
0000ef00  29 0d 5d 98 24 f2 73 65  74 5f 67 72 61 70 68 5f  |).].$.set_graph_|
0000ef10  63 6f 6c 6f 75 72 5f 69  63 6f 6e 28 70 6f 6c 61  |colour_icon(pola|
0000ef20  72 25 2c 31 29 0d 5d a2  04 0d 5d ac 19 f4 20 73  |r%,1).]...]... s|
0000ef30  65 74 20 66 75 6e 63 74  69 6f 6e 20 6e 75 6d 62  |et function numb|
0000ef40  65 72 0d 5d b6 4c 63 61  72 74 5f 66 75 6e 63 5f  |er.].Lcart_func_|
0000ef50  63 6f 75 6e 74 5f 69 63  6f 6e 25 3d a4 63 68 61  |count_icon%=.cha|
0000ef60  6e 67 65 5f 74 65 78 74  28 63 61 72 74 65 73 69  |nge_text(cartesi|
0000ef70  61 6e 25 2c 63 61 72 74  5f 66 75 6e 63 5f 63 6f  |an%,cart_func_co|
0000ef80  75 6e 74 5f 69 63 6f 6e  25 2c 22 31 22 29 0d 5d  |unt_icon%,"1").]|
0000ef90  c0 4d 70 61 72 61 5f 66  75 6e 63 5f 63 6f 75 6e  |.Mpara_func_coun|
0000efa0  74 5f 69 63 6f 6e 25 3d  a4 63 68 61 6e 67 65 5f  |t_icon%=.change_|
0000efb0  74 65 78 74 28 70 61 72  61 6d 65 74 72 69 63 25  |text(parametric%|
0000efc0  2c 70 61 72 61 5f 66 75  6e 63 5f 63 6f 75 6e 74  |,para_func_count|
0000efd0  5f 69 63 6f 6e 25 2c 22  31 22 29 0d 5d ca 4a 70  |_icon%,"1").].Jp|
0000efe0  6f 6c 61 72 5f 66 75 6e  63 5f 63 6f 75 6e 74 5f  |olar_func_count_|
0000eff0  69 63 6f 6e 25 3d a4 63  68 61 6e 67 65 5f 74 65  |icon%=.change_te|
0000f000  78 74 28 70 6f 6c 61 72  25 2c 70 6f 6c 61 72 5f  |xt(polar%,polar_|
0000f010  66 75 6e 63 5f 63 6f 75  6e 74 5f 69 63 6f 6e 25  |func_count_icon%|
0000f020  2c 22 31 22 29 0d 5d d4  04 0d 5d de 12 f4 20 73  |,"1").]...]... s|
0000f030  65 74 20 66 75 6e 63 74  69 6f 6e 0d 5d e8 16 77  |et function.]..w|
0000f040  69 6e 64 6f 77 25 3d 63  61 72 74 65 73 69 61 6e  |indow%=cartesian|
0000f050  25 0d 5d f2 2d 63 61 72  74 5f 66 75 6e 63 5f 69  |%.].-cart_func_i|
0000f060  63 6f 6e 25 20 3d a4 75  70 64 61 74 65 5f 63 61  |con% =.update_ca|
0000f070  72 74 5f 66 75 6e 63 74  69 6f 6e 28 31 29 0d 5d  |rt_function(1).]|
0000f080  fc 12 77 69 6e 64 6f 77  25 3d 70 6f 6c 61 72 25  |..window%=polar%|
0000f090  0d 5e 06 30 70 6f 6c 61  72 5f 66 75 6e 63 5f 69  |.^.0polar_func_i|
0000f0a0  63 6f 6e 25 3d 20 a4 75  70 64 61 74 65 5f 70 6f  |con%= .update_po|
0000f0b0  6c 61 72 5f 66 75 6e 63  74 69 6f 6e 28 20 31 29  |lar_function( 1)|
0000f0c0  0d 5e 10 17 77 69 6e 64  6f 77 25 3d 70 61 72 61  |.^..window%=para|
0000f0d0  6d 65 74 72 69 63 25 0d  5e 1a 30 70 61 72 61 5f  |metric%.^.0para_|
0000f0e0  66 75 6e 63 78 5f 69 63  6f 6e 25 3d 20 a4 75 70  |funcx_icon%= .up|
0000f0f0  64 61 74 65 5f 70 61 72  61 78 5f 66 75 6e 63 74  |date_parax_funct|
0000f100  69 6f 6e 28 20 31 29 0d  5e 24 30 70 61 72 61 5f  |ion( 1).^$0para_|
0000f110  66 75 6e 63 79 5f 69 63  6f 6e 25 3d 20 a4 75 70  |funcy_icon%= .up|
0000f120  64 61 74 65 5f 70 61 72  61 79 5f 66 75 6e 63 74  |date_paray_funct|
0000f130  69 6f 6e 28 20 31 29 0d  5e 2e 04 0d 5e 38 04 0d  |ion( 1).^...^8..|
0000f140  5e 42 13 f4 20 75 70 64  61 74 65 20 77 69 6e 64  |^B.. update wind|
0000f150  6f 77 0d 5e 4c 26 e7 20  20 63 61 72 74 5f 70 6c  |ow.^L&.  cart_pl|
0000f160  6f 74 25 20 8c 20 77 69  6e 64 25 20 20 3d 63 61  |ot% . wind%  =ca|
0000f170  72 74 65 73 69 61 6e 25  0d 5e 56 27 e7 20 70 61  |rtesian%.^V'. pa|
0000f180  72 61 5f 70 6c 6f 74 25  20 8c 20 77 69 6e 64 25  |ra_plot% . wind%|
0000f190  20 20 20 3d 70 61 72 61  6d 65 74 72 69 63 25 0d  |   =parametric%.|
0000f1a0  5e 60 22 e7 20 70 6f 6c  61 72 5f 70 6c 6f 74 25  |^`". polar_plot%|
0000f1b0  20 8c 20 20 77 69 6e 64  25 20 3d 70 6f 6c 61 72  | .  wind% =polar|
0000f1c0  25 0d 5e 6a 2c c8 99 20  22 57 69 6d 70 5f 46 6f  |%.^j,.. "Wimp_Fo|
0000f1d0  72 63 65 52 65 64 72 61  77 22 2c 77 69 6e 64 25  |rceRedraw",wind%|
0000f1e0  2c 30 2c 2d 33 30 30 2c  39 30 30 2c 30 0d 5e 74  |,0,-300,900,0.^t|
0000f1f0  17 77 69 6e 64 6f 77 25  3d 70 61 72 61 6d 65 74  |.window%=paramet|
0000f200  72 69 63 25 0d 5e 7e 17  f2 6f 70 65 6e 5f 77 69  |ric%.^~..open_wi|
0000f210  6e 64 6f 77 28 6d 61 69  6e 25 29 0d 5e 88 21 e7  |ndow(main%).^.!.|
0000f220  20 70 6f 6c 61 72 5f 70  6c 6f 74 25 20 8c 20 f2  | polar_plot% . .|
0000f230  73 65 6c 65 63 74 5f 70  6f 6c 61 72 0d 5e 92 05  |select_polar.^..|
0000f240  e1 0d 5e 9c 04 0d 5e a6  16 dd 20 f2 67 65 74 5f  |..^...^... .get_|
0000f250  65 6e 76 69 72 6f 6e 6d  65 6e 74 0d 5e b0 17 c8  |environment.^...|
0000f260  99 20 22 4f 53 5f 47 65  74 45 6e 76 22 20 b8 20  |. "OS_GetEnv" . |
0000f270  63 24 0d 5e ba 1d 70 20  3d 20 a7 63 24 2c 22 22  |c$.^..p = .c$,""|
0000f280  22 22 2c a7 63 24 2c 22  22 22 22 29 2b 31 29 0d  |"",.c$,"""")+1).|
0000f290  5e c4 0f 63 24 3d c1 63  24 2c 70 2b 31 29 0d 5e  |^..c$=.c$,p+1).^|
0000f2a0  ce 11 c8 95 20 c0 63 24  2c 31 29 3d 22 20 22 0d  |.... .c$,1)=" ".|
0000f2b0  5e d8 0f 20 20 63 24 3d  c1 63 24 2c 32 29 0d 5e  |^..  c$=.c$,2).^|
0000f2c0  e2 05 ce 0d 5e ec 22 e7  20 63 24 3c 3e 22 22 20  |....^.". c$<>"" |
0000f2d0  8c 20 f2 6c 6f 61 64 5f  66 72 6f 6d 5f 64 69 73  |. .load_from_dis|
0000f2e0  63 28 63 24 29 0d 5e f6  18 e7 20 63 24 3c 3e 22  |c(c$).^... c$<>"|
0000f2f0  22 20 8c 20 24 66 69 25  20 3d 20 63 24 0d 5f 00  |" . $fi% = c$._.|
0000f300  05 e1 0d 5f 0a 04 0d 5f  14 04 0d 5f 1e 10 dd 20  |..._..._..._... |
0000f310  f2 66 69 6c 65 5f 64 61  74 61 0d 5f 28 14 20 20  |.file_data._(.  |
0000f320  73 61 76 65 5f 6f 70 65  6e 25 20 3d 20 b9 0d 5f  |save_open% = .._|
0000f330  32 19 20 20 f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |2.  .open_window|
0000f340  28 73 61 76 65 25 29 0d  5f 3c 05 e1 0d 5f 46 04  |(save%)._<..._F.|
0000f350  0d 5f 50 04 0d 5f 5a 12  dd 20 f2 6c 6f 61 64 28  |._P.._Z.. .load(|
0000f360  6e 61 6d 65 24 29 0d 5f  64 05 e1 0d 5f 6e 04 0d  |name$)._d..._n..|
0000f370  5f 78 12 dd 20 f2 63 72  65 61 74 65 5f 6d 65 6e  |_x.. .create_men|
0000f380  75 0d 5f 82 15 de 20 6d  65 6e 75 5f 62 6c 6f 63  |u._... menu_bloc|
0000f390  6b 25 20 33 30 30 0d 5f  8c 16 de 20 6d 65 6e 75  |k% 300._... menu|
0000f3a0  31 5f 62 6c 6f 63 6b 25  20 31 30 30 0d 5f 96 1e  |1_block% 100._..|
0000f3b0  24 6d 65 6e 75 5f 62 6c  6f 63 6b 25 20 3d 22 47  |$menu_block% ="G|
0000f3c0  72 61 70 68 20 4d 65 6e  75 22 0d 5f a0 19 3f 28  |raph Menu"._..?(|
0000f3d0  6d 65 6e 75 5f 62 6c 6f  63 6b 25 2b 31 32 29 20  |menu_block%+12) |
0000f3e0  3d 20 37 0d 5f aa 19 3f  28 6d 65 6e 75 5f 62 6c  |= 7._..?(menu_bl|
0000f3f0  6f 63 6b 25 2b 31 33 29  20 3d 20 32 0d 5f b4 19  |ock%+13) = 2._..|
0000f400  3f 28 6d 65 6e 75 5f 62  6c 6f 63 6b 25 2b 31 34  |?(menu_block%+14|
0000f410  29 20 3d 20 37 0d 5f be  19 3f 28 6d 65 6e 75 5f  |) = 7._..?(menu_|
0000f420  62 6c 6f 63 6b 25 2b 31  35 29 20 3d 20 30 0d 5f  |block%+15) = 0._|
0000f430  c8 1b 21 28 6d 65 6e 75  5f 62 6c 6f 63 6b 25 2b  |..!(menu_block%+|
0000f440  31 36 29 20 3d 20 31 39  36 0d 5f d2 1a 21 28 6d  |16) = 196._..!(m|
0000f450  65 6e 75 5f 62 6c 6f 63  6b 25 2b 32 30 29 20 3d  |enu_block%+20) =|
0000f460  20 34 34 0d 5f dc 19 21  28 6d 65 6e 75 5f 62 6c  | 44._..!(menu_bl|
0000f470  6f 63 6b 25 2b 32 34 29  20 3d 20 30 0d 5f e6 1e  |ock%+24) = 0._..|
0000f480  21 28 6d 65 6e 75 5f 62  6c 6f 63 6b 25 2b 34 2b  |!(menu_block%+4+|
0000f490  28 32 34 2b 30 29 29 20  3d 30 0d 5f f0 25 21 28  |(24+0)) =0._.%!(|
0000f4a0  6d 65 6e 75 5f 62 6c 6f  63 6b 25 2b 34 2b 28 32  |menu_block%+4+(2|
0000f4b0  34 2a 31 2b 34 29 29 20  3d 73 61 76 65 31 25 0d  |4*1+4)) =save1%.|
0000f4c0  5f fa 28 21 28 6d 65 6e  75 5f 62 6c 6f 63 6b 25  |_.(!(menu_block%|
0000f4d0  2b 34 2b 28 32 34 2a 31  2b 38 29 29 20 3d 20 26  |+4+(24*1+8)) = &|
0000f4e0  37 30 30 30 30 32 31 0d  60 04 2b 24 28 6d 65 6e  |7000021.`.+$(men|
0000f4f0  75 5f 62 6c 6f 63 6b 25  2b 34 2b 28 32 34 2a 31  |u_block%+4+(24*1|
0000f500  2b 31 32 29 29 20 3d 22  53 61 76 65 20 44 61 74  |+12)) ="Save Dat|
0000f510  61 22 0d 60 0e 20 21 28  6d 65 6e 75 5f 62 6c 6f  |a".`. !(menu_blo|
0000f520  63 6b 25 2b 34 2b 28 32  34 2a 32 2b 30 29 29 20  |ck%+4+(24*2+0)) |
0000f530  3d 30 0d 60 18 25 21 28  6d 65 6e 75 5f 62 6c 6f  |=0.`.%!(menu_blo|
0000f540  63 6b 25 2b 34 2b 28 32  34 2a 32 2b 34 29 29 20  |ck%+4+(24*2+4)) |
0000f550  3d 20 73 61 76 65 25 0d  60 22 27 21 28 6d 65 6e  |= save%.`"'!(men|
0000f560  75 5f 62 6c 6f 63 6b 25  2b 34 2b 28 32 34 2a 32  |u_block%+4+(24*2|
0000f570  2b 38 29 29 20 3d 26 37  30 30 30 30 32 31 0d 60  |+8)) =&7000021.`|
0000f580  2c 2d 24 28 6d 65 6e 75  5f 62 6c 6f 63 6b 25 2b  |,-$(menu_block%+|
0000f590  34 2b 28 32 34 2a 32 2b  31 32 29 29 20 3d 22 53  |4+(24*2+12)) ="S|
0000f5a0  61 76 65 20 47 72 61 70  68 73 22 0d 60 36 20 21  |ave Graphs".`6 !|
0000f5b0  28 6d 65 6e 75 5f 62 6c  6f 63 6b 25 2b 34 2b 28  |(menu_block%+4+(|
0000f5c0  32 34 2a 33 2b 30 29 29  20 3d 30 0d 60 40 21 21  |24*3+0)) =0.`@!!|
0000f5d0  28 6d 65 6e 75 5f 62 6c  6f 63 6b 25 2b 34 2b 28  |(menu_block%+4+(|
0000f5e0  32 34 2a 33 2b 34 29 29  20 3d 2d 31 0d 60 4a 28  |24*3+4)) =-1.`J(|
0000f5f0  21 28 6d 65 6e 75 5f 62  6c 6f 63 6b 25 2b 34 2b  |!(menu_block%+4+|
0000f600  28 32 34 2a 33 2b 38 29  29 20 3d 20 26 37 30 30  |(24*3+8)) = &700|
0000f610  30 30 32 31 0d 60 54 2d  24 28 6d 65 6e 75 5f 62  |0021.`T-$(menu_b|
0000f620  6c 6f 63 6b 25 2b 34 2b  28 32 34 2a 33 2b 31 32  |lock%+4+(24*3+12|
0000f630  29 29 20 3d 22 43 6f 6f  72 64 69 6e 61 74 65 73  |)) ="Coordinates|
0000f640  22 0d 60 5e 20 21 28 6d  65 6e 75 5f 62 6c 6f 63  |".`^ !(menu_bloc|
0000f650  6b 25 2b 34 2b 28 32 34  2a 34 2b 30 29 29 20 3d  |k%+4+(24*4+0)) =|
0000f660  30 0d 60 68 21 21 28 6d  65 6e 75 5f 62 6c 6f 63  |0.`h!!(menu_bloc|
0000f670  6b 25 2b 34 2b 28 32 34  2a 34 2b 34 29 29 20 3d  |k%+4+(24*4+4)) =|
0000f680  2d 31 0d 60 72 27 21 28  6d 65 6e 75 5f 62 6c 6f  |-1.`r'!(menu_blo|
0000f690  63 6b 25 2b 34 2b 28 32  34 2a 34 2b 38 29 29 20  |ck%+4+(24*4+8)) |
0000f6a0  3d 26 37 30 30 30 30 32  31 0d 60 7c 26 24 28 6d  |=&7000021.`|&$(m|
0000f6b0  65 6e 75 5f 62 6c 6f 63  6b 25 2b 34 2b 28 32 34  |enu_block%+4+(24|
0000f6c0  2a 34 2b 31 32 29 29 20  3d 22 41 78 65 73 22 0d  |*4+12)) ="Axes".|
0000f6d0  60 86 20 21 28 6d 65 6e  75 5f 62 6c 6f 63 6b 25  |`. !(menu_block%|
0000f6e0  2b 34 2b 28 32 34 2a 35  2b 30 29 29 20 3d 32 0d  |+4+(24*5+0)) =2.|
0000f6f0  60 90 21 21 28 6d 65 6e  75 5f 62 6c 6f 63 6b 25  |`.!!(menu_block%|
0000f700  2b 34 2b 28 32 34 2a 35  2b 34 29 29 20 3d 2d 31  |+4+(24*5+4)) =-1|
0000f710  0d 60 9a 27 21 28 6d 65  6e 75 5f 62 6c 6f 63 6b  |.`.'!(menu_block|
0000f720  25 2b 34 2b 28 32 34 2a  35 2b 38 29 29 20 3d 26  |%+4+(24*5+8)) =&|
0000f730  37 30 30 30 30 32 31 0d  60 a4 2b 24 28 6d 65 6e  |7000021.`.+$(men|
0000f740  75 5f 62 6c 6f 63 6b 25  2b 34 2b 28 32 34 2a 35  |u_block%+4+(24*5|
0000f750  2b 31 32 29 29 20 3d 22  46 75 6e 63 74 69 6f 6e  |+12)) ="Function|
0000f760  73 22 0d 60 ae 20 21 28  6d 65 6e 75 5f 62 6c 6f  |s".`. !(menu_blo|
0000f770  63 6b 25 2b 34 2b 28 32  34 2a 36 2b 30 29 29 20  |ck%+4+(24*6+0)) |
0000f780  3d 30 0d 60 b8 22 21 28  6d 65 6e 75 5f 62 6c 6f  |=0.`."!(menu_blo|
0000f790  63 6b 25 2b 34 2b 28 32  34 2a 36 2b 34 29 29 20  |ck%+4+(24*6+4)) |
0000f7a0  3d 20 2d 31 0d 60 c2 27  21 28 6d 65 6e 75 5f 62  |= -1.`.'!(menu_b|
0000f7b0  6c 6f 63 6b 25 2b 34 2b  28 32 34 2a 36 2b 38 29  |lock%+4+(24*6+8)|
0000f7c0  29 20 3d 26 37 30 30 30  30 32 31 0d 60 cc 2b 24  |) =&7000021.`.+$|
0000f7d0  28 6d 65 6e 75 5f 62 6c  6f 63 6b 25 2b 34 2b 28  |(menu_block%+4+(|
0000f7e0  32 34 2a 36 2b 31 32 29  29 20 3d 22 43 61 72 74  |24*6+12)) ="Cart|
0000f7f0  65 73 69 61 6e 22 0d 60  d6 20 21 28 6d 65 6e 75  |esian".`. !(menu|
0000f800  5f 62 6c 6f 63 6b 25 2b  34 2b 28 32 34 2a 37 2b  |_block%+4+(24*7+|
0000f810  30 29 29 20 3d 30 0d 60  e0 22 21 28 6d 65 6e 75  |0)) =0.`."!(menu|
0000f820  5f 62 6c 6f 63 6b 25 2b  34 2b 28 32 34 2a 37 2b  |_block%+4+(24*7+|
0000f830  34 29 29 20 3d 20 2d 31  0d 60 ea 27 21 28 6d 65  |4)) = -1.`.'!(me|
0000f840  6e 75 5f 62 6c 6f 63 6b  25 2b 34 2b 28 32 34 2a  |nu_block%+4+(24*|
0000f850  37 2b 38 29 29 20 3d 26  37 30 30 30 30 32 31 0d  |7+8)) =&7000021.|
0000f860  60 f4 27 24 28 6d 65 6e  75 5f 62 6c 6f 63 6b 25  |`.'$(menu_block%|
0000f870  2b 34 2b 28 32 34 2a 37  2b 31 32 29 29 20 3d 22  |+4+(24*7+12)) ="|
0000f880  50 6f 6c 61 72 22 0d 60  fe 20 21 28 6d 65 6e 75  |Polar".`. !(menu|
0000f890  5f 62 6c 6f 63 6b 25 2b  34 2b 28 32 34 2a 38 2b  |_block%+4+(24*8+|
0000f8a0  30 29 29 20 3d 32 0d 61  08 22 21 28 6d 65 6e 75  |0)) =2.a."!(menu|
0000f8b0  5f 62 6c 6f 63 6b 25 2b  34 2b 28 32 34 2a 38 2b  |_block%+4+(24*8+|
0000f8c0  34 29 29 20 3d 20 2d 31  0d 61 12 27 21 28 6d 65  |4)) = -1.a.'!(me|
0000f8d0  6e 75 5f 62 6c 6f 63 6b  25 2b 34 2b 28 32 34 2a  |nu_block%+4+(24*|
0000f8e0  38 2b 38 29 29 20 3d 26  37 30 30 30 30 32 31 0d  |8+8)) =&7000021.|
0000f8f0  61 1c 2c 24 28 6d 65 6e  75 5f 62 6c 6f 63 6b 25  |a.,$(menu_block%|
0000f900  2b 34 2b 28 32 34 2a 38  2b 31 32 29 29 20 3d 22  |+4+(24*8+12)) ="|
0000f910  50 61 72 61 6d 65 74 72  69 63 22 0d 61 26 20 21  |Parametric".a& !|
0000f920  28 6d 65 6e 75 5f 62 6c  6f 63 6b 25 2b 34 2b 28  |(menu_block%+4+(|
0000f930  32 34 2a 39 2b 30 29 29  20 3d 30 0d 61 30 22 21  |24*9+0)) =0.a0"!|
0000f940  28 6d 65 6e 75 5f 62 6c  6f 63 6b 25 2b 34 2b 28  |(menu_block%+4+(|
0000f950  32 34 2a 39 2b 34 29 29  20 3d 20 2d 31 0d 61 3a  |24*9+4)) = -1.a:|
0000f960  27 21 28 6d 65 6e 75 5f  62 6c 6f 63 6b 25 2b 34  |'!(menu_block%+4|
0000f970  2b 28 32 34 2a 39 2b 38  29 29 20 3d 26 37 30 30  |+(24*9+8)) =&700|
0000f980  30 30 32 31 0d 61 44 29  24 28 6d 65 6e 75 5f 62  |0021.aD)$(menu_b|
0000f990  6c 6f 63 6b 25 2b 34 2b  28 32 34 2a 39 2b 31 32  |lock%+4+(24*9+12|
0000f9a0  29 29 20 3d 22 44 65 67  72 65 65 73 22 0d 61 4e  |)) ="Degrees".aN|
0000f9b0  24 21 28 6d 65 6e 75 5f  62 6c 6f 63 6b 25 2b 34  |$!(menu_block%+4|
0000f9c0  2b 28 32 34 2a 31 30 2b  30 29 29 20 3d 20 26 38  |+(24*10+0)) = &8|
0000f9d0  31 0d 61 58 23 21 28 6d  65 6e 75 5f 62 6c 6f 63  |1.aX#!(menu_bloc|
0000f9e0  6b 25 2b 34 2b 28 32 34  2a 31 30 2b 34 29 29 20  |k%+4+(24*10+4)) |
0000f9f0  3d 20 2d 31 0d 61 62 28  21 28 6d 65 6e 75 5f 62  |= -1.ab(!(menu_b|
0000fa00  6c 6f 63 6b 25 2b 34 2b  28 32 34 2a 31 30 2b 38  |lock%+4+(24*10+8|
0000fa10  29 29 20 3d 26 37 30 30  30 30 32 31 0d 61 6c 2c  |)) =&7000021.al,|
0000fa20  24 28 6d 65 6e 75 5f 62  6c 6f 63 6b 25 2b 34 2b  |$(menu_block%+4+|
0000fa30  28 32 34 2a 31 30 2b 31  32 29 29 20 3d 22 53 68  |(24*10+12)) ="Sh|
0000fa40  6f 77 20 41 78 65 73 22  0d 61 76 1c 6d 61 69 6e  |ow Axes".av.main|
0000fa50  5f 6d 65 6e 75 25 20 3d  20 6d 65 6e 75 5f 62 6c  |_menu% = menu_bl|
0000fa60  6f 63 6b 25 0d 61 80 1e  24 6d 65 6e 75 31 5f 62  |ock%.a..$menu1_b|
0000fa70  6c 6f 63 6b 25 20 3d 22  51 75 69 74 20 4d 65 6e  |lock% ="Quit Men|
0000fa80  75 22 0d 61 8a 1a 3f 28  6d 65 6e 75 31 5f 62 6c  |u".a..?(menu1_bl|
0000fa90  6f 63 6b 25 2b 31 32 29  20 3d 20 37 0d 61 94 1a  |ock%+12) = 7.a..|
0000faa0  3f 28 6d 65 6e 75 31 5f  62 6c 6f 63 6b 25 2b 31  |?(menu1_block%+1|
0000fab0  33 29 20 3d 20 32 0d 61  9e 1a 3f 28 6d 65 6e 75  |3) = 2.a..?(menu|
0000fac0  31 5f 62 6c 6f 63 6b 25  2b 31 34 29 20 3d 20 37  |1_block%+14) = 7|
0000fad0  0d 61 a8 1a 3f 28 6d 65  6e 75 31 5f 62 6c 6f 63  |.a..?(menu1_bloc|
0000fae0  6b 25 2b 31 35 29 20 3d  20 30 0d 61 b2 1c 21 28  |k%+15) = 0.a..!(|
0000faf0  6d 65 6e 75 31 5f 62 6c  6f 63 6b 25 2b 31 36 29  |menu1_block%+16)|
0000fb00  20 3d 20 31 39 36 0d 61  bc 1b 21 28 6d 65 6e 75  | = 196.a..!(menu|
0000fb10  31 5f 62 6c 6f 63 6b 25  2b 32 30 29 20 3d 20 34  |1_block%+20) = 4|
0000fb20  34 0d 61 c6 1a 21 28 6d  65 6e 75 31 5f 62 6c 6f  |4.a..!(menu1_blo|
0000fb30  63 6b 25 2b 32 34 29 20  3d 20 30 0d 61 d0 1f 21  |ck%+24) = 0.a..!|
0000fb40  28 6d 65 6e 75 31 5f 62  6c 6f 63 6b 25 2b 34 2b  |(menu1_block%+4+|
0000fb50  28 32 34 2b 30 29 29 20  3d 30 0d 61 da 23 21 28  |(24+0)) =0.a.#!(|
0000fb60  6d 65 6e 75 31 5f 62 6c  6f 63 6b 25 2b 34 2b 28  |menu1_block%+4+(|
0000fb70  32 34 2a 31 2b 34 29 29  20 3d 20 2d 31 0d 61 e4  |24*1+4)) = -1.a.|
0000fb80  29 21 28 6d 65 6e 75 31  5f 62 6c 6f 63 6b 25 2b  |)!(menu1_block%+|
0000fb90  34 2b 28 32 34 2a 31 2b  38 29 29 20 3d 20 26 37  |4+(24*1+8)) = &7|
0000fba0  30 30 30 30 32 31 0d 61  ee 27 24 28 6d 65 6e 75  |000021.a.'$(menu|
0000fbb0  31 5f 62 6c 6f 63 6b 25  2b 34 2b 28 32 34 2a 31  |1_block%+4+(24*1|
0000fbc0  2b 31 32 29 29 20 3d 22  51 75 69 74 22 0d 61 f8  |+12)) ="Quit".a.|
0000fbd0  23 21 28 6d 65 6e 75 31  5f 62 6c 6f 63 6b 25 2b  |#!(menu1_block%+|
0000fbe0  34 2b 28 32 34 2a 32 2b  30 29 29 20 3d 26 38 30  |4+(24*2+0)) =&80|
0000fbf0  0d 62 02 26 21 28 6d 65  6e 75 31 5f 62 6c 6f 63  |.b.&!(menu1_bloc|
0000fc00  6b 25 2b 34 2b 28 32 34  2a 32 2b 34 29 29 20 3d  |k%+4+(24*2+4)) =|
0000fc10  20 69 6e 66 6f 25 0d 62  0c 28 21 28 6d 65 6e 75  | info%.b.(!(menu|
0000fc20  31 5f 62 6c 6f 63 6b 25  2b 34 2b 28 32 34 2a 32  |1_block%+4+(24*2|
0000fc30  2b 38 29 29 20 3d 26 37  30 30 30 30 32 31 0d 62  |+8)) =&7000021.b|
0000fc40  16 27 24 28 6d 65 6e 75  31 5f 62 6c 6f 63 6b 25  |.'$(menu1_block%|
0000fc50  2b 34 2b 28 32 34 2a 32  2b 31 32 29 29 20 3d 22  |+4+(24*2+12)) ="|
0000fc60  49 6e 66 6f 22 0d 62 20  1b 71 75 69 74 5f 6d 65  |Info".b .quit_me|
0000fc70  6e 75 25 3d 6d 65 6e 75  31 5f 62 6c 6f 63 6b 25  |nu%=menu1_block%|
0000fc80  0d 62 2a 05 e1 0d 62 34  04 0d 62 3e 1a dd 20 f2  |.b*...b4..b>.. .|
0000fc90  64 72 61 77 5f 63 6c 69  63 6b 28 77 69 6e 64 6f  |draw_click(windo|
0000fca0  77 25 29 0d 62 48 15 21  62 6c 6f 63 6b 25 20 3d  |w%).bH.!block% =|
0000fcb0  20 77 69 6e 64 6f 77 25  0d 62 52 23 c8 99 22 57  | window%.bR#.."W|
0000fcc0  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
0000fcd0  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 62 5c 1c 77  |te",,block%.b\.w|
0000fce0  65 78 20 3d 20 62 6c 6f  63 6b 25 21 34 2d 62 6c  |ex = block%!4-bl|
0000fcf0  6f 63 6b 25 21 32 30 0d  62 66 1f 77 65 79 20 3d  |ock%!20.bf.wey =|
0000fd00  20 62 6c 6f 63 6b 25 21  31 36 20 2d 20 62 6c 6f  | block%!16 - blo|
0000fd10  63 6b 25 21 32 34 0d 62  70 17 62 6c 6f 63 6b 25  |ck%!24.bp.block%|
0000fd20  21 34 20 3d 20 70 69 63  74 75 72 65 25 0d 62 7a  |!4 = picture%.bz|
0000fd30  21 c8 99 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |!.."Wimp_GetIcon|
0000fd40  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 62  |State",,block%.b|
0000fd50  84 14 21 62 6c 6f 63 6b  25 3d 20 77 69 6e 64 6f  |..!block%= windo|
0000fd60  77 25 0d 62 8e 10 62 6c  6f 63 6b 25 21 34 20 3d  |w%.b..block%!4 =|
0000fd70  20 35 0d 62 98 1b 62 6c  6f 63 6b 25 21 38 20 3d  | 5.b..block%!8 =|
0000fd80  20 62 6c 6f 63 6b 25 21  38 2b 77 65 78 0d 62 a2  | block%!8+wex.b.|
0000fd90  1d 62 6c 6f 63 6b 25 21  31 32 20 3d 20 62 6c 6f  |.block%!12 = blo|
0000fda0  63 6b 25 21 31 32 2b 77  65 79 0d 62 ac 1d 62 6c  |ck%!12+wey.b..bl|
0000fdb0  6f 63 6b 25 21 31 36 20  3d 20 62 6c 6f 63 6b 25  |ock%!16 = block%|
0000fdc0  21 31 36 2b 77 65 78 0d  62 b6 1d 62 6c 6f 63 6b  |!16+wex.b..block|
0000fdd0  25 21 32 30 20 3d 20 62  6c 6f 63 6b 25 21 32 30  |%!20 = block%!20|
0000fde0  2b 77 65 79 0d 62 c0 11  62 6c 6f 63 6b 25 21 32  |+wey.b..block%!2|
0000fdf0  34 20 3d 20 30 0d 62 ca  11 62 6c 6f 63 6b 25 21  |4 = 0.b..block%!|
0000fe00  32 38 20 3d 20 30 0d 62  d4 19 62 6c 6f 63 6b 25  |28 = 0.b..block%|
0000fe10  21 33 32 20 3d 20 26 37  46 46 46 46 46 46 46 0d  |!32 = &7FFFFFFF.|
0000fe20  62 de 19 62 6c 6f 63 6b  25 21 33 36 20 3d 20 26  |b..block%!36 = &|
0000fe30  37 46 46 46 46 46 46 46  0d 62 e8 1c c8 99 22 57  |7FFFFFFF.b...."W|
0000fe40  69 6d 70 5f 44 72 61 67  42 6f 78 22 2c 2c 62 6c  |imp_DragBox",,bl|
0000fe50  6f 63 6b 25 0d 62 f2 05  e1 0d 62 fc 04 0d 63 06  |ock%.b....b...c.|
0000fe60  22 dd 20 a4 72 65 61 64  5f 66 69 6c 65 6e 61 6d  |". .read_filenam|
0000fe70  65 5f 74 65 78 74 28 77  69 6e 64 6f 77 25 29 0d  |e_text(window%).|
0000fe80  63 10 18 e7 20 66 6f 72  6d 61 74 24 20 3d 20 22  |c... format$ = "|
0000fe90  64 61 74 61 22 20 8c 0d  63 1a 1b 20 20 21 68 65  |data" ..c..  !he|
0000fea0  6c 70 5f 62 6c 6f 63 6b  25 20 3d 20 73 61 76 65  |lp_block% = save|
0000feb0  31 25 0d 63 24 05 cc 0d  63 2e 1a 20 20 21 68 65  |1%.c$...c..  !he|
0000fec0  6c 70 5f 62 6c 6f 63 6b  25 20 3d 20 73 61 76 65  |lp_block% = save|
0000fed0  25 0d 63 38 05 cd 0d 63  42 26 68 65 6c 70 5f 62  |%.c8...cB&help_b|
0000fee0  6c 6f 63 6b 25 21 34 20  3d 20 32 20 3a f4 20 74  |lock%!4 = 2 :. t|
0000fef0  68 65 20 74 65 78 74 20  69 63 6f 6e 0d 63 4c 27  |he text icon.cL'|
0000ff00  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
0000ff10  53 74 61 74 65 22 2c 2c  68 65 6c 70 5f 62 6c 6f  |State",,help_blo|
0000ff20  63 6b 25 0d 63 56 18 e7  20 66 6f 72 6d 61 74 24  |ck%.cV.. format$|
0000ff30  20 3d 20 22 64 61 74 61  22 20 8c 0d 63 60 18 20  | = "data" ..c`. |
0000ff40  20 66 69 25 3d 68 65 6c  70 5f 62 6c 6f 63 6b 25  | fi%=help_block%|
0000ff50  21 32 38 0d 63 6a 05 cc  0d 63 74 18 20 20 67 69  |!28.cj...ct.  gi|
0000ff60  25 3d 68 65 6c 70 5f 62  6c 6f 63 6b 25 21 32 38  |%=help_block%!28|
0000ff70  0d 63 7e 05 cd 0d 63 88  19 20 3d 20 24 28 68 65  |.c~...c.. = $(he|
0000ff80  6c 70 5f 62 6c 6f 63 6b  25 2b 20 32 38 29 0d 63  |lp_block%+ 28).c|
0000ff90  92 04 0d 63 9c 12 dd 20  a4 6c 65 61 66 28 70 61  |...c... .leaf(pa|
0000ffa0  74 68 24 29 0d 63 a6 12  c8 95 20 a7 70 61 74 68  |th$).c.... .path|
0000ffb0  24 2c 22 2e 22 29 0d 63  b0 1f 70 61 74 68 24 3d  |$,".").c..path$=|
0000ffc0  c1 70 61 74 68 24 2c a7  70 61 74 68 24 2c 22 2e  |.path$,.path$,".|
0000ffd0  22 29 2b 31 29 0d 63 ba  05 ce 0d 63 c4 0a 3d 70  |")+1).c....c..=p|
0000ffe0  61 74 68 24 0d 63 ce 04  0d 63 d8 04 0d 63 e2 0b  |ath$.c...c...c..|
0000fff0  dd 20 f2 73 61 76 65 0d  63 ec 23 c8 99 22 57 69  |. .save.c.#.."Wi|
00010000  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00010010  6f 22 2c 2c 62 6c 6f 63  6b 25 0d 63 f6 12 62 6c  |o",,block%.c..bl|
00010020  6f 63 6b 25 21 32 30 20  3d 20 36 34 0d 64 00 11  |ock%!20 = 64.d..|
00010030  62 6c 6f 63 6b 25 21 33  32 20 3d 20 30 0d 64 0a  |block%!32 = 0.d.|
00010040  11 62 6c 6f 63 6b 25 21  33 36 20 3d 20 31 0d 64  |.block%!36 = 1.d|
00010050  14 19 62 6c 6f 63 6b 25  21 34 30 20 3d 20 62 6c  |..block%!40 = bl|
00010060  6f 63 6b 25 21 31 32 0d  64 1e 19 62 6c 6f 63 6b  |ock%!12.d..block|
00010070  25 21 34 34 20 3d 20 62  6c 6f 63 6b 25 21 31 36  |%!44 = block%!16|
00010080  0d 64 28 17 62 6c 6f 63  6b 25 21 34 38 20 3d 20  |.d(.block%!48 = |
00010090  21 62 6c 6f 63 6b 25 0d  64 32 18 62 6c 6f 63 6b  |!block%.d2.block|
000100a0  25 21 35 32 20 3d 20 62  6c 6f 63 6b 25 21 34 0d  |%!52 = block%!4.|
000100b0  64 3c 16 e7 20 66 6f 72  6d 61 74 24 3d 22 64 61  |d<.. format$="da|
000100c0  74 61 22 20 8c 0d 64 46  20 20 20 24 28 62 6c 6f  |ta" ..dF   $(blo|
000100d0  63 6b 25 2b 36 34 29 20  3d 20 a4 6c 65 61 66 28  |ck%+64) = .leaf(|
000100e0  24 66 69 25 29 0d 64 50  15 20 20 62 6c 6f 63 6b  |$fi%).dP.  block|
000100f0  25 21 35 36 20 3d 20 35  36 38 0d 64 5a 16 20 20  |%!56 = 568.dZ.  |
00010100  62 6c 6f 63 6b 25 21 36  30 20 3d 20 26 37 37 37  |block%!60 = &777|
00010110  0d 64 64 05 cc 0d 64 6e  20 20 20 24 28 62 6c 6f  |.dd...dn   $(blo|
00010120  63 6b 25 2b 36 34 29 20  3d 20 a4 6c 65 61 66 28  |ck%+64) = .leaf(|
00010130  24 67 69 25 29 0d 64 78  17 20 20 62 6c 6f 63 6b  |$gi%).dx.  block|
00010140  25 21 35 36 20 3d 20 26  34 30 30 30 0d 64 82 16  |%!56 = &4000.d..|
00010150  20 20 62 6c 6f 63 6b 25  21 36 30 20 3d 20 26 41  |  block%!60 = &A|
00010160  46 46 0d 64 8c 05 cd 0d  64 96 09 f4 20 48 6d 6d  |FF.d....d... Hmm|
00010170  0d 64 a0 39 c8 99 22 57  69 6d 70 5f 53 65 6e 64  |.d.9.."Wimp_Send|
00010180  4d 65 73 73 61 67 65 22  2c 31 37 2c 62 6c 6f 63  |Message",17,bloc|
00010190  6b 25 2b 32 30 2c 62 6c  6f 63 6b 25 21 31 32 2c  |k%+20,block%!12,|
000101a0  62 6c 6f 63 6b 25 21 31  36 0d 64 aa 05 e1 0d 64  |block%!16.d....d|
000101b0  b4 04 0d 64 be 13 dd 20  f2 64 61 74 61 73 61 76  |...d... .datasav|
000101c0  65 28 62 25 29 0d 64 c8  23 f2 73 61 76 65 5f 74  |e(b%).d.#.save_t|
000101d0  6f 5f 64 69 73 63 28 a4  67 65 74 5f 6e 61 6d 65  |o_disc(.get_name|
000101e0  28 62 25 2b 34 34 29 29  0d 64 d2 16 e7 20 66 6f  |(b%+44)).d... fo|
000101f0  72 6d 61 74 24 3d 22 64  61 74 61 22 20 8c 0d 64  |rmat$="data" ..d|
00010200  dc 1b 20 24 66 69 25 3d  20 a4 67 65 74 5f 6e 61  |.. $fi%= .get_na|
00010210  6d 65 28 62 25 2b 34 34  29 0d 64 e6 05 cc 0d 64  |me(b%+44).d....d|
00010220  f0 1b 20 24 67 69 25 3d  20 a4 67 65 74 5f 6e 61  |.. $gi%= .get_na|
00010230  6d 65 28 62 25 2b 34 34  29 0d 64 fa 05 cd 0d 65  |me(b%+44).d....e|
00010240  04 04 0d 65 0e 10 62 25  21 31 32 20 3d 20 62 25  |...e..b%!12 = b%|
00010250  21 38 0d 65 18 0d 62 25  21 31 36 20 3d 20 33 0d  |!8.e..b%!16 = 3.|
00010260  65 22 0c 21 62 25 20 3d  20 36 34 0d 65 2c 2a c8  |e".!b% = 64.e,*.|
00010270  99 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  |."Wimp_SendMessa|
00010280  67 65 22 2c 31 37 2c 62  25 2c 62 25 21 32 30 2c  |ge",17,b%,b%!20,|
00010290  62 25 21 32 34 0d 65 36  11 73 61 76 65 72 65 66  |b%!24.e6.saveref|
000102a0  25 3d 62 25 21 38 0d 65  40 05 e1 0d 65 4a 04 0d  |%=b%!8.e@...eJ..|
000102b0  65 54 04 0d 65 5e 05 20  0d 65 68 13 dd 20 a4 67  |eT..e^. .eh.. .g|
000102c0  65 74 5f 6e 61 6d 65 28  50 25 29 0d 65 72 09 41  |et_name(P%).er.A|
000102d0  24 3d 22 22 0d 65 7c 18  c8 95 20 3f 50 25 3c 3e  |$="".e|... ?P%<>|
000102e0  30 20 80 20 3f 50 25 3c  3e 20 31 33 0d 65 86 17  |0 . ?P%<> 13.e..|
000102f0  20 41 24 20 3d 20 41 24  2b bd 3f 50 25 3a 50 25  | A$ = A$+.?P%:P%|
00010300  2b 3d 31 0d 65 90 05 ce  0d 65 9a 07 3d 41 24 0d  |+=1.e....e..=A$.|
00010310  65 a4 04 0d 65 ae 10 dd  20 f2 71 75 69 63 6b 73  |e...e... .quicks|
00010320  61 76 65 0d 65 b8 16 e7  20 66 6f 72 6d 61 74 24  |ave.e... format$|
00010330  3d 22 64 61 74 61 22 20  8c 0d 65 c2 10 20 20 66  |="data" ..e..  f|
00010340  69 6c 65 24 3d 24 66 69  25 0d 65 cc 05 cc 0d 65  |ile$=$fi%.e....e|
00010350  d6 10 20 20 66 69 6c 65  24 3d 24 67 69 25 0d 65  |..  file$=$gi%.e|
00010360  e0 05 cd 0d 65 ea 13 e7  20 a7 66 69 6c 65 24 2c  |....e... .file$,|
00010370  22 2e 22 29 20 8c 0d 65  f4 18 f2 73 61 76 65 5f  |".") ..e...save_|
00010380  74 6f 5f 64 69 73 63 28  66 69 6c 65 24 29 0d 65  |to_disc(file$).e|
00010390  fe 05 cc 0d 66 08 43 20  f2 65 72 72 6f 72 5f 6d  |....f.C .error_m|
000103a0  65 73 73 61 67 65 28 22  54 6f 20 53 61 76 65 2c  |essage("To Save,|
000103b0  20 64 72 61 77 20 74 68  65 20 69 63 6f 6e 20 74  | draw the icon t|
000103c0  6f 20 61 20 64 69 72 65  63 74 6f 72 79 20 76 69  |o a directory vi|
000103d0  65 77 65 72 22 29 0d 66  12 05 cd 0d 66 1c 05 e1  |ewer").f....f...|
000103e0  0d 66 26 04 0d 66 30 13  dd 20 f2 64 61 74 61 6c  |.f&..f0.. .datal|
000103f0  6f 61 64 28 62 25 29 0d  66 3a 14 e7 20 62 25 21  |oad(b%).f:.. b%!|
00010400  34 30 20 3d 20 26 37 37  37 20 8c 0d 66 44 12 20  |40 = &777 ..fD. |
00010410  20 f2 61 63 6b 6c 6f 61  64 28 62 25 29 0d 66 4e  | .ackload(b%).fN|
00010420  27 20 20 f2 6c 6f 61 64  5f 66 72 6f 6d 5f 64 69  |'  .load_from_di|
00010430  73 63 28 a4 67 65 74 5f  6e 61 6d 65 28 62 25 2b  |sc(.get_name(b%+|
00010440  34 34 29 29 0d 66 58 1d  20 20 24 66 69 25 20 3d  |44)).fX.  $fi% =|
00010450  20 a4 67 65 74 5f 6e 61  6d 65 28 62 25 2b 34 34  | .get_name(b%+44|
00010460  29 0d 66 62 05 cd 0d 66  6c 05 e1 0d 66 76 05 20  |).fb...fl...fv. |
00010470  0d 66 80 12 dd 20 f2 61  63 6b 6c 6f 61 64 28 62  |.f... .ackload(b|
00010480  25 29 0d 66 8a 0d 62 25  3d 62 6c 6f 63 6b 25 0d  |%).f..b%=block%.|
00010490  66 94 0e 62 25 21 31 32  3d 62 25 21 38 0d 66 9e  |f..b%!12=b%!8.f.|
000104a0  0b 62 25 21 31 36 3d 34  0d 66 a8 0a 21 62 25 3d  |.b%!16=4.f..!b%=|
000104b0  36 34 0d 66 b2 23 c8 99  22 57 69 6d 70 5f 53 65  |64.f.#.."Wimp_Se|
000104c0  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 62 25  |ndMessage",17,b%|
000104d0  2c 62 25 21 34 0d 66 bc  05 e1 0d 66 c6 04 0d 66  |,b%!4.f....f...f|
000104e0  d0 04 0d 66 da 04 0d 66  e4 04 0d 66 ee 04 0d 66  |...f...f...f...f|
000104f0  f8 04 0d 67 02 04 0d 67  0c 04 0d 67 16 0e dd f2  |...g...g...g....|
00010500  70 75 73 68 28 50 25 29  0d 67 20 31 e7 73 74 61  |push(P%).g 1.sta|
00010510  63 6b 25 3e 3d 6d 61 78  73 74 61 63 6b 25 3a 85  |ck%>=maxstack%:.|
00010520  39 39 2c 22 4d 61 74 68  47 72 61 70 68 20 73 74  |99,"MathGraph st|
00010530  61 63 6b 20 66 75 6c 6c  22 0d 67 2a 15 73 74 61  |ack full".g*.sta|
00010540  63 6b 25 28 73 74 61 63  6b 25 29 3d 50 25 0d 67  |ck%(stack%)=P%.g|
00010550  34 0d 73 74 61 63 6b 25  2b 3d 31 0d 67 3e 05 e1  |4.stack%+=1.g>..|
00010560  0d 67 48 04 0d 67 52 04  0d 67 5c 04 0d 67 66 10  |.gH..gR..g\..gf.|
00010570  dd f2 70 75 6c 6c 28 f8  20 50 25 29 0d 67 70 2a  |..pull(. P%).gp*|
00010580  e7 73 74 61 63 6b 25 3c  3d 30 3a 85 39 39 2c 22  |.stack%<=0:.99,"|
00010590  4d 61 74 68 47 72 61 70  68 20 73 74 61 63 6b 20  |MathGraph stack |
000105a0  65 6d 70 74 79 22 0d 67  7a 0d 73 74 61 63 6b 25  |empty".gz.stack%|
000105b0  2d 3d 31 0d 67 84 15 50  25 3d 73 74 61 63 6b 25  |-=1.g..P%=stack%|
000105c0  28 73 74 61 63 6b 25 29  0d 67 8e 05 e1 0d 67 98  |(stack%).g....g.|
000105d0  04 0d 67 a2 04 0d 67 ac  04 0d 67 b6 12 dd f2 73  |..g...g...g....s|
000105e0  74 61 72 74 6f 62 6a 28  54 25 29 0d 67 c0 07 ea  |tartobj(T%).g...|
000105f0  50 25 0d 67 ca 0e 50 25  3d 64 72 61 77 5f 70 25  |P%.g..P%=draw_p%|
00010600  0d 67 d4 0d f2 70 75 73  68 28 50 25 29 0d 67 de  |.g...push(P%).g.|
00010610  0a 21 50 25 3d 54 25 0d  67 e8 0a 50 25 21 34 3d  |.!P%=T%.g..P%!4=|
00010620  30 0d 67 f2 0a 50 25 21  38 3d 30 0d 67 fc 0b 50  |0.g..P%!8=0.g..P|
00010630  25 21 31 32 3d 30 0d 68  06 0b 50 25 21 31 36 3d  |%!12=0.h..P%!16=|
00010640  30 0d 68 10 0b 50 25 21  32 30 3d 30 0d 68 1a 0f  |0.h..P%!20=0.h..|
00010650  64 72 61 77 5f 70 25 2b  3d 32 34 0d 68 24 05 e1  |draw_p%+=24.h$..|
00010660  0d 68 2e 04 0d 68 38 04  0d 68 42 04 0d 68 4c 0c  |.h...h8..hB..hL.|
00010670  dd f2 65 6e 64 6f 62 6a  0d 68 56 07 ea 50 25 0d  |..endobj.hV..P%.|
00010680  68 60 0d f2 70 75 6c 6c  28 50 25 29 0d 68 6a 13  |h`..pull(P%).hj.|
00010690  50 25 21 34 3d 64 72 61  77 5f 70 25 2d 50 25 0d  |P%!4=draw_p%-P%.|
000106a0  68 74 2b e7 50 25 21 38  3c 64 72 61 77 5f 61 72  |ht+.P%!8<draw_ar|
000106b0  72 61 79 25 21 32 34 64  72 61 77 5f 61 72 72 61  |ray%!24draw_arra|
000106c0  79 25 21 32 34 3d 50 25  21 38 0d 68 7e 2d e7 50  |y%!24=P%!8.h~-.P|
000106d0  25 21 31 32 3c 64 72 61  77 5f 61 72 72 61 79 25  |%!12<draw_array%|
000106e0  21 32 38 64 72 61 77 5f  61 72 72 61 79 25 21 32  |!28draw_array%!2|
000106f0  38 3d 50 25 21 31 32 0d  68 88 2d e7 50 25 21 31  |8=P%!12.h.-.P%!1|
00010700  36 3e 64 72 61 77 5f 61  72 72 61 79 25 21 33 32  |6>draw_array%!32|
00010710  64 72 61 77 5f 61 72 72  61 79 25 21 33 32 3d 50  |draw_array%!32=P|
00010720  25 21 31 36 0d 68 92 2d  e7 50 25 21 32 30 3e 64  |%!16.h.-.P%!20>d|
00010730  72 61 77 5f 61 72 72 61  79 25 21 33 36 64 72 61  |raw_array%!36dra|
00010740  77 5f 61 72 72 61 79 25  21 33 36 3d 50 25 21 32  |w_array%!36=P%!2|
00010750  30 0d 68 9c 05 e1 0d 68  a6 04 0d 68 b0 04 0d 68  |0.h....h...h...h|
00010760  ba 04 0d 68 c4 0f dd f2  73 74 61 72 74 64 72 61  |...h....startdra|
00010770  77 0d 68 ce 17 24 64 72  61 77 5f 61 72 72 61 79  |w.h..$draw_array|
00010780  25 3d 22 44 72 61 77 22  0d 68 d8 15 64 72 61 77  |%="Draw".h..draw|
00010790  5f 61 72 72 61 79 25 21  34 3d 32 30 31 0d 68 e2  |_array%!4=201.h.|
000107a0  13 64 72 61 77 5f 61 72  72 61 79 25 21 38 3d 30  |.draw_array%!8=0|
000107b0  0d 68 ec 20 24 28 64 72  61 77 5f 61 72 72 61 79  |.h. $(draw_array|
000107c0  25 2b 31 32 29 3d 22 21  47 72 61 70 68 20 20 22  |%+12)="!Graph  "|
000107d0  0d 68 f6 14 64 72 61 77  5f 61 72 72 61 79 25 21  |.h..draw_array%!|
000107e0  32 34 3d 30 0d 69 00 14  64 72 61 77 5f 61 72 72  |24=0.i..draw_arr|
000107f0  61 79 25 21 32 38 3d 30  0d 69 0a 19 64 72 61 77  |ay%!28=0.i..draw|
00010800  5f 61 72 72 61 79 25 21  33 32 3d 32 33 30 34 30  |_array%!32=23040|
00010810  30 0d 69 14 19 64 72 61  77 5f 61 72 72 61 79 25  |0.i..draw_array%|
00010820  21 33 36 3d 31 38 34 33  32 30 0d 69 1e 15 64 73  |!36=184320.i..ds|
00010830  74 74 25 3d 64 72 61 77  5f 61 72 72 61 79 25 0d  |tt%=draw_array%.|
00010840  69 28 1a 64 72 61 77 5f  70 25 3d 64 72 61 77 5f  |i(.draw_p%=draw_|
00010850  61 72 72 61 79 25 2b 34  30 0d 69 32 0c 73 74 61  |array%+40.i2.sta|
00010860  63 6b 25 3d 30 0d 69 3c  05 e1 0d 69 46 04 0d 69  |ck%=0.i<...iF..i|
00010870  50 0d dd f2 65 6e 64 64  72 61 77 0d 69 5a 2f e7  |P...enddraw.iZ/.|
00010880  73 74 61 63 6b 25 3c 3e  30 20 85 39 39 2c 22 54  |stack%<>0 .99,"T|
00010890  68 65 20 64 72 61 77 69  6e 67 20 68 61 73 20 67  |he drawing has g|
000108a0  6f 6e 65 20 77 72 6f 6e  67 22 0d 69 64 13 64 65  |one wrong".id.de|
000108b0  6e 64 25 3d 64 72 61 77  5f 70 25 2d 34 0d 69 6e  |nd%=draw_p%-4.in|
000108c0  05 e1 0d 69 78 04 0d 69  82 14 dd f2 73 74 61 72  |...ix..i....star|
000108d0  74 67 72 6f 75 70 28 54  24 29 0d 69 8c 10 f2 73  |tgroup(T$).i...s|
000108e0  74 61 72 74 6f 62 6a 28  36 29 0d 69 96 1d 24 64  |tartobj(6).i..$d|
000108f0  72 61 77 5f 70 25 3d c0  54 24 2b c4 31 32 2c 22  |raw_p%=.T$+.12,"|
00010900  20 22 29 2c 31 32 29 0d  69 a0 0f 64 72 61 77 5f  | "),12).i..draw_|
00010910  70 25 2b 3d 31 32 0d 69  aa 05 e1 0d 69 b4 04 0d  |p%+=12.i....i...|
00010920  69 be 0e dd f2 65 6e 64  67 72 6f 75 70 0d 69 c8  |i....endgroup.i.|
00010930  0b f2 65 6e 64 6f 62 6a  0d 69 d2 05 e1 0d 69 dc  |..endobj.i....i.|
00010940  04 0d 69 e6 04 0d 69 f0  1b dd f2 74 65 78 74 6c  |..i...i....textl|
00010950  28 58 25 2c 59 25 2c 48  25 2c 43 25 2c 41 24 29  |(X%,Y%,H%,C%,A$)|
00010960  0d 69 fa 10 f2 73 74 61  72 74 6f 62 6a 28 31 29  |.i...startobj(1)|
00010970  0d 6a 04 0f 21 64 72 61  77 5f 70 25 3d 43 25 0d  |.j..!draw_p%=C%.|
00010980  6a 0e 17 64 72 61 77 5f  70 25 21 34 3d 26 46 46  |j..draw_p%!4=&FF|
00010990  46 46 46 46 30 30 0d 6a  18 0f 64 72 61 77 5f 70  |FFFF00.j..draw_p|
000109a0  25 21 38 3d 30 0d 6a 22  0f 64 72 61 77 5f 70 25  |%!8=0.j".draw_p%|
000109b0  2b 3d 31 32 0d 6a 2c 11  21 64 72 61 77 5f 70 25  |+=12.j,.!draw_p%|
000109c0  3d 48 25 81 32 0d 6a 36  10 64 72 61 77 5f 70 25  |=H%.2.j6.draw_p%|
000109d0  21 34 3d 48 25 0d 6a 40  0e 64 72 61 77 5f 70 25  |!4=H%.j@.draw_p%|
000109e0  2b 3d 38 0d 6a 4a 0f 21  64 72 61 77 5f 70 25 3d  |+=8.jJ.!draw_p%=|
000109f0  58 25 0d 6a 54 10 64 72  61 77 5f 70 25 21 34 3d  |X%.jT.draw_p%!4=|
00010a00  59 25 0d 6a 5e 0e 64 72  61 77 5f 70 25 2b 3d 38  |Y%.j^.draw_p%+=8|
00010a10  0d 6a 68 0e 48 25 3d 34  2d a9 41 24 83 34 0d 6a  |.jh.H%=4-.A$.4.j|
00010a20  72 17 24 64 72 61 77 5f  70 25 3d 41 24 2b c4 48  |r.$draw_p%=A$+.H|
00010a30  25 2c bd 30 29 0d 6a 7c  13 64 72 61 77 5f 70 25  |%,.0).j|.draw_p%|
00010a40  2b 3d a9 41 24 2b 48 25  0d 6a 86 0b f2 65 6e 64  |+=.A$+H%.j...end|
00010a50  6f 62 6a 0d 6a 90 05 e1  0d 6a 9a 04 0d 6a a4 04  |obj.j....j...j..|
00010a60  0d 6a ae 04 0d 6a b8 33  dd f2 73 74 61 72 74 70  |.j...j.3..startp|
00010a70  61 74 68 28 58 25 2c 59  25 2c 66 69 6c 6c 63 6f  |ath(X%,Y%,fillco|
00010a80  6c 25 2c 6c 69 6e 65 63  6f 6c 25 2c 6c 69 6e 65  |l%,linecol%,line|
00010a90  74 68 69 63 6b 25 29 0d  6a c2 10 f2 73 74 61 72  |thick%).j...star|
00010aa0  74 6f 62 6a 28 32 29 0d  6a cc 15 21 64 72 61 77  |tobj(2).j..!draw|
00010ab0  5f 70 25 3d 66 69 6c 6c  63 6f 6c 25 0d 6a d6 16  |_p%=fillcol%.j..|
00010ac0  64 72 61 77 5f 70 25 21  34 3d 6c 69 6e 65 63 6f  |draw_p%!4=lineco|
00010ad0  6c 25 0d 6a e0 0e 64 72  61 77 5f 70 25 2b 3d 38  |l%.j..draw_p%+=8|
00010ae0  0d 6a ea 17 21 64 72 61  77 5f 70 25 3d 6c 69 6e  |.j..!draw_p%=lin|
00010af0  65 74 68 69 63 6b 25 0d  6a f4 11 64 72 61 77 5f  |ethick%.j..draw_|
00010b00  70 25 21 34 3d 32 5e 36  0d 6a fe 0e 64 72 61 77  |p%!4=2^6.j..draw|
00010b10  5f 70 25 2b 3d 38 0d 6b  08 0e 21 64 72 61 77 5f  |_p%+=8.k..!draw_|
00010b20  70 25 3d 32 0d 6b 12 10  64 72 61 77 5f 70 25 21  |p%=2.k..draw_p%!|
00010b30  34 3d 58 25 0d 6b 1c 10  64 72 61 77 5f 70 25 21  |4=X%.k..draw_p%!|
00010b40  38 3d 59 25 0d 6b 26 0f  64 72 61 77 5f 70 25 2b  |8=Y%.k&.draw_p%+|
00010b50  3d 31 32 0d 6b 30 05 e1  0d 6b 3a 04 0d 6b 44 13  |=12.k0...k:..kD.|
00010b60  dd f2 64 72 61 77 74 6f  28 58 25 2c 59 25 29 0d  |..drawto(X%,Y%).|
00010b70  6b 4e 0e 21 64 72 61 77  5f 70 25 3d 38 0d 6b 58  |kN.!draw_p%=8.kX|
00010b80  10 64 72 61 77 5f 70 25  21 34 3d 58 25 0d 6b 62  |.draw_p%!4=X%.kb|
00010b90  10 64 72 61 77 5f 70 25  21 38 3d 59 25 0d 6b 6c  |.draw_p%!8=Y%.kl|
00010ba0  0f 64 72 61 77 5f 70 25  2b 3d 31 32 0d 6b 76 05  |.draw_p%+=12.kv.|
00010bb0  e1 0d 6b 80 04 0d 6b 8a  04 0d 6b 94 13 dd f2 6d  |..k...k...k....m|
00010bc0  6f 76 65 74 6f 28 58 25  2c 59 25 29 0d 6b 9e 0e  |oveto(X%,Y%).k..|
00010bd0  21 64 72 61 77 5f 70 25  3d 32 0d 6b a8 10 64 72  |!draw_p%=2.k..dr|
00010be0  61 77 5f 70 25 21 34 3d  58 25 0d 6b b2 10 64 72  |aw_p%!4=X%.k..dr|
00010bf0  61 77 5f 70 25 21 38 3d  59 25 0d 6b bc 0f 64 72  |aw_p%!8=Y%.k..dr|
00010c00  61 77 5f 70 25 2b 3d 31  32 0d 6b c6 05 e1 0d 6b  |aw_p%+=12.k....k|
00010c10  d0 04 0d 6b da 04 0d 6b  e4 0d dd f2 65 6e 64 70  |...k...k....endp|
00010c20  61 74 68 0d 6b ee 0e 21  64 72 61 77 5f 70 25 3d  |ath.k..!draw_p%=|
00010c30  30 0d 6b f8 0e 64 72 61  77 5f 70 25 2b 3d 34 0d  |0.k..draw_p%+=4.|
00010c40  6c 02 0b f2 65 6e 64 6f  62 6a 0d 6c 0c 05 e1 0d  |l...endobj.l....|
00010c50  6c 16 04 0d 6c 20 0f dd  f2 63 6c 6f 73 65 70 61  |l...l ...closepa|
00010c60  74 68 0d 6c 2a 0e 21 64  72 61 77 5f 70 25 3d 35  |th.l*.!draw_p%=5|
00010c70  0d 6c 34 0e 64 72 61 77  5f 70 25 2b 3d 34 0d 6c  |.l4.draw_p%+=4.l|
00010c80  3e 0c f2 65 6e 64 70 61  74 68 0d 6c 48 05 e1 0d  |>..endpath.lH...|
00010c90  6c 52 07 f2 63 73 0d 6c  5c 05 e1 0d 6c 66 04 0d  |lR..cs.l\...lf..|
00010ca0  6c 70 23 dd f2 62 65 7a  69 65 72 28 58 25 2c 59  |lp#..bezier(X%,Y|
00010cb0  25 2c 78 31 25 2c 79 31  25 2c 78 32 25 2c 79 32  |%,x1%,y1%,x2%,y2|
00010cc0  25 29 0d 6c 7a 36 21 64  72 61 77 5f 70 25 3d 36  |%).lz6!draw_p%=6|
00010cd0  3a 64 72 61 77 5f 70 25  21 34 3d 78 31 25 3a 64  |:draw_p%!4=x1%:d|
00010ce0  72 61 77 5f 70 25 21 38  3d 79 31 25 3a 64 72 61  |raw_p%!8=y1%:dra|
00010cf0  77 5f 70 25 2b 3d 31 32  0d 6c 84 29 21 64 72 61  |w_p%+=12.l.)!dra|
00010d00  77 5f 70 25 3d 78 32 25  3a 64 72 61 77 5f 70 25  |w_p%=x2%:draw_p%|
00010d10  21 34 3d 79 32 25 3a 64  72 61 77 5f 70 25 2b 3d  |!4=y2%:draw_p%+=|
00010d20  38 0d 6c 8e 27 21 64 72  61 77 5f 70 25 3d 58 25  |8.l.'!draw_p%=X%|
00010d30  3a 64 72 61 77 5f 70 25  21 34 3d 59 25 3a 64 72  |:draw_p%!4=Y%:dr|
00010d40  61 77 5f 70 25 2b 3d 38  0d 6c 98 05 e1 0d 6c a2  |aw_p%+=8.l....l.|
00010d50  04 0d 6c ac 33 dd f2 63  69 72 63 6c 65 28 58 25  |..l.3..circle(X%|
00010d60  2c 59 25 2c 52 25 2c 66  69 6c 6c 63 6f 6c 25 2c  |,Y%,R%,fillcol%,|
00010d70  6c 69 6e 65 63 6f 6c 25  2c 6c 69 6e 65 74 68 69  |linecol%,linethi|
00010d80  63 6b 25 29 0d 6c b6 06  ea 66 0d 6c c0 12 66 3d  |ck%).l...f.l..f=|
00010d90  b5 b2 33 33 2e 33 33 33  33 33 33 33 0d 6c ca 13  |..33.3333333.l..|
00010da0  58 25 3d 58 25 2a 32 30  30 2b 35 30 30 30 30 0d  |X%=X%*200+50000.|
00010db0  6c d4 0d 59 25 3d 59 25  2a 32 30 30 0d 6c de 0d  |l..Y%=Y%*200.l..|
00010dc0  52 25 3d 52 25 2a 32 30  30 0d 6c e8 35 f2 73 74  |R%=R%*200.l.5.st|
00010dd0  61 72 74 70 61 74 68 28  58 25 2c 59 25 2b 52 25  |artpath(X%,Y%+R%|
00010de0  2c 66 69 6c 6c 63 6f 6c  25 2c 6c 69 6e 65 63 6f  |,fillcol%,lineco|
00010df0  6c 25 2c 6c 69 6e 65 74  68 69 63 6b 25 29 0d 6c  |l%,linethick%).l|
00010e00  f2 31 f2 62 65 7a 69 65  72 28 58 25 2d 52 25 2c  |.1.bezier(X%-R%,|
00010e10  59 25 2c 58 25 2d 52 25  2a 66 2c 59 25 2b 52 25  |Y%,X%-R%*f,Y%+R%|
00010e20  2c 58 25 2d 52 25 2c 59  25 2b 52 25 2a 66 29 0d  |,X%-R%,Y%+R%*f).|
00010e30  6c fc 31 f2 62 65 7a 69  65 72 28 58 25 2c 59 25  |l.1.bezier(X%,Y%|
00010e40  2d 52 25 2c 58 25 2d 52  25 2c 59 25 2d 52 25 2a  |-R%,X%-R%,Y%-R%*|
00010e50  66 2c 58 25 2d 52 25 2a  66 2c 59 25 2d 52 25 29  |f,X%-R%*f,Y%-R%)|
00010e60  0d 6d 06 31 f2 62 65 7a  69 65 72 28 58 25 2b 52  |.m.1.bezier(X%+R|
00010e70  25 2c 59 25 2c 58 25 2b  52 25 2a 66 2c 59 25 2d  |%,Y%,X%+R%*f,Y%-|
00010e80  52 25 2c 58 25 2b 52 25  2c 59 25 2d 52 25 2a 66  |R%,X%+R%,Y%-R%*f|
00010e90  29 0d 6d 10 31 f2 62 65  7a 69 65 72 28 58 25 2c  |).m.1.bezier(X%,|
00010ea0  59 25 2b 52 25 2c 58 25  2b 52 25 2c 59 25 2b 52  |Y%+R%,X%+R%,Y%+R|
00010eb0  25 2a 66 2c 58 25 2b 52  25 2a 66 2c 59 25 2b 52  |%*f,X%+R%*f,Y%+R|
00010ec0  25 29 0d 6d 1a 0e f2 63  6c 6f 73 65 70 61 74 68  |%).m...closepath|
00010ed0  0d 6d 24 05 e1 0d 6d 2e  04 0d 6d 38 04 0d 6d 42  |.m$...m...m8..mB|
00010ee0  04 0d 6d 4c 04 0d 6d 56  16 dd f2 73 61 76 65 5f  |..mL..mV...save_|
00010ef0  64 72 61 77 28 6e 61 6d  65 24 29 0d 6d 60 07 ea  |draw(name$).m`..|
00010f00  54 25 0d 6d 6a 34 ff 22  53 61 76 65 20 22 2b 6e  |T%.mj4."Save "+n|
00010f10  61 6d 65 24 2b 22 20 22  2b c3 7e 64 72 61 77 5f  |ame$+" "+.~draw_|
00010f20  61 72 72 61 79 25 2b 22  20 22 2b c3 7e 28 64 65  |array%+" "+.~(de|
00010f30  6e 64 25 2b 34 29 0d 6d  74 1c ff 22 53 65 74 74  |nd%+4).mt.."Sett|
00010f40  79 70 65 20 22 2b 6e 61  6d 65 24 2b 22 20 41 46  |ype "+name$+" AF|
00010f50  46 22 0d 6d 7e 05 e1 0d  6d 88 04 0d 6d 92 04 0d  |F".m~...m...m...|
00010f60  6d 9c 04 0d 6d a6 04 0d  6d b0 0d dd a4 7a 74 73  |m...m...m....zts|
00010f70  28 54 25 29 0d 6d ba 07  ea 54 24 0d 6d c4 0c c8  |(T%).m...T$.m...|
00010f80  95 3f 54 25 3c 3e 30 0d  6d ce 0c 54 24 2b 3d bd  |.?T%<>0.m..T$+=.|
00010f90  3f 54 25 0d 6d d8 09 54  25 2b 3d 31 0d 6d e2 05  |?T%.m..T%+=1.m..|
00010fa0  ce 0d 6d ec 07 3d 54 24  0d 6d f6 04 0d 6e 00 04  |..m..=T$.m...n..|
00010fb0  0d 6e 0a 04 0d 6e 14 04  0d 6e 1e 04 0d 6e 28 04  |.n...n...n...n(.|
00010fc0  0d 6e 32 12 dd 20 f2 64  72 61 77 28 6e 61 6d 65  |.n2.. .draw(name|
00010fd0  24 29 0d 6e 3c 0d f2 67  6c 61 73 73 28 b9 29 0d  |$).n<..glass(.).|
00010fe0  6e 46 17 64 72 61 77 5f  70 25 3d 64 72 61 77 5f  |nF.draw_p%=draw_|
00010ff0  61 72 72 61 79 25 0d 6e  50 0e f2 73 74 61 72 74  |array%.nP..start|
00011000  64 72 61 77 0d 6e 5a 17  f2 73 74 61 72 74 67 72  |draw.nZ..startgr|
00011010  6f 75 70 28 22 6c 69 6e  65 22 29 0d 6e 64 1c e7  |oup("line").nd..|
00011020  20 63 61 72 74 5f 70 6c  6f 74 25 20 20 f2 64 72  | cart_plot%  .dr|
00011030  61 77 5f 63 61 72 74 0d  6e 6e 21 e7 20 70 61 72  |aw_cart.nn!. par|
00011040  61 5f 70 6c 6f 74 25 20  f2 64 72 61 77 5f 70 61  |a_plot% .draw_pa|
00011050  72 61 6d 65 74 72 69 63  0d 6e 78 1d e7 20 70 6f  |rametric.nx.. po|
00011060  6c 61 72 5f 70 6c 6f 74  25 20 f2 64 72 61 77 5f  |lar_plot% .draw_|
00011070  70 6f 6c 61 72 0d 6e 82  0d f2 65 6e 64 67 72 6f  |polar.n...endgro|
00011080  75 70 0d 6e 8c 0c f2 65  6e 64 64 72 61 77 0d 6e  |up.n...enddraw.n|
00011090  96 15 f2 73 61 76 65 5f  64 72 61 77 28 6e 61 6d  |...save_draw(nam|
000110a0  65 24 29 0d 6e a0 0d f2  67 6c 61 73 73 28 a3 29  |e$).n...glass(.)|
000110b0  0d 6e aa 05 e1 0d 6e b4  04 0d 6e be 04 0d 6e c8  |.n....n...n...n.|
000110c0  04 0d 6e d2 10 dd 20 f2  64 72 61 77 5f 63 61 72  |..n... .draw_car|
000110d0  74 0d 6e dc 18 f2 64 72  61 77 5f 63 61 72 74 5f  |t.n...draw_cart_|
000110e0  61 78 65 73 5f 64 72 61  77 0d 6e e6 14 e3 20 67  |axes_draw.n... g|
000110f0  72 61 70 68 25 20 3d 20  31 20 b8 20 36 0d 6e f0  |raph% = 1 . 6.n.|
00011100  2d 20 62 61 73 65 25 20  3d 20 70 6c 6f 74 5f 76  |- base% = plot_v|
00011110  61 6c 75 65 73 25 20 2b  28 67 72 61 70 68 25 20  |alues% +(graph% |
00011120  2d 31 29 2a 31 32 38 30  2a 34 0d 6e fa 1b 20 e7  |-1)*1280*4.n.. .|
00011130  20 63 61 72 74 5f 70 6c  6f 74 25 28 67 72 61 70  | cart_plot%(grap|
00011140  68 25 29 20 8c 0d 6f 04  0a 20 20 58 25 3d 30 0d  |h%) ..o..  X%=0.|
00011150  6f 0e 30 20 20 f2 73 74  61 72 74 70 61 74 68 28  |o.0  .startpath(|
00011160  30 2c 2d 31 30 30 30 2b  30 2c 2d 31 2c a4 63 6f  |0,-1000+0,-1,.co|
00011170  6c 6f 75 72 28 67 72 61  70 68 25 29 2c 31 29 0d  |lour(graph%),1).|
00011180  6f 18 0f 20 20 6d 6f 76  65 25 20 3d 20 b9 0d 6f  |o..  move% = ..o|
00011190  22 1b 20 20 f4 20 50 52  4f 43 70 6f 69 6e 74 5f  |".  . PROCpoint_|
000111a0  6d 6f 76 65 28 30 2c 30  29 0d 6f 2c 19 20 20 e3  |move(0,0).o,.  .|
000111b0  20 58 25 20 3d 20 30 20  b8 20 31 32 37 36 20 88  | X% = 0 . 1276 .|
000111c0  20 34 0d 6f 36 18 20 20  20 20 79 25 20 3d 62 61  | 4.o6.    y% =ba|
000111d0  73 65 25 21 28 58 25 2a  34 29 0d 6f 40 13 20 20  |se%!(X%*4).o@.  |
000111e0  20 20 20 20 e7 20 6d 6f  76 65 25 20 8c 0d 6f 4a  |    . move% ..oJ|
000111f0  24 20 20 20 20 20 20 20  20 20 f2 70 6f 69 6e 74  |$         .point|
00011200  5f 6d 6f 76 65 28 58 25  2c 79 25 2b 31 30 30 30  |_move(X%,y%+1000|
00011210  29 0d 6f 54 0b 20 20 20  20 20 20 cc 0d 6f 5e 24  |).oT.      ..o^$|
00011220  20 20 20 20 20 20 20 20  20 f2 70 6f 69 6e 74 5f  |         .point_|
00011230  70 6c 6f 74 28 58 25 2c  79 25 2b 31 30 30 30 29  |plot(X%,y%+1000)|
00011240  0d 6f 68 0b 20 20 20 20  20 20 cd 0d 6f 72 07 20  |.oh.      ..or. |
00011250  20 ed 0d 6f 7c 0f 20 20  20 f2 65 6e 64 70 61 74  | ..o|.   .endpat|
00011260  68 0d 6f 86 06 20 cd 0d  6f 90 05 ed 0d 6f 9a 05  |h.o.. ..o....o..|
00011270  e1 0d 6f a4 05 20 0d 6f  ae 1a dd 20 f2 64 72 61  |..o.. .o... .dra|
00011280  77 5f 63 61 72 74 5f 61  78 65 73 5f 64 72 61 77  |w_cart_axes_draw|
00011290  0d 6f b8 10 ea 20 74 78  25 2c 74 79 25 2c 74 24  |.o... tx%,ty%,t$|
000112a0  0d 6f c2 0b 6d 6f 76 65  25 3d a3 0d 6f cc 14 e7  |.o..move%=..o...|
000112b0  20 73 68 6f 77 5f 61 78  65 73 25 20 20 20 8c 0d  | show_axes%   ..|
000112c0  6f d6 21 20 20 f2 73 74  61 72 74 70 61 74 68 28  |o.!  .startpath(|
000112d0  30 2c 32 35 31 32 2c 2d  31 2c 26 46 46 2c 31 29  |0,2512,-1,&FF,1)|
000112e0  0d 6f e0 27 20 20 f2 70  6f 69 6e 74 5f 6d 6f 76  |.o.'  .point_mov|
000112f0  65 28 30 2c 78 5f 61 78  65 73 5f 6c 65 76 65 6c  |e(0,x_axes_level|
00011300  25 2b 31 30 30 30 29 0d  6f ea 2a 20 20 f2 70 6f  |%+1000).o.*  .po|
00011310  69 6e 74 5f 70 6c 6f 74  28 31 32 38 30 2c 78 5f  |int_plot(1280,x_|
00011320  61 78 65 73 5f 6c 65 76  65 6c 25 2b 31 30 30 30  |axes_level%+1000|
00011330  29 0d 6f f4 27 20 20 f2  70 6f 69 6e 74 5f 6d 6f  |).o.'  .point_mo|
00011340  76 65 28 79 5f 61 78 65  73 5f 6c 65 76 65 6c 25  |ve(y_axes_level%|
00011350  2c 30 2b 31 30 30 30 29  0d 6f fe 2b 20 20 f2 70  |,0+1000).o.+  .p|
00011360  6f 69 6e 74 5f 70 6c 6f  74 28 79 5f 61 78 65 73  |oint_plot(y_axes|
00011370  5f 6c 65 76 65 6c 25 2c  2d 31 30 35 30 2b 31 30  |_level%,-1050+10|
00011380  30 30 29 0d 70 08 2d 20  20 f2 70 6f 69 6e 74 5f  |00).p.-  .point_|
00011390  6d 6f 76 65 28 20 31 30  34 2c 78 5f 61 78 65 73  |move( 104,x_axes|
000113a0  5f 6c 65 76 65 6c 25 2d  32 30 2b 31 30 30 30 29  |_level%-20+1000)|
000113b0  0d 70 12 2d 20 20 f2 70  6f 69 6e 74 5f 70 6c 6f  |.p.-  .point_plo|
000113c0  74 28 20 31 30 34 2c 78  5f 61 78 65 73 5f 6c 65  |t( 104,x_axes_le|
000113d0  76 65 6c 25 2b 32 30 2b  31 30 30 30 29 0d 70 1c  |vel%+20+1000).p.|
000113e0  2e 20 20 f2 70 6f 69 6e  74 5f 6d 6f 76 65 28 20  |.  .point_move( |
000113f0  31 31 37 34 2c 78 5f 61  78 65 73 5f 6c 65 76 65  |1174,x_axes_leve|
00011400  6c 25 2d 32 30 2b 31 30  30 30 29 0d 70 26 2e 20  |l%-20+1000).p&. |
00011410  20 f2 70 6f 69 6e 74 5f  70 6c 6f 74 28 20 31 31  | .point_plot( 11|
00011420  37 34 2c 78 5f 61 78 65  73 5f 6c 65 76 65 6c 25  |74,x_axes_level%|
00011430  2b 32 30 2b 31 30 30 30  29 0d 70 30 2d 20 20 f2  |+20+1000).p0-  .|
00011440  70 6f 69 6e 74 5f 6d 6f  76 65 28 20 79 5f 61 78  |point_move( y_ax|
00011450  65 73 5f 6c 65 76 65 6c  25 2d 32 30 2c 2d 38 34  |es_level%-20,-84|
00011460  2b 31 30 30 30 29 0d 70  3a 2d 20 20 f2 70 6f 69  |+1000).p:-  .poi|
00011470  6e 74 5f 70 6c 6f 74 28  20 79 5f 61 78 65 73 5f  |nt_plot( y_axes_|
00011480  6c 65 76 65 6c 25 2b 32  30 2c 2d 38 34 2b 31 30  |level%+20,-84+10|
00011490  30 30 29 0d 70 44 2e 20  20 f2 70 6f 69 6e 74 5f  |00).pD.  .point_|
000114a0  6d 6f 76 65 28 20 79 5f  61 78 65 73 5f 6c 65 76  |move( y_axes_lev|
000114b0  65 6c 25 2d 32 30 2c 2d  39 33 38 2b 31 30 30 30  |el%-20,-938+1000|
000114c0  29 0d 70 4e 2e 20 20 f2  70 6f 69 6e 74 5f 70 6c  |).pN.  .point_pl|
000114d0  6f 74 28 20 79 5f 61 78  65 73 5f 6c 65 76 65 6c  |ot( y_axes_level|
000114e0  25 2b 32 30 2c 2d 39 33  38 2b 31 30 30 30 29 0d  |%+20,-938+1000).|
000114f0  70 58 0e 20 20 f2 65 6e  64 70 61 74 68 0d 70 62  |pX.  .endpath.pb|
00011500  18 20 20 74 78 25 3d 31  31 30 30 2a 32 30 30 2b  |.  tx%=1100*200+|
00011510  35 30 30 30 30 0d 70 6c  25 20 20 74 79 25 3d 28  |50000.pl%  ty%=(|
00011520  78 5f 61 78 65 73 5f 6c  65 76 65 6c 25 2d 32 30  |x_axes_level%-20|
00011530  2b 31 30 30 30 29 2a 32  30 30 0d 70 76 1d 20 20  |+1000)*200.pv.  |
00011540  74 24 3d 22 79 3d 22 2b  c3 28 78 5f 61 78 65 73  |t$="y="+.(x_axes|
00011550  5f 6c 65 76 65 6c 29 0d  70 80 21 20 20 f2 74 65  |_level).p.!  .te|
00011560  78 74 6c 28 74 78 25 2c  74 79 25 2c 38 30 30 30  |xtl(tx%,ty%,8000|
00011570  2c 26 46 46 2c 74 24 29  0d 70 8a 28 20 20 74 78  |,&FF,t$).p.(  tx|
00011580  25 20 3d 20 28 79 5f 61  78 65 73 5f 6c 65 76 65  |% = (y_axes_leve|
00011590  6c 25 2b 31 30 29 2a 32  30 30 2b 35 30 30 30 30  |l%+10)*200+50000|
000115a0  0d 70 94 18 20 20 74 79  25 3d 28 2d 35 30 2b 31  |.p..  ty%=(-50+1|
000115b0  30 30 30 29 2a 32 30 30  0d 70 9e 1d 20 20 74 24  |000)*200.p..  t$|
000115c0  3d 22 78 3d 22 2b c3 28  79 5f 61 78 65 73 5f 6c  |="x="+.(y_axes_l|
000115d0  65 76 65 6c 29 0d 70 a8  21 20 20 f2 74 65 78 74  |evel).p.!  .text|
000115e0  6c 28 74 78 25 2c 74 79  25 2c 38 30 30 30 2c 26  |l(tx%,ty%,8000,&|
000115f0  46 46 2c 74 24 29 0d 70  b2 05 cd 0d 70 bc 05 e1  |FF,t$).p....p...|
00011600  0d 70 c6 04 0d 70 d0 04  0d 70 da 16 dd 20 f2 64  |.p...p...p... .d|
00011610  72 61 77 5f 70 61 72 61  6d 65 74 72 69 63 0d 70  |raw_parametric.p|
00011620  e4 18 f2 64 72 61 77 5f  70 61 72 61 5f 61 78 65  |...draw_para_axe|
00011630  73 5f 64 72 61 77 0d 70  ee 14 e3 20 67 72 61 70  |s_draw.p... grap|
00011640  68 25 20 3d 20 31 20 b8  20 33 0d 70 f8 15 20 20  |h% = 1 . 3.p..  |
00011650  58 25 20 3d 20 67 72 61  70 68 25 2a 32 2d 32 0d  |X% = graph%*2-2.|
00011660  71 02 15 20 20 59 25 20  3d 20 67 72 61 70 68 25  |q..  Y% = graph%|
00011670  2a 32 2d 31 0d 71 0c 25  20 20 78 62 61 73 65 25  |*2-1.q.%  xbase%|
00011680  20 3d 20 70 6c 6f 74 5f  76 61 6c 75 65 73 25 2b  | = plot_values%+|
00011690  58 25 2a 31 32 38 30 2a  34 0d 71 16 25 20 20 79  |X%*1280*4.q.%  y|
000116a0  62 61 73 65 25 20 3d 20  70 6c 6f 74 5f 76 61 6c  |base% = plot_val|
000116b0  75 65 73 25 2b 59 25 2a  31 32 38 30 2a 34 0d 71  |ues%+Y%*1280*4.q|
000116c0  20 1b 20 e7 20 70 61 72  61 5f 70 6c 6f 74 25 28  | . . para_plot%(|
000116d0  67 72 61 70 68 25 29 20  8c 0d 71 2a 0a 20 20 58  |graph%) ..q*.  X|
000116e0  25 3d 30 0d 71 34 30 20  20 f2 73 74 61 72 74 70  |%=0.q40  .startp|
000116f0  61 74 68 28 30 2c 2d 31  30 30 30 2b 30 2c 2d 31  |ath(0,-1000+0,-1|
00011700  2c a4 63 6f 6c 6f 75 72  28 67 72 61 70 68 25 29  |,.colour(graph%)|
00011710  2c 31 29 0d 71 3e 0f 20  20 6d 6f 76 65 25 20 3d  |,1).q>.  move% =|
00011720  20 b9 0d 71 48 19 20 20  e3 20 54 25 20 3d 20 30  | ..qH.  . T% = 0|
00011730  20 b8 20 31 32 37 36 20  88 20 32 0d 71 52 19 20  | . 1276 . 2.qR. |
00011740  20 20 20 79 25 20 3d 79  62 61 73 65 25 21 28 54  |   y% =ybase%!(T|
00011750  25 2a 34 29 0d 71 5c 19  20 20 20 20 78 25 20 3d  |%*4).q\.    x% =|
00011760  78 62 61 73 65 25 21 28  54 25 2a 34 29 0d 71 66  |xbase%!(T%*4).qf|
00011770  13 20 20 20 20 20 20 e7  20 6d 6f 76 65 25 20 8c  |.      . move% .|
00011780  0d 71 70 24 20 20 20 20  20 20 20 20 20 f2 70 6f  |.qp$         .po|
00011790  69 6e 74 5f 6d 6f 76 65  28 78 25 2c 79 25 2b 31  |int_move(x%,y%+1|
000117a0  30 30 30 29 0d 71 7a 0b  20 20 20 20 20 20 cc 0d  |000).qz.      ..|
000117b0  71 84 24 20 20 20 20 20  20 20 20 20 f2 70 6f 69  |q.$         .poi|
000117c0  6e 74 5f 70 6c 6f 74 28  78 25 2c 79 25 2b 31 30  |nt_plot(x%,y%+10|
000117d0  30 30 29 0d 71 8e 0b 20  20 20 20 20 20 cd 0d 71  |00).q..      ..q|
000117e0  98 07 20 20 ed 0d 71 a2  0f 20 20 20 f2 65 6e 64  |..  ..q..   .end|
000117f0  70 61 74 68 0d 71 ac 06  20 cd 0d 71 b6 05 ed 0d  |path.q.. ..q....|
00011800  71 c0 05 e1 0d 71 ca 05  20 0d 71 d4 1a dd 20 f2  |q....q.. .q... .|
00011810  64 72 61 77 5f 70 61 72  61 5f 61 78 65 73 5f 64  |draw_para_axes_d|
00011820  72 61 77 0d 71 de 10 ea  20 74 78 25 2c 74 79 25  |raw.q... tx%,ty%|
00011830  2c 74 24 0d 71 e8 0b 6d  6f 76 65 25 3d a3 0d 71  |,t$.q..move%=..q|
00011840  f2 14 e7 20 73 68 6f 77  5f 61 78 65 73 25 20 20  |... show_axes%  |
00011850  20 8c 0d 71 fc 21 20 20  f2 73 74 61 72 74 70 61  | ..q.!  .startpa|
00011860  74 68 28 30 2c 32 35 31  32 2c 2d 31 2c 26 46 46  |th(0,2512,-1,&FF|
00011870  2c 31 29 0d 72 06 27 20  20 f2 70 6f 69 6e 74 5f  |,1).r.'  .point_|
00011880  6d 6f 76 65 28 30 2c 78  5f 61 78 65 73 5f 6c 65  |move(0,x_axes_le|
00011890  76 65 6c 25 2b 31 30 30  30 29 0d 72 10 2a 20 20  |vel%+1000).r.*  |
000118a0  f2 70 6f 69 6e 74 5f 70  6c 6f 74 28 31 32 38 30  |.point_plot(1280|
000118b0  2c 78 5f 61 78 65 73 5f  6c 65 76 65 6c 25 2b 31  |,x_axes_level%+1|
000118c0  30 30 30 29 0d 72 1a 27  20 20 f2 70 6f 69 6e 74  |000).r.'  .point|
000118d0  5f 6d 6f 76 65 28 79 5f  61 78 65 73 5f 6c 65 76  |_move(y_axes_lev|
000118e0  65 6c 25 2c 30 2b 31 30  30 30 29 0d 72 24 2b 20  |el%,0+1000).r$+ |
000118f0  20 f2 70 6f 69 6e 74 5f  70 6c 6f 74 28 79 5f 61  | .point_plot(y_a|
00011900  78 65 73 5f 6c 65 76 65  6c 25 2c 2d 31 30 35 30  |xes_level%,-1050|
00011910  2b 31 30 30 30 29 0d 72  2e 2d 20 20 f2 70 6f 69  |+1000).r.-  .poi|
00011920  6e 74 5f 6d 6f 76 65 28  20 32 31 30 2c 78 5f 61  |nt_move( 210,x_a|
00011930  78 65 73 5f 6c 65 76 65  6c 25 2d 32 30 2b 31 30  |xes_level%-20+10|
00011940  30 30 29 0d 72 38 2d 20  20 f2 70 6f 69 6e 74 5f  |00).r8-  .point_|
00011950  70 6c 6f 74 28 20 32 31  30 2c 78 5f 61 78 65 73  |plot( 210,x_axes|
00011960  5f 6c 65 76 65 6c 25 2b  32 30 2b 31 30 30 30 29  |_level%+20+1000)|
00011970  0d 72 42 2e 20 20 f2 70  6f 69 6e 74 5f 6d 6f 76  |.rB.  .point_mov|
00011980  65 28 20 31 30 36 38 2c  78 5f 61 78 65 73 5f 6c  |e( 1068,x_axes_l|
00011990  65 76 65 6c 25 2d 32 30  2b 31 30 30 30 29 0d 72  |evel%-20+1000).r|
000119a0  4c 2e 20 20 f2 70 6f 69  6e 74 5f 70 6c 6f 74 28  |L.  .point_plot(|
000119b0  20 31 30 36 38 2c 78 5f  61 78 65 73 5f 6c 65 76  | 1068,x_axes_lev|
000119c0  65 6c 25 2b 32 30 2b 31  30 30 30 29 0d 72 56 2d  |el%+20+1000).rV-|
000119d0  20 20 f2 70 6f 69 6e 74  5f 6d 6f 76 65 28 20 79  |  .point_move( y|
000119e0  5f 61 78 65 73 5f 6c 65  76 65 6c 25 2d 32 30 2c  |_axes_level%-20,|
000119f0  2d 38 34 2b 31 30 30 30  29 0d 72 60 2d 20 20 f2  |-84+1000).r`-  .|
00011a00  70 6f 69 6e 74 5f 70 6c  6f 74 28 20 79 5f 61 78  |point_plot( y_ax|
00011a10  65 73 5f 6c 65 76 65 6c  25 2b 32 30 2c 2d 38 34  |es_level%+20,-84|
00011a20  2b 31 30 30 30 29 0d 72  6a 2e 20 20 f2 70 6f 69  |+1000).rj.  .poi|
00011a30  6e 74 5f 6d 6f 76 65 28  20 79 5f 61 78 65 73 5f  |nt_move( y_axes_|
00011a40  6c 65 76 65 6c 25 2d 32  30 2c 2d 39 33 38 2b 31  |level%-20,-938+1|
00011a50  30 30 30 29 0d 72 74 2e  20 20 f2 70 6f 69 6e 74  |000).rt.  .point|
00011a60  5f 70 6c 6f 74 28 20 79  5f 61 78 65 73 5f 6c 65  |_plot( y_axes_le|
00011a70  76 65 6c 25 2b 32 30 2c  2d 39 33 38 2b 31 30 30  |vel%+20,-938+100|
00011a80  30 29 0d 72 7e 0e 20 20  f2 65 6e 64 70 61 74 68  |0).r~.  .endpath|
00011a90  0d 72 88 18 20 20 74 78  25 3d 31 31 30 30 2a 32  |.r..  tx%=1100*2|
00011aa0  30 30 2b 35 30 30 30 30  0d 72 92 25 20 20 74 79  |00+50000.r.%  ty|
00011ab0  25 3d 28 78 5f 61 78 65  73 5f 6c 65 76 65 6c 25  |%=(x_axes_level%|
00011ac0  2d 32 30 2b 31 30 30 30  29 2a 32 30 30 0d 72 9c  |-20+1000)*200.r.|
00011ad0  1d 20 20 74 24 3d 22 79  3d 22 2b c3 28 78 5f 61  |.  t$="y="+.(x_a|
00011ae0  78 65 73 5f 6c 65 76 65  6c 29 0d 72 a6 21 20 20  |xes_level).r.!  |
00011af0  f2 74 65 78 74 6c 28 74  78 25 2c 74 79 25 2c 38  |.textl(tx%,ty%,8|
00011b00  30 30 30 2c 26 46 46 2c  74 24 29 0d 72 b0 28 20  |000,&FF,t$).r.( |
00011b10  20 74 78 25 20 3d 20 28  79 5f 61 78 65 73 5f 6c  | tx% = (y_axes_l|
00011b20  65 76 65 6c 25 2b 31 30  29 2a 32 30 30 2b 35 30  |evel%+10)*200+50|
00011b30  30 30 30 0d 72 ba 18 20  20 74 79 25 3d 28 2d 35  |000.r..  ty%=(-5|
00011b40  30 2b 31 30 30 30 29 2a  32 30 30 0d 72 c4 1d 20  |0+1000)*200.r.. |
00011b50  20 74 24 3d 22 78 3d 22  2b c3 28 79 5f 61 78 65  | t$="x="+.(y_axe|
00011b60  73 5f 6c 65 76 65 6c 29  0d 72 ce 21 20 20 f2 74  |s_level).r.!  .t|
00011b70  65 78 74 6c 28 74 78 25  2c 74 79 25 2c 38 30 30  |extl(tx%,ty%,800|
00011b80  30 2c 26 46 46 2c 74 24  29 0d 72 d8 05 cd 0d 72  |0,&FF,t$).r....r|
00011b90  e2 05 e1 0d 72 ec 04 0d  72 f6 04 0d 73 00 11 dd  |....r...r...s...|
00011ba0  20 f2 64 72 61 77 5f 70  6f 6c 61 72 0d 73 0a 19  | .draw_polar.s..|
00011bb0  f2 64 72 61 77 5f 70 6f  6c 61 72 5f 61 78 65 73  |.draw_polar_axes|
00011bc0  5f 64 72 61 77 0d 73 14  14 e3 20 67 72 61 70 68  |_draw.s... graph|
00011bd0  25 20 3d 20 31 20 b8 20  33 0d 73 1e 15 20 20 58  |% = 1 . 3.s..  X|
00011be0  25 20 3d 20 67 72 61 70  68 25 2a 32 2d 32 0d 73  |% = graph%*2-2.s|
00011bf0  28 15 20 20 59 25 20 3d  20 67 72 61 70 68 25 2a  |(.  Y% = graph%*|
00011c00  32 2d 31 0d 73 32 25 20  20 78 62 61 73 65 25 20  |2-1.s2%  xbase% |
00011c10  3d 20 70 6c 6f 74 5f 76  61 6c 75 65 73 25 2b 58  |= plot_values%+X|
00011c20  25 2a 31 32 38 30 2a 34  0d 73 3c 25 20 20 79 62  |%*1280*4.s<%  yb|
00011c30  61 73 65 25 20 3d 20 70  6c 6f 74 5f 76 61 6c 75  |ase% = plot_valu|
00011c40  65 73 25 2b 59 25 2a 31  32 38 30 2a 34 0d 73 46  |es%+Y%*1280*4.sF|
00011c50  1c 20 e7 20 70 6f 6c 61  72 5f 70 6c 6f 74 25 28  |. . polar_plot%(|
00011c60  67 72 61 70 68 25 29 20  8c 0d 73 50 0a 20 20 58  |graph%) ..sP.  X|
00011c70  25 3d 30 0d 73 5a 30 20  20 f2 73 74 61 72 74 70  |%=0.sZ0  .startp|
00011c80  61 74 68 28 30 2c 2d 31  30 30 30 2b 30 2c 2d 31  |ath(0,-1000+0,-1|
00011c90  2c a4 63 6f 6c 6f 75 72  28 67 72 61 70 68 25 29  |,.colour(graph%)|
00011ca0  2c 31 29 0d 73 64 0f 20  20 6d 6f 76 65 25 20 3d  |,1).sd.  move% =|
00011cb0  20 b9 0d 73 6e 19 20 20  e3 20 54 25 20 3d 20 30  | ..sn.  . T% = 0|
00011cc0  20 b8 20 31 32 37 36 20  88 20 32 0d 73 78 19 20  | . 1276 . 2.sx. |
00011cd0  20 20 20 79 25 20 3d 79  62 61 73 65 25 21 28 54  |   y% =ybase%!(T|
00011ce0  25 2a 34 29 0d 73 82 19  20 20 20 20 78 25 20 3d  |%*4).s..    x% =|
00011cf0  78 62 61 73 65 25 21 28  54 25 2a 34 29 0d 73 8c  |xbase%!(T%*4).s.|
00011d00  13 20 20 20 20 20 20 e7  20 6d 6f 76 65 25 20 8c  |.      . move% .|
00011d10  0d 73 96 24 20 20 20 20  20 20 20 20 20 f2 70 6f  |.s.$         .po|
00011d20  69 6e 74 5f 6d 6f 76 65  28 78 25 2c 79 25 2b 31  |int_move(x%,y%+1|
00011d30  30 30 30 29 0d 73 a0 0b  20 20 20 20 20 20 cc 0d  |000).s..      ..|
00011d40  73 aa 24 20 20 20 20 20  20 20 20 20 f2 70 6f 69  |s.$         .poi|
00011d50  6e 74 5f 70 6c 6f 74 28  78 25 2c 79 25 2b 31 30  |nt_plot(x%,y%+10|
00011d60  30 30 29 0d 73 b4 0b 20  20 20 20 20 20 cd 0d 73  |00).s..      ..s|
00011d70  be 07 20 20 ed 0d 73 c8  0f 20 20 20 f2 65 6e 64  |..  ..s..   .end|
00011d80  70 61 74 68 0d 73 d2 06  20 cd 0d 73 dc 05 ed 0d  |path.s.. ..s....|
00011d90  73 e6 05 e1 0d 73 f0 05  20 0d 73 fa 04 0d 74 04  |s....s.. .s...t.|
00011da0  05 20 0d 74 0e 1b dd 20  f2 64 72 61 77 5f 70 6f  |. .t... .draw_po|
00011db0  6c 61 72 5f 61 78 65 73  5f 64 72 61 77 0d 74 18  |lar_axes_draw.t.|
00011dc0  10 ea 20 74 78 25 2c 74  79 25 2c 74 24 0d 74 22  |.. tx%,ty%,t$.t"|
00011dd0  0b 6d 6f 76 65 25 3d a3  0d 74 2c 14 e7 20 73 68  |.move%=..t,.. sh|
00011de0  6f 77 5f 61 78 65 73 25  20 20 20 8c 0d 74 36 05  |ow_axes%   ..t6.|
00011df0  20 0d 74 40 2d 20 20 f2  63 69 72 63 6c 65 28 36  | .t@-  .circle(6|
00011e00  34 30 2c 2d 35 31 32 2b  31 30 32 34 2c 31 30 36  |40,-512+1024,106|
00011e10  2c 2d 31 2c 26 44 44 44  44 44 44 2c 31 29 0d 74  |,-1,&DDDDDD,1).t|
00011e20  4a 2d 20 20 f2 63 69 72  63 6c 65 28 36 34 30 2c  |J-  .circle(640,|
00011e30  2d 35 31 32 2b 31 30 32  34 2c 32 31 33 2c 2d 31  |-512+1024,213,-1|
00011e40  2c 26 44 44 44 44 44 44  2c 31 29 0d 74 54 2d 20  |,&DDDDDD,1).tT- |
00011e50  20 f2 63 69 72 63 6c 65  28 36 34 30 2c 2d 35 31  | .circle(640,-51|
00011e60  32 2b 31 30 32 34 2c 33  32 30 2c 2d 31 2c 26 44  |2+1024,320,-1,&D|
00011e70  44 44 44 44 44 2c 31 29  0d 74 5e 2d 20 20 f2 63  |DDDDD,1).t^-  .c|
00011e80  69 72 63 6c 65 28 36 34  30 2c 2d 35 31 32 2b 31  |ircle(640,-512+1|
00011e90  30 32 34 2c 34 32 37 2c  2d 31 2c 26 44 44 44 44  |024,427,-1,&DDDD|
00011ea0  44 44 2c 31 29 0d 74 68  25 20 20 f2 73 74 61 72  |DD,1).th%  .star|
00011eb0  74 70 61 74 68 28 30 2c  32 35 31 32 2c 2d 31 2c  |tpath(0,2512,-1,|
00011ec0  26 44 44 44 44 44 44 2c  31 29 0d 74 72 21 20 20  |&DDDDDD,1).tr!  |
00011ed0  f2 70 6f 69 6e 74 5f 6d  6f 76 65 28 31 30 36 37  |.point_move(1067|
00011ee0  2c 2d 35 31 32 2b 31 30  30 30 29 0d 74 7c 20 20  |,-512+1000).t|  |
00011ef0  20 f2 70 6f 69 6e 74 5f  70 6c 6f 74 28 32 32 30  | .point_plot(220|
00011f00  2c 2d 35 31 32 2b 31 30  30 30 29 0d 74 86 1f 20  |,-512+1000).t.. |
00011f10  20 f2 70 6f 69 6e 74 5f  6d 6f 76 65 28 36 34 30  | .point_move(640|
00011f20  2c 2d 38 35 2b 31 30 30  30 29 0d 74 90 20 20 20  |,-85+1000).t.   |
00011f30  f2 70 6f 69 6e 74 5f 70  6c 6f 74 28 36 34 30 2c  |.point_plot(640,|
00011f40  2d 39 33 39 2b 31 30 30  30 29 0d 74 9a 20 20 20  |-939+1000).t.   |
00011f50  f2 70 6f 69 6e 74 5f 6d  6f 76 65 28 39 34 32 2c  |.point_move(942,|
00011f60  2d 32 31 30 2b 31 30 30  30 29 0d 74 a4 20 20 20  |-210+1000).t.   |
00011f70  f2 70 6f 69 6e 74 5f 70  6c 6f 74 28 33 33 38 2c  |.point_plot(338,|
00011f80  2d 38 31 34 2b 31 30 30  30 29 0d 74 ae 20 20 20  |-814+1000).t.   |
00011f90  f2 70 6f 69 6e 74 5f 6d  6f 76 65 28 33 33 38 2c  |.point_move(338,|
00011fa0  2d 32 31 30 2b 31 30 30  30 29 0d 74 b8 20 20 20  |-210+1000).t.   |
00011fb0  f2 70 6f 69 6e 74 5f 70  6c 6f 74 28 39 34 32 2c  |.point_plot(942,|
00011fc0  2d 38 31 34 2b 31 30 30  30 29 0d 74 c2 0e 20 20  |-814+1000).t..  |
00011fd0  f2 65 6e 64 70 61 74 68  0d 74 cc 1c 20 20 74 78  |.endpath.t..  tx|
00011fe0  25 20 3d 20 28 31 30 37  30 29 2a 32 30 30 2b 35  |% = (1070)*200+5|
00011ff0  30 30 30 30 0d 74 d6 19  20 20 74 79 25 3d 28 2d  |0000.t..  ty%=(-|
00012000  35 31 32 2b 31 30 30 30  29 2a 32 30 30 0d 74 e0  |512+1000)*200.t.|
00012010  0b 20 20 41 25 3d 40 25  0d 74 ea 12 20 20 40 25  |.  A%=@%.t..  @%|
00012020  3d 26 30 31 30 30 30 33  30 38 0d 74 f4 17 20 20  |=&01000308.t..  |
00012030  74 24 3d c3 28 65 6e 74  65 72 65 64 5f 72 61 64  |t$=.(entered_rad|
00012040  29 0d 74 fe 21 20 20 f2  74 65 78 74 6c 28 74 78  |).t.!  .textl(tx|
00012050  25 2c 74 79 25 2c 38 30  30 30 2c 26 46 46 2c 74  |%,ty%,8000,&FF,t|
00012060  24 29 0d 75 08 0b 20 20  40 25 3d 41 25 0d 75 12  |$).u..  @%=A%.u.|
00012070  05 cd 0d 75 1c 05 e1 0d  75 26 04 0d 75 30 15 dd  |...u....u&..u0..|
00012080  20 a4 63 6f 6c 6f 75 72  28 76 61 6c 75 65 25 29  | .colour(value%)|
00012090  0d 75 3a 0f c8 8e 20 76  61 6c 75 65 25 20 ca 0d  |.u:... value% ..|
000120a0  75 44 12 20 20 c9 20 31  20 3a 20 3d 26 43 43 30  |uD.  . 1 : =&CC0|
000120b0  30 0d 75 4e 14 20 20 c9  20 32 20 3a 20 3d 26 44  |0.uN.  . 2 : =&D|
000120c0  44 30 30 30 30 0d 75 58  14 20 20 c9 20 33 20 3a  |D0000.uX.  . 3 :|
000120d0  20 3d 26 45 45 45 45 42  42 0d 75 62 14 20 20 c9  | =&EEEEBB.ub.  .|
000120e0  20 34 20 3a 20 3d 26 35  35 38 38 30 30 0d 75 6c  | 4 : =&558800.ul|
000120f0  14 20 20 c9 20 35 20 3a  20 3d 26 46 46 42 42 30  |.  . 5 : =&FFBB0|
00012100  30 0d 75 76 14 20 20 c9  20 36 20 3a 20 3d 26 30  |0.uv.  . 6 : =&0|
00012110  30 42 42 46 46 0d 75 80  05 cb 0d 75 8a 05 e0 0d  |0BBFF.u....u....|
00012120  75 94 04 0d 75 9e 18 dd  20 f2 70 6f 69 6e 74 5f  |u...u... .point_|
00012130  6d 6f 76 65 28 78 25 2c  79 25 29 0d 75 a8 36 e7  |move(x%,y%).u.6.|
00012140  20 78 25 20 3e 3d 30 20  80 20 78 25 20 3c 3d 20  | x% >=0 . x% <= |
00012150  31 32 38 30 20 20 80 20  79 25 20 3e 3d 20 2d 32  |1280  . y% >= -2|
00012160  30 30 20 80 20 79 25 20  3c 3d 20 31 32 30 30 20  |00 . y% <= 1200 |
00012170  8c 0d 75 b2 26 20 f2 6d  6f 76 65 74 6f 28 35 30  |..u.& .moveto(50|
00012180  30 30 30 2b 78 25 2a 32  30 30 2c 35 30 30 30 2b  |000+x%*200,5000+|
00012190  79 25 2a 32 30 30 29 0d  75 bc 0e 20 6d 6f 76 65  |y%*200).u.. move|
000121a0  25 20 3d 20 a3 0d 75 c6  05 cd 0d 75 d0 05 e1 0d  |% = ..u....u....|
000121b0  75 da 04 0d 75 e4 18 dd  20 f2 70 6f 69 6e 74 5f  |u...u... .point_|
000121c0  70 6c 6f 74 28 78 25 2c  79 25 29 0d 75 ee 0f 20  |plot(x%,y%).u.. |
000121d0  20 6d 6f 76 65 25 20 3d  20 a3 0d 75 f8 34 20 e7  | move% = ..u.4 .|
000121e0  20 79 25 20 3e 20 2d 31  35 30 20 80 20 79 25 20  | y% > -150 . y% |
000121f0  3c 20 31 31 30 30 20 80  20 78 25 20 3e 3d 30 20  |< 1100 . x% >=0 |
00012200  80 20 78 25 20 3c 3d 20  31 32 38 30 20 8c 0d 76  |. x% <= 1280 ..v|
00012210  02 27 20 20 f2 64 72 61  77 74 6f 28 35 30 30 30  |.'  .drawto(5000|
00012220  30 2b 78 25 2a 32 30 30  2c 35 30 30 30 2b 79 25  |0+x%*200,5000+y%|
00012230  2a 32 30 30 29 0d 76 0c  06 20 cc 0d 76 16 10 20  |*200).v.. ..v.. |
00012240  20 20 6d 6f 76 65 25 20  3d 20 b9 0d 76 20 07 20  |  move% = ..v . |
00012250  20 cd 0d 76 2a 05 e1 0d  76 34 04 0d 76 3e 04 0d  | ..v*...v4..v>..|
00012260  76 48 04 0d 76 52 15 dd  20 f2 65 73 63 61 70 65  |vH..vR.. .escape|
00012270  5f 70 72 65 73 73 65 64  0d 76 5c 05 e1 0d 76 66  |_pressed.v\...vf|
00012280  04 0d 76 70 0d dd 20 f2  6d 65 6d 6f 72 79 0d 76  |..vp.. .memory.v|
00012290  7a 11 71 25 3d 70 61 72  61 6d 65 74 65 72 25 0d  |z.q%=parameter%.|
000122a0  76 84 1f f4 20 49 46 71  25 21 31 32 3c 3e 73 61  |v... IFq%!12<>sa|
000122b0  76 65 72 65 66 25 3a 45  4e 44 50 52 4f 43 0d 76  |veref%:ENDPROC.v|
000122c0  8e 0d f2 67 6c 61 73 73  28 b9 29 0d 76 98 17 64  |...glass(.).v..d|
000122d0  72 61 77 5f 70 25 3d 64  72 61 77 5f 61 72 72 61  |raw_p%=draw_arra|
000122e0  79 25 0d 76 a2 0e f2 73  74 61 72 74 64 72 61 77  |y%.v...startdraw|
000122f0  0d 76 ac 17 f2 73 74 61  72 74 67 72 6f 75 70 28  |.v...startgroup(|
00012300  22 6c 69 6e 65 22 29 0d  76 b6 1c e7 20 63 61 72  |"line").v... car|
00012310  74 5f 70 6c 6f 74 25 20  20 f2 64 72 61 77 5f 63  |t_plot%  .draw_c|
00012320  61 72 74 0d 76 c0 21 e7  20 70 61 72 61 5f 70 6c  |art.v.!. para_pl|
00012330  6f 74 25 20 f2 64 72 61  77 5f 70 61 72 61 6d 65  |ot% .draw_parame|
00012340  74 72 69 63 0d 76 ca 1d  e7 20 70 6f 6c 61 72 5f  |tric.v... polar_|
00012350  70 6c 6f 74 25 20 f2 64  72 61 77 5f 70 6f 6c 61  |plot% .draw_pola|
00012360  72 0d 76 d4 0d f2 65 6e  64 67 72 6f 75 70 0d 76  |r.v...endgroup.v|
00012370  de 0c f2 65 6e 64 64 72  61 77 0d 76 e8 0d f2 67  |...enddraw.v...g|
00012380  6c 61 73 73 28 a3 29 0d  76 f2 05 e1 0d 76 fc 20  |lass(.).v....v. |
00012390  e7 64 65 6e 64 25 2d 64  72 61 77 5f 61 72 72 61  |.dend%-draw_arra|
000123a0  79 25 2b 31 3c 71 25 21  32 34 20 8c 0d 77 06 1f  |y%+1<q%!24 ..w..|
000123b0  20 71 25 21 32 34 3d 64  65 6e 64 25 2d 64 72 61  | q%!24=dend%-dra|
000123c0  77 5f 61 72 72 61 79 25  25 2b 34 0d 77 10 05 cd  |w_array%%+4.w...|
000123d0  0d 77 1a 06 ef 37 0d 77  24 42 c8 99 22 57 69 6d  |.w...7.w$B.."Wim|
000123e0  70 5f 54 72 61 6e 73 66  65 72 42 6c 6f 63 6b 22  |p_TransferBlock"|
000123f0  2c 74 61 73 6b 25 2c 64  72 61 77 5f 61 72 72 61  |,task%,draw_arra|
00012400  79 25 2c 6e 65 77 5f 74  61 73 6b 25 2c 71 25 21  |y%,new_task%,q%!|
00012410  32 30 2c 71 25 21 32 34  0d 77 2e 0a 21 71 25 3d  |20,q%!24.w..!q%=|
00012420  32 38 0d 77 38 0b 71 25  21 31 36 3d 37 0d 77 42  |28.w8.q%!16=7.wB|
00012430  0e 71 25 21 31 32 3d 72  65 66 25 0d 77 4c 29 64  |.q%!12=ref%.wL)d|
00012440  72 61 77 5f 61 72 72 61  79 25 2b 3d 71 25 21 32  |raw_array%+=q%!2|
00012450  34 20 3a 20 f4 20 69 73  20 74 68 69 73 20 6e 65  |4 : . is this ne|
00012460  65 64 65 64 0d 77 56 24  c8 99 22 57 69 6d 70 5f  |eded.wV$.."Wimp_|
00012470  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
00012480  71 25 2c 74 61 73 6b 25  0d 77 60 11 73 61 76 65  |q%,task%.w`.save|
00012490  72 65 66 25 3d 71 25 21  38 0d 77 6a 05 e1 0d 77  |ref%=q%!8.wj...w|
000124a0  74 05 3a 0d 77 7e 05 3a  0d 77 88 05 3a 0d 77 92  |t.:.w~.:.w..:.w.|
000124b0  32 dd 20 f2 63 6f 6e 76  65 72 74 28 69 6e 70 75  |2. .convert(inpu|
000124c0  74 24 2c 76 61 72 24 2c  f8 20 6f 75 74 70 75 74  |t$,var$,. output|
000124d0  24 2c 20 f8 20 65 72 72  6f 72 5f 6e 6f 25 29 0d  |$, . error_no%).|
000124e0  77 9c 25 ea 20 65 72 72  6f 72 25 2c 20 65 76 61  |w.%. error%, eva|
000124f0  6c 5f 73 70 25 2c 20 6f  6c 64 5f 76 61 72 24 2c  |l_sp%, old_var$,|
00012500  20 65 6e 25 0d 77 a6 10  65 72 72 6f 72 5f 6e 6f  | en%.w..error_no|
00012510  25 20 3d 30 0d 77 b0 10  65 76 61 6c 5f 73 70 25  |% =0.w..eval_sp%|
00012520  20 3d 20 30 0d 77 ba 13  6f 6c 64 5f 76 61 72 24  | = 0.w..old_var$|
00012530  20 3d 20 76 61 72 24 0d  77 c4 0e 76 61 72 24 20  | = var$.w..var$ |
00012540  3d 20 22 40 22 0d 77 ce  18 f2 73 74 72 69 70 5f  |= "@".w...strip_|
00012550  73 70 61 63 65 28 69 6e  70 75 74 24 29 0d 77 d8  |space(input$).w.|
00012560  15 e7 20 a9 28 69 6e 70  75 74 24 29 20 3d 20 30  |.. .(input$) = 0|
00012570  20 8c 0d 77 e2 13 20 20  65 72 72 6f 72 5f 6e 6f  | ..w..  error_no|
00012580  25 20 3d 20 35 0d 77 ec  05 cc 0d 77 f6 19 20 20  |% = 5.w....w..  |
00012590  f2 62 72 61 63 6b 65 74  66 69 78 28 69 6e 70 75  |.bracketfix(inpu|
000125a0  74 24 29 0d 78 00 2b 20  20 f2 61 6e 61 6c 79 73  |t$).x.+  .analys|
000125b0  65 31 28 6f 6c 64 5f 76  61 72 24 2c 69 6e 70 75  |e1(old_var$,inpu|
000125c0  74 24 2c 65 72 72 6f 72  25 2c 65 6e 25 29 0d 78  |t$,error%,en%).x|
000125d0  0a 10 20 20 e7 20 65 72  72 6f 72 25 20 8c 0d 78  |..  . error% ..x|
000125e0  14 15 20 20 20 20 65 72  72 6f 72 5f 6e 6f 25 3d  |..    error_no%=|
000125f0  65 6e 25 0d 78 1e 07 20  20 cc 0d 78 28 1b 20 20  |en%.x..  ..x(.  |
00012600  20 20 f2 75 6e 61 72 79  28 69 6e 70 75 74 24 2c  |  .unary(input$,|
00012610  76 61 72 24 29 0d 78 32  1e 20 20 20 20 f2 76 61  |var$).x2.    .va|
00012620  72 69 61 62 6c 65 28 69  6e 70 75 74 24 2c 76 61  |riable(input$,va|
00012630  72 24 29 0d 78 3c 1c 20  20 20 20 f2 6e 75 6d 62  |r$).x<.    .numb|
00012640  65 72 28 69 6e 70 75 74  24 2c 76 61 72 24 29 0d  |er(input$,var$).|
00012650  78 46 28 20 20 20 20 f2  61 6e 61 6c 79 73 65 28  |xF(    .analyse(|
00012660  76 61 72 24 2c 69 6e 70  75 74 24 2c 65 72 72 6f  |var$,input$,erro|
00012670  72 25 2c 65 6e 25 29 0d  78 50 12 20 20 20 20 e7  |r%,en%).xP.    .|
00012680  20 65 72 72 6f 72 25 20  8c 0d 78 5a 15 20 20 20  | error% ..xZ.   |
00012690  20 20 20 65 72 72 6f 72  5f 6e 6f 25 3d 31 0d 78  |   error_no%=1.x|
000126a0  64 09 20 20 20 20 cc 0d  78 6e 1b 20 20 20 20 20  |d.    ..xn.     |
000126b0  20 f2 62 75 69 6c 64 28  65 72 72 6f 72 5f 6e 6f  | .build(error_no|
000126c0  25 29 0d 78 78 1b 20 20  20 20 20 20 e7 20 65 72  |%).xx.      . er|
000126d0  72 6f 72 5f 6e 6f 25 20  3d 20 30 20 8c 0d 78 82  |ror_no% = 0 ..x.|
000126e0  24 20 20 20 20 20 20 20  20 20 f2 72 65 73 75 6c  |$         .resul|
000126f0  74 28 6f 75 74 70 75 74  24 2c 65 72 72 6f 72 25  |t(output$,error%|
00012700  29 0d 78 8c 25 20 20 20  20 20 20 20 20 20 e7 20  |).x.%         . |
00012710  65 72 72 6f 72 25 20 8c  20 65 72 72 6f 72 5f 6e  |error% . error_n|
00012720  6f 25 20 3d 20 34 0d 78  96 0b 20 20 20 20 20 20  |o% = 4.x..      |
00012730  cd 0d 78 a0 09 20 20 20  20 cd 0d 78 aa 07 20 20  |..x..    ..x..  |
00012740  cd 0d 78 b4 1d 20 20 f2  62 61 63 6b 28 6f 75 74  |..x..  .back(out|
00012750  70 75 74 24 2c 6f 6c 64  5f 76 61 72 24 29 0d 78  |put$,old_var$).x|
00012760  be 05 cd 0d 78 c8 20 e7  20 65 72 72 6f 72 5f 6e  |....x. . error_n|
00012770  6f 25 20 3c 3e 30 20 8c  20 6f 75 74 70 75 74 24  |o% <>0 . output$|
00012780  3d 22 22 0d 78 d2 05 e1  0d 78 dc 05 3a 0d 78 e6  |="".x....x..:.x.|
00012790  05 3a 0d 78 f0 1b dd 20  f2 76 61 72 69 61 62 6c  |.:.x... .variabl|
000127a0  65 28 f8 20 6c 69 6e 65  24 2c 76 24 29 0d 78 fa  |e(. line$,v$).x.|
000127b0  1a ea 20 63 24 2c 70 6f  69 6e 74 65 72 25 2c 6e  |.. c$,pointer%,n|
000127c0  65 77 24 2c 6f 70 24 0d  79 04 10 6f 70 24 3d 22  |ew$,op$.y..op$="|
000127d0  2b 2d 2a 2f 5e 29 22 0d  79 0e 0d 6e 65 77 24 20  |+-*/^)".y..new$ |
000127e0  3d 20 22 22 0d 79 18 13  e7 20 a9 20 6c 69 6e 65  |= "".y... . line|
000127f0  24 20 3e 20 31 20 8c 0d  79 22 21 e3 20 70 6f 69  |$ > 1 ..y"!. poi|
00012800  6e 74 65 72 25 20 3d 20  31 20 b8 20 20 a9 20 28  |nter% = 1 .  . (|
00012810  6c 69 6e 65 24 29 2d 31  0d 79 2c 1e 20 20 63 24  |line$)-1.y,.  c$|
00012820  20 3d 20 c1 6c 69 6e 65  24 2c 20 70 6f 69 6e 74  | = .line$, point|
00012830  65 72 25 2c 31 29 0d 79  36 12 20 20 6e 65 77 24  |er%,1).y6.  new$|
00012840  3d 6e 65 77 24 2b 63 24  0d 79 40 32 20 20 e7 20  |=new$+c$.y@2  . |
00012850  20 63 24 3d 20 76 24 20  80 20 a7 6f 70 24 2c c1  | c$= v$ . .op$,.|
00012860  6c 69 6e 65 24 2c 70 6f  69 6e 74 65 72 25 2b 31  |line$,pointer%+1|
00012870  2c 31 29 29 20 3d 20 30  20 8c 0d 79 4a 19 20 20  |,1)) = 0 ..yJ.  |
00012880  20 20 20 20 20 20 6e 65  77 24 3d 6e 65 77 24 2b  |      new$=new$+|
00012890  22 2a 22 0d 79 54 07 20  20 cd 0d 79 5e 2e 20 20  |"*".yT.  ..y^.  |
000128a0  e7 20 20 63 24 3d 20 22  29 22 20 80 20 c1 6c 69  |.  c$= ")" . .li|
000128b0  6e 65 24 2c 70 6f 69 6e  74 65 72 25 2b 31 2c 31  |ne$,pointer%+1,1|
000128c0  29 20 3d 22 28 22 20 8c  0d 79 68 19 20 20 20 20  |) ="(" ..yh.    |
000128d0  20 20 20 20 6e 65 77 24  3d 6e 65 77 24 2b 22 2a  |    new$=new$+"*|
000128e0  22 0d 79 72 07 20 20 cd  0d 79 7c 05 ed 0d 79 86  |".yr.  ..y|...y.|
000128f0  17 6e 65 77 24 3d 6e 65  77 24 2b c2 6c 69 6e 65  |.new$=new$+.line|
00012900  24 2c 31 29 0d 79 90 05  cc 0d 79 9a 12 20 20 6e  |$,1).y....y..  n|
00012910  65 77 24 20 3d 20 6c 69  6e 65 24 0d 79 a4 05 cd  |ew$ = line$.y...|
00012920  0d 79 ae 0e 6c 69 6e 65  24 3d 6e 65 77 24 0d 79  |.y..line$=new$.y|
00012930  b8 05 e1 0d 79 c2 05 3a  0d 79 cc 05 3a 0d 79 d6  |....y..:.y..:.y.|
00012940  1b dd 20 f2 6e 75 6d 62  65 72 28 f8 20 6c 69 6e  |.. .number(. lin|
00012950  65 24 2c 76 61 72 24 29  0d 79 e0 1f ea 20 63 24  |e$,var$).y... c$|
00012960  2c 70 6f 69 6e 74 65 72  25 2c 6e 65 77 24 2c 6f  |,pointer%,new$,o|
00012970  70 24 2c 6e 75 6d 24 0d  79 ea 10 6f 70 24 3d 22  |p$,num$.y..op$="|
00012980  2b 2d 2a 2f 5e 29 22 0d  79 f4 16 6e 75 6d 24 3d  |+-*/^)".y..num$=|
00012990  22 30 31 32 33 34 35 36  37 38 39 2e 22 0d 79 fe  |"0123456789.".y.|
000129a0  0d 6e 65 77 24 20 3d 20  22 22 0d 7a 08 13 e7 20  |.new$ = "".z... |
000129b0  a9 20 6c 69 6e 65 24 20  3e 20 31 20 8c 0d 7a 12  |. line$ > 1 ..z.|
000129c0  21 e3 20 70 6f 69 6e 74  65 72 25 20 3d 20 31 20  |!. pointer% = 1 |
000129d0  b8 20 20 a9 20 28 6c 69  6e 65 24 29 2d 31 0d 7a  |.  . (line$)-1.z|
000129e0  1c 11 20 20 20 20 6e 75  6d 62 65 72 25 3d a3 0d  |..    number%=..|
000129f0  7a 26 1b 20 20 20 20 6e  65 78 74 5f 6e 6f 74 5f  |z&.    next_not_|
00012a00  6e 6f 5f 6f 70 25 20 3d  20 a3 0d 7a 30 1e 20 20  |no_op% = ..z0.  |
00012a10  63 24 20 3d 20 c1 6c 69  6e 65 24 2c 20 70 6f 69  |c$ = .line$, poi|
00012a20  6e 74 65 72 25 2c 31 29  0d 7a 3a 20 20 20 6e 24  |nter%,1).z:   n$|
00012a30  20 3d 20 c1 6c 69 6e 65  24 2c 20 70 6f 69 6e 74  | = .line$, point|
00012a40  65 72 25 2b 31 2c 31 29  0d 7a 44 12 20 20 6e 65  |er%+1,1).zD.  ne|
00012a50  77 24 3d 6e 65 77 24 2b  63 24 0d 7a 4e 23 20 20  |w$=new$+c$.zN#  |
00012a60  e7 20 a7 6e 75 6d 24 2c  63 24 29 20 3e 20 30 20  |. .num$,c$) > 0 |
00012a70  8c 20 6e 75 6d 62 65 72  25 20 3d 20 b9 0d 7a 58  |. number% = ..zX|
00012a80  2f 20 20 e7 20 a7 6f 70  24 2b 6e 75 6d 24 2c 6e  |/  . .op$+num$,n|
00012a90  24 29 20 3d 20 30 20 8c  20 6e 65 78 74 5f 6e 6f  |$) = 0 . next_no|
00012aa0  74 5f 6e 6f 5f 6f 70 25  20 3d 20 b9 0d 7a 62 23  |t_no_op% = ..zb#|
00012ab0  20 20 e7 20 6e 75 6d 62  65 72 25 20 80 20 6e 65  |  . number% . ne|
00012ac0  78 74 5f 6e 6f 74 5f 6e  6f 5f 6f 70 25 20 8c 0d  |xt_not_no_op% ..|
00012ad0  7a 6c 33 20 20 20 20 e7  20 6e 24 3d 76 61 72 24  |zl3    . n$=var$|
00012ae0  20 8c 20 20 20 6e 65 77  24 3d 6e 65 77 24 2b 22  | .   new$=new$+"|
00012af0  23 22 20 8b 20 6e 65 77  24 3d 6e 65 77 24 2b 22  |#" . new$=new$+"|
00012b00  2a 22 0d 7a 76 07 20 20  cd 0d 7a 80 05 ed 0d 7a  |*".zv.  ..z....z|
00012b10  8a 17 6e 65 77 24 3d 6e  65 77 24 2b c2 6c 69 6e  |..new$=new$+.lin|
00012b20  65 24 2c 31 29 0d 7a 94  05 cc 0d 7a 9e 11 20 6e  |e$,1).z....z.. n|
00012b30  65 77 24 20 3d 20 6c 69  6e 65 24 0d 7a a8 05 cd  |ew$ = line$.z...|
00012b40  0d 7a b2 0e 6c 69 6e 65  24 3d 6e 65 77 24 0d 7a  |.z..line$=new$.z|
00012b50  bc 05 e1 0d 7a c6 05 3a  0d 7a d0 05 3a 0d 7a da  |....z..:.z..:.z.|
00012b60  05 3a 0d 7a e4 05 3a 0d  7a ee 05 3a 0d 7a f8 05  |.:.z..:.z..:.z..|
00012b70  3a 0d 7b 02 1c dd 20 f2  75 6e 61 72 79 28 20 f8  |:.{... .unary( .|
00012b80  20 6c 69 6e 65 24 2c 20  76 61 72 24 29 0d 7b 0c  | line$, var$).{.|
00012b90  27 ea 20 63 24 2c 20 70  6f 69 6e 74 65 72 25 2c  |'. c$, pointer%,|
00012ba0  20 6e 65 77 24 2c 20 6e  75 6d 24 2c 70 24 2c 63  | new$, num$,p$,c|
00012bb0  68 61 72 24 0d 7b 16 1f  6e 75 6d 24 20 3d 20 22  |har$.{..num$ = "|
00012bc0  30 31 32 33 34 35 36 37  38 39 2e 28 29 22 2b 76  |0123456789.()"+v|
00012bd0  61 72 24 0d 7b 20 0b 6e  65 77 24 3d 22 22 0d 7b  |ar$.{ .new$="".{|
00012be0  2a 1c e3 20 70 6f 69 6e  74 65 72 25 20 3d 20 31  |*.. pointer% = 1|
00012bf0  20 b8 20 a9 20 6c 69 6e  65 24 0d 7b 34 1e 20 20  | . . line$.{4.  |
00012c00  63 24 20 3d 20 c1 6c 69  6e 65 24 2c 20 70 6f 69  |c$ = .line$, poi|
00012c10  6e 74 65 72 25 2c 31 29  0d 7b 3e 20 20 20 70 24  |nter%,1).{>   p$|
00012c20  20 3d 20 c1 6c 69 6e 65  24 2c 20 70 6f 69 6e 74  | = .line$, point|
00012c30  65 72 25 2d 31 2c 31 29  0d 7b 48 10 20 20 63 68  |er%-1,1).{H.  ch|
00012c40  61 72 24 20 3d 20 63 24  0d 7b 52 1e 20 20 e7 20  |ar$ = c$.{R.  . |
00012c50  70 6f 69 6e 74 65 72 25  20 3d 31 20 80 20 63 24  |pointer% =1 . c$|
00012c60  3d 22 2d 22 20 8c 0d 7b  5c 14 20 20 20 20 20 63  |="-" ..{\.     c|
00012c70  68 61 72 24 20 3d 20 22  7e 22 0d 7b 66 07 20 20  |har$ = "~".{f.  |
00012c80  cc 0d 7b 70 31 20 20 20  20 20 e7 20 63 24 20 3d  |..{p1     . c$ =|
00012c90  20 22 2d 22 20 80 20 a7  6e 75 6d 24 2c 70 24 29  | "-" . .num$,p$)|
00012ca0  20 3d 20 30 20 8c 20 63  68 61 72 24 20 3d 20 22  | = 0 . char$ = "|
00012cb0  7e 22 0d 7b 7a 07 20 20  cd 0d 7b 84 2d 20 20 e7  |~".{z.  ..{.-  .|
00012cc0  20 63 24 20 3d 20 22 2b  22 20 80 20 a7 6e 75 6d  | c$ = "+" . .num|
00012cd0  24 2c 70 24 29 20 3d 20  30 20 8c 20 63 68 61 72  |$,p$) = 0 . char|
00012ce0  24 20 3d 20 22 22 0d 7b  8e 19 20 20 6e 65 77 24  |$ = "".{..  new$|
00012cf0  20 3d 20 6e 65 77 24 20  2b 20 63 68 61 72 24 0d  | = new$ + char$.|
00012d00  7b 98 05 ed 0d 7b a2 10  6c 69 6e 65 24 20 3d 20  |{....{..line$ = |
00012d10  6e 65 77 24 0d 7b ac 05  e1 0d 7b b6 05 3a 0d 7b  |new$.{....{..:.{|
00012d20  c0 05 3a 0d 7b ca 05 3a  0d 7b d4 2d dd 20 f2 61  |..:.{..:.{.-. .a|
00012d30  6e 61 6c 79 73 65 28 76  61 72 24 2c 66 75 6e 63  |nalyse(var$,func|
00012d40  74 69 6f 6e 24 2c f8 20  65 72 72 6f 72 25 2c f8  |tion$,. error%,.|
00012d50  20 65 6e 25 29 0d 7b de  11 ea 20 74 65 72 6d 24  | en%).{... term$|
00012d60  2c 70 72 65 63 25 0d 7b  e8 0a 65 6e 25 20 3d 31  |,prec%.{..en% =1|
00012d70  0d 7b f2 0e 65 72 72 6f  72 25 20 3d 20 a3 0d 7b  |.{..error% = ..{|
00012d80  fc 0f f2 69 6e 69 74 5f  73 74 61 63 6b 0d 7c 06  |...init_stack.|.|
00012d90  0d f2 69 6e 69 74 5f 61  64 64 0d 7c 10 21 c8 95  |..init_add.|.!..|
00012da0  20 a9 20 66 75 6e 63 74  69 6f 6e 24 20 3e 30 20  | . function$ >0 |
00012db0  20 80 20 ac 20 65 72 72  6f 72 25 0d 7c 1a 37 20  | . . error%.|.7 |
00012dc0  20 f2 6c 65 78 69 63 61  6c 28 76 61 72 24 2c 66  | .lexical(var$,f|
00012dd0  75 6e 63 74 69 6f 6e 24  2c 74 65 72 6d 24 2c 20  |unction$,term$, |
00012de0  70 72 65 63 25 2c 20 65  72 72 6f 72 25 2c 65 6e  |prec%, error%,en|
00012df0  25 29 0d 7c 24 1e 20 20  f2 61 64 64 5f 74 6f 5f  |%).|$.  .add_to_|
00012e00  72 70 6e 28 74 65 72 6d  24 2c 70 72 65 63 25 29  |rpn(term$,prec%)|
00012e10  0d 7c 2e 05 ce 0d 7c 38  0e f2 66 6c 75 73 68 5f  |.|....|8..flush_|
00012e20  72 70 6e 0d 7c 42 05 e1  0d 7c 4c 05 3a 0d 7c 56  |rpn.|B...|L.:.|V|
00012e30  05 3a 0d 7c 60 05 3a 0d  7c 6a 30 dd 20 f2 61 6e  |.:.|`.:.|j0. .an|
00012e40  61 6c 79 73 65 31 28 76  61 72 24 2c f8 20 66 75  |alyse1(var$,. fu|
00012e50  6e 63 74 69 6f 6e 24 2c  f8 20 65 72 72 6f 72 25  |nction$,. error%|
00012e60  2c f8 20 65 6e 25 29 0d  7c 74 11 ea 20 74 65 72  |,. en%).|t.. ter|
00012e70  6d 24 2c 70 72 65 63 25  0d 7c 7e 0a 65 6e 25 20  |m$,prec%.|~.en% |
00012e80  3d 31 0d 7c 88 0e 65 72  72 6f 72 25 20 3d 20 a3  |=1.|..error% = .|
00012e90  0d 7c 92 0b 72 70 6e 24  3d 22 22 0d 7c 9c 0f f2  |.|..rpn$="".|...|
00012ea0  69 6e 69 74 5f 73 74 61  63 6b 0d 7c a6 0d f2 69  |init_stack.|...i|
00012eb0  6e 69 74 5f 61 64 64 0d  7c b0 20 c8 95 20 a9 20  |nit_add.|. .. . |
00012ec0  66 75 6e 63 74 69 6f 6e  24 20 3e 30 20 80 20 ac  |function$ >0 . .|
00012ed0  20 65 72 72 6f 72 25 0d  7c ba 35 20 20 f2 6c 65  | error%.|.5  .le|
00012ee0  78 69 63 61 6c 28 76 61  72 24 2c 66 75 6e 63 74  |xical(var$,funct|
00012ef0  69 6f 6e 24 2c 74 65 72  6d 24 2c 20 70 72 65 63  |ion$,term$, prec|
00012f00  25 2c 20 65 72 72 25 2c  65 6e 25 29 0d 7c c4 20  |%, err%,en%).|. |
00012f10  20 20 e7 20 74 65 72 6d  24 20 3d 20 76 61 72 24  |  . term$ = var$|
00012f20  20 8c 20 74 65 72 6d 24  3d 22 40 22 0d 7c ce 15  | . term$="@".|..|
00012f30  20 20 72 70 6e 24 3d 72  70 6e 24 2b 74 65 72 6d  |  rpn$=rpn$+term|
00012f40  24 0d 7c d8 19 20 20 e7  20 65 72 72 25 20 8c 20  |$.|..  . err% . |
00012f50  65 72 72 6f 72 25 20 3d  20 b9 0d 7c e2 05 ce 0d  |error% = ..|....|
00012f60  7c ec 14 66 75 6e 63 74  69 6f 6e 24 20 3d 20 72  ||..function$ = r|
00012f70  70 6e 24 0d 7c f6 05 e1  0d 7d 00 05 3a 0d 7d 0a  |pn$.|....}..:.}.|
00012f80  05 3a 0d 7d 14 05 3a 0d  7d 1e 3d dd 20 f2 6c 65  |.:.}..:.}.=. .le|
00012f90  78 69 63 61 6c 28 76 61  72 24 2c 20 f8 20 6c 69  |xical(var$, . li|
00012fa0  6e 65 24 2c 20 f8 20 74  65 72 6d 24 2c f8 20 70  |ne$, . term$,. p|
00012fb0  72 65 63 25 2c f8 20 65  72 72 6f 72 25 2c f8 20  |rec%,. error%,. |
00012fc0  65 6e 25 29 0d 7d 28 2a  ea 20 6e 75 6d 24 2c 6c  |en%).}(*. num$,l|
00012fd0  65 6e 67 74 68 25 2c 72  65 6d 61 69 6e 64 65 72  |ength%,remainder|
00012fe0  24 2c 63 25 2c 6f 70 65  72 61 74 6f 72 25 0d 7d  |$,c%,operator%.}|
00012ff0  32 0e 65 72 72 6f 72 25  20 3d 20 a3 0d 7d 3c 18  |2.error% = ..}<.|
00013000  6e 75 6d 24 20 3d 20 22  30 31 32 33 34 35 36 37  |num$ = "01234567|
00013010  38 39 2e 22 0d 7d 46 17  6c 65 6e 67 74 68 25 20  |89.".}F.length% |
00013020  3d 20 a9 28 20 6c 69 6e  65 24 29 0d 7d 50 11 72  |= .( line$).}P.r|
00013030  65 6d 61 69 6e 64 65 72  24 3d 22 22 0d 7d 5a 1d  |emainder$="".}Z.|
00013040  e7 20 a7 6e 75 6d 24 2c  c0 6c 69 6e 65 24 2c 20  |. .num$,.line$, |
00013050  31 29 29 20 3e 20 30 20  8c 0d 7d 64 0e 20 20 20  |1)) > 0 ..}d.   |
00013060  20 63 25 20 3d 20 30 0d  7d 6e 09 20 20 20 20 f5  | c% = 0.}n.    .|
00013070  0d 7d 78 0f 20 20 20 20  20 20 63 25 2b 3d 31 0d  |.}x.      c%+=1.|
00013080  7d 82 31 20 20 20 20 fd  20 63 25 20 3d 20 6c 65  |}.1    . c% = le|
00013090  6e 67 74 68 25 20 84 20  a7 6e 75 6d 24 2c c1 6c  |ngth% . .num$,.l|
000130a0  69 6e 65 24 2c 63 25 2b  31 2c 31 29 29 20 3d 30  |ine$,c%+1,1)) =0|
000130b0  0d 7d 8c 12 20 20 20 20  70 72 65 63 25 20 3d 20  |.}..    prec% = |
000130c0  2d 31 0d 7d 96 1b 20 20  20 20 74 65 72 6d 24 20  |-1.}..    term$ |
000130d0  3d 20 c0 6c 69 6e 65 24  2c 20 63 25 29 0d 7d a0  |= .line$, c%).}.|
000130e0  23 20 20 20 20 65 72 72  6f 72 25 20 3d 20 ac 20  |#    error% = . |
000130f0  a4 76 61 6c 69 64 5f 6e  6f 28 74 65 72 6d 24 29  |.valid_no(term$)|
00013100  0d 7d aa 1a 20 20 20 20  e7 20 65 72 72 6f 72 25  |.}..    . error%|
00013110  20 8c 20 65 6e 25 20 3d  20 37 0d 7d b4 29 20 20  | . en% = 7.}.)  |
00013120  20 20 72 65 6d 61 69 6e  64 65 72 24 20 3d 20 c2  |  remainder$ = .|
00013130  6c 69 6e 65 24 2c 20 6c  65 6e 67 74 68 25 20 2d  |line$, length% -|
00013140  63 25 29 0d 7d be 05 cc  0d 7d c8 0e 20 20 20 20  |c%).}....}..    |
00013150  63 25 20 3d 20 30 0d 7d  d2 15 20 20 20 20 6f 70  |c% = 0.}..    op|
00013160  65 72 61 74 6f 72 25 20  3d 20 a3 0d 7d dc 09 20  |erator% = ..}.. |
00013170  20 20 20 f5 0d 7d e6 10  20 20 20 20 20 20 20 63  |   ..}..       c|
00013180  25 2b 3d 31 0d 7d f0 3e  20 20 20 20 20 20 20 e7  |%+=1.}.>       .|
00013190  20 c0 6c 69 6e 65 24 2c  20 a9 28 77 6f 72 64 24  | .line$, .(word$|
000131a0  28 63 25 29 29 29 20 3d  20 77 6f 72 64 24 28 63  |(c%))) = word$(c|
000131b0  25 29 20 8c 20 6f 70 65  72 61 74 6f 72 25 20 3d  |%) . operator% =|
000131c0  20 b9 0d 7d fa 25 20 20  20 20 fd 20 6f 70 65 72  | ..}.%    . oper|
000131d0  61 74 6f 72 25 20 84 20  77 6f 72 64 24 28 63 25  |ator% . word$(c%|
000131e0  29 3d 22 45 4e 44 22 0d  7e 04 15 20 20 20 20 e7  |)="END".~..    .|
000131f0  20 6f 70 65 72 61 74 6f  72 25 20 8c 0d 7e 0e 1c  | operator% ..~..|
00013200  20 20 20 20 20 20 20 70  72 65 63 25 20 3d 20 70  |       prec% = p|
00013210  72 65 63 25 28 63 25 29  0d 7e 18 1c 20 20 20 20  |rec%(c%).~..    |
00013220  20 20 20 74 65 72 6d 24  20 3d 20 77 6f 72 64 24  |   term$ = word$|
00013230  28 63 25 29 0d 7e 22 30  20 20 20 20 20 20 20 72  |(c%).~"0       r|
00013240  65 6d 61 69 6e 64 65 72  24 20 3d 20 c2 6c 69 6e  |emainder$ = .lin|
00013250  65 24 2c 6c 65 6e 67 74  68 25 2d a9 28 74 65 72  |e$,length%-.(ter|
00013260  6d 24 29 29 0d 7e 2c 0a  20 20 20 20 20 cc 0d 7e  |m$)).~,.     ..~|
00013270  36 23 20 20 20 20 20 20  20 e7 20 c0 6c 69 6e 65  |6#       . .line|
00013280  24 2c a9 28 76 61 72 24  29 29 3d 76 61 72 24 20  |$,.(var$))=var$ |
00013290  8c 0d 7e 40 18 20 20 20  20 20 20 20 20 20 20 70  |..~@.          p|
000132a0  72 65 63 25 20 3d 20 2d  31 0d 7e 4a 32 20 20 20  |rec% = -1.~J2   |
000132b0  20 20 20 20 20 20 20 72  65 6d 61 69 6e 64 65 72  |       remainder|
000132c0  24 20 3d 20 c2 6c 69 6e  65 24 2c 6c 65 6e 67 74  |$ = .line$,lengt|
000132d0  68 25 2d a9 28 76 61 72  24 29 29 0d 7e 54 1a 20  |h%-.(var$)).~T. |
000132e0  20 20 20 20 20 20 20 20  20 74 65 72 6d 24 20 3d  |         term$ =|
000132f0  20 76 61 72 24 0d 7e 5e  0c 20 20 20 20 20 20 20  | var$.~^.       |
00013300  cc 0d 7e 68 17 20 20 20  20 20 20 20 20 20 20 65  |..~h.          e|
00013310  72 72 6f 72 25 3d 20 b9  0d 7e 72 15 20 20 20 20  |rror%= ..~r.    |
00013320  20 20 20 20 20 20 65 6e  25 20 3d 20 31 0d 7e 7c  |      en% = 1.~||
00013330  0c 20 20 20 20 20 20 20  cd 0d 7e 86 0a 20 20 20  |.       ..~..   |
00013340  20 20 cd 0d 7e 90 05 cd  0d 7e 9a 16 6c 69 6e 65  |  ..~....~..line|
00013350  24 20 3d 20 72 65 6d 61  69 6e 64 65 72 24 0d 7e  |$ = remainder$.~|
00013360  a4 05 e1 0d 7e ae 05 3a  0d 7e b8 05 3a 0d 7e c2  |....~..:.~..:.~.|
00013370  05 3a 0d 7e cc 05 3a 0d  7e d6 10 dd 20 f2 73 65  |.:.~..:.~... .se|
00013380  74 5f 76 6f 63 61 62 0d  7e e0 09 ea 20 63 25 2c  |t_vocab.~... c%,|
00013390  0d 7e ea 1a de 20 77 6f  72 64 24 28 34 30 29 2c  |.~... word$(40),|
000133a0  20 70 72 65 63 25 28 34  30 29 0d 7e f4 05 f7 0d  | prec%(40).~....|
000133b0  7e fe 08 63 25 3d 30 0d  7f 08 05 f5 0d 7f 12 0b  |~..c%=0.........|
000133c0  20 20 63 25 2b 3d 31 0d  7f 1c 1c 20 20 f3 20 77  |  c%+=1....  . w|
000133d0  6f 72 64 24 28 63 25 29  2c 20 70 72 65 63 25 28  |ord$(c%), prec%(|
000133e0  63 25 29 0d 7f 26 16 fd  20 77 6f 72 64 24 28 63  |c%)..&.. word$(c|
000133f0  25 29 20 3d 22 45 4e 44  22 0d 7f 30 0b dc 20 22  |%) ="END"..0.. "|
00013400  2b 22 2c 31 0d 7f 3a 0b  dc 20 22 2d 22 2c 32 0d  |+",1..:.. "-",2.|
00013410  7f 44 0b dc 20 22 2a 22  2c 33 0d 7f 4e 0b dc 20  |.D.. "*",3..N.. |
00013420  22 2f 22 2c 34 0d 7f 58  0b dc 20 22 7e 22 2c 36  |"/",4..X.. "~",6|
00013430  0d 7f 62 0b dc 20 22 23  22 2c 36 0d 7f 6c 0b dc  |..b.. "#",6..l..|
00013440  20 22 5e 22 2c 37 0d 7f  76 0d dc 20 22 53 49 4e  | "^",7..v.. "SIN|
00013450  22 2c 35 0d 7f 80 0d dc  20 22 54 41 4e 22 2c 35  |",5..... "TAN",5|
00013460  0d 7f 8a 0d dc 20 22 43  4f 53 22 2c 35 0d 7f 94  |..... "COS",5...|
00013470  0d dc 20 22 41 53 4e 22  2c 35 0d 7f 9e 0d dc 20  |.. "ASN",5..... |
00013480  22 41 54 4e 22 2c 35 0d  7f a8 0d dc 20 22 41 43  |"ATN",5..... "AC|
00013490  53 22 2c 35 0d 7f b2 0d  dc 20 22 41 42 53 22 2c  |S",5..... "ABS",|
000134a0  35 0d 7f bc 0d dc 20 22  49 4e 54 22 2c 35 0d 7f  |5..... "INT",5..|
000134b0  c6 0d dc 20 22 44 45 47  22 2c 35 0d 7f d0 0d dc  |... "DEG",5.....|
000134c0  20 22 52 41 44 22 2c 35  0d 7f da 0e dc 20 22 53  | "RAD",5..... "S|
000134d0  49 4e 48 22 2c 35 0d 7f  e4 0e dc 20 22 43 4f 53  |INH",5..... "COS|
000134e0  48 22 2c 35 0d 7f ee 0e  dc 20 22 54 41 4e 48 22  |H",5..... "TANH"|
000134f0  2c 35 0d 7f f8 0e dc 20  22 46 41 43 54 22 2c 35  |,5..... "FACT",5|
00013500  0d 80 02 11 dc 20 22 49  4e 56 54 41 4e 48 22 2c  |..... "INVTANH",|
00013510  35 0d 80 0c 11 dc 20 22  49 4e 56 53 49 4e 48 22  |5..... "INVSINH"|
00013520  2c 35 0d 80 16 11 dc 20  22 49 4e 56 43 4f 53 48  |,5..... "INVCOSH|
00013530  22 2c 35 0d 80 20 0d dc  20 22 4c 4f 47 22 2c 35  |",5.. .. "LOG",5|
00013540  0d 80 2a 0c dc 20 22 4c  4e 22 2c 35 0d 80 34 0d  |..*.. "LN",5..4.|
00013550  dc 20 22 45 58 50 22 2c  35 0d 80 3e 0b dc 20 22  |. "EXP",5..>.. "|
00013560  28 22 2c 30 0d 80 48 0b  dc 20 22 29 22 2c 30 0d  |(",0..H.. ")",0.|
00013570  80 52 0d dc 20 22 50 49  22 2c 2d 31 0d 80 5c 0d  |.R.. "PI",-1..\.|
00013580  dc 20 22 45 4e 44 22 2c  38 0d 80 66 05 e1 0d 80  |. "END",8..f....|
00013590  70 05 3a 0d 80 7a 05 3a  0d 80 84 05 3a 0d 80 8e  |p.:..z.:....:...|
000135a0  1c dd 20 f2 73 74 72 69  70 5f 73 70 61 63 65 28  |.. .strip_space(|
000135b0  20 f8 20 6c 69 6e 65 24  29 0d 80 98 16 ea 20 63  | . line$)..... c|
000135c0  24 2c 70 6f 69 6e 74 65  72 25 2c 6e 65 77 24 0d  |$,pointer%,new$.|
000135d0  80 a2 0c 6e 65 77 24 20  3d 22 22 0d 80 ac 1c e3  |...new$ ="".....|
000135e0  20 70 6f 69 6e 74 65 72  25 20 3d 20 31 20 b8 20  | pointer% = 1 . |
000135f0  a9 20 6c 69 6e 65 24 0d  80 b6 1e 20 20 63 24 20  |. line$....  c$ |
00013600  3d 20 c1 6c 69 6e 65 24  2c 20 70 6f 69 6e 74 65  |= .line$, pointe|
00013610  72 25 2c 31 29 0d 80 c0  21 20 20 e7 20 63 24 20  |r%,1)...!  . c$ |
00013620  3c 3e 22 20 22 20 8c 20  6e 65 77 24 20 3d 20 6e  |<>" " . new$ = n|
00013630  65 77 24 2b 63 24 0d 80  ca 05 ed 0d 80 d4 10 6c  |ew$+c$.........l|
00013640  69 6e 65 24 20 3d 20 6e  65 77 24 0d 80 de 05 e1  |ine$ = new$.....|
00013650  0d 80 e8 05 3a 0d 80 f2  05 3a 0d 80 fc 05 3a 0d  |....:....:....:.|
00013660  81 06 11 dd 20 f2 73 65  74 5f 73 74 61 63 6b 73  |.... .set_stacks|
00013670  0d 81 10 2f de 20 72 70  6e 24 28 31 30 30 29 2c  |.../. rpn$(100),|
00013680  72 70 6e 25 28 31 30 30  29 2c 20 61 64 64 24 28  |rpn%(100), add$(|
00013690  31 30 30 29 2c 20 61 64  64 25 28 31 30 30 29 0d  |100), add%(100).|
000136a0  81 1a 0f 72 70 6e 5f 73  70 25 20 3d 20 30 0d 81  |...rpn_sp% = 0..|
000136b0  24 10 65 76 61 6c 5f 73  70 25 20 3d 20 30 0d 81  |$.eval_sp% = 0..|
000136c0  2e 05 e1 0d 81 38 05 3a  0d 81 42 05 3a 0d 81 4c  |.....8.:..B.:..L|
000136d0  11 dd 20 f2 69 6e 69 74  5f 73 74 61 63 6b 0d 81  |.. .init_stack..|
000136e0  56 0f 72 70 6e 5f 73 70  25 20 3d 20 30 0d 81 60  |V.rpn_sp% = 0..`|
000136f0  05 e1 0d 81 6a 05 3a 0d  81 74 1c dd 20 f2 70 75  |....j.:..t.. .pu|
00013700  73 68 5f 6d 28 73 74 72  69 6e 67 24 2c 70 72 65  |sh_m(string$,pre|
00013710  63 25 29 0d 81 7e 1b 72  70 6e 24 28 72 70 6e 5f  |c%)..~.rpn$(rpn_|
00013720  73 70 25 29 20 3d 20 73  74 72 69 6e 67 24 0d 81  |sp%) = string$..|
00013730  88 19 72 70 6e 25 28 72  70 6e 5f 73 70 25 29 20  |..rpn%(rpn_sp%) |
00013740  3d 20 70 72 65 63 25 0d  81 92 0e 72 70 6e 5f 73  |= prec%....rpn_s|
00013750  70 25 2b 3d 31 0d 81 9c  05 e1 0d 81 a6 05 3a 0d  |p%+=1.........:.|
00013760  81 b0 05 3a 0d 81 ba 2b  dd 20 f2 70 75 6c 6c 5f  |...:...+. .pull_|
00013770  6d 28 f8 20 73 74 72 69  6e 67 24 2c 20 f8 20 70  |m(. string$, . p|
00013780  72 65 63 25 2c 20 f8 20  65 72 72 6f 72 25 29 0d  |rec%, . error%).|
00013790  81 c4 13 e7 20 72 70 6e  5f 73 70 25 20 3d 20 30  |.... rpn_sp% = 0|
000137a0  20 8c 0d 81 ce 11 20 20  20 65 72 72 6f 72 25 20  | .....   error% |
000137b0  3d 20 b9 0d 81 d8 05 cc  0d 81 e2 11 20 20 20 65  |= ..........   e|
000137c0  72 72 6f 72 25 20 3d 20  a3 0d 81 ec 11 20 20 20  |rror% = .....   |
000137d0  72 70 6e 5f 73 70 25 2d  3d 31 0d 81 f6 1e 20 20  |rpn_sp%-=1....  |
000137e0  20 73 74 72 69 6e 67 24  20 3d 20 72 70 6e 24 28  | string$ = rpn$(|
000137f0  72 70 6e 5f 73 70 25 29  0d 82 00 1c 20 20 20 70  |rpn_sp%)....   p|
00013800  72 65 63 25 20 3d 20 72  70 6e 25 28 72 70 6e 5f  |rec% = rpn%(rpn_|
00013810  73 70 25 29 0d 82 0a 05  cd 0d 82 14 05 e1 0d 82  |sp%)............|
00013820  1e 05 3a 0d 82 28 05 3a  0d 82 32 05 3a 0d 82 3c  |..:..(.:..2.:..<|
00013830  05 3a 0d 82 46 05 3a 0d  82 50 29 dd 20 f2 65 76  |.:..F.:..P). .ev|
00013840  61 6c 75 61 74 65 28 74  65 72 6d 24 2c 70 72 65  |aluate(term$,pre|
00013850  63 25 2c 20 f8 20 65 72  72 6f 72 5f 6e 6f 25 29  |c%, . error_no%)|
00013860  0d 82 5a 2a ea 20 72 65  73 75 6c 74 24 2c 6f 70  |..Z*. result$,op|
00013870  65 72 61 6e 64 31 24 2c  6f 70 65 72 61 6e 64 32  |erand1$,operand2|
00013880  24 2c 61 6e 5f 65 72 72  6f 72 0d 82 64 10 61 6e  |$,an_error..d.an|
00013890  5f 65 72 72 6f 72 20 3d  20 a3 0d 82 6e 11 65 72  |_error = ...n.er|
000138a0  72 6f 72 5f 6e 6f 25 20  3d 20 30 0d 82 78 0e c8  |ror_no% = 0..x..|
000138b0  8e 20 70 72 65 63 25 20  ca 0d 82 82 21 20 20 c9  |. prec% ....!  .|
000138c0  20 2d 31 20 3a 20 f2 70  75 73 68 5f 6d 28 74 65  | -1 : .push_m(te|
000138d0  72 6d 24 2c 70 72 65 63  25 29 0d 82 8c 13 20 20  |rm$,prec%)....  |
000138e0  c9 20 31 2c 32 2c 33 2c  34 2c 36 2c 37 0d 82 96  |. 1,2,3,4,6,7...|
000138f0  1d 20 20 20 20 20 20 20  20 20 20 20 20 e7 20 74  |.            . t|
00013900  65 72 6d 24 3d 22 7e 22  20 8c 0d 82 a0 30 20 20  |erm$="~" ....0  |
00013910  20 20 20 20 20 20 20 20  20 20 20 20 f2 70 75 6c  |            .pul|
00013920  6c 5f 6d 28 6f 70 65 72  61 6e 64 31 24 2c 70 72  |l_m(operand1$,pr|
00013930  65 63 25 2c 65 72 72 6f  72 29 0d 82 aa 28 20 20  |ec%,error)...(  |
00013940  20 20 20 20 20 20 20 20  20 20 20 20 e7 20 65 72  |            . er|
00013950  72 6f 72 20 8c 20 61 6e  5f 65 72 72 6f 72 20 3d  |ror . an_error =|
00013960  20 b9 0d 82 b4 39 20 20  20 20 20 20 20 20 20 20  | ....9          |
00013970  20 20 20 20 72 65 73 75  6c 74 24 3d 22 28 22 2b  |    result$="("+|
00013980  74 65 72 6d 24 2b 22 28  22 2b 6f 70 65 72 61 6e  |term$+"("+operan|
00013990  64 31 24 2b 22 29 22 2b  22 29 22 0d 82 be 28 20  |d1$+")"+")"...( |
000139a0  20 20 20 20 20 20 20 20  20 20 20 20 20 f2 70 75  |             .pu|
000139b0  73 68 5f 6d 28 72 65 73  75 6c 74 24 2c 70 72 65  |sh_m(result$,pre|
000139c0  63 25 29 0d 82 c8 11 20  20 20 20 20 20 20 20 20  |c%)....         |
000139d0  20 20 20 cc 0d 82 d2 31  20 20 20 20 20 20 20 20  |   ....1        |
000139e0  20 20 20 20 20 20 f2 70  75 6c 6c 5f 6d 28 6f 70  |      .pull_m(op|
000139f0  65 72 61 6e 64 31 24 2c  70 72 65 63 25 2c 20 65  |erand1$,prec%, e|
00013a00  72 72 6f 72 29 0d 82 dc  28 20 20 20 20 20 20 20  |rror)...(       |
00013a10  20 20 20 20 20 20 20 e7  20 65 72 72 6f 72 20 8c  |       . error .|
00013a20  20 61 6e 5f 65 72 72 6f  72 20 3d 20 b9 0d 82 e6  | an_error = ....|
00013a30  31 20 20 20 20 20 20 20  20 20 20 20 20 20 20 f2  |1              .|
00013a40  70 75 6c 6c 5f 6d 28 6f  70 65 72 61 6e 64 32 24  |pull_m(operand2$|
00013a50  2c 70 72 65 63 25 2c 20  65 72 72 6f 72 29 0d 82  |,prec%, error)..|
00013a60  f0 28 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.(              |
00013a70  e7 20 65 72 72 6f 72 20  8c 20 61 6e 5f 65 72 72  |. error . an_err|
00013a80  6f 72 20 3d 20 b9 0d 82  fa 3b 20 20 20 20 20 20  |or = ....;      |
00013a90  20 20 20 20 20 20 20 20  72 65 73 75 6c 74 24 3d  |        result$=|
00013aa0  22 28 22 2b 6f 70 65 72  61 6e 64 32 24 2b 74 65  |"("+operand2$+te|
00013ab0  72 6d 24 2b 6f 70 65 72  61 6e 64 31 24 2b 22 29  |rm$+operand1$+")|
00013ac0  22 0d 83 04 28 20 20 20  20 20 20 20 20 20 20 20  |"...(           |
00013ad0  20 20 20 f2 70 75 73 68  5f 6d 28 72 65 73 75 6c  |   .push_m(resul|
00013ae0  74 24 2c 70 72 65 63 25  29 0d 83 0e 11 20 20 20  |t$,prec%)....   |
00013af0  20 20 20 20 20 20 20 20  20 cd 0d 83 18 2a 20 20  |         ....*  |
00013b00  c9 20 35 20 3a 20 f2 70  75 6c 6c 5f 6d 28 6f 70  |. 5 : .pull_m(op|
00013b10  65 72 61 6e 64 31 24 2c  70 72 65 63 25 2c 65 72  |erand1$,prec%,er|
00013b20  72 6f 72 29 0d 83 22 25  20 20 20 20 20 20 20 20  |ror).."%        |
00013b30  20 20 20 e7 20 65 72 72  6f 72 20 8c 20 61 6e 5f  |   . error . an_|
00013b40  65 72 72 6f 72 20 3d 20  b9 0d 83 2c 36 20 20 20  |error = ...,6   |
00013b50  20 20 20 20 20 20 20 20  72 65 73 75 6c 74 24 3d  |        result$=|
00013b60  22 28 22 2b 74 65 72 6d  24 2b 22 28 22 2b 6f 70  |"("+term$+"("+op|
00013b70  65 72 61 6e 64 31 24 2b  22 29 22 2b 22 29 22 0d  |erand1$+")"+")".|
00013b80  83 36 25 20 20 20 20 20  20 20 20 20 20 20 f2 70  |.6%           .p|
00013b90  75 73 68 5f 6d 28 72 65  73 75 6c 74 24 2c 70 72  |ush_m(result$,pr|
00013ba0  65 63 25 29 0d 83 40 17  20 20 7f 20 3a 20 65 72  |ec%)..@.  . : er|
00013bb0  72 6f 72 5f 6e 6f 25 20  3d 20 32 0d 83 4a 05 cb  |ror_no% = 2..J..|
00013bc0  0d 83 54 1e e7 20 61 6e  5f 65 72 72 6f 72 20 8c  |..T.. an_error .|
00013bd0  20 65 72 72 6f 72 5f 6e  6f 25 20 3d 20 33 0d 83  | error_no% = 3..|
00013be0  5e 05 e1 0d 83 68 05 3a  0d 83 72 05 3a 0d 83 7c  |^....h.:..r.:..||
00013bf0  23 dd 20 f2 72 65 73 75  6c 74 28 f8 20 66 75 6e  |#. .result(. fun|
00013c00  63 74 69 6f 6e 24 2c f8  20 65 72 72 6f 72 25 29  |ction$,. error%)|
00013c10  0d 83 86 15 ea 20 65 72  72 6f 72 2c 6f 70 65 72  |..... error,oper|
00013c20  61 6e 64 31 24 0d 83 90  0d 65 72 72 6f 72 25 3d  |and1$....error%=|
00013c30  20 a3 0d 83 9a 22 f2 70  75 6c 6c 5f 6d 28 6f 70  | ....".pull_m(op|
00013c40  65 72 61 6e 64 31 24 2c  70 72 65 63 25 2c 65 72  |erand1$,prec%,er|
00013c50  72 6f 72 29 0d 83 a4 0d  e7 20 65 72 72 6f 72 20  |ror)..... error |
00013c60  8c 0d 83 ae 0f 20 20 20  65 72 72 6f 72 25 3d b9  |.....   error%=.|
00013c70  0d 83 b8 05 cc 0d 83 c2  1c 20 20 20 66 75 6e 63  |.........   func|
00013c80  74 69 6f 6e 24 20 3d 20  6f 70 65 72 61 6e 64 31  |tion$ = operand1|
00013c90  24 0d 83 cc 05 cd 0d 83  d6 05 e1 0d 83 e0 05 3a  |$..............:|
00013ca0  0d 83 ea 05 3a 0d 83 f4  1e dd 20 f2 61 64 64 5f  |....:..... .add_|
00013cb0  74 6f 5f 72 70 6e 28 74  65 72 6d 24 2c 70 72 65  |to_rpn(term$,pre|
00013cc0  63 25 29 0d 83 fe 2d ea  20 6f 70 65 72 61 74 6f  |c%)...-. operato|
00013cd0  72 24 2c 6f 70 5f 70 72  65 63 25 2c 20 65 72 72  |r$,op_prec%, err|
00013ce0  6f 72 25 2c 6f 70 5f 70  72 65 63 25 2c 6e 70 25  |or%,op_prec%,np%|
00013cf0  0d 84 08 12 e7 20 70 72  65 63 25 20 3d 20 2d 31  |..... prec% = -1|
00013d00  20 8c 0d 84 12 18 20 20  20 f2 61 64 64 28 74 65  | .....   .add(te|
00013d10  72 6d 24 2c 70 72 65 63  25 29 0d 84 1c 05 cc 0d  |rm$,prec%)......|
00013d20  84 26 14 20 20 20 e7 20  74 65 72 6d 24 3d 22 29  |.&.   . term$=")|
00013d30  22 20 8c 0d 84 30 0b 20  20 20 20 20 20 f5 0d 84  |" ...0.      ...|
00013d40  3a 30 20 20 20 20 20 20  20 20 20 f2 70 75 6c 6c  |:0         .pull|
00013d50  5f 6d 28 6f 70 65 72 61  74 6f 72 24 2c 6f 70 5f  |_m(operator$,op_|
00013d60  70 72 65 63 25 2c 20 65  72 72 6f 72 25 29 0d 84  |prec%, error%)..|
00013d70  44 38 20 20 20 20 20 20  20 20 20 e7 20 6f 70 65  |D8         . ope|
00013d80  72 61 74 6f 72 24 3c 3e  22 28 22 20 8c 20 f2 61  |rator$<>"(" . .a|
00013d90  64 64 28 6f 70 65 72 61  74 6f 72 24 2c 6f 70 5f  |dd(operator$,op_|
00013da0  70 72 65 63 25 29 0d 84  4e 22 20 20 20 20 20 20  |prec%)..N"      |
00013db0  fd 20 6f 70 65 72 61 74  6f 72 24 3d 22 28 22 20  |. operator$="(" |
00013dc0  84 20 65 72 72 6f 72 25  0d 84 58 08 20 20 20 cc  |. error%..X.   .|
00013dd0  0d 84 62 32 20 20 20 20  20 e7 20 a4 6e 65 78 74  |..b2     . .next|
00013de0  5f 72 70 6e 5f 70 72 65  63 65 64 65 6e 63 65 3d  |_rpn_precedence=|
00013df0  20 38 20 84 20 74 65 72  6d 24 20 3d 20 22 28 22  | 8 . term$ = "("|
00013e00  20 8c 0d 84 6c 1f 20 20  20 20 20 20 20 f2 70 75  | ...l.       .pu|
00013e10  73 68 5f 6d 28 74 65 72  6d 24 2c 70 72 65 63 25  |sh_m(term$,prec%|
00013e20  29 0d 84 76 0a 20 20 20  20 20 cc 0d 84 80 2c 20  |)..v.     ...., |
00013e30  20 20 20 20 20 20 e7 20  a4 6e 65 78 74 5f 72 70  |      . .next_rp|
00013e40  6e 5f 70 72 65 63 65 64  65 6e 63 65 20 3c 3d 20  |n_precedence <= |
00013e50  70 72 65 63 25 20 8c 0d  84 8a 21 20 20 20 20 20  |prec% ....!     |
00013e60  20 20 20 20 f2 70 75 73  68 5f 6d 28 74 65 72 6d  |    .push_m(term|
00013e70  24 2c 70 72 65 63 25 29  0d 84 94 0b 20 20 20 20  |$,prec%)....    |
00013e80  20 20 cc 0d 84 9e 0e 20  20 20 20 20 20 20 20 20  |  .....         |
00013e90  f5 0d 84 a8 32 20 20 20  20 20 20 20 20 20 20 20  |....2           |
00013ea0  f2 70 75 6c 6c 5f 6d 28  6f 70 65 72 61 74 6f 72  |.pull_m(operator|
00013eb0  24 2c 6f 70 5f 70 72 65  63 25 2c 20 65 72 72 6f  |$,op_prec%, erro|
00013ec0  72 25 29 0d 84 b2 27 20  20 20 20 20 20 20 20 20  |r%)...'         |
00013ed0  20 20 f2 61 64 64 28 6f  70 65 72 61 74 6f 72 24  |  .add(operator$|
00013ee0  2c 6f 70 5f 70 72 65 63  25 29 0d 84 bc 29 20 20  |,op_prec%)...)  |
00013ef0  20 20 20 20 20 20 20 20  20 6e 70 25 20 3d 20 a4  |         np% = .|
00013f00  6e 65 78 74 5f 72 70 6e  5f 70 72 65 63 65 64 65  |next_rpn_precede|
00013f10  6e 63 65 0d 84 c6 37 20  20 20 20 20 20 20 20 20  |nce...7         |
00013f20  fd 20 6e 70 25 20 3c 3d  20 70 72 65 63 25 20 84  |. np% <= prec% .|
00013f30  20 6e 70 25 20 3d 30 20  84 20 6e 70 25 20 3d 20  | np% =0 . np% = |
00013f40  38 20 84 20 65 72 72 6f  72 25 0d 84 d0 21 20 20  |8 . error%...!  |
00013f50  20 20 20 20 20 20 20 f2  70 75 73 68 5f 6d 28 74  |       .push_m(t|
00013f60  65 72 6d 24 2c 70 72 65  63 25 29 0d 84 da 0b 20  |erm$,prec%).... |
00013f70  20 20 20 20 20 cd 0d 84  e4 0a 20 20 20 20 20 cd  |     .....     .|
00013f80  0d 84 ee 08 20 20 20 cd  0d 84 f8 05 cd 0d 85 02  |....   .........|
00013f90  05 e1 0d 85 0c 05 3a 0d  85 16 05 3a 0d 85 20 10  |......:....:.. .|
00013fa0  dd 20 f2 66 6c 75 73 68  5f 72 70 6e 0d 85 2a 20  |. .flush_rpn..* |
00013fb0  ea 20 6f 70 65 72 61 74  6f 72 24 2c 6f 70 5f 70  |. operator$,op_p|
00013fc0  72 65 63 25 2c 20 65 72  72 6f 72 25 0d 85 34 20  |rec%, error%..4 |
00013fd0  c8 95 20 a4 6e 65 78 74  5f 72 70 6e 5f 70 72 65  |.. .next_rpn_pre|
00013fe0  63 65 64 65 6e 63 65 20  3c 3e 20 38 0d 85 3e 2b  |cedence <> 8..>+|
00013ff0  20 20 20 20 f2 70 75 6c  6c 5f 6d 28 6f 70 65 72  |    .pull_m(oper|
00014000  61 74 6f 72 24 2c 6f 70  5f 70 72 65 63 25 2c 20  |ator$,op_prec%, |
00014010  65 72 72 6f 72 25 29 0d  85 48 20 20 20 20 20 f2  |error%)..H     .|
00014020  61 64 64 28 6f 70 65 72  61 74 6f 72 24 2c 6f 70  |add(operator$,op|
00014030  5f 70 72 65 63 25 29 0d  85 52 05 ce 0d 85 5c 05  |_prec%)..R....\.|
00014040  e1 0d 85 66 05 3a 0d 85  70 05 3a 0d 85 7a 05 3a  |...f.:..p.:..z.:|
00014050  0d 85 84 1a dd 20 a4 6e  65 78 74 5f 72 70 6e 5f  |..... .next_rpn_|
00014060  70 72 65 63 65 64 65 6e  63 65 0d 85 8e 13 e7 20  |precedence..... |
00014070  72 70 6e 5f 73 70 25 20  3d 20 30 20 8c 0d 85 98  |rpn_sp% = 0 ....|
00014080  07 20 3d 38 0d 85 a2 05  cc 0d 85 ac 16 20 3d 20  |. =8......... = |
00014090  72 70 6e 25 28 72 70 6e  5f 73 70 25 2d 31 29 0d  |rpn%(rpn_sp%-1).|
000140a0  85 b6 05 cd 0d 85 c0 05  3a 0d 85 ca 05 3a 0d 85  |........:....:..|
000140b0  d4 0f dd 20 f2 69 6e 69  74 5f 61 64 64 0d 85 de  |... .init_add...|
000140c0  0e 70 6f 69 6e 74 65 72  25 3d 30 0d 85 e8 05 e1  |.pointer%=0.....|
000140d0  0d 85 f2 05 3a 0d 85 fc  05 3a 0d 86 06 19 dd 20  |....:....:..... |
000140e0  f2 61 64 64 28 73 74 72  69 6e 67 24 2c 70 72 65  |.add(string$,pre|
000140f0  63 25 29 0d 86 10 1d 20  61 64 64 24 28 70 6f 69  |c%).... add$(poi|
00014100  6e 74 65 72 25 29 20 3d  20 73 74 72 69 6e 67 24  |nter%) = string$|
00014110  0d 86 1a 1b 20 61 64 64  25 28 70 6f 69 6e 74 65  |.... add%(pointe|
00014120  72 25 29 20 3d 20 70 72  65 63 25 0d 86 24 10 20  |r%) = prec%..$. |
00014130  70 6f 69 6e 74 65 72 25  2b 3d 31 0d 86 2e 05 e1  |pointer%+=1.....|
00014140  0d 86 38 05 3a 0d 86 42  05 3a 0d 86 4c 16 dd 20  |..8.:..B.:..L.. |
00014150  f2 62 75 69 6c 64 28 f8  20 65 72 72 6f 72 25 29  |.build(. error%)|
00014160  0d 86 56 12 ea 20 6c 6f  63 61 6c 5f 65 72 72 6f  |..V.. local_erro|
00014170  72 25 0d 86 60 0e 65 72  72 6f 72 25 20 3d 20 30  |r%..`.error% = 0|
00014180  0d 86 6a 0e 72 70 6e 5f  73 70 25 20 3d 30 0d 86  |..j.rpn_sp% =0..|
00014190  74 1a e3 20 61 25 20 3d  20 30 20 b8 20 70 6f 69  |t.. a% = 0 . poi|
000141a0  6e 74 65 72 25 20 2d 31  0d 86 7e 2f 20 20 f2 65  |nter% -1..~/  .e|
000141b0  76 61 6c 75 61 74 65 28  61 64 64 24 28 61 25 29  |valuate(add$(a%)|
000141c0  2c 61 64 64 25 28 61 25  29 2c 6c 6f 63 61 6c 5f  |,add%(a%),local_|
000141d0  65 72 72 6f 72 25 29 0d  86 88 30 20 20 e7 20 6c  |error%)...0  . l|
000141e0  6f 63 61 6c 5f 65 72 72  6f 72 25 20 3e 20 30 20  |ocal_error% > 0 |
000141f0  8c 20 65 72 72 6f 72 25  20 3d 20 6c 6f 63 61 6c  |. error% = local|
00014200  5f 65 72 72 6f 72 25 0d  86 92 05 ed 0d 86 9c 05  |_error%.........|
00014210  e1 0d 86 a6 05 3a 0d 86  b0 05 3a 0d 86 ba 05 3a  |.....:....:....:|
00014220  0d 86 c4 05 3a 0d 86 ce  05 3a 0d 86 d8 18 dd 20  |....:....:..... |
00014230  a4 76 61 6c 69 64 5f 6e  6f 28 6e 75 6d 62 65 72  |.valid_no(number|
00014240  24 29 0d 86 e2 10 ea 20  63 25 2c 20 70 6f 69 6e  |$)..... c%, poin|
00014250  74 73 0d 86 ec 0a 6f 6b  20 3d 20 b9 0d 86 f6 18  |ts....ok = .....|
00014260  e7 20 6e 75 6d 62 65 72  24 3d 22 2e 22 20 8c 20  |. number$="." . |
00014270  6f 6b 3d a3 0d 87 00 0e  20 20 70 6f 69 6e 74 73  |ok=.....  points|
00014280  3d 30 0d 87 0a 19 20 20  e3 20 63 25 20 3d 20 31  |=0....  . c% = 1|
00014290  20 b8 20 a9 6e 75 6d 62  65 72 24 0d 87 14 2b 20  | . .number$...+ |
000142a0  20 20 20 20 e7 20 c1 6e  75 6d 62 65 72 24 2c 63  |    . .number$,c|
000142b0  25 2c 31 29 20 3d 20 22  2e 22 20 8c 20 70 6f 69  |%,1) = "." . poi|
000142c0  6e 74 73 2b 3d 31 0d 87  1e 07 20 20 ed 0d 87 28  |nts+=1....  ...(|
000142d0  17 20 20 e7 20 70 6f 69  6e 74 73 3e 31 20 8c 20  |.  . points>1 . |
000142e0  6f 6b 3d a3 0d 87 32 05  cd 0d 87 3c 07 3d 6f 6b  |ok=...2....<.=ok|
000142f0  0d 87 46 05 3a 0d 87 50  05 3a 0d 87 5a 1a dd 20  |..F.:..P.:..Z.. |
00014300  f2 62 61 63 6b 28 f8 20  74 65 72 6d 24 2c 20 76  |.back(. term$, v|
00014310  61 72 24 29 0d 87 64 14  ea 20 6e 65 77 73 24 2c  |ar$)..d.. news$,|
00014320  69 25 2c 63 68 61 72 24  0d 87 6e 0b 6e 65 77 24  |i%,char$..n.new$|
00014330  3d 22 22 0d 87 78 15 e3  20 69 25 20 3d 20 31 20  |=""..x.. i% = 1 |
00014340  b8 20 a9 74 65 72 6d 24  0d 87 82 1a 20 20 63 68  |. .term$....  ch|
00014350  61 72 24 20 3d 20 c1 74  65 72 6d 24 2c 69 25 2c  |ar$ = .term$,i%,|
00014360  31 29 0d 87 8c 20 20 20  e7 20 63 68 61 72 24 20  |1)...   . char$ |
00014370  3d 20 22 40 22 20 8c 20  63 68 61 72 24 3d 76 61  |= "@" . char$=va|
00014380  72 24 0d 87 96 21 20 20  e7 20 63 68 61 72 24 20  |r$...!  . char$ |
00014390  3d 20 22 23 22 20 8c 20  63 68 61 72 24 20 3d 20  |= "#" . char$ = |
000143a0  22 2a 22 0d 87 a0 21 20  20 e7 20 63 68 61 72 24  |"*"...!  . char$|
000143b0  20 3d 20 22 7e 22 20 8c  20 63 68 61 72 24 20 3d  | = "~" . char$ =|
000143c0  20 22 2d 22 0d 87 aa 17  20 20 6e 65 77 24 20 3d  | "-"....  new$ =|
000143d0  20 6e 65 77 24 2b 63 68  61 72 24 0d 87 b4 05 ed  | new$+char$.....|
000143e0  0d 87 be 0e 74 65 72 6d  24 3d 6e 65 77 24 0d 87  |....term$=new$..|
000143f0  c8 05 e1 0d 87 d2 05 3a  0d 87 dc 05 3a 0d 87 e6  |.......:....:...|
00014400  1b dd 20 f2 62 72 61 63  6b 65 74 66 69 78 28 f8  |.. .bracketfix(.|
00014410  20 69 6e 70 75 74 24 29  0d 87 f0 0d ea 20 63 25  | input$)..... c%|
00014420  2c 6e 65 77 24 0d 87 fa  0b 6e 65 77 24 3d 22 22  |,new$....new$=""|
00014430  0d 88 04 18 e3 20 63 25  20 3d 20 31 20 b8 20 a9  |..... c% = 1 . .|
00014440  69 6e 70 75 74 24 2d 31  0d 88 0e 19 20 20 63 31  |input$-1....  c1|
00014450  24 20 3d 20 c1 69 6e 70  75 74 24 2c 63 25 2c 31  |$ = .input$,c%,1|
00014460  29 0d 88 18 1b 20 20 63  32 24 20 3d 20 c1 69 6e  |)....  c2$ = .in|
00014470  70 75 74 24 2c 63 25 2b  31 2c 31 29 0d 88 22 24  |put$,c%+1,1).."$|
00014480  20 20 e7 20 63 31 24 3d  22 29 22 20 80 20 a7 22  |  . c1$=")" . ."|
00014490  2b 2d 2a 2f 5e 29 22 2c  63 32 24 29 3d 30 20 8c  |+-*/^)",c2$)=0 .|
000144a0  0d 88 2c 1d 20 20 20 20  6e 65 77 24 20 3d 20 6e  |..,.    new$ = n|
000144b0  65 77 24 20 2b 20 63 31  24 2b 22 23 22 0d 88 36  |ew$ + c1$+"#"..6|
000144c0  07 20 20 cc 0d 88 40 15  20 20 20 20 6e 65 77 24  |.  ...@.    new$|
000144d0  3d 6e 65 77 24 2b 63 31  24 0d 88 4a 07 20 20 cd  |=new$+c1$..J.  .|
000144e0  0d 88 54 05 ed 0d 88 5e  13 69 6e 70 75 74 24 3d  |..T....^.input$=|
000144f0  6e 65 77 24 2b 63 32 24  0d 88 68 05 e1 0d 88 72  |new$+c2$..h....r|
00014500  05 3a 0d 88 7c 05 3a 0d  88 86 05 3a 0d 88 90 05  |.:..|.:....:....|
00014510  3a 0d 88 9a 05 3a 0d 88  a4 05 3a 0d 88 ae 05 3a  |:....:....:....:|
00014520  0d 88 b8 28 dd 20 f2 72  65 70 6f 72 74 5f 66 75  |...(. .report_fu|
00014530  6e 63 5f 65 72 72 6f 72  28 67 72 61 25 2c 65 72  |nc_error(gra%,er|
00014540  72 6f 72 5f 6e 6f 25 29  0d 88 c2 10 ea 20 74 65  |ror_no%)..... te|
00014550  78 74 24 2c 20 66 6e 24  0d 88 cc 0f 66 6e 24 3d  |xt$, fn$....fn$=|
00014560  c3 28 67 72 61 25 29 0d  88 d6 12 e7 20 70 61 72  |.(gra%)..... par|
00014570  61 5f 70 6c 6f 74 25 20  8c 0d 88 e0 16 20 20 e7  |a_plot% .....  .|
00014580  20 67 72 61 25 20 83 20  32 20 3d 20 30 20 8c 0d  | gra% . 2 = 0 ..|
00014590  88 ea 1b 20 20 20 20 66  6e 24 3d c3 28 28 31 2b  |...    fn$=.((1+|
000145a0  67 72 61 25 29 20 81 20  32 29 0d 88 f4 18 20 20  |gra%) . 2)....  |
000145b0  20 20 66 6e 24 3d 66 6e  24 2b 22 20 59 28 74 29  |  fn$=fn$+" Y(t)|
000145c0  20 22 0d 88 fe 07 20 20  cc 0d 89 08 1b 20 20 20  | "....  .....   |
000145d0  20 66 6e 24 3d c3 28 28  31 2b 67 72 61 25 29 20  | fn$=.((1+gra%) |
000145e0  81 20 32 29 0d 89 12 18  20 20 20 20 66 6e 24 3d  |. 2)....    fn$=|
000145f0  66 6e 24 2b 22 20 58 28  74 29 20 22 0d 89 1c 07  |fn$+" X(t) "....|
00014600  20 20 cd 0d 89 26 05 cd  0d 89 30 12 c8 8e 20 65  |  ...&....0... e|
00014610  72 72 6f 72 5f 6e 6f 25  20 ca 0d 89 3a 3a c9 20  |rror_no% ...::. |
00014620  31 20 3a 20 74 65 78 74  24 3d 22 63 6f 6e 74 61  |1 : text$="conta|
00014630  69 6e 73 20 61 20 66 75  6e 63 74 69 6f 6e 20 77  |ins a function w|
00014640  68 69 63 68 20 64 6f 65  73 20 6e 6f 74 20 65 78  |hich does not ex|
00014650  69 73 74 22 0d 89 44 2b  c9 20 32 20 3a 20 74 65  |ist"..D+. 2 : te|
00014660  78 74 24 3d 22 68 61 73  20 69 6e 63 6f 72 72 65  |xt$="has incorre|
00014670  63 74 20 62 72 61 63 6b  65 74 20 75 73 65 22 0d  |ct bracket use".|
00014680  89 4e 2c c9 20 33 20 3a  20 74 65 78 74 24 3d 22  |.N,. 3 : text$="|
00014690  68 61 73 20 69 6e 63 6f  72 72 65 63 74 20 6f 70  |has incorrect op|
000146a0  65 72 61 74 6f 72 20 75  73 65 22 0d 89 58 23 c9  |erator use"..X#.|
000146b0  20 35 20 3a 20 74 65 78  74 24 3d 22 68 61 73 20  | 5 : text$="has |
000146c0  6e 6f 20 65 78 70 72 65  73 73 69 6f 6e 22 0d 89  |no expression"..|
000146d0  62 28 c9 20 36 20 3a 20  74 65 78 74 24 3d 22 68  |b(. 6 : text$="h|
000146e0  61 73 20 61 6e 20 6f 70  65 72 61 6e 64 20 6d 69  |as an operand mi|
000146f0  73 73 69 6e 67 22 0d 89  6c 2b c9 20 37 20 3a 20  |ssing"..l+. 7 : |
00014700  74 65 78 74 24 3d 22 68  61 73 20 61 20 62 61 64  |text$="has a bad|
00014710  6c 79 20 66 6f 72 6d 65  64 20 6e 75 6d 62 65 72  |ly formed number|
00014720  22 0d 89 76 17 7f 20 3a  20 74 65 78 74 24 3d 22  |"..v.. : text$="|
00014730  45 72 72 6f 72 20 39 22  0d 89 80 05 cb 0d 89 8a  |Error 9"........|
00014740  2b 74 65 78 74 24 3d 74  65 78 74 24 2b 22 2e 20  |+text$=text$+". |
00014750  49 74 20 77 69 6c 6c 20  6e 6f 74 20 62 65 20 70  |It will not be p|
00014760  6c 6f 74 74 65 64 2e 22  0d 89 94 32 f2 66 75 6e  |lotted."...2.fun|
00014770  63 5f 65 72 72 6f 72 5f  6d 65 73 73 61 67 65 28  |c_error_message(|
00014780  22 46 75 6e 63 74 69 6f  6e 20 22 2b 66 6e 24 2b  |"Function "+fn$+|
00014790  22 20 22 2b 74 65 78 74  24 29 0d 89 9e 1e f2 72  |" "+text$).....r|
000147a0  65 64 72 61 77 5f 6d 61  69 6e 5f 77 69 6e 64 6f  |edraw_main_windo|
000147b0  77 20 3a f4 20 6f 6b 3f  0d 89 a8 05 e1 0d 89 b2  |w :. ok?........|
000147c0  04 0d 89 bc 04 0d 89 c6  20 dd 20 f2 66 75 6e 63  |........ . .func|
000147d0  5f 65 72 72 6f 72 5f 6d  65 73 73 61 67 65 28 74  |_error_message(t|
000147e0  65 78 74 24 29 0d 89 d0  17 c8 99 22 48 6f 75 72  |ext$)......"Hour|
000147f0  67 6c 61 73 73 5f 53 6d  61 73 68 22 0d 89 da 18  |glass_Smash"....|
00014800  c8 99 22 57 69 6d 70 5f  44 72 61 67 42 6f 78 22  |.."Wimp_DragBox"|
00014810  2c 2c 2d 31 0d 89 e4 0d  21 62 6c 6f 63 6b 25 3d  |,,-1....!block%=|
00014820  9f 0d 89 ee 15 24 28 62  6c 6f 63 6b 25 2b 34 29  |.....$(block%+4)|
00014830  3d 74 65 78 74 24 0d 89  f8 2b c8 99 20 22 57 69  |=text$...+.. "Wi|
00014840  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
00014850  62 6c 6f 63 6b 25 2c 31  2c 22 47 72 61 70 68 73  |block%,1,"Graphs|
00014860  22 0d 8a 02 05 e1 0d 8a  0c 04 0d 8a 16 04 0d 8a  |"...............|
00014870  20 04 0d 8a 2a 15 dd 20  f2 65 78 74 5f 66 75 6e  | ...*.. .ext_fun|
00014880  63 28 f8 20 66 24 29 0d  8a 34 2a 66 24 3d 20 a4  |c(. f$)..4*f$= .|
00014890  72 65 70 6c 61 63 65 28  66 24 2c 22 41 52 43 54  |replace(f$,"ARCT|
000148a0  41 4e 48 22 2c 22 46 4e  61 72 63 74 61 6e 68 22  |ANH","FNarctanh"|
000148b0  29 0d 8a 3e 2a 66 24 3d  20 a4 72 65 70 6c 61 63  |)..>*f$= .replac|
000148c0  65 28 66 24 2c 22 41 52  43 43 4f 53 48 22 2c 22  |e(f$,"ARCCOSH","|
000148d0  46 4e 61 72 63 63 6f 73  68 22 29 0d 8a 48 2a 66  |FNarccosh")..H*f|
000148e0  24 3d 20 a4 72 65 70 6c  61 63 65 28 66 24 2c 22  |$= .replace(f$,"|
000148f0  41 52 43 53 49 4e 48 22  2c 22 46 4e 61 72 63 73  |ARCSINH","FNarcs|
00014900  69 6e 68 22 29 0d 8a 52  24 66 24 3d 20 a4 72 65  |inh")..R$f$= .re|
00014910  70 6c 61 63 65 28 66 24  2c 22 53 49 4e 48 22 2c  |place(f$,"SINH",|
00014920  22 46 4e 73 69 6e 68 22  29 0d 8a 5c 24 66 24 3d  |"FNsinh")..\$f$=|
00014930  20 a4 72 65 70 6c 61 63  65 28 66 24 2c 22 43 4f  | .replace(f$,"CO|
00014940  53 48 22 2c 22 46 4e 63  6f 73 68 22 29 0d 8a 66  |SH","FNcosh")..f|
00014950  24 66 24 3d 20 a4 72 65  70 6c 61 63 65 28 66 24  |$f$= .replace(f$|
00014960  2c 22 54 41 4e 48 22 2c  22 46 4e 74 61 6e 68 22  |,"TANH","FNtanh"|
00014970  29 0d 8a 70 24 66 24 3d  20 a4 72 65 70 6c 61 63  |)..p$f$= .replac|
00014980  65 28 66 24 2c 22 46 41  43 54 22 2c 22 46 4e 66  |e(f$,"FACT","FNf|
00014990  61 63 74 22 29 0d 8a 7a  10 e7 20 64 65 67 72 65  |act")..z.. degre|
000149a0  65 73 25 20 8c 0d 8a 84  24 66 24 20 3d 20 a4 72  |es% ....$f$ = .r|
000149b0  65 70 6c 61 63 65 28 66  24 2c 22 53 49 4e 22 2c  |eplace(f$,"SIN",|
000149c0  22 53 49 4e 52 41 44 22  29 0d 8a 8e 24 66 24 20  |"SINRAD")...$f$ |
000149d0  3d 20 a4 72 65 70 6c 61  63 65 28 66 24 2c 22 43  |= .replace(f$,"C|
000149e0  4f 53 22 2c 22 43 4f 53  52 41 44 22 29 0d 8a 98  |OS","COSRAD")...|
000149f0  24 66 24 20 3d 20 a4 72  65 70 6c 61 63 65 28 66  |$f$ = .replace(f|
00014a00  24 2c 22 54 41 4e 22 2c  22 54 41 4e 52 41 44 22  |$,"TAN","TANRAD"|
00014a10  29 0d 8a a2 24 66 24 20  3d 20 a4 72 65 70 6c 61  |)...$f$ = .repla|
00014a20  63 65 28 66 24 2c 22 41  53 4e 22 2c 22 44 45 47  |ce(f$,"ASN","DEG|
00014a30  41 53 4e 22 29 0d 8a ac  24 66 24 20 3d 20 a4 72  |ASN")...$f$ = .r|
00014a40  65 70 6c 61 63 65 28 66  24 2c 22 41 54 4e 22 2c  |eplace(f$,"ATN",|
00014a50  22 44 45 47 41 54 4e 22  29 0d 8a b6 24 66 24 20  |"DEGATN")...$f$ |
00014a60  3d 20 a4 72 65 70 6c 61  63 65 28 66 24 2c 22 41  |= .replace(f$,"A|
00014a70  43 53 22 2c 22 44 45 47  41 43 53 22 29 0d 8a c0  |CS","DEGACS")...|
00014a80  05 cd 0d 8a ca 05 e1 0d  8a d4 04 0d 8a de 04 0d  |................|
00014a90  8a e8 0c dd 20 f2 44 55  4d 4d 59 0d 8a f2 05 e1  |.... .DUMMY.....|
00014aa0  0d 8a fc 04 0d 8b 06 04  0d 8b 10 04 0d ff        |..............|
00014aae