# our first homework assignment
# a program to write a blank timetable

# Define column headings - days

$Day1="Mon";
$Day2="Tues";
$Day3="Wed";
$Day4="Thurs";
$Day5="Fri";
$Day6="Sat";
$Day7="Sun";

# Define row headings - time slots

$Time1="09-10";
$Time2="10-11";
$Time3="11-12";
$Time4="12-13";
$Time5="13-14";
$Time6="14-15";
$Time7="15-16";
$Time8="16-17";

#Define a miscellaneous variable

$Kurt="Perl";

# print the table

print "+---------------------------------------------------------------+\n";
print "|\t|$Day1\t|$Day2\t|$Day3\t|$Day4\t|$Day5\t|$Day6\t|$Day7\t|\n";
print "+---------------------------------------------------------------+\n";
print "|$Time1\t|\t|\t|\t|\t|\t|\t|\t|\n";
print "+---------------------------------------------------------------+\n";
print "|$Time2\t|\t|\t|\t|\t|\t|\t|\t|\n";
print "+---------------------------------------------------------------+\n";
print "|$Time3\t|\t|\t|\t|\t|\t|\t|\t|\n";
print "+---------------------------------------------------------------+\n";
print "|$Time4\t|\t|\t|\t|\t|\t|\t|\t|\n";
print "+---------------------------------------------------------------+\n";
print "|$Time5\t|\t|\t|\t|\t|$Kurt\t|\t|\t|\n";
print "+---------------------------------------------------------------+\n";
print "|$Time6\t|\t|\t|\t|\t|\t|\t|\t|\n";
print "+---------------------------------------------------------------+\n";
print "|$Time7\t|\t|\t|\t|\t|\t|\t|\t|\n";
print "+---------------------------------------------------------------+\n";
print "|$Time8\t|\t|\t|\t|\t|\t|\t|\t|\n";
print "+---------------------------------------------------------------+\n";