/* 10 20 30 40
1234+6789|1234+6789|1234+6789|1234+6789| */
text = " Ruaniger Annelle Stumm Zillertal / Tirol "
PARSE VAR text 2 famName +8 11 firstName city .
SAY pp(famName)
SAY pp(firstName)
SAY pp(city)
EXIT
PP : RETURN "[" || ARG(1) || "]" -- "pretty print" ;)


pattern = "/"
/* 10 20 30 40
1234+6789|1234+6789|1234+6789|1234+6789| */
text = " Business Programming / Gruppe 2 "
PARSE VAR text before (pattern) after
SAY pp(before)
SAY pp(after)
EXIT
PP : RETURN "{" ARG(1) "}" -- "pretty print" ;)


pattern = "/"
/* 10 20 30 40
1234+6789|1234+6789|1234+6789|1234+6789| */
text = " Business Programming / Gruppe 2 "
PARSE VAR text before (pattern) after
DO 3
SAY pp(before)
END
DO 2
SAY pp(after)
END
EXIT
PP : RETURN "{" ARG(1) "}" -- "pretty print" ;)