home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1995 #1 / Image.iso / cdd / winanw / demo_pf / film.prf < prev    next >
Encoding:
Text File  |  1994-01-05  |  397 b   |  20 lines
  1. CLS
  2.  
  3. Declare A$,B$
  4.  
  5. 'WindowTitle "Testprogramm AVI-Video"
  6.  
  7. LET A$=@LOADFILE$("FILM-DATEI","*.AVI")
  8. WHILE @NEQ$(A$,"")
  9.   LET A$=@ADD$(@ADD$("OPEN ",A$)," TYPE AVIVIDEO ALIAS FILM")
  10.   LET B$=@MCISend$(A$)
  11.   If %MCIError
  12.     Print "Fehler: ";B$
  13.   EndIf
  14.   LET B$=@MCISend$("PLAY FILM")
  15.   WAITMOUSE
  16.   LET B$=@MCISend$("CLOSE FILM")
  17.   LET A$=@LOADFILE$("FILM-DATEI","*.AVI")
  18. WEND
  19.  
  20. END