diff --git a/RPNCALC.PO b/RPNCALC.PO
index 225a9eb..372d0b3 100644
Binary files a/RPNCALC.PO and b/RPNCALC.PO differ
diff --git a/src/samplesrc/rpncalc.pla b/src/samplesrc/rpncalc.pla
index ea0dbc4..90ac25a 100644
--- a/src/samplesrc/rpncalc.pla
+++ b/src/samplesrc/rpncalc.pla
@@ -21,7 +21,7 @@ struc t_keyinput
     byte keyinfo[t_keypad]
     word phandler
 end
-predef delKey#0, cmdKey#0, dropKey#0
+predef delKey#0, cmdKey#0, dropKey#0, clearKey#0
 predef digitKey#0, pointKey#0, opKey#0
 predef enterKey#0, copyKey#0, chsKey#0, memKey#0
 predef elemsKey#0
@@ -47,6 +47,8 @@ byte[t_keypad]        = $1B, 0, 0, ""
 word                  = @cmdKey
 byte[t_keypad]        = '=', 0, 0, ""
 word                  = @dropKey
+byte[t_keypad]        = 'Z', 0, 0, ""
+word                  = @clearKey
 byte[t_keypad]        = '7',  3, 10, "[7]"
 word                  = @digitKey
 byte[t_keypad]        = '8',  7, 10, "[8]"
@@ -262,6 +264,10 @@ def copyKey(pkey)#0
     fin
     showInput
 end
+def clearKey(pkey)#0
+    initInput
+    showInput
+end
 def digitKey(pkey)#0
     if inputStr < inputLen
         if inputStr:0 <> ZEROSTR