Fix keypad input tesdt

src/toolsrc/ed.pla

@@ -1096,56 +1096,56 @@ def keyin
     fin
     conio:putchars(1, underchr)
     if key & keyoptmod // Closed-Apple/Option pressed
-        when key & ~keyoptmod
-            is keyarrowleft
+        when key
+            is keyarrowleft | $80
                 key = keyctrla; break
-            is keyarrowright
+            is keyarrowright | $80
                 key = keyctrls; break
-            is keyarrowup
+            is keyarrowup | $80
                 key = keyctrlw; break
-            is keyarrowdown
+            is keyarrowdown | $80
                 key = keyctrlz; break
-            is keyenter
+            is keyenter | $80
                 key = keyctrlf; break
-            is keytab
+            is keytab | $80
                 key = keydetab; break
-           is $80 | '\\'
+           is '\\' | $80
                 key = keydelete; break // Delete
             //
             // Map option+keypad on Platinum //e
             //
-            is $80 | '4'
+            is '4' | $80
                 key = keyarrowleft; break
-            is $80 | '6'
+            is '6' | $80
                 key = keyarrowright; break
-            is $80 | '8'
+            is '8' | $80
                 key = keyarrowup; break
-            is $80 | '2'
+            is '2' | $80
                 key = keyarrowdown; break
-            is $80 | '7'
+            is '7' | $80
                 key = keyctrlq; break // Top
-            is $80 | '1'
+            is '1' | $80
                 key = keyctrle; break // Bottom
-            is $80 | '9'
+            is '9' | $80
                 key = keyctrlw; break // Pg Up
-            is $80 | '3'
+            is '3' | $80
                 key = keyctrlz; break // Pg Dn
-            is $80 | '5'
+            is '5' | $80
                 key = keyctrlb; break // Selection start/end
-            is $80 | '0'
+            is '0' | $80
                 key = keyctrld; break // Del
-            is $80 | '.'
+            is '.' | $80
                 key = keyctrlv; break // Paste
-            is $80 | '-'
+            is '-' | $80
                 key = keyctrlx; break // Cut
-            is $80 | '+'
+            is '+' | $80
                 key = keyctrlc; break // Copy
-            is $80 | '*'
+            is '*' | $80
                 key = keyctrlo; break // Open line
-            is $80 | '/'
-                key = keyctrlt; break // Join lines
-            is $80 | '='
-                key = keyctrly; break // Insert/Overwrite
+            is '/' | $80
+                key = keyctrlt; break // Insert/Overwrite
+            is '=' | $80
+                key = keyctrly; break // Join lines
             otherwise
                 key = key & ~keyoptmod
         wend