0 CLS
2 PATH$=""
5 DIM DLINA%(30)
10 SCHETCHIK%=0
15 PATHS$="file:///e:/"
20 DLINA%(SCHETCHIK%)=LEN(PATHS$)
30 ZWEZDA$="*"
40 A%=1
50 C$=PATHS$+ZWEZDA$
60 D$=""
70 D$=READDIR$(C$)
80 IF D$<>"" THEN A%=A%+1:D$=READDIR$(""):GOTO 80
90 DIM PAPKA$(A%)
95 PAPKA$(0)=" .  ."
100 A%=1
110 D$=READDIR$(C$)
120 IF D$<>"" THEN PAPKA$(A%)=D$:A%=A%+1:D$=READDIR$(""):GOTO 120
130 I%=CHOICEFORM(CHR$(57600)+" File Manager","Yes","Exit","",PAPKA$,0)
140 IF I%=-1 THEN END
150 IF I%=0 AND SCHETCHIK%=0 THEN GOTO 130
160 IF I%=0 THEN SCHETCHIK%=SCHETCHIK%-1:PATHS$=LEFT$(PATHS$,DLINA%(SCHETCHIK%)):GOTO 40
170 IF RIGHT$(PAPKA$(I%),1)<>"/" THEN GOTO 220
180 DLINA%(SCHETCHIK%)=LEN(PATHS$)
190 SCHETCHIK%=SCHETCHIK%+1
200 PATHS$=PATHS$+PAPKA$(I%)
210 GOTO 40
220 PATH$=PATHS$+PAPKA$(I%)
230 PRINT PATH$:PRINT ""
240 PRINT PATHS$:PRINT ""
250 PRINT PAPKA$(I%)
