&ACCESS RV
DEF Initmove ( )
CONTINUE
IF ($T1 OR $T2) AND NOT $NEAR_POSRET THEN
    CONTINUE
    GLOBAL INTERRUPT DECL 3 WHEN $STOPMESS==TRUE DO IR_STOPM ( )
    INTERRUPT ON 3 
    BAS (#INITMOV,0 )
    CONTINUE
    PTP $POS_ACT C_DIS
  ENDIF
END