to playcd :a
print sentence [opened cd on channel] mci [open cdaudio alias cd]
mci [set cd time format tmsf]
mci sentence [play cd from] :a
print sentence [playing the cd on track] :a
mci [close cd]
end

