From b7e9966907434c6f58efa1307b2118a470c63d2b Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Wed, 6 May 2020 15:56:17 -0400 Subject: Back functionality now works --- dumb_render.f90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'dumb_render.f90') diff --git a/dumb_render.f90 b/dumb_render.f90 index 9172557..e6ca671 100644 --- a/dumb_render.f90 +++ b/dumb_render.f90 @@ -258,7 +258,7 @@ contains character(*), intent(out)::input - write(*, '(A68)', advance='no') "*** [A] PgUp | [Z] PgDn | [#] Link | [U] URL | [Q] Quit => " + write(*, '(A68)', advance='no') "*** [A]/[Z] PgUp/PgDn | [#] Link | [B] Back | [U] URL | [Q] Quit => " read(*, *) input end subroutine prompt_user @@ -285,6 +285,8 @@ contains else if(trim(input) == "z" .or. trim(input) == "Z") then self%first_line = self%first_line + 24 dumb_action = render_action_layout + else if(trim(input) == "b" .or. trim(input) == "B") then + dumb_action = render_action_back else if(trim(input) == "q" .or. trim(input) == "Q") then dumb_action = render_action_quit else if(trim(input) == "u" .or. trim(input) == "U") then -- cgit v1.2.3