XProfan

Window Title "MCI-talc: The CD-Laufwerksflüsterer"
' NUTZUNG ON OWN GEFAHR DES/THE 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 "    with ESC-Button can always tidy closed go!"
Print "[T] means 'Please Button pressing!' \n"
'********************************************************************************
' fountain: https://msdn.microsoft.com/en-us/library/windows/desktop/dd757151%28v=vs.85%29.aspx
'********************************************************************************
' *** Nachstehenden block not Change! *******
' **************************************************
send ""
send "open cdaudio alias cd"
Print "ACHTUNG, LAUFWERKSLADE IS JETZT GESCHLOSSEN."
Print "    On The fingers OF KLEINKINDERN respect!\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 ***********
' ex here experimentelle inquire prompt:
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 stature 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 downstairs part not Change! ****
' *********************************************
send "stop cd"
send "set cd door open"
terminate:
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