Support Forum / Форум поддержки

rbytes wrote: ↑

Mon Jan 28, 2019 11:21 pm

The PAUSE command can be useful in some circumstances. But sometimes you want to be able to interrupt a pause. How do you do that when other commands can not be executed during a PAUSE command?

My solution - a function that divides the desired pause length into a series of .1 sec. pauses that add up to the desired delay.
Now screen touch can be sensed every tenth of a second. If it is detected, the program will react virtually instantly to skip the remaining delay and let the program flow continue. if the screen is not touched, the delay will end after its specified length.

Code: Select all

/*
Pause function by rbytes
January 2019

A function that divides the desired pause length into a series of .1 sec.
pauses that add up to the desired delay. Now screen touch will be sensed every
tenth of a second, so if it is detected, the program will react virtually instantly
to skip the remaining delay and let the flow continue. if the screen is not touched,
the delay will end after the specified length.
*/

graphics
graphics clear 1,1,1
wait(5)
beep
end

def wait(dur)
waiter=dur*10
start:
z=z+1
get touch 0 as tx,ty
pause dur/waiter
if z>waiter then return
if tx=-1 then start
end def

I also made a wait subroutine to perform the same job. I used it in a program I posted today in Basic Programs, called "Museum of Modern Art". It holds each digital art image on screen for three seconds unless the screen is tapped. If it is, the art changes instantly. I will post the wait subroutine here tomorrow.