/**
 **  $VER: IndentRight.quill 1.0 (27.9.94)
 **  By Timothy J. Aston
 **
 **  Indents the current line, or all lines with the currently marked block
 **  by a tab.
 **
 **/


/* Some setup first.
 */
options results
options failat 200

TAB = d2c(9)

main:
	/* Make sure rexxsupport.library is there, just in case we need it.
	 */
	if ~show(l, 'rexxsupport.library') then do
		if ~addlib('rexxsupport.library', 0, -30) then do
			'REQUESTNOTIFY' '"Could not build project:'NL' · libs:rexxsupport.library not installed"'
			exit 10
		end
	end

	/* Get the starting and stopping lines.
	 */
	'GETATTR PROJECT MARKINGBLOCK VAR' markingblock
	if markingblock = TRUE then do
		'GETATTR PROJECT BLOCKSTARTLINE VAR' startline
		'GETATTR PROJECT BLOCKENDLINE VAR' endline
		'MARK'
	end
	else do
		'GETATTR PROJECT LINE VAR' startline
		endline = startline
	end

	/* Add a tab to the beginning of each line.
	 */
	'GOTOLINE' startline
	'GOTOCOLUMN' '1'
	do i = startline to endline
		'TEXT' '"'TAB'"'
		'COLUMN' '-1'
		'LINE' '1'
	end

	exit
blah