diff --git a/backup/main.pas b/backup/main.pas
index f8c4816..3fd0acc 100644
--- a/backup/main.pas
+++ b/backup/main.pas
@@ -2162,10 +2162,12 @@ var
   S: TStringStream;
   filename, json: string;
 begin
+       backdrop.Visible := false;
        filename := GetUserDir + DirectorySeparator + 'microm8scrn.png';
        json := '{ "path": "' + ReplaceStr(filename, '\', '/') + '" }';
        SimpleFormPost(baseUrl + '/api/control/window/screen', json, S);
        backdrop.Picture.LoadFromFile(filename);
+       backdrop.Visible := true;
 end;
 
 procedure TGUIForm.ReposWindow;
@@ -2665,6 +2667,10 @@ const
 	CSR_DOWN  = $e003;
         CTRL_A = $e041;
         SHIFT_CTRL_A = $e071;
+        PAGE_UP   = $e004;
+	PAGE_DOWN = $e005;
+	SHIFT_LEFT  = $e014;
+	SHIFT_RIGHT = $e015;
 begin
   case Key of
   219:
@@ -2722,10 +2728,22 @@ begin
        Result := Ord('~')
       else
         Result := Ord('`');
-  VK_Up: Result := CSR_UP;
-  VK_Down: Result := CSR_DOWN;
-  VK_Left: Result := CSR_LEFT;
-  VK_Right: Result := CSR_RIGHT;
+  VK_Up: if (ssShift in Shift) then
+              Result := PAGE_UP
+           else
+              Result := CSR_UP;
+  VK_Down: if (ssShift in Shift) then
+              Result := PAGE_DOWN
+           else
+              Result := CSR_DOWN;
+  VK_Left: if (ssShift in Shift) then
+              Result := SHIFT_LEFT
+           else
+              Result := CSR_LEFT;
+  VK_Right: if (ssShift in Shift) then
+              Result := SHIFT_RIGHT
+           else
+              Result := CSR_RIGHT;
   VK_0..VK_9:
   begin
       if ssShift in Shift then
diff --git a/lib/x86_64-win64/main.o b/lib/x86_64-win64/main.o
index a6f1e52..067c2d9 100644
Binary files a/lib/x86_64-win64/main.o and b/lib/x86_64-win64/main.o differ
diff --git a/lib/x86_64-win64/main.ppu b/lib/x86_64-win64/main.ppu
index 8e133e4..b62de32 100644
Binary files a/lib/x86_64-win64/main.ppu and b/lib/x86_64-win64/main.ppu differ
diff --git a/lib/x86_64-win64/poc.obj b/lib/x86_64-win64/poc.obj
index 59006a5..30817c0 100644
Binary files a/lib/x86_64-win64/poc.obj and b/lib/x86_64-win64/poc.obj differ
diff --git a/main.pas b/main.pas
index ed506d1..1be7569 100644
--- a/main.pas
+++ b/main.pas
@@ -2667,6 +2667,10 @@ const
 	CSR_DOWN  = $e003;
         CTRL_A = $e041;
         SHIFT_CTRL_A = $e071;
+        PAGE_UP   = $e004;
+	PAGE_DOWN = $e005;
+	SHIFT_CSR_LEFT  = $e05b;
+	SHIFT_CSR_RIGHT = $e05c;
 begin
   case Key of
   219:
@@ -2724,10 +2728,22 @@ begin
        Result := Ord('~')
       else
         Result := Ord('`');
-  VK_Up: Result := CSR_UP;
-  VK_Down: Result := CSR_DOWN;
-  VK_Left: Result := CSR_LEFT;
-  VK_Right: Result := CSR_RIGHT;
+  VK_Up: if (ssShift in Shift) then
+              Result := PAGE_UP
+           else
+              Result := CSR_UP;
+  VK_Down: if (ssShift in Shift) then
+              Result := PAGE_DOWN
+           else
+              Result := CSR_DOWN;
+  VK_Left: if (ssShift in Shift) then
+              Result := SHIFT_CSR_LEFT
+           else
+              Result := CSR_LEFT;
+  VK_Right: if (ssShift in Shift) then
+              Result := SHIFT_CSR_RIGHT
+           else
+              Result := CSR_RIGHT;
   VK_0..VK_9:
   begin
       if ssShift in Shift then