XProfan

Título de la ventana "MCI-Talk: Der CD-Laufwerksflüsterer"
' NUTZUNG AUF EIGENE GEFAHR DES/DER ANWENDER/IN!
Ventana %maxx/2-640/2,(%maxy/3-480/2) - 640,%maxy-170:var tm&=&gettickcount
Font 2:appendmenubar 10,"  BEFEHL:"+mkstr$("  ",29)+"GERÄTEANTWORT:"
Imprimir "    Mit ESC-Taste kann stets sauber geschlossen voluntad!"
Imprimir "[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 no ändern! *******
' **************************************************
send ""
send "open cdaudio alias cd"
Imprimir "ACHTUNG, LAUFWERKSLADE WIRD JETZT GESCHLOSSEN."
Imprimir "    Auf el Finger VON KLEINKINDERN achten!\n[T en 4sec]";
Sound 3000,200:beep:tm&=&gettickcount + 4000
repeat :waitinput :caso %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 no ändern! ****
' *********************************************
send "stop cd"
send "set cd door open"
final:
imprimir "close cd":imprimir @MCISend$("close cd")
imprimir "  GERÄT IST FREIGEGEBEN! TEST-ENDE! "
sound 1000,200:sound 800,100
beep
waitinput 5000
FIN

proc send :parámetros mci$

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

ENDPROC

' *********************************************
FIN
PROGEND