Bilancio commessa CA riassuntivo per CdC
MESSAGE COPY,F1.2
(LEVELC;2)||(LEVEL=4)
MESSAGE COPY,F2.101
MESSAGE COPY,F2.102
LEVEL
MESSAGE COPY,F3.101
1 #H4.3 \ incrementa il contatore per il numero di righe di cdc
+!
MESSAGE ADD,F3.69
MESSAGE ADD,F3.169
#RICAVI @
EMPTY= IF
0
ELSE
1
#COSTI @
#RICAVI @
F;
-
100
*
0
ROUND
DUP
-999 C; IF
DROP -999
THEN
THEN
#THIS !
#LEVEL @
4 = IF
"90@" ENABLE
ELSE
"90@" DISABLE
THEN
90
90
90
MESSAGE ADD,F1.69
MESSAGE COPY,F2.101
MESSAGE ADD,F1.169
MESSAGE RESET,169
MESSAGE ADD,F2.69
MESSAGE ADD,F2.269
MESSAGE ADD,F2.169
MESSAGE ADD,F2.369
MESSAGE RESET,169
USE SALDANA