/**-----------------------------------------** Name: ml.the Author: Scott Mattes, I-Net Date: 96/11/15 I believe this macro to be in the public domain since I wrote it while on a U.S. contract. To simulate, and go alittle farther, the cl /string target/ command that isn't complete in THE. This saves me much time over using the arrow keys. Locates the line the target is in and then place the cursor at the beginning of the target. If anything is on the command line at the time of execution, then that is used as the target; otherwise the user is prompted for the target. The search starts at either the line the cursor is on or the focus line, depending. **-----------------------------------------**/ 'extract /cmdline/' if cmdline.3 = '' then do 'emsg Enter the target' 'readv cmdline' if readv.1 = '' then exit cmdline.3 = readv.1 end 'l /'cmdline.3'/' if rc <> 0 then exit rc 'extract /curline/line/' col = pos(cmdline.3,curline.3) 'cmsg' left(' ',length(cmdline.3)) 'hit c-m' 'cursor file' line.1 col