XProfan

'P.Pájaro carpintero's CDOC v0.01: CD-DOOR ÖFFNEN / SCHLIESSEN
'Nutzung en alleiniges Risiko des/r AnwenderIn!
Ventana de Estilo 1048:font 2:Ventana 4,4-250,72:Nochmal:
CLS:Título de la ventana "CD-LAUFWERKSTOR ÖFFNEN"
Imprimir "  BEENDEN con <ESC> ":Imprimir "   [_Ö F F N E N_]  ";
waitinput :caso %key=27:FIN
imprimir @MCISend$("open cdaudio alias cd")
caso %MCIError:Goto "ende"
casenot %MCIError:imprimir mcisend$("set cd door open");
caso %MCIError:waitinput
Título de la ventana "LAUFWERKSTOR SCHLIESSEN":locate 1,1
Imprimir "  BEENDEN con <ESC> ":Imprimir "   [_SCHLIESSEN_]   ";
waitinput :caso %key=27:goto "ende"
casenot %MCIError:imprimir mcisend$("set cd door closed");
caso %MCIError:waitinput :ende:
imprimir @MCISend$("close cd");:caso %MCIError:FIN
CLS:Título de la ventana "CD-LW FREIGEGEBEN"
Imprimir "  BEENDEN con <ESC> ":waitinput:caso %key=27:FIN
goto "Nochmal"