M#THIS @ \ valore in kg
1000 F; \ valore in ton
#21 @ \ campo di destinazione
+! \ incrementa il valore nel campo di destinazioneF#SYSTEM.DATE0 \ totale attuale nullo
107 101 DO
I @ + \ somma il campo corrente al totale di sezione
LOOP
0 = IF \ se la somma E8; nulla nasconde la sezione
"F2" HIDE
ELSE
"F2" SHOW
THEN MESSAGE ADD,F1.101MESSAGE ADD,F1.102MESSAGE ADD,F1.103MESSAGE ADD,F1.104MESSAGE ADD,F1.105MESSAGE ADD,F1.106