diff options
| -rw-r--r-- | README.md | 3 | ||||
| -rw-r--r-- | history.f90 | 2 | ||||
| -rw-r--r-- | protocol.f90 | 3 |
3 files changed, 5 insertions, 3 deletions
@@ -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, "://") |