#! /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',

					           'copyright'=>'copyright 2000, Louis Ha'},

					   -BGCOLOR=>'#CCCCFF');



print "<BR>";

print "<center>";

print "<H4><font size=5 face=Times News Roman color=red>IRREGULAR VERB</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/" 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-o,$instem, $pfstem-i</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 width=75% border=1 cellpadding=5 cellspacing=5>

<tr><td width=6%><big><big></td>

<td bgcolor="#05AFFA"><big><big><b>ACTIVE</b><L></L></td>

<td bgcolor="#05AFFA"><big><big></td></tr>

<tr><td><big><big></td>

<td bgcolor="#05AFFA"><big><big>INDICATIVE<L></L></td>

<td bgcolor="#A1D3F8"><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="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>o</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>im</B></L></td>

</tr>

<tr>

<td><big><big>2.sg</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333"></font><B>non vis</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>is</B></L></td>

</tr>

<tr>

<td><big><big>3.sg</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333"></font><B>non vult</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>it</B></L></td>

</tr>

<tr>

<td><big><big>1.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>umus</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>&iacute;mus</B></L></td>

</tr>

<tr>

<td><big><big>2.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333"></font><B>non vultis</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>&iacute;tis</B></L></td>

</tr>

<tr>

<td><big><big>3.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>unt</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>int</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="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>&eacute;bam</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>lem</B></L></td>

</tr>

<tr>

<td><big><big>2.sg</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>&eacute;bas</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>les</B></L></td>

</tr>

<tr>

<td><big><big>3.sg</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>&eacute;bat</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>let</B></L></td>

</tr>

<tr>

<td><big><big>1.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>eb&aacute;mus</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>l&eacute;mus</B></L></td>

</tr>

<tr>

<td><big><big>2.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>eb&aacute;tis</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>l&eacute;tis</B></L></td>

</tr>

<tr>

<td><big><big>3.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>&eacute;bant</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>lent</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="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>am</B></L></td>

<td><big><big></td>

</tr>

<tr>

<td><big><big>2.sg</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>es</B></L></td>

<td><big><big></td>

</tr>

<tr>

<td><big><big>3.sg</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>et</B></L></td>

<td><big><big></td>

</tr>

<tr>

<td><big><big>1.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>&eacute;mus</B></L></td>

<td><big><big></td>

</tr>

<tr>

<td><big><big>2.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>&eacute;tis</B></L></td>

<td><big><big></td>

</tr>

<tr>

<td><big><big>3.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>ent</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="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>i</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>erim</B></L></td>

</tr>

<tr><td><big><big>2.sg</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>&iacute;sti</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>eris</B></L></td>

</tr>

<tr><td><big><big>3.sg</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>it</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>erit</B></L></td>

</tr>

<tr>

<td><big><big>1.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>imus</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>er&iacute;mus</B></L></td>

</tr>

<tr>

<td><big><big>2.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>&iacute;stis</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>er&iacute;tis</B></L></td>

</tr>

<tr><td><big><big>3.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>&eacute;runt (-ere)</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>erint</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="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>eram</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>&iacute;ssem</B></L></td>

</tr>

<tr><td><big><big>2.sg</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>eras</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>&iacute;sses</B></L></td>

</tr>

<tr><td><big><big>3.sg</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>erat</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>&iacute;sset</B></L></td>

</tr>

<tr><td><big><big>1.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>er&aacute;mus</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>iss&eacute;mus</B></L></td>

</tr>

<tr><td><big><big>2.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>er&aacute;tis</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>iss&eacute;tis</B></L></td>

</tr>

<tr><td><big><big>3.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>erant</B></L></td>

<td bgcolor="#A1D3F8"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>&iacute;ssent</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="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>ero</B></L></td>

<td><big><big></td>

</tr>

<tr>

<td><big><big>2.sg</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>eris</B></L></td>

<td><big><big></td>

</tr>

<tr>

<td><big><big>3.sg</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>erit</B></L></td>

<td><big><big></td>

</tr>

<tr>

<td><big><big>1.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>&eacute;rimus</B></L></td>

<td><big><big></td>

</tr>

<tr>

<td><big><big>2.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>&eacute;ritis</B></L></td>

<td><big><big></td>

</tr>

<tr>

<td><big><big>3.pl</td>

<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$pfstem</font><B>erint</B></L></td>

<td><big><big></td>

</table>

<br>
<table border=1 cellpadding=5 cellspacing=5>
<tr>
<td><big><big></td>
<td bgcolor="#0000ff"><big><big><font color="#ffff00"><b>ACTIVE</b></font><L></L></td>
<td bgcolor="#0000ff"><big><big><font color="#ffff00"><b>ACTIVE</b></font><L></L></td>
</tr>
<tr>
<td><big><big></td>
<td bgcolor="#99ffff"><big><big><b>IMPERATIVE</b></td>
<td bgcolor="#99ffff"><big><big><b>INFINITIVE</b></td>
</tr>
<tr>
<td><big><big><b>present</b></td>
<td bgcolor="#05AFFA"><big><big><L><FONT COLOR="#FF3333">$prstem</font><B>i</B>,  <FONT COLOR="#FF3333">$prstem</font><B>ite</B></L></td>
<td bgcolor="#05AFFA"><big><big><L><font COLOR="#FF3333"></font><b>nolle</b></L></td>
</tr>
<tr>
<td><big><big><b>perfect</b></td>
<td><big><big></td>
<td bgcolor="#05AFFA"><big><big><L><font COLOR="#FF3333">$pfstem</font><b>isse</b></L></td>
</tr>
<tr>
<td><big><big><b>future</b></td>
<td><big><big></td>
<td><big><big></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>
</tr>
<tr>
<td><big><big></td>
<td bgcolor="#0000ff"><big><big><font color="#ffff00"><b>ACTIVE</b></font><L></L></td>
</tr>
<tr>
<td><big><big><b>present</b></td>
<td bgcolor="#05AFFA"><big><big><L><font COLOR="#FF3333">$prstem</font><b>ens, (-entis)</b></L></td>
</tr>
<tr>
<td><big><big><b>perfect</b></td>
<td><big><big></td>
</tr>
<tr>
<td><big><big><b>future</b></td>
<td><big><big></td>
</tr>
</table>



</center></center>

});



}



## WEBPAGE OUTPUT
