home *** CD-ROM | disk | FTP | other *** search
/ Lion Share / lionsharecd.iso / bbs_oth / mfix0709.zip / MBS50709.FIX < prev    next >
Text File  |  1992-07-09  |  4KB  |  101 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against E:\RBBS\TEMP\RBBSSUB5.BAS to produce E:\RBBS\CHAT\RBBSSUB5.BAS
  3. * E:\RBBS\TEMP\RBBSSUB5.BAS:  Date 7-7-1992  Size 125539 bytes
  4. * ------------[ Created 07-09-1992 06:37:48 ]------------
  5. * REPLACING old line(s) by new
  6. 64998 ZAutoEnd = 1
  7.       Call SkipLine (2)
  8.       END SUB
  9. '
  10. ' ****  S - COMMAND FROM UTILITY MENU (STATISTICS)  ***  'Pe 09/02/91
  11. '
  12. SUB Statistics (CallsToDate!,ActiveMessages,HighMsgNumber,HighestMsgRecord,CurUserCount,MaxMsgs) STATIC
  13.       ActionFlag = ZTrue
  14.       IF ZActiveMessageFile$ = ZPrevBase$ THEN _
  15.         ActionFlag = ZFalse
  16.      CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " Node " + ZNodeID$)
  17.      ZOutTxt$ = ""
  18.      IF NOT ZConfMode THEN _
  19.            ZOutTxt$ = "Caller Number................"+STR$(CallsToDate!) + "  "+ZCrLf$
  20. ZOutTxt$ = ZOutTxt$ + "Active Messages.............."+STR$(ActiveMessages)+ZCrLf$
  21. ZOutTxt$ = ZOutTxt$ + "Next Msg Number.............."+STR$(HighMsgNumber + 1)+ZCrLf$
  22.      IF ZLastMsgRead > 0 THEN _
  23.      ZOutTxt$ = ZOutTxt$ + "Last msg you read............" + STR$(ZLastMsgRead)+ZCrLf$ _
  24.      ELSE ZOutTxt$ = ZOutTxt$ + "You Have NOT Read Any Messages Yet !" +ZCrLf$ : _
  25.      ZNewUserDgs = Ztrue
  26.      ZSubParm = 2
  27.      CALL TPut
  28. IF ZSubParm < 0 THEN _
  29.          EXIT SUB
  30.     ZWasZ$ = ZUpldDriveFile$
  31.      CALL FindFree
  32.      CALL QuickTPut1 ("Upload disk has" + ZFreeSpace$)
  33.      CALL QuickTPut1 ( "Free String Space = "+  (STR$(CINT(FRE("A"))) + " bytes")) 'Pe 01/01/92
  34.      CALL QuickTPut1 ( "StackSpace = "+  (STR$(CINT(FRE(-2))) + " bytes")) 'Pe 05/10/92
  35.      IF (NOT ZSysop) AND (ZUserSecLevel < ZSecKillAny) THEN _
  36.       CALL Delaytime (2) : _
  37.         EXIT SUB
  38.      UserWork = (ZHighestUserRecord * .95) + 1
  39.      IF ZMsgsCanGrow THEN _
  40.         ZWasY$ = " open" _
  41.      ELSE ZWasY$ = STR$(HighestMsgRecord + 1 - ZMaxNodes - ZNextMsgRec)
  42.      ZOutTxt$ = "USERS: used" + _
  43.           STR$(CurUserCount - 1) + _
  44.           " avl" + _
  45.           STR$(UserWork - CurUserCount) + _
  46.           "  MSGS: used" + _
  47.           STR$(ActiveMessages) + _
  48.           " avl" + _
  49.           STR$(MaxMsgs - ActiveMessages) + _
  50.           "  MSG REC: used" + _
  51.           STR$(ZNextMsgRec - 1) + _
  52.           " avl" + ZWasY$
  53.      ZSubParm = 2
  54.      CALL TPut
  55. IF ZSubParm < 0 THEN _
  56.    EXIT SUB
  57. CALL DelayTime (2)
  58. END SUB
  59. '********************************************************************
  60. '
  61. SUB ShowUsrProfile STATIC
  62.  CALL QuickTPut (CHR$(12),0) ' to clear screen
  63. WasX$ =  "USER NAME : " + ZActiveUserName$ + ZCrLF$ + _
  64.          "SECURITY  :" + STR$(ZUserSecSave) + ZCrLf$ + _
  65.          "PASSWORD  : " + ZPswdSave$ + ZCrLF$ + _
  66.          "READ MSG. :" + STR$(ZLastMsgRead)
  67. Call QuickTput1 (WasX$)
  68. WasX$ =  "TIMES ON  :" + STR$(ZTimesLoggedOn) +ZCrLF$ + _
  69.          "Last ON   : " + ZLastDateTimeOnSave$ +ZCRLF$ + _
  70. * ------[ first line different ]------
  71.          "DownLoads :" + STR$(ZDnlds)                            'Pe 07/09/92 
  72. Call QuickTput1 (WasX$)
  73. WasX$ =  "Uploads   :" + STR$(ZUplds)+ ZCrLf$ + _                'Pe 06/01/92
  74.          "Baud Rate : " + ZCBaud$ + " Bps"                       'Pe 06/01/92
  75. Call QuickTPut1 (WasX$)
  76. WasX$ = "Dl-Bytes  :" + STR$(ZDLBytes!)+ZCrLF$ + _
  77.         "Ul-Bytes  :" + STR$(ZULBytes!)                          'Pe 07/09/92
  78. Call QuickTput1 (WasX$)
  79. WasX$ = "User mode : " + MID$("NoviceExpert",1 -6 * ZExpertUser,6) +ZCrLf$ +_
  80.         "Graphics  : " + MID$("None AsciiColor",GR * 5 + 1,5)
  81. Call QuickTput1 (WasX$)
  82. WasX$ = "Protocol  : " + ZUserXferDefault$ + ZCrLF$ + _
  83.         "Upper Case: " + MID$("and lowerONLY", 1 - 9 * ZUpperCase,9)+ZCrLf$ + _
  84.         "Line Feeds: " + FNOFFON$(ZLineFeeds) + _                 'Pe 07/09/92
  85.         "Nulls     : " + FNOFFON$(ZNulls)
  86. Call QuickTPut1 (WasX$)
  87.       IF ZRestrictByDate THEN _
  88.      CALL QuickTPut ("EXPIRATION: " + ZExpirationDate$,1)
  89.      CALL Toggle (-8)
  90.      CALL Toggle (-5)
  91.      CALL Toggle (-10)
  92.      CALL Toggle (-2)
  93.      CALL Toggle (-4)
  94.      CALL Toggle (-1)
  95. CALL AskMore ("",ZTrue,ZFalse,WasX,ZTrue)
  96. END SUB
  97. '********************************************************************
  98. '
  99. SUB BatchUpload (ZDesc$,ZUCat$,WasFF) STATIC
  100. On WasFF GOTO 69000, 69500
  101.