--ballrace.MAC
--
--Parloa a ballrace symbol
echoff	

errpau off
errmes off
endm ball
errmes on
begm ball
defm pos '0'
defm typ '6000'
let balt = '607 608 609 6100 6001 6002 6003 6004 6005 6006 6007 6008 6009 6010 6200 6201 6202 6203 6204 6205 6206 6207 6208 6209 6210 6300 6301 6302 6303 6304 6305 6306 6307 6308 6309 6310' -- set up a searchable string 
prompt'Main axis horizontal (else vertical)<Y>' axs chr 1 def 'Y'
if ((upcase(axs)) .eq. 'Y') then
let symb = '1'
else
let symb = '2'
endif
	mxe search (sym$2d;'ball@vsymb.sym') as sym$
	    if ( typeof(prg$) .eq. "UNSET" ) then                     
	 	      write "Problem accessing ball@vsymb.sym please consult Mike Nelson" 
	 	      macro -end
	    endif
prompt 'Enter the bearing type  (e.g. 6200)<6000>' typ chr 4 def '6000'
-- check the input against the available types
let tes = (index((balt);(typ)))

if (tes .ne. 0) then -- the bearing type exists in the table.
	prompt 'probe posn   ' pos chr
	autcp
	let pos = @vprobu$
	parloa @vsym$ 
	arg g = @vpos 
	arg type = "@vtyp" 
	cal
else
	write ''
	write 'The size asked for (@vtyp) is not available'
endif
endm ball
@e-errpau on
@e-quit