Public Class tFilm
        Public Datum As Double 'Datum der Vorstellung + zeit
        Public FilmLang As Byte   'Flag auf Überlänge '1=normal 2=lang
        Public Saal As Byte 'welchers Kino
        Public User(2) As Byte 'welcher Mitarbeiter
        Public Info(150) As String         '1=kasse 2=technik
        Public KATPersonen(20) As Boolean    'typ personen
        Public KATwetter As Integer   'typ wetter
        Public PointWoche As Integer   'setze auf woche
        Public PointListe As Integer 'setze auf liste in woche
        Public status As Byte 'wie steht film '0=leer 1=eingefügt 2=zum Verkauf _
           3=im _
        'verkauft 4=abgerechnet
        Public FreiKarte(20) As Integer '
        Public KartenPreis(4) As Single '1=Normal 2=ermäßigt 3=kinder 4=frei 
        ' 5=UNormal 6=Uermäßigt
        Public KartenStart(4) As Long '1=normal 2=ermäßigt
        Public Besucher(4) As Long
        Public Gilde As Long
        Public Nebenverkauf(20) As Single
        Public Bon As Boolean
    End Class