This is the making of a cheap cd player

I'm still working on it, but I'll get there eventualy. This is really just a scratchy thing I'm making up "off the seat of my pants" so to speak. But I'm at school right now, so I can't finish it here. Well, I have done some upgrading, and I included an image, I hope you guys are happy. I'll finish posting the code once I get home.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    A=1
B=1
C=mouseclick()
Cx=mousex()
Cy=mousey()
Dx1=object positionx,1
Dx2=Object positionx,2
Dy1=object positiony,1
Dy2=object positiony,2
F1
F2

F1:
 set window size 640,480
 set window title "CD Player (Roseblood Inc.)"
 Set window on
 set window position screenwidth()/4,screenheight()/4
 load image "13028",1
 paste image 1,1,1
 ink 16000000,1
 set text size 37: set text font aerial:print "Track",A: print "Track Playing",B
 load cdmusic A,1
End F1

F2:
 disable escapekey
 ink 16000000,1
 whileescapekey()=0
 if C=2 then if Cx=Dx1 then if Cy=Dy1 then puase music 1
 if C=1 then if Cx=Dx1 then if Cy=Dy1 then playmusic 1:cls:F1:F2
 if C=1 then if Cx=Dx2 then if Cy=Dy2 then stop music 1