[KQ#b  
FORMAT 20.9 bG)EZ  
GETSYSTEMDATA 1 <-6f}wN  
Nbc1=VEC1(1) $E/N  
Nbc2=VEC1(4) m!5MGq~  
Nbc3=VEC1(5) zMke}2  
Nbc4=VEC1(6) V15/~  
Nbc5=VEC1(7) ^'%Q>FVb  
Nbc6=VEC1(8) ?K\r-J!Y  
Nbc7=VEC1(9) ~6A;
H$dr  
Nbc8=VEC1(10) n'To:  
Nbc9=VEC1(11) e0<Wed  
Nbc10=VEC1(12) Qz4eQlWhp  
Nbc11=VEC1(13) jl>jy6T  
Nbc12=VEC1(14) xX?9e3(  
Nbc13=VEC1(15) Spu> ac  
Nbc14=VEC1(16) enGZb&  
Nbc15=VEC1(17) IG.!M@_  
Nbc16=VEC1(18) .],:pL9d  
vA"LV+@  
!////////////////////////////////////////////////////// +H:}1sT;n  
QE|x[?7e,!  
A]laS7Q  
}<q
ZXb1  
0.\}D:x(z  
n=nsur() ]GT+UX  
I`77[  
 :yw8_D3  
PARAXIAL ON G#Kw6
 
RAYTRACE 0,0,0,1 cOf.z)kf6  
R=RAYM(n)/RAYN(n) wg+[T;0