text = " Tulpe       Fr��hlingsblume   Holland / Europa "
PARSE VAR text before "/" after
SAY pp(before)
SAY pp(after)
EXIT
PP: RETURN "["|| ARG(1) || "]" 


ruler = COPIES("1234+6789|", 5)
text = " Tulpe  Fr��hlingsblume Holland / Europa / Welt"
PARSE VAR text blumenname art herkunft
SAY ruler; say text; SAY
PARSE VAR text 2 Blumenname +5 9 art herkunft.
SAY PP(blumenname)
SAY PP(art)
SAY PP(herkunft)
EXIT
PP : RETURN "[" || ARG(1) || "]"  


CALL on user too_young
CALL checkage 2
CALL Checkage 9
CALL checkage 18
EXIT 0
TOO_young:
SAY "// caught execption 'TOO_YOUNG'\\"
RETURN
::ROUTINE checkage
PARSE ARG age
SAY "--> age:" age
IF age <10 then raise user TOO_young
ELSE Say "--> alt genug"
EXIT 0