ðaOberon10.Scn.Fntÿÿÿÿ€8ÀÔFoldElemsNewªÿÿÿÿ€8ÀÔÓMODULE Adapt; (* Adapts keyboard for correction if PgUp & PgDown -- This is obsolote since now correct keyboard mappings are done *) (* within Input.Mod. However, I left it there, in case somebody has a special keyboard and wants to adapt it *) IMPORT X11; PROCEDURE Keyboard*;  CONST Shift = "Shift_L"; Control = "Control_L"; CapsLock = "Caps_Lock"; AltL = "Alt_L"; AltR = "Alt_R"; VAR to: ARRAY 8 OF CHAR; modlist: ARRAY 8 OF ARRAY 32 OF CHAR; n: LONGINT; BEGIN to[0] := 0C5X; X11.Rebind("Prior", modlist, 0, to, 1); X11.Rebind("Prior", modlist, 1, to, 1); to[0] := 0C6X; X11.Rebind("Next", modlist, 0, to, 1); X11.Rebind("Next", modlist, 1, to, 1); to[0] := 0C8X; X11.Rebind("Home", modlist, 0, to, 1); X11.Rebind("Home", modlist, 1, to, 1); to[0] := 0C7X; X11.Rebind("End", modlist, 0, to, 1); X11.Rebind("End", modlist, 1, to, 1); to[0] := 0A1X; X11.Rebind("Delete", modlist, 0, to, 1); X11.Rebind("Delete", modlist, 1, to, 1); END Keyboard;  END Adapt .