'===========================================================================
' Subject: COLORFUL MP3 PLAYER FOR BASEC     Date: 04-23-99 (01:36)       
' Author:  Oliver Rigby AKA Tirin            Code: BEC                    
' Origin:  tirin@btinternet.com            Packet: BASEC.ABC
'===========================================================================
' MP3 BASEC PLAYER - Based on Simple MP3 Player for BASEC by William Yu.
' I've added colour, added load, added file checker and Quit Checker,
' auto uppercase filename. Looks a bit better, All I need to figure out is
' ID3 tags and Graphics.........
'
'Oliver Rigby AKA Tirin
'I can't beleive it's made with Basec, for a fresh Basic taste!

Start: CLS
False = 0: True = NOT False
REPEAT = TRUE
LOCATE 1, 30
COLOR 4
PRINT ">>MP3 BASEC PLAYER<<
LOCATE 2
COLOR 1
?">>"
LOCATE 2, 79
COLOR 1
?"<<"
LOCATE 2, 20
COLOR 15
INPUT "Enter the filename: ", filename$
UCASE=(filename$)
CLS
REPEAT = 1
MP3.PLAY(filename$, repeat)
IF MP3.RUN < 0 THEN GOTO DEAD
COLOR 4
RES: LOCATE 1, 30
?">>MP3 BASEC PLAYER<<
LOCATE 2, 10
COLOR 5
?">>  Playing... ";filename$:?
LOCATE 2, 50
COLOR 10
?"Sample rate: ";mp3.samprate; " <<"
LOCATE 3, 10
COLOR 9
?">>  Bit rate: ";mp3.bitrate; 
LOCATE 3, 50
COLOR 8
?"Stereo: ";
IF MP3.STEREO = false THEN
  ?"No         <<"
  ELSE
  ?"Yes        <<"  
END IF
COLOR 13
LOCATE 4, 10
?"[   ESC = Exit, T = TurnTable Scratch R = Rewind L = Load   ]":?
res2: LOCATE 30
 WHILE (mp3.run >= 0)
SKIP: A$=inkey$
  IF UCASE$(A$)="R" then
   MP3.REPLAY
 ELSEIF UCASE$(A$)=chr$(27) THEN
   GOTO EXITLOOP
 ELSEIF UCASE$(A$)="T" THEN
  GOTO TT
 ELSEIF UCASE$(A$)="L" THEN
  GOTO LOAD
 END IF
 IF A$<>"" THEN ?A$;
WEND
EXITLOOP:
LOCATE 25
INPUT "Are you sure you want to quit: ", b$
IF UCASE$(b$) = "Y" THEN GOTO DIE
CLS
GOTO RES
DIE:
MP3.FREE
END
LOAD: MP3.FREE
GOTO START
DEAD: PRINT "File not found...."
END
TT: LOCATE
DO
LOOP UNTIL INKEY$ = " "
GOTO RES2