#! /usr/local/bin/regina
/*   mortgage computation :  display form                          */
/*-----------------------------------------------------------------*/


call setdll    /* loads the HHNS shared library */

call CgiInit "TITLE='A Mortage computation' BGCOLOR=FFFFFF"








say frmHdr("r51_mgage.cgi")



say tblRow("loan Amount"  , ":", frminp("T", "C", "100.00", 10, 10))
say tblRow("Interest rate", ":", frminp("L", "T", 1, 1.0, 1.5, 2.0, 2.5, 3.0, 3.5, 4.0, 4.5, 5.0, 5.5, 6.0, 6.5, 7.0, 7.5, 8.0, 8.5, 0.0, 9.5, 10.0, 10.5))
say tblRow("Duration"     , ":", frminp("T", "N", 10, 2, 2) "years")
/*--- this will generate the Submit and Reset buttons ----*/
say tblRow("", "", frminp("S", "VOK", "OK") frmInp("R", "Vreset", "Reset"))




say "The loan Amount, interest rate, and duration will be held in REXX Variable 'C', 'T', 'N'."




call cgiEnd
return 0