�25

 *FX4,2
 �25
 �0,150,0,0
( �1,250,200,150
2 � �ERROR
< *KEY1 a|M
F *KEY2 b|M
P *KEY3 c|M
Z *KEY4 d|M
�1 � N%=0 � 8:� M%=1 � 4:�"*CDIR D"+�N%+�M%:�:�
� �24,320;248;960;776;
�4 � F(30),G(8,5),J(155),R(8,5),P(8,5),N(36),M(36)
� �
�

M � Store the first 5 zeros of Jn(x) for n=0,1,2,3,4,5 in the array G(6,5)

0 � 2.40483,5.52008,8.65373,11.79153,14.93092

1 � 3.83171,7.01559,10.17347,13.32369,16.47063

"1 � 5.13562,8.41724,11.61984,14.79595,17.95982

,1 � 6.38016,9.76102,13.01520,16.22347,19.40942

62 � 7.58834,11.06471,14.37254,17.61597,20.82693

@2 � 8.77148,12.33860,15.70017,18.98013,22.21780

J2 � 9.93611,13.58929,17.00382,20.32079,23.58608

T3 � 11.08637,14.82127,18.28758,21.64154,24.93493

^3 � 12.22509,16.03777,19.55454,22.94517,26.26681

h) � N%=0 � 8:� M%=1 � 5:� G(N%,M%):�:�

rN � 0,1,2,0,3,1,4,2,0,5,3,6,1,4,7,2,0,8,5,3,1,6,4,2,7,5,8,3,6,4,7,5,8,6,7,8

|N � 1,1,1,2,1,2,1,2,3,1,2,1,3,2,1,3,4,1,2,3,4,2,3,4,2,3,2,4,3,4,3,4,3,4,4,4

� � N%=1 � 36:� N(N%):�

� � N%=1 � 36:� M(N%):�

�G �"Generate new pictures or animate existing pictures (G or A) ?"Q$

�$ � Q$="G" � Q$="g" � �tnA � �dTC

�: �"Viewing Angle (in degrees from the horizontal) ?"TH

� �"Amplitude ?"PK

� �

� � N%=0 � 8

� � M%=1 � 4

� � T%=0 � 77

�* x=G(N%,M%)*(T%/77.5-1):J(T%)=�J(x,N%)

� �

� �"*DIR D"+�N%+�M%
% � T=0 � 180 � 30:M=(PK-5*M%)*��T
  ȝȐ 640,512,300,300*��TH,0
 �0
& � 1040,512
0? � P%=1 � M%:a=300*G(N%,P%)/G(N%,M%):� a+640,512:�ELLIPSE:�
: � N%=0 � �DNB
D �RADIALZEROS
N �"  "T
X& � �22,40)"n=";N%:� �22,41)"m=";M%
b  P=(-1)^N%:CST=��TH:SNT=��TH
l � PH=0 � 370 � 10
v � PH1=PH-2.5 � PH+2.5 � 5
� CSP=��PH1:SNP=��PH1
�% � (PH1-2.5) � 15=0 � L=75 � L=65
� � T%=0 � L � 4
� x=G(N%,M%)*(T%/77.5-1)
� � N%=0 � A=M
�( � N%>0 � N% � 2 >0 � A=M*�(N%*�PH1)
�( � N%>0 � N% � 2 =0 � A=M*�(N%*�PH1)
� X=x*300/G(N%,M%):Y=A*J(T%)
�  X1=X*CSP:Y1=Y*CST-X*SNP*SNT
�0 � T%=0 � � 640+X1,512+Y1:� �5,640+X1,512+Y1
� �
� �
� �
 � T%=5 � 77.5 � 5
 � PH=0 � 360 � 5
 CSP=��PH:SNP=��PH
  x=G(N%,M%)*(T%/77.5-1)
* � N%=0 � A=M
4' � N%>0 � N% � 2 >0 � A=M*�(N%*�PH)
>' � N%>0 � N% � 2 =0 � A=M*�(N%*�PH)
H X=x*300/G(N%,M%):Y=A*J(T%)
R  X1=X*CSP:Y1=Y*CST-X*SNP*SNT
\0 � PH=0 � � 640+X1,512+Y1:� �5,640+X1,512+Y1
f �
p �
z � N%=0 � �tNC
� �RADIALZEROS
� �"*SCREENSA.T"+�T
� �1
� �
� �
�
 *BACK
� �
� �
� �:N%=0:M%=1
� Q=12288
� ȑ 300,250
�
 *DIR D01
�7 � K%=0 � 8:� L%=1 � 5:R(K%,L%)=G(K%,L%)/G(0,1):�:�
�9 � U%=0 � 8:� V%=1 � 5:P(U%,V%)=4096*�R(U%,V%)/�2:�:�
 � T=0 � 150 � 30
 �("SLOAD T"+�(T))
 �("SCHOOSE SCREENDUMP")
 � &ED,0,0
 
 X$=�(4)
$
 �MODE
. � X$="" � �DLD
8
 *BACK
B �"*DIR D"+�N%+�M%
L �
V �S
` � T=180 � 30 � -30
j �("SLOAD T"+�(T))
m �("SCHOOSE SCREENDUMP")
p � &ED,0,0
r 
s X$=�(4)
t �
~ �S
� � �TFD
�
�tݤJ(X,N%):F(25)=0:F(24)=1.5E-39:�N=23�0�-1:F(N)=2*(N+1)*F(N+1)/X-F(N+2):�:S=F(0):� N=2�25�2:S+=2*F(N):�:=F(N%)/S
�
�X � �ELLIPSE:� PS=0 � 360 � 3:p=a*��PS:q=a*��PS*��TH:� p+640,q+512:�5,p+640,q+512:�:�
�
�# � �S:� 1,-2,P(N%,M%)+Q,32767:�
�
�w � �RADIALZEROS:� R=0 � 180-180/N%+1 � 180/N%:� 300*��R+640,300*��R*��TH+512:�21,-300*��R+640,-300*��R*��TH+512:�:�
�
 � �MODE

 � X$="a" � M%=1
 � X$="b" � M%=2
 � X$="c" � M%=3
( � X$="d" � M%=4
2 � X$="A" � Q=4096
< � X$="B" � Q=8192
F � X$="C" � Q=12288
P � X$="D" � Q=16384
Z � X$="E" � Q=20480
d � X$="0" � N%=0
n � X$="1" � N%=1
x � X$="2" � N%=2
� � X$="3" � N%=3
� � X$="4" � N%=4
� � X$="5" � N%=5
� � X$="6" � N%=6
� � X$="7" � N%=7
� � X$="8" � N%=8
� � X$="S" � � �
� � X$="Q" � � �
� � X$="N" � �NOTES
� � X$="O" � *SPEAKER OFF
� � X$="I" � *SPEAKER ON
� �
�
 � �ERROR
� �
�	 *FX4
�
 *BACK
� �
� �

 � �NOTES
 � N%,M%
 � S%=1 � 36
  M%=M(S%):N%=N(S%)
* 
4
 *BACK
> �"*DIR D"+�(N%)+�(M%)
H �("SLOAD T0")
K �("SCHOOSE SCREENDUMP")
N � &ED,0,0
P Ȗ
Q
 A$=�(10)
R � 1,-2,P(N%,M%)+Q,100
\ � T=1 � 20000:X=�(�/4):�
p	 A$=�
z � A$="-" � S%-=2
 � S%<0 � �tXH
� �
� �
� �
�

00000000  0d 00 05 08 20 eb 32 35  0d 00 0a 0b 20 2a 46 58  |.... .25.... *FX|
00000010  34 2c 32 0d 00 14 08 20  eb 32 35 0d 00 1e 0f 20  |4,2.... .25.... |
00000020  fb 30 2c 31 35 30 2c 30  2c 30 0d 00 28 13 20 fb  |.0,150,0,0..(. .|
00000030  31 2c 32 35 30 2c 32 30  30 2c 31 35 30 0d 00 32  |1,250,200,150..2|
00000040  0e 20 ee 85 20 f2 45 52  52 4f 52 0d 00 3c 0e 20  |. .. .ERROR..<. |
00000050  2a 4b 45 59 31 20 61 7c  4d 0d 00 46 0e 20 2a 4b  |*KEY1 a|M..F. *K|
00000060  45 59 32 20 62 7c 4d 0d  00 50 0e 20 2a 4b 45 59  |EY2 b|M..P. *KEY|
00000070  33 20 63 7c 4d 0d 00 5a  0e 20 2a 4b 45 59 34 20  |3 c|M..Z. *KEY4 |
00000080  64 7c 4d 0d 00 d2 31 20  e3 20 4e 25 3d 30 20 b8  |d|M...1 . N%=0 .|
00000090  20 38 3a e3 20 4d 25 3d  31 20 b8 20 34 3a ff 22  | 8:. M%=1 . 4:."|
000000a0  2a 43 44 49 52 20 44 22  2b c3 4e 25 2b c3 4d 25  |*CDIR D"+.N%+.M%|
000000b0  3a ed 3a ed 0d 00 dc 19  20 ef 32 34 2c 33 32 30  |:.:..... .24,320|
000000c0  3b 32 34 38 3b 39 36 30  3b 37 37 36 3b 0d 00 e6  |;248;960;776;...|
000000d0  34 20 de 20 46 28 33 30  29 2c 47 28 38 2c 35 29  |4 . F(30),G(8,5)|
000000e0  2c 4a 28 31 35 35 29 2c  52 28 38 2c 35 29 2c 50  |,J(155),R(8,5),P|
000000f0  28 38 2c 35 29 2c 4e 28  33 36 29 2c 4d 28 33 36  |(8,5),N(36),M(36|
00000100  29 0d 00 f0 06 20 db 0d  00 fa 04 0d 01 04 4d 20  |).... ........M |
00000110  f4 20 53 74 6f 72 65 20  74 68 65 20 66 69 72 73  |. Store the firs|
00000120  74 20 35 20 7a 65 72 6f  73 20 6f 66 20 4a 6e 28  |t 5 zeros of Jn(|
00000130  78 29 20 66 6f 72 20 6e  3d 30 2c 31 2c 32 2c 33  |x) for n=0,1,2,3|
00000140  2c 34 2c 35 20 69 6e 20  74 68 65 20 61 72 72 61  |,4,5 in the arra|
00000150  79 20 47 28 36 2c 35 29  0d 01 0e 30 20 dc 20 32  |y G(6,5)...0 . 2|
00000160  2e 34 30 34 38 33 2c 35  2e 35 32 30 30 38 2c 38  |.40483,5.52008,8|
00000170  2e 36 35 33 37 33 2c 31  31 2e 37 39 31 35 33 2c  |.65373,11.79153,|
00000180  31 34 2e 39 33 30 39 32  0d 01 18 31 20 dc 20 33  |14.93092...1 . 3|
00000190  2e 38 33 31 37 31 2c 37  2e 30 31 35 35 39 2c 31  |.83171,7.01559,1|
000001a0  30 2e 31 37 33 34 37 2c  31 33 2e 33 32 33 36 39  |0.17347,13.32369|
000001b0  2c 31 36 2e 34 37 30 36  33 0d 01 22 31 20 dc 20  |,16.47063.."1 . |
000001c0  35 2e 31 33 35 36 32 2c  38 2e 34 31 37 32 34 2c  |5.13562,8.41724,|
000001d0  31 31 2e 36 31 39 38 34  2c 31 34 2e 37 39 35 39  |11.61984,14.7959|
000001e0  35 2c 31 37 2e 39 35 39  38 32 0d 01 2c 31 20 dc  |5,17.95982..,1 .|
000001f0  20 36 2e 33 38 30 31 36  2c 39 2e 37 36 31 30 32  | 6.38016,9.76102|
00000200  2c 31 33 2e 30 31 35 32  30 2c 31 36 2e 32 32 33  |,13.01520,16.223|
00000210  34 37 2c 31 39 2e 34 30  39 34 32 0d 01 36 32 20  |47,19.40942..62 |
00000220  dc 20 37 2e 35 38 38 33  34 2c 31 31 2e 30 36 34  |. 7.58834,11.064|
00000230  37 31 2c 31 34 2e 33 37  32 35 34 2c 31 37 2e 36  |71,14.37254,17.6|
00000240  31 35 39 37 2c 32 30 2e  38 32 36 39 33 0d 01 40  |1597,20.82693..@|
00000250  32 20 dc 20 38 2e 37 37  31 34 38 2c 31 32 2e 33  |2 . 8.77148,12.3|
00000260  33 38 36 30 2c 31 35 2e  37 30 30 31 37 2c 31 38  |3860,15.70017,18|
00000270  2e 39 38 30 31 33 2c 32  32 2e 32 31 37 38 30 0d  |.98013,22.21780.|
00000280  01 4a 32 20 dc 20 39 2e  39 33 36 31 31 2c 31 33  |.J2 . 9.93611,13|
00000290  2e 35 38 39 32 39 2c 31  37 2e 30 30 33 38 32 2c  |.58929,17.00382,|
000002a0  32 30 2e 33 32 30 37 39  2c 32 33 2e 35 38 36 30  |20.32079,23.5860|
000002b0  38 0d 01 54 33 20 dc 20  31 31 2e 30 38 36 33 37  |8..T3 . 11.08637|
000002c0  2c 31 34 2e 38 32 31 32  37 2c 31 38 2e 32 38 37  |,14.82127,18.287|
000002d0  35 38 2c 32 31 2e 36 34  31 35 34 2c 32 34 2e 39  |58,21.64154,24.9|
000002e0  33 34 39 33 0d 01 5e 33  20 dc 20 31 32 2e 32 32  |3493..^3 . 12.22|
000002f0  35 30 39 2c 31 36 2e 30  33 37 37 37 2c 31 39 2e  |509,16.03777,19.|
00000300  35 35 34 35 34 2c 32 32  2e 39 34 35 31 37 2c 32  |55454,22.94517,2|
00000310  36 2e 32 36 36 38 31 0d  01 68 29 20 e3 20 4e 25  |6.26681..h) . N%|
00000320  3d 30 20 b8 20 38 3a e3  20 4d 25 3d 31 20 b8 20  |=0 . 8:. M%=1 . |
00000330  35 3a f3 20 47 28 4e 25  2c 4d 25 29 3a ed 3a ed  |5:. G(N%,M%):.:.|
00000340  0d 01 72 4e 20 dc 20 30  2c 31 2c 32 2c 30 2c 33  |..rN . 0,1,2,0,3|
00000350  2c 31 2c 34 2c 32 2c 30  2c 35 2c 33 2c 36 2c 31  |,1,4,2,0,5,3,6,1|
00000360  2c 34 2c 37 2c 32 2c 30  2c 38 2c 35 2c 33 2c 31  |,4,7,2,0,8,5,3,1|
00000370  2c 36 2c 34 2c 32 2c 37  2c 35 2c 38 2c 33 2c 36  |,6,4,2,7,5,8,3,6|
00000380  2c 34 2c 37 2c 35 2c 38  2c 36 2c 37 2c 38 0d 01  |,4,7,5,8,6,7,8..|
00000390  7c 4e 20 dc 20 31 2c 31  2c 31 2c 32 2c 31 2c 32  ||N . 1,1,1,2,1,2|
000003a0  2c 31 2c 32 2c 33 2c 31  2c 32 2c 31 2c 33 2c 32  |,1,2,3,1,2,1,3,2|
000003b0  2c 31 2c 33 2c 34 2c 31  2c 32 2c 33 2c 34 2c 32  |,1,3,4,1,2,3,4,2|
000003c0  2c 33 2c 34 2c 32 2c 33  2c 32 2c 34 2c 33 2c 34  |,3,4,2,3,2,4,3,4|
000003d0  2c 33 2c 34 2c 33 2c 34  2c 34 2c 34 0d 01 86 1a  |,3,4,3,4,4,4....|
000003e0  20 e3 20 4e 25 3d 31 20  b8 20 33 36 3a f3 20 4e  | . N%=1 . 36:. N|
000003f0  28 4e 25 29 3a ed 0d 01  90 1a 20 e3 20 4e 25 3d  |(N%):..... . N%=|
00000400  31 20 b8 20 33 36 3a f3  20 4d 28 4e 25 29 3a ed  |1 . 36:. M(N%):.|
00000410  0d 01 9a 47 20 e8 22 47  65 6e 65 72 61 74 65 20  |...G ."Generate |
00000420  6e 65 77 20 70 69 63 74  75 72 65 73 20 6f 72 20  |new pictures or |
00000430  61 6e 69 6d 61 74 65 20  65 78 69 73 74 69 6e 67  |animate existing|
00000440  20 70 69 63 74 75 72 65  73 20 28 47 20 6f 72 20  | pictures (G or |
00000450  41 29 20 3f 22 51 24 0d  01 a4 24 20 e7 20 51 24  |A) ?"Q$...$ . Q$|
00000460  3d 22 47 22 20 84 20 51  24 3d 22 67 22 20 8c 20  |="G" . Q$="g" . |
00000470  8d 74 6e 41 20 8b 20 8d  64 54 43 0d 01 ae 3a 20  |.tnA . .dTC...: |
00000480  e8 22 56 69 65 77 69 6e  67 20 41 6e 67 6c 65 20  |."Viewing Angle |
00000490  28 69 6e 20 64 65 67 72  65 65 73 20 66 72 6f 6d  |(in degrees from|
000004a0  20 74 68 65 20 68 6f 72  69 7a 6f 6e 74 61 6c 29  | the horizontal)|
000004b0  20 3f 22 54 48 0d 01 b8  15 20 e8 22 41 6d 70 6c  | ?"TH.... ."Ampl|
000004c0  69 74 75 64 65 20 3f 22  50 4b 0d 01 c2 06 20 db  |itude ?"PK.... .|
000004d0  0d 01 cc 0f 20 e3 20 4e  25 3d 30 20 b8 20 38 0d  |.... . N%=0 . 8.|
000004e0  01 d6 0f 20 e3 20 4d 25  3d 31 20 b8 20 34 0d 01  |... . M%=1 . 4..|
000004f0  e0 10 20 e3 20 54 25 3d  30 20 b8 20 37 37 0d 01  |.. . T%=0 . 77..|
00000500  ea 2a 20 78 3d 47 28 4e  25 2c 4d 25 29 2a 28 54  |.* x=G(N%,M%)*(T|
00000510  25 2f 37 37 2e 35 2d 31  29 3a 4a 28 54 25 29 3d  |%/77.5-1):J(T%)=|
00000520  a4 4a 28 78 2c 4e 25 29  0d 01 f4 06 20 ed 0d 01  |.J(x,N%).... ...|
00000530  fe 16 20 ff 22 2a 44 49  52 20 44 22 2b c3 4e 25  |.. ."*DIR D"+.N%|
00000540  2b c3 4d 25 0d 02 08 25  20 e3 20 54 3d 30 20 b8  |+.M%...% . T=0 .|
00000550  20 31 38 30 20 88 20 33  30 3a 4d 3d 28 50 4b 2d  | 180 . 30:M=(PK-|
00000560  35 2a 4d 25 29 2a 9b b2  54 0d 02 12 20 20 c8 9d  |5*M%)*..T...  ..|
00000570  c8 90 20 36 34 30 2c 35  31 32 2c 33 30 30 2c 33  |.. 640,512,300,3|
00000580  30 30 2a b5 b2 54 48 2c  30 0d 02 1c 07 20 e6 30  |00*..TH,0.... .0|
00000590  0d 02 26 0f 20 ec 20 31  30 34 30 2c 35 31 32 0d  |..&. . 1040,512.|
000005a0  02 30 3f 20 e3 20 50 25  3d 31 20 b8 20 4d 25 3a  |.0? . P%=1 . M%:|
000005b0  61 3d 33 30 30 2a 47 28  4e 25 2c 50 25 29 2f 47  |a=300*G(N%,P%)/G|
000005c0  28 4e 25 2c 4d 25 29 3a  ec 20 61 2b 36 34 30 2c  |(N%,M%):. a+640,|
000005d0  35 31 32 3a f2 45 4c 4c  49 50 53 45 3a ed 0d 02  |512:.ELLIPSE:...|
000005e0  3a 12 20 e7 20 4e 25 3d  30 20 8c 20 8d 44 4e 42  |:. . N%=0 . .DNB|
000005f0  0d 02 44 11 20 f2 52 41  44 49 41 4c 5a 45 52 4f  |..D. .RADIALZERO|
00000600  53 0d 02 4e 0b 20 f1 22  20 20 22 54 0d 02 58 26  |S..N. ."  "T..X&|
00000610  20 f1 20 8a 32 32 2c 34  30 29 22 6e 3d 22 3b 4e  | . .22,40)"n=";N|
00000620  25 3a f1 20 8a 32 32 2c  34 31 29 22 6d 3d 22 3b  |%:. .22,41)"m=";|
00000630  4d 25 0d 02 62 20 20 50  3d 28 2d 31 29 5e 4e 25  |M%..b  P=(-1)^N%|
00000640  3a 43 53 54 3d 9b b2 54  48 3a 53 4e 54 3d b5 b2  |:CST=..TH:SNT=..|
00000650  54 48 0d 02 6c 16 20 e3  20 50 48 3d 30 20 b8 20  |TH..l. . PH=0 . |
00000660  33 37 30 20 88 20 31 30  0d 02 76 1e 20 e3 20 50  |370 . 10..v. . P|
00000670  48 31 3d 50 48 2d 32 2e  35 20 b8 20 50 48 2b 32  |H1=PH-2.5 . PH+2|
00000680  2e 35 20 88 20 35 0d 02  80 18 20 43 53 50 3d 9b  |.5 . 5.... CSP=.|
00000690  b2 50 48 31 3a 53 4e 50  3d b5 b2 50 48 31 0d 02  |.PH1:SNP=..PH1..|
000006a0  8a 25 20 e7 20 28 50 48  31 2d 32 2e 35 29 20 83  |.% . (PH1-2.5) .|
000006b0  20 31 35 3d 30 20 8c 20  4c 3d 37 35 20 8b 20 4c  | 15=0 . L=75 . L|
000006c0  3d 36 35 0d 02 94 13 20  e3 20 54 25 3d 30 20 b8  |=65.... . T%=0 .|
000006d0  20 4c 20 88 20 34 0d 02  9e 1b 20 78 3d 47 28 4e  | L . 4.... x=G(N|
000006e0  25 2c 4d 25 29 2a 28 54  25 2f 37 37 2e 35 2d 31  |%,M%)*(T%/77.5-1|
000006f0  29 0d 02 a8 11 20 e7 20  4e 25 3d 30 20 8c 20 41  |).... . N%=0 . A|
00000700  3d 4d 0d 02 b2 28 20 e7  20 4e 25 3e 30 20 80 20  |=M...( . N%>0 . |
00000710  4e 25 20 83 20 32 20 3e  30 20 8c 20 41 3d 4d 2a  |N% . 2 >0 . A=M*|
00000720  9b 28 4e 25 2a b2 50 48  31 29 0d 02 bc 28 20 e7  |.(N%*.PH1)...( .|
00000730  20 4e 25 3e 30 20 80 20  4e 25 20 83 20 32 20 3d  | N%>0 . N% . 2 =|
00000740  30 20 8c 20 41 3d 4d 2a  b5 28 4e 25 2a b2 50 48  |0 . A=M*.(N%*.PH|
00000750  31 29 0d 02 c6 1f 20 58  3d 78 2a 33 30 30 2f 47  |1).... X=x*300/G|
00000760  28 4e 25 2c 4d 25 29 3a  59 3d 41 2a 4a 28 54 25  |(N%,M%):Y=A*J(T%|
00000770  29 0d 02 d0 20 20 58 31  3d 58 2a 43 53 50 3a 59  |)...  X1=X*CSP:Y|
00000780  31 3d 59 2a 43 53 54 2d  58 2a 53 4e 50 2a 53 4e  |1=Y*CST-X*SNP*SN|
00000790  54 0d 02 da 30 20 e7 20  54 25 3d 30 20 8c 20 ec  |T...0 . T%=0 . .|
000007a0  20 36 34 30 2b 58 31 2c  35 31 32 2b 59 31 3a 8b  | 640+X1,512+Y1:.|
000007b0  20 f0 35 2c 36 34 30 2b  58 31 2c 35 31 32 2b 59  | .5,640+X1,512+Y|
000007c0  31 0d 02 e4 06 20 ed 0d  02 ee 06 20 ed 0d 02 f8  |1.... ..... ....|
000007d0  06 20 ed 0d 03 02 16 20  e3 20 54 25 3d 35 20 b8  |. ..... . T%=5 .|
000007e0  20 37 37 2e 35 20 88 20  35 0d 03 0c 15 20 e3 20  | 77.5 . 5.... . |
000007f0  50 48 3d 30 20 b8 20 33  36 30 20 88 20 35 0d 03  |PH=0 . 360 . 5..|
00000800  16 16 20 43 53 50 3d 9b  b2 50 48 3a 53 4e 50 3d  |.. CSP=..PH:SNP=|
00000810  b5 b2 50 48 0d 03 20 1b  20 78 3d 47 28 4e 25 2c  |..PH.. . x=G(N%,|
00000820  4d 25 29 2a 28 54 25 2f  37 37 2e 35 2d 31 29 0d  |M%)*(T%/77.5-1).|
00000830  03 2a 11 20 e7 20 4e 25  3d 30 20 8c 20 41 3d 4d  |.*. . N%=0 . A=M|
00000840  0d 03 34 27 20 e7 20 4e  25 3e 30 20 80 20 4e 25  |..4' . N%>0 . N%|
00000850  20 83 20 32 20 3e 30 20  8c 20 41 3d 4d 2a 9b 28  | . 2 >0 . A=M*.(|
00000860  4e 25 2a b2 50 48 29 0d  03 3e 27 20 e7 20 4e 25  |N%*.PH)..>' . N%|
00000870  3e 30 20 80 20 4e 25 20  83 20 32 20 3d 30 20 8c  |>0 . N% . 2 =0 .|
00000880  20 41 3d 4d 2a b5 28 4e  25 2a b2 50 48 29 0d 03  | A=M*.(N%*.PH)..|
00000890  48 1f 20 58 3d 78 2a 33  30 30 2f 47 28 4e 25 2c  |H. X=x*300/G(N%,|
000008a0  4d 25 29 3a 59 3d 41 2a  4a 28 54 25 29 0d 03 52  |M%):Y=A*J(T%)..R|
000008b0  20 20 58 31 3d 58 2a 43  53 50 3a 59 31 3d 59 2a  |  X1=X*CSP:Y1=Y*|
000008c0  43 53 54 2d 58 2a 53 4e  50 2a 53 4e 54 0d 03 5c  |CST-X*SNP*SNT..\|
000008d0  30 20 e7 20 50 48 3d 30  20 8c 20 ec 20 36 34 30  |0 . PH=0 . . 640|
000008e0  2b 58 31 2c 35 31 32 2b  59 31 3a 8b 20 f0 35 2c  |+X1,512+Y1:. .5,|
000008f0  36 34 30 2b 58 31 2c 35  31 32 2b 59 31 0d 03 66  |640+X1,512+Y1..f|
00000900  06 20 ed 0d 03 70 06 20  ed 0d 03 7a 12 20 e7 20  |. ...p. ...z. . |
00000910  4e 25 3d 30 20 8c 20 8d  74 4e 43 0d 03 84 11 20  |N%=0 . .tNC.... |
00000920  f2 52 41 44 49 41 4c 5a  45 52 4f 53 0d 03 8e 16  |.RADIALZEROS....|
00000930  20 ff 22 2a 53 43 52 45  45 4e 53 41 2e 54 22 2b  | ."*SCREENSA.T"+|
00000940  c3 54 0d 03 98 07 20 e6  31 0d 03 a2 06 20 db 0d  |.T.... .1.... ..|
00000950  03 ac 06 20 ed 0d 03 b6  0a 20 2a 42 41 43 4b 0d  |... ..... *BACK.|
00000960  03 c0 06 20 ed 0d 03 ca  06 20 ed 0d 03 d4 10 20  |... ..... ..... |
00000970  db 3a 4e 25 3d 30 3a 4d  25 3d 31 0d 03 de 0c 20  |.:N%=0:M%=1.... |
00000980  51 3d 31 32 32 38 38 0d  03 e3 0f 20 c8 91 20 33  |Q=12288.... .. 3|
00000990  30 30 2c 32 35 30 0d 03  e8 0d 20 2a 44 49 52 20  |00,250.... *DIR |
000009a0  44 30 31 0d 03 f2 37 20  e3 20 4b 25 3d 30 20 b8  |D01...7 . K%=0 .|
000009b0  20 38 3a e3 20 4c 25 3d  31 20 b8 20 35 3a 52 28  | 8:. L%=1 . 5:R(|
000009c0  4b 25 2c 4c 25 29 3d 47  28 4b 25 2c 4c 25 29 2f  |K%,L%)=G(K%,L%)/|
000009d0  47 28 30 2c 31 29 3a ed  3a ed 0d 03 fc 39 20 e3  |G(0,1):.:....9 .|
000009e0  20 55 25 3d 30 20 b8 20  38 3a e3 20 56 25 3d 31  | U%=0 . 8:. V%=1|
000009f0  20 b8 20 35 3a 50 28 55  25 2c 56 25 29 3d 34 30  | . 5:P(U%,V%)=40|
00000a00  39 36 2a ab 52 28 55 25  2c 56 25 29 2f ab 32 3a  |96*.R(U%,V%)/.2:|
00000a10  ed 3a ed 0d 04 06 15 20  e3 20 54 3d 30 20 b8 20  |.:..... . T=0 . |
00000a20  31 35 30 20 88 20 33 30  0d 04 10 16 20 ff 28 22  |150 . 30.... .("|
00000a30  53 4c 4f 41 44 20 54 22  2b c3 28 54 29 29 0d 04  |SLOAD T"+.(T))..|
00000a40  13 1c 20 ff 28 22 53 43  48 4f 4f 53 45 20 53 43  |.. .("SCHOOSE SC|
00000a50  52 45 45 4e 44 55 4d 50  22 29 0d 04 16 0e 20 f0  |REENDUMP").... .|
00000a60  20 26 45 44 2c 30 2c 30  0d 04 18 05 20 0d 04 1a  | &ED,0,0.... ...|
00000a70  0c 20 58 24 3d bf 28 34  29 0d 04 24 0a 20 f2 4d  |. X$=.(4)..$. .M|
00000a80  4f 44 45 0d 04 2e 13 20  e7 20 58 24 3d 22 22 20  |ODE.... . X$="" |
00000a90  8c 20 8d 44 4c 44 0d 04  38 0a 20 2a 42 41 43 4b  |. .DLD..8. *BACK|
00000aa0  0d 04 42 16 20 ff 22 2a  44 49 52 20 44 22 2b c3  |..B. ."*DIR D"+.|
00000ab0  4e 25 2b c3 4d 25 0d 04  4c 06 20 ed 0d 04 56 07  |N%+.M%..L. ...V.|
00000ac0  20 f2 53 0d 04 60 17 20  e3 20 54 3d 31 38 30 20  | .S..`. . T=180 |
00000ad0  b8 20 33 30 20 88 20 2d  33 30 0d 04 6a 16 20 ff  |. 30 . -30..j. .|
00000ae0  28 22 53 4c 4f 41 44 20  54 22 2b c3 28 54 29 29  |("SLOAD T"+.(T))|
00000af0  0d 04 6d 1c 20 ff 28 22  53 43 48 4f 4f 53 45 20  |..m. .("SCHOOSE |
00000b00  53 43 52 45 45 4e 44 55  4d 50 22 29 0d 04 70 0e  |SCREENDUMP")..p.|
00000b10  20 f0 20 26 45 44 2c 30  2c 30 0d 04 72 05 20 0d  | . &ED,0,0..r. .|
00000b20  04 73 0c 20 58 24 3d bf  28 34 29 0d 04 74 06 20  |.s. X$=.(4)..t. |
00000b30  ed 0d 04 7e 07 20 f2 53  0d 04 88 0b 20 e5 20 8d  |...~. .S.... . .|
00000b40  54 46 44 0d 04 92 04 0d  04 9c 74 dd a4 4a 28 58  |TFD.......t..J(X|
00000b50  2c 4e 25 29 3a 46 28 32  35 29 3d 30 3a 46 28 32  |,N%):F(25)=0:F(2|
00000b60  34 29 3d 31 2e 35 45 2d  33 39 3a e3 4e 3d 32 33  |4)=1.5E-39:.N=23|
00000b70  b8 30 88 2d 31 3a 46 28  4e 29 3d 32 2a 28 4e 2b  |.0.-1:F(N)=2*(N+|
00000b80  31 29 2a 46 28 4e 2b 31  29 2f 58 2d 46 28 4e 2b  |1)*F(N+1)/X-F(N+|
00000b90  32 29 3a ed 3a 53 3d 46  28 30 29 3a e3 20 4e 3d  |2):.:S=F(0):. N=|
00000ba0  32 b8 32 35 88 32 3a 53  2b 3d 32 2a 46 28 4e 29  |2.25.2:S+=2*F(N)|
00000bb0  3a ed 3a 3d 46 28 4e 25  29 2f 53 0d 04 a6 04 0d  |:.:=F(N%)/S.....|
00000bc0  04 b0 58 20 dd 20 f2 45  4c 4c 49 50 53 45 3a e3  |..X . .ELLIPSE:.|
00000bd0  20 50 53 3d 30 20 b8 20  33 36 30 20 88 20 33 3a  | PS=0 . 360 . 3:|
00000be0  70 3d 61 2a 9b b2 50 53  3a 71 3d 61 2a b5 b2 50  |p=a*..PS:q=a*..P|
00000bf0  53 2a b5 b2 54 48 3a ec  20 70 2b 36 34 30 2c 71  |S*..TH:. p+640,q|
00000c00  2b 35 31 32 3a f0 35 2c  70 2b 36 34 30 2c 71 2b  |+512:.5,p+640,q+|
00000c10  35 31 32 3a ed 3a e1 0d  04 ce 04 0d 04 d8 23 20  |512:.:........# |
00000c20  dd 20 f2 53 3a d4 20 31  2c 2d 32 2c 50 28 4e 25  |. .S:. 1,-2,P(N%|
00000c30  2c 4d 25 29 2b 51 2c 33  32 37 36 37 3a e1 0d 04  |,M%)+Q,32767:...|
00000c40  e2 04 0d 04 ec 77 20 dd  20 f2 52 41 44 49 41 4c  |.....w . .RADIAL|
00000c50  5a 45 52 4f 53 3a e3 20  52 3d 30 20 b8 20 31 38  |ZEROS:. R=0 . 18|
00000c60  30 2d 31 38 30 2f 4e 25  2b 31 20 88 20 31 38 30  |0-180/N%+1 . 180|
00000c70  2f 4e 25 3a ec 20 33 30  30 2a b5 b2 52 2b 36 34  |/N%:. 300*..R+64|
00000c80  30 2c 33 30 30 2a 9b b2  52 2a b5 b2 54 48 2b 35  |0,300*..R*..TH+5|
00000c90  31 32 3a f0 32 31 2c 2d  33 30 30 2a b5 b2 52 2b  |12:.21,-300*..R+|
00000ca0  36 34 30 2c 2d 33 30 30  2a 9b b2 52 2a b5 b2 54  |640,-300*..R*..T|
00000cb0  48 2b 35 31 32 3a ed 3a  e1 0d 04 f6 04 0d 05 00  |H+512:.:........|
00000cc0  0c 20 dd 20 f2 4d 4f 44  45 0d 05 0a 14 20 e7 20  |. . .MODE.... . |
00000cd0  58 24 3d 22 61 22 20 8c  20 4d 25 3d 31 0d 05 14  |X$="a" . M%=1...|
00000ce0  14 20 e7 20 58 24 3d 22  62 22 20 8c 20 4d 25 3d  |. . X$="b" . M%=|
00000cf0  32 0d 05 1e 14 20 e7 20  58 24 3d 22 63 22 20 8c  |2.... . X$="c" .|
00000d00  20 4d 25 3d 33 0d 05 28  14 20 e7 20 58 24 3d 22  | M%=3..(. . X$="|
00000d10  64 22 20 8c 20 4d 25 3d  34 0d 05 32 16 20 e7 20  |d" . M%=4..2. . |
00000d20  58 24 3d 22 41 22 20 8c  20 51 3d 34 30 39 36 0d  |X$="A" . Q=4096.|
00000d30  05 3c 16 20 e7 20 58 24  3d 22 42 22 20 8c 20 51  |.<. . X$="B" . Q|
00000d40  3d 38 31 39 32 0d 05 46  17 20 e7 20 58 24 3d 22  |=8192..F. . X$="|
00000d50  43 22 20 8c 20 51 3d 31  32 32 38 38 0d 05 50 17  |C" . Q=12288..P.|
00000d60  20 e7 20 58 24 3d 22 44  22 20 8c 20 51 3d 31 36  | . X$="D" . Q=16|
00000d70  33 38 34 0d 05 5a 17 20  e7 20 58 24 3d 22 45 22  |384..Z. . X$="E"|
00000d80  20 8c 20 51 3d 32 30 34  38 30 0d 05 64 14 20 e7  | . Q=20480..d. .|
00000d90  20 58 24 3d 22 30 22 20  8c 20 4e 25 3d 30 0d 05  | X$="0" . N%=0..|
00000da0  6e 14 20 e7 20 58 24 3d  22 31 22 20 8c 20 4e 25  |n. . X$="1" . N%|
00000db0  3d 31 0d 05 78 14 20 e7  20 58 24 3d 22 32 22 20  |=1..x. . X$="2" |
00000dc0  8c 20 4e 25 3d 32 0d 05  82 14 20 e7 20 58 24 3d  |. N%=2.... . X$=|
00000dd0  22 33 22 20 8c 20 4e 25  3d 33 0d 05 8c 14 20 e7  |"3" . N%=3.... .|
00000de0  20 58 24 3d 22 34 22 20  8c 20 4e 25 3d 34 0d 05  | X$="4" . N%=4..|
00000df0  96 14 20 e7 20 58 24 3d  22 35 22 20 8c 20 4e 25  |.. . X$="5" . N%|
00000e00  3d 35 0d 05 a0 14 20 e7  20 58 24 3d 22 36 22 20  |=5.... . X$="6" |
00000e10  8c 20 4e 25 3d 36 0d 05  aa 14 20 e7 20 58 24 3d  |. N%=6.... . X$=|
00000e20  22 37 22 20 8c 20 4e 25  3d 37 0d 05 b4 14 20 e7  |"7" . N%=7.... .|
00000e30  20 58 24 3d 22 38 22 20  8c 20 4e 25 3d 38 0d 05  | X$="8" . N%=8..|
00000e40  be 13 20 e7 20 58 24 3d  22 53 22 20 8c 20 d4 20  |.. . X$="S" . . |
00000e50  ee 0d 05 c8 13 20 e7 20  58 24 3d 22 51 22 20 8c  |..... . X$="Q" .|
00000e60  20 d4 20 87 0d 07 9e 16  20 e7 20 58 24 3d 22 4e  | . ..... . X$="N|
00000e70  22 20 8c 20 f2 4e 4f 54  45 53 0d 07 a8 1c 20 e7  |" . .NOTES.... .|
00000e80  20 58 24 3d 22 4f 22 20  8c 20 2a 53 50 45 41 4b  | X$="O" . *SPEAK|
00000e90  45 52 20 4f 46 46 0d 07  b2 1b 20 e7 20 58 24 3d  |ER OFF.... . X$=|
00000ea0  22 49 22 20 8c 20 2a 53  50 45 41 4b 45 52 20 4f  |"I" . *SPEAKER O|
00000eb0  4e 0d 07 bc 06 20 e1 0d  07 c6 0d 20 dd 20 f2 45  |N.... ..... . .E|
00000ec0  52 52 4f 52 0d 07 d0 06  20 f6 0d 07 da 09 20 2a  |RROR.... ..... *|
00000ed0  46 58 34 0d 07 e4 0a 20  2a 42 41 43 4b 0d 07 ee  |FX4.... *BACK...|
00000ee0  06 20 e0 0d 07 f8 06 20  e1 0d 08 02 0d 20 dd 20  |. ..... ..... . |
00000ef0  f2 4e 4f 54 45 53 0d 08  0c 0c 20 ea 20 4e 25 2c  |.NOTES.... . N%,|
00000f00  4d 25 0d 08 16 10 20 e3  20 53 25 3d 31 20 b8 20  |M%.... . S%=1 . |
00000f10  33 36 0d 08 20 16 20 4d  25 3d 4d 28 53 25 29 3a  |36.. . M%=M(S%):|
00000f20  4e 25 3d 4e 28 53 25 29  0d 08 2a 05 20 0d 08 34  |N%=N(S%)..*. ..4|
00000f30  0a 20 2a 42 41 43 4b 0d  08 3e 1a 20 ff 22 2a 44  |. *BACK..>. ."*D|
00000f40  49 52 20 44 22 2b c3 28  4e 25 29 2b c3 28 4d 25  |IR D"+.(N%)+.(M%|
00000f50  29 0d 08 48 12 20 ff 28  22 53 4c 4f 41 44 20 54  |)..H. .("SLOAD T|
00000f60  30 22 29 0d 08 4b 1c 20  ff 28 22 53 43 48 4f 4f  |0")..K. .("SCHOO|
00000f70  53 45 20 53 43 52 45 45  4e 44 55 4d 50 22 29 0d  |SE SCREENDUMP").|
00000f80  08 4e 0e 20 f0 20 26 45  44 2c 30 2c 30 0d 08 50  |.N. . &ED,0,0..P|
00000f90  07 20 c8 96 0d 08 51 0d  20 41 24 3d bf 28 31 30  |. ....Q. A$=.(10|
00000fa0  29 0d 08 52 1a 20 d4 20  31 2c 2d 32 2c 50 28 4e  |)..R. . 1,-2,P(N|
00000fb0  25 2c 4d 25 29 2b 51 2c  31 30 30 0d 08 5c 1d 20  |%,M%)+Q,100..\. |
00000fc0  e3 20 54 3d 31 20 b8 20  32 30 30 30 30 3a 58 3d  |. T=1 . 20000:X=|
00000fd0  b5 28 af 2f 34 29 3a ed  0d 08 70 09 20 41 24 3d  |.(./4):...p. A$=|
00000fe0  be 0d 08 7a 15 20 e7 20  41 24 3d 22 2d 22 20 8c  |...z. . A$="-" .|
00000ff0  20 53 25 2d 3d 32 0d 08  7f 12 20 e7 20 53 25 3c  | S%-=2.... . S%<|
00001000  30 20 8c 20 8d 74 58 48  0d 08 84 06 20 ed 0d 08  |0 . .tXH.... ...|
00001010  8e 06 20 db 0d 08 98 06  20 e1 0d ff              |.. ..... ...|
0000101c