VERSION 1.00
Begin Form Form1
   Width = 40
   Height = 12
   Begin TextBox Text1
      Left = 5
      Top = 5
      Width = 10
      Height = 1
   End
End

' tb-screen: 80x25
' tb-events: time:0ms | mouse:down,1,0,2,2 | key:K
' Erwartete Handlerwirkungen in Hostreihenfolge; keine Snapshot-Neuaufnahme.
Text1.SetFocus
DIM SHARED s$
DOEVENTS
DOEVENTS
DOEVENTS
Form1.Hide
CLS
PRINT s$
END
SUB Text1_KeyPress(KeyAscii AS INTEGER)
SHARED s$
s$ = s$ + CHR$(KeyAscii)
END SUB
SUB Form_MouseDown(Button AS INTEGER, Shift AS INTEGER, X AS SINGLE, Y AS SINGLE)
SHARED s$
s$ = s$ + "M"
END SUB