home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 3 / CDASC03.ISO / sorties / 2078 / ascii.kml < prev    next >
Encoding:
Text File  |  1993-04-01  |  954 b   |  29 lines

  1. : > filter Alt-input and national characters to Ascii
  2. :ASCII
  3.     C = D2C(ARG(1));
  4.     if INSERTMODE() then 'macro USEASCII text #'C; else 'text' C;
  5. : > change characters after "#" according to Ascii table and execute argument
  6. :USEASCII
  7.     A = ARG(1); P = POS( '#' , A ); 'editv getf ASCII.0';
  8.     M = SUBSTR( A , 1 , P-1 ); T = SUBSTR( A , P+1 ); I = 0;
  9.     if ASCII.0 \= '' then
  10.         do
  11.         S = 1; V = '';
  12.         do U = 1 to LENGTH( T );
  13.             K = SUBSTR( T , U , 1 ); if K <<= '' then iterate;
  14.             if \ I then
  15.                 do
  16.                 I = 1; $C = 'macro LOCATECURS' CURSOR.3() FIELD.3() FILEID.1();
  17.                 'cursor cmdline'; 'point .WINDLINE';
  18.                 'kedit' ASCII.0 '(profile HIDDEN'; ASCII.0 = FILEID.1();
  19.                 end
  20.             'move 1 :0'; 'top';
  21.             'nomsg find' K; if RC = 0 then K = SUBSTR( CURLINE.3() , 3 );
  22.             V = V || SUBSTR( T , S , U-S ) || K; S = U+1;
  23.         end
  24.         T = V || SUBSTR( T , S );
  25.         end
  26.     if I then
  27.         do; 'set alt' ALT.1() '0'; $C; 'editv putf ASCII.0'; end
  28.     M || T;
  29.