<table c=4 fsize=large fjust=center>
<c name=1 action=number>1</c>
<c name=2 action=number>2</c>
<c name=3 action=number>3</c>
<c name=plus action=add>+</c>
<c name=4 action=number>4</c><c name=5 action=number>5</c> <c name=6 action=number>6</c>
<c name=minus action=sub>-</c>
<c name=7 action=number>7</c>
<c name=8 action=number>8</c>
<c name=9 action=number>9</c>
<c name=equal action=equal>=</c>
<c>.</c>
<c>.</c>
<c>.</c>
<c>.</c>
<c name=num1 fjust=right>-</c>
<c name=num2 fjust=right>-</c>
<c name=nothing action=equal>=</c>
<c name=result fjust=right>-</c>
<c name=clear action=clear>Clear</c>
<?

    $first = 1;
    function number($cn) {
	global $first;
	global $num1;
	global $num2;
	$num = atoi($cn);
	if ($first) {
	    $num1 = $num1 * 10 + $num;
	    cellp("num1", $num1);
	} else {
	    $num2 = $num2 * 10 + $num;
	    cellp("num2", $num2);
	}
    }
    function add() {
	global $op;
	global $first;
	$op = 1;
	$first = 0;
    }
    function sub() {
	global $op;
	global $first;
	$op = 2;
	$first = 0;
    }
    function equal() {
	global $first;
	global $op;
	global $num1;
	global $num2;
	if ($op == 1) {
	    $r = $num1 + $num2;
	} else {
	    $r = $num1 - $num2;
	}
	/* cellp("result", "!" . $r . "!"); */
	/* cellp("result", appendstr("!", "!")); */
	/* cellp("result", "!" . $r . "!");  */
	cellp("result", "!$r!"); 
	$first = 0;
    }
    function clear($blah) {
	global $first;
	global $op;
	global $num1;
	global $num2;
	$first = 1;
	$num1 = 0; $num2 = 0;
	cellp("num1", "-");
	cellp("num2", "-");
	cellp("result", "-");
    }
?>
