/* Select range by cursors - mark range crsr dn - Case 28-10-95 */

address OCTAMED_REXX
options results

'rn_isranged var rn_state'

if rn_state = 0
	then do
		'ed_advanceline down'
		exit
	end
else
	'ed_advanceline down'
	'ed_getcurrline var currline'
	'rn_getrangestartline var rnstartline'	
	'rn_getrangeendline var rnendline'
	'ed_getcurrtrack var currtrack'
	if currline > rnendline
		then do
			rnendline = currline
			'rn_setrange starttrack' currtrack 'startline' rnstartline 'endtrack' currtrack 'endline' rnendline
			exit
		end
	else
	if currline < rnstartline
		then do
			rnendline = rnstartline
			rnstartline = currline
			'rn_setrange starttrack' currtrack 'startline' rnstartline 'endtrack' currtrack 'endline' rnendline
			exit
		end
	else
	rnstartline = currline
	'rn_setrange starttrack' currtrack 'startline' rnstartline 'endtrack' currtrack 'endline' rnendline
exit