$MOVETOK(TEXT,X,Y,C)

; $movetok(text,X,Y,C)
; Permet de changer un token de place
; X = Position de départ
; Y = Position d'arrivée
; C = Charatère

; Ouverture de l'alias
alias movetok {
  ; on stock le token demandé
  var %x = $gettok($1,$2,$4) 
  ; $deltok() <- efface le token (ancienne position)
  ; $instok() <- insère le token (nouvelle position)
  return $instok($deltok($1,$2,$4),%x,$3,$4)
  ; fermeture de l'alias
}