DEFLNG a-z

FUNCTION PBMAIN()
   STDOUT "plsdec"
   STDOUT "winamp m3u decoder"
   STDOUT
   x$ = TRIM$(COMMAND$)
   IF DIR$(x$) = "" OR x$ = "" THEN
      STDOUT "usage: plsdec filename.m3u"
      STDOUT
      EXIT FUNCTION
   END IF
   OPEN x$ FOR INPUT AS #1
   DO UNTIL EOF(1)
      LINE INPUT #1, y$
      IF LEFT$(y$, 8) = "#EXTINF:" THEN
         fc = INSTR(y$, ",")
         IF fc > 0 THEN
            STDOUT MID$(y$, fc+1)
         END IF
      END IF
   LOOP
   CLOSE #1
   STDOUT
   EXIT FUNCTION

END FUNCTION