From 273cccb1a687dfe7d74486def016514a7887c1f5 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Mon, 18 May 2020 20:06:58 -0400
Subject: Deleted some extraneous debug print statements.  Added another image
 to the readme.

---
 README.md    | 3 +++
 history.f90  | 2 --
 protocol.f90 | 3 ++-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/README.md b/README.md
index 56bedd2..edd877a 100644
--- a/README.md
+++ b/README.md
@@ -11,6 +11,9 @@ client is implemented entirely in Fortran.
 <img src="https://gallery.rainbow-100.com/cgi-bin/gk.cgi?id=00fdc8bb-615a-482d-8c7f-f2be01bf0390&gallery=662ce9f6-fb2e-45f2-be0d-d6f6eaacf5c5"
      alt="LR-87 on Windows"
      style="width:40%" />
+<img src="https://gallery.rainbow-100.com/cgi-bin/gk.cgi?id=89caf184-6b86-48bf-ab67-6bacf6b9bae4&gallery=662ce9f6-fb2e-45f2-be0d-d6f6eaacf5c5"
+     alt="LR-87 with the Windows GUI"
+     style="width:40%" />
 </p>
 
 LR-87 can be launched with an initial address, or it will default to
diff --git a/history.f90 b/history.f90
index e56cc89..7f98e59 100644
--- a/history.f90
+++ b/history.f90
@@ -82,8 +82,6 @@ contains
         
         head => first_location
 
-        Print *, "=> "//trim(url)
-
     end function add_location
     
     subroutine back_location(first_location, url)
diff --git a/protocol.f90 b/protocol.f90
index 706f442..78f11c8 100644
--- a/protocol.f90
+++ b/protocol.f90
@@ -205,7 +205,8 @@ contains
         
         integer::past_protocol, first_slash, last_slash
         
-        Print *, "*** Requested path is '"//trim(path)//"'"
+        ! For debugging
+        ! Print *, "*** Requested path is '"//trim(path)//"'"
         
         past_protocol = index(current_url, "://")
         
-- 
cgit v1.2.3