diff --git a/ca/ca1800a.rep b/ca/ca1800a.rep index 8b1a763de..67551be24 100755 --- a/ca/ca1800a.rep +++ b/ca/ca1800a.rep @@ -227,6 +227,7 @@ THEN #THIS @ \ se importo negativo cambia segno e inverte sezione +DUP 0 C; IF -1 * #THIS ! @@ -238,7 +239,8 @@ THEN "D" THEN #105 ! - +ELSE + DROP THEN @@ -253,6 +255,7 @@ THEN #THIS @ \ se importo negativo cambia segno e inverte sezione +DUP 0 C; IF -1 * #THIS ! @@ -264,7 +267,8 @@ THEN "D" THEN #107 ! - +ELSE + DROP THEN @@ -290,6 +294,7 @@ THEN #THIS @ \ se importo negativo cambia segno e inverte sezione +DUP 0 C; IF -1 * #THIS ! @@ -301,7 +306,8 @@ THEN "D" THEN #105 ! - +ELSE + DROP THEN @@ -316,6 +322,7 @@ THEN #THIS @ \ se importo negativo cambia segno e inverte sezione +DUP 0 C; IF -1 * #THIS ! @@ -327,7 +334,8 @@ THEN "D" THEN #107 ! - +ELSE + DROP THEN @@ -349,6 +357,7 @@ THEN #THIS @ \ se importo negativo cambia segno e inverte sezione +DUP 0 C; IF -1 * #THIS ! @@ -360,7 +369,8 @@ THEN "D" THEN #105 ! - +ELSE + DROP THEN @@ -373,6 +383,7 @@ THEN #THIS @ \ se importo negativo cambia segno e inverte sezione +DUP 0 C; IF -1 * #THIS ! @@ -384,7 +395,8 @@ THEN "D" THEN #107 ! - +ELSE + DROP THEN