home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / ADD / TEXTPAK.ADD < prev   
Text File  |  2001-03-14  |  1KB  |  65 lines
  1. { Vyºaduje jednotku Crt;                     }
  2. { Procedure Zakoduj zakóduje textov∞ soubor  }
  3. { a procedure Okoduj takto zakódovan∞ soubor }
  4. { vrátí zp╪t do pàvodního tvaru.             }
  5.  
  6. Main Zakoduj(JmSou:string);
  7. variable
  8.   text~f,ft;
  9.   string[79]~z;
  10.   byte~c;
  11.   integer~i;
  12.   string~JmKod;
  13.  
  14. DefFrom ErrRead, ErrVV;
  15. :>proc>
  16.   OpenF@ErrVV(f,JmSou);
  17.   let JmKod : Copy(JmSou,1,length(JmSou)-3);
  18.   CreateF@ErrVV(ft,JmKod+'byt');
  19.   :loop>
  20.     Readln@ErrRead(f,z);
  21.     for i,1/length(z) part
  22.       c == Ord(z[i]); 
  23.       c == c + 1;  
  24.       z[i] == Chr(c);
  25.     :for<
  26.     writeln(ft,z);
  27.   :loop< Eof(f);
  28.   @ErrRead<
  29.   Close(f);
  30.   Close(ft);
  31.   WipeF@ErrVV(f,JmSou);
  32.   RenameF@ErrVV(ft,JmKod+'byt',JmSou);
  33.   @ErrVV<
  34. :<proc<
  35.  
  36. Main Odkoduj(JmKod:string);
  37. variable
  38.   text~f,ft;
  39.   string[79]~z;
  40.   byte~c;
  41.   integer~i;
  42.   string~JmSou;
  43.  
  44. DefFrom ErrRead, ErrVV;
  45. :>proc>
  46.   OpenF@ErrVV(f,JmKod);
  47.   let JmSou : Copy(JmKod,1,length(JmKod)-3);
  48.   CreateF@ErrVV(ft,JmSou+'byt');
  49.   :loop>
  50.     Readln@ErrRead(f,z);
  51.     for i,1/length(z) part
  52.      c == Ord(z[i]); 
  53.      c == c - 1; 
  54.      z[i] == Chr(c);
  55.     :for<
  56.     writeln(ft,z);
  57.   :loop< Eof(f);
  58.   @ErrRead<
  59.   Close(f);
  60.   Close(ft);
  61.   WipeF@ErrVV(f,JmKod);
  62.   RenameF@ErrVV(ft,JmSou+'byt',JmKod);
  63.   @ErrVV<
  64. :<proc<
  65.