Proiezione ammortamenti cespiti

MESSAGE RESET,F1 #SYSTEM.RAGSOC #SYSTEM.DATE #REPORT.PAGE

I0 MESSAGE RESET,F2 I0 MESSAGE COPY,F2.100

#FINESCPREC #FINESCPREC #ANNOES #ANNOES+1 #ANNOES+2 #ANNOES+3 #ANNOES+4

CODTAB[7,8] S0 #101 @ #102 @ - DUP 0 E; IF #105 @ 100 * SWAP F; 0 ROUND ELSE DROP 0 THEN #THIS ! #COSTO MESSAGE ADD,F2.101 #ALIENAZ MESSAGE ADD,F2.102 #AMMO0 MESSAGE ADD,F2.103 IF((#101-#102-#103)C;0,0,#THIS) MESSAGE ADD,F2.104 #AMMO1 MESSAGE ADD,F2.105 #AMMO2 MESSAGE ADD,F2.106 #AMMO3 MESSAGE ADD,F2.107 #AMMO4 MESSAGE ADD,F2.108 #AMMO5 MESSAGE ADD,F2.109 #AMMOX MESSAGE ADD,F2.110

MESSAGE ADD,F1.105 MESSAGE ADD,F1.106 MESSAGE ADD,F1.107 MESSAGE ADD,F1.108 MESSAGE ADD,F1.109 MESSAGE ADD,F1.110

MESSAGE ADD,F1.101 MESSAGE ADD,F1.102 MESSAGE ADD,F1.103 MESSAGE ADD,F1.104 MESSAGE ADD,F1.105 MESSAGE ADD,F1.106 MESSAGE ADD,F1.107 MESSAGE ADD,F1.108 MESSAGE ADD,F1.109 MESSAGE ADD,F1.110

USE %CAC BY I0 CODTAB[7,8]