/* Ubung 1 */
text = "Wien, 24 Mai 2022"
parse var text Place ","  Day  Month  Year
SAY text; SAY
say pp(Place)
say pp(Day)
say pp(Month)
say pp(Year)
EXIT
PP : RETURN "[" || ARG(1) || "]" -- "pretty print" ;)




/* Ubung 2 */
ruler = COPIES("123+456/", 2)
text = " Avocado Sub-tropical Mexico / North America"
PARSE VAR text Fruit Type Origin
SAY ruler; SAY text;
SAY PP(Fruit)
SAY PP(Type)
SAY PP(Origin)
EXIT
PP : RETURN "[" || ARG(1) || "]" -- "pretty print" ;)