--cap.prg
--program for loading a symbol of a cap head screw and scale it

prompt 'Enter Length Under Head > ' 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])
WRITE 'Thread length selected = @vb1'
let c1 = (thd[@vsel])
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
cal
endrun