Hi
Sorry the code for the timer loop should have read


While (<>MainProc>0)  //<>MainProc is the process number of the Main Form
If (<>StartPlay=True)  //<>StartPlay is set true if a play button is
pressed on the Main Form

<>ProcMess:="600"
CALL PROCESS(<>MainProc)  //Updates the Timer on the Main Form

Repeat

DELAY PROCESS(Current process;0)
Until ((Milliseconds-<>StartTime)>=1000)
<>StartTime:=Milliseconds
//BEEP
End if

DELAY PROCESS(Current process;0)
End while

-pm
**********************************************************************
4D Internet Users Group (4D iNUG)
FAQ:  http://lists.4d.com/faqnug.html
Archive:  http://lists.4d.com/archives.html
Options: http://lists.4d.com/mailman/options/4d_tech
Unsub:  mailto:[email protected]
**********************************************************************

Reply via email to