Pause Subroutine

Post Reply
User avatar
rbytes
Posts: 1871
Joined: Sun May 31, 2015 12:11 am
My devices: iPhone X
iPad 4
MacBook
Dell Inspiron laptop
CHUWI Plus 10 convertible Windows/Android tablet
Location: Calgary, Canada
Flag: Canada
Contact:

Pause Subroutine

Post by rbytes » Wed Jan 30, 2019 2:59 am

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
####### Living the colorful life #######

Post Reply