PROCEDURE addEvent(title:in, participants:in, date:in, duration:in, hours:in, minutes:in, uid:in)
IF title==κενό || date==κενό || duration==κενό || hours==κενό || minutes==κενό
    Εμφάνισε μήνυμα λάθους στο χρήστη
ELSE
    LOCAL VAR time := hours + ":" + minutes
    Αποθήκευσε στη βάση στον πίνακα 'events' τα στοιχεία title, date, time, uid
    LOCAL VAR event_id := Το id της νέας εγγραφής
    IF participants <> κενό
        WHILE (Δεν τέλειωσαν οι participants)
            Αποθήκευσε στη βάση στον πίνακα event_users τα στοιχεία event_id και participant και status = 0
        END_WHILE
    END_IF
END_IF
END_PROCEDURE