/* XFA_Util arexx script to show all animations */

MYPORT = "XFA_Util"

OPTION RESULTS

IF ~SHOW('P',MYPORT) THEN SHELL Command "Run >NIL: <NIL: XFA_Util"

DO WHILE ~SHOW('P',MYPORT)
END

ADDRESS VALUE MYPORT

SOURCE "progdir:classx.xfa"
AUTOPAUSE ON
LOOP OFF
LOAD
PLAYMEM
FREE

SOURCE "progdir:look1.xfa"
AUTOPAUSE ON
LOOP OFF
LOAD
PLAYMEM
FREE

SOURCE "progdir:light.xfa"
AUTOPAUSE OFF
LOOP OFF
LOAD
PLAYMEM
FREE

SOURCE "progdir:space.xfa"
AUTOPAUSE ON
LOOP OFF
LOAD
PLAYMEM
FREE

SOURCE "progdir:spot.xfa"
AUTOPAUSE ON
LOOP OFF
LOAD
PLAYMEM
FREE

SOURCE "progdir:speaker.xfa"
AUTOPAUSE OFF
LOOP OFF
LOAD
PLAYMEM

EXIT

END