@e-echoff

 begm screw
defm pos '0'                                 
defm a1  '0'
defm  b1   '0'
defm  c1  '0'
defm  d1  '0'
defm  e1  '0'
defm  f1  '0'
defm  g1  '0'
defm siz$ 'unset'
write ''
prompt 'Standard socket cap screw ? <Y>' cap chr1 def 'Y'
	write ''
	if ((upcase(cap)) .eq. 'Y') then 
	  prompt 'Enter Thread Size >M '  a1 rea 
	  mxe search (mac$2d;'m@va1.mac') as siz$
	 if ( typeof(siz$) .eq. "UNSET" ) then                     
	      write "No data for this size (M@va1). Only common thread sizes up to M12 are supported" 
	      endm screw  
	      macro -end
	    endif                                       
	  mxe search (mac$2d;'cap.prg') as screw$
	  mxe search (sym$2d;'cap.sym') as sym$
	else 
	  prompt 'Enter Shoulder dia > '  a1 rea 
	   mxe search (mac$2d;'s@va1.mac') as siz$
	    if ( typeof(siz$) .eq. "UNSET" ) then  
	      write "Only Shoulder diameters of 8mm, 10mm, 12mm, & 16mm  are supported" 
	      
	      endm screw  
	       macro -end 
		   endif
	 mxe search (mac$2d;'shoulder.prg') as screw$
	 mxe search (sym$2d;'shol.sym') as sym$
	 endif                                        
macro (siz$)
run (screw$)
--write ' back in the macro'
endm screw
quit