/* Haus��bung */

SAY 'Willkommen!'
SAY 'Bitte geben Sie Ihren vollst��ndigen Namen ein:'
PULL name
SAY 'Bitte geben Sie Ihre Stadt ein:'
PULL city
SAY 'Bitte geben Sie Ihr Geburtsdatum ein (Format: ddmmyyyy):'
PULL birthDate

PARSE VAR name firstName famName .
outputName = firstName || " " || famName
formattedBirthDate = SUBSTR(birthDate, 1, 2) || "." || SUBSTR(birthDate, 3, 2) || "." || SUBSTR(birthDate, 5, 4)

SAY 'Danke! Ihre Eingabe:'
SAY 'Name: ' pp(outputName)
SAY 'Stadt: ' pp(city)
SAY 'Geburtsdatum: ' pp(formattedBirthDate)

EXIT

PP: PROCEDURE
RETURN "[" || ARG(1) || "]"