/*
 *
 *  ShowPicture_ex.thor - example program for the SHOWPICTURE function
 *
 */

options results

thorport = address()

REQUESTFILE title '"Select picture to view:"' id '"denise:datafiles/pictures/"' fullpath
if(rc ~= 0) then
do
	if(rc = 30) then say THOR.LASTERROR
	exit
end

filename = result

SHOWPICTURE file '"'filename'"'
if(rc = 30) then
do
	say THOR.LASTERROR
end

exit