home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / sprint / hident.zip / HIDENT.SPM
Text File  |  1989-07-02  |  1KB  |  29 lines
  1.  
  2.         ; in order to replace all control characters with their
  3.         ; equivalent ^<letter> combinations from the cursor position
  4.         ; to the end of the current region simply summon this macro
  5.         ;
  6.         ; the conversion will delete all translated characters except
  7.         ; <newline> so that the translated text remains split into the
  8.         ; same lines as it was before.
  9.         ; 
  10.         ; I find this useful to grab a region of text that I want to
  11.         ; reproduce in a macro, paste it into the macro file, translate 
  12.         ; it and away I go.
  13.         ;
  14.         ; created by : Ken Westerback 73547, 3520
  15.         ;
  16.         ; ( with a little help from the Cap'n )
  17.         
  18. crtascii :
  19.        int crrchr
  20.        markregion
  21.        do { if (current < 32) { current -> crrchr 
  22.                                 if !isnl del ; keeps lines separated
  23.                                 insert "^" 
  24.                                 crrchr+64 
  25.                                 insert 
  26.                               }
  27.             c ;<--- VERY important if you want to avoid being trapped here!  
  28.            } while before themark
  29.