Predvajalnik CDjev

to cdplayer
   windowcreate "root "okno [Predvajalnik CDjev] 0 0 143 85 []
   groupboxcreate "okno "g1 5 1 130 34
   staticcreate "okno "s1 [Število vseh skladb:] 20 10 90 10
   staticcreate "okno "s2 [Številka trenutne skladbe:] 20 22 90 10
   staticcreate "okno "s3 [] 110 10 15 10
   staticcreate "okno "s4 [] 110 22 15 10
   buttoncreate "okno "b1 [Začni] 5 40 40 12 [začni]
   buttoncreate "okno "b2 [Počakaj] 50 40 40 12 [počakaj]
   buttoncreate "okno "b3 [Ustavi] 95 40 40 12 [ustavi]
   buttoncreate "okno "b4 [Nazaj] 5 55 40 12 [nazaj]
   buttoncreate "okno "b5 [Naprej] 50 55 40 12 [naprej]
   buttoncreate "okno "b6 [Končaj] 95 55 40 12 [končaj]
   show mci [open cdaudio alias cd]
   vstaviCD
end

to vstaviCD
   while [not first mci [status cd media present]] [messagebox "Napaka [Prosim, vstavite CD!]]
   make "stevilo first mci [status cd number of tracks]
   make "skladba 1
   staticupdate "s3 :stevilo
   staticupdate "s4 :skladba
   make "igram "false
   make "čakam "false
end

to začni
   make "igram "true
   mci [set cd time format tmsf]
   mci sentence [play cd from] :skladba
end

to počakaj
   ifelse :čakam [
      make "čakam "false
      buttonupdate "b2 [Počakaj]
      mci [resume cd]
   ] [
      make "čakam "true
      buttonupdate "b2 [Nadaljuj]
      mci [pause cd]
   ]
end

to ustavi
   if :igram [
      mci [stop cd]
      make "igram "false
      make "čakam "false
      buttonupdate "b2 [Počakaj]
   ]
end

to nazaj
   if :skladba > 1 [
      ustavi
      make "skladba :skladba - 1
      staticupdate "s4 :skladba
   ]
end

to naprej
   if :skladba < :stevilo [
      ustavi
      make "skladba :skladba + 1
      staticupdate "s4 :skladba
   ]
end

to končaj
   ustavi
   mci [close cd]
   windowdelete "okno
end