/*Ubung 1*/
text=";Stefan 40; Anna 70; Martin 90; Matthaus 250"
PARSE VAR text 1 a +1 name1 weight1 (a) name2 weight2 (a) name3 weight3 (a) name4 weight4.

/*Ubung 2*/
CALL ON USER INVALID_VALUE


SAY name1  
CALL checkWeight weight1
SAY name2  
CALL checkWeight weight2
SAY name3  
CALL checkWeight weight3
SAY name4  
CALL checkWeight weight4
EXIT 0

INVALID_VALUE:
SAY "Weight is invalid. Please insert other value."
RETURN

::ROUTINE checkWeight
PARSE ARG weight
SELECT
   WHEN weight>=30 & weight<=50 THEN SAY "has underweight"
   WHEN weight>50 & weight<=80  THEN SAY "has normal weight"
   WHEN weight>80 & weight<=200 THEN SAY "has overweight"
   OTHERWISE RAISE USER INVALID_VALUE
END