#! /usr/bin/perl


# PREAMBLE
use CGI;
use strict;

my ($cgi) = new CGI;
print $cgi->header ();
print $cgi->start_html (-title=>'LATIN DECLENSION',
					   -author=>'keloon@catholic.org.hk',
					   -base=>'true',
					   -meta=>{'keywords'=>'Latin Grammar',
					           'content'=>"text/html; charset=utf-8",'keywords'=>'Latin Grammar','copyright'=>'copyright 2000, Louis Ha'},
					   -BGCOLOR=>'#CCCCFF');

print "<BR>";
print "<center>";
print "<H4><font size=5 face=Times News Roman color=red>FOURTH CONJUGATION VERB (deponents)</font></H4>";
print "</center>";

# MAIN-BODY
my ($prstem) = $cgi->param ("prstem");
my ($pfstem) = $cgi->param ("pfstem");
my ($sustem) = $cgi->param ("sustem");
my ($instem) = $cgi->param ("instem");
my ($english) = $cgi->param ("english");
declense ($prstem,$pfstem,$sustem,$instem,$english) if ($prstem,$pfstem,$sustem,$instem,$english);
# ending
print $cgi->hr();
print '<strong><font size = "3"><A HREF="http://www.catholic.org.hk/latin/conjugation/verb_4.html" TARGET="_parent">Return to Main page</strong></font></A><br><br>';
print '<strong><font size = "2">The present website is compiled for an introductory Latin course at the Chinese University of Hong Kong by <A HREF="mailto:keloon@catholic.org.hk" TARGET="_parent">Dr. Louis Ha</A>.<br>';
print 'Copyright by Louis Ha, 2000.</font></strong><br>';
print $cgi->center ('*     *     *');
print '<br><br>';
## MAIN-BODY

# DECLENSE
sub declense{
	print "<center><big>";
#	printf "<b>Latin   : %s<BR><BR></b>\n",
#		$cgi->escapeHTML ($key_word).", -is, -e";
	print $cgi->blockquote(qq{<font face='Times News Roman'><b>Latin : $prstem-ior, $instem, $sustem-us sum</b></font>}); 
	printf "<b>English : %s<BR><BR>\n",
		$cgi->escapeHTML ($english);
	print $cgi->hr();
print $cgi->blockquote(qq{<font face='Times News Roman'>
<table border=1 cellpadding=5 cellspacing=5>
<tr><td><big><big></td>
<td bgcolor="#ffff00"><big><big><font color="#0000ff"><b>ACTIVE</b></font></td>
<td bgcolor="#ffff00"><big><big></td>
</tr>
<tr><td><big><big></td>
<td bgcolor="#ffff00"><big><big>INDICATIVE<L></L></td>
<td bgcolor="#e1d250"><big><big>SUBJUNCTIVE</td>
</tr>
<tr><td><big><big></td>
<td><big><big><b>PRESENT</b><L></L></td>
<td><big><big><L></L></td>
</tr>
<td><big><big>1.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>ior</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>iar</B></L></td>
</tr>
<tr>
<td><big><big>2.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>&#299;ris</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>i&#257;ris</B></L></td>
</tr>
<tr>
<td><big><big>3.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>&#299;tur</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>i&#257;tur</B></L></td>
</tr>
<tr>
<td><big><big>1.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>&#299;mur</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>i&#257;mur</B></L></td>
</tr>
<tr>
<td><big><big>2.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>&#299;mini</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>i&#257;mini</B></L></td>
</tr>
<tr>
<td><big><big>3.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>i&#363;ntur</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>i&#257;ntur</B></L></td>
</tr>
<tr>
<td><big><big></td>
<td><big><big><b>IMPERFECT</b></td>
<td><big><big></td>
</tr>
<tr>
<td><big><big>1.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>i&#275;bar</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>irer</B></L></td>
</tr>
<tr>
<td><big><big>2.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>ieb&#257;ris</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>ir&#275;ris</B></L></td>
</tr>
<tr>
<td><big><big>3.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>ieb&#257;tur</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>ir&#275;tur</B></L></td>
</tr>
<tr>
<td><big><big>1.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>ieb&#257;mur</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>ir&#275;mur</B></L></td>
</tr>
<tr>
<td><big><big>2.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>ieb&#257;mini</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>ir&#275;mini</B></L></td>
</tr>
<tr>
<td><big><big>3.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>ieb&aacutentur</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>ir&#275;ntur</B></L></td>
</tr>
<tr>
<td><big><big></td>
<td><big><big><b>FUTURE</b></td>
<td><big><big></td>
</tr>
<tr>
<td><big><big>1.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>iar</B></L></td>
<td><big><big></td>
</tr>
<tr>
<td><big><big>2.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>i&#275;ris</B></L></td>
<td><big><big></td>
</tr>
<tr>
<td><big><big>3.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>i&#275;tur</B></L></td>
<td><big><big></td>
</tr>
<tr>
<td><big><big>1.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>i&#275;mur</B></L></td>
<td><big><big></td>
</tr>
<tr>
<td><big><big>2.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>i&#275;mini</B></L></td>
<td><big><big></td>
</tr>
<tr>
<td><big><big>3.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>i&#275;ntur</B></L></td>
<td><big><big></td>
</tr>
<tr><td><big><big></td>
<td><big><big><b>PERFECT</b><L></L></td>
<td><big><big><L></L></td>
</tr>
<td><big><big>1.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>us sum</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>us sim</B></L></td>
</tr>
<tr><td><big><big>2.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>us es</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>us sis</B></L></td>
</tr>
<tr>
<td><big><big>3.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>us est</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>us sit</B></L></td>
</tr>
<tr>
<td><big><big>1.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>i sumus</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>i simus</B></L></td>
</tr>
<tr>
<td><big><big>2.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>i estis</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>i sitis</B></L></td>
</tr>
<tr>
<td><big><big>3.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>i sunt</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>i sint</B></L></td>
</tr>
<tr>
<td><big><big></td>
<td><big><big><b>PLUPERFECT</b></td>
<td><big><big></td>
</tr>
<tr>
<td><big><big>1.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>us eram</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>us essem</B></L></td>
</tr>
<tr>
<td><big><big>2.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>us eras</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>us esses</B></L></td>
</tr>
<tr>
<td><big><big>3.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>us erat</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>us esset</B></L></td>
</tr>
<tr>
<td><big><big>1.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>i eramus</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>i essemus</B></L></td>
</tr>
<tr>
<td><big><big>2.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>i eratis</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>i essetis</B></L></td>
</tr>
<tr>
<td><big><big>3.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>i erant</B></L></td>
<td bgcolor="#e1d250"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>i essent</B></L></td>
</tr>
<tr>
<td><big><big></td>
<td><big><big><b>FUTURE PERFECT</b></td>
<td><big><big></td>
</tr>
<tr>
<td><big><big>1.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>us ero</B></L></td>
<td><big><big></td>
</tr>
<tr>
<td><big><big>2.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>us eris</B></L></td>
<td><big><big></td>
</tr>
<tr>
<td><big><big>3.sg</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>us erit</B></L></td>
<td><big><big></td>
</tr>
<tr>
<td><big><big>1.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>i erimus</B></L></td>
<td><big><big></td>
</tr>
<tr>
<td><big><big>2.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>i eritis</B></L></td>
<td><big><big></td>
</tr>
<tr>
<td><big><big>3.pl</td>
<td bgcolor="#ffff00"><big><big><L><FONT COLOR="#FF3333">$sustem</font><B>i erunt</B></L></td>
<td><big><big></td>
</tr>
</table>
<br><br>

<table border=1 cellpadding=5 cellspacing=5>
<tr>
<td></td>
<td bgcolor="#ffff00"><big><big><b>ACTIVE</b></font><L></L></td>
<td bgcolor="#ffff00"><big><big><b>ACTIVE</b></td>
</tr>
<tr>
<td></td>
<td bgcolor="#ffff66"><big><big><b>IMPERATIVE</b></td>
<td bgcolor="#ffff66"><big><big><b>INFINITIVE</b></td>
</tr>
<tr>
<td><big><big><b>present</b></td>
<td bgcolor="#ffff00"><big><big><L><font COLOR="#FF3333">$prstem</font><b>ire</b>, <font COLOR="#FF3333">$prstem</font><b>imini</b></L></td>
<td bgcolor="#ffff00"><big><big><L><font COLOR="#FF3333">$prstem</font><b>iri</b></L></td>
</tr>
<tr>
<td><big><big><b>perfect</b></td>
<td><big><big></td>
<td bgcolor="#ffff00"><big><big><L><font COLOR="#FF3333">$sustem</font><b>us -a -um esse</b></L></td>
</tr>
<tr>
<td><big><big><b>future</b></td>
<td><big><big></td>
<td bgcolor="#ffff00"><big><big><L><font COLOR="#FF3333">$sustem</font><b>&#363;rus -a -um esse</b></L></td>
</tr>
</table>

<br>

<table border=1 cellpadding=5 cellspacing=5>
<tr>
<td><big><big></td>
<td bgcolor="#ff6600"><big><big><b>PARTICIPLE</b></td>
<td bgcolor="#ff6600"><big><big><b>PARTICIPLE</b></td>
<td><big><big></td>
<td><big><big></td>
<td bgcolor="#ff9999"><big><big><b>GERUND</b></td>
<td bgcolor="#ff9999"><big><big><b>SUPINE</b></td>
</tr>
<tr>
<td></td>
<td bgcolor="#0000ff"><big><big><font color="#ffff00"><b>ACTIVE</b></font><L></L></td>
<td bgcolor="#ffff00"><big><big><b>PASSIVE</b></td>
<td></td>
<td><big><big><b>Gen.</b></td>
<td bgcolor="#05AFFA"><big><big><L><font COLOR="#FF3333">$prstem</font><b>i&#275;ndi</b></L></td>
<td><big><big></td>
</tr>
<tr>
<td><big><big><b>present</b></td>
<td bgcolor="#05AFFA"><big><big><L><font COLOR="#FF3333">$prstem</font><b>iens, (-tis)</b></L></td>
<td><big><big></td>
<td></td>
<td><big><big><b>Dat.</b></td>
<td bgcolor="#05AFFA"><big><big><L><font COLOR="#FF3333">$prstem</font><b>i&#275;ndo</b></L></td>
<td><big><big></td>
</tr>
<tr>
<td><big><big><b>perfect</b></td>
<td bgcolor="#05AFFA"><big><big><L><font COLOR="#FF3333">$sustem</font><b>us -a -um</b></L></td>
<td><big><big></td>
<td><big><big></td>
<td><big><big><b>Acc.</b></td>
<td bgcolor="#05AFFA"><big><big><L><font COLOR="#FF3333">$prstem</font><b>i&#275;ndum</b></L></td>
<td bgcolor="#05AFFA"><big><big><L><font COLOR="#FF3333">$sustem</font><b>um</b></L></td>
</tr>
<tr>
<td><big><big><b>future</b></td>
<td bgcolor="#05AFFA"><big><big><L><font COLOR="#FF3333">$sustem</font><b>&#363;rus -a -um</b></L></td>
<td bgcolor="#ffff00"><big><big><L><font COLOR="#FF3333">$prstem</font><b>i&#275;ndus -a -um</b></L></td>
<td><big><big></td>
<td><big><big><b>Abl.</b></td>
<td bgcolor="#05AFFA"><big><big><L><font COLOR="#FF3333">$prstem</font><b>i&#275;ndo</b></L></td>
<td bgcolor="#05AFFA"><big><big><L><font COLOR="#FF3333">$sustem</font><b>u</b></L></td>
</tr>
</table>


</center></center>
});

}

## WEBPAGE OUTPUT
