/*Auswahl des Getraenks*/
SAY "Wir haben Bier (Nr. 1), Wein (Nr. 2) und Wasser (Nr. 3)"
SAY "Welche Nummer hätten Sie gerne?"
PULL getraenk
/*Wenn Wasser gewählt wird, dann Ende*/
DO
    IF getraenk = 3 THEN SAY "Hier ist Ihr Wasser."
    ELSE
        DO
            SAY "Und wie alt sind Sie?"
           PULL alter
        END
END
/*Check ob alt genug*/
DO
    CALL ON USER zu_jung
    DO
        IF getraenk = 3
        THEN RETURN
        ELSE
        CALL checkAlter alter
        EXIT 0
    END
END

    zu_jung: /* wenn Person zu jung ist */
    SAY "Es tut mir sehr leid, aber Sie sind zu Jung für Nr." getraenk "."
    SAY "Hier haben Sie Wasser."
    RETURN

    ::ROUTINE checkAlter
    PARSE ARG alter
    IF alter < 16 THEN RAISE USER zu_jung
        ELSE SAY "Hier ist Ihr Getraenk."
    EXIT 0