2H Y = ZL[)GW( I )-BE 

 22 CALL PLOKX^Y.?) 



CALL SYMBOL(X,Y,0.1'1HS»0.0.1) 



IF (SENSE LIGHT 1 )40»30 

 30 CALL PLOT (-2.0»<?,0,-3) 



SENSE LIGHT 1 



00 TO 50 

 40 CALL PLOT (6.0/-12.0»-3) 

 50 RETURN 



ENOCOM»l»n»0) 



ENO 



B-13 



