Пожалуй, можно предложить не меньше десятка вариантов перевода названия фильма "A walk to remember". Но почему-то мега-переводчики решили название не переводить, а придумать его самостоятельно. Получилось "Спеши любить". Оригинально, ничего не скажешь... В таком случае, предлагаю свой вариант перевода названия фильма на язык ФОРТРАН.

code:

subroutine walk(dlg)

!DEC$ ATTRIBUTES DEFAULT :: walk

  

 use dflogm

 use dfcom

 use dfauto

 use dfwin

 use dfopngl

 implicit none

 include "resource.fd"

 logical(2) :: remember

 character(256) :: value

 type (dialog) :: dlg

 integer*4 :: iret
 
 remember=.FALSE.
  
 do while(remember==.FALSE.)
  iret=dglget(dlg, 1009, value)

  read(value, *) remember

 end do

 return 

end subroutine walk