Граф.файл менеджер

basic mobile basic
  1. 0 CLS:DIM BUFER$(50):N%=0
  2. 10 FOR I%=1 TO 49:BUFER$(I%)="":NEXT I%
  3. 20 BUFER$(0)="file://"
  4. 30 A$=READDIR$(BUFER$(N%)+"*"):X%=0:IF A$="" THEN GOTO 180
  5. 40 IF A$<>"" THEN X%=X%+1:A$=READDIR$(""):GOTO 40
  6. 50 DIM FILES$(X%):X%=0:A$=READDIR$(BUFER$(N%)+"*")
  7. 60 IF A$<>"" THEN FILES$(X%)=A$:X%=X%+1:A$=READDIR$(""):GOTO 60
  8. 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)
  9. 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)
  10. 90 IF V%=-1 THEN N%=N%-1:GOTO 160
  11. 100 IF FILES$<>"" THEN GOTO 120
  12. 110 GOTO 80
  13. 120 IF RIGHT$(FILES$(V%),1)<>"/" THEN GOTO 150
  14. 130 N%=N%+1:BUFER$(N%)=BUFER$(N%-1)+FILES$(V%):IF N%=1 THEN BUFER$(N%)=BUFER$(N%-1)+"/"+FILES$(V%)
  15. 135 PATH$=RIGHT$(BUFER$(N%),LEN(BUFER$(N%))-8)
  16. 140 GOTO 30
  17. 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
  18. 160 IF N%<0 THEN END
  19. 170 GOTO 30
  20. 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
Назад

Реклама

Мы в соцсетях

tw tg yt gt