: open-command ( path -- )
"open \"%s\" type mpegvideo alias MediaFile" sprintf f 0 f
mciSendString check-mci-error ;
-
+
: play-command ( -- )
"play MediaFile" f 0 f mciSendString check-mci-error ;
: close-command ( -- )
- "close MediaFile" f 0 f mciSendString check-mci-error ;
\ No newline at end of file
+ "close MediaFile" f 0 f mciSendString check-mci-error ;