XProfan

'P.Specht's CDOC v0.01: CD-DOOR ÖFFNEN / SCHLIESSEN
'Nutzung auf alleiniges Risiko des/r AnwenderIn!
WindowStyle 1048:font 2:Window 4,4-250,72:Nochmal:
CLS:WindowTitle "CD-LAUFWERKSTOR ÖFFNEN"
Print "  BEENDEN mit <ESC> ":Print "   [_Ö F F N E N_]  ";
waitinput :case %key=27:END
print @MCISend$("open cdaudio alias cd")
case %MCIError:Goto "ende"
casenot %MCIError:print mcisend$("set cd door open");
case %MCIError:waitinput
WindowTitle "LAUFWERKSTOR SCHLIESSEN":locate 1,1
Print "  BEENDEN mit <ESC> ":Print "   [_SCHLIESSEN_]   ";
waitinput :case %key=27:goto "ende"
casenot %MCIError:print mcisend$("set cd door closed");
case %MCIError:waitinput :ende:
print @MCISend$("close cd");:case %MCIError:END
CLS:WindowTitle "CD-LW FREIGEGEBEN"
Print "  BEENDEN mit <ESC> ":waitinput:case %key=27:END
goto "Nochmal"