\begindata{text,538549416}
\textdsversion{12}
\template{default}
\begindata{cel,538567368}
\V 2
\begindata{raster,538567560}
2 0 136533 136533 0 0 36 38
bits 538567560 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, 538567560}
0 538567560 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< seven
\enddata{cel,538567368}
\view{celview,538567368,0,0,0}\
\begindata{cel,538570056}
\V 2
\begindata{raster,538570200}
2 0 136533 136533 0 0 36 38
bits 538570200 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, 538570200}
0 538570200 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< eight
\enddata{cel,538570056}
\view{celview,538570056,1,0,0}\
\begindata{cel,538570952}
\V 2
\begindata{raster,538571096}
2 0 136533 136533 0 0 36 38
bits 538571096 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, 538571096}
0 538571096 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< nine
>LINK< 
\enddata{cel,538570952}
\view{celview,538570952,2,0,0} 
 \
\begindata{cel,538583112}
\V 2
\begindata{raster,538583256}
2 0 136533 136533 0 0 36 38
bits 538583256 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, 538583256}
0 538583256 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< div
>LINK< 
\enddata{cel,538583112}
\view{celview,538583112,3,42,0}

\begindata{cel,538584104}
\V 2
\begindata{raster,538584248}
2 0 136533 136533 0 0 36 38
bits 538584248 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, 538584248}
0 538584248 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< four
>LINK< LINK< 
\enddata{cel,538584104}
\view{celview,538584104,4,0,0}\
\begindata{cel,538585048}
\V 2
\begindata{raster,538585192}
2 0 136533 136533 0 0 36 38
bits 538585192 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, 538585192}
0 538585192 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< five
>LINK< LINK< 
\enddata{cel,538585048}
\view{celview,538585048,5,0,0}\
\begindata{cel,538586040}
\V 2
\begindata{raster,538586184}
2 0 136533 136533 0 0 36 38
bits 538586184 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, 538586184}
0 538586184 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< six
>LINK< 
\enddata{cel,538586040}
\view{celview,538586040,6,0,0} 
 \
\begindata{cel,538586888}
\V 2
\begindata{raster,538587032}
2 0 136533 136533 0 0 36 38
bits 538587032 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, 538587032}
0 538587032 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< mul
>LINK< 
\enddata{cel,538586888}
\view{celview,538586888,7,0,0}

\begindata{cel,538587928}
\V 2
\begindata{raster,538588072}
2 0 136533 136533 0 0 36 38
bits 538588072 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, 538588072}
0 538588072 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< one
>LINK< 
\enddata{cel,538587928}
\view{celview,538587928,8,0,0}\
\begindata{cel,538588824}
\V 2
\begindata{raster,538588968}
2 0 136533 136533 0 0 36 38
bits 538588968 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, 538588968}
0 538588968 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< two
>LINK< 
\enddata{cel,538588824}
\view{celview,538588824,9,0,0}\
\begindata{cel,538589816}
\V 2
\begindata{raster,538589960}
2 0 136533 136533 0 0 36 38
bits 538589960 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, 538589960}
0 538589960 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< three
>LINK< INK< 
\enddata{cel,538589816}
\view{celview,538589816,10,42,0} 
 \
\begindata{cel,538590760}
\V 2
\begindata{raster,538590904}
2 0 136533 136533 0 0 36 38
bits 538590904 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, 538590904}
0 538590904 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< sub
>LINK< e
\enddata{cel,538590760}
\view{celview,538590760,11,0,0} \


\begindata{cel,538591848}
\V 2
\begindata{raster,538591992}
2 0 136533 136533 0 0 36 38
bits 538591992 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, 538591992}
0 538591992 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< zleft
>LINK< INK< e
\enddata{cel,538591848}
\view{celview,538591848,12,0,0}\
\begindata{cel,538592744}
\V 2
\begindata{raster,538592888}
2 0 136533 136533 0 0 36 38
bits 538592888 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, 538592888}
0 538592888 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< zero
>LINK< 
\enddata{cel,538592744}
\view{celview,538592744,13,0,0}\
\begindata{cel,538593736}
\V 2
\begindata{raster,538593880}
2 0 136533 136533 0 0 36 38
bits 538593880 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, 538593880}
0 538593880 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< zright
>LINK< INK< 
\enddata{cel,538593736}
\view{celview,538593736,14,0,0} 
 \
\begindata{cel,538594584}
\V 2
\begindata{raster,538594728}
2 0 136533 136533 0 0 36 38
bits 538594728 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, 538594728}
0 538594728 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< add
>LINK< ht
\enddata{cel,538594584}
\view{celview,538594584,15,0,0}


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


\begindata{cel,538596248}
\V 2
\begindata{raster,538596392}
2 0 136533 136533 0 0 36 38
bits 538596392 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, 538596392}
0 538596392 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< c
>LINK< d
\enddata{cel,538596248}
\view{celview,538596248,16,0,0}\
\begindata{cel,538597288}
\V 2
\begindata{raster,538597432}
2 0 136533 136533 0 0 36 38
bits 538597432 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, 538597432}
0 538597432 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< uzero
>LINK< 
\enddata{cel,538597288}
\view{celview,538597288,17,0,0}\
\begindata{cel,538598136}
\V 2
\begindata{raster,538598280}
2 0 136533 136533 0 0 36 38
bits 538598280 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, 538598280}
0 538598280 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< ce
>LINK< ro
\enddata{cel,538598136}
\view{celview,538598136,18,42,0} 
 \
\begindata{cel,538599224}
\V 2
\begindata{raster,538599368}
2 0 136533 136533 0 0 36 38
bits 538599368 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, 538599368}
0 538599368 0 0 0 0 
>OBJ< raster
>VIEW< rasterview
>REF< eq
>LINK< ro
\enddata{cel,538599224}
\view{celview,538599224,19,0,0}



 \
\begindata{ness,538600488}
\origin{-1\\10 Nov 1995 at 16:43:44 EST\\robr:  Robert Andrew Ryan\\00}
\template{default}
-- 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


void 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,538600488}
\view{nessview,538600488,20,0,280}


-- 
\begindata{bp,539431384}
Version 2
n 0
\enddata{bp,539431384}
\view{bpv,539431384,21,0,0}

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

\smaller{\smaller{-- $Disclaimer: Andrew User Interface System - Binary Distribution 7.5

-- 

-- Permission to use, copy, modify, and distribute this software for any 

-- purpose is hereby granted, provided (a) that no fee is charged for the 

-- software, for the medium on which it is distributed, for the 

-- distribution process, or for effort involved in making the distribution;  

-- (b) that all copyright notices, this permission notice, and the 

-- following disclaimer remain in these files and appear in supporting 

-- documentation;  (c) that you do not translate, reverse engineer, 

-- decompile, or disassemble the software; and (d) 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.

-- 

-- CARNEGIE MELLON UNIVERSITY, IBM, 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 CARNEGIE MELLON 

-- UNIVERSITY, IBM, 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,538549416}
