home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ANews 1
/
AnewsCD01.iso
/
Internet
/
Newsgroup
/
THOR_2.6
/
THOR26_AREXX.LHA
/
Rexx
/
Examples
/
ShowPicture_ex.thor
< prev
next >
Wrap
Text File
|
1999-01-17
|
378b
|
27 lines
/*
* $VER: ShowPicture_ex.thor 1.0 (6.9.95)
* - example program for the SHOWPICTURE function
*
*/
options results
thorport = address()
REQUESTFILE title '"Select picture to view:"' id '"s:"' 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