<SCRIPT language="VBS">
Dim Accum		
Dim FlagNewNum		
Dim PendingOp		
Sub NumPressed(Byval Num)
	If FlagNewNum Then
   		Document.Keypad.Readout.Value  = Num
   		FlagNewNum = False
	Else
		If Document.Keypad.Readout.Value = 0 Then
			Document.Keypad.Readout.Value = CStr(Num)
		Else
			Document.Keypad.ReadOut.Value= Document.Keypad.ReadOut.Value & CStr(Num)
		End If
	End If
End Sub
Sub Decimal_onClick()
Dim curReadout
	curReadOut = Document.Keypad.ReadOut.Value
	If FlagNewNum Then
		curReadOut = "0"
		FlagNewNum = False
	Else
		If InStr(curReadOut, ".") = 0 Then
			curReadOut = curReadOut & "."
		End If
	End If
	Document.Keypad.ReadOut.Value = curReadOut
End Sub
Sub Plus_onClick()
	Operation "+"	
End Sub
Sub Minus_onClick()
	Operation "-"
End Sub
Sub Multiply_onClick()
	Operation "*"
End Sub
Sub Divide_OnClick()
	Operation "/"
End Sub
Sub Operation(Byval Op)
Dim Readout
	ReadOut = Document.Keypad.ReadOut.Value
	If FlagNewNum and PendingOp <> "=" Then
		' 
	Else
		FlagNewNum = True
		Select Case PendingOp
		Case "+"
			Accum = CDbl(Accum) + CDbl(ReadOut)
		Case "-"
			Accum = CDbl(Accum) - CDbl(ReadOut)
		Case "/"
			Accum = CDbl(Accum) / CDbl(ReadOut)
		Case "*"
			Accum = CDbl(Accum) * CDbl(ReadOut)
		Case Else
			Accum = ReadOut
		End Select
		Document.Keypad.ReadOut.Value = Accum
		PendingOp = Op
	End If
End Sub
Sub ClearEntry_onClick()
    Document.Keypad.ReadOut.Value = "0"
    FlagNewNum = True
End Sub
Sub Clear_onClick()
 	Accum = 0
 	PendingOp = ""	
	ClearEntry_onClick
End Sub
Sub Neg_onClick()
	Document.Keypad.ReadOut.Value = CDbl(Document.Keypad.ReadOut.Value) * -1
End Sub
Sub Percent_onClick()
	Document.Keypad.ReadOut.Value = (CDbl(Document.Keypad.ReadOut.Value) / 100) * Accum
End Sub
Sub Equals_OnClick()
	Operation "="
End Sub
</SCRIPT>
<FORM Name="Keypad">
<TABLE>
<B>
<TABLE BORDER=2 WIDTH=50 HEIGHT=60 CELLPADDING=1 CELLSPACING=5>
<TR>
	<TD COLSPAN=3 ALIGN=MIDDLE><INPUT NAME="ReadOut" TYPE="Text" SIZE=24 VALUE="0" WIDTH=100%></TD>
	<TD></TD>
	<TD><INPUT NAME="Clear" TYPE="Button" VALUE="  C  " ></TD>
	<TD><INPUT NAME="ClearEntry" TYPE="Button" VALUE="  CE " ></TD>
</TR>
<TR>
	<TD><INPUT NAME="Seven" TYPE="Button" VALUE="  7  " OnClick="NumPressed(7)"></TD>
	<TD><INPUT NAME="Eight" TYPE="Button" VALUE="  8  " OnClick="NumPressed(8)"></TD>
	<TD><INPUT NAME="Nine" TYPE="Button" VALUE="  9  " OnClick="NumPressed(9)"></TD>
	<TD></TD>
	<TD><INPUT NAME="Neg" TYPE="Button" VALUE=" +/- " ></TD>
	<TD><INPUT NAME="Percent" TYPE="Button" VALUE="  % " ></TD>
</TR>
<TR>
	<TD><INPUT NAME="Four" TYPE="Button" VALUE="  4  " OnClick="NumPressed(4)"></TD>
	<TD><INPUT NAME="Five" TYPE="Button" VALUE="  5  " OnClick="NumPressed(5)"></TD>
	<TD><INPUT NAME="Six" TYPE="Button" VALUE="  6  " OnClick="NumPressed(6)"></TD>
	<TD></TD>
	<TD ALIGN=MIDDLE><INPUT NAME="Plus" TYPE="Button" VALUE="  +  " ></TD>
	<TD ALIGN=MIDDLE><INPUT NAME="Minus" TYPE="Button" VALUE="   -   " ></TD>
</TR>
<TR>
	<TD><INPUT NAME="One" TYPE="Button" VALUE="  1  " OnClick="NumPressed(1)"></TD>
	<TD><INPUT NAME="Two" TYPE="Button" VALUE="  2  " OnClick="NumPressed(2)"></TD>
	<TD><INPUT NAME="Three" TYPE="Button" VALUE="  3  " OnClick="NumPressed(3)"></TD>
	<TD></TD>
	<TD ALIGN=MIDDLE><INPUT NAME="Multiply" TYPE="Button" VALUE="  *  " ></TD>
	<TD ALIGN=MIDDLE><INPUT NAME="Divide" TYPE="Button" VALUE="   /   " ></TD>
</TR>
<TR>
	<TD><INPUT NAME="Zero" TYPE="Button" VALUE="  0  " OnClick="NumPressed(0)"></TD>
	<TD><INPUT NAME="Decimal" TYPE="Button" VALUE="   .  " ></TD>
	<TD COLSPAN=3></TD>
	<TD><INPUT NAME="Equals" TYPE="Button" VALUE="  =  "></TD>
</TR>
</TABLE>
</TABLE>
</B>
</FORM>