HPT(XIN1)
*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