home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Notes / Usefulbits / System < prev    next >
Encoding:
Text File  |  1996-07-09  |  855 b   |  39 lines
  1. {
  2. | BBS system info
  3. | CD's version tidied up
  4.  
  5. REPORT "System Info"
  6. STD CLS
  7. STARTMORE
  8. BATTR 1,0
  9. NL
  10. PRINT "System information:" NL
  11. NL
  12. BFG 2 PRINT "Taskload : " BFG 3 PRINT TASKLOAD BFG 2 PRINT "tasks" NL
  13. BFG 2 PRINT "Free mem : " BFG 3 PRINT (FREEMEM/1024) BFG 2 PRINT "K" NL
  14. BFG 2 PRINT "Used mem : " BFG 3 PRINT (USEDMEM/1024) BFG 2 PRINT "K" NL
  15. NL
  16. PRINT "Tasklist :" NL
  17. NL
  18. BFG 3
  19. DECLARE name,32
  20. code%=0
  21. REPEAT
  22.   READUSERTASK code%,code%,name,mem%
  23.   IF code%>=0 THEN
  24.     BFG 1 TAB 0  PRINT name
  25.     BFG 5 TAB 20 PRINT (mem%/1024)+"K"
  26.     NL
  27.   ENDIF
  28. UNTIL code%<0
  29. NL
  30. BFG 2 
  31. PRINT "NewsFlash server details:"
  32. NL
  33. BFG 2 PRINT "Version       : " BFG 3 PRINT NFVERSION NL
  34. BFG 2 PRINT "Assembly Date : " BFG 3 PRINT ASSMDATE NL
  35. BFG 2 PRINT "OS version    : " BFG 3 PRINT OSVERSION NL
  36. BFG 2 PRINT "Front End     : " BFG 3 PRINT FEVERSION NL
  37. GOSUB anykey
  38. ENDMORE
  39. }