diff --git a/backup/main.lfm b/backup/main.lfm
index b224a9e..0701a5c 100644
--- a/backup/main.lfm
+++ b/backup/main.lfm
@@ -6009,6 +6009,7 @@ object GUIForm: TGUIForm
     end
     object miVideo: TMenuItem
       Caption = 'Video'
+      OnClick = miVideoClick
       object miScanLineInt: TMenuItem
         Caption = 'Scanline Intensity'
         OnClick = miScanLineIntClick
@@ -6063,6 +6064,9 @@ object GUIForm: TGUIForm
           OnClick = miSLIClick
         end
       end
+      object miDisableScanlines: TMenuItem
+        Caption = 'Disable Scanlines'
+      end
       object N4: TMenuItem
         Caption = '-'
       end
diff --git a/backup/main.pas b/backup/main.pas
index b804034..c2c0559 100644
--- a/backup/main.pas
+++ b/backup/main.pas
@@ -25,6 +25,7 @@ type
     btnRead: TButton;
     btnWrite: TButton;
     btnHide: TButton;
+    miDisableScanlines: TMenuItem;
     miIssue: TMenuItem;
     SPMenu: TPopupMenu;
     Label1: TLabel;
@@ -492,6 +493,7 @@ type
     procedure miVCRClick(Sender: TObject);
     procedure miVD1Click(Sender: TObject);
     procedure miVDClick(Sender: TObject);
+    procedure miVideoClick(Sender: TObject);
     procedure miVideoScreenshotClick(Sender: TObject);
     procedure miVM1Click(Sender: TObject);
     procedure miVMClick(Sender: TObject);
@@ -1825,6 +1827,12 @@ begin
     end;
 end;
 
+procedure TGUIForm.miVideoClick(Sender: TObject);
+begin
+  { disable scanlines }
+  miDisableScanlines.Checked := ( GetConfig('video/init.video.scanlinedisable') <> '0' );
+end;
+
 procedure TGUIForm.miVideoScreenshotClick(Sender: TObject);
 begin
   SendKey( $e092, $e092, 1, 0 );
@@ -2925,9 +2933,7 @@ begin
                     keydesc := 'Caps Off';
                  Result := 0;
                  {$ELSE}
-                        {$IFDEF WINDOWS}
-
-                        {$ELSE}
+                        {$IFDEF LINUX}
                             if KeyUp then
                             begin
                               Caps := (not Caps);
diff --git a/lib/x86_64-win64/main.lfm b/lib/x86_64-win64/main.lfm
index b224a9e..ddeea18 100644
--- a/lib/x86_64-win64/main.lfm
+++ b/lib/x86_64-win64/main.lfm
@@ -6009,6 +6009,7 @@ object GUIForm: TGUIForm
     end
     object miVideo: TMenuItem
       Caption = 'Video'
+      OnClick = miVideoClick
       object miScanLineInt: TMenuItem
         Caption = 'Scanline Intensity'
         OnClick = miScanLineIntClick
@@ -6063,6 +6064,10 @@ object GUIForm: TGUIForm
           OnClick = miSLIClick
         end
       end
+      object miDisableScanlines: TMenuItem
+        Caption = 'Disable Scanlines'
+        OnClick = miDisableScanlinesClick
+      end
       object N4: TMenuItem
         Caption = '-'
       end
diff --git a/lib/x86_64-win64/main.o b/lib/x86_64-win64/main.o
index 708e2f7..f80e960 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 3f6862e..95ee57f 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 f46a5f7..3e1c1c9 100644
Binary files a/lib/x86_64-win64/poc.obj and b/lib/x86_64-win64/poc.obj differ
diff --git a/main.lfm b/main.lfm
index b224a9e..ddeea18 100644
--- a/main.lfm
+++ b/main.lfm
@@ -6009,6 +6009,7 @@ object GUIForm: TGUIForm
     end
     object miVideo: TMenuItem
       Caption = 'Video'
+      OnClick = miVideoClick
       object miScanLineInt: TMenuItem
         Caption = 'Scanline Intensity'
         OnClick = miScanLineIntClick
@@ -6063,6 +6064,10 @@ object GUIForm: TGUIForm
           OnClick = miSLIClick
         end
       end
+      object miDisableScanlines: TMenuItem
+        Caption = 'Disable Scanlines'
+        OnClick = miDisableScanlinesClick
+      end
       object N4: TMenuItem
         Caption = '-'
       end
diff --git a/main.pas b/main.pas
index 271fa34..ccd672e 100644
--- a/main.pas
+++ b/main.pas
@@ -25,6 +25,7 @@ type
     btnRead: TButton;
     btnWrite: TButton;
     btnHide: TButton;
+    miDisableScanlines: TMenuItem;
     miIssue: TMenuItem;
     SPMenu: TPopupMenu;
     Label1: TLabel;
@@ -410,6 +411,7 @@ type
     procedure miDHRMonoRasterClick(Sender: TObject);
     procedure miDHRMonoVoxelsClick(Sender: TObject);
     procedure miDisableFocusStealingClick(Sender: TObject);
+    procedure miDisableScanlinesClick(Sender: TObject);
     procedure miDisk1WPToggleClick(Sender: TObject);
     procedure miDisk2WPToggleClick(Sender: TObject);
     procedure miDiskMenuBlankClick(Sender: TObject);
@@ -492,6 +494,7 @@ type
     procedure miVCRClick(Sender: TObject);
     procedure miVD1Click(Sender: TObject);
     procedure miVDClick(Sender: TObject);
+    procedure miVideoClick(Sender: TObject);
     procedure miVideoScreenshotClick(Sender: TObject);
     procedure miVM1Click(Sender: TObject);
     procedure miVMClick(Sender: TObject);
@@ -1086,6 +1089,15 @@ begin
   disableFocusStealing:=(not disableFocusStealing);
 end;
 
+procedure TGUIForm.miDisableScanlinesClick(Sender: TObject);
+begin
+  miDisableScanlines.Checked := (not miDisableScanlines.Checked);
+  if miDisableScanlines.Checked then
+     UpdateConfig('video/init.video.scanlinedisable', '1', true)
+  else
+     UpdateConfig('video/init.video.scanlinedisable', '0', true);
+end;
+
 procedure TGUIForm.miDisk1WPToggleClick(Sender: TObject);
 begin
   SimpleGet( baseUrl + '/api/control/hardware/disk/wp/0/toggle' );
@@ -1825,6 +1837,12 @@ begin
     end;
 end;
 
+procedure TGUIForm.miVideoClick(Sender: TObject);
+begin
+  { disable scanlines }
+  miDisableScanlines.Checked := ( GetConfig('video/init.video.scanlinedisable') <> '0' );
+end;
+
 procedure TGUIForm.miVideoScreenshotClick(Sender: TObject);
 begin
   SendKey( $e092, $e092, 1, 0 );