Sorry your browser is not supported!

Set window size 250,250
Set text size 50
Load Cdmusic 1,1
Load Cdmusic 2,2
Load Cdmusic 3,3
Load Cdmusic 4,4
Load Cdmusic 5,5
Load Cdmusic 6,6
Load Cdmusic 7,7
Load Cdmusic 8,8
Load Cdmusic 9,9
Print "1. Track 1"
Print "2. Track 2"
Print "3. Track 3"
Print "4. Track 4"
Print "5. Track 5"
Print "6. Track 6"
Print "7. Track 7"
Print "8. Track 8"
Print "9. Track 9"
Do
If Keystate(2)=1 then play music 1
If Keystate(3)=1 then play music 2
If Keystate(4)=1 then play music 3
If Keystate(5)=1 then play music 4
If Keystate(6)=1 then play music 5
If Keystate(7)=1 then play music 6
If Keystate(8)=1 then play music 7
If Keystate(9)=1 then play music 8
If Keystate(10)=1 then play music 9
Loop

load dll "winmm.dll",2

do

if upkey()=1 then OpenDrive()
if downkey()=1 then closeDrive()

loop

function OpenDrive()
CALL DLL 2,"mciSendStringA","set cdaudio door open"," ",1,0
endfunction


function CloseDrive()
CALL DLL 2,"mciSendStringA","set cdaudio door closed"," ",1,0
endfunction

Set Window On : GoSub LoadCd

Do

Cls : Set Cursor 0,0
Print "Load New Cd=1, Previous Track=2, Next Track=3"
Input "Select Choice: ",Select

If Select=1 Then GoSub LoadCd
If Select=2 and Track_Active>1
Delete Music 1 : Dec Track_Active
Load CdMusic Track_Active,1 : Play Music 1
EndIf
If Select=3 and Track_Active<Total_Tracks
Delete Music 1 : Inc Track_Active
Load CdMusic Track_Active,1 : Play Music 1
EndIf

Loop

LoadCd:
If Music Exist(1)=1 Then Delete Music 1
Input "Cd Drive Letter: ",CdDrive$ : Print "Loading..." : Wait 1000
Set Dir CdDrive$+":" : Find First : Total_Tracks=0
Repeat : Find Next : Inc Total_Tracks : Until Get File Type()=-1
If Total_Tracks>0 Then Track_Active=1 : Load CdMusic 1,1 : Play Music 1
Return

Rem * Title  : Keyboard Entry
Rem * Author : DBS-LB
Rem * Date   : October 2001
rem C  D  P  P
rem o  i  l  r
rem m  s  a  o
rem p  k  y
rem a     e
rem c     r
rem t
rem ------------------------------
rem By Nick Aldwin
rem ------------------------------
rem *some code from other sources*


rem -SETUP-
rem Setup for no-key-repeat code
dim key(250) : dim oldkey(250)
rem Music track variable set to default of 1
tr=1
rem Hide mouse
hide mouse

rem -CD TRACK LOADING-
ltrack:
cls
rem Ink with blue and make text big for logo
ink rgb(0,0,255),0 : set text size 50
center text 320,20,"CDPP 2.1"
center text 320,80,"Compact Disk Player Pro 2.1"
rem Ink with red and make text normal
ink rgb(255,0,0),0 : set text size 12
center text 320,220,"Make sure there is a CD in your drive and enter a track number."
set cursor 270,240
rem Take user input for track #
input "Track #: ",tr
rem Load track into music #1
load cdmusic tr,1
cls
rem Ink with blue and make text big for logo
ink rgb(0,0,255),0 : set text size 50
center text 320,20,"CDPP 2.1"
center text 320,80,"Compact Disk Player Pro 2.1"
rem Ink with red and make text normal
ink rgb(255,0,0),0 : set text size 12
center text 320,240,"Music loaded.  Press any key to continue."
suspend for key
cls
shape=2

rem -MAIN CONTROLLER-
do
   rem Ink with blue and make text big for logo
   ink rgb(0,0,255),0 : set text size 50
   center text 320,20,"CDPP 2.1"
   center text 320,80,"Compact Disk Player Pro 2.1"
   rem Ink with yellow and make text normal
   ink rgb(255,255,0),0 : set text size 12
   rem No-key-repeat code
   for a = 1 to 250
      if key(a) = 1 then oldkey(a) = 1
      if keystate(a) = 1 and oldkey(a) = 0 : key(a) = 1 : else : key(a) = 0 : endif
      if keystate(a) = 0 then oldkey(a) = 0
   next a

   rem <P> key code
   if key(25)=1
      if music paused(1)=1
         cls
         resume music 1
         shape=0
         goto done
      else
         if music playing(1)=1
            cls
            pause music 1
            shape=1
            goto done
         else
            cls
            play music 1
            shape=0
            goto done
         endif
      endif
      done:
   endif
   rem <S> key code
   if key(31)=1
      if music playing(1)=1
         if music paused(1)=1
            cls
            resume music 1
            stop music 1
            shape=2
         else
            cls
            stop music 1
            shape=2
         endif
      endif
   endif
   rem <L> key code
   if key(38)=1
      gosub ltrack
   endif
   rem <X> key code
   if key(45)=1
      gosub bye
   endif
   rem <W> key code
   if key(17)=1
      cls
      set window on
   endif
   rem <F> key code
   if key(33)=1
      cls
      set window off
   endif
   rem Ink with red
   ink rgb(255,0,0),0
   rem Tell controls
   center text 320,200,"Press <P> to play/pause and <S> to stop."
   center text 320,240,"Press <L> to load a new track."
   center text 320,280,"Press <X> to quit."
   center text 320,320,"Press <W> to turn window mode on and <F> to turn it off."
   rem Ink with yellow
   ink rgb(255,255,0),0
   rem Make shape
   select shape
      case 0
         rem Play
         line 10,10,60,30
         line 10,60,60,30
         line 10,10,10,60
         endcase
      case 1
         rem Pause
         box 10,10,30,60
         box 40,10,60,60
         endcase
      case 2
         rem Stop
         box 10,10,60,60
         endcase
      case default
         rem Default (Stop)
         box 10,10,60,60
         endcase
   endselect
loop
rem -END OF PROGRAM-
rem Delete music
bye:
delete music 1
rem End the program
end

[path]
=INSERT THE PATH HERE