Forms-Zustand und Darstellung korrigieren und Change archivieren

tests/compat/timer-aktivierung.frm

@@ -0,0 +1,26 @@
+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