XProfan

'P.woodpecker's CDOC v0.01: CD-DOOR ÖFFNEN / SCHLIESSEN
'Use on alleiniges risk the/r AnwenderIn!
Window Style 1048:font 2:Window 4,4-250,72:Nochmal:
CLS:Window Title "CD-LAUFWERKSTOR ÖFFNEN"
Print "  BEENDEN with <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
Window Title "LAUFWERKSTOR SCHLIESSEN":locate 1,1
Print "  BEENDEN with <ESC> ":Print "   [_SCHLIESSEN_]   ";
waitinput :case %key=27:goto "ende"
casenot %MCIError:print mcisend$("set cd door closed");
case %MCIError:waitinput :end:
print @$ MCISend("close cd");:case %MCIError:END
CLS:Window Title "CD-LW FREIGEGEBEN"
Print "  BEENDEN with <ESC> ":waitinput:case %key=27:END
goto "Nochmal"