#This program writes a time table for the week, by Ilkka Kronholm, February 2007.

#First some variables and arrays are defined..

@weekdays = ("Monday", "Tuesday", "Wednesday", "Thursday", "Friday");
@times = ("09-10", "10-11", "11-12", "12-13", "13-14", "14-15", "15-16", "16-17"); # Different time intervals in the table
$table_line = "+--------------------------------------------------------------+\n"; #String used as border of the table

#Start printing the table itself

print $table_line;
print "+\t+@weekdays[0]    +@weekdays[1]   +@weekdays[2] +@weekdays[3]  +@weekdays[4]    +\n"; #Each column header is 10 characters long
print $table_line;
print "+@times[0]\t+          +          +Seminar   +          +          +\n"; #9-10
print $table_line;
print "+@times[1]\t+PCR       +RNA extr. +          +          +          +\n"; #10-11
print $table_line;
print "+@times[2]\t+PCR       +RNA extr. +          +          +          +\n"; #11-12
print $table_line;
print "+@times[3]\t+PCR       +RNA extr. +          +          +          +\n"; #12-13
print $table_line;
print "+@times[4]\t+greenhouse+RNA extr. +          +          +PERL      +\n"; #13-14
print $table_line;
print "+@times[5]\t+greenhouse+          +          +          +          +\n"; #14-15
print $table_line;
print "+@times[6]\t+          +          +          +          +          +\n"; #15-16
print $table_line;
print "+@times[7]\t+          +          +          +          +          +\n"; #16-17
print $table_line;

# Each cell has 10 characters of space, using spaces seems rather awkward however. I guess that there is better method for doing this..