USE RMOVANA KEY 2 JOIN MOVANA INTO NUMREG==NUMREG JOIN MOV TO MOVANA INTO NUMREG==NUMREGCG : SCAMBIA_CAMPI ( F1 F2 -- ) VARIABLE _X1 \ coordinate del campo F1 VARIABLE _Y1 VARIABLE _X2 \ coordinate del campo F2 VARIABLE _Y2 2DUP \ duplica i campi F1 F2 sullo stack GET_POS \ prende le coordinate del campo F2 _Y2 ! \ e le mette in _Y2 e _X2 _X2 ! GET_POS \ prende le coordinate del campo F1 _Y1 ! \ e le mette in _Y1 e _X1 _X1 ! _X1 @ \ legge le coordinate di F1 _Y1 @ ROT SET_POS \ mette le coord in F2 _X2 @ _Y2 @ ROT SET_POS ;