Proiezione ammortamenti cespiti

MESSAGE RESET,F1.101 MESSAGE RESET,F1.102 MESSAGE RESET,F1.103 MESSAGE RESET,F1.104 MESSAGE RESET,F1.105 MESSAGE RESET,F1.106 MESSAGE RESET,F1.107 MESSAGE RESET,F1.108 MESSAGE RESET,F1.109 MESSAGE RESET,F1.110 #SYSTEM.RAGSOC #SYSTEM.DATE #REPORT.PAGE

I0 MESSAGE RESET,F2.101 MESSAGE RESET,F2.102 MESSAGE RESET,F2.103 MESSAGE RESET,F2.104 MESSAGE RESET,F2.105 MESSAGE RESET,F2.106 MESSAGE RESET,F2.107 MESSAGE RESET,F2.108 MESSAGE RESET,F2.109 MESSAGE RESET,F2.110 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 #101-#102-#103 #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

#101-#102-#103 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 #101-#102-#103 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]