home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / rbbs_pc / rfix0312.zip / RSB40312.MRG < prev    next >
Text File  |  1993-03-12  |  4KB  |  86 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against C:\174\RBBSSUB4.BAS to produce D:\SOURCE\RBBSSUB4.BAS
  3. * C:\174\RBBSSUB4.BAS:  Date 6-20-1992  Size 120885 bytes
  4. * ------------[ Created 03-12-1993 21:25:40 ]------------
  5. * REPLACING old line(s) by new
  6. 59510 ZFileName$ = CurMenu$
  7.       InMenu = ZTrue
  8.       CALL BreakFileName (FrontOpt$,WasX$,FrontPre$,ZWasDF$,ZTrue)
  9.       CALL BreakFileName (CurMenu$,MenuDrv$,WasX$,ZWasDF$,ZTrue)
  10.       MenuFront$ = MenuDrv$ + LEFT$(WasX$,LEN(WasX$)-LEN(PreSuf$))
  11.       IF CurMenu$ = LastSubMenu$ THEN _
  12.          MenuFront$ = LEFT$(MenuFront$,LEN(MenuFront$)-1)
  13.       CALL Graphic (ZFileName$)
  14.       CurMenuVer$ = ZFileName$
  15.       ZStopInterrupts = ZFalse
  16. * ------[ first line different ]------
  17. * INSERTING new line(s)
  18. 59514 IF ZAnsIndex < ZLastIndex OR ZExpertUser THEN _                ' KG011501
  19.          GOTO 59520
  20. * REPLACING old line(s) by new
  21. 59532 GOSUB 59547
  22. * ------[ first line different ]------
  23.       GOTO 59514                                                     ' KG011501
  24. * REPLACING old line(s) by new
  25. 59856 ZActiveUserFile$ = WasA1$
  26.       CALL OpenUser (ZHighestUserRecord)
  27.       FIELD 5, 128 AS ZUserRecord$
  28.       IF (NOT ZRet) AND NOT AnyMail THEN _
  29.          CALL QuickTPut1 ("You have not joined any conferences")
  30.       ZUserFileIndex = UserFileIndexSave
  31.       LSET ZUserRecord$ = UserRecordHold$
  32.       ZActiveMessageFile$ = MsgFileSave$
  33.       CALL OpenMsg
  34.       FIELD 1, 128 AS ZMsgRec$
  35.       GET 1,1
  36.       ZNonStop = (ZPageLength < 1)
  37.       WasX$ = ZUserIn$(ZAnsIndex+1)
  38.       CALL AllCaps (WasX$)
  39.       ZAnsIndex = ZAnsIndex - (WasX$ = "C")
  40.       SkipParms = -(NOT EOF(2))*SkipParms
  41.       LinkNew = ZFalse
  42.       LinkPers = ZFalse
  43. * ------[ first line different ]------
  44.       CLOSE 2                                                        ' KG012501
  45.       END SUB
  46. * REPLACING old line(s) by new
  47. 62624 ' $SUBTITLE: 'PrivDoorRtn - subroutine to exit as a private door.'
  48. ' $PAGE
  49. '
  50. '  NAME    -- PrivDoorRtn
  51. '
  52. '  INPUTS  --     PARAMETER                    MEANING
  53. '              ZTransferFunction         = 1 DOWNLOAD FILE TO USER
  54. '                                        = 2 UPLOAD FILE TO RBBS-PC
  55. '                                        = 3 USER REGISTRATION PGM
  56. '              ZUserIn$                      NAME OF FILE TO EXIT TO
  57. '              ZComPort$                 NAME OF COMMUNICATIONS PORT
  58. '                                        TO BE USED BY KERMIT (COM1
  59. '                                        OR COM2)
  60. '              ZBPS                      = -1 FOR   300 BAUD
  61. '                                        = -2 FOR   450 BAUD
  62. '                                        = -3 FOR  1200 BAUD
  63. '                                        = -4 FOR  2400 BAUD
  64. '                                        = -5 FOR  4800 BAUD
  65. '                                        = -6 FOR  9600 BAUD
  66. '                                        = -7 FOR 19200 BAUD
  67. '
  68. '  OUTPUTS -- NONE
  69. '
  70. '  PURPOSE -- To transfer control to another program
  71. '
  72.       SUB PrivDoorRtn STATIC
  73.       IF ZPrivateDoor THEN _
  74.          GOTO 62630
  75.       IF ZFakeXRpt THEN _
  76.          CALL FakeXRpt (ZWasFT$)
  77.       IF ZAdvanceProtoWrite THEN _
  78.          CALL OpenOutW ("XFER-"+ZNodeID$+".DEF") : _
  79.          IF ZErrCode < 1 THEN _
  80.             CALL PrintWorkA (ZFileName$+",,"+ZWasFT$) : _
  81.             CLOSE 2
  82. * ------[ first line different ]------
  83.       IF (ZTransferFunction = 1 AND LEFT$(ZProtoMethod$,1) = "S") OR _ ' KG020501
  84.          (ZTransferFunction = 2 AND RIGHT$(ZProtoMethod$,1) = "S") THEN _ ' KG020501
  85.          GOTO 62629
  86.