Los pasos del 1 al 16 son la rutina principal, y los pasos del 17 al 27 son una subrutina invocada mediante el
comando [CALL]. Esta subrutina corta un único objeto en for ma de L. Los pasos 4, 6, 8, y 10 cambian sucesivamente
el punto de r eferencia para cortar, y después de cada paso se invoca la subrutina.
Obser ve que el comando [FINISH] en el paso 16 separa la rutina principal y la subrutina. Puede a parecer
tranquilamente más de un comando [FINISH] dentro de una secuencia.
Paso
Nombre
Nº
etiqueta
1
2
3
4
5
6
7
8
9
1 0
1 1
1 2
1 3
1 4
1 5
1 6
1 7
LCUT
1 8
1 9
2 0
2 1
2 2
2 3
2 4
2 5
2 6
2 7
2 8
Capítulo 5 - La función Teaching
84
Comando
Valor 1
21 SEL ORG
1
2 MOVE-ORG
10 SP
ON
21 SEL ORG
2
18 CALL
LCUT
21 SEL ORG
3
18 CALL
LCUT
21 SEL ORG
4
18 CALL
LCUT
21 SEL ORG
5
18 CALL
LCUT
21 SEL ORG
1
2 MOVE ORG
3 MOVE-ZM
X 0, Y 30000, Z 4000
10 SP
OFF
22 FINISH
2 MOVE ORG
3 MOVE-ZM
X 0, Y 0, Z 100
8 CUT-3
3
8 CUT-3
20
8 CUT-3
20
8 CUT-3
20
8 CUT-3
20
8 CUT-3
20
8 CUT-3
20
2 MOVE ORG
20 RETURN
22 FINISH
5-8. Secuencias de muestra
Valor 2
8 0
X 0, Y 0, Z -50
X 2000, Y 0, Z -50
X 2000, Y 1000, Z -50
X 1000, Y 1000, Z -50
X 1000, Y 4000, Z -50
X 4000, Y 0, Z -50
X 0, Y 0, Z -50
Valor
Valor
3
4