@echo off 
 for %%c in (%FTP%\%MES%\#_???_??.uch) do del %%c > nul 
 rem PUT to FTP 
 echo ===== Put,Dir ====== > ftp_win.txt 
 ftp.exe -v -n -s:_____ -w:8192 ##### >> ftp_win.txt 
 %PLL%\dbu.exe ^.\SCRIPT\umz_err.prg 
 if exist ftp.err goto e 
 rem DIR from FTP 
 %PLL%\dbu.exe ^.\SCRIPT\umz_dir.prg 
 rem GET from FTP 
 echo ===== Get ========== >> ftp_win.txt 
 ftp.exe -v -n -s:----- -w:8192 ##### >> ftp_win.txt 
 %PLL%\dbu.exe ^.\SCRIPT\umz_err.prg 
 if exist ftp.err goto e 
 if exist ftp_dir.lst copy ftp_dir.lst  %FTP%\%MES%\dir.lst > nul 
 if exist ftp_dir.lst del  ftp_dir.lst  > nul 
 if exist ftp.get del ftp.get > nul 
 if exist ftp.lst del ftp.lst > nul 
 for %%c in (%FTP%\%MES%\#_???_??.uch) do Call .\SCRIPT\uch_tst.bat %%c 
 :e 
 if exist ftp.blk del  ftp.blk > nul 
 

 
 m->Q0="FTP_WIN" 
 aRead(m->Q0+".TXT","aFtp_Win",1) 
 m->J2=len(m->aFtp_Win) 
 fErase("FTP.ERR") 
 FOR m->J1=1 TO m->J2 
     IF "Not conn" $ aFtp_Win[m->J1] 
         tone(5000,1) 
         mWrite("FTP.ERR","Not connected",1) 
         m->J3=sv_wnd(24,0,24,79) 
         Say(24,0,tm0("FTP not connected",80),79) 
         inkey(0) 
         rs_wnd(m->J3) 
         QUIT 1 
     ENDIF 
 NEXT 
 QUIT 
 

 
 m->J0="FTP_WIN.LST" 
 m->S0="FTP_GET.LST" 
 IF ! file(m->J0) 
    m->J1=mGIniC([S_NET.INI],[FTP],"User") 
    m->J2=mGIniC([S_NET.INI],[FTP],"Password") 
    mWrite(m->J0,"user "+m->J1+" "+m->J2+chr(13)+chr(10),1) 
    mWrite(m->S0,"user "+m->J1+" "+m->J2+chr(13)+chr(10),1) 
    m->J1=mGIniC([S_NET.INI],[FTP],"CurDir") 
    mWrite(m->J0,"mkdir "+m->J1+chr(13)+chr(10)) 
    mWrite(m->J0,"cd "+m->J1+chr(13)+chr(10)) 
    mWrite(m->S0,"cd "+m->J1+chr(13)+chr(10)) 
    mWrite(m->J0,"mkdir "+m->Q2+chr(13)+chr(10)) 
    mWrite(m->J0,"cd "+m->Q2+chr(13)+chr(10)) 
    mWrite(m->S0,"cd "+m->Q2+chr(13)+chr(10)) 
    mWrite(m->J0,"lcd "+m->Q1+chr(13)+chr(10)) 
    mWrite(m->S0,"lcd "+m->Q1+chr(13)+chr(10)) 
    mWrite(m->J0,"lcd "+m->Q2+chr(13)+chr(10)) 
    mWrite(m->S0,"lcd "+m->Q2+chr(13)+chr(10)) 
    mWrite(m->J0,"type binary"+chr(13)+chr(10)) 
    mWrite(m->S0,"type binary"+chr(13)+chr(10)) 
 ENDIF 
 IF "PUT" $ m->Q5 
    m->J9=m->Q4+"_"+m->Q3+".UCH" 
    mWrite(m->J0,"put "+m->J9+" "+"#_"+m->J9+chr(13)+chr(10)) 
    mWrite(m->J0,"delete "+m->J9+chr(13)+chr(10)) 
    mWrite(m->J0,"rename "+"#_"+m->J9+" "+m->J9+chr(13)+chr(10)) 
 ENDIF 
 IF "DIR" $ m->Q5 
    mWrite(m->J0,"lcd .. "+chr(13)+chr(10)) 
    mWrite(m->J0,"lcd .. "+chr(13)+chr(10)) 
    mWrite(m->J0,"dir "+chr(13)+chr(10)) 
    mWrite(m->J0,"quit "+chr(13)+chr(10)) 
    m->J0="FTP_WIN" 
    m->J1=mRead(".\SCRIPT\"+m->J0+".BAT") 
    m->J2=mGIniC([S_NET.INI],[FTP],"Server") 
    m->J1=StrTran(m->J1,"_____",".\"+m->J0+".LST") 
    m->J1=StrTran(m->J1,"-----",".\"+m->S0) 
    m->J1=StrTran(m->J1,"#####",m->J2) 
    mWrite(".\"+m->J0+".BAT",m->J1,1) 
 ENDIF 
 QUIT 
 

 
 FUNCTION NUM_KOD0( nKod )    // число в код 
  
   IF valtype( nKod ) == "N"; RETURN baNUM_KOD3( nKod ) 
   ENDIF 
  
 RETURN "000" 
  
 FUNCTION KOD_NUM0( cKod )   // код  в число 
  
   IF valtype( cKod ) == "C"; RETURN baKOD3_NUM( cKod ) 
   ENDIF 
  
 RETURN 0 
  
 FUNCTION KOD_ADD0( cKod )   // к коду + 1 (инкремент) 
  
   IF valtype( cKod ) == "C"; RETURN baNUM_KOD3( baKOD3_NUM(cKod) + 1 ) 
   ENDIF 
  
 RETURN cKod 
  
 STATIC FUNCTION baKOD3_NUM( cKod3 ) 
 LOCAL dwKd3 := 0, dwKd, dwBase, ind := 48, Max_Kod := 239 
  
   dwBase := MAX_KOD - IND + 1  
  
   dwKd   :=  Asc( SubS(cKod3, 1, 1) ) 
   dwKd   :=  iif( dwKd < IND .OR. dwKd > MAX_KOD, IND, dwKd) - IND 
   dwKd3  :=  dwKd * dwBase * dwBase 
  
   dwKd   :=   Asc( SubS(cKod3, 2, 1) ) 
   dwKd   :=   iif( dwKd < IND .OR. dwKd > MAX_KOD, IND, dwKd) - IND 
   dwKd3  +=  (dwKd * dwBase) 
  
   dwKd   :=   Asc( SubS(cKod3, 3, 1) ) 
   dwKd   :=   iif( dwKd < IND .OR. dwKd > MAX_KOD, IND, dwKd) - IND 
  
 RETURN (dwKd3 + dwKd) 
  
 STATIC FUNCTION baNUM_KOD3( nKod ) 
 LOCAL dwBase, dwKd2, dwKd, dwMax, cKod, ind := 48, Max_Kod := 239 
  
   dwBase := MAX_KOD - IND + 1 
  
   dwKd2  := dwBase * dwBase 
   dwMax  := dwKd2 * dwBase - 1 
  
   IF nKod < 0 .OR. nKod > dwMax;  RETURN "000" 
   ENDIF 
  
   dwKd  := int(nKod / dwKd2) 
   cKod  := CHR( dwKd + IND ) 
  
   nKod  -= (dwKd * dwKd2) 
   dwKd  := int(nKod / dwBase) 
  
   cKod  += CHR( dwKd + IND ) 
  
   nKod  -= (dwKd * dwBase) 
   dwKd  := nKod 
  
 RETURN (cKod + CHR( dwKd + IND ))