Home » Archimedes archive » Acorn User » AU 1994-03.adf » !StarInfo_StarInfo » Picard/PolyGraph

Picard/PolyGraph

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1994-03.adf » !StarInfo_StarInfo
Filename: Picard/PolyGraph
Read OK:
File size: 182A bytes
Load address: 0000
Exec address: 0000
File contents
    1REM    >PolyGraph
    2REM By  Jean Claude PICARD
    3REM For 32-bit machines
    4REM (C) AU March 1994
    5
    6DIMA(1),B0(1),B(1),C(1),M(1),O2(1),M2(1,1),M3(1,1),V$(10),V(10)
    7ON ERROR PROCerror:END
    8PROCvars:B0(0)=R:B0(1)=0
    9PROCinitdraw
   10MODE 33:OFF
   11PROCdrawfile_start("Graph"+STR$graph)
   12VDU 29,768;576;
   13PROCc(0)
   14MOVE M(0),M(1):PROCpath_start((M(0)+1050)*cm/100,(M(1)+743)*cm/100,0,black%,&FFFFFFFF)
   15REPEAT
   16t=t+s
   17PROCc(t)
   18DRAW M(0),M(1):PROCpath_draw((M(0)+1050)*cm/100,(M(1)+743)*cm/100)
   19MOUSE q,q,m
   20IF m=1 s+=1E-3
   21IF m=4 AND s>1E-3 s-=1E-3
   22UNTIL m=2 OR INKEY(0)=32
   23PROCpath_end
   24PROCdrawfile_end
   25END
   26
   27DEFPROCc(t)
   28a=k*t*R1/R2
   29M2(0,0)=COSa:M2(1,0)=SINa:M2(0,1)=-M2(1,0):M2(1,1)=M2(0,0)
   30a=-k*t*R1/R3
   31M3(0,0)=COSa:M3(1,0)=SINa:M3(0,1)=-M3(1,0):M3(1,1)=M3(0,0)
   32B()=M2().B0():B(0)+=O2(0):B(1)+=O2(1)
   33AB=SQR((B(0)-A(0))*(B(0)-A(0))+(B(1)-A(1))*(B(1)-A(1)))
   34a=ASN(b/AB)-ASN((B(1)-A(1))/AB)
   35c=SQR(AB*AB-b*b):M(0)=A(0)-(c+d)*COSa:M(1)=A(1)-(c+d)*SINa
   36M()=M3().M()
   37M()=50*M()
   38ENDPROC
   39
   40DEF PROCinitdraw
   41maxlev%=32
   42DIM start%(maxlev%),box%(maxlev%)
   43DIM l%(maxlev%),b%(maxlev%),r%(maxlev%),t%(maxlev%)
   44DIM buf% 256
   45big%=&7FFFFFFF
   46EF=0.552256944
   47i%=0:c%=0
   48inch=&B400
   49point=640
   50cm=18140
   51black%=0
   52white%=&FFFFFF00
   53none%=-1
   54ENDPROC
   55:
   56DEFPROCerror
   57ON ERROR OFF
   58PRINTREPORT$;" at line ";ERL
   59PROCpath_end
   60PROCdrawfile_end
   61IF c%<>0 THEN CLOSE#c%
   62IF i%<>0 THEN CLOSE#i%
   63ON
   64ENDPROC
   65:
   66DEF PROCdrawfile_start(D$)
   67c%=OPENOUT(D$)
   68IF c%=0 THEN ERROR 1234,"Can't open output file"
   69drawfile$=D$
   70PROCputw(&77617244):PROCputw(201):PROCputw(0)
   71PROCputs12("MakeDraw")
   72lev%=-1
   73PROChead_here(TRUE)
   74ENDPROC
   75:
   76DEF PROCdrawfile_end
   77IF lev%>0 THEN PRINT"Warning: Draw file closed with object(s) unfinished"
   78PROChead_now
   79CLOSE#c%:c%=0
   80OSCLI("SetType "+drawfile$+" AFF")
   81ENDPROC
   82:
   83DEF PROCpath_start(x%,y%,width%,lcol%,fcol%)
   84PROCputw(2)
   85PROChead_here(TRUE)
   86PROCputw(fcol%):REM fill
   87PROCputw(lcol%):REM colour
   88PROCputw(width%):REM width
   89PROCputw(0):REM path style
   90PROCpath_move(x%,y%)
   91ENDPROC
   92:
   93DEF PROCpath_move(x%,y%)
   94PROCputw(2)
   95PROCputxy(x%,y%)
   96ENDPROC
   97:
   98DEF PROCpath_draw(x%,y%)
   99PROCputw(8)
  100PROCputxy(x%,y%)
  101ENDPROC
  102:
  103DEF PROCpath_end
  104PROCputw(0)
  105PROChead_now
  106ENDPROC
  107:
  108DEF FNcol(R%,G%,B%)
  109=(R%<<8)+(G%<<16)+(B%<<24)
  110:
  111DEFPROCputw(A%)
  112BPUT#c%,A% AND &FF
  113BPUT#c%,(A%>>>8) AND &FF
  114BPUT#c%,(A%>>>16) AND &FF
  115BPUT#c%,(A%>>>24) AND &FF
  116ENDPROC
  117:
  118DEF PROCputs12(A$)
  119LOCAL A%
  120A$=A$+STRING$(12," ")
  121FOR A%=1 TO 12:BPUT#c%,ASC(MID$(A$,A%,1)):NEXT
  122ENDPROC
  123:
  124DEF PROCputs(A$)
  125LOCAL A%
  126FOR A%=1 TO LEN(A$):BPUT#c%,ASC(MID$(A$,A%,1)):NEXT
  127BPUT#c%,0
  128ENDPROC
  129:
  130DEF PROChead_here(box%)
  131IF lev%=maxlev% THEN ERROR 1234,"Too many nested groups.  Edit program to increase limit."
  132lev%+=1
  133box%(lev%)=box%
  134start%(lev%)=PTR#c%
  135IF lev%>0 THEN PROCputw(0)
  136IF box% THEN
  137 PROCputw(0):PROCputw(0)
  138 PROCputw(0):PROCputw(0)
  139ENDIF
  140l%(lev%)=big%:b%(lev%)=big%
  141r%(lev%)=-big%:t%(lev%)=-big%
  142ENDPROC
  143:
  144DEF PROChead_now
  145LOCAL end%
  146IF lev%<0 THEN PRINT"Warning: attempt to end more objects than were started":ENDPROC
  147end%=PTR#c%
  148PTR#c%=start%(lev%)
  149IF lev%>0 THEN PROCputw(end%-start%(lev%)+4)
  150IF box%(lev%) THEN
  151 PROCputw(l%(lev%)):PROCputw(b%(lev%))
  152 PROCputw(r%(lev%)+1):PROCputw(t%(lev%)+1)
  153ENDIF
  154IF lev%>0 THEN
  155 lev%-=1
  156 IF l%(lev%+1)<l%(lev%) THEN l%(lev%)=l%(lev%+1)
  157 IF b%(lev%+1)<b%(lev%) THEN b%(lev%)=b%(lev%+1)
  158 IF r%(lev%+1)>r%(lev%) THEN r%(lev%)=r%(lev%+1)
  159 IF t%(lev%+1)>t%(lev%) THEN t%(lev%)=t%(lev%+1)
  160ENDIF
  161PTR#c%=end%
  162ENDPROC
  163:
  164DEF PROCputxy(x%,y%)
  165PROCputw(x%):PROCputw(y%)
  166IF x%<l%(lev%) THEN l%(lev%)=x%
  167IF y%<b%(lev%) THEN b%(lev%)=y%
  168IF x%>r%(lev%) THEN r%(lev%)=x%
  169IF y%>t%(lev%) THEN t%(lev%)=y%
  170ENDPROC
  171:
  172DEF FNword
  173=BGET#i% OR (&100*BGET#i%) OR (&10000*BGET#i%) OR ((BGET#i%)<<24)
  174
  175DEFPROCvars
  176READ graphs
  177INPUT graph
  178FOR i=1 TO graph
  179READ s,k,R1,R2,R3,R,A(0),A(1),O2(0),O2(1),b,d
  180NEXT
  181ENDPROC
  182:
  183DATA 47
  184DATA 1,0.05,3.15,1.7,6.15,2,19,7,10,8.5,6,11
  185DATA 1,0.05,3.2,1.5,6,2,19,7,10,8.5,6,12
  186DATA 1,0.05,3.2,1.6,6,2,19,7,10,8.5,6,12
  187DATA 1,0.05,3.2,1.6,6,2,19,6.81,10,8.5,6.094,12
  188DATA 1,0.05,3.2,1.62,6,2,19,6.81,10,8.5,6.094,12.1
  189DATA 1,0.05,3.2,1.628,6,1,19,6.81,10,8.5,6.094,12.1
  190DATA 1,0.05,3.2,1.628,6,0.614,19,6.81,10,8.5,6.094,11.93
  191DATA 1,0.05,3.2,1.628,6,0.614,19,6.81,10,8.5,6.201,11.93
  192DATA 0.98,0.05,3.2,1.628,6,0.614,19,6.81,10,8.5,6.375,11.93
  193DATA 0.98,0.05,3.2,1.628,6,0.614,19,6.81,10,8.5,6.375,13
  194DATA 0.98,0.05,3.2,1.628,6,0.614,19,7.019,10,8.5,6.375,13
  195DATA 0.98,0.05,3.2,1.628,6,0.614,17.34,7.019,10,8.5,6.375,13
  196DATA 0.98,0.05,3.2,1.628,6,0.614,17.34,7.019,10,8.5,5.679,13
  197DATA 0.98,0.05,3.2,1.628,6,0.614,17.5,7,10,8.5,5.679,12.87
  198DATA 0.98,0.05,3.2,1.628,6,0.725,17.5,7,10,8.5,5.679,12.87
  199DATA 0.98,0.05,3.2,1.628,6,0.715,17.56,7,10,8.5,5.679,12.87
  200DATA 0.98,0.05,3.2,1.628,6,1.068,17.56,7,10,8.5,5.679,12.87
  201DATA 0.98,0.05,3.2,1.628,6,1.068,17.56,7,10,8.5,5.679,11.5
  202DATA 0.98,0.05,3.2,1.628,6,1.068,17.56,7,10,8.5,5.885,11.5
  203DATA 0.602,0.05,3.2,1.628,6,1.068,17.56,7,10,8.5,5.249,11.5
  204DATA 0.602,0.05,3.2,1.628,6,1.068,17.56,7,10,8.5,4.431,11.5
  205DATA 0.347,0.05,3.2,1.628,6,0.778,17.56,7,10,8.5,4.431,11.41
  206DATA 0.347,0.05,3.2,1.628,6,0.3,17.56,7,10,8.5,4.355,11.41
  207DATA 0.347,0.05,3.2,1.628,6,0.3,17.56,7,10,8.5,4,11.77
  208DATA 0.347,0.05,3.2,1.628,6,0.3,18,7,10,8.5,4,11.77
  209DATA 0.347,0.05,3.2,1.628,6,0.371,18,7,10,8.5,4,11.77
  210DATA 0.347,0.05,3.2,1.628,6,0.371,18,7,10,8.5,3.794,11.77
  211DATA 0.347,0.05,3.2,1.628,6,0.371,18,7.755,10,8.5,3.352,11.77
  212DATA 0.347,0.05,3.2,1.628,6,0.371,18,7.755,10,8.5,3.352,11
  213DATA 0.288,0.05,3.2,1.628,6,0.614,19,6.81,10,8.5,6.067,11.93
  214DATA 0.857,0.05,3.2,1.628,6,0.371,18,6,10,8.5,3.352,11
  215DATA 1,0.05,3.2,1,6,2,19,7,10,8.5,6,12
  216DATA 0.579,0.05,3.2,0.978,6,2,19,7,10,8.5,6,12
  217DATA 0.579,0.05,3.2,0.978,6,2,19,7,10,8.5,6,12
  218DATA 0.579,0.05,3.2,0.978,6,2,19,7,10,8.5,6,12.44
  219DATA 0.579,0.05,3.2,0.978,6,2,19,7,10,8.5,6,10
  220DATA 0.579,0.05,3.2,0.778,6,2,19,7,10,8.5,6,10
  221DATA 1,0.05,3.2,1.6,6,2,19,6.81,10,8.5,6.094,12
  222DATA 1,0.05,3.2,1.6,6,2,19,4,10,8.5,6.094,12
  223DATA 1,0.05,3.2,1.651,6,2.584,19,4.687,10,8.5,6.094,12
  224DATA 1,0.05,3.2,1.651,6.041,2.729,19,4.687,10,8.5,5.904,12
  225DATA 1,0.05,3.2,1.651,6.041,2.729,19,4.687,8.97,9.982,5.904,12
  226DATA 0.575,0.05,3.2,1.651,6.041,4,19,4.687,8.97,9.982,5.904,12
  227DATA 1,0.05,3.15,1.7,6.15,1.5,19,7,10,8.5,6,11
  228DATA 0.672,0.05,3.15,1.7,6.15,1.5,19,7,10,8.5,7,11.08
  229DATA 0.528,0.05,3.15,1.7,6.15,1.5,19,7,10,8.5,5.507,11.08
  230DATA 0.528,0.05,3.15,1.7,6.15,1.5,19,7,10,8.5,5.507,11.08
�    >PolyGraph
� By  Jean Claude PICARD
� For 32-bit machines
� (C) AU March 1994

A�A(1),B0(1),B(1),C(1),M(1),O2(1),M2(1,1),M3(1,1),V$(10),V(10)
� � �error:�
�vars:B0(0)=R:B0(1)=0
	
�initdraw


� 33:�
#�drawfile_start("Graph"+�graph)
� 29,768;576;

	�c(0)
T� M(0),M(1):�path_start((M(0)+1050)*cm/100,(M(1)+743)*cm/100,0,black%,&FFFFFFFF)
�
	t=t+s
	�c(t)
@� M(0),M(1):�path_draw((M(0)+1050)*cm/100,(M(1)+743)*cm/100)
ȗ q,q,m
� m=1 s+=1E-3
� m=4 � s>1E-3 s-=1E-3
� m=2 � �(0)=32

�path_end
�drawfile_end
�


��c(t)
a=k*t*R1/R2
:M2(0,0)=�a:M2(1,0)=�a:M2(0,1)=-M2(1,0):M2(1,1)=M2(0,0)
a=-k*t*R1/R3
:M3(0,0)=�a:M3(1,0)=�a:M3(0,1)=-M3(1,0):M3(1,1)=M3(0,0)
 )B()=M2().B0():B(0)+=O2(0):B(1)+=O2(1)
!9AB=�((B(0)-A(0))*(B(0)-A(0))+(B(1)-A(1))*(B(1)-A(1)))
"a=�(b/AB)-�((B(1)-A(1))/AB)
#8c=�(AB*AB-b*b):M(0)=A(0)-(c+d)*�a:M(1)=A(1)-(c+d)*�a
$M()=M3().M()
%M()=50*M()
&�
'
(� �initdraw
)maxlev%=32
*#� start%(maxlev%),box%(maxlev%)
+5� l%(maxlev%),b%(maxlev%),r%(maxlev%),t%(maxlev%)
,� buf% 256
-big%=&7FFFFFFF
.EF=0.552256944
/
i%=0:c%=0
0inch=&B400
1
point=640
2cm=18140
3black%=0
4white%=&FFFFFF00
5none%=-1
6�
7:
8��error
9	� � �
:�$;" at line ";�
;
�path_end
<�drawfile_end
=� c%<>0 � �#c%
>� i%<>0 � �#i%
?�
@�
A:
B� �drawfile_start(D$)
Cc%=�(D$)
D,� c%=0 � � 1234,"Can't open output file"
Edrawfile$=D$
F(�putw(&77617244):�putw(201):�putw(0)
G�puts12("MakeDraw")
Hlev%=-1
I�head_here(�)
J�
K:
L� �drawfile_end
ME� lev%>0 � �"Warning: Draw file closed with object(s) unfinished"
N
�head_now
O
�#c%:c%=0
P"�("SetType "+drawfile$+" AFF")
Q�
R:
S+� �path_start(x%,y%,width%,lcol%,fcol%)
T�putw(2)
U�head_here(�)
V�putw(fcol%):� fill
W�putw(lcol%):� colour
X�putw(width%):� width
Y�putw(0):� path style
Z�path_move(x%,y%)
[�
\:
]� �path_move(x%,y%)
^�putw(2)
_�putxy(x%,y%)
`�
a:
b� �path_draw(x%,y%)
c�putw(8)
d�putxy(x%,y%)
e�
f:
g� �path_end
h�putw(0)
i
�head_now
j�
k:
l� �col(R%,G%,B%)
m=(R%<<8)+(G%<<16)+(B%<<24)
n:
o��putw(A%)
p�#c%,A% � &FF
q�#c%,(A%>>>8) � &FF
r�#c%,(A%>>>16) � &FF
s�#c%,(A%>>>24) � &FF
t�
u:
v� �puts12(A$)
w� A%
xA$=A$+�12," ")
y#� A%=1 � 12:�#c%,�(�A$,A%,1)):�
z�
{:
|� �puts(A$)
}� A%
~&� A%=1 � �(A$):�#c%,�(�A$,A%,1)):�

�#c%,0
��
�:
�� �head_here(box%)
�V� lev%=maxlev% � � 1234,"Too many nested groups.  Edit program to increase limit."
�lev%+=1
�box%(lev%)=box%
�start%(lev%)=�#c%
�� lev%>0 � �putw(0)
�� box% �
� �putw(0):�putw(0)
� �putw(0):�putw(0)
��
�l%(lev%)=big%:b%(lev%)=big%
�!r%(lev%)=-big%:t%(lev%)=-big%
��
�:
�� �head_now
�
� end%
�J� lev%<0 � �"Warning: attempt to end more objects than were started":�
�
end%=�#c%
��#c%=start%(lev%)
�)� lev%>0 � �putw(end%-start%(lev%)+4)
�� box%(lev%) �
�$ �putw(l%(lev%)):�putw(b%(lev%))
�( �putw(r%(lev%)+1):�putw(t%(lev%)+1)
��
�� lev%>0 �
� lev%-=1
�0 � l%(lev%+1)<l%(lev%) � l%(lev%)=l%(lev%+1)
�0 � b%(lev%+1)<b%(lev%) � b%(lev%)=b%(lev%+1)
�0 � r%(lev%+1)>r%(lev%) � r%(lev%)=r%(lev%+1)
�0 � t%(lev%+1)>t%(lev%) � t%(lev%)=t%(lev%+1)
��
�
�#c%=end%
��
�:
�� �putxy(x%,y%)
��putw(x%):�putw(y%)
�� x%<l%(lev%) � l%(lev%)=x%
�� y%<b%(lev%) � b%(lev%)=y%
�� x%>r%(lev%) � r%(lev%)=x%
�� y%>t%(lev%) � t%(lev%)=y%
��
�:
�� �word
�6=�#i% � (&100*�#i%) � (&10000*�#i%) � ((�#i%)<<24)
�
�
��vars
�� graphs
�� graph
�� i=1 � graph
�.� s,k,R1,R2,R3,R,A(0),A(1),O2(0),O2(1),b,d
��
��
�:
�� 47
�-� 1,0.05,3.15,1.7,6.15,2,19,7,10,8.5,6,11
�)� 1,0.05,3.2,1.5,6,2,19,7,10,8.5,6,12
�)� 1,0.05,3.2,1.6,6,2,19,7,10,8.5,6,12
�0� 1,0.05,3.2,1.6,6,2,19,6.81,10,8.5,6.094,12
�3� 1,0.05,3.2,1.62,6,2,19,6.81,10,8.5,6.094,12.1
�4� 1,0.05,3.2,1.628,6,1,19,6.81,10,8.5,6.094,12.1
�9� 1,0.05,3.2,1.628,6,0.614,19,6.81,10,8.5,6.094,11.93
�9� 1,0.05,3.2,1.628,6,0.614,19,6.81,10,8.5,6.201,11.93
�<� 0.98,0.05,3.2,1.628,6,0.614,19,6.81,10,8.5,6.375,11.93
�9� 0.98,0.05,3.2,1.628,6,0.614,19,6.81,10,8.5,6.375,13
�:� 0.98,0.05,3.2,1.628,6,0.614,19,7.019,10,8.5,6.375,13
�=� 0.98,0.05,3.2,1.628,6,0.614,17.34,7.019,10,8.5,6.375,13
�=� 0.98,0.05,3.2,1.628,6,0.614,17.34,7.019,10,8.5,5.679,13
�;� 0.98,0.05,3.2,1.628,6,0.614,17.5,7,10,8.5,5.679,12.87
�;� 0.98,0.05,3.2,1.628,6,0.725,17.5,7,10,8.5,5.679,12.87
�<� 0.98,0.05,3.2,1.628,6,0.715,17.56,7,10,8.5,5.679,12.87
�<� 0.98,0.05,3.2,1.628,6,1.068,17.56,7,10,8.5,5.679,12.87
�;� 0.98,0.05,3.2,1.628,6,1.068,17.56,7,10,8.5,5.679,11.5
�;� 0.98,0.05,3.2,1.628,6,1.068,17.56,7,10,8.5,5.885,11.5
�<� 0.602,0.05,3.2,1.628,6,1.068,17.56,7,10,8.5,5.249,11.5
�<� 0.602,0.05,3.2,1.628,6,1.068,17.56,7,10,8.5,4.431,11.5
�=� 0.347,0.05,3.2,1.628,6,0.778,17.56,7,10,8.5,4.431,11.41
�;� 0.347,0.05,3.2,1.628,6,0.3,17.56,7,10,8.5,4.355,11.41
�7� 0.347,0.05,3.2,1.628,6,0.3,17.56,7,10,8.5,4,11.77
�4� 0.347,0.05,3.2,1.628,6,0.3,18,7,10,8.5,4,11.77
�6� 0.347,0.05,3.2,1.628,6,0.371,18,7,10,8.5,4,11.77
�:� 0.347,0.05,3.2,1.628,6,0.371,18,7,10,8.5,3.794,11.77
�>� 0.347,0.05,3.2,1.628,6,0.371,18,7.755,10,8.5,3.352,11.77
�;� 0.347,0.05,3.2,1.628,6,0.371,18,7.755,10,8.5,3.352,11
�=� 0.288,0.05,3.2,1.628,6,0.614,19,6.81,10,8.5,6.067,11.93
�7� 0.857,0.05,3.2,1.628,6,0.371,18,6,10,8.5,3.352,11
�'� 1,0.05,3.2,1,6,2,19,7,10,8.5,6,12
�/� 0.579,0.05,3.2,0.978,6,2,19,7,10,8.5,6,12
�/� 0.579,0.05,3.2,0.978,6,2,19,7,10,8.5,6,12
�2� 0.579,0.05,3.2,0.978,6,2,19,7,10,8.5,6,12.44
�/� 0.579,0.05,3.2,0.978,6,2,19,7,10,8.5,6,10
�/� 0.579,0.05,3.2,0.778,6,2,19,7,10,8.5,6,10
�0� 1,0.05,3.2,1.6,6,2,19,6.81,10,8.5,6.094,12
�-� 1,0.05,3.2,1.6,6,2,19,4,10,8.5,6.094,12
�7� 1,0.05,3.2,1.651,6,2.584,19,4.687,10,8.5,6.094,12
�;� 1,0.05,3.2,1.651,6.041,2.729,19,4.687,10,8.5,5.904,12
�?� 1,0.05,3.2,1.651,6.041,2.729,19,4.687,8.97,9.982,5.904,12
�?� 0.575,0.05,3.2,1.651,6.041,4,19,4.687,8.97,9.982,5.904,12
�/� 1,0.05,3.15,1.7,6.15,1.5,19,7,10,8.5,6,11
�6� 0.672,0.05,3.15,1.7,6.15,1.5,19,7,10,8.5,7,11.08
�:� 0.528,0.05,3.15,1.7,6.15,1.5,19,7,10,8.5,5.507,11.08
�:� 0.528,0.05,3.15,1.7,6.15,1.5,19,7,10,8.5,5.507,11.08
�
00000000  0d 00 01 13 f4 20 20 20  20 3e 50 6f 6c 79 47 72  |.....    >PolyGr|
00000010  61 70 68 0d 00 02 1c f4  20 42 79 20 20 4a 65 61  |aph..... By  Jea|
00000020  6e 20 43 6c 61 75 64 65  20 50 49 43 41 52 44 0d  |n Claude PICARD.|
00000030  00 03 19 f4 20 46 6f 72  20 33 32 2d 62 69 74 20  |.... For 32-bit |
00000040  6d 61 63 68 69 6e 65 73  0d 00 04 17 f4 20 28 43  |machines..... (C|
00000050  29 20 41 55 20 4d 61 72  63 68 20 31 39 39 34 0d  |) AU March 1994.|
00000060  00 05 04 0d 00 06 41 de  41 28 31 29 2c 42 30 28  |......A.A(1),B0(|
00000070  31 29 2c 42 28 31 29 2c  43 28 31 29 2c 4d 28 31  |1),B(1),C(1),M(1|
00000080  29 2c 4f 32 28 31 29 2c  4d 32 28 31 2c 31 29 2c  |),O2(1),M2(1,1),|
00000090  4d 33 28 31 2c 31 29 2c  56 24 28 31 30 29 2c 56  |M3(1,1),V$(10),V|
000000a0  28 31 30 29 0d 00 07 10  ee 20 85 20 f2 65 72 72  |(10)..... . .err|
000000b0  6f 72 3a e0 0d 00 08 19  f2 76 61 72 73 3a 42 30  |or:......vars:B0|
000000c0  28 30 29 3d 52 3a 42 30  28 31 29 3d 30 0d 00 09  |(0)=R:B0(1)=0...|
000000d0  0d f2 69 6e 69 74 64 72  61 77 0d 00 0a 0a eb 20  |..initdraw..... |
000000e0  33 33 3a 87 0d 00 0b 23  f2 64 72 61 77 66 69 6c  |33:....#.drawfil|
000000f0  65 5f 73 74 61 72 74 28  22 47 72 61 70 68 22 2b  |e_start("Graph"+|
00000100  c3 67 72 61 70 68 29 0d  00 0c 11 ef 20 32 39 2c  |.graph)..... 29,|
00000110  37 36 38 3b 35 37 36 3b  0d 00 0d 09 f2 63 28 30  |768;576;.....c(0|
00000120  29 0d 00 0e 54 ec 20 4d  28 30 29 2c 4d 28 31 29  |)...T. M(0),M(1)|
00000130  3a f2 70 61 74 68 5f 73  74 61 72 74 28 28 4d 28  |:.path_start((M(|
00000140  30 29 2b 31 30 35 30 29  2a 63 6d 2f 31 30 30 2c  |0)+1050)*cm/100,|
00000150  28 4d 28 31 29 2b 37 34  33 29 2a 63 6d 2f 31 30  |(M(1)+743)*cm/10|
00000160  30 2c 30 2c 62 6c 61 63  6b 25 2c 26 46 46 46 46  |0,0,black%,&FFFF|
00000170  46 46 46 46 29 0d 00 0f  05 f5 0d 00 10 09 74 3d  |FFFF).........t=|
00000180  74 2b 73 0d 00 11 09 f2  63 28 74 29 0d 00 12 40  |t+s.....c(t)...@|
00000190  df 20 4d 28 30 29 2c 4d  28 31 29 3a f2 70 61 74  |. M(0),M(1):.pat|
000001a0  68 5f 64 72 61 77 28 28  4d 28 30 29 2b 31 30 35  |h_draw((M(0)+105|
000001b0  30 29 2a 63 6d 2f 31 30  30 2c 28 4d 28 31 29 2b  |0)*cm/100,(M(1)+|
000001c0  37 34 33 29 2a 63 6d 2f  31 30 30 29 0d 00 13 0c  |743)*cm/100)....|
000001d0  c8 97 20 71 2c 71 2c 6d  0d 00 14 11 e7 20 6d 3d  |.. q,q,m..... m=|
000001e0  31 20 73 2b 3d 31 45 2d  33 0d 00 15 1a e7 20 6d  |1 s+=1E-3..... m|
000001f0  3d 34 20 80 20 73 3e 31  45 2d 33 20 73 2d 3d 31  |=4 . s>1E-3 s-=1|
00000200  45 2d 33 0d 00 16 13 fd  20 6d 3d 32 20 84 20 a6  |E-3..... m=2 . .|
00000210  28 30 29 3d 33 32 0d 00  17 0d f2 70 61 74 68 5f  |(0)=32.....path_|
00000220  65 6e 64 0d 00 18 11 f2  64 72 61 77 66 69 6c 65  |end.....drawfile|
00000230  5f 65 6e 64 0d 00 19 05  e0 0d 00 1a 04 0d 00 1b  |_end............|
00000240  0a dd f2 63 28 74 29 0d  00 1c 0f 61 3d 6b 2a 74  |...c(t)....a=k*t|
00000250  2a 52 31 2f 52 32 0d 00  1d 3a 4d 32 28 30 2c 30  |*R1/R2...:M2(0,0|
00000260  29 3d 9b 61 3a 4d 32 28  31 2c 30 29 3d b5 61 3a  |)=.a:M2(1,0)=.a:|
00000270  4d 32 28 30 2c 31 29 3d  2d 4d 32 28 31 2c 30 29  |M2(0,1)=-M2(1,0)|
00000280  3a 4d 32 28 31 2c 31 29  3d 4d 32 28 30 2c 30 29  |:M2(1,1)=M2(0,0)|
00000290  0d 00 1e 10 61 3d 2d 6b  2a 74 2a 52 31 2f 52 33  |....a=-k*t*R1/R3|
000002a0  0d 00 1f 3a 4d 33 28 30  2c 30 29 3d 9b 61 3a 4d  |...:M3(0,0)=.a:M|
000002b0  33 28 31 2c 30 29 3d b5  61 3a 4d 33 28 30 2c 31  |3(1,0)=.a:M3(0,1|
000002c0  29 3d 2d 4d 33 28 31 2c  30 29 3a 4d 33 28 31 2c  |)=-M3(1,0):M3(1,|
000002d0  31 29 3d 4d 33 28 30 2c  30 29 0d 00 20 29 42 28  |1)=M3(0,0).. )B(|
000002e0  29 3d 4d 32 28 29 2e 42  30 28 29 3a 42 28 30 29  |)=M2().B0():B(0)|
000002f0  2b 3d 4f 32 28 30 29 3a  42 28 31 29 2b 3d 4f 32  |+=O2(0):B(1)+=O2|
00000300  28 31 29 0d 00 21 39 41  42 3d b6 28 28 42 28 30  |(1)..!9AB=.((B(0|
00000310  29 2d 41 28 30 29 29 2a  28 42 28 30 29 2d 41 28  |)-A(0))*(B(0)-A(|
00000320  30 29 29 2b 28 42 28 31  29 2d 41 28 31 29 29 2a  |0))+(B(1)-A(1))*|
00000330  28 42 28 31 29 2d 41 28  31 29 29 29 0d 00 22 1f  |(B(1)-A(1)))..".|
00000340  61 3d 98 28 62 2f 41 42  29 2d 98 28 28 42 28 31  |a=.(b/AB)-.((B(1|
00000350  29 2d 41 28 31 29 29 2f  41 42 29 0d 00 23 38 63  |)-A(1))/AB)..#8c|
00000360  3d b6 28 41 42 2a 41 42  2d 62 2a 62 29 3a 4d 28  |=.(AB*AB-b*b):M(|
00000370  30 29 3d 41 28 30 29 2d  28 63 2b 64 29 2a 9b 61  |0)=A(0)-(c+d)*.a|
00000380  3a 4d 28 31 29 3d 41 28  31 29 2d 28 63 2b 64 29  |:M(1)=A(1)-(c+d)|
00000390  2a b5 61 0d 00 24 10 4d  28 29 3d 4d 33 28 29 2e  |*.a..$.M()=M3().|
000003a0  4d 28 29 0d 00 25 0e 4d  28 29 3d 35 30 2a 4d 28  |M()..%.M()=50*M(|
000003b0  29 0d 00 26 05 e1 0d 00  27 04 0d 00 28 0f dd 20  |)..&....'...(.. |
000003c0  f2 69 6e 69 74 64 72 61  77 0d 00 29 0e 6d 61 78  |.initdraw..).max|
000003d0  6c 65 76 25 3d 33 32 0d  00 2a 23 de 20 73 74 61  |lev%=32..*#. sta|
000003e0  72 74 25 28 6d 61 78 6c  65 76 25 29 2c 62 6f 78  |rt%(maxlev%),box|
000003f0  25 28 6d 61 78 6c 65 76  25 29 0d 00 2b 35 de 20  |%(maxlev%)..+5. |
00000400  6c 25 28 6d 61 78 6c 65  76 25 29 2c 62 25 28 6d  |l%(maxlev%),b%(m|
00000410  61 78 6c 65 76 25 29 2c  72 25 28 6d 61 78 6c 65  |axlev%),r%(maxle|
00000420  76 25 29 2c 74 25 28 6d  61 78 6c 65 76 25 29 0d  |v%),t%(maxlev%).|
00000430  00 2c 0e de 20 62 75 66  25 20 32 35 36 0d 00 2d  |.,.. buf% 256..-|
00000440  12 62 69 67 25 3d 26 37  46 46 46 46 46 46 46 0d  |.big%=&7FFFFFFF.|
00000450  00 2e 12 45 46 3d 30 2e  35 35 32 32 35 36 39 34  |...EF=0.55225694|
00000460  34 0d 00 2f 0d 69 25 3d  30 3a 63 25 3d 30 0d 00  |4../.i%=0:c%=0..|
00000470  30 0e 69 6e 63 68 3d 26  42 34 30 30 0d 00 31 0d  |0.inch=&B400..1.|
00000480  70 6f 69 6e 74 3d 36 34  30 0d 00 32 0c 63 6d 3d  |point=640..2.cm=|
00000490  31 38 31 34 30 0d 00 33  0c 62 6c 61 63 6b 25 3d  |18140..3.black%=|
000004a0  30 0d 00 34 14 77 68 69  74 65 25 3d 26 46 46 46  |0..4.white%=&FFF|
000004b0  46 46 46 30 30 0d 00 35  0c 6e 6f 6e 65 25 3d 2d  |FFF00..5.none%=-|
000004c0  31 0d 00 36 05 e1 0d 00  37 05 3a 0d 00 38 0b dd  |1..6....7.:..8..|
000004d0  f2 65 72 72 6f 72 0d 00  39 09 ee 20 85 20 87 0d  |.error..9.. . ..|
000004e0  00 3a 15 f1 f6 24 3b 22  20 61 74 20 6c 69 6e 65  |.:...$;" at line|
000004f0  20 22 3b 9e 0d 00 3b 0d  f2 70 61 74 68 5f 65 6e  | ";...;..path_en|
00000500  64 0d 00 3c 11 f2 64 72  61 77 66 69 6c 65 5f 65  |d..<..drawfile_e|
00000510  6e 64 0d 00 3d 12 e7 20  63 25 3c 3e 30 20 8c 20  |nd..=.. c%<>0 . |
00000520  d9 23 63 25 0d 00 3e 12  e7 20 69 25 3c 3e 30 20  |.#c%..>.. i%<>0 |
00000530  8c 20 d9 23 69 25 0d 00  3f 05 ee 0d 00 40 05 e1  |. .#i%..?....@..|
00000540  0d 00 41 05 3a 0d 00 42  19 dd 20 f2 64 72 61 77  |..A.:..B.. .draw|
00000550  66 69 6c 65 5f 73 74 61  72 74 28 44 24 29 0d 00  |file_start(D$)..|
00000560  43 0c 63 25 3d ae 28 44  24 29 0d 00 44 2c e7 20  |C.c%=.(D$)..D,. |
00000570  63 25 3d 30 20 8c 20 85  20 31 32 33 34 2c 22 43  |c%=0 . . 1234,"C|
00000580  61 6e 27 74 20 6f 70 65  6e 20 6f 75 74 70 75 74  |an't open output|
00000590  20 66 69 6c 65 22 0d 00  45 10 64 72 61 77 66 69  | file"..E.drawfi|
000005a0  6c 65 24 3d 44 24 0d 00  46 28 f2 70 75 74 77 28  |le$=D$..F(.putw(|
000005b0  26 37 37 36 31 37 32 34  34 29 3a f2 70 75 74 77  |&77617244):.putw|
000005c0  28 32 30 31 29 3a f2 70  75 74 77 28 30 29 0d 00  |(201):.putw(0)..|
000005d0  47 17 f2 70 75 74 73 31  32 28 22 4d 61 6b 65 44  |G..puts12("MakeD|
000005e0  72 61 77 22 29 0d 00 48  0b 6c 65 76 25 3d 2d 31  |raw")..H.lev%=-1|
000005f0  0d 00 49 11 f2 68 65 61  64 5f 68 65 72 65 28 b9  |..I..head_here(.|
00000600  29 0d 00 4a 05 e1 0d 00  4b 05 3a 0d 00 4c 13 dd  |)..J....K.:..L..|
00000610  20 f2 64 72 61 77 66 69  6c 65 5f 65 6e 64 0d 00  | .drawfile_end..|
00000620  4d 45 e7 20 6c 65 76 25  3e 30 20 8c 20 f1 22 57  |ME. lev%>0 . ."W|
00000630  61 72 6e 69 6e 67 3a 20  44 72 61 77 20 66 69 6c  |arning: Draw fil|
00000640  65 20 63 6c 6f 73 65 64  20 77 69 74 68 20 6f 62  |e closed with ob|
00000650  6a 65 63 74 28 73 29 20  75 6e 66 69 6e 69 73 68  |ject(s) unfinish|
00000660  65 64 22 0d 00 4e 0d f2  68 65 61 64 5f 6e 6f 77  |ed"..N..head_now|
00000670  0d 00 4f 0d d9 23 63 25  3a 63 25 3d 30 0d 00 50  |..O..#c%:c%=0..P|
00000680  22 ff 28 22 53 65 74 54  79 70 65 20 22 2b 64 72  |".("SetType "+dr|
00000690  61 77 66 69 6c 65 24 2b  22 20 41 46 46 22 29 0d  |awfile$+" AFF").|
000006a0  00 51 05 e1 0d 00 52 05  3a 0d 00 53 2b dd 20 f2  |.Q....R.:..S+. .|
000006b0  70 61 74 68 5f 73 74 61  72 74 28 78 25 2c 79 25  |path_start(x%,y%|
000006c0  2c 77 69 64 74 68 25 2c  6c 63 6f 6c 25 2c 66 63  |,width%,lcol%,fc|
000006d0  6f 6c 25 29 0d 00 54 0c  f2 70 75 74 77 28 32 29  |ol%)..T..putw(2)|
000006e0  0d 00 55 11 f2 68 65 61  64 5f 68 65 72 65 28 b9  |..U..head_here(.|
000006f0  29 0d 00 56 17 f2 70 75  74 77 28 66 63 6f 6c 25  |)..V..putw(fcol%|
00000700  29 3a f4 20 66 69 6c 6c  0d 00 57 19 f2 70 75 74  |):. fill..W..put|
00000710  77 28 6c 63 6f 6c 25 29  3a f4 20 63 6f 6c 6f 75  |w(lcol%):. colou|
00000720  72 0d 00 58 19 f2 70 75  74 77 28 77 69 64 74 68  |r..X..putw(width|
00000730  25 29 3a f4 20 77 69 64  74 68 0d 00 59 19 f2 70  |%):. width..Y..p|
00000740  75 74 77 28 30 29 3a f4  20 70 61 74 68 20 73 74  |utw(0):. path st|
00000750  79 6c 65 0d 00 5a 15 f2  70 61 74 68 5f 6d 6f 76  |yle..Z..path_mov|
00000760  65 28 78 25 2c 79 25 29  0d 00 5b 05 e1 0d 00 5c  |e(x%,y%)..[....\|
00000770  05 3a 0d 00 5d 17 dd 20  f2 70 61 74 68 5f 6d 6f  |.:..].. .path_mo|
00000780  76 65 28 78 25 2c 79 25  29 0d 00 5e 0c f2 70 75  |ve(x%,y%)..^..pu|
00000790  74 77 28 32 29 0d 00 5f  11 f2 70 75 74 78 79 28  |tw(2).._..putxy(|
000007a0  78 25 2c 79 25 29 0d 00  60 05 e1 0d 00 61 05 3a  |x%,y%)..`....a.:|
000007b0  0d 00 62 17 dd 20 f2 70  61 74 68 5f 64 72 61 77  |..b.. .path_draw|
000007c0  28 78 25 2c 79 25 29 0d  00 63 0c f2 70 75 74 77  |(x%,y%)..c..putw|
000007d0  28 38 29 0d 00 64 11 f2  70 75 74 78 79 28 78 25  |(8)..d..putxy(x%|
000007e0  2c 79 25 29 0d 00 65 05  e1 0d 00 66 05 3a 0d 00  |,y%)..e....f.:..|
000007f0  67 0f dd 20 f2 70 61 74  68 5f 65 6e 64 0d 00 68  |g.. .path_end..h|
00000800  0c f2 70 75 74 77 28 30  29 0d 00 69 0d f2 68 65  |..putw(0)..i..he|
00000810  61 64 5f 6e 6f 77 0d 00  6a 05 e1 0d 00 6b 05 3a  |ad_now..j....k.:|
00000820  0d 00 6c 14 dd 20 a4 63  6f 6c 28 52 25 2c 47 25  |..l.. .col(R%,G%|
00000830  2c 42 25 29 0d 00 6d 1e  3d 28 52 25 3c 3c 38 29  |,B%)..m.=(R%<<8)|
00000840  2b 28 47 25 3c 3c 31 36  29 2b 28 42 25 3c 3c 32  |+(G%<<16)+(B%<<2|
00000850  34 29 0d 00 6e 05 3a 0d  00 6f 0e dd f2 70 75 74  |4)..n.:..o...put|
00000860  77 28 41 25 29 0d 00 70  11 d5 23 63 25 2c 41 25  |w(A%)..p..#c%,A%|
00000870  20 80 20 26 46 46 0d 00  71 17 d5 23 63 25 2c 28  | . &FF..q..#c%,(|
00000880  41 25 3e 3e 3e 38 29 20  80 20 26 46 46 0d 00 72  |A%>>>8) . &FF..r|
00000890  18 d5 23 63 25 2c 28 41  25 3e 3e 3e 31 36 29 20  |..#c%,(A%>>>16) |
000008a0  80 20 26 46 46 0d 00 73  18 d5 23 63 25 2c 28 41  |. &FF..s..#c%,(A|
000008b0  25 3e 3e 3e 32 34 29 20  80 20 26 46 46 0d 00 74  |%>>>24) . &FF..t|
000008c0  05 e1 0d 00 75 05 3a 0d  00 76 11 dd 20 f2 70 75  |....u.:..v.. .pu|
000008d0  74 73 31 32 28 41 24 29  0d 00 77 08 ea 20 41 25  |ts12(A$)..w.. A%|
000008e0  0d 00 78 12 41 24 3d 41  24 2b c4 31 32 2c 22 20  |..x.A$=A$+.12," |
000008f0  22 29 0d 00 79 23 e3 20  41 25 3d 31 20 b8 20 31  |")..y#. A%=1 . 1|
00000900  32 3a d5 23 63 25 2c 97  28 c1 41 24 2c 41 25 2c  |2:.#c%,.(.A$,A%,|
00000910  31 29 29 3a ed 0d 00 7a  05 e1 0d 00 7b 05 3a 0d  |1)):...z....{.:.|
00000920  00 7c 0f dd 20 f2 70 75  74 73 28 41 24 29 0d 00  |.|.. .puts(A$)..|
00000930  7d 08 ea 20 41 25 0d 00  7e 26 e3 20 41 25 3d 31  |}.. A%..~&. A%=1|
00000940  20 b8 20 a9 28 41 24 29  3a d5 23 63 25 2c 97 28  | . .(A$):.#c%,.(|
00000950  c1 41 24 2c 41 25 2c 31  29 29 3a ed 0d 00 7f 0a  |.A$,A%,1)):.....|
00000960  d5 23 63 25 2c 30 0d 00  80 05 e1 0d 00 81 05 3a  |.#c%,0.........:|
00000970  0d 00 82 16 dd 20 f2 68  65 61 64 5f 68 65 72 65  |..... .head_here|
00000980  28 62 6f 78 25 29 0d 00  83 56 e7 20 6c 65 76 25  |(box%)...V. lev%|
00000990  3d 6d 61 78 6c 65 76 25  20 8c 20 85 20 31 32 33  |=maxlev% . . 123|
000009a0  34 2c 22 54 6f 6f 20 6d  61 6e 79 20 6e 65 73 74  |4,"Too many nest|
000009b0  65 64 20 67 72 6f 75 70  73 2e 20 20 45 64 69 74  |ed groups.  Edit|
000009c0  20 70 72 6f 67 72 61 6d  20 74 6f 20 69 6e 63 72  | program to incr|
000009d0  65 61 73 65 20 6c 69 6d  69 74 2e 22 0d 00 84 0b  |ease limit."....|
000009e0  6c 65 76 25 2b 3d 31 0d  00 85 13 62 6f 78 25 28  |lev%+=1....box%(|
000009f0  6c 65 76 25 29 3d 62 6f  78 25 0d 00 86 15 73 74  |lev%)=box%....st|
00000a00  61 72 74 25 28 6c 65 76  25 29 3d 8f 23 63 25 0d  |art%(lev%)=.#c%.|
00000a10  00 87 17 e7 20 6c 65 76  25 3e 30 20 8c 20 f2 70  |.... lev%>0 . .p|
00000a20  75 74 77 28 30 29 0d 00  88 0c e7 20 62 6f 78 25  |utw(0)..... box%|
00000a30  20 8c 0d 00 89 16 20 f2  70 75 74 77 28 30 29 3a  | ..... .putw(0):|
00000a40  f2 70 75 74 77 28 30 29  0d 00 8a 16 20 f2 70 75  |.putw(0).... .pu|
00000a50  74 77 28 30 29 3a f2 70  75 74 77 28 30 29 0d 00  |tw(0):.putw(0)..|
00000a60  8b 05 cd 0d 00 8c 1f 6c  25 28 6c 65 76 25 29 3d  |.......l%(lev%)=|
00000a70  62 69 67 25 3a 62 25 28  6c 65 76 25 29 3d 62 69  |big%:b%(lev%)=bi|
00000a80  67 25 0d 00 8d 21 72 25  28 6c 65 76 25 29 3d 2d  |g%...!r%(lev%)=-|
00000a90  62 69 67 25 3a 74 25 28  6c 65 76 25 29 3d 2d 62  |big%:t%(lev%)=-b|
00000aa0  69 67 25 0d 00 8e 05 e1  0d 00 8f 05 3a 0d 00 90  |ig%.........:...|
00000ab0  0f dd 20 f2 68 65 61 64  5f 6e 6f 77 0d 00 91 0a  |.. .head_now....|
00000ac0  ea 20 65 6e 64 25 0d 00  92 4a e7 20 6c 65 76 25  |. end%...J. lev%|
00000ad0  3c 30 20 8c 20 f1 22 57  61 72 6e 69 6e 67 3a 20  |<0 . ."Warning: |
00000ae0  61 74 74 65 6d 70 74 20  74 6f 20 65 6e 64 20 6d  |attempt to end m|
00000af0  6f 72 65 20 6f 62 6a 65  63 74 73 20 74 68 61 6e  |ore objects than|
00000b00  20 77 65 72 65 20 73 74  61 72 74 65 64 22 3a e1  | were started":.|
00000b10  0d 00 93 0d 65 6e 64 25  3d 8f 23 63 25 0d 00 94  |....end%=.#c%...|
00000b20  15 cf 23 63 25 3d 73 74  61 72 74 25 28 6c 65 76  |..#c%=start%(lev|
00000b30  25 29 0d 00 95 29 e7 20  6c 65 76 25 3e 30 20 8c  |%)...). lev%>0 .|
00000b40  20 f2 70 75 74 77 28 65  6e 64 25 2d 73 74 61 72  | .putw(end%-star|
00000b50  74 25 28 6c 65 76 25 29  2b 34 29 0d 00 96 12 e7  |t%(lev%)+4).....|
00000b60  20 62 6f 78 25 28 6c 65  76 25 29 20 8c 0d 00 97  | box%(lev%) ....|
00000b70  24 20 f2 70 75 74 77 28  6c 25 28 6c 65 76 25 29  |$ .putw(l%(lev%)|
00000b80  29 3a f2 70 75 74 77 28  62 25 28 6c 65 76 25 29  |):.putw(b%(lev%)|
00000b90  29 0d 00 98 28 20 f2 70  75 74 77 28 72 25 28 6c  |)...( .putw(r%(l|
00000ba0  65 76 25 29 2b 31 29 3a  f2 70 75 74 77 28 74 25  |ev%)+1):.putw(t%|
00000bb0  28 6c 65 76 25 29 2b 31  29 0d 00 99 05 cd 0d 00  |(lev%)+1).......|
00000bc0  9a 0e e7 20 6c 65 76 25  3e 30 20 8c 0d 00 9b 0c  |... lev%>0 .....|
00000bd0  20 6c 65 76 25 2d 3d 31  0d 00 9c 30 20 e7 20 6c  | lev%-=1...0 . l|
00000be0  25 28 6c 65 76 25 2b 31  29 3c 6c 25 28 6c 65 76  |%(lev%+1)<l%(lev|
00000bf0  25 29 20 8c 20 6c 25 28  6c 65 76 25 29 3d 6c 25  |%) . l%(lev%)=l%|
00000c00  28 6c 65 76 25 2b 31 29  0d 00 9d 30 20 e7 20 62  |(lev%+1)...0 . b|
00000c10  25 28 6c 65 76 25 2b 31  29 3c 62 25 28 6c 65 76  |%(lev%+1)<b%(lev|
00000c20  25 29 20 8c 20 62 25 28  6c 65 76 25 29 3d 62 25  |%) . b%(lev%)=b%|
00000c30  28 6c 65 76 25 2b 31 29  0d 00 9e 30 20 e7 20 72  |(lev%+1)...0 . r|
00000c40  25 28 6c 65 76 25 2b 31  29 3e 72 25 28 6c 65 76  |%(lev%+1)>r%(lev|
00000c50  25 29 20 8c 20 72 25 28  6c 65 76 25 29 3d 72 25  |%) . r%(lev%)=r%|
00000c60  28 6c 65 76 25 2b 31 29  0d 00 9f 30 20 e7 20 74  |(lev%+1)...0 . t|
00000c70  25 28 6c 65 76 25 2b 31  29 3e 74 25 28 6c 65 76  |%(lev%+1)>t%(lev|
00000c80  25 29 20 8c 20 74 25 28  6c 65 76 25 29 3d 74 25  |%) . t%(lev%)=t%|
00000c90  28 6c 65 76 25 2b 31 29  0d 00 a0 05 cd 0d 00 a1  |(lev%+1)........|
00000ca0  0d cf 23 63 25 3d 65 6e  64 25 0d 00 a2 05 e1 0d  |..#c%=end%......|
00000cb0  00 a3 05 3a 0d 00 a4 13  dd 20 f2 70 75 74 78 79  |...:..... .putxy|
00000cc0  28 78 25 2c 79 25 29 0d  00 a5 17 f2 70 75 74 77  |(x%,y%).....putw|
00000cd0  28 78 25 29 3a f2 70 75  74 77 28 79 25 29 0d 00  |(x%):.putw(y%)..|
00000ce0  a6 1f e7 20 78 25 3c 6c  25 28 6c 65 76 25 29 20  |... x%<l%(lev%) |
00000cf0  8c 20 6c 25 28 6c 65 76  25 29 3d 78 25 0d 00 a7  |. l%(lev%)=x%...|
00000d00  1f e7 20 79 25 3c 62 25  28 6c 65 76 25 29 20 8c  |.. y%<b%(lev%) .|
00000d10  20 62 25 28 6c 65 76 25  29 3d 79 25 0d 00 a8 1f  | b%(lev%)=y%....|
00000d20  e7 20 78 25 3e 72 25 28  6c 65 76 25 29 20 8c 20  |. x%>r%(lev%) . |
00000d30  72 25 28 6c 65 76 25 29  3d 78 25 0d 00 a9 1f e7  |r%(lev%)=x%.....|
00000d40  20 79 25 3e 74 25 28 6c  65 76 25 29 20 8c 20 74  | y%>t%(lev%) . t|
00000d50  25 28 6c 65 76 25 29 3d  79 25 0d 00 aa 05 e1 0d  |%(lev%)=y%......|
00000d60  00 ab 05 3a 0d 00 ac 0b  dd 20 a4 77 6f 72 64 0d  |...:..... .word.|
00000d70  00 ad 36 3d 9a 23 69 25  20 84 20 28 26 31 30 30  |..6=.#i% . (&100|
00000d80  2a 9a 23 69 25 29 20 84  20 28 26 31 30 30 30 30  |*.#i%) . (&10000|
00000d90  2a 9a 23 69 25 29 20 84  20 28 28 9a 23 69 25 29  |*.#i%) . ((.#i%)|
00000da0  3c 3c 32 34 29 0d 00 ae  04 0d 00 af 0a dd f2 76  |<<24)..........v|
00000db0  61 72 73 0d 00 b0 0c f3  20 67 72 61 70 68 73 0d  |ars..... graphs.|
00000dc0  00 b1 0b e8 20 67 72 61  70 68 0d 00 b2 11 e3 20  |.... graph..... |
00000dd0  69 3d 31 20 b8 20 67 72  61 70 68 0d 00 b3 2e f3  |i=1 . graph.....|
00000de0  20 73 2c 6b 2c 52 31 2c  52 32 2c 52 33 2c 52 2c  | s,k,R1,R2,R3,R,|
00000df0  41 28 30 29 2c 41 28 31  29 2c 4f 32 28 30 29 2c  |A(0),A(1),O2(0),|
00000e00  4f 32 28 31 29 2c 62 2c  64 0d 00 b4 05 ed 0d 00  |O2(1),b,d.......|
00000e10  b5 05 e1 0d 00 b6 05 3a  0d 00 b7 08 dc 20 34 37  |.......:..... 47|
00000e20  0d 00 b8 2d dc 20 31 2c  30 2e 30 35 2c 33 2e 31  |...-. 1,0.05,3.1|
00000e30  35 2c 31 2e 37 2c 36 2e  31 35 2c 32 2c 31 39 2c  |5,1.7,6.15,2,19,|
00000e40  37 2c 31 30 2c 38 2e 35  2c 36 2c 31 31 0d 00 b9  |7,10,8.5,6,11...|
00000e50  29 dc 20 31 2c 30 2e 30  35 2c 33 2e 32 2c 31 2e  |). 1,0.05,3.2,1.|
00000e60  35 2c 36 2c 32 2c 31 39  2c 37 2c 31 30 2c 38 2e  |5,6,2,19,7,10,8.|
00000e70  35 2c 36 2c 31 32 0d 00  ba 29 dc 20 31 2c 30 2e  |5,6,12...). 1,0.|
00000e80  30 35 2c 33 2e 32 2c 31  2e 36 2c 36 2c 32 2c 31  |05,3.2,1.6,6,2,1|
00000e90  39 2c 37 2c 31 30 2c 38  2e 35 2c 36 2c 31 32 0d  |9,7,10,8.5,6,12.|
00000ea0  00 bb 30 dc 20 31 2c 30  2e 30 35 2c 33 2e 32 2c  |..0. 1,0.05,3.2,|
00000eb0  31 2e 36 2c 36 2c 32 2c  31 39 2c 36 2e 38 31 2c  |1.6,6,2,19,6.81,|
00000ec0  31 30 2c 38 2e 35 2c 36  2e 30 39 34 2c 31 32 0d  |10,8.5,6.094,12.|
00000ed0  00 bc 33 dc 20 31 2c 30  2e 30 35 2c 33 2e 32 2c  |..3. 1,0.05,3.2,|
00000ee0  31 2e 36 32 2c 36 2c 32  2c 31 39 2c 36 2e 38 31  |1.62,6,2,19,6.81|
00000ef0  2c 31 30 2c 38 2e 35 2c  36 2e 30 39 34 2c 31 32  |,10,8.5,6.094,12|
00000f00  2e 31 0d 00 bd 34 dc 20  31 2c 30 2e 30 35 2c 33  |.1...4. 1,0.05,3|
00000f10  2e 32 2c 31 2e 36 32 38  2c 36 2c 31 2c 31 39 2c  |.2,1.628,6,1,19,|
00000f20  36 2e 38 31 2c 31 30 2c  38 2e 35 2c 36 2e 30 39  |6.81,10,8.5,6.09|
00000f30  34 2c 31 32 2e 31 0d 00  be 39 dc 20 31 2c 30 2e  |4,12.1...9. 1,0.|
00000f40  30 35 2c 33 2e 32 2c 31  2e 36 32 38 2c 36 2c 30  |05,3.2,1.628,6,0|
00000f50  2e 36 31 34 2c 31 39 2c  36 2e 38 31 2c 31 30 2c  |.614,19,6.81,10,|
00000f60  38 2e 35 2c 36 2e 30 39  34 2c 31 31 2e 39 33 0d  |8.5,6.094,11.93.|
00000f70  00 bf 39 dc 20 31 2c 30  2e 30 35 2c 33 2e 32 2c  |..9. 1,0.05,3.2,|
00000f80  31 2e 36 32 38 2c 36 2c  30 2e 36 31 34 2c 31 39  |1.628,6,0.614,19|
00000f90  2c 36 2e 38 31 2c 31 30  2c 38 2e 35 2c 36 2e 32  |,6.81,10,8.5,6.2|
00000fa0  30 31 2c 31 31 2e 39 33  0d 00 c0 3c dc 20 30 2e  |01,11.93...<. 0.|
00000fb0  39 38 2c 30 2e 30 35 2c  33 2e 32 2c 31 2e 36 32  |98,0.05,3.2,1.62|
00000fc0  38 2c 36 2c 30 2e 36 31  34 2c 31 39 2c 36 2e 38  |8,6,0.614,19,6.8|
00000fd0  31 2c 31 30 2c 38 2e 35  2c 36 2e 33 37 35 2c 31  |1,10,8.5,6.375,1|
00000fe0  31 2e 39 33 0d 00 c1 39  dc 20 30 2e 39 38 2c 30  |1.93...9. 0.98,0|
00000ff0  2e 30 35 2c 33 2e 32 2c  31 2e 36 32 38 2c 36 2c  |.05,3.2,1.628,6,|
00001000  30 2e 36 31 34 2c 31 39  2c 36 2e 38 31 2c 31 30  |0.614,19,6.81,10|
00001010  2c 38 2e 35 2c 36 2e 33  37 35 2c 31 33 0d 00 c2  |,8.5,6.375,13...|
00001020  3a dc 20 30 2e 39 38 2c  30 2e 30 35 2c 33 2e 32  |:. 0.98,0.05,3.2|
00001030  2c 31 2e 36 32 38 2c 36  2c 30 2e 36 31 34 2c 31  |,1.628,6,0.614,1|
00001040  39 2c 37 2e 30 31 39 2c  31 30 2c 38 2e 35 2c 36  |9,7.019,10,8.5,6|
00001050  2e 33 37 35 2c 31 33 0d  00 c3 3d dc 20 30 2e 39  |.375,13...=. 0.9|
00001060  38 2c 30 2e 30 35 2c 33  2e 32 2c 31 2e 36 32 38  |8,0.05,3.2,1.628|
00001070  2c 36 2c 30 2e 36 31 34  2c 31 37 2e 33 34 2c 37  |,6,0.614,17.34,7|
00001080  2e 30 31 39 2c 31 30 2c  38 2e 35 2c 36 2e 33 37  |.019,10,8.5,6.37|
00001090  35 2c 31 33 0d 00 c4 3d  dc 20 30 2e 39 38 2c 30  |5,13...=. 0.98,0|
000010a0  2e 30 35 2c 33 2e 32 2c  31 2e 36 32 38 2c 36 2c  |.05,3.2,1.628,6,|
000010b0  30 2e 36 31 34 2c 31 37  2e 33 34 2c 37 2e 30 31  |0.614,17.34,7.01|
000010c0  39 2c 31 30 2c 38 2e 35  2c 35 2e 36 37 39 2c 31  |9,10,8.5,5.679,1|
000010d0  33 0d 00 c5 3b dc 20 30  2e 39 38 2c 30 2e 30 35  |3...;. 0.98,0.05|
000010e0  2c 33 2e 32 2c 31 2e 36  32 38 2c 36 2c 30 2e 36  |,3.2,1.628,6,0.6|
000010f0  31 34 2c 31 37 2e 35 2c  37 2c 31 30 2c 38 2e 35  |14,17.5,7,10,8.5|
00001100  2c 35 2e 36 37 39 2c 31  32 2e 38 37 0d 00 c6 3b  |,5.679,12.87...;|
00001110  dc 20 30 2e 39 38 2c 30  2e 30 35 2c 33 2e 32 2c  |. 0.98,0.05,3.2,|
00001120  31 2e 36 32 38 2c 36 2c  30 2e 37 32 35 2c 31 37  |1.628,6,0.725,17|
00001130  2e 35 2c 37 2c 31 30 2c  38 2e 35 2c 35 2e 36 37  |.5,7,10,8.5,5.67|
00001140  39 2c 31 32 2e 38 37 0d  00 c7 3c dc 20 30 2e 39  |9,12.87...<. 0.9|
00001150  38 2c 30 2e 30 35 2c 33  2e 32 2c 31 2e 36 32 38  |8,0.05,3.2,1.628|
00001160  2c 36 2c 30 2e 37 31 35  2c 31 37 2e 35 36 2c 37  |,6,0.715,17.56,7|
00001170  2c 31 30 2c 38 2e 35 2c  35 2e 36 37 39 2c 31 32  |,10,8.5,5.679,12|
00001180  2e 38 37 0d 00 c8 3c dc  20 30 2e 39 38 2c 30 2e  |.87...<. 0.98,0.|
00001190  30 35 2c 33 2e 32 2c 31  2e 36 32 38 2c 36 2c 31  |05,3.2,1.628,6,1|
000011a0  2e 30 36 38 2c 31 37 2e  35 36 2c 37 2c 31 30 2c  |.068,17.56,7,10,|
000011b0  38 2e 35 2c 35 2e 36 37  39 2c 31 32 2e 38 37 0d  |8.5,5.679,12.87.|
000011c0  00 c9 3b dc 20 30 2e 39  38 2c 30 2e 30 35 2c 33  |..;. 0.98,0.05,3|
000011d0  2e 32 2c 31 2e 36 32 38  2c 36 2c 31 2e 30 36 38  |.2,1.628,6,1.068|
000011e0  2c 31 37 2e 35 36 2c 37  2c 31 30 2c 38 2e 35 2c  |,17.56,7,10,8.5,|
000011f0  35 2e 36 37 39 2c 31 31  2e 35 0d 00 ca 3b dc 20  |5.679,11.5...;. |
00001200  30 2e 39 38 2c 30 2e 30  35 2c 33 2e 32 2c 31 2e  |0.98,0.05,3.2,1.|
00001210  36 32 38 2c 36 2c 31 2e  30 36 38 2c 31 37 2e 35  |628,6,1.068,17.5|
00001220  36 2c 37 2c 31 30 2c 38  2e 35 2c 35 2e 38 38 35  |6,7,10,8.5,5.885|
00001230  2c 31 31 2e 35 0d 00 cb  3c dc 20 30 2e 36 30 32  |,11.5...<. 0.602|
00001240  2c 30 2e 30 35 2c 33 2e  32 2c 31 2e 36 32 38 2c  |,0.05,3.2,1.628,|
00001250  36 2c 31 2e 30 36 38 2c  31 37 2e 35 36 2c 37 2c  |6,1.068,17.56,7,|
00001260  31 30 2c 38 2e 35 2c 35  2e 32 34 39 2c 31 31 2e  |10,8.5,5.249,11.|
00001270  35 0d 00 cc 3c dc 20 30  2e 36 30 32 2c 30 2e 30  |5...<. 0.602,0.0|
00001280  35 2c 33 2e 32 2c 31 2e  36 32 38 2c 36 2c 31 2e  |5,3.2,1.628,6,1.|
00001290  30 36 38 2c 31 37 2e 35  36 2c 37 2c 31 30 2c 38  |068,17.56,7,10,8|
000012a0  2e 35 2c 34 2e 34 33 31  2c 31 31 2e 35 0d 00 cd  |.5,4.431,11.5...|
000012b0  3d dc 20 30 2e 33 34 37  2c 30 2e 30 35 2c 33 2e  |=. 0.347,0.05,3.|
000012c0  32 2c 31 2e 36 32 38 2c  36 2c 30 2e 37 37 38 2c  |2,1.628,6,0.778,|
000012d0  31 37 2e 35 36 2c 37 2c  31 30 2c 38 2e 35 2c 34  |17.56,7,10,8.5,4|
000012e0  2e 34 33 31 2c 31 31 2e  34 31 0d 00 ce 3b dc 20  |.431,11.41...;. |
000012f0  30 2e 33 34 37 2c 30 2e  30 35 2c 33 2e 32 2c 31  |0.347,0.05,3.2,1|
00001300  2e 36 32 38 2c 36 2c 30  2e 33 2c 31 37 2e 35 36  |.628,6,0.3,17.56|
00001310  2c 37 2c 31 30 2c 38 2e  35 2c 34 2e 33 35 35 2c  |,7,10,8.5,4.355,|
00001320  31 31 2e 34 31 0d 00 cf  37 dc 20 30 2e 33 34 37  |11.41...7. 0.347|
00001330  2c 30 2e 30 35 2c 33 2e  32 2c 31 2e 36 32 38 2c  |,0.05,3.2,1.628,|
00001340  36 2c 30 2e 33 2c 31 37  2e 35 36 2c 37 2c 31 30  |6,0.3,17.56,7,10|
00001350  2c 38 2e 35 2c 34 2c 31  31 2e 37 37 0d 00 d0 34  |,8.5,4,11.77...4|
00001360  dc 20 30 2e 33 34 37 2c  30 2e 30 35 2c 33 2e 32  |. 0.347,0.05,3.2|
00001370  2c 31 2e 36 32 38 2c 36  2c 30 2e 33 2c 31 38 2c  |,1.628,6,0.3,18,|
00001380  37 2c 31 30 2c 38 2e 35  2c 34 2c 31 31 2e 37 37  |7,10,8.5,4,11.77|
00001390  0d 00 d1 36 dc 20 30 2e  33 34 37 2c 30 2e 30 35  |...6. 0.347,0.05|
000013a0  2c 33 2e 32 2c 31 2e 36  32 38 2c 36 2c 30 2e 33  |,3.2,1.628,6,0.3|
000013b0  37 31 2c 31 38 2c 37 2c  31 30 2c 38 2e 35 2c 34  |71,18,7,10,8.5,4|
000013c0  2c 31 31 2e 37 37 0d 00  d2 3a dc 20 30 2e 33 34  |,11.77...:. 0.34|
000013d0  37 2c 30 2e 30 35 2c 33  2e 32 2c 31 2e 36 32 38  |7,0.05,3.2,1.628|
000013e0  2c 36 2c 30 2e 33 37 31  2c 31 38 2c 37 2c 31 30  |,6,0.371,18,7,10|
000013f0  2c 38 2e 35 2c 33 2e 37  39 34 2c 31 31 2e 37 37  |,8.5,3.794,11.77|
00001400  0d 00 d3 3e dc 20 30 2e  33 34 37 2c 30 2e 30 35  |...>. 0.347,0.05|
00001410  2c 33 2e 32 2c 31 2e 36  32 38 2c 36 2c 30 2e 33  |,3.2,1.628,6,0.3|
00001420  37 31 2c 31 38 2c 37 2e  37 35 35 2c 31 30 2c 38  |71,18,7.755,10,8|
00001430  2e 35 2c 33 2e 33 35 32  2c 31 31 2e 37 37 0d 00  |.5,3.352,11.77..|
00001440  d4 3b dc 20 30 2e 33 34  37 2c 30 2e 30 35 2c 33  |.;. 0.347,0.05,3|
00001450  2e 32 2c 31 2e 36 32 38  2c 36 2c 30 2e 33 37 31  |.2,1.628,6,0.371|
00001460  2c 31 38 2c 37 2e 37 35  35 2c 31 30 2c 38 2e 35  |,18,7.755,10,8.5|
00001470  2c 33 2e 33 35 32 2c 31  31 0d 00 d5 3d dc 20 30  |,3.352,11...=. 0|
00001480  2e 32 38 38 2c 30 2e 30  35 2c 33 2e 32 2c 31 2e  |.288,0.05,3.2,1.|
00001490  36 32 38 2c 36 2c 30 2e  36 31 34 2c 31 39 2c 36  |628,6,0.614,19,6|
000014a0  2e 38 31 2c 31 30 2c 38  2e 35 2c 36 2e 30 36 37  |.81,10,8.5,6.067|
000014b0  2c 31 31 2e 39 33 0d 00  d6 37 dc 20 30 2e 38 35  |,11.93...7. 0.85|
000014c0  37 2c 30 2e 30 35 2c 33  2e 32 2c 31 2e 36 32 38  |7,0.05,3.2,1.628|
000014d0  2c 36 2c 30 2e 33 37 31  2c 31 38 2c 36 2c 31 30  |,6,0.371,18,6,10|
000014e0  2c 38 2e 35 2c 33 2e 33  35 32 2c 31 31 0d 00 d7  |,8.5,3.352,11...|
000014f0  27 dc 20 31 2c 30 2e 30  35 2c 33 2e 32 2c 31 2c  |'. 1,0.05,3.2,1,|
00001500  36 2c 32 2c 31 39 2c 37  2c 31 30 2c 38 2e 35 2c  |6,2,19,7,10,8.5,|
00001510  36 2c 31 32 0d 00 d8 2f  dc 20 30 2e 35 37 39 2c  |6,12.../. 0.579,|
00001520  30 2e 30 35 2c 33 2e 32  2c 30 2e 39 37 38 2c 36  |0.05,3.2,0.978,6|
00001530  2c 32 2c 31 39 2c 37 2c  31 30 2c 38 2e 35 2c 36  |,2,19,7,10,8.5,6|
00001540  2c 31 32 0d 00 d9 2f dc  20 30 2e 35 37 39 2c 30  |,12.../. 0.579,0|
00001550  2e 30 35 2c 33 2e 32 2c  30 2e 39 37 38 2c 36 2c  |.05,3.2,0.978,6,|
00001560  32 2c 31 39 2c 37 2c 31  30 2c 38 2e 35 2c 36 2c  |2,19,7,10,8.5,6,|
00001570  31 32 0d 00 da 32 dc 20  30 2e 35 37 39 2c 30 2e  |12...2. 0.579,0.|
00001580  30 35 2c 33 2e 32 2c 30  2e 39 37 38 2c 36 2c 32  |05,3.2,0.978,6,2|
00001590  2c 31 39 2c 37 2c 31 30  2c 38 2e 35 2c 36 2c 31  |,19,7,10,8.5,6,1|
000015a0  32 2e 34 34 0d 00 db 2f  dc 20 30 2e 35 37 39 2c  |2.44.../. 0.579,|
000015b0  30 2e 30 35 2c 33 2e 32  2c 30 2e 39 37 38 2c 36  |0.05,3.2,0.978,6|
000015c0  2c 32 2c 31 39 2c 37 2c  31 30 2c 38 2e 35 2c 36  |,2,19,7,10,8.5,6|
000015d0  2c 31 30 0d 00 dc 2f dc  20 30 2e 35 37 39 2c 30  |,10.../. 0.579,0|
000015e0  2e 30 35 2c 33 2e 32 2c  30 2e 37 37 38 2c 36 2c  |.05,3.2,0.778,6,|
000015f0  32 2c 31 39 2c 37 2c 31  30 2c 38 2e 35 2c 36 2c  |2,19,7,10,8.5,6,|
00001600  31 30 0d 00 dd 30 dc 20  31 2c 30 2e 30 35 2c 33  |10...0. 1,0.05,3|
00001610  2e 32 2c 31 2e 36 2c 36  2c 32 2c 31 39 2c 36 2e  |.2,1.6,6,2,19,6.|
00001620  38 31 2c 31 30 2c 38 2e  35 2c 36 2e 30 39 34 2c  |81,10,8.5,6.094,|
00001630  31 32 0d 00 de 2d dc 20  31 2c 30 2e 30 35 2c 33  |12...-. 1,0.05,3|
00001640  2e 32 2c 31 2e 36 2c 36  2c 32 2c 31 39 2c 34 2c  |.2,1.6,6,2,19,4,|
00001650  31 30 2c 38 2e 35 2c 36  2e 30 39 34 2c 31 32 0d  |10,8.5,6.094,12.|
00001660  00 df 37 dc 20 31 2c 30  2e 30 35 2c 33 2e 32 2c  |..7. 1,0.05,3.2,|
00001670  31 2e 36 35 31 2c 36 2c  32 2e 35 38 34 2c 31 39  |1.651,6,2.584,19|
00001680  2c 34 2e 36 38 37 2c 31  30 2c 38 2e 35 2c 36 2e  |,4.687,10,8.5,6.|
00001690  30 39 34 2c 31 32 0d 00  e0 3b dc 20 31 2c 30 2e  |094,12...;. 1,0.|
000016a0  30 35 2c 33 2e 32 2c 31  2e 36 35 31 2c 36 2e 30  |05,3.2,1.651,6.0|
000016b0  34 31 2c 32 2e 37 32 39  2c 31 39 2c 34 2e 36 38  |41,2.729,19,4.68|
000016c0  37 2c 31 30 2c 38 2e 35  2c 35 2e 39 30 34 2c 31  |7,10,8.5,5.904,1|
000016d0  32 0d 00 e1 3f dc 20 31  2c 30 2e 30 35 2c 33 2e  |2...?. 1,0.05,3.|
000016e0  32 2c 31 2e 36 35 31 2c  36 2e 30 34 31 2c 32 2e  |2,1.651,6.041,2.|
000016f0  37 32 39 2c 31 39 2c 34  2e 36 38 37 2c 38 2e 39  |729,19,4.687,8.9|
00001700  37 2c 39 2e 39 38 32 2c  35 2e 39 30 34 2c 31 32  |7,9.982,5.904,12|
00001710  0d 00 e2 3f dc 20 30 2e  35 37 35 2c 30 2e 30 35  |...?. 0.575,0.05|
00001720  2c 33 2e 32 2c 31 2e 36  35 31 2c 36 2e 30 34 31  |,3.2,1.651,6.041|
00001730  2c 34 2c 31 39 2c 34 2e  36 38 37 2c 38 2e 39 37  |,4,19,4.687,8.97|
00001740  2c 39 2e 39 38 32 2c 35  2e 39 30 34 2c 31 32 0d  |,9.982,5.904,12.|
00001750  00 e3 2f dc 20 31 2c 30  2e 30 35 2c 33 2e 31 35  |../. 1,0.05,3.15|
00001760  2c 31 2e 37 2c 36 2e 31  35 2c 31 2e 35 2c 31 39  |,1.7,6.15,1.5,19|
00001770  2c 37 2c 31 30 2c 38 2e  35 2c 36 2c 31 31 0d 00  |,7,10,8.5,6,11..|
00001780  e4 36 dc 20 30 2e 36 37  32 2c 30 2e 30 35 2c 33  |.6. 0.672,0.05,3|
00001790  2e 31 35 2c 31 2e 37 2c  36 2e 31 35 2c 31 2e 35  |.15,1.7,6.15,1.5|
000017a0  2c 31 39 2c 37 2c 31 30  2c 38 2e 35 2c 37 2c 31  |,19,7,10,8.5,7,1|
000017b0  31 2e 30 38 0d 00 e5 3a  dc 20 30 2e 35 32 38 2c  |1.08...:. 0.528,|
000017c0  30 2e 30 35 2c 33 2e 31  35 2c 31 2e 37 2c 36 2e  |0.05,3.15,1.7,6.|
000017d0  31 35 2c 31 2e 35 2c 31  39 2c 37 2c 31 30 2c 38  |15,1.5,19,7,10,8|
000017e0  2e 35 2c 35 2e 35 30 37  2c 31 31 2e 30 38 0d 00  |.5,5.507,11.08..|
000017f0  e6 3a dc 20 30 2e 35 32  38 2c 30 2e 30 35 2c 33  |.:. 0.528,0.05,3|
00001800  2e 31 35 2c 31 2e 37 2c  36 2e 31 35 2c 31 2e 35  |.15,1.7,6.15,1.5|
00001810  2c 31 39 2c 37 2c 31 30  2c 38 2e 35 2c 35 2e 35  |,19,7,10,8.5,5.5|
00001820  30 37 2c 31 31 2e 30 38  0d ff                    |07,11.08..|
0000182a