! test Ken's animation problem

++include ashinc:ashell.def
map1 AVI'FILENAME,S,200
map1 AVI'ID,B,2
map1 AVI'STATUS,F


       !!setup avi control
input line "avi file: ",AVI'FILENAME
!       AVI'FILENAME = "%MIAME%\permcache\filemove.avi"
        XCALL TRIM,AVI'FILENAME
        IF (AVI'FILENAME = "") GOTO NO'AVI

        XCALL AUI,AUI_CONTROL,CTLOP_ADD,AVI'ID,AVI'FILENAME, &
        MBST_ENABLE,MBF_BUTTON,"","",AVI'STATUS,12,20,15,50, &
        -2,-2,0,0,"","",0,"ASHANIMATE",ACS_AUTOPLAY+ACS_TRANSPARENT,0
      !
!XCALL MESAG,"AVI STATUS="+STR(AVI'STATUS),3,AVI'FILENAME 
STOP

NO'AVI:
    END