home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / MAPL0206.ZIP / MBS50206.MRG < prev    next >
Encoding:
Text File  |  1993-02-06  |  88.5 KB  |  2,408 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against E:\RBBS\STOCK\RBBSSUB5.BAS to produce E:\RBBS\CHAT\RBBSSUB5.BAS
  3. * E:\RBBS\STOCK\RBBSSUB5.BAS:  Date 6-20-1992  Size 116575 bytes
  4. * ------------[ Created 02-06-1993 06:08:03 ]------------
  5. * REPLACING old line(s) by new
  6. ' $linesize:132
  7. ' $title: 'RBBSSUB5.BAS 17.4, Copyright 1986 - 92 by D. Thomas Mack'
  8. '  Copyright 1991 by D. Thomas Mack, all rights reserved.
  9. '  Name ...............: RBBSSUB5.BAS
  10. '  First Released .....: June 21, 1992
  11. '  Subsequent Releases.: 
  12. '  Copyright ..........: 1986 - 1992
  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. '  AddLink        63620  Adds a conference link
  23. * ------[ first line different ]------
  24. '  AskItems       63610  Get an list of items
  25. '  BinSearch      63520  Binary searches sorted file for a key value
  26. '  BreakFileName  63300  Break file name into component parts
  27. '  BufAsUnit      63500  Buffer out a string with CR's
  28. '  ChangeInit     63590  Get an integer value
  29. '  ChkAddedTime   63056  Check whether ok to extend time remaining
  30. '  ChkIfMsgHeader 63550  Checks whether record is a msg header
  31. '  DeLink         63620  Removes conference from linked ones
  32. '  DoorReturn     63100  Process door requests
  33. '  FdMacExe       63462  Executes a found macro
  34. '  FileSystem     20117  File System for RBBS-PC
  35. '  FindIt         63490  Check whether file exists and if so open as #2
  36. '  FormRead       63420  Read from file into a form
  37. '  LockAppend     63400  Prepare for a file append
  38. '  MacroExe       63460  Execute internal macro rather than user
  39. '  MarkItems      63600  Convert list of items into a "mark"
  40. '  MsgNameMatch   63540  Match name to one in msg header
  41. '  NextConf       63615  Sets up join to next conference link
  42. '  NoPath         63480  Detects whether string has a path in it
  43. '  RestoreCom     63310  Restore comm port after external program
  44. '  ReadMacro      63330  Read and process macro
  45. '  ReadParms      63490  Read certain number of parameters from file 2
  46. '  ReportEcho     63635  Reports echo preference of caller
  47. '  SayWelcome     63640  Welcomes callers on logon
  48. '  SetPrivileges  63650  Sets user privileges based on PASSWRDS
  49. '  SetPrompt      63470  Set prompts based on the user's security
  50. '  SetSessionTime 63645  Sets the session time
  51. '  SetSysOp       63625  Determines whether remote or global SysOp
  52. '  SetUserFlag    63560  Sets specified user flag
  53. '  SetUserPref    63630  Sets user preferences based on user record
  54. '  ShellExit      63320  Exit RBBS via shell
  55. '  SrchPasswrds   63652  Searches the PASSWRDS file
  56. '  TakeOffHook    63530  Take modem off hook
  57. '  TStats         69600  Display transfer stats from XFER-? file     ' MplXfer
  58. '  UnLockAppend   63410  Clean up after file append
  59. '  UnMarkItems    63610  Convert marked items into an input list
  60. '  VerifyAns      63510  Verify that string passes edits
  61. '  WildCard       63200  Match string to a pattern
  62. '
  63. '  $INCLUDE: 'RBBS-VAR.BAS'
  64. '
  65. * REPLACING old line(s) by new
  66. 20117 ' $SUBTITLE: 'FileSystem -- subroutine for RBBS-PC's file system'
  67. ' $PAGE
  68. '
  69. ' NAME    -- FileSystem
  70. '
  71. ' INPUTS  --       PARAMETER                 MEANING
  72. '             ZFileSysParm = 1  LIST THE SYSOP'S COMMENTS FILE
  73. '                                 2  L)IST DIRECTORY COMMAND
  74. '                                 3  D)OWNLOAD COMMAND
  75. '                                 4  RETURN FROM EXTERNAL PROTOCOLS
  76. '                                 5  U)PLOAD COMMAND
  77. '                                 6  S)CAN DIRECTORY COMMAND
  78. '                                 7  P)ERSONAL FILES COMMAND
  79. '                                 8  N)EW FILES COMMAND
  80. '                                 9  RETURN FROM EXTENDED DESCRIPTION
  81. * ------[ first line different ]------
  82. '                                 10  Batch Upload files
  83. '
  84. ' OUTPUTS -- ZFileSysParm = 1  COMMAND PROCESSED SUCCESSFULLY
  85. '                                2  RECYCLE TO TOP OF RBBS-PC (202)
  86. '                                3  PROCESS NEXT COMMAND (1200)
  87. '                                4  DENY USER ACCESS (1380)
  88. '                                5  HANDLE EXTENDED DESCRIP. (2008)
  89. '                                6  USER'S TIME EXCEEDED (10553)
  90. '                                7  Carrier DROPPED (10595)
  91. '
  92. ' PURPOSE -- To handle the RBBS-PC file system commands
  93. '
  94.       SUB FileSystem STATIC
  95.       ZFF = ZFileSysParm
  96.       ZFileSysParm = 1
  97.       ZActiveFMSDir$ = ""
  98.       CALL SaveUserActivity("F", ZNodeRecIndex, ZFalse)              ' CHAT0813
  99.       ON ZFF GOSUB 20119, _  ' HANDLER TO LIST COMMENTS TO SYSOP
  100.                   20150, _  ' L)IST DIRECTORY COMMAND HANDLER
  101.                   20180, _  ' D)OWNLOAD COMMAND HANDLER
  102.                   20263, _  ' RETURN FROM EXTERNAL Protocol'S
  103.                   20400, _  ' U)PLOAD COMMAND HANDLER
  104.                   21800, _  ' S)CAN DIRECTORY COMMAND HANDLER
  105.                   21850, _  ' P)ERSONAL FILES COMMAND HANDLER
  106.                   21860, _  ' N)EW FILES COMMAND HANDLER
  107.                   20705, _  ' RETURN FROM EXTENDED DESCRIPTIONS
  108.                   20410     ' 4)Batch Upload files
  109.       GOTO 21920
  110. * REPLACING old line(s) by new
  111. * ------[ first line different ]------
  112. 20120  X = 159             'Pe 01/19/93
  113.        Gosub 21915         'Pe 01/19/93
  114.        ZOutTxt$ = OutTxt$ + " " + _
  115.            ZFileNameHold$
  116.       IF WasRS$ <> "" THEN _
  117.          ZOutTxt$ = ZOutTxt$ + " for " + WasRS$
  118.       GOSUB 21650
  119.       IF ZFileSysParm > 1 THEN _
  120.          RETURN
  121.       CALL AskMore ("",ZTrue,ZTrue,ZAnsIndex,ZFalse)
  122.       IF ZNo THEN _
  123.          ZErrCode = 0 : _
  124.          RETURN
  125.       WasPG = ZTrue
  126. * REPLACING old line(s) by new
  127. 20122 CALL OpenWork (2,ZFileName$)
  128.       IF ZErrCode = 53 THEN _
  129. * ------[ first line different ]------
  130.        X = 160 : _             'Pe 01/19/93
  131.        Gosub 21915 : _         'Pe 01/19/93
  132.          ZOutTxt$ = OutTxt$ + " " + ZFileName$ : _
  133.          CALL UpdtCalr (ZOutTxt$,2) : _
  134.          X = 161 : _             'Pe 01/19/93
  135.          Gosub 21915 : _         'Pe 01/19/93
  136.          ZOutTxt$ = ZOutTxt$ + OutTxt$ : _
  137.          GOSUB 21650 : _
  138.          RETURN
  139.       ZJumpSupported = ZTrue
  140.       ZJumpLast$ = ""
  141.       LastOK = ZFalse
  142.       ZJumpSearching = ZFalse
  143.       MaxPrint = ZPageLength - 1
  144.       CALL CmdStackPushPop (1)
  145.       ZLastIndex = 0
  146. * REPLACING old line(s) by new
  147. 20150 ZListDir = ZTrue
  148.       ListNew = ZFalse
  149.       SearchDate$ = ""
  150.       SearchString$ = ""
  151.       WasRS$ = ""
  152.       ShowDirOfDir = (ZLastIndex <= ZAnsIndex) AND NOT ZExpertUser
  153.       WasCK = 0
  154.       ZSearchingAll = ZFalse
  155. * ------[ first line different ]------
  156.       ZExtendedOff = ZFalse 'ZTrue   'Pe 10/27/91
  157. * REPLACING old line(s) by new
  158. * ------[ first line different ]------
  159. 20155 IF ZDnldCompleted AND ZAutoEnd = 1 THEN _   'Pe 02/05/90
  160.         ZFileSysParm = 7 : _
  161.         RETURN
  162.  IF ListNew OR ZAnsIndex > 255 THEN _   'Pe 12/12/91
  163.          RETURN                         'Pe 12/12/91
  164.       CALL GetDirs (ZFalse)    'Pe 02/04/90
  165.       IF ZWasQ = 0 THEN _
  166.          RETURN
  167.       ShowDirOfDir = ZFalse
  168.       CALL ConvertDir (ZAnsIndex)
  169.       WasQX = ZLastIndex
  170. * REPLACING old line(s) by new
  171. 20159 IF ZAnsIndex < ZLastIndex THEN _
  172.          GOTO 20155
  173.       ZSearchingAll = ZFalse
  174.       CALL CmdStackPushPop (1)
  175.       ZLastIndex = 0
  176.       IF ZNo OR InFMS OR (ZFileNameHold$ = ZDirPrefix$) THEN _
  177.          GOTO 20155
  178.       GOSUB 20178
  179.       CALL QuickTPut (ZEmphasizeOff$,0)
  180.       ZTurboKey = - ZTurboKeyUser
  181. * ------[ first line different ]------
  182.        X = 162              'Pe 01/19/93
  183.        Gosub 21915         'Pe 01/19/93
  184.        ZOutTxt$ = OutTxt$
  185.       GOSUB 21667
  186.       CALL AraAllCaps (ZUserIn$(),1)
  187. '******************************* Pe 02/15/90 **********************
  188.      IF ZUserIn$(1) = "T"  AND _
  189.          ZUserSecLevel >= ZOptSec(19 - 20 * (ZMenuIndex = 6)) THEN _
  190.          ZAnsIndex = 1 : _   
  191.         CALL TypeFile : _
  192.        RETURN
  193.      IF ZUserIn$(1) = "V"  AND _
  194.          ZUserSecLevel >= ZOptSec(19 - 20 * (ZMenuIndex = 6)) THEN _
  195.          ZAnsIndex = 1 : _   
  196.         CALL GetArc : _
  197.        RETURN
  198. '******************************************************************
  199.       IF ZUserIn$(1) = "L" THEN _
  200.          ZUserIn$(ZAnsIndex) = WasA1$ : _
  201.         GOTO 20161
  202.       Temp$ = ZUserIn$(1)
  203.       Temp = (ZUserIn$(1) = "D")
  204.       CALL AskItems ("MD",Temp$,ZTrue,"file",ZMarkedFiles$)
  205.       IF ZWasQ = 0 OR ZUserSecLevel < ZOptSec(19 - 20 * (ZMenuIndex = 6)) THEN _
  206.          GOTO 20160
  207.       IF Temp THEN _
  208.          GOSUB 20202 _
  209.       ELSE IF LEN(ZUserIn$(1)) > 1 THEN _
  210.          ZAnsIndex = 1 : _
  211.          GOSUB 20202
  212. * REPLACING old line(s) by new
  213. 20162 CALL CmdStackPushPop (1)         ' save dir list list processing
  214.       CALL FMS (ZWasZ$,SearchString$,SearchDate$,InFMS, _
  215.                 ZCategoryName$(),ZCategoryCode$(),ZCategoryDesc$(),_
  216.                 DnldFlag,CatFound,ZAnsIndex)
  217.       WHILE DnldFlag > 0 AND ZSubParm > -1
  218.          GOSUB 20202
  219.          IF ZFileSysParm > 1 THEN _
  220.             RETURN
  221. * ------[ first line different ]------
  222.         IF ZDnldCompleted and ZAutoEnd = 1 THEN _  'Pe 02/05/90
  223.            RETURN       ' AUTOLOGOFF MOD
  224.          WasX$ = ZCategoryCode$(CatFound)
  225.          CALL DispUpDir (WasX$,SearchString$,SearchDate$,DnldFlag,ZAnsIndex)
  226.          CALL CheckTimeRemain (MinsRemaining)
  227.          IF ZSubParm = -1 THEN _
  228.             ZFileSysParm = 6 : _
  229.             RETURN
  230.          CALL Carrier
  231.       WEND
  232.       IF ZSubParm = -1 THEN _
  233.          ZFileSysParm = 7 : _
  234.          RETURN
  235.       IF ZAnsIndex > 255 OR ZRet THEN _
  236.          ZLastIndex = 0 : _
  237.          RETURN
  238.       CALL CmdStackPushPop (2)        ' restore dir list list processing
  239.       ZActiveFMSDir$ = ""
  240.       IF InFMS THEN _
  241.          GOTO 20159
  242.       IF ZUserSecLevel < ZMinSecToView THEN _
  243.          IF ZFileNameHold$ = ZUpldDirCheck$ THEN _
  244.        X = 163 : _             'Pe 01/19/93
  245.        Gosub 21915 : _        'Pe 01/19/93
  246.        ZOutTxt$ = OutTxt$ : _
  247.         GOSUB 21640 : _                                           'DGS-TXT
  248.         ZNo = ZTrue : _                                           'DGS-TXT
  249.         GOTO 20155                                                'DGS-TXT
  250.       ZFileNameHold$ = ZUserIn$(ZAnsIndex)
  251.       IF ZLimitSearchToFMS THEN _
  252.          GOTO 20166
  253.       IF NOT ZSearchingAll THEN _
  254.          IF ZFileNameHold$ = "ALL" OR ZFileNameHold$ = "A" THEN _
  255.             ZSearchingAll = ZTrue : _
  256.             GOSUB 21890 : _
  257.             GOTO 20157
  258.       CALL BadFile (ZFileNameHold$,BadFileNameIndex)
  259.       ON BadFileNameIndex GOTO 20163,20172,20176
  260. * REPLACING old line(s) by new
  261. 20166 ZFileName$ = ZCurDirPath$ + _
  262.                    ZFileNameHold$ + ".MNU"
  263. * ------[ first line different ]------
  264.       CALL FindIt (ZFileName$)
  265.       IF ZOK THEN _
  266.          CALL BufFile (ZFileName$,ZAnsIndex) : _
  267.          GOTO 20155
  268.       IF ZAltdirExtension$ = "" THEN _
  269.          GOTO 20172
  270.       ZFileName$ = ZCurDirPath$ + _
  271.                    ZFileNameHold$ + _
  272.                    "." + _
  273.                    ZAltdirExtension$
  274.       CALL Graphic (ZFileName$)
  275.       IF NOT ZOK THEN _
  276.          GOTO 20172
  277. * REPLACING old line(s) by new
  278. 20172 IF NOT ZSearchingAll THEN _
  279. * ------[ first line different ]------
  280.        X = 70 : _             'Pe 01/19/93
  281.        Gosub 21915 : _         'Pe 01/19/93
  282.          ZOutTxt$ = "Directory " + _
  283.               ZFileNameHold$ + _
  284.               OutTxt$ : _
  285.          GOSUB 21640 : _
  286.          ZNo = ZTrue : _
  287.          IF ZFileSysParm > 1 THEN _
  288.             RETURN
  289.       GOTO 20155
  290. * REPLACING old line(s) by new
  291. 20202 IF (ZTimeLock AND 2) AND (NOT TimeLockExempt) AND NOT ZHasPrivDoor THEN _
  292.          CALL TimeLock : _
  293.          IF NOT ZOK THEN _
  294.             RETURN
  295.       LastDnld = ZLastIndex
  296.       FirstDnld = ZAnsIndex
  297.       ZCmdTransfer$ = ""
  298. * ------[ first line different ]------
  299.       ZAnsIndex = ZLastIndex
  300.       GOSUB 20470
  301.       LastDnld = LastDnld + (WasX > 0)
  302.       BatchBytes# = 0
  303.       BatchBlocks# = 0
  304.       ZDownFiles = 0
  305.       CALL KillWork (ZNodeWorkFile$)
  306.       ZErrCode = 0
  307.       ZAnsIndex = FirstDnld
  308. * REPLACING old line(s) by new
  309. 20205 MarkingTime = (ZAnsIndex = FirstDnld OR NOT ZConcatFIles)
  310.       ZFileName$ = ZUserIn$(ZAnsIndex)
  311. * ------[ first line different ]------
  312.       CALL AllCaps(ZFileName$)              'ANSIEd
  313.       CALL Remove (ZFileName$,", ")
  314.       ZViolation$ = "Download "
  315.       IF ZListOnly THEN _
  316.          CALL BreakFileName (ZFileName$,DR$,ZWasY$,WasX$,ZTrue) : _
  317.          ZFileNameHold$ = ZWasY$ + _
  318.                            WasX$ : _
  319.          GOTO 20235
  320.       ZFileNameHold$ = ZFileName$
  321.       TmpFileNameHold$ = ZFileNameHold$                            'Pe 04/25/92
  322.       CALL BadFile (ZFileName$,BadFileNameIndex)
  323.       ON BadFileNameIndex GOTO 20220,20231,20233
  324. * INSERTING new line(s)
  325. 20210 CALL RotorsDir (ZFileName$,ZSubDir$(),ZSubDirCount + _      'Pe 06/01/92
  326.                       ((ZUserSecLevel < ZMinSecToView) OR _       'Pe 06/01/92
  327.                        NOT ZCanDnldFromUp),MarkingTime,"D")       'Pe 06/01/92
  328.        RETURN                                                     'Pe 06/01/92 
  329. * REPLACING old line(s) by new
  330. * ------[ first line different ]------
  331. 20220 IF INSTR(ZFileName$,ZDefaultExtension$)= 0 Then             'Pe 06/04/92
  332.       GOSUB 20210                                                 'Pe 06/02/92
  333.       IF ZOK THEN _                                               'Pe 06/02/92
  334.         GOTO 20235                                                'Pe 06/02/92
  335.       IF ZDotFlag THEN _                                          'Pe 06/02/92
  336.          RETURN                                                   'Pe 06/02/92
  337.      End if                                                       'Pe 06/04/92
  338.          WasI = 1                                                 'Pe 06/01/92
  339. * DELETING old line(s)
  340. 20222
  341. * REPLACING old line(s) by new
  342. * ------[ first line different ]------
  343. 20225 CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZFalse) 'Pe 06/01/92
  344.         WasJ = INSTR(Mid$(ZCompressedExt$+". ",WasI),".")        'Pe 04/18/92
  345.        IF WasJ = 0 THEN _                                        'Pe 04/18/92
  346.           GOTO 20231                                             'Pe 06/04/92
  347.               Check$ = MID$(ZCompressedExt$,WasI,WasJ-1)         'Pe 04/28/92
  348.           WasI = WasI + WasJ                                     'Pe 04/18/92
  349.        ZFileName$ = WasX$ + "." + Check$                         'Pe 04/18/92
  350.       ZFileNameHold$ = ZFileName$                                'Pe 04/18/92
  351.      GOSUB 20210                                                 'Pe 06/01/92
  352.  IF ZOK THEN _                                                   'Pe 06/01/92
  353.        GOTO 20235                                                'Pe 06/01/92
  354.      IF ZDotFlag THEN _                                          'Pe 06/01/92
  355.         RETURN                                                   'Pe 06/01/92
  356.       GOTO 20225                                                 'Pe 06/01/92
  357. * REPLACING old line(s) by new
  358. * ------[ first line different ]------
  359. 20231  X = 70              'Pe 01/19/93
  360.        Gosub 21915         'Pe 01/19/93
  361.        ZOutTxt$ = TmpFileNameHold$ + _                             'Pe 04/18/92
  362.            OutTxt$
  363.       CALL UpdtCalr (ZOutTxt$,2)
  364.       ZOutTxt$ = ZOutTxt$ + _
  365.            " Correct name"+ZPressEnterExpert$
  366.       ZSuspendAutoLogoff = ZTrue
  367.       GOSUB 21660
  368.       ZSuspendAutoLogoff = ZFalse
  369.       IF ZFileSysParm > 1 THEN _
  370.          RETURN
  371.       IF ZWasQ=0 THEN _
  372.          IF ZBatchTransfer AND ZAnsIndex >= LastDnld THEN _
  373.             GOTO 20262 _
  374.          ELSE ZAutoLogOffReq = ZFalse : _
  375.               RETURN
  376.       ZUserIn$(ZAnsIndex) = ZUserIn$(1)
  377.       GOTO 20205
  378. * REPLACING old line(s) by new
  379. 20236 ZLine25$ = "(D) " + _
  380.                  ZWasZ$
  381. * ------[ first line different ]------
  382. '
  383. ' *  TEST FOR DOWNLOAD SECURITY
  384. '
  385.       CALL OpenWork (2,ZFileSecFile$)
  386.       IF ZErrCode = 53 THEN _
  387.        X = 160 : _              'Pe 01/19/93
  388.        Gosub 21915  : _        'Pe 01/19/93
  389.          CALL UpdtCalr (OutTxt$ + " " + ZFileSecFile$,2) : _
  390.          GOTO 20247
  391. * REPLACING old line(s) by new
  392. 20244 IF ZUserSecLevel < VAL(ZWorkAra$(2)) THEN _
  393.          GOTO 20245
  394.       FilePswd$ = ZWorkAra$(3)
  395.       IF FilePswd$ = "" THEN _
  396.          GOTO 20247
  397. * ------[ first line different ]------
  398.       CALL AraAllCaps (ZUserIn$(),1)
  399.       IF ZUserIn$(1) = FilePswd$ THEN _
  400.          GOTO 20247
  401.        X = 164               'Pe 01/19/93
  402.        Gosub 21915         'Pe 01/19/93
  403.       ZOutTxt$ = OutTxt$ + " " + ZFileName$
  404.       GOSUB 21660
  405.       IF ZFileSysParm > 1 THEN _
  406.          RETURN
  407.       IF ZWasQ = 0 THEN _
  408.          RETURN
  409.       CALL AllCaps (ZUserIn$(1))
  410.       IF ZUserIn$(1) = FilePswd$ THEN _
  411.          GOTO 20247
  412. * REPLACING old line(s) by new
  413. 20247 ZWasDF = 0
  414.       CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZFalse)
  415. * ------[ first line different ]------
  416.  IF INSTR("...WRK.FW .ARC.EXE.COM.OBJ.WKS.LBR.ZIP.PAK.ZOO.ARJ.LZH.","."+Extension$+".") > 2 OR _
  417.          MID$(Extension$,2,1) = "Q" OR _
  418.          (ZRequireNonASCII AND Extension$ = "BAS") THEN _
  419.             ZWasDF = ZTrue
  420. * REPLACING old line(s) by new
  421. 20260 ZTransferFunction = 1
  422. * ------[ first line different ]------
  423.       ZWasBatchTransfer = ZFalse             'Pe 03/02/92
  424.       ZUpBatchTransfer = ZFalse              'Pe 03/02/92
  425.       GOSUB 21790
  426.       IF ZFileSysParm > 1 THEN _
  427.          RETURN
  428.          ZBatchTransfer = ZBatchProto                     'Pe Batch Mod
  429.       IF ZBatchTransfer AND ZCmdTransfer$ = "" THEN _
  430.          ZCmdTransfer$ = ZWasFT$
  431.       ON INSTR("AXCYN",ZInternalProt$) GOTO _
  432.          20340, _              ' ASCII DOWNLOAD
  433.          20290, _              ' Xmodem
  434.          20290, _              ' Xmodem CRC
  435.          20270, _              ' YMODEM
  436.          21700                 ' NONE - CANCEL
  437. '
  438. ' *  EXTERNAL Protocol Downloads/Uploads
  439. '
  440. * REPLACING old line(s) by new
  441. 20262 IF ZBatchTransfer THEN _
  442.          IF ZAnsIndex < LastDnld THEN _
  443.             RETURN _
  444.          ELSE ZBlocksInFile# = BatchBlocks# : _
  445.               ZBytesInFile# = BatchBytes# : _
  446.               ZNumDnldBytes! = BatchBytes# : _
  447.               IF ZBytesInFile# < 1 THEN _
  448.                  RETURN _
  449.               ELSE GOSUB 20780 : _
  450.                    IF ZFileSysParm > 1 OR NOT ZOK THEN _
  451.                       RETURN
  452. * ------[ first line different ]------
  453.          IF ZAbort THEN _
  454.             ZAbort = ZFalse : _              'Pe 01/26/92
  455.             ZDnldCompleted = ZFalse : _
  456.             GOSUB 21760 : _
  457.             RETURN
  458.       GOSUB 20337
  459.       CALL Transfer
  460. * REPLACING old line(s) by new
  461. 20263 IF ZPrivateDoor THEN _
  462.          ZCmdTransfer$ = ZWasFT$ : _
  463.          CALL XferType (2,ZTrue) : _
  464.          ZCmdTransfer$ = ""
  465.       CALL OpenWork (2,"XFER-" + ZNodeID$ + ".DEF")
  466.       IF ZErrCode <> 0 THEN _
  467.          GOTO 20267
  468.       CALL ReadParms (ZWorkAra$(), ZFailureParm, 1)
  469.       IF ZErrCode <> 0 THEN _
  470.          GOTO 20267
  471.       CLOSE 2
  472. * ------[ first line different ]------
  473.       IF NOT ZFakeXRpt THEN _                  'Pe 03/26/92
  474.         Call TStats                            'Pe 03/26/92
  475.       CALL KillWork ("XFER-" + ZNodeID$ + ".DEF")
  476. * REPLACING old line(s) by new
  477. 20265 IF ZTransferFunction = 2 THEN _
  478.          IF INSTR(ZWorkAra$(ZFailureParm),ZFailureString$) <> 1 THEN _
  479.             GOTO 20700 _
  480.          ELSE GOTO 20730
  481.       IF ZTransferFunction = 1 THEN _
  482. * ------[ first line different ]------
  483.         ZDnldCompleted = (INSTR(ZWorkAra$(ZFailureParm),ZFailureString$) <> 1)  'Pe 05/30/91
  484.       GOSUB 21760
  485.       CALL Carrier
  486.       IF ZSubParm = -1 THEN _
  487.          ZFileSysParm = 7
  488.       RETURN
  489. '
  490. ' *  XFER FILE NOT Found
  491. '
  492. * REPLACING old line(s) by new
  493. * ------[ first line different ]------
  494. 20292 X = 165               'Pe 01/19/93
  495.       Gosub 21915        'Pe 01/19/93
  496.       Call QuickTput1 (OutTxt$) : _
  497.       Call Delaytime (3) : _
  498.       Return
  499. * DELETING old line(s)
  500. 20294
  501. * REPLACING old line(s) by new
  502. * ------[ first line different ]------
  503. 20318 X = 166               'Pe 01/19/93
  504.        Gosub 21915        'Pe 01/19/93
  505.       ZOutTxt$ = OutTxt$
  506.       GOSUB 21630
  507.       IF ZFileSysParm > 1 THEN _
  508.          RETURN
  509.       CALL DelayTime (3)
  510.       RETURN
  511. * DELETING old line(s)
  512. 20325
  513. * REPLACING old line(s) by new
  514. * ------[ first line different ]------
  515. 20330 GOSUB 20337
  516.       ZOutTxt$ = ZProtoPrompt$ + _
  517.             " " + WasA1$ + _
  518.             " of " + _
  519.             ZFileNameHold$ + _
  520.             " ready.  <Ctrl X> aborts"
  521.       GOSUB 21650
  522.       RETURN
  523. * DELETING old line(s)
  524. 20335
  525. * REPLACING old line(s) by new
  526. 20340 IF ZWasDF THEN _
  527. * ------[ first line different ]------
  528.        X = 167 : _              'Pe 01/19/93
  529.        Gosub 21915  : _        'Pe 01/19/93
  530.          ZOutTxt$ = OutTxt$ : _
  531.          GOSUB 21650 : _
  532.          GOTO 21700
  533.       GOSUB 20750
  534.       IF ZFileSysParm > 1 OR NOT ZOK THEN _
  535.          RETURN
  536.       CALL OpenWork (2,ZFileName$)
  537.       IF (ZAnsIndex = FirstDnld OR NOT ZConcatFIles) THEN _
  538.          GOSUB 20337 : _
  539.        X = 168 : _              'Pe 01/19/93
  540.        Gosub 21915  : _        'Pe 01/19/93
  541.          ZOutTxt$ = OutTxt$ : _
  542.          GOSUB 21640 : _
  543.          IF ZFileSysParm > 1 THEN _
  544.             RETURN _
  545.          ELSE X = 169 : _              'Pe 01/19/93
  546.              Gosub 21915  : _        'Pe 01/19/93
  547.  ZOutTxt$ = ZProtoPrompt$ + " SEND of " + _
  548.               ZFileNameHold$ + _
  549.               OutTxt$ : _
  550.          ZTurboKey = 2 : _
  551.          ZForceKeyboard = ZTrue : _
  552.          ZSuspendAutologoff = ZTrue : _
  553.          GOSUB 21660 : _
  554.          ZSuspendAutologoff = ZFalse : _
  555.          IF ZFileSysParm > 1 THEN _
  556.             RETURN
  557. * REPLACING old line(s) by new
  558. 20380 ZStopInterrupts = ZFalse
  559.       WasTU = 0
  560.       SWAP WasTU,ZPageLength
  561.       CALL BufFile (ZFileName$,WasX)
  562.       SWAP WasTU,ZPageLength
  563.       ZNonStop = (ZPageLength < 1)
  564.       IF StopFile THEN _
  565. * ------[ first line different ]------
  566.          ZDnldCompleted = ZFalse : _   'Pe 05/29/91
  567.          GOTO 20390
  568. * REPLACING old line(s) by new
  569. 20385 ZDnldCompleted = ZTrue   'Pe 05/30/91
  570. * REPLACING old line(s) by new
  571. 20395 GOSUB 21640
  572.       IF ZFileSysParm > 1 THEN _
  573.          RETURN
  574. * ------[ first line different ]------
  575.        X = 170              'Pe 01/19/93
  576.        Gosub 21915        'Pe 01/19/93
  577.       ZOutTxt$ = OutTxt$ +ZPressEnterExpert$
  578.       GOSUB 21660
  579.       IF ZFileSysParm > 1 THEN _
  580.          RETURN
  581.       IF ZWasQ = 0 THEN _
  582.          RETURN
  583.       ZUserIn$(ZAnsIndex) = ZUserIn$(1)
  584.       GOTO 20435
  585. * REPLACING old line(s) by new
  586. 20400 CALL TimeBack (1)
  587. * ------[ first line different ]------
  588.       ZUpBatchTransfer = ZFalse     'Pe 12/08/91
  589.       ZWasBatchTransfer = ZFalse
  590.       GOSUB 20420
  591.       ZAutoLogOffReq = 0
  592.       FirstUpld = ZAnsIndex
  593.       GOTO 20430
  594. * INSERTING new line(s)
  595. 20410 CALL TimeBack (1)
  596.       CALL KillWork (ZBatchWorkFile$)                 'Pe Batchup mod 
  597.       ZErrCode = 0
  598.       ZUpBatchTransfer = ZTrue
  599.       Call Killwork ("BatchUp" +ZNodeID$ +".LST")
  600.       ZErrCode = 0
  601.       ZAutoLogOffReq = 0
  602. '
  603. ' changes for 12/28/91
  604. '
  605. If LEN(ZUserIn$) < 3 Then _
  606.       CALL Batchit : _
  607.       FirstUpld = 2 : _
  608.       LastUpld = ZLastIndex : _
  609.       GOTO 20430
  610.      FirstUpld = ZAnsIndex
  611.     Goto 20430
  612.  
  613. * REPLACING old line(s) by new
  614. * ------[ first line different ]------
  615. 20420  X = 171              'Pe 01/19/93
  616.       Gosub 21915        'Pe 01/19/93
  617.       ZOutTxt$ = OutTxt$
  618.       GOSUB 21667
  619.       RETURN
  620. '
  621. ' *  SEARCH FOR DUPLICATE FILENAME
  622. '
  623. * REPLACING old line(s) by new
  624. 20432 FOR ZAnsIndex = FirstUpld TO LastUpld
  625.          IndexSave = ZAnsIndex
  626.          GOSUB 20471
  627.          GOSUB 20435
  628.          FirstUpld = FirstUpld + 1
  629.          IF ZFileSysParm > 1 THEN _
  630.             IndexSave = LastUpld + 1
  631.          ZAnsIndex = IndexSave
  632. * ------[ first line different ]------
  633.      NEXT
  634.     ZCmdTransfer$ = ""
  635.       RETURN
  636. * REPLACING old line(s) by new
  637. 20435 ZFileNameHold$ = ZUserIn$(ZAnsIndex)
  638.       ExtSrch = ZFalse
  639.       IF INSTR(ZFileNameHold$,".") = 0 THEN _
  640.          ZFileNameHold$ = ZFileNameHold$ + "." + ZDefaultExtension$
  641.       CALL AllCaps(ZFileNameHold$)
  642.       ZFileName$ = ZFileNameHold$
  643.       ZViolation$ = "Upload "
  644.       CALL NoPath (ZFileName$,BadFileNameIndex)
  645.       IF BadFileNameIndex THEN _
  646.          GOTO 20451
  647.       CALL BadFile (ZFileName$,BadFileNameIndex)
  648.       ON BadFileNameIndex GOTO 20440,20451,20515
  649. * ------[ first line different ]------
  650. '
  651. ' Following mod was orig from DGS-UNW mod....updated for Maple code 12/15/91
  652. ' 
  653. * REPLACING old line(s) by new
  654. * ------[ first line different ]------
  655. 20440 TmpName$ = ZDirPath$+"NOTHANX.DEF"                         'Pe 06/01/92
  656.       CALL FindIt (TmpName$)                                        'DGS-UNW
  657.       IF ZOK THEN
  658.        X = 172              'Pe 01/19/93
  659.        Gosub 21915        'Pe 01/19/93
  660.        CALL QuickTPut1 (OutTxt$ + " "+ZFileNameHold$)
  661.         CALL OpenWork (2,TmpName$)
  662.          HaveFile$ = ""
  663.           FileInList = ZFalse
  664.             WHILE NOT EOF(2) AND NOT FileInList
  665.          INPUT #2, HaveFile$
  666.         CALL AllCaps (HaveFile$)
  667.           FileInList = (INSTR(ZFileNameHold$,HaveFile$) > 0)
  668.      WEND
  669.        CLOSE 2
  670.       END IF
  671.      IF FileInList THEN _
  672.     GOTO 20443
  673. '
  674. ' If you want to eliminate either one of these routines just comment
  675. ' out the one you don't want....NOTHANX.DEF must reside in RBBS's Subdir
  676. ' the OFFLINE.DIR were your Master FMS dir is kept....you can change names
  677. ' as you see fit. 
  678. '                  !!DO NOT COMMENT OUT THE LINE NUMBER !!
  679. '
  680.  TmpName$ = ZDirPath$+"OFFLINE.DIR"                            'PE mode2 to
  681.        CALL FindIt (TmpName$)                                        'DGS-UNW
  682.         IF ZOK THEN
  683.        X = 173               'Pe 01/19/93
  684.        Gosub 21915        'Pe 01/19/93
  685.           CALL QuickTPut1 (OutTxt$ + " "+ZFileNameHold$ )
  686.            CALL OpenWork (2,TmpName$)
  687.             HaveFile$ = ""
  688.              FileInList = ZFalse
  689.                WHILE NOT EOF(2) AND NOT FileInList
  690.                 LINE INPUT #2, HaveFile$                     'Pe 12/15/91
  691.                  CALL AllCaps (HaveFile$)
  692.                   StopReading = INSTR(HaveFile$,".")
  693.                    HaveFile$ = Left$(HaveFile$,StopReading)    'Pe 12/16/91
  694.                   Search = INSTR(ZFileNameHold$,".")
  695.                   Search$ = Left$(ZFileNameHold$,Search)
  696.                  If Search$ = HaveFile$ THEN_
  697.                 FileInList = ZTrue
  698.              WEND
  699.       CLOSE 2
  700.         END IF
  701. '
  702. '    next 2 lines
  703. '    Allow Sysop to update FMS listing with a local upload
  704. '    even if the filename exists in the NOTHANX.DEF OR OFFLINE.DIR
  705. '
  706. * INSERTING new line(s)
  707. 20443   If ZSysop Then _
  708.             FileinList = ZFalse            'Pe 12/15/91
  709.         IF FileInList THEN _
  710.            CALL BufFile (ZHelpPath$+"NOTHANX.MSG",WasX) : _  'Pe 06/01/92
  711.            CALL DelayTime (3) : _
  712.            GOTO 20453
  713.         CALL Carrier
  714.         IF ZSubParm = -1 THEN _
  715.            ZFileSysParm = 7 : _
  716.            RETURN
  717.       PersFile$ = ZFileName$                                     'Pe 08/09/91
  718.       ZFileName$ = ZPersonalDrvPath$ + PersFile$                 'Pe 08/08/91
  719.       Call FindFile (ZFileName$,ZOK)                             'Pe 08/09/91
  720.       IF ZOK THEN Goto 20452                                     'Pe 08/09/91
  721.       ZFileName$ = PersFile$                                     'Pe 08/09/91
  722.       CALL RotorsDir (ZFileName$,ZSubDir$(),ZSubDirCount,ZTrue,"U")
  723. * REPLACING old line(s) by new
  724. 20450 IF Extension$ <> Check$ THEN _
  725. * ------[ first line different ]------
  726.       CALL RotorsDir (WasX$ + "." + Check$,ZSubDir$(),ZSubDirCount,ZTrue,"U") : _
  727.          IF ZOK THEN _
  728.             ExtSrch = ZTrue : _
  729.             GOTO 20452
  730.       GOTO 20447
  731. * REPLACING old line(s) by new
  732. * ------[ first line different ]------
  733. 20451 X = 174              'Pe 01/19/93
  734.       Gosub 21915        'Pe 01/19/93
  735.       ZOutTxt$ = OutTxt$+ ZFileName$ + ">"
  736.       GOTO 20395
  737. * REPLACING old line(s) by new
  738. 20452 IF ZUserSecLevel < ZOverWriteSecLevel THEN _
  739.          GOTO 20453
  740.       IF ExtSrch AND (WasX$ + "." + Check$) <> ZFileName$ THEN _
  741. * ------[ first line different ]------
  742.        X = 175 : _              'Pe 01/19/93
  743.        Gosub 21915  : _        'Pe 01/19/93
  744.          ZOutTxt$ = WasX$ + "." + Check$ + OutTxt$ _
  745.       ELSE X = 176              'Pe 01/19/93
  746.        Gosub 21915        'Pe 01/19/93
  747.        ZOutTxt$ = OutTxt$
  748.       GOSUB 21660
  749.       IF ZFileSysParm > 1 THEN _
  750.          RETURN
  751.       IF NOT ZYes THEN _
  752.          GOTO 20453
  753.       ZWasZ$ = ZFileName$
  754.       CALL KillWork (ZFileName$)
  755.       IF ZErrCode <> 0 AND ZErrCode <> 53 THEN _
  756.        X = 177 : _              'Pe 01/19/93
  757.        Gosub 21915  : _        'Pe 01/19/93
  758.          ZOutTxt$ = OutTxt$ : _
  759.          GOSUB 21660 : _
  760.          RETURN
  761.       GOTO 20475
  762. * REPLACING old line(s) by new
  763. 20453 CLOSE 2
  764. * ------[ first line different ]------
  765.       FileInList = ZFalse ' Pe 12/31/92
  766.       IF ZUserSecLevel >= ZAddDirSecurity THEN _
  767.          GOTO 20455
  768. * REPLACING old line(s) by new
  769. * ------[ first line different ]------
  770. 20454 X = 178               'Pe 01/19/93
  771.       Gosub 21915         'Pe 01/19/93
  772.       CALL QuickTPut1 (OutTxt$ + " " + ZFileNameHold$)
  773.       CALL DelayTime (3)  'Pe 08/04/91
  774.       PersFile$ = ""      'Pe 08/08/91
  775.       CALL UpdtCalr ("Upload duplicate " + ZFileNameHold$,1)
  776.       RETURN
  777. * REPLACING old line(s) by new
  778. * ------[ first line different ]------
  779. 20455 X = 179              'Pe 01/19/93
  780.        Gosub 21915        'Pe 01/19/93
  781.        ZOutTxt$ = OutTxt$
  782.       ZTurboKey = - ZTurboKeyUser
  783.       GOSUB 21660
  784.       IF ZFileSysParm > 1 THEN _
  785.          RETURN
  786.       IF NOT ZYes THEN _
  787.          RETURN
  788.       GOSUB 20460
  789.       IF WhoTo$ = "" THEN _
  790.          RETURN
  791.       AddingDescOnly = ZTrue
  792.       ZWasBatchTransfer = ZFalse    'Pe 01/03/92
  793.       ZWasFT$ = "l"
  794. CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(),ZLinesInMsg,1) 'UPL-MOD pe082690
  795. 'Call AutoLogoff    'Pe 10/20/91 Test mod... remove when working
  796.       GOSUB 20702
  797.       RETURN
  798. * REPLACING old line(s) by new
  799. * ------[ first line different ]------
  800. 20460 CALL KillWork (ZNodeWorkFile$)      'Pe BatchUp
  801.       WhoTo$ = ""
  802.      IF ZUpBatchTransfer THEN _          'Pe 04/29/92
  803.       WhoTo$ = "ALL"                     'Pe 04/29/92
  804.       WasY$ = ZFileName$
  805.       IF ZUserSecLevel >= ZMinSecPersUpld THEN _
  806.          CALL SetWhoTo (ZTrue,WhoTo$,"",RcvrRecNum,Found) _
  807.       ELSE WhoTo$ = "ALL"
  808.       ZFileName$ = WasY$
  809.       RETURN
  810. * REPLACING old line(s) by new
  811. 20471 ZWasZ$ = ZUserIn$(ZAnsIndex)
  812.       CALL AllCaps(ZWasZ$)
  813.       WasX = 0
  814.       IF LEN (ZWasZ$) = 1 THEN _
  815.          WasX = INSTR(ZDefaultXfer$,ZWasZ$) : _
  816.          IF WasX > 0 THEN _
  817.             ZAnsIndex = ZAnsIndex + 1 : _
  818.             IndexSave = IndexSave + 1 : _
  819.             ZCmdTransfer$ = ZWasZ$ : _
  820. * ------[ first line different ]------
  821.             IF MID$(ZInternalEquiv$,WasX,1) = "N" THEN _
  822.                ZCmdTransfer$ = ""
  823.       RETURN
  824. * REPLACING old line(s) by new
  825. 20475 ZWasZ$ = ZUpldDriveFile$
  826.       CALL FindFree
  827.       IF VAL(ZFreeSpace$) < 4096 THEN _
  828.          GOSUB 21895 : _
  829.          IndexSave = ZLastIndex + 1 : _
  830.          RETURN
  831. * ------[ first line different ]------
  832.        X = 180               'Pe 01/19/93
  833.        Gosub 21915        'Pe 01/19/93
  834.       ZOutTxt$ = OutTxt$ + ZFreeSpace$
  835.       GOSUB 21640
  836.       IF ZFileSysParm > 1 THEN _
  837.          RETURN
  838.     GOSUB 20460                                                  'Pe 08/08/91
  839.       If ZMplPersUpload = ZTrue Then _                           'Pe 08/09/91
  840.       ZFileName$ = ZPersonalDrvPath$ + PersFile$                 'Pe 08/08/91
  841. '*****************
  842. CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(),ZLinesInMsg,1)  '<++++++
  843. '*****************
  844. * INSERTING new line(s)
  845. 20476 IF ZAbort THEN _     'Pe 09/07/91 added line number
  846.       ZAbort = ZFalse : _   'PE 12/14/88
  847.         RETURN
  848.       ZLine25$ = "(U) " + _
  849.                  ZFileNameHold$
  850.       ZSubParm = 2
  851.       CALL Line25
  852.       ZOutTxt$ = ""
  853.       ZOK = ZTrue
  854. * REPLACING old line(s) by new
  855. * ------[ first line different ]------
  856. 20500  ZTransferFunction = 2
  857.       GOSUB 21790
  858.       IF ZFileSysParm > 1 THEN _
  859.          RETURN
  860.       IF ZInternalProt$ = "N" THEN _                       'Pe 08/08/91
  861.          GOTO 21700                                        'Pe 08/08/91
  862. IF NOT ZUpBatchTransfer THEN _
  863. CALL AutoLogOff            'Pe 02/04/90
  864.       IF ZAutoEnd = 2 THEN _
  865.          RETURN
  866.       ON INSTR("AXCYN",ZInternalProt$) GOTO _
  867.          20560, _         ' ASCII UPLOAD
  868.          20542, _         ' Xmodem
  869.          20542, _         ' Xmodem CRC
  870.          20542, _         ' YMODEM
  871.          20735            ' NONE - CANCEL
  872.       GOTO 20261
  873. * REPLACING old line(s) by new
  874. * ------[ first line different ]------
  875. 20542 X = 165              'Pe 01/19/93
  876.       Gosub 21915         'Pe 01/19/93
  877.       Call QuickTput1 (OutTxt$) : _
  878.       Call Delaytime (3) : _
  879.       Return
  880. '
  881. ' *  ASCII UPLOAD
  882. '
  883. * REPLACING old line(s) by new
  884. 20560 LineACK = (ZDefaultLineACK$ <> "")
  885.       IF LineACK THEN _
  886. * ------[ first line different ]------
  887.        X = 181 : _              'Pe 01/19/93
  888.        Gosub 21915  : _        'Pe 01/19/93
  889.          ZOutTxt$ = OutTxt$ : _
  890.          ZTurboKey = - ZTurboKeyUser : _
  891.          LineACK = NOT ZNo : _
  892.          GOSUB 21660 : _
  893.          IF ZFileSysParm > 1 THEN _
  894.             RETURN
  895.       GOSUB 20337
  896.        X = 182              'Pe 01/19/93
  897.        Gosub 21915       'Pe 01/19/93
  898.       CALL QuickTPut1 (OutTxt$)
  899.       CALL QuickTPut1 (ZProtoPrompt$+" RECEIVE of " + ZFileNameHold$ + " ready")
  900.       ZOK = ZFalse
  901.       XOff = ZFalse
  902.       CALL OpenOutW(ZFileName$)
  903.       IF ZErrCode <> 0 AND ZErrCode <> 53 THEN _
  904.          ZWasEL = 20560 : _
  905.          GOTO 21900
  906.       GOSUB 20510
  907.       IF ZFileSysParm > 1 THEN _
  908.          RETURN
  909. * REPLACING old line(s) by new
  910. * ------[ first line different ]------
  911. 20670 X = 183               'Pe 01/19/93
  912.        Gosub 21915        'Pe 01/19/93
  913.        ZOutTxt$ = ZXOff$ + OutTxt$
  914. * REPLACING old line(s) by new
  915. 20700 GOSUB 21780
  916.       IF ZFileSysParm > 1 THEN _
  917.          RETURN
  918. * ------[ first line different ]------
  919. '
  920. '20702 IF ZWasFT$ = "l" THEN _          'Pe 12/28/91
  921. '         ZWasBatchTransfer = ZFalse    'Pe 12/28/91
  922. '
  923. 'Line number moved for Local Uploads    'Pe 01/03/91
  924. '
  925.       IF ZWasBatchTransfer Then _
  926.         CALL BatchUpload (ZDesc$,ZUCat$,2) : _
  927.         GOTO 20703
  928. * REPLACING old line(s) by new
  929. * ------[ first line different ]------
  930. 20702 CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(), ZLinesInMsg,2) 'Pe 02/03/90
  931. '
  932. * INSERTING new line(s)
  933. 20703 IF ZAutoEnd = 1 THEN _                'AUTO-UP MOD
  934.          ZFileSysParm = 7: _             'Pe BatchUp 09/12/91
  935.          ZDnldCompleted = ZTrue : _      'Pe BatchUp 09/12/91
  936.          RETURN                             'AUTO-UP MOD
  937.       IF NOT ZGetExtDesc THEN _
  938.          ZPrivateDoor = ZFalse : _
  939.          GOTO 20710
  940.        X = 184             'Pe 01/19/93
  941.        Gosub 21915        'Pe 01/19/93
  942.       ZMsgHeader$ = OutTxt$ + " " + ZFileNameHold$
  943.       ZSysopComment = ZTrue
  944.       ZMaxMsgLines = ZMaxExtendedLines
  945.       WasLL = ZRightMargin
  946.       ZRightMargin = 30 + ZMaxDescLen
  947.       IF ZRightMargin > 74 THEN _
  948.          ZRightMargin = 74
  949.       ZFileSysParm = 5
  950.       RETURN
  951. * REPLACING old line(s) by new
  952. 20705 ZMaxMsgLines = ZMaxMsgLinesDef
  953.       ZRightMargin = WasLL
  954. * ------[ first line different ]------
  955.       CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(),ZLinesInMsg,3)  'Pe 02/04/90
  956. * REPLACING old line(s) by new
  957. 20730 GOSUB 21780
  958. * ------[ first line different ]------
  959.        X = 160              'Pe 01/19/93
  960.        Gosub 21915        'Pe 01/19/93
  961.       CALL QuickTPut1 (OutTxt$)
  962.       ZAutoLogoffReq = ZFalse                'Pe 10/20/91
  963.       ZWasBatchTransfer = ZFalse             'Pe 03/02/92
  964.       ZUpBatchTransfer = ZFalse              'Pe 03/02/92
  965.       LastUpld = 0
  966.       ZPrivateDoor = ZFalse
  967. * REPLACING old line(s) by new
  968. 20735 CALL KillWork (ZFileName$)
  969. * ------[ first line different ]------
  970.       IF ZErrCode <> 0 THEN _
  971.          ZWasEL = 20736 : _
  972.          GOTO 21900
  973.       ZAnsIndex = ZLastIndex + 1
  974.       IndexSave = ZAnsIndex
  975.       ZLastIndex = 0
  976.       RETURN
  977. '
  978. ' *  Sysop ABORTED UPLOAD
  979. '
  980. * REPLACING old line(s) by new
  981. * ------[ first line different ]------
  982. 20745 X = 186              'Pe 01/19/93
  983.        Gosub 21915        'Pe 01/19/93
  984.        ZOutTxt$ = ZXOff$ + OutTxt$
  985.       GOTO 20675
  986. '
  987. ' *  CALCULATE DOWNLOAD TIME ESTIMATE
  988. '
  989. * REPLACING old line(s) by new
  990. 20760 IF ZErrCode <> 0 THEN _
  991. * ------[ first line different ]------
  992.        X = 187 : _              'Pe 01/19/93
  993.        Gosub 21915  : _        'Pe 01/19/93
  994.          CALL QuickTPut1 (OutTxt$ + " " +ZFileNameHold$) : _
  995.          CALL UpdtCalr (OutTxt$ + " "+ZFileName$,2) : _
  996.          ZOK = ZFalse : _
  997.          ZErrCode = 0 : _
  998.          ZBytesInFile# = 0 : _
  999.          RETURN
  1000.       ZBytesInFile# = LOF(2)
  1001.       ZNumDnldBytes! = LOF(2)
  1002.       ZOK = ZTrue
  1003.       IF SizeOnly THEN _
  1004.          SizeOnly = ZFalse : _
  1005.          RETURN
  1006.       ZBlocksInFile# = MaxBlock
  1007.       IF ZBatchTransfer THEN _
  1008.          BatchBlocks# =  BatchBlocks# + ZBlocksInFile# : _
  1009.          BatchBytes# = BatchBytes# + ZBytesInFile# : _
  1010.          CALL OpenWorkA (ZNodeWorkFile$) : _
  1011.          CALL PrintWorkA (ZFileName$) : _
  1012.          ZDownFiles = ZDownFiles + 1 : _
  1013.          CLOSE 2 : _
  1014.          RETURN
  1015.       ZDownFiles = 1
  1016. * REPLACING old line(s) by new
  1017. 20791 CALL CheckTimeRemain (MinsRemaining)
  1018.       IF ZSubParm = -1 THEN _
  1019.          ZFileSysParm = 6 : _
  1020.          RETURN
  1021.       ZOK = ZTrue
  1022.       Temp = ZExtraDnldTime
  1023.       CALL ChkAddedTime (Temp)
  1024.       Temp = MinsRemaining + Temp
  1025.       ZWasA = INT(ZBlocksInFile# / 60) + 1
  1026.       IF ZWasA <= Temp THEN _
  1027.          GOTO 20793
  1028. * ------[ first line different ]------
  1029.       IF ZDownFiles < 2 THEN _
  1030.          CALL AllCaps (ZFileNameHold$) : _
  1031.        X = 188 : _              'Pe 01/19/93
  1032.        Gosub 21915  : _        'Pe 01/19/93
  1033.          ZOutTxt$ = ZFileNameHold$ +OutTxt$ _
  1034.                  + STR$(ZWasA) + "  have" + STR$(Temp) : _
  1035.          CALL UpdtCalr (ZOutTxt$,2) : _
  1036.          CALL QuickTPut1 (ZOutTxt$) _
  1037.       ELSE CALL OpenWork (2,ZNodeWorkFile$) : _
  1038.            WHILE NOT EOF(2) : _
  1039.               CALL ReadDir (2,1) : _
  1040.               CALL BreakFileName (ZOutTxt$,DR$,ZWasY$,WasX$,ZTrue): _
  1041.               ZFileName$ = ZWasY$ + WasX$ : _
  1042.               X = 188 : _              'Pe 01/19/93
  1043.               Gosub 21915  : _        'Pe 01/19/93
  1044.               ZOutTxt$ = ZFileName$ + OutTxt$ _
  1045.                          + STR$(ZWasA) + "  have" + STR$(Temp) : _
  1046.               CALL UpdtCalr (ZOutTxt$,2) : _
  1047.            WEND : _
  1048.            CLOSE 2 : _
  1049.             X = 188 : _              'Pe 01/19/93
  1050.              Gosub 21915  : _        'Pe 01/19/93
  1051.            ZOutTxt$ = OutTxt$  _
  1052.                        + STR$(ZWasA) + "  have" + STR$(Temp) : _
  1053.            CALL QuickTPut1 (ZOutTxt$)
  1054.       CALL DelayTime (3)
  1055.       IF ZDownFiles < 2 THEN _
  1056.          GOTO 20792
  1057.       ZLastIndex = 0
  1058.        X = 189              'Pe 01/19/93
  1059.        Gosub 21915        'Pe 01/19/93
  1060.       ZOutTxt$ = OutTxt$
  1061.       ZTurboKey = - ZTurboKeyUser
  1062.       GOSUB 21668
  1063.       IF ZNo THEN _
  1064.          LastDnld = 0 : _
  1065.          GOTO 20792
  1066.       Temp = 0
  1067.       CALL OpenWork (2,ZNodeWorkFile$)
  1068.       WHILE NOT EOF(2)
  1069.          CALL ReadDir (2,1)
  1070.          CALL BreakFileName (ZOutTxt$,DR$,ZWasY$,WasX$,ZTrue)
  1071.          ZFileName$ = ZWasY$ + WasX$
  1072.          ZOutTxt$ = "Download " + ZFileName$ + " (Y,[N])"
  1073.          ZTurboKey = - ZTurboKeyUser
  1074.          GOSUB 21668
  1075.          IF ZYes THEN _
  1076.             Temp = Temp + 1 : _
  1077.             ZOutTxt$(Temp) = ZFileName$
  1078.       WEND
  1079.       CLOSE 2
  1080.       ZAnsIndex = 1
  1081.       ReStart = (Temp > 0)
  1082.       LastDnld = Temp
  1083.       ZLastIndex = Temp
  1084.       FOR WasX = 1 TO Temp
  1085.          ZUserIn$(WasX) = ZOutTxt$(WasX)
  1086.       NEXT
  1087. * REPLACING old line(s) by new
  1088. 20793 IF ZRatioRestrict# > 0 THEN _
  1089. * ------[ first line different ]------
  1090.        X = 190 : _              'Pe 01/19/93
  1091.        Gosub 21915  : _        'Pe 01/19/93
  1092.          CALL QuickTPut1 (OutTxt$) : _
  1093.          CALL CheckRatio (ZTrue)
  1094.       CALL AutoLogoff
  1095.       IF ZAutoEnd = 2 THEN _
  1096.       ZOK = ZFalse
  1097.       RETURN
  1098. * REPLACING old line(s) by new
  1099. 20851 ZWasY$ = ""
  1100.       CALL CheckCarrier
  1101.       IF ZSubParm = -1 THEN _
  1102.          ZFileSysParm = 7 : _
  1103.          RETURN
  1104.       RETURN
  1105. '
  1106. * ------[ first line different ]------
  1107. ' *  CHANGE TO 8 BIT FOR Xmodem
  1108. '
  1109. * DELETING old line(s)
  1110. 20860
  1111. 20900
  1112. 20903
  1113. 20920
  1114. 20922
  1115. 20930
  1116. 20960
  1117. 20970
  1118. 20990
  1119. * REPLACING old line(s) by new
  1120. 20996 WasSO = 0
  1121.       RETURN
  1122. '
  1123. * ------[ first line different ]------
  1124. ' STANDARD ENTRY FOR RBBS-PC'S COMMON TERMINAL OUTPUT ROUTINE
  1125. '
  1126. ' Modeled on lines 12975 to 12983 in RBBS-PC.BAS
  1127. * DELETING old line(s)
  1128. 20999
  1129. 21000
  1130. 21020
  1131. 21040
  1132. 21050
  1133. 21060
  1134. 21070
  1135. 21080
  1136. 21090
  1137. 21100
  1138. 21110
  1139. 21113
  1140. 21120
  1141. 21131
  1142. 21145
  1143. 21150
  1144. 21170
  1145. 21180
  1146. 21190
  1147. 21191
  1148. 21200
  1149. 21210
  1150. 21212
  1151. 21220
  1152. 21225
  1153. 21230
  1154. 21240
  1155. 21250
  1156. 21280
  1157. 21281
  1158. 21300
  1159. 21303
  1160. 21350
  1161. 21360
  1162. 21380
  1163. 21390
  1164. 21410
  1165. 21415
  1166. 21420
  1167. 21440
  1168. 21443
  1169. 21445
  1170. 21450
  1171. 21455
  1172. 21460
  1173. 21470
  1174. 21480
  1175. 21490
  1176. 21503
  1177. 21504
  1178. 21510
  1179. 21530
  1180. 21531
  1181. 21540
  1182. 21545
  1183. 21550
  1184. 21560
  1185. 21561
  1186. * REPLACING old line(s) by new
  1187. 21720 CALL LPrnt (WasD$,NumReturns)
  1188.       RETURN
  1189. '
  1190. * ------[ first line different ]------
  1191. ' * UPDATE DOWNLOAD STATISTICS
  1192. '
  1193. '  (formerly lines 50600 to 50614 in RBBS-PC.BAS
  1194. * DELETING old line(s)
  1195. 21750
  1196. * REPLACING old line(s) by new
  1197. 21760 GOSUB 21780
  1198.       IF ZFileSysParm > 1 THEN _
  1199.          RETURN
  1200.       IF ZBatchTransfer THEN _
  1201.          CALL LinesInFile (ZNodeWorkFile$,ZDownFiles) _
  1202.       ELSE ZDownFiles = 1
  1203. * ------[ first line different ]------
  1204.       IF NOT ZDnldCompleted THEN _     'Pe 05/31/91
  1205.          ZAutoLogoffReq = ZFalse : _
  1206.          ZWasDF$ = " Aborted" : _
  1207.          GOTO 21770
  1208.       CALL LogPDown (ZPersonalDnld,1+ZAnsIndex-FirstDnld)
  1209.       WasX = ((ZRatioRestrict# > 0) AND ZEnforceRatios AND ZFreeDnld)
  1210.       IF NOT WasX THEN _
  1211.          ZDnlds = ZDnlds + ZDownFiles : _
  1212.          ZGlobalDLToday! = ZGlobalDLToday! + ZDownFiles : _
  1213.          ZGlobalDnlds = ZGlobalDnlds + ZDownFiles : _
  1214.          ZDLBytes! = ZDLBytes! + ZNumDnldBytes! : _
  1215.          ZGlobalDLBytes! = ZGlobalDLBytes! + ZNumDnldBytes! : _
  1216.          ZDLToday! = ZDLToday! + ZDownFiles : _
  1217.          ZBytesToday! = ZBytesToday! + ZNumDnldBytes! : _
  1218.          ZGlobalBytesToday! = ZGlobalBytesToday! + ZNumDnldBytes!
  1219.       ZNumDnldBytes! = 0
  1220.       ZWasDF$ = " Downloaded"
  1221.       IF (ZAnsIndex = LastDnld OR NOT ZConcatFIles) THEN _
  1222.         Call MenuPlus (9) : _                                ' Pe Menu174
  1223.          CALL SkipLine (1) : _
  1224.        X = 191 : _              'Pe 01/19/93
  1225.        Gosub 21915  : _        'Pe 01/19/93
  1226.          CALL QuickTPut1 (OutTxt$)
  1227.          IF WasX THEN _
  1228.        X = 192 : _              'Pe 01/19/93
  1229.        Gosub 21915  : _        'Pe 01/19/93
  1230.             CALL QuickTPut1 (OutTxt$)
  1231. * DELETING old line(s)
  1232. 21768
  1233. * REPLACING old line(s) by new
  1234. * ------[ first line different ]------
  1235. 21773 IF ZTransferFunction = 1 THEN
  1236.      CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZTrue)
  1237.       ZWasZ$ = WasX$ + _
  1238.            Extension$ + _
  1239.            ZWasDF$ + _
  1240.            " at " + _
  1241.            ZTime$ + _
  1242.            " using " + _
  1243.            ZWasFT$ + _
  1244.            STR$(ZBytesInFile#)
  1245.       CALL UpdtCalr (ZWasZ$,2)
  1246.    END IF
  1247.       IF ZBatchTransfer THEN _
  1248.          ZWasQ = ZWasQ - 1 : _
  1249.          GOTO 21772
  1250.       'CALL CheckRatio (ZFalse)
  1251. * REPLACING old line(s) by new
  1252. * ------[ first line different ]------
  1253. 21774  RETURN
  1254. '
  1255. '
  1256. ' *****   TURN ON INTERMEDIATE ECHO   ****
  1257. '
  1258. '  (formerly line 50620 in RBBS-PC.BAS
  1259. * REPLACING old line(s) by new
  1260. * ------[ first line different ]------
  1261. 21790  Call CheckCarrier                  'Pe 12/31/91
  1262.       IF ZSubParm = -1 THEN _             'Pe 12/31/91
  1263.          ZFileSysParm = 7 : _             'Pe 12/31/91
  1264.        Return                             'Pe 12/31/91
  1265.        IF ZEchoer$ = "I" THEN _
  1266.          CALL SetEcho ("R")
  1267.       RETURN
  1268. '
  1269. ' *****   DIRECTORY SEARCH   ****
  1270. '
  1271. '  (formerly lines 52900 to 52920 in RBBS-PC.BAS
  1272. * REPLACING old line(s) by new
  1273. * ------[ first line different ]------
  1274. 21810 X = 193              'Pe 01/19/93
  1275.        Gosub 21915        'Pe 01/19/93
  1276.        ZOutTxt$ = OutTxt$
  1277.       ZMacroMin = 99
  1278.       GOSUB 21668
  1279.       IF ZWasQ = 0 THEN _
  1280.          RETURN
  1281. * REPLACING old line(s) by new
  1282. 21820 WasRS$ = ZUserIn$(ZAnsIndex)
  1283.       WildSearch = (INSTR(WasRS$,"*") > 0 OR INSTR(WasRS$,"?") > 0)
  1284.       CALL AllCaps (WasRS$)
  1285.       IF RIGHT$(WasRS$,1) = "*" THEN _
  1286.          IF RIGHT$(WasRS$,2) <> ".*" THEN _
  1287.             WasRS$ = WasRS$ + ".*"
  1288.       SearchString$ = WasRS$
  1289.       SearchDate$ = ""
  1290.       ZJumpSearching = ZFalse
  1291.       WasA1$ = WasRS$
  1292. * ------[ first line different ]------
  1293.       ZExtendedOff = ZFalse 'ZTrue       'Pe 10/27/91
  1294.       GOTO 21867
  1295. '
  1296. ' *****  P - personal download  ****
  1297. '
  1298. '  (formerly lines 52950 to 52952 in RBBS-PC.BAS
  1299. * REPLACING old line(s) by new
  1300. * ------[ first line different ]------
  1301. 21854 RETURN
  1302. '
  1303. ' *  WasN - COMMAND FROM FILES MENU (DISPLAY NEW FILES SINCE Last DIR DISPLAY)
  1304. '
  1305. '  (formerly lines 53000 to 53070 in RBBS-PC.BAS
  1306. * REPLACING old line(s) by new
  1307. 21862 WasA1$ = RIGHT$(ZWasLM$,4) +_
  1308.             LEFT$(ZWasLM$,2)
  1309. * ------[ first line different ]------
  1310.        X = 194              'Pe 01/19/93
  1311.        Gosub 21915        'Pe 01/19/93
  1312.       ZOutTxt$ = OutTxt$ + WasA1$
  1313.       GOSUB 21668
  1314.       CALL AraAllCaps (ZUserIn$(),ZAnsIndex)
  1315.       IF ZWasQ = 0 OR ZUserIn$(ZAnsIndex) = "S" THEN _
  1316.          WasRS$ = ZWasLM$ : _
  1317.          GOTO 21866
  1318. * REPLACING old line(s) by new
  1319. 21866 SearchDate$ = WasRS$
  1320.       SearchString$ = ""
  1321.       ZJumpSearching = ZFalse
  1322. * ------[ first line different ]------
  1323.       ZExtendedOff = ZFalse 'ZTrue             'Pe 10/27/91
  1324.       ZUserIn$(ZAnsIndex) = "A"
  1325.        ZEndList = ZTrue          'Pe 12/01/91
  1326.        GOTO 21871                'Pe NewFile mod
  1327. * REPLACING old line(s) by new
  1328. * ------[ first line different ]------
  1329. 21867 CALL GetDirs (ZFalse)
  1330.       IF ZWasQ = 0 THEN _
  1331.          RETURN
  1332. * REPLACING old line(s) by new
  1333. 21880 WasQX = ZAnsIndex
  1334.       GOSUB 20157
  1335.       IF ZFileSysParm > 1 THEN _
  1336.          RETURN
  1337.       ZAnsIndex = ZAnsIndex + 1
  1338.       IF ZAnsIndex <= ZLastIndex THEN _
  1339.          GOTO 21875
  1340.       ListNew = ZFalse
  1341. * ------[ first line different ]------
  1342.       ZEndList = ZFalse       'Pe 12/01/91
  1343.       SearchString$ = ""
  1344.       SearchDate$ = ""
  1345.       RETURN
  1346. * REPLACING old line(s) by new
  1347. * ------[ first line different ]------
  1348. 21895  X = 195              'Pe 01/19/93
  1349.        Gosub 21915        'Pe 01/19/93
  1350.        CALL QuickTPut1 (OutTxt$)
  1351.        RETURN
  1352. '
  1353. ' *  MAIN FILE SYSTEM ERROR TRAP - ALL ERRORS PASS THROUGH THIS ROUTINE
  1354. '
  1355. '  (formerly lines 13000 to 13500 in RBBS-PC.BAS
  1356. * REPLACING old line(s) by new
  1357. 21900 IF ZDebug THEN _
  1358.          ZOutTxt$ = "RBBSSUB5 DEBUG Error Trap Entry ERL=" + _
  1359. * ------[ first line different ]------
  1360.              STR$(ZWasEL) + _
  1361.               " ERR=" + _
  1362.               STR$(ZErrCode) : _
  1363.          IF ZPrinter THEN _
  1364.             CALL Printit(ZOutTxt$) _
  1365.          ELSE CALL LPrnt(ZOutTxt$,1)
  1366.       IF ZWasEL = 20126 AND ZErrCode = 53 THEN _
  1367.          GOTO 20142
  1368.       IF ZWasEL = 20242 AND ZErrCode = 62 THEN _
  1369.          CALL UpdtCalr (ZFileSecFile$ + " bad format!",2) : _
  1370.          GOTO 20247
  1371.       IF ZWasEL = 20263 THEN _
  1372.          ZOutTxt$ = "<Download aborted>" : _
  1373.          ZDnldCompleted = ZFalse : _          'Pe
  1374.          ZAutoLogoffReq = ZFalse : _
  1375.          ZAutoEnd = 3 : _
  1376.          GOTO 20390
  1377.       IF ZWasEL = 20560 AND ZErrCode = 67 THEN _
  1378.          GOTO 20451
  1379.       IF ZWasEL = 20560 AND ZErrCode = 70 THEN _
  1380.          IF VAL(ZFreeSpace$) > 1999 THEN _
  1381.             GOTO 20610 _
  1382.          ELSE GOSUB 21895 : _
  1383.               GOTO 21700
  1384.       IF ZWasEL = 20620 THEN _
  1385.          GOTO 20670
  1386.       IF ZWasEL = 20650 THEN _
  1387.          GOTO 20670
  1388.       IF ZWasEL = 20736 AND ZErrCode = 53 THEN _
  1389.          GOTO 21700
  1390. * INSERTING new line(s)
  1391. 21915 Call GetRBBSString(X,RBBSString$)      'Pe 01/16/93
  1392.       OutTxt$ = RBBSString$                 'Pe 01/16/93
  1393.       Return
  1394. * REPLACING old line(s) by new
  1395. 63100 ' $SUBTITLE: 'DoorReturn - Subroutine to process requests from a door'
  1396. ' $PAGE
  1397. '
  1398. '  NAME    -- DoorReturn
  1399. '
  1400. '  INPUTS  -- PARAMETER                      MEANING
  1401. '             DOUTx.DEF               File of requests
  1402. '
  1403. '  OUTPUTS -- ZUserSecLevel     Revised Security Level
  1404. '
  1405. '  PURPOSE -- To give Doors a stable way to make requests
  1406. '             to the host.
  1407. '
  1408.       SUB DoorReturn STATIC
  1409.       IF NOT ZExitToDoors THEN _
  1410.          EXIT SUB
  1411.       CALL OpenUser (ZHighestUserRecord)
  1412.       FIELD 5, 128 AS ZUserRecord$
  1413.       FIELD 5,31 AS ZUserName$, _
  1414.               15 AS ZPswd$, _
  1415.                2 AS ZSecLevel$, _
  1416.               14 AS ZUserOption$,  _
  1417.               24 AS ZCityState$, _
  1418.                2 AS MachineType$, _
  1419.                1 AS ZBankTime$,_
  1420.                4 AS ZTodayDl$, _
  1421.                4 AS ZTodayBytes$, _
  1422.                4 AS ZDlBytes$, _
  1423.                4 AS ZULBytes$, _
  1424.               14 AS ZLastDateTimeOn$, _
  1425.                3 AS ZListNewDate$, _
  1426.                2 AS ZUserDnlds$, _
  1427.                2 AS ZUserUplds$, _
  1428.                2 AS ZElapsedTime$
  1429.       ZSubParm = 6
  1430.       CALL FileLock
  1431.       GET 5,ZUserFileIndex
  1432.       ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2))
  1433. * ------[ first line different ]------
  1434.       IF ZDoorDropFile$ = "R" THEN _                                 ' DD012702/DOORS
  1435.          CALL ReadDoorSys                                            ' DD012702/DOORS
  1436.       CALL SetSysOp
  1437.       CALL SetUserPref
  1438.       CALL SetUserUpDn
  1439.       ZGlobalsSet = ZFalse
  1440.       CALL SetGlobalUpDn
  1441.       ZElapsedTime = CVI(MID$(ZUserRecord$,127,2))
  1442.       IF ZDoorDropFile$ = "R" THEN _                                 ' DD012702/DOORS
  1443.          ZErrCode = 0 : _                                            ' DD012702/DOORS
  1444.          PUT 5,ZUserFileIndex                                        ' DD012702/DOORS
  1445.       ZFileName$ = "DOUT" + ZNodeID$ + ".DEF"
  1446.       CALL FindIt (ZFileName$)
  1447.       IF NOT ZOK THEN _
  1448.          GOTO 63197
  1449. * REPLACING old line(s) by new
  1450. 63110 WasX$ = LEFT$(ZOutTxt$(2),1)         ' ZWasSL = Security Level
  1451.       CALL CheckInt (ZOutTxt$(2))
  1452.       IF ZErrCode > 0 THEN _
  1453.          GOTO 63105
  1454.       IF WasX$ = "+" OR WasX$ = "-" THEN _
  1455.          ZWasA = ZUserSecLevel + ZTestedIntValue _
  1456.       ELSE ZWasA = ZTestedIntValue
  1457.       IF ZWasA < ZSysopSecLevel THEN _
  1458.          ZAdjustedSecurity = (ZWasA <> ZUserSecLevel) : _
  1459.          IF ZAdjustedSecurity THEN _
  1460. * ------[ first line different ]------
  1461.            Call MenuPlus (10) : _                    ' Pe Menu174
  1462.             ZUserSecLevel = ZWasA : _
  1463.             MID$(ZUserRecord$,47,2) = MKI$(ZWasA) : _
  1464.             Call GetRBBSString(196,RBBSString$) : _      'Pe 01/16/93
  1465.             OutTxt$ = RBBSString$ : _                'Pe 01/16/93
  1466.             CALL QuickTPut1 (OuTxt$ + STR$(ZWasA)) : _
  1467.             Call GetRBBSString(197,RBBSString$) : _      'Pe 01/16/93
  1468.             OutTxt$ = RBBSString$ : _                'Pe 01/16/93
  1469.             CALL UpdtCalr (OutTxt$+STR$(ZWasA),2)
  1470.       GOTO 63105
  1471. * REPLACING old line(s) by new
  1472. 63320 ' $SUBTITLE: 'ShellExit - sub to shell out from RBBS'
  1473. ' $PAGE
  1474. '
  1475. '  NAME    -- ShellExit
  1476. '
  1477. '  INPUTS  -- ShellTem$     String to invoke shell with
  1478. '
  1479. '  OUTPUTS -- none
  1480. '
  1481. '  PURPOSE -- Delay so that strings can finish printing.  Restore comm
  1482. '             port on return
  1483. '
  1484.       SUB ShellExit (ShellTem$) STATIC
  1485. * ------[ first line different ]------
  1486.       CALL DelayTime (4 + ZBPS)   'Pe 08/12/91
  1487.       IF NOT ZLocalUser THEN _
  1488.          IF ZFossil THEN _
  1489.             CALL FOSExit(ZComPort) _
  1490.          ELSE CLOSE 3 : _
  1491.               OUT ZModemCntlReg,INP(ZModemCntlReg) OR 1
  1492.       CLOSE 2
  1493.       CALL MetaGSR (ShellTem$,ZFalse)
  1494.       SHELL ShellTem$
  1495.       IF ZFossil THEN _
  1496.          IF NOT ZLocalUser THEN _
  1497.             CALL FOSinit(ZComPort,Result) : _
  1498.             IF Result = -1 THEN _
  1499.                CALL PScrn("ERROR INIT FOSSIL AFT EXTERNAL") : _
  1500.                SYSTEM
  1501.       CALL DelayTime (2)
  1502.       CALL RestoreCom
  1503.       END SUB
  1504. * REPLACING old line(s) by new
  1505. * ------[ first line different ]------
  1506. 63355 CALL GlobalSrchRepl (WasX$,"|",ZCarriageReturn$,ZTrue)        ' KG011201
  1507.       ZCommPortStack$ = ZCommPortStack$ + WasX$ + ZCarriageReturn$  ' STack
  1508.       GOTO 63336
  1509. * REPLACING old line(s) by new
  1510. * ------[ first line different ]------
  1511. 63396 CALL SmartText (ZOutTxt$,ZFalse, OverStrike,ZFalse)   'Pe 02/06/93
  1512.       CALL MetaGSR (ZOutTxt$,OverStrike)
  1513.       RETURN
  1514. * REPLACING old line(s) by new
  1515. 63397 IF EOF(6) THEN _         ' Read next line in macro
  1516. * ------[ first line different ]------
  1517.               ZMacroActive = ZFalse _
  1518.       ELSE CALL ReadDir (6,1) : _
  1519.            ZMacroActive = (ZErrCode = 0)
  1520.       RETURN
  1521. * REPLACING old line(s) by new
  1522. 63400 ' $SUBTITLE: 'LockAppend - prepares for file append'
  1523. ' $PAGE
  1524. '
  1525. '  NAME    -- LockAppend
  1526. '
  1527. '  INPUTS  -- ZWasEN$            Name of file to append to
  1528. '
  1529. '  OUTPUTS -- none
  1530. '
  1531. '  PURPOSE -- Locks and opens file to append to
  1532. '
  1533.       SUB LockAppend STATIC
  1534. * ------[ first line different ]------
  1535. IF ZNetWorkType <> 0 Then _       'Pe 04/04/92
  1536.       WasBX = &H4 : _            'Pe 03/16/92
  1537.       ZSubParm = 9 : _           'Pe 03/16/92
  1538.       CALL FileLock
  1539.       ZErrCode = 0
  1540.       CALL OpenWorkA (ZWasEN$)
  1541.       END SUB
  1542. * REPLACING old line(s) by new
  1543. 63410 ' $SUBTITLE: 'UnLockAppend - cleans up after file append'
  1544. ' $PAGE
  1545. '
  1546. '  NAME    -- UnLockAppend
  1547. '
  1548. '  INPUTS  -- none
  1549. '
  1550. '  OUTPUTS -- none
  1551. '
  1552. '  PURPOSE -- Unlocks and close file appending to
  1553. '
  1554.       SUB UnLockAppend STATIC
  1555. * ------[ first line different ]------
  1556. IF ZNetWorkType <> 0 Then _       'Pe 04/04/92
  1557.       WasBX = &H4 : _            'Pe 03/16/92
  1558.       ZSubParm = 10 : _          'Pe 03/16/92
  1559.       CALL FileLock
  1560.       CLOSE 2
  1561.       END SUB
  1562. * REPLACING old line(s) by new
  1563. 63422 IF EOF(2) OR ZNo OR (ZErrCode > 0) OR (ZSubParm < 0) THEN _
  1564.          Template$ = "" : _
  1565.          EXIT SUB
  1566.       IF FixedLength THEN _
  1567.          CALL ReadDir (2,1) : _
  1568.          ZGSRAra$(1) = ZOutTxt$ _
  1569.       ELSE CALL ReadParms (ZGSRAra$(),DataVar,1)
  1570.       WasX$ = Template$
  1571. * ------[ first line different ]------
  1572.       CALL SmartText (WasX$,ZTrue,OverStrike,ZFalse)  ' Pe 02/06/93
  1573.       CALL MetaGSR (WasX$,OverStrike)
  1574.       CALL BufAsUnit (WasX$)
  1575.       IF RecPause OR (ZPageLength > 0 AND (ZLinesPrinted >= ZPageLength-1)) THEN _
  1576.          CALL PauseExit : _
  1577.          EXIT SUB
  1578.       GOTO 63422
  1579.       END SUB
  1580. * REPLACING old line(s) by new
  1581. 63465 ' Forces a keyboard pause inside a macro
  1582.       SUB PauseExit STATIC
  1583.       ZSubParm = 4
  1584.       ZTurboKey = -ZTurboKeyUser
  1585. * ------[ first line different ]------
  1586.       ZOutTxt$ = ZMorePrompt$ + LEFT$(">",-1*ZExpertUser) + MID$("? : ",2*ZTurboKey+1,2) ' TC041610
  1587.       ZForceKeyboard = ZTrue
  1588.       ZNoAdvance = ZTrue
  1589.       CALL TPut
  1590.       ZLinesPrinted = 0
  1591.       ZUserIn$ = ""
  1592.       END SUB
  1593. * REPLACING old line(s) by new
  1594. 63470 ' $SUBTITLE: 'SetPrompt - sub to set prompts based on user security'
  1595. ' $PAGE
  1596. '
  1597. '  NAME    -- SetPrompt
  1598. '
  1599. '  INPUTS  -- PARAMETER           MEANING
  1600. '             ZBegMain          POSITION START OF MAIN CMDS
  1601. '             ZBegFile          POSITION START OF FILE CMDS
  1602. '             ZBegUtil          POSITION START OF UTIL CMDS
  1603. '             ZBegLibrary       POSITION START OF Library CMDS
  1604. '
  1605. '  OUTPUTS -- PRESENT.OPTS$         DISPLAY WHAT USER CAN DO (1st)
  1606. '             CALLERS.OPTS$         DISPLAY WHAT USER CAN DO (2nd)
  1607. '             ZMainOpts$            MAIN OPTS USER CAN DO
  1608. '             ZFileOpts$            FILE OPTS USER CAN DO
  1609. '             ZUtilOpts$            UTIL OPTS USER CAN DO
  1610. '             ZLibOpts$         Library OPTS USER CAN DO
  1611. '
  1612. '  PURPOSE -- Sets command line display of what user can do by
  1613. '             section and display of what all user can do
  1614. '
  1615.       SUB SetPrompt STATIC
  1616.       First = ZBegMain
  1617.       Last = ZBegFile - 1
  1618.       CALL SetOpts (ZMainOpts$,ZInvalidMainOpts$,First,Last)
  1619.       First = ZBegFile
  1620.       Last = ZBegUtil - 1
  1621.       CALL SetOpts (ZFileOpts$,ZInvalidFileOpts$,First,Last)
  1622.       First = ZBegUtil
  1623.       Last = ZBegLibrary - 1
  1624.       CALL SetOpts (ZUtilOpts$,ZInvalidUtilOpts$,First,Last)
  1625.       First = ZBegLibrary
  1626.       Last = ZBegLibrary + 6
  1627.       CALL SetOpts (ZLibOpts$,ZInvalidLibraryOpts$,First,Last)
  1628.       First = 50
  1629.       Last = 56
  1630.       CALL SetOpts (SysOpt$,ZInvalidSysOpts$,First,Last)
  1631.       First = 46
  1632.       Last = 49
  1633.       CALL SetOpts (GlobalOpts$,InvalidGlobalOpts$,First,Last)
  1634.       IF LEN(SysOpt$) > 0 THEN _
  1635.          ZSystemOpts$ = "Sysop: " + _
  1636.                         SysOpt$
  1637.       ZMainOpts$ = GlobalOpts$ + ZMainOpts$ + _
  1638.                    MID$(ZAllOpts$,INSTR(ZOrigCommands$,"G"),1)
  1639.       ZFileOpts$ = GlobalOpts$ + _
  1640.                    ZFileOpts$
  1641.       ZUtilOpts$ = GlobalOpts$ + _
  1642.                    ZUtilOpts$
  1643.       ZLibOpts$ = GlobalOpts$ + _
  1644.                       ZLibOpts$
  1645.       CALL SortString (SysOpt$)
  1646.       CALL SortString (ZMainOpts$)
  1647.       ZMainOpts$ = ZMainOpts$ + _
  1648.                    SysOpt$
  1649.       CALL SortString (ZFileOpts$)
  1650.       CALL SortString (ZUtilOpts$)
  1651.       CALL SortString (ZLibOpts$)
  1652.       CALL AddCommas (ZMainOpts$)
  1653.       CALL AddCommas (ZFileOpts$)
  1654.       CALL AddCommas (ZUtilOpts$)
  1655.       CALL AddCommas (ZLibOpts$)
  1656.       ZDirPrompt$ = "What directory(s) (" + _
  1657. * ------[ first line different ]------
  1658.          MID$("U)pload,A)ll,P)ers,L)ist,E)xtra,[Q]uit)",8 * (ZUserSecLevel => ZMinSecToView) + 9)
  1659.       ZQuitPromptExpert$ = "QUIT C,S, or to F,[M],U"
  1660.       ZQuitPromptNovice$ = "QUIT C)onference, S)ession or to section " + _
  1661.                             "F)ile, [M]ain, U)til"
  1662.       ZQuitList$ = "FMUS@C"
  1663.       IF ZUserSecLevel < ZOptSec(18) THEN _
  1664.          ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,23) : _
  1665.          ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,61) : _
  1666.          MID$(ZQuitList$,5) = " "
  1667.       IF ZUserSecLevel < ZOptSec(15) THEN _
  1668.          ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,22) + _
  1669.                                MID$(ZQuitPromptExpert$,25) : _
  1670.          ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,56) + _
  1671.                                MID$(ZQuitPromptNovice$,63) : _
  1672.          MID$(ZQuitList$,3,1) = " "
  1673.       IF ZUserSecLevel < ZOptSec(6) THEN _
  1674.          ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,16) + _
  1675.                                MID$(ZQuitPromptExpert$,19) : _
  1676.          ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,41) + _
  1677.                                MID$(ZQuitPromptNovice$,49) : _
  1678.          MID$(ZQuitList$,1,1) = " "
  1679.       CALL SetSection
  1680.       END SUB
  1681. * REPLACING old line(s) by new
  1682. 63540 ' Match Name to one in message file
  1683.       SUB ChkMsgName (MsgFromCaller,MsgToCaller) STATIC
  1684. * ------[ first line different ]------
  1685.      IF ZNewUserDGS THEN _                                        'DGS-NEW
  1686.         CALL MsgNameMatch ("NEWUSER",ZActiveUserName$,6,MsgFromCaller) : _      'DGS-NEW
  1687.         CALL MsgNameMatch ("NEWUSER",ZActiveUserName$,37,MsgToCaller) : _       'DGS-NEW
  1688.      Exit Sub
  1689.       IF NOT ZRemoteSysop THEN _
  1690.          WasX$ = LEFT$("SYSOP",-5*ZSysop) : _
  1691.          CALL MsgNameMatch (ZorigUserName$,ZActiveUserName$,6,MsgFromCaller) : _ 'Dgs-ALSMod
  1692.          CALL MsgNameMatch (ZorigUserName$,ZActiveUserName$,37,MsgToCaller)  : _    'Dgs-ALSMod
  1693.          EXIT SUB
  1694.       CALL MsgNameMatch ("SYSOP",ZSysopFullName$,6,MsgFromCaller)
  1695.       IF NOT MsgFromCaller THEN _
  1696.          CALL MsgNameMatch (ZOrigUserName$,"",6,MsgFromCaller)
  1697.       CALL MsgNameMatch ("SYSOP",ZSysopFullName$,37,MsgToCaller)
  1698.       IF NOT MsgToCaller THEN _
  1699.          CALL MsgNameMatch (ZOrigUserName$,"",37,MsgToCaller)
  1700.       END SUB
  1701.       SUB MsgNameMatch (PrimeName$,AltName$,SearchPos,Found) STATIC
  1702.       WasX$ = LEFT$(PrimeName$+"  ",22-8*(SearchPos < 7))
  1703.       GOSUB 63542
  1704.       IF Found OR AltName$ = "" THEN _
  1705.          EXIT SUB
  1706.       WasX$ = LEFT$(AltName$ + "  ",22-8*(SearchPos < 7))
  1707.       GOSUB 63542
  1708.       EXIT SUB
  1709. * REPLACING old line(s) by new
  1710. 63542 WasY$ = MID$(ZMsgRec$,SearchPos,LEN(WasX$))
  1711. * ------[ first line different ]------
  1712.       CALL SmartText(WasY$,ZFalse, OverStrike,ZFalse)   'Pe 02/05/93
  1713.       CALL AllCaps(WasY$)                'SM091908
  1714.       WasY$ = LEFT$(WasY$,LEN(WasX$))            'SM091908
  1715.       ZWasDF = INSTR(WasY$,"@")
  1716.       IF ZWasDF > 0 THEN _
  1717.          MID$(WasY$,ZWasDF) = "      "
  1718.       Found = (WasY$ = WasX$)
  1719.       RETURN
  1720.       END SUB
  1721. * REPLACING old line(s) by new
  1722. 63560 ' Set specified user flag
  1723.       SUB SetUserFlag (RcvrRecNum, ChangeIndex, WhatGetting$) STATIC
  1724.       FIELD #5, 128 AS ZUserRecord$
  1725.       IF RcvrRecNum > 0 THEN _
  1726.          ZUserFileIndex = RcvrRecNum : _
  1727.          ZSubParm = 6 : _
  1728.          CALL FileLock : _
  1729.          GET 5, RcvrRecNum : _
  1730.          WasX = CVI(MID$(ZUserRecord$,57,2)) : _
  1731.          MID$(ZUserRecord$,57,2) = MKI$(WasX OR ChangeIndex) : _
  1732.          PUT 5, RcvrRecNum : _
  1733.          ZSubParm = 8 : _
  1734.          CALL FileLock : _
  1735. * ------[ first line different ]------
  1736.          Call GetRBBSString(198,RBBSString$) : _      'Pe 01/16/93
  1737.           OutTxt$ = RBBSString$ : _                'Pe 01/16/93
  1738.          CALL QuickTPut1 (ZWorkAra$(1) + OutTxt$ + " " + WhatGetting$) : _
  1739.          RcvrRecNum = 0
  1740.       END SUB
  1741. * REPLACING old line(s) by new
  1742. 63615 ' * Sets up next message base link *
  1743.       SUB NextConf (DoJoin) STATIC
  1744.       IF ZLinkedConf$ = "" OR (NOT DoJoin) THEN _
  1745.          EXIT SUB
  1746.       EndConf = INSTR(ZLinkedConf$,ZCarriageReturn$)
  1747.       ZHomeConf$ = LEFT$(ZLinkedConf$,EndConf-1)
  1748.       IF ZNonStop THEN _
  1749. * ------[ first line different ]------
  1750.             Call GetRBBSString(199,RBBSString$) : _      'Pe 01/16/93
  1751.             OutTxt$ = RBBSString$ : _                'Pe 01/16/93
  1752.          CALL QuickTPut1 (OutTxt$ + " " + ZHomeConf$) _
  1753.       ELSE _
  1754.         Call GetRBBSString(200,RBBSString$) : _      'Pe 01/16/93
  1755.             OutTxt$ = RBBSString$ : _                'Pe 01/16/93
  1756.          ZOutTxt$ = OutTxt$ + " " + ZHomeConf$ + " ([Y],N)" : _
  1757.          ZTurboKey = -ZTurboKeyUser : _
  1758.          ZSubParm = 1 : _
  1759.          CALL TGet : _
  1760.          IF ZNo THEN _
  1761.             ZHomeConf$ = "" : _
  1762.             ZGlobalRead = ZFalse : _
  1763.             EXIT SUB
  1764.       ZLinkedConf$ = RIGHT$(ZLinkedConf$,LEN(ZLinkedConf$)-EndConf)
  1765.       END SUB
  1766. * REPLACING old line(s) by new
  1767. 63625 ' * Sets SysOp security variables Formerly 5370 of rbbs-pc.bas
  1768.       ' * Returns ZWasA true when remote or global sysop
  1769.       SUB SetSysOp STATIC
  1770.       ZRemoteSysop = ((ZActiveUserName$ = ZSecretName$) OR _
  1771. * ------[ first line different ]------
  1772.                       (ZOrigUserName$ = ZSecretName$)) _
  1773.       OR _
  1774.       (ZActivUserName$ ="SYSOP")     'LK 12/05/91
  1775.       ZWasA = ZRemoteSysop
  1776.       ZGlobalSysop = (ZGlobalSysop OR (ZWasA AND ZOrigCnfg$ = ZConfigFileName$))
  1777.       IF ZGlobalSysop THEN _
  1778.          ZWasA = ZTrue
  1779.       END SUB
  1780. * REPLACING old line(s) by new
  1781. 63630 ' * Sets the user preferences based on user record.
  1782.       ' * Formerly in RBBS-PC.BAS
  1783.       SUB SetUserPref STATIC
  1784.       IF ZWasA THEN _
  1785.          ZUserSecLevel = ZSysopSecLevel _
  1786.       ELSE ZUserSecLevel = CVI(ZSecLevel$)
  1787.       ZBankTime = ASC(ZBankTime$)
  1788.       ZLastMsgRead = CVI(MID$(ZUserOption$,3,2))
  1789.       ZUserXferDefault$ = MID$(ZUserOption$,5,1)
  1790.       IF ZUserXferDefault$ = " " THEN _
  1791.          ZUserXferDefault$ = "N"
  1792.       CALL XferType (2,ZTrue)
  1793.       WasX = ASC(MID$(ZUserOption$,6,1))
  1794.       ZWasGR = (WasX MOD 3)
  1795.       ZBoldText$ = CHR$(48 - (WasX > 50))
  1796.       ZUserTextColor = (WasX - ZWasGR)/3 + 21
  1797.       IF ZUserTextColor > 37 THEN _
  1798.          ZUserTextColor = ZUserTextColor - 7
  1799.       IF ZEmphasizeOff$ <> "" THEN _
  1800.          CALL QuickTPut (ZColorReset$,0)
  1801.       IF ZEmphasizeOnDef$ <> "" THEN _
  1802.          ZEmphasizeOff$ = ZEscape$ + "[" + ZBoldText$ + ";40;" + MID$(STR$(ZUserTextColor),2) + "m" _
  1803.       ELSE ZEmphasizeOff$ = ""
  1804.       IF ZWasGR = 1 AND NOT ZEightBit THEN _
  1805.          ZWasGR = 0
  1806.       CALL SetGraphic (ZWasGR)
  1807.       ZRightMargin = CVI(MID$(ZUserOption$,7,2))
  1808.       IF ZRightMargin > 72 THEN _
  1809.          ZRightMargin = 72
  1810. * ------[ first line different ]------
  1811.            IF NOT ZConfMode THEN _
  1812.          ZWasCI$ = ZCityState$ : _
  1813.       CALL Trim (ZWasCI$)
  1814.       UserOptions = CVI(MID$(ZUserOption$,9,2))
  1815.       ZPromptBell = (UserOptions AND 1) > 0
  1816.       ZExpertUser = (UserOptions AND 2) > 0
  1817.       CALL SetExpert
  1818.       ZNulls = (UserOptions AND 4) > 0
  1819.       ZUpperCase = (UserOptions AND 8) > 0
  1820.       ZLineFeeds = (UserOptions AND 16) > 0
  1821.       ZCheckBulletLogon = (UserOptions AND 32) > 0
  1822.       ZSkipFilesLogon = (UserOptions AND 64) > 0
  1823.       ZFullScreenEditor = (UserOptions AND 128) > 0    'Pe 09/02/91
  1824.       ZReqQuesAnswered = (UserOptions AND 256) > 0
  1825.       ZMailWaiting = (UserOptions AND 512) > 0
  1826.       WasX = (UserOptions AND 1024 ) > 0
  1827.       CALL SetHiLite (NOT WasX)
  1828.       IF NOT ZHiLiteOff THEN _
  1829.          CALL QuickTPut (ZEmphasizeOff$,0)
  1830.       ZTurboKeyUser = (UserOptions AND 2048) > 0
  1831.       ZTurboKey = ZFalse
  1832.       ZFileWaiting = (UserOptions AND 4096) > 0
  1833.             REM ** Change to:                                      **
  1834.       REM ** ZAvailableForChat = (UserOptions AND 8192) = 0 **   'Rchat-Mpl
  1835.       REM ** If you want availability to be default ON       **
  1836.  
  1837.       ZAvailableForChat = (UserOptions AND 8192) > 0           ' RCHAT-Mpl
  1838.       CALL SetRegDisplay
  1839.       ZPageLength = ASC(MID$(ZUserOption$,13,1))
  1840.       IF ZSubBoard THEN _
  1841.          GOTO 63632
  1842.       WasX$ = ZEchoer$
  1843.       ZEchoer$ = MID$(ZUserOption$,14,1)
  1844.       IF INSTR("ICR",ZEchoer$) = 0 THEN _
  1845.          ZEchoer$ = "R"
  1846.       IF WasX$ <> ZEchoer$ THEN _
  1847.          CALL ReportEcho
  1848.       CALL SetEcho (ZEchoer$)
  1849. * REPLACING old line(s) by new
  1850. 63635 ' * Reports who is doing echoing.  Formerly 9525 of rbbs-pc.bas
  1851.       SUB ReportEcho STATIC
  1852.       IF ZEchoer$ = "R" THEN _
  1853.          ZOutTxt$ =  "RBBS now set" _
  1854.       ELSE IF ZEchoer$ = "C" THEN _
  1855. * ------[ first line different ]------
  1856.             Call GetRBBSString(201,RBBSString$) : _      'Pe 01/16/93
  1857.             ZOutTxt$ = RBBSString$  _                'Pe 01/16/93
  1858.            ELSE  Call GetRBBSString(202,RBBSString$) : _      'Pe 01/16/93
  1859.            ZOutTxt$ = RBBSString$                      'Pe 01/16/93
  1860.         Call GetRBBSString(203,RBBSString$)       'Pe 01/16/93
  1861.             OutTxt$ = RBBSString$                 'Pe 01/16/93
  1862.       CALL QuickTPut1 (ZOutTxt$ + OutTxt$)
  1863.       END SUB
  1864. * REPLACING old line(s) by new
  1865. 63640 ' * Welcomes caller on
  1866. * ------[ first line different ]------
  1867.       SUB SayWelcome (anystring$,FF) STATIC   'Pe 08/01/92
  1868.       On FF Goto 63641,63643,63644       'Pe 08/01/92
  1869. * INSERTING new line(s)
  1870. 63641 LOCATE 24,1                  'Pe 08/01/92
  1871.       CALL AMorPM
  1872.       ZUserLogonTime! = TIMER
  1873.       ZTimeLoggedOn$ = TIME$
  1874.       ZLinesPrinted = 0
  1875.       ZExpertUser = ZFalse
  1876.       CALL SetExpert
  1877.       ZOutTxt$ = ""
  1878.       IF ZMaxNodes > 1 THEN _
  1879.          ZOutTxt$ = " - Node " + ZNodeID$
  1880.       IF ZReliableMode THEN _
  1881.          ZOutTxt$ = ZOutTxt$ + " (Reliable)"
  1882. '     Call DelayTime (7)  'delay 7 seconds for high speed modems 'JK11/18/92
  1883. '      CALL QuickTPut1 ("Welcome to " + ZRBBSName$ + ZOutTxt$)  'Pe 06/26/92
  1884.       CALL TestANSI
  1885.       ZTestParity = ZTrue
  1886.       ZStopInterrupts = ZTrue
  1887.       ZFileName$ = ZPreLog$
  1888.       CALL FlushCom (WasX$)
  1889.       ZCommPortStack$ = ""
  1890. Exit Sub                         'Pe 08/01/92
  1891.  
  1892. 63643 IF NOT ZNewUser THEN _
  1893.      CALL QuickTPut1 (ZFG1$ +"Times on   :" + STR$(ZTimesLoggedOn) + ZCrLf$ +_
  1894.                       + ZFG2$ +"Last on was: " + anystring$ + ZEmphasizeOff$)
  1895.  IF ZRemindFileXfers OR NOT ZNewUser THEN _
  1896.        CALL CheckRatio (ZFalse)
  1897. Exit Sub
  1898.  
  1899. 63644 CALL QuickTPut1 (ZFG1$+"Logging " + ZActiveUserName$)
  1900.     Temp1$ =  MID$(ZBaudParity$,INSTR(ZBaudParity$," B"))
  1901. CALL QuickTPut1 (ZFG2$ + "RBBS-PC " + ZVersionID$ + ZCrLf$ + _
  1902.                  ZFG3$ + "Node " + ZNodeID$)
  1903. Call QuickTput1 (ZFG4$ + "Line speed " + ZCBaud$ + temp1$+ZFG1$ +_ 
  1904.                 ", Host operating at " + ZModemInitBaud$ + temp1$ + ZEmphziseOff$)
  1905. '                     ", Host operating at " + anystring$+ ZEmphziseOff$)
  1906. Call SkipLine (1) 
  1907.     IF ZMaxNodes > 1 THEN                                        ' CHAT0805
  1908.        CALL LogNewForChat (ZMaxNodes)                            ' CHAT0805
  1909.     END IF                                                       ' CHAT0805
  1910.  
  1911.       END SUB
  1912.  
  1913. * REPLACING old line(s) by new
  1914. 63656 CALL GetPassword
  1915.       IF ZErrCode <> 0 THEN _
  1916.          CALL UpdtCalr (ZPswdFile$ + " bad format!",2) : _
  1917.          GOTO 63659
  1918.       IF MatchPass THEN _
  1919.          ZTempPassword$ = LEFT$(ZTempPassword$ + SPACE$(15),15) : _
  1920.          IF MatchPass$ <> ZTempPassword$ THEN _
  1921.             GOTO 63654 _
  1922.          ELSE IF ZUserSecLevel >= ZMinSecForTempPswd THEN _
  1923.                  GOTO 63658 _
  1924.               ELSE GOTO 63654
  1925. * ------[ first line different ]------
  1926.    IF ZUserSecLevel <> ZTempSecLevel OR ZTempPassword$ <> "" THEN _
  1927.          GOTO 63654
  1928.       IF ZStartTime = 0 THEN _
  1929.          GOTO 63658
  1930.       WorkTime$ = TIME$
  1931.       TestTime = VAL(LEFT$(WorkTime$,2) + MID$(WorkTime$,4,2))
  1932.       IF TestTime => ZStartTime AND TestTime <= ZEndTime THEN _
  1933.          GOTO 63658
  1934.       IF ZEndTime < ZStartTime THEN _
  1935.          IF TestTime => ZStartTime OR TestTime <= ZEndTime THEN _
  1936.             GOTO 63658
  1937.       GOTO 63654
  1938. * REPLACING old line(s) by new
  1939. 63675 SUB SetUserUpDn STATIC
  1940.       ZDnlds = CVI(ZUserDnlds$)
  1941.       ZUplds = CVI(ZUserUplds$)
  1942.       ZBankTime = ASC(ZBankTime$)
  1943.       IF ZEnforceRatios THEN _
  1944.          ZDLToday! = CVS(ZTodayDl$) : _
  1945.          ZBytesToday! = CVS(ZTodayBytes$) : _
  1946.          ZDLBytes! = CVS(ZDlBytes$) : _
  1947.          ZULBytes! = CVS(ZULBytes$)
  1948.       END SUB
  1949.       SUB SetGlobalUpDn STATIC
  1950.       IF NOT ZGlobalsSet THEN _
  1951.          ZGlobalsSet = ZTrue : _
  1952.          ZGlobalDnlds = ZDnlds : _
  1953.          ZGlobalUplds = ZUplds : _
  1954.          ZGlobalDLToday! = ZDLToday! : _
  1955.          ZGlobalBytesToday! = ZBytesToday! : _
  1956.          ZGlobalDLBytes! = ZDLBytes! : _
  1957.          ZGlobalULBytes! = ZULBytes! : _
  1958.          ZGlobalBankTime = ZBankTime
  1959.       END SUB
  1960. * ------[ first line different ]------
  1961. '
  1962. * REPLACING old line(s) by new
  1963. 63700 ' $SUBTITLE: 'TestANSI - test caller for ANSI support'
  1964. ' $PAGE
  1965. '
  1966. '  NAME    -- TestANSI
  1967. '                                  MEANING
  1968. '  INPUTS  -- ZTestANSITime   # of seconds to wait for ANSI response
  1969. '                             0 = do not test for ANSI
  1970. '
  1971. * ------[ first line different ]------
  1972. '  OUTPUTS -- ZCanANSIChat      = ZTrue if ANSIChat possible         ' DD071301/CHAT
  1973. '
  1974. '  PURPOSE -- Test callers' software for support of ANSI graphics
  1975. '
  1976.       SUB TestANSI STATIC
  1977.       IF ZTestANSITime < 1 THEN _
  1978.          GOTO 63705
  1979.       IF ZLocalUser THEN _
  1980.          IF ZDOSAnsi THEN _
  1981.             GOTO 63710 _
  1982.          ELSE GOTO 63705
  1983.         Call GetRBBSString(204,RBBSString$)      'Pe 01/16/93
  1984.         OutTxt$ = RBBSString$                'Pe 01/16/93
  1985.       CALL QuickTPut (OutTxt$ ,2)
  1986.       CALL FlushCom(Temp$)
  1987.       CALL PutCom (ZEscape$ + "[6n")
  1988.       CALL DelayTime(ZTestANSITime)
  1989.       CALL WipeLine (5)
  1990.       CALL FlushCom(Temp$)
  1991.       CALL WipeLine (5)
  1992.       Temp = INSTR(Temp$,ZEscape$ + "[")
  1993.       IF Temp > 0 THEN _
  1994.          Temp = INSTR(Temp,Temp$,"R") : _
  1995.          IF TEMP > 0 AND TEMP < 9 THEN _
  1996.             GOTO 63710
  1997. * REPLACING old line(s) by new
  1998. 63710 CALL SetGraphic(2)
  1999.       ZHiLiteOff = ZFalse
  2000. * ------[ first line different ]------
  2001.      CALL QuickTPut1 ("*ANSI Color  Detected*")
  2002.       IF ZDOSANSI THEN _
  2003.          ZCanANSIChat = ZTrue        ' DD071301/CHAT
  2004.       END SUB
  2005. * REPLACING old line(s) by new
  2006. 63720 SUB AraAllCaps (Ara$(1),WhichElement) STATIC
  2007.       Temp$ = Ara$(WhichElement)
  2008.       CALL AllCaps (Temp$)
  2009.       Ara$(WhichElement) = Temp$
  2010.       END SUB
  2011. * ------[ first line different ]------
  2012. '
  2013. '******************** INSERTED AutoLogoff here ******************
  2014. '
  2015. ' $SUBTITLE: 'AutoLogOff - Subroutine to  to log off after transfer'
  2016. ' $PAGE
  2017. '
  2018.   SUB AutoLogOff STATIC
  2019.  ZAutoEnd = 0
  2020.  ZAbort = ZFalse    'Pe 01/19/92
  2021.   IF ZGetExtDesc = ZTrue or ZOK = ZFalse or ZAutoLogOffReq = ZTrue THEN _
  2022.     EXIT SUB
  2023.  ZSubParm = 1
  2024. ZStackC = ZTrue    'Pe 12/21/91
  2025. * INSERTING new line(s)
  2026. 64989  ZStopInterrupts = ZTrue   'Pe 04/17/92
  2027. CALL BufFile(ZHelpPath$+"AUTOOFF.MNU",X)     ' MO 04/13/92
  2028. '      ZOutTxt$ = " C)ontinue with transfer " + ZCrLf$ + _
  2029. '                 " A)bort transfer - Cancel"+ ZCrLf$ + _
  2030. '                 " G)o ahead LOG-OFF after Transfer " + ZCrLf$ + _
  2031. '                 ZCrLf$ + "Press [Enter] to continue or select (C,A,G)->"
  2032. ZStopInterrupts = ZFalse    'Pe 04/17/92
  2033. ZOutTxt$ = "Select ([C],A,G) "
  2034.         ZTurboKey = -ZTurboKeyUser
  2035.       ZSubParm = 1
  2036.       Call TGet
  2037.       CALL AllCaps (ZUserIn$)
  2038.       WasMplx = INSTR("CAG",ZUserIn$)
  2039.       CALL Carrier                      'Pe 03/06/92
  2040.       IF ZSubParm = -1 THEN _           'Pe 03/06/92
  2041.       ZFileSysParm = 7 : _              'Pe 03/06/92
  2042.       EXIT SUB                          'Pe 03/06/92
  2043. IF ZUserIn$ = "" or ZUserIn$ = " " Then _
  2044.       GOTO 64995
  2045.    ON WasMplx GOTO 64995,64990,64998
  2046.       GOTO 64989
  2047. 64990 ZAutoEnd = 2
  2048.       Call Skipline (2)
  2049.       EXIT SUB
  2050. 64995 ZAutoEnd = 3
  2051.       Call Skipline (2)
  2052.       EXIT SUB
  2053. 64998 ZAutoEnd = 1
  2054.       ZAutoLogoffReq = ZTrue     'Pe 12/20/92
  2055.       Call SkipLine (2)
  2056.       END SUB
  2057. '
  2058. ' ****  S - COMMAND FROM UTILITY MENU (STATISTICS)  ***  'Pe 09/02/91
  2059. '
  2060. SUB Statistics (CallsToDate!,ActiveMessages,HighMsgNumber,HighestMsgRecord,CurUserCount,MaxMsgs) STATIC
  2061.       ActionFlag = ZTrue
  2062.       IF ZActiveMessageFile$ = ZPrevBase$ THEN _
  2063.         ActionFlag = ZFalse
  2064.      CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " Node " + ZNodeID$)
  2065.      ZOutTxt$ = ""
  2066.      IF NOT ZConfMode THEN _
  2067.            ZOutTxt$ = "Caller Number................"+STR$(CallsToDate!) + "  "+ZCrLf$
  2068. ZOutTxt$ = ZOutTxt$ + "Active Messages.............."+STR$(ActiveMessages)+ZCrLf$
  2069. ZOutTxt$ = ZOutTxt$ + "Next Msg Number.............."+STR$(HighMsgNumber + 1)+ZCrLf$
  2070.      IF ZLastMsgRead > 0 THEN _
  2071.      ZOutTxt$ = ZOutTxt$ + "Last msg you read............" + STR$(ZLastMsgRead)+ZCrLf$ _
  2072.      ELSE ZOutTxt$ = ZOutTxt$ + "You Have NOT Read Any Messages Yet !" +ZCrLf$ : _
  2073.      ZNewUserDgs = Ztrue
  2074.      ZSubParm = 2
  2075.      CALL TPut
  2076. IF ZSubParm < 0 THEN _
  2077.          EXIT SUB
  2078.     ZWasZ$ = ZUpldDriveFile$
  2079.      CALL FindFree
  2080.      CALL QuickTPut1 ("Upload disk has" + ZFreeSpace$)
  2081.      CALL QuickTPut1 ( "String Space = "+  (STR$(FRE("A")) + " bytes")) 'Pe 08/01/92
  2082.      CALL QuickTPut1 ( "StackSpace = "+  (STR$(FRE(-2)) + " bytes")) 'Pe 05/10/92
  2083. '   CALL LPrnt("Free Common String Space ="+ (STR$(FRE(ZWASZ$))),1) 'Bcfs Mods
  2084. '   CALL LPrnt("Free Local String Space ="+ (STR$(FRE(WASZ$))),1)   'Bcfs Mods
  2085. '   CALL LPrnt("Free Far Space ="+ (STR$(FRE(-1))),1)               'Bcfs mods
  2086.  
  2087.      IF (NOT ZSysop) AND (ZUserSecLevel < ZSecKillAny) THEN _
  2088.       CALL Delaytime (2) : _
  2089.         EXIT SUB
  2090.      UserWork = (ZHighestUserRecord * .95) + 1
  2091.      IF ZMsgsCanGrow THEN _
  2092.         ZWasY$ = " open" _
  2093.      ELSE ZWasY$ = STR$(HighestMsgRecord + 1 - ZMaxNodes - ZNextMsgRec)
  2094.      ZOutTxt$ = "USERS: used" + _
  2095.           STR$(CurUserCount - 1) + _
  2096.           " avl" + _
  2097.           STR$(UserWork - CurUserCount) + _
  2098.           "  MSGS: used" + _
  2099.           STR$(ActiveMessages) + _
  2100.           " avl" + _
  2101.           STR$(MaxMsgs - ActiveMessages) + _
  2102.           "  MSG REC: used" + _
  2103.           STR$(ZNextMsgRec - 1) + _
  2104.           " avl" + ZWasY$
  2105.      ZSubParm = 2
  2106.      CALL TPut
  2107. IF ZSubParm < 0 THEN _
  2108.    EXIT SUB
  2109. CALL DelayTime (2)
  2110. END SUB
  2111. '********************************************************************
  2112. '
  2113. SUB ShowUsrProfile STATIC
  2114.  CALL QuickTPut (CHR$(12),0) ' to clear screen
  2115. WasX$ =  "USER NAME : " + ZActiveUserName$ + ZCrLF$ + _
  2116.          "SECURITY  :" + STR$(ZUserSecSave) + ZCrLf$ + _
  2117.          "PASSWORD  : " + ZPswdSave$ + ZCrLF$ + _
  2118.          "READ MSG. :" + STR$(ZLastMsgRead)
  2119. Call QuickTput1 (WasX$)
  2120. WasX$ =  "TIMES ON  :" + STR$(ZTimesLoggedOn) +ZCrLF$ + _
  2121.          "Last ON   : " + ZLastDateTimeOnSave$ +ZCRLF$ + _
  2122.          "DownLoads :" + STR$(ZDnlds)                            'Pe 07/09/92 
  2123. Call QuickTput1 (WasX$)
  2124. WasX$ =  "Uploads   :" + STR$(ZUplds)+ ZCrLf$ + _                'Pe 06/01/92
  2125.          "Baud Rate : " + ZCBaud$ + " Bps"                       'Pe 06/01/92
  2126. Call QuickTPut1 (WasX$)
  2127. WasX$ = "Dl-Bytes  :" + STR$(ZDLBytes!)+ZCrLF$ + _
  2128.         "Ul-Bytes  :" + STR$(ZULBytes!)                          'Pe 07/09/92
  2129. Call QuickTput1 (WasX$)
  2130. WasX$ = "User mode : " + MID$("NoviceExpert",1 -6 * ZExpertUser,6) +ZCrLf$ +_
  2131.         "Graphics  : " + MID$("None AsciiColor",GR * 5 + 1,5)
  2132. Call QuickTput1 (WasX$)
  2133. WasX$ = "Protocol  : " + ZUserXferDefault$ + ZCrLF$ + _
  2134.         "Upper Case: " + MID$("and lowerONLY", 1 - 9 * ZUpperCase,9)+ZCrLf$ + _
  2135.         "Line Feeds: " + FNOFFON$(ZLineFeeds)+ ZCrLF$ + _                 'Pe 07/11/92
  2136.         "Nulls     : " + FNOFFON$(ZNulls)
  2137. Call QuickTPut1 (WasX$)
  2138.       IF ZRestrictByDate THEN _
  2139.      CALL QuickTPut ("EXPIRATION: " + ZExpirationDate$,1)
  2140.      CALL Toggle (-8)
  2141.      CALL Toggle (-5)
  2142.      CALL Toggle (-10)
  2143.      CALL Toggle (-2)
  2144.      CALL Toggle (-4)
  2145.      CALL Toggle (-1)
  2146.      CALL Toggle(-11)                                                ' RCHAT
  2147. CALL AskMore ("",ZTrue,ZFalse,WasX,ZTrue)
  2148. END SUB
  2149. '********************************************************************
  2150. '
  2151. SUB BatchUpload (ZDesc$,ZUCat$,WasFF) STATIC
  2152. On WasFF GOTO 69000, 69500
  2153. 69000    CALL OpenWorkA ("BatchUp" +ZNodeID$ +".LST")
  2154.          Call PrintWorkA (ZFileName$)
  2155.          CALL PrintWorkA (ZFileNameHold$)
  2156.          CALL PrintWorkA (ZDesc$)
  2157.          CALL PrintWorkA (ZUcat$)
  2158.         Close 2
  2159.      CALL OpenWorkA (ZBatchWorkFile$) 
  2160.        CALL PrintWorkA (ZFileName$)
  2161.      Close 2
  2162. IF ZAnsindex = ZLastIndex THEN 
  2163.       ZUpBatchTransfer = ZFalse
  2164.       ZWasBatchTransfer = ZTrue
  2165.   End IF
  2166. Exit Sub
  2167. '
  2168. '
  2169. 69500 CALL KillWork (ZBatchWorkFile$)
  2170.       ZErrCode = 0
  2171.     Temp$ = "BatchUp" + ZNodeid$ + ".LST"
  2172.       CALL OpenWork (8,Temp$)
  2173.          While Not EOF(8)
  2174.        Line Input #8,ZFileName$
  2175.        Line Input #8,ZFileNameHold$
  2176.        Line Input #8,ZDesc$
  2177.        Line Input #8,ZUCat$
  2178.         Call Findit (ZFileName$)
  2179.     IF ZOK THEN _
  2180.       CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(), ZLinesInMsg,2) _
  2181.         Else CALL UpdtCalr (ZFileNameHold$ + " ABORTED during BatchUL",2) 
  2182.           ZWasBatchTransfer = ZFalse                  'Pe 09/12/91
  2183.          ZAlreadyGiven = ZTrue
  2184.        Wend
  2185.      Close 8
  2186. End Sub
  2187.  
  2188. 69600 ' $SUBTITLE: 'BATCHIT - subroutine to list files for batch downloading'
  2189. ' $PAGE
  2190. '
  2191.  SUB BATCHIT STATIC
  2192.       CALL PutCom (CHR$(7))
  2193.         Call GetRBBSString(205,RBBSString$) : _      'Pe 01/16/93
  2194.         OutTxt$ = RBBSString$ : _                'Pe 01/16/93
  2195.       CALL QuickTPUT (OutTxt$,1)
  2196.        ZWasB=1
  2197.        FOR BatchF = 2 TO 25
  2198.         ZOutTxt$ = "Name of file #" + STR$(Batchf-1)
  2199.         Call TGet
  2200.          IF ZUserIn$ = "" THEN GOTO 70415
  2201.           ZUserIn$(BatchF) = ZUserIn$
  2202.           ZAnsIndex = BatchF+1
  2203.         NEXT BatchF
  2204. 70415 BatchF =  BatchF-1
  2205.       ZLastIndex = BatchF
  2206.         End Sub
  2207. '
  2208. ' $SUBTITLE: 'TStat --- Display Transfer Stats from Xfer-? file'
  2209. ' $PAGE
  2210. '
  2211.       SUB TStats STATIC                                              ' MplXfer
  2212.       CALL OpenWork (2,"XFER-" + ZNodeID$ + ".DEF")                  ' MplXfer
  2213.       IF ZErrCode <> 0 THEN _
  2214.        Exit Sub                                                    'Pe 06/01/92
  2215.       CALL SkipLine (2)                                              ' MplXfer
  2216.       Call GetRBBSString(206,RBBSString$)      'Pe 01/16/93
  2217.       OutTxt$ = RBBSString$                 'Pe 01/16/93
  2218.       CALL QuickTPut (ZFG2$ + OutTxt$,2)
  2219.         Call GetRBBSString(207,RBBSString$)      'Pe 01/16/93
  2220.             OutTxt$ = RBBSString$               'Pe 01/16/93
  2221.       CALL QuickTPut1 (ZFG4$ + OutTxt$)
  2222.         Call GetRBBSString(208,RBBSString$)      'Pe 01/16/93
  2223.             OutTxt$ = RBBSString$               'Pe 01/16/93
  2224. Call QuickTput1 (ZFG3$ +OutTxt$ + ZEmphasizeOff$) ' MplXfer
  2225.       WHILE NOT EOF(2)                                               ' MplXfer
  2226.         LINE INPUT #2,Stat$                                          ' MplXfer
  2227.         WasS = INSTR(Stat$,"rs ")                                    ' MplXfer
  2228.         IF WasS > 0 THEN _                                           ' MplXfer
  2229.            WasX$ = MID$(Stat$, 2, WasS)                              ' MplXfer
  2230.         Match = INSTR(Stat$, ".")                                    ' MplXfer
  2231.         IF Match > 0 THEN _                                          ' MplXfer
  2232.            WasZyX$ = MID$(Stat$, Match - 8, 12)                      ' MplXfer
  2233.         Match = 0                                                    ' MplXfer
  2234.         Start = 1                                                    ' MplXfer
  2235.         DO                                                           ' MplXfer
  2236.           Match = INSTR(Start, WasZyX$, "\")                         ' MplXfer
  2237.           IF Match > 0 THEN _                                        ' MplXfer
  2238.              WasZyX$ = RIGHT$(WasZyX$, LEN(WasZyX$) - Match)         ' MplXfer
  2239.         LOOP WHILE Match                                             ' MplXfer
  2240.         Match = 0                                                    ' MplXfer
  2241.         Start = 1                                                    ' MplXfer
  2242.         DO                                                           ' MplXfer
  2243.           Match = INSTR(Start, WasZyX$, " ")                         ' MplXfer
  2244.           IF Match > 0 THEN _                                        ' MplXfer
  2245.              WasZyX$ = RIGHT$(WasZyX$, LEN(WasZyX$) - Match)         ' MplXfer
  2246.         LOOP WHILE Match                                             ' MplXfer
  2247.         WasXy = LEN(WasZyX$)                                         ' MplXfer
  2248.  
  2249.       IF ZErrCode <> 0 THEN _
  2250.        Exit Sub                                                    'Pe 06/01/92
  2251.  
  2252.      CALL QuickTPut1 (ZFG1$ + WasZyX$ + SPACE$(15-WasXy) + WasX$ + ZEmphasizeOff$) ' MplXfer
  2253.       WEND                                                           ' MplXfer
  2254.       CALL SkipLine (1)                                              ' MplXfer
  2255.       CLOSE 2                                                        ' MplXfer
  2256.       CALL DelayTime (3)                                             ' MplXfer
  2257.       END SUB                                                        ' MplXfer
  2258. '
  2259. ' $SUBTITLE: 'ShowBull --- Intitial Welcom screen displayed'
  2260. ' $PAGE
  2261. '
  2262.  Sub ShowBull (UsrSecLevel$) STATIC   'Pe 07/23/92
  2263. 71525 CALL SkipLine (2)
  2264.      WasX$ = ZFG1$+"Review System Screens Available:" + ZCrLf$ + _
  2265.              ZFG4$+"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
  2266. Call QuickTPut (WasX$,2)
  2267.      WasX$ = ZFG2$+"P)relog Screen"+ZCrLf$ + _
  2268.              ZFG3$+"W)elcome Screen" + ZCrLf$ + _
  2269.              ZFG4$+"O)nline News Screens"
  2270. Call QuickTPut (WasX$,1)
  2271.     WasX$ = ZFG1$+"Y)our Access Level" +ZCrLf$ + _
  2272.             ZFG2$+"N)ew User Sign-On" + ZCrLf$ + _
  2273.                   "[Q]uit"+ZEmphasizeOff$
  2274. Call QuickTPut (WasX$,2)
  2275. ZOutTxt$ = "Please make a Selection (P,W,O,Y,N,[Q]) "
  2276.         GOSUB 72999                     'Pe 04/25/92
  2277.         CALL AllCaps (ZUserIn$)
  2278.         WasMplX = INSTR("PWOYNQ",ZUserIn$)
  2279.         IF ZUserIn$ = "" THEN _
  2280.            GOTO 71596
  2281.     ON WasMplX GOTO 71530,71533,71536,71539,71541,71596
  2282. 71530 ZFileName$ = ZPreLog$
  2283.      GOTO 71550
  2284. 71533 ' ZFileName$ = ZWelcomeFile$
  2285.           CALL Displaywelcome
  2286.           Goto 71525
  2287.    '     GOTO 71550  
  2288. 71536 ZFileName$ = ZNewsFileName$
  2289.      GOTO 71550
  2290. 71539 ZFileName$ = ZWelcomeFileDrvPath$ + _      'Pe 07/19/92
  2291.                  "LG" + _
  2292.                  UsrSecLevel$ + _                'Pe 07/23/92
  2293.                  ".DEF"                          'Pe 06/01/92
  2294.      GOTO 71550
  2295. 71541 ZFileName$ = ZNewUserFile$
  2296. 71550 GOSUB 71790
  2297.      CALL AskMore ("",ZTrue,ZFalse,WasX,ZTrue)
  2298.      GOTO 71525
  2299. 71596 ZFileSysParm = 1
  2300.        Exit Sub
  2301. '
  2302. 71790 CALL Graphic (ZFileName$)
  2303.      CALL BufFile (ZFileName$,WasX)
  2304.      CALL Carrier
  2305.      IF ZSubParm = -1 THEN _
  2306.         ZFileSysParm = 7 : _
  2307.         Exit Sub
  2308.      RETURN
  2309.  
  2310. 72995 GOSUB 72997
  2311.       ZSubParm = 1
  2312. 72996 CALL TGet
  2313. 72997 IF ZSubParm < 0 THEN _
  2314.       ZFileSysParm = 7 :_
  2315.          Exit Sub
  2316.       RETURN
  2317. 72998 ZOutTxt$ = ZOutTxt$ + _
  2318.            ZPressEnter$
  2319.       GOTO 72995
  2320. 72999 ZTurboKey = -ZTurboKeyUser
  2321.       GOTO 72995
  2322. End Sub
  2323. '
  2324. 78150   SUB DisplayWelcome STATIC
  2325. '
  2326.        ZStopInterrupts = NOT ZWelcomeInterruptable                   ' DD011601
  2327.        ZBypassTimeCheck = ZTrue                                      ' DD011601
  2328.        ZFileName$ = ZWelcomeFile$ + ".LST"                           ' DD011601
  2329.        CALL FindIt (ZFileName$)                                      ' DD011601
  2330.        IF ZOK THEN                                                   ' DD011601
  2331.           CALL OpenWork (7, ZFileName$)                              ' DD011601
  2332.           WHILE NOT EOF(7)                                           ' DD011601
  2333.              CALL ReadDir (7,1)                                      ' DD011601
  2334.              ZFileName$ = ZOutTxt$                                   ' DD011601
  2335.              ZStopInterrupts = NOT ZWelcomeInterruptable             ' DD011601
  2336.              ZBypassTimeCheck = ZTrue                                ' DD011601
  2337.              ZDisplayAsUnit = ZTrue                                  ' DD011601
  2338.              GOSUB 78160                                               ' DD011601
  2339.           WEND                                                       ' DD011601
  2340.           CLOSE 7                                                    ' DD011601
  2341.        ELSE                                                          ' DD011601
  2342.           ZFileName$ = ZWelcomeFile$                                 ' DD011601
  2343.           ZDisplayAsUnit = ZTrue                                     ' DD011601
  2344.           GOSUB 78160                                                ' DD011601
  2345.        END IF                                                        ' DD011601
  2346.        ZDisplayAsUnit = ZFalse                                       ' DD011601
  2347.        EXIT SUB                                                      ' DD011601
  2348. 78160  CALL Graphic (ZFileName$)                                     ' DD011601
  2349.        CALL BufFile (ZFileName$,WasX)                                ' DD011601
  2350.        CALL Carrier                                                  ' DD011601
  2351.        IF ZSubParm = -1 THEN _                                       ' DD011601
  2352.           EXIT SUB                                                   ' DD011601
  2353.        RETURN                                                        ' DD011601
  2354.        END SUB                                                       ' DD011601
  2355. '
  2356. ' $SUBTITLE: 'Line108 --- was line 108 in RBBS-PC.BAS'
  2357. ' $PAGE
  2358. '
  2359.  Sub line108 STATIC   'Pe 07/23/92
  2360.  
  2361.  CALL BreakFileName (ZCallersFile$,Drive$,WasX$,ZWasY$,ZTrue)
  2362.     ZCallersFilePrefix$ = WasX$
  2363.     ZNodeWorkDrvPath$ = Drive$
  2364.     ZArcWork$ = ZNodeWorkDrvPath$ + _
  2365.                 "ARCWORK" + _
  2366.                 ZNodeFileID$ + _
  2367.                 ".DEF"
  2368.     IF ZUseBASICWrites THEN _
  2369.        ZLocalBksp$ = ZBackArrow$ _
  2370.     ELSE ZLocalBksp$ = ZBackSpace$
  2371.     ZSysopFullName$ = LEFT$(ZSysopFirstName$ + " " + ZSysopLastName$ + "  ",22)
  2372.     ZFastFileSearch = ZFalse
  2373.     CALL FindIt (ZFastFileList$)
  2374.     IF ZOK THEN _
  2375.        CALL FindIt (ZFastFileLocator$) : _
  2376.        IF ZOK THEN _
  2377.           ZFastFileSearch = ZTrue : _
  2378.           CALL BreakFileName (ZFastFileList$, Drive$,WasX$,ZWasY$,ZTrue) : _
  2379.           ZFileName$ = Drive$ + WasX$ + "T" + ZWasY$ : _
  2380.           CALL FindIt (ZFileName$) : _
  2381.           IF ZOK THEN _
  2382.              CALL OpenRSeq (ZFileName$, WasX, WasY, 72) : _
  2383.              FIELD 2, 72 AS IndexRec$ : _
  2384.              GET 2, 1 : _
  2385.              ZFastTabs$ = IndexRec$ : _
  2386.              CLOSE 2 _
  2387.           ELSE ZFastTabs$ = ""
  2388. '
  2389. ' *****  INITIALIZE NetBIOS INTERFACE   ****
  2390. '
  2391.    IF ZNetworkType = 6 AND NOT ZSubBoard THEN _
  2392.       CALL InitIBM
  2393. '
  2394. ' *****  ESTABLISH NEXT CALLERS FILE RECORD AVAILABLE   ***
  2395. '
  2396.     CALL SetCall
  2397.  IF NOT ZSubBoard THEN _
  2398.        ZLocalUser = ZTrue : _
  2399.        ZOutTxt$ = ZColorReset$ : _
  2400.        ZSubParm = 1 : _
  2401.        CALL TPut : _
  2402.        ZLocalUser = ZFalse
  2403.     ZUpldDriveFile$ = RIGHT$(ZDnldDrives$,1)+":FREESPAC.UPL"
  2404.     ZMinsPerSessionDef = ZMinsPerSession
  2405.     ZMaxPerDayDef = ZMaxPerDay
  2406.     ZMaxBankTimeDef = ZMaxBank
  2407. End Sub
  2408.