Say "Check height for rollercoster"
SIGNAL ON USER TOO_SHORT
CALL checkheight 180
CALL checkheight 168
CALL checkheight 155
EXIT 0
TOO_SHORT:
SAY "--> This user is too short to enter!!" 
 EXIT -1
::ROUTINE checkheight
 PARSE ARG height
 SAY "height:" height
 IF height < 160 THEN RAISE USER too_short
 ELSE SAY "--> This user is allowed to enter"
 EXIT 0