|
|
|
|
|
|
by LangIsAllWeNeed
1199 days 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 |
|
|