D:()BTC U/W-FOCAL:FILNAM15.10.78?MB+RJT !"FILE NAME
 ";F I=14,-1,1;S C(I)=-	??MCGRTI (255-C=FIN()),.3;I (	 -C),.4;S C(I=I+1)=-C;G .2?M?C R^S C(I)=-	?,I=I-FSGN(I);I (C).2,,.2+FOUT(92)?MDSR(O I (C(1))(C(2))(C(3))(C(4))(C(5))(C(6))(C(7))(C(8))(C(9))(C(10))(C(11))(C(12))(C(13))(C(14)) .1?MD%R2O I,E;I (C(1)+	?)
6,,.6;T !;R?MR<T %4 :30 F
BLK
()"  "F
LEN
(1);G .1?M?1?L D FILNAM;L S FILNAM;E?M?*PI*NU)?M?E$CFS B0=R2+R4,D0=B0+R6,E0=R4+R6;I (PN-3)4.1?MFECPS P=1, Q=-A1/R6, R=A2*D0/(B0*R6^2), S=-A3*D0*E0/(B0*

Note: Lines longer than 256 characters were wrapped