*HOME
  IF   HPT(XIN0)==1 THEN  : RMVS   X_A 5000 : END_IF  
  IF   HPT(YIN0)==1 THEN  : RMVS   Y_A 5000 : END_IF  
  IF   HPT(ZIN0)==1 THEN  : RMVS   Z_A -5000 : END_IF 
WAIT   RR(ALL_A)==0
  SHOM   X_A|Z_A|Y_A IN0_ON
  HOME   -100000 -100000 0 100000
  WAIT   RR(ALL_A)==0