home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / new / comm / fido / spot / rexx / all2userlist.spot < prev    next >
Text File  |  1993-12-21  |  895b  |  46 lines
  1. /* All2Userlist.spot © 1993 PSR Software */
  2. /* ¯¯¯¯¯¯¯¯¯¯¯¯             ¯¯¯¯¯¯¯¯¯¯¯¯ */
  3. /* '$VER: All2Userlist v2.0 (25.8.93)'   */
  4.  
  5. address SPOT
  6. options results
  7.  
  8. LF='0d'x
  9.  
  10. 'isiconified'
  11. if rc=0 then uniconify
  12. 'isarealist'
  13. if rc=0 then do
  14.    'requestnotify "Must be called from Message List or Message window"'
  15.    exit
  16. end
  17.  
  18. 'requestresponse TITLE "Sure?" PROMPT "Add all people in current'LF'area to userlist?" GADGETS "Yes|Abort"'
  19. if rc=0 then exit
  20.  
  21. 'getnummsgs'
  22. msgs=result
  23. cmsg=1
  24. added=0
  25.  
  26. 'firstmessage'
  27.  
  28. 'progressopen TITLE "Adding To Userlist" PROMPT "Hold on!"'
  29. prog=result
  30.  
  31. 'adduserlist NOREQ'
  32. if rc=0 then added=1
  33.  
  34. do until cmsg=msgs
  35.    'nextmessage'
  36.    cmsg=cmsg+1
  37.    'progressupdate' prog cmsg msgs 'PROMPT "'added' people added to userlist"'
  38.    if rc>0 then do
  39.       'progressclose' prog
  40.       exit
  41.    end
  42.    'adduserlist NOREQ'
  43.    if rc=0 then added=added+1
  44. end
  45. 'progressclose' prog
  46.