home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CDPD Public Domain Collection for CDTV 4
/
CDPD_IV.bin
/
utilities
/
editors
/
ced-programs
/
rightshift.ced
< prev
Wrap
Text File
|
1994-06-23
|
763b
|
45 lines
/*
* RightShift.ced
*
* Shift the current block to the right, according to tabsize setting.
*
* Author: Stefan Winterstein (winter@cs.uni-sb.de)
* Status: Public Domain
*
*/
LF = '0A'X
TAB = '09'X
options results /* Allow CygnusEd to pass status variables */
address 'rexx_ced' /* Tell ARexx to talk to CygnusEd */
status 47 /* get current line number */
start = result
status 69 /* get start of block */
end = result
if end = -1 then do /* No block marked */
end = start+1 /* then work on current line */
end
if start > end then do /* swap start with end */
t = start
start = end
end = t
end
'jump to line' start+1 /* goto start of block */
do line = start while line < end
'beg of line'
'text' TAB
'down'
end
'beg of line'
exit