From 77d4481146c5b765bb6b9837f34aacbcad7d7250 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Fri, 24 Nov 2017 18:32:12 -0800
Subject: [PATCH] Add clear (Z) editing command

---
 RPNCALC.PO                | Bin 143360 -> 143360 bytes
 src/samplesrc/rpncalc.pla |   8 +++++++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/RPNCALC.PO b/RPNCALC.PO
index 225a9eba6e9837cde5e3f5ff90460e494b80dbd5..372d0b3f6ea58fd67fdf19eff16aabbccdf517ab 100644
GIT binary patch
delta 1734
zcmYL^3v5$m9L4{=kKVhrtX<pPZQN3DW3w$X%F2KtBC}36GY4xgIO#e<6avKvGC?FJ
zci-YPM52CP9ub3&7$ov=;v~KZAwdn1gouwwMlwK<#~7PPf-xBJv|O>t@1Ar1-~Zh2
zw)>3QeMbHGEjiFd1=L(bYb$+4m2{41ePzhk-zT>Xx?=_A08!FcPE>BWFYGiomFRTm
z7cRT+j;H-4i~bL~HbX2F(=#%;QI$4RL6~WWdKW^y9j15?rsTt@HcfPk>1p;!oq|wj
zhv_ba=@~NfuZwz+qIPMjSR|&W+IzJMLaiO*E`+!pCVLPj+nt!`71J^Mq((ug$%i(r
z-G$Je4;M=&c@QSqoiU<MNhcdyjmBhVK%4FIiRsz-qlVHs9)vk|NQwa^ooWjwBbiaH
z$%T*zH$_sJty)4WQqti>WL_%MSDMni2&u@Le#iM+j%0HyW`>3<!bYSa7aBBF!wnH5
z7dk_zwud_-k0Z2%a@Cf|!?g&Fp<Jgi(%FvC8bYTf+!{f!8ZXs5l9qYtE=RKey-O|!
z!oJH1Jg;3Iho@(#I+*lz(E5<KV|mEiQb^SyZ+0v#j2Vf5p#-e9p@|c-zF5>z8}&z>
zRHMvFJ-g(Im9vceFzUoqBr>wrn?nm6S!;CYQvt1=SEfoz!05FGuEgC+U{Sl^u;1qy
zj^-Bb9Zuw=d-#EIw~y~!+v~r*neQ}Nr-vVL^jguY)$WRbK@^Qi>jWcibzH3;*Xy4j
zpz68aWkR&jDNuHL?yHaZ?czIEpFy#B<ZefWRX<Wy6b~2~e32g;x&QUlNVkdHQj)vv
zziEwY;nFo-D^@){Ay!jo;KH7=7)7<Lgf~-%u&IQEa2W~vp}Iyw6=(yaU;tdid@Hn}
zl!QKz^pTJSy?zpo03|>|1&D)0fQp1Bm<(t^vBz3F+GDbL0`bLyz`KMX+X%k}x(9k#
z2=Wt{pN9Spy$N-T0xuPVJPeIPAB3i$PeM09nJBT%BC%~E@wY{t?-qmXGx&p;e~<Yo
zFo=9k9Lq;=c2hKolO%Ds6l8vhSUCtv#K&V6k%Bx1oq@Btm^XrEFc0TRNoSA2FM?l!
z^KSSp;C<xX==G!bCG-gNJLr$l0q8kNVt-+0j2z?vS?1-YEU*bO@j49dmnA-5*4bj@
z6|&CPz&{7S0p5gv5&mW9>oT#eU_00Wc7Z+MBX9tG4!*+fVeEbbe;oV(eg-GODVz<;
z#q2D+c^;1|U<6#l!JjDo4KF*16#zHz0H2e1iL;oM!H)+OAOdQ^Y%mu*1e!rBSO7Y~
za<B^YfS154;8kFO?M^b;yD%Suy`T@5e1c03z<&V_fv>?)a10y=C$RGqc7A~$gg@)l
z*#-E^U>ID->>sDjU5d`jKozJ}bT&sJwp1a$Tye71@EhUZP)wa|L)d|^3rl<9`{56v
zbPSvXzkxr%E#OvlUasn_N+tHFN_@WRWXs@Jg4Li4tOL)37k~*~!rp6YkZ)F<e4DEB
weeegtx2nXC-2?M07*-|bC?F;Q1r&lYzzZgT$^zoi{^ILLg`OK9+;GhL7Z#GMO#lD@

delta 1706
zcmX|<4Qvx-9LC>!?{n+yx_;ay*EPyVX^$|<2K!<T$5KHu2kTB8cAZf(f?JTd5or{2
zJ4h6aCVROIiO3QSA4UVHTc#l)k>FP(VjzOcGzfvnDBCar7hQ<+xmsEB>+}5n@B6=N
zll5Iu`mQLS91#6IB#+E>lk_~FhmdQ;<CLKjV#{T&cZmCamMeHL&m1Ep?kyoVOYDN{
zhfOn}k^6r|C6C<i<WQiB&*zg>DQDzXt7S-aPHJ3`nw%^tge=L*sJe_V;FHU8C(C8X
z@|;w<AeA}M3n6-nn0WT6x|DbG$)&lYav4&dlL{B4A}5OrA&avzs>XN^pN!>B%4A4c
zR%+EY7o;sKV}V75kVUzj2Y9cXj5izcMCy!M=koGNvo3q27uOfU>T{Cd{c^IkC6b7y
zM%6VgNMmG8v^8a_jjCHtMjE5*T2uRrTU8IFHTrln#8C0<h!JgYq(Q|_q#<fJ(h<T=
zTcjhp5z-WLcABEA%OUYlv9lD9cC^8oLs)8xG)EzJV!Vcn+i#6O%*BU}kGnX?$(xP%
z{O4vVK7*NXFz#(9>5!*=bI8+_Pr@Nj*Br7TW>or(8K2#enLj_}jp<yu?$aewCfBxZ
zd-nP6S|dBuB}{ojjFf#O^CXwD?`4K5wm!SHRG9G@Y5T^l3dh3}x)X_sMkn5xSXDaX
zd%BHs_g|Lw{r5g+XsocOC)RRlyJ0e15bzs>=rQ4CYJ~0H$#7}fx86^}k9syyJzt`v
ztJ3+dBiW~6ab)r(EJmglashk&)B<<dZ>;wlc>0LX`8B(y`b_xBfb+Khr)91UojtuT
zY<=;eSlMy|FYGRf5nb&P@MO|X%>bcAC4?SAx>Z7J!6-Nb#xOIHdNHB<LEKAd3Z#96
zj(`~u@Dmyam0*RR<Wqcqx)O`scK_|2CQDGtHqoH9gA%qIIfxvhLG~5q7m(MGQ^;9l
zJ|AQnPgxjQg?tS86mko48!uRI@WgtPCyenLJIDvEkI+wGeg^Y%;5_^iKZjk#*%bO6
z-W1p@L=uQq015@dyn?`jLXgcv>O#<}z`PpNfmJw<3!1eS{Rwmf=e_8=!9Msw>>a`0
zG2{sH6!IJ756DY`U`^l-5ra$?MOGkE%V&y&MKCBA1=c8PRs!BGYOE8z3w;ZE5BhfW
zSCG3zV(kHMgMRQX7zFQw55dRaIPMPN?ic8%!PnqBa2A}y*?F<Z`U(AKU|z<@Rd5{#
z87$pK{|np$vw%v(5+%YEsmOAndw~WPfGAi3%0U&V2dhB~Xan6~E7%6MgB@TO*aP;0
z0g0H_emwjD9zKY{2jD0;20jJD;B#;icTVBXm+0T3e=lj)kLVY`Mer+THzbYS1)Qug
zH_&9wS|}5%SthJSmaL8FJ?O7u-iQ7=dcSOH)&S%^$Wbf}gVW#~_yvrEKLJ%V%dHTr
zQX#BHk*sy-2G|JN!871F&<Qq!t+<y~g6uU#VttCj_MsmJClrAVBhP}1ieP2t;_@W;
n1Ka`A;BSzZhkwXC!hCtbf#0}^q43=?&i2rSJExCKbG82h`RA~#

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