� >!RunImage !Bior(h)ythms
� � Mark Hammond, 1996
� Coded by Mark Hammond
(:
2� � �4:�:� " at line ";�:�
<	�vars
F�initialise
P#� � � �error(�,�,�$) � �close:�
Z:
d�
n  �poll
x� quit%
�:
�
�close
��
�:
�� �vars
� � b% 7*1024
� � wins% 2000
� � mens% 800
� � graph% 556, gt% 24
� � iwave% 2*1024, iwt% 24
� � pwave% 2*1024, pwt% 24
� � ewave% 2*1024, ewt% 24
� � grahead% 964

 � months$(12), days$(7)

 winend%  = wins%+2000

 menuptr% = mens%

" max%     = 5144

, buf_size%= 400

6 printing%= �

@ scale%   = 25

J2 � mes_file% 16,mem% max%,buf% buf_size%,s$(4)

T asctsk%= &4B534154

^ quit%  = �

h �+1

rA � January,Febuary,March,April,May,June,July,August,September

|  � October,November,December

� � ptr%=1 � 12

�   � months$(ptr%)

� �

� �+1

�? � Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday

� � ptr%=1 � 7

�   � days$(ptr%)

� �

�
 ta = 0.8

� tb = 0

� tc = 0

�
 td = 0.8

�  �set_trans(ta,tb,tc,td,gt%)
! �set_trans(ta,tb,tc,td,iwt%)
! �set_trans(ta,tb,tc,td,pwt%)
! �set_trans(ta,tb,tc,td,ewt%)
&�
0:
:� �set_trans(a,b,c,d,ptr%)
D ptr%!0  = a*2^16
N ptr%!4  = b*2^16
X ptr%!8  = c*2^16
b ptr%!12 = d*2^16
l ptr%!16 = 0
v ptr%!20 = 0
��
�:
�� �initialise
�= �open_mes_file(mes_file%,"<Bio$Dir>.Messages",mem%,max%)
�! tsk_name$ = �mes("TaskName")
�  version$  = �mes("Version")
�) b%!0 = 2      :� Message_DataSaveAck
�( b%!4 = &502   :� Message_HelpReques
�) b%!8 = &400C0 :� Messgae_MenuWarning
�( b%!12= &400C1 :� Message_ModeChnage
�( b%!16= &80147 :� Message_SetPrinter
�& b%!20= &6     :� Message_RamFetch
�
 b%!24= 0
? ș "Wimp_Initialise",300,asctsk%,tsk_name$,b% � wimp%,tsk%
% bar_icon%=�icon(-1,"!Biorythms")
 �load_templates
  �width_menu
* �opt_menu
4 �bar_menu
> �save_menu
H �plot_menu
R- �get_font("Homerton.Medium",14,14,font%)
\9 ș "ColourTrans_SetFontColours",font%,&F0F0F000,0,14
f4 ș "OS_File",&FF,"<Bio$Dir>.GraphHead",grahead%
p. ș "OS_File",&FF,"<Bio$Dir>.Graph",graph%
z% �read_date(cday%,cmonth%,cyear%)
� �default_dates
� s_dragging%=�solid_drag
� �load_opts
��
�:
�/� �open_mes_file(f%,mesfile$,buffer%,size%)
�7 ș "MessageTrans_FileInfo",,mesfile$ � flag%,,len%
� � flag% � 1 �
�   len%    = 0
�   buffer% = 0
�  �
�   buffer% = mem%
� �
, � len%>size% � 1,"Please increase max%"
3 ș "MessageTrans_OpenFile",f%,mesfile$,buffer%
�
$:
.� �icon(win%,spr$)
8 � c%,handle%
B c%=b%+900
L c%!0  = win%
V c%!4  = 0
` c%!8  = 0
j c%!12 = 68
t c%!16 = 68
~ c%!20 = &3002
� $(c%+24) = spr$
�' ș "Wimp_CreateIcon",,c% � handle%
�=handle%
�:
�� �load_templates
�2 ș "Wimp_OpenTemplate",,"<Bio$Dir>.Templates"
�C ș "Wimp_LoadTemplate",,b%,wins%,winend%,-1,"Info",0 � ,,wins%
�' ș "Wimp_CreateWindow",,b% � info%
�! version%  = !(b%+88+32*4+20)
� $version% = version$
�C ș "Wimp_LoadTemplate",,b%,wins%,winend%,-1,"Data",0 � ,,wins%
�' ș "Wimp_CreateWindow",,b% � data%
C ș "Wimp_LoadTemplate",,b%,wins%,winend%,-1,"Main",0 � ,,wins%

' ș "Wimp_CreateWindow",,b% � main%
 !b% = main%
! ș "Wimp_GetWindowState",,b%
( mainmaxy%= b%!44
2  ibd%     = !(b%+88+32*5+20)
<  ibm%     = !(b%+88+32*6+20)
F  iby%     = !(b%+88+32*7+20)
P! ipd%     = !(b%+88+32*23+20)
Z! ipm%     = !(b%+88+32*24+20)
d! ipy%     = !(b%+88+32*25+20)
n! ielapsed%= !(b%+88+32*32+20)
x name%=!(b%+88+32*34+20)
�F ș "Wimp_LoadTemplate",,b%,wins%,winend%,-1,"bioinfo",0 � ,,wins%
�* ș "Wimp_CreateWindow",,b% � bioinfo%
�H ș "Wimp_LoadTemplate",,b%,wins%,winend%,-1,"xfer_send",0 � ,,wins%
�  saveas%  = !(b%+88+32*2+20)
�  saveicon%= !(b%+88+32*3+20)
�' ș "Wimp_CreateWindow",,b% � save%
�G ș "Wimp_LoadTemplate",,b%,wins%,winend%,-1,"hot_keys",0 � ,,wins%
�* ș "Wimp_CreateWindow",,b% � hotkeys%
�F ș "Wimp_LoadTemplate",,b%,wins%,winend%,-1,"printer",0 � ,,wins%
�* ș "Wimp_CreateWindow",,b% � printer%
� pname% = !(b%+88+32+20)
� $pname%= �get_pname
� ș "Wimp_CloseTemplate"
 �set_hotkeys
�
:
"� �set_hotkeys
, !b%=hotkeys%
6! ș "Wimp_GetWindowState",,b%
@ b%!4  = b%!4-1000
J b%!8  = b%!8-1000
T b%!12 = b%!12-1000
^ b%!16 = b%!16-1000
h ș "Wimp_OpenWindow",,b%
r�
|:
�� �width_menu
� width_menu% = menuptr%
� menumax%    = 10
� menuptr%!20 = 44
�% $menuptr%   = �mes("WidthTitle")
� menuptr%?12 = 7
� menuptr%?13 = 2
� menuptr%?14 = 7
� menuptr%?15 = 0
� maxaddr%    = menuptr%+16
� menuptr%!24 = 0
� menuptr%   += 28
�! width0$     = �mes("Width0")
! width1$     = �mes("Width1")
! width2$     = �mes("Width2")
! width3$     = �mes("Width3")
&! width4$     = �mes("Width4")
0! width5$     = �mes("Width5")
: �add_item(width0$,-1)
D �add_item(width1$,-1)
N �add_item(width2$,-1)
X �add_item(width3$,-1)
b �add_item(width4$,-1)
l � width% 5
v! �writeable(width5$,width%,5)
�( menuptr%!-24= (menuptr%!-24 � 1<<7)
�! !maxaddr%   = menumax%*16+32
��
�:
�� �opt_menu
� opt_menu%   = menuptr%
� menumax%    = 10
� menuptr%!20 = 44
�# $menuptr%   = �mes("OptTitle")
� menuptr%?12 = 7
� menuptr%?13 = 2
� menuptr%?14 = 7
� menuptr%?15 = 0
 maxaddr%    = menuptr%+16
 menuptr%!24 = 0
 menuptr%   += 28
  opt0$       = �mes("Opt0")
* opt1$       = �mes("Opt1")
4! �add_item(opt0$,width_menu%)
> �add_item(opt1$,-1)
H( menuptr%!-24= (menuptr%!-24 � 1<<7)
R! !maxaddr%   = menumax%*16+32
\�
f:
p� �bar_menu
z bar_menu%   = menuptr%
� menumax%    = 10
� menuptr%!20 = 44
�# $menuptr%   = �mes("BarTitle")
� menuptr%?12 = 7
� menuptr%?13 = 2
� menuptr%?14 = 7
� menuptr%?15 = 0
� maxaddr%    = menuptr%+16
� menuptr%!24 = 0
� menuptr%   += 28
� bar0$       = �mes("Bar0")
� bar1$       = �mes("Bar1")
� bar2$       = �mes("Bar2")
	 bar3$       = �mes("Bar3")
	 �add_item(bar0$,info%)
	 �add_item(bar1$,opt_menu%)
	$ �add_item(bar2$,-1)
	. �add_item(bar3$,-1)
	8( menuptr%!-24= (menuptr%!-24 � 1<<7)
	B! !maxaddr%   = menumax%*16+32
	L�
	V:
	`� �save_menu
	j save_menu%  = menuptr%
	t menumax%    = 7
	~ menuptr%!20 = 44
	�$ $menuptr%   = �mes("SaveTitle")
	� menuptr%?12 = 7
	� menuptr%?13 = 2
	� menuptr%?14 = 7
	� menuptr%?15 = 0
	� maxaddr%    = menuptr%+16
	� menuptr%!24 = 0
	� menuptr%   += 28
	�  save0$      = �mes("Save0")
	�  save1$      = �mes("Save1")
	�  save2$      = �mes("Save2")
	� �add_item(save0$,save%)
' menuptr%!-24=(menuptr%!-24 � 1<<3)

 �add_item(save1$,save%)
( menuptr%!-24= (menuptr%!-24 � 1<<3)
 �add_item(save2$,save%)
(( menuptr%!-24= (menuptr%!-24 � 1<<7)
2( menuptr%!-24= (menuptr%!-24 � 1<<3)
<! !maxaddr%   = menumax%*16+32
F�
P:
Z� �plot_menu
d plot_menu%  = menuptr%
n menumax%    = 11
x menuptr%!20 = 44
�$ $menuptr%   = �mes("PlotTitle")
� menuptr%?12 = 7
� menuptr%?13 = 2
� menuptr%?14 = 7
� menuptr%?15 = 0
� maxaddr%    = menuptr%+16
� menuptr%!24 = 0
� menuptr%   += 28
�  plot0$      = �mes("Plot0")
�  plot1$      = �mes("Plot1")
�  plot2$      = �mes("Plot2")
�! �add_item(plot0$,save_menu%)
�  �add_item(plot1$,opt_menu%)
 �add_item(plot2$,-1)
( menuptr%!-24= (menuptr%!-24 � 1<<7)
! !maxaddr%   = menumax%*16+32
"�
,:
6� �add_item(text$,submenu%)
@ menuptr%!0     = 0
J menuptr%!4     = submenu%
T menuptr%!8     = &07000021
^ $(menuptr%+12) = text$
h menuptr%      += 24
r�
|:
�'� �writeable(text$,buffer%,buflen%)
� !menuptr%   = %100
�  !menuptr%   = !menuptr% � 4
� menuptr%!4  = submenu%
� menuptr%!8  = &0700f121
� menuptr%!12 = buffer%
� menuptr%!16 = -1
� menuptr%!20 = buflen%
� $buffer%    = text$
� menuptr%   += 24
��
�:
�"� �get_font(font$,x,y,� font%)
4 ș "Font_FindFont",,font$,x*16,y*16,0,0 � font%
�
:
&)� �read_date(� day%,� month%,� year%)
0 � date$,month$
: date$ = �$
D$ date$ = �date$,(�date$,".")-1))
N! date$ = �date$,(�(date$)-4))
X day%  = �(�date$,2))
b  date$ = �date$,(� date$)-3)
l month$= �date$,3)
v$ month%= �name_to_number(month$)
� year% = �(�date$,5))
��
�:
�� �default_dates
� $ibd% = �(cday%)
� bd%   = cday%
�% $ibm% = �number_to_name(cmonth%)
� bm%   = cmonth%
� $iby% = �(cyear%)
� by%   = cyear%
� $ipd% = �(cday%)
� pd%   = cday%
�% $ipm% = �number_to_name(cmonth%)

 pm%   = cmonth%

 $ipy% = �(cyear%)

 py%   = cyear%

 �

*:

4� �solid_drag

> � a%,b%

H	 a%=�

R ș "OS_Byte",161,28 � ,,b%

\ � (b% � 2)<>0 � a%=�

f=a%

p:

z� �close_mes

�* ș "MessageTrans_CloseFile",mes_file%

��

�:

�� �load_opts

� � file%,a$

�$ file%  = �("<Bio$Dir>.Options")

� a$     = �#file%

�! lineth%= �(�mes("Width"+a$))

� �tick(width_menu%,� a$)

� $width%= �#file%

� �#file%

��

�:
� �close
 �close_mes
% ș "Wimp_CloseDown",tsk%,asctsk%
$�
.:
8� �poll
B ș "Wimp_Poll",,b% � r%
L Ȏ r% �
V   � 1:�redraw
`#   � 2:ș "Wimp_OpenWindow",,b%
j$   � 3:ș "Wimp_CloseWindow",,b%
t   � 6:�mouse_click
~   � 7:�drag_end
�   � 8:�key_press
�   � 9:�menu_click
�   � 17,18:�receive
� �
��
�:
�� �receive
� Ȏ b%!16 �
�   � 0:quit%=�
�   � 2:�save_ack
�   � 6:�ram_trans
�   � &502:�help_request
   � &400C0:�menu_warning

8   � &400C1:�get_font("Homerton.Medium",14,14,font%)
"   � &80147:$pname%=�get_pname
 �
(�
2:
<
� �redraw
F9 ș "ColourTrans_SetFontColours",font%,&FFFFFF00,0,14
P' ș "Wimp_RedrawWindow",,b% � more%
Z
 ȕ more%
d!   � !b% = main% � �draw_plot
n$   � !b% = bioinfo% � �draw_info
x)   ș "Wimp_GetRectangle",,b% � more%
� �
��
�:
�� �draw_plot
�	 � c%
� c%  = b%+1000
� !c% = main%
�! ș "Wimp_GetWindowState",,c%
� xorig% = c%!4-c%!20
�# yorig% = c%!16-c%!24+mainmaxy%
� gt%!16 = xorig%*256
� gt%!20 = yorig%*256
� iwt%!16= gt%!16
 iwt%!20= gt%!20
 pwt%!16= gt%!16
 pwt%!20= gt%!20
" ewt%!16= gt%!16
, ewt%!20= gt%!20
6 ?c%    = 2
@ c%?1   = 0
J c%?2   = 0
T c%?3   = 0
^, ș "ColourTrans_SetGCOL",&FF000000,,0,0
h/ ș "Draw_Stroke",iwave%,,iwt%,0,lineth%,c%
r, ș "ColourTrans_SetGCOL",&00FF0000,,0,0
|/ ș "Draw_Stroke",pwave%,,iwt%,0,lineth%,c%
�, ș "ColourTrans_SetGCOL",&0000FF00,,0,0
�/ ș "Draw_Stroke",ewave%,,iwt%,0,lineth%,c%
�$ ș "ColourTrans_SetGCOL",0,,0,0
�) ș "Draw_Stroke",graph%,0,gt%,0,0,c%
�9 ș "ColourTrans_SetFontColours",font%,&FFFFFF00,0,14
�@ ș "Font_Paint",font%,"I",784,xorig%+1100*ta,yorig%+iny%*td
�@ ș "Font_Paint",font%,"E",784,xorig%+1100*ta,yorig%+emy%*td
�@ ș "Font_Paint",font%,"P",784,xorig%+1100*ta,yorig%+pyy%*td
�= ș "Font_Paint",font%,"+",784,xorig%+10*ta,yorig%+700*td
�= ș "Font_Paint",font%,"-",784,xorig%+10*ta,yorig%+200*td
�@ ș "Font_Paint",font%,"^",784,xorig%+591.5*ta,yorig%+448*td
�N title$=$name%+"'s plot for "+� pd%+"-"+�number_to_name(pm%)+"-"+� py%+"."
�) title$+="  "+$ielapsed%+" days old."
B ș "Font_Paint",font%,title$,784,xorig%+100*ta,yorig%+1000*td
�
:
&� �draw_info
0	 � c%
: c%  = b%+1000
D !c% = bioinfo%
N! ș "Wimp_GetWindowState",,c%
X xorig% = c%!4-c%!20
b# yorig% = c%!16-c%!24+mainmaxy%
l9 ș "ColourTrans_SetFontColours",font%,&F0F0F000,0,14
v? ș "Font_Paint",font%,�mes("b01"),784,xorig%+10,yorig%+800
�? ș "Font_Paint",font%,�mes("b02"),784,xorig%+10,yorig%+760
�? ș "Font_Paint",font%,�mes("b03"),784,xorig%+10,yorig%+720
�? ș "Font_Paint",font%,�mes("b04"),784,xorig%+10,yorig%+650
�? ș "Font_Paint",font%,�mes("b05"),784,xorig%+10,yorig%+610
�? ș "Font_Paint",font%,�mes("b06"),784,xorig%+10,yorig%+570
�? ș "Font_Paint",font%,�mes("b07"),784,xorig%+10,yorig%+530
�? ș "Font_Paint",font%,�mes("b08"),784,xorig%+10,yorig%+490
�? ș "Font_Paint",font%,�mes("b09"),784,xorig%+10,yorig%+450
�? ș "Font_Paint",font%,�mes("b10"),784,xorig%+10,yorig%+350
�? ș "Font_Paint",font%,�mes("b11"),784,xorig%+10,yorig%+310
�? ș "Font_Paint",font%,�mes("b12"),784,xorig%+10,yorig%+240
��
�:
� �mouse_click
 Ȏ b%!12 �
   � -2
      Ȏ b%!8 �
*%       � 1:�open_window(bioinfo%)
4       � 4
>         �set_data
H!         �close_window(main%)
R          �open_window(data%)
\4       � 2:�show_menu(bar_menu%,b%!0-64,96+4*44)
f
     �
p   � data%
z      �data_click(b%!8,b%!16)
�   � main%
�     Ȏ b%!8 �
�2       � 2:�show_menu(plot_menu%,b%!0-64,b%!4)
�
     �
�   � save%:�save_click
�    � printer%:�printer_click
� �
��
�:
�� �drag_end
� � a$,ptr%,c%
�
 c%=b%+40
�! ș "Wimp_GetPointerInfo",,b%
 a$       = $saveas%
 c%!20    = b%!12
 c%!24    = b%!16
$ c%!28    = b%!0
. c%!32    = b%!4
8 c%!36    = 5120
B Ȏ saving% �
L   � 0:c%!40 = &aff
V   � 1:c%!40 = &c28
`   � 2:c%!40 = &dfe
j �
t ȕ �a$,".") <>0
~   ptr%=�a$,".")
�   a$  =�a$,ptr%+1)
� �
� $(c%+44)=a$
� !c%     =44+(� a$+1 � 4)*4
� � (� a$+1 � 4)<>0 !b%+=4
� c%!4  = tsk%
� c%!12 = 0
� c%!16 = 1
� c%!36 = 5120
�, ș "Wimp_SendMessage",18,c%,c%!20,c%!24
� $saveas%=a$
� �show_menu(-1,0,0)
�

:
� �key_press
 � key%,c%
( c%   = b%+1000
2 key% = b%!24
< Ȏ key% �
F
   � &180
P     � �is_it_open(main%) �
Z       �show_menu(-1,0,0)
d!       �open_window(printer%)
n
     �
x   � 13
�'     ș "Wimp_GetCaretPosition",,c%
�     Ȏ c%!0 �
�       � save%:�save_return
�%       � data%:�data_return(c%!4)
�
     �
�  
�#     ș "Wimp_ProcessKey",b%!24
� �
��
�:
�� �menu_click
� � c%,x
� c%=b%+900
! ș "Wimp_GetPointerInfo",,c%
 adj%=(c%!8 � 1)
) ș "Wimp_DecodeMenu",,topmenu%,b%,c%
"
 Ȏ $c% �
,%   � bar2$:�open_window(bioinfo%)
6   � bar3$:quit%=�
@&   � plot2$:�open_window(printer%)
J  
T@     � (topmenu%=bar_menu% � topmenu%=plot_menu%) � b%!0=1 �
^       Ȏ b%!4 �
h         � 0
r           � x=0 � 5
|'             �untick(width_menu%,x)
�           �
�           Ȏ b%!8 �
�C             � 0,1,2,3,4:lineth%=256*(�(�mes("Width"+�(b%!8))))
�)             � 5:lineth%=256*�$width%
�           �
�&           �tick(width_menu%,b%!8)
�#           �force_redraw(main%)
�         � 1:�save_opts
�       �
�
     �
� �
�, � adj% �show_menu(topmenu%,topx%,topy%)
��
:
� �open_window(win%)
	 � c%
& c%  = b%+1000
0 !c% = win%
:! ș "Wimp_GetWindowState",,c%
D ș "Wimp_OpenWindow",,c%
N�
X:
b� �close_window(win%)
l	 � c%
v c%  = b%+1000
� !c% = win%
�! ș "Wimp_GetWindowState",,c%
� ș "Wimp_CloseWindow",,c%
��
�:
�� �is_it_open(win%)
� � c%,a%
� c%  = b%+500
� !c% = win%
�! ș "Wimp_GetWindowState",,c%
�	 a%=0
�! � (c%!32 � 1<<16)<>0 � a%=-1
�=a%
:
� �show_menu(menu%,x%,y%)
 topmenu% = menu%
  topx%    = x%
* topy%    = y%
4& ș "Wimp_CreateMenu",,menu%,x%,y%
>�
H:
R � �data_click(button%,icon%)
\ � x,redraw%
f redraw%=b%+3000
p ptr%=0
z !redraw%=-1
� by%=�($iby%)
� py%=�($ipy%)
� Ȏ icon% �
�   � 8:bd% -= 1
�   � 9:bm% -= 1
�   � 10:by%-= 1
�   � 11:bd%+= 1
�   � 12:bm%+= 1
�   � 13:by%+= 1
�   � 20:pd%-= 1
�   � 21:pm%-= 1
�   � 22:py%-= 1
�   � 26:pd%+= 1
   � 27:pm%+= 1
   � 28:py%+= 1
   � 16
$     pd% = cday%
.     pm% = cmonth%
8     py% = cyear%
B     �set_data
L   � 29
V     �workout_waves
`     �open_window(main%)
j     �close_window(data%)
t   � 30
~     �close_window(data%)
� �
�4 � icon%<>16 � icon%<>29 � icon%<>30 � �set_data
��
�:
�� �data_return(icon%)
� Ȏ icon% �
�
   � 7
�     by%=�($iby%)
�     �set_data
�   � 25
�     py%=�($ipy%)
�     �set_data
   � 34

     �close_window(data%)
     �workout_waves
     �open_window(main%)
( �
2�
<:
F� �save_click
P Ȏ b%!16 �
Z
   � 3
d3     � b%!8=16 � b%!8=64 � �start_drag(b%!12,3)
n   � 0:�save_return
x �
��
�:
�� �printer_click
� Ȏ b%!16 �
�
   � 4
�     ș "OS_Byte",21,9
�      �close_window(printer%)
�     �start_print
�"   � 5:�close_window(printer%)
� �
��
�:
�� �set_data
/ � a%,redraw%,bd$,bm$,by$,pd$,pm$,py$,ered%
 redraw% = b%+2000
 ptr%    = 0
" � bm%=13 � bm%=1 :by%+=1
, � bm%=0  � bm%=12:by%-=1
6 � pm%=13 � pm%=1 :py%+=1
@ � pm%=0  � pm%=12:py%-=1
J/ �realdate(bd%,bm%,by%,abd%,abm%,aby%,bwd%)
T/ �realdate(pd%,pm%,py%,apd%,apm%,apy%,pwd%)
^ � abd%=-1 �
h   � by%<1990 �
r     abd%=1
|     abm%=1
�     aby%=1900
�     bwd%=2
�   �
�   � by%>1990 �
�     abd%=3
�     abm%=6
�     aby%=2248
�     bwd%=7
�   �
� �
� � apd%=-1 �
�   � py%<1990 �
�     apd%=1
     apm%=1
     apy%=1900
     pwd%=2
&   �
0   � py%>1990 �
:     apd%=3
D     apm%=6
N     apy%=2248
X     pwd%=7
b   �
l �
v � bd%<>abd% � bd%=abd%
� � bm%<>abm% � bm%=abm%
� � by%<>aby% � by%=aby%
� � pd%<>apd% � pd%=apd%
� � pm%<>apm% � pm%=apm%
� � py%<>apy% � py%=apy%
� � change the dates.
�& bd$=�num_to_day(bwd%)+", "+�(bd%)
� bm$=�number_to_name(bm%)
� by$=�(by%)
�& pd$=�num_to_day(pwd%)+", "+�(pd%)
� pm$=�number_to_name(pm%)
� py$=�(py%)
� ptr%=0
 � $ibd% <> bd$ �
   $ibd%       = bd$
   redraw%!ptr%= 5
    ptr%       += 4
* �
4 � $ibm% <> bm$ �
>   $ibm%       = bm$
H   redraw%!ptr%= 6
R   ptr%       += 4
\ �
f � $iby% <> by$ �
p   $iby%       = by$
z   redraw%!ptr%= 7
�   ptr%       += 4
� �
� � $ipd% <> pd$ �
�   $ipd%       = pd$
�   redraw%!ptr%= 23
�   ptr%       += 4
� �
� � $ipm% <> pm$ �
�   $ipm%       = pm$
�   redraw%!ptr%= 24
�   ptr%       += 4
� �
� � $ipy% <> py$ �
   $ipy%       = py$
   redraw%!ptr%= 25
   ptr%       += 4
$ �
. redraw%!ptr%     = 32
8 redraw%!(ptr%+4) = -1
BD $ielapsed%       = � �difference(abd%,abm%,aby%,apd%,apm%,apy%)
L$ ered%          = redraw%+ptr%+8
V ptr%=0
` ȕ redraw%!ptr% <> -1
j   b%!0  = data%
t   b%!4  = redraw%!ptr%
~   b%!8  = 0
�   b%!12 = 0
�!   ș "Wimp_SetIconState",,b%
�   ptr%+=4
� �
��
�:
�� �number_to_name(m%)
� � ptr%=1 � 12
�#   � m%=ptr% � m$=months$(ptr%)
� �
�=m$
�:
� �name_to_number(m$)

 � ptr%=1 � 12
'   � m$=�months$(ptr%),3) � m%=ptr%
 �
(=m%
2:
<� �num_to_day(d%)
F � ptr%=1 � 7
P!   � d%=ptr% � d$=days$(ptr%)
Z �
d=d$
n:
x� �check_date(d%,m%,y%)
� ok%=-1
� � y%<1901 � m%<1 � ok%=0
� � y%>2199 � m%>12 � ok%=1
�$ � y%<1901 � m%<2 � d%<1 � ok%=0
�/� IF y%>2199 AND m%>11 AND d%>31 THEN ok%=0
�=ok%
�:
�8� �realdate(day%,mon%,year%,� ad%,� am%,� ay%,� wd%)
� � c%,d%
� c%    = b%+1000
� d%    = b%+1100
� !c%   = 0
� c%!4  = 0
 c%!8  = 0
 c%!12 = 0
 c%!16 = day%
" c%!20 = mon%
, c%!24 = year%
6= ș "XTerritory_ConvertOrdinalsToTime",-1,d%,c% � ;flags%
@ � (flags% � 1)=0 �
J?   ș "XTerritory_ConvertTimeToOrdinals",-1,d%,c% � ;flags%
T   ad% = c%!16
^   am% = c%!20
h   ay% = c%!24
r   wd% = c%!28
|  �
�   ad% = -1
�   am% = -1
�   ay% = -1
� �
��
�:
�� �workout_waves
� � d%,i%
�2 elapsed%=�difference(bd%,bm%,by%,pd%,pm%,py%)
� d%=elapsed%-12
�
 i%=50
�) �wave(450,d%,i%,iwave%,33,inx%,iny%)
�) �wave(450,d%,i%,ewave%,28,emx%,emy%)
 ) �wave(450,d%,i%,pwave%,23,pyx%,pyy%)
 �
 :
 &(� �wave(h%,d%,i%,buffer%,w%,� x,� y)
 0 � ptr%,x,st%
 : !buffer% = 2
 D buffer%!4= 100*256
 N2 buffer%!8= (500+h%*�(2*�/w%*(d%+100/i%)))*256
 X ptr%     = 12
 b st%      = scale%
 l � x=100 � 1100 � 20
 v   buffer%!ptr%     = 8
 �4   y                = 500+h%*�(2*�/w%*(d%+x/i%))
 �   buffer%!(ptr%+4) = x*256
 �   buffer%!(ptr%+8) = y*256
 �   buffer%!(ptr%+12)= 0
 �   ptr%+=12
 � �
 ��
 �:
 �� �grey_icon(win%,icon%)
 �	 � c%
 � c%=b%+1000
 � !c%  =win%
 � c%!4 =icon%
! c%!8 =1<<22
! c%!12=1<<22
! ș "Wimp_SetIconState",,c%
! �
!*:
!4� �ungrey_icon(win%,icon%)
!>	 � c%
!H c%=b%+1000
!R !c%  =win%
!\ c%!4 =icon%
!f c%!8 =0
!p c%!12=1<<22
!z ș "Wimp_SetIconState",,c%
!��
!�:
!�� �state(win%,icon%)
!�	 � c%
!� c%  = b%+1000
!� !c% = win%
!� c%!4= icon%
!� ș "Wimp_GetIconState",,c%
!�=(c%!24 � 1<<21)<>0
!�:
!�� �tick(men%,item%)
!�0 men%!(28+item%*24)=(men%!(28+item%*24) � 1)
!��
":
"� �untick(men%,item%)
"5 men%!(28+item%*24)=(men%!(28+item%*24) � (�(1)))
"$�
".:
"8� �ticked(men%,item%)
"B =(men%!(28+item%*24) � 1)<>0
"L:
"V� �force_redraw(win%)
"`	 � c%
"j c%=b%+400
"t
 !c%=win%
"~! ș "Wimp_GetWindowState",,c%
"�3 ș "Wimp_ForceRedraw",-1,c%!4,c%!8,c%!12,c%!16
"��
"�:
"� � �start_drag(window%,icon%)
"�	 � c%
"� c%=b%+1000
"�' �get_origin(window%,xorig%,yorig%)
"� !c%=window%
"� c%!4=icon%
"� ș "Wimp_GetIconState",,c%
"� xmin% = xorig%+c%!8
"� ymin% = yorig%+c%!12
# xmax% = xorig%+c%!16
#
 ymax% = yorig%+c%!20
# c%!4  = 5
# c%!8  = xmin%
#( c%!12 = ymin%
#2 c%!16 = xmax%
#< c%!20 = ymax%
#F c%!24 = 0
#P c%!28 = 0
#Z c%!32 = 1280
#d c%!26 = 1024
#n Ȏ s_dragging% �
#x    � �:ș "Wimp_DragBox",,c%
#�C   � �:ș "DragASprite_Start",%11000101,1,$saveicon%,c%+8,c%+24
#� �
#� Ȏ $saveicon% �
#�   � "file_aff":saving%=0
#�   � "file_ff9":saving%=1
#�   � "file_dfe":saving%=2
#� �
#��
#�:
#�� �save_ack
#� �terminate(b%+44)
#� $saveas%=$(b%+44)
#� �show_menu(-1,0,0)
$ Ȏ saving% �
$   � 0:�save_draw($(b%+44))
$    � 1:�save_graph($(b%+44))
$"   � 2:�save_csv($(b%+44))
$, �
$6 b%!12   = b%!8
$@ b%!16   = 3
$J& ș "Wimp_SendMessage",18,b%,b%!20
$T�
$^:
$h� �terminate(a%)
$r � ptr%
$| ȕ a%?ptr%>31
$�   ptr%+=1
$� �
$� a%!ptr%=13
$��
$�:
$�,� �get_origin(handle%,� xorig%,� yorig%)
$�	 � c%
$� c%  = b%+1400
$� !c% = handle%
$�! ș "Wimp_GetWindowState",,c%
$� xorig% = c%!4-c%!20
$� yorig% = c%!16-c%!24
$��
%:
%� �start_print
%/ � job%,to_draw%,rect%,trans%,plot%,dtrans%
%& to_draw%= b%+3000
%0 rect%   = b%+3020
%: trans%  = b%+3040
%D plot%   = b%+3080
%N dtrans% = b%+3100
%X ș "Hourglass_On"
%b name$=�get_pname
%l � name$<>"None" �
%v   job%=�("printer:")
%�3   ș "PDriver_SelectJob",job%,name$ � old_job%
%�   printing%=�
%�)   �declare_font("Homerton.Medium",0)
%�   �declare_font("",0)
%�   �set_rectangle
%�8   ș "PDriver_DrawPage",1,to_draw%,0,0 � more%,,id%
%�   ȕ more%<>0
%�     � id%=42 �
%�       �print_draw
%�
     �
%�9     ș "PDriver_GetRectangle",,to_draw% � more%,,id%
%�   �
%�   ș "PDriver_EndJob",job%
&   � old_job%<>0 �
&'     "PDriver_SelectJob",old_job%,0
&   �
& 
   �#job%
&*  �
&41   � �error(1<<30,0,�mes("NoPrD")) � �close:�
&> �
&H ș "Hourglass_Smash"
&R printing%=�
&\�
&f:
&p� �stop_printing
&z ș "PDriver_AbortJob",job%
&� �#job%
&��
&�:
&�!� �declare_font(font$,flags%)
&� � font$="" �
&�%   ș "PDriver_DeclareFont",0,0,0
&�  �
&�.   ș "PDriver_DeclareFont",0,font$,flags%
&� �
&��
&�:
&�� �set_rectangle
&� rect%!0   = -2
' rect%!4   = -2
' rect%!8   = 1280
' rect%!12  = 1024
'$ trans%!0  = 2^16
'. trans%!4  = 0
'8 trans%!8  = 0
'B trans%!12 = 2^16
'L id%       = 42
'V plot%!0   = 72000
'` plot%!4   = 72000*3
'j col%=&FFFFFF00
't; ș "PDriver_GiveRectangle",id%,rect%,trans%,plot%,col%
'~�
'�:
'�� �print_draw
'�	 � a%
'� a%=b%+3200
'�, ș "ColourTrans_SetGCOL",&FFFFFF00,,0,0
'� ȓ Ȑ 0,0,1280,1024
'� gt%!16  = 0
'� gt%!20  = 0
'� iwt%!16 = 0
'� iwt%!20 = 0
'� pwt%!16 = 0
'� pwt%!20 = 0
( ewt%!16 = 0
(
 ewt%!20 = 0
( ?a%     = 2
( a%?1    = 0
(( a%?2    = 0
(2 a%?3    = 0
(< oldth%  = lineth%
(F lineth% = 2.5*256
(P, ș "ColourTrans_SetGCOL",&FF000000,,0,0
(Z/ ș "Draw_Stroke",iwave%,,iwt%,0,lineth%,a%
(d, ș "ColourTrans_SetGCOL",&0000FF00,,0,0
(n/ ș "Draw_Stroke",ewave%,,ewt%,0,lineth%,a%
(x, ș "ColourTrans_SetGCOL",&00FF0000,,0,0
(�/ ș "Draw_Stroke",pwave%,,pwt%,0,lineth%,a%
(�$ ș "ColourTrans_SetGCOL",0,,0,0
(�. ș "Draw_Stroke",graph%,,gt%,0,lineth%,a%
(�9 ș "ColourTrans_SetFontColours",font%,&FFFFFF00,0,14
(�) ș "Font_Paint",font%,"+",784,10,700
(�) ș "Font_Paint",font%,"-",784,10,200
(�2 ș "Font_Paint",font%,"I",784,1100*ta,iny%*td
(�2 ș "Font_Paint",font%,"E",784,1100*ta,emy%*td
(�2 ș "Font_Paint",font%,"P",784,1100*ta,pyy%*td
(�2 ș "Font_Paint",font%,"^",784,591.5*ta,450*td
(�L title$=$name%+"'s plot for "+�pd%+"-"+�number_to_name(pm%)+"-"+�py%+"."
(�) title$+="  "+$ielapsed%+" days old."
(�B ș "Font_Paint",font%,title$,784,xorig%+100*ta,yorig%+1000*td
) lineth% = oldth%
)�
):
)"<� �difference(day1%,month1%,year1%,day2%,month2%,year2%)
), � a%,c%
)6 a%   = b%+800
)@ c%   = b%+850
)J
 !a%  = 0
)T
 a%!4 = 0
)^
 a%!8 = 0
)h
 a%!12= 0
)r a%!16= day1%
)| a%!20= month1%
)� a%!24= year1%
)�3 ș "XTerritory_ConvertOrdinalsToTime",-1,c%,a%
)�I a=((256^4)*c%?4)+((256^3)*c%?3)+((256^2)*c%?2)+((256^1)*c%?1)+(c%?0)
)�
 !a%  = 0
)�
 a%!4 = 0
)�
 a%!8 = 0
)�
 a%!12= 0
)� a%!16= day2%
)� a%!20= month2%
)� a%!24= year2%
)�2 ș "Territory_ConvertOrdinalsToTime",-1,c%,a%
)�I b=((256^4)*c%?4)+((256^3)*c%?3)+((256^2)*c%?2)+((256^1)*c%?1)+(c%?0)
)�=� ((b-a)/8640000+0.5)
*:
*� �help_request
* b%!12 = b%!8
*& b%!16 = &503
*0 help% = b%+20
*:% help% = �help(b%!32,b%!36,help%)
*D ?help%= 0
*N !b%   = (help%+4-b%)� � 3
*X% ș "Wimp_SendMessage",17,b%,b%!4
*b�
*l:
*v� �help(window%,icon%,to%)
*� Ȏ window% �
*�)   � info%:$to%   = �help_info(icon%)
*�(   � -2:$to%      = �help_bar(icon%)
*�)   � data%:$to%   = �help_data(icon%)
*�%   � main%:$to%   = �mes("HMain")
*�&   � bioinfo%:$to%= �mes("HWOEAB")
*�,   � printer%:$to%= �printer_help(icon%)
*�)   � save%:$to%   = �save_help(icon%)
*�  
*�    � wimp%>218 � icon%<>-1 �
*�      Ȏ topmenu% �
*�:        � bar_menu%:$to%=�bar_menu_help(window%,icon%)
*�<        � plot_menu%:$to%=�plot_menu_help(window%,icon%)
+      �
+   �
+ �
+ =to%+�($to%)
+*:
+4� �help_info(icon%)
+>=�mes("HInfo")
+H:
+R� �help_bar(icon%)
+\=�mes("HBar")
+f:
+p� �printer_help(icon%)
+z	 � a$
+� a$=�mes("HPrint")
+� Ȏ icon% �
+�   � 1:a$=�mes("HPrint1")
+�   � 4:a$=�mes("HPrint4")
+�   � 5:a$=�mes("HPrint5")
+� �
+�=a$
+�:
+�� �save_help(icon%)
+�	 � a$
+� a$=�mes("HSave")
+� Ȏ icon% �
+�   � 0:a$=�mes("HSave0")
,   � 2:a$=�mes("HSave2")
,   � 3:a$=�mes("HSave3")
, �
,$=a$
,.:
,8#� �bar_menu_help(window%,icon%)
,B2 ș "Wimp_GetMenuState",1,b%+900,window%,icon%
,L Ȏ b%!900 �
,V!   � 0:� -1:a$=�mes("HBmen0")
,`
   � 1
,j     Ȏ b%!904 �
,t!       � -1:a$=�mes("HBmen1")
,~        � 1:a$=�mes("HOmen1")
,�       � 0
,�         Ȏ b%!908 �
,�%           � -1:a$=�mes("HOmen0")
,�&          :a$=�help_width(b%!908)
,�         �
,�
     �
,�   � 2:a$=�mes("HBmen2")
,�   � 3:a$=�mes("HBmen3")
,� �
,�=a$
,�:
,�$� �plot_menu_help(window%,icon%)
-	 � a$
-
2 ș "Wimp_GetMenuState",1,b%+900,window%,icon%
- Ȏ b%!900 �
-
   � 0
-(     Ȏ b%!904 �
-2!       � -1:a$=�mes("HPmen0")
-<        � 0:a$=�mes("HSmen0")
-F        � 1:a$=�mes("HSmen1")
-P        � 2:a$=�mes("HSmen2")
-Z
     �
-d   � 1:
-n     Ȏ b%!904 �
-x!       � -1:a$=�mes("HPmen1")
-�        � 1:a$=�mes("HOmen1")
-�       � 0
-�         Ȏ b%!908 �
-�%           � -1:a$=�mes("HOmen0")
-�&          :a$=�help_width(b%!908)
-�         �
-�
     �
-�   � 2:a$=�mes("HPmen2")
-� �
-�=a$
-�:
-�� �help_data(icon%)
-�	 � a$
. a$=�mes("HData")
.B � (icon%>4 � icon%<17) � icon%>19 � a$=�mes("HData"+�(icon%))
.=a$
.":
.,� �help_width(item%)
.6	 � a$
.@ Ȏ item% �
.J;   � 0,1,2,3,4:a$=�mes("HWmen0�"+�mes("Width"+� item%))
.T   � 5:a$=�mes("HWmen5")
.^ �
.h=a$
.r:
.|� �get_pname
.�* ș "XPDriver_Info" � ,,,,name$;flags%
.�% � (flags% � 1)<>0 � name$="None"
.�
=name$
.�:
.�� �mes(mess$)
.� token$=�split(mess$)
.�M ș "MessageTrans_Lookup",mes_file%,token$,buf%,buf_size%,s$(1) � ,,,len%
.� buf%?len%=13
.�
=$buf%
.�:
.�� �split(str$)
.�	 � i%
.� i%   =  0
/ s$() =  ""
/ ȕ str$<>""
/   col%   = �str$+"�","�")
/&   s$(i%) = �str$,col%-1)
/0   str$   = �str$,col%+1)
/:   i%    += 1
/D �
/N
=s$(0)
/X:
/b� �menu_warning
/l Ȏ b%!20 �
/v   � save%
/�     Ȏ b%!36 �
/�       � 0:� graph
/�         saving%   = 0
/�#         $saveicon%= "file_aff"
/�"         �set_name("DrawFile")
/�7         ș "Wimp_CreateSubMenu",,save%,b%!24,b%!28
/�       � 1:� csv
/�         saving%   = 1
/�#         $saveicon%= "file_c28"
/�#         �set_name("GraphFile")
/�7         ș "Wimp_CreateSubMenu",,save%,b%!24,b%!28
/�       � 2:� csv
/�         saving%   = 2
0#         $saveicon%= "file_dfe"
0!         �set_name("CSVFile")
07         ș "Wimp_CreateSubMenu",,save%,b%!24,b%!28
0 
     �
0* �
04�
0>:
0H� �set_name(leaf$)
0R � a$,pathname%,ptr%
0\ a$=$saveas%
0f pathname%=�
0p3 � �a$,"$") � �a$,".") � �a$,"#") � pathname%=�
0z! � �a$,"<Wimp") � pathname%=0
0� � � pathname% �
0�   $saveas%=leaf$
0�   �
0� �
0� ptr%=� a$
0� ȕ �a$,ptr%,1)<>"."
0�   ptr%-=1
0� �
0� a$=�a$,ptr%)
0� a$+=leaf$
0� $saveas%=a$
0��
0�:
1� �save_return
1 a$=�get_leaf($saveas%)
1 � a$=$saveas% �
1$   �show_menu(-1,0,0)
1.   � (1<<30)+1,�mes("ToSD")
18 �
1B Ȏ saving% �
1L   � 0:�save_draw($saveas%)
1V    � 1:�save_graph($saveas%)
1`   � 2:�save_csv($saveas%)
1j �
1t �show_menu(-1,0,0)
1~�
1�:
1�� �get_leaf(a$)
1� � ptr%
1� ȕ �a$,".")<>0
1�   ptr%=�a$,".")
1�   a$=�a$,ptr%+1)
1� �
1�=a$
1�:
1�� �ram_trans
1� � x%,ptr%,len%
1� x%=b%+300
2 ș "Hourglass_On"
2
 Ȏ saving% �
2
   � 0
2     end% = �build_draw(x%)
2(     len% = end%-x%
22
   � 1
2<     ptr% = �graph_head(x%)
2F#     len% = �build_csv(x%+ptr%)
2P     len%+= ptr%
2Z
   � 2
2d     len%=�build_csv(x%)
2n �
2x5 ș "Wimp_TransferBlock",tsk%,x%,b%!4,b%!20,b%!24
2� !b%   = 28
2� b%!12 = b%!8
2� b%!8  = 0
2� b%!16 = 7
2� b%!20 = b%!20
2� b%!24 = len%
2�% ș "Wimp_SendMessage",17,b%,b%!4
2� ș "Hourglass_Off"
2��
2�:
2�� �graph_head(start%)
2� � a$,ptr%
2� � ptr%=0 � 962
3    start%?ptr%=grahead%?ptr%
3 �
3 start%+=ptr%
3" a$=" "+$name%+�10
3, $start%=a$
36=ptr%+� a$
3@:
3J� �build_csv(start%)
3T � ptr%,a$,b$,a%,x
3^ ș "Hourglass_On"
3h d%  = elapsed%-12
3r
 i%  = 50
3| ptr%= 0
3�3 a$  = "x,Intelectual,Emotional,Physical"+�(10)
3� a%  = � a$
3� $(start%+ptr%)=a$
3�
 ptr%+=a%
3� � x=100 � 1100 � 16
3�   a$ = �(x)+","
3�"   b$ = �(�(2*�/33*(d%+x/i%)))
3�   a$+=b$+","
3�"   b$ = �(�(2*�/28*(d%+x/i%)))
3�   a$+=b$+","
3�"   b$ = �(�(2*�/24*(d%+x/i%)))
3�   a$+=b$+�(10)
3�   a%=� a$
4   $(start%+ptr%)=a$
4   ptr%+=a%
4 �
4& ș "Hourglass_Off"
40=ptr%-1
4::
4D� �save_csv(file$)
4N � x%,len%
4X x%=b%+100
4b len%=�build_csv(x%)
4l: ș "XOS_File",10,file$,&DFE,,x%,x%+len% � err%;flags%
4v � (flags% � 1)<>0 �
4�   !err%=(1<<30)+1
4�!   ș "OS_GenerateError",err%
4� �
4��
4�:
4�� �save_graph(file$)
4� � x%,len%,ptr%
4� x%=b%+100
4� ptr%=�graph_head(x%)
4� len%=�build_csv(x%+ptr%)
4� len%+=ptr%
4�: ș "XOS_File",10,file$,&c28,,x%,x%+len% � err%;flags%
4� � (flags% � 1)<>0 �
5   !err%=(1<<30)+1
5!   ș "OS_GenerateError",err%
5 �
5 �
5*:
54� �save_draw(file$)
5> � x%,len%,ptr%,draw%
5H draw%=b%+300
5R end%=�build_draw(draw%)
5\; ș "XOS_File",10,file$,&aff,,b%+300,end% � err%;flags%
5f � (flags% � 1)<>0 �
5p   !err%=(1<<30)+1
5z!   ș "OS_GenerateError",err%
5� �
5��
5�:
5�� �build_draw(draw%)
5� $draw%     = "Draw"
5� draw%!4    = 201
5� draw%!8    = 0
5�  $(draw%+12)= "Biorhythms  "
5� draw%!24   = 0
5� draw%!28   = 0
5� draw%!32   = 1280*256
5� draw%!36   = 1024*256
5� end%       = draw%+40
6# end%       = �font_table(end%)
69 end%       = �path(end%,-1,&FF000000,lineth%,iwave%)
69 end%       = �path(end%,-1,&00FF0000,lineth%,pwave%)
6$9 end%       = �path(end%,-1,&0000FF00,lineth%,ewave%)
6.+ end%       = �path(end%,-1,0,0,graph%)
685 end%       = �text(end%,"+",1,14,10*256,700*256)
6B5 end%       = �text(end%,"-",1,14,10*256,200*256)
6L8 end%       = �text(end%,"I",1,14,1100*256,iny%*256)
6V8 end%       = �text(end%,"E",1,14,1100*256,emy%*256)
6`8 end%       = �text(end%,"P",1,14,1100*256,pyy%*256)
6j8 end%       = �text(end%,"^",1,14,591.5*256,450*256)
6tM text$ = $name%+"'s plot for "+�pd%+"-"+�number_to_name(pm%)+"-"+�py%+"."
6~- text$+="  "+$ielapsed%+" days old."+�(0)
6�9 end%       = �text(end%,text$,1,14,100*256,1000*256)
6�	=end%
6�:
6�� �font_table(ptr%)
6�	 � a%
6� a%     = 8
6� !ptr%  = 0
6�4 a%    += �add_font(ptr%+a%,1,"Homerton.Medium")
6� ptr%!4 = a%
6�=ptr%+a%
6�:
6� � �add_font(ptr%,num%,font$)
7 ?ptr%=num%
7
 font$+=�(0)
7 ȕ (1+�font$)� 4 <>0
7   font$+=�(0)
7( �
72 $(ptr%+1)=font$
7<=(�font$)+1
7F:
7P*� �path(ptr%,fill%,line%,wid%,lblock%)
7Z � co%,type%,off%
7d !ptr%   = 2
7n ptr%!8  = 0
7x ptr%!12 = 0
7� ptr%!16 = 1280*256
7� ptr%!20 = 1024*256
7� ptr%!24 = fill%
7� ptr%!28 = line%
7� ptr%!32 = wid%
7� ptr%!36 = 0
7� off%    = 0
7� type%   = -1
7� ȕ type%<>0
7�(   type%           = !(lblock%+off%)
7�   !(40+ptr%+off%) = type%
7�   Ȏ type% �
7�     � 0
8       � end of path
8       co%=0
8     � 2
8"       � move
8,3       !(40+ptr%+off%+4) = !(lblock%+off%+4)*ta
863       !(40+ptr%+off%+8) = !(lblock%+off%+8)*td
8@       co%=2
8J     � 6
8T       � bezier
8^4       !(40+ptr%+off%+4)  = !(lblock%+off%+4)*ta
8h4       !(40+ptr%+off%+8)  = !(lblock%+off%+8)*td
8r5       !(40+ptr%+off%+12) = !(lblock%+off%+12)*ta
8|5       !(40+ptr%+off%+16) = !(lblock%+off%+16)*td
8�5       !(40+ptr%+off%+20) = !(lblock%+off%+20)*ta
8�5       !(40+ptr%+off%+24) = !(lblock%+off%+24)*td
8�       co%=6
8�     � 8
8�       � line
8�3       !(40+ptr%+off%+4) = !(lblock%+off%+4)*ta
8�3       !(40+ptr%+off%+8) = !(lblock%+off%+8)*td
8�       co%=2
8�   �
8�   off%+=(co%*4)+4
8� �
8�, � type%<>0 a=�error(1<<30,0,"Bad path")
8� ptr%!4=40+off%
9=ptr%+ptr%!4
9:
9'� �text(ptr%,text$,font%,point,x,y)
9&	 � a%
90	 a%=0
9: ptr%!0 = 1
9D ptr%!4 = -1
9N ptr%!8 = 0
9X ptr%!12= 0
9b ptr%!16= 1280*256
9l ptr%!20= 1024*256
9v ptr%!24= 0
9� ptr%!28= &FFFFFF00
9� ptr%!32= font%
9� ptr%!36= point*256*2.5
9� ptr%!40= point*256*2.5
9� ptr%!44= x*ta
9� ptr%!48= y*td
9�
 a%=52
9� ȕ (�text$)� 4 <>0
9�   text$+=�0
9� �
9� $(ptr%+a%)=text$
9� a%+=�text$
9� ptr%!4=a%
:=ptr%+a%
::
:� �save_opts
:  � file%,x,sel%
:*! file%=�("<Bio$Dir>.Options")
:4 � x=0 � 5
:>-   � �ticked(width_menu%,x) = -1 � sel%=x
:H �
:R �#file%,� sel%
:\ �#file%,$width%
:f �#file%
:p�
:z:
:�� �error(err%,erl%,rep$)
:� ș "Hourglass_Smash"
:� � printing% �
:�!   ș "PDriver_AbortJob",job%
:�
   �#job%
:�   err%=1<<30
:� �
:� Ȏ err% �
:�   � 1<<30
:�     err_string$= ""
:�     box%       = %11
:�   � (1<<30)+1
:�     err_string$= ""
;     box%       = %01
;   � (1<<30)+2
;     err_string$= ""
;$     box%       = %10
;.   
;8'     err_string$=" at line "+� erl%
;B     box%       = %10
;L �
;V  $(b%+4)=rep$+err_string$+�0
;`9 ș "Wimp_ReportError",b%,box%,tsk_name$ � ,responce%
;j=(responce%=2)
�

00000000  0d 00 0a 1e f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  20 21 42 69 6f 72 28 68  29 79 74 68 6d 73 0d 00  | !Bior(h)ythms..|
00000020  14 1a f4 20 a9 20 4d 61  72 6b 20 48 61 6d 6d 6f  |... . Mark Hammo|
00000030  6e 64 2c 20 31 39 39 36  0d 00 1e 1b f4 20 43 6f  |nd, 1996..... Co|
00000040  64 65 64 20 62 79 20 4d  61 72 6b 20 48 61 6d 6d  |ded by Mark Hamm|
00000050  6f 6e 64 0d 00 28 05 3a  0d 00 32 1e ee 20 85 20  |ond..(.:..2.. . |
00000060  ef 34 3a f6 3a f1 20 22  20 61 74 20 6c 69 6e 65  |.4:.:. " at line|
00000070  20 22 3b 9e 3a e0 0d 00  3c 09 f2 76 61 72 73 0d  | ";.:...<..vars.|
00000080  00 46 0f f2 69 6e 69 74  69 61 6c 69 73 65 0d 00  |.F..initialise..|
00000090  50 23 ee 20 85 20 e7 20  a4 65 72 72 6f 72 28 9f  |P#. . . .error(.|
000000a0  2c 9e 2c f6 24 29 20 8c  20 f2 63 6c 6f 73 65 3a  |,.,.$) . .close:|
000000b0  e0 0d 00 5a 05 3a 0d 00  64 05 f5 0d 00 6e 0b 20  |...Z.:..d....n. |
000000c0  20 f2 70 6f 6c 6c 0d 00  78 0b fd 20 71 75 69 74  | .poll..x.. quit|
000000d0  25 0d 00 82 05 3a 0d 00  8c 0a f2 63 6c 6f 73 65  |%....:.....close|
000000e0  0d 00 96 05 e0 0d 00 a0  05 3a 0d 00 aa 0b dd 20  |.........:..... |
000000f0  f2 76 61 72 73 0d 00 b4  10 20 de 20 62 25 20 37  |.vars.... . b% 7|
00000100  2a 31 30 32 34 0d 00 be  11 20 de 20 77 69 6e 73  |*1024.... . wins|
00000110  25 20 32 30 30 30 0d 00  c8 10 20 de 20 6d 65 6e  |% 2000.... . men|
00000120  73 25 20 38 30 30 0d 00  d2 19 20 de 20 67 72 61  |s% 800.... . gra|
00000130  70 68 25 20 35 35 36 2c  20 67 74 25 20 32 34 0d  |ph% 556, gt% 24.|
00000140  00 dc 1d 20 de 20 69 77  61 76 65 25 20 32 2a 31  |... . iwave% 2*1|
00000150  30 32 34 2c 20 69 77 74  25 20 32 34 0d 00 e6 1d  |024, iwt% 24....|
00000160  20 de 20 70 77 61 76 65  25 20 32 2a 31 30 32 34  | . pwave% 2*1024|
00000170  2c 20 70 77 74 25 20 32  34 0d 00 f0 1d 20 de 20  |, pwt% 24.... . |
00000180  65 77 61 76 65 25 20 32  2a 31 30 32 34 2c 20 65  |ewave% 2*1024, e|
00000190  77 74 25 20 32 34 0d 00  fa 13 20 de 20 67 72 61  |wt% 24.... . gra|
000001a0  68 65 61 64 25 20 39 36  34 0d 01 04 1c 20 de 20  |head% 964.... . |
000001b0  6d 6f 6e 74 68 73 24 28  31 32 29 2c 20 64 61 79  |months$(12), day|
000001c0  73 24 28 37 29 0d 01 0e  1a 20 77 69 6e 65 6e 64  |s$(7).... winend|
000001d0  25 20 20 3d 20 77 69 6e  73 25 2b 32 30 30 30 0d  |%  = wins%+2000.|
000001e0  01 18 15 20 6d 65 6e 75  70 74 72 25 20 3d 20 6d  |... menuptr% = m|
000001f0  65 6e 73 25 0d 01 22 14  20 6d 61 78 25 20 20 20  |ens%..". max%   |
00000200  20 20 3d 20 35 31 34 34  0d 01 2c 13 20 62 75 66  |  = 5144..,. buf|
00000210  5f 73 69 7a 65 25 3d 20  34 30 30 0d 01 36 11 20  |_size%= 400..6. |
00000220  70 72 69 6e 74 69 6e 67  25 3d 20 a3 0d 01 40 12  |printing%= ...@.|
00000230  20 73 63 61 6c 65 25 20  20 20 3d 20 32 35 0d 01  | scale%   = 25..|
00000240  4a 32 20 de 20 6d 65 73  5f 66 69 6c 65 25 20 31  |J2 . mes_file% 1|
00000250  36 2c 6d 65 6d 25 20 6d  61 78 25 2c 62 75 66 25  |6,mem% max%,buf%|
00000260  20 62 75 66 5f 73 69 7a  65 25 2c 73 24 28 34 29  | buf_size%,s$(4)|
00000270  0d 01 54 17 20 61 73 63  74 73 6b 25 3d 20 26 34  |..T. asctsk%= &4|
00000280  42 35 33 34 31 35 34 0d  01 5e 0f 20 71 75 69 74  |B534154..^. quit|
00000290  25 20 20 3d 20 a3 0d 01  68 08 20 f7 2b 31 0d 01  |%  = ...h. .+1..|
000002a0  72 41 20 dc 20 4a 61 6e  75 61 72 79 2c 46 65 62  |rA . January,Feb|
000002b0  75 61 72 79 2c 4d 61 72  63 68 2c 41 70 72 69 6c  |uary,March,April|
000002c0  2c 4d 61 79 2c 4a 75 6e  65 2c 4a 75 6c 79 2c 41  |,May,June,July,A|
000002d0  75 67 75 73 74 2c 53 65  70 74 65 6d 62 65 72 0d  |ugust,September.|
000002e0  01 7c 20 20 dc 20 4f 63  74 6f 62 65 72 2c 4e 6f  |.|  . October,No|
000002f0  76 65 6d 62 65 72 2c 44  65 63 65 6d 62 65 72 0d  |vember,December.|
00000300  01 86 12 20 e3 20 70 74  72 25 3d 31 20 b8 20 31  |... . ptr%=1 . 1|
00000310  32 0d 01 90 16 20 20 20  f3 20 6d 6f 6e 74 68 73  |2....   . months|
00000320  24 28 70 74 72 25 29 0d  01 9a 06 20 ed 0d 01 a4  |$(ptr%).... ....|
00000330  08 20 f7 2b 31 0d 01 ae  3f 20 dc 20 53 75 6e 64  |. .+1...? . Sund|
00000340  61 79 2c 4d 6f 6e 64 61  79 2c 54 75 65 73 64 61  |ay,Monday,Tuesda|
00000350  79 2c 57 65 64 6e 65 73  64 61 79 2c 54 68 75 72  |y,Wednesday,Thur|
00000360  73 64 61 79 2c 46 72 69  64 61 79 2c 53 61 74 75  |sday,Friday,Satu|
00000370  72 64 61 79 0d 01 b8 11  20 e3 20 70 74 72 25 3d  |rday.... . ptr%=|
00000380  31 20 b8 20 37 0d 01 c2  14 20 20 20 f3 20 64 61  |1 . 7....   . da|
00000390  79 73 24 28 70 74 72 25  29 0d 01 cc 06 20 ed 0d  |ys$(ptr%).... ..|
000003a0  01 d6 0d 20 74 61 20 3d  20 30 2e 38 0d 01 e0 0b  |... ta = 0.8....|
000003b0  20 74 62 20 3d 20 30 0d  01 ea 0b 20 74 63 20 3d  | tb = 0.... tc =|
000003c0  20 30 0d 01 f4 0d 20 74  64 20 3d 20 30 2e 38 0d  | 0.... td = 0.8.|
000003d0  01 fe 20 20 f2 73 65 74  5f 74 72 61 6e 73 28 74  |..  .set_trans(t|
000003e0  61 2c 74 62 2c 74 63 2c  74 64 2c 67 74 25 29 0d  |a,tb,tc,td,gt%).|
000003f0  02 08 21 20 f2 73 65 74  5f 74 72 61 6e 73 28 74  |..! .set_trans(t|
00000400  61 2c 74 62 2c 74 63 2c  74 64 2c 69 77 74 25 29  |a,tb,tc,td,iwt%)|
00000410  0d 02 12 21 20 f2 73 65  74 5f 74 72 61 6e 73 28  |...! .set_trans(|
00000420  74 61 2c 74 62 2c 74 63  2c 74 64 2c 70 77 74 25  |ta,tb,tc,td,pwt%|
00000430  29 0d 02 1c 21 20 f2 73  65 74 5f 74 72 61 6e 73  |)...! .set_trans|
00000440  28 74 61 2c 74 62 2c 74  63 2c 74 64 2c 65 77 74  |(ta,tb,tc,td,ewt|
00000450  25 29 0d 02 26 05 e1 0d  02 30 05 3a 0d 02 3a 1e  |%)..&....0.:..:.|
00000460  dd 20 f2 73 65 74 5f 74  72 61 6e 73 28 61 2c 62  |. .set_trans(a,b|
00000470  2c 63 2c 64 2c 70 74 72  25 29 0d 02 44 15 20 70  |,c,d,ptr%)..D. p|
00000480  74 72 25 21 30 20 20 3d  20 61 2a 32 5e 31 36 0d  |tr%!0  = a*2^16.|
00000490  02 4e 15 20 70 74 72 25  21 34 20 20 3d 20 62 2a  |.N. ptr%!4  = b*|
000004a0  32 5e 31 36 0d 02 58 15  20 70 74 72 25 21 38 20  |2^16..X. ptr%!8 |
000004b0  20 3d 20 63 2a 32 5e 31  36 0d 02 62 15 20 70 74  | = c*2^16..b. pt|
000004c0  72 25 21 31 32 20 3d 20  64 2a 32 5e 31 36 0d 02  |r%!12 = d*2^16..|
000004d0  6c 10 20 70 74 72 25 21  31 36 20 3d 20 30 0d 02  |l. ptr%!16 = 0..|
000004e0  76 10 20 70 74 72 25 21  32 30 20 3d 20 30 0d 02  |v. ptr%!20 = 0..|
000004f0  80 05 e1 0d 02 8a 05 3a  0d 02 94 11 dd 20 f2 69  |.......:..... .i|
00000500  6e 69 74 69 61 6c 69 73  65 0d 02 9e 3d 20 f2 6f  |nitialise...= .o|
00000510  70 65 6e 5f 6d 65 73 5f  66 69 6c 65 28 6d 65 73  |pen_mes_file(mes|
00000520  5f 66 69 6c 65 25 2c 22  3c 42 69 6f 24 44 69 72  |_file%,"<Bio$Dir|
00000530  3e 2e 4d 65 73 73 61 67  65 73 22 2c 6d 65 6d 25  |>.Messages",mem%|
00000540  2c 6d 61 78 25 29 0d 02  a8 21 20 74 73 6b 5f 6e  |,max%)...! tsk_n|
00000550  61 6d 65 24 20 3d 20 a4  6d 65 73 28 22 54 61 73  |ame$ = .mes("Tas|
00000560  6b 4e 61 6d 65 22 29 0d  02 b2 20 20 76 65 72 73  |kName")...  vers|
00000570  69 6f 6e 24 20 20 3d 20  a4 6d 65 73 28 22 56 65  |ion$  = .mes("Ve|
00000580  72 73 69 6f 6e 22 29 0d  02 bc 29 20 62 25 21 30  |rsion")...) b%!0|
00000590  20 3d 20 32 20 20 20 20  20 20 3a f4 20 4d 65 73  | = 2      :. Mes|
000005a0  73 61 67 65 5f 44 61 74  61 53 61 76 65 41 63 6b  |sage_DataSaveAck|
000005b0  0d 02 c6 28 20 62 25 21  34 20 3d 20 26 35 30 32  |...( b%!4 = &502|
000005c0  20 20 20 3a f4 20 4d 65  73 73 61 67 65 5f 48 65  |   :. Message_He|
000005d0  6c 70 52 65 71 75 65 73  0d 02 d0 29 20 62 25 21  |lpReques...) b%!|
000005e0  38 20 3d 20 26 34 30 30  43 30 20 3a f4 20 4d 65  |8 = &400C0 :. Me|
000005f0  73 73 67 61 65 5f 4d 65  6e 75 57 61 72 6e 69 6e  |ssgae_MenuWarnin|
00000600  67 0d 02 da 28 20 62 25  21 31 32 3d 20 26 34 30  |g...( b%!12= &40|
00000610  30 43 31 20 3a f4 20 4d  65 73 73 61 67 65 5f 4d  |0C1 :. Message_M|
00000620  6f 64 65 43 68 6e 61 67  65 0d 02 e4 28 20 62 25  |odeChnage...( b%|
00000630  21 31 36 3d 20 26 38 30  31 34 37 20 3a f4 20 4d  |!16= &80147 :. M|
00000640  65 73 73 61 67 65 5f 53  65 74 50 72 69 6e 74 65  |essage_SetPrinte|
00000650  72 0d 02 ee 26 20 62 25  21 32 30 3d 20 26 36 20  |r...& b%!20= &6 |
00000660  20 20 20 20 3a f4 20 4d  65 73 73 61 67 65 5f 52  |    :. Message_R|
00000670  61 6d 46 65 74 63 68 0d  02 f8 0d 20 62 25 21 32  |amFetch.... b%!2|
00000680  34 3d 20 30 0d 03 02 3f  20 c8 99 20 22 57 69 6d  |4= 0...? .. "Wim|
00000690  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 33 30  |p_Initialise",30|
000006a0  30 2c 61 73 63 74 73 6b  25 2c 74 73 6b 5f 6e 61  |0,asctsk%,tsk_na|
000006b0  6d 65 24 2c 62 25 20 b8  20 77 69 6d 70 25 2c 74  |me$,b% . wimp%,t|
000006c0  73 6b 25 0d 03 0c 25 20  62 61 72 5f 69 63 6f 6e  |sk%...% bar_icon|
000006d0  25 3d a4 69 63 6f 6e 28  2d 31 2c 22 21 42 69 6f  |%=.icon(-1,"!Bio|
000006e0  72 79 74 68 6d 73 22 29  0d 03 16 14 20 f2 6c 6f  |rythms").... .lo|
000006f0  61 64 5f 74 65 6d 70 6c  61 74 65 73 0d 03 20 10  |ad_templates.. .|
00000700  20 f2 77 69 64 74 68 5f  6d 65 6e 75 0d 03 2a 0e  | .width_menu..*.|
00000710  20 f2 6f 70 74 5f 6d 65  6e 75 0d 03 34 0e 20 f2  | .opt_menu..4. .|
00000720  62 61 72 5f 6d 65 6e 75  0d 03 3e 0f 20 f2 73 61  |bar_menu..>. .sa|
00000730  76 65 5f 6d 65 6e 75 0d  03 48 0f 20 f2 70 6c 6f  |ve_menu..H. .plo|
00000740  74 5f 6d 65 6e 75 0d 03  52 2d 20 f2 67 65 74 5f  |t_menu..R- .get_|
00000750  66 6f 6e 74 28 22 48 6f  6d 65 72 74 6f 6e 2e 4d  |font("Homerton.M|
00000760  65 64 69 75 6d 22 2c 31  34 2c 31 34 2c 66 6f 6e  |edium",14,14,fon|
00000770  74 25 29 0d 03 5c 39 20  c8 99 20 22 43 6f 6c 6f  |t%)..\9 .. "Colo|
00000780  75 72 54 72 61 6e 73 5f  53 65 74 46 6f 6e 74 43  |urTrans_SetFontC|
00000790  6f 6c 6f 75 72 73 22 2c  66 6f 6e 74 25 2c 26 46  |olours",font%,&F|
000007a0  30 46 30 46 30 30 30 2c  30 2c 31 34 0d 03 66 34  |0F0F000,0,14..f4|
000007b0  20 c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 26 46  | .. "OS_File",&F|
000007c0  46 2c 22 3c 42 69 6f 24  44 69 72 3e 2e 47 72 61  |F,"<Bio$Dir>.Gra|
000007d0  70 68 48 65 61 64 22 2c  67 72 61 68 65 61 64 25  |phHead",grahead%|
000007e0  0d 03 70 2e 20 c8 99 20  22 4f 53 5f 46 69 6c 65  |..p. .. "OS_File|
000007f0  22 2c 26 46 46 2c 22 3c  42 69 6f 24 44 69 72 3e  |",&FF,"<Bio$Dir>|
00000800  2e 47 72 61 70 68 22 2c  67 72 61 70 68 25 0d 03  |.Graph",graph%..|
00000810  7a 25 20 f2 72 65 61 64  5f 64 61 74 65 28 63 64  |z% .read_date(cd|
00000820  61 79 25 2c 63 6d 6f 6e  74 68 25 2c 63 79 65 61  |ay%,cmonth%,cyea|
00000830  72 25 29 0d 03 84 13 20  f2 64 65 66 61 75 6c 74  |r%).... .default|
00000840  5f 64 61 74 65 73 0d 03  8e 1c 20 73 5f 64 72 61  |_dates.... s_dra|
00000850  67 67 69 6e 67 25 3d a4  73 6f 6c 69 64 5f 64 72  |gging%=.solid_dr|
00000860  61 67 0d 03 98 0f 20 f2  6c 6f 61 64 5f 6f 70 74  |ag.... .load_opt|
00000870  73 0d 03 a2 05 e1 0d 03  ac 05 3a 0d 03 b6 2f dd  |s.........:.../.|
00000880  20 f2 6f 70 65 6e 5f 6d  65 73 5f 66 69 6c 65 28  | .open_mes_file(|
00000890  66 25 2c 6d 65 73 66 69  6c 65 24 2c 62 75 66 66  |f%,mesfile$,buff|
000008a0  65 72 25 2c 73 69 7a 65  25 29 0d 03 c0 37 20 c8  |er%,size%)...7 .|
000008b0  99 20 22 4d 65 73 73 61  67 65 54 72 61 6e 73 5f  |. "MessageTrans_|
000008c0  46 69 6c 65 49 6e 66 6f  22 2c 2c 6d 65 73 66 69  |FileInfo",,mesfi|
000008d0  6c 65 24 20 b8 20 66 6c  61 67 25 2c 2c 6c 65 6e  |le$ . flag%,,len|
000008e0  25 0d 03 ca 12 20 e7 20  66 6c 61 67 25 20 80 20  |%.... . flag% . |
000008f0  31 20 8c 0d 03 d4 12 20  20 20 6c 65 6e 25 20 20  |1 .....   len%  |
00000900  20 20 3d 20 30 0d 03 de  12 20 20 20 62 75 66 66  |  = 0....   buff|
00000910  65 72 25 20 3d 20 30 0d  03 e8 07 20 20 cc 0d 03  |er% = 0....  ...|
00000920  f2 15 20 20 20 62 75 66  66 65 72 25 20 3d 20 6d  |..   buffer% = m|
00000930  65 6d 25 0d 03 fc 06 20  cd 0d 04 06 2c 20 e7 20  |em%.... ...., . |
00000940  6c 65 6e 25 3e 73 69 7a  65 25 20 85 20 31 2c 22  |len%>size% . 1,"|
00000950  50 6c 65 61 73 65 20 69  6e 63 72 65 61 73 65 20  |Please increase |
00000960  6d 61 78 25 22 0d 04 10  33 20 c8 99 20 22 4d 65  |max%"...3 .. "Me|
00000970  73 73 61 67 65 54 72 61  6e 73 5f 4f 70 65 6e 46  |ssageTrans_OpenF|
00000980  69 6c 65 22 2c 66 25 2c  6d 65 73 66 69 6c 65 24  |ile",f%,mesfile$|
00000990  2c 62 75 66 66 65 72 25  0d 04 1a 05 e1 0d 04 24  |,buffer%.......$|
000009a0  05 3a 0d 04 2e 16 dd 20  a4 69 63 6f 6e 28 77 69  |.:..... .icon(wi|
000009b0  6e 25 2c 73 70 72 24 29  0d 04 38 11 20 ea 20 63  |n%,spr$)..8. . c|
000009c0  25 2c 68 61 6e 64 6c 65  25 0d 04 42 0e 20 63 25  |%,handle%..B. c%|
000009d0  3d 62 25 2b 39 30 30 0d  04 4c 11 20 63 25 21 30  |=b%+900..L. c%!0|
000009e0  20 20 3d 20 77 69 6e 25  0d 04 56 0e 20 63 25 21  |  = win%..V. c%!|
000009f0  34 20 20 3d 20 30 0d 04  60 0e 20 63 25 21 38 20  |4  = 0..`. c%!8 |
00000a00  20 3d 20 30 0d 04 6a 0f  20 63 25 21 31 32 20 3d  | = 0..j. c%!12 =|
00000a10  20 36 38 0d 04 74 0f 20  63 25 21 31 36 20 3d 20  | 68..t. c%!16 = |
00000a20  36 38 0d 04 7e 12 20 63  25 21 32 30 20 3d 20 26  |68..~. c%!20 = &|
00000a30  33 30 30 32 0d 04 88 14  20 24 28 63 25 2b 32 34  |3002.... $(c%+24|
00000a40  29 20 3d 20 73 70 72 24  0d 04 92 27 20 c8 99 20  |) = spr$...' .. |
00000a50  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
00000a60  22 2c 2c 63 25 20 b8 20  68 61 6e 64 6c 65 25 0d  |",,c% . handle%.|
00000a70  04 9c 0c 3d 68 61 6e 64  6c 65 25 0d 04 a6 05 3a  |...=handle%....:|
00000a80  0d 04 b0 15 dd 20 f2 6c  6f 61 64 5f 74 65 6d 70  |..... .load_temp|
00000a90  6c 61 74 65 73 0d 04 ba  32 20 c8 99 20 22 57 69  |lates...2 .. "Wi|
00000aa0  6d 70 5f 4f 70 65 6e 54  65 6d 70 6c 61 74 65 22  |mp_OpenTemplate"|
00000ab0  2c 2c 22 3c 42 69 6f 24  44 69 72 3e 2e 54 65 6d  |,,"<Bio$Dir>.Tem|
00000ac0  70 6c 61 74 65 73 22 0d  04 c4 43 20 c8 99 20 22  |plates"...C .. "|
00000ad0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000ae0  65 22 2c 2c 62 25 2c 77  69 6e 73 25 2c 77 69 6e  |e",,b%,wins%,win|
00000af0  65 6e 64 25 2c 2d 31 2c  22 49 6e 66 6f 22 2c 30  |end%,-1,"Info",0|
00000b00  20 b8 20 2c 2c 77 69 6e  73 25 0d 04 ce 27 20 c8  | . ,,wins%...' .|
00000b10  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00000b20  6e 64 6f 77 22 2c 2c 62  25 20 b8 20 69 6e 66 6f  |ndow",,b% . info|
00000b30  25 0d 04 d8 21 20 76 65  72 73 69 6f 6e 25 20 20  |%...! version%  |
00000b40  3d 20 21 28 62 25 2b 38  38 2b 33 32 2a 34 2b 32  |= !(b%+88+32*4+2|
00000b50  30 29 0d 04 e2 19 20 24  76 65 72 73 69 6f 6e 25  |0).... $version%|
00000b60  20 3d 20 76 65 72 73 69  6f 6e 24 0d 04 ec 43 20  | = version$...C |
00000b70  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
00000b80  70 6c 61 74 65 22 2c 2c  62 25 2c 77 69 6e 73 25  |plate",,b%,wins%|
00000b90  2c 77 69 6e 65 6e 64 25  2c 2d 31 2c 22 44 61 74  |,winend%,-1,"Dat|
00000ba0  61 22 2c 30 20 b8 20 2c  2c 77 69 6e 73 25 0d 04  |a",0 . ,,wins%..|
00000bb0  f6 27 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.' .. "Wimp_Crea|
00000bc0  74 65 57 69 6e 64 6f 77  22 2c 2c 62 25 20 b8 20  |teWindow",,b% . |
00000bd0  64 61 74 61 25 0d 05 00  43 20 c8 99 20 22 57 69  |data%...C .. "Wi|
00000be0  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000bf0  2c 2c 62 25 2c 77 69 6e  73 25 2c 77 69 6e 65 6e  |,,b%,wins%,winen|
00000c00  64 25 2c 2d 31 2c 22 4d  61 69 6e 22 2c 30 20 b8  |d%,-1,"Main",0 .|
00000c10  20 2c 2c 77 69 6e 73 25  0d 05 0a 27 20 c8 99 20  | ,,wins%...' .. |
00000c20  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000c30  6f 77 22 2c 2c 62 25 20  b8 20 6d 61 69 6e 25 0d  |ow",,b% . main%.|
00000c40  05 14 10 20 21 62 25 20  3d 20 6d 61 69 6e 25 0d  |... !b% = main%.|
00000c50  05 1e 21 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |..! .. "Wimp_Get|
00000c60  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 25  |WindowState",,b%|
00000c70  0d 05 28 15 20 6d 61 69  6e 6d 61 78 79 25 3d 20  |..(. mainmaxy%= |
00000c80  62 25 21 34 34 0d 05 32  20 20 69 62 64 25 20 20  |b%!44..2  ibd%  |
00000c90  20 20 20 3d 20 21 28 62  25 2b 38 38 2b 33 32 2a  |   = !(b%+88+32*|
00000ca0  35 2b 32 30 29 0d 05 3c  20 20 69 62 6d 25 20 20  |5+20)..<  ibm%  |
00000cb0  20 20 20 3d 20 21 28 62  25 2b 38 38 2b 33 32 2a  |   = !(b%+88+32*|
00000cc0  36 2b 32 30 29 0d 05 46  20 20 69 62 79 25 20 20  |6+20)..F  iby%  |
00000cd0  20 20 20 3d 20 21 28 62  25 2b 38 38 2b 33 32 2a  |   = !(b%+88+32*|
00000ce0  37 2b 32 30 29 0d 05 50  21 20 69 70 64 25 20 20  |7+20)..P! ipd%  |
00000cf0  20 20 20 3d 20 21 28 62  25 2b 38 38 2b 33 32 2a  |   = !(b%+88+32*|
00000d00  32 33 2b 32 30 29 0d 05  5a 21 20 69 70 6d 25 20  |23+20)..Z! ipm% |
00000d10  20 20 20 20 3d 20 21 28  62 25 2b 38 38 2b 33 32  |    = !(b%+88+32|
00000d20  2a 32 34 2b 32 30 29 0d  05 64 21 20 69 70 79 25  |*24+20)..d! ipy%|
00000d30  20 20 20 20 20 3d 20 21  28 62 25 2b 38 38 2b 33  |     = !(b%+88+3|
00000d40  32 2a 32 35 2b 32 30 29  0d 05 6e 21 20 69 65 6c  |2*25+20)..n! iel|
00000d50  61 70 73 65 64 25 3d 20  21 28 62 25 2b 38 38 2b  |apsed%= !(b%+88+|
00000d60  33 32 2a 33 32 2b 32 30  29 0d 05 78 1c 20 6e 61  |32*32+20)..x. na|
00000d70  6d 65 25 3d 21 28 62 25  2b 38 38 2b 33 32 2a 33  |me%=!(b%+88+32*3|
00000d80  34 2b 32 30 29 0d 05 82  46 20 c8 99 20 22 57 69  |4+20)...F .. "Wi|
00000d90  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000da0  2c 2c 62 25 2c 77 69 6e  73 25 2c 77 69 6e 65 6e  |,,b%,wins%,winen|
00000db0  64 25 2c 2d 31 2c 22 62  69 6f 69 6e 66 6f 22 2c  |d%,-1,"bioinfo",|
00000dc0  30 20 b8 20 2c 2c 77 69  6e 73 25 0d 05 8c 2a 20  |0 . ,,wins%...* |
00000dd0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000de0  69 6e 64 6f 77 22 2c 2c  62 25 20 b8 20 62 69 6f  |indow",,b% . bio|
00000df0  69 6e 66 6f 25 0d 05 96  48 20 c8 99 20 22 57 69  |info%...H .. "Wi|
00000e00  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000e10  2c 2c 62 25 2c 77 69 6e  73 25 2c 77 69 6e 65 6e  |,,b%,wins%,winen|
00000e20  64 25 2c 2d 31 2c 22 78  66 65 72 5f 73 65 6e 64  |d%,-1,"xfer_send|
00000e30  22 2c 30 20 b8 20 2c 2c  77 69 6e 73 25 0d 05 a0  |",0 . ,,wins%...|
00000e40  20 20 73 61 76 65 61 73  25 20 20 3d 20 21 28 62  |  saveas%  = !(b|
00000e50  25 2b 38 38 2b 33 32 2a  32 2b 32 30 29 0d 05 aa  |%+88+32*2+20)...|
00000e60  20 20 73 61 76 65 69 63  6f 6e 25 3d 20 21 28 62  |  saveicon%= !(b|
00000e70  25 2b 38 38 2b 33 32 2a  33 2b 32 30 29 0d 05 b4  |%+88+32*3+20)...|
00000e80  27 20 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |' .. "Wimp_Creat|
00000e90  65 57 69 6e 64 6f 77 22  2c 2c 62 25 20 b8 20 73  |eWindow",,b% . s|
00000ea0  61 76 65 25 0d 05 be 47  20 c8 99 20 22 57 69 6d  |ave%...G .. "Wim|
00000eb0  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00000ec0  2c 62 25 2c 77 69 6e 73  25 2c 77 69 6e 65 6e 64  |,b%,wins%,winend|
00000ed0  25 2c 2d 31 2c 22 68 6f  74 5f 6b 65 79 73 22 2c  |%,-1,"hot_keys",|
00000ee0  30 20 b8 20 2c 2c 77 69  6e 73 25 0d 05 c8 2a 20  |0 . ,,wins%...* |
00000ef0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000f00  69 6e 64 6f 77 22 2c 2c  62 25 20 b8 20 68 6f 74  |indow",,b% . hot|
00000f10  6b 65 79 73 25 0d 05 d2  46 20 c8 99 20 22 57 69  |keys%...F .. "Wi|
00000f20  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000f30  2c 2c 62 25 2c 77 69 6e  73 25 2c 77 69 6e 65 6e  |,,b%,wins%,winen|
00000f40  64 25 2c 2d 31 2c 22 70  72 69 6e 74 65 72 22 2c  |d%,-1,"printer",|
00000f50  30 20 b8 20 2c 2c 77 69  6e 73 25 0d 05 dc 2a 20  |0 . ,,wins%...* |
00000f60  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000f70  69 6e 64 6f 77 22 2c 2c  62 25 20 b8 20 70 72 69  |indow",,b% . pri|
00000f80  6e 74 65 72 25 0d 05 e6  1c 20 70 6e 61 6d 65 25  |nter%.... pname%|
00000f90  20 3d 20 21 28 62 25 2b  38 38 2b 33 32 2b 32 30  | = !(b%+88+32+20|
00000fa0  29 0d 05 f0 18 20 24 70  6e 61 6d 65 25 3d 20 a4  |).... $pname%= .|
00000fb0  67 65 74 5f 70 6e 61 6d  65 0d 05 fa 1c 20 c8 99  |get_pname.... ..|
00000fc0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 54 65 6d 70  | "Wimp_CloseTemp|
00000fd0  6c 61 74 65 22 0d 06 04  11 20 f2 73 65 74 5f 68  |late".... .set_h|
00000fe0  6f 74 6b 65 79 73 0d 06  0e 05 e1 0d 06 18 05 3a  |otkeys.........:|
00000ff0  0d 06 22 12 dd 20 f2 73  65 74 5f 68 6f 74 6b 65  |..".. .set_hotke|
00001000  79 73 0d 06 2c 11 20 21  62 25 3d 68 6f 74 6b 65  |ys..,. !b%=hotke|
00001010  79 73 25 0d 06 36 21 20  c8 99 20 22 57 69 6d 70  |ys%..6! .. "Wimp|
00001020  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00001030  2c 2c 62 25 0d 06 40 16  20 62 25 21 34 20 20 3d  |,,b%..@. b%!4  =|
00001040  20 62 25 21 34 2d 31 30  30 30 0d 06 4a 16 20 62  | b%!4-1000..J. b|
00001050  25 21 38 20 20 3d 20 62  25 21 38 2d 31 30 30 30  |%!8  = b%!8-1000|
00001060  0d 06 54 17 20 62 25 21  31 32 20 3d 20 62 25 21  |..T. b%!12 = b%!|
00001070  31 32 2d 31 30 30 30 0d  06 5e 17 20 62 25 21 31  |12-1000..^. b%!1|
00001080  36 20 3d 20 62 25 21 31  36 2d 31 30 30 30 0d 06  |6 = b%!16-1000..|
00001090  68 1d 20 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |h. .. "Wimp_Open|
000010a0  57 69 6e 64 6f 77 22 2c  2c 62 25 0d 06 72 05 e1  |Window",,b%..r..|
000010b0  0d 06 7c 05 3a 0d 06 86  11 dd 20 f2 77 69 64 74  |..|.:..... .widt|
000010c0  68 5f 6d 65 6e 75 0d 06  90 1b 20 77 69 64 74 68  |h_menu.... width|
000010d0  5f 6d 65 6e 75 25 20 3d  20 6d 65 6e 75 70 74 72  |_menu% = menuptr|
000010e0  25 0d 06 9a 15 20 6d 65  6e 75 6d 61 78 25 20 20  |%.... menumax%  |
000010f0  20 20 3d 20 31 30 0d 06  a4 15 20 6d 65 6e 75 70  |  = 10.... menup|
00001100  74 72 25 21 32 30 20 3d  20 34 34 0d 06 ae 25 20  |tr%!20 = 44...% |
00001110  24 6d 65 6e 75 70 74 72  25 20 20 20 3d 20 a4 6d  |$menuptr%   = .m|
00001120  65 73 28 22 57 69 64 74  68 54 69 74 6c 65 22 29  |es("WidthTitle")|
00001130  0d 06 b8 14 20 6d 65 6e  75 70 74 72 25 3f 31 32  |.... menuptr%?12|
00001140  20 3d 20 37 0d 06 c2 14  20 6d 65 6e 75 70 74 72  | = 7.... menuptr|
00001150  25 3f 31 33 20 3d 20 32  0d 06 cc 14 20 6d 65 6e  |%?13 = 2.... men|
00001160  75 70 74 72 25 3f 31 34  20 3d 20 37 0d 06 d6 14  |uptr%?14 = 7....|
00001170  20 6d 65 6e 75 70 74 72  25 3f 31 35 20 3d 20 30  | menuptr%?15 = 0|
00001180  0d 06 e0 1e 20 6d 61 78  61 64 64 72 25 20 20 20  |.... maxaddr%   |
00001190  20 3d 20 6d 65 6e 75 70  74 72 25 2b 31 36 0d 06  | = menuptr%+16..|
000011a0  ea 14 20 6d 65 6e 75 70  74 72 25 21 32 34 20 3d  |.. menuptr%!24 =|
000011b0  20 30 0d 06 f4 15 20 6d  65 6e 75 70 74 72 25 20  | 0.... menuptr% |
000011c0  20 20 2b 3d 20 32 38 0d  06 fe 21 20 77 69 64 74  |  += 28...! widt|
000011d0  68 30 24 20 20 20 20 20  3d 20 a4 6d 65 73 28 22  |h0$     = .mes("|
000011e0  57 69 64 74 68 30 22 29  0d 07 08 21 20 77 69 64  |Width0")...! wid|
000011f0  74 68 31 24 20 20 20 20  20 3d 20 a4 6d 65 73 28  |th1$     = .mes(|
00001200  22 57 69 64 74 68 31 22  29 0d 07 12 21 20 77 69  |"Width1")...! wi|
00001210  64 74 68 32 24 20 20 20  20 20 3d 20 a4 6d 65 73  |dth2$     = .mes|
00001220  28 22 57 69 64 74 68 32  22 29 0d 07 1c 21 20 77  |("Width2")...! w|
00001230  69 64 74 68 33 24 20 20  20 20 20 3d 20 a4 6d 65  |idth3$     = .me|
00001240  73 28 22 57 69 64 74 68  33 22 29 0d 07 26 21 20  |s("Width3")..&! |
00001250  77 69 64 74 68 34 24 20  20 20 20 20 3d 20 a4 6d  |width4$     = .m|
00001260  65 73 28 22 57 69 64 74  68 34 22 29 0d 07 30 21  |es("Width4")..0!|
00001270  20 77 69 64 74 68 35 24  20 20 20 20 20 3d 20 a4  | width5$     = .|
00001280  6d 65 73 28 22 57 69 64  74 68 35 22 29 0d 07 3a  |mes("Width5")..:|
00001290  1a 20 f2 61 64 64 5f 69  74 65 6d 28 77 69 64 74  |. .add_item(widt|
000012a0  68 30 24 2c 2d 31 29 0d  07 44 1a 20 f2 61 64 64  |h0$,-1)..D. .add|
000012b0  5f 69 74 65 6d 28 77 69  64 74 68 31 24 2c 2d 31  |_item(width1$,-1|
000012c0  29 0d 07 4e 1a 20 f2 61  64 64 5f 69 74 65 6d 28  |)..N. .add_item(|
000012d0  77 69 64 74 68 32 24 2c  2d 31 29 0d 07 58 1a 20  |width2$,-1)..X. |
000012e0  f2 61 64 64 5f 69 74 65  6d 28 77 69 64 74 68 33  |.add_item(width3|
000012f0  24 2c 2d 31 29 0d 07 62  1a 20 f2 61 64 64 5f 69  |$,-1)..b. .add_i|
00001300  74 65 6d 28 77 69 64 74  68 34 24 2c 2d 31 29 0d  |tem(width4$,-1).|
00001310  07 6c 0f 20 de 20 77 69  64 74 68 25 20 35 0d 07  |.l. . width% 5..|
00001320  76 21 20 f2 77 72 69 74  65 61 62 6c 65 28 77 69  |v! .writeable(wi|
00001330  64 74 68 35 24 2c 77 69  64 74 68 25 2c 35 29 0d  |dth5$,width%,5).|
00001340  07 80 28 20 6d 65 6e 75  70 74 72 25 21 2d 32 34  |..( menuptr%!-24|
00001350  3d 20 28 6d 65 6e 75 70  74 72 25 21 2d 32 34 20  |= (menuptr%!-24 |
00001360  84 20 31 3c 3c 37 29 0d  07 8a 21 20 21 6d 61 78  |. 1<<7)...! !max|
00001370  61 64 64 72 25 20 20 20  3d 20 6d 65 6e 75 6d 61  |addr%   = menuma|
00001380  78 25 2a 31 36 2b 33 32  0d 07 94 05 e1 0d 07 9e  |x%*16+32........|
00001390  05 3a 0d 07 a8 0f dd 20  f2 6f 70 74 5f 6d 65 6e  |.:..... .opt_men|
000013a0  75 0d 07 b2 1b 20 6f 70  74 5f 6d 65 6e 75 25 20  |u.... opt_menu% |
000013b0  20 20 3d 20 6d 65 6e 75  70 74 72 25 0d 07 bc 15  |  = menuptr%....|
000013c0  20 6d 65 6e 75 6d 61 78  25 20 20 20 20 3d 20 31  | menumax%    = 1|
000013d0  30 0d 07 c6 15 20 6d 65  6e 75 70 74 72 25 21 32  |0.... menuptr%!2|
000013e0  30 20 3d 20 34 34 0d 07  d0 23 20 24 6d 65 6e 75  |0 = 44...# $menu|
000013f0  70 74 72 25 20 20 20 3d  20 a4 6d 65 73 28 22 4f  |ptr%   = .mes("O|
00001400  70 74 54 69 74 6c 65 22  29 0d 07 da 14 20 6d 65  |ptTitle").... me|
00001410  6e 75 70 74 72 25 3f 31  32 20 3d 20 37 0d 07 e4  |nuptr%?12 = 7...|
00001420  14 20 6d 65 6e 75 70 74  72 25 3f 31 33 20 3d 20  |. menuptr%?13 = |
00001430  32 0d 07 ee 14 20 6d 65  6e 75 70 74 72 25 3f 31  |2.... menuptr%?1|
00001440  34 20 3d 20 37 0d 07 f8  14 20 6d 65 6e 75 70 74  |4 = 7.... menupt|
00001450  72 25 3f 31 35 20 3d 20  30 0d 08 02 1e 20 6d 61  |r%?15 = 0.... ma|
00001460  78 61 64 64 72 25 20 20  20 20 3d 20 6d 65 6e 75  |xaddr%    = menu|
00001470  70 74 72 25 2b 31 36 0d  08 0c 14 20 6d 65 6e 75  |ptr%+16.... menu|
00001480  70 74 72 25 21 32 34 20  3d 20 30 0d 08 16 15 20  |ptr%!24 = 0.... |
00001490  6d 65 6e 75 70 74 72 25  20 20 20 2b 3d 20 32 38  |menuptr%   += 28|
000014a0  0d 08 20 1f 20 6f 70 74  30 24 20 20 20 20 20 20  |.. . opt0$      |
000014b0  20 3d 20 a4 6d 65 73 28  22 4f 70 74 30 22 29 0d  | = .mes("Opt0").|
000014c0  08 2a 1f 20 6f 70 74 31  24 20 20 20 20 20 20 20  |.*. opt1$       |
000014d0  3d 20 a4 6d 65 73 28 22  4f 70 74 31 22 29 0d 08  |= .mes("Opt1")..|
000014e0  34 21 20 f2 61 64 64 5f  69 74 65 6d 28 6f 70 74  |4! .add_item(opt|
000014f0  30 24 2c 77 69 64 74 68  5f 6d 65 6e 75 25 29 0d  |0$,width_menu%).|
00001500  08 3e 18 20 f2 61 64 64  5f 69 74 65 6d 28 6f 70  |.>. .add_item(op|
00001510  74 31 24 2c 2d 31 29 0d  08 48 28 20 6d 65 6e 75  |t1$,-1)..H( menu|
00001520  70 74 72 25 21 2d 32 34  3d 20 28 6d 65 6e 75 70  |ptr%!-24= (menup|
00001530  74 72 25 21 2d 32 34 20  84 20 31 3c 3c 37 29 0d  |tr%!-24 . 1<<7).|
00001540  08 52 21 20 21 6d 61 78  61 64 64 72 25 20 20 20  |.R! !maxaddr%   |
00001550  3d 20 6d 65 6e 75 6d 61  78 25 2a 31 36 2b 33 32  |= menumax%*16+32|
00001560  0d 08 5c 05 e1 0d 08 66  05 3a 0d 08 70 0f dd 20  |..\....f.:..p.. |
00001570  f2 62 61 72 5f 6d 65 6e  75 0d 08 7a 1b 20 62 61  |.bar_menu..z. ba|
00001580  72 5f 6d 65 6e 75 25 20  20 20 3d 20 6d 65 6e 75  |r_menu%   = menu|
00001590  70 74 72 25 0d 08 84 15  20 6d 65 6e 75 6d 61 78  |ptr%.... menumax|
000015a0  25 20 20 20 20 3d 20 31  30 0d 08 8e 15 20 6d 65  |%    = 10.... me|
000015b0  6e 75 70 74 72 25 21 32  30 20 3d 20 34 34 0d 08  |nuptr%!20 = 44..|
000015c0  98 23 20 24 6d 65 6e 75  70 74 72 25 20 20 20 3d  |.# $menuptr%   =|
000015d0  20 a4 6d 65 73 28 22 42  61 72 54 69 74 6c 65 22  | .mes("BarTitle"|
000015e0  29 0d 08 a2 14 20 6d 65  6e 75 70 74 72 25 3f 31  |).... menuptr%?1|
000015f0  32 20 3d 20 37 0d 08 ac  14 20 6d 65 6e 75 70 74  |2 = 7.... menupt|
00001600  72 25 3f 31 33 20 3d 20  32 0d 08 b6 14 20 6d 65  |r%?13 = 2.... me|
00001610  6e 75 70 74 72 25 3f 31  34 20 3d 20 37 0d 08 c0  |nuptr%?14 = 7...|
00001620  14 20 6d 65 6e 75 70 74  72 25 3f 31 35 20 3d 20  |. menuptr%?15 = |
00001630  30 0d 08 ca 1e 20 6d 61  78 61 64 64 72 25 20 20  |0.... maxaddr%  |
00001640  20 20 3d 20 6d 65 6e 75  70 74 72 25 2b 31 36 0d  |  = menuptr%+16.|
00001650  08 d4 14 20 6d 65 6e 75  70 74 72 25 21 32 34 20  |... menuptr%!24 |
00001660  3d 20 30 0d 08 de 15 20  6d 65 6e 75 70 74 72 25  |= 0.... menuptr%|
00001670  20 20 20 2b 3d 20 32 38  0d 08 e8 1f 20 62 61 72  |   += 28.... bar|
00001680  30 24 20 20 20 20 20 20  20 3d 20 a4 6d 65 73 28  |0$       = .mes(|
00001690  22 42 61 72 30 22 29 0d  08 f2 1f 20 62 61 72 31  |"Bar0").... bar1|
000016a0  24 20 20 20 20 20 20 20  3d 20 a4 6d 65 73 28 22  |$       = .mes("|
000016b0  42 61 72 31 22 29 0d 08  fc 1f 20 62 61 72 32 24  |Bar1").... bar2$|
000016c0  20 20 20 20 20 20 20 3d  20 a4 6d 65 73 28 22 42  |       = .mes("B|
000016d0  61 72 32 22 29 0d 09 06  1f 20 62 61 72 33 24 20  |ar2").... bar3$ |
000016e0  20 20 20 20 20 20 3d 20  a4 6d 65 73 28 22 42 61  |      = .mes("Ba|
000016f0  72 33 22 29 0d 09 10 1b  20 f2 61 64 64 5f 69 74  |r3").... .add_it|
00001700  65 6d 28 62 61 72 30 24  2c 69 6e 66 6f 25 29 0d  |em(bar0$,info%).|
00001710  09 1a 1f 20 f2 61 64 64  5f 69 74 65 6d 28 62 61  |... .add_item(ba|
00001720  72 31 24 2c 6f 70 74 5f  6d 65 6e 75 25 29 0d 09  |r1$,opt_menu%)..|
00001730  24 18 20 f2 61 64 64 5f  69 74 65 6d 28 62 61 72  |$. .add_item(bar|
00001740  32 24 2c 2d 31 29 0d 09  2e 18 20 f2 61 64 64 5f  |2$,-1).... .add_|
00001750  69 74 65 6d 28 62 61 72  33 24 2c 2d 31 29 0d 09  |item(bar3$,-1)..|
00001760  38 28 20 6d 65 6e 75 70  74 72 25 21 2d 32 34 3d  |8( menuptr%!-24=|
00001770  20 28 6d 65 6e 75 70 74  72 25 21 2d 32 34 20 84  | (menuptr%!-24 .|
00001780  20 31 3c 3c 37 29 0d 09  42 21 20 21 6d 61 78 61  | 1<<7)..B! !maxa|
00001790  64 64 72 25 20 20 20 3d  20 6d 65 6e 75 6d 61 78  |ddr%   = menumax|
000017a0  25 2a 31 36 2b 33 32 0d  09 4c 05 e1 0d 09 56 05  |%*16+32..L....V.|
000017b0  3a 0d 09 60 10 dd 20 f2  73 61 76 65 5f 6d 65 6e  |:..`.. .save_men|
000017c0  75 0d 09 6a 1b 20 73 61  76 65 5f 6d 65 6e 75 25  |u..j. save_menu%|
000017d0  20 20 3d 20 6d 65 6e 75  70 74 72 25 0d 09 74 14  |  = menuptr%..t.|
000017e0  20 6d 65 6e 75 6d 61 78  25 20 20 20 20 3d 20 37  | menumax%    = 7|
000017f0  0d 09 7e 15 20 6d 65 6e  75 70 74 72 25 21 32 30  |..~. menuptr%!20|
00001800  20 3d 20 34 34 0d 09 88  24 20 24 6d 65 6e 75 70  | = 44...$ $menup|
00001810  74 72 25 20 20 20 3d 20  a4 6d 65 73 28 22 53 61  |tr%   = .mes("Sa|
00001820  76 65 54 69 74 6c 65 22  29 0d 09 92 14 20 6d 65  |veTitle").... me|
00001830  6e 75 70 74 72 25 3f 31  32 20 3d 20 37 0d 09 9c  |nuptr%?12 = 7...|
00001840  14 20 6d 65 6e 75 70 74  72 25 3f 31 33 20 3d 20  |. menuptr%?13 = |
00001850  32 0d 09 a6 14 20 6d 65  6e 75 70 74 72 25 3f 31  |2.... menuptr%?1|
00001860  34 20 3d 20 37 0d 09 b0  14 20 6d 65 6e 75 70 74  |4 = 7.... menupt|
00001870  72 25 3f 31 35 20 3d 20  30 0d 09 ba 1e 20 6d 61  |r%?15 = 0.... ma|
00001880  78 61 64 64 72 25 20 20  20 20 3d 20 6d 65 6e 75  |xaddr%    = menu|
00001890  70 74 72 25 2b 31 36 0d  09 c4 14 20 6d 65 6e 75  |ptr%+16.... menu|
000018a0  70 74 72 25 21 32 34 20  3d 20 30 0d 09 ce 15 20  |ptr%!24 = 0.... |
000018b0  6d 65 6e 75 70 74 72 25  20 20 20 2b 3d 20 32 38  |menuptr%   += 28|
000018c0  0d 09 d8 20 20 73 61 76  65 30 24 20 20 20 20 20  |...  save0$     |
000018d0  20 3d 20 a4 6d 65 73 28  22 53 61 76 65 30 22 29  | = .mes("Save0")|
000018e0  0d 09 e2 20 20 73 61 76  65 31 24 20 20 20 20 20  |...  save1$     |
000018f0  20 3d 20 a4 6d 65 73 28  22 53 61 76 65 31 22 29  | = .mes("Save1")|
00001900  0d 09 ec 20 20 73 61 76  65 32 24 20 20 20 20 20  |...  save2$     |
00001910  20 3d 20 a4 6d 65 73 28  22 53 61 76 65 32 22 29  | = .mes("Save2")|
00001920  0d 09 f6 1c 20 f2 61 64  64 5f 69 74 65 6d 28 73  |.... .add_item(s|
00001930  61 76 65 30 24 2c 73 61  76 65 25 29 0d 0a 00 27  |ave0$,save%)...'|
00001940  20 6d 65 6e 75 70 74 72  25 21 2d 32 34 3d 28 6d  | menuptr%!-24=(m|
00001950  65 6e 75 70 74 72 25 21  2d 32 34 20 84 20 31 3c  |enuptr%!-24 . 1<|
00001960  3c 33 29 0d 0a 0a 1c 20  f2 61 64 64 5f 69 74 65  |<3).... .add_ite|
00001970  6d 28 73 61 76 65 31 24  2c 73 61 76 65 25 29 0d  |m(save1$,save%).|
00001980  0a 14 28 20 6d 65 6e 75  70 74 72 25 21 2d 32 34  |..( menuptr%!-24|
00001990  3d 20 28 6d 65 6e 75 70  74 72 25 21 2d 32 34 20  |= (menuptr%!-24 |
000019a0  84 20 31 3c 3c 33 29 0d  0a 1e 1c 20 f2 61 64 64  |. 1<<3).... .add|
000019b0  5f 69 74 65 6d 28 73 61  76 65 32 24 2c 73 61 76  |_item(save2$,sav|
000019c0  65 25 29 0d 0a 28 28 20  6d 65 6e 75 70 74 72 25  |e%)..(( menuptr%|
000019d0  21 2d 32 34 3d 20 28 6d  65 6e 75 70 74 72 25 21  |!-24= (menuptr%!|
000019e0  2d 32 34 20 84 20 31 3c  3c 37 29 0d 0a 32 28 20  |-24 . 1<<7)..2( |
000019f0  6d 65 6e 75 70 74 72 25  21 2d 32 34 3d 20 28 6d  |menuptr%!-24= (m|
00001a00  65 6e 75 70 74 72 25 21  2d 32 34 20 84 20 31 3c  |enuptr%!-24 . 1<|
00001a10  3c 33 29 0d 0a 3c 21 20  21 6d 61 78 61 64 64 72  |<3)..<! !maxaddr|
00001a20  25 20 20 20 3d 20 6d 65  6e 75 6d 61 78 25 2a 31  |%   = menumax%*1|
00001a30  36 2b 33 32 0d 0a 46 05  e1 0d 0a 50 05 3a 0d 0a  |6+32..F....P.:..|
00001a40  5a 10 dd 20 f2 70 6c 6f  74 5f 6d 65 6e 75 0d 0a  |Z.. .plot_menu..|
00001a50  64 1b 20 70 6c 6f 74 5f  6d 65 6e 75 25 20 20 3d  |d. plot_menu%  =|
00001a60  20 6d 65 6e 75 70 74 72  25 0d 0a 6e 15 20 6d 65  | menuptr%..n. me|
00001a70  6e 75 6d 61 78 25 20 20  20 20 3d 20 31 31 0d 0a  |numax%    = 11..|
00001a80  78 15 20 6d 65 6e 75 70  74 72 25 21 32 30 20 3d  |x. menuptr%!20 =|
00001a90  20 34 34 0d 0a 82 24 20  24 6d 65 6e 75 70 74 72  | 44...$ $menuptr|
00001aa0  25 20 20 20 3d 20 a4 6d  65 73 28 22 50 6c 6f 74  |%   = .mes("Plot|
00001ab0  54 69 74 6c 65 22 29 0d  0a 8c 14 20 6d 65 6e 75  |Title").... menu|
00001ac0  70 74 72 25 3f 31 32 20  3d 20 37 0d 0a 96 14 20  |ptr%?12 = 7.... |
00001ad0  6d 65 6e 75 70 74 72 25  3f 31 33 20 3d 20 32 0d  |menuptr%?13 = 2.|
00001ae0  0a a0 14 20 6d 65 6e 75  70 74 72 25 3f 31 34 20  |... menuptr%?14 |
00001af0  3d 20 37 0d 0a aa 14 20  6d 65 6e 75 70 74 72 25  |= 7.... menuptr%|
00001b00  3f 31 35 20 3d 20 30 0d  0a b4 1e 20 6d 61 78 61  |?15 = 0.... maxa|
00001b10  64 64 72 25 20 20 20 20  3d 20 6d 65 6e 75 70 74  |ddr%    = menupt|
00001b20  72 25 2b 31 36 0d 0a be  14 20 6d 65 6e 75 70 74  |r%+16.... menupt|
00001b30  72 25 21 32 34 20 3d 20  30 0d 0a c8 15 20 6d 65  |r%!24 = 0.... me|
00001b40  6e 75 70 74 72 25 20 20  20 2b 3d 20 32 38 0d 0a  |nuptr%   += 28..|
00001b50  d2 20 20 70 6c 6f 74 30  24 20 20 20 20 20 20 3d  |.  plot0$      =|
00001b60  20 a4 6d 65 73 28 22 50  6c 6f 74 30 22 29 0d 0a  | .mes("Plot0")..|
00001b70  dc 20 20 70 6c 6f 74 31  24 20 20 20 20 20 20 3d  |.  plot1$      =|
00001b80  20 a4 6d 65 73 28 22 50  6c 6f 74 31 22 29 0d 0a  | .mes("Plot1")..|
00001b90  e6 20 20 70 6c 6f 74 32  24 20 20 20 20 20 20 3d  |.  plot2$      =|
00001ba0  20 a4 6d 65 73 28 22 50  6c 6f 74 32 22 29 0d 0a  | .mes("Plot2")..|
00001bb0  f0 21 20 f2 61 64 64 5f  69 74 65 6d 28 70 6c 6f  |.! .add_item(plo|
00001bc0  74 30 24 2c 73 61 76 65  5f 6d 65 6e 75 25 29 0d  |t0$,save_menu%).|
00001bd0  0a fa 20 20 f2 61 64 64  5f 69 74 65 6d 28 70 6c  |..  .add_item(pl|
00001be0  6f 74 31 24 2c 6f 70 74  5f 6d 65 6e 75 25 29 0d  |ot1$,opt_menu%).|
00001bf0  0b 04 19 20 f2 61 64 64  5f 69 74 65 6d 28 70 6c  |... .add_item(pl|
00001c00  6f 74 32 24 2c 2d 31 29  0d 0b 0e 28 20 6d 65 6e  |ot2$,-1)...( men|
00001c10  75 70 74 72 25 21 2d 32  34 3d 20 28 6d 65 6e 75  |uptr%!-24= (menu|
00001c20  70 74 72 25 21 2d 32 34  20 84 20 31 3c 3c 37 29  |ptr%!-24 . 1<<7)|
00001c30  0d 0b 18 21 20 21 6d 61  78 61 64 64 72 25 20 20  |...! !maxaddr%  |
00001c40  20 3d 20 6d 65 6e 75 6d  61 78 25 2a 31 36 2b 33  | = menumax%*16+3|
00001c50  32 0d 0b 22 05 e1 0d 0b  2c 05 3a 0d 0b 36 1f dd  |2.."....,.:..6..|
00001c60  20 f2 61 64 64 5f 69 74  65 6d 28 74 65 78 74 24  | .add_item(text$|
00001c70  2c 73 75 62 6d 65 6e 75  25 29 0d 0b 40 17 20 6d  |,submenu%)..@. m|
00001c80  65 6e 75 70 74 72 25 21  30 20 20 20 20 20 3d 20  |enuptr%!0     = |
00001c90  30 0d 0b 4a 1e 20 6d 65  6e 75 70 74 72 25 21 34  |0..J. menuptr%!4|
00001ca0  20 20 20 20 20 3d 20 73  75 62 6d 65 6e 75 25 0d  |     = submenu%.|
00001cb0  0b 54 1f 20 6d 65 6e 75  70 74 72 25 21 38 20 20  |.T. menuptr%!8  |
00001cc0  20 20 20 3d 20 26 30 37  30 30 30 30 32 31 0d 0b  |   = &07000021..|
00001cd0  5e 1b 20 24 28 6d 65 6e  75 70 74 72 25 2b 31 32  |^. $(menuptr%+12|
00001ce0  29 20 3d 20 74 65 78 74  24 0d 0b 68 18 20 6d 65  |) = text$..h. me|
00001cf0  6e 75 70 74 72 25 20 20  20 20 20 20 2b 3d 20 32  |nuptr%      += 2|
00001d00  34 0d 0b 72 05 e1 0d 0b  7c 05 3a 0d 0b 86 27 dd  |4..r....|.:...'.|
00001d10  20 f2 77 72 69 74 65 61  62 6c 65 28 74 65 78 74  | .writeable(text|
00001d20  24 2c 62 75 66 66 65 72  25 2c 62 75 66 6c 65 6e  |$,buffer%,buflen|
00001d30  25 29 0d 0b 90 17 20 21  6d 65 6e 75 70 74 72 25  |%).... !menuptr%|
00001d40  20 20 20 3d 20 25 31 30  30 0d 0b 9a 20 20 21 6d  |   = %100...  !m|
00001d50  65 6e 75 70 74 72 25 20  20 20 3d 20 21 6d 65 6e  |enuptr%   = !men|
00001d60  75 70 74 72 25 20 84 20  34 0d 0b a4 1b 20 6d 65  |uptr% . 4.... me|
00001d70  6e 75 70 74 72 25 21 34  20 20 3d 20 73 75 62 6d  |nuptr%!4  = subm|
00001d80  65 6e 75 25 0d 0b ae 1c  20 6d 65 6e 75 70 74 72  |enu%.... menuptr|
00001d90  25 21 38 20 20 3d 20 26  30 37 30 30 66 31 32 31  |%!8  = &0700f121|
00001da0  0d 0b b8 1a 20 6d 65 6e  75 70 74 72 25 21 31 32  |.... menuptr%!12|
00001db0  20 3d 20 62 75 66 66 65  72 25 0d 0b c2 15 20 6d  | = buffer%.... m|
00001dc0  65 6e 75 70 74 72 25 21  31 36 20 3d 20 2d 31 0d  |enuptr%!16 = -1.|
00001dd0  0b cc 1a 20 6d 65 6e 75  70 74 72 25 21 32 30 20  |... menuptr%!20 |
00001de0  3d 20 62 75 66 6c 65 6e  25 0d 0b d6 18 20 24 62  |= buflen%.... $b|
00001df0  75 66 66 65 72 25 20 20  20 20 3d 20 74 65 78 74  |uffer%    = text|
00001e00  24 0d 0b e0 15 20 6d 65  6e 75 70 74 72 25 20 20  |$.... menuptr%  |
00001e10  20 2b 3d 20 32 34 0d 0b  ea 05 e1 0d 0b f4 05 3a  | += 24.........:|
00001e20  0d 0b fe 22 dd 20 f2 67  65 74 5f 66 6f 6e 74 28  |...". .get_font(|
00001e30  66 6f 6e 74 24 2c 78 2c  79 2c f8 20 66 6f 6e 74  |font$,x,y,. font|
00001e40  25 29 0d 0c 08 34 20 c8  99 20 22 46 6f 6e 74 5f  |%)...4 .. "Font_|
00001e50  46 69 6e 64 46 6f 6e 74  22 2c 2c 66 6f 6e 74 24  |FindFont",,font$|
00001e60  2c 78 2a 31 36 2c 79 2a  31 36 2c 30 2c 30 20 b8  |,x*16,y*16,0,0 .|
00001e70  20 66 6f 6e 74 25 0d 0c  12 05 e1 0d 0c 1c 05 3a  | font%.........:|
00001e80  0d 0c 26 29 dd 20 f2 72  65 61 64 5f 64 61 74 65  |..&). .read_date|
00001e90  28 f8 20 64 61 79 25 2c  f8 20 6d 6f 6e 74 68 25  |(. day%,. month%|
00001ea0  2c f8 20 79 65 61 72 25  29 0d 0c 30 13 20 ea 20  |,. year%)..0. . |
00001eb0  64 61 74 65 24 2c 6d 6f  6e 74 68 24 0d 0c 3a 0f  |date$,month$..:.|
00001ec0  20 64 61 74 65 24 20 3d  20 91 24 0d 0c 44 24 20  | date$ = .$..D$ |
00001ed0  64 61 74 65 24 20 3d 20  c0 64 61 74 65 24 2c 28  |date$ = .date$,(|
00001ee0  a7 64 61 74 65 24 2c 22  2e 22 29 2d 31 29 29 0d  |.date$,".")-1)).|
00001ef0  0c 4e 21 20 64 61 74 65  24 20 3d 20 c2 64 61 74  |.N! date$ = .dat|
00001f00  65 24 2c 28 a9 28 64 61  74 65 24 29 2d 34 29 29  |e$,(.(date$)-4))|
00001f10  0d 0c 58 19 20 64 61 79  25 20 20 3d 20 bb 28 c0  |..X. day%  = .(.|
00001f20  64 61 74 65 24 2c 32 29  29 0d 0c 62 20 20 64 61  |date$,2))..b  da|
00001f30  74 65 24 20 3d 20 c2 64  61 74 65 24 2c 28 a9 20  |te$ = .date$,(. |
00001f40  64 61 74 65 24 29 2d 33  29 0d 0c 6c 16 20 6d 6f  |date$)-3)..l. mo|
00001f50  6e 74 68 24 3d 20 c0 64  61 74 65 24 2c 33 29 0d  |nth$= .date$,3).|
00001f60  0c 76 24 20 6d 6f 6e 74  68 25 3d 20 a4 6e 61 6d  |.v$ month%= .nam|
00001f70  65 5f 74 6f 5f 6e 75 6d  62 65 72 28 6d 6f 6e 74  |e_to_number(mont|
00001f80  68 24 29 0d 0c 80 19 20  79 65 61 72 25 20 3d 20  |h$).... year% = |
00001f90  bb 28 c2 64 61 74 65 24  2c 35 29 29 0d 0c 8a 05  |.(.date$,5))....|
00001fa0  e1 0d 0c 94 05 3a 0d 0c  9e 14 dd 20 f2 64 65 66  |.....:..... .def|
00001fb0  61 75 6c 74 5f 64 61 74  65 73 0d 0c a8 15 20 24  |ault_dates.... $|
00001fc0  69 62 64 25 20 3d 20 c3  28 63 64 61 79 25 29 0d  |ibd% = .(cday%).|
00001fd0  0c b2 12 20 62 64 25 20  20 20 3d 20 63 64 61 79  |... bd%   = cday|
00001fe0  25 0d 0c bc 25 20 24 69  62 6d 25 20 3d 20 a4 6e  |%...% $ibm% = .n|
00001ff0  75 6d 62 65 72 5f 74 6f  5f 6e 61 6d 65 28 63 6d  |umber_to_name(cm|
00002000  6f 6e 74 68 25 29 0d 0c  c6 14 20 62 6d 25 20 20  |onth%).... bm%  |
00002010  20 3d 20 63 6d 6f 6e 74  68 25 0d 0c d0 16 20 24  | = cmonth%.... $|
00002020  69 62 79 25 20 3d 20 c3  28 63 79 65 61 72 25 29  |iby% = .(cyear%)|
00002030  0d 0c da 13 20 62 79 25  20 20 20 3d 20 63 79 65  |.... by%   = cye|
00002040  61 72 25 0d 0c e4 15 20  24 69 70 64 25 20 3d 20  |ar%.... $ipd% = |
00002050  c3 28 63 64 61 79 25 29  0d 0c ee 12 20 70 64 25  |.(cday%).... pd%|
00002060  20 20 20 3d 20 63 64 61  79 25 0d 0c f8 25 20 24  |   = cday%...% $|
00002070  69 70 6d 25 20 3d 20 a4  6e 75 6d 62 65 72 5f 74  |ipm% = .number_t|
00002080  6f 5f 6e 61 6d 65 28 63  6d 6f 6e 74 68 25 29 0d  |o_name(cmonth%).|
00002090  0d 02 14 20 70 6d 25 20  20 20 3d 20 63 6d 6f 6e  |... pm%   = cmon|
000020a0  74 68 25 0d 0d 0c 16 20  24 69 70 79 25 20 3d 20  |th%.... $ipy% = |
000020b0  c3 28 63 79 65 61 72 25  29 0d 0d 16 13 20 70 79  |.(cyear%).... py|
000020c0  25 20 20 20 3d 20 63 79  65 61 72 25 0d 0d 20 05  |%   = cyear%.. .|
000020d0  e1 0d 0d 2a 05 3a 0d 0d  34 11 dd 20 a4 73 6f 6c  |...*.:..4.. .sol|
000020e0  69 64 5f 64 72 61 67 0d  0d 3e 0c 20 ea 20 61 25  |id_drag..>. . a%|
000020f0  2c 62 25 0d 0d 48 09 20  61 25 3d a3 0d 0d 52 1f  |,b%..H. a%=...R.|
00002100  20 c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 36  | .. "OS_Byte",16|
00002110  31 2c 32 38 20 b8 20 2c  2c 62 25 0d 0d 5c 19 20  |1,28 . ,,b%..\. |
00002120  e7 20 28 62 25 20 80 20  32 29 3c 3e 30 20 8c 20  |. (b% . 2)<>0 . |
00002130  61 25 3d b9 0d 0d 66 07  3d 61 25 0d 0d 70 05 3a  |a%=...f.=a%..p.:|
00002140  0d 0d 7a 10 dd 20 f2 63  6c 6f 73 65 5f 6d 65 73  |..z.. .close_mes|
00002150  0d 0d 84 2a 20 c8 99 20  22 4d 65 73 73 61 67 65  |...* .. "Message|
00002160  54 72 61 6e 73 5f 43 6c  6f 73 65 46 69 6c 65 22  |Trans_CloseFile"|
00002170  2c 6d 65 73 5f 66 69 6c  65 25 0d 0d 8e 05 e1 0d  |,mes_file%......|
00002180  0d 98 05 3a 0d 0d a2 10  dd 20 f2 6c 6f 61 64 5f  |...:..... .load_|
00002190  6f 70 74 73 0d 0d ac 0f  20 ea 20 66 69 6c 65 25  |opts.... . file%|
000021a0  2c 61 24 0d 0d b6 24 20  66 69 6c 65 25 20 20 3d  |,a$...$ file%  =|
000021b0  20 8e 28 22 3c 42 69 6f  24 44 69 72 3e 2e 4f 70  | .("<Bio$Dir>.Op|
000021c0  74 69 6f 6e 73 22 29 0d  0d c0 15 20 61 24 20 20  |tions").... a$  |
000021d0  20 20 20 3d 20 be 23 66  69 6c 65 25 0d 0d ca 21  |   = .#file%...!|
000021e0  20 6c 69 6e 65 74 68 25  3d 20 bb 28 a4 6d 65 73  | lineth%= .(.mes|
000021f0  28 22 57 69 64 74 68 22  2b 61 24 29 29 0d 0d d4  |("Width"+a$))...|
00002200  1c 20 f2 74 69 63 6b 28  77 69 64 74 68 5f 6d 65  |. .tick(width_me|
00002210  6e 75 25 2c bb 20 61 24  29 0d 0d de 15 20 24 77  |nu%,. a$).... $w|
00002220  69 64 74 68 25 3d 20 be  23 66 69 6c 65 25 0d 0d  |idth%= .#file%..|
00002230  e8 0c 20 d9 23 66 69 6c  65 25 0d 0d f2 05 e1 0d  |.. .#file%......|
00002240  0d fc 05 3a 0d 0e 06 0c  dd 20 f2 63 6c 6f 73 65  |...:..... .close|
00002250  0d 0e 10 0f 20 f2 63 6c  6f 73 65 5f 6d 65 73 0d  |.... .close_mes.|
00002260  0e 1a 25 20 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |..% .. "Wimp_Clo|
00002270  73 65 44 6f 77 6e 22 2c  74 73 6b 25 2c 61 73 63  |seDown",tsk%,asc|
00002280  74 73 6b 25 0d 0e 24 05  e1 0d 0e 2e 05 3a 0d 0e  |tsk%..$......:..|
00002290  38 0b dd 20 f2 70 6f 6c  6c 0d 0e 42 1c 20 c8 99  |8.. .poll..B. ..|
000022a0  20 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 2c 62 25  | "Wimp_Poll",,b%|
000022b0  20 b8 20 72 25 0d 0e 4c  0c 20 c8 8e 20 72 25 20  | . r%..L. .. r% |
000022c0  ca 0d 0e 56 12 20 20 20  c9 20 31 3a f2 72 65 64  |...V.   . 1:.red|
000022d0  72 61 77 0d 0e 60 23 20  20 20 c9 20 32 3a c8 99  |raw..`#   . 2:..|
000022e0  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
000022f0  77 22 2c 2c 62 25 0d 0e  6a 24 20 20 20 c9 20 33  |w",,b%..j$   . 3|
00002300  3a c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |:.. "Wimp_CloseW|
00002310  69 6e 64 6f 77 22 2c 2c  62 25 0d 0e 74 17 20 20  |indow",,b%..t.  |
00002320  20 c9 20 36 3a f2 6d 6f  75 73 65 5f 63 6c 69 63  | . 6:.mouse_clic|
00002330  6b 0d 0e 7e 14 20 20 20  c9 20 37 3a f2 64 72 61  |k..~.   . 7:.dra|
00002340  67 5f 65 6e 64 0d 0e 88  15 20 20 20 c9 20 38 3a  |g_end....   . 8:|
00002350  f2 6b 65 79 5f 70 72 65  73 73 0d 0e 92 16 20 20  |.key_press....  |
00002360  20 c9 20 39 3a f2 6d 65  6e 75 5f 63 6c 69 63 6b  | . 9:.menu_click|
00002370  0d 0e 9c 17 20 20 20 c9  20 31 37 2c 31 38 3a f2  |....   . 17,18:.|
00002380  72 65 63 65 69 76 65 0d  0e a6 06 20 cb 0d 0e b0  |receive.... ....|
00002390  05 e1 0d 0e ba 05 3a 0d  0e c4 0e dd 20 f2 72 65  |......:..... .re|
000023a0  63 65 69 76 65 0d 0e ce  0f 20 c8 8e 20 62 25 21  |ceive.... .. b%!|
000023b0  31 36 20 ca 0d 0e d8 12  20 20 20 c9 20 30 3a 71  |16 .....   . 0:q|
000023c0  75 69 74 25 3d b9 0d 0e  e2 14 20 20 20 c9 20 32  |uit%=.....   . 2|
000023d0  3a f2 73 61 76 65 5f 61  63 6b 0d 0e ec 15 20 20  |:.save_ack....  |
000023e0  20 c9 20 36 3a f2 72 61  6d 5f 74 72 61 6e 73 0d  | . 6:.ram_trans.|
000023f0  0e f6 1b 20 20 20 c9 20  26 35 30 32 3a f2 68 65  |...   . &502:.he|
00002400  6c 70 5f 72 65 71 75 65  73 74 0d 0f 00 1d 20 20  |lp_request....  |
00002410  20 c9 20 26 34 30 30 43  30 3a f2 6d 65 6e 75 5f  | . &400C0:.menu_|
00002420  77 61 72 6e 69 6e 67 0d  0f 0a 38 20 20 20 c9 20  |warning...8   . |
00002430  26 34 30 30 43 31 3a f2  67 65 74 5f 66 6f 6e 74  |&400C1:.get_font|
00002440  28 22 48 6f 6d 65 72 74  6f 6e 2e 4d 65 64 69 75  |("Homerton.Mediu|
00002450  6d 22 2c 31 34 2c 31 34  2c 66 6f 6e 74 25 29 0d  |m",14,14,font%).|
00002460  0f 14 22 20 20 20 c9 20  26 38 30 31 34 37 3a 24  |.."   . &80147:$|
00002470  70 6e 61 6d 65 25 3d a4  67 65 74 5f 70 6e 61 6d  |pname%=.get_pnam|
00002480  65 0d 0f 1e 06 20 cb 0d  0f 28 05 e1 0d 0f 32 05  |e.... ...(....2.|
00002490  3a 0d 0f 3c 0d dd 20 f2  72 65 64 72 61 77 0d 0f  |:..<.. .redraw..|
000024a0  46 39 20 c8 99 20 22 43  6f 6c 6f 75 72 54 72 61  |F9 .. "ColourTra|
000024b0  6e 73 5f 53 65 74 46 6f  6e 74 43 6f 6c 6f 75 72  |ns_SetFontColour|
000024c0  73 22 2c 66 6f 6e 74 25  2c 26 46 46 46 46 46 46  |s",font%,&FFFFFF|
000024d0  30 30 2c 30 2c 31 34 0d  0f 50 27 20 c8 99 20 22  |00,0,14..P' .. "|
000024e0  57 69 6d 70 5f 52 65 64  72 61 77 57 69 6e 64 6f  |Wimp_RedrawWindo|
000024f0  77 22 2c 2c 62 25 20 b8  20 6d 6f 72 65 25 0d 0f  |w",,b% . more%..|
00002500  5a 0d 20 c8 95 20 6d 6f  72 65 25 0d 0f 64 21 20  |Z. .. more%..d! |
00002510  20 20 e7 20 21 62 25 20  3d 20 6d 61 69 6e 25 20  |  . !b% = main% |
00002520  8c 20 f2 64 72 61 77 5f  70 6c 6f 74 0d 0f 6e 24  |. .draw_plot..n$|
00002530  20 20 20 e7 20 21 62 25  20 3d 20 62 69 6f 69 6e  |   . !b% = bioin|
00002540  66 6f 25 20 8c 20 f2 64  72 61 77 5f 69 6e 66 6f  |fo% . .draw_info|
00002550  0d 0f 78 29 20 20 20 c8  99 20 22 57 69 6d 70 5f  |..x)   .. "Wimp_|
00002560  47 65 74 52 65 63 74 61  6e 67 6c 65 22 2c 2c 62  |GetRectangle",,b|
00002570  25 20 b8 20 6d 6f 72 65  25 0d 0f 82 06 20 ce 0d  |% . more%.... ..|
00002580  0f 8c 05 e1 0d 0f 96 05  3a 0d 0f a0 10 dd 20 f2  |........:..... .|
00002590  64 72 61 77 5f 70 6c 6f  74 0d 0f aa 09 20 ea 20  |draw_plot.... . |
000025a0  63 25 0d 0f b4 12 20 63  25 20 20 3d 20 62 25 2b  |c%.... c%  = b%+|
000025b0  31 30 30 30 0d 0f be 10  20 21 63 25 20 3d 20 6d  |1000.... !c% = m|
000025c0  61 69 6e 25 0d 0f c8 21  20 c8 99 20 22 57 69 6d  |ain%...! .. "Wim|
000025d0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
000025e0  22 2c 2c 63 25 0d 0f d2  18 20 78 6f 72 69 67 25  |",,c%.... xorig%|
000025f0  20 3d 20 63 25 21 34 2d  63 25 21 32 30 0d 0f dc  | = c%!4-c%!20...|
00002600  23 20 79 6f 72 69 67 25  20 3d 20 63 25 21 31 36  |# yorig% = c%!16|
00002610  2d 63 25 21 32 34 2b 6d  61 69 6e 6d 61 78 79 25  |-c%!24+mainmaxy%|
00002620  0d 0f e6 18 20 67 74 25  21 31 36 20 3d 20 78 6f  |.... gt%!16 = xo|
00002630  72 69 67 25 2a 32 35 36  0d 0f f0 18 20 67 74 25  |rig%*256.... gt%|
00002640  21 32 30 20 3d 20 79 6f  72 69 67 25 2a 32 35 36  |!20 = yorig%*256|
00002650  0d 0f fa 14 20 69 77 74  25 21 31 36 3d 20 67 74  |.... iwt%!16= gt|
00002660  25 21 31 36 0d 10 04 14  20 69 77 74 25 21 32 30  |%!16.... iwt%!20|
00002670  3d 20 67 74 25 21 32 30  0d 10 0e 14 20 70 77 74  |= gt%!20.... pwt|
00002680  25 21 31 36 3d 20 67 74  25 21 31 36 0d 10 18 14  |%!16= gt%!16....|
00002690  20 70 77 74 25 21 32 30  3d 20 67 74 25 21 32 30  | pwt%!20= gt%!20|
000026a0  0d 10 22 14 20 65 77 74  25 21 31 36 3d 20 67 74  |..". ewt%!16= gt|
000026b0  25 21 31 36 0d 10 2c 14  20 65 77 74 25 21 32 30  |%!16..,. ewt%!20|
000026c0  3d 20 67 74 25 21 32 30  0d 10 36 0f 20 3f 63 25  |= gt%!20..6. ?c%|
000026d0  20 20 20 20 3d 20 32 0d  10 40 0f 20 63 25 3f 31  |    = 2..@. c%?1|
000026e0  20 20 20 3d 20 30 0d 10  4a 0f 20 63 25 3f 32 20  |   = 0..J. c%?2 |
000026f0  20 20 3d 20 30 0d 10 54  0f 20 63 25 3f 33 20 20  |  = 0..T. c%?3  |
00002700  20 3d 20 30 0d 10 5e 2c  20 c8 99 20 22 43 6f 6c  | = 0..^, .. "Col|
00002710  6f 75 72 54 72 61 6e 73  5f 53 65 74 47 43 4f 4c  |ourTrans_SetGCOL|
00002720  22 2c 26 46 46 30 30 30  30 30 30 2c 2c 30 2c 30  |",&FF000000,,0,0|
00002730  0d 10 68 2f 20 c8 99 20  22 44 72 61 77 5f 53 74  |..h/ .. "Draw_St|
00002740  72 6f 6b 65 22 2c 69 77  61 76 65 25 2c 2c 69 77  |roke",iwave%,,iw|
00002750  74 25 2c 30 2c 6c 69 6e  65 74 68 25 2c 63 25 0d  |t%,0,lineth%,c%.|
00002760  10 72 2c 20 c8 99 20 22  43 6f 6c 6f 75 72 54 72  |.r, .. "ColourTr|
00002770  61 6e 73 5f 53 65 74 47  43 4f 4c 22 2c 26 30 30  |ans_SetGCOL",&00|
00002780  46 46 30 30 30 30 2c 2c  30 2c 30 0d 10 7c 2f 20  |FF0000,,0,0..|/ |
00002790  c8 99 20 22 44 72 61 77  5f 53 74 72 6f 6b 65 22  |.. "Draw_Stroke"|
000027a0  2c 70 77 61 76 65 25 2c  2c 69 77 74 25 2c 30 2c  |,pwave%,,iwt%,0,|
000027b0  6c 69 6e 65 74 68 25 2c  63 25 0d 10 86 2c 20 c8  |lineth%,c%..., .|
000027c0  99 20 22 43 6f 6c 6f 75  72 54 72 61 6e 73 5f 53  |. "ColourTrans_S|
000027d0  65 74 47 43 4f 4c 22 2c  26 30 30 30 30 46 46 30  |etGCOL",&0000FF0|
000027e0  30 2c 2c 30 2c 30 0d 10  90 2f 20 c8 99 20 22 44  |0,,0,0.../ .. "D|
000027f0  72 61 77 5f 53 74 72 6f  6b 65 22 2c 65 77 61 76  |raw_Stroke",ewav|
00002800  65 25 2c 2c 69 77 74 25  2c 30 2c 6c 69 6e 65 74  |e%,,iwt%,0,linet|
00002810  68 25 2c 63 25 0d 10 9a  24 20 c8 99 20 22 43 6f  |h%,c%...$ .. "Co|
00002820  6c 6f 75 72 54 72 61 6e  73 5f 53 65 74 47 43 4f  |lourTrans_SetGCO|
00002830  4c 22 2c 30 2c 2c 30 2c  30 0d 10 a4 29 20 c8 99  |L",0,,0,0...) ..|
00002840  20 22 44 72 61 77 5f 53  74 72 6f 6b 65 22 2c 67  | "Draw_Stroke",g|
00002850  72 61 70 68 25 2c 30 2c  67 74 25 2c 30 2c 30 2c  |raph%,0,gt%,0,0,|
00002860  63 25 0d 10 ae 39 20 c8  99 20 22 43 6f 6c 6f 75  |c%...9 .. "Colou|
00002870  72 54 72 61 6e 73 5f 53  65 74 46 6f 6e 74 43 6f  |rTrans_SetFontCo|
00002880  6c 6f 75 72 73 22 2c 66  6f 6e 74 25 2c 26 46 46  |lours",font%,&FF|
00002890  46 46 46 46 30 30 2c 30  2c 31 34 0d 10 b8 40 20  |FFFF00,0,14...@ |
000028a0  c8 99 20 22 46 6f 6e 74  5f 50 61 69 6e 74 22 2c  |.. "Font_Paint",|
000028b0  66 6f 6e 74 25 2c 22 49  22 2c 37 38 34 2c 78 6f  |font%,"I",784,xo|
000028c0  72 69 67 25 2b 31 31 30  30 2a 74 61 2c 79 6f 72  |rig%+1100*ta,yor|
000028d0  69 67 25 2b 69 6e 79 25  2a 74 64 0d 10 c2 40 20  |ig%+iny%*td...@ |
000028e0  c8 99 20 22 46 6f 6e 74  5f 50 61 69 6e 74 22 2c  |.. "Font_Paint",|
000028f0  66 6f 6e 74 25 2c 22 45  22 2c 37 38 34 2c 78 6f  |font%,"E",784,xo|
00002900  72 69 67 25 2b 31 31 30  30 2a 74 61 2c 79 6f 72  |rig%+1100*ta,yor|
00002910  69 67 25 2b 65 6d 79 25  2a 74 64 0d 10 cc 40 20  |ig%+emy%*td...@ |
00002920  c8 99 20 22 46 6f 6e 74  5f 50 61 69 6e 74 22 2c  |.. "Font_Paint",|
00002930  66 6f 6e 74 25 2c 22 50  22 2c 37 38 34 2c 78 6f  |font%,"P",784,xo|
00002940  72 69 67 25 2b 31 31 30  30 2a 74 61 2c 79 6f 72  |rig%+1100*ta,yor|
00002950  69 67 25 2b 70 79 79 25  2a 74 64 0d 10 d6 3d 20  |ig%+pyy%*td...= |
00002960  c8 99 20 22 46 6f 6e 74  5f 50 61 69 6e 74 22 2c  |.. "Font_Paint",|
00002970  66 6f 6e 74 25 2c 22 2b  22 2c 37 38 34 2c 78 6f  |font%,"+",784,xo|
00002980  72 69 67 25 2b 31 30 2a  74 61 2c 79 6f 72 69 67  |rig%+10*ta,yorig|
00002990  25 2b 37 30 30 2a 74 64  0d 10 e0 3d 20 c8 99 20  |%+700*td...= .. |
000029a0  22 46 6f 6e 74 5f 50 61  69 6e 74 22 2c 66 6f 6e  |"Font_Paint",fon|
000029b0  74 25 2c 22 2d 22 2c 37  38 34 2c 78 6f 72 69 67  |t%,"-",784,xorig|
000029c0  25 2b 31 30 2a 74 61 2c  79 6f 72 69 67 25 2b 32  |%+10*ta,yorig%+2|
000029d0  30 30 2a 74 64 0d 10 ea  40 20 c8 99 20 22 46 6f  |00*td...@ .. "Fo|
000029e0  6e 74 5f 50 61 69 6e 74  22 2c 66 6f 6e 74 25 2c  |nt_Paint",font%,|
000029f0  22 5e 22 2c 37 38 34 2c  78 6f 72 69 67 25 2b 35  |"^",784,xorig%+5|
00002a00  39 31 2e 35 2a 74 61 2c  79 6f 72 69 67 25 2b 34  |91.5*ta,yorig%+4|
00002a10  34 38 2a 74 64 0d 10 f4  4e 20 74 69 74 6c 65 24  |48*td...N title$|
00002a20  3d 24 6e 61 6d 65 25 2b  22 27 73 20 70 6c 6f 74  |=$name%+"'s plot|
00002a30  20 66 6f 72 20 22 2b c3  20 70 64 25 2b 22 2d 22  | for "+. pd%+"-"|
00002a40  2b a4 6e 75 6d 62 65 72  5f 74 6f 5f 6e 61 6d 65  |+.number_to_name|
00002a50  28 70 6d 25 29 2b 22 2d  22 2b c3 20 70 79 25 2b  |(pm%)+"-"+. py%+|
00002a60  22 2e 22 0d 10 fe 29 20  74 69 74 6c 65 24 2b 3d  |"."...) title$+=|
00002a70  22 20 20 22 2b 24 69 65  6c 61 70 73 65 64 25 2b  |"  "+$ielapsed%+|
00002a80  22 20 64 61 79 73 20 6f  6c 64 2e 22 0d 11 08 42  |" days old."...B|
00002a90  20 c8 99 20 22 46 6f 6e  74 5f 50 61 69 6e 74 22  | .. "Font_Paint"|
00002aa0  2c 66 6f 6e 74 25 2c 74  69 74 6c 65 24 2c 37 38  |,font%,title$,78|
00002ab0  34 2c 78 6f 72 69 67 25  2b 31 30 30 2a 74 61 2c  |4,xorig%+100*ta,|
00002ac0  79 6f 72 69 67 25 2b 31  30 30 30 2a 74 64 0d 11  |yorig%+1000*td..|
00002ad0  12 05 e1 0d 11 1c 05 3a  0d 11 26 10 dd 20 f2 64  |.......:..&.. .d|
00002ae0  72 61 77 5f 69 6e 66 6f  0d 11 30 09 20 ea 20 63  |raw_info..0. . c|
00002af0  25 0d 11 3a 12 20 63 25  20 20 3d 20 62 25 2b 31  |%..:. c%  = b%+1|
00002b00  30 30 30 0d 11 44 13 20  21 63 25 20 3d 20 62 69  |000..D. !c% = bi|
00002b10  6f 69 6e 66 6f 25 0d 11  4e 21 20 c8 99 20 22 57  |oinfo%..N! .. "W|
00002b20  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00002b30  74 65 22 2c 2c 63 25 0d  11 58 18 20 78 6f 72 69  |te",,c%..X. xori|
00002b40  67 25 20 3d 20 63 25 21  34 2d 63 25 21 32 30 0d  |g% = c%!4-c%!20.|
00002b50  11 62 23 20 79 6f 72 69  67 25 20 3d 20 63 25 21  |.b# yorig% = c%!|
00002b60  31 36 2d 63 25 21 32 34  2b 6d 61 69 6e 6d 61 78  |16-c%!24+mainmax|
00002b70  79 25 0d 11 6c 39 20 c8  99 20 22 43 6f 6c 6f 75  |y%..l9 .. "Colou|
00002b80  72 54 72 61 6e 73 5f 53  65 74 46 6f 6e 74 43 6f  |rTrans_SetFontCo|
00002b90  6c 6f 75 72 73 22 2c 66  6f 6e 74 25 2c 26 46 30  |lours",font%,&F0|
00002ba0  46 30 46 30 30 30 2c 30  2c 31 34 0d 11 76 3f 20  |F0F000,0,14..v? |
00002bb0  c8 99 20 22 46 6f 6e 74  5f 50 61 69 6e 74 22 2c  |.. "Font_Paint",|
00002bc0  66 6f 6e 74 25 2c a4 6d  65 73 28 22 62 30 31 22  |font%,.mes("b01"|
00002bd0  29 2c 37 38 34 2c 78 6f  72 69 67 25 2b 31 30 2c  |),784,xorig%+10,|
00002be0  79 6f 72 69 67 25 2b 38  30 30 0d 11 80 3f 20 c8  |yorig%+800...? .|
00002bf0  99 20 22 46 6f 6e 74 5f  50 61 69 6e 74 22 2c 66  |. "Font_Paint",f|
00002c00  6f 6e 74 25 2c a4 6d 65  73 28 22 62 30 32 22 29  |ont%,.mes("b02")|
00002c10  2c 37 38 34 2c 78 6f 72  69 67 25 2b 31 30 2c 79  |,784,xorig%+10,y|
00002c20  6f 72 69 67 25 2b 37 36  30 0d 11 8a 3f 20 c8 99  |orig%+760...? ..|
00002c30  20 22 46 6f 6e 74 5f 50  61 69 6e 74 22 2c 66 6f  | "Font_Paint",fo|
00002c40  6e 74 25 2c a4 6d 65 73  28 22 62 30 33 22 29 2c  |nt%,.mes("b03"),|
00002c50  37 38 34 2c 78 6f 72 69  67 25 2b 31 30 2c 79 6f  |784,xorig%+10,yo|
00002c60  72 69 67 25 2b 37 32 30  0d 11 94 3f 20 c8 99 20  |rig%+720...? .. |
00002c70  22 46 6f 6e 74 5f 50 61  69 6e 74 22 2c 66 6f 6e  |"Font_Paint",fon|
00002c80  74 25 2c a4 6d 65 73 28  22 62 30 34 22 29 2c 37  |t%,.mes("b04"),7|
00002c90  38 34 2c 78 6f 72 69 67  25 2b 31 30 2c 79 6f 72  |84,xorig%+10,yor|
00002ca0  69 67 25 2b 36 35 30 0d  11 9e 3f 20 c8 99 20 22  |ig%+650...? .. "|
00002cb0  46 6f 6e 74 5f 50 61 69  6e 74 22 2c 66 6f 6e 74  |Font_Paint",font|
00002cc0  25 2c a4 6d 65 73 28 22  62 30 35 22 29 2c 37 38  |%,.mes("b05"),78|
00002cd0  34 2c 78 6f 72 69 67 25  2b 31 30 2c 79 6f 72 69  |4,xorig%+10,yori|
00002ce0  67 25 2b 36 31 30 0d 11  a8 3f 20 c8 99 20 22 46  |g%+610...? .. "F|
00002cf0  6f 6e 74 5f 50 61 69 6e  74 22 2c 66 6f 6e 74 25  |ont_Paint",font%|
00002d00  2c a4 6d 65 73 28 22 62  30 36 22 29 2c 37 38 34  |,.mes("b06"),784|
00002d10  2c 78 6f 72 69 67 25 2b  31 30 2c 79 6f 72 69 67  |,xorig%+10,yorig|
00002d20  25 2b 35 37 30 0d 11 b2  3f 20 c8 99 20 22 46 6f  |%+570...? .. "Fo|
00002d30  6e 74 5f 50 61 69 6e 74  22 2c 66 6f 6e 74 25 2c  |nt_Paint",font%,|
00002d40  a4 6d 65 73 28 22 62 30  37 22 29 2c 37 38 34 2c  |.mes("b07"),784,|
00002d50  78 6f 72 69 67 25 2b 31  30 2c 79 6f 72 69 67 25  |xorig%+10,yorig%|
00002d60  2b 35 33 30 0d 11 bc 3f  20 c8 99 20 22 46 6f 6e  |+530...? .. "Fon|
00002d70  74 5f 50 61 69 6e 74 22  2c 66 6f 6e 74 25 2c a4  |t_Paint",font%,.|
00002d80  6d 65 73 28 22 62 30 38  22 29 2c 37 38 34 2c 78  |mes("b08"),784,x|
00002d90  6f 72 69 67 25 2b 31 30  2c 79 6f 72 69 67 25 2b  |orig%+10,yorig%+|
00002da0  34 39 30 0d 11 c6 3f 20  c8 99 20 22 46 6f 6e 74  |490...? .. "Font|
00002db0  5f 50 61 69 6e 74 22 2c  66 6f 6e 74 25 2c a4 6d  |_Paint",font%,.m|
00002dc0  65 73 28 22 62 30 39 22  29 2c 37 38 34 2c 78 6f  |es("b09"),784,xo|
00002dd0  72 69 67 25 2b 31 30 2c  79 6f 72 69 67 25 2b 34  |rig%+10,yorig%+4|
00002de0  35 30 0d 11 d0 3f 20 c8  99 20 22 46 6f 6e 74 5f  |50...? .. "Font_|
00002df0  50 61 69 6e 74 22 2c 66  6f 6e 74 25 2c a4 6d 65  |Paint",font%,.me|
00002e00  73 28 22 62 31 30 22 29  2c 37 38 34 2c 78 6f 72  |s("b10"),784,xor|
00002e10  69 67 25 2b 31 30 2c 79  6f 72 69 67 25 2b 33 35  |ig%+10,yorig%+35|
00002e20  30 0d 11 da 3f 20 c8 99  20 22 46 6f 6e 74 5f 50  |0...? .. "Font_P|
00002e30  61 69 6e 74 22 2c 66 6f  6e 74 25 2c a4 6d 65 73  |aint",font%,.mes|
00002e40  28 22 62 31 31 22 29 2c  37 38 34 2c 78 6f 72 69  |("b11"),784,xori|
00002e50  67 25 2b 31 30 2c 79 6f  72 69 67 25 2b 33 31 30  |g%+10,yorig%+310|
00002e60  0d 11 e4 3f 20 c8 99 20  22 46 6f 6e 74 5f 50 61  |...? .. "Font_Pa|
00002e70  69 6e 74 22 2c 66 6f 6e  74 25 2c a4 6d 65 73 28  |int",font%,.mes(|
00002e80  22 62 31 32 22 29 2c 37  38 34 2c 78 6f 72 69 67  |"b12"),784,xorig|
00002e90  25 2b 31 30 2c 79 6f 72  69 67 25 2b 32 34 30 0d  |%+10,yorig%+240.|
00002ea0  11 ee 05 e1 0d 11 f8 05  3a 0d 12 02 12 dd 20 f2  |........:..... .|
00002eb0  6d 6f 75 73 65 5f 63 6c  69 63 6b 0d 12 0c 0f 20  |mouse_click.... |
00002ec0  c8 8e 20 62 25 21 31 32  20 ca 0d 12 16 0b 20 20  |.. b%!12 .....  |
00002ed0  20 c9 20 2d 32 0d 12 20  12 20 20 20 20 20 c8 8e  | . -2.. .     ..|
00002ee0  20 62 25 21 38 20 ca 0d  12 2a 25 20 20 20 20 20  | b%!8 ...*%     |
00002ef0  20 20 c9 20 31 3a f2 6f  70 65 6e 5f 77 69 6e 64  |  . 1:.open_wind|
00002f00  6f 77 28 62 69 6f 69 6e  66 6f 25 29 0d 12 34 0e  |ow(bioinfo%)..4.|
00002f10  20 20 20 20 20 20 20 c9  20 34 0d 12 3e 16 20 20  |       . 4..>.  |
00002f20  20 20 20 20 20 20 20 f2  73 65 74 5f 64 61 74 61  |       .set_data|
00002f30  0d 12 48 21 20 20 20 20  20 20 20 20 20 f2 63 6c  |..H!         .cl|
00002f40  6f 73 65 5f 77 69 6e 64  6f 77 28 6d 61 69 6e 25  |ose_window(main%|
00002f50  29 0d 12 52 20 20 20 20  20 20 20 20 20 20 f2 6f  |)..R          .o|
00002f60  70 65 6e 5f 77 69 6e 64  6f 77 28 64 61 74 61 25  |pen_window(data%|
00002f70  29 0d 12 5c 34 20 20 20  20 20 20 20 c9 20 32 3a  |)..\4       . 2:|
00002f80  f2 73 68 6f 77 5f 6d 65  6e 75 28 62 61 72 5f 6d  |.show_menu(bar_m|
00002f90  65 6e 75 25 2c 62 25 21  30 2d 36 34 2c 39 36 2b  |enu%,b%!0-64,96+|
00002fa0  34 2a 34 34 29 0d 12 66  0a 20 20 20 20 20 cb 0d  |4*44)..f.     ..|
00002fb0  12 70 0e 20 20 20 c9 20  64 61 74 61 25 0d 12 7a  |.p.   . data%..z|
00002fc0  20 20 20 20 20 20 f2 64  61 74 61 5f 63 6c 69 63  |      .data_clic|
00002fd0  6b 28 62 25 21 38 2c 62  25 21 31 36 29 0d 12 84  |k(b%!8,b%!16)...|
00002fe0  0e 20 20 20 c9 20 6d 61  69 6e 25 0d 12 8e 12 20  |.   . main%.... |
00002ff0  20 20 20 20 c8 8e 20 62  25 21 38 20 ca 0d 12 98  |    .. b%!8 ....|
00003000  32 20 20 20 20 20 20 20  c9 20 32 3a f2 73 68 6f  |2       . 2:.sho|
00003010  77 5f 6d 65 6e 75 28 70  6c 6f 74 5f 6d 65 6e 75  |w_menu(plot_menu|
00003020  25 2c 62 25 21 30 2d 36  34 2c 62 25 21 34 29 0d  |%,b%!0-64,b%!4).|
00003030  12 a2 0a 20 20 20 20 20  cb 0d 12 ac 1a 20 20 20  |...     .....   |
00003040  c9 20 73 61 76 65 25 3a  f2 73 61 76 65 5f 63 6c  |. save%:.save_cl|
00003050  69 63 6b 0d 12 b6 20 20  20 20 c9 20 70 72 69 6e  |ick...    . prin|
00003060  74 65 72 25 3a f2 70 72  69 6e 74 65 72 5f 63 6c  |ter%:.printer_cl|
00003070  69 63 6b 0d 12 c0 06 20  cb 0d 12 ca 05 e1 0d 12  |ick.... ........|
00003080  d4 05 3a 0d 12 de 0f dd  20 f2 64 72 61 67 5f 65  |..:..... .drag_e|
00003090  6e 64 0d 12 e8 11 20 ea  20 61 24 2c 70 74 72 25  |nd.... . a$,ptr%|
000030a0  2c 63 25 0d 12 f2 0d 20  63 25 3d 62 25 2b 34 30  |,c%.... c%=b%+40|
000030b0  0d 12 fc 21 20 c8 99 20  22 57 69 6d 70 5f 47 65  |...! .. "Wimp_Ge|
000030c0  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 62  |tPointerInfo",,b|
000030d0  25 0d 13 06 18 20 61 24  20 20 20 20 20 20 20 3d  |%.... a$       =|
000030e0  20 24 73 61 76 65 61 73  25 0d 13 10 15 20 63 25  | $saveas%.... c%|
000030f0  21 32 30 20 20 20 20 3d  20 62 25 21 31 32 0d 13  |!20    = b%!12..|
00003100  1a 15 20 63 25 21 32 34  20 20 20 20 3d 20 62 25  |.. c%!24    = b%|
00003110  21 31 36 0d 13 24 14 20  63 25 21 32 38 20 20 20  |!16..$. c%!28   |
00003120  20 3d 20 62 25 21 30 0d  13 2e 14 20 63 25 21 33  | = b%!0.... c%!3|
00003130  32 20 20 20 20 3d 20 62  25 21 34 0d 13 38 14 20  |2    = b%!4..8. |
00003140  63 25 21 33 36 20 20 20  20 3d 20 35 31 32 30 0d  |c%!36    = 5120.|
00003150  13 42 11 20 c8 8e 20 73  61 76 69 6e 67 25 20 ca  |.B. .. saving% .|
00003160  0d 13 4c 17 20 20 20 c9  20 30 3a 63 25 21 34 30  |..L.   . 0:c%!40|
00003170  20 3d 20 26 61 66 66 0d  13 56 17 20 20 20 c9 20  | = &aff..V.   . |
00003180  31 3a 63 25 21 34 30 20  3d 20 26 63 32 38 0d 13  |1:c%!40 = &c28..|
00003190  60 17 20 20 20 c9 20 32  3a 63 25 21 34 30 20 3d  |`.   . 2:c%!40 =|
000031a0  20 26 64 66 65 0d 13 6a  06 20 cb 0d 13 74 14 20  | &dfe..j. ...t. |
000031b0  c8 95 20 a7 61 24 2c 22  2e 22 29 20 3c 3e 30 0d  |.. .a$,".") <>0.|
000031c0  13 7e 14 20 20 20 70 74  72 25 3d a7 61 24 2c 22  |.~.   ptr%=.a$,"|
000031d0  2e 22 29 0d 13 88 17 20  20 20 61 24 20 20 3d c1  |.")....   a$  =.|
000031e0  61 24 2c 70 74 72 25 2b  31 29 0d 13 92 06 20 ce  |a$,ptr%+1).... .|
000031f0  0d 13 9c 10 20 24 28 63  25 2b 34 34 29 3d 61 24  |.... $(c%+44)=a$|
00003200  0d 13 a6 1f 20 21 63 25  20 20 20 20 20 3d 34 34  |.... !c%     =44|
00003210  2b 28 a9 20 61 24 2b 31  20 81 20 34 29 2a 34 0d  |+(. a$+1 . 4)*4.|
00003220  13 b0 1d 20 e7 20 28 a9  20 61 24 2b 31 20 83 20  |... . (. a$+1 . |
00003230  34 29 3c 3e 30 20 21 62  25 2b 3d 34 0d 13 ba 11  |4)<>0 !b%+=4....|
00003240  20 63 25 21 34 20 20 3d  20 74 73 6b 25 0d 13 c4  | c%!4  = tsk%...|
00003250  0e 20 63 25 21 31 32 20  3d 20 30 0d 13 ce 0e 20  |. c%!12 = 0.... |
00003260  63 25 21 31 36 20 3d 20  31 0d 13 d8 11 20 63 25  |c%!16 = 1.... c%|
00003270  21 33 36 20 3d 20 35 31  32 30 0d 13 e2 2c 20 c8  |!36 = 5120..., .|
00003280  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
00003290  61 67 65 22 2c 31 38 2c  63 25 2c 63 25 21 32 30  |age",18,c%,c%!20|
000032a0  2c 63 25 21 32 34 0d 13  ec 10 20 24 73 61 76 65  |,c%!24.... $save|
000032b0  61 73 25 3d 61 24 0d 13  f6 17 20 f2 73 68 6f 77  |as%=a$.... .show|
000032c0  5f 6d 65 6e 75 28 2d 31  2c 30 2c 30 29 0d 14 00  |_menu(-1,0,0)...|
000032d0  05 e1 0d 14 0a 05 3a 0d  14 14 10 dd 20 f2 6b 65  |......:..... .ke|
000032e0  79 5f 70 72 65 73 73 0d  14 1e 0e 20 ea 20 6b 65  |y_press.... . ke|
000032f0  79 25 2c 63 25 0d 14 28  13 20 63 25 20 20 20 3d  |y%,c%..(. c%   =|
00003300  20 62 25 2b 31 30 30 30  0d 14 32 11 20 6b 65 79  | b%+1000..2. key|
00003310  25 20 3d 20 62 25 21 32  34 0d 14 3c 0e 20 c8 8e  |% = b%!24..<. ..|
00003320  20 6b 65 79 25 20 ca 0d  14 46 0d 20 20 20 c9 20  | key% ...F.   . |
00003330  26 31 38 30 0d 14 50 1f  20 20 20 20 20 e7 20 a4  |&180..P.     . .|
00003340  69 73 5f 69 74 5f 6f 70  65 6e 28 6d 61 69 6e 25  |is_it_open(main%|
00003350  29 20 8c 0d 14 5a 1d 20  20 20 20 20 20 20 f2 73  |) ...Z.       .s|
00003360  68 6f 77 5f 6d 65 6e 75  28 2d 31 2c 30 2c 30 29  |how_menu(-1,0,0)|
00003370  0d 14 64 21 20 20 20 20  20 20 20 f2 6f 70 65 6e  |..d!       .open|
00003380  5f 77 69 6e 64 6f 77 28  70 72 69 6e 74 65 72 25  |_window(printer%|
00003390  29 0d 14 6e 0a 20 20 20  20 20 cd 0d 14 78 0b 20  |)..n.     ...x. |
000033a0  20 20 c9 20 31 33 0d 14  82 27 20 20 20 20 20 c8  |  . 13...'     .|
000033b0  99 20 22 57 69 6d 70 5f  47 65 74 43 61 72 65 74  |. "Wimp_GetCaret|
000033c0  50 6f 73 69 74 69 6f 6e  22 2c 2c 63 25 0d 14 8c  |Position",,c%...|
000033d0  12 20 20 20 20 20 c8 8e  20 63 25 21 30 20 ca 0d  |.     .. c%!0 ..|
000033e0  14 96 1f 20 20 20 20 20  20 20 c9 20 73 61 76 65  |...       . save|
000033f0  25 3a f2 73 61 76 65 5f  72 65 74 75 72 6e 0d 14  |%:.save_return..|
00003400  a0 25 20 20 20 20 20 20  20 c9 20 64 61 74 61 25  |.%       . data%|
00003410  3a f2 64 61 74 61 5f 72  65 74 75 72 6e 28 63 25  |:.data_return(c%|
00003420  21 34 29 0d 14 aa 0a 20  20 20 20 20 cb 0d 14 b4  |!4)....     ....|
00003430  07 20 20 7f 0d 14 be 23  20 20 20 20 20 c8 99 20  |.  ....#     .. |
00003440  22 57 69 6d 70 5f 50 72  6f 63 65 73 73 4b 65 79  |"Wimp_ProcessKey|
00003450  22 2c 62 25 21 32 34 0d  14 c8 06 20 cb 0d 14 d2  |",b%!24.... ....|
00003460  05 e1 0d 14 dc 05 3a 0d  14 e6 11 dd 20 f2 6d 65  |......:..... .me|
00003470  6e 75 5f 63 6c 69 63 6b  0d 14 f0 0b 20 ea 20 63  |nu_click.... . c|
00003480  25 2c 78 0d 14 fa 0e 20  63 25 3d 62 25 2b 39 30  |%,x.... c%=b%+90|
00003490  30 0d 15 04 21 20 c8 99  20 22 57 69 6d 70 5f 47  |0...! .. "Wimp_G|
000034a0  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
000034b0  63 25 0d 15 0e 14 20 61  64 6a 25 3d 28 63 25 21  |c%.... adj%=(c%!|
000034c0  38 20 80 20 31 29 0d 15  18 29 20 c8 99 20 22 57  |8 . 1)...) .. "W|
000034d0  69 6d 70 5f 44 65 63 6f  64 65 4d 65 6e 75 22 2c  |imp_DecodeMenu",|
000034e0  2c 74 6f 70 6d 65 6e 75  25 2c 62 25 2c 63 25 0d  |,topmenu%,b%,c%.|
000034f0  15 22 0d 20 c8 8e 20 24  63 25 20 ca 0d 15 2c 25  |.". .. $c% ...,%|
00003500  20 20 20 c9 20 62 61 72  32 24 3a f2 6f 70 65 6e  |   . bar2$:.open|
00003510  5f 77 69 6e 64 6f 77 28  62 69 6f 69 6e 66 6f 25  |_window(bioinfo%|
00003520  29 0d 15 36 16 20 20 20  c9 20 62 61 72 33 24 3a  |)..6.   . bar3$:|
00003530  71 75 69 74 25 3d b9 0d  15 40 26 20 20 20 c9 20  |quit%=...@&   . |
00003540  70 6c 6f 74 32 24 3a f2  6f 70 65 6e 5f 77 69 6e  |plot2$:.open_win|
00003550  64 6f 77 28 70 72 69 6e  74 65 72 25 29 0d 15 4a  |dow(printer%)..J|
00003560  07 20 20 7f 0d 15 54 40  20 20 20 20 20 e7 20 28  |.  ...T@     . (|
00003570  74 6f 70 6d 65 6e 75 25  3d 62 61 72 5f 6d 65 6e  |topmenu%=bar_men|
00003580  75 25 20 84 20 74 6f 70  6d 65 6e 75 25 3d 70 6c  |u% . topmenu%=pl|
00003590  6f 74 5f 6d 65 6e 75 25  29 20 80 20 62 25 21 30  |ot_menu%) . b%!0|
000035a0  3d 31 20 8c 0d 15 5e 14  20 20 20 20 20 20 20 c8  |=1 ...^.       .|
000035b0  8e 20 62 25 21 34 20 ca  0d 15 68 10 20 20 20 20  |. b%!4 ...h.    |
000035c0  20 20 20 20 20 c9 20 30  0d 15 72 18 20 20 20 20  |     . 0..r.    |
000035d0  20 20 20 20 20 20 20 e3  20 78 3d 30 20 b8 20 35  |       . x=0 . 5|
000035e0  0d 15 7c 27 20 20 20 20  20 20 20 20 20 20 20 20  |..|'            |
000035f0  20 f2 75 6e 74 69 63 6b  28 77 69 64 74 68 5f 6d  | .untick(width_m|
00003600  65 6e 75 25 2c 78 29 0d  15 86 10 20 20 20 20 20  |enu%,x)....     |
00003610  20 20 20 20 20 20 ed 0d  15 90 18 20 20 20 20 20  |      .....     |
00003620  20 20 20 20 20 20 c8 8e  20 62 25 21 38 20 ca 0d  |      .. b%!8 ..|
00003630  15 9a 43 20 20 20 20 20  20 20 20 20 20 20 20 20  |..C             |
00003640  c9 20 30 2c 31 2c 32 2c  33 2c 34 3a 6c 69 6e 65  |. 0,1,2,3,4:line|
00003650  74 68 25 3d 32 35 36 2a  28 bb 28 a4 6d 65 73 28  |th%=256*(.(.mes(|
00003660  22 57 69 64 74 68 22 2b  c3 28 62 25 21 38 29 29  |"Width"+.(b%!8))|
00003670  29 29 0d 15 a4 29 20 20  20 20 20 20 20 20 20 20  |))...)          |
00003680  20 20 20 c9 20 35 3a 6c  69 6e 65 74 68 25 3d 32  |   . 5:lineth%=2|
00003690  35 36 2a bb 24 77 69 64  74 68 25 0d 15 ae 10 20  |56*.$width%.... |
000036a0  20 20 20 20 20 20 20 20  20 20 cb 0d 15 b8 26 20  |          ....& |
000036b0  20 20 20 20 20 20 20 20  20 20 f2 74 69 63 6b 28  |          .tick(|
000036c0  77 69 64 74 68 5f 6d 65  6e 75 25 2c 62 25 21 38  |width_menu%,b%!8|
000036d0  29 0d 15 c2 23 20 20 20  20 20 20 20 20 20 20 20  |)...#           |
000036e0  f2 66 6f 72 63 65 5f 72  65 64 72 61 77 28 6d 61  |.force_redraw(ma|
000036f0  69 6e 25 29 0d 15 cc 1b  20 20 20 20 20 20 20 20  |in%)....        |
00003700  20 c9 20 31 3a f2 73 61  76 65 5f 6f 70 74 73 0d  | . 1:.save_opts.|
00003710  15 d6 0c 20 20 20 20 20  20 20 cb 0d 15 e0 0a 20  |...       ..... |
00003720  20 20 20 20 cd 0d 15 ea  06 20 cb 0d 15 f4 2c 20  |    ..... ...., |
00003730  e7 20 61 64 6a 25 20 f2  73 68 6f 77 5f 6d 65 6e  |. adj% .show_men|
00003740  75 28 74 6f 70 6d 65 6e  75 25 2c 74 6f 70 78 25  |u(topmenu%,topx%|
00003750  2c 74 6f 70 79 25 29 0d  15 fe 05 e1 0d 16 08 05  |,topy%).........|
00003760  3a 0d 16 12 18 dd 20 f2  6f 70 65 6e 5f 77 69 6e  |:..... .open_win|
00003770  64 6f 77 28 77 69 6e 25  29 0d 16 1c 09 20 ea 20  |dow(win%).... . |
00003780  63 25 0d 16 26 12 20 63  25 20 20 3d 20 62 25 2b  |c%..&. c%  = b%+|
00003790  31 30 30 30 0d 16 30 0f  20 21 63 25 20 3d 20 77  |1000..0. !c% = w|
000037a0  69 6e 25 0d 16 3a 21 20  c8 99 20 22 57 69 6d 70  |in%..:! .. "Wimp|
000037b0  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
000037c0  2c 2c 63 25 0d 16 44 1d  20 c8 99 20 22 57 69 6d  |,,c%..D. .. "Wim|
000037d0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 63  |p_OpenWindow",,c|
000037e0  25 0d 16 4e 05 e1 0d 16  58 05 3a 0d 16 62 19 dd  |%..N....X.:..b..|
000037f0  20 f2 63 6c 6f 73 65 5f  77 69 6e 64 6f 77 28 77  | .close_window(w|
00003800  69 6e 25 29 0d 16 6c 09  20 ea 20 63 25 0d 16 76  |in%)..l. . c%..v|
00003810  12 20 63 25 20 20 3d 20  62 25 2b 31 30 30 30 0d  |. c%  = b%+1000.|
00003820  16 80 0f 20 21 63 25 20  3d 20 77 69 6e 25 0d 16  |... !c% = win%..|
00003830  8a 21 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |.! .. "Wimp_GetW|
00003840  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 63 25 0d  |indowState",,c%.|
00003850  16 94 1e 20 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |... .. "Wimp_Clo|
00003860  73 65 57 69 6e 64 6f 77  22 2c 2c 63 25 0d 16 9e  |seWindow",,c%...|
00003870  05 e1 0d 16 a8 05 3a 0d  16 b2 17 dd 20 a4 69 73  |......:..... .is|
00003880  5f 69 74 5f 6f 70 65 6e  28 77 69 6e 25 29 0d 16  |_it_open(win%)..|
00003890  bc 0c 20 ea 20 63 25 2c  61 25 0d 16 c6 11 20 63  |.. . c%,a%.... c|
000038a0  25 20 20 3d 20 62 25 2b  35 30 30 0d 16 d0 0f 20  |%  = b%+500.... |
000038b0  21 63 25 20 3d 20 77 69  6e 25 0d 16 da 21 20 c8  |!c% = win%...! .|
000038c0  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
000038d0  77 53 74 61 74 65 22 2c  2c 63 25 0d 16 e4 09 20  |wState",,c%.... |
000038e0  61 25 3d 30 0d 16 ee 21  20 e7 20 28 63 25 21 33  |a%=0...! . (c%!3|
000038f0  32 20 80 20 31 3c 3c 31  36 29 3c 3e 30 20 8c 20  |2 . 1<<16)<>0 . |
00003900  61 25 3d 2d 31 0d 16 f8  07 3d 61 25 0d 17 02 05  |a%=-1....=a%....|
00003910  3a 0d 17 0c 1d dd 20 f2  73 68 6f 77 5f 6d 65 6e  |:..... .show_men|
00003920  75 28 6d 65 6e 75 25 2c  78 25 2c 79 25 29 0d 17  |u(menu%,x%,y%)..|
00003930  16 15 20 74 6f 70 6d 65  6e 75 25 20 3d 20 6d 65  |.. topmenu% = me|
00003940  6e 75 25 0d 17 20 12 20  74 6f 70 78 25 20 20 20  |nu%.. . topx%   |
00003950  20 3d 20 78 25 0d 17 2a  12 20 74 6f 70 79 25 20  | = x%..*. topy% |
00003960  20 20 20 3d 20 79 25 0d  17 34 26 20 c8 99 20 22  |   = y%..4& .. "|
00003970  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00003980  2c 2c 6d 65 6e 75 25 2c  78 25 2c 79 25 0d 17 3e  |,,menu%,x%,y%..>|
00003990  05 e1 0d 17 48 05 3a 0d  17 52 20 dd 20 f2 64 61  |....H.:..R . .da|
000039a0  74 61 5f 63 6c 69 63 6b  28 62 75 74 74 6f 6e 25  |ta_click(button%|
000039b0  2c 69 63 6f 6e 25 29 0d  17 5c 10 20 ea 20 78 2c  |,icon%)..\. . x,|
000039c0  72 65 64 72 61 77 25 0d  17 66 14 20 72 65 64 72  |redraw%..f. redr|
000039d0  61 77 25 3d 62 25 2b 33  30 30 30 0d 17 70 0b 20  |aw%=b%+3000..p. |
000039e0  70 74 72 25 3d 30 0d 17  7a 10 20 21 72 65 64 72  |ptr%=0..z. !redr|
000039f0  61 77 25 3d 2d 31 0d 17  84 11 20 62 79 25 3d bb  |aw%=-1.... by%=.|
00003a00  28 24 69 62 79 25 29 0d  17 8e 11 20 70 79 25 3d  |($iby%).... py%=|
00003a10  bb 28 24 69 70 79 25 29  0d 17 98 0f 20 c8 8e 20  |.($ipy%).... .. |
00003a20  69 63 6f 6e 25 20 ca 0d  17 a2 13 20 20 20 c9 20  |icon% .....   . |
00003a30  38 3a 62 64 25 20 2d 3d  20 31 0d 17 ac 13 20 20  |8:bd% -= 1....  |
00003a40  20 c9 20 39 3a 62 6d 25  20 2d 3d 20 31 0d 17 b6  | . 9:bm% -= 1...|
00003a50  13 20 20 20 c9 20 31 30  3a 62 79 25 2d 3d 20 31  |.   . 10:by%-= 1|
00003a60  0d 17 c0 13 20 20 20 c9  20 31 31 3a 62 64 25 2b  |....   . 11:bd%+|
00003a70  3d 20 31 0d 17 ca 13 20  20 20 c9 20 31 32 3a 62  |= 1....   . 12:b|
00003a80  6d 25 2b 3d 20 31 0d 17  d4 13 20 20 20 c9 20 31  |m%+= 1....   . 1|
00003a90  33 3a 62 79 25 2b 3d 20  31 0d 17 de 13 20 20 20  |3:by%+= 1....   |
00003aa0  c9 20 32 30 3a 70 64 25  2d 3d 20 31 0d 17 e8 13  |. 20:pd%-= 1....|
00003ab0  20 20 20 c9 20 32 31 3a  70 6d 25 2d 3d 20 31 0d  |   . 21:pm%-= 1.|
00003ac0  17 f2 13 20 20 20 c9 20  32 32 3a 70 79 25 2d 3d  |...   . 22:py%-=|
00003ad0  20 31 0d 17 fc 13 20 20  20 c9 20 32 36 3a 70 64  | 1....   . 26:pd|
00003ae0  25 2b 3d 20 31 0d 18 06  13 20 20 20 c9 20 32 37  |%+= 1....   . 27|
00003af0  3a 70 6d 25 2b 3d 20 31  0d 18 10 13 20 20 20 c9  |:pm%+= 1....   .|
00003b00  20 32 38 3a 70 79 25 2b  3d 20 31 0d 18 1a 0b 20  | 28:py%+= 1.... |
00003b10  20 20 c9 20 31 36 0d 18  24 14 20 20 20 20 20 70  |  . 16..$.     p|
00003b20  64 25 20 3d 20 63 64 61  79 25 0d 18 2e 16 20 20  |d% = cday%....  |
00003b30  20 20 20 70 6d 25 20 3d  20 63 6d 6f 6e 74 68 25  |   pm% = cmonth%|
00003b40  0d 18 38 15 20 20 20 20  20 70 79 25 20 3d 20 63  |..8.     py% = c|
00003b50  79 65 61 72 25 0d 18 42  12 20 20 20 20 20 f2 73  |year%..B.     .s|
00003b60  65 74 5f 64 61 74 61 0d  18 4c 0b 20 20 20 c9 20  |et_data..L.   . |
00003b70  32 39 0d 18 56 17 20 20  20 20 20 f2 77 6f 72 6b  |29..V.     .work|
00003b80  6f 75 74 5f 77 61 76 65  73 0d 18 60 1c 20 20 20  |out_waves..`.   |
00003b90  20 20 f2 6f 70 65 6e 5f  77 69 6e 64 6f 77 28 6d  |  .open_window(m|
00003ba0  61 69 6e 25 29 0d 18 6a  1d 20 20 20 20 20 f2 63  |ain%)..j.     .c|
00003bb0  6c 6f 73 65 5f 77 69 6e  64 6f 77 28 64 61 74 61  |lose_window(data|
00003bc0  25 29 0d 18 74 0b 20 20  20 c9 20 33 30 0d 18 7e  |%)..t.   . 30..~|
00003bd0  1d 20 20 20 20 20 f2 63  6c 6f 73 65 5f 77 69 6e  |.     .close_win|
00003be0  64 6f 77 28 64 61 74 61  25 29 0d 18 88 06 20 cb  |dow(data%).... .|
00003bf0  0d 18 92 34 20 e7 20 69  63 6f 6e 25 3c 3e 31 36  |...4 . icon%<>16|
00003c00  20 80 20 69 63 6f 6e 25  3c 3e 32 39 20 80 20 69  | . icon%<>29 . i|
00003c10  63 6f 6e 25 3c 3e 33 30  20 8c 20 f2 73 65 74 5f  |con%<>30 . .set_|
00003c20  64 61 74 61 0d 18 9c 05  e1 0d 18 a6 05 3a 0d 18  |data.........:..|
00003c30  b0 19 dd 20 f2 64 61 74  61 5f 72 65 74 75 72 6e  |... .data_return|
00003c40  28 69 63 6f 6e 25 29 0d  18 ba 0f 20 c8 8e 20 69  |(icon%).... .. i|
00003c50  63 6f 6e 25 20 ca 0d 18  c4 0a 20 20 20 c9 20 37  |con% .....   . 7|
00003c60  0d 18 ce 15 20 20 20 20  20 62 79 25 3d bb 28 24  |....     by%=.($|
00003c70  69 62 79 25 29 0d 18 d8  12 20 20 20 20 20 f2 73  |iby%)....     .s|
00003c80  65 74 5f 64 61 74 61 0d  18 e2 0b 20 20 20 c9 20  |et_data....   . |
00003c90  32 35 0d 18 ec 15 20 20  20 20 20 70 79 25 3d bb  |25....     py%=.|
00003ca0  28 24 69 70 79 25 29 0d  18 f6 12 20 20 20 20 20  |($ipy%)....     |
00003cb0  f2 73 65 74 5f 64 61 74  61 0d 19 00 0b 20 20 20  |.set_data....   |
00003cc0  c9 20 33 34 0d 19 0a 1d  20 20 20 20 20 f2 63 6c  |. 34....     .cl|
00003cd0  6f 73 65 5f 77 69 6e 64  6f 77 28 64 61 74 61 25  |ose_window(data%|
00003ce0  29 0d 19 14 17 20 20 20  20 20 f2 77 6f 72 6b 6f  |)....     .worko|
00003cf0  75 74 5f 77 61 76 65 73  0d 19 1e 1c 20 20 20 20  |ut_waves....    |
00003d00  20 f2 6f 70 65 6e 5f 77  69 6e 64 6f 77 28 6d 61  | .open_window(ma|
00003d10  69 6e 25 29 0d 19 28 06  20 cb 0d 19 32 05 e1 0d  |in%)..(. ...2...|
00003d20  19 3c 05 3a 0d 19 46 11  dd 20 f2 73 61 76 65 5f  |.<.:..F.. .save_|
00003d30  63 6c 69 63 6b 0d 19 50  0f 20 c8 8e 20 62 25 21  |click..P. .. b%!|
00003d40  31 36 20 ca 0d 19 5a 0a  20 20 20 c9 20 33 0d 19  |16 ...Z.   . 3..|
00003d50  64 33 20 20 20 20 20 e7  20 62 25 21 38 3d 31 36  |d3     . b%!8=16|
00003d60  20 84 20 62 25 21 38 3d  36 34 20 8c 20 f2 73 74  | . b%!8=64 . .st|
00003d70  61 72 74 5f 64 72 61 67  28 62 25 21 31 32 2c 33  |art_drag(b%!12,3|
00003d80  29 0d 19 6e 17 20 20 20  c9 20 30 3a f2 73 61 76  |)..n.   . 0:.sav|
00003d90  65 5f 72 65 74 75 72 6e  0d 19 78 06 20 cb 0d 19  |e_return..x. ...|
00003da0  82 05 e1 0d 19 8c 05 3a  0d 19 96 14 dd 20 f2 70  |.......:..... .p|
00003db0  72 69 6e 74 65 72 5f 63  6c 69 63 6b 0d 19 a0 0f  |rinter_click....|
00003dc0  20 c8 8e 20 62 25 21 31  36 20 ca 0d 19 aa 0a 20  | .. b%!16 ..... |
00003dd0  20 20 c9 20 34 0d 19 b4  1a 20 20 20 20 20 c8 99  |  . 4....     ..|
00003de0  20 22 4f 53 5f 42 79 74  65 22 2c 32 31 2c 39 0d  | "OS_Byte",21,9.|
00003df0  19 be 20 20 20 20 20 20  f2 63 6c 6f 73 65 5f 77  |..      .close_w|
00003e00  69 6e 64 6f 77 28 70 72  69 6e 74 65 72 25 29 0d  |indow(printer%).|
00003e10  19 c8 15 20 20 20 20 20  f2 73 74 61 72 74 5f 70  |...     .start_p|
00003e20  72 69 6e 74 0d 19 d2 22  20 20 20 c9 20 35 3a f2  |rint..."   . 5:.|
00003e30  63 6c 6f 73 65 5f 77 69  6e 64 6f 77 28 70 72 69  |close_window(pri|
00003e40  6e 74 65 72 25 29 0d 19  dc 06 20 cb 0d 19 e6 05  |nter%).... .....|
00003e50  e1 0d 19 f0 05 3a 0d 19  fa 0f dd 20 f2 73 65 74  |.....:..... .set|
00003e60  5f 64 61 74 61 0d 1a 04  2f 20 ea 20 61 25 2c 72  |_data.../ . a%,r|
00003e70  65 64 72 61 77 25 2c 62  64 24 2c 62 6d 24 2c 62  |edraw%,bd$,bm$,b|
00003e80  79 24 2c 70 64 24 2c 70  6d 24 2c 70 79 24 2c 65  |y$,pd$,pm$,py$,e|
00003e90  72 65 64 25 0d 1a 0e 16  20 72 65 64 72 61 77 25  |red%.... redraw%|
00003ea0  20 3d 20 62 25 2b 32 30  30 30 0d 1a 18 10 20 70  | = b%+2000.... p|
00003eb0  74 72 25 20 20 20 20 3d  20 30 0d 1a 22 1d 20 e7  |tr%    = 0..". .|
00003ec0  20 62 6d 25 3d 31 33 20  8c 20 62 6d 25 3d 31 20  | bm%=13 . bm%=1 |
00003ed0  3a 62 79 25 2b 3d 31 0d  1a 2c 1d 20 e7 20 62 6d  |:by%+=1..,. . bm|
00003ee0  25 3d 30 20 20 8c 20 62  6d 25 3d 31 32 3a 62 79  |%=0  . bm%=12:by|
00003ef0  25 2d 3d 31 0d 1a 36 1d  20 e7 20 70 6d 25 3d 31  |%-=1..6. . pm%=1|
00003f00  33 20 8c 20 70 6d 25 3d  31 20 3a 70 79 25 2b 3d  |3 . pm%=1 :py%+=|
00003f10  31 0d 1a 40 1d 20 e7 20  70 6d 25 3d 30 20 20 8c  |1..@. . pm%=0  .|
00003f20  20 70 6d 25 3d 31 32 3a  70 79 25 2d 3d 31 0d 1a  | pm%=12:py%-=1..|
00003f30  4a 2f 20 f2 72 65 61 6c  64 61 74 65 28 62 64 25  |J/ .realdate(bd%|
00003f40  2c 62 6d 25 2c 62 79 25  2c 61 62 64 25 2c 61 62  |,bm%,by%,abd%,ab|
00003f50  6d 25 2c 61 62 79 25 2c  62 77 64 25 29 0d 1a 54  |m%,aby%,bwd%)..T|
00003f60  2f 20 f2 72 65 61 6c 64  61 74 65 28 70 64 25 2c  |/ .realdate(pd%,|
00003f70  70 6d 25 2c 70 79 25 2c  61 70 64 25 2c 61 70 6d  |pm%,py%,apd%,apm|
00003f80  25 2c 61 70 79 25 2c 70  77 64 25 29 0d 1a 5e 10  |%,apy%,pwd%)..^.|
00003f90  20 e7 20 61 62 64 25 3d  2d 31 20 8c 0d 1a 68 13  | . abd%=-1 ...h.|
00003fa0  20 20 20 e7 20 62 79 25  3c 31 39 39 30 20 8c 0d  |   . by%<1990 ..|
00003fb0  1a 72 0f 20 20 20 20 20  61 62 64 25 3d 31 0d 1a  |.r.     abd%=1..|
00003fc0  7c 0f 20 20 20 20 20 61  62 6d 25 3d 31 0d 1a 86  ||.     abm%=1...|
00003fd0  12 20 20 20 20 20 61 62  79 25 3d 31 39 30 30 0d  |.     aby%=1900.|
00003fe0  1a 90 0f 20 20 20 20 20  62 77 64 25 3d 32 0d 1a  |...     bwd%=2..|
00003ff0  9a 08 20 20 20 cd 0d 1a  a4 13 20 20 20 e7 20 62  |..   .....   . b|
00004000  79 25 3e 31 39 39 30 20  8c 0d 1a ae 0f 20 20 20  |y%>1990 .....   |
00004010  20 20 61 62 64 25 3d 33  0d 1a b8 0f 20 20 20 20  |  abd%=3....    |
00004020  20 61 62 6d 25 3d 36 0d  1a c2 12 20 20 20 20 20  | abm%=6....     |
00004030  61 62 79 25 3d 32 32 34  38 0d 1a cc 0f 20 20 20  |aby%=2248....   |
00004040  20 20 62 77 64 25 3d 37  0d 1a d6 08 20 20 20 cd  |  bwd%=7....   .|
00004050  0d 1a e0 06 20 cd 0d 1a  ea 10 20 e7 20 61 70 64  |.... ..... . apd|
00004060  25 3d 2d 31 20 8c 0d 1a  f4 13 20 20 20 e7 20 70  |%=-1 .....   . p|
00004070  79 25 3c 31 39 39 30 20  8c 0d 1a fe 0f 20 20 20  |y%<1990 .....   |
00004080  20 20 61 70 64 25 3d 31  0d 1b 08 0f 20 20 20 20  |  apd%=1....    |
00004090  20 61 70 6d 25 3d 31 0d  1b 12 12 20 20 20 20 20  | apm%=1....     |
000040a0  61 70 79 25 3d 31 39 30  30 0d 1b 1c 0f 20 20 20  |apy%=1900....   |
000040b0  20 20 70 77 64 25 3d 32  0d 1b 26 08 20 20 20 cd  |  pwd%=2..&.   .|
000040c0  0d 1b 30 13 20 20 20 e7  20 70 79 25 3e 31 39 39  |..0.   . py%>199|
000040d0  30 20 8c 0d 1b 3a 0f 20  20 20 20 20 61 70 64 25  |0 ...:.     apd%|
000040e0  3d 33 0d 1b 44 0f 20 20  20 20 20 61 70 6d 25 3d  |=3..D.     apm%=|
000040f0  36 0d 1b 4e 12 20 20 20  20 20 61 70 79 25 3d 32  |6..N.     apy%=2|
00004100  32 34 38 0d 1b 58 0f 20  20 20 20 20 70 77 64 25  |248..X.     pwd%|
00004110  3d 37 0d 1b 62 08 20 20  20 cd 0d 1b 6c 06 20 cd  |=7..b.   ...l. .|
00004120  0d 1b 76 1b 20 e7 20 62  64 25 3c 3e 61 62 64 25  |..v. . bd%<>abd%|
00004130  20 8c 20 62 64 25 3d 61  62 64 25 0d 1b 80 1b 20  | . bd%=abd%.... |
00004140  e7 20 62 6d 25 3c 3e 61  62 6d 25 20 8c 20 62 6d  |. bm%<>abm% . bm|
00004150  25 3d 61 62 6d 25 0d 1b  8a 1b 20 e7 20 62 79 25  |%=abm%.... . by%|
00004160  3c 3e 61 62 79 25 20 8c  20 62 79 25 3d 61 62 79  |<>aby% . by%=aby|
00004170  25 0d 1b 94 1b 20 e7 20  70 64 25 3c 3e 61 70 64  |%.... . pd%<>apd|
00004180  25 20 8c 20 70 64 25 3d  61 70 64 25 0d 1b 9e 1b  |% . pd%=apd%....|
00004190  20 e7 20 70 6d 25 3c 3e  61 70 6d 25 20 8c 20 70  | . pm%<>apm% . p|
000041a0  6d 25 3d 61 70 6d 25 0d  1b a8 1b 20 e7 20 70 79  |m%=apm%.... . py|
000041b0  25 3c 3e 61 70 79 25 20  8c 20 70 79 25 3d 61 70  |%<>apy% . py%=ap|
000041c0  79 25 0d 1b b2 18 20 f4  20 63 68 61 6e 67 65 20  |y%.... . change |
000041d0  74 68 65 20 64 61 74 65  73 2e 0d 1b bc 26 20 62  |the dates....& b|
000041e0  64 24 3d a4 6e 75 6d 5f  74 6f 5f 64 61 79 28 62  |d$=.num_to_day(b|
000041f0  77 64 25 29 2b 22 2c 20  22 2b c3 28 62 64 25 29  |wd%)+", "+.(bd%)|
00004200  0d 1b c6 1d 20 62 6d 24  3d a4 6e 75 6d 62 65 72  |.... bm$=.number|
00004210  5f 74 6f 5f 6e 61 6d 65  28 62 6d 25 29 0d 1b d0  |_to_name(bm%)...|
00004220  0f 20 62 79 24 3d c3 28  62 79 25 29 0d 1b da 26  |. by$=.(by%)...&|
00004230  20 70 64 24 3d a4 6e 75  6d 5f 74 6f 5f 64 61 79  | pd$=.num_to_day|
00004240  28 70 77 64 25 29 2b 22  2c 20 22 2b c3 28 70 64  |(pwd%)+", "+.(pd|
00004250  25 29 0d 1b e4 1d 20 70  6d 24 3d a4 6e 75 6d 62  |%).... pm$=.numb|
00004260  65 72 5f 74 6f 5f 6e 61  6d 65 28 70 6d 25 29 0d  |er_to_name(pm%).|
00004270  1b ee 0f 20 70 79 24 3d  c3 28 70 79 25 29 0d 1b  |... py$=.(py%)..|
00004280  f8 0b 20 70 74 72 25 3d  30 0d 1c 02 15 20 e7 20  |.. ptr%=0.... . |
00004290  24 69 62 64 25 20 3c 3e  20 62 64 24 20 8c 0d 1c  |$ibd% <> bd$ ...|
000042a0  0c 18 20 20 20 24 69 62  64 25 20 20 20 20 20 20  |..   $ibd%      |
000042b0  20 3d 20 62 64 24 0d 1c  16 16 20 20 20 72 65 64  | = bd$....   red|
000042c0  72 61 77 25 21 70 74 72  25 3d 20 35 0d 1c 20 16  |raw%!ptr%= 5.. .|
000042d0  20 20 20 70 74 72 25 20  20 20 20 20 20 20 2b 3d  |   ptr%       +=|
000042e0  20 34 0d 1c 2a 06 20 cd  0d 1c 34 15 20 e7 20 24  | 4..*. ...4. . $|
000042f0  69 62 6d 25 20 3c 3e 20  62 6d 24 20 8c 0d 1c 3e  |ibm% <> bm$ ...>|
00004300  18 20 20 20 24 69 62 6d  25 20 20 20 20 20 20 20  |.   $ibm%       |
00004310  3d 20 62 6d 24 0d 1c 48  16 20 20 20 72 65 64 72  |= bm$..H.   redr|
00004320  61 77 25 21 70 74 72 25  3d 20 36 0d 1c 52 16 20  |aw%!ptr%= 6..R. |
00004330  20 20 70 74 72 25 20 20  20 20 20 20 20 2b 3d 20  |  ptr%       += |
00004340  34 0d 1c 5c 06 20 cd 0d  1c 66 15 20 e7 20 24 69  |4..\. ...f. . $i|
00004350  62 79 25 20 3c 3e 20 62  79 24 20 8c 0d 1c 70 18  |by% <> by$ ...p.|
00004360  20 20 20 24 69 62 79 25  20 20 20 20 20 20 20 3d  |   $iby%       =|
00004370  20 62 79 24 0d 1c 7a 16  20 20 20 72 65 64 72 61  | by$..z.   redra|
00004380  77 25 21 70 74 72 25 3d  20 37 0d 1c 84 16 20 20  |w%!ptr%= 7....  |
00004390  20 70 74 72 25 20 20 20  20 20 20 20 2b 3d 20 34  | ptr%       += 4|
000043a0  0d 1c 8e 06 20 cd 0d 1c  98 15 20 e7 20 24 69 70  |.... ..... . $ip|
000043b0  64 25 20 3c 3e 20 70 64  24 20 8c 0d 1c a2 18 20  |d% <> pd$ ..... |
000043c0  20 20 24 69 70 64 25 20  20 20 20 20 20 20 3d 20  |  $ipd%       = |
000043d0  70 64 24 0d 1c ac 17 20  20 20 72 65 64 72 61 77  |pd$....   redraw|
000043e0  25 21 70 74 72 25 3d 20  32 33 0d 1c b6 16 20 20  |%!ptr%= 23....  |
000043f0  20 70 74 72 25 20 20 20  20 20 20 20 2b 3d 20 34  | ptr%       += 4|
00004400  0d 1c c0 06 20 cd 0d 1c  ca 15 20 e7 20 24 69 70  |.... ..... . $ip|
00004410  6d 25 20 3c 3e 20 70 6d  24 20 8c 0d 1c d4 18 20  |m% <> pm$ ..... |
00004420  20 20 24 69 70 6d 25 20  20 20 20 20 20 20 3d 20  |  $ipm%       = |
00004430  70 6d 24 0d 1c de 17 20  20 20 72 65 64 72 61 77  |pm$....   redraw|
00004440  25 21 70 74 72 25 3d 20  32 34 0d 1c e8 16 20 20  |%!ptr%= 24....  |
00004450  20 70 74 72 25 20 20 20  20 20 20 20 2b 3d 20 34  | ptr%       += 4|
00004460  0d 1c f2 06 20 cd 0d 1c  fc 15 20 e7 20 24 69 70  |.... ..... . $ip|
00004470  79 25 20 3c 3e 20 70 79  24 20 8c 0d 1d 06 18 20  |y% <> py$ ..... |
00004480  20 20 24 69 70 79 25 20  20 20 20 20 20 20 3d 20  |  $ipy%       = |
00004490  70 79 24 0d 1d 10 17 20  20 20 72 65 64 72 61 77  |py$....   redraw|
000044a0  25 21 70 74 72 25 3d 20  32 35 0d 1d 1a 16 20 20  |%!ptr%= 25....  |
000044b0  20 70 74 72 25 20 20 20  20 20 20 20 2b 3d 20 34  | ptr%       += 4|
000044c0  0d 1d 24 06 20 cd 0d 1d  2e 1a 20 72 65 64 72 61  |..$. ..... redra|
000044d0  77 25 21 70 74 72 25 20  20 20 20 20 3d 20 33 32  |w%!ptr%     = 32|
000044e0  0d 1d 38 1a 20 72 65 64  72 61 77 25 21 28 70 74  |..8. redraw%!(pt|
000044f0  72 25 2b 34 29 20 3d 20  2d 31 0d 1d 42 44 20 24  |r%+4) = -1..BD $|
00004500  69 65 6c 61 70 73 65 64  25 20 20 20 20 20 20 20  |ielapsed%       |
00004510  3d 20 c3 20 a4 64 69 66  66 65 72 65 6e 63 65 28  |= . .difference(|
00004520  61 62 64 25 2c 61 62 6d  25 2c 61 62 79 25 2c 61  |abd%,abm%,aby%,a|
00004530  70 64 25 2c 61 70 6d 25  2c 61 70 79 25 29 0d 1d  |pd%,apm%,apy%)..|
00004540  4c 24 20 65 72 65 64 25  20 20 20 20 20 20 20 20  |L$ ered%        |
00004550  20 20 3d 20 72 65 64 72  61 77 25 2b 70 74 72 25  |  = redraw%+ptr%|
00004560  2b 38 0d 1d 56 0b 20 70  74 72 25 3d 30 0d 1d 60  |+8..V. ptr%=0..`|
00004570  1a 20 c8 95 20 72 65 64  72 61 77 25 21 70 74 72  |. .. redraw%!ptr|
00004580  25 20 3c 3e 20 2d 31 0d  1d 6a 14 20 20 20 62 25  |% <> -1..j.   b%|
00004590  21 30 20 20 3d 20 64 61  74 61 25 0d 1d 74 1b 20  |!0  = data%..t. |
000045a0  20 20 62 25 21 34 20 20  3d 20 72 65 64 72 61 77  |  b%!4  = redraw|
000045b0  25 21 70 74 72 25 0d 1d  7e 10 20 20 20 62 25 21  |%!ptr%..~.   b%!|
000045c0  38 20 20 3d 20 30 0d 1d  88 10 20 20 20 62 25 21  |8  = 0....   b%!|
000045d0  31 32 20 3d 20 30 0d 1d  92 21 20 20 20 c8 99 20  |12 = 0...!   .. |
000045e0  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
000045f0  74 65 22 2c 2c 62 25 0d  1d 9c 0e 20 20 20 70 74  |te",,b%....   pt|
00004600  72 25 2b 3d 34 0d 1d a6  06 20 ce 0d 1d b0 05 e1  |r%+=4.... ......|
00004610  0d 1d ba 05 3a 0d 1d c4  19 dd 20 a4 6e 75 6d 62  |....:..... .numb|
00004620  65 72 5f 74 6f 5f 6e 61  6d 65 28 6d 25 29 0d 1d  |er_to_name(m%)..|
00004630  ce 12 20 e3 20 70 74 72  25 3d 31 20 b8 20 31 32  |.. . ptr%=1 . 12|
00004640  0d 1d d8 23 20 20 20 e7  20 6d 25 3d 70 74 72 25  |...#   . m%=ptr%|
00004650  20 8c 20 6d 24 3d 6d 6f  6e 74 68 73 24 28 70 74  | . m$=months$(pt|
00004660  72 25 29 0d 1d e2 06 20  ed 0d 1d ec 07 3d 6d 24  |r%).... .....=m$|
00004670  0d 1d f6 05 3a 0d 1e 00  19 dd 20 a4 6e 61 6d 65  |....:..... .name|
00004680  5f 74 6f 5f 6e 75 6d 62  65 72 28 6d 24 29 0d 1e  |_to_number(m$)..|
00004690  0a 12 20 e3 20 70 74 72  25 3d 31 20 b8 20 31 32  |.. . ptr%=1 . 12|
000046a0  0d 1e 14 27 20 20 20 e7  20 6d 24 3d c0 6d 6f 6e  |...'   . m$=.mon|
000046b0  74 68 73 24 28 70 74 72  25 29 2c 33 29 20 8c 20  |ths$(ptr%),3) . |
000046c0  6d 25 3d 70 74 72 25 0d  1e 1e 06 20 ed 0d 1e 28  |m%=ptr%.... ...(|
000046d0  07 3d 6d 25 0d 1e 32 05  3a 0d 1e 3c 15 dd 20 a4  |.=m%..2.:..<.. .|
000046e0  6e 75 6d 5f 74 6f 5f 64  61 79 28 64 25 29 0d 1e  |num_to_day(d%)..|
000046f0  46 11 20 e3 20 70 74 72  25 3d 31 20 b8 20 37 0d  |F. . ptr%=1 . 7.|
00004700  1e 50 21 20 20 20 e7 20  64 25 3d 70 74 72 25 20  |.P!   . d%=ptr% |
00004710  8c 20 64 24 3d 64 61 79  73 24 28 70 74 72 25 29  |. d$=days$(ptr%)|
00004720  0d 1e 5a 06 20 ed 0d 1e  64 07 3d 64 24 0d 1e 6e  |..Z. ...d.=d$..n|
00004730  05 3a 0d 1e 78 1b dd 20  a4 63 68 65 63 6b 5f 64  |.:..x.. .check_d|
00004740  61 74 65 28 64 25 2c 6d  25 2c 79 25 29 0d 1e 82  |ate(d%,m%,y%)...|
00004750  0b 20 6f 6b 25 3d 2d 31  0d 1e 8c 1d 20 e7 20 79  |. ok%=-1.... . y|
00004760  25 3c 31 39 30 31 20 80  20 6d 25 3c 31 20 8c 20  |%<1901 . m%<1 . |
00004770  6f 6b 25 3d 30 0d 1e 96  1e 20 e7 20 79 25 3e 32  |ok%=0.... . y%>2|
00004780  31 39 39 20 80 20 6d 25  3e 31 32 20 8c 20 6f 6b  |199 . m%>12 . ok|
00004790  25 3d 31 0d 1e a0 24 20  e7 20 79 25 3c 31 39 30  |%=1...$ . y%<190|
000047a0  31 20 80 20 6d 25 3c 32  20 80 20 64 25 3c 31 20  |1 . m%<2 . d%<1 |
000047b0  8c 20 6f 6b 25 3d 30 0d  1e aa 2f f4 20 49 46 20  |. ok%=0.../. IF |
000047c0  79 25 3e 32 31 39 39 20  41 4e 44 20 6d 25 3e 31  |y%>2199 AND m%>1|
000047d0  31 20 41 4e 44 20 64 25  3e 33 31 20 54 48 45 4e  |1 AND d%>31 THEN|
000047e0  20 6f 6b 25 3d 30 0d 1e  b4 08 3d 6f 6b 25 0d 1e  | ok%=0....=ok%..|
000047f0  be 05 3a 0d 1e c8 38 dd  20 f2 72 65 61 6c 64 61  |..:...8. .realda|
00004800  74 65 28 64 61 79 25 2c  6d 6f 6e 25 2c 79 65 61  |te(day%,mon%,yea|
00004810  72 25 2c f8 20 61 64 25  2c f8 20 61 6d 25 2c f8  |r%,. ad%,. am%,.|
00004820  20 61 79 25 2c f8 20 77  64 25 29 0d 1e d2 0c 20  | ay%,. wd%).... |
00004830  ea 20 63 25 2c 64 25 0d  1e dc 14 20 63 25 20 20  |. c%,d%.... c%  |
00004840  20 20 3d 20 62 25 2b 31  30 30 30 0d 1e e6 14 20  |  = b%+1000.... |
00004850  64 25 20 20 20 20 3d 20  62 25 2b 31 31 30 30 0d  |d%    = b%+1100.|
00004860  1e f0 0e 20 21 63 25 20  20 20 3d 20 30 0d 1e fa  |... !c%   = 0...|
00004870  0e 20 63 25 21 34 20 20  3d 20 30 0d 1f 04 0e 20  |. c%!4  = 0.... |
00004880  63 25 21 38 20 20 3d 20  30 0d 1f 0e 0e 20 63 25  |c%!8  = 0.... c%|
00004890  21 31 32 20 3d 20 30 0d  1f 18 11 20 63 25 21 31  |!12 = 0.... c%!1|
000048a0  36 20 3d 20 64 61 79 25  0d 1f 22 11 20 63 25 21  |6 = day%..". c%!|
000048b0  32 30 20 3d 20 6d 6f 6e  25 0d 1f 2c 12 20 63 25  |20 = mon%..,. c%|
000048c0  21 32 34 20 3d 20 79 65  61 72 25 0d 1f 36 3d 20  |!24 = year%..6= |
000048d0  c8 99 20 22 58 54 65 72  72 69 74 6f 72 79 5f 43  |.. "XTerritory_C|
000048e0  6f 6e 76 65 72 74 4f 72  64 69 6e 61 6c 73 54 6f  |onvertOrdinalsTo|
000048f0  54 69 6d 65 22 2c 2d 31  2c 64 25 2c 63 25 20 b8  |Time",-1,d%,c% .|
00004900  20 3b 66 6c 61 67 73 25  0d 1f 40 17 20 e7 20 28  | ;flags%..@. . (|
00004910  66 6c 61 67 73 25 20 80  20 31 29 3d 30 20 8c 0d  |flags% . 1)=0 ..|
00004920  1f 4a 3f 20 20 20 c8 99  20 22 58 54 65 72 72 69  |.J?   .. "XTerri|
00004930  74 6f 72 79 5f 43 6f 6e  76 65 72 74 54 69 6d 65  |tory_ConvertTime|
00004940  54 6f 4f 72 64 69 6e 61  6c 73 22 2c 2d 31 2c 64  |ToOrdinals",-1,d|
00004950  25 2c 63 25 20 b8 20 3b  66 6c 61 67 73 25 0d 1f  |%,c% . ;flags%..|
00004960  54 12 20 20 20 61 64 25  20 3d 20 63 25 21 31 36  |T.   ad% = c%!16|
00004970  0d 1f 5e 12 20 20 20 61  6d 25 20 3d 20 63 25 21  |..^.   am% = c%!|
00004980  32 30 0d 1f 68 12 20 20  20 61 79 25 20 3d 20 63  |20..h.   ay% = c|
00004990  25 21 32 34 0d 1f 72 12  20 20 20 77 64 25 20 3d  |%!24..r.   wd% =|
000049a0  20 63 25 21 32 38 0d 1f  7c 07 20 20 cc 0d 1f 86  | c%!28..|.  ....|
000049b0  0f 20 20 20 61 64 25 20  3d 20 2d 31 0d 1f 90 0f  |.   ad% = -1....|
000049c0  20 20 20 61 6d 25 20 3d  20 2d 31 0d 1f 9a 0f 20  |   am% = -1.... |
000049d0  20 20 61 79 25 20 3d 20  2d 31 0d 1f a4 06 20 cd  |  ay% = -1.... .|
000049e0  0d 1f ae 05 e1 0d 1f b8  05 3a 0d 1f c2 14 dd 20  |.........:..... |
000049f0  f2 77 6f 72 6b 6f 75 74  5f 77 61 76 65 73 0d 1f  |.workout_waves..|
00004a00  cc 0c 20 ea 20 64 25 2c  69 25 0d 1f d6 32 20 65  |.. . d%,i%...2 e|
00004a10  6c 61 70 73 65 64 25 3d  a4 64 69 66 66 65 72 65  |lapsed%=.differe|
00004a20  6e 63 65 28 62 64 25 2c  62 6d 25 2c 62 79 25 2c  |nce(bd%,bm%,by%,|
00004a30  70 64 25 2c 70 6d 25 2c  70 79 25 29 0d 1f e0 13  |pd%,pm%,py%)....|
00004a40  20 64 25 3d 65 6c 61 70  73 65 64 25 2d 31 32 0d  | d%=elapsed%-12.|
00004a50  1f ea 0a 20 69 25 3d 35  30 0d 1f f4 29 20 f2 77  |... i%=50...) .w|
00004a60  61 76 65 28 34 35 30 2c  64 25 2c 69 25 2c 69 77  |ave(450,d%,i%,iw|
00004a70  61 76 65 25 2c 33 33 2c  69 6e 78 25 2c 69 6e 79  |ave%,33,inx%,iny|
00004a80  25 29 0d 1f fe 29 20 f2  77 61 76 65 28 34 35 30  |%)...) .wave(450|
00004a90  2c 64 25 2c 69 25 2c 65  77 61 76 65 25 2c 32 38  |,d%,i%,ewave%,28|
00004aa0  2c 65 6d 78 25 2c 65 6d  79 25 29 0d 20 08 29 20  |,emx%,emy%). .) |
00004ab0  f2 77 61 76 65 28 34 35  30 2c 64 25 2c 69 25 2c  |.wave(450,d%,i%,|
00004ac0  70 77 61 76 65 25 2c 32  33 2c 70 79 78 25 2c 70  |pwave%,23,pyx%,p|
00004ad0  79 79 25 29 0d 20 12 05  e1 0d 20 1c 05 3a 0d 20  |yy%). .... ..:. |
00004ae0  26 28 dd 20 f2 77 61 76  65 28 68 25 2c 64 25 2c  |&(. .wave(h%,d%,|
00004af0  69 25 2c 62 75 66 66 65  72 25 2c 77 25 2c f8 20  |i%,buffer%,w%,. |
00004b00  78 2c f8 20 79 29 0d 20  30 11 20 ea 20 70 74 72  |x,. y). 0. . ptr|
00004b10  25 2c 78 2c 73 74 25 0d  20 3a 11 20 21 62 75 66  |%,x,st%. :. !buf|
00004b20  66 65 72 25 20 3d 20 32  0d 20 44 17 20 62 75 66  |fer% = 2. D. buf|
00004b30  66 65 72 25 21 34 3d 20  31 30 30 2a 32 35 36 0d  |fer%!4= 100*256.|
00004b40  20 4e 32 20 62 75 66 66  65 72 25 21 38 3d 20 28  | N2 buffer%!8= (|
00004b50  35 30 30 2b 68 25 2a b5  28 32 2a af 2f 77 25 2a  |500+h%*.(2*./w%*|
00004b60  28 64 25 2b 31 30 30 2f  69 25 29 29 29 2a 32 35  |(d%+100/i%)))*25|
00004b70  36 0d 20 58 12 20 70 74  72 25 20 20 20 20 20 3d  |6. X. ptr%     =|
00004b80  20 31 32 0d 20 62 16 20  73 74 25 20 20 20 20 20  | 12. b. st%     |
00004b90  20 3d 20 73 63 61 6c 65  25 0d 20 6c 18 20 e3 20  | = scale%. l. . |
00004ba0  78 3d 31 30 30 20 b8 20  31 31 30 30 20 88 20 32  |x=100 . 1100 . 2|
00004bb0  30 0d 20 76 1b 20 20 20  62 75 66 66 65 72 25 21  |0. v.   buffer%!|
00004bc0  70 74 72 25 20 20 20 20  20 3d 20 38 0d 20 80 34  |ptr%     = 8. .4|
00004bd0  20 20 20 79 20 20 20 20  20 20 20 20 20 20 20 20  |   y            |
00004be0  20 20 20 20 3d 20 35 30  30 2b 68 25 2a b5 28 32  |    = 500+h%*.(2|
00004bf0  2a af 2f 77 25 2a 28 64  25 2b 78 2f 69 25 29 29  |*./w%*(d%+x/i%))|
00004c00  0d 20 8a 1f 20 20 20 62  75 66 66 65 72 25 21 28  |. ..   buffer%!(|
00004c10  70 74 72 25 2b 34 29 20  3d 20 78 2a 32 35 36 0d  |ptr%+4) = x*256.|
00004c20  20 94 1f 20 20 20 62 75  66 66 65 72 25 21 28 70  | ..   buffer%!(p|
00004c30  74 72 25 2b 38 29 20 3d  20 79 2a 32 35 36 0d 20  |tr%+8) = y*256. |
00004c40  9e 1b 20 20 20 62 75 66  66 65 72 25 21 28 70 74  |..   buffer%!(pt|
00004c50  72 25 2b 31 32 29 3d 20  30 0d 20 a8 0f 20 20 20  |r%+12)= 0. ..   |
00004c60  70 74 72 25 2b 3d 31 32  0d 20 b2 06 20 ed 0d 20  |ptr%+=12. .. .. |
00004c70  bc 05 e1 0d 20 c6 05 3a  0d 20 d0 1c dd 20 f2 67  |.... ..:. ... .g|
00004c80  72 65 79 5f 69 63 6f 6e  28 77 69 6e 25 2c 69 63  |rey_icon(win%,ic|
00004c90  6f 6e 25 29 0d 20 da 09  20 ea 20 63 25 0d 20 e4  |on%). .. . c%. .|
00004ca0  0f 20 63 25 3d 62 25 2b  31 30 30 30 0d 20 ee 0f  |. c%=b%+1000. ..|
00004cb0  20 21 63 25 20 20 3d 77  69 6e 25 0d 20 f8 10 20  | !c%  =win%. .. |
00004cc0  63 25 21 34 20 3d 69 63  6f 6e 25 0d 21 02 10 20  |c%!4 =icon%.!.. |
00004cd0  63 25 21 38 20 3d 31 3c  3c 32 32 0d 21 0c 10 20  |c%!8 =1<<22.!.. |
00004ce0  63 25 21 31 32 3d 31 3c  3c 32 32 0d 21 16 1f 20  |c%!12=1<<22.!.. |
00004cf0  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00004d00  53 74 61 74 65 22 2c 2c  63 25 0d 21 20 05 e1 0d  |State",,c%.! ...|
00004d10  21 2a 05 3a 0d 21 34 1e  dd 20 f2 75 6e 67 72 65  |!*.:.!4.. .ungre|
00004d20  79 5f 69 63 6f 6e 28 77  69 6e 25 2c 69 63 6f 6e  |y_icon(win%,icon|
00004d30  25 29 0d 21 3e 09 20 ea  20 63 25 0d 21 48 0f 20  |%).!>. . c%.!H. |
00004d40  63 25 3d 62 25 2b 31 30  30 30 0d 21 52 0f 20 21  |c%=b%+1000.!R. !|
00004d50  63 25 20 20 3d 77 69 6e  25 0d 21 5c 10 20 63 25  |c%  =win%.!\. c%|
00004d60  21 34 20 3d 69 63 6f 6e  25 0d 21 66 0c 20 63 25  |!4 =icon%.!f. c%|
00004d70  21 38 20 3d 30 0d 21 70  10 20 63 25 21 31 32 3d  |!8 =0.!p. c%!12=|
00004d80  31 3c 3c 32 32 0d 21 7a  1f 20 c8 99 20 22 57 69  |1<<22.!z. .. "Wi|
00004d90  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00004da0  2c 2c 63 25 0d 21 84 05  e1 0d 21 8e 05 3a 0d 21  |,,c%.!....!..:.!|
00004db0  98 18 dd 20 a4 73 74 61  74 65 28 77 69 6e 25 2c  |... .state(win%,|
00004dc0  69 63 6f 6e 25 29 0d 21  a2 09 20 ea 20 63 25 0d  |icon%).!.. . c%.|
00004dd0  21 ac 12 20 63 25 20 20  3d 20 62 25 2b 31 30 30  |!.. c%  = b%+100|
00004de0  30 0d 21 b6 0f 20 21 63  25 20 3d 20 77 69 6e 25  |0.!.. !c% = win%|
00004df0  0d 21 c0 10 20 63 25 21  34 3d 20 69 63 6f 6e 25  |.!.. c%!4= icon%|
00004e00  0d 21 ca 1f 20 c8 99 20  22 57 69 6d 70 5f 47 65  |.!.. .. "Wimp_Ge|
00004e10  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 63 25 0d  |tIconState",,c%.|
00004e20  21 d4 17 3d 28 63 25 21  32 34 20 80 20 31 3c 3c  |!..=(c%!24 . 1<<|
00004e30  32 31 29 3c 3e 30 0d 21  de 05 3a 0d 21 e8 17 dd  |21)<>0.!..:.!...|
00004e40  20 f2 74 69 63 6b 28 6d  65 6e 25 2c 69 74 65 6d  | .tick(men%,item|
00004e50  25 29 0d 21 f2 30 20 6d  65 6e 25 21 28 32 38 2b  |%).!.0 men%!(28+|
00004e60  69 74 65 6d 25 2a 32 34  29 3d 28 6d 65 6e 25 21  |item%*24)=(men%!|
00004e70  28 32 38 2b 69 74 65 6d  25 2a 32 34 29 20 84 20  |(28+item%*24) . |
00004e80  31 29 0d 21 fc 05 e1 0d  22 06 05 3a 0d 22 10 19  |1).!...."..:."..|
00004e90  dd 20 f2 75 6e 74 69 63  6b 28 6d 65 6e 25 2c 69  |. .untick(men%,i|
00004ea0  74 65 6d 25 29 0d 22 1a  35 20 6d 65 6e 25 21 28  |tem%).".5 men%!(|
00004eb0  32 38 2b 69 74 65 6d 25  2a 32 34 29 3d 28 6d 65  |28+item%*24)=(me|
00004ec0  6e 25 21 28 32 38 2b 69  74 65 6d 25 2a 32 34 29  |n%!(28+item%*24)|
00004ed0  20 80 20 28 ac 28 31 29  29 29 0d 22 24 05 e1 0d  | . (.(1)))."$...|
00004ee0  22 2e 05 3a 0d 22 38 19  dd 20 a4 74 69 63 6b 65  |"..:."8.. .ticke|
00004ef0  64 28 6d 65 6e 25 2c 69  74 65 6d 25 29 0d 22 42  |d(men%,item%)."B|
00004f00  20 3d 28 6d 65 6e 25 21  28 32 38 2b 69 74 65 6d  | =(men%!(28+item|
00004f10  25 2a 32 34 29 20 80 20  31 29 3c 3e 30 0d 22 4c  |%*24) . 1)<>0."L|
00004f20  05 3a 0d 22 56 19 dd 20  f2 66 6f 72 63 65 5f 72  |.:."V.. .force_r|
00004f30  65 64 72 61 77 28 77 69  6e 25 29 0d 22 60 09 20  |edraw(win%)."`. |
00004f40  ea 20 63 25 0d 22 6a 0e  20 63 25 3d 62 25 2b 34  |. c%."j. c%=b%+4|
00004f50  30 30 0d 22 74 0d 20 21  63 25 3d 77 69 6e 25 0d  |00."t. !c%=win%.|
00004f60  22 7e 21 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |"~! .. "Wimp_Get|
00004f70  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 63 25  |WindowState",,c%|
00004f80  0d 22 88 33 20 c8 99 20  22 57 69 6d 70 5f 46 6f  |.".3 .. "Wimp_Fo|
00004f90  72 63 65 52 65 64 72 61  77 22 2c 2d 31 2c 63 25  |rceRedraw",-1,c%|
00004fa0  21 34 2c 63 25 21 38 2c  63 25 21 31 32 2c 63 25  |!4,c%!8,c%!12,c%|
00004fb0  21 31 36 0d 22 92 05 e1  0d 22 9c 05 3a 0d 22 a6  |!16."...."..:.".|
00004fc0  20 dd 20 f2 73 74 61 72  74 5f 64 72 61 67 28 77  | . .start_drag(w|
00004fd0  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 29 0d 22 b0  |indow%,icon%).".|
00004fe0  09 20 ea 20 63 25 0d 22  ba 0f 20 63 25 3d 62 25  |. . c%.".. c%=b%|
00004ff0  2b 31 30 30 30 0d 22 c4  27 20 f2 67 65 74 5f 6f  |+1000.".' .get_o|
00005000  72 69 67 69 6e 28 77 69  6e 64 6f 77 25 2c 78 6f  |rigin(window%,xo|
00005010  72 69 67 25 2c 79 6f 72  69 67 25 29 0d 22 ce 10  |rig%,yorig%)."..|
00005020  20 21 63 25 3d 77 69 6e  64 6f 77 25 0d 22 d8 0f  | !c%=window%."..|
00005030  20 63 25 21 34 3d 69 63  6f 6e 25 0d 22 e2 1f 20  | c%!4=icon%.".. |
00005040  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00005050  53 74 61 74 65 22 2c 2c  63 25 0d 22 ec 18 20 78  |State",,c%.".. x|
00005060  6d 69 6e 25 20 3d 20 78  6f 72 69 67 25 2b 63 25  |min% = xorig%+c%|
00005070  21 38 0d 22 f6 19 20 79  6d 69 6e 25 20 3d 20 79  |!8.".. ymin% = y|
00005080  6f 72 69 67 25 2b 63 25  21 31 32 0d 23 00 19 20  |orig%+c%!12.#.. |
00005090  78 6d 61 78 25 20 3d 20  78 6f 72 69 67 25 2b 63  |xmax% = xorig%+c|
000050a0  25 21 31 36 0d 23 0a 19  20 79 6d 61 78 25 20 3d  |%!16.#.. ymax% =|
000050b0  20 79 6f 72 69 67 25 2b  63 25 21 32 30 0d 23 14  | yorig%+c%!20.#.|
000050c0  0e 20 63 25 21 34 20 20  3d 20 35 0d 23 1e 12 20  |. c%!4  = 5.#.. |
000050d0  63 25 21 38 20 20 3d 20  78 6d 69 6e 25 0d 23 28  |c%!8  = xmin%.#(|
000050e0  12 20 63 25 21 31 32 20  3d 20 79 6d 69 6e 25 0d  |. c%!12 = ymin%.|
000050f0  23 32 12 20 63 25 21 31  36 20 3d 20 78 6d 61 78  |#2. c%!16 = xmax|
00005100  25 0d 23 3c 12 20 63 25  21 32 30 20 3d 20 79 6d  |%.#<. c%!20 = ym|
00005110  61 78 25 0d 23 46 0e 20  63 25 21 32 34 20 3d 20  |ax%.#F. c%!24 = |
00005120  30 0d 23 50 0e 20 63 25  21 32 38 20 3d 20 30 0d  |0.#P. c%!28 = 0.|
00005130  23 5a 11 20 63 25 21 33  32 20 3d 20 31 32 38 30  |#Z. c%!32 = 1280|
00005140  0d 23 64 11 20 63 25 21  32 36 20 3d 20 31 30 32  |.#d. c%!26 = 102|
00005150  34 0d 23 6e 15 20 c8 8e  20 73 5f 64 72 61 67 67  |4.#n. .. s_dragg|
00005160  69 6e 67 25 20 ca 0d 23  78 20 20 20 20 c9 20 a3  |ing% ..#x    . .|
00005170  3a c8 99 20 22 57 69 6d  70 5f 44 72 61 67 42 6f  |:.. "Wimp_DragBo|
00005180  78 22 2c 2c 63 25 0d 23  82 43 20 20 20 c9 20 b9  |x",,c%.#.C   . .|
00005190  3a c8 99 20 22 44 72 61  67 41 53 70 72 69 74 65  |:.. "DragASprite|
000051a0  5f 53 74 61 72 74 22 2c  25 31 31 30 30 30 31 30  |_Start",%1100010|
000051b0  31 2c 31 2c 24 73 61 76  65 69 63 6f 6e 25 2c 63  |1,1,$saveicon%,c|
000051c0  25 2b 38 2c 63 25 2b 32  34 0d 23 8c 06 20 cb 0d  |%+8,c%+24.#.. ..|
000051d0  23 96 14 20 c8 8e 20 24  73 61 76 65 69 63 6f 6e  |#.. .. $saveicon|
000051e0  25 20 ca 0d 23 a0 1d 20  20 20 c9 20 22 66 69 6c  |% ..#..   . "fil|
000051f0  65 5f 61 66 66 22 3a 73  61 76 69 6e 67 25 3d 30  |e_aff":saving%=0|
00005200  0d 23 aa 1d 20 20 20 c9  20 22 66 69 6c 65 5f 66  |.#..   . "file_f|
00005210  66 39 22 3a 73 61 76 69  6e 67 25 3d 31 0d 23 b4  |f9":saving%=1.#.|
00005220  1d 20 20 20 c9 20 22 66  69 6c 65 5f 64 66 65 22  |.   . "file_dfe"|
00005230  3a 73 61 76 69 6e 67 25  3d 32 0d 23 be 06 20 cb  |:saving%=2.#.. .|
00005240  0d 23 c8 05 e1 0d 23 d2  05 3a 0d 23 dc 0f dd 20  |.#....#..:.#... |
00005250  f2 73 61 76 65 5f 61 63  6b 0d 23 e6 16 20 f2 74  |.save_ack.#.. .t|
00005260  65 72 6d 69 6e 61 74 65  28 62 25 2b 34 34 29 0d  |erminate(b%+44).|
00005270  23 f0 16 20 24 73 61 76  65 61 73 25 3d 24 28 62  |#.. $saveas%=$(b|
00005280  25 2b 34 34 29 0d 23 fa  17 20 f2 73 68 6f 77 5f  |%+44).#.. .show_|
00005290  6d 65 6e 75 28 2d 31 2c  30 2c 30 29 0d 24 04 11  |menu(-1,0,0).$..|
000052a0  20 c8 8e 20 73 61 76 69  6e 67 25 20 ca 0d 24 0e  | .. saving% ..$.|
000052b0  1f 20 20 20 c9 20 30 3a  f2 73 61 76 65 5f 64 72  |.   . 0:.save_dr|
000052c0  61 77 28 24 28 62 25 2b  34 34 29 29 0d 24 18 20  |aw($(b%+44)).$. |
000052d0  20 20 20 c9 20 31 3a f2  73 61 76 65 5f 67 72 61  |   . 1:.save_gra|
000052e0  70 68 28 24 28 62 25 2b  34 34 29 29 0d 24 22 1e  |ph($(b%+44)).$".|
000052f0  20 20 20 c9 20 32 3a f2  73 61 76 65 5f 63 73 76  |   . 2:.save_csv|
00005300  28 24 28 62 25 2b 34 34  29 29 0d 24 2c 06 20 cb  |($(b%+44)).$,. .|
00005310  0d 24 36 13 20 62 25 21  31 32 20 20 20 3d 20 62  |.$6. b%!12   = b|
00005320  25 21 38 0d 24 40 10 20  62 25 21 31 36 20 20 20  |%!8.$@. b%!16   |
00005330  3d 20 33 0d 24 4a 26 20  c8 99 20 22 57 69 6d 70  |= 3.$J& .. "Wimp|
00005340  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 38  |_SendMessage",18|
00005350  2c 62 25 2c 62 25 21 32  30 0d 24 54 05 e1 0d 24  |,b%,b%!20.$T...$|
00005360  5e 05 3a 0d 24 68 14 dd  20 f2 74 65 72 6d 69 6e  |^.:.$h.. .termin|
00005370  61 74 65 28 61 25 29 0d  24 72 0b 20 ea 20 70 74  |ate(a%).$r. . pt|
00005380  72 25 0d 24 7c 12 20 c8  95 20 61 25 3f 70 74 72  |r%.$|. .. a%?ptr|
00005390  25 3e 33 31 0d 24 86 0e  20 20 20 70 74 72 25 2b  |%>31.$..   ptr%+|
000053a0  3d 31 0d 24 90 06 20 ce  0d 24 9a 0f 20 61 25 21  |=1.$.. ..$.. a%!|
000053b0  70 74 72 25 3d 31 33 0d  24 a4 05 e1 0d 24 ae 05  |ptr%=13.$....$..|
000053c0  3a 0d 24 b8 2c dd 20 f2  67 65 74 5f 6f 72 69 67  |:.$.,. .get_orig|
000053d0  69 6e 28 68 61 6e 64 6c  65 25 2c f8 20 78 6f 72  |in(handle%,. xor|
000053e0  69 67 25 2c f8 20 79 6f  72 69 67 25 29 0d 24 c2  |ig%,. yorig%).$.|
000053f0  09 20 ea 20 63 25 0d 24  cc 12 20 63 25 20 20 3d  |. . c%.$.. c%  =|
00005400  20 62 25 2b 31 34 30 30  0d 24 d6 12 20 21 63 25  | b%+1400.$.. !c%|
00005410  20 3d 20 68 61 6e 64 6c  65 25 0d 24 e0 21 20 c8  | = handle%.$.! .|
00005420  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
00005430  77 53 74 61 74 65 22 2c  2c 63 25 0d 24 ea 18 20  |wState",,c%.$.. |
00005440  78 6f 72 69 67 25 20 3d  20 63 25 21 34 2d 63 25  |xorig% = c%!4-c%|
00005450  21 32 30 0d 24 f4 19 20  79 6f 72 69 67 25 20 3d  |!20.$.. yorig% =|
00005460  20 63 25 21 31 36 2d 63  25 21 32 34 0d 24 fe 05  | c%!16-c%!24.$..|
00005470  e1 0d 25 08 05 3a 0d 25  12 12 dd 20 f2 73 74 61  |..%..:.%... .sta|
00005480  72 74 5f 70 72 69 6e 74  0d 25 1c 2f 20 ea 20 6a  |rt_print.%./ . j|
00005490  6f 62 25 2c 74 6f 5f 64  72 61 77 25 2c 72 65 63  |ob%,to_draw%,rec|
000054a0  74 25 2c 74 72 61 6e 73  25 2c 70 6c 6f 74 25 2c  |t%,trans%,plot%,|
000054b0  64 74 72 61 6e 73 25 0d  25 26 16 20 74 6f 5f 64  |dtrans%.%&. to_d|
000054c0  72 61 77 25 3d 20 62 25  2b 33 30 30 30 0d 25 30  |raw%= b%+3000.%0|
000054d0  16 20 72 65 63 74 25 20  20 20 3d 20 62 25 2b 33  |. rect%   = b%+3|
000054e0  30 32 30 0d 25 3a 16 20  74 72 61 6e 73 25 20 20  |020.%:. trans%  |
000054f0  3d 20 62 25 2b 33 30 34  30 0d 25 44 16 20 70 6c  |= b%+3040.%D. pl|
00005500  6f 74 25 20 20 20 3d 20  62 25 2b 33 30 38 30 0d  |ot%   = b%+3080.|
00005510  25 4e 16 20 64 74 72 61  6e 73 25 20 3d 20 62 25  |%N. dtrans% = b%|
00005520  2b 33 31 30 30 0d 25 58  16 20 c8 99 20 22 48 6f  |+3100.%X. .. "Ho|
00005530  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 25 62 15 20  |urglass_On".%b. |
00005540  6e 61 6d 65 24 3d a4 67  65 74 5f 70 6e 61 6d 65  |name$=.get_pname|
00005550  0d 25 6c 16 20 e7 20 6e  61 6d 65 24 3c 3e 22 4e  |.%l. . name$<>"N|
00005560  6f 6e 65 22 20 8c 0d 25  76 19 20 20 20 6a 6f 62  |one" ..%v.   job|
00005570  25 3d ae 28 22 70 72 69  6e 74 65 72 3a 22 29 0d  |%=.("printer:").|
00005580  25 80 33 20 20 20 c8 99  20 22 50 44 72 69 76 65  |%.3   .. "PDrive|
00005590  72 5f 53 65 6c 65 63 74  4a 6f 62 22 2c 6a 6f 62  |r_SelectJob",job|
000055a0  25 2c 6e 61 6d 65 24 20  b8 20 6f 6c 64 5f 6a 6f  |%,name$ . old_jo|
000055b0  62 25 0d 25 8a 12 20 20  20 70 72 69 6e 74 69 6e  |b%.%..   printin|
000055c0  67 25 3d b9 0d 25 94 29  20 20 20 f2 64 65 63 6c  |g%=..%.)   .decl|
000055d0  61 72 65 5f 66 6f 6e 74  28 22 48 6f 6d 65 72 74  |are_font("Homert|
000055e0  6f 6e 2e 4d 65 64 69 75  6d 22 2c 30 29 0d 25 9e  |on.Medium",0).%.|
000055f0  1a 20 20 20 f2 64 65 63  6c 61 72 65 5f 66 6f 6e  |.   .declare_fon|
00005600  74 28 22 22 2c 30 29 0d  25 a8 15 20 20 20 f2 73  |t("",0).%..   .s|
00005610  65 74 5f 72 65 63 74 61  6e 67 6c 65 0d 25 b2 38  |et_rectangle.%.8|
00005620  20 20 20 c8 99 20 22 50  44 72 69 76 65 72 5f 44  |   .. "PDriver_D|
00005630  72 61 77 50 61 67 65 22  2c 31 2c 74 6f 5f 64 72  |rawPage",1,to_dr|
00005640  61 77 25 2c 30 2c 30 20  b8 20 6d 6f 72 65 25 2c  |aw%,0,0 . more%,|
00005650  2c 69 64 25 0d 25 bc 12  20 20 20 c8 95 20 6d 6f  |,id%.%..   .. mo|
00005660  72 65 25 3c 3e 30 0d 25  c6 13 20 20 20 20 20 e7  |re%<>0.%..     .|
00005670  20 69 64 25 3d 34 32 20  8c 0d 25 d0 16 20 20 20  | id%=42 ..%..   |
00005680  20 20 20 20 f2 70 72 69  6e 74 5f 64 72 61 77 0d  |    .print_draw.|
00005690  25 da 0a 20 20 20 20 20  cd 0d 25 e4 39 20 20 20  |%..     ..%.9   |
000056a0  20 20 c8 99 20 22 50 44  72 69 76 65 72 5f 47 65  |  .. "PDriver_Ge|
000056b0  74 52 65 63 74 61 6e 67  6c 65 22 2c 2c 74 6f 5f  |tRectangle",,to_|
000056c0  64 72 61 77 25 20 b8 20  6d 6f 72 65 25 2c 2c 69  |draw% . more%,,i|
000056d0  64 25 0d 25 ee 08 20 20  20 ce 0d 25 f8 1f 20 20  |d%.%..   ..%..  |
000056e0  20 c8 99 20 22 50 44 72  69 76 65 72 5f 45 6e 64  | .. "PDriver_End|
000056f0  4a 6f 62 22 2c 6a 6f 62  25 0d 26 02 16 20 20 20  |Job",job%.&..   |
00005700  e7 20 6f 6c 64 5f 6a 6f  62 25 3c 3e 30 20 8c 0d  |. old_job%<>0 ..|
00005710  26 0c 27 20 20 20 20 20  22 50 44 72 69 76 65 72  |&.'     "PDriver|
00005720  5f 53 65 6c 65 63 74 4a  6f 62 22 2c 6f 6c 64 5f  |_SelectJob",old_|
00005730  6a 6f 62 25 2c 30 0d 26  16 08 20 20 20 cd 0d 26  |job%,0.&..   ..&|
00005740  20 0d 20 20 20 d9 23 6a  6f 62 25 0d 26 2a 07 20  | .   .#job%.&*. |
00005750  20 cc 0d 26 34 31 20 20  20 e7 20 a4 65 72 72 6f  | ..&41   . .erro|
00005760  72 28 31 3c 3c 33 30 2c  30 2c a4 6d 65 73 28 22  |r(1<<30,0,.mes("|
00005770  4e 6f 50 72 44 22 29 29  20 8c 20 f2 63 6c 6f 73  |NoPrD")) . .clos|
00005780  65 3a e0 0d 26 3e 06 20  cd 0d 26 48 19 20 c8 99  |e:..&>. ..&H. ..|
00005790  20 22 48 6f 75 72 67 6c  61 73 73 5f 53 6d 61 73  | "Hourglass_Smas|
000057a0  68 22 0d 26 52 10 20 70  72 69 6e 74 69 6e 67 25  |h".&R. printing%|
000057b0  3d a3 0d 26 5c 05 e1 0d  26 66 05 3a 0d 26 70 14  |=..&\...&f.:.&p.|
000057c0  dd 20 f2 73 74 6f 70 5f  70 72 69 6e 74 69 6e 67  |. .stop_printing|
000057d0  0d 26 7a 1f 20 c8 99 20  22 50 44 72 69 76 65 72  |.&z. .. "PDriver|
000057e0  5f 41 62 6f 72 74 4a 6f  62 22 2c 6a 6f 62 25 0d  |_AbortJob",job%.|
000057f0  26 84 0b 20 d9 23 6a 6f  62 25 0d 26 8e 05 e1 0d  |&.. .#job%.&....|
00005800  26 98 05 3a 0d 26 a2 21  dd 20 f2 64 65 63 6c 61  |&..:.&.!. .decla|
00005810  72 65 5f 66 6f 6e 74 28  66 6f 6e 74 24 2c 66 6c  |re_font(font$,fl|
00005820  61 67 73 25 29 0d 26 ac  11 20 e7 20 66 6f 6e 74  |ags%).&.. . font|
00005830  24 3d 22 22 20 8c 0d 26  b6 25 20 20 20 c8 99 20  |$="" ..&.%   .. |
00005840  22 50 44 72 69 76 65 72  5f 44 65 63 6c 61 72 65  |"PDriver_Declare|
00005850  46 6f 6e 74 22 2c 30 2c  30 2c 30 0d 26 c0 07 20  |Font",0,0,0.&.. |
00005860  20 cc 0d 26 ca 2e 20 20  20 c8 99 20 22 50 44 72  | ..&..   .. "PDr|
00005870  69 76 65 72 5f 44 65 63  6c 61 72 65 46 6f 6e 74  |iver_DeclareFont|
00005880  22 2c 30 2c 66 6f 6e 74  24 2c 66 6c 61 67 73 25  |",0,font$,flags%|
00005890  0d 26 d4 06 20 cd 0d 26  de 05 e1 0d 26 e8 05 3a  |.&.. ..&....&..:|
000058a0  0d 26 f2 14 dd 20 f2 73  65 74 5f 72 65 63 74 61  |.&... .set_recta|
000058b0  6e 67 6c 65 0d 26 fc 13  20 72 65 63 74 25 21 30  |ngle.&.. rect%!0|
000058c0  20 20 20 3d 20 2d 32 0d  27 06 13 20 72 65 63 74  |   = -2.'.. rect|
000058d0  25 21 34 20 20 20 3d 20  2d 32 0d 27 10 15 20 72  |%!4   = -2.'.. r|
000058e0  65 63 74 25 21 38 20 20  20 3d 20 31 32 38 30 0d  |ect%!8   = 1280.|
000058f0  27 1a 15 20 72 65 63 74  25 21 31 32 20 20 3d 20  |'.. rect%!12  = |
00005900  31 30 32 34 0d 27 24 15  20 74 72 61 6e 73 25 21  |1024.'$. trans%!|
00005910  30 20 20 3d 20 32 5e 31  36 0d 27 2e 12 20 74 72  |0  = 2^16.'.. tr|
00005920  61 6e 73 25 21 34 20 20  3d 20 30 0d 27 38 12 20  |ans%!4  = 0.'8. |
00005930  74 72 61 6e 73 25 21 38  20 20 3d 20 30 0d 27 42  |trans%!8  = 0.'B|
00005940  15 20 74 72 61 6e 73 25  21 31 32 20 3d 20 32 5e  |. trans%!12 = 2^|
00005950  31 36 0d 27 4c 13 20 69  64 25 20 20 20 20 20 20  |16.'L. id%      |
00005960  20 3d 20 34 32 0d 27 56  16 20 70 6c 6f 74 25 21  | = 42.'V. plot%!|
00005970  30 20 20 20 3d 20 37 32  30 30 30 0d 27 60 18 20  |0   = 72000.'`. |
00005980  70 6c 6f 74 25 21 34 20  20 20 3d 20 37 32 30 30  |plot%!4   = 7200|
00005990  30 2a 33 0d 27 6a 13 20  63 6f 6c 25 3d 26 46 46  |0*3.'j. col%=&FF|
000059a0  46 46 46 46 30 30 0d 27  74 3b 20 c8 99 20 22 50  |FFFF00.'t; .. "P|
000059b0  44 72 69 76 65 72 5f 47  69 76 65 52 65 63 74 61  |Driver_GiveRecta|
000059c0  6e 67 6c 65 22 2c 69 64  25 2c 72 65 63 74 25 2c  |ngle",id%,rect%,|
000059d0  74 72 61 6e 73 25 2c 70  6c 6f 74 25 2c 63 6f 6c  |trans%,plot%,col|
000059e0  25 0d 27 7e 05 e1 0d 27  88 05 3a 0d 27 92 11 dd  |%.'~...'..:.'...|
000059f0  20 f2 70 72 69 6e 74 5f  64 72 61 77 0d 27 9c 09  | .print_draw.'..|
00005a00  20 ea 20 61 25 0d 27 a6  0f 20 61 25 3d 62 25 2b  | . a%.'.. a%=b%+|
00005a10  33 32 30 30 0d 27 b0 2c  20 c8 99 20 22 43 6f 6c  |3200.'., .. "Col|
00005a20  6f 75 72 54 72 61 6e 73  5f 53 65 74 47 43 4f 4c  |ourTrans_SetGCOL|
00005a30  22 2c 26 46 46 46 46 46  46 30 30 2c 2c 30 2c 30  |",&FFFFFF00,,0,0|
00005a40  0d 27 ba 18 20 c8 93 20  c8 90 20 30 2c 30 2c 31  |.'.. .. .. 0,0,1|
00005a50  32 38 30 2c 31 30 32 34  0d 27 c4 10 20 67 74 25  |280,1024.'.. gt%|
00005a60  21 31 36 20 20 3d 20 30  0d 27 ce 10 20 67 74 25  |!16  = 0.'.. gt%|
00005a70  21 32 30 20 20 3d 20 30  0d 27 d8 10 20 69 77 74  |!20  = 0.'.. iwt|
00005a80  25 21 31 36 20 3d 20 30  0d 27 e2 10 20 69 77 74  |%!16 = 0.'.. iwt|
00005a90  25 21 32 30 20 3d 20 30  0d 27 ec 10 20 70 77 74  |%!20 = 0.'.. pwt|
00005aa0  25 21 31 36 20 3d 20 30  0d 27 f6 10 20 70 77 74  |%!16 = 0.'.. pwt|
00005ab0  25 21 32 30 20 3d 20 30  0d 28 00 10 20 65 77 74  |%!20 = 0.(.. ewt|
00005ac0  25 21 31 36 20 3d 20 30  0d 28 0a 10 20 65 77 74  |%!16 = 0.(.. ewt|
00005ad0  25 21 32 30 20 3d 20 30  0d 28 14 10 20 3f 61 25  |%!20 = 0.(.. ?a%|
00005ae0  20 20 20 20 20 3d 20 32  0d 28 1e 10 20 61 25 3f  |     = 2.(.. a%?|
00005af0  31 20 20 20 20 3d 20 30  0d 28 28 10 20 61 25 3f  |1    = 0.((. a%?|
00005b00  32 20 20 20 20 3d 20 30  0d 28 32 10 20 61 25 3f  |2    = 0.(2. a%?|
00005b10  33 20 20 20 20 3d 20 30  0d 28 3c 16 20 6f 6c 64  |3    = 0.(<. old|
00005b20  74 68 25 20 20 3d 20 6c  69 6e 65 74 68 25 0d 28  |th%  = lineth%.(|
00005b30  46 16 20 6c 69 6e 65 74  68 25 20 3d 20 32 2e 35  |F. lineth% = 2.5|
00005b40  2a 32 35 36 0d 28 50 2c  20 c8 99 20 22 43 6f 6c  |*256.(P, .. "Col|
00005b50  6f 75 72 54 72 61 6e 73  5f 53 65 74 47 43 4f 4c  |ourTrans_SetGCOL|
00005b60  22 2c 26 46 46 30 30 30  30 30 30 2c 2c 30 2c 30  |",&FF000000,,0,0|
00005b70  0d 28 5a 2f 20 c8 99 20  22 44 72 61 77 5f 53 74  |.(Z/ .. "Draw_St|
00005b80  72 6f 6b 65 22 2c 69 77  61 76 65 25 2c 2c 69 77  |roke",iwave%,,iw|
00005b90  74 25 2c 30 2c 6c 69 6e  65 74 68 25 2c 61 25 0d  |t%,0,lineth%,a%.|
00005ba0  28 64 2c 20 c8 99 20 22  43 6f 6c 6f 75 72 54 72  |(d, .. "ColourTr|
00005bb0  61 6e 73 5f 53 65 74 47  43 4f 4c 22 2c 26 30 30  |ans_SetGCOL",&00|
00005bc0  30 30 46 46 30 30 2c 2c  30 2c 30 0d 28 6e 2f 20  |00FF00,,0,0.(n/ |
00005bd0  c8 99 20 22 44 72 61 77  5f 53 74 72 6f 6b 65 22  |.. "Draw_Stroke"|
00005be0  2c 65 77 61 76 65 25 2c  2c 65 77 74 25 2c 30 2c  |,ewave%,,ewt%,0,|
00005bf0  6c 69 6e 65 74 68 25 2c  61 25 0d 28 78 2c 20 c8  |lineth%,a%.(x, .|
00005c00  99 20 22 43 6f 6c 6f 75  72 54 72 61 6e 73 5f 53  |. "ColourTrans_S|
00005c10  65 74 47 43 4f 4c 22 2c  26 30 30 46 46 30 30 30  |etGCOL",&00FF000|
00005c20  30 2c 2c 30 2c 30 0d 28  82 2f 20 c8 99 20 22 44  |0,,0,0.(./ .. "D|
00005c30  72 61 77 5f 53 74 72 6f  6b 65 22 2c 70 77 61 76  |raw_Stroke",pwav|
00005c40  65 25 2c 2c 70 77 74 25  2c 30 2c 6c 69 6e 65 74  |e%,,pwt%,0,linet|
00005c50  68 25 2c 61 25 0d 28 8c  24 20 c8 99 20 22 43 6f  |h%,a%.(.$ .. "Co|
00005c60  6c 6f 75 72 54 72 61 6e  73 5f 53 65 74 47 43 4f  |lourTrans_SetGCO|
00005c70  4c 22 2c 30 2c 2c 30 2c  30 0d 28 96 2e 20 c8 99  |L",0,,0,0.(.. ..|
00005c80  20 22 44 72 61 77 5f 53  74 72 6f 6b 65 22 2c 67  | "Draw_Stroke",g|
00005c90  72 61 70 68 25 2c 2c 67  74 25 2c 30 2c 6c 69 6e  |raph%,,gt%,0,lin|
00005ca0  65 74 68 25 2c 61 25 0d  28 a0 39 20 c8 99 20 22  |eth%,a%.(.9 .. "|
00005cb0  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 74 46  |ColourTrans_SetF|
00005cc0  6f 6e 74 43 6f 6c 6f 75  72 73 22 2c 66 6f 6e 74  |ontColours",font|
00005cd0  25 2c 26 46 46 46 46 46  46 30 30 2c 30 2c 31 34  |%,&FFFFFF00,0,14|
00005ce0  0d 28 aa 29 20 c8 99 20  22 46 6f 6e 74 5f 50 61  |.(.) .. "Font_Pa|
00005cf0  69 6e 74 22 2c 66 6f 6e  74 25 2c 22 2b 22 2c 37  |int",font%,"+",7|
00005d00  38 34 2c 31 30 2c 37 30  30 0d 28 b4 29 20 c8 99  |84,10,700.(.) ..|
00005d10  20 22 46 6f 6e 74 5f 50  61 69 6e 74 22 2c 66 6f  | "Font_Paint",fo|
00005d20  6e 74 25 2c 22 2d 22 2c  37 38 34 2c 31 30 2c 32  |nt%,"-",784,10,2|
00005d30  30 30 0d 28 be 32 20 c8  99 20 22 46 6f 6e 74 5f  |00.(.2 .. "Font_|
00005d40  50 61 69 6e 74 22 2c 66  6f 6e 74 25 2c 22 49 22  |Paint",font%,"I"|
00005d50  2c 37 38 34 2c 31 31 30  30 2a 74 61 2c 69 6e 79  |,784,1100*ta,iny|
00005d60  25 2a 74 64 0d 28 c8 32  20 c8 99 20 22 46 6f 6e  |%*td.(.2 .. "Fon|
00005d70  74 5f 50 61 69 6e 74 22  2c 66 6f 6e 74 25 2c 22  |t_Paint",font%,"|
00005d80  45 22 2c 37 38 34 2c 31  31 30 30 2a 74 61 2c 65  |E",784,1100*ta,e|
00005d90  6d 79 25 2a 74 64 0d 28  d2 32 20 c8 99 20 22 46  |my%*td.(.2 .. "F|
00005da0  6f 6e 74 5f 50 61 69 6e  74 22 2c 66 6f 6e 74 25  |ont_Paint",font%|
00005db0  2c 22 50 22 2c 37 38 34  2c 31 31 30 30 2a 74 61  |,"P",784,1100*ta|
00005dc0  2c 70 79 79 25 2a 74 64  0d 28 dc 32 20 c8 99 20  |,pyy%*td.(.2 .. |
00005dd0  22 46 6f 6e 74 5f 50 61  69 6e 74 22 2c 66 6f 6e  |"Font_Paint",fon|
00005de0  74 25 2c 22 5e 22 2c 37  38 34 2c 35 39 31 2e 35  |t%,"^",784,591.5|
00005df0  2a 74 61 2c 34 35 30 2a  74 64 0d 28 e6 4c 20 74  |*ta,450*td.(.L t|
00005e00  69 74 6c 65 24 3d 24 6e  61 6d 65 25 2b 22 27 73  |itle$=$name%+"'s|
00005e10  20 70 6c 6f 74 20 66 6f  72 20 22 2b c3 70 64 25  | plot for "+.pd%|
00005e20  2b 22 2d 22 2b a4 6e 75  6d 62 65 72 5f 74 6f 5f  |+"-"+.number_to_|
00005e30  6e 61 6d 65 28 70 6d 25  29 2b 22 2d 22 2b c3 70  |name(pm%)+"-"+.p|
00005e40  79 25 2b 22 2e 22 0d 28  f0 29 20 74 69 74 6c 65  |y%+".".(.) title|
00005e50  24 2b 3d 22 20 20 22 2b  24 69 65 6c 61 70 73 65  |$+="  "+$ielapse|
00005e60  64 25 2b 22 20 64 61 79  73 20 6f 6c 64 2e 22 0d  |d%+" days old.".|
00005e70  28 fa 42 20 c8 99 20 22  46 6f 6e 74 5f 50 61 69  |(.B .. "Font_Pai|
00005e80  6e 74 22 2c 66 6f 6e 74  25 2c 74 69 74 6c 65 24  |nt",font%,title$|
00005e90  2c 37 38 34 2c 78 6f 72  69 67 25 2b 31 30 30 2a  |,784,xorig%+100*|
00005ea0  74 61 2c 79 6f 72 69 67  25 2b 31 30 30 30 2a 74  |ta,yorig%+1000*t|
00005eb0  64 0d 29 04 15 20 6c 69  6e 65 74 68 25 20 3d 20  |d.).. lineth% = |
00005ec0  6f 6c 64 74 68 25 0d 29  0e 05 e1 0d 29 18 05 3a  |oldth%.)....)..:|
00005ed0  0d 29 22 3c dd 20 a4 64  69 66 66 65 72 65 6e 63  |.)"<. .differenc|
00005ee0  65 28 64 61 79 31 25 2c  6d 6f 6e 74 68 31 25 2c  |e(day1%,month1%,|
00005ef0  79 65 61 72 31 25 2c 64  61 79 32 25 2c 6d 6f 6e  |year1%,day2%,mon|
00005f00  74 68 32 25 2c 79 65 61  72 32 25 29 0d 29 2c 0c  |th2%,year2%).),.|
00005f10  20 ea 20 61 25 2c 63 25  0d 29 36 12 20 61 25 20  | . a%,c%.)6. a% |
00005f20  20 20 3d 20 62 25 2b 38  30 30 0d 29 40 12 20 63  |  = b%+800.)@. c|
00005f30  25 20 20 20 3d 20 62 25  2b 38 35 30 0d 29 4a 0d  |%   = b%+850.)J.|
00005f40  20 21 61 25 20 20 3d 20  30 0d 29 54 0d 20 61 25  | !a%  = 0.)T. a%|
00005f50  21 34 20 3d 20 30 0d 29  5e 0d 20 61 25 21 38 20  |!4 = 0.)^. a%!8 |
00005f60  3d 20 30 0d 29 68 0d 20  61 25 21 31 32 3d 20 30  |= 0.)h. a%!12= 0|
00005f70  0d 29 72 11 20 61 25 21  31 36 3d 20 64 61 79 31  |.)r. a%!16= day1|
00005f80  25 0d 29 7c 13 20 61 25  21 32 30 3d 20 6d 6f 6e  |%.)|. a%!20= mon|
00005f90  74 68 31 25 0d 29 86 12  20 61 25 21 32 34 3d 20  |th1%.).. a%!24= |
00005fa0  79 65 61 72 31 25 0d 29  90 33 20 c8 99 20 22 58  |year1%.).3 .. "X|
00005fb0  54 65 72 72 69 74 6f 72  79 5f 43 6f 6e 76 65 72  |Territory_Conver|
00005fc0  74 4f 72 64 69 6e 61 6c  73 54 6f 54 69 6d 65 22  |tOrdinalsToTime"|
00005fd0  2c 2d 31 2c 63 25 2c 61  25 0d 29 9a 49 20 61 3d  |,-1,c%,a%.).I a=|
00005fe0  28 28 32 35 36 5e 34 29  2a 63 25 3f 34 29 2b 28  |((256^4)*c%?4)+(|
00005ff0  28 32 35 36 5e 33 29 2a  63 25 3f 33 29 2b 28 28  |(256^3)*c%?3)+((|
00006000  32 35 36 5e 32 29 2a 63  25 3f 32 29 2b 28 28 32  |256^2)*c%?2)+((2|
00006010  35 36 5e 31 29 2a 63 25  3f 31 29 2b 28 63 25 3f  |56^1)*c%?1)+(c%?|
00006020  30 29 0d 29 a4 0d 20 21  61 25 20 20 3d 20 30 0d  |0).).. !a%  = 0.|
00006030  29 ae 0d 20 61 25 21 34  20 3d 20 30 0d 29 b8 0d  |).. a%!4 = 0.)..|
00006040  20 61 25 21 38 20 3d 20  30 0d 29 c2 0d 20 61 25  | a%!8 = 0.).. a%|
00006050  21 31 32 3d 20 30 0d 29  cc 11 20 61 25 21 31 36  |!12= 0.).. a%!16|
00006060  3d 20 64 61 79 32 25 0d  29 d6 13 20 61 25 21 32  |= day2%.).. a%!2|
00006070  30 3d 20 6d 6f 6e 74 68  32 25 0d 29 e0 12 20 61  |0= month2%.).. a|
00006080  25 21 32 34 3d 20 79 65  61 72 32 25 0d 29 ea 32  |%!24= year2%.).2|
00006090  20 c8 99 20 22 54 65 72  72 69 74 6f 72 79 5f 43  | .. "Territory_C|
000060a0  6f 6e 76 65 72 74 4f 72  64 69 6e 61 6c 73 54 6f  |onvertOrdinalsTo|
000060b0  54 69 6d 65 22 2c 2d 31  2c 63 25 2c 61 25 0d 29  |Time",-1,c%,a%.)|
000060c0  f4 49 20 62 3d 28 28 32  35 36 5e 34 29 2a 63 25  |.I b=((256^4)*c%|
000060d0  3f 34 29 2b 28 28 32 35  36 5e 33 29 2a 63 25 3f  |?4)+((256^3)*c%?|
000060e0  33 29 2b 28 28 32 35 36  5e 32 29 2a 63 25 3f 32  |3)+((256^2)*c%?2|
000060f0  29 2b 28 28 32 35 36 5e  31 29 2a 63 25 3f 31 29  |)+((256^1)*c%?1)|
00006100  2b 28 63 25 3f 30 29 0d  29 fe 1a 3d a8 20 28 28  |+(c%?0).)..=. ((|
00006110  62 2d 61 29 2f 38 36 34  30 30 30 30 2b 30 2e 35  |b-a)/8640000+0.5|
00006120  29 0d 2a 08 05 3a 0d 2a  12 13 dd 20 f2 68 65 6c  |).*..:.*... .hel|
00006130  70 5f 72 65 71 75 65 73  74 0d 2a 1c 11 20 62 25  |p_request.*.. b%|
00006140  21 31 32 20 3d 20 62 25  21 38 0d 2a 26 11 20 62  |!12 = b%!8.*&. b|
00006150  25 21 31 36 20 3d 20 26  35 30 33 0d 2a 30 12 20  |%!16 = &503.*0. |
00006160  68 65 6c 70 25 20 3d 20  62 25 2b 32 30 0d 2a 3a  |help% = b%+20.*:|
00006170  25 20 68 65 6c 70 25 20  3d 20 a4 68 65 6c 70 28  |% help% = .help(|
00006180  62 25 21 33 32 2c 62 25  21 33 36 2c 68 65 6c 70  |b%!32,b%!36,help|
00006190  25 29 0d 2a 44 0e 20 3f  68 65 6c 70 25 3d 20 30  |%).*D. ?help%= 0|
000061a0  0d 2a 4e 1e 20 21 62 25  20 20 20 3d 20 28 68 65  |.*N. !b%   = (he|
000061b0  6c 70 25 2b 34 2d 62 25  29 80 20 ac 20 33 0d 2a  |lp%+4-b%). . 3.*|
000061c0  58 25 20 c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |X% .. "Wimp_Send|
000061d0  4d 65 73 73 61 67 65 22  2c 31 37 2c 62 25 2c 62  |Message",17,b%,b|
000061e0  25 21 34 0d 2a 62 05 e1  0d 2a 6c 05 3a 0d 2a 76  |%!4.*b...*l.:.*v|
000061f0  1e dd 20 a4 68 65 6c 70  28 77 69 6e 64 6f 77 25  |.. .help(window%|
00006200  2c 69 63 6f 6e 25 2c 74  6f 25 29 0d 2a 80 11 20  |,icon%,to%).*.. |
00006210  c8 8e 20 77 69 6e 64 6f  77 25 20 ca 0d 2a 8a 29  |.. window% ..*.)|
00006220  20 20 20 c9 20 69 6e 66  6f 25 3a 24 74 6f 25 20  |   . info%:$to% |
00006230  20 20 3d 20 a4 68 65 6c  70 5f 69 6e 66 6f 28 69  |  = .help_info(i|
00006240  63 6f 6e 25 29 0d 2a 94  28 20 20 20 c9 20 2d 32  |con%).*.(   . -2|
00006250  3a 24 74 6f 25 20 20 20  20 20 20 3d 20 a4 68 65  |:$to%      = .he|
00006260  6c 70 5f 62 61 72 28 69  63 6f 6e 25 29 0d 2a 9e  |lp_bar(icon%).*.|
00006270  29 20 20 20 c9 20 64 61  74 61 25 3a 24 74 6f 25  |)   . data%:$to%|
00006280  20 20 20 3d 20 a4 68 65  6c 70 5f 64 61 74 61 28  |   = .help_data(|
00006290  69 63 6f 6e 25 29 0d 2a  a8 25 20 20 20 c9 20 6d  |icon%).*.%   . m|
000062a0  61 69 6e 25 3a 24 74 6f  25 20 20 20 3d 20 a4 6d  |ain%:$to%   = .m|
000062b0  65 73 28 22 48 4d 61 69  6e 22 29 0d 2a b2 26 20  |es("HMain").*.& |
000062c0  20 20 c9 20 62 69 6f 69  6e 66 6f 25 3a 24 74 6f  |  . bioinfo%:$to|
000062d0  25 3d 20 a4 6d 65 73 28  22 48 57 4f 45 41 42 22  |%= .mes("HWOEAB"|
000062e0  29 0d 2a bc 2c 20 20 20  c9 20 70 72 69 6e 74 65  |).*.,   . printe|
000062f0  72 25 3a 24 74 6f 25 3d  20 a4 70 72 69 6e 74 65  |r%:$to%= .printe|
00006300  72 5f 68 65 6c 70 28 69  63 6f 6e 25 29 0d 2a c6  |r_help(icon%).*.|
00006310  29 20 20 20 c9 20 73 61  76 65 25 3a 24 74 6f 25  |)   . save%:$to%|
00006320  20 20 20 3d 20 a4 73 61  76 65 5f 68 65 6c 70 28  |   = .save_help(|
00006330  69 63 6f 6e 25 29 0d 2a  d0 07 20 20 7f 0d 2a da  |icon%).*..  ..*.|
00006340  20 20 20 20 e7 20 77 69  6d 70 25 3e 32 31 38 20  |    . wimp%>218 |
00006350  80 20 69 63 6f 6e 25 3c  3e 2d 31 20 8c 0d 2a e4  |. icon%<>-1 ..*.|
00006360  17 20 20 20 20 20 20 c8  8e 20 74 6f 70 6d 65 6e  |.      .. topmen|
00006370  75 25 20 ca 0d 2a ee 3a  20 20 20 20 20 20 20 20  |u% ..*.:        |
00006380  c9 20 62 61 72 5f 6d 65  6e 75 25 3a 24 74 6f 25  |. bar_menu%:$to%|
00006390  3d a4 62 61 72 5f 6d 65  6e 75 5f 68 65 6c 70 28  |=.bar_menu_help(|
000063a0  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 29 0d 2a  |window%,icon%).*|
000063b0  f8 3c 20 20 20 20 20 20  20 20 c9 20 70 6c 6f 74  |.<        . plot|
000063c0  5f 6d 65 6e 75 25 3a 24  74 6f 25 3d a4 70 6c 6f  |_menu%:$to%=.plo|
000063d0  74 5f 6d 65 6e 75 5f 68  65 6c 70 28 77 69 6e 64  |t_menu_help(wind|
000063e0  6f 77 25 2c 69 63 6f 6e  25 29 0d 2b 02 0b 20 20  |ow%,icon%).+..  |
000063f0  20 20 20 20 cb 0d 2b 0c  08 20 20 20 cd 0d 2b 16  |    ..+..   ..+.|
00006400  06 20 cb 0d 2b 20 10 3d  74 6f 25 2b a9 28 24 74  |. ..+ .=to%+.($t|
00006410  6f 25 29 0d 2b 2a 05 3a  0d 2b 34 17 dd 20 a4 68  |o%).+*.:.+4.. .h|
00006420  65 6c 70 5f 69 6e 66 6f  28 69 63 6f 6e 25 29 0d  |elp_info(icon%).|
00006430  2b 3e 12 3d a4 6d 65 73  28 22 48 49 6e 66 6f 22  |+>.=.mes("HInfo"|
00006440  29 0d 2b 48 05 3a 0d 2b  52 16 dd 20 a4 68 65 6c  |).+H.:.+R.. .hel|
00006450  70 5f 62 61 72 28 69 63  6f 6e 25 29 0d 2b 5c 11  |p_bar(icon%).+\.|
00006460  3d a4 6d 65 73 28 22 48  42 61 72 22 29 0d 2b 66  |=.mes("HBar").+f|
00006470  05 3a 0d 2b 70 1a dd 20  a4 70 72 69 6e 74 65 72  |.:.+p.. .printer|
00006480  5f 68 65 6c 70 28 69 63  6f 6e 25 29 0d 2b 7a 09  |_help(icon%).+z.|
00006490  20 ea 20 61 24 0d 2b 84  16 20 61 24 3d a4 6d 65  | . a$.+.. a$=.me|
000064a0  73 28 22 48 50 72 69 6e  74 22 29 0d 2b 8e 0f 20  |s("HPrint").+.. |
000064b0  c8 8e 20 69 63 6f 6e 25  20 ca 0d 2b 98 1d 20 20  |.. icon% ..+..  |
000064c0  20 c9 20 31 3a 61 24 3d  a4 6d 65 73 28 22 48 50  | . 1:a$=.mes("HP|
000064d0  72 69 6e 74 31 22 29 0d  2b a2 1d 20 20 20 c9 20  |rint1").+..   . |
000064e0  34 3a 61 24 3d a4 6d 65  73 28 22 48 50 72 69 6e  |4:a$=.mes("HPrin|
000064f0  74 34 22 29 0d 2b ac 1d  20 20 20 c9 20 35 3a 61  |t4").+..   . 5:a|
00006500  24 3d a4 6d 65 73 28 22  48 50 72 69 6e 74 35 22  |$=.mes("HPrint5"|
00006510  29 0d 2b b6 06 20 cb 0d  2b c0 07 3d 61 24 0d 2b  |).+.. ..+..=a$.+|
00006520  ca 05 3a 0d 2b d4 17 dd  20 a4 73 61 76 65 5f 68  |..:.+... .save_h|
00006530  65 6c 70 28 69 63 6f 6e  25 29 0d 2b de 09 20 ea  |elp(icon%).+.. .|
00006540  20 61 24 0d 2b e8 15 20  61 24 3d a4 6d 65 73 28  | a$.+.. a$=.mes(|
00006550  22 48 53 61 76 65 22 29  0d 2b f2 0f 20 c8 8e 20  |"HSave").+.. .. |
00006560  69 63 6f 6e 25 20 ca 0d  2b fc 1c 20 20 20 c9 20  |icon% ..+..   . |
00006570  30 3a 61 24 3d a4 6d 65  73 28 22 48 53 61 76 65  |0:a$=.mes("HSave|
00006580  30 22 29 0d 2c 06 1c 20  20 20 c9 20 32 3a 61 24  |0").,..   . 2:a$|
00006590  3d a4 6d 65 73 28 22 48  53 61 76 65 32 22 29 0d  |=.mes("HSave2").|
000065a0  2c 10 1c 20 20 20 c9 20  33 3a 61 24 3d a4 6d 65  |,..   . 3:a$=.me|
000065b0  73 28 22 48 53 61 76 65  33 22 29 0d 2c 1a 06 20  |s("HSave3").,.. |
000065c0  cb 0d 2c 24 07 3d 61 24  0d 2c 2e 05 3a 0d 2c 38  |..,$.=a$.,..:.,8|
000065d0  23 dd 20 a4 62 61 72 5f  6d 65 6e 75 5f 68 65 6c  |#. .bar_menu_hel|
000065e0  70 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |p(window%,icon%)|
000065f0  0d 2c 42 32 20 c8 99 20  22 57 69 6d 70 5f 47 65  |.,B2 .. "Wimp_Ge|
00006600  74 4d 65 6e 75 53 74 61  74 65 22 2c 31 2c 62 25  |tMenuState",1,b%|
00006610  2b 39 30 30 2c 77 69 6e  64 6f 77 25 2c 69 63 6f  |+900,window%,ico|
00006620  6e 25 0d 2c 4c 10 20 c8  8e 20 62 25 21 39 30 30  |n%.,L. .. b%!900|
00006630  20 ca 0d 2c 56 21 20 20  20 c9 20 30 3a c9 20 2d  | ..,V!   . 0:. -|
00006640  31 3a 61 24 3d a4 6d 65  73 28 22 48 42 6d 65 6e  |1:a$=.mes("HBmen|
00006650  30 22 29 0d 2c 60 0a 20  20 20 c9 20 31 0d 2c 6a  |0").,`.   . 1.,j|
00006660  14 20 20 20 20 20 c8 8e  20 62 25 21 39 30 34 20  |.     .. b%!904 |
00006670  ca 0d 2c 74 21 20 20 20  20 20 20 20 c9 20 2d 31  |..,t!       . -1|
00006680  3a 61 24 3d a4 6d 65 73  28 22 48 42 6d 65 6e 31  |:a$=.mes("HBmen1|
00006690  22 29 0d 2c 7e 20 20 20  20 20 20 20 20 c9 20 31  |").,~        . 1|
000066a0  3a 61 24 3d a4 6d 65 73  28 22 48 4f 6d 65 6e 31  |:a$=.mes("HOmen1|
000066b0  22 29 0d 2c 88 0e 20 20  20 20 20 20 20 c9 20 30  |").,..       . 0|
000066c0  0d 2c 92 18 20 20 20 20  20 20 20 20 20 c8 8e 20  |.,..         .. |
000066d0  62 25 21 39 30 38 20 ca  0d 2c 9c 25 20 20 20 20  |b%!908 ..,.%    |
000066e0  20 20 20 20 20 20 20 c9  20 2d 31 3a 61 24 3d a4  |       . -1:a$=.|
000066f0  6d 65 73 28 22 48 4f 6d  65 6e 30 22 29 0d 2c a6  |mes("HOmen0").,.|
00006700  26 20 20 20 20 20 20 20  20 20 20 7f 3a 61 24 3d  |&          .:a$=|
00006710  a4 68 65 6c 70 5f 77 69  64 74 68 28 62 25 21 39  |.help_width(b%!9|
00006720  30 38 29 0d 2c b0 0e 20  20 20 20 20 20 20 20 20  |08).,..         |
00006730  cb 0d 2c ba 0a 20 20 20  20 20 cb 0d 2c c4 1c 20  |..,..     ..,.. |
00006740  20 20 c9 20 32 3a 61 24  3d a4 6d 65 73 28 22 48  |  . 2:a$=.mes("H|
00006750  42 6d 65 6e 32 22 29 0d  2c ce 1c 20 20 20 c9 20  |Bmen2").,..   . |
00006760  33 3a 61 24 3d a4 6d 65  73 28 22 48 42 6d 65 6e  |3:a$=.mes("HBmen|
00006770  33 22 29 0d 2c d8 06 20  cb 0d 2c e2 07 3d 61 24  |3").,.. ..,..=a$|
00006780  0d 2c ec 05 3a 0d 2c f6  24 dd 20 a4 70 6c 6f 74  |.,..:.,.$. .plot|
00006790  5f 6d 65 6e 75 5f 68 65  6c 70 28 77 69 6e 64 6f  |_menu_help(windo|
000067a0  77 25 2c 69 63 6f 6e 25  29 0d 2d 00 09 20 ea 20  |w%,icon%).-.. . |
000067b0  61 24 0d 2d 0a 32 20 c8  99 20 22 57 69 6d 70 5f  |a$.-.2 .. "Wimp_|
000067c0  47 65 74 4d 65 6e 75 53  74 61 74 65 22 2c 31 2c  |GetMenuState",1,|
000067d0  62 25 2b 39 30 30 2c 77  69 6e 64 6f 77 25 2c 69  |b%+900,window%,i|
000067e0  63 6f 6e 25 0d 2d 14 10  20 c8 8e 20 62 25 21 39  |con%.-.. .. b%!9|
000067f0  30 30 20 ca 0d 2d 1e 0a  20 20 20 c9 20 30 0d 2d  |00 ..-..   . 0.-|
00006800  28 14 20 20 20 20 20 c8  8e 20 62 25 21 39 30 34  |(.     .. b%!904|
00006810  20 ca 0d 2d 32 21 20 20  20 20 20 20 20 c9 20 2d  | ..-2!       . -|
00006820  31 3a 61 24 3d a4 6d 65  73 28 22 48 50 6d 65 6e  |1:a$=.mes("HPmen|
00006830  30 22 29 0d 2d 3c 20 20  20 20 20 20 20 20 c9 20  |0").-<        . |
00006840  30 3a 61 24 3d a4 6d 65  73 28 22 48 53 6d 65 6e  |0:a$=.mes("HSmen|
00006850  30 22 29 0d 2d 46 20 20  20 20 20 20 20 20 c9 20  |0").-F        . |
00006860  31 3a 61 24 3d a4 6d 65  73 28 22 48 53 6d 65 6e  |1:a$=.mes("HSmen|
00006870  31 22 29 0d 2d 50 20 20  20 20 20 20 20 20 c9 20  |1").-P        . |
00006880  32 3a 61 24 3d a4 6d 65  73 28 22 48 53 6d 65 6e  |2:a$=.mes("HSmen|
00006890  32 22 29 0d 2d 5a 0a 20  20 20 20 20 cb 0d 2d 64  |2").-Z.     ..-d|
000068a0  0b 20 20 20 c9 20 31 3a  0d 2d 6e 14 20 20 20 20  |.   . 1:.-n.    |
000068b0  20 c8 8e 20 62 25 21 39  30 34 20 ca 0d 2d 78 21  | .. b%!904 ..-x!|
000068c0  20 20 20 20 20 20 20 c9  20 2d 31 3a 61 24 3d a4  |       . -1:a$=.|
000068d0  6d 65 73 28 22 48 50 6d  65 6e 31 22 29 0d 2d 82  |mes("HPmen1").-.|
000068e0  20 20 20 20 20 20 20 20  c9 20 31 3a 61 24 3d a4  |        . 1:a$=.|
000068f0  6d 65 73 28 22 48 4f 6d  65 6e 31 22 29 0d 2d 8c  |mes("HOmen1").-.|
00006900  0e 20 20 20 20 20 20 20  c9 20 30 0d 2d 96 18 20  |.       . 0.-.. |
00006910  20 20 20 20 20 20 20 20  c8 8e 20 62 25 21 39 30  |        .. b%!90|
00006920  38 20 ca 0d 2d a0 25 20  20 20 20 20 20 20 20 20  |8 ..-.%         |
00006930  20 20 c9 20 2d 31 3a 61  24 3d a4 6d 65 73 28 22  |  . -1:a$=.mes("|
00006940  48 4f 6d 65 6e 30 22 29  0d 2d aa 26 20 20 20 20  |HOmen0").-.&    |
00006950  20 20 20 20 20 20 7f 3a  61 24 3d a4 68 65 6c 70  |      .:a$=.help|
00006960  5f 77 69 64 74 68 28 62  25 21 39 30 38 29 0d 2d  |_width(b%!908).-|
00006970  b4 0e 20 20 20 20 20 20  20 20 20 cb 0d 2d be 0a  |..         ..-..|
00006980  20 20 20 20 20 cb 0d 2d  c8 1c 20 20 20 c9 20 32  |     ..-..   . 2|
00006990  3a 61 24 3d a4 6d 65 73  28 22 48 50 6d 65 6e 32  |:a$=.mes("HPmen2|
000069a0  22 29 0d 2d d2 06 20 cb  0d 2d dc 07 3d 61 24 0d  |").-.. ..-..=a$.|
000069b0  2d e6 05 3a 0d 2d f0 17  dd 20 a4 68 65 6c 70 5f  |-..:.-... .help_|
000069c0  64 61 74 61 28 69 63 6f  6e 25 29 0d 2d fa 09 20  |data(icon%).-.. |
000069d0  ea 20 61 24 0d 2e 04 15  20 61 24 3d a4 6d 65 73  |. a$.... a$=.mes|
000069e0  28 22 48 44 61 74 61 22  29 0d 2e 0e 42 20 e7 20  |("HData")...B . |
000069f0  28 69 63 6f 6e 25 3e 34  20 80 20 69 63 6f 6e 25  |(icon%>4 . icon%|
00006a00  3c 31 37 29 20 84 20 69  63 6f 6e 25 3e 31 39 20  |<17) . icon%>19 |
00006a10  8c 20 61 24 3d a4 6d 65  73 28 22 48 44 61 74 61  |. a$=.mes("HData|
00006a20  22 2b c3 28 69 63 6f 6e  25 29 29 0d 2e 18 07 3d  |"+.(icon%))....=|
00006a30  61 24 0d 2e 22 05 3a 0d  2e 2c 18 dd 20 a4 68 65  |a$..".:..,.. .he|
00006a40  6c 70 5f 77 69 64 74 68  28 69 74 65 6d 25 29 0d  |lp_width(item%).|
00006a50  2e 36 09 20 ea 20 61 24  0d 2e 40 0f 20 c8 8e 20  |.6. . a$..@. .. |
00006a60  69 74 65 6d 25 20 ca 0d  2e 4a 3b 20 20 20 c9 20  |item% ...J;   . |
00006a70  30 2c 31 2c 32 2c 33 2c  34 3a 61 24 3d a4 6d 65  |0,1,2,3,4:a$=.me|
00006a80  73 28 22 48 57 6d 65 6e  30 e7 22 2b a4 6d 65 73  |s("HWmen0."+.mes|
00006a90  28 22 57 69 64 74 68 22  2b c3 20 69 74 65 6d 25  |("Width"+. item%|
00006aa0  29 29 0d 2e 54 1c 20 20  20 c9 20 35 3a 61 24 3d  |))..T.   . 5:a$=|
00006ab0  a4 6d 65 73 28 22 48 57  6d 65 6e 35 22 29 0d 2e  |.mes("HWmen5")..|
00006ac0  5e 06 20 cb 0d 2e 68 07  3d 61 24 0d 2e 72 05 3a  |^. ...h.=a$..r.:|
00006ad0  0d 2e 7c 10 dd 20 a4 67  65 74 5f 70 6e 61 6d 65  |..|.. .get_pname|
00006ae0  0d 2e 86 2a 20 c8 99 20  22 58 50 44 72 69 76 65  |...* .. "XPDrive|
00006af0  72 5f 49 6e 66 6f 22 20  b8 20 2c 2c 2c 2c 6e 61  |r_Info" . ,,,,na|
00006b00  6d 65 24 3b 66 6c 61 67  73 25 0d 2e 90 25 20 e7  |me$;flags%...% .|
00006b10  20 28 66 6c 61 67 73 25  20 80 20 31 29 3c 3e 30  | (flags% . 1)<>0|
00006b20  20 8c 20 6e 61 6d 65 24  3d 22 4e 6f 6e 65 22 0d  | . name$="None".|
00006b30  2e 9a 0a 3d 6e 61 6d 65  24 0d 2e a4 05 3a 0d 2e  |...=name$....:..|
00006b40  ae 11 dd 20 a4 6d 65 73  28 6d 65 73 73 24 29 0d  |... .mes(mess$).|
00006b50  2e b8 19 20 74 6f 6b 65  6e 24 3d a4 73 70 6c 69  |... token$=.spli|
00006b60  74 28 6d 65 73 73 24 29  0d 2e c2 4d 20 c8 99 20  |t(mess$)...M .. |
00006b70  22 4d 65 73 73 61 67 65  54 72 61 6e 73 5f 4c 6f  |"MessageTrans_Lo|
00006b80  6f 6b 75 70 22 2c 6d 65  73 5f 66 69 6c 65 25 2c  |okup",mes_file%,|
00006b90  74 6f 6b 65 6e 24 2c 62  75 66 25 2c 62 75 66 5f  |token$,buf%,buf_|
00006ba0  73 69 7a 65 25 2c 73 24  28 31 29 20 b8 20 2c 2c  |size%,s$(1) . ,,|
00006bb0  2c 6c 65 6e 25 0d 2e cc  11 20 62 75 66 25 3f 6c  |,len%.... buf%?l|
00006bc0  65 6e 25 3d 31 33 0d 2e  d6 0a 3d 24 62 75 66 25  |en%=13....=$buf%|
00006bd0  0d 2e e0 05 3a 0d 2e ea  12 dd 20 a4 73 70 6c 69  |....:..... .spli|
00006be0  74 28 73 74 72 24 29 0d  2e f4 09 20 ea 20 69 25  |t(str$).... . i%|
00006bf0  0d 2e fe 0e 20 69 25 20  20 20 3d 20 20 30 0d 2f  |.... i%   =  0./|
00006c00  08 0f 20 73 24 28 29 20  3d 20 20 22 22 0d 2f 12  |.. s$() =  ""./.|
00006c10  10 20 c8 95 20 73 74 72  24 3c 3e 22 22 0d 2f 1c  |. .. str$<>""./.|
00006c20  1e 20 20 20 63 6f 6c 25  20 20 20 3d 20 a7 73 74  |.   col%   = .st|
00006c30  72 24 2b 22 e7 22 2c 22  e7 22 29 0d 2f 26 1d 20  |r$+".",".")./&. |
00006c40  20 20 73 24 28 69 25 29  20 3d 20 c0 73 74 72 24  |  s$(i%) = .str$|
00006c50  2c 63 6f 6c 25 2d 31 29  0d 2f 30 1d 20 20 20 73  |,col%-1)./0.   s|
00006c60  74 72 24 20 20 20 3d 20  c1 73 74 72 24 2c 63 6f  |tr$   = .str$,co|
00006c70  6c 25 2b 31 29 0d 2f 3a  11 20 20 20 69 25 20 20  |l%+1)./:.   i%  |
00006c80  20 20 2b 3d 20 31 0d 2f  44 06 20 ce 0d 2f 4e 0a  |  += 1./D. ../N.|
00006c90  3d 73 24 28 30 29 0d 2f  58 05 3a 0d 2f 62 13 dd  |=s$(0)./X.:./b..|
00006ca0  20 f2 6d 65 6e 75 5f 77  61 72 6e 69 6e 67 0d 2f  | .menu_warning./|
00006cb0  6c 0f 20 c8 8e 20 62 25  21 32 30 20 ca 0d 2f 76  |l. .. b%!20 ../v|
00006cc0  0e 20 20 20 c9 20 73 61  76 65 25 0d 2f 80 13 20  |.   . save%./.. |
00006cd0  20 20 20 20 c8 8e 20 62  25 21 33 36 20 ca 0d 2f  |    .. b%!36 ../|
00006ce0  8a 16 20 20 20 20 20 20  20 c9 20 30 3a f4 20 67  |..       . 0:. g|
00006cf0  72 61 70 68 0d 2f 94 1a  20 20 20 20 20 20 20 20  |raph./..        |
00006d00  20 73 61 76 69 6e 67 25  20 20 20 3d 20 30 0d 2f  | saving%   = 0./|
00006d10  9e 23 20 20 20 20 20 20  20 20 20 24 73 61 76 65  |.#         $save|
00006d20  69 63 6f 6e 25 3d 20 22  66 69 6c 65 5f 61 66 66  |icon%= "file_aff|
00006d30  22 0d 2f a8 22 20 20 20  20 20 20 20 20 20 f2 73  |"./."         .s|
00006d40  65 74 5f 6e 61 6d 65 28  22 44 72 61 77 46 69 6c  |et_name("DrawFil|
00006d50  65 22 29 0d 2f b2 37 20  20 20 20 20 20 20 20 20  |e")./.7         |
00006d60  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 53  |.. "Wimp_CreateS|
00006d70  75 62 4d 65 6e 75 22 2c  2c 73 61 76 65 25 2c 62  |ubMenu",,save%,b|
00006d80  25 21 32 34 2c 62 25 21  32 38 0d 2f bc 14 20 20  |%!24,b%!28./..  |
00006d90  20 20 20 20 20 c9 20 31  3a f4 20 63 73 76 0d 2f  |     . 1:. csv./|
00006da0  c6 1a 20 20 20 20 20 20  20 20 20 73 61 76 69 6e  |..         savin|
00006db0  67 25 20 20 20 3d 20 31  0d 2f d0 23 20 20 20 20  |g%   = 1./.#    |
00006dc0  20 20 20 20 20 24 73 61  76 65 69 63 6f 6e 25 3d  |     $saveicon%=|
00006dd0  20 22 66 69 6c 65 5f 63  32 38 22 0d 2f da 23 20  | "file_c28"./.# |
00006de0  20 20 20 20 20 20 20 20  f2 73 65 74 5f 6e 61 6d  |        .set_nam|
00006df0  65 28 22 47 72 61 70 68  46 69 6c 65 22 29 0d 2f  |e("GraphFile")./|
00006e00  e4 37 20 20 20 20 20 20  20 20 20 c8 99 20 22 57  |.7         .. "W|
00006e10  69 6d 70 5f 43 72 65 61  74 65 53 75 62 4d 65 6e  |imp_CreateSubMen|
00006e20  75 22 2c 2c 73 61 76 65  25 2c 62 25 21 32 34 2c  |u",,save%,b%!24,|
00006e30  62 25 21 32 38 0d 2f ee  14 20 20 20 20 20 20 20  |b%!28./..       |
00006e40  c9 20 32 3a f4 20 63 73  76 0d 2f f8 1a 20 20 20  |. 2:. csv./..   |
00006e50  20 20 20 20 20 20 73 61  76 69 6e 67 25 20 20 20  |      saving%   |
00006e60  3d 20 32 0d 30 02 23 20  20 20 20 20 20 20 20 20  |= 2.0.#         |
00006e70  24 73 61 76 65 69 63 6f  6e 25 3d 20 22 66 69 6c  |$saveicon%= "fil|
00006e80  65 5f 64 66 65 22 0d 30  0c 21 20 20 20 20 20 20  |e_dfe".0.!      |
00006e90  20 20 20 f2 73 65 74 5f  6e 61 6d 65 28 22 43 53  |   .set_name("CS|
00006ea0  56 46 69 6c 65 22 29 0d  30 16 37 20 20 20 20 20  |VFile").0.7     |
00006eb0  20 20 20 20 c8 99 20 22  57 69 6d 70 5f 43 72 65  |    .. "Wimp_Cre|
00006ec0  61 74 65 53 75 62 4d 65  6e 75 22 2c 2c 73 61 76  |ateSubMenu",,sav|
00006ed0  65 25 2c 62 25 21 32 34  2c 62 25 21 32 38 0d 30  |e%,b%!24,b%!28.0|
00006ee0  20 0a 20 20 20 20 20 cb  0d 30 2a 06 20 cb 0d 30  | .     ..0*. ..0|
00006ef0  34 05 e1 0d 30 3e 05 3a  0d 30 48 16 dd 20 f2 73  |4...0>.:.0H.. .s|
00006f00  65 74 5f 6e 61 6d 65 28  6c 65 61 66 24 29 0d 30  |et_name(leaf$).0|
00006f10  52 18 20 ea 20 61 24 2c  70 61 74 68 6e 61 6d 65  |R. . a$,pathname|
00006f20  25 2c 70 74 72 25 0d 30  5c 10 20 61 24 3d 24 73  |%,ptr%.0\. a$=$s|
00006f30  61 76 65 61 73 25 0d 30  66 10 20 70 61 74 68 6e  |aveas%.0f. pathn|
00006f40  61 6d 65 25 3d a3 0d 30  70 33 20 e7 20 a7 61 24  |ame%=..0p3 . .a$|
00006f50  2c 22 24 22 29 20 84 20  a7 61 24 2c 22 2e 22 29  |,"$") . .a$,".")|
00006f60  20 84 20 a7 61 24 2c 22  23 22 29 20 8c 20 70 61  | . .a$,"#") . pa|
00006f70  74 68 6e 61 6d 65 25 3d  b9 0d 30 7a 21 20 e7 20  |thname%=..0z! . |
00006f80  a7 61 24 2c 22 3c 57 69  6d 70 22 29 20 8c 20 70  |.a$,"<Wimp") . p|
00006f90  61 74 68 6e 61 6d 65 25  3d 30 0d 30 84 14 20 e7  |athname%=0.0.. .|
00006fa0  20 ac 20 70 61 74 68 6e  61 6d 65 25 20 8c 0d 30  | . pathname% ..0|
00006fb0  8e 15 20 20 20 24 73 61  76 65 61 73 25 3d 6c 65  |..   $saveas%=le|
00006fc0  61 66 24 0d 30 98 08 20  20 20 e1 0d 30 a2 06 20  |af$.0..   ..0.. |
00006fd0  cd 0d 30 ac 0e 20 70 74  72 25 3d a9 20 61 24 0d  |..0.. ptr%=. a$.|
00006fe0  30 b6 18 20 c8 95 20 c1  61 24 2c 70 74 72 25 2c  |0.. .. .a$,ptr%,|
00006ff0  31 29 3c 3e 22 2e 22 0d  30 c0 0e 20 20 20 70 74  |1)<>".".0..   pt|
00007000  72 25 2d 3d 31 0d 30 ca  06 20 ce 0d 30 d4 11 20  |r%-=1.0.. ..0.. |
00007010  61 24 3d c0 61 24 2c 70  74 72 25 29 0d 30 de 0e  |a$=.a$,ptr%).0..|
00007020  20 61 24 2b 3d 6c 65 61  66 24 0d 30 e8 10 20 24  | a$+=leaf$.0.. $|
00007030  73 61 76 65 61 73 25 3d  61 24 0d 30 f2 05 e1 0d  |saveas%=a$.0....|
00007040  30 fc 05 3a 0d 31 06 12  dd 20 f2 73 61 76 65 5f  |0..:.1... .save_|
00007050  72 65 74 75 72 6e 0d 31  10 1b 20 61 24 3d a4 67  |return.1.. a$=.g|
00007060  65 74 5f 6c 65 61 66 28  24 73 61 76 65 61 73 25  |et_leaf($saveas%|
00007070  29 0d 31 1a 14 20 e7 20  61 24 3d 24 73 61 76 65  |).1.. . a$=$save|
00007080  61 73 25 20 8c 0d 31 24  19 20 20 20 f2 73 68 6f  |as% ..1$.   .sho|
00007090  77 5f 6d 65 6e 75 28 2d  31 2c 30 2c 30 29 0d 31  |w_menu(-1,0,0).1|
000070a0  2e 1f 20 20 20 85 20 28  31 3c 3c 33 30 29 2b 31  |..   . (1<<30)+1|
000070b0  2c a4 6d 65 73 28 22 54  6f 53 44 22 29 0d 31 38  |,.mes("ToSD").18|
000070c0  06 20 cd 0d 31 42 11 20  c8 8e 20 73 61 76 69 6e  |. ..1B. .. savin|
000070d0  67 25 20 ca 0d 31 4c 1f  20 20 20 c9 20 30 3a f2  |g% ..1L.   . 0:.|
000070e0  73 61 76 65 5f 64 72 61  77 28 24 73 61 76 65 61  |save_draw($savea|
000070f0  73 25 29 0d 31 56 20 20  20 20 c9 20 31 3a f2 73  |s%).1V    . 1:.s|
00007100  61 76 65 5f 67 72 61 70  68 28 24 73 61 76 65 61  |ave_graph($savea|
00007110  73 25 29 0d 31 60 1e 20  20 20 c9 20 32 3a f2 73  |s%).1`.   . 2:.s|
00007120  61 76 65 5f 63 73 76 28  24 73 61 76 65 61 73 25  |ave_csv($saveas%|
00007130  29 0d 31 6a 06 20 cb 0d  31 74 17 20 f2 73 68 6f  |).1j. ..1t. .sho|
00007140  77 5f 6d 65 6e 75 28 2d  31 2c 30 2c 30 29 0d 31  |w_menu(-1,0,0).1|
00007150  7e 05 e1 0d 31 88 05 3a  0d 31 92 13 dd 20 a4 67  |~...1..:.1... .g|
00007160  65 74 5f 6c 65 61 66 28  61 24 29 0d 31 9c 0b 20  |et_leaf(a$).1.. |
00007170  ea 20 70 74 72 25 0d 31  a6 13 20 c8 95 20 a7 61  |. ptr%.1.. .. .a|
00007180  24 2c 22 2e 22 29 3c 3e  30 0d 31 b0 14 20 20 20  |$,".")<>0.1..   |
00007190  70 74 72 25 3d a7 61 24  2c 22 2e 22 29 0d 31 ba  |ptr%=.a$,".").1.|
000071a0  15 20 20 20 61 24 3d c1  61 24 2c 70 74 72 25 2b  |.   a$=.a$,ptr%+|
000071b0  31 29 0d 31 c4 06 20 ce  0d 31 ce 07 3d 61 24 0d  |1).1.. ..1..=a$.|
000071c0  31 d8 05 3a 0d 31 e2 10  dd 20 f2 72 61 6d 5f 74  |1..:.1... .ram_t|
000071d0  72 61 6e 73 0d 31 ec 13  20 ea 20 78 25 2c 70 74  |rans.1.. . x%,pt|
000071e0  72 25 2c 6c 65 6e 25 0d  31 f6 0e 20 78 25 3d 62  |r%,len%.1.. x%=b|
000071f0  25 2b 33 30 30 0d 32 00  16 20 c8 99 20 22 48 6f  |%+300.2.. .. "Ho|
00007200  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 32 0a 11 20  |urglass_On".2.. |
00007210  c8 8e 20 73 61 76 69 6e  67 25 20 ca 0d 32 14 0a  |.. saving% ..2..|
00007220  20 20 20 c9 20 30 0d 32  1e 1f 20 20 20 20 20 65  |   . 0.2..     e|
00007230  6e 64 25 20 3d 20 a4 62  75 69 6c 64 5f 64 72 61  |nd% = .build_dra|
00007240  77 28 78 25 29 0d 32 28  17 20 20 20 20 20 6c 65  |w(x%).2(.     le|
00007250  6e 25 20 3d 20 65 6e 64  25 2d 78 25 0d 32 32 0a  |n% = end%-x%.22.|
00007260  20 20 20 c9 20 31 0d 32  3c 1f 20 20 20 20 20 70  |   . 1.2<.     p|
00007270  74 72 25 20 3d 20 a4 67  72 61 70 68 5f 68 65 61  |tr% = .graph_hea|
00007280  64 28 78 25 29 0d 32 46  23 20 20 20 20 20 6c 65  |d(x%).2F#     le|
00007290  6e 25 20 3d 20 a4 62 75  69 6c 64 5f 63 73 76 28  |n% = .build_csv(|
000072a0  78 25 2b 70 74 72 25 29  0d 32 50 14 20 20 20 20  |x%+ptr%).2P.    |
000072b0  20 6c 65 6e 25 2b 3d 20  70 74 72 25 0d 32 5a 0a  | len%+= ptr%.2Z.|
000072c0  20 20 20 c9 20 32 0d 32  64 1c 20 20 20 20 20 6c  |   . 2.2d.     l|
000072d0  65 6e 25 3d a4 62 75 69  6c 64 5f 63 73 76 28 78  |en%=.build_csv(x|
000072e0  25 29 0d 32 6e 06 20 cb  0d 32 78 35 20 c8 99 20  |%).2n. ..2x5 .. |
000072f0  22 57 69 6d 70 5f 54 72  61 6e 73 66 65 72 42 6c  |"Wimp_TransferBl|
00007300  6f 63 6b 22 2c 74 73 6b  25 2c 78 25 2c 62 25 21  |ock",tsk%,x%,b%!|
00007310  34 2c 62 25 21 32 30 2c  62 25 21 32 34 0d 32 82  |4,b%!20,b%!24.2.|
00007320  0f 20 21 62 25 20 20 20  3d 20 32 38 0d 32 8c 11  |. !b%   = 28.2..|
00007330  20 62 25 21 31 32 20 3d  20 62 25 21 38 0d 32 96  | b%!12 = b%!8.2.|
00007340  0e 20 62 25 21 38 20 20  3d 20 30 0d 32 a0 0e 20  |. b%!8  = 0.2.. |
00007350  62 25 21 31 36 20 3d 20  37 0d 32 aa 12 20 62 25  |b%!16 = 7.2.. b%|
00007360  21 32 30 20 3d 20 62 25  21 32 30 0d 32 b4 11 20  |!20 = b%!20.2.. |
00007370  62 25 21 32 34 20 3d 20  6c 65 6e 25 0d 32 be 25  |b%!24 = len%.2.%|
00007380  20 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  | .. "Wimp_SendMe|
00007390  73 73 61 67 65 22 2c 31  37 2c 62 25 2c 62 25 21  |ssage",17,b%,b%!|
000073a0  34 0d 32 c8 17 20 c8 99  20 22 48 6f 75 72 67 6c  |4.2.. .. "Hourgl|
000073b0  61 73 73 5f 4f 66 66 22  0d 32 d2 05 e1 0d 32 dc  |ass_Off".2....2.|
000073c0  05 3a 0d 32 e6 19 dd 20  a4 67 72 61 70 68 5f 68  |.:.2... .graph_h|
000073d0  65 61 64 28 73 74 61 72  74 25 29 0d 32 f0 0e 20  |ead(start%).2.. |
000073e0  ea 20 61 24 2c 70 74 72  25 0d 32 fa 13 20 e3 20  |. a$,ptr%.2.. . |
000073f0  70 74 72 25 3d 30 20 b8  20 39 36 32 0d 33 04 20  |ptr%=0 . 962.3. |
00007400  20 20 20 73 74 61 72 74  25 3f 70 74 72 25 3d 67  |   start%?ptr%=g|
00007410  72 61 68 65 61 64 25 3f  70 74 72 25 0d 33 0e 06  |rahead%?ptr%.3..|
00007420  20 ed 0d 33 18 11 20 73  74 61 72 74 25 2b 3d 70  | ..3.. start%+=p|
00007430  74 72 25 0d 33 22 16 20  61 24 3d 22 20 22 2b 24  |tr%.3". a$=" "+$|
00007440  6e 61 6d 65 25 2b bd 31  30 0d 33 2c 0f 20 24 73  |name%+.10.3,. $s|
00007450  74 61 72 74 25 3d 61 24  0d 33 36 0e 3d 70 74 72  |tart%=a$.36.=ptr|
00007460  25 2b a9 20 61 24 0d 33  40 05 3a 0d 33 4a 18 dd  |%+. a$.3@.:.3J..|
00007470  20 a4 62 75 69 6c 64 5f  63 73 76 28 73 74 61 72  | .build_csv(star|
00007480  74 25 29 0d 33 54 16 20  ea 20 70 74 72 25 2c 61  |t%).3T. . ptr%,a|
00007490  24 2c 62 24 2c 61 25 2c  78 0d 33 5e 16 20 c8 99  |$,b$,a%,x.3^. ..|
000074a0  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 6e 22 0d  | "Hourglass_On".|
000074b0  33 68 16 20 64 25 20 20  3d 20 65 6c 61 70 73 65  |3h. d%  = elapse|
000074c0  64 25 2d 31 32 0d 33 72  0d 20 69 25 20 20 3d 20  |d%-12.3r. i%  = |
000074d0  35 30 0d 33 7c 0c 20 70  74 72 25 3d 20 30 0d 33  |50.3|. ptr%= 0.3|
000074e0  86 33 20 61 24 20 20 3d  20 22 78 2c 49 6e 74 65  |.3 a$  = "x,Inte|
000074f0  6c 65 63 74 75 61 6c 2c  45 6d 6f 74 69 6f 6e 61  |lectual,Emotiona|
00007500  6c 2c 50 68 79 73 69 63  61 6c 22 2b bd 28 31 30  |l,Physical"+.(10|
00007510  29 0d 33 90 0f 20 61 25  20 20 3d 20 a9 20 61 24  |).3.. a%  = . a$|
00007520  0d 33 9a 16 20 24 28 73  74 61 72 74 25 2b 70 74  |.3.. $(start%+pt|
00007530  72 25 29 3d 61 24 0d 33  a4 0d 20 70 74 72 25 2b  |r%)=a$.3.. ptr%+|
00007540  3d 61 25 0d 33 ae 18 20  e3 20 78 3d 31 30 30 20  |=a%.3.. . x=100 |
00007550  b8 20 31 31 30 30 20 88  20 31 36 0d 33 b8 14 20  |. 1100 . 16.3.. |
00007560  20 20 61 24 20 3d 20 c3  28 78 29 2b 22 2c 22 0d  |  a$ = .(x)+",".|
00007570  33 c2 22 20 20 20 62 24  20 3d 20 c3 28 b5 28 32  |3."   b$ = .(.(2|
00007580  2a af 2f 33 33 2a 28 64  25 2b 78 2f 69 25 29 29  |*./33*(d%+x/i%))|
00007590  29 0d 33 cc 11 20 20 20  61 24 2b 3d 62 24 2b 22  |).3..   a$+=b$+"|
000075a0  2c 22 0d 33 d6 22 20 20  20 62 24 20 3d 20 c3 28  |,".3."   b$ = .(|
000075b0  b5 28 32 2a af 2f 32 38  2a 28 64 25 2b 78 2f 69  |.(2*./28*(d%+x/i|
000075c0  25 29 29 29 0d 33 e0 11  20 20 20 61 24 2b 3d 62  |%))).3..   a$+=b|
000075d0  24 2b 22 2c 22 0d 33 ea  22 20 20 20 62 24 20 3d  |$+",".3."   b$ =|
000075e0  20 c3 28 b5 28 32 2a af  2f 32 34 2a 28 64 25 2b  | .(.(2*./24*(d%+|
000075f0  78 2f 69 25 29 29 29 0d  33 f4 13 20 20 20 61 24  |x/i%))).3..   a$|
00007600  2b 3d 62 24 2b bd 28 31  30 29 0d 33 fe 0e 20 20  |+=b$+.(10).3..  |
00007610  20 61 25 3d a9 20 61 24  0d 34 08 18 20 20 20 24  | a%=. a$.4..   $|
00007620  28 73 74 61 72 74 25 2b  70 74 72 25 29 3d 61 24  |(start%+ptr%)=a$|
00007630  0d 34 12 0f 20 20 20 70  74 72 25 2b 3d 61 25 0d  |.4..   ptr%+=a%.|
00007640  34 1c 06 20 ed 0d 34 26  17 20 c8 99 20 22 48 6f  |4.. ..4&. .. "Ho|
00007650  75 72 67 6c 61 73 73 5f  4f 66 66 22 0d 34 30 0b  |urglass_Off".40.|
00007660  3d 70 74 72 25 2d 31 0d  34 3a 05 3a 0d 34 44 16  |=ptr%-1.4:.:.4D.|
00007670  dd 20 f2 73 61 76 65 5f  63 73 76 28 66 69 6c 65  |. .save_csv(file|
00007680  24 29 0d 34 4e 0e 20 ea  20 78 25 2c 6c 65 6e 25  |$).4N. . x%,len%|
00007690  0d 34 58 0e 20 78 25 3d  62 25 2b 31 30 30 0d 34  |.4X. x%=b%+100.4|
000076a0  62 18 20 6c 65 6e 25 3d  a4 62 75 69 6c 64 5f 63  |b. len%=.build_c|
000076b0  73 76 28 78 25 29 0d 34  6c 3a 20 c8 99 20 22 58  |sv(x%).4l: .. "X|
000076c0  4f 53 5f 46 69 6c 65 22  2c 31 30 2c 66 69 6c 65  |OS_File",10,file|
000076d0  24 2c 26 44 46 45 2c 2c  78 25 2c 78 25 2b 6c 65  |$,&DFE,,x%,x%+le|
000076e0  6e 25 20 b8 20 65 72 72  25 3b 66 6c 61 67 73 25  |n% . err%;flags%|
000076f0  0d 34 76 18 20 e7 20 28  66 6c 61 67 73 25 20 80  |.4v. . (flags% .|
00007700  20 31 29 3c 3e 30 20 8c  0d 34 80 16 20 20 20 21  | 1)<>0 ..4..   !|
00007710  65 72 72 25 3d 28 31 3c  3c 33 30 29 2b 31 0d 34  |err%=(1<<30)+1.4|
00007720  8a 21 20 20 20 c8 99 20  22 4f 53 5f 47 65 6e 65  |.!   .. "OS_Gene|
00007730  72 61 74 65 45 72 72 6f  72 22 2c 65 72 72 25 0d  |rateError",err%.|
00007740  34 94 06 20 cd 0d 34 9e  05 e1 0d 34 a8 05 3a 0d  |4.. ..4....4..:.|
00007750  34 b2 18 dd 20 f2 73 61  76 65 5f 67 72 61 70 68  |4... .save_graph|
00007760  28 66 69 6c 65 24 29 0d  34 bc 13 20 ea 20 78 25  |(file$).4.. . x%|
00007770  2c 6c 65 6e 25 2c 70 74  72 25 0d 34 c6 0e 20 78  |,len%,ptr%.4.. x|
00007780  25 3d 62 25 2b 31 30 30  0d 34 d0 19 20 70 74 72  |%=b%+100.4.. ptr|
00007790  25 3d a4 67 72 61 70 68  5f 68 65 61 64 28 78 25  |%=.graph_head(x%|
000077a0  29 0d 34 da 1d 20 6c 65  6e 25 3d a4 62 75 69 6c  |).4.. len%=.buil|
000077b0  64 5f 63 73 76 28 78 25  2b 70 74 72 25 29 0d 34  |d_csv(x%+ptr%).4|
000077c0  e4 0f 20 6c 65 6e 25 2b  3d 70 74 72 25 0d 34 ee  |.. len%+=ptr%.4.|
000077d0  3a 20 c8 99 20 22 58 4f  53 5f 46 69 6c 65 22 2c  |: .. "XOS_File",|
000077e0  31 30 2c 66 69 6c 65 24  2c 26 63 32 38 2c 2c 78  |10,file$,&c28,,x|
000077f0  25 2c 78 25 2b 6c 65 6e  25 20 b8 20 65 72 72 25  |%,x%+len% . err%|
00007800  3b 66 6c 61 67 73 25 0d  34 f8 18 20 e7 20 28 66  |;flags%.4.. . (f|
00007810  6c 61 67 73 25 20 80 20  31 29 3c 3e 30 20 8c 0d  |lags% . 1)<>0 ..|
00007820  35 02 16 20 20 20 21 65  72 72 25 3d 28 31 3c 3c  |5..   !err%=(1<<|
00007830  33 30 29 2b 31 0d 35 0c  21 20 20 20 c8 99 20 22  |30)+1.5.!   .. "|
00007840  4f 53 5f 47 65 6e 65 72  61 74 65 45 72 72 6f 72  |OS_GenerateError|
00007850  22 2c 65 72 72 25 0d 35  16 06 20 cd 0d 35 20 05  |",err%.5.. ..5 .|
00007860  e1 0d 35 2a 05 3a 0d 35  34 17 dd 20 f2 73 61 76  |..5*.:.54.. .sav|
00007870  65 5f 64 72 61 77 28 66  69 6c 65 24 29 0d 35 3e  |e_draw(file$).5>|
00007880  19 20 ea 20 78 25 2c 6c  65 6e 25 2c 70 74 72 25  |. . x%,len%,ptr%|
00007890  2c 64 72 61 77 25 0d 35  48 11 20 64 72 61 77 25  |,draw%.5H. draw%|
000078a0  3d 62 25 2b 33 30 30 0d  35 52 1c 20 65 6e 64 25  |=b%+300.5R. end%|
000078b0  3d a4 62 75 69 6c 64 5f  64 72 61 77 28 64 72 61  |=.build_draw(dra|
000078c0  77 25 29 0d 35 5c 3b 20  c8 99 20 22 58 4f 53 5f  |w%).5\; .. "XOS_|
000078d0  46 69 6c 65 22 2c 31 30  2c 66 69 6c 65 24 2c 26  |File",10,file$,&|
000078e0  61 66 66 2c 2c 62 25 2b  33 30 30 2c 65 6e 64 25  |aff,,b%+300,end%|
000078f0  20 b8 20 65 72 72 25 3b  66 6c 61 67 73 25 0d 35  | . err%;flags%.5|
00007900  66 18 20 e7 20 28 66 6c  61 67 73 25 20 80 20 31  |f. . (flags% . 1|
00007910  29 3c 3e 30 20 8c 0d 35  70 16 20 20 20 21 65 72  |)<>0 ..5p.   !er|
00007920  72 25 3d 28 31 3c 3c 33  30 29 2b 31 0d 35 7a 21  |r%=(1<<30)+1.5z!|
00007930  20 20 20 c8 99 20 22 4f  53 5f 47 65 6e 65 72 61  |   .. "OS_Genera|
00007940  74 65 45 72 72 6f 72 22  2c 65 72 72 25 0d 35 84  |teError",err%.5.|
00007950  06 20 cd 0d 35 8e 05 e1  0d 35 98 05 3a 0d 35 a2  |. ..5....5..:.5.|
00007960  18 dd 20 a4 62 75 69 6c  64 5f 64 72 61 77 28 64  |.. .build_draw(d|
00007970  72 61 77 25 29 0d 35 ac  18 20 24 64 72 61 77 25  |raw%).5.. $draw%|
00007980  20 20 20 20 20 3d 20 22  44 72 61 77 22 0d 35 b6  |     = "Draw".5.|
00007990  15 20 64 72 61 77 25 21  34 20 20 20 20 3d 20 32  |. draw%!4    = 2|
000079a0  30 31 0d 35 c0 13 20 64  72 61 77 25 21 38 20 20  |01.5.. draw%!8  |
000079b0  20 20 3d 20 30 0d 35 ca  20 20 24 28 64 72 61 77  |  = 0.5.  $(draw|
000079c0  25 2b 31 32 29 3d 20 22  42 69 6f 72 68 79 74 68  |%+12)= "Biorhyth|
000079d0  6d 73 20 20 22 0d 35 d4  13 20 64 72 61 77 25 21  |ms  ".5.. draw%!|
000079e0  32 34 20 20 20 3d 20 30  0d 35 de 13 20 64 72 61  |24   = 0.5.. dra|
000079f0  77 25 21 32 38 20 20 20  3d 20 30 0d 35 e8 1a 20  |w%!28   = 0.5.. |
00007a00  64 72 61 77 25 21 33 32  20 20 20 3d 20 31 32 38  |draw%!32   = 128|
00007a10  30 2a 32 35 36 0d 35 f2  1a 20 64 72 61 77 25 21  |0*256.5.. draw%!|
00007a20  33 36 20 20 20 3d 20 31  30 32 34 2a 32 35 36 0d  |36   = 1024*256.|
00007a30  35 fc 1a 20 65 6e 64 25  20 20 20 20 20 20 20 3d  |5.. end%       =|
00007a40  20 64 72 61 77 25 2b 34  30 0d 36 06 23 20 65 6e  | draw%+40.6.# en|
00007a50  64 25 20 20 20 20 20 20  20 3d 20 a4 66 6f 6e 74  |d%       = .font|
00007a60  5f 74 61 62 6c 65 28 65  6e 64 25 29 0d 36 10 39  |_table(end%).6.9|
00007a70  20 65 6e 64 25 20 20 20  20 20 20 20 3d 20 a4 70  | end%       = .p|
00007a80  61 74 68 28 65 6e 64 25  2c 2d 31 2c 26 46 46 30  |ath(end%,-1,&FF0|
00007a90  30 30 30 30 30 2c 6c 69  6e 65 74 68 25 2c 69 77  |00000,lineth%,iw|
00007aa0  61 76 65 25 29 0d 36 1a  39 20 65 6e 64 25 20 20  |ave%).6.9 end%  |
00007ab0  20 20 20 20 20 3d 20 a4  70 61 74 68 28 65 6e 64  |     = .path(end|
00007ac0  25 2c 2d 31 2c 26 30 30  46 46 30 30 30 30 2c 6c  |%,-1,&00FF0000,l|
00007ad0  69 6e 65 74 68 25 2c 70  77 61 76 65 25 29 0d 36  |ineth%,pwave%).6|
00007ae0  24 39 20 65 6e 64 25 20  20 20 20 20 20 20 3d 20  |$9 end%       = |
00007af0  a4 70 61 74 68 28 65 6e  64 25 2c 2d 31 2c 26 30  |.path(end%,-1,&0|
00007b00  30 30 30 46 46 30 30 2c  6c 69 6e 65 74 68 25 2c  |000FF00,lineth%,|
00007b10  65 77 61 76 65 25 29 0d  36 2e 2b 20 65 6e 64 25  |ewave%).6.+ end%|
00007b20  20 20 20 20 20 20 20 3d  20 a4 70 61 74 68 28 65  |       = .path(e|
00007b30  6e 64 25 2c 2d 31 2c 30  2c 30 2c 67 72 61 70 68  |nd%,-1,0,0,graph|
00007b40  25 29 0d 36 38 35 20 65  6e 64 25 20 20 20 20 20  |%).685 end%     |
00007b50  20 20 3d 20 a4 74 65 78  74 28 65 6e 64 25 2c 22  |  = .text(end%,"|
00007b60  2b 22 2c 31 2c 31 34 2c  31 30 2a 32 35 36 2c 37  |+",1,14,10*256,7|
00007b70  30 30 2a 32 35 36 29 0d  36 42 35 20 65 6e 64 25  |00*256).6B5 end%|
00007b80  20 20 20 20 20 20 20 3d  20 a4 74 65 78 74 28 65  |       = .text(e|
00007b90  6e 64 25 2c 22 2d 22 2c  31 2c 31 34 2c 31 30 2a  |nd%,"-",1,14,10*|
00007ba0  32 35 36 2c 32 30 30 2a  32 35 36 29 0d 36 4c 38  |256,200*256).6L8|
00007bb0  20 65 6e 64 25 20 20 20  20 20 20 20 3d 20 a4 74  | end%       = .t|
00007bc0  65 78 74 28 65 6e 64 25  2c 22 49 22 2c 31 2c 31  |ext(end%,"I",1,1|
00007bd0  34 2c 31 31 30 30 2a 32  35 36 2c 69 6e 79 25 2a  |4,1100*256,iny%*|
00007be0  32 35 36 29 0d 36 56 38  20 65 6e 64 25 20 20 20  |256).6V8 end%   |
00007bf0  20 20 20 20 3d 20 a4 74  65 78 74 28 65 6e 64 25  |    = .text(end%|
00007c00  2c 22 45 22 2c 31 2c 31  34 2c 31 31 30 30 2a 32  |,"E",1,14,1100*2|
00007c10  35 36 2c 65 6d 79 25 2a  32 35 36 29 0d 36 60 38  |56,emy%*256).6`8|
00007c20  20 65 6e 64 25 20 20 20  20 20 20 20 3d 20 a4 74  | end%       = .t|
00007c30  65 78 74 28 65 6e 64 25  2c 22 50 22 2c 31 2c 31  |ext(end%,"P",1,1|
00007c40  34 2c 31 31 30 30 2a 32  35 36 2c 70 79 79 25 2a  |4,1100*256,pyy%*|
00007c50  32 35 36 29 0d 36 6a 38  20 65 6e 64 25 20 20 20  |256).6j8 end%   |
00007c60  20 20 20 20 3d 20 a4 74  65 78 74 28 65 6e 64 25  |    = .text(end%|
00007c70  2c 22 5e 22 2c 31 2c 31  34 2c 35 39 31 2e 35 2a  |,"^",1,14,591.5*|
00007c80  32 35 36 2c 34 35 30 2a  32 35 36 29 0d 36 74 4d  |256,450*256).6tM|
00007c90  20 74 65 78 74 24 20 3d  20 24 6e 61 6d 65 25 2b  | text$ = $name%+|
00007ca0  22 27 73 20 70 6c 6f 74  20 66 6f 72 20 22 2b c3  |"'s plot for "+.|
00007cb0  70 64 25 2b 22 2d 22 2b  a4 6e 75 6d 62 65 72 5f  |pd%+"-"+.number_|
00007cc0  74 6f 5f 6e 61 6d 65 28  70 6d 25 29 2b 22 2d 22  |to_name(pm%)+"-"|
00007cd0  2b c3 70 79 25 2b 22 2e  22 0d 36 7e 2d 20 74 65  |+.py%+".".6~- te|
00007ce0  78 74 24 2b 3d 22 20 20  22 2b 24 69 65 6c 61 70  |xt$+="  "+$ielap|
00007cf0  73 65 64 25 2b 22 20 64  61 79 73 20 6f 6c 64 2e  |sed%+" days old.|
00007d00  22 2b bd 28 30 29 0d 36  88 39 20 65 6e 64 25 20  |"+.(0).6.9 end% |
00007d10  20 20 20 20 20 20 3d 20  a4 74 65 78 74 28 65 6e  |      = .text(en|
00007d20  64 25 2c 74 65 78 74 24  2c 31 2c 31 34 2c 31 30  |d%,text$,1,14,10|
00007d30  30 2a 32 35 36 2c 31 30  30 30 2a 32 35 36 29 0d  |0*256,1000*256).|
00007d40  36 92 09 3d 65 6e 64 25  0d 36 9c 05 3a 0d 36 a6  |6..=end%.6..:.6.|
00007d50  17 dd 20 a4 66 6f 6e 74  5f 74 61 62 6c 65 28 70  |.. .font_table(p|
00007d60  74 72 25 29 0d 36 b0 09  20 ea 20 61 25 0d 36 ba  |tr%).6.. . a%.6.|
00007d70  0f 20 61 25 20 20 20 20  20 3d 20 38 0d 36 c4 0f  |. a%     = 8.6..|
00007d80  20 21 70 74 72 25 20 20  3d 20 30 0d 36 ce 34 20  | !ptr%  = 0.6.4 |
00007d90  61 25 20 20 20 20 2b 3d  20 a4 61 64 64 5f 66 6f  |a%    += .add_fo|
00007da0  6e 74 28 70 74 72 25 2b  61 25 2c 31 2c 22 48 6f  |nt(ptr%+a%,1,"Ho|
00007db0  6d 65 72 74 6f 6e 2e 4d  65 64 69 75 6d 22 29 0d  |merton.Medium").|
00007dc0  36 d8 10 20 70 74 72 25  21 34 20 3d 20 61 25 0d  |6.. ptr%!4 = a%.|
00007dd0  36 e2 0c 3d 70 74 72 25  2b 61 25 0d 36 ec 05 3a  |6..=ptr%+a%.6..:|
00007de0  0d 36 f6 20 dd 20 a4 61  64 64 5f 66 6f 6e 74 28  |.6. . .add_font(|
00007df0  70 74 72 25 2c 6e 75 6d  25 2c 66 6f 6e 74 24 29  |ptr%,num%,font$)|
00007e00  0d 37 00 0f 20 3f 70 74  72 25 3d 6e 75 6d 25 0d  |.7.. ?ptr%=num%.|
00007e10  37 0a 10 20 66 6f 6e 74  24 2b 3d bd 28 30 29 0d  |7.. font$+=.(0).|
00007e20  37 14 19 20 c8 95 20 28  31 2b a9 66 6f 6e 74 24  |7.. .. (1+.font$|
00007e30  29 83 20 34 20 3c 3e 30  0d 37 1e 12 20 20 20 66  |). 4 <>0.7..   f|
00007e40  6f 6e 74 24 2b 3d bd 28  30 29 0d 37 28 06 20 ce  |ont$+=.(0).7(. .|
00007e50  0d 37 32 14 20 24 28 70  74 72 25 2b 31 29 3d 66  |.72. $(ptr%+1)=f|
00007e60  6f 6e 74 24 0d 37 3c 0f  3d 28 a9 66 6f 6e 74 24  |ont$.7<.=(.font$|
00007e70  29 2b 31 0d 37 46 05 3a  0d 37 50 2a dd 20 a4 70  |)+1.7F.:.7P*. .p|
00007e80  61 74 68 28 70 74 72 25  2c 66 69 6c 6c 25 2c 6c  |ath(ptr%,fill%,l|
00007e90  69 6e 65 25 2c 77 69 64  25 2c 6c 62 6c 6f 63 6b  |ine%,wid%,lblock|
00007ea0  25 29 0d 37 5a 15 20 ea  20 63 6f 25 2c 74 79 70  |%).7Z. . co%,typ|
00007eb0  65 25 2c 6f 66 66 25 0d  37 64 10 20 21 70 74 72  |e%,off%.7d. !ptr|
00007ec0  25 20 20 20 3d 20 32 0d  37 6e 10 20 70 74 72 25  |%   = 2.7n. ptr%|
00007ed0  21 38 20 20 3d 20 30 0d  37 78 10 20 70 74 72 25  |!8  = 0.7x. ptr%|
00007ee0  21 31 32 20 3d 20 30 0d  37 82 17 20 70 74 72 25  |!12 = 0.7.. ptr%|
00007ef0  21 31 36 20 3d 20 31 32  38 30 2a 32 35 36 0d 37  |!16 = 1280*256.7|
00007f00  8c 17 20 70 74 72 25 21  32 30 20 3d 20 31 30 32  |.. ptr%!20 = 102|
00007f10  34 2a 32 35 36 0d 37 96  14 20 70 74 72 25 21 32  |4*256.7.. ptr%!2|
00007f20  34 20 3d 20 66 69 6c 6c  25 0d 37 a0 14 20 70 74  |4 = fill%.7.. pt|
00007f30  72 25 21 32 38 20 3d 20  6c 69 6e 65 25 0d 37 aa  |r%!28 = line%.7.|
00007f40  13 20 70 74 72 25 21 33  32 20 3d 20 77 69 64 25  |. ptr%!32 = wid%|
00007f50  0d 37 b4 10 20 70 74 72  25 21 33 36 20 3d 20 30  |.7.. ptr%!36 = 0|
00007f60  0d 37 be 10 20 6f 66 66  25 20 20 20 20 3d 20 30  |.7.. off%    = 0|
00007f70  0d 37 c8 11 20 74 79 70  65 25 20 20 20 3d 20 2d  |.7.. type%   = -|
00007f80  31 0d 37 d2 10 20 c8 95  20 74 79 70 65 25 3c 3e  |1.7.. .. type%<>|
00007f90  30 0d 37 dc 28 20 20 20  74 79 70 65 25 20 20 20  |0.7.(   type%   |
00007fa0  20 20 20 20 20 20 20 20  3d 20 21 28 6c 62 6c 6f  |        = !(lblo|
00007fb0  63 6b 25 2b 6f 66 66 25  29 0d 37 e6 1e 20 20 20  |ck%+off%).7..   |
00007fc0  21 28 34 30 2b 70 74 72  25 2b 6f 66 66 25 29 20  |!(40+ptr%+off%) |
00007fd0  3d 20 74 79 70 65 25 0d  37 f0 11 20 20 20 c8 8e  |= type%.7..   ..|
00007fe0  20 74 79 70 65 25 20 ca  0d 37 fa 0c 20 20 20 20  | type% ..7..    |
00007ff0  20 c9 20 30 0d 38 04 18  20 20 20 20 20 20 20 f4  | . 0.8..       .|
00008000  20 65 6e 64 20 6f 66 20  70 61 74 68 0d 38 0e 10  | end of path.8..|
00008010  20 20 20 20 20 20 20 63  6f 25 3d 30 0d 38 18 0c  |       co%=0.8..|
00008020  20 20 20 20 20 c9 20 32  0d 38 22 11 20 20 20 20  |     . 2.8".    |
00008030  20 20 20 f4 20 6d 6f 76  65 0d 38 2c 33 20 20 20  |   . move.8,3   |
00008040  20 20 20 20 21 28 34 30  2b 70 74 72 25 2b 6f 66  |    !(40+ptr%+of|
00008050  66 25 2b 34 29 20 3d 20  21 28 6c 62 6c 6f 63 6b  |f%+4) = !(lblock|
00008060  25 2b 6f 66 66 25 2b 34  29 2a 74 61 0d 38 36 33  |%+off%+4)*ta.863|
00008070  20 20 20 20 20 20 20 21  28 34 30 2b 70 74 72 25  |       !(40+ptr%|
00008080  2b 6f 66 66 25 2b 38 29  20 3d 20 21 28 6c 62 6c  |+off%+8) = !(lbl|
00008090  6f 63 6b 25 2b 6f 66 66  25 2b 38 29 2a 74 64 0d  |ock%+off%+8)*td.|
000080a0  38 40 10 20 20 20 20 20  20 20 63 6f 25 3d 32 0d  |8@.       co%=2.|
000080b0  38 4a 0c 20 20 20 20 20  c9 20 36 0d 38 54 13 20  |8J.     . 6.8T. |
000080c0  20 20 20 20 20 20 f4 20  62 65 7a 69 65 72 0d 38  |      . bezier.8|
000080d0  5e 34 20 20 20 20 20 20  20 21 28 34 30 2b 70 74  |^4       !(40+pt|
000080e0  72 25 2b 6f 66 66 25 2b  34 29 20 20 3d 20 21 28  |r%+off%+4)  = !(|
000080f0  6c 62 6c 6f 63 6b 25 2b  6f 66 66 25 2b 34 29 2a  |lblock%+off%+4)*|
00008100  74 61 0d 38 68 34 20 20  20 20 20 20 20 21 28 34  |ta.8h4       !(4|
00008110  30 2b 70 74 72 25 2b 6f  66 66 25 2b 38 29 20 20  |0+ptr%+off%+8)  |
00008120  3d 20 21 28 6c 62 6c 6f  63 6b 25 2b 6f 66 66 25  |= !(lblock%+off%|
00008130  2b 38 29 2a 74 64 0d 38  72 35 20 20 20 20 20 20  |+8)*td.8r5      |
00008140  20 21 28 34 30 2b 70 74  72 25 2b 6f 66 66 25 2b  | !(40+ptr%+off%+|
00008150  31 32 29 20 3d 20 21 28  6c 62 6c 6f 63 6b 25 2b  |12) = !(lblock%+|
00008160  6f 66 66 25 2b 31 32 29  2a 74 61 0d 38 7c 35 20  |off%+12)*ta.8|5 |
00008170  20 20 20 20 20 20 21 28  34 30 2b 70 74 72 25 2b  |      !(40+ptr%+|
00008180  6f 66 66 25 2b 31 36 29  20 3d 20 21 28 6c 62 6c  |off%+16) = !(lbl|
00008190  6f 63 6b 25 2b 6f 66 66  25 2b 31 36 29 2a 74 64  |ock%+off%+16)*td|
000081a0  0d 38 86 35 20 20 20 20  20 20 20 21 28 34 30 2b  |.8.5       !(40+|
000081b0  70 74 72 25 2b 6f 66 66  25 2b 32 30 29 20 3d 20  |ptr%+off%+20) = |
000081c0  21 28 6c 62 6c 6f 63 6b  25 2b 6f 66 66 25 2b 32  |!(lblock%+off%+2|
000081d0  30 29 2a 74 61 0d 38 90  35 20 20 20 20 20 20 20  |0)*ta.8.5       |
000081e0  21 28 34 30 2b 70 74 72  25 2b 6f 66 66 25 2b 32  |!(40+ptr%+off%+2|
000081f0  34 29 20 3d 20 21 28 6c  62 6c 6f 63 6b 25 2b 6f  |4) = !(lblock%+o|
00008200  66 66 25 2b 32 34 29 2a  74 64 0d 38 9a 10 20 20  |ff%+24)*td.8..  |
00008210  20 20 20 20 20 63 6f 25  3d 36 0d 38 a4 0c 20 20  |     co%=6.8..  |
00008220  20 20 20 c9 20 38 0d 38  ae 11 20 20 20 20 20 20  |   . 8.8..      |
00008230  20 f4 20 6c 69 6e 65 0d  38 b8 33 20 20 20 20 20  | . line.8.3     |
00008240  20 20 21 28 34 30 2b 70  74 72 25 2b 6f 66 66 25  |  !(40+ptr%+off%|
00008250  2b 34 29 20 3d 20 21 28  6c 62 6c 6f 63 6b 25 2b  |+4) = !(lblock%+|
00008260  6f 66 66 25 2b 34 29 2a  74 61 0d 38 c2 33 20 20  |off%+4)*ta.8.3  |
00008270  20 20 20 20 20 21 28 34  30 2b 70 74 72 25 2b 6f  |     !(40+ptr%+o|
00008280  66 66 25 2b 38 29 20 3d  20 21 28 6c 62 6c 6f 63  |ff%+8) = !(lbloc|
00008290  6b 25 2b 6f 66 66 25 2b  38 29 2a 74 64 0d 38 cc  |k%+off%+8)*td.8.|
000082a0  10 20 20 20 20 20 20 20  63 6f 25 3d 32 0d 38 d6  |.       co%=2.8.|
000082b0  08 20 20 20 cb 0d 38 e0  16 20 20 20 6f 66 66 25  |.   ..8..   off%|
000082c0  2b 3d 28 63 6f 25 2a 34  29 2b 34 0d 38 ea 06 20  |+=(co%*4)+4.8.. |
000082d0  ce 0d 38 f4 2c 20 e7 20  74 79 70 65 25 3c 3e 30  |..8., . type%<>0|
000082e0  20 61 3d a4 65 72 72 6f  72 28 31 3c 3c 33 30 2c  | a=.error(1<<30,|
000082f0  30 2c 22 42 61 64 20 70  61 74 68 22 29 0d 38 fe  |0,"Bad path").8.|
00008300  13 20 70 74 72 25 21 34  3d 34 30 2b 6f 66 66 25  |. ptr%!4=40+off%|
00008310  0d 39 08 10 3d 70 74 72  25 2b 70 74 72 25 21 34  |.9..=ptr%+ptr%!4|
00008320  0d 39 12 05 3a 0d 39 1c  27 dd 20 a4 74 65 78 74  |.9..:.9.'. .text|
00008330  28 70 74 72 25 2c 74 65  78 74 24 2c 66 6f 6e 74  |(ptr%,text$,font|
00008340  25 2c 70 6f 69 6e 74 2c  78 2c 79 29 0d 39 26 09  |%,point,x,y).9&.|
00008350  20 ea 20 61 25 0d 39 30  09 20 61 25 3d 30 0d 39  | . a%.90. a%=0.9|
00008360  3a 0f 20 70 74 72 25 21  30 20 3d 20 31 0d 39 44  |:. ptr%!0 = 1.9D|
00008370  10 20 70 74 72 25 21 34  20 3d 20 2d 31 0d 39 4e  |. ptr%!4 = -1.9N|
00008380  0f 20 70 74 72 25 21 38  20 3d 20 30 0d 39 58 0f  |. ptr%!8 = 0.9X.|
00008390  20 70 74 72 25 21 31 32  3d 20 30 0d 39 62 16 20  | ptr%!12= 0.9b. |
000083a0  70 74 72 25 21 31 36 3d  20 31 32 38 30 2a 32 35  |ptr%!16= 1280*25|
000083b0  36 0d 39 6c 16 20 70 74  72 25 21 32 30 3d 20 31  |6.9l. ptr%!20= 1|
000083c0  30 32 34 2a 32 35 36 0d  39 76 0f 20 70 74 72 25  |024*256.9v. ptr%|
000083d0  21 32 34 3d 20 30 0d 39  80 17 20 70 74 72 25 21  |!24= 0.9.. ptr%!|
000083e0  32 38 3d 20 26 46 46 46  46 46 46 30 30 0d 39 8a  |28= &FFFFFF00.9.|
000083f0  13 20 70 74 72 25 21 33  32 3d 20 66 6f 6e 74 25  |. ptr%!32= font%|
00008400  0d 39 94 1b 20 70 74 72  25 21 33 36 3d 20 70 6f  |.9.. ptr%!36= po|
00008410  69 6e 74 2a 32 35 36 2a  32 2e 35 0d 39 9e 1b 20  |int*256*2.5.9.. |
00008420  70 74 72 25 21 34 30 3d  20 70 6f 69 6e 74 2a 32  |ptr%!40= point*2|
00008430  35 36 2a 32 2e 35 0d 39  a8 12 20 70 74 72 25 21  |56*2.5.9.. ptr%!|
00008440  34 34 3d 20 78 2a 74 61  0d 39 b2 12 20 70 74 72  |44= x*ta.9.. ptr|
00008450  25 21 34 38 3d 20 79 2a  74 64 0d 39 bc 0a 20 61  |%!48= y*td.9.. a|
00008460  25 3d 35 32 0d 39 c6 17  20 c8 95 20 28 a9 74 65  |%=52.9.. .. (.te|
00008470  78 74 24 29 83 20 34 20  3c 3e 30 0d 39 d0 10 20  |xt$). 4 <>0.9.. |
00008480  20 20 74 65 78 74 24 2b  3d bd 30 0d 39 da 06 20  |  text$+=.0.9.. |
00008490  ce 0d 39 e4 15 20 24 28  70 74 72 25 2b 61 25 29  |..9.. $(ptr%+a%)|
000084a0  3d 74 65 78 74 24 0d 39  ee 0f 20 61 25 2b 3d a9  |=text$.9.. a%+=.|
000084b0  74 65 78 74 24 0d 39 f8  0e 20 70 74 72 25 21 34  |text$.9.. ptr%!4|
000084c0  3d 61 25 0d 3a 02 0c 3d  70 74 72 25 2b 61 25 0d  |=a%.:..=ptr%+a%.|
000084d0  3a 0c 05 3a 0d 3a 16 10  dd 20 f2 73 61 76 65 5f  |:..:.:... .save_|
000084e0  6f 70 74 73 0d 3a 20 13  20 ea 20 66 69 6c 65 25  |opts.: . . file%|
000084f0  2c 78 2c 73 65 6c 25 0d  3a 2a 21 20 66 69 6c 65  |,x,sel%.:*! file|
00008500  25 3d ae 28 22 3c 42 69  6f 24 44 69 72 3e 2e 4f  |%=.("<Bio$Dir>.O|
00008510  70 74 69 6f 6e 73 22 29  0d 3a 34 0e 20 e3 20 78  |ptions").:4. . x|
00008520  3d 30 20 b8 20 35 0d 3a  3e 2d 20 20 20 e7 20 a4  |=0 . 5.:>-   . .|
00008530  74 69 63 6b 65 64 28 77  69 64 74 68 5f 6d 65 6e  |ticked(width_men|
00008540  75 25 2c 78 29 20 3d 20  2d 31 20 8c 20 73 65 6c  |u%,x) = -1 . sel|
00008550  25 3d 78 0d 3a 48 06 20  ed 0d 3a 52 13 20 d5 23  |%=x.:H. ..:R. .#|
00008560  66 69 6c 65 25 2c c3 20  73 65 6c 25 0d 3a 5c 14  |file%,. sel%.:\.|
00008570  20 d5 23 66 69 6c 65 25  2c 24 77 69 64 74 68 25  | .#file%,$width%|
00008580  0d 3a 66 0c 20 d9 23 66  69 6c 65 25 0d 3a 70 05  |.:f. .#file%.:p.|
00008590  e1 0d 3a 7a 05 3a 0d 3a  84 1c dd 20 a4 65 72 72  |..:z.:.:... .err|
000085a0  6f 72 28 65 72 72 25 2c  65 72 6c 25 2c 72 65 70  |or(err%,erl%,rep|
000085b0  24 29 0d 3a 8e 19 20 c8  99 20 22 48 6f 75 72 67  |$).:.. .. "Hourg|
000085c0  6c 61 73 73 5f 53 6d 61  73 68 22 0d 3a 98 12 20  |lass_Smash".:.. |
000085d0  e7 20 70 72 69 6e 74 69  6e 67 25 20 8c 0d 3a a2  |. printing% ..:.|
000085e0  21 20 20 20 c8 99 20 22  50 44 72 69 76 65 72 5f  |!   .. "PDriver_|
000085f0  41 62 6f 72 74 4a 6f 62  22 2c 6a 6f 62 25 0d 3a  |AbortJob",job%.:|
00008600  ac 0d 20 20 20 d9 23 6a  6f 62 25 0d 3a b6 11 20  |..   .#job%.:.. |
00008610  20 20 65 72 72 25 3d 31  3c 3c 33 30 0d 3a c0 06  |  err%=1<<30.:..|
00008620  20 cd 0d 3a ca 0e 20 c8  8e 20 65 72 72 25 20 ca  | ..:.. .. err% .|
00008630  0d 3a d4 0e 20 20 20 c9  20 31 3c 3c 33 30 0d 3a  |.:..   . 1<<30.:|
00008640  de 18 20 20 20 20 20 65  72 72 5f 73 74 72 69 6e  |..     err_strin|
00008650  67 24 3d 20 22 22 0d 3a  e8 19 20 20 20 20 20 62  |g$= "".:..     b|
00008660  6f 78 25 20 20 20 20 20  20 20 3d 20 25 31 31 0d  |ox%       = %11.|
00008670  3a f2 12 20 20 20 c9 20  28 31 3c 3c 33 30 29 2b  |:..   . (1<<30)+|
00008680  31 0d 3a fc 18 20 20 20  20 20 65 72 72 5f 73 74  |1.:..     err_st|
00008690  72 69 6e 67 24 3d 20 22  22 0d 3b 06 19 20 20 20  |ring$= "".;..   |
000086a0  20 20 62 6f 78 25 20 20  20 20 20 20 20 3d 20 25  |  box%       = %|
000086b0  30 31 0d 3b 10 12 20 20  20 c9 20 28 31 3c 3c 33  |01.;..   . (1<<3|
000086c0  30 29 2b 32 0d 3b 1a 18  20 20 20 20 20 65 72 72  |0)+2.;..     err|
000086d0  5f 73 74 72 69 6e 67 24  3d 20 22 22 0d 3b 24 19  |_string$= "".;$.|
000086e0  20 20 20 20 20 62 6f 78  25 20 20 20 20 20 20 20  |     box%       |
000086f0  3d 20 25 31 30 0d 3b 2e  08 20 20 20 7f 0d 3b 38  |= %10.;..   ..;8|
00008700  27 20 20 20 20 20 65 72  72 5f 73 74 72 69 6e 67  |'     err_string|
00008710  24 3d 22 20 61 74 20 6c  69 6e 65 20 22 2b c3 20  |$=" at line "+. |
00008720  65 72 6c 25 0d 3b 42 19  20 20 20 20 20 62 6f 78  |erl%.;B.     box|
00008730  25 20 20 20 20 20 20 20  3d 20 25 31 30 0d 3b 4c  |%       = %10.;L|
00008740  06 20 cb 0d 3b 56 20 20  24 28 62 25 2b 34 29 3d  |. ..;V  $(b%+4)=|
00008750  72 65 70 24 2b 65 72 72  5f 73 74 72 69 6e 67 24  |rep$+err_string$|
00008760  2b bd 30 0d 3b 60 39 20  c8 99 20 22 57 69 6d 70  |+.0.;`9 .. "Wimp|
00008770  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 62 25  |_ReportError",b%|
00008780  2c 62 6f 78 25 2c 74 73  6b 5f 6e 61 6d 65 24 20  |,box%,tsk_name$ |
00008790  b8 20 2c 72 65 73 70 6f  6e 63 65 25 0d 3b 6a 12  |. ,responce%.;j.|
000087a0  3d 28 72 65 73 70 6f 6e  63 65 25 3d 32 29 0d ff  |=(responce%=2)..|
000087b0