diff --git a/backup/main.lfm b/backup/main.lfm
index 758683b..b224a9e 100644
--- a/backup/main.lfm
+++ b/backup/main.lfm
@@ -5,7 +5,7 @@ object GUIForm: TGUIForm
   Width = 1078
   AlphaBlendValue = 128
   Caption = 'microM8 GUI'
-  ClientHeight = 658
+  ClientHeight = 663
   ClientWidth = 1078
   Constraints.MinWidth = 1078
   DoubleBuffered = False
@@ -29,8 +29,8 @@ object GUIForm: TGUIForm
   LCLVersion = '2.0.0.4'
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 19
-    Top = 639
+    Height = 23
+    Top = 640
     Width = 1078
     Panels = <>
   end
@@ -232,7 +232,7 @@ object GUIForm: TGUIForm
     end
     object tbMasterVolume: TTrackBar
       Left = 249
-      Height = 38
+      Height = 32
       Top = 2
       Width = 96
       OnChange = tbMasterVolumeChange
@@ -276,7 +276,7 @@ object GUIForm: TGUIForm
     end
     object TrackBar2: TTrackBar
       Left = 449
-      Height = 38
+      Height = 32
       Top = 2
       Width = 96
       Max = 4
@@ -327,31 +327,31 @@ object GUIForm: TGUIForm
   end
   object pnlContainer: TPanel
     Left = 0
-    Height = 603
+    Height = 604
     Top = 36
     Width = 1078
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 603
+    ClientHeight = 604
     ClientWidth = 1078
     ParentColor = False
     TabOrder = 2
     object sidecarPanel: TPanel
       Left = 908
-      Height = 566
+      Height = 567
       Top = 0
       Width = 170
       Align = alRight
       BevelOuter = bvNone
       Caption = 'sidecarPanel'
-      ClientHeight = 566
+      ClientHeight = 567
       ClientWidth = 170
       Color = clBlack
       ParentColor = False
       TabOrder = 0
       object Image1: TImage
         Left = 0
-        Height = 566
+        Height = 567
         Top = 0
         Width = 170
         Align = alClient
@@ -5444,12 +5444,12 @@ object GUIForm: TGUIForm
     end
     object embedPanel: TPanel
       Left = 0
-      Height = 566
+      Height = 567
       Top = 0
       Width = 908
       Align = alClient
       BevelOuter = bvNone
-      ClientHeight = 566
+      ClientHeight = 567
       ClientWidth = 908
       Color = clBlack
       Font.Color = clWhite
@@ -5461,7 +5461,7 @@ object GUIForm: TGUIForm
       OnMouseUp = FormMouseUp
       object backdrop: TImage
         Left = 0
-        Height = 566
+        Height = 567
         Top = 0
         Width = 908
         Align = alClient
@@ -5474,7 +5474,7 @@ object GUIForm: TGUIForm
     object pnlMemory: TPanel
       Left = 0
       Height = 37
-      Top = 566
+      Top = 567
       Width = 1078
       Align = alBottom
       ClientHeight = 37
@@ -5485,7 +5485,7 @@ object GUIForm: TGUIForm
       OnResize = pnlMemoryResize
       object txtAddress: TEdit
         Left = 136
-        Height = 29
+        Height = 23
         Top = 8
         Width = 80
         OnKeyPress = txtAddressKeyPress
@@ -5495,23 +5495,23 @@ object GUIForm: TGUIForm
       end
       object Label1: TLabel
         Left = 9
-        Height = 17
+        Height = 15
         Top = 10
-        Width = 130
+        Width = 122
         Caption = 'Memory Address (hex):'
         ParentColor = False
       end
       object Label2: TLabel
         Left = 240
-        Height = 17
+        Height = 15
         Top = 10
-        Width = 65
+        Width = 60
         Caption = 'Value (hex):'
         ParentColor = False
       end
       object txtValue: TEdit
         Left = 312
-        Height = 29
+        Height = 23
         Top = 8
         Width = 80
         OnKeyPress = txtValueKeyPress
diff --git a/backup/main.pas b/backup/main.pas
index 14b61b4..7b338c6 100644
--- a/backup/main.pas
+++ b/backup/main.pas
@@ -701,7 +701,9 @@ begin
 
      RepaintWindow;
      if not IsMicroM8Active then
-        HideM8;
+        HideM8
+     else
+       lastFocusLostTime:=Now();
 
      //log.Lines.Add('app is deactivating');
 end;
@@ -3253,7 +3255,7 @@ begin
     exit;
   { okay not running and we want to start it }
   MicroM8Process.Active := true;
-  Sleep(50);
+  Sleep(1000);
   lx := -1;
   ReposWindow;
 end;
diff --git a/lib/x86_64-win64/main.lfm b/lib/x86_64-win64/main.lfm
index ea3947a..b224a9e 100644
--- a/lib/x86_64-win64/main.lfm
+++ b/lib/x86_64-win64/main.lfm
@@ -1,13 +1,13 @@
 object GUIForm: TGUIForm
-  Left = 81
-  Height = 668
+  Left = 275
+  Height = 683
   Top = 109
-  Width = 1014
+  Width = 1078
   AlphaBlendValue = 128
   Caption = 'microM8 GUI'
-  ClientHeight = 648
-  ClientWidth = 1014
-  Constraints.MinWidth = 1014
+  ClientHeight = 663
+  ClientWidth = 1078
+  Constraints.MinWidth = 1078
   DoubleBuffered = False
   Menu = MainMenu1
   OnChangeBounds = FormChangeBounds
@@ -30,15 +30,15 @@ object GUIForm: TGUIForm
   object StatusBar1: TStatusBar
     Left = 0
     Height = 23
-    Top = 625
-    Width = 1014
+    Top = 640
+    Width = 1078
     Panels = <>
   end
   object ToolBar1: TToolBar
     Left = 0
     Height = 36
     Top = 0
-    Width = 1014
+    Width = 1078
     ButtonHeight = 32
     ButtonWidth = 32
     Caption = 'ToolBar1'
@@ -58,7 +58,7 @@ object GUIForm: TGUIForm
     end
     object tbRMVoxels: TToolButton
       Tag = 1
-      Left = 549
+      Left = 613
       Hint = 'Voxel Render'
       Top = 2
       Caption = 'Voxels'
@@ -72,7 +72,7 @@ object GUIForm: TGUIForm
       Style = tbsCheck
     end
     object tbRMDots: TToolButton
-      Left = 585
+      Left = 649
       Hint = 'Dot Render'
       Top = 2
       Caption = 'Dots'
@@ -85,7 +85,7 @@ object GUIForm: TGUIForm
     end
     object tbRMRaster: TToolButton
       Tag = 2
-      Left = 621
+      Left = 685
       Hint = 'Raster Render'
       Top = 2
       Caption = 'Raster'
@@ -97,7 +97,7 @@ object GUIForm: TGUIForm
       Style = tbsCheck
     end
     object tbRMColor: TToolButton
-      Left = 657
+      Left = 721
       Hint = 'Toggle Color/Mono'
       Top = 2
       Caption = 'tbRMColor'
@@ -107,7 +107,7 @@ object GUIForm: TGUIForm
       ShowHint = True
     end
     object tbRECState: TToolButton
-      Left = 725
+      Left = 789
       Hint = 'Start Recording'
       Top = 2
       Caption = 'tbRECState'
@@ -117,7 +117,7 @@ object GUIForm: TGUIForm
       ShowHint = True
     end
     object ToolButton5: TToolButton
-      Left = 761
+      Left = 825
       Hint = 'Rewind'
       Top = 2
       Caption = 'ToolButton5'
@@ -127,7 +127,7 @@ object GUIForm: TGUIForm
       ShowHint = True
     end
     object ToolButton6: TToolButton
-      Left = 797
+      Left = 861
       Hint = 'Forwards'
       Top = 2
       Caption = 'ToolButton6'
@@ -137,7 +137,7 @@ object GUIForm: TGUIForm
       ShowHint = True
     end
     object ToolButton7: TToolButton
-      Left = 833
+      Left = 897
       Hint = 'Resume'
       Top = 2
       Caption = 'ToolButton7'
@@ -147,7 +147,7 @@ object GUIForm: TGUIForm
       ShowHint = True
     end
     object ToolButton8: TToolButton
-      Left = 869
+      Left = 933
       Hint = 'Stop Recording'
       Top = 2
       Caption = 'ToolButton8'
@@ -157,7 +157,7 @@ object GUIForm: TGUIForm
       ShowHint = True
     end
     object ToolButton9: TToolButton
-      Left = 905
+      Left = 969
       Hint = 'Pause'
       Top = 2
       Caption = 'ToolButton9'
@@ -167,7 +167,7 @@ object GUIForm: TGUIForm
       ShowHint = True
     end
     object ToolButton10: TToolButton
-      Left = 693
+      Left = 757
       Top = 2
       Caption = 'ToolButton10'
       Enabled = False
@@ -234,19 +234,22 @@ object GUIForm: TGUIForm
       Left = 249
       Height = 32
       Top = 2
-      Width = 64
+      Width = 96
       OnChange = tbMasterVolumeChange
       Position = 0
       ScalePos = trBottom
       TabStop = False
       TickMarks = tmBoth
       TickStyle = tsManual
+      OnEnter = tbMasterVolumeEnter
+      OnMouseDown = tbMasterVolumeMouseDown
+      OnMouseUp = tbMasterVolumeMouseUp
       OnKeyDown = FormKeyDown
       OnKeyUp = FormKeyUp
       TabOrder = 0
     end
     object tbVolUp: TToolButton
-      Left = 313
+      Left = 345
       Hint = 'Volume Up'
       Top = 2
       Caption = 'tbVolUp'
@@ -256,13 +259,13 @@ object GUIForm: TGUIForm
       ShowHint = True
     end
     object ToolButton3: TToolButton
-      Left = 349
+      Left = 381
       Top = 2
       Caption = 'ToolButton3'
       Enabled = False
     end
     object tbSpeedDown: TToolButton
-      Left = 381
+      Left = 413
       Hint = 'CPU Speed Down'
       Top = 2
       Caption = 'tbSpeedDown'
@@ -272,10 +275,10 @@ object GUIForm: TGUIForm
       ShowHint = True
     end
     object TrackBar2: TTrackBar
-      Left = 417
+      Left = 449
       Height = 32
       Top = 2
-      Width = 64
+      Width = 96
       Max = 4
       OnChange = TrackBar2Change
       Position = 0
@@ -283,12 +286,14 @@ object GUIForm: TGUIForm
       TabStop = False
       TickMarks = tmBoth
       TickStyle = tsManual
+      OnMouseDown = TrackBar2MouseDown
+      OnMouseUp = TrackBar2MouseUp
       OnKeyDown = FormKeyDown
       OnKeyUp = FormKeyUp
       TabOrder = 1
     end
     object tbSpeedUp: TToolButton
-      Left = 481
+      Left = 545
       Hint = 'CPU Speed Up'
       Top = 2
       Caption = 'tbSpeedUp'
@@ -298,19 +303,19 @@ object GUIForm: TGUIForm
       ShowHint = True
     end
     object ToolButton18: TToolButton
-      Left = 517
+      Left = 581
       Top = 2
       Caption = 'ToolButton18'
       Enabled = False
     end
     object ToolButton1: TToolButton
-      Left = 941
+      Left = 1005
       Top = 2
       Caption = 'ToolButton1'
       Enabled = False
     end
     object tbFullscreen: TToolButton
-      Left = 973
+      Left = 1037
       Hint = 'Fullscreen'
       Top = 2
       Caption = 'tbFullscreen'
@@ -322,31 +327,31 @@ object GUIForm: TGUIForm
   end
   object pnlContainer: TPanel
     Left = 0
-    Height = 589
+    Height = 604
     Top = 36
-    Width = 1014
+    Width = 1078
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 589
-    ClientWidth = 1014
+    ClientHeight = 604
+    ClientWidth = 1078
     ParentColor = False
     TabOrder = 2
     object sidecarPanel: TPanel
-      Left = 844
-      Height = 552
+      Left = 908
+      Height = 567
       Top = 0
       Width = 170
       Align = alRight
       BevelOuter = bvNone
       Caption = 'sidecarPanel'
-      ClientHeight = 552
+      ClientHeight = 567
       ClientWidth = 170
       Color = clBlack
       ParentColor = False
       TabOrder = 0
       object Image1: TImage
         Left = 0
-        Height = 552
+        Height = 567
         Top = 0
         Width = 170
         Align = alClient
@@ -5439,13 +5444,13 @@ object GUIForm: TGUIForm
     end
     object embedPanel: TPanel
       Left = 0
-      Height = 552
+      Height = 567
       Top = 0
-      Width = 844
+      Width = 908
       Align = alClient
       BevelOuter = bvNone
-      ClientHeight = 552
-      ClientWidth = 844
+      ClientHeight = 567
+      ClientWidth = 908
       Color = clBlack
       Font.Color = clWhite
       ParentColor = False
@@ -5456,9 +5461,9 @@ object GUIForm: TGUIForm
       OnMouseUp = FormMouseUp
       object backdrop: TImage
         Left = 0
-        Height = 552
+        Height = 567
         Top = 0
-        Width = 844
+        Width = 908
         Align = alClient
         OnClick = backdropClick
         OnMouseDown = FormMouseDown
@@ -5469,11 +5474,11 @@ object GUIForm: TGUIForm
     object pnlMemory: TPanel
       Left = 0
       Height = 37
-      Top = 552
-      Width = 1014
+      Top = 567
+      Width = 1078
       Align = alBottom
       ClientHeight = 37
-      ClientWidth = 1014
+      ClientWidth = 1078
       ParentColor = False
       TabOrder = 2
       Visible = False
@@ -5515,7 +5520,7 @@ object GUIForm: TGUIForm
         Text = '$00'
       end
       object pnlMemButtons: TPanel
-        Left = 760
+        Left = 824
         Height = 35
         Top = 1
         Width = 253
@@ -5680,17 +5685,17 @@ object GUIForm: TGUIForm
       object MenuItem4: TMenuItem
         Caption = 'Drive 1'
         OnClick = MenuItem4Click
-        object miD1Blank: TMenuItem
+        object miD1Eject: TMenuItem
           Caption = 'Eject'
-          OnClick = miD1BlankClick
+          OnClick = miD1EjectClick
         end
         object miD1File: TMenuItem
           Caption = 'Insert Disk...'
           OnClick = miD1FileClick
         end
-        object MenuItem17: TMenuItem
+        object miD1InsBlank: TMenuItem
           Caption = 'Insert Blank'
-          OnClick = MenuItem17Click
+          OnClick = miD1InsBlankClick
         end
         object miDisk1WPToggle: TMenuItem
           Caption = 'Write Protected'
@@ -5700,17 +5705,17 @@ object GUIForm: TGUIForm
       object MenuItem5: TMenuItem
         Caption = 'Drive 2'
         OnClick = MenuItem5Click
-        object miD2Blank: TMenuItem
+        object miD2Eject: TMenuItem
           Caption = 'Eject'
-          OnClick = miD2BlankClick
+          OnClick = miD2EjectClick
         end
         object miD2File: TMenuItem
           Caption = 'Insert Disk...'
           OnClick = miD2FileClick
         end
-        object MenuItem18: TMenuItem
+        object miD2InsBlank: TMenuItem
           Caption = 'Insert Blank'
-          OnClick = MenuItem18Click
+          OnClick = miD2InsBlankClick
         end
         object miDisk2WPToggle: TMenuItem
           Caption = 'Write Protected'
@@ -5759,6 +5764,249 @@ object GUIForm: TGUIForm
         OnClick = MenuItem2Click
       end
     end
+    object miAudio: TMenuItem
+      Caption = 'Audio'
+      OnClick = miAudioClick
+      object miSNDMuted: TMenuItem
+        Caption = 'Mute'
+        OnClick = miSNDMutedClick
+      end
+      object miSNDMaster: TMenuItem
+        Caption = 'Master Volume'
+        OnClick = miSNDMasterClick
+        object miMVOL000: TMenuItem
+          Caption = '0'
+          RadioItem = True
+          OnClick = miMVOL000Click
+        end
+        object miMVOL010: TMenuItem
+          Caption = '1'
+          RadioItem = True
+          OnClick = miMVOL000Click
+        end
+        object miMVOL020: TMenuItem
+          Caption = '2'
+          RadioItem = True
+          OnClick = miMVOL000Click
+        end
+        object miMVOL030: TMenuItem
+          Caption = '3'
+          RadioItem = True
+          OnClick = miMVOL000Click
+        end
+        object miMVOL040: TMenuItem
+          Caption = '4'
+          RadioItem = True
+          OnClick = miMVOL000Click
+        end
+        object miMVOL050: TMenuItem
+          Caption = '5'
+          RadioItem = True
+          OnClick = miMVOL000Click
+        end
+        object miMVOL060: TMenuItem
+          Caption = '6'
+          RadioItem = True
+          OnClick = miMVOL000Click
+        end
+        object miMVOL070: TMenuItem
+          Caption = '7'
+          RadioItem = True
+          OnClick = miMVOL000Click
+        end
+        object miMVOL080: TMenuItem
+          Caption = '8'
+          RadioItem = True
+          OnClick = miMVOL000Click
+        end
+        object miMVOL090: TMenuItem
+          Caption = '9'
+          RadioItem = True
+          OnClick = miMVOL000Click
+        end
+        object miMVOL100: TMenuItem
+          Caption = '10'
+          RadioItem = True
+          OnClick = miMVOL000Click
+        end
+      end
+      object miSNDSpeaker: TMenuItem
+        Caption = 'Speaker Volume'
+        OnClick = miSNDSpeakerClick
+        object miSVOL000: TMenuItem
+          Caption = '0'
+          RadioItem = True
+          OnClick = miSVOL000Click
+        end
+        object miSVOL010: TMenuItem
+          Caption = '1'
+          RadioItem = True
+          OnClick = miSVOL000Click
+        end
+        object miSVOL020: TMenuItem
+          Caption = '2'
+          RadioItem = True
+          OnClick = miSVOL000Click
+        end
+        object miSVOL030: TMenuItem
+          Caption = '3'
+          RadioItem = True
+          OnClick = miSVOL000Click
+        end
+        object miSVOL040: TMenuItem
+          Caption = '4'
+          RadioItem = True
+          OnClick = miSVOL000Click
+        end
+        object miSVOL050: TMenuItem
+          Caption = '5'
+          RadioItem = True
+          OnClick = miSVOL000Click
+        end
+        object miSVOL060: TMenuItem
+          Caption = '6'
+          RadioItem = True
+          OnClick = miSVOL000Click
+        end
+        object miSVOL070: TMenuItem
+          Caption = '7'
+          RadioItem = True
+          OnClick = miSVOL000Click
+        end
+        object miSVOL080: TMenuItem
+          Caption = '8'
+          RadioItem = True
+          OnClick = miSVOL000Click
+        end
+        object miSVOL090: TMenuItem
+          Caption = '9'
+          RadioItem = True
+          OnClick = miSVOL000Click
+        end
+        object miSVOL100: TMenuItem
+          Caption = '10'
+          RadioItem = True
+          OnClick = miSVOL000Click
+        end
+      end
+      object miSNDMockingboard: TMenuItem
+        Caption = 'Mockingboard'
+        object miSNDPSG0: TMenuItem
+          Caption = 'PSG0 Balance'
+          OnClick = miSNDPSG0Click
+          object miPSG0m100: TMenuItem
+            Tag = -100
+            Caption = 'Left'
+            RadioItem = True
+            OnClick = miPSG0m100Click
+          end
+          object miPSG0m75: TMenuItem
+            Tag = -75
+            Caption = '...'
+            RadioItem = True
+            OnClick = miPSG0m100Click
+          end
+          object miPSG0m50: TMenuItem
+            Tag = -50
+            Caption = '...'
+            RadioItem = True
+            OnClick = miPSG0m100Click
+          end
+          object miPSG0m25: TMenuItem
+            Tag = -25
+            Caption = '...'
+            RadioItem = True
+            OnClick = miPSG0m100Click
+          end
+          object miPSG0p0: TMenuItem
+            Caption = 'Center'
+            RadioItem = True
+            OnClick = miPSG0m100Click
+          end
+          object miPSG0p25: TMenuItem
+            Tag = 25
+            Caption = '...'
+            RadioItem = True
+            OnClick = miPSG0m100Click
+          end
+          object miPSG0p50: TMenuItem
+            Tag = 50
+            Caption = '...'
+            RadioItem = True
+            OnClick = miPSG0m100Click
+          end
+          object miPSG0p75: TMenuItem
+            Tag = 75
+            Caption = '...'
+            RadioItem = True
+            OnClick = miPSG0m100Click
+          end
+          object miPSG0p100: TMenuItem
+            Tag = 100
+            Caption = 'Right'
+            RadioItem = True
+            OnClick = miPSG0m100Click
+          end
+        end
+        object miSNDPSG1: TMenuItem
+          Caption = 'PSG1 Balance'
+          OnClick = miSNDPSG1Click
+          object miPSG1m100: TMenuItem
+            Tag = -100
+            Caption = 'Left'
+            RadioItem = True
+            OnClick = miPSG1m100Click
+          end
+          object miPSG1m75: TMenuItem
+            Tag = -75
+            Caption = '...'
+            RadioItem = True
+            OnClick = miPSG1m100Click
+          end
+          object miPSG1m50: TMenuItem
+            Tag = -50
+            Caption = '...'
+            RadioItem = True
+            OnClick = miPSG1m100Click
+          end
+          object miPSG1m25: TMenuItem
+            Tag = -25
+            Caption = '...'
+            RadioItem = True
+            OnClick = miPSG1m100Click
+          end
+          object miPSG1p0: TMenuItem
+            Caption = 'Center'
+            RadioItem = True
+            OnClick = miPSG1m100Click
+          end
+          object miPSG1p25: TMenuItem
+            Tag = 25
+            Caption = '...'
+            RadioItem = True
+            OnClick = miPSG1m100Click
+          end
+          object miPSG1p50: TMenuItem
+            Tag = 50
+            Caption = '...'
+            RadioItem = True
+            OnClick = miPSG1m100Click
+          end
+          object miPSG1p75: TMenuItem
+            Tag = 75
+            Caption = '...'
+            RadioItem = True
+            OnClick = miPSG1m100Click
+          end
+          object miPSG1p100: TMenuItem
+            Tag = 100
+            Caption = 'Right'
+            RadioItem = True
+            OnClick = miPSG1m100Click
+          end
+        end
+      end
+    end
     object miVideo: TMenuItem
       Caption = 'Video'
       object miScanLineInt: TMenuItem
@@ -6152,249 +6400,6 @@ object GUIForm: TGUIForm
         OnClick = miPasteTextClick
       end
     end
-    object miAudio: TMenuItem
-      Caption = 'Audio'
-      OnClick = miAudioClick
-      object miSNDMuted: TMenuItem
-        Caption = 'Mute'
-        OnClick = miSNDMutedClick
-      end
-      object miSNDMaster: TMenuItem
-        Caption = 'Master Volume'
-        OnClick = miSNDMasterClick
-        object miMVOL000: TMenuItem
-          Caption = '0'
-          RadioItem = True
-          OnClick = miMVOL000Click
-        end
-        object miMVOL010: TMenuItem
-          Caption = '1'
-          RadioItem = True
-          OnClick = miMVOL000Click
-        end
-        object miMVOL020: TMenuItem
-          Caption = '2'
-          RadioItem = True
-          OnClick = miMVOL000Click
-        end
-        object miMVOL030: TMenuItem
-          Caption = '3'
-          RadioItem = True
-          OnClick = miMVOL000Click
-        end
-        object miMVOL040: TMenuItem
-          Caption = '4'
-          RadioItem = True
-          OnClick = miMVOL000Click
-        end
-        object miMVOL050: TMenuItem
-          Caption = '5'
-          RadioItem = True
-          OnClick = miMVOL000Click
-        end
-        object miMVOL060: TMenuItem
-          Caption = '6'
-          RadioItem = True
-          OnClick = miMVOL000Click
-        end
-        object miMVOL070: TMenuItem
-          Caption = '7'
-          RadioItem = True
-          OnClick = miMVOL000Click
-        end
-        object miMVOL080: TMenuItem
-          Caption = '8'
-          RadioItem = True
-          OnClick = miMVOL000Click
-        end
-        object miMVOL090: TMenuItem
-          Caption = '9'
-          RadioItem = True
-          OnClick = miMVOL000Click
-        end
-        object miMVOL100: TMenuItem
-          Caption = '10'
-          RadioItem = True
-          OnClick = miMVOL000Click
-        end
-      end
-      object miSNDSpeaker: TMenuItem
-        Caption = 'Speaker Volume'
-        OnClick = miSNDSpeakerClick
-        object miSVOL000: TMenuItem
-          Caption = '0'
-          RadioItem = True
-          OnClick = miSVOL000Click
-        end
-        object miSVOL010: TMenuItem
-          Caption = '1'
-          RadioItem = True
-          OnClick = miSVOL000Click
-        end
-        object miSVOL020: TMenuItem
-          Caption = '2'
-          RadioItem = True
-          OnClick = miSVOL000Click
-        end
-        object miSVOL030: TMenuItem
-          Caption = '3'
-          RadioItem = True
-          OnClick = miSVOL000Click
-        end
-        object miSVOL040: TMenuItem
-          Caption = '4'
-          RadioItem = True
-          OnClick = miSVOL000Click
-        end
-        object miSVOL050: TMenuItem
-          Caption = '5'
-          RadioItem = True
-          OnClick = miSVOL000Click
-        end
-        object miSVOL060: TMenuItem
-          Caption = '6'
-          RadioItem = True
-          OnClick = miSVOL000Click
-        end
-        object miSVOL070: TMenuItem
-          Caption = '7'
-          RadioItem = True
-          OnClick = miSVOL000Click
-        end
-        object miSVOL080: TMenuItem
-          Caption = '8'
-          RadioItem = True
-          OnClick = miSVOL000Click
-        end
-        object miSVOL090: TMenuItem
-          Caption = '9'
-          RadioItem = True
-          OnClick = miSVOL000Click
-        end
-        object miSVOL100: TMenuItem
-          Caption = '10'
-          RadioItem = True
-          OnClick = miSVOL000Click
-        end
-      end
-      object miSNDMockingboard: TMenuItem
-        Caption = 'Mockingboard'
-        object miSNDPSG0: TMenuItem
-          Caption = 'PSG0 Balance'
-          OnClick = miSNDPSG0Click
-          object miPSG0m100: TMenuItem
-            Tag = -100
-            Caption = 'Left'
-            RadioItem = True
-            OnClick = miPSG0m100Click
-          end
-          object miPSG0m75: TMenuItem
-            Tag = -75
-            Caption = '...'
-            RadioItem = True
-            OnClick = miPSG0m100Click
-          end
-          object miPSG0m50: TMenuItem
-            Tag = -50
-            Caption = '...'
-            RadioItem = True
-            OnClick = miPSG0m100Click
-          end
-          object miPSG0m25: TMenuItem
-            Tag = -25
-            Caption = '...'
-            RadioItem = True
-            OnClick = miPSG0m100Click
-          end
-          object miPSG0p0: TMenuItem
-            Caption = 'Center'
-            RadioItem = True
-            OnClick = miPSG0m100Click
-          end
-          object miPSG0p25: TMenuItem
-            Tag = 25
-            Caption = '...'
-            RadioItem = True
-            OnClick = miPSG0m100Click
-          end
-          object miPSG0p50: TMenuItem
-            Tag = 50
-            Caption = '...'
-            RadioItem = True
-            OnClick = miPSG0m100Click
-          end
-          object miPSG0p75: TMenuItem
-            Tag = 75
-            Caption = '...'
-            RadioItem = True
-            OnClick = miPSG0m100Click
-          end
-          object miPSG0p100: TMenuItem
-            Tag = 100
-            Caption = 'Right'
-            RadioItem = True
-            OnClick = miPSG0m100Click
-          end
-        end
-        object miSNDPSG1: TMenuItem
-          Caption = 'PSG1 Balance'
-          OnClick = miSNDPSG1Click
-          object miPSG1m100: TMenuItem
-            Tag = -100
-            Caption = 'Left'
-            RadioItem = True
-            OnClick = miPSG1m100Click
-          end
-          object miPSG1m75: TMenuItem
-            Tag = -75
-            Caption = '...'
-            RadioItem = True
-            OnClick = miPSG1m100Click
-          end
-          object miPSG1m50: TMenuItem
-            Tag = -50
-            Caption = '...'
-            RadioItem = True
-            OnClick = miPSG1m100Click
-          end
-          object miPSG1m25: TMenuItem
-            Tag = -25
-            Caption = '...'
-            RadioItem = True
-            OnClick = miPSG1m100Click
-          end
-          object miPSG1p0: TMenuItem
-            Caption = 'Center'
-            RadioItem = True
-            OnClick = miPSG1m100Click
-          end
-          object miPSG1p25: TMenuItem
-            Tag = 25
-            Caption = '...'
-            RadioItem = True
-            OnClick = miPSG1m100Click
-          end
-          object miPSG1p50: TMenuItem
-            Tag = 50
-            Caption = '...'
-            RadioItem = True
-            OnClick = miPSG1m100Click
-          end
-          object miPSG1p75: TMenuItem
-            Tag = 75
-            Caption = '...'
-            RadioItem = True
-            OnClick = miPSG1m100Click
-          end
-          object miPSG1p100: TMenuItem
-            Tag = 100
-            Caption = 'Right'
-            RadioItem = True
-            OnClick = miPSG1m100Click
-          end
-        end
-      end
-    end
     object miHardware: TMenuItem
       Caption = 'Hardware'
       object miSerial: TMenuItem
@@ -6588,6 +6593,10 @@ object GUIForm: TGUIForm
         ShortCut = 24648
         OnClick = miMMHelpClick
       end
+      object miIssue: TMenuItem
+        Caption = 'Report an Issue...'
+        OnClick = miIssueClick
+      end
     end
   end
   object ToolbarIcons: TImageList
@@ -10449,11 +10458,13 @@ object GUIForm: TGUIForm
       Caption = 'Insert Disk'
       OnClick = MenuItem10Click
     end
-    object MenuItem11: TMenuItem
+    object miDiskMenuBlank: TMenuItem
       Caption = 'Insert Blank'
+      OnClick = miDiskMenuBlankClick
     end
-    object MenuItem12: TMenuItem
+    object miDiskMenuEject: TMenuItem
       Caption = 'Eject'
+      OnClick = miDiskMenuEjectClick
     end
     object miDiskMenuWP: TMenuItem
       Caption = 'Write Protected'
@@ -10538,6 +10549,7 @@ object GUIForm: TGUIForm
     WindowTop = 0
     WindowWidth = 0
     FillAttribute = 0
+    OnTerminate = MicroM8ProcessTerminate
     left = 240
     top = 160
   end
@@ -10611,4 +10623,18 @@ object GUIForm: TGUIForm
     left = 238
     top = 223
   end
+  object SPMenu: TPopupMenu
+    OnPopup = DiskMenuPopup
+    OnClose = DiskMenuClose
+    left = 24
+    top = 272
+    object miSPConnect: TMenuItem
+      Caption = 'Connect Disk'
+      OnClick = miSPFileClick
+    end
+    object miSPMenuEject: TMenuItem
+      Caption = 'Eject'
+      OnClick = miSPEjectClick
+    end
+  end
 end
diff --git a/lib/x86_64-win64/main.o b/lib/x86_64-win64/main.o
index 067c2d9..0b2f875 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 b62de32..f479620 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 30817c0..b524fa0 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 758683b..b224a9e 100644
--- a/main.lfm
+++ b/main.lfm
@@ -5,7 +5,7 @@ object GUIForm: TGUIForm
   Width = 1078
   AlphaBlendValue = 128
   Caption = 'microM8 GUI'
-  ClientHeight = 658
+  ClientHeight = 663
   ClientWidth = 1078
   Constraints.MinWidth = 1078
   DoubleBuffered = False
@@ -29,8 +29,8 @@ object GUIForm: TGUIForm
   LCLVersion = '2.0.0.4'
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 19
-    Top = 639
+    Height = 23
+    Top = 640
     Width = 1078
     Panels = <>
   end
@@ -232,7 +232,7 @@ object GUIForm: TGUIForm
     end
     object tbMasterVolume: TTrackBar
       Left = 249
-      Height = 38
+      Height = 32
       Top = 2
       Width = 96
       OnChange = tbMasterVolumeChange
@@ -276,7 +276,7 @@ object GUIForm: TGUIForm
     end
     object TrackBar2: TTrackBar
       Left = 449
-      Height = 38
+      Height = 32
       Top = 2
       Width = 96
       Max = 4
@@ -327,31 +327,31 @@ object GUIForm: TGUIForm
   end
   object pnlContainer: TPanel
     Left = 0
-    Height = 603
+    Height = 604
     Top = 36
     Width = 1078
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 603
+    ClientHeight = 604
     ClientWidth = 1078
     ParentColor = False
     TabOrder = 2
     object sidecarPanel: TPanel
       Left = 908
-      Height = 566
+      Height = 567
       Top = 0
       Width = 170
       Align = alRight
       BevelOuter = bvNone
       Caption = 'sidecarPanel'
-      ClientHeight = 566
+      ClientHeight = 567
       ClientWidth = 170
       Color = clBlack
       ParentColor = False
       TabOrder = 0
       object Image1: TImage
         Left = 0
-        Height = 566
+        Height = 567
         Top = 0
         Width = 170
         Align = alClient
@@ -5444,12 +5444,12 @@ object GUIForm: TGUIForm
     end
     object embedPanel: TPanel
       Left = 0
-      Height = 566
+      Height = 567
       Top = 0
       Width = 908
       Align = alClient
       BevelOuter = bvNone
-      ClientHeight = 566
+      ClientHeight = 567
       ClientWidth = 908
       Color = clBlack
       Font.Color = clWhite
@@ -5461,7 +5461,7 @@ object GUIForm: TGUIForm
       OnMouseUp = FormMouseUp
       object backdrop: TImage
         Left = 0
-        Height = 566
+        Height = 567
         Top = 0
         Width = 908
         Align = alClient
@@ -5474,7 +5474,7 @@ object GUIForm: TGUIForm
     object pnlMemory: TPanel
       Left = 0
       Height = 37
-      Top = 566
+      Top = 567
       Width = 1078
       Align = alBottom
       ClientHeight = 37
@@ -5485,7 +5485,7 @@ object GUIForm: TGUIForm
       OnResize = pnlMemoryResize
       object txtAddress: TEdit
         Left = 136
-        Height = 29
+        Height = 23
         Top = 8
         Width = 80
         OnKeyPress = txtAddressKeyPress
@@ -5495,23 +5495,23 @@ object GUIForm: TGUIForm
       end
       object Label1: TLabel
         Left = 9
-        Height = 17
+        Height = 15
         Top = 10
-        Width = 130
+        Width = 122
         Caption = 'Memory Address (hex):'
         ParentColor = False
       end
       object Label2: TLabel
         Left = 240
-        Height = 17
+        Height = 15
         Top = 10
-        Width = 65
+        Width = 60
         Caption = 'Value (hex):'
         ParentColor = False
       end
       object txtValue: TEdit
         Left = 312
-        Height = 29
+        Height = 23
         Top = 8
         Width = 80
         OnKeyPress = txtValueKeyPress
diff --git a/main.pas b/main.pas
index c9b39e5..1f547f4 100644
--- a/main.pas
+++ b/main.pas
@@ -701,7 +701,9 @@ begin
 
      RepaintWindow;
      if not IsMicroM8Active then
-        HideM8;
+        HideM8
+     else
+       lastFocusLostTime:=Now();
 
      //log.Lines.Add('app is deactivating');
 end;
@@ -2748,9 +2750,6 @@ begin
      {$ENDIF}
      //StatusBar1.SimpleText := 'App is refocussing';
      lastShowTime := Now();
-
-     lastFocusLostTime:=Now();
-     //SimpleGet( baseUrl + '/api/control/mouse/buttonclick' );
      SendKey( $e05d, 0, 1, 0 );
    end;
   ReposWindow;