home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / comm / mail / thor / thor.lha / rexx / currentbbs.thor < prev    next >
Text File  |  1994-08-06  |  840b  |  34 lines
  1. /*
  2. **  currentbbs.thor - demonstrates the CURRENTBBS function (new for THOR 1.22)
  3. **
  4. **  Will return RC_WARN (5) in rc if there are no current BBS selected. 
  5. **  0 is returned if there were a BBS open in THOR.
  6. **
  7. **    Template:
  8. **
  9. **    STEM/A
  10. **
  11. **    STEM is the stem variable THOR will but the result into, and it must be
  12. **    supplied or this command will fail.  The stem variable must be in 
  13. **    uppercase.
  14. **  If the command returned success (0), the <stem>.BBSNAME will contain the
  15. **  name of the BBS currently in use, and <stem>.CONFNAME will contain the
  16. **  current conference on that BBS. Note that <stem>.CONFNAME will be empty
  17. **  ("") if there are no current conference selected. 
  18. **
  19. */
  20.  
  21. address "THOR.01"
  22.  
  23. CURRENTBBS stem CURRENT
  24.  
  25. if(rc ~= 0) then exit
  26.  
  27. say CURRENT.BBSNAME
  28.  
  29. if(CURRENT.CONFNAME ~= "") then
  30.     say CURRENT.CONFNAME
  31.  
  32. exit
  33.  
  34.