##
## The day the month starts, ie pay day.
## 
$MonthStart = 25;

##
## The amount of money coming in a month; numeric value.
## Set to undef to disable.
##
$MoneyIn = 1000;

##
## The currency used
##
# UK
$CURR = "£";
# US
#$CURR = "\$";

##
## The Out list. Each entry is a hash which contains:
##
## name	=> The name of the outgoing stuff
## stmt	=> What is shown on the statement
## when	=> When it occurs. "m" -> monthly; "w" -> weekly
## date	=> The date the money goes out; only valid for when vales of "m"
## type	=> The type; dd -> direct debit; so -> standing order; c -> cash
##         cc -> credit card; tr -> transfer
## amt	=> How much goes out
##
@Out = (

	{
		name	=>	"Water rates",
		stmt	=>	"The Water Co",
		when	=>	"m",
		date	=>	"7",
		type	=>	"dd",
		amt	=>	20,
	},

	{
		name	=>	"Gas",
		stmt	=>	"The Gas Co",
		when	=>	"m",
		date	=>	"20",
		type	=>	"dd",
		amt	=>	40,
	},

	{
		name	=>	"Contents & Buildings Insurance",
		stmt	=>	"Evil Insurance Co",
		when	=>	"m",
		date	=>	"16",
		type	=>	"dd",
		amt	=>	30,
	},

	{
		name	=>	"Council tax",
		stmt	=>	"Local City Cou",
		when	=>	"m",
		date	=>	"7",
		type	=>	"dd",
		amt	=>	100,
	},

	{
		name	=>	"Electricity",
		stmt	=>	"Evil Energy Co",
		when	=>	"m",
		date	=>	"2",
		type	=>	"dd",
		amt	=>	50,
	},

	{
		name	=>	"Food shopping",
		stmt	=>	undef,
		when	=>	"w",
		date	=>	undef,
		type	=>	"c",
		amt	=>	60,
	},

	{
		name	=>	"Petrol",
		stmt	=>	undef,
		when	=>	"w",
		date	=>	undef,
		type	=>	"c",
		amt	=>	30,
	},

	{
		name	=>	"Misc shopping",
		stmt	=>	undef,
		when	=>	"w",
		date	=>	undef,
		type	=>	"c",
		amt	=>	60,
	},

	{
		name	=>	"Savings",
		stmt	=>	"Transfer",
		when	=>	"m",
		date	=>	"25",
		type	=>	"tr",
		amt	=>	100,
	},

	## 9 lines
	{
		name	=>	"",
		stmt	=>	"",
		when	=>	"m",
		date	=>	"",
		type	=>	"dd",
		amt	=>	0,
	},

);

1;