* vt100 keys support merged

api/linux/keyboard.inc

@@ -274,6 +274,7 @@ Begin
                #13 : PushKey(#10);
               #127 : PushKey(#8);
                '[' : State:=2;
+               'O' : State:=6;
                else
                 begin
                   PushKey(ch);
@@ -337,6 +338,20 @@ Begin
               if (Ch<>'~') then
                State:=255;
             end;
+        6 : begin {Esc0 Function keys in vt100 mode PM }
+              case ch of
+               'P' : {F1}PushExt(59);
+               'Q' : {F2}PushExt(60);
+               'R' : {F3}PushExt(61);
+               'S' : {F4}PushExt(62);
+               't' : {F5}PushExt(63);
+               'u' : {F6}PushExt(64);
+               'v' : {F7}PushExt(65);
+               'l' : {F8}PushExt(66);
+               'w' : {F9}PushExt(67);
+               'x' : {F10}PushExt(68);
+              end;
+            end;
       255 : ;
         end;
         if (State<>0) and (InCnt=0) then
@@ -573,7 +588,10 @@ end;
 
 {
   $Log$
-  Revision 1.3  2000-10-04 11:53:31  pierre
+  Revision 1.4  2000-10-15 09:18:22  peter
+    * vt100 keys support merged
+
+  Revision 1.3  2000/10/04 11:53:31  pierre
    Add TargetEntry and TargetExit (merged)
 
   Revision 1.2  2000/07/13 11:32:25  michael