XProfan

'P.Specht's CDOC v0.01: CD-DOOR ÖFFNEN / SCHLIESSEN
'Nutzung sur alleiniges Risiko des/r AnwenderIn!
Fenêtre Style 1048:font 2:Fenêtre 4,4-250,72:Nochmal:
CLS:Titre de la fenêtre "CD-LAUFWERKSTOR ÖFFNEN"
Imprimer "  BEENDEN avec <ESC> ":Imprimer "   [_Ö F F N E N_]  ";
waitinput :cas %clé=27:FIN
imprimer @MCISend$("open cdaudio alias cd")
cas %MCIError:Goto "ende"
casenot %MCIError:imprimer mcisend$("set cd door open");
cas %MCIError:waitinput
Titre de la fenêtre "LAUFWERKSTOR SCHLIESSEN":locate 1,1
Imprimer "  BEENDEN avec <ESC> ":Imprimer "   [_SCHLIESSEN_]   ";
waitinput :cas %clé=27:goto "ende"
casenot %MCIError:imprimer mcisend$("set cd door closed");
cas %MCIError:waitinput :ende:
imprimer @MCISend$("close cd");:cas %MCIError:FIN
CLS:Titre de la fenêtre "CD-LW FREIGEGEBEN"
Imprimer "  BEENDEN avec <ESC> ":waitinput:cas %clé=27:FIN
goto "Nochmal"