EOB
EOB
EOB
EOB
EOB
EOB
$
PARX_M_60003
=
:
30000
EOB
$
PARY_M_60003
=
:
30001
EOB
$
PARZ_M_60003
=
:
30002
EOB
$
PARR_M_60003
=
:
30003
EOB
$
PARP_M_60003
=
:
30004
EOB
$
PARQ_M_60003
=
:
30005
EOB
$
PARK_M_60003
=
:
30006
EOB
EOB
READ_PARMAC
DELTA_G83
$
DELTA_S_M_60003
EOB
READ_PARMAC
RESQUOTE
$
RSQUOTE_M_60003
EOB
READ_PARMAC
AXES_Z
$
AXESZ_M_60003
EOB
$
DELTA_S_M_60003
=
$
DELTA_S_M_60003
/
$
RSQUOTE_M_60003
EOB
IF
$
[X35]
=
1
EOB
F
[
:
30007
]
EOB
END_IF
EOB
IF
$
[X32]
=
1
EOB
$
RTRUC_M_60003
=
1
EOB
EOB
IF
$
PARP_M_60003
=
0
EOB
$
PARP_M_60003
=
1
EOB
END_IF
EOB
$
PARP_M_60003
=
ABS
(
$
PARP_M_60003
)
EOB
ELSE
EOB
$
RTRUC_M_60003
=
0
EOB
END_IF
EOB
EOB
IF
$
PARQ_M_60003
=
0
EOB
$
PARQ_M_60003
=
1
EOB
END_IF
EOB
$
PARQ_M_60003
=
ABS
(
$
PARQ_M_60003
)
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
$
PIANO_M_60003
=
$
[X10]
EOB
GOSUB
TIPOASSEZ_M_60003
EOB
EOB
$
TIPO_M_60003
=
$
[X9]
EOB
$
COUNT_M_60003
=
0
EOB
$
PASSATA_M_60003
=
0
EOB
$
TOTP_M_60003
=
ABS
(
FIX
(
(
$
PARZ_M_60003
-
$
PARR_M_60003
)
/
$
PARQ_M_60003
)
)
EOB
$
CALC_M_60003
=
$
TOTP_M_60003
*
$
PARQ_M_60003
EOB
IF
$
CALC_M_60003
=
ABS
(
$
PARZ_M_60003
-
$
PARR_M_60003
)
EOB
$
INCF_M_60003
=
0
EOB
ELSE
EOB
$
INCF_M_60003
=
1
EOB
END_IF
EOB
IF
$
PARZ_M_60003
<
$
PARR_M_60003
EOB
$
INCAFF_M_60003
=
-
$
PARQ_M_60003
EOB
ELSE
EOB
$
INCAFF_M_60003
=
$
PARQ_M_60003
EOB
$
DELTA_S_M_60003
=
-
$
DELTA_S_M_60003
EOB
$
PARP_M_60003
=
-
$
PARP_M_60003
EOB
END_IF
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
IF
$
TIPO_M_60003
=
1
EOB
@
START_M_60003
EOB
G
91
EOB
GOSUB
MUOVI_INI_M_60003
EOB
EOB
IF
$
[X7]
<>
0
EOB
GOTO
SIMULA_M_60003
EOB
END_IF
EOB
G
90
EOB
G
0
QZ
[
$
PARR_M_60003
]
EOB
$
PASSATA_M_60003
=
0
EOB
IF
$
RTRUC_M_60003
=
0
EOB
GOSUB
CICLO_FORATURA_M_60003
EOB
ELSE
EOB
GOSUB
CICLO_RTRUC_M_60003
EOB
END_IF
EOB
@
SIMULA_M_60003
EOB
IF
$
PARK_M_60003
>
1
&&
:
30008
=
1
&&
(
$
[X28]
=
1
||
$
[X29]
=
1
)
EOB
$
COUNT_M_60003
=
$
COUNT_M_60003
+
1
EOB
IF
$
COUNT_M_60003
=
$
PARK_M_60003
EOB
GOTO
ESCI_M_60003
EOB
ELSE
EOB
GOTO
START_M_60003
EOB
END_IF
EOB
ELSE
EOB
GOTO
ESCI_M_60003
EOB
END_IF
EOB
ELSE
EOB
G
90
EOB
GOSUB
MUOVI_INI_M_60003
EOB
EOB
IF
$
[X7]
<>
0
EOB
GOTO
ESCI_M_60003
EOB
END_IF
EOB
G
0
QZ
[
$
PARR_M_60003
]
EOB
IF
$
RTRUC_M_60003
=
0
EOB
GOSUB
CICLO_FORATURA_M_60003
EOB
ELSE
EOB
GOSUB
CICLO_RTRUC_M_60003
EOB
END_IF
EOB
GOTO
ESCI_M_60003
EOB
END_IF
EOB
EOB
EOB
@
TIPOASSEZ_M_60003
EOB
IF
$
PIANO_M_60003
=
0
EOB
IF
$
AXESZ_M_60003
=
2
EOB
$
QUOTAZ_M_60003
=
$
[Q2]
EOB
END_IF
EOB
IFDEF
AXES
>
3
EOB
IF
$
AXESZ_M_60003
=
3
EOB
G
26
QZQA
EOB
$
QUOTAZ_M_60003
=
$
[Q3]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
4
EOB
IF
$
AXESZ_M_60003
=
4
EOB
G
26
QZQB
EOB
$
QUOTAZ_M_60003
=
$
[Q4]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
5
EOB
IF
$
AXESZ_M_60003
=
5
EOB
G
26
QZQC
EOB
$
QUOTAZ_M_60003
=
$
[Q5]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
6
EOB
IF
$
AXESZ_M_60003
=
6
EOB
G
26
QZQU
EOB
$
QUOTAZ_M_60003
=
$
[Q6]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
7
EOB
IF
$
AXESZ_M_60003
=
7
EOB
G
26
QZQV
EOB
$
QUOTAZ_M_60003
=
$
[Q7]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
8
EOB
IF
$
AXESZ_M_60003
=
8
EOB
G
26
QZQW
EOB
$
QUOTAZ_M_60003
=
$
[Q8]
EOB
END_IF
EOB
ENDIFDEF
EOB
END_IF
EOB
IF
$
PIANO_M_60003
=
1
EOB
$
QUOTAZ_M_60003
=
$
[Q1]
EOB
G
26
QYQZ
EOB
END_IF
EOB
IF
$
PIANO_M_60003
=
2
EOB
$
QUOTAZ_M_60003
=
$
[Q0]
EOB
G
26
QXQZ
EOB
END_IF
EOB
RETURN
EOB
EOB
EOB
EOB
@
MUOVI_INI_M_60003
EOB
IF
:
30008
=
0
EOB
GOTO
FINE_INI_M_60003
EOB
END_IF
EOB
IF
$
PIANO_M_60003
=
0
EOB
IF
$
TIPO_M_60003
=
0
EOB
IF
$
[X28]
=
0
EOB
G
62
EOB
IF
$
[X7]
<>
0
EOB
$
PARX_M_60003
=
$
[C0]
EOB
ELSE
EOB
$
PARX_M_60003
=
$
[Q0]
EOB
END_IF
EOB
END_IF
EOB
IF
$
[X29]
=
0
EOB
G
62
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60003
=
$
[C1]
EOB
ELSE
EOB
$
PARY_M_60003
=
$
[Q1]
EOB
END_IF
EOB
END_IF
EOB
ELSE
EOB
IF
$
[X28]
=
0
EOB
$
PARX_M_60003
=
0
EOB
END_IF
EOB
IF
$
[X29]
=
0
EOB
$
PARY_M_60003
=
0
EOB
END_IF
EOB
END_IF
EOB
EOB
G
0
X
[
$
PARX_M_60003
]
Y
[
$
PARY_M_60003
]
EOB
GOTO
FINE_INI_M_60003
EOB
END_IF
EOB
IF
$
PIANO_M_60003
=
1
EOB
IF
$
TIPO_M_60003
=
0
EOB
IF
$
[X28]
=
0
EOB
G
62
EOB
IF
$
[X7]
<>
0
EOB
$
PARX_M_60003
=
$
[C0]
EOB
ELSE
EOB
$
PARX_M_60003
=
$
[Q0]
EOB
END_IF
EOB
END_IF
EOB
EOB
IF
$
[X29]
=
0
EOB
G
62
EOB
IF
$
AXESZ_M_60003
=
2
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60003
=
$
[C2]
EOB
ELSE
EOB
$
PARY_M_60003
=
$
[Q2]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60003
=
3
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60003
=
$
[C3]
EOB
ELSE
EOB
$
PARY_M_60003
=
$
[Q3]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60003
=
4
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60003
=
$
[C4]
EOB
ELSE
EOB
$
PARY_M_60003
=
$
[Q4]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60003
=
5
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60003
=
$
[C5]
EOB
ELSE
EOB
$
PARY_M_60003
=
$
[Q5]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60003
=
6
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60003
=
$
[C6]
EOB
ELSE
EOB
$
PARY_M_60003
=
$
[Q6]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60003
=
7
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60003
=
$
[C7]
EOB
ELSE
EOB
$
PARY_M_60003
=
$
[Q7]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60003
=
8
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60003
=
$
[C8]
EOB
ELSE
EOB
$
PARY_M_60003
=
$
[Q8]
EOB
END_IF
EOB
END_IF
EOB
END_IF
EOB
ELSE
EOB
IF
$
[X28]
=
0
EOB
$
PARX_M_60003
=
0
EOB
END_IF
EOB
IF
$
[X29]
=
0
EOB
$
PARY_M_60003
=
0
EOB
END_IF
EOB
END_IF
EOB
EOB
IF
$
AXESZ_M_60003
=
2
EOB
G
0
X
[
$
PARX_M_60003
]
Y
[
$
PARY_M_60003
]
EOB
END_IF
EOB
IFDEF
AXES
>
3
EOB
IF
$
AXESZ_M_60003
=
3
EOB
G
0
X
[
$
PARX_M_60003
]
QA
[
$
PARY_M_60003
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
4
EOB
IF
$
AXESZ_M_60003
=
4
EOB
G
0
X
[
$
PARX_M_60003
]
QB
[
$
PARY_M_60003
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
5
EOB
IF
$
AXESZ_M_60003
=
5
EOB
G
0
X
[
$
PARX_M_60003
]
QC
[
$
PARY_M_60003
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
6
EOB
IF
$
AXESZ_M_60003
=
6
EOB
G
0
X
[
$
PARX_M_60003
]
QU
[
$
PARY_M_60003
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
7
EOB
IF
$
AXESZ_M_60003
=
7
EOB
G
0
X
[
$
PARX_M_60003
]
QV
[
$
PARY_M_60003
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
8
EOB
IF
$
AXESZ_M_60003
=
8
EOB
G
0
X
[
$
PARX_M_60003
]
QW
[
$
PARY_M_60003
]
EOB
END_IF
EOB
ENDIFDEF
EOB
GOTO
FINE_INI_M_60003
EOB
END_IF
EOB
IF
$
PIANO_M_60003
=
2
EOB
IF
$
TIPO_M_60003
=
0
EOB
IF
$
[X28]
=
0
EOB
G
62
EOB
IF
$
[X7]
<>
0
EOB
$
PARX_M_60003
=
$
[C1]
EOB
ELSE
EOB
$
PARX_M_60003
=
$
[Q1]
EOB
END_IF
EOB
END_IF
EOB
EOB
IF
$
[X29]
=
0
EOB
G
62
EOB
IF
$
AXESZ_M_60003
=
2
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60003
=
$
[C2]
EOB
ELSE
EOB
$
PARY_M_60003
=
$
[Q2]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60003
=
3
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60003
=
$
[C3]
EOB
ELSE
EOB
$
PARY_M_60003
=
$
[Q3]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60003
=
4
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60003
=
$
[C4]
EOB
ELSE
EOB
$
PARY_M_60003
=
$
[Q4]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60003
=
5
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60003
=
$
[C5]
EOB
ELSE
EOB
$
PARY_M_60003
=
$
[Q5]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60003
=
6
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60003
=
$
[C6]
EOB
ELSE
EOB
$
PARY_M_60003
=
$
[Q6]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60003
=
7
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60003
=
$
[C7]
EOB
ELSE
EOB
$
PARY_M_60003
=
$
[Q7]
EOB
END_IF
EOB
END_IF
EOB
IF
$
AXESZ_M_60003
=
8
EOB
IF
$
[X7]
<>
0
EOB
$
PARY_M_60003
=
$
[C8]
EOB
ELSE
EOB
$
PARY_M_60003
=
$
[Q8]
EOB
END_IF
EOB
END_IF
EOB
END_IF
EOB
ELSE
EOB
IF
$
[X28]
=
0
EOB
$
PARX_M_60003
=
0
EOB
END_IF
EOB
IF
$
[X29]
=
0
EOB
$
PARY_M_60003
=
0
EOB
END_IF
EOB
END_IF
EOB
EOB
IF
$
AXESZ_M_60003
=
2
EOB
G
0
Y
[
$
PARX_M_60003
]
X
[
$
PARY_M_60003
]
EOB
END_IF
EOB
IFDEF
AXES
>
3
EOB
IF
$
AXESZ_M_60003
=
3
EOB
G
0
Y
[
$
PARX_M_60003
]
QA
[
$
PARY_M_60003
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
4
EOB
IF
$
AXESZ_M_60003
=
4
EOB
G
0
Y
[
$
PARX_M_60003
]
QB
[
$
PARY_M_60003
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
5
EOB
IF
$
AXESZ_M_60003
=
5
EOB
G
0
Y
[
$
PARX_M_60003
]
QC
[
$
PARY_M_60003
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
6
EOB
IF
$
AXESZ_M_60003
=
6
EOB
G
0
Y
[
$
PARX_M_60003
]
QU
[
$
PARY_M_60003
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
7
EOB
IF
$
AXESZ_M_60003
=
7
EOB
G
0
Y
[
$
PARX_M_60003
]
QV
[
$
PARY_M_60003
]
EOB
END_IF
EOB
ENDIFDEF
EOB
IFDEF
AXES
>
8
EOB
IF
$
AXESZ_M_60003
=
8
EOB
G
0
Y
[
$
PARX_M_60003
]
QW
[
$
PARY_M_60003
]
EOB
END_IF
EOB
ENDIFDEF
EOB
END_IF
EOB
@
FINE_INI_M_60003
EOB
RETURN
EOB
EOB
EOB
EOB
@
CICLO_FORATURA_M_60003
EOB
EOB
@
RIPETI_M_60003
EOB
G
91
EOB
IF
$
PASSATA_M_60003
=
0
EOB
G
1
QZ
[
$
INCAFF_M_60003
]
EOB
ELSE
EOB
G
1
QZ
[
$
INCAFF_M_60003
-
$
DELTA_S_M_60003
]
EOB
END_IF
EOB
G
62
EOB
$
PASSATA_M_60003
=
$
PASSATA_M_60003
+
1
EOB
G
62
EOB
IF
$
TOTP_M_60003
=
$
PASSATA_M_60003
EOB
IF
$
INCF_M_60003
=
0
EOB
GOTO
EXIT_M_60003
EOB
ELSE
EOB
GOTO
FINALE_M_60003
EOB
END_IF
EOB
END_IF
EOB
G
90
EOB
G
0
QZ
[
$
PARR_M_60003
]
EOB
G
91
EOB
G
0
QZ
[
(
$
INCAFF_M_60003
*
$
PASSATA_M_60003
)
+
$
DELTA_S_M_60003
]
EOB
GOTO
RIPETI_M_60003
EOB
EOB
@
FINALE_M_60003
EOB
G
62
EOB
G
90
EOB
G
0
QZ
[
$
PARR_M_60003
]
EOB
G
91
EOB
G
0
QZ
[
(
$
INCAFF_M_60003
*
$
PASSATA_M_60003
)
+
$
DELTA_S_M_60003
]
EOB
G
90
EOB
G
1
QZ
[
$
PARZ_M_60003
]
EOB
G
62
EOB
EOB
@
EXIT_M_60003
EOB
G
90
EOB
EOB
G
0
Z
[
$
PARR_M_60003
]
EOB
EOB
EOB
EOB
RETURN
EOB
EOB
EOB
@
CICLO_RTRUC_M_60003
EOB
EOB
@
RIPETI1_M_60003
EOB
G
91
EOB
IF
$
PASSATA_M_60003
=
0
EOB
G
1
QZ
[
$
INCAFF_M_60003
]
EOB
ELSE
EOB
G
1
QZ
[
$
INCAFF_M_60003
-
$
PARP_M_60003
]
EOB
END_IF
EOB
G
62
EOB
$
PASSATA_M_60003
=
$
PASSATA_M_60003
+
1
EOB
G
62
EOB
IF
$
TOTP_M_60003
=
$
PASSATA_M_60003
EOB
IF
$
INCF_M_60003
=
0
EOB
GOTO
EXIT1_M_60003
EOB
ELSE
EOB
GOTO
FINALE1_M_60003
EOB
END_IF
EOB
END_IF
EOB
G
0
QZ
[
$
PARP_M_60003
]
EOB
GOTO
RIPETI1_M_60003
EOB
EOB
@
FINALE1_M_60003
EOB
G
62
EOB
G
0
QZ
[
$
PARP_M_60003
]
EOB
G
90
EOB
G
1
QZ
[
$
PARZ_M_60003
]
EOB
G
62
EOB
EOB
@
EXIT1_M_60003
EOB
G
90
EOB
EOB
G
0
Z
[
$
PARR_M_60003
]
EOB
EOB
EOB
EOB
RETURN
EOB
EOB
EOB
@
ESCI_M_60003
EOB
IF
$
TIPO_M_60003
=
1
EOB
G
91
EOB
ELSE
EOB
G
90
EOB
END_IF
EOB
G
27
EOB
:
30008
=
0
EOB
EOB
EOB
EOB
EOB
EOB
EOB
