2002-09-12 20:47

'From:  Jacques Philippe <jp@t...> Thu Sep 12, 2002  4:46 pm

     SUB Wait (waitLength AS SINGLE) ' waitLength in seconds
      DEFSNG sStart
      sStart = TIMER
      DO
       DOEVENTS
      LOOP UNTIL ((TIMER - sStart) >= waitLength)
     END SUB

2002-09-12 20:47