home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Scripts / Snooper < prev    next >
Encoding:
Text File  |  1996-07-09  |  590 b   |  34 lines
  1. {
  2. | NewsFlash snooper script
  3.  
  4. REPORT "NewsFlash Snoop"
  5. STD NL
  6. BATTR 3,4
  7. PRINT "N e w s F l a s h -  S n o o p e r"
  8. CLL NL
  9. BATTR 2,4
  10. TAB 0  PRINT "Line #"
  11. TAB 10 PRINT "Baud"
  12. TAB 18 PRINT "User #"
  13. TAB 28 PRINT "User name"
  14. TAB 48 PRINT "Where"
  15. CLL STD NL
  16. thisline%=1
  17. REPEAT
  18.   READLINE thisline%,baud%,user%,area
  19.   IF baud% THEN
  20.     READUSER user%,0,usern
  21.     TAB 1  PRINT thisline%
  22.     TAB 10 PRINT baud%
  23.     TAB 18 PRINT user%
  24.     TAB 28 PRINT usern
  25.     TAB 48 PRINT area
  26.     NL
  27.   ENDIF
  28.   thisline%=thisline%+1
  29. UNTIL thisline%>16
  30. | hmm we are no longer limited to 16 lines
  31. NL
  32. GOSUB anykey
  33. }
  34.