--shoulder.prg
--program for loading a symbol of a cap head shoulder screw and scale it
prompt 'Enter Shoulder Length > ' len rea def 0
if (len .eq. 0) then
write "*** Head Only Selected ***"
endif
let sel = 1                                          
loop select
 if (len .le. (lens[@vsel])) then
 break select                    
 else                            
 let sel = (sel+1)               
 endif                           
endloop select
LET b1 = ((lens[@vsel])+(c1))
LET b2 = ((lens[@vsel]))
WRITE ''
WRITE 'Shoulder length selected = @vb2'
WRITE ''
if (len .le. 0 ) then
let a1 = 0
let b1 = 0
let c1 = 0
let f1 = 0
endif
prompt 'probe posn' pos chr
autcp
let pos = @vprobu$
parloa (sym$)
arg X = @vpos
arg A = @va1
arg B = @vb1
arg C = @vc1
arg D = @vd1
arg E = @ve1
arg F = @vf1
arg G = @vg1
cal
endrun