I could not attach the zip file; the full text of html+vbs is:
<html>
<head><title>vbsMathPad ...by jayakodi</title></head>
<body onload="mpd.focus();"><font color="#FF0000" size="4">vbs</font><font face="Arial" size=6>MathPad</font>
<input style="position:absolute;left:400;top:25" type="button" value="Clear" onclick="document.location.reload();">
<input style="position:absolute;left:460;top:25" type="button" value="Help" onclick="window.open('mathlp.htm',null,'left=0,top=0,width=550,height=520,status=no,toolbar=no,menubar=no,location=no');"><br>
<textarea rows=15 cols=60 onkeyup=kup() style="background:#eeeeee;font-family: Courier New; border-style: solid; border-width: 1" name="mpd"></textarea><br>
</body>
<script language=vbs>
dim zx(100),zy(100)
dim zl,pi
zl=1
pi=4*atn(1)
sub kup()
kk=window.event.keycode:zs=mid(mpd.value,zl)
if kk=13 then
on error resume next
v=instr(zs,"?")
if v>0 then
if v=1 then mpd.value=mpd.value+cstr(eval(mid(zs,v+1)))+vbcrlf
if v>1 then
zs=ucase(zs):zsn=1:zen=1
if instr(zs,"FOR")>0 then
zm=left(zs,instr(zs,":")-1):zsn=instr(zm,"="):zn=instr(zm,"TO")
zen=csng(mid(zm,zn+3)):zsn=csng(mid(zm,zsn+1,zn-zsn-2))
zsr=mid(zs,1+instr(zs,":")):zn2=instr(zsr,"NEXT")
zs=mid(zsr,1,zn2-2)
end if
zt=split(zs,":"):znu=ubound(zt)
for i=zsn to zen
for j=0 to znu
zz=zt(j):zk=instr(zz,"?")
if zk>0 then mpd.value=mpd.value+cstr(eval(mid(zz,2)))+vbcrlf else execute zz
next
next
end if
else execute zs
end if
zl=len(mpd.value)+1:v=0:mpd.scrolltop=10000
end if
end sub
function rtd(zg)
zdg=180*zg/(4*atn(1))
mpd.value=mpd.value+cstr(zdg)+vbcrlf
end function
Function dtr(zg)
zdg=4*atn(1)*zg/180
mpd.value=mpd.value+cstr(zdg)+vbcrlf
End Function
Function ang(x1, y1, x2, y2)
dx = x2 - x1
dy = y2 - y1
pi=4*atn(1)
If Abs(dx) < 1E-16 Then
zg = pi / 2
Else
zg = Abs(Atn(dy / dx))
End If
If dx < 0 Then zg = pi - zg
If dy < 0 Then zg = 2 * pi - zg
zg=rtd(zg)
mpd.value=mpd.value+cstr(zg)+vbcrlf
End Function
</script>
</html>