CLS
PRINT "Insert compact disk, press any key,"
PRINT "run CD-Player and press Power (off)"
F$ = INPUT$(1)
SHELL "C:\CDROM\gsaudio.exe"
PRINT "10 Seconds play!"
SLEEP 10
SHELL "C:\CDROM\eject.exe"
CLS
PRINT "END"
END

'(Edit the first "SHELL" to your own program to run the player)

 

This program I created myself:

 

'This program shows a lot of smiley's and they change color until the user hits a key.

CLS
col = 0

smile:
DO
FOR col = 1 TO 15
COLOR col
PRINT CHR$(1);
NEXT col
LOOP UNTIL INKEY$ <> ""
END

 

If you would like the file I deleted, then ask me for the "bridge program for QBasic."

 

To run these, copy and paste them into notepad and save as a .bas file.