VERSION 1.00
Begin Form Form1
   Begin ListBox List1
      Sorted = -1
   End
   Begin ComboBox Combo0
      Style = 0
      Text = "frei0"
   End
   Begin ComboBox Combo1
      Style = 1
      Text = "frei1"
   End
   Begin ComboBox Combo2
      Style = 2
   End
End

' tb-screen: 80x25
' Vertragsnachweis: Auswahlverschiebung und unabhängiger Combo-Eingabetext.
Form1.Hide
CLS
List1.ListIndex = -1
PRINT "leer="; LTRIM$(STR$(List1.ListIndex))
List1.Sorted = 0
List1.ADDITEM "b"
List1.ListIndex = 0
List1.ADDITEM "a"
List1.Sorted = -1
PRINT "auswahl="; LTRIM$(STR$(List1.ListIndex)); ":"; List1.Text
List1.REMOVEITEM 1
PRINT "entfernt="; LTRIM$(STR$(List1.ListIndex)); ":"; List1.Text
Combo0.ADDITEM "wahl"
Combo1.ADDITEM "wahl"
Combo2.ADDITEM "wahl"
Combo0.ListIndex = 0
Combo1.ListIndex = 0
Combo2.ListIndex = 0
Combo0.ListIndex = -1
Combo1.ListIndex = -1
Combo2.ListIndex = -1
PRINT "combo="; Combo0.Text; "/"; Combo1.Text; "/"; Combo2.Text
END
