no 40 I=2»N 



RAO=OTh*B(I) 



V = R( I )*D*S1 NFf-RAOl 



XeR(I)*T*CDSF(RAD) ♦ Y 



IU0=3 



CALL PLOTCX, r, lUD) 



AY=P(I) + Y + 1 .06 



? IS NOT ADDED Sn TpP SYMBOL l^lLL BF THE REFErtENCF IN .09 SYmBDL 



CALL PL0TCx,AY,2^ 



CALL SYMBOL(X,AY,0.08>2»0.0.-2) 



CALL PlOT(X»4V,35 

 to CALL PLOTCX, Y.?) 



IFCSENSE LIGHT 1 ) a i , fl ? 

 42 CALL PLOTC-4. 0,7, 0,-3) 



SENSE LIGHT 1 



GO TO 50 

 At CALL PL0T(4, 0,-14.0,-3) 

 50 RETUKn 



END(0» 1, 1»0, n 

 END 



B-16 



