EOB
EOB
EOB
EOB
EOB
EOB
$
PARX_M_60004
=
:
30000
EOB
$
PARY_M_60004
=
:
30001
EOB
$
PARZ_M_60004
=
:
30002
EOB
$
PARR_M_60004
=
:
30003
EOB
$
PARP_M_60004
=
:
30004
EOB
$
PARQ_M_60004
=
:
30005
EOB
$
PARK_M_60004
=
:
30006
EOB
$
PARA_M_60004
=
:
30009
EOB
$
PARB_M_60004
=
:
30010
EOB
EOB
READ_PARMAC
MODE_G84
$
MODOG84_M_60004
EOB
READ_PARMAC
AXES_G84
$
AXESG84_M_60004
EOB
READ_PARMAC
ROT_G84
$
ROTG84_M_60004
EOB
READ_PARMAC
MOLT_G84
$
MOLTG84_M_60004
EOB
READ_PARMAC
FEEDRES
$
FEEDRES_M_60004
EOB
READ_PARMAC
AXES_Z
$
AXESZ_M_60004
EOB
IF
$
[X35]
=
1
EOB
F
[
:
30007
]
EOB
END_IF
EOB
$
VEL_M_60004
=
$
[X8]
EOB
IF
$
[X37]
=
1
&&
$
PARB_M_60004
>
0
EOB
$
FRET_M_60004
=
$
VEL_M_60004
*
$
PARB_M_60004
EOB
ELSE
EOB
$
FRET_M_60004
=
$
VEL_M_60004
EOB
END_IF
EOB
$
[J14]
=
1
EOB
$
[J15]
=
1
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
$
PIANO_M_60004
=
$
[X10]
EOB
GOSUB
TIPOASSEZ_M_60004
EOB
EOB
$
TIPO_M_60004
=
$
[X9]
EOB
$
COUNT_M_60004
=
0
EOB
$
PARP_M_60004
=
$
PARP_M_60004
/
1000
EOB
EOB
EOB
$
SPEED_M_60004
=
$
[X0]
EOB
$
FEED_M_60004
=
$
[X8]
EOB
IF
$
FEEDRES_M_60004
>
999
EOB
$
FEED_M_60004
=
$
FEED_M_60004
*
1000
EOB
END_IF
EOB
IF
$
MODOG84_M_60004
=
1
EOB
IF
$
[X33]
=
1
EOB
$
PASSO_M_60004
=
$
PARQ_M_60004
EOB
GOTO
SALTAP_M_60004
EOB
END_IF
EOB
END_IF
EOB
$
PASSO_M_60004
=
$
FEED_M_60004
/
$
SPEED_M_60004
EOB
@
SALTAP_M_60004
EOB
$
AFFONDA_M_60004
=
ABS
(
$
PARZ_M_60004
-
$
PARR_M_60004
)
EOB
$
N_GIRI_M_60004
=
$
AFFONDA_M_60004
/
$
PASSO_M_60004
EOB
$
QUOTA_MAND_M_60004
=
(
$
N_GIRI_M_60004
*
360
)
/
$
MOLTG84_M_60004
EOB
IF
$
ROTG84_M_60004
=
0
EOB
$
QUOTA_MAND_M_60004
=
-
$
QUOTA_MAND_M_60004
EOB
END_IF
EOB
IF
$
[X36]
=
1
EOB
IF
$
PARA_M_60004
=
1
EOB
$
QUOTA_MAND_M_60004
=
-
$
QUOTA_MAND_M_60004
EOB
END_IF
EOB
END_IF
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
IF
$
TIPO_M_60004
=
1
EOB
@
START_M_60004
EOB
G
91
EOB
GOSUB
MUOVI_INI_M_60004
EOB
EOB
IF
$
[X7]
<>
0
EOB
GOTO
SIMULA_M_60004
EOB
END_IF
EOB
G
90
EOB
G
0
QZ
[
$
PARR_M_60004
]
EOB
IF
$
MODOG84_M_60004
=
0
EOB
GOSUB
MODO_NORMAL_M_60004
EOB
END_IF
EOB
IF
$
MODOG84_M_60004
=
1
EOB
GOSUB
MODO_INTERPOLA_M_60004
EOB
END_IF
EOB
@
SIMULA_M_60004
EOB
IF
$
PARK_M_60004
>
1
&&
:
30008
=
1
&&
(
$
[X28]
=
1
||
$
[X29]
=
1
)
EOB
$
COUNT_M_60004
=
$
COUNT_M_60004
+
1
EOB
IF
$
COUNT_M_60004
=
$
PARK_M_60004
EOB
GOTO
ESCI_M_60004
EOB
ELSE
EOB
GOTO
START_M_60004
EOB
END_IF
EOB
ELSE
EOB
GOTO
ESCI_M_60004
EOB
END_IF
EOB
ELSE
EOB
G
90
EOB
GOSUB
MUOVI_INI_M_60004
EOB
EOB
IF
$
[X7]
<>
0
EOB
GOTO
ESCI_M_60004
EOB
END_IF
EOB
G
0
QZ
[
$
PARR_M_60004
]
EOB
IF
$
MODOG84_M_60004
=
0
EOB
GOSUB
MODO_NORMAL_M_60004
EOB
END_IF
EOB
IF
$
MODOG84_M_60004
=
1
EOB
GOSUB
MODO_INTERPOLA_M_60004
EOB
END_IF
EOB
GOTO
ESCI_M_60004
EOB
END_IF
EOB
EOB
EOB
@
TIPOASSEZ_M_60004
EOB
IF
$
PIANO_M_60004
=
0
EOB
IF
$
AXESZ_M_60004
=
2
EOB
$
QUOTAZ_M_60004
=
$
[Q2]
EOB
END_IF
EOB
IFDEF
AXES
>
3
EOB
IF
$
AXESZ_M_60004
=
3
EOB
G
26
QZQA
EOB
$
QUOTAZ_M_60004
=
$
[Q3]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
4
EOB
IF
$
AXESZ_M_60004
=
4
EOB
G
26
QZQB
EOB
$
QUOTAZ_M_60004
=
$
[Q4]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
5
EOB
IF
$
AXESZ_M_60004
=
5
EOB
G
26
QZQC
EOB
$
QUOTAZ_M_60004
=
$
[Q5]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
6
EOB
IF
$
AXESZ_M_60004
=
6
EOB
G
26
QZQU
EOB
$
QUOTAZ_M_60004
=
$
[Q6]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
7
EOB
IF
$
AXESZ_M_60004
=
7
EOB
G
26
QZQV
EOB
$
QUOTAZ_M_60004
=
$
[Q7]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
8
EOB
IF
$
AXESZ_M_60004
=
8
EOB
G
26
QZQW
EOB
$
QUOTAZ_M_60004
=
$
[Q8]
EOB
END_IF
EOB
ENDIFDEF
EOB
END_IF
EOB
IF
$
PIANO_M_60004
=
1
EOB
$
QUOTAZ_M_60004
=
$
[Q1]
EOB
G
26
QYQZ
EOB
END_IF
EOB
IF
$
PIANO_M_60004
=
2
EOB
$
QUOTAZ_M_60004
=
$
[Q0]
EOB
G
26
QXQZ
EOB
END_IF
EOB
RETURN
EOB
EOB
EOB
EOB
@
MUOVI_INI_M_60004
EOB
IF
:
30008
=
0
EOB
GOTO
FINE_INI_M_60004
EOB
END_IF
EOB
IF
$
PIANO_M_60004
=
0
EOB
IF
$
TIPO_M_60004
=
0
EOB
IF
$
[X28]
=
0
EOB
G
62
EOB
IF
$
[X7]
<>
0
EOB
$
PARX_M_60004
=
$
[C0]
EOB
ELSE
EOB
$
PARX_M_60004
=
$
[Q0]
EOB
END_IF
EOB
END_IF
EOB
IF
$
[X29]
=
0
EOB
G
62
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60004
=
$
[C1]
EOB
ELSE
EOB
$
PARY_M_60004
=
$
[Q1]
EOB
END_IF
EOB
END_IF
EOB
ELSE
EOB
IF
$
[X28]
=
0
EOB
$
PARX_M_60004
=
0
EOB
END_IF
EOB
IF
$
[X29]
=
0
EOB
$
PARY_M_60004
=
0
EOB
END_IF
EOB
END_IF
EOB
EOB
G
0
X
[
$
PARX_M_60004
]
Y
[
$
PARY_M_60004
]
EOB
GOTO
FINE_INI_M_60004
EOB
END_IF
EOB
IF
$
PIANO_M_60004
=
1
EOB
IF
$
TIPO_M_60004
=
0
EOB
IF
$
[X28]
=
0
EOB
G
62
EOB
IF
$
[X7]
<>
0
EOB
$
PARX_M_60004
=
$
[C0]
EOB
ELSE
EOB
$
PARX_M_60004
=
$
[Q0]
EOB
END_IF
EOB
END_IF
EOB
EOB
IF
$
[X29]
=
0
EOB
G
62
EOB
IF
$
AXESZ_M_60004
=
2
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60004
=
$
[C2]
EOB
ELSE
EOB
$
PARY_M_60004
=
$
[Q2]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60004
=
3
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60004
=
$
[C3]
EOB
ELSE
EOB
$
PARY_M_60004
=
$
[Q3]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60004
=
4
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60004
=
$
[C4]
EOB
ELSE
EOB
$
PARY_M_60004
=
$
[Q4]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60004
=
5
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60004
=
$
[C5]
EOB
ELSE
EOB
$
PARY_M_60004
=
$
[Q5]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60004
=
6
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60004
=
$
[C6]
EOB
ELSE
EOB
$
PARY_M_60004
=
$
[Q6]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60004
=
7
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60004
=
$
[C7]
EOB
ELSE
EOB
$
PARY_M_60004
=
$
[Q7]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60004
=
8
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60004
=
$
[C8]
EOB
ELSE
EOB
$
PARY_M_60004
=
$
[Q8]
EOB
END_IF
EOB
END_IF
EOB
END_IF
EOB
ELSE
EOB
IF
$
[X28]
=
0
EOB
$
PARX_M_60004
=
0
EOB
END_IF
EOB
IF
$
[X29]
=
0
EOB
$
PARY_M_60004
=
0
EOB
END_IF
EOB
END_IF
EOB
EOB
IF
$
AXESZ_M_60004
=
2
EOB
G
0
X
[
$
PARX_M_60004
]
Y
[
$
PARY_M_60004
]
EOB
END_IF
EOB
IFDEF
AXES
>
3
EOB
IF
$
AXESZ_M_60004
=
3
EOB
G
0
X
[
$
PARX_M_60004
]
QA
[
$
PARY_M_60004
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
4
EOB
IF
$
AXESZ_M_60004
=
4
EOB
G
0
X
[
$
PARX_M_60004
]
QB
[
$
PARY_M_60004
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
5
EOB
IF
$
AXESZ_M_60004
=
5
EOB
G
0
X
[
$
PARX_M_60004
]
QC
[
$
PARY_M_60004
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
6
EOB
IF
$
AXESZ_M_60004
=
6
EOB
G
0
X
[
$
PARX_M_60004
]
QU
[
$
PARY_M_60004
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
7
EOB
IF
$
AXESZ_M_60004
=
7
EOB
G
0
X
[
$
PARX_M_60004
]
QV
[
$
PARY_M_60004
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
8
EOB
IF
$
AXESZ_M_60004
=
8
EOB
G
0
X
[
$
PARX_M_60004
]
QW
[
$
PARY_M_60004
]
EOB
END_IF
EOB
ENDIFDEF
EOB
GOTO
FINE_INI_M_60004
EOB
END_IF
EOB
IF
$
PIANO_M_60004
=
2
EOB
IF
$
TIPO_M_60004
=
0
EOB
IF
$
[X28]
=
0
EOB
G
62
EOB
IF
$
[X7]
<>
0
EOB
$
PARX_M_60004
=
$
[C1]
EOB
ELSE
EOB
$
PARX_M_60004
=
$
[Q1]
EOB
END_IF
EOB
END_IF
EOB
EOB
IF
$
[X29]
=
0
EOB
G
62
EOB
IF
$
AXESZ_M_60004
=
2
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60004
=
$
[C2]
EOB
ELSE
EOB
$
PARY_M_60004
=
$
[Q2]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60004
=
3
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60004
=
$
[C3]
EOB
ELSE
EOB
$
PARY_M_60004
=
$
[Q3]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60004
=
4
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60004
=
$
[C4]
EOB
ELSE
EOB
$
PARY_M_60004
=
$
[Q4]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60004
=
5
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60004
=
$
[C5]
EOB
ELSE
EOB
$
PARY_M_60004
=
$
[Q5]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60004
=
6
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60004
=
$
[C6]
EOB
ELSE
EOB
$
PARY_M_60004
=
$
[Q6]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60004
=
7
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60004
=
$
[C7]
EOB
ELSE
EOB
$
PARY_M_60004
=
$
[Q7]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60004
=
8
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60004
=
$
[C8]
EOB
ELSE
EOB
$
PARY_M_60004
=
$
[Q8]
EOB
END_IF
EOB
END_IF
EOB
END_IF
EOB
ELSE
EOB
IF
$
[X28]
=
0
EOB
$
PARX_M_60004
=
0
EOB
END_IF
EOB
IF
$
[X29]
=
0
EOB
$
PARY_M_60004
=
0
EOB
END_IF
EOB
END_IF
EOB
EOB
IF
$
AXESZ_M_60004
=
2
EOB
G
0
Y
[
$
PARX_M_60004
]
X
[
$
PARY_M_60004
]
EOB
END_IF
EOB
IFDEF
AXES
>
3
EOB
IF
$
AXESZ_M_60004
=
3
EOB
G
0
Y
[
$
PARX_M_60004
]
QA
[
$
PARY_M_60004
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
4
EOB
IF
$
AXESZ_M_60004
=
4
EOB
G
0
Y
[
$
PARX_M_60004
]
QB
[
$
PARY_M_60004
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
5
EOB
IF
$
AXESZ_M_60004
=
5
EOB
G
0
Y
[
$
PARX_M_60004
]
QC
[
$
PARY_M_60004
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
6
EOB
IF
$
AXESZ_M_60004
=
6
EOB
G
0
Y
[
$
PARX_M_60004
]
QU
[
$
PARY_M_60004
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
7
EOB
IF
$
AXESZ_M_60004
=
7
EOB
G
0
Y
[
$
PARX_M_60004
]
QV
[
$
PARY_M_60004
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
8
EOB
IF
$
AXESZ_M_60004
=
8
EOB
G
0
Y
[
$
PARX_M_60004
]
QW
[
$
PARY_M_60004
]
EOB
END_IF
EOB
ENDIFDEF
EOB
END_IF
EOB
@
FINE_INI_M_60004
EOB
RETURN
EOB
EOB
EOB
EOB
EOB
@
MODO_NORMAL_M_60004
EOB
G
11
EOB
G
1
QZ
[
$
PARZ_M_60004
]
EOB
M
5
EOB
G
4
F
[
$
PARP_M_60004
]
EOB
M
4
EOB
G
1
QZ
[
$
PARR_M_60004
]
EOB
G
10
EOB
M
5
EOB
M
3
EOB
EOB
G
0
Z
[
$
PARR_M_60004
]
EOB
EOB
EOB
EOB
RETURN
EOB
EOB
EOB
EOB
@
MODO_INTERPOLA_M_60004
EOB
IFDEF
AXES
>
3
EOB
IF
$
AXESG84_M_60004
=
3
EOB
G
92
QA
EOB
G
1
QZ
[
$
PARZ_M_60004
]
QA
[
$
QUOTA_MAND_M_60004
]
EOB
G
4
F
[
$
PARP_M_60004
]
EOB
F
[
$
FRET_M_60004
]
EOB
G
1
QZ
[
$
PARR_M_60004
]
QA
0
EOB
G
94
QA
0
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
4
EOB
IF
$
AXESG84_M_60004
=
4
EOB
G
92
QB
EOB
G
1
QZ
[
$
PARZ_M_60004
]
QB
[
$
QUOTA_MAND_M_60004
]
EOB
G
4
F
[
$
PARP_M_60004
]
EOB
F
[
$
FRET_M_60004
]
EOB
G
1
QZ
[
$
PARR_M_60004
]
QB
0
EOB
G
94
QB
0
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
5
EOB
IF
$
AXESG84_M_60004
=
5
EOB
G
92
QC
EOB
G
1
QZ
[
$
PARZ_M_60004
]
QC
[
$
QUOTA_MAND_M_60004
]
EOB
G
4
F
[
$
PARP_M_60004
]
EOB
F
[
$
FRET_M_60004
]
EOB
G
1
QZ
[
$
PARR_M_60004
]
C
0
EOB
G
94
QC
0
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
6
EOB
IF
$
AXESG84_M_60004
=
6
EOB
G
92
QU
EOB
G
1
QZ
[
$
PARZ_M_60004
]
QU
[
$
QUOTA_MAND_M_60004
]
EOB
G
4
F
[
$
PARP_M_60004
]
EOB
F
[
$
FRET_M_60004
]
EOB
G
1
QZ
[
$
PARR_M_60004
]
QU
0
EOB
G
94
QU
0
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
7
EOB
IF
$
AXESG84_M_60004
=
7
EOB
G
92
QV
EOB
G
1
QZ
[
$
PARZ_M_60004
]
QV
[
$
QUOTA_MAND_M_60004
]
EOB
G
4
F
[
$
PARP_M_60004
]
EOB
F
[
$
FRET_M_60004
]
EOB
G
1
QZ
[
$
PARR_M_60004
]
QV
0
EOB
G
94
QV
0
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
8
EOB
IF
$
AXESG84_M_60004
=
8
EOB
G
92
QW
EOB
G
1
QZ
[
$
PARZ_M_60004
]
QW
[
$
QUOTA_MAND_M_60004
]
EOB
G
4
F
[
$
PARP_M_60004
]
EOB
F
[
$
FRET_M_60004
]
EOB
G
1
QZ
[
$
PARR_M_60004
]
QW
0
EOB
G
94
QW
0
EOB
END_IF
EOB
ENDIFDEF
EOB
EOB
G
0
Z
[
$
PARR_M_60004
]
EOB
EOB
EOB
EOB
RETURN
EOB
EOB
EOB
EOB
@
ESCI_M_60004
EOB
IF
$
TIPO_M_60004
=
1
EOB
G
91
EOB
ELSE
EOB
G
90
EOB
END_IF
EOB
G
27
EOB
:
30008
=
0
EOB
F
[
$
VEL_M_60004
]
EOB
$
[J14]
=
0
EOB
$
[J15]
=
0
EOB
EOB
EOB
EOB
EOB
EOB
