0 CLS:DIM BUFER$(50):N%=0
10 FOR I%=1 TO 49:BUFER$(I%)="":NEXT I%
20 BUFER$(0)="file://"
30 A$=READDIR$(BUFER$(N%)+"*"):X%=0:IF A$="" THEN GOTO 180
40 IF A$<>"" THEN X%=X%+1:A$=READDIR$(""):GOTO 40
50 DIM FILES$(X%):X%=0:A$=READDIR$(BUFER$(N%)+"*")
60 IF A$<>"" THEN FILES$(X%)=A$:X%=X%+1:A$=READDIR$(""):GOTO 60
75 IF N%=0 THEN PATH$=CHR$(1042)+CHR$(1099)+CHR$(1073)+CHR$(1086)+CHR$(1088)+" "+CHR$(1076)+CHR$(1080)+CHR$(1089)+CHR$(1082)+CHR$(1072)
80 V%=CHOICEFORM(PATH$,CHR$(1074)+CHR$(1099)+CHR$(1073)+CHR$(1086)+CHR$(1088),CHR$(1085)+CHR$(1072)+CHR$(1079)+CHR$(1072)+CHR$(1076),"",FILES$,0)
90 IF V%=-1 THEN N%=N%-1:GOTO 160
100 IF FILES$<>"" THEN GOTO 120
110 GOTO 80
120 IF RIGHT$(FILES$(V%),1)<>"/" THEN GOTO 150
130 N%=N%+1:BUFER$(N%)=BUFER$(N%-1)+FILES$(V%):IF N%=1 THEN BUFER$(N%)=BUFER$(N%-1)+"/"+FILES$(V%)
135 PATH$=RIGHT$(BUFER$(N%),LEN(BUFER$(N%))-8)
140 GOTO 30
150 I%=MESSAGEFORM("FM","ok","ok",CHR$(1087)+CHR$(1091)+CHR$(1090)+CHR$(1100)+" "+CHR$(1082)+" "+CHR$(1092)+CHR$(1072)+CHR$(1081)+CHR$(1083)+CHR$(1091),BUFER$(N%)+FILES$(V%)):GOTO 80
160 IF N%<0 THEN END
170 GOTO 30
180 I%=MESSAGEFORM(PATH$,CHR$(1085)+CHR$(1072)+CHR$(1079)+CHR$(1072)+CHR$(1076),CHR$(1085)+CHR$(1072)+CHR$(1079)+CHR$(1072)+CHR$(1076),CHR$(1055)+CHR$(1091)+CHR$(1089)+CHR$(1090)+CHR$(1086),""):N%=N%-1:GOTO 30
