home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / windows / c / profan26 / midi.prf < prev    next >
Encoding:
Text File  |  1994-01-05  |  393 b   |  20 lines
  1. CLS
  2.  
  3. Declare A$,B$
  4.  
  5. 'WindowTitle "Testprogramm MIDI"
  6.  
  7. LET A$=@LOADFILE$("MIDI-DATEI","*.MID")
  8. WHILE @NEQ$(A$,"")
  9.   LET A$=@ADD$(@ADD$("OPEN ",A$)," TYPE SEQUENCER ALIAS MIDI")
  10.   LET B$=@MCISend$(A$)
  11.   If %MCIError
  12.     Print "Fehler: ";B$
  13.   EndIf
  14.   LET B$=@MCISend$("PLAY MIDI")
  15.   WAITMOUSE
  16.   LET B$=@MCISend$("CLOSE MIDI")
  17.   LET A$=@LOADFILE$("MIDI-DATEI","*.MID")
  18. WEND
  19.  
  20. END