Temps boucle while

Bonjour j'ai une routine à faire sur un axe avec un temps, pouvez-vous me confirmer si cela est correct?

Merci



DEF REAL TPS
DEF REAL COMPTEUR=0
$AC_TIMER[1]=-1
STOPRE


TPS=15.;("REGLAGE TEMPS EN MINUTE CYCLE ROTATION AXE C")
T="1"
M6
G55
G1F10000
X320.
Y0.
G90 G0 C0

$AC_TIMER[1]=0
STOPRE
WHILE (COMPTEUR <= TPS)



G1 C90 F2000
G1 C-90

COMPTEUR=$AC_TIMER[1]/60
STOPRE
ENDWHILE
G0G55X-150Y50

M17

C'est ok fonctionne sur machine