/* 	This file is part of PPPCOSTS.	Copyright (c) 1996,97 Tillmann Steinbrecher.	May be distributed according to the terms of the GNU	General Public License version 2. No warranty.	Modified by Ivano Croce	<crc1@freenet.hut.fi>	Costi per Telecom Italia.	In vigore da luglio 1997 e validi fino a dicembre 1997.		Phone costs for the Italian public phone company Telecom Italia.	Valid from July 1997 and until December 1997.*/#include "costs.h"char DECIMALS= '0';float INITIAL_COST=0;char CURRENCY_AFTER_COST=0;char CURRENCY[10]="L.";float COSTS_PER_UNIT=151.13;  /* Lire 127 + IVA=19% *//* float COSTS_PER_UNIT=127;  /* Lire 127 senza IVA */ #define CURRENCY "L. "#define DECIMALS "0"/* Decommentare la fascia applicata  - Uncomment the applicable zone  *//* Tariffa urbana                    - Local area call                */#define	TI_ZONE1 /* Interurbana fino a 15 Km          - Long distance call up to 15 Km *//* #define	TI_ZONE2                                              */                                           /* Interurbana tra 15 e 30 Km        - Long distance call 15 to 30 Km *//* #define	TI_ZONE3                                              *//* Interurbana tra 30 e 60 Km        - Long distance call 30 to 60 Km *//* #define	TI_ZONE4                                              *//* Interurbana oltre i 60 Km         - Long distance call over 60 Km  *//* #define	TI_ZONE5                                              *//* Durata scatto TUT                 - Unit length: local area        */#ifdef TI_ZONE1#define	TI_BLUE         400#define	TI_CYAN         400#define	TI_YELLOW       220#define	TI_ORANGE       220#endif/* Durata scatto int. fino a 15 Km   - Unit length: up to 15 Km       */#ifdef TI_ZONE2#define	TI_BLUE         150   #define	TI_CYAN         130   #define	TI_YELLOW        75   #define	TI_ORANGE        65#endif/* Durata scatto int. tra 15 e 30 Km - Unit length: 15 to 30 Km       */#ifdef TI_ZONE3#define	TI_BLUE          80   #define	TI_CYAN          70   #define	TI_YELLOW        40   #define	TI_ORANGE        39#endif/* Durata scatto int. tra 30 e 60 Km - Unit length: 30 to 60 Km       */#ifdef TI_ZONE4#define	TI_BLUE          50   #define	TI_CYAN          45   #define	TI_YELLOW        22   /* Effettivamente 22.5 - Actually 22.5 */#define	TI_ORANGE        22   /* Effettivamente 22.5 - Actually 22.5 */#endif/* Durata scatto int. oltre i 60 Km  - Unit length: over 60 Km        */#ifdef TI_ZONE5#define	TI_BLUE          45   #define	TI_CYAN          37   #define	TI_YELLOW        20   #define	TI_ORANGE        20#endifint easter_monday(int day, int month, int year){   int a, m, easterday, eastermonth = 3;   /* Trova quand'