VERSION 1.00
Begin Form Form1
   Begin Timer Timer1
      Interval = 0
   End
End

' tb-screen: 80x25
' tb-events: time:0ms
' Hostfristen: Aktivierung 1000, erstes Ereignis beendet SLEEP bei 1100 ms.
DIM SHARED n%
SLEEP 1
Timer1.Interval = 100
vor% = n%
SLEEP 1
nach% = n%
Timer1.Interval = 0
Form1.Hide
CLS
PRINT "vor="; LTRIM$(STR$(vor%))
PRINT "nach="; LTRIM$(STR$(nach%))
END
SUB Timer1_Timer()
SHARED n%
n% = n% + 1
END SUB