( Script de test des moteurs pas a pas. Version 0.10 du 8 Juillet 2012. Ecrit par jpb.forth . ) DECIMAL 0 VARIABLE ETAPE TACHE: T_MOTEURS_PAS_A_PAS ETAPE DUP >R @ 1 R> +! 120 /MOD DUP 3 > IF DROP DUP XOR DUP MOTEUR DUP MOTEUR_G MOTEUR_I T_MOTEURS_PAS_A_PAS T_RETIRE ELSE ?DUP IF 1- ?DUP IF 1- IF >R 120 R> - DUP MOTEUR DUP MOTEUR_G MOTEUR_I ELSE DUP 0= IF 0 MOTEUR_G THEN MOTEUR_I THEN ELSE DUP 0= IF 0 MOTEUR THEN MOTEUR_G THEN ELSE MOTEUR THEN THEN ; 0 DUP MOTEUR DUP MOTEUR_G MOTEUR_I 1000 TEMPO 50 T_MOTEURS_PAS_A_PAS 32768 OVER T_AJOUTE T_PERIODE ( FIN )