/*
** $VER: AMPlifier.dopus 0.9ß (14-06-2k2) by <peejay@poczta.fm>
*/

AMPExe = 'dh0:Muzyka/MPx/AMPlifier'

OPTIONS RESULTS

test		=	0
pliki.	=	''
x			=	1

'Status 7 -1'
	wyb = RESULT
GetSelectedFiles ';'
	pli = RESULT

'None'

'Status 13'
	kat = RESULT

dlu = LENGTH(pli)

DO y = 1 TO dlu
	IF SUBSTR(pli, y, 1) ~= ';' THEN DO
		pliki.x = pliki.x || SUBSTR(pli, y, 1)
		END
	IF SUBSTR(pli, y, 1) = ';' THEN DO
		x = x + 1
	END
END

x = x - 1

IF ~SHOW('P', 'AMPLIFIER.1') THEN DO
   ADDRESS COMMAND 'Assign >NIL: PROGDIR: ' || AMPExe || ' ADD'
   ADDRESS COMMAND 'RunBack >NIL: C:RunIcon ' || AMPExe || '/AMPlifier'
   test = 1
	END
ENDIF

IF SHOW('P', 'AMPLIFIER.1') THEN DO y = 1 TO x
	ADDRESS 'AMPLIFIER.1'
	ADD kat || pliki.y
	test = 2
	END
ENDIF

DO WHILE RC ~=0
	ADDRESS COMMAND WAITFORPORT 'AMPLIFIER.1'
END

IF test THEN DO
   WHILE TIME('E') < 10
   END
ENDIF

IF test = 1 THEN DO
	ADDRESS 'AMPLIFIER.1' OPEN kat || pliki.1
	ADDRESS 'AMPLIFIER.1' PLAY
	END
ENDIF

IF x > 1 & test ~= 2 THEN DO y = 2 TO x
	ADDRESS 'AMPLIFIER.1'
	ADD kat || pliki.y
	END
ENDIF

LAB Koniec
	exit 0