\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}