Calculator
A simple calculator. A good place to start if you're building a special-purpose calculator.
calculator.html <html> <title>Calculator</title> <body bgcolor=white>
<< IF Calc.Num1 = "ERROR" THEN Calc.Num1 = "0" Calc.Num2 = "0" Calc.Total = "0" /IF >> <br><br> <form method=post action=CALCULATE> <center> <table border=1 cellpadding=15 cellspacing=0><tr> <td bgcolor=lightblue align=center> <font size=4 color=red><b>CALCULATOR</b></font><br>
<font size=2><b>Select Operation & Click Calculate</b></font></td></tr> <tr><td> <table border=0> <tr><td align=left valign=top>
<input type=submit name=Calc.MyButton value="CLEAR"> <br><br></td></tr> <tr><td> </td><td><input type=text size=7 name=Calc.Num1></td></tr>
<tr><td><select name=Calc.Op size=1> <option value="+"> + <option value="-"> - <option value="/"> / <option value="*"> *
</select></td> <td><input type=text size=7 name=Calc.Num2></td></tr> <tr><td> <input type=submit name=Calc.MyButton value="Calculate>">
</td> <td><font color=darkred><b> <<Calc.Total>></b></font></td></tr>
</table> </td></tr></table> </center> </html> <<OVERLAY calculate IF Calc.MyButton="CLEAR" THEN Calc.Num1="0" Calc.Num2="0" Calc.Total="0" Calc.Op="+" GOTO "calculator.html" /IF IF Calc.Op = "+" THEN Calc.Total = Calc.Num1 + Calc.Num2 ELIF Calc.Op = "-" THEN Calc.Total = Calc.Num1 - Calc.Num2 ELIF Calc.Op = "*" THEN Calc.Total = Calc.Num1 * Calc.Num2 ELIF Calc.Op = "/" THEN Calc.Total = Calc.Num1 / Calc.Num2 /IF GOTO "calculator.html" >>
|