home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / XFER173C.ZIP / RSB5XFER.MRG next >
Text File  |  1992-05-09  |  6KB  |  103 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB5.BAS to produce RBBSSUB5.NEW
  3. * RBBSSUB5.BAS:  Date 9-1-1991  Size 100075 bytes
  4. * ------------[ Created 05-09-1992 14:35:01 ]------------
  5. * REPLACING old line(s) by new
  6. ' $linesize:132
  7. ' $title: 'RBBSSUB5.BAS 17.3C, Copyright 1986 - 91 by D. Thomas Mack'
  8. '  Copyright 1991 by D. Thomas Mack, all rights reserved.
  9. '  Name ...............: RBBSSUB5.BAS
  10. '  First Released .....: February 11, 1990
  11. '  Subsequent Releases.: August 26, 1990; October 28, 1990; Sept 1, 1991
  12. '  Copyright ..........: 1986 - 1991
  13. '  Purpose.............: The Remote Bulletin Board System for the IBM PC,
  14. '     RBBS-PC.BAS utilizes a lot of common subroutines.  Those that do not
  15. '     require error trapping are incorporated within RBBSSUB 2-5 as
  16. '     separately callable subroutines in order to free up as much
  17. '     code as possible within the 64K code segment used by RBBS-PC.BAS.
  18. '  Parameters..........: Most parameters are passed via a COMMON statement.
  19. '
  20. ' Subroutine  Line               Function of Subroutine
  21. '   Name     Number
  22. '  AraAllCaps     63720  Capitalize an elment of an array
  23. '  BinSearch      63520  Binary searches sorted file for a key value
  24. '  BreakFileName  63300  Break file name into component parts
  25. '  BufAsUnit      63500  Buffer out a string with CR's
  26. '  ChangeInt      63590  Get an Integer Value                        ' RM040101
  27. '  SetPrompt      63470  Set prompts based on the user's security
  28. '  DoorReturn     63100  Process door requests
  29. '  ExcludeCount   63715  Counts # of words in a string
  30. '  FdMacExe       63462  Executes a found macro
  31. '  FileSystem     20117  File System for RBBS-PC
  32. '  FindIt         63490  Check whether file exists and if so open as #2
  33. '  FormRead       63420  Read from file into a form
  34. '  LockAppend     63400  Prepare for a file append
  35. '  MacroExe       63460  Execute internal macro rather than user
  36. '  MsgNameMatch   63540  Match name to one in msg header
  37. '  NoPath         63480  Detects whether string has a path in it
  38. '  RestoreCom     63310  Restore comm port after external program
  39. '  ReadMacro      63330  Read and process macro
  40. '  ShellExit      63320  Exit RBBS via shell
  41. '  TakeOffHook    63530  Take modem off hook
  42. * ------[ first line different ]------
  43. '  TStats         65004  Display transfer stats from XFER-? file     ' XFER173C
  44. '  UnLockAppend   63410  Clean up after file append
  45. '  VerifyAns      63510  Verify that string passes edits
  46. '  WildCard       63200  Match string to a pattern
  47. '
  48. '  $INCLUDE: 'RBBS-VAR.BAS'
  49. '
  50. * REPLACING old line(s) by new
  51. 20263 IF ZPrivateDoor THEN _
  52.          ZCmdTransfer$ = ZWasFT$ : _
  53.          CALL XferType (2,ZTrue) : _
  54.          ZCmdTransfer$ = ""
  55.       CALL OpenWork (2,"XFER-" + ZNodeID$ + ".DEF")
  56.       IF ZErrCode <> 0 THEN _
  57.          GOTO 20267
  58.       CALL ReadParms (ZWorkAra$(), ZFailureParm, 1)
  59.       IF ZErrCode <> 0 THEN _
  60.          GOTO 20267
  61.       CLOSE 2
  62. * ------[ first line different ]------
  63.       IF NOT ZFakeXRpt THEN _                                        ' XFER173C
  64.          CALL TStats                                                 ' XFER173C
  65.       CALL KillWork ("XFER-" + ZNodeID$ + ".DEF")
  66. * REPLACING old line(s) by new
  67. * ------[ first line different ]------
  68. 65004 ' $SUBTITLE: 'TStats --- Display Transfer Stats from XFER-? file' ' XFER173C
  69. ' $PAGE                                                              ' XFER173C
  70. '                                                                    ' XFER173C
  71.       SUB TStats STATIC                                              ' XFER173C
  72.       CALL OpenWork (2,"XFER-" + ZNodeID$ + ".DEF")                  ' XFER173C
  73.       CALL SkipLine (2)                                              ' XFER173C
  74.       CALL QuickTPut1 (ZFG2$ + " Stats on this Transfer are as Follows........" + ZCrLF$) ' XFER173C
  75.       CALL QuickTPut1 (ZFG4$ + " FileName      Bytes  Dtr Rate    CPS      Errors " + ZCrLf$ + _ ' XFER173C
  76.            ZFG3$ + "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" + ZEmphasizeOff$) ' XFER173C
  77.       WHILE NOT EOF(2)                                               ' XFER173C
  78.         LINE INPUT #2,Stat$                                          ' XFER173C
  79.         WasS = INSTR(Stat$,"rs ")                                    ' XFER173C
  80.         IF WasS > 0 THEN _                                           ' XFER173C
  81.            WasX$ = MID$(Stat$, 2, WasS)                              ' XFER173C
  82.         Match = INSTR(Stat$, ".")                                    ' XFER173C
  83.         IF Match > 0 THEN _                                          ' XFER173C
  84.            WasZyX$ = MID$(Stat$, Match - 8, 12)                      ' XFER173C
  85.         Match = 0                                                    ' XFER173C
  86.         Start = 1                                                    ' XFER173C
  87.         DO                                                           ' XFER173C
  88.           Match = INSTR(Start, WasZyX$, "\")                         ' XFER173C
  89.           IF Match = 0 THEN _                                        ' XFER173C
  90.              Match = INSTR(Start, WasZyX$, "/")                      ' XFER173C
  91.           IF Match = 0 THEN _                                        ' XFER173C
  92.              Match = INSTR(Start, WasZyX$, " ")                      ' XFER173C
  93.           WasZyX$ = RIGHT$(WasZyX$, LEN(WasZyX$) - Match)            ' XFER173C
  94.           LOOP WHILE Match                                           ' XFER173C
  95.           WasXy = LEN(WasZyX$)                                       ' XFER173C
  96.           CALL QuickTPut1 (ZFG1$ + WasZyX$ + SPACE$(15-WasXy) + _    ' XFER173C
  97.                          WasX$ + ZEmphasizeOff$)                     ' XFER173C
  98.       WEND                                                           ' XFER173C
  99.       CALL SkipLine (1)                                              ' XFER173C
  100.       CLOSE 2                                                        ' XFER173C
  101.       CALL DelayTime (3)                                             ' XFER173C
  102.       END SUB                                                        ' XFER173C
  103.