Create a gist now

Instantly share code, notes, and snippets.

Embed
What would you like to do?
program timer
integer time_max, i
i = 0
print *, "This program will tell you when X seconds is up."
print *, "Please input X(Real number psease) and push ENTER."
read *, time_max
!count down
do i = time_max, 1, -1
print *, i
call system("sleep 1")
end do
!alarm
do
print *, "Finished!!"
end do
end program timer
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment