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