/*
** $VER: Expand.bed for BlacksEditor
**
*/

options results

if ~SHOW("Ports", "REXPAND") then do
	say "RExpand is not running!"
	exit
end

'GetWord'
if rc = 0 then do
	address REXPAND 'expand' result 'var rp requester reqscreen Blacks_Editor'
	if rc = 0 then do
		'DeleteWord'
		'Insert TEXT' rp
	end
end