READ THE COMMENTS IN THE ALIAS
ALIAS MOVETOK {
;$MOVETOK(TEXT,TOKEN,N,C)
;N = Position you wish to move the token to
IF ($ISTOK($1,$2,$4)) {
IF ($NUMTOK($1,$4) >= $3) {
IF ($GETTOK($1,$3,$4) != $2) {
IF ($3 == 1) { RETURN $+($2,$CHR($4),$REMTOK($1,$2,1,$4)) }
ELSEIF ($3 == $NUMTOK($1,$4)) { RETURN $+($REMTOK($1,$2,1,$4),$CHR($4),$2) }
ELSE { RETURN $+($GETTOK($REMTOK($1,$2,1,$4),$IIF($CALC($3 -1) > 1,$+(1-,$V1),1),$4),$CHR($4),$2,,$CHR($4),$GETTOK($REMTOK($1,$2,1,$4),$+($3,-),$4)) }
}
ELSE { BEEP 2 | ECHO $COLOR(INFO) -a [ERROR] - $2 IS ALREADY IN POSITION $3 }
}
ELSE { BEEP 2 | ECHO $COLOR(INFO) -a [ERROR] - SORRY YOU PROVIDED A NUMBER GREATER THEN THE NUMBER OF TOKENS }
}
ELSE { BEEP 2 | ECHO $COLOR(INFO) -a [ERROR] - SORRY BUT $2 IS NOT FOUND IN THE TEXT GIVEN }
}