Sorry your browser is not supported!

gosub main

main:
repeat
cdtracks = get number of cd tracks()
cls
print "There is no CD inserted."
until cdtracks > 0
gosub playcd
return

playcd:
cls
print "CD now inserted. No of tracks on cd:"
print cdtracks
print " "
input "Which track would you like to play?> ",track
if track > cdtracks then gosub badtrack
if track =< 0 then gosub badtrack
load cdmusic track, 1
gosub check
if music exist(1) then play music 1
repeat
cls
input "Music is now playing. Type b to go back.> ",b$
until b$ = "b"
stop music 1
delete music 1
gosub main
return

badtrack:
cls
print "That track is not on this cd."
wait key
gosub main
return

check:
repeat
cdtracks = get number of cd tracks()
cls
print "There is no CD inserted."
until cdtracks > 0
cls
return