home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / MWHO.CTL < prev    next >
Encoding:
Text File  |  1992-10-14  |  665 b   |  26 lines
  1. if (%MULTI%)=(TRUE) then goto (start)
  2. say(&CR&&11&Sorry, %FNAME%, this system is not running the Multinode version of the)
  3. say(Powerboard BBS Package.&CR&&CR&&3&If you feel this would be a good addition to the BBS, please contact)
  4. say(your Sysop, %SYSOP%.)
  5. goto (ewho)
  6. *start
  7. Seek(%CPAT%whoison.dat)
  8. If (%ARESP%)=(No) Then return
  9. linefeed(1)
  10. setequal(w=0)
  11. size(%CPAT%whoison.dat)
  12. display(display\who)
  13. divvar(%ARESP%/131=y)
  14. do
  15. inc(w)
  16. nodestat(%var%w)
  17. say(&11&%var%w&15&    %NAVAIL%&7&  %NNAME% %NFROM% %NBAUD%%hRed%%NACTIVITY%)
  18. If (&w)=(&y) then goto (ewho)
  19. loop
  20.  
  21.         *ewho
  22. linefeed(1)
  23. log(--,Viewed other node users (WHO))
  24. Enter
  25. Return
  26.