\begindata{arbiter,271648360}
\V 2
\begindata{text,271648164}
\textdsversion{12}
\template{default}
\begindata{cel,271679708}
\V 2
\begindata{raster,271679628}
2 0 136533 136533 0 0 36 38
bits 271679628 36 38
k |
hf0h |
g07feh |
g1fG80g |
g7fGe0g |
gHf0g |
01Hf8g |
03Hfcg |
07Hfeg |
0ff0g7fg |
0ff0g7fg |
1ff0g7f80 |
1fGf87f80 |
3fGf0Gc0 |
3fGf1Gc0 |
7fGe1Gc0 |
7fGe3Ge0 |
7fGe3Ge0 |
7fGc3Ge0 |
7fGc7Ge0 |
7fGc7Ge0 |
7fG87Ge0 |
7fG8fGc0 |
3fG8fGc0 |
3fG0fGc0 |
3fG0fG80 |
1fG0fG80 |
1fG0fGg |
0fG0fGg |
0fG0ffeg |
07G0ffcg |
03Hfcg |
01Hf8g |
gHf0g |
g7fGc0g |
g1fGh |
g01f0h |
k |
\enddata{raster, 271679628}
0 271679628 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< seven
\enddata{cel,271679708}
\view{celview,271679708,68,0,0}\
\begindata{cel,271678988}
\V 2
\begindata{raster,271678908}
2 0 136533 136533 0 0 36 38
bits 271678908 36 38
k |
hf0h |
g07feh |
g1fG80g |
g7fGe0g |
gHf0g |
01Hf8g |
03fe07fcg |
07f801feg |
0ff0gGg |
0ff1f8Gg |
1fe3fc7f80 |
1fe3fc7f80 |
3fe3fc7fc0 |
3fe3fc7fc0 |
7fe1f87fc0 |
7f!f0Ge0 |
7ff801Ge0 |
7ff801Ge0 |
7ff0gGe0 |
7fe1f87fe0 |
7fe3fc7fe0 |
7fc7fe3fc0 |
3fc7fe3fc0 |
3fc7fe3fc0 |
3fe3fc7f80 |
1fe1f87f80 |
1ff0gGg |
0ff801Gg |
0ffe07feg |
07Hfcg |
03Hfcg |
01Hf8g |
gHf0g |
g7fGc0g |
g1fGh |
g01f0h |
k |
\enddata{raster, 271678908}
0 271678908 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< eight
\enddata{cel,271678988}
\view{celview,271678988,69,0,0}\
\begindata{cel,271678268}
\V 2
\begindata{raster,271678188}
2 0 136533 136533 0 0 36 38
bits 271678188 36 38
k |
hf0h |
g07feh |
g1fG80g |
g7fGe0g |
gHf0g |
01Hf8g |
03G1ffcg |
07fc07feg |
0ff803Gg |
0ff001Gg |
1ff1e1G80 |
1fe1f0G80 |
3fe3f8Gc0 |
3fe3f8Gc0 |
7fe3f87fc0 |
7fe3f87fe0 |
7fe3f87fe0 |
7fe1f07fe0 |
7ff0e07fe0 |
7ff0g7fe0 |
7ff8gGe0 |
7ffe18Gc0 |
3fGf8Gc0 |
3fGf8Gc0 |
3fGf8G80 |
1f!f1G80 |
1ff0e1Gg |
0ff803Gg |
0ffc07feg |
07fe0ffcg |
03Hfcg |
01Hf8g |
gHf0g |
g7fGc0g |
g1fGh |
g01f0h |
k |
\enddata{raster, 271678188}
0 271678188 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< nine
>LINK< 
\enddata{cel,271678268}
\view{celview,271678268,70,0,0} 
 \
\begindata{cel,271677548}
\V 2
\begindata{raster,271677468}
2 0 136533 136533 0 0 36 38
bits 271677468 36 38
Jf0 |
H0fGf0 |
Gf801Gf0 |
Ge0g7ff0 |
G80g1ff0 |
Gh0ff0 |
feh07f0 |
fch03f0 |
f8h01f0 |
f0g0egf0 |
f0g0egf0 |
e0g0eg70 |
e0g1cg70 |
c0g1cg30 |
c0g1cg30 |
80g38g30 |
80g38g10 |
80g38g10 |
80g38g10 |
80g70g10 |
80g70g10 |
80g70g10 |
80ge0g30 |
c0ge0g30 |
c0ge0g30 |
c001c0g70 |
e001c0g70 |
e001c0gf0 |
f0if0 |
f0h01f0 |
f8h03f0 |
fch03f0 |
feh07f0 |
Gh0ff0 |
G80g3ff0 |
Ge0gGf0 |
Gfe0fGf0 |
Jf0 |
\enddata{raster, 271677468}
0 271677468 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< div
>LINK< 
\enddata{cel,271677548}
\view{celview,271677548,71,42,0}

\begindata{cel,271676828}
\V 2
\begindata{raster,271676748}
2 0 136533 136533 0 0 36 38
bits 271676748 36 38
k |
hf0h |
g07feh |
g1fG80g |
g7fGe0g |
gHf0g |
01Hf8g |
03Hfcg |
07Gc7feg |
0fG87Gg |
0fG87Gg |
1fG07G80 |
1fG07G80 |
3ffe07Gc0 |
3ffe47Gc0 |
7ffc47Gc0 |
7ffcc7Ge0 |
7ff8c7Ge0 |
7ff9c7Ge0 |
7ff1c7Ge0 |
7ff3c7Ge0 |
7fe0gGe0 |
7fe0gGc0 |
3fe0gGc0 |
3fGc7Gc0 |
3fGc7G80 |
1fGc7G80 |
1fGc7Gg |
0fIg |
0fHfeg |
07Hfcg |
03Hfcg |
01Hf8g |
gHf0g |
g7fGc0g |
g1fGh |
g01f0h |
k |
\enddata{raster, 271676748}
0 271676748 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< four
>LINK< LINK< 
\enddata{cel,271676828}
\view{celview,271676828,72,0,0}\
\begindata{cel,271676108}
\V 2
\begindata{raster,271676028}
2 0 136533 136533 0 0 36 38
bits 271676028 36 38
k |
hf0h |
g07feh |
g1fG80g |
g7fGe0g |
gHf0g |
01Hf8g |
03Hfcg |
07Hfeg |
0ff001Gg |
0ff001Gg |
1ff001G80 |
1ff1H80 |
3ff1Hc0 |
3ff1Hc0 |
7ff1Hc0 |
7ff107Ge0 |
7ff001Ge0 |
7ff001Ge0 |
7f!f0Ge0 |
7ff3f0Ge0 |
7fGf87fe0 |
7fGfc7fc0 |
3fGfc7fc0 |
3fGfc7fc0 |
3fGf87f80 |
1ff1f8G80 |
1f!f0Gg |
0ff001Gg |
0ffc03feg |
07G0ffcg |
03Hfcg |
01Hf8g |
gHf0g |
g7fGc0g |
g1fGh |
g01f0h |
k |
\enddata{raster, 271676028}
0 271676028 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< five
>LINK< LINK< 
\enddata{cel,271676108}
\view{celview,271676108,73,0,0}\
\begindata{cel,271675388}
\V 2
\begindata{raster,271675308}
2 0 136533 136533 0 0 36 38
bits 271675308 36 38
k |
hf0h |
g07feh |
g1fG80g |
g7fGe0g |
gHf0g |
01Hf8g |
03Hfcg |
07fe07feg |
0ffc01Gg |
0ff801Gg |
1f!f0G80 |
1ff1f8G80 |
3fe1Hc0 |
3fe3Hc0 |
7fe3Hc0 |
7fe30fGe0 |
7fe203Ge0 |
7fe001Ge0 |
7fe0e1Ge0 |
7fe1f0Ge0 |
7fe1f0Ge0 |
7fe3f8Gc0 |
3fe3f8Gc0 |
3fe3f8Gc0 |
3fe1f0G80 |
1f!f1G80 |
1ff0e1Gg |
0ff803Gg |
0ffc07feg |
07G0ffcg |
03Hfcg |
01Hf8g |
gHf0g |
g7fGc0g |
g1fGh |
g01f0h |
k |
\enddata{raster, 271675308}
0 271675308 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< six
>LINK< 
\enddata{cel,271675388}
\view{celview,271675388,74,0,0} 
 \
\begindata{cel,271674668}
\V 2
\begindata{raster,271674588}
2 0 136533 136533 0 0 36 38
bits 271674588 36 38
Jf0 |
H0fGf0 |
Gf801Gf0 |
Ge0g7ff0 |
G80g1ff0 |
Gh0ff0 |
feh07f0 |
fch03f0 |
f8h01f0 |
f0if0 |
f0if0 |
e0i70 |
e0i70 |
c0i30 |
c0i30 |
800180g30 |
800180g10 |
800db0g10 |
800ff0g10 |
8003c0g10 |
800660g10 |
800660g10 |
80i30 |
c0i30 |
c0i30 |
c0i70 |
e0i70 |
e0if0 |
f0if0 |
f0h01f0 |
f8h03f0 |
fch03f0 |
feh07f0 |
Gh0ff0 |
G80g3ff0 |
Ge0gGf0 |
Gfe0fGf0 |
Jf0 |
\enddata{raster, 271674588}
0 271674588 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< mul
>LINK< 
\enddata{cel,271674668}
\view{celview,271674668,75,0,0}

\begindata{cel,271673948}
\V 2
\begindata{raster,271673868}
2 0 136533 136533 0 0 36 38
bits 271673868 36 38
k |
hf0h |
g07feh |
g1fG80g |
g7fGe0g |
gHf0g |
01Hf8g |
03Hfcg |
07Hfeg |
0fG8fGg |
0fG0fGg |
1ffe0fG80 |
1ffc0fG80 |
3fG0fGc0 |
3fG8fGc0 |
7fG8fGc0 |
7fG8fGe0 |
7fG8fGe0 |
7fG8fGe0 |
7fG8fGe0 |
7fG8fGe0 |
7fG8fGe0 |
7fG8fGc0 |
3fG8fGc0 |
3fG8fGc0 |
3fG8fG80 |
1fG8fG80 |
1fG8fGg |
0fG8fGg |
0fG8ffeg |
07Hfcg |
03Hfcg |
01Hf8g |
gHf0g |
g7fGc0g |
g1fGh |
g01f0h |
k |
\enddata{raster, 271673868}
0 271673868 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< one
>LINK< 
\enddata{cel,271673948}
\view{celview,271673948,76,0,0}\
\begindata{cel,271673228}
\V 2
\begindata{raster,271673148}
2 0 136533 136533 0 0 36 38
bits 271673148 36 38
k |
hf0h |
g07feh |
g1fG80g |
g7fGe0g |
gHf0g |
01Hf8g |
07Hfcg |
07G8ffeg |
0ffe03Gg |
0ffc01Gg |
1ffc71G80 |
1f!f8G80 |
3f!f8Gc0 |
3fGf8Gc0 |
7fGf8Gc0 |
7fGf9Ge0 |
7fGf1Ge0 |
7fGf3Ge0 |
7fGe3Ge0 |
7fGc7Ge0 |
7fGcfGe0 |
7fG8fGc0 |
3fG1fGc0 |
3ffe3fGc0 |
3ffe7fG80 |
1ffc7fG80 |
1ff8gGg |
0ff8gGg |
0ff8gfeg |
07Hfcg |
03Hfcg |
01Hf8g |
gHf0g |
g7fGc0g |
g1fGh |
g01f0h |
k |
\enddata{raster, 271673148}
0 271673148 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< two
>LINK< 
\enddata{cel,271673228}
\view{celview,271673228,77,0,0}\
\begindata{cel,271672508}
\V 2
\begindata{raster,271672428}
2 0 136533 136533 0 0 36 38
bits 271672428 36 38
k |
hf0h |
g07feh |
g1fG80g |
g7fGe0g |
gHf0g |
01Hf8g |
03G0ffcg |
07fc03feg |
0ff801Gg |
0ff8f0Gg |
1ff0f8G80 |
1ff1f8G80 |
3fGf8Gc0 |
3fGf0Gc0 |
7fGe1Gc0 |
7fG01Ge0 |
7fG03Ge0 |
7fG01Ge0 |
7fGf0Ge0 |
7fGf8Ge0 |
7fGfc7fe0 |
7fGfc7fc0 |
3fGfc7fc0 |
3fGfc7fc0 |
3ff1f87f80 |
1f!f07f80 |
1ff8gGg |
0ff801Gg |
0ffe03feg |
07Hfcg |
03Hfcg |
01Hf8g |
gHf0g |
g7fGc0g |
g1fGh |
g01f0h |
k |
\enddata{raster, 271672428}
0 271672428 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< three
>LINK< INK< 
\enddata{cel,271672508}
\view{celview,271672508,78,42,0} 
 \
\begindata{cel,271671788}
\V 2
\begindata{raster,271671708}
2 0 136533 136533 0 0 36 38
bits 271671708 36 38
Jf0 |
H0fGf0 |
Gf801Gf0 |
Ge0g7ff0 |
G80g1ff0 |
Gh0ff0 |
feh07f0 |
fch03f0 |
f8h01f0 |
f0if0 |
f0if0 |
e0i70 |
e0i70 |
c0i30 |
c0i30 |
80i30 |
80i10 |
8003feg10 |
8003feg10 |
8003feg10 |
80i10 |
80i10 |
80i30 |
c0i30 |
c0i30 |
c0i70 |
e0h0170 |
e0if0 |
f0if0 |
f0h01f0 |
f8h03f0 |
fch03f0 |
feh07f0 |
Gh0ff0 |
G80g3ff0 |
Ge0gGf0 |
Gfe0fGf0 |
Jf0 |
\enddata{raster, 271671708}
0 271671708 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< sub
>LINK< e
\enddata{cel,271671788}
\view{celview,271671788,79,0,0} 

\begindata{cel,271671068}
\V 2
\begindata{raster,271670988}
2 0 136533 136533 0 0 36 38
bits 271670988 36 38
k |
k |
k |
k |
k |
k |
k |
k |
k |
k |
g01f8h |
g07fch |
g079eh |
g0f0eh |
g!0eh |
g0e1eh |
h1ch |
h3ch |
h78h |
h70h |
he0h |
he0h |
he0h |
he0h |
k |
k |
he0h |
he0h |
he0h |
k |
k |
k |
k |
k |
k |
k |
k |
k |
\enddata{raster, 271670988}
0 271670988 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< zleft
>LINK< INK< e
\enddata{cel,271671068}
\view{celview,271671068,80,0,0}\
\begindata{cel,271670348}
\V 2
\begindata{raster,271670268}
2 0 136533 136533 0 0 36 38
bits 271670268 36 38
k |
hf0h |
g07feh |
g1fG80g |
g7fGe0g |
gHf0g |
01Hf8g |
03G1ffcg |
07fc07feg |
0ff803Gg |
0ff0e1Gg |
1f!f1G80 |
1fe1f0G80 |
3fe3f8Gc0 |
3fe3f8Gc0 |
7fc7fc7fc0 |
7fc7fc7fe0 |
7fc7fc7fe0 |
7fc7fc7fe0 |
7fc7fc7fe0 |
7fc7fc7fe0 |
7fc7fc7fe0 |
7fc7fc7fc0 |
3fc3f8Gc0 |
3fe3f8Gc0 |
3fe1f0G80 |
1f!f1G80 |
1ff0e1Gg |
0ff803Gg |
0ffc07feg |
07G1ffcg |
03Hfcg |
01Hf8g |
gHf0g |
g7fGc0g |
g1fGh |
g01f0h |
k |
\enddata{raster, 271670268}
0 271670268 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< zero
>LINK< 
\enddata{cel,271670348}
\view{celview,271670348,81,0,0}\
\begindata{cel,271669628}
\V 2
\begindata{raster,271669548}
2 0 136533 136533 0 0 36 38
bits 271669548 36 38
k |
k |
k |
k |
k |
k |
k |
k |
k |
k |
k |
k |
k |
k |
k |
g01e0h |
g03f0h |
g03f0h |
g03f0h |
g03f0h |
g01e0h |
k |
k |
k |
k |
k |
k |
k |
k |
k |
k |
k |
k |
k |
k |
k |
k |
k |
\enddata{raster, 271669548}
0 271669548 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< zright
>LINK< INK< 
\enddata{cel,271669628}
\view{celview,271669628,82,0,0} 
 \
\begindata{cel,271668908}
\V 2
\begindata{raster,271668828}
2 0 136533 136533 0 0 36 38
bits 271668828 36 38
Jf0 |
H0fGf0 |
Gf801Gf0 |
Ge0g7ff0 |
G80g1ff0 |
Gh0ff0 |
feh07f0 |
fch03f0 |
f8h01f0 |
f0if0 |
f0if0 |
e0i70 |
e0i70 |
c0i30 |
c0i30 |
80i30 |
80g70g10 |
80g70g10 |
80g70g10 |
80g70g10 |
8007Gg10 |
8007Gg10 |
8007Gg30 |
c0g70g30 |
c0g70g30 |
c0g70g70 |
e0g70g70 |
e0if0 |
f0if0 |
f0h01f0 |
f8h03f0 |
fch03f0 |
feh07f0 |
Gh0ff0 |
G80g3ff0 |
Ge0gGf0 |
Gfe0fGf0 |
Jf0 |
\enddata{raster, 271668828}
0 271668828 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< add
>LINK< ht
\enddata{cel,271668908}
\view{celview,271668908,83,0,0}


	\bigger{\bigger{\bigger{ \bold{| 0. | }}}}

\begindata{cel,271668188}
\V 2
\begindata{raster,271668108}
2 0 136533 136533 0 0 36 38
bits 271668108 36 38
Jf0 |
H0fGf0 |
Gf801Gf0 |
Ge0g7ff0 |
G80g1ff0 |
Gh0ff0 |
feh07f0 |
fch03f0 |
f8h01f0 |
f0if0 |
f0gfegf0 |
e003G8070 |
e007c7c070 |
c00f01e030 |
c00ege030 |
801eh30 |
801ch10 |
801ch10 |
801ch10 |
801ch10 |
801ch10 |
801ch10 |
801ch30 |
c01ege030 |
c00ege030 |
c00f01e070 |
e007c7c070 |
e003G80f0 |
f0gfegf0 |
f0h01f0 |
f8h03f0 |
fch03f0 |
feh07f0 |
Gh0ff0 |
G80g3ff0 |
Ge0gGf0 |
Gfe0fGf0 |
Jf0 |
\enddata{raster, 271668108}
0 271668108 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< c
>LINK< d
\enddata{cel,271668188}
\view{celview,271668188,84,0,0}\
\begindata{cel,271667468}
\V 2
\begindata{raster,271667388}
2 0 136533 136533 0 0 36 38
bits 271667388 36 38
k |
k |
k |
k |
k |
k |
k |
k |
k |
k |
k |
h70h |
h70h |
h70h |
h70h |
h70h |
h70h |
h70h |
h70h |
h70h |
h70h |
h70h |
h60h |
h60h |
h60h |
k |
k |
h70h |
h70h |
h70h |
k |
k |
k |
k |
k |
k |
k |
k |
\enddata{raster, 271667388}
0 271667388 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< uzero
>LINK< 
\enddata{cel,271667468}
\view{celview,271667468,85,0,0}\
\begindata{cel,271666748}
\V 2
\begindata{raster,271666668}
2 0 136533 136533 0 0 36 38
bits 271666668 36 38
Jf0 |
H0fGf0 |
Gf801Gf0 |
Ge0g7ff0 |
G80g1ff0 |
Gh0ff0 |
feh07f0 |
fch03f0 |
f8h01f0 |
f0if0 |
f0if0 |
e0i70 |
e0i70 |
c03e078030 |
c0c718c030 |
8083106030 |
8180306010 |
81803fe010 |
818030g10 |
818030g10 |
818030g10 |
81c038g10 |
80e11c2030 |
c0fe1fc030 |
c03c078030 |
c0i70 |
e0i70 |
e0if0 |
f0if0 |
f0h01f0 |
f8h03f0 |
fch03f0 |
feh07f0 |
Gh0ff0 |
G80g3ff0 |
Ge0gGf0 |
Gfe0fGf0 |
Jf0 |
\enddata{raster, 271666668}
0 271666668 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< ce
>LINK< ro
\enddata{cel,271666748}
\view{celview,271666748,86,42,0} 
 \
\begindata{cel,271666028}
\V 2
\begindata{raster,271665948}
2 0 136533 136533 0 0 36 38
bits 271665948 36 38
Jf0 |
H0fGf0 |
Gf801Gf0 |
Ge0g7ff0 |
G80g1ff0 |
Gh0ff0 |
feh07f0 |
fch03f0 |
f8h01f0 |
f0if0 |
f0if0 |
e0i70 |
e0i70 |
c0i30 |
c0i30 |
80i30 |
80i10 |
80i10 |
8003Gg10 |
8003Gg10 |
80i10 |
8003Gg10 |
8003Gg30 |
c0i30 |
c0i30 |
c0i70 |
e0i70 |
e0if0 |
f0if0 |
f0h01f0 |
f8h03f0 |
fch03f0 |
feh07f0 |
Gh0ff0 |
G80g3ff0 |
Ge0gGf0 |
Gfe0fGf0 |
Jf0 |
\enddata{raster, 271665948}
0 271665948 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< eq
>LINK< ro
\enddata{cel,271666028}
\view{celview,271666028,87,0,0}



 \
\begindata{ness,271665184}
\origin{-1\\6 Jun 1991 at 22:50:23 EDT\\wjh:  Fred Hansen\\00}
\template{default}
\define{global
}
-- Calculator


real accum

real entry

boolean startentry		-- if True, the next digit will clear the entry first

boolean repeat		-- if T, special mode repeating last op

marker currop

boolean HasDot		-- input entry has included a dot

real decimal		-- factor for decimal place digit


function show(real v)

	marker s, f

	marker t

	s := search(base(currentselection(defaulttext)), " |")

	f := search(finish(s), "|")

	t := " " ~ textimage(v)

	if HasDot and search(t, ".") = "" then 

		t ~:= "." ~ rest(rest(textimage(1.0 / decimal)))

	end if

	replace(extent(finish(s), f), t ~ " |")

end function


function allclear()

	entry := 0.

	accum := 0.

	startentry := False

	HasDot := False

	currop := ""

	show(entry)

end function


function digithit(real dig)

	if mouseaction = mouseleftup then

		if startEntry then

			entry := 0.

			startEntry := False

		end if

		if HasDot then

			entry := entry + decimal * dig

			decimal := decimal / 10.

		else

			entry := entry*10. + dig

		end if

		show(entry)

	end if

end function


integer function factorial(integer v)

	integer r

	if v > 1000 then

		return -999

	end if

	r := 1

	while v > 1 do

		r := r * v

		v := v - 1

	end while

	return r

end function


function Unary(real v)

	if mouseaction = mouseleftup then

		entry := v

		show(entry)

		accum := entry

		startentry := true

		HasDot := False

	end if

end function


function Op(nextoperator)

	if mouseaction /= mouseleftup then

		exit function

	end if

	if not StartEntry then 

		-- do the old operation

		if currOp = "+" then

			entry := accum + entry

		elif  currOp = "-" then

			entry := accum - entry

		elif  currOp = "*" then

			entry := accum * entry

		elif  currOp = "/" then

			entry := accum / entry

		end if

		accum := entry	

		show(entry)

	end if


	-- establish new operation

	currOp := nextoperator

	startEntry := True

	HasDot := False

end function



extend "uzero"	-- under zero

	on mouse "any"

		unary(float(factorial(round(entry))))

	end mouse

end extend

extend "zleft"	-- to the left of zero

	on mouse "any"

		if mouseaction = mouseleftup then 

			marker m

			m := AskUser("How are you? ", "")

			if m /= "CANCEL" then 

				TellUser("Good, I am " ~ m ~ ", too")

			end if

		end if

	end mouse

end extend

extend "zright"	-- to the right of zero

	on mouse "any"

		if startEntry then

			entry := 0.

			startEntry := False

		end if

		HasDot := True

		decimal := 0.1

		show(entry)

	end mouse

end extend


extend "c"

	on mouse "any"

		if mouseaction = mouseleftup then

			allclear()

		end if

	end mouse

end extend

extend "ce"

	on mouse "any"

		if mouseaction = mouseleftup and not startentry then

			entry := 0.

			HasDot := False

			show(entry)

		end if

	end mouse

end extend

extend "eq"

	on mouse "any"

		Op("")

	end mouse

end extend

extend "add"

	on mouse "any"

		Op("+")

	end mouse

end extend

extend "sub"

	on mouse "any"

		Op("-")

	end mouse

end extend

extend "mul"

	on mouse "any"

		Op("*")

	end mouse

end extend

extend "div"

	on mouse "any"

		Op("/")

	end mouse

end extend

extend "one"

	on mouse "any"

		digithit(1.)

	end mouse

end extend

extend "two"

	on mouse "any"

		digithit(2.)

	end mouse

end extend

extend "three"

	on mouse "any"

		digithit(3.)

	end mouse

end extend

extend "four"

	on mouse "any"

		digithit(4.)

	end mouse

end extend

extend "five"

	on mouse "any"

		digithit(5.)

	end mouse

end extend

extend "six"

	on mouse "any"

		digithit(6.)

	end mouse

end extend

extend "seven"

	on mouse "any"

		digithit(7.)

	end mouse

end extend

extend "eight"

	on mouse "any"

		digithit(8.)

	end mouse

end extend

extend "nine"

	on mouse "any"

		digithit(9.)

	end mouse

end extend

extend "zero"

	on mouse "any"

		digithit(0.)

	end mouse

end extend



function main()

	allclear()

end function


function init()

	allclear()

end function

\enddata{ness,271665184}
\view{nessview,271665184,88,0,280}

\enddata{text,271648164}
1 271648164 0 0 0 0 
>OBJ< text
>VIEW< textview
>REF< 
\enddata{arbiter,271648360}
