/***********************************************************************
  GADGET: "'Zeige Bereichsende'" "5" "26" TYP: "?"

  $DAT >>AreaEnd.clssa<<      04.10.1992 - (C) ProDAD Holger Burkarth
                              20.01.1995 - (C) ProDAD Michael Christoph
************************************************************************/

Options Results
Address clariSSA

  FailAt 11
  AltFail=RESULT

  GetAnimInfo
  IF RESULT="" THEN Message "'Keine Animation vorhanden.'"
  ELSE DO
    GetArea
    PARSE VAR RESULT . 'TO' f .
    ViewFrame f
  END

  FailAt AltFail
exit