Ce programme permet de tester les sous routine ainsi que le pilotage d'un outil en mode CNC.
CLEAR
GO 10 10
FOR I FROM 1 TO 29 STEP 1
GOSUB aff
LINE_TO 15 15
NEXT
END
LABEL aff
PLOT true
SPEED 100 50
MOVE 10 100
MOVE 110 10
SPEED 100 50
MOVE 10 -110
MOVE -110 10
PLOT false
RETURN
Le meme programme avec des valeurs différentes pour les vitesses de déplacement X et Y
CLEAR
GO 10 10
FOR I FROM 1 TO 29 STEP 1
GOSUB aff
LINE_TO 15 15
NEXT
END
LABEL aff
PLOT true
SPEED 100 50
MOVE 10 100
MOVE 110 10
SPEED 100 50
MOVE 10 -110
MOVE -110 10
PLOT false
RETURN
