home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ANews 1
/
AnewsCD01.iso
/
Internet
/
Newsgroup
/
THOR_2.6
/
THOR26_AREXX.LHA
/
Rexx
/
Examples
/
Progress_ex.thor
< prev
next >
Wrap
Text File
|
1999-01-17
|
1KB
|
69 lines
/*
** $VER: Progress_Ex.thor 1.0 (6.9.95)
** - Example script for the progressbar functions in THOR 2.0
**
*/
options results
if(substr(address(),1,4) ~= "THOR") then do
parse arg thorport
if~(show(p, thorport)) then do
if ~(show(p, "THOR.01")) then do
say "No THOR port found!"
exit
end
else thorport = "THOR.01"
end
end
else thorport = address()
if ~show('p', 'BBSREAD') then do
address command
"run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
"WaitForPort BBSREAD"
end
signal on ERROR
address(BBSREAD)
GETBBSLIST stem BBSLIST
if(rc ~= 0) then
do
address(thorport)
REQUESTNOTIFY TEXT '"'BBSREAD.LASTERROR'"' BT '"_Ok"'
exit
end
address(thorport)
THORTOFRONT
OPENPROGRESS TITLE '"Progress Test"' AT '"_Abort"' PCW 30
if(rc = 0) then
do
window = result /* Important !!! */
do i=1 to BBSLIST.COUNT
/* Display bbsname and reset progressbar.*/
UPDATEPROGRESS REQ window TOTAL 50 PT '"'BBSLIST.i'"'
do n=1 to 50
/* Update progressbar 50 times for each bbs */
UPDATEPROGRESS REQ window CURRENT n
if(rc ~= 0) then do
/* Check if user aborted */
CLOSEPROGRESS REQ window
window = 0
leave
end
end
end
end
ERROR:
if(window ~= 0) then CLOSEPROGRESS REQ window
exit