--brg_housing.mac
--wrap around fot the bearing fit program housing flavour
--housing.mac
@e-echoff
let flav = 'h'
mxe search (mac$2d;'fit.prg') as prog
if ( typeof(prog) .eq. "UNSET" ) then
 write "couldn't find fit.prg in @vmac$2d"
 macro -end
endif
mxe search (mac$2d;'brg_fits.mac') as macro
if ( typeof(macro) .eq. "UNSET" ) then
 	write "couldn't find brg_fits.mac in @vmac$2d"
	macro -end
endif
write ''
prompt ' enter required fit (p(ress), t(ransition) or s(liding) <press>' gra chr  def 'p'
let gra= (left(gra;1))
if ((gra .eq. 'p').or.(gra .eq. 't').or.(gra .eq. 's')) then
let txt = ''
macro (macro)
run (prog)
else
write 'entry MUST be "p" "t" or "s"'
endif
bacis
--