XProfan

WindowTitle "MCI-Talk: Der CD-Laufwerksflüsterer"
' NUTZUNG AUF EIGENE GEFAHR DES/DER ANWENDER/IN!
Window %maxx/2-640/2,(%maxy/3-480/2) - 640,%maxy-170:var tm&=&gettickcount
Font 2:appendmenubar 10,"  BEFEHL:"+mkstr$("  ",29)+"GERÄTEANTWORT:"
Print "    Mit ESC-Taste kann stets sauber geschlossen werden!"
Print "[T] bedeutet 'Bitte Taste drücken!' \n"
'********************************************************************************
' Quelle: https://msdn.microsoft.com/en-us/library/windows/desktop/dd757151%28v=vs.85%29.aspx
'********************************************************************************
' *** Nachstehenden Block nicht ändern! *******
' **************************************************
send ""
send "open cdaudio alias cd"
Print "ACHTUNG, LAUFWERKSLADE WIRD JETZT GESCHLOSSEN."
Print "    Auf die Finger VON KLEINKINDERN achten!\n[T in 4sec]";
Sound 3000,200:beep:tm&=&gettickcount + 4000
repeat :waitinput :case %key=27:goto "beenden"

until &gettickcount>tm&

send "set cd door closed"
' *********************************************
' *********************************************
' *********************************************
' *******''''  Experimentierbereich ***********
' Ab hier experimentelle Abfragen eingeben:
send "capability cd device type"
send "capability cd can eject"
send "capability cd can play"
send "capability cd can record"
send "capability cd can save"
send "capability cd compound device"
send "capability cd has audio"
send "capability cd has video"
send "capability cd uses files"
send "set cd time format tmsf"
send "status cd number of tracks"
send "status cd length"
'send "play cd from 3 to 5 wait"
send "status cd current track"
send "status cd position"
send "STATUS CD LENGTH TRACK 1"
'send "set cd audio all off"
'send "set cd audio all on"
send "status cd mode"' open playing stopped
' *********************************************
' *********************************************
' **** Diesen unteren Teil nicht ändern! ****
' *********************************************
send "stop cd"
send "set cd door open"
beenden:
print "close cd":print @MCISend$("close cd")
print "  GERÄT IST FREIGEGEBEN! TEST-ENDE! "
sound 1000,200:sound 800,100
beep
waitinput 5000
END

proc send :parameters mci$

print mci$;tab(34);
print @mcisend$(mci$)
print "[T] ";
waitinput
case %csrlin>20:cls
case %key=27:goto "beenden"

endproc

' *********************************************
END
PROGEND