#! /usr/bin/perl # co129_search - find co129 keywords # 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 "
"; print "
"; print "

FIRST CONJUGATION VERB

"; print "
"; # 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 'Return to Main page

'; print 'The present website is compiled for an introductory Latin course at the Chinese University of Hong Kong by Dr. Louis Ha.
'; print 'Copyright by Louis Ha, 2000.
'; print $cgi->center ('* * *'); print '

'; ## MAIN-BODY # DECLENSE sub declense{ print "
"; # printf "Latin : %s

\n", # $cgi->escapeHTML ($key_word).", -is, -e"; print $cgi->blockquote(qq{Latin : $prstem-o, $instem, $pfstem-i, $sustem-um }); printf "English : %s

\n", $cgi->escapeHTML ($english); print $cgi->hr(); print $cgi->blockquote(qq{
ACTIVE PASSIVE
INDICATIVE SUBJUNCTIVE INDICATIVE SUBJUNCTIVE
PRESENT
1.sg $prstemo $prstemem $prstemor $prstemer
2.sg $prstemas $prstemes $prstemáris $prsteméris
3.sg $prstemat $prstemet $prstemátur $prstemétur
1.pl $prstemámus $prstemémus $prstemámur $prstemémur
2.pl $prstemátis $prstemétis $prstemámini $prstemémini
3.pl $prstemant $prstement $prstemántur $prsteméntur
IMPERFECT
1.sg $prstemábam $prstemárem $prstemábar $prstemárer
2.sg $prstemábas $prstemáres $prstemabáris $prstemaréris
3.sg $prstemábat $prstemáret $prstemabátur $prstemarétur
1.pl $prstemabámus $prstemarémus $prstemabámur $prstemarémur
2.pl $prstemabátis $prstemarétis $prstemabámini $prstemarémini
3.pl $prstemábant $prstemárent $prstemabántur $prstemaréntur
FUTURE
1.sg $prstemábo $prstemábor
2.sg $prstemábis $prstemáberis
3.sg $prstemábit $prstemábitur
1.pl $prstemábimus $prstemábimur
2.pl $prstemábitis $prstemabímini
3.pl $prstemábunt $prstemabúntur
PERFECT
1.sg $pfstemi $pfstemerim $sustemus -a um sum $sustemus -a um sim
2.sg $pfstemísti $pfstemeris $sustemus -a um es $sustemus -a um sis
3.sg $pfstemit $pfstemerit $sustemus -a um est $sustemus -a um sit
1.pl $pfstemimus $pfstemerímus $sustemi -ae -a sumus $sustemi -ae -a simus
2.pl $pfstemístis $pfstemerítis $sustemi -ae -a estis $sustemi -ae -a sitis
3.pl $pfstemérunt $pfstemerint $sustemi -ae -a sunt $sustemi -ae -a sint
PLUPERFECT
1.sg $pfstemeram $pfstemíssem $sustemus -a um eram $sustemus -a um essem
2.sg $pfstemeras $pfstemísses $sustemus -a um eras $sustemus -a um esses
3.sg $pfstemerat $pfstemísset $sustemus -a um erat $sustemus -a um esset
1.pl $pfstemerámus $pfstemissémus $sustemi -ae -a eramus $sustemi -ae -a essemus
2.pl $pfstemerátis $pfstemissétis $sustemi -ae -a eratis $sustemi -ae -a essetis
3.pl $pfstemerant $pfstemíssent $sustemi -ae -a erant $sustemi -ae -a essent
FUTURE PERFECT
1.sg $pfstemero $sustemus -a um ero
2.sg $pfstemeris $sustemus -a um eris
3.sg $pfstemerit $sustemus -a um erit
1.pl $pfstemérimus $sustemi -ae -a erimus
2.pl $pfsteméritis $sustemi -ae -a eritis
3.pl $pfstemerint $sustemi -ae -a erunt

ACTIVE ACTIVE PASSIVE
IMPERATIVE INFINITIVE INFINITIVE
present $prstema, $prstemáte $prstemáre $prstemári
perfect $pfstemísse $sustemus -a -um esse
future $sustemúrus -a -um esse

PARTICIPLE PARTICIPLE GERUND SUPINE
ACTIVE PASSIVE Gen. $prstemándi
present $prstemans, (-tis) Dat. $prstemándo
perfect $sustemus -a -um Acc. $prstemándum $sustemum
future $sustemúrus -a -um $prstemándus -a -um Abl. $prstemándo $sustemu
}); } ## WEBPAGE OUTPUT