;********************************************************************
;
; (c) Mik of ClassX 1995
;
;
; How to load and play an xfa animation
;
;********************************************************************


XINCLUDE "LIB_XFA.BB"

WBStartup
NoCli
DEFTYPE.l


;allocate some frames
If XFA_AllocFrames_(500)

  ;load an animation
  If XFA_LoadAnim_("t:a.xfa",0,0,True)<>0
    ;error handling
  EndIf

  ;open play stuff
  If XFA_OpenPlayStuff_(False)

    ;play the animation
    XFA_Play_ True,False,True

    ;close the play stuff
    XFA_ClosePlayStuff_

  EndIf

  XFA_FreeFrames_

EndIf

End