campo-sirio/src/ca/ca3300b.rep
Alessandro Bonazzi 673daa7dec Revert "Patch level : 12.0 nopatch"
This reverts commit e69c5ff43c7bbf3fa1d26d808adaf242c7ebea1d.
2021-11-08 02:08:03 +01:00

267 lines
22 KiB
XML
Executable File

<?xml version="1.0" encoding="UTF-8" ?>
<report libraries="" page_merge="" save_printer="" name="ca3300b" use_printer_font="" orientation="2" page_split="" lpi="8" command="ca3 -2" class="ca3300b">
<description>Bilancio di verifica (cons - prev)</description>
<font face="Courier New" size="8" />
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="" hidden="" page_break="" can_break="" pattern="1">
<font face="Arial" bold="1" size="8" />
<field border="1" y="0.25" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="167" codval="" height="0" id="" pattern="1" hide_zero="" text="" />
<field x="141" y="0.5" deactivated="" type="Testo" hidden="" align="center" link="" dynamic_height="" shade_offset="" width="25" codval="" height="1.5" id="" pattern="1" hide_zero="" text="SALDO FINALE" />
<field x="83.56" y="0.66" deactivated="" type="Testo" hidden="" align="center" link="" dynamic_height="" shade_offset="" width="25" codval="" id="" pattern="1" hide_zero="" text="SALDO INIZIALE" />
<field x="111.06" y="0.66" deactivated="" type="Testo" hidden="" align="center" link="" dynamic_height="" shade_offset="" width="27" codval="" id="" pattern="1" hide_zero="" text="MOVIMENTI DEL PERIODO" />
<field x="0.06" y="1.16" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="10" codval="" id="" pattern="1" hide_zero="" text="Conto" />
<field x="30.06" y="1.16" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="15" codval="" id="" pattern="1" hide_zero="" text="Descrizione" />
<field x="78" y="1.66" deactivated="" type="Testo" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="" pattern="1" hide_zero="" text="Dare" />
<field x="92" y="1.66" deactivated="" type="Testo" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="" pattern="1" hide_zero="" text="Avere" />
<field x="107" y="1.66" deactivated="" type="Testo" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="" pattern="1" hide_zero="" text="Dare" />
<field x="121" y="1.66" deactivated="" type="Testo" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="" pattern="1" hide_zero="" text="Avere" />
<field x="136" y="1.66" deactivated="" type="Testo" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="" pattern="1" hide_zero="" text="Dare" />
<field x="150" y="1.66" deactivated="" type="Testo" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="" pattern="1" hide_zero="" text="Avere" />
<field border="1" y="2.75" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="167" codval="" height="0" id="" pattern="1" hide_zero="" text="" />
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="1" hidden="" page_break="" can_break="" pattern="1">
<font face="Arial" bold="1" size="9" />
<prescript description="H1 PRESCRIPT">"F1" AZZERA_TOTALI</prescript>
<field border="1" radius="100" x="40.34" y="0.66" deactivated="" type="Rettangolo" hidden="" link="" dynamic_height="" shade_offset="25" width="80" codval="" height="3.5" id="" pattern="2" hide_zero="" text="" />
<field x="62.5" y="1.5" deactivated="" type="Testo" valign="center" hidden="" align="center" link="" dynamic_height="" shade_offset="" width="35" codval="" height="2" id="" pattern="1" hide_zero="" text="BILANCIO DI VERIFICA">
<font face="Arial" bold="1" size="14" />
</field>
<field x="0.75" y="5.5" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="60" codval="" height="1.25" id="" pattern="1" hide_zero="" text="">
<source>#SYSTEM.RAGSOC</source>
</field>
<field x="70.75" y="5.5" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="20" codval="" height="1.25" id="" pattern="1" hide_zero="" text="Data di stampa:">
<font face="Arial" size="9" />
</field>
<field x="90.75" y="5.5" deactivated="" type="Data" hidden="" link="" dynamic_height="" shade_offset="" width="15" codval="" height="1.25" id="" pattern="1" hide_zero="" text="">
<source>#SYSTEM.DATE</source>
</field>
<field x="0.75" y="7.08" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="20" codval="" id="" pattern="1" hide_zero="" text="Movimenti dal:">
<font face="Arial" size="9" />
<prescript description="">MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,DESCRIZ</prescript>
</field>
<field x="20.75" y="7.08" deactivated="" type="Data" hidden="" link="" dynamic_height="" shade_offset="" width="15" codval="" id="" pattern="1" hide_zero="" text="">
<source>#DATA_INIZIALE</source>
</field>
<field x="37.75" y="7.08" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="4" codval="" id="" pattern="1" hide_zero="" text="al:" />
<field x="42.75" y="7.08" deactivated="" type="Data" hidden="" link="" dynamic_height="" shade_offset="" width="15" codval="" id="" pattern="1" hide_zero="" text="">
<source>#DATA_FINALE</source>
</field>
<field x="0.75" y="8.33" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="20" codval="" id="" pattern="1" hide_zero="" text="Centro di costo:">
<font face="Arial" size="9" />
</field>
<field x="20.75" y="8.33" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="24" codval="" id="" pattern="1" hide_zero="" text="">
<source>#COSTO</source>
</field>
<field x="45.75" y="8.33" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="70" codval="" id="" pattern="1" hide_zero="" text="">
<prescript description="">MESSAGE ISAMREAD,CDC,CODCOSTO=#COSTO,DESCRIZ</prescript>
</field>
<field x="0.75" y="9.58" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="20" codval="" id="" pattern="1" hide_zero="" text="Commessa:">
<font face="Arial" size="9" />
</field>
<field x="20.75" y="9.58" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="24" codval="" id="" pattern="1" hide_zero="" text="">
<source>#COMMESSA</source>
</field>
<field x="45.75" y="9.58" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="70" codval="" id="" pattern="1" hide_zero="" text="">
<prescript description="">MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,DESCRIZ</prescript>
</field>
<field x="0.75" y="10.83" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="20" codval="" id="" pattern="1" hide_zero="" text="Fase:">
<font face="Arial" size="9" />
</field>
<field x="20.75" y="10.83" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="13" codval="" id="" pattern="1" hide_zero="" text="">
<source>#FASE</source>
</field>
<field x="45.75" y="10.83" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="70" codval="" id="" pattern="1" hide_zero="" text="">
<prescript description="">MESSAGE ISAMREAD,FASI,CODCMSFAS=#CMSCDC!CODFASE=#FASE,DESCRIZ</prescript>
</field>
<field x="0.5" y="12" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="20" codval="" id="" pattern="1" hide_zero="" text="Contabilit&#E0; separata:">
<font face="Arial" size="9" />
</field>
<field x="20.5" y="12" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="13" codval="" id="" pattern="1" hide_zero="" text="">
<source>#CONTSEP</source>
</field>
<field x="45.69" y="12" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="70" codval="" id="" pattern="1" hide_zero="" text="">
<prescript description="">MESSAGE TABLEREAD,&#26;NPENT,CODTAB=#CONTSEP,S0</prescript>
</field>
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="2" hidden="" page_break="" can_break="" pattern="1">
<condition>CODCONTO:2!=""</condition>
<groupby>CODCONTO:1</groupby>
<prescript description="H2 PRESCRIPT">"CODCONTO:1" @
"F2.101" !
"F2" AZZERA_TOTALI
</prescript>
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="3" hidden="" page_break="" can_break="" pattern="1">
<condition>CODCONTO:3!=""</condition>
<groupby>CODCONTO:2</groupby>
<prescript description="H3 PRESCRIPT">"CODCONTO:2" @
"F3.101" !
"F3" AZZERA_TOTALI</prescript>
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="4" hidden="" page_break="" can_break="" pattern="1">
<condition>CODCONTO:4 != ""</condition>
<groupby>CODCONTO:3</groupby>
<prescript description="H4 PRESCRIPT">"CODCONTO:3" @
"F4.101" ! \ Copia il codice conto nel footer
"F4" AZZERA_TOTALI</prescript>
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Body" level="" hidden="" page_break="" can_break="" pattern="1" />
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Body" level="1" hidden="" bg_color="#C0C0C0" page_break="" can_break="" pattern="1">
<font face="Arial" size="8" />
<field x="78" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>SALDO:INI_DARE</source>
<postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F1.103|ADD,F2.103|ADD,F3.103|ADD,F4.103
</postscript>
</field>
<field x="92" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>SALDO:INI_AVERE</source>
<postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F1.104|ADD,F2.104|ADD,F3.104|ADD,F4.104</postscript>
</field>
<field x="107" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>SALDO:MOV_DARE</source>
<postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F1.105|ADD,F2.105|ADD,F3.105|ADD,F4.105</postscript>
</field>
<field x="121" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>SALDO:MOV_AVERE</source>
<postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F1.106|ADD,F2.106|ADD,F3.106|ADD,F4.106</postscript>
</field>
<field x="136" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>SALDO:FIN_DARE</source>
<postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F1.107|ADD,F2.107|ADD,F3.107|ADD,F4.107</postscript>
</field>
<field x="150" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>SALDO:FIN_AVERE</source>
<postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F1.108|ADD,F2.108|ADD,F3.108|ADD,F4.108</postscript>
</field>
<field deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="24" codval="" id="101" pattern="1" hide_zero="" text="">
<source>CODCONTO</source>
<prescript description="B1.101 PRESCRIPT">CA_FORMAT_CONTO</prescript>
</field>
<field x="25" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="50" codval="" id="102" pattern="1" hide_zero="" text="">
<source>DESCR</source>
</field>
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Foot" level="" hidden="" page_break="" can_break="" pattern="1">
<font face="Arial" bold="1" size="9" />
<field border="1" x="1" y="0.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="164" codval="" height="0" id="" pattern="1" hide_zero="" text="" />
<field x="150" y="0.75" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="6" codval="" id="" pattern="1" hide_zero="" text="Pag." />
<field x="156" y="0.75" deactivated="" type="Numero" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="4" codval="" id="" pattern="1" hide_zero="" text="">
<source>#REPORT.PAGE</source>
</field>
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Foot" level="1" hidden="" page_break="" can_break="" pattern="1">
<font face="Arial" bold="1" size="9" />
<field border="2" y="0.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="167" codval="" height="0" id="" pattern="1" hide_zero="" text="" />
<field x="25" y="1" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="50" codval="" id="102" pattern="1" hide_zero="" text="Totale">
<prescript description="F1.102 PRESCRIPT">MESSAGE ISAMREAD,PCONANA,CODCONTO=#102,DESCR</prescript>
</field>
<field x="78" y="1" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="103" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="">103 DARE_AVERE</prescript>
</field>
<field x="92" y="1" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="104" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="107" y="1" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="105" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="121" y="1" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="106" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="136" y="1" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="107" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="">107 DARE_AVERE</prescript>
</field>
<field x="150" y="1" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="108" pattern="1" hide_zero="1" text="###.###.###,@@" />
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Foot" level="2" hidden="" height="2" page_break="" can_break="" pattern="1">
<condition>#101 != ""</condition>
<font italic="1" face="Arial" bold="1" size="8" />
<field border="1" y="2" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="167" codval="" height="0" id="" pattern="1" hide_zero="" text="" />
<field y="0.5" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="23" codval="" id="101" pattern="1" hide_zero="" text="">
<prescript description="F2.101 PRESCRIPT">#THIS @ #102 !
CA_FORMAT_CONTO</prescript>
</field>
<field x="25" y="0.5" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="50" codval="" id="102" pattern="1" hide_zero="" text="">
<prescript description="F2.102 PRESCRIPT">CA_FORMAT_CONTO_DESCR</prescript>
</field>
<field x="78" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="103" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F2.103 PRESCRIPT">103 DARE_AVERE</prescript>
</field>
<field x="92" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="104" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="107" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="105" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="121" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="106" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="136" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="107" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F2.107 PRESCRIPT">107 DARE_AVERE</prescript>
</field>
<field x="150" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="108" pattern="1" hide_zero="1" text="###.###.###,@@" />
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Foot" level="3" hidden="" height="1.5" page_break="" can_break="" pattern="1">
<condition>#101 != ""</condition>
<font face="Arial" bold="1" size="8" />
<field y="0.5" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="23" codval="" id="101" pattern="1" hide_zero="" text="">
<prescript description="F3.101 PRESCRIPT">#THIS @ #102 !
CA_FORMAT_CONTO</prescript>
</field>
<field x="25" y="0.5" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="50" codval="" id="102" pattern="1" hide_zero="" text="">
<prescript description="F3.102 PRESCRIPT">CA_FORMAT_CONTO_DESCR</prescript>
</field>
<field x="78" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="103" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F3.103 PRESCRIPT">103 DARE_AVERE</prescript>
</field>
<field x="92" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="104" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="107" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="105" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="121" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="106" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="136" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="107" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F3.107 PRESCRIPT">107 DARE_AVERE</prescript>
</field>
<field x="150" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="108" pattern="1" hide_zero="1" text="###.###.###,@@" />
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Foot" level="4" hidden="" height="1.5" page_break="" can_break="" pattern="1">
<condition>#101 != ""</condition>
<font face="Arial" bold="1" size="8" />
<field y="0.5" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="23" codval="" id="101" pattern="1" hide_zero="" text="">
<prescript description="F4.101 PRESCRIPT">#THIS @ #102 !
CA_FORMAT_CONTO</prescript>
</field>
<field x="25" y="0.5" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="50" codval="" id="102" pattern="1" hide_zero="" text="">
<prescript description="F4.102 PRESCRIPT">CA_FORMAT_CONTO_DESCR</prescript>
</field>
<field x="78" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="103" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F4.103 PRESCRIPT">103 DARE_AVERE</prescript>
</field>
<field x="92" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="104" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="107" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="105" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="121" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="106" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="136" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="107" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F4.107 PRESCRIPT">107 DARE_AVERE</prescript>
</field>
<field x="150" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="108" pattern="1" hide_zero="1" text="###.###.###,@@" />
</section>
<sql>USE PCONANA</sql>
<prescript description="PRESCRIPT">: AZZERA_TOTALI ( ID_SEC - )
109 103 DO
DUP \ Duplica codice sezione
"." + \ Aggiunge punto
I + \ Aggiunge codice campo
0 SWAP ! \ Lo azzera
LOOP
DROP
;
: DARE_AVERE ( ID_DARE -- )
VARIABLE _DARE
VARIABLE _AVERE
DUP
_DARE !
1 + _AVERE !
_DARE @ @ \ DARE
_AVERE @ @ \ AVERE
- \ DARE-AVERE
DUP
0 &#3C; IF \ Se negativo
-1 * \ Cambia segno
_AVERE @ ! \ Setta AVERE
0 _DARE @ ! \ Azzera DARE
ELSE
_DARE @ ! \ Setta DARE
0 _AVERE @ ! \ Azzera AVERE
THEN
;
</prescript>
</report>