home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / DCRD100.ZIP / RSB2DCRD.MRG < prev    next >
Encoding:
Text File  |  1993-01-18  |  1.4 KB  |  37 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB2.BAS to produce RBBSSUB2.NEW
  3. * RBBSSUB2.BAS:  Date 6-20-1992  Size 140946 bytes
  4. * ------------[ Created 01-18-1993 23:36:38 ]------------
  5. * REPLACING old line(s) by new
  6. * ------[ first line different ]------
  7. 10985 CALL ReadParms (ZOutTxt$(),9,1)                                ' DD011801/DOORCARRIERDROP
  8.       IF ZErrCode > 0 THEN _
  9.          IF ReqDoorsDef THEN _
  10.             EXIT SUB _
  11.          ELSE ExitTo$ = ExitTo$ + " " + ZNodeID$ : _
  12.               GOTO 10989
  13.       IF ExitTo$ <> ZOutTxt$(1) THEN _
  14.          GOTO 10985
  15.       CALL CheckInt (ZOutTxt$(2))
  16.       IF ZErrCode > 0 THEN _
  17.          ZErrCode = 0 : _
  18.          GOTO 10985
  19.       IF ZUserSecLevel < ZTestedIntValue THEN _
  20.          CALL QuickTPut1 ("Insufficient security for door") : _
  21.          EXIT SUB
  22.       WasX$ = LEFT$(ZOutTxt$(5),INSTR(ZOutTxt$(5)+" "," ")-1)
  23.       CALL FindIt (WasX$)
  24.       IF NOT ZOK THEN _
  25.          GOTO 10986
  26.       ZFileName$ = ZOutTxt$(3)
  27.       ExitMethod$ = ZOutTxt$(4)
  28.       ExitTemplate$ = ZOutTxt$(5)
  29.       ZDoorDisplay$ = ZOutTxt$(7)
  30.       ZDoorTime$ = ZOutTxt$(8)
  31.       ZDoorCarrierDropOK$ = ZOutTxt$(10)                             ' DD011801/DOORCARRIERDROP
  32.       CALL AskUsers
  33.       CALL SmartText (ExitTemplate$,ZFalse,ZFalse)
  34.       CALL MetaGSR (ExitTemplate$,ZFalse)
  35.       ExitTo$ = ExitTemplate$
  36.       GOTO 10989
  37.