=====Playing an AVI file=====

//by Richard Russell, June 2013//\\ \\  This is a very simple, no-frills, way of playing an AVI movie file:

<code bb4w> 
        avifile% = OPENIN("*.avi")
        IF avifile% = 0 THEN QUIT
        CLOSE #avifile%
        avifile$ = $$!420

        PROCmci("open """ + avifile$ + """ type avivideo alias movie style popup")
        PROCmci("play movie wait")
        PROCmci("close movie")
        END

        DEF PROCmci(cmd$)
        LOCAL R%, S%
        DIM R% LOCAL 128
        SYS "mciSendString", cmd$, R%, 128, 0 TO S%
        IF S% ERROR 100, "mciSendString failed: " + STR$(S%)
        ENDPROC
</code>