diff --git a/Jamfile b/Jamfile
index efc36e8..361d66b 100644
--- a/Jamfile
+++ b/Jamfile
@@ -18,6 +18,7 @@ SubInclude TOP edialog ;
 SubInclude TOP eimage ;
 SubInclude TOP ecolorconf ;
 SubInclude TOP econtrol ;
+SubInclude TOP ecalc ;
 SubInclude TOP edisplayconf ;
 SubInclude TOP efinder ;
 SubInclude TOP eiconsconf ;
diff --git a/ecalc/Jamfile b/ecalc/Jamfile
new file mode 100644
index 0000000..470e350
--- /dev/null
+++ b/ecalc/Jamfile
@@ -0,0 +1,16 @@
+#
+# $Id$
+#
+# Part of Equinox Desktop Environment (EDE).
+# Copyright (c) 2000-2007 EDE Authors.
+#
+# This program is licenced under terms of the 
+# GNU General Public Licence version 2 or newer.
+# See COPYING for details.
+
+
+SubDir TOP ecalc ;
+
+SOURCE = SciCalc.cpp Main.cpp ;
+
+MakeProgram ecalc : $(SOURCE) ;
diff --git a/ecalc/Main.cpp b/ecalc/Main.cpp
new file mode 100644
index 0000000..dae27c3
--- /dev/null
+++ b/ecalc/Main.cpp
@@ -0,0 +1,10 @@
+// generated by Fast Light User Interface Designer (fluid) version 1.0108
+
+#include "Main.h"
+
+int main(int ac,char *av) {
+  SciCalc *calc = new SciCalc();
+
+	calc->run();
+	delete calc;
+}
diff --git a/ecalc/Main.fl b/ecalc/Main.fl
new file mode 100644
index 0000000..d86f941
--- /dev/null
+++ b/ecalc/Main.fl
@@ -0,0 +1,14 @@
+# data file for the Fltk User Interface Designer (fluid)
+version 1.0108 
+header_name {.h} 
+code_name {.cpp}
+decl {\#include "SciCalc.h"} {public
+} 
+
+Function {main(int ac,char *av)} {open selected return_type int
+} {
+  code {SciCalc *calc = new SciCalc();
+
+	calc->run();
+	delete calc;} {}
+} 
diff --git a/ecalc/Main.h b/ecalc/Main.h
new file mode 100644
index 0000000..215efb5
--- /dev/null
+++ b/ecalc/Main.h
@@ -0,0 +1,8 @@
+// generated by Fast Light User Interface Designer (fluid) version 1.0108
+
+#ifndef Main_h
+#define Main_h
+#include <FL/Fl.H>
+#include "SciCalc.h"
+int main(int ac,char *av);
+#endif
diff --git a/ecalc/Makefile b/ecalc/Makefile
new file mode 100644
index 0000000..ba3b2e2
--- /dev/null
+++ b/ecalc/Makefile
@@ -0,0 +1,43 @@
+CC      = gcc
+CXX		= g++
+LD		= g++
+
+TARGET = ecalc
+FLUID = fluid
+PREFIX  = 
+
+IFLAGS = -I/usr/X11/include
+LFLAGS = -L/usr/X11R6/lib -L/usr/local/lib
+CPPFLAGS  = -O2 $(IFLAGS) $(DFLAGS) -Wall 
+CXXFLAGS  = -O2 $(IFLAGS) $(DFLAGS) -Wall 
+CFLAGS  = -O2 $(IFLAGS) $(DFLAGS) -Wall 
+LLIBS =
+LIBS = -lfltk -lX11 -lm
+OBJS =	Main.o SciCalc.o
+
+
+all : $(TARGET)
+
+.SUFFIXES:	.cpp .hh .o .fld
+
+.fld.cpp:
+	$(FLUID) -c $<
+.cpp.o :
+	$(CXX) -c $< -o $(<:.cpp=.o) $(CXXFLAGS)
+.c.o :
+	$(CC) -c $< -o $(<:.c=.o) $(CPPFLAGS)
+
+$(TARGET) : $(OBJS)
+	$(LD) -o $(TARGET) $(OBJS) $(LFLAGS) $(LLIBS) $(LIBS)
+	strip $(TARGET)
+
+clean:
+	-rm *.o
+	-rm $(TARGET)
+
+backup:
+	tar cvf $(TARGET).tar $(PREFIX)*.cpp  $(PREFIX)*.h  *.fld ICONS  Makefile
+	gzip $(TARGET).tar
+
+protos:
+	cproto -e -q -E 0 -O /dev/null -o protos.h $(IFLAGS) $(PREFIX)*.cc  $(PREFIX)*.c
diff --git a/ecalc/README b/ecalc/README
new file mode 100644
index 0000000..3271393
--- /dev/null
+++ b/ecalc/README
@@ -0,0 +1,8 @@
+This small calculator with scientific functions based on flCalc - Copyright 2000 by Yves Usson. 
+http://www-timc.imag.fr/Yves.Usson/personnel/mysofts.html
+
+Mikko Lahteenmaki did a port to efltk.
+
+This version is based on original flCalc, with some cleanups.
+
+Sanel Zukan
diff --git a/ecalc/SciCalc.cpp b/ecalc/SciCalc.cpp
new file mode 100644
index 0000000..a0bfbf4
--- /dev/null
+++ b/ecalc/SciCalc.cpp
@@ -0,0 +1,1341 @@
+// generated by Fast Light User Interface Designer (fluid) version 1.0108
+
+#include "SciCalc.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include "math.h"
+
+static double gammaln(double xx) {
+  int j;
+double x,y,tmp,ser;
+static double cof[6] = {76.18009172947146,
+						-86.50532032941677,
+						24.01409824083091,
+						-1.231739572450155,
+						0.1208650973866179e-2,
+						-0.5395239384953e-5};
+	
+	y = x = xx;
+	tmp = x + 5.5;
+	tmp -= (x+0.5)*log(tmp);
+	ser = 1.000000000190015;
+	for (j=0;j<6;j++) ser += cof[j]/++y;
+	return -tmp+log(2.5066282746310005*ser/x);
+}
+
+static double truncf(double x) {
+  if (x < 0.0)
+		x = -floor(-x);
+	else
+		x = floor(x);
+	return x;
+}
+
+void SciCalc::cb_radio_2_i(Fl_Button*, void*) {
+  change_base(2);
+}
+void SciCalc::cb_radio_2(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->parent()->user_data()))->cb_radio_2_i(o,v);
+}
+
+void SciCalc::cb_radio_8_i(Fl_Button*, void*) {
+  change_base(8);
+}
+void SciCalc::cb_radio_8(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->parent()->user_data()))->cb_radio_8_i(o,v);
+}
+
+void SciCalc::cb_radio_10_i(Fl_Button*, void*) {
+  change_base(10);
+}
+void SciCalc::cb_radio_10(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->parent()->user_data()))->cb_radio_10_i(o,v);
+}
+
+void SciCalc::cb_radio_16_i(Fl_Button*, void*) {
+  change_base(16);
+}
+void SciCalc::cb_radio_16(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->parent()->user_data()))->cb_radio_16_i(o,v);
+}
+
+void SciCalc::cb_but_7_i(Fl_Button*, void*) {
+  handle_number(7);
+}
+void SciCalc::cb_but_7(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->parent()->user_data()))->cb_but_7_i(o,v);
+}
+
+void SciCalc::cb_but_8_i(Fl_Button*, void*) {
+  handle_number(8);
+}
+void SciCalc::cb_but_8(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->parent()->user_data()))->cb_but_8_i(o,v);
+}
+
+void SciCalc::cb_but_9_i(Fl_Button*, void*) {
+  handle_number(9);
+}
+void SciCalc::cb_but_9(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->parent()->user_data()))->cb_but_9_i(o,v);
+}
+
+void SciCalc::cb_but_4_i(Fl_Button*, void*) {
+  handle_number(4);
+}
+void SciCalc::cb_but_4(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->parent()->user_data()))->cb_but_4_i(o,v);
+}
+
+void SciCalc::cb_but_5_i(Fl_Button*, void*) {
+  handle_number(5);
+}
+void SciCalc::cb_but_5(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->parent()->user_data()))->cb_but_5_i(o,v);
+}
+
+void SciCalc::cb_but_6_i(Fl_Button*, void*) {
+  handle_number(6);
+}
+void SciCalc::cb_but_6(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->parent()->user_data()))->cb_but_6_i(o,v);
+}
+
+void SciCalc::cb_but_1_i(Fl_Button*, void*) {
+  handle_number(1);
+}
+void SciCalc::cb_but_1(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->parent()->user_data()))->cb_but_1_i(o,v);
+}
+
+void SciCalc::cb_but_2_i(Fl_Button*, void*) {
+  handle_number(2);
+}
+void SciCalc::cb_but_2(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->parent()->user_data()))->cb_but_2_i(o,v);
+}
+
+void SciCalc::cb_but_3_i(Fl_Button*, void*) {
+  handle_number(3);
+}
+void SciCalc::cb_but_3(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->parent()->user_data()))->cb_but_3_i(o,v);
+}
+
+void SciCalc::cb_but_0_i(Fl_Button*, void*) {
+  handle_number(0);
+}
+void SciCalc::cb_but_0(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->parent()->user_data()))->cb_but_0_i(o,v);
+}
+
+void SciCalc::cb_but_dot_i(Fl_Button*, void*) {
+  handle_number(DOT);
+}
+void SciCalc::cb_but_dot(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->parent()->user_data()))->cb_but_dot_i(o,v);
+}
+
+void SciCalc::cb_but_sign_i(Fl_Button*, void*) {
+  if (! emode)
+{
+	value[top] = -value[top];
+	set_display(value[top],NORM);
+}
+else 
+{
+	exponent = -exponent;
+	value[top] = mantissa*pow(10.0, (double)exponent);
+	set_display(mantissa,EXP);
+};
+}
+void SciCalc::cb_but_sign(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->parent()->user_data()))->cb_but_sign_i(o,v);
+}
+
+void SciCalc::cb_but_C_i(Fl_Button*, void*) {
+  init_value(top); 
+set_display(0.0,NORM);
+}
+void SciCalc::cb_but_C(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_C_i(o,v);
+}
+
+void SciCalc::cb_but_AC_i(Fl_Button*, void*) {
+  init_value(0);
+set_display(0.0,NORM);
+currentbrkt = 0;
+box_bracket->label("");
+box_bracket->redraw();
+}
+void SciCalc::cb_but_AC(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_AC_i(o,v);
+}
+
+void SciCalc::cb_but_X_i(Fl_Button*, void*) {
+  handle_operator(MULT);
+}
+void SciCalc::cb_but_X(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_X_i(o,v);
+}
+
+void SciCalc::cb_but_div_i(Fl_Button*, void*) {
+  handle_operator(DIV);
+}
+void SciCalc::cb_but_div(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_div_i(o,v);
+}
+
+void SciCalc::cb_but_plus_i(Fl_Button*, void*) {
+  handle_operator(PLUS);
+}
+void SciCalc::cb_but_plus(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_plus_i(o,v);
+}
+
+void SciCalc::cb_but_minus_i(Fl_Button*, void*) {
+  handle_operator(MINUS);
+}
+void SciCalc::cb_but_minus(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_minus_i(o,v);
+}
+
+void SciCalc::cb_but_pi_i(Fl_Button*, void*) {
+  exponent_pi();
+}
+void SciCalc::cb_but_pi(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_pi_i(o,v);
+}
+
+void SciCalc::cb_but_eval_i(Fl_Button*, void*) {
+  handle_operator(EVAL);
+}
+void SciCalc::cb_but_eval(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_eval_i(o,v);
+}
+
+void SciCalc::cb_but_eval_hidden_i(Fl_Button*, void*) {
+  handle_operator(EVAL);
+}
+void SciCalc::cb_but_eval_hidden(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_eval_hidden_i(o,v);
+}
+
+void SciCalc::cb_but_eval_hidden2_i(Fl_Button*, void*) {
+  handle_operator(EVAL);
+}
+void SciCalc::cb_but_eval_hidden2(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_eval_hidden2_i(o,v);
+}
+
+void SciCalc::cb_but_sqrt_i(Fl_Button*, void*) {
+  if (base > 10) handle_number(10.0); 
+	else
+	if (! inv) 
+	{
+		value[top] = sqrt(value[top]);
+		set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	{
+		value[top] = pow(value[top], 2.0);
+		set_display(value[top],NORM);
+		ready = 1;
+	};
+}
+void SciCalc::cb_but_sqrt(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_sqrt_i(o,v);
+}
+
+void SciCalc::cb_but_pow_i(Fl_Button*, void*) {
+  if (base > 10)
+		handle_number(11.0);
+	else
+		handle_operator(check_inv->value()?INVPOW:POW);
+}
+void SciCalc::cb_but_pow(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_pow_i(o,v);
+}
+
+void SciCalc::cb_but_sin_i(Fl_Button*, void*) {
+  if (base > 10) handle_number(12.0); 
+else
+	if (! inv) 
+	{
+		value[top] = sin(to_drg(value[top]));
+		set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	{
+		value[top] = from_drg(asin(value[top]));
+		set_display(value[top],NORM);
+		ready = 1;
+	};
+}
+void SciCalc::cb_but_sin(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_sin_i(o,v);
+}
+
+void SciCalc::cb_but_cos_i(Fl_Button*, void*) {
+  if (base > 10) handle_number(13.0);
+else
+	if (! inv) 
+	{
+		value[top] = cos(to_drg(value[top]));
+		set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	{
+		value[top] = from_drg(acos(value[top]));
+		set_display(value[top],NORM);
+		ready = 1;
+	};
+}
+void SciCalc::cb_but_cos(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_cos_i(o,v);
+}
+
+void SciCalc::cb_but_tan_i(Fl_Button*, void*) {
+  if (base > 10) handle_number(14.0);
+	else
+	if (! inv)
+	{
+		value[top] = tan(to_drg(value[top]));
+		set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	{
+		value[top] = from_drg(atan(value[top]));
+		set_display(value[top],NORM);
+		ready = 1;
+	};
+}
+void SciCalc::cb_but_tan(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_tan_i(o,v);
+}
+
+void SciCalc::cb_but_log_i(Fl_Button*, void*) {
+  if (base > 10) handle_number(15.0);
+else
+	if (! inv)
+	{
+		value[top] = log10(value[top]);
+		set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	{
+		value[top] = pow(10.0, value[top]);
+		set_display(value[top],NORM);
+		ready = 1;
+	};
+}
+void SciCalc::cb_but_log(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_log_i(o,v);
+}
+
+void SciCalc::cb_but_ln_i(Fl_Button*, void*) {
+  if (! inv)
+	{
+		value[top] = log(value[top]);
+		set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	{
+		value[top] = exp(value[top]);
+		set_display(value[top],NORM);
+		ready = 1;
+	};
+}
+void SciCalc::cb_but_ln(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_ln_i(o,v);
+}
+
+void SciCalc::cb_but_int_i(Fl_Button*, void*) {
+  if (! inv)
+	{
+		value[top] = truncf(value[top]);
+		set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	{
+		value[top] = value[top] - truncf(value[top]);
+		set_display(value[top],NORM);
+		ready = 1;
+	};
+}
+void SciCalc::cb_but_int(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_int_i(o,v);
+}
+
+void SciCalc::cb_but_dr_i(Fl_Button*, void*) {
+  if (! inv) 
+	{
+		value[top] = M_PI*value[top]/180.0;
+		set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	{
+		value[top] = 180.0*value[top]/M_PI;
+		set_display(value[top],NORM);
+		ready = 1;
+	};
+}
+void SciCalc::cb_but_dr(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_dr_i(o,v);
+}
+
+void SciCalc::cb_but_drg_i(Fl_Button*, void*) {
+  drgmode++;
+	drgmode %= 3;
+	set_drgdisp();
+}
+void SciCalc::cb_but_drg(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_drg_i(o,v);
+}
+
+void SciCalc::cb_but_leftbr_i(Fl_Button*, void*) {
+  add_left_bracket();
+}
+void SciCalc::cb_but_leftbr(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_leftbr_i(o,v);
+}
+
+void SciCalc::cb_but_rightbr_i(Fl_Button*, void*) {
+  add_right_bracket();
+}
+void SciCalc::cb_but_rightbr(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_rightbr_i(o,v);
+}
+
+void SciCalc::cb_but_exch_i(Fl_Button*, void*) {
+  exchange();
+}
+void SciCalc::cb_but_exch(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_exch_i(o,v);
+}
+
+void SciCalc::cb_but_invx_i(Fl_Button*, void*) {
+  value[top] = 1.0/value[top];
+	set_display(value[top],NORM);
+	ready = 1;
+}
+void SciCalc::cb_but_invx(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_invx_i(o,v);
+}
+
+void SciCalc::cb_but_fact_i(Fl_Button*, void*) {
+  factorial();
+}
+void SciCalc::cb_but_fact(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_fact_i(o,v);
+}
+
+void SciCalc::cb_but_Mplus_i(Fl_Button*, void*) {
+  if (! inv) mem += value[top]; else mem -= value[top];
+	set_display(value[top],NORM);
+	ready = 1;
+	set_memdisp();
+}
+void SciCalc::cb_but_Mplus(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_Mplus_i(o,v);
+}
+
+void SciCalc::cb_but_Mmult_i(Fl_Button*, void*) {
+  if (! inv) mem *= value[top]; else mem /= value[top];
+	set_display(value[top],NORM);
+	ready = 1;
+	set_memdisp();
+}
+void SciCalc::cb_but_Mmult(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_Mmult_i(o,v);
+}
+
+void SciCalc::cb_but_Mclear_i(Fl_Button*, void*) {
+  if (! inv)
+	{
+		mem = 0.0;
+		set_display(value[top],NORM);
+		ready = 1;
+		set_memdisp();
+	}
+	else
+		memexch();
+}
+void SciCalc::cb_but_Mclear(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_Mclear_i(o,v);
+}
+
+void SciCalc::cb_but_Mst_i(Fl_Button*, void*) {
+  mem = value[top];
+	set_display(value[top],NORM);
+	ready = 1;
+	set_memdisp();
+}
+void SciCalc::cb_but_Mst(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_Mst_i(o,v);
+}
+
+void SciCalc::cb_but_Mrc_i(Fl_Button*, void*) {
+  value[top] = mem;
+	set_display(value[top],NORM);
+	ready = 1;
+}
+void SciCalc::cb_but_Mrc(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_Mrc_i(o,v);
+}
+
+void SciCalc::cb_check_inv_i(Fl_Button*, void*) {
+  if (inv) 
+	{
+		inv = 0;
+		setnormlabels();
+	}
+	else
+	{
+		inv = 1;
+		setinvlabels();
+	};
+}
+void SciCalc::cb_check_inv(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_check_inv_i(o,v);
+}
+
+void SciCalc::cb_but_quit_i(Fl_Button*, void*) {
+  win->hide();
+delete win;
+}
+void SciCalc::cb_but_quit(Fl_Button* o, void* v) {
+  ((SciCalc*)(o->parent()->user_data()))->cb_but_quit_i(o,v);
+}
+/* members */
+/********/
+
+SciCalc::SciCalc() {
+  { win = new Fl_Double_Window(181, 262, "flCalc");
+    win->user_data((void*)(this));
+    { leddisplay = new Fl_Box(5, 3, 172, 24, "0 ");
+      leddisplay->box(FL_DOWN_BOX);
+      leddisplay->color((Fl_Color)207);
+      leddisplay->labelfont(1);
+      leddisplay->labelsize(16);
+      leddisplay->labelcolor((Fl_Color)59);
+      leddisplay->align(FL_ALIGN_RIGHT|FL_ALIGN_INSIDE);
+    } // Fl_Box* leddisplay
+    { box_DEGRAD = new Fl_Box(24, 27, 35, 15, " ");
+      box_DEGRAD->box(FL_ENGRAVED_BOX);
+      box_DEGRAD->labelsize(9);
+      box_DEGRAD->align(FL_ALIGN_CENTER|FL_ALIGN_INSIDE);
+    } // Fl_Box* box_DEGRAD
+    { box_bracket = new Fl_Box(59, 27, 65, 15);
+      box_bracket->box(FL_ENGRAVED_BOX);
+      box_bracket->labelsize(9);
+      box_bracket->align(FL_ALIGN_CENTER|FL_ALIGN_INSIDE);
+    } // Fl_Box* box_bracket
+    { box_M = new Fl_Box(124, 27, 35, 15, "M");
+      box_M->box(FL_ENGRAVED_BOX);
+      box_M->labelsize(9);
+      box_M->align(FL_ALIGN_CENTER|FL_ALIGN_INSIDE);
+    } // Fl_Box* box_M
+    { Fl_Group* o = new Fl_Group(46, 44, 93, 22);
+      o->color((Fl_Color)46);
+      { radio_2 = new Fl_Button(49, 48, 20, 15, "2");
+        radio_2->type(102);
+        radio_2->labelsize(10);
+        radio_2->labelcolor((Fl_Color)1);
+        radio_2->callback((Fl_Callback*)cb_radio_2);
+      } // Fl_Button* radio_2
+      { radio_8 = new Fl_Button(70, 48, 21, 15, "8");
+        radio_8->type(102);
+        radio_8->labelsize(10);
+        radio_8->labelcolor((Fl_Color)1);
+        radio_8->callback((Fl_Callback*)cb_radio_8);
+      } // Fl_Button* radio_8
+      { radio_10 = new Fl_Button(92, 48, 21, 15, "10");
+        radio_10->type(102);
+        radio_10->value(1);
+        radio_10->labelsize(10);
+        radio_10->labelcolor((Fl_Color)1);
+        radio_10->callback((Fl_Callback*)cb_radio_10);
+      } // Fl_Button* radio_10
+      { radio_16 = new Fl_Button(114, 48, 21, 15, "16");
+        radio_16->type(102);
+        radio_16->labelsize(10);
+        radio_16->labelcolor((Fl_Color)1);
+        radio_16->callback((Fl_Callback*)cb_radio_16);
+      } // Fl_Button* radio_16
+      o->end();
+    } // Fl_Group* o
+    { Fl_Group* o = new Fl_Group(3, 163, 107, 94);
+      o->box(FL_FLAT_BOX);
+      o->color((Fl_Color)43);
+      { but_7 = new Fl_Button(6, 167, 32, 20, "7");
+        but_7->shortcut(0x37);
+        but_7->labelfont(1);
+        but_7->labelsize(16);
+        but_7->callback((Fl_Callback*)cb_but_7);
+      } // Fl_Button* but_7
+      { but_8 = new Fl_Button(41, 167, 32, 20, "8");
+        but_8->shortcut(0x38);
+        but_8->labelfont(1);
+        but_8->labelsize(16);
+        but_8->callback((Fl_Callback*)cb_but_8);
+      } // Fl_Button* but_8
+      { but_9 = new Fl_Button(75, 167, 32, 20, "9");
+        but_9->shortcut(0x39);
+        but_9->labelfont(1);
+        but_9->labelsize(16);
+        but_9->callback((Fl_Callback*)cb_but_9);
+      } // Fl_Button* but_9
+      { but_4 = new Fl_Button(6, 189, 32, 20, "4");
+        but_4->shortcut(0x34);
+        but_4->labelfont(1);
+        but_4->labelsize(16);
+        but_4->callback((Fl_Callback*)cb_but_4);
+      } // Fl_Button* but_4
+      { but_5 = new Fl_Button(41, 189, 32, 20, "5");
+        but_5->shortcut(0x35);
+        but_5->labelfont(1);
+        but_5->labelsize(16);
+        but_5->callback((Fl_Callback*)cb_but_5);
+      } // Fl_Button* but_5
+      { but_6 = new Fl_Button(75, 189, 32, 20, "6");
+        but_6->shortcut(0x36);
+        but_6->labelfont(1);
+        but_6->labelsize(16);
+        but_6->callback((Fl_Callback*)cb_but_6);
+      } // Fl_Button* but_6
+      { but_1 = new Fl_Button(6, 211, 32, 20, "1");
+        but_1->shortcut(0x31);
+        but_1->labelfont(1);
+        but_1->labelsize(16);
+        but_1->callback((Fl_Callback*)cb_but_1);
+      } // Fl_Button* but_1
+      { but_2 = new Fl_Button(41, 211, 32, 20, "2");
+        but_2->shortcut(0x32);
+        but_2->labelfont(1);
+        but_2->labelsize(16);
+        but_2->callback((Fl_Callback*)cb_but_2);
+      } // Fl_Button* but_2
+      { but_3 = new Fl_Button(75, 211, 32, 20, "3");
+        but_3->shortcut(0x33);
+        but_3->labelfont(1);
+        but_3->labelsize(16);
+        but_3->callback((Fl_Callback*)cb_but_3);
+      } // Fl_Button* but_3
+      { but_0 = new Fl_Button(6, 233, 32, 20, "0");
+        but_0->shortcut(0x30);
+        but_0->labelfont(1);
+        but_0->labelsize(16);
+        but_0->callback((Fl_Callback*)cb_but_0);
+      } // Fl_Button* but_0
+      { but_dot = new Fl_Button(41, 233, 32, 20, ".");
+        but_dot->shortcut(0x2e);
+        but_dot->labelfont(1);
+        but_dot->labelsize(16);
+        but_dot->callback((Fl_Callback*)cb_but_dot);
+      } // Fl_Button* but_dot
+      { but_sign = new Fl_Button(75, 233, 32, 20, "+/-");
+        but_sign->labelfont(1);
+        but_sign->labelsize(16);
+        but_sign->callback((Fl_Callback*)cb_but_sign);
+      } // Fl_Button* but_sign
+      o->end();
+    } // Fl_Group* o
+    { but_C = new Fl_Button(112, 167, 31, 20, "C");
+      but_C->labelfont(1);
+      but_C->labelsize(16);
+      but_C->callback((Fl_Callback*)cb_but_C);
+    } // Fl_Button* but_C
+    { but_AC = new Fl_Button(146, 167, 30, 20, "AC");
+      but_AC->labelfont(1);
+      but_AC->labelsize(16);
+      but_AC->callback((Fl_Callback*)cb_but_AC);
+    } // Fl_Button* but_AC
+    { but_X = new Fl_Button(112, 189, 31, 20, "x");
+      but_X->shortcut(0x2a);
+      but_X->labelfont(1);
+      but_X->labelsize(16);
+      but_X->callback((Fl_Callback*)cb_but_X);
+    } // Fl_Button* but_X
+    { but_div = new Fl_Button(146, 189, 30, 20, "/");
+      but_div->shortcut(0x2f);
+      but_div->labelfont(1);
+      but_div->labelsize(16);
+      but_div->callback((Fl_Callback*)cb_but_div);
+    } // Fl_Button* but_div
+    { but_plus = new Fl_Button(112, 211, 31, 20, "+");
+      but_plus->shortcut(0x2b);
+      but_plus->labelfont(1);
+      but_plus->labelsize(16);
+      but_plus->callback((Fl_Callback*)cb_but_plus);
+    } // Fl_Button* but_plus
+    { but_minus = new Fl_Button(146, 211, 30, 20, "-");
+      but_minus->shortcut(0x2d);
+      but_minus->labelfont(1);
+      but_minus->labelsize(16);
+      but_minus->callback((Fl_Callback*)cb_but_minus);
+    } // Fl_Button* but_minus
+    { but_pi = new Fl_Button(112, 233, 31, 20, "e/p");
+      but_pi->labelfont(12);
+      but_pi->labelsize(17);
+      but_pi->callback((Fl_Callback*)cb_but_pi);
+    } // Fl_Button* but_pi
+    { but_eval = new Fl_Button(146, 233, 30, 20, "=");
+      but_eval->shortcut(0x3d);
+      but_eval->labelfont(1);
+      but_eval->labelsize(16);
+      but_eval->callback((Fl_Callback*)cb_but_eval);
+    } // Fl_Button* but_eval
+    { but_eval_hidden = new Fl_Button(147, 253, 6, 7);
+      but_eval_hidden->box(FL_NO_BOX);
+      but_eval_hidden->shortcut(0xff0d);
+      but_eval_hidden->labelfont(1);
+      but_eval_hidden->labelsize(16);
+      but_eval_hidden->callback((Fl_Callback*)cb_but_eval_hidden);
+    } // Fl_Button* but_eval_hidden
+    { but_eval_hidden2 = new Fl_Button(157, 263, 6, 7);
+      but_eval_hidden2->box(FL_NO_BOX);
+      but_eval_hidden2->shortcut(0xff8d);
+      but_eval_hidden2->labelfont(1);
+      but_eval_hidden2->labelsize(16);
+      but_eval_hidden2->callback((Fl_Callback*)cb_but_eval_hidden2);
+    } // Fl_Button* but_eval_hidden2
+    { but_sqrt = new Fl_Button(6, 70, 32, 21, "sqrt");
+      but_sqrt->labelsize(11);
+      but_sqrt->labelcolor((Fl_Color)4);
+      but_sqrt->callback((Fl_Callback*)cb_but_sqrt);
+    } // Fl_Button* but_sqrt
+    { but_pow = new Fl_Button(41, 70, 32, 21, "x^y");
+      but_pow->labelsize(11);
+      but_pow->labelcolor((Fl_Color)4);
+      but_pow->callback((Fl_Callback*)cb_but_pow);
+    } // Fl_Button* but_pow
+    { but_sin = new Fl_Button(76, 70, 31, 21, "sin");
+      but_sin->labelsize(11);
+      but_sin->labelcolor((Fl_Color)4);
+      but_sin->callback((Fl_Callback*)cb_but_sin);
+    } // Fl_Button* but_sin
+    { but_cos = new Fl_Button(110, 70, 31, 21, "cos");
+      but_cos->labelsize(11);
+      but_cos->labelcolor((Fl_Color)4);
+      but_cos->callback((Fl_Callback*)cb_but_cos);
+    } // Fl_Button* but_cos
+    { but_tan = new Fl_Button(144, 70, 30, 21, "tan");
+      but_tan->labelsize(11);
+      but_tan->labelcolor((Fl_Color)4);
+      but_tan->callback((Fl_Callback*)cb_but_tan);
+    } // Fl_Button* but_tan
+    { but_log = new Fl_Button(6, 93, 32, 21, "log");
+      but_log->labelsize(11);
+      but_log->labelcolor((Fl_Color)4);
+      but_log->callback((Fl_Callback*)cb_but_log);
+    } // Fl_Button* but_log
+    { but_ln = new Fl_Button(41, 93, 32, 21, "ln");
+      but_ln->labelsize(11);
+      but_ln->labelcolor((Fl_Color)4);
+      but_ln->callback((Fl_Callback*)cb_but_ln);
+    } // Fl_Button* but_ln
+    { but_int = new Fl_Button(76, 93, 31, 21, "int");
+      but_int->labelsize(11);
+      but_int->labelcolor((Fl_Color)4);
+      but_int->callback((Fl_Callback*)cb_but_int);
+    } // Fl_Button* but_int
+    { but_dr = new Fl_Button(110, 93, 31, 21, "d->r");
+      but_dr->labelsize(10);
+      but_dr->labelcolor((Fl_Color)4);
+      but_dr->callback((Fl_Callback*)cb_but_dr);
+    } // Fl_Button* but_dr
+    { but_drg = new Fl_Button(144, 93, 30, 21, "d-r-g");
+      but_drg->labelsize(9);
+      but_drg->callback((Fl_Callback*)cb_but_drg);
+    } // Fl_Button* but_drg
+    { but_leftbr = new Fl_Button(6, 116, 32, 21, "[");
+      but_leftbr->shortcut(0x28);
+      but_leftbr->labelsize(11);
+      but_leftbr->callback((Fl_Callback*)cb_but_leftbr);
+    } // Fl_Button* but_leftbr
+    { but_rightbr = new Fl_Button(41, 116, 32, 21, "]");
+      but_rightbr->shortcut(0x29);
+      but_rightbr->labelsize(11);
+      but_rightbr->callback((Fl_Callback*)cb_but_rightbr);
+    } // Fl_Button* but_rightbr
+    { but_exch = new Fl_Button(76, 116, 31, 21, "exch");
+      but_exch->labelsize(11);
+      but_exch->callback((Fl_Callback*)cb_but_exch);
+    } // Fl_Button* but_exch
+    { but_invx = new Fl_Button(110, 116, 31, 21, "1/x");
+      but_invx->labelsize(11);
+      but_invx->callback((Fl_Callback*)cb_but_invx);
+    } // Fl_Button* but_invx
+    { but_fact = new Fl_Button(144, 116, 30, 21, "x!");
+      but_fact->labelsize(11);
+      but_fact->callback((Fl_Callback*)cb_but_fact);
+    } // Fl_Button* but_fact
+    { but_Mplus = new Fl_Button(6, 139, 32, 21, "M+");
+      but_Mplus->color((Fl_Color)93);
+      but_Mplus->labelcolor((Fl_Color)4);
+      but_Mplus->callback((Fl_Callback*)cb_but_Mplus);
+    } // Fl_Button* but_Mplus
+    { but_Mmult = new Fl_Button(41, 139, 32, 21, "M*");
+      but_Mmult->color((Fl_Color)93);
+      but_Mmult->labelcolor((Fl_Color)4);
+      but_Mmult->callback((Fl_Callback*)cb_but_Mmult);
+    } // Fl_Button* but_Mmult
+    { but_Mclear = new Fl_Button(76, 139, 31, 21, "MC");
+      but_Mclear->color((Fl_Color)93);
+      but_Mclear->labelcolor((Fl_Color)4);
+      but_Mclear->callback((Fl_Callback*)cb_but_Mclear);
+    } // Fl_Button* but_Mclear
+    { but_Mst = new Fl_Button(110, 139, 31, 21, "Mst");
+      but_Mst->color((Fl_Color)93);
+      but_Mst->callback((Fl_Callback*)cb_but_Mst);
+    } // Fl_Button* but_Mst
+    { but_Mrc = new Fl_Button(144, 139, 30, 21, "Mrc");
+      but_Mrc->color((Fl_Color)93);
+      but_Mrc->callback((Fl_Callback*)cb_but_Mrc);
+    } // Fl_Button* but_Mrc
+    { check_inv = new Fl_Button(6, 44, 32, 21, "inv");
+      check_inv->type(1);
+      check_inv->labelsize(11);
+      check_inv->labelcolor((Fl_Color)4);
+      check_inv->callback((Fl_Callback*)cb_check_inv);
+    } // Fl_Button* check_inv
+    { but_quit = new Fl_Button(145, 44, 29, 21, "Exit");
+      but_quit->labelfont(1);
+      but_quit->labelcolor((Fl_Color)33);
+      but_quit->callback((Fl_Callback*)cb_but_quit);
+    } // Fl_Button* but_quit
+    win->end();
+  } // Fl_Double_Window* win
+  init_value(0);
+	drgmode = 1;
+	base = 10;
+	currentbrkt = 0;
+	startbrkt[0] = 0;
+
+	set_memdisp();
+	set_brktdisp();
+	radio_10->value(1);
+	set_drgdisp();
+	set_display(0.0,NONE);
+}
+
+SciCalc::~SciCalc() {
+}
+
+void SciCalc::run(int px,int py) {
+  win->show();
+Fl::run();
+}
+
+void SciCalc::handle_number(double numb) {
+  int first;
+double sign;
+
+	if (ready) init_value(top);
+
+	if (numb == -1.0) 
+	if (dot) /* check whether we already have a dot */
+		return;
+	else 
+	{
+		dot = 1;
+		set_display(value[top],DOT);
+		return;
+	}
+
+	if (emode) 
+	{
+		sign = copysign(1.0, (double)exponent);
+		if (abs(exponent)*10 + numb > 999) 
+		{ /* cycle if exponent has > 3 digits */
+			first = (int)floor((double)abs(exponent)/100.0);
+			exponent = abs(exponent) - 100*first;
+			exponent *= (int)sign;
+		}
+		exponent = exponent*10 + (int) (sign*numb);
+		value[top] = mantissa*pow(10.0, (double)exponent);
+		set_display(mantissa, EXP);
+	}
+	else if (numb < base)
+	{ /* both decimal and non decimal number entry */
+		sign = copysign(1.0, value[top]);
+		if (dot && behind < 9) 
+		{
+			behind++;
+			diver = diver/(double)base;
+			value[top] += sign*diver*numb;
+		}
+		else 
+		if ((! dot) && (value[top] < 1.0e10))
+			value[top] = (double)base*value[top] + sign*numb;
+
+		set_display(value[top],(mode)behind);
+	}
+}
+
+void SciCalc::handle_operator(Operator op) {
+  int prevop, i, finished;
+
+	switch (op)
+	{
+		case PLUS:
+		case MINUS:
+		case MULT:
+		case DIV:
+		case POW:
+		case INVPOW:
+			finished = 0;
+			do 
+			{
+				if (top == startbrkt[currentbrkt]) finished = 1; /* is 1st operator */
+				if (! finished) 
+				{ /* compare priority of previous operators with current op */
+					prevop = oper[top-1];
+					if (priority[prevop] < priority[op])
+						finished = 1;
+					else 
+					{ /* last op can be calculated */
+						top--;
+    					calc(top);
+					}
+				}
+			} while (! finished);
+
+			oper[top] = op;
+			init_value(top+1);
+
+			set_display(value[top-1],NORM);
+			break;
+
+		case EVAL:
+			while (currentbrkt > 0) add_right_bracket();
+			for (i = top; i > 0; i--) calc(i-1);
+			top = 0;
+			ready = 1;
+			set_display(value[top],NORM);
+			break;
+	}
+}
+
+void SciCalc::change_base(int newbase) {
+  int oldbase;
+
+	oldbase = base;
+	base = newbase;
+
+	set_display(value[top], NORM);
+	ready = 1;
+	if ((oldbase == 16) || (base == 16)) setnormlabels();
+}
+
+void SciCalc::set_display(double val,mode behind) {
+  int i;
+char dispstr[40], expstr[10], str2[10];
+
+	/* number or operator handled to get here so reset inv stuff */
+/*
+	if (inv) 
+	{
+		inv = 0;
+		check_inv->value(0);
+		setnormlabels();
+	}*/
+	if (behind >= 0) 
+	{ /* format with appropriate number of decimal places */
+		if (base == 10) 
+		{
+			emode = 0;
+			strcpy(str2,"%.1f");
+			str2[2] = behind + '0';
+			sprintf(dispstr,str2,val);
+		}
+		else /* non base 10 display */
+			cvttobase(val, base, behind, dispstr);
+	}
+	else 
+	if (behind == DOT) 
+	{ /* display the . at the right */
+		if (base == 10) 
+		{
+			emode = 0;
+			sprintf(dispstr,"%.1f",val);
+			dispstr[strlen(dispstr)-1] = 0;
+		}
+		else
+			cvttobase(val, base, behind, dispstr);
+	}
+	else if (behind == NORM) 
+	{ /* normal display */
+		if (base == 10) 
+		{
+			emode = 0;
+			sprintf(dispstr,"%.9g",val);
+		}
+		else /* non base 10 display */
+			cvttobase(val, base, behind, dispstr);
+	}
+	else 
+	{ /* exponent entering display */
+		sprintf(dispstr,"%.8f",val);
+		for (i = strlen(dispstr); dispstr[i-1] == '0'; i--);
+		dispstr[i] =0;
+		strcat(dispstr, "e");
+		sprintf(expstr,"%d",exponent);
+		strcat(dispstr, expstr);
+	}
+	strcat(dispstr," ");
+	dispstr[17] = 0;
+	leddisplay->copy_label(dispstr);
+	leddisplay->redraw();
+}
+
+void SciCalc::set_memdisp() {
+  if (mem)
+	box_M->label("M");
+else
+	box_M->label("");
+box_M->redraw();
+}
+
+void SciCalc::set_drgdisp() {
+  if (drgmode == 0)
+	box_DEGRAD->label("DEG");
+else 
+{
+	if (drgmode == 1)
+		box_DEGRAD->label("RAD");
+	else
+		box_DEGRAD->label("GRAD");
+}
+box_DEGRAD->redraw();
+}
+
+void SciCalc::set_brktdisp() {
+  char dispstr[40];
+
+	if (currentbrkt > 0)
+	{
+		sprintf(dispstr, "%d [ max %d", currentbrkt, MaxNumBrkts);
+		box_bracket->copy_label(dispstr);
+	}
+	else
+		box_bracket->label("");
+box_bracket->redraw();
+}
+
+void SciCalc::add_left_bracket() {
+  if (currentbrkt < MaxNumBrkts) 
+	{
+		currentbrkt++;
+		startbrkt[currentbrkt] = top;
+		ready = 1;
+		set_brktdisp();
+	}
+}
+
+void SciCalc::add_right_bracket() {
+  int i;
+
+	if (currentbrkt > 0) 
+	{
+		for (i = top; i > startbrkt[currentbrkt]; i--) calc(i-1);
+		top = startbrkt[currentbrkt];
+		currentbrkt--;
+		ready = 1;
+	}
+	set_display(value[top],NORM);
+	set_brktdisp();
+}
+
+void SciCalc::factorial() {
+  double lg, alpha;
+
+  /* uses gamma functions to get result for non-integer values */
+
+	alpha = value[top] + 1.0;
+	if ((floor(alpha) == alpha)&&(alpha <= 0.0))
+	{
+		init_value(0);
+		leddisplay->label("Error: -ve integer ");
+		leddisplay->redraw();
+	}
+	else
+	if (alpha > 32)
+	 {
+		lg = exp(gammaln(alpha));
+    		value[top] = lg;
+   		 set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	if (alpha > 1.0)
+	{
+		int n = (int)truncf(alpha);
+		lg = 1.0;
+		for (int i = 1; i <n; i++) lg *= i;
+		value[top] = lg;
+		set_display(value[top],NORM);
+		ready = 1;
+	}
+}
+
+void SciCalc::exchange() {
+  double temp;
+
+  /* check if we have 2 values to exchange */
+  if (top > startbrkt[currentbrkt]) {
+    temp = value[top];
+    value[top] = value[top-1];
+    value[top-1] = temp;
+
+    set_display(value[top],NORM);
+    ready = 1;
+  }
+}
+
+void SciCalc::exponent_pi() {
+  if ((value[top] == 0.0) || (ready)) {
+    value[top] = M_PI;
+    set_display(value[top],NORM);
+    ready = 1;
+  }
+  else if ((! emode) && (base == 10)) {
+    emode = 1;
+    exponent = 0;
+    mantissa = value[top];
+    set_display(mantissa,EXP);
+  }
+}
+
+void SciCalc::calc(int i) {
+  switch (oper[i])
+	 {
+		case PLUS:	value[i] += value[i+1]; break;
+		case MINUS:	value[i] -= value[i+1]; break;
+		case MULT:	value[i] *= value[i+1]; break;
+		case DIV:	value[i] /= value[i+1]; break;
+		case POW:	value[i] = pow(value[i], value[i+1]); break;
+		case INVPOW: value[i] = pow(value[i], 1.0/value[i+1]); break;
+	}
+}
+
+void SciCalc::init_value(int lev) {
+  top = lev;
+	value[top] = 0.0;
+	ready = 0;
+	emode = 0;
+	dot = 0;
+	diver = 1.0;
+	behind = 0;
+	if (inv) 
+	{
+		inv = 0;
+		check_inv->value(0);
+		setnormlabels();
+	}
+}
+
+void SciCalc::cvttobase(double num,int base,mode behind,char *str) {
+  double sign, div;
+int place, digit, i;
+char digstr[2];
+
+	sign = copysign(1.0, num);
+	num *= sign;
+	if (sign == -1.0)
+		sprintf(str, "-");
+	else
+		str[0] = 0;
+
+	if (num == 0.0) 
+	{
+		sprintf(str, "0");
+		if (behind > 0) 
+		{
+			strcat(str, ".");
+			for(i = 0; i < behind; i++) strcat(str, "0");
+		}
+		return;
+	}
+	place = (int)( log(num)/log((double)base) );
+	if (place < 0) place = 0;
+	do 
+	{
+		div = pow((double)base, (double)place);
+		digit = (int)(num/div);
+		num -= (double)digit*div;
+		if (place == -1) strcat(str, ".");
+		place--;
+		sprintf(digstr, "%x", digit);
+		strcat(str, digstr);
+		if (strlen(str) > 18) 
+		{
+			sprintf(str, "can't display");
+			return;
+		}
+	} while ((place >= 0) || ((place >= -9) && (num != 0.0)));
+
+	if ((place == -1) && ((behind == DOT) || (behind > 0)))
+		strcat(str, ".");
+	while ((behind > 0) && (behind >= -place)) 
+	{
+		strcat(str, "0");
+		place--;
+	}
+}
+
+void SciCalc::setnormlabels() {
+  if (base <= 10)
+	{
+		but_sqrt->label("sqrt");  but_sqrt->shortcut(0);
+		but_pow->label("x^y"); but_pow->shortcut(0);
+		but_sin->label("sin");   but_sin->shortcut(0);
+		but_cos->label("cos"); but_cos->shortcut(0);
+		but_tan->label("tan");   but_tan->shortcut(0);
+		but_log->label("log");  but_log->shortcut(0);
+		but_sqrt->labelcolor(FL_BLUE);
+		but_pow->labelcolor(FL_BLUE);
+		but_sin->labelcolor(FL_BLUE);
+		but_cos->labelcolor(FL_BLUE);
+		but_tan->labelcolor(FL_BLUE);
+		but_log->labelcolor(FL_BLUE);
+	}
+	else
+	{
+		but_sqrt->label("a");  but_sqrt->shortcut('a');
+		but_pow->label("b");  but_pow->shortcut('b');
+		but_sin->label("c");   but_sin->shortcut('c');
+		but_cos->label("d");  but_cos->shortcut('d');
+		but_tan->label("e");  but_tan->shortcut('e');
+		but_log->label("f");   but_log->shortcut('f');
+		but_sqrt->labelcolor(FL_BLACK);
+		but_pow->labelcolor(FL_BLACK);
+		but_sin->labelcolor(FL_BLACK);
+		but_cos->labelcolor(FL_BLACK);
+		but_tan->labelcolor(FL_BLACK);
+		but_log->labelcolor(FL_BLACK);
+	}
+	but_ln->label("ln");
+	but_int->label("int");
+	but_dr->label("d->r");
+	but_Mplus->label("M+");
+	but_Mmult->label("M*");
+	but_Mclear->label("MC");
+	but_sqrt->redraw();
+	but_pow->redraw();
+	but_sin->redraw();
+	but_cos->redraw();
+	but_tan->redraw();
+	but_log->redraw();
+	but_ln->redraw();
+	but_int->redraw();
+	but_dr->redraw();
+	but_Mplus->redraw();
+	but_Mmult->redraw();
+	but_Mclear->redraw();
+}
+
+void SciCalc::setinvlabels() {
+  if (base <= 10)
+	{
+		but_sqrt->label("x^2");
+		but_pow->label("x^1/y");
+		but_sin->label("asin");
+		but_cos->label("acos");
+		but_tan->label("atan");
+		but_log->label("10^x");
+		but_sqrt->labelcolor(FL_BLUE);
+		but_pow->labelcolor(FL_BLUE);
+		but_sin->labelcolor(FL_BLUE);
+		but_cos->labelcolor(FL_BLUE);
+		but_tan->labelcolor(FL_BLUE);
+		but_log->labelcolor(FL_BLUE);
+	}
+	else
+	{
+		but_sqrt->label("a");
+		but_pow->label("b");
+		but_sin->label("c");
+		but_cos->label("d");
+		but_tan->label("e");
+		but_log->label("f");
+		but_sqrt->labelcolor(FL_BLACK);
+		but_pow->labelcolor(FL_BLACK);
+		but_sin->labelcolor(FL_BLACK);
+		but_cos->labelcolor(FL_BLACK);
+		but_tan->labelcolor(FL_BLACK);
+		but_log->labelcolor(FL_BLACK);
+	}
+	but_ln->label("e^x");
+	but_int->label("frac");
+	but_dr->label("r->d");
+	but_Mplus->label("M-");
+	but_Mmult->label("M/");
+	but_Mclear->label("Mex");
+	but_sqrt->redraw();
+	but_pow->redraw();
+	but_sin->redraw();
+	but_cos->redraw();
+	but_tan->redraw();
+	but_log->redraw();
+	but_ln->redraw();
+	but_int->redraw();
+	but_dr->redraw();
+	but_Mplus->redraw();
+	but_Mmult->redraw();
+	but_Mclear->redraw();
+}
+
+void SciCalc::mem_exchange() {
+  double temp;
+
+	temp = mem;
+	mem = value[top];
+	value[top] = temp;
+
+	set_display(value[top],NORM);
+	ready = 1;
+	set_memdisp();
+  printf("Hello, World!\n");
+}
+
+double SciCalc::to_drg(double angle) {
+  if (drgmode == 0)
+		return (M_PI*angle/180.0);
+	else 
+	if (drgmode == 2)
+		return (M_PI*angle/100.0);
+	else
+		return (angle);
+}
+
+double SciCalc::from_drg(double angle) {
+  if (drgmode == 0)
+		return (180.0*angle/M_PI);
+	else 
+	if (drgmode == 2)
+		return (100.0*angle/M_PI);
+	else
+		return (angle);
+}
+
+void SciCalc::memexch() {
+  double temp;
+
+	temp = mem;
+	mem = value[top];
+	value[top] = temp;
+	set_display(value[top],NORM);
+	ready = 1;
+	set_memdisp();
+}
diff --git a/ecalc/SciCalc.fl b/ecalc/SciCalc.fl
new file mode 100644
index 0000000..bfd0141
--- /dev/null
+++ b/ecalc/SciCalc.fl
@@ -0,0 +1,1005 @@
+# data file for the Fltk User Interface Designer (fluid)
+version 1.0108 
+header_name {.h} 
+code_name {.cpp}
+decl {\#include <stdio.h>} {} 
+
+decl {\#include <stdlib.h>} {selected global
+} 
+
+decl {\#include <string.h>} {global
+} 
+
+decl {\#include "math.h"} {} 
+
+Function {gammaln(double xx)} {open private return_type double
+} {
+  code {int j;
+double x,y,tmp,ser;
+static double cof[6] = {76.18009172947146,
+						-86.50532032941677,
+						24.01409824083091,
+						-1.231739572450155,
+						0.1208650973866179e-2,
+						-0.5395239384953e-5};
+	
+	y = x = xx;
+	tmp = x + 5.5;
+	tmp -= (x+0.5)*log(tmp);
+	ser = 1.000000000190015;
+	for (j=0;j<6;j++) ser += cof[j]/++y;
+	return -tmp+log(2.5066282746310005*ser/x);} {}
+} 
+
+Function {truncf(double x)} {private return_type double
+} {
+  code {if (x < 0.0)
+		x = -floor(-x);
+	else
+		x = floor(x);
+	return x;} {}
+} 
+
+class SciCalc {open
+} {
+  decl {enum {MaxNumBrkts=10};} {}
+  decl {enum Operator {PLUS,MINUS,MULT,DIV,POW,INVPOW,EVAL};} {}
+  decl {enum mode {NONE=0,DOT=-1,NORM=-2,EXP=-3};} {}
+  declblock {/* members */} {after {/********/}
+  } {
+    decl {double value[4*(MaxNumBrkts+1)];    /* The values on the stack */} {}
+    decl {int priority[6];   /* the priorities of each operator */} {}
+    decl {int oper[3*(MaxNumBrkts+1)];        /* the operators between them */} {}
+    decl {int top;                            /* the top of the stack */} {}
+    decl {int startbrkt[(MaxNumBrkts+1)];     /* the positions of the left brackets */} {}
+    decl {int currentbrkt;                    /* bracketing we are in */} {}
+    decl {double mem;             /* The memory value */} {}
+    decl {int ready;              /* Whether last number is ready.
+                           if "ready" is set, then typing another number
+                           overwrites the current number. */} {}
+    decl {int dot;                /* Whether the dot has been typed */} {}
+    decl {double diver;           /* The divider when behind the dot */} {}
+    decl {int behind;             /* Number of digits behind dot */} {}
+    decl {int inv;                /* Whether inverse key is depressed */} {}
+    decl {int emode;              /* Whether we are entering the exponent */} {}
+    decl {int exponent;           /* the exponent value whilst entering exponent */} {}
+    decl {double mantissa;        /* the mantissa value whilst entering exponent */} {}
+    decl {int base;               /* the base we are working in (2,8,10 or 16) */} {}
+    decl {int drgmode;            /* whether we are in deg, rad or grad mode */} {}
+  }
+  Function {SciCalc()} {open
+  } {
+    Fl_Window win {
+      label flCalc open
+      private xywh {528 286 181 262} type Double visible
+    } {
+      Fl_Box leddisplay {
+        label {0 }
+        private xywh {5 3 172 24} box DOWN_BOX color 207 labelfont 1 labelsize 16 labelcolor 59 align 24
+      }
+      Fl_Box box_DEGRAD {
+        label { }
+        private xywh {24 27 35 15} box ENGRAVED_BOX labelsize 9 align 16
+      }
+      Fl_Box box_bracket {
+        private xywh {59 27 65 15} box ENGRAVED_BOX labelsize 9 align 16
+      }
+      Fl_Box box_M {
+        label M
+        private xywh {124 27 35 15} box ENGRAVED_BOX labelsize 9 align 16
+      }
+      Fl_Group {} {open
+        private xywh {46 44 93 22} color 46
+      } {
+        Fl_Button radio_2 {
+          label 2
+          callback {change_base(2);}
+          private xywh {49 48 20 15} type Radio labelsize 10 labelcolor 1
+        }
+        Fl_Button radio_8 {
+          label 8
+          callback {change_base(8);}
+          private xywh {70 48 21 15} type Radio labelsize 10 labelcolor 1
+        }
+        Fl_Button radio_10 {
+          label 10
+          callback {change_base(10);}
+          private xywh {92 48 21 15} type Radio value 1 labelsize 10 labelcolor 1
+        }
+        Fl_Button radio_16 {
+          label 16
+          callback {change_base(16);}
+          private xywh {114 48 21 15} type Radio labelsize 10 labelcolor 1
+        }
+      }
+      Fl_Group {} {open
+        private xywh {3 163 107 94} box FLAT_BOX color 43
+      } {
+        Fl_Button but_7 {
+          label 7
+          callback {handle_number(7);}
+          private xywh {6 167 32 20} shortcut 0x37 labelfont 1 labelsize 16
+        }
+        Fl_Button but_8 {
+          label 8
+          callback {handle_number(8);}
+          private xywh {41 167 32 20} shortcut 0x38 labelfont 1 labelsize 16
+        }
+        Fl_Button but_9 {
+          label 9
+          callback {handle_number(9);}
+          private xywh {75 167 32 20} shortcut 0x39 labelfont 1 labelsize 16
+        }
+        Fl_Button but_4 {
+          label 4
+          callback {handle_number(4);}
+          private xywh {6 189 32 20} shortcut 0x34 labelfont 1 labelsize 16
+        }
+        Fl_Button but_5 {
+          label 5
+          callback {handle_number(5);}
+          private xywh {41 189 32 20} shortcut 0x35 labelfont 1 labelsize 16
+        }
+        Fl_Button but_6 {
+          label 6
+          callback {handle_number(6);}
+          private xywh {75 189 32 20} shortcut 0x36 labelfont 1 labelsize 16
+        }
+        Fl_Button but_1 {
+          label 1
+          callback {handle_number(1);}
+          private xywh {6 211 32 20} shortcut 0x31 labelfont 1 labelsize 16
+        }
+        Fl_Button but_2 {
+          label 2
+          callback {handle_number(2);}
+          private xywh {41 211 32 20} shortcut 0x32 labelfont 1 labelsize 16
+        }
+        Fl_Button but_3 {
+          label 3
+          callback {handle_number(3);}
+          private xywh {75 211 32 20} shortcut 0x33 labelfont 1 labelsize 16
+        }
+        Fl_Button but_0 {
+          label 0
+          callback {handle_number(0);}
+          private xywh {6 233 32 20} shortcut 0x30 labelfont 1 labelsize 16
+        }
+        Fl_Button but_dot {
+          label {.}
+          callback {handle_number(DOT);}
+          private xywh {41 233 32 20} shortcut 0x2e labelfont 1 labelsize 16
+        }
+        Fl_Button but_sign {
+          label {+/-}
+          callback {if (! emode)
+{
+	value[top] = -value[top];
+	set_display(value[top],NORM);
+}
+else 
+{
+	exponent = -exponent;
+	value[top] = mantissa*pow(10.0, (double)exponent);
+	set_display(mantissa,EXP);
+}}
+          xywh {75 233 32 20} labelfont 1 labelsize 16
+        }
+      }
+      Fl_Button but_C {
+        label C
+        callback {init_value(top); 
+set_display(0.0,NORM);}
+        private xywh {112 167 31 20} labelfont 1 labelsize 16
+      }
+      Fl_Button but_AC {
+        label AC
+        callback {init_value(0);
+set_display(0.0,NORM);
+currentbrkt = 0;
+box_bracket->label("");
+box_bracket->redraw();}
+        private xywh {146 167 30 20} labelfont 1 labelsize 16
+      }
+      Fl_Button but_X {
+        label x
+        callback {handle_operator(MULT);}
+        private xywh {112 189 31 20} shortcut 0x2a labelfont 1 labelsize 16
+      }
+      Fl_Button but_div {
+        label {/}
+        callback {handle_operator(DIV);}
+        private xywh {146 189 30 20} shortcut 0x2f labelfont 1 labelsize 16
+      }
+      Fl_Button but_plus {
+        label {+}
+        callback {handle_operator(PLUS);}
+        private xywh {112 211 31 20} shortcut 0x2b labelfont 1 labelsize 16
+      }
+      Fl_Button but_minus {
+        label {-}
+        callback {handle_operator(MINUS);}
+        private xywh {146 211 30 20} shortcut 0x2d labelfont 1 labelsize 16
+      }
+      Fl_Button but_pi {
+        label {e/p}
+        callback {exponent_pi();}
+        private xywh {112 233 31 20} labelfont 12 labelsize 17
+      }
+      Fl_Button but_eval {
+        label {=}
+        callback {handle_operator(EVAL);}
+        private xywh {146 233 30 20} shortcut 0x3d labelfont 1 labelsize 16
+      }
+      Fl_Button but_eval_hidden {
+        callback {handle_operator(EVAL);}
+        private xywh {147 253 6 7} box NO_BOX shortcut 0xff0d labelfont 1 labelsize 16
+      }
+      Fl_Button but_eval_hidden2 {
+        callback {handle_operator(EVAL);}
+        private xywh {157 263 6 7} box NO_BOX shortcut 0xff8d labelfont 1 labelsize 16
+      }
+      Fl_Button but_sqrt {
+        label sqrt
+        callback {if (base > 10) handle_number(10.0); 
+	else
+	if (! inv) 
+	{
+		value[top] = sqrt(value[top]);
+		set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	{
+		value[top] = pow(value[top], 2.0);
+		set_display(value[top],NORM);
+		ready = 1;
+	}}
+        private xywh {6 70 32 21} labelsize 11 labelcolor 4
+      }
+      Fl_Button but_pow {
+        label {x^y}
+        callback {if (base > 10)
+		handle_number(11.0);
+	else
+		handle_operator(check_inv->value()?INVPOW:POW);}
+        private xywh {41 70 32 21} labelsize 11 labelcolor 4
+      }
+      Fl_Button but_sin {
+        label sin
+        callback {if (base > 10) handle_number(12.0); 
+else
+	if (! inv) 
+	{
+		value[top] = sin(to_drg(value[top]));
+		set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	{
+		value[top] = from_drg(asin(value[top]));
+		set_display(value[top],NORM);
+		ready = 1;
+	}}
+        private xywh {76 70 31 21} labelsize 11 labelcolor 4
+      }
+      Fl_Button but_cos {
+        label cos
+        callback {if (base > 10) handle_number(13.0);
+else
+	if (! inv) 
+	{
+		value[top] = cos(to_drg(value[top]));
+		set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	{
+		value[top] = from_drg(acos(value[top]));
+		set_display(value[top],NORM);
+		ready = 1;
+	}}
+        private xywh {110 70 31 21} labelsize 11 labelcolor 4
+      }
+      Fl_Button but_tan {
+        label tan
+        callback {if (base > 10) handle_number(14.0);
+	else
+	if (! inv)
+	{
+		value[top] = tan(to_drg(value[top]));
+		set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	{
+		value[top] = from_drg(atan(value[top]));
+		set_display(value[top],NORM);
+		ready = 1;
+	}}
+        private xywh {144 70 30 21} labelsize 11 labelcolor 4
+      }
+      Fl_Button but_log {
+        label log
+        callback {if (base > 10) handle_number(15.0);
+else
+	if (! inv)
+	{
+		value[top] = log10(value[top]);
+		set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	{
+		value[top] = pow(10.0, value[top]);
+		set_display(value[top],NORM);
+		ready = 1;
+	}}
+        private xywh {6 93 32 21} labelsize 11 labelcolor 4
+      }
+      Fl_Button but_ln {
+        label ln
+        callback {if (! inv)
+	{
+		value[top] = log(value[top]);
+		set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	{
+		value[top] = exp(value[top]);
+		set_display(value[top],NORM);
+		ready = 1;
+	}}
+        private xywh {41 93 32 21} labelsize 11 labelcolor 4
+      }
+      Fl_Button but_int {
+        label int
+        callback {if (! inv)
+	{
+		value[top] = truncf(value[top]);
+		set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	{
+		value[top] = value[top] - truncf(value[top]);
+		set_display(value[top],NORM);
+		ready = 1;
+	}}
+        private xywh {76 93 31 21} labelsize 11 labelcolor 4
+      }
+      Fl_Button but_dr {
+        label {d->r}
+        callback {if (! inv) 
+	{
+		value[top] = M_PI*value[top]/180.0;
+		set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	{
+		value[top] = 180.0*value[top]/M_PI;
+		set_display(value[top],NORM);
+		ready = 1;
+	}}
+        private xywh {110 93 31 21} labelsize 10 labelcolor 4
+      }
+      Fl_Button but_drg {
+        label {d-r-g}
+        callback {drgmode++;
+	drgmode %= 3;
+	set_drgdisp();}
+        private xywh {144 93 30 21} labelsize 9
+      }
+      Fl_Button but_leftbr {
+        label {[}
+        callback {add_left_bracket();}
+        private xywh {6 116 32 21} shortcut 0x28 labelsize 11
+      }
+      Fl_Button but_rightbr {
+        label {]}
+        callback {add_right_bracket();}
+        private xywh {41 116 32 21} shortcut 0x29 labelsize 11
+      }
+      Fl_Button but_exch {
+        label exch
+        callback {exchange();}
+        private xywh {76 116 31 21} labelsize 11
+      }
+      Fl_Button but_invx {
+        label {1/x}
+        callback {value[top] = 1.0/value[top];
+	set_display(value[top],NORM);
+	ready = 1;}
+        private xywh {110 116 31 21} labelsize 11
+      }
+      Fl_Button but_fact {
+        label {x!}
+        callback {factorial();}
+        private xywh {144 116 30 21} labelsize 11
+      }
+      Fl_Button but_Mplus {
+        label {M+}
+        callback {if (! inv) mem += value[top]; else mem -= value[top];
+	set_display(value[top],NORM);
+	ready = 1;
+	set_memdisp();}
+        private xywh {6 139 32 21} color 93 labelcolor 4
+      }
+      Fl_Button but_Mmult {
+        label {M*}
+        callback {if (! inv) mem *= value[top]; else mem /= value[top];
+	set_display(value[top],NORM);
+	ready = 1;
+	set_memdisp();}
+        private xywh {41 139 32 21} color 93 labelcolor 4
+      }
+      Fl_Button but_Mclear {
+        label MC
+        callback {if (! inv)
+	{
+		mem = 0.0;
+		set_display(value[top],NORM);
+		ready = 1;
+		set_memdisp();
+	}
+	else
+		memexch();}
+        private xywh {76 139 31 21} color 93 labelcolor 4
+      }
+      Fl_Button but_Mst {
+        label Mst
+        callback {mem = value[top];
+	set_display(value[top],NORM);
+	ready = 1;
+	set_memdisp();}
+        private xywh {110 139 31 21} color 93
+      }
+      Fl_Button but_Mrc {
+        label Mrc
+        callback {value[top] = mem;
+	set_display(value[top],NORM);
+	ready = 1;}
+        private xywh {144 139 30 21} color 93
+      }
+      Fl_Button check_inv {
+        label inv
+        callback {if (inv) 
+	{
+		inv = 0;
+		setnormlabels();
+	}
+	else
+	{
+		inv = 1;
+		setinvlabels();
+	}}
+        private xywh {6 44 32 21} type Toggle labelsize 11 labelcolor 4
+      }
+      Fl_Button but_quit {
+        label Exit
+        callback {win->hide();
+delete win;}
+        private xywh {145 44 29 21} labelfont 1 labelcolor 33
+      }
+    }
+    code {init_value(0);
+	drgmode = 1;
+	base = 10;
+	currentbrkt = 0;
+	startbrkt[0] = 0;
+
+	set_memdisp();
+	set_brktdisp();
+	radio_10->value(1);
+	set_drgdisp();
+	set_display(0.0,NONE);} {}
+  }
+  Function {~SciCalc()} {} {}
+  Function {run(int px=-1,int py=-1)} {open
+  } {
+    code {win->show();
+Fl::run();} {}
+  }
+  Function {handle_number(double numb)} {private
+  } {
+    code {int first;
+double sign;
+
+	if (ready) init_value(top);
+
+	if (numb == -1.0) 
+	if (dot) /* check whether we already have a dot */
+		return;
+	else 
+	{
+		dot = 1;
+		set_display(value[top],DOT);
+		return;
+	}
+
+	if (emode) 
+	{
+		sign = copysign(1.0, (double)exponent);
+		if (abs(exponent)*10 + numb > 999) 
+		{ /* cycle if exponent has > 3 digits */
+			first = (int)floor((double)abs(exponent)/100.0);
+			exponent = abs(exponent) - 100*first;
+			exponent *= (int)sign;
+		}
+		exponent = exponent*10 + (int) (sign*numb);
+		value[top] = mantissa*pow(10.0, (double)exponent);
+		set_display(mantissa, EXP);
+	}
+	else if (numb < base)
+	{ /* both decimal and non decimal number entry */
+		sign = copysign(1.0, value[top]);
+		if (dot && behind < 9) 
+		{
+			behind++;
+			diver = diver/(double)base;
+			value[top] += sign*diver*numb;
+		}
+		else 
+		if ((! dot) && (value[top] < 1.0e10))
+			value[top] = (double)base*value[top] + sign*numb;
+
+		set_display(value[top],(mode)behind);
+	}} {}
+  }
+  Function {handle_operator(Operator op)} {private
+  } {
+    code {int prevop, i, finished;
+
+	switch (op)
+	{
+		case PLUS:
+		case MINUS:
+		case MULT:
+		case DIV:
+		case POW:
+		case INVPOW:
+			finished = 0;
+			do 
+			{
+				if (top == startbrkt[currentbrkt]) finished = 1; /* is 1st operator */
+				if (! finished) 
+				{ /* compare priority of previous operators with current op */
+					prevop = oper[top-1];
+					if (priority[prevop] < priority[op])
+						finished = 1;
+					else 
+					{ /* last op can be calculated */
+						top--;
+    					calc(top);
+					}
+				}
+			} while (! finished);
+
+			oper[top] = op;
+			init_value(top+1);
+
+			set_display(value[top-1],NORM);
+			break;
+
+		case EVAL:
+			while (currentbrkt > 0) add_right_bracket();
+			for (i = top; i > 0; i--) calc(i-1);
+			top = 0;
+			ready = 1;
+			set_display(value[top],NORM);
+			break;
+	}} {}
+  }
+  Function {change_base(int newbase)} {open private
+  } {
+    code {int oldbase;
+
+	oldbase = base;
+	base = newbase;
+
+	set_display(value[top], NORM);
+	ready = 1;
+	if ((oldbase == 16) || (base == 16)) setnormlabels();} {}
+  }
+  Function {set_display(double val,mode behind)} {open private
+  } {
+    code {int i;
+char dispstr[40], expstr[10], str2[10];
+
+	/* number or operator handled to get here so reset inv stuff */
+/*
+	if (inv) 
+	{
+		inv = 0;
+		check_inv->value(0);
+		setnormlabels();
+	}*/
+	if (behind >= 0) 
+	{ /* format with appropriate number of decimal places */
+		if (base == 10) 
+		{
+			emode = 0;
+			strcpy(str2,"%.1f");
+			str2[2] = behind + '0';
+			sprintf(dispstr,str2,val);
+		}
+		else /* non base 10 display */
+			cvttobase(val, base, behind, dispstr);
+	}
+	else 
+	if (behind == DOT) 
+	{ /* display the . at the right */
+		if (base == 10) 
+		{
+			emode = 0;
+			sprintf(dispstr,"%.1f",val);
+			dispstr[strlen(dispstr)-1] = 0;
+		}
+		else
+			cvttobase(val, base, behind, dispstr);
+	}
+	else if (behind == NORM) 
+	{ /* normal display */
+		if (base == 10) 
+		{
+			emode = 0;
+			sprintf(dispstr,"%.9g",val);
+		}
+		else /* non base 10 display */
+			cvttobase(val, base, behind, dispstr);
+	}
+	else 
+	{ /* exponent entering display */
+		sprintf(dispstr,"%.8f",val);
+		for (i = strlen(dispstr); dispstr[i-1] == '0'; i--);
+		dispstr[i] =0;
+		strcat(dispstr, "e");
+		sprintf(expstr,"%d",exponent);
+		strcat(dispstr, expstr);
+	}
+	strcat(dispstr," ");
+	dispstr[17] = 0;
+	leddisplay->copy_label(dispstr);
+	leddisplay->redraw();} {}
+  }
+  Function {set_memdisp()} {open private
+  } {
+    code {if (mem)
+	box_M->label("M");
+else
+	box_M->label("");
+box_M->redraw();} {}
+  }
+  Function {set_drgdisp()} {open private
+  } {
+    code {if (drgmode == 0)
+	box_DEGRAD->label("DEG");
+else 
+{
+	if (drgmode == 1)
+		box_DEGRAD->label("RAD");
+	else
+		box_DEGRAD->label("GRAD");
+}
+box_DEGRAD->redraw();} {}
+  }
+  Function {set_brktdisp()} {open private
+  } {
+    code {char dispstr[40];
+
+	if (currentbrkt > 0)
+	{
+		sprintf(dispstr, "%d [ max %d", currentbrkt, MaxNumBrkts);
+		box_bracket->copy_label(dispstr);
+	}
+	else
+		box_bracket->label("");
+box_bracket->redraw();} {}
+  }
+  Function {add_left_bracket()} {private
+  } {
+    code {if (currentbrkt < MaxNumBrkts) 
+	{
+		currentbrkt++;
+		startbrkt[currentbrkt] = top;
+		ready = 1;
+		set_brktdisp();
+	}} {}
+  }
+  Function {add_right_bracket()} {private
+  } {
+    code {int i;
+
+	if (currentbrkt > 0) 
+	{
+		for (i = top; i > startbrkt[currentbrkt]; i--) calc(i-1);
+		top = startbrkt[currentbrkt];
+		currentbrkt--;
+		ready = 1;
+	}
+	set_display(value[top],NORM);
+	set_brktdisp();} {}
+  }
+  Function {factorial()} {open
+  } {
+    code {double lg, alpha;
+
+  /* uses gamma functions to get result for non-integer values */
+
+	alpha = value[top] + 1.0;
+	if ((floor(alpha) == alpha)&&(alpha <= 0.0))
+	{
+		init_value(0);
+		leddisplay->label("Error: -ve integer ");
+		leddisplay->redraw();
+	}
+	else
+	if (alpha > 32)
+	 {
+		lg = exp(gammaln(alpha));
+    		value[top] = lg;
+   		 set_display(value[top],NORM);
+		ready = 1;
+	}
+	else
+	if (alpha > 1.0)
+	{
+		int n = (int)truncf(alpha);
+		lg = 1.0;
+		for (int i = 1; i <n; i++) lg *= i;
+		value[top] = lg;
+		set_display(value[top],NORM);
+		ready = 1;
+	}} {}
+  }
+  Function {exchange()} {} {
+    code {double temp;
+
+  /* check if we have 2 values to exchange */
+  if (top > startbrkt[currentbrkt]) {
+    temp = value[top];
+    value[top] = value[top-1];
+    value[top-1] = temp;
+
+    set_display(value[top],NORM);
+    ready = 1;
+  }} {}
+  }
+  Function {exponent_pi()} {} {
+    code {if ((value[top] == 0.0) || (ready)) {
+    value[top] = M_PI;
+    set_display(value[top],NORM);
+    ready = 1;
+  }
+  else if ((! emode) && (base == 10)) {
+    emode = 1;
+    exponent = 0;
+    mantissa = value[top];
+    set_display(mantissa,EXP);
+  }} {}
+  }
+  Function {calc(int i)} {} {
+    code {switch (oper[i])
+	 {
+		case PLUS:	value[i] += value[i+1]; break;
+		case MINUS:	value[i] -= value[i+1]; break;
+		case MULT:	value[i] *= value[i+1]; break;
+		case DIV:	value[i] /= value[i+1]; break;
+		case POW:	value[i] = pow(value[i], value[i+1]); break;
+		case INVPOW: value[i] = pow(value[i], 1.0/value[i+1]); break;
+	}} {}
+  }
+  Function {init_value(int lev)} {open private
+  } {
+    code {top = lev;
+	value[top] = 0.0;
+	ready = 0;
+	emode = 0;
+	dot = 0;
+	diver = 1.0;
+	behind = 0;
+	if (inv) 
+	{
+		inv = 0;
+		check_inv->value(0);
+		setnormlabels();
+	}} {}
+  }
+  Function {cvttobase(double num,int base,mode behind,char *str)} {private
+  } {
+    code {double sign, div;
+int place, digit, i;
+char digstr[2];
+
+	sign = copysign(1.0, num);
+	num *= sign;
+	if (sign == -1.0)
+		sprintf(str, "-");
+	else
+		str[0] = 0;
+
+	if (num == 0.0) 
+	{
+		sprintf(str, "0");
+		if (behind > 0) 
+		{
+			strcat(str, ".");
+			for(i = 0; i < behind; i++) strcat(str, "0");
+		}
+		return;
+	}
+	place = (int)( log(num)/log((double)base) );
+	if (place < 0) place = 0;
+	do 
+	{
+		div = pow((double)base, (double)place);
+		digit = (int)(num/div);
+		num -= (double)digit*div;
+		if (place == -1) strcat(str, ".");
+		place--;
+		sprintf(digstr, "%x", digit);
+		strcat(str, digstr);
+		if (strlen(str) > 18) 
+		{
+			sprintf(str, "can't display");
+			return;
+		}
+	} while ((place >= 0) || ((place >= -9) && (num != 0.0)));
+
+	if ((place == -1) && ((behind == DOT) || (behind > 0)))
+		strcat(str, ".");
+	while ((behind > 0) && (behind >= -place)) 
+	{
+		strcat(str, "0");
+		place--;
+	}} {}
+  }
+  Function {setnormlabels()} {open private
+  } {
+    code {if (base <= 10)
+	{
+		but_sqrt->label("sqrt");  but_sqrt->shortcut(0);
+		but_pow->label("x^y"); but_pow->shortcut(0);
+		but_sin->label("sin");   but_sin->shortcut(0);
+		but_cos->label("cos"); but_cos->shortcut(0);
+		but_tan->label("tan");   but_tan->shortcut(0);
+		but_log->label("log");  but_log->shortcut(0);
+		but_sqrt->labelcolor(FL_BLUE);
+		but_pow->labelcolor(FL_BLUE);
+		but_sin->labelcolor(FL_BLUE);
+		but_cos->labelcolor(FL_BLUE);
+		but_tan->labelcolor(FL_BLUE);
+		but_log->labelcolor(FL_BLUE);
+	}
+	else
+	{
+		but_sqrt->label("a");  but_sqrt->shortcut('a');
+		but_pow->label("b");  but_pow->shortcut('b');
+		but_sin->label("c");   but_sin->shortcut('c');
+		but_cos->label("d");  but_cos->shortcut('d');
+		but_tan->label("e");  but_tan->shortcut('e');
+		but_log->label("f");   but_log->shortcut('f');
+		but_sqrt->labelcolor(FL_BLACK);
+		but_pow->labelcolor(FL_BLACK);
+		but_sin->labelcolor(FL_BLACK);
+		but_cos->labelcolor(FL_BLACK);
+		but_tan->labelcolor(FL_BLACK);
+		but_log->labelcolor(FL_BLACK);
+	}
+	but_ln->label("ln");
+	but_int->label("int");
+	but_dr->label("d->r");
+	but_Mplus->label("M+");
+	but_Mmult->label("M*");
+	but_Mclear->label("MC");
+	but_sqrt->redraw();
+	but_pow->redraw();
+	but_sin->redraw();
+	but_cos->redraw();
+	but_tan->redraw();
+	but_log->redraw();
+	but_ln->redraw();
+	but_int->redraw();
+	but_dr->redraw();
+	but_Mplus->redraw();
+	but_Mmult->redraw();
+	but_Mclear->redraw();} {}
+  }
+  Function {setinvlabels()} {private
+  } {
+    code {if (base <= 10)
+	{
+		but_sqrt->label("x^2");
+		but_pow->label("x^1/y");
+		but_sin->label("asin");
+		but_cos->label("acos");
+		but_tan->label("atan");
+		but_log->label("10^x");
+		but_sqrt->labelcolor(FL_BLUE);
+		but_pow->labelcolor(FL_BLUE);
+		but_sin->labelcolor(FL_BLUE);
+		but_cos->labelcolor(FL_BLUE);
+		but_tan->labelcolor(FL_BLUE);
+		but_log->labelcolor(FL_BLUE);
+	}
+	else
+	{
+		but_sqrt->label("a");
+		but_pow->label("b");
+		but_sin->label("c");
+		but_cos->label("d");
+		but_tan->label("e");
+		but_log->label("f");
+		but_sqrt->labelcolor(FL_BLACK);
+		but_pow->labelcolor(FL_BLACK);
+		but_sin->labelcolor(FL_BLACK);
+		but_cos->labelcolor(FL_BLACK);
+		but_tan->labelcolor(FL_BLACK);
+		but_log->labelcolor(FL_BLACK);
+	}
+	but_ln->label("e^x");
+	but_int->label("frac");
+	but_dr->label("r->d");
+	but_Mplus->label("M-");
+	but_Mmult->label("M/");
+	but_Mclear->label("Mex");
+	but_sqrt->redraw();
+	but_pow->redraw();
+	but_sin->redraw();
+	but_cos->redraw();
+	but_tan->redraw();
+	but_log->redraw();
+	but_ln->redraw();
+	but_int->redraw();
+	but_dr->redraw();
+	but_Mplus->redraw();
+	but_Mmult->redraw();
+	but_Mclear->redraw();} {}
+  }
+  Function {mem_exchange()} {private
+  } {
+    code {double temp;
+
+	temp = mem;
+	mem = value[top];
+	value[top] = temp;
+
+	set_display(value[top],NORM);
+	ready = 1;
+	set_memdisp();} {}
+    code {printf("Hello, World!\\n");} {}
+  }
+  Function {to_drg(double angle)} {private return_type double
+  } {
+    code {if (drgmode == 0)
+		return (M_PI*angle/180.0);
+	else 
+	if (drgmode == 2)
+		return (M_PI*angle/100.0);
+	else
+		return (angle);} {}
+  }
+  Function {from_drg(double angle)} {private return_type double
+  } {
+    code {if (drgmode == 0)
+		return (180.0*angle/M_PI);
+	else 
+	if (drgmode == 2)
+		return (100.0*angle/M_PI);
+	else
+		return (angle);} {}
+  }
+  Function {memexch()} {open
+  } {
+    code {double temp;
+
+	temp = mem;
+	mem = value[top];
+	value[top] = temp;
+	set_display(value[top],NORM);
+	ready = 1;
+	set_memdisp();} {}
+  }
+} 
diff --git a/ecalc/SciCalc.h b/ecalc/SciCalc.h
new file mode 100644
index 0000000..aa94062
--- /dev/null
+++ b/ecalc/SciCalc.h
@@ -0,0 +1,217 @@
+// generated by Fast Light User Interface Designer (fluid) version 1.0108
+
+#ifndef SciCalc_h
+#define SciCalc_h
+#include <FL/Fl.H>
+#include <FL/Fl_Double_Window.H>
+#include <FL/Fl_Box.H>
+#include <FL/Fl_Group.H>
+#include <FL/Fl_Button.H>
+
+class SciCalc {
+  enum {MaxNumBrkts=10}; 
+  enum Operator {PLUS,MINUS,MULT,DIV,POW,INVPOW,EVAL}; 
+  enum mode {NONE=0,DOT=-1,NORM=-2,EXP=-3}; 
+  double value[4*(MaxNumBrkts+1)];    /* The values on the stack */; 
+  int priority[6];   /* the priorities of each operator */; 
+  int oper[3*(MaxNumBrkts+1)];        /* the operators between them */; 
+  int top;                            /* the top of the stack */; 
+  int startbrkt[(MaxNumBrkts+1)];     /* the positions of the left brackets */; 
+  int currentbrkt;                    /* bracketing we are in */; 
+  double mem;             /* The memory value */; 
+  int ready;              /* Whether last number is ready.
+                           if "ready" is set, then typing another number
+                           overwrites the current number. */; 
+  int dot;                /* Whether the dot has been typed */; 
+  double diver;           /* The divider when behind the dot */; 
+  int behind;             /* Number of digits behind dot */; 
+  int inv;                /* Whether inverse key is depressed */; 
+  int emode;              /* Whether we are entering the exponent */; 
+  int exponent;           /* the exponent value whilst entering exponent */; 
+  double mantissa;        /* the mantissa value whilst entering exponent */; 
+  int base;               /* the base we are working in (2,8,10 or 16) */; 
+  int drgmode;            /* whether we are in deg, rad or grad mode */; 
+public:
+  SciCalc();
+private:
+  Fl_Double_Window *win;
+  Fl_Box *leddisplay;
+  Fl_Box *box_DEGRAD;
+  Fl_Box *box_bracket;
+  Fl_Box *box_M;
+  Fl_Button *radio_2;
+  void cb_radio_2_i(Fl_Button*, void*);
+  static void cb_radio_2(Fl_Button*, void*);
+  Fl_Button *radio_8;
+  void cb_radio_8_i(Fl_Button*, void*);
+  static void cb_radio_8(Fl_Button*, void*);
+  Fl_Button *radio_10;
+  void cb_radio_10_i(Fl_Button*, void*);
+  static void cb_radio_10(Fl_Button*, void*);
+  Fl_Button *radio_16;
+  void cb_radio_16_i(Fl_Button*, void*);
+  static void cb_radio_16(Fl_Button*, void*);
+  Fl_Button *but_7;
+  void cb_but_7_i(Fl_Button*, void*);
+  static void cb_but_7(Fl_Button*, void*);
+  Fl_Button *but_8;
+  void cb_but_8_i(Fl_Button*, void*);
+  static void cb_but_8(Fl_Button*, void*);
+  Fl_Button *but_9;
+  void cb_but_9_i(Fl_Button*, void*);
+  static void cb_but_9(Fl_Button*, void*);
+  Fl_Button *but_4;
+  void cb_but_4_i(Fl_Button*, void*);
+  static void cb_but_4(Fl_Button*, void*);
+  Fl_Button *but_5;
+  void cb_but_5_i(Fl_Button*, void*);
+  static void cb_but_5(Fl_Button*, void*);
+  Fl_Button *but_6;
+  void cb_but_6_i(Fl_Button*, void*);
+  static void cb_but_6(Fl_Button*, void*);
+  Fl_Button *but_1;
+  void cb_but_1_i(Fl_Button*, void*);
+  static void cb_but_1(Fl_Button*, void*);
+  Fl_Button *but_2;
+  void cb_but_2_i(Fl_Button*, void*);
+  static void cb_but_2(Fl_Button*, void*);
+  Fl_Button *but_3;
+  void cb_but_3_i(Fl_Button*, void*);
+  static void cb_but_3(Fl_Button*, void*);
+  Fl_Button *but_0;
+  void cb_but_0_i(Fl_Button*, void*);
+  static void cb_but_0(Fl_Button*, void*);
+  Fl_Button *but_dot;
+  void cb_but_dot_i(Fl_Button*, void*);
+  static void cb_but_dot(Fl_Button*, void*);
+public:
+  Fl_Button *but_sign;
+private:
+  void cb_but_sign_i(Fl_Button*, void*);
+  static void cb_but_sign(Fl_Button*, void*);
+  Fl_Button *but_C;
+  void cb_but_C_i(Fl_Button*, void*);
+  static void cb_but_C(Fl_Button*, void*);
+  Fl_Button *but_AC;
+  void cb_but_AC_i(Fl_Button*, void*);
+  static void cb_but_AC(Fl_Button*, void*);
+  Fl_Button *but_X;
+  void cb_but_X_i(Fl_Button*, void*);
+  static void cb_but_X(Fl_Button*, void*);
+  Fl_Button *but_div;
+  void cb_but_div_i(Fl_Button*, void*);
+  static void cb_but_div(Fl_Button*, void*);
+  Fl_Button *but_plus;
+  void cb_but_plus_i(Fl_Button*, void*);
+  static void cb_but_plus(Fl_Button*, void*);
+  Fl_Button *but_minus;
+  void cb_but_minus_i(Fl_Button*, void*);
+  static void cb_but_minus(Fl_Button*, void*);
+  Fl_Button *but_pi;
+  void cb_but_pi_i(Fl_Button*, void*);
+  static void cb_but_pi(Fl_Button*, void*);
+  Fl_Button *but_eval;
+  void cb_but_eval_i(Fl_Button*, void*);
+  static void cb_but_eval(Fl_Button*, void*);
+  Fl_Button *but_eval_hidden;
+  void cb_but_eval_hidden_i(Fl_Button*, void*);
+  static void cb_but_eval_hidden(Fl_Button*, void*);
+  Fl_Button *but_eval_hidden2;
+  void cb_but_eval_hidden2_i(Fl_Button*, void*);
+  static void cb_but_eval_hidden2(Fl_Button*, void*);
+  Fl_Button *but_sqrt;
+  void cb_but_sqrt_i(Fl_Button*, void*);
+  static void cb_but_sqrt(Fl_Button*, void*);
+  Fl_Button *but_pow;
+  void cb_but_pow_i(Fl_Button*, void*);
+  static void cb_but_pow(Fl_Button*, void*);
+  Fl_Button *but_sin;
+  void cb_but_sin_i(Fl_Button*, void*);
+  static void cb_but_sin(Fl_Button*, void*);
+  Fl_Button *but_cos;
+  void cb_but_cos_i(Fl_Button*, void*);
+  static void cb_but_cos(Fl_Button*, void*);
+  Fl_Button *but_tan;
+  void cb_but_tan_i(Fl_Button*, void*);
+  static void cb_but_tan(Fl_Button*, void*);
+  Fl_Button *but_log;
+  void cb_but_log_i(Fl_Button*, void*);
+  static void cb_but_log(Fl_Button*, void*);
+  Fl_Button *but_ln;
+  void cb_but_ln_i(Fl_Button*, void*);
+  static void cb_but_ln(Fl_Button*, void*);
+  Fl_Button *but_int;
+  void cb_but_int_i(Fl_Button*, void*);
+  static void cb_but_int(Fl_Button*, void*);
+  Fl_Button *but_dr;
+  void cb_but_dr_i(Fl_Button*, void*);
+  static void cb_but_dr(Fl_Button*, void*);
+  Fl_Button *but_drg;
+  void cb_but_drg_i(Fl_Button*, void*);
+  static void cb_but_drg(Fl_Button*, void*);
+  Fl_Button *but_leftbr;
+  void cb_but_leftbr_i(Fl_Button*, void*);
+  static void cb_but_leftbr(Fl_Button*, void*);
+  Fl_Button *but_rightbr;
+  void cb_but_rightbr_i(Fl_Button*, void*);
+  static void cb_but_rightbr(Fl_Button*, void*);
+  Fl_Button *but_exch;
+  void cb_but_exch_i(Fl_Button*, void*);
+  static void cb_but_exch(Fl_Button*, void*);
+  Fl_Button *but_invx;
+  void cb_but_invx_i(Fl_Button*, void*);
+  static void cb_but_invx(Fl_Button*, void*);
+  Fl_Button *but_fact;
+  void cb_but_fact_i(Fl_Button*, void*);
+  static void cb_but_fact(Fl_Button*, void*);
+  Fl_Button *but_Mplus;
+  void cb_but_Mplus_i(Fl_Button*, void*);
+  static void cb_but_Mplus(Fl_Button*, void*);
+  Fl_Button *but_Mmult;
+  void cb_but_Mmult_i(Fl_Button*, void*);
+  static void cb_but_Mmult(Fl_Button*, void*);
+  Fl_Button *but_Mclear;
+  void cb_but_Mclear_i(Fl_Button*, void*);
+  static void cb_but_Mclear(Fl_Button*, void*);
+  Fl_Button *but_Mst;
+  void cb_but_Mst_i(Fl_Button*, void*);
+  static void cb_but_Mst(Fl_Button*, void*);
+  Fl_Button *but_Mrc;
+  void cb_but_Mrc_i(Fl_Button*, void*);
+  static void cb_but_Mrc(Fl_Button*, void*);
+  Fl_Button *check_inv;
+  void cb_check_inv_i(Fl_Button*, void*);
+  static void cb_check_inv(Fl_Button*, void*);
+  Fl_Button *but_quit;
+  void cb_but_quit_i(Fl_Button*, void*);
+  static void cb_but_quit(Fl_Button*, void*);
+public:
+  ~SciCalc();
+  void run(int px=-1,int py=-1);
+private:
+  void handle_number(double numb);
+  void handle_operator(Operator op);
+  void change_base(int newbase);
+  void set_display(double val,mode behind);
+  void set_memdisp();
+  void set_drgdisp();
+  void set_brktdisp();
+  void add_left_bracket();
+  void add_right_bracket();
+public:
+  void factorial();
+  void exchange();
+  void exponent_pi();
+  void calc(int i);
+private:
+  void init_value(int lev);
+  void cvttobase(double num,int base,mode behind,char *str);
+  void setnormlabels();
+  void setinvlabels();
+  void mem_exchange();
+  double to_drg(double angle);
+  double from_drg(double angle);
+public:
+  void memexch();
+};
+#endif