' CD-ROM-Schublade steuern OPEN "MSCD001" FOR RANDOM AS 1 PRINT "Gleich ”ffnen wir die CD-Schublade..." IOCTL 1, CHR$(0) PRINT "CD-Schublade offen!" d$ = INPUT$(1) IOCTL 1, CHR$(5) PRINT "CD-Schublade wieder geschlossen" CLOSE 1