#! /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', 'content'=>"text/html; charset=utf-8",'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
2.sg $prstemas $prstemes
3.sg $prstemat $prstemet $prstemātur $prstemētur
1.pl $prstemāmus $prstemēmus
2.pl $prstemātis $prstemētis
3.pl $prstemant $prstement
IMPERFECT
1.sg $prstemābam $prstemārem
2.sg $prstemābas $prstemāres
3.sg $prstemābat $prstemāret $prstemabātur $prstemarētur
1.pl $prstemabāmus $prstemarēmus
2.pl $prstemabātis $prstemarētis
3.pl $prstemābant $prstemārent
FUTURE
1.sg $prstemābo
2.sg $prstemābis
3.sg $prstemābit $prstemābitur
1.pl $prstemābimus
2.pl $prstemābitis
3.pl $prstemābunt
PERFECT
1.sg $pfstemi $pfstemerim
2.sg $pfstemīsti $pfstemeris
3.sg $pfstemit $pfstemerit $sustemum est $sustemum sit
1.pl $pfstemimus $pfstemerīmus
2.pl $pfstemīstis $pfstemerītis
3.pl $pfstemērunt $pfstemerint
PLUPERFECT
1.sg $pfstemeram $pfstemīssem
2.sg $pfstemeras $pfstemīsses
3.sg $pfstemerat $pfstemīsset $sustemum erat $sustemum esset
1.pl $pfstemerāmus $pfstemissēmus
2.pl $pfstemerātis $pfstemissētis
3.pl $pfstemerant $pfstemīssent
FUTURE PERFECT
1.sg $pfstemero
2.sg $pfstemeris
3.sg $pfstemerit $sustemum erit
1.pl $pfstemērimus
2.pl $pfstemēritis
3.pl $pfstemerint

ACTIVE ACTIVE PASSIVE
IMPERATIVE INFINITIVE INFINITIVE
present $prstema, $prstemāte $prstemāre $prstemāri
perfect $pfstemīsse $sustemum 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