/*
 *
 *  ShowText_ex.thor - example program for the SHOWTEXT function
 *
 */

options results

thorport = address()

REQUESTFILE title '"Select text file to view:"' id '"s:"' fullpath
if(rc ~= 0) then
do
	if(rc = 30) then say THOR.LASTERROR
	exit
end

filename = result

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

exit