\begindata{text,538259132}
\textdsversion{12}
\template{default}
\begindata{cel,537826312}
\V 2
\begindata{raster,537471232}
2 0 136533 136533 0 0 36 38
bits 537471232 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, 537471232}
0 537471232 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< seven
\enddata{cel,537826312}
\view{celview,537826312,38,0,0}\
\begindata{cel,538376200}
\V 2
\begindata{raster,537471488}
2 0 136533 136533 0 0 36 38
bits 537471488 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, 537471488}
0 537471488 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< eight
\enddata{cel,538376200}
\view{celview,538376200,39,0,0}\
\begindata{cel,538376712}
\V 2
\begindata{raster,537471744}
2 0 136533 136533 0 0 36 38
bits 537471744 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, 537471744}
0 537471744 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< nine
>LINK< 
\enddata{cel,538376712}
\view{celview,538376712,40,0,0} 
 \
\begindata{cel,538377224}
\V 2
\begindata{raster,537472000}
2 0 136533 136533 0 0 36 38
bits 537472000 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, 537472000}
0 537472000 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< div
>LINK< 
\enddata{cel,538377224}
\view{celview,538377224,41,42,0}

\begindata{cel,538377736}
\V 2
\begindata{raster,537472256}
2 0 136533 136533 0 0 36 38
bits 537472256 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, 537472256}
0 537472256 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< four
>LINK< LINK< 
\enddata{cel,538377736}
\view{celview,538377736,42,0,0}\
\begindata{cel,538419208}
\V 2
\begindata{raster,537472512}
2 0 136533 136533 0 0 36 38
bits 537472512 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, 537472512}
0 537472512 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< five
>LINK< LINK< 
\enddata{cel,538419208}
\view{celview,538419208,43,0,0}\
\begindata{cel,538419720}
\V 2
\begindata{raster,537472768}
2 0 136533 136533 0 0 36 38
bits 537472768 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, 537472768}
0 537472768 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< six
>LINK< 
\enddata{cel,538419720}
\view{celview,538419720,44,0,0} 
 \
\begindata{cel,538420232}
\V 2
\begindata{raster,538423304}
2 0 136533 136533 0 0 36 38
bits 538423304 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, 538423304}
0 538423304 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< mul
>LINK< 
\enddata{cel,538420232}
\view{celview,538420232,45,0,0}

\begindata{cel,538420744}
\V 2
\begindata{raster,538423560}
2 0 136533 136533 0 0 36 38
bits 538423560 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, 538423560}
0 538423560 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< one
>LINK< 
\enddata{cel,538420744}
\view{celview,538420744,46,0,0}\
\begindata{cel,538421256}
\V 2
\begindata{raster,538423816}
2 0 136533 136533 0 0 36 38
bits 538423816 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, 538423816}
0 538423816 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< two
>LINK< 
\enddata{cel,538421256}
\view{celview,538421256,47,0,0}\
\begindata{cel,538421768}
\V 2
\begindata{raster,538424072}
2 0 136533 136533 0 0 36 38
bits 538424072 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, 538424072}
0 538424072 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< three
>LINK< INK< 
\enddata{cel,538421768}
\view{celview,538421768,48,42,0} 
 \
\begindata{cel,538422280}
\V 2
\begindata{raster,538424328}
2 0 136533 136533 0 0 36 38
bits 538424328 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, 538424328}
0 538424328 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< sub
>LINK< e
\enddata{cel,538422280}
\view{celview,538422280,49,0,0} 

\begindata{cel,538422792}
\V 2
\begindata{raster,538424584}
2 0 136533 136533 0 0 36 38
bits 538424584 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, 538424584}
0 538424584 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< zleft
>LINK< INK< e
\enddata{cel,538422792}
\view{celview,538422792,50,0,0}\
\begindata{cel,538427400}
\V 2
\begindata{raster,538424840}
2 0 136533 136533 0 0 36 38
bits 538424840 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, 538424840}
0 538424840 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< zero
>LINK< 
\enddata{cel,538427400}
\view{celview,538427400,51,0,0}\
\begindata{cel,538427912}
\V 2
\begindata{raster,538425096}
2 0 136533 136533 0 0 36 38
bits 538425096 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, 538425096}
0 538425096 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< zright
>LINK< INK< 
\enddata{cel,538427912}
\view{celview,538427912,52,0,0} 
 \
\begindata{cel,538428424}
\V 2
\begindata{raster,538425352}
2 0 136533 136533 0 0 36 38
bits 538425352 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, 538425352}
0 538425352 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< add
>LINK< ht
\enddata{cel,538428424}
\view{celview,538428424,53,0,0}


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

\begindata{cel,538428936}
\V 2
\begindata{raster,538425608}
2 0 136533 136533 0 0 36 38
bits 538425608 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, 538425608}
0 538425608 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< c
>LINK< d
\enddata{cel,538428936}
\view{celview,538428936,54,0,0}\
\begindata{cel,538429448}
\V 2
\begindata{raster,538425864}
2 0 136533 136533 0 0 36 38
bits 538425864 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, 538425864}
0 538425864 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< uzero
>LINK< 
\enddata{cel,538429448}
\view{celview,538429448,55,0,0}\
\begindata{cel,538429960}
\V 2
\begindata{raster,538426120}
2 0 136533 136533 0 0 36 38
bits 538426120 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, 538426120}
0 538426120 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< ce
>LINK< ro
\enddata{cel,538429960}
\view{celview,538429960,56,42,0} 
 \
\begindata{cel,538430472}
\V 2
\begindata{raster,538426376}
2 0 136533 136533 0 0 36 38
bits 538426376 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, 538426376}
0 538426376 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< eq
>LINK< ro
\enddata{cel,538430472}
\view{celview,538430472,57,0,0}



 \
\begindata{ness,537682952}
\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,537682952}
\view{nessview,537682952,58,0,280}


-- 
\begindata{bp,537558784}
\enddata{bp,537558784}
\view{bpv,537558784,60,0,0}

-- Copyright 1992 Carnegie Mellon University and IBM.  All rights reserved.

\smaller{\smaller{-- $Disclaimer: 

-- Permission to use, copy, modify, and distribute this software and its 

-- documentation for any purpose is hereby granted without fee, 

-- provided that the above copyright notice appear in all copies and that 

-- both that copyright notice, this permission notice, and the following 

-- disclaimer appear in supporting documentation, and that the names of 

-- IBM, Carnegie Mellon University, and other copyright holders, not be 

-- used in advertising or publicity pertaining to distribution of the software 

-- without specific, written prior permission.

-- 

-- IBM, CARNEGIE MELLON UNIVERSITY, AND THE OTHER COPYRIGHT HOLDERS 

-- DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING 

-- ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS.  IN NO EVENT 

-- SHALL IBM, CARNEGIE MELLON UNIVERSITY, OR ANY OTHER COPYRIGHT HOLDER 

-- BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY 

-- DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 

-- WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS 

-- ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE 

-- OF THIS SOFTWARE.

--  $

}}\enddata{text,538259132}
