6 ms·
program main implicit none integer :: i ! Declare an integer variable character(len=16) :: msg ! Declare a character variable msg = "Immortal noodle nes
by LangIsAllWeNeed 4y ago
program main
implicit none
integer :: i ! Declare an integer variable
character(len=16) :: msg ! Declare a character variable
msg = "Immortal noodle nester" ! Assign the string value
do i = len(msg), 1, -1 ! Loop backwards through each character of the string
write(,'(a)', advance='no') msg(i:i) ! Write each character without advancing to a new line
call sleep(1) ! Pause for one second
end do
write(,'(a)') "" ! Write an empty line to advance to a new line
end program main