SAY "Was ist die Hauptstadt von Portugal? "
PARSE PULL answer
call check


check: 
IF answer == "Lissabon" THEN CALL abc answer
Else Say "falsche antwort"
exit 0 
 
::ROUTINE abc Public
    Parse arg answer 
    SAY "You are correct! The Answer is:"
    SAY answer
    exit 0