10 CLS
REM ÑÒÀÐÒÎÂÛÅ ÄÀÍÍÛÅ
11 DIM TW$(999): DIM W$(999)
13 TW$(0)="file://":MW%=0
20 A$=TW$(MW%)+"*"
21 N%=0: X%=0
REM Ñ×ÈÒÛÂÀÅÌ ÄÈÑÊÈ, ÔÀÉËÛ, ÏÀÏÊÈ Ñ ÒÅÊÓÙÅÉ ÄÈÐÅÊÒÎÐÈÈ
110 NAME$=READDIR$(A$)
111 IF NAME$="" TH GS 200
120 GS 150
130 NAME$=READDIR$("")
131 IF NAME$="" TH GS 200
140 GS 150
141 GT 130
150 W$(X%)=NAME$
160 N%=N%+1:X%=X%+1
170 RET
REM ÂÒÎÐÈ×ÍÛÉ ÈÍÒÅÐÔÅÉÑ - ÎÊÍÎ Ñ ÔÀÉËÀÌÈ È ÏÀÏÊÀÌÈ
175 IF TW$(MW%)="file://" TH GT 270
180 DL%=N%-1:L%=CF("MFmanager","Âûáîð","Íàçàä","Ôàéëû",BW$,0)
181 IF L%=-1 TH MW%=MW%-1:GT 20
182 FOR I%=0 TO DL%
185 IF L%=I% TH FW$=TW$(MW%)+BW$(I%):ML$=TW$(MW%):DT$=BW$(I%):MW%=MW%+1:TW$(MW%)=FW$:GS 320:GT 20
186 NEXT I%
200 IF N%=0 TH ALERT "MFmanager","Ïàïêà ïóñòà","",3,0:SL 2000:MW%=MW%-1:GT 20
REM ÑÎÐÒÈÐÓÅÌ ÑÏÈÑÎÊ, ÎÑÒÀÂËßÅÌ ÒÎËÜÊÎ WAV ÔÀÉËÛ È ÏÀÏÊÈ
210 SUMFILE%=-1:DIM NOMFILE%(N%)
211 DN%=N%-1
220 FOR I%=0 TO DN%
221 filemon%=0:format$=""
222 FOR T%=1 TO LEN(W$(I%))
223 IF filemon%=1 then format$=format$+MID$(W$(I%),T%,1):GOTO 225
224 IF MID$(W$(I%),T%,1)="." THEN filemon%=1
225 NEXT T%
230 IF filemon%=0 or (filemon%=1 and format$="wav") THEN SUMFILE%=SUMFILE%+1:NOMFILE%(SUMFILE%)=I%
240 NEXT I%
241 DIM BW$(SUMFILE%+1)
242 FOR I%=0 TO SUMFILE%
243 BW$(I%)=W$(NOMFILE%(I%))
244 NEXT I%
250 GT 175
260 RET
REM ÍÀ×ÀËÜÍÛÉ ÈÍÒÅÐÔÅÉÑ - ÎÊÍÎ Ñ ÄÈÑÊÀÌÈ
270 BL%=N%-1
271 FN%=CF("MFmanager","Âûáîð","Âûõîä","Äèñêè",BW$,0)
280 IF FN%=-1 TH END
290 FOR I%=0 TO BL%
300 IF FN%=I% TH FT$=TW$(0)+"/"+BW$(I%):MW%=MW%+1:TW$(MW%)=FT$:GT 20
305 NEXT I%
310 END
320 DW$=RIGHT$(TW$(MW%),1)
330 IF DW$<>"/" TH GS 355
350 RET
REM ÌÅÍÞ ÏÐÈ ÂÛÁÎÐÅ ÔÀÉËÀ
355 LX%=SEL("Îïöèè","Îòêðûòü","Íàçàä")
360 IF LX%=0 TH GT 450
400 IF LX%=1 TH MW%=MW%-1:GT 350
420 RET
REM ÏÅÐÅÌÅÍÍÀß TW$(MW%) ÑÎÄÅÐÆÈÒ Â ÑÅÁÅ ÏÎËÍÛÉ ÏÓÒÜ È ÈÌß ÂÛÁÐÀÍÍÎÃÎ ÔÀÉËÀ
450 PRINT TW$(MW%)
460 REPAINT: SLEEP 5000: END



