home *** CD-ROM | disk | FTP | other *** search
/ ftp.texkom.ru / ftp.texkom.ru.tar / ftp.texkom.ru / Zay100.zip / Zay100 / Progs / Upak.prg < prev    next >
Text File  |  2001-04-24  |  492b  |  24 lines
  1. IF MESSAGEBOX (" ╙Σε±≥εΓσ≡≥σ±ⁿ, ≈≥ε Γ±σ ∩εδⁿτεΓα≥σδΦ Γ√°δΦ Φτ ∩≡επ≡α∞∞√." + CHR (13) +;
  2.             "                  ╧≡Φ±≥≤∩Φ≥ⁿ Ω ≤∩αΩεΓΩσ ┴─ ?", 36 , "╙∩αΩεΓΩα ┴─") = 6
  3. CLOSE TABLE ALL
  4. USE "&cPach" + "\Bin\Table1" IN 0 EXCL
  5. CD (cPach1)
  6.  
  7. USE ALLTRIM(Table1.cPach1) + "Fio" IN 0 EXCL
  8. SELECT fio
  9. PACK
  10. USE
  11.  
  12. USE ALLTRIM(Table1.cPach1) + "Kodi" IN 0 EXCL
  13. SELECT kodi
  14. PACK
  15. USE
  16.  
  17. USE ALLTRIM(Table1.cPach2) + "Za" IN 0 EXCL
  18. SELECT Za
  19. SELEC Za
  20. PACK
  21. USE
  22. SELECT Table1
  23. USE
  24. ENDIF