checkcord3

o<check_cord3>  sub

(not_a_subfile)

; Assign number to valid coordinate system for use with g code commands such as G10
; edit Sept. 2013

#<Main_cord>      = #1
#<Temp_cord>      = #2

o<c550>	if [#<Temp_cord> EQ 54]
	#<_t:cord> = 1
o<c550>   endif

o<c551>	if [#<Temp_cord> EQ 55]
	#<_t:cord> = 2
o<c551>   endif

o<c552>	if [#<Temp_cord> EQ 56]
	#<_t:cord> = 3
o<c552>   endif

o<c553>	if [#<Temp_cord> EQ 57]
	#<_t:cord> = 4
o<c553>   endif

o<c554>	if [#<Temp_cord> EQ 58]
	#<_t:cord> = 5
o<c554>   endif

o<c555>	if [#<Temp_cord> EQ 59]
	#<_t:cord> = 6
o<c555>   endif

o<c556>	if [#<Temp_cord> EQ 59.1]
	#<_t:cord> = 7
o<c556>   endif

o<c557>	if [#<Temp_cord> EQ 59.2]
	#<_t:cord> = 8
o<c557>   endif

o<c558>	if [#<Temp_cord> EQ 59.3]
	#<_t:cord> = 9
o<c558>   endif


o<b550>	if [#<Main_cord> EQ 54]
	#<_m:cord> = 1
o<b550>   endif

o<b551>	if [#<Main_cord> EQ 55]
	#<_m:cord> = 2
o<b551>   endif

o<b552>	if [#<Main_cord> EQ 56]
	#<_m:cord> = 3
o<b552>   endif

o<b553>	if [#<Main_cord> EQ 57]
	#<_m:cord> = 4
o<b553>   endif

o<b554>	if [#<Main_cord> EQ 58]
	#<_m:cord> = 5
o<b554>   endif

o<b555>	if [#<Main_cord> EQ 59]
	#<_m:cord> = 6
o<b555>   endif

o<b556>	if [#<Main_cord> EQ 59.1]
	#<_m:cord> = 7
o<b556>   endif

o<b557>	if [#<Main_cord> EQ 59.2]
	#<_m:cord> = 8
o<b557>   endif

o<b558>	if [#<Main_cord> EQ 59.3]
	#<_m:cord> = 9
o<b558>   endif

o<check_cord3>  endsub