Demo to perform an action each time a set number of minutes has passed.

'perform an action every totalTime minutes
nomainwin
global totalTime, elapsedTime

'put number of minutes desired here:
totalTime = 2
'setup elapsedTime
elapsedTime = 0

statictext #1.s, "", 10, 10, 200, 30
open "Timer Test" for window as #1
#1 "trapclose Quit"

'set up one minute timer
timer 60000, doCheck
wait

sub Quit handle$
close #handle$
end
end sub

sub doCheck
'increment number of minutes elapsed
elapsedTime = elapsedTime + 1
if elapsedTime>=totalTime then
    timer 0
    call doEvent
end if
end sub

sub doEvent
'the event routine to perform goes here
#1.s "It is now ";time$()
elapsedTime = 0 'reset elapsedTime
timer 60000, doCheck
end sub