GJBMaT  
FORMAT 20.9 v2>Dn=V  
GETSYSTEMDATA 1 V|;os  
Nbc1=VEC1(1) ?'OL2~  
Nbc2=VEC1(4) +4k4z:<n  
Nbc3=VEC1(5) Fz]!2rt  
Nbc4=VEC1(6) zzX9Q
:  
Nbc5=VEC1(7) }vW3<|z  
Nbc6=VEC1(8) c`#4}$  
Nbc7=VEC1(9) Bs<LJzS{V  
Nbc8=VEC1(10) f/i[? gw  
Nbc9=VEC1(11) FNXVd/{M3  
Nbc10=VEC1(12) uJJP<mDgA  
Nbc11=VEC1(13) *35o$P4
6  
Nbc12=VEC1(14) Bh6lK}9
  
Nbc13=VEC1(15) 5pq9x4&  
Nbc14=VEC1(16) ;Y$d!an0  
Nbc15=VEC1(17) }ct*<zj[~u  
Nbc16=VEC1(18) p5bM/{DP;K  
>soSOJ[   
!////////////////////////////////////////////////////// !jN$U%/,%.  
TA+/35^?  

>fgV!o4  
.Mzrj{^Y  
%?z;'Y7D  
n=nsur() }Q
{4G  
RH;Kbu  
QtfLJ5vi  
PARAXIAL ON z9^_5la#  
RAYTRACE 0,0,0,1 +fq;o8q  
R=RAYM(n)/RAYN(n) &fifOF#[e  
ld=-1*RAYY(n-1)/R s;:quM  
ld$=$STR(ld) 6X$iTJ[\x  
N{fYO4O  

cONfHl{  
l78:.  
PARAXIAL OFF Ijs=4f  
RAYTRACE 0,0,0,1 Jry643K>:;  
r_1h=RAYM(n)/RAYN(n) 9S)A6]  
ld_1h=-1*RAYY(n-1)/r_1h _2Fa.gi  
ld_1h$=$STR(ld_1h) 90+Hv:wF  
 %l)~C%T  
z';h5GNd>z  
PARAXIAL OFF Ji:0J},m  
RAYTRACE 0,0,0,0.7 Z/I`XPmk  
r_0.7h=RAYM(n)/RAYN(n) ^s?i&K,!  
ld_0.7h=-1*RAYY(n-1)/r_0.7h c]:@y"W5$  
ld_0.7h$=$STR(ld_0.7h) 3hNb ?  
(OHd}