Thanks Tom for the help with ScriptBasic. I understand your reluctance to invest any time with Windows. I have only visited my Windows XP partition twice in the last few months. It becomes obvious that Windows is a bloated kludge with more layers than an onion. Linux just works and I'm not always pulling out my wallet to upgrade a package or pay for another year of subscription services. I hope Microsoft wakes up to the fact that their screwed knowing that people have an option outside their monopoly. I posted your MathTest script so others can get an idea what your enhancements bring to the table. My plan over the next month or so is to put in place a solid source control system. I'm still looking at all the options. I don't want to do this more than once.

`'`

' Given the starting value of 34 degrees, calculate radians.

' Given the radian value, calculate TAN, COTAN, SECANT and COSECANT.

' Given the TAN, COTAN, SECANT and COSECANT values,

' calculate the ATAN, ACTAN, ASECANT and ACOSECANT.

'

degval = 34

radval = RAD(degval)

zerval = 0

tanval = TAN(radval)

cotval = COTAN(radval)

secval = SECANT(radval)

cseval = COSECANT(radval)

ataval = ATAN(tanval)

actval = ACTAN(cotval)

aseval = ASECANT(secval)

acoval = ACOSECANT(cseval)

hsinv = HSIN(radval)

hcosv = HCOS(radval)

htanv = HTAN(radval)

hsecv = HSECANT(radval)

hcosc = HCOSECANT(radval)

hcotv = HCTAN(radval)

print "\nThe following 8 functions accept radians as their argument, so we "

print "use the\nnew RAD() function to convert ",degval," degrees to ",radval," (",str$(radval),") radians.\n\n"

print "Tangent\t\tCotangent\tSecant\t\tCosecant\n"

print "TAN() \t\tCOTAN() \tSECANT() \tCOSECANT()\n"

print tanval," \t",cotval,"\t",secval," \t",cseval,"\n"

print str$(tanval)," \t",str$(cotval)," \t",str$(secval)," \t",str$(cseval),"\n\n"

print "Arctangent\tArccotangent\tArcsecant\tArccosecant\n"

print "ATAN() \tACTAN() \tASECANT()\tACOSECANT()\n"

print ataval," \t",actval," \t",aseval," \t",acoval,"\n"

print str$(ataval)," \t",str$(actval)," \t",str$(aseval)," \t",str$(acoval),"\n\n"

print "There are 6 Hyperbolic functions. They also accept radian arguments.\n\n"

print "H-Sine\t\tH-Cosine\tH-Tangent\n"

print "HSIN()\t\tHCOS() \tHTAN()\n"

print hsinv," \t",hcosv," \t",htanv,"\n"

print str$(hsinv)," \t",str$(hcosv)," \t",str$(htanv),"\n\n"

print "H-Secant\tH-Cosecant\tH-Cotangent\n"

print "HSECANT()\tHCOSECANT()\tHCTAN()\n"

print hsecv," \t",hcosc," \t",hcotv,"\n"

print str$(hsecv)," \t",str$(hcosc)," \t",str$(hcotv),"\n\n"