/*Beispiel 1*/
SAY "Berechnung des Volumens eines Quaders"
SAY "Was ist die Laenge des Quaders?"
PARSE PULL length
SAY "Was ist die Breite des Quaders?"
PARSE PULL width
SAY "Was ist die Hoehe des Quaders?"
PARSE PULL hight

CALL calc length, width, hight
EXIT
calc: PROCEDURE
    PARSE ARG length, width, hight
    SAY "USER IMPUT: a="length "b="width "c="hight
    v= length * width * hight
    SAY "Das Volumen des Quaders betraegt: " v
    RETURN


/*Beispiel2*/

SIGNAL ON USER too_big_volume
CALL CheckVolume 80
CALL CheckVolume 140
CALL CheckVolume 200
EXIT 0
too_big_volume:
SAY "// caught exception 'too_big_volume' \\"
EXIT -1
::ROUTINE CheckVolume
PARSE ARG volume
Say "--> volume:" volume
If volume >= 160 THEN RAISE USER too_big_volume
ELSE SAY "--> ist kompatibel"
Exit 0