Code: Select all
/*
Pause Subroutine by rbytes
January 2019
Sometimes you want a program
to pause for a few seconds, while
allowing the user to interrupt the
pause. The PAUSE command does not
provide this feature, so an alternative
is needed.
*/
wait=5 ! print "Pausing "&wait&" seconds - press any key to skip"
time reset ! OPTION KEYBOARD ON ! do slowdown !
until INKEY$()<>"" or time()>wait ! print "Pause ended at "&time()
end