XProfan

Titre de la fenêtre "MCI-talc: qui CD-Laufwerksflüsterer"
' NUTZUNG AUF EIGENE GEFAHR DES/DER ANWENDER/IN!
Fenêtre %maxx/2-640/2,(%maxy/3-480/2) - 640,%maxy-170:var tm&=&gettickcount
Font 2:appendmenubar 10,"  BEFEHL:"+mkstr$("  ",29)+"GERÄTEANTWORT:"
Imprimer "    avec ESC-bouton peux stets net geschlossen volonté!"
Imprimer "[T] bedeutet 's'il te plaît bouton drücken!' \n"
'********************************************************************************
' source: https://msdn.microsoft.com/en-us/library/windows/desktop/dd757151%28v=vs.85%29.aspx
'********************************************************************************
' *** Nachstehenden Block pas changement! *******
' **************************************************
send »
send "open cdaudio alias cd"
Imprimer "ACHTUNG, LAUFWERKSLADE WIRD JETZT GESCHLOSSEN."
Imprimer "    sur qui Finger VON KLEINKINDERN achten!\n[T dans 4sec]";
Sound 3000,200:beep:tm&=&gettickcount + 4000
repeat :waitinput :cas %clé=27:goto "beenden"

until &gettickcount>tm&

send "set cd door closed"
' *********************************************
' *********************************************
' *********************************************
' *******''''  Experimentierbereich ***********
' Ab ici 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 à partir de 3 to 5 wait"
send "status cd current track"
send "status cd position"
send "STATUS CD LENGTH TRACK 1"
'send "set cd audio espace off"
'send "set cd audio espace on"
send "status cd mode"' open playing stopped
' *********************************************
' *********************************************
' **** Diesen unteren partie pas changement! ****
' *********************************************
send "stop cd"
send "set cd door open"
finissons:
imprimer "close cd":imprimer @MCISend$("close cd")
imprimer "  GERÄT IST FREIGEGEBEN! TEST-ENDE! "
sound 1000,200:sound 800,100
beep
waitinput 5000
FIN

proc send :parameters mci$

imprimer mci$;tab(34);
imprimer @mcisend$(mci$)
imprimer "[T] ";
waitinput
cas %csrlin>20:cls
cas %clé=27:goto "beenden"

endproc

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