diff --git a/emulator.pas b/emulator.pas
index 8014710..e73cef3 100644
--- a/emulator.pas
+++ b/emulator.pas
@@ -321,19 +321,10 @@ begin
         CallServer;
         //Recieve
         if Calling then begin
-            if fpRecv (ServerSocket, @B, 1, 0) <> 1 then begin
-                B := 0;
-                CloseSocket (ServerSocket);
-                Calling := false;
-            end;
+            if fpRecv (ServerSocket, @B, 1, 0) <> 1 then B := 0;
         end
         else if Answering then begin
-            if fpRecv (ClientSocket, @B, 1, 0) <> 1 then begin
-                B := 0;
-                CloseSocket (ClientSocket);
-                CloseSocket (ListenSocket);
-                Answering := false;
-            end;
+            if fpRecv (ClientSocket, @B, 1, 0) <> 1 then B := 0;
         end
         else B := 0;
     end
@@ -372,7 +363,8 @@ begin
             fpfd_zero (FileDescs);
             fpfd_set (ClientSocket, FileDescs);
             if fpSelect (ClientSocket + 1, @FileDescs, nil, nil, 0) > 0 then B := B or $20;
-        end;
+        end
+        else B := B or $20;
         {$endif}
         {$ifndef modem}
         B := B or $20;
@@ -729,19 +721,8 @@ begin
         //Connect
         CallServer;
         //Send
-        if Calling then begin
-            if fpSend (ServerSocket, @B, 1, 0) <> 1 then begin
-                CloseSocket (ServerSocket);
-                Calling := false;
-            end;
-        end
-        else if Answering then begin
-            if fpSend (ClientSocket, @B, 1, 0) <> 1 then begin
-                CloseSocket (ClientSocket);
-                CloseSocket (ListenSocket);
-                Answering := false;
-            end;
-        end;
+        if Calling then fpSend (ServerSocket, @B, 1, 0)
+        else if Answering then fpSend (ClientSocket, @B, 1, 0);
     end
     {$endif}
     //Regular store