4541a40a90
Files correlati : Ricompilazione Demo : [ ] Commento : RIportata la verione 3.2 1167 git-svn-id: svn://10.65.10.50/trunk@16718 c028cbd2-c16b-5b4b-a496-9718f37d4682
605 lines
15 KiB
XML
Executable File
605 lines
15 KiB
XML
Executable File
<?xml version="1.0" encoding="UTF-8" ?>
|
|
<report name="gv0500" lpi="6">
|
|
<description>Stampa F24</description>
|
|
<font face="Courier New" size="12" />
|
|
<section type="Head" height="18">
|
|
<field x="4" type="Numero" hidden="1" align="right" width="5" pattern="1">
|
|
<source>RIGHEF24.ABI</source>
|
|
<postscript description="H0.0 POSTSCRIPT">MESSAGE COPY,F1.101</postscript>
|
|
</field>
|
|
<field x="11" type="Numero" hidden="1" align="right" width="5" pattern="1">
|
|
<source>RIGHEF24.CAB</source>
|
|
<postscript description="H0.0 POSTSCRIPT">MESSAGE COPY,F1.102</postscript>
|
|
</field>
|
|
<field x="47.5" y="3" type="Stringa" valign="bottom" width="35" height="2" pattern="1">
|
|
<prescript description="H0.0 PRESCRIPT">"S0"
|
|
"'"
|
|
"ABI" @ +
|
|
"'" +
|
|
"%BAN"
|
|
TABLE_READ</prescript>
|
|
</field>
|
|
<field x="47.5" y="5" type="Stringa" valign="bottom" width="24" height="2" pattern="1">
|
|
<prescript description="H0.0 PRESCRIPT">"S0"
|
|
"'"
|
|
"ABI" @ +
|
|
"CAB" @ +
|
|
"'" +
|
|
"%BAN"
|
|
TABLE_READ</prescript>
|
|
</field>
|
|
<field x="75" y="6" type="Stringa" width="5" pattern="1">
|
|
<prescript description="H0.0 PRESCRIPT">"DENCOM!#103=PROVCOM"
|
|
"COM="
|
|
"S5" @ +
|
|
13
|
|
ISAM_READ</prescript>
|
|
</field>
|
|
<field x="16" y="9" type="Stringa" valign="bottom" hidden="1" bg_color="#FFFF80" width="32" pattern="1" text="# # # # # # # # # # # # # # # #">
|
|
<source>CLIFO.COFI</source>
|
|
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
|
"C" = IF
|
|
SHOW
|
|
#THIS @
|
|
STRLEN
|
|
11 = IF
|
|
#THIS @
|
|
" " +
|
|
#THIS !
|
|
THEN
|
|
ELSE
|
|
HIDE
|
|
THEN
|
|
</prescript>
|
|
</field>
|
|
<field x="16" y="9" type="Stringa" valign="bottom" width="32" pattern="1" text="# # # # # # # # # # # # # # # #">
|
|
<source>ANAGR.COFI</source>
|
|
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
|
"C" = NEGATE IF
|
|
SHOW
|
|
#THIS @
|
|
STRLEN
|
|
11 = IF
|
|
#THIS @
|
|
" " +
|
|
#THIS !
|
|
THEN
|
|
ELSE
|
|
HIDE
|
|
THEN</prescript>
|
|
</field>
|
|
<field x="16" y="11" type="Stringa" hidden="1" width="30" pattern="1">
|
|
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
|
"C" = IF
|
|
SHOW
|
|
"CLIFO.RAGSOC" @
|
|
0
|
|
30
|
|
STRMID
|
|
#THIS !
|
|
ELSE
|
|
HIDE
|
|
THEN</prescript>
|
|
</field>
|
|
<field x="16" y="11" type="Stringa" width="30" pattern="1">
|
|
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
|
"C" = NEGATE IF
|
|
SHOW
|
|
"ANAGR.RAGSOC" @
|
|
0
|
|
30
|
|
STRMID
|
|
#THIS !
|
|
ELSE
|
|
HIDE
|
|
THEN</prescript>
|
|
</field>
|
|
<field x="58.5" y="11" type="Stringa" hidden="1" width="20" pattern="1">
|
|
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
|
"C" = IF
|
|
SHOW
|
|
"CLIFO.RAGSOC" @
|
|
30
|
|
20
|
|
STRMID
|
|
#THIS !
|
|
ELSE
|
|
HIDE
|
|
THEN</prescript>
|
|
</field>
|
|
<field x="58.5" y="11" type="Stringa" width="20" pattern="1">
|
|
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
|
"C" = NEGATE IF
|
|
SHOW
|
|
"ANAGR.RAGSOC" @
|
|
30
|
|
20
|
|
STRMID
|
|
#THIS !
|
|
ELSE
|
|
HIDE
|
|
THEN</prescript>
|
|
</field>
|
|
<field x="15.5" y="13" type="Numero" align="right" width="4" pattern="1" hide_zero="1" text="# #">
|
|
<prescript description="H0.0 PRESCRIPT">"ANAGR.COFI" @
|
|
DUP
|
|
"" = IF
|
|
DROP
|
|
"CLIFO.COFI" @
|
|
THEN
|
|
DUP
|
|
STRLEN
|
|
16 = IF
|
|
9
|
|
2
|
|
STRMID
|
|
DUP
|
|
40 E; IF
|
|
40 -
|
|
"F" #104 !
|
|
ELSE
|
|
"M" #104 !
|
|
THEN
|
|
#THIS !
|
|
THEN</prescript>
|
|
</field>
|
|
<field x="20" y="13" type="Array" width="4" pattern="1">
|
|
<prescript description="H0.0 PRESCRIPT">"ANAGR.COFI" @
|
|
DUP
|
|
"" = IF
|
|
DROP
|
|
"CLIFO.COFI" @
|
|
THEN
|
|
DUP
|
|
STRLEN
|
|
16 = IF
|
|
8
|
|
1
|
|
STRMID
|
|
#THIS !
|
|
THEN</prescript>
|
|
<list>
|
|
<li Value=" " Code=" " />
|
|
<li Value="0 1" Code="A" />
|
|
<li Value="0 2" Code="B" />
|
|
<li Value="0 3" Code="C" />
|
|
<li Value="0 4" Code="D" />
|
|
<li Value="0 5" Code="E" />
|
|
<li Value="0 6" Code="H" />
|
|
<li Value="0 7" Code="L" />
|
|
<li Value="0 8" Code="M" />
|
|
<li Value="0 9" Code="P" />
|
|
<li Value="1 0" Code="R" />
|
|
<li Value="1 1" Code="S" />
|
|
<li Value="1 2" Code="T" />
|
|
</list>
|
|
</field>
|
|
<field x="23.5" y="13" type="Numero" align="right" width="8" pattern="1" hide_zero="1" text="# # # #">
|
|
<prescript description="H0.0 PRESCRIPT">"ANAGR.COFI" @
|
|
DUP
|
|
"" = IF
|
|
DROP
|
|
"CLIFO.COFI" @
|
|
THEN
|
|
DUP
|
|
STRLEN
|
|
16 = IF
|
|
6
|
|
2
|
|
STRMID
|
|
#THIS !
|
|
#THIS @
|
|
1900 +
|
|
DUP
|
|
50 C; IF
|
|
100 +
|
|
THEN
|
|
#THIS !
|
|
THEN</prescript>
|
|
</field>
|
|
<field x="52" y="15" type="Stringa" hidden="1" width="30" height="2" pattern="1">
|
|
<source>CLIFO.INDCF+", "+CLIFO.CIVCF</source>
|
|
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
|
"C" = IF
|
|
SHOW
|
|
ELSE
|
|
HIDE
|
|
THEN</prescript>
|
|
</field>
|
|
<field x="52" y="15" type="Stringa" width="30" height="2" pattern="1">
|
|
<source>ANAGR.INDRES+", "+ANAGR.CIVRES</source>
|
|
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
|
"C" = NEGATE IF
|
|
SHOW
|
|
ELSE
|
|
HIDE
|
|
THEN</prescript>
|
|
</field>
|
|
<field y="19" type="Array" hidden="1" width="1" pattern="1">
|
|
<source>RIGHEF24.TIPO</source>
|
|
<list>
|
|
<li Value="C" Code="C">MESSAGE SHOW,2@ MESSAGE HIDE,1@</li>
|
|
<li Value="F" Code="F">MESSAGE SHOW,1@ MESSAGE HIDE,2@</li>
|
|
<li Value="G" Code="G">MESSAGE SHOW,1@ MESSAGE HIDE,2@</li>
|
|
</list>
|
|
</field>
|
|
<field x="16" y="15" type="Stringa" hidden="1" width="30" height="2" id="101" pattern="1">
|
|
<prescript description="H0.101 PRESCRIPT">#THIS "TIPO" @
|
|
"C" = IF
|
|
SHOW
|
|
"DENCOM!#103=PROVCOM"
|
|
"CLIFO.STATOCF" @
|
|
"" = NEGATE IF
|
|
"STATO="
|
|
"CLIFO.STATOCF" @ +
|
|
"!COM" +
|
|
ELSE
|
|
"COM="
|
|
THEN
|
|
"CLIFO.COMCF" @ +
|
|
13
|
|
ISAM_READ
|
|
ELSE
|
|
HIDE
|
|
THEN</prescript>
|
|
</field>
|
|
<field x="16" y="15" type="Stringa" width="30" height="2" id="102" pattern="1">
|
|
<prescript description="H0.102 PRESCRIPT">#THIS "TIPO" @
|
|
"C" = NEGATE IF
|
|
SHOW
|
|
"DENCOM!#103=PROVCOM"
|
|
"COM="
|
|
"ANAGR.COMRES" @ +
|
|
13
|
|
ISAM_READ
|
|
ELSE
|
|
HIDE
|
|
THEN</prescript>
|
|
</field>
|
|
<field x="47" y="15" type="Stringa" width="4" id="103" pattern="1" text="# #" />
|
|
<field x="34.5" y="13" type="Stringa" width="1" id="104" pattern="1" />
|
|
<field x="38.5" y="13" type="Stringa" width="39" id="105" pattern="1">
|
|
<prescript description="H0.105 PRESCRIPT">"DENCOM!#106=PROVCOM"
|
|
"COM="
|
|
"ANAGR.COFI" @
|
|
DUP
|
|
"" = IF
|
|
DROP
|
|
"CLIFO.COFI" @
|
|
THEN
|
|
DUP
|
|
STRLEN
|
|
16 = IF
|
|
11
|
|
4
|
|
STRMID
|
|
THEN
|
|
+
|
|
13
|
|
ISAM_READ
|
|
</prescript>
|
|
</field>
|
|
<field x="76.5" y="13" type="Stringa" width="4" id="106" pattern="1" text="# #" />
|
|
</section>
|
|
<section type="Head" level="1">
|
|
<prescript description="H1 PRESCRIPT">VARIABLE HB0
|
|
VARIABLE HB1
|
|
VARIABLE HB2
|
|
VARIABLE HB3
|
|
VARIABLE HB4
|
|
VARIABLE HB5
|
|
VARIABLE LS
|
|
VARIABLE HS
|
|
0 "HB0" !
|
|
7 "HB1" !
|
|
5 "HB2" !
|
|
5 "HB3" !
|
|
5 "HB4" !
|
|
4 "HB5" !
|
|
"" LS !
|
|
0
|
|
TOT_SEC_HEIGHT
|
|
HS !</prescript>
|
|
</section>
|
|
<section type="Head" level="2" height="2">
|
|
<groupby>SEZIONE</groupby>
|
|
<prescript description="H2 PRESCRIPT">"F2"
|
|
"HB"
|
|
"SEZIONE" @
|
|
SEC_2_INDEX
|
|
+
|
|
@
|
|
SET_SEC_HEIGHT
|
|
"H2"
|
|
HS @
|
|
"SEZIONE" @
|
|
SEC_2_INDEX
|
|
TOT_SEC_HEIGHT
|
|
-
|
|
"SEZIONE" @
|
|
SEC_2_INDEX
|
|
LS @
|
|
SEC_2_INDEX
|
|
-
|
|
2 *
|
|
+
|
|
SET_SEC_HEIGHT
|
|
"SEZIONE" @
|
|
LS !
|
|
</prescript>
|
|
</section>
|
|
<section type="Body">
|
|
<field type="Immagine" width="83.7" height="70" pattern="1">
|
|
<source>"f24.png"</source>
|
|
</field>
|
|
</section>
|
|
<section type="Body" level="1">
|
|
<condition>SEZIONE='E'</condition>
|
|
<postscript description="B1 POSTSCRIPT">"F2"
|
|
DECR_SEC_HEIGHT</postscript>
|
|
<field x="22.5" type="Stringa" width="4" pattern="1">
|
|
<source>TRIBUTO</source>
|
|
</field>
|
|
<field x="31" type="Stringa" width="4" pattern="1">
|
|
<source>RATEAZIONE</source>
|
|
</field>
|
|
<field x="38" type="Numero" align="right" width="4" pattern="1">
|
|
<source>ANNO</source>
|
|
</field>
|
|
<field x="45.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
|
|
<source>IMPORTODEB</source>
|
|
<prescript description="B1.0 PRESCRIPT">#THIS @
|
|
"F2.101" +!
|
|
</prescript>
|
|
</field>
|
|
<field x="57.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
|
|
<source>IMPORTOCRE</source>
|
|
<prescript description="B1.0 PRESCRIPT">#THIS @
|
|
"F2.102" +!
|
|
</prescript>
|
|
</field>
|
|
</section>
|
|
<section type="Body" level="2" bg_color="#FFFF80">
|
|
<condition>SEZIONE='I'</condition>
|
|
<postscript description="B2 POSTSCRIPT">"F2"
|
|
DECR_SEC_HEIGHT</postscript>
|
|
<field x="2.5" type="Stringa" width="5" pattern="1">
|
|
<source>RIGHEF24.SEDE</source>
|
|
</field>
|
|
<field x="8" type="Stringa" width="4" pattern="1">
|
|
<source>TRIBUTO</source>
|
|
</field>
|
|
<field x="12.5" type="Stringa" width="18" pattern="1">
|
|
<source>RIGHEF24.MATRICOLA</source>
|
|
</field>
|
|
<field x="31" type="Numero" align="right" width="6" pattern="1" hide_zero="1" text="@@@@@@">
|
|
<source>RIGHEF24.PERIODODA</source>
|
|
</field>
|
|
<field x="38" type="Numero" align="right" width="6" pattern="1" hide_zero="1" text="@@@@@@">
|
|
<source>RIGHEF24.PERIODOA</source>
|
|
</field>
|
|
<field x="45.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
|
|
<source>IMPORTODEB</source>
|
|
<prescript description="B2.0 PRESCRIPT">#THIS @
|
|
"F2.101" +!
|
|
</prescript>
|
|
</field>
|
|
<field x="57.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
|
|
<source>IMPORTOCRE</source>
|
|
<prescript description="B2.0 PRESCRIPT">#THIS @
|
|
"F2.102" +!
|
|
</prescript>
|
|
</field>
|
|
</section>
|
|
<section type="Body" level="3">
|
|
<condition>SEZIONE=='R'</condition>
|
|
<postscript description="B3 POSTSCRIPT">"F2"
|
|
DECR_SEC_HEIGHT</postscript>
|
|
<field x="1.5" type="Numero" align="right" width="5" pattern="1" text="@ @">
|
|
<source>RIGHEF24.CODREG</source>
|
|
</field>
|
|
<field x="22" type="Stringa" width="4" pattern="1">
|
|
<source>TRIBUTO</source>
|
|
</field>
|
|
<field x="31" type="Stringa" width="4" pattern="1">
|
|
<source>RATEAZIONE</source>
|
|
</field>
|
|
<field x="38" type="Numero" align="right" width="4" pattern="1">
|
|
<source>ANNO</source>
|
|
</field>
|
|
<field x="45.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
|
|
<source>IMPORTODEB</source>
|
|
<prescript description="B3.0 PRESCRIPT">#THIS @
|
|
"F2.101" +!
|
|
</prescript>
|
|
</field>
|
|
<field x="57.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
|
|
<source>IMPORTOCRE</source>
|
|
<prescript description="B3.0 PRESCRIPT">#THIS @
|
|
"F2.102" +!
|
|
</prescript>
|
|
</field>
|
|
</section>
|
|
<section type="Body" level="4">
|
|
<condition>SEZIONE=='L'</condition>
|
|
<postscript description="B4 POSTSCRIPT">"F2"
|
|
DECR_SEC_HEIGHT</postscript>
|
|
<field x="2.9" type="Stringa" bg_color="#FFFF80" width="7" pattern="1" text="# # # #">
|
|
<source>RIGHEF24.ENTECOM</source>
|
|
<prescript description="B4.0 PRESCRIPT">#THIS @
|
|
DUP
|
|
4 SWAP
|
|
STRLEN
|
|
DO
|
|
" " +
|
|
LOOP
|
|
#THIS !
|
|
|
|
</prescript>
|
|
</field>
|
|
<field x="10.5" type="Stringa" width="1" pattern="1">
|
|
<source>RIGHEF24.RAVVED</source>
|
|
</field>
|
|
<field x="12.5" type="Stringa" width="1" pattern="1">
|
|
<source>RIGHEF24.IMMVAR</source>
|
|
</field>
|
|
<field x="14.5" type="Stringa" width="1" pattern="1">
|
|
<source>RIGHEF24.ACCONTO</source>
|
|
</field>
|
|
<field x="16.5" type="Stringa" width="1" pattern="1">
|
|
<source>RIGHEF24.SALDO</source>
|
|
</field>
|
|
<field x="18.2" type="Numero" align="right" width="2" pattern="1" hide_zero="1">
|
|
<source>RIGHEF24.NUMIMM</source>
|
|
</field>
|
|
<field x="22.5" type="Stringa" width="4" pattern="1">
|
|
<source>TRIBUTO</source>
|
|
</field>
|
|
<field x="31" type="Stringa" width="4" pattern="1">
|
|
<source>RATEAZIONE</source>
|
|
</field>
|
|
<field x="38" type="Numero" align="right" width="4" pattern="1">
|
|
<source>ANNO</source>
|
|
</field>
|
|
<field x="45.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
|
|
<source>IMPORTODEB</source>
|
|
<prescript description="B4.0 PRESCRIPT">#THIS @
|
|
"F2.101" +!
|
|
</prescript>
|
|
</field>
|
|
<field x="57.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
|
|
<source>IMPORTOCRE</source>
|
|
<prescript description="B4.0 PRESCRIPT">#THIS @
|
|
"F2.102" +!
|
|
</prescript>
|
|
</field>
|
|
</section>
|
|
<section type="Body" level="5">
|
|
<condition>SEZIONE=='N'</condition>
|
|
<postscript description="B5 POSTSCRIPT">"F2"
|
|
DECR_SEC_HEIGHT</postscript>
|
|
<field x="14" type="Stringa" width="5" pattern="1">
|
|
<source>RIGHEF24.SEDE</source>
|
|
</field>
|
|
<field x="19.5" type="Numero" align="right" width="8" pattern="1">
|
|
<source>RIGHEF24.POSASS</source>
|
|
</field>
|
|
<field x="29" type="Numero" align="right" width="2" pattern="1">
|
|
<source>RIGHEF24.CIN</source>
|
|
</field>
|
|
<field x="33" type="Numero" align="right" width="6" pattern="1">
|
|
<source>RIGHEF24.NUMRIF</source>
|
|
</field>
|
|
<field x="40.5" type="Stringa" width="1" pattern="1">
|
|
<source>RIGHEF24.CAUSINAIL</source>
|
|
</field>
|
|
<field x="45.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
|
|
<source>IMPORTODEB</source>
|
|
<prescript description="B5.0 PRESCRIPT">#THIS @
|
|
"F2.101" +!
|
|
</prescript>
|
|
</field>
|
|
<field x="57.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
|
|
<source>IMPORTOCRE</source>
|
|
<prescript description="B5.0 PRESCRIPT">#THIS @
|
|
"F2.102" +!
|
|
</prescript>
|
|
</field>
|
|
</section>
|
|
<section type="Foot" />
|
|
<section y="58" type="Foot" level="1" bg_color="#80FF80">
|
|
<field x="23.5" y="6.75" type="Numero" align="right" width="5" id="101" pattern="1" text="@@@@@" />
|
|
<field x="36" y="6.75" type="Numero" align="right" width="5" id="102" pattern="1" text="@@@@@" />
|
|
<field x="69.5" y="0.87" type="Valuta" align="right" bg_color="#FF8080" width="11" id="103" pattern="1" hide_zero="1" text="###.###.###,@@">
|
|
<postscript description="F1.103 POSTSCRIPT">0 #THIS !</postscript>
|
|
</field>
|
|
</section>
|
|
<section type="Foot" level="2" bg_color="#80FF80" height="5">
|
|
<postscript description="F2 POSTSCRIPT">\ Ripristina l'altezza del footer
|
|
"F2"
|
|
"HB2" @
|
|
SET_SEC_HEIGHT
|
|
LS @
|
|
SEC_2_INDEX
|
|
1
|
|
+
|
|
TOT_SEC_HEIGHT
|
|
HS !
|
|
</postscript>
|
|
<field x="69.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
|
|
<source>#101-#102</source>
|
|
<prescript description="F2.0 PRESCRIPT">"F2"
|
|
REP_MESSAGE_ALIGN_BOTTOM
|
|
</prescript>
|
|
<postscript description="F2.0 POSTSCRIPT">MESSAGE ADD,F1.103</postscript>
|
|
</field>
|
|
<field x="45.5" y="0.06" type="Valuta" align="right" width="11" id="101" pattern="1" hide_zero="1" text="###.###.###,@@">
|
|
<prescript description="F2.101 PRESCRIPT">"F2"
|
|
REP_MESSAGE_ALIGN_BOTTOM</prescript>
|
|
<postscript description="F2.101 POSTSCRIPT">0 #THIS !</postscript>
|
|
</field>
|
|
<field x="57.5" y="0.06" type="Valuta" align="right" width="11" id="102" pattern="1" hide_zero="1" text="###.###.###,@@">
|
|
<prescript description="F2.102 PRESCRIPT">"F2"
|
|
REP_MESSAGE_ALIGN_BOTTOM</prescript>
|
|
<postscript description="F2.102 POSTSCRIPT">0 #THIS !</postscript>
|
|
</field>
|
|
</section>
|
|
<sql>USE RIGHEF24 KEY 5
|
|
JOIN ANAGR INTO TIPOA==TIPO CODANAGR==CODICE
|
|
JOIN CLIFO INTO TIPOCF==TIPO CODCF==CODICE
|
|
FROM F24=#DISTINTA
|
|
TO F24=#DISTINTA</sql>
|
|
<prescript description="PRESCRIPT">: SET_SEC_HEIGHT ( s h -- )
|
|
0 SWAP ROT
|
|
SET_SIZE
|
|
;
|
|
: DECR_SEC_HEIGHT ( s -- )
|
|
DUP
|
|
GET_SIZE
|
|
SWAP
|
|
DROP
|
|
1 -
|
|
SET_SEC_HEIGHT
|
|
;
|
|
: SEC_2_INDEX ( s -- n )
|
|
DUP
|
|
"E" = IF
|
|
1
|
|
ELSE
|
|
DUP
|
|
"I" = IF
|
|
2
|
|
ELSE
|
|
DUP
|
|
"R" = IF
|
|
3
|
|
ELSE
|
|
DUP
|
|
"L" = IF
|
|
4
|
|
ELSE
|
|
DUP
|
|
"N" = IF
|
|
5
|
|
ELSE
|
|
0
|
|
THEN
|
|
THEN
|
|
THEN
|
|
THEN
|
|
THEN
|
|
SWAP
|
|
DROP
|
|
;
|
|
: TOT_SEC_HEIGHT ( n -- n )
|
|
VARIABLE TOT
|
|
0 TOT !
|
|
6 SWAP DO
|
|
"HB"
|
|
I
|
|
+ @
|
|
TOT +!
|
|
LOOP
|
|
TOT @
|
|
;</prescript>
|
|
</report> |