INTA_ON VOID PG 0 PG 0 1 PG 0 3 ACCEL 5000 CLRPOS CLRPOS -1 INSET X_A CMP_PLS DET_P=500 STOP X_A C_MORE RANGE X_A DET_P 0 PG 0 FORK 1 *MPG FORK 3 *MPG2 END *MPG2 DO INTA_ON 0 (0,X_A) WAIT SW(0) TIME 1 OFF 0 INC DET_P 500 RANGE X_A DET_P DET_P A_=RR3(X_A) TIME 5 LOOP *MPG RMVC X_A 1 END |