$pagetitle

sub printJavaScript{ print <<"HTML"; HTML } sub printImageMap{ print <<"HTML";

HTML } sub printHtmlHeader{ print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "\n"; print "$pagetitle\n"; print "\n"; print "\n"; print "\n"; } sub printLeftColumn { print <<"HTML";

HTML print "\n"; if ($station eq "0"){ print "\n";} else { print "\n";} if ($station eq "1"){ print "\n";} else { print "\n";} if ($station eq "2"){ print "\n";} else { print "\n";} if ($station eq "3"){ print "\n";} else { print "\n";} print "\n"; print "\n"; if ($station eq "4"){ print "\n";} else { print "\n";} if ($station eq "5"){ print "\n";} else { print "\n";} if ($station eq "6"){ print "\n";} else { print "\n";} if ($station eq "7"){ print "\n";} else { print "\n";} print "\n"; print <<"HTML"; HTML print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # print <<"HTML"; HTML print ""; if ($bottomstation eq "0"){ print "\n";} else { print "\n";} if ($bottomstation eq "1"){ print "\n";} else { print "\n";} if ($bottomstation eq "2"){ print "\n";} else { print "\n";} if ($bottomstation eq "3"){ print "\n";} else { print "\n";} print ""; print ""; if ($bottomstation eq "4"){ print "\n";} else { print "\n";} if ($bottomstation eq "5"){ print "\n";} else { print "\n";} if ($bottomstation eq "6"){ print "\n";} else { print "\n";} if ($bottomstation eq "7"){ print "\n";} else { print "\n";} print ""; print <<"HTML"; HTML print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "


Top Display: Select a Station
0	0	1	1	2	2	3	3
4	4	5	5	6	6	7	7
Select Indicator

Day		to
Range		to

Bottom Display: Select a Station
0	0	1	1	2	2	3	3
4	4	5	5	6	6	7	7
Select Indicator

Day		to
Range		to

"; } sub printLeftColumnLinks { print <<"HTML";

Display Assignment
Display Map

HTML } sub printHtmlFooter { print <<"HTML";

HTML } 1;