/* Kill block - Case 18-10-95 */

address OCTAMED_REXX
options results

'wi_request "Kill block?" "Full block|Only following notes|Cancel"'; answer = result
if answer ~= 0 
	then do
	if answer = 2
	then do
		'op_update off'
		'ed_getcurrtrack var currtrack'
		'ed_getnumtracks var numtracks'
		'ed_goto line' currline 'track 0'
			do until numtracks = 0
			'ed_killnotes currtrack'
			'ed_gototrack nextnote'
			numtracks = numtracks - 1
			end
		'ed_goto track' currtrack
		'op_update on'
		'wi_showstring KILLED'
	end
	else do
		'op_update off'
		'ed_getcurrline var currline'
		'ed_getcurrtrack var currtrack'
		'ed_getnumtracks var numtracks'
		'ed_goto line 0 track 0'
			do until numtracks = 0
			'ed_killnotes currtrack'
			'ed_gototrack nextnote'
			numtracks = numtracks - 1
			end
		'ed_goto line' currline 'track' currtrack
		'op_update on'
		'wi_showstring KILLED'
	end
else
exit