VERSION 1.00
Begin Form Formular
   Height = 10
   Width = 40
   Begin Menu mnuDatei
      Caption = "&Datei"
      Begin Menu mnuOpen
         Caption = "&Open"
      End
   End
   Begin TextBox Text1
      Left = 2
      Top = 2
      Width = 18
      Height = 1
      TabIndex = 0
   End
   Begin CommandButton Ok
      Caption = "&OK"
      Left = 23
      Top = 3
      Width = 10
      Height = 1
      TabIndex = 1
   End
End
' tb-screen: 80x25
' tb-events: time:0ms | key:<TAB> | resize:100x30 | mouse:down,1,0,4,25 | mouse:up,1,0,4,25 | key:%d | key:o
' Soll: LostFocus vor GotFocus, ein Click, dann Menue. COLOR e1;
' nach Resize passt die Ausgabe ab Spalte 90. Unicode belegt Doppelzellen.
' Quellen: Specs forms-objektmodell, textbildschirm, release-kompatibilitaet.
DIM SHARED trace$
Formular.Show
Text1.SetFocus
FOR i% = 1 TO 20
DOEVENTS
NEXT
Formular.Hide
COLOR 14, 1
CLS
PRINT trace$; "中"
LOCATE 2, 90
PRINT "界Z";
END
SUB Text1_LostFocus()
SHARED trace$
trace$ = trace$ + "Lost;"
END SUB
SUB Ok_GotFocus()
SHARED trace$
trace$ = trace$ + "Got;"
END SUB
SUB Ok_Click()
SHARED trace$
trace$ = trace$ + "Click;"
END SUB
SUB mnuOpen_Click()
SHARED trace$
trace$ = trace$ + "Menu;"
END SUB