aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--README.md3
-rw-r--r--history.f902
-rw-r--r--protocol.f903
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, "://")