dollar.fsp - Frink Server Pages highlighter

[Try dollar.fsp]

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
            "http://www.w3.org/TR/html4/strict.dtd">
<HTML LANG="en">
 <HEAD>
  <TITLE>Historical Currency Conversions</TITLE>
  <META HTTP-EQUIV="Default-Style" CONTENT="APE Airy">
  <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8"> 
  <LINK REL="StyleSheet" HREF="/frinkdocs/apeairy.css" TYPE="text/css"
        TITLE="APE Airy"> 
  <LINK REL="Alternate StyleSheet" HREF="/frinkdocs/style.css" TYPE="text/css"
        TITLE="APE Classic">
  <LINK REL="Alternate StyleSheet" HREF="/frinkdocs/style2.css" TYPE="text/css"
        TITLE="Compact"> 
  <LINK REL="icon" HREF="/images/futureboyicon.png" TYPE="image/png">
  <META NAME="viewport" CONTENT="width=device-width, initial-scale=1.0">
 </HEAD>

 <BODY>
  <H1>Historical Currency Conversions</H1>
  <% if ! quantity then quantity = "1"
     if ! fromYear then fromYear = "1940"
     currencies = [ "dollars", "cents", "pounds", "guineas", "sovereigns", "merk", "mark", "crowns", "florins", "shillings", "groats", "pence", "farthings"]
  %>
  <P>
   This form allows you to convert the historical buying power of American and
   British currencies into current dollars.
  </P>

  <P>
   Since this is <A HREF="/frinkdocs/">Frink</A>, the quantity can be entered
   as a number like "1000" or "10 million" or any mathematical expression.
  </P>
  
  <FORM METHOD="GET" ACTION="dollar.fsp">
   <INPUT TYPE="TEXT" NAME="quantity" SIZE=20 VALUE="$quantity"
          onFocus="if (this.value != '') select();">
   <SELECT NAME="currency">
    <% for [name] currencies
    {
         sel = (name == currency ? " SELECTED" : "")
         println["    <OPTION$sel>$name"]
    } %>
   </SELECT>
   in the year
   <INPUT TYPE="TEXT" NAME="fromYear" SIZE=4 VALUE="$fromYear"
          onFocus="if (this.value != '') select();">
   <INPUT TYPE="SUBMIT" VALUE="Calculate">
  </FORM>

  <HR>
  <DIV CLASS="back">
  <% if currency and quantity and fromYear
     {
       newval = eval["$quantity ${currency}_$fromYear / dollar"]
       if newval > 1 trillion
          s = formatFix[newval, "trillion", 3]
       else
          if newval > 1 billion
             s = formatFix[newval, "billion", 3]
          else
             if newval > 1 million
                s = formatFix[newval, "million", 3]
             else
                s = formatFix[newval, 1, 2]
  
       print["$quantity $currency in $fromYear had the same buying power as "]
       print["<B>$s</B> current dollars."]
     }
   %>
   </DIV>
  <HR>
  <P>
   <I><A HREF="mailto:eliasen@mindspring.com">Alan Eliasen</A></I> was born
   <%= round[now[] - #1969-08-19 04:54 PM Mountain#, minute] -> ["days", "hours", "minutes"] %> ago.
  </P>

  <P>
   Back to <A HREF="/frinkdocs/fspdocs.html">Frink Server Pages
    documentation.</A>
  </P>  
 </BODY>
</HTML>

[Try dollar.fsp]


Alan Eliasen was born 20162 days, 22 hours, 42 minutes ago.

Back to Frink Server Pages documentation.