do as server
        let my_time := zwischen;
        let my_duration := 'Terminlänge (min)';
        let my_slots := 'Anzahl der Slots';
        let my_alt := 'Höhe';
        let my_jump := Tandempreis;
        switch number(Auswahl) do
        case 1:
            (
                let my_day := 'Am/ vom';
                for i from zwischen to und step number(text(my_duration)) * 60000 do
                    let my_record := (create 'Termin reservieren');
                    my_record.(Termin := appointment(my_day + my_time, time(number(text(my_duration)) * 60000)));
                    my_record.('Plätze' := my_slots);
                    my_record.('Höhe' := my_alt);
                    my_record.(weekdayname := weekdayNameAllLang(date(start(my_record.Termin)), "de"));
                    my_record.(Tandempreis := my_jump);
                    my_time := my_time + time(number(text(my_duration)) * 60000)
                end
            )
end;

Termin := appointment(Datum + Startzeit, Datum + Endzeit);