%
(CLS,F/MP1)
N10 ;       
N12 ;       
N14 (D IS,"   29=???")   
N16 M00       
N18 (D IS,E29)      
N20 (DL Y,2)      
N22 ;       
N24 (D IS,"  1=")    
N26 M00       
N28 (D IS,E1)      
N30 (DL Y,2)      
N32 ;       
N34 (D IS," 30=")     
N36 (DL Y,1)      
N38 (D IS,E30)      
N40 (DL Y,2)      
N42 ;       
N44 (D IS," E31=")     
N46 (DL Y,1)      
N48 (D IS,E31)      
N50 (DL Y,2)      
N52 E50=-E30       
N54 E51=-E31       
N56 E61=E31+3       
N58 E70=E30+10       
N60 E80=-E70       
N62 E71=E31+10       
N64 E81=E71*E1       
N66 E83=-E81       
N68 ;       
N70 (D IS," ")     
N72 M00       
N74 ;       
N76 (URT,E29)       
N78 (UC G,2, YE80 YE70, XE83 XE81)  
N80 G91       
N82 M04       
N84 G41 G1 X3 Y3    
N86 G1 G91 YE30       
N88 G1 G91 XE31       
N90 G1 G91 YE50       
N92 G1 G91 XE51       
N94 G40       
N96 G91 G0       
N98 G0
N100 M03       
N102 ;       
N104 G0 XE61 Y-3      
N106 G0       
N108 M30       
