#! /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 "
"; print "
"; print "

THIRD 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"); decline ($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 # DECLINE sub decline{ print "
"; # printf "Latin : %s

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

\n", $cgi->escapeHTML ($english); print $cgi->hr(); print $cgi->blockquote(qq{
ACTIVE PASSIVE
INDICATIVE SUBJUNCTIVE INDICATIVE SUBJUNCTIVE
PRESENT
1.sg $prstemo $prstemam $prstemor $prstemar
2.sg $prstemis $prstemas $prstemeris $prstemāris
3.sg $prstemit $prstemat $prstemitur $prstemātur
1.pl $prstemimus $prstemāmus $prstemimur $prstemāmur
2.pl $prstemitis $prstemātis $prstemīmini $prstemāmini
3.pl $prstemunt $prstemant $prstemūntur $prstemāntur
IMPERFECT
1.sg $prstemēbam $prstemerem $prstemēbar $prstemerer
2.sg $prstemēbas $prstemeres $prstemebāris $prstemerēris
3.sg $prstemēbat $prstemeret $prstemebātur $prstemerētur
1.pl $prstemebāmus $prstemerēmus $prstemebāmur $prstemerēmur
2.pl $prstemebātis $prstemerētis $prstemebāmini $prstemerēmini
3.pl $prstemēbant $prstemerent $prstemebāntur $prstemerēntur
FUTURE
1.sg $prstemam $prstemar
2.sg $prstemes $prstemēris
3.sg $prstemet $prstemētur
1.pl $prstemēmus $prstemēmur
2.pl $prstemētis $prstemēmini
3.pl $prstement $prstemēntur



ACTIVE ACTIVE PASSIVE
IMPERATIVE INFINITIVE INFINITIVE
present $prsteme, $prstemite $prstemere $prstemi
perfect $pfstem $sustem
future $sustem

PARTICIPLE PARTICIPLE GERUND SUPINE
ACTIVE PASSIVE Gen. $prstemēndi
present $prstemens, (-tis) Dat. $prstemēndo
perfect $sustem Acc. $prstemēndum $sustem
future $sustem $prstemēndus -a -um Abl. $prstemēndo $sustem
}); } ## WEBPAGE OUTPUT