/* Quick List Decode */

address spot
options results

signal on Syntax
signal on failure
options failat 20

parse arg area,lid,uupath

NL='0d'x

uude = 'spot/quicksearch'(area,"#?"NL"Begin ??? #?")

if uude>0 then do
	call 'spot/addtolist'(lid)
	uude='spot/uudecode'(uupath)
end

exit uude

syntax:
failure:

signal off failure
signal off syntax

parse source . . . program

program = subword(program,1,words(program)-2)

call 'spot/impmaster/imperror'(program,rc,sigl,sourceline(sigl))

exit

