;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Mycroft Door Installation  º
; º    By: Michael W. Bayley    º
; º         Mar 30, 1989        º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ


;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Variable Usage  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
;³      String Variables                    Numeric Variables                ³
;ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
;³  %0  General String Input            #0  General Numeric Input            ³
;³  %1  DeArc program Name              #1  Work variable                    ³
;³  %2  Work variable                   #2  Work variable                    ³
;³  %3  Work variable                   #3  Work variable                    ³
;³  %4  Work variable                   #4  Work variable                    ³
;³  %5  Bulletin #1 Drive & Path        #5  Max Door Time                    ³
;³  %6  Bulletin #2 Drive & Path        #6                                   ³
;³  %7  Bulletin #3 Drive & Path        #7                                   ³
;³  %8  Bulletin #4 Drive & Path        #8                                   ³
;³  %9                                  #9                                   ³
;³ %10  BBS Name                       #10  Number of BBS Nodes              ³
;³ %11  SysOp Name                     #11                                   ³
;³ %12  BBS Type                       #12  BBS Type ID                      ³
;³ %13  BBS Tag                        #13                                   ³
;³ %14  Monitor Drive & Path           #14                                   ³
;³ %15  Batch Filename                 #15  Install/Update Flag              ³
;³ %16  Door Drive                     #16                                   ³
;³ %17  Door Path                      #17                                   ³
;³ %18  Docs Drive & Path              #18                                   ³
;³ %19                                 #19                                   ³
;³ %20  Node 1 BBS Drive               #20  Node 1 BBS Comm Port #           ³
;³ %21  Node 2 BBS Drive               #21  Node 2 BBS Comm Port #           ³
;³ %22  Node 3 BBS Drive               #22  Node 3 BBS Comm Port #           ³
;³ %23  Node 4 BBS Drive               #23  Node 4 BBS Comm Port #           ³
;³ %24                                 #24                                   ³
;³ %25  Node 1 BBS Path                #25                                   ³
;³ %26  Node 2 BBS Path                #26                                   ³
;³ %27  Node 3 BBS Path                #27                                   ³
;³ %28  Node 4 BBS Path                #28                                   ³
;³ %29                                 #29                                   ³
;³ %30  Editor Login                   #30                                   ³
;³ %31  Editor Password                #31                                   ³
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ


;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Initialize Variables  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$SET %14 "<not in use>"
$SET %20 ""
$SET %21 ""
$SET %22 ""
$SET %23 ""
$SET %25 "<not in use>"
$SET %26 "<not in use>"
$SET %27 "<not in use>"
$SET %28 "<not in use>"

$SET #20 0
$SET #21 0
$SET #22 0
$SET #23 0





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Signon Screens  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
CLS
$MSG
$MSG "  Mycroft Casino - W/Interrupt I/O      "
$MSG "  Installation Procedure                "
$MSG "  By Michael W. Bayley                  "
$MSG "  Mycroft Systems (408)927-0105         "
$MSG "  Version 2.00 Alpha Test, Dec 27, 1989 "
$MSG
$MSG
$MSG "  This program is used to install/update The Mycroft Casino door on    "
$MSG "  your system.  It is intended to simplify bringing up the door by     "
$MSG "  relieving you of the task of reading all the SysOps documentation    "
$MSG "  and having to build the .BAT files and configuration files.  It is   "
$MSG "  still recommended however that you do read the SysOps documentation. "
$MSG
$MSG "  The following files must be in this directory:                       "
$MSG
$MSG "      þ INSTALL.BAT                                                    "
$MSG "      þ INSTALL.DO                                                     "
$MSG "      þ CASINO-D.ZIP                                                   "
$MSG "      þ CASINO-X.ZIP                                                   "
$MSG
$INP %0 "  Press [ENTER] to continue..."

CLS
$MSG
$MSG
$MSG "  This program will perform the following functions:                   "
$MSG
$MSG "      þ UnZip all SysOp and User documentaton                          "
$MSG "      þ UnZip all door program files                                   "
$MSG "      þ Provide the user access to the documentation                   "
$MSG "      þ Build the node id file (NODES.BBS)                             "
$MSG "      þ Build door .BAT file                                           "
$MSG "      þ Build any configuration files                                  "
$MSG "      þ Run any required program initialization                        "
$MSG
$MSG "  After the installation is complete, the door should be able to be    "
$MSG "  run after you have made any required changes to add the door to      "
$MSG "  your BBS door list.                                                  "
$MSG
$MSG "  If you are running a BBS that is not supported by this door, you     "
$MSG "  will need to use a BBS conversion program and make changes to the    "
$MSG "  .BAT files as required.                                              "
$MSG
$MSG "  Follow the instructions and answer each question carefully.  Typos   "
$MSG "  are the main cause of the door not being setup correctly.            "
$MSG

$:VALID
$INP %0 "  Enter [I] to install, [U] to update, or [Q] to quit: "
$IF %0 = "I" INSTALL
$IF %0 = "i" INSTALL
$IF %0 = "U" UPDATE
$IF %0 = "u" UPDATE
$IF %0 = "Q" ABORT
$IF %0 = "q" ABORT
$GOTO VALID

$:ABORT
$MSG
$MSG "  Process aborted..."
$MSG
$GOTO DONE





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Get All Input  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:INSTALL
$SET #15 1
$GOTO START
;
$:UPDATE
$SET #15 0
;
$:START
$GOSUB BBS_NAME
$GOSUB SYSOP
$GOSUB LOGIN
$GOSUB PASSWORD
$GOSUB BBS_TYPE

$IF #12 < 3 NO_MON
$IF #12 > 4 NO_MON
$GOSUB MON_PATH

$:NO_MON
$GOSUB NODES

$SET #30 1
$SET #1 #30
$GOSUB BBS_PATH
$SET %20 %2
$SET %25 %3
$SET #1 #30
$GOSUB BBS_COMM
$SET #20 #1
$ADD #30 1

$IF #30 > #10 LPEND
$SET #1 #30
$GOSUB BBS_PATH
$SET %21 %2
$SET %26 %3
$SET #1 #30
$GOSUB BBS_COMM
$SET #21 #1
$ADD #30 1

$IF #30 > #10 LPEND
$SET #1 #30
$GOSUB BBS_PATH
$SET %22 %2
$SET %27 %3
$SET #1 #30
$GOSUB BBS_COMM
$SET #22 #1
$ADD #30 1

$IF #30 > #10 LPEND
$SET #1 #30
$GOSUB BBS_PATH
$SET %23 %2
$SET %28 %3
$SET #1 #30
$GOSUB BBS_COMM
$SET #23 #1

$:LPEND

$GOSUB DOORPATH
$GOSUB DOCSPATH
$GOSUB BAT_NAME

$SET %2 "  ³     High Rollers Bulletin     ³"
$GOSUB BUL_NAME
$SET %5 %2





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Main Control Menu  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:MENU
CLS
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³                  T H E   M Y C R O F T   C A S I N O                     ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$SET %2 "        [1]  BBS Name                 : "
$CAT %2 %10
$MSG %2
$SET %2 "        [2]  SysOps Name              : "
$CAT %2 %11
$MSG %2
$SET %2 "        [3]  Editor Login             : "
$CAT %2 %30
$MSG %2
$SET %2 "        [4]  Editor Password          : "
$CAT %2 %31
$MSG %2
$SET %2 "        [5]  BBS Type                 : "
$CAT %2 %12
$MSG %2
$SET %2 "        [6]  Monitor Path             : "
$CAT %2 %14
$MSG %2
$SET %2 "        [7]  Door Batch Filename      : "
$CAT %2 %15
$MSG %2
$SET %2 "        [8]  Door Drive & Path        : "
$CAT %2 %16
$CAT %2 %17
$MSG %2
$SET %2 "        [9]  Docs Drive & Path        : "
$CAT %2 %18
$MSG %2
$SET %2 "       [10]  High Rollers Bulletin    : "
$CAT %2 %5
$MSG %2
$SET %2 "       [11]  Node Count               : "
$CAT %2 #10
$MSG %2
$SET %2 "       [12]  Node 1 Port, Drive & Path: COM"
$CAT %2 #20
$CAT %2 ":  -  "
$CAT %2 %20
$CAT %2 %25
$MSG %2
$SET %2 "       [13]  Node 2 Port, Drive & Path: COM"
$CAT %2 #21
$CAT %2 ":  -  "
$CAT %2 %21
$CAT %2 %26
$MSG %2
$SET %2 "       [14]  Node 3 Port, Drive & Path: COM"
$CAT %2 #22
$CAT %2 ":  -  "
$CAT %2 %22
$CAT %2 %27
$MSG %2
$SET %2 "       [15]  Node 4 Port, Drive & Path: COM"
$CAT %2 #23
$CAT %2 ":  -  "
$CAT %2 %23
$CAT %2 %28
$MSG %2
$MSG "  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"
$INP %0 "  Enter item to change, [ENTER] to build, or [Q] to quit: "

$IF %0 = "1" MENU1
$IF %0 = "2" MENU2
$IF %0 = "3" MENU3
$IF %0 = "4" MENU4
$IF %0 = "5" MENU5
$IF %0 = "6" MENU6
$IF %0 = "7" MENU7
$IF %0 = "8" MENU8
$IF %0 = "9" MENU9
$IF %0 = "10" MENU10
$IF %0 = "11" MENU11
$IF %0 = "12" MENU12
$IF %0 = "13" MENU13
$IF %0 = "14" MENU14
$IF %0 = "15" MENU15
$IF %0 = "Q" ABORT
$IF %0 = "q" ABORT
$IF %0 = "" BUILD


$MSG "  Error - Invalid selection."
$:DELAY
$SET #0 1
$IF #0 = 25 MENU
$ADD #0 1
$GOTO DELAY


$:MENU1
$GOSUB BBS_NAME
$GOTO MENU


$:MENU2
$GOSUB SYSOP
$GOTO MENU


$:MENU3
$GOSUB LOGIN
$GOTO MENU


$:MENU4
$GOSUB PASSWORD
$GOTO MENU


$:MENU5
$GOSUB BBS_TYPE
$GOTO MENU


$:MENU6
$GOSUB MON_PATH
$GOTO MENU


$:MENU7
$GOSUB BAT_NAME
$GOTO MENU


$:MENU8
$GOSUB DOORPATH
$GOTO MENU


$:MENU9
$GOSUB DOCSPATH
$GOTO MENU


$:MENU10
$SET %2 "  ³     High Rollers Bulletin     ³"
$GOSUB BUL_NAME
$SET %5 %2
$GOTO MENU


$:MENU11
$GOSUB NODES
$GOTO MENU


$:MENU12
$SET #1 1
$GOSUB BBS_PATH
$SET %20 %2
$SET %25 %3
$SET #1 1
$GOSUB BBS_COMM
$GOTO MENU


$:MENU13
$SET #1 2
$GOSUB BBS_PATH
$SET %21 %2
$SET %26 %3
$SET #1 2
$GOSUB BBS_COMM
$GOTO MENU


$:MENU14
$SET #1 3
$GOSUB BBS_PATH
$SET %22 %2
$SET %27 %3
$SET #1 3
$GOSUB BBS_COMM
$GOTO MENU


$:MENU15
$SET #1 4
$GOSUB BBS_PATH
$SET %23 %2
$SET %28 %3
$SET #1 4
$GOSUB BBS_COMM
$GOTO MENU





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Build Required Directories  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:BUILD
CLS
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³                  T H E   M Y C R O F T   C A S I N O                     ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$MSG
$MSG "  Building directories..."
$SET %2 %16
$CAT %2 %17
MAKEDIR %2
$CAT %2 "\DOCS"
MAKEDIR %2
MAKEDIR %18





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  UnZip Documentation  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$MSG "  UnZipping documentation..."
PKUNZIP -o CASINO-D.ZIP %2 *.* >NUL





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Copy User Documentation  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$MSG "  Copying user documentation..."
$CAT %2 "\CASINO.DOC"
COPY %2 %18 >NUL





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  UnZip Program Files  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$MSG "  UnZipping program files..."
$SET %2 %16
$CAT %2 %17
PKUNZIP -o CASINO-X.ZIP %2 *.* >NUL





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Build NODES.BBS  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$MSG "  Building node ID file(s)..."

$IF #12 < 3 NBBS0
$IF #12 > 4 NBBS0
$SET %2 %14
$GOTO NBBS1

$:NBBS0
$SET %2 %20
$CAT %2 %25

$:NBBS1
$CAT %2 "\NODES.BBS"
REMOVE %2
$:NBBS1_NO
$SET %3 "COM"
$CAT %3 #20
$WRITE %2 %3
$SET %3 "COM"
$CAT %3 #21
$WRITE %2 %3
$SET %3 "COM"
$CAT %3 #22
$WRITE %2 %3
$SET %3 "COM"
$CAT %3 #23
$WRITE %2 %3
$SET %3 %16
$CAT %3 %17
$CAT %3 "\NODES.BBS"
COPY %2 %3 >NUL

$IF #12 = 3 BATCH
$IF #12 = 4 BATCH
$IF #10 < 2 BATCH
$SET %3 %21
$CAT %3 %26
$CAT %3 "\NODES.BBS"
$IF %2 = %3 NBBS3
COPY %2 %3 >NUL

$:NBBS3
$IF #10 < 3 BATCH
$SET %3 %22
$CAT %3 %27
$CAT %3 "\NODES.BBS"
$IF %2 = %3 NBBS4
COPY %2 %3 >NUL

$:NBBS4
$IF #10 < 4 BATCH
$SET %3 %23
$CAT %3 %28
$CAT %3 "\NODES.BBS"
$IF %2 = %3 BATCH
COPY %2 %3 >NUL





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Build Batch Files  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:BATCH
$IF #12 < 3 BAT1
$IF #12 > 4 BAT1

$MSG "  Copying MONITOR1.EXE file to door directory..."
$SET %2 %14
$CAT %2 "\MONITOR1.EXE"
$SET %3 %16
$CAT %3 %17
$IF EXISTS %2 MON_COPY

$MSG "  WARNING - MONITOR1.EXE file not found!"
$GOTO CONFIG

$:MON_COPY
COPY %2 %3
$GOTO CONFIG

$:BAT1
$MSG "  Building door batch file(s)..."
$SET %2 %20
$CAT %2 %25
$CAT %2 "\"
$CAT %2 %15
REMOVE %2
$:BAT1_NO
$WRITE %2 "ECHO OFF"
$WRITE %2 "ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$WRITE %2 "ECHO ³  THE MYCROFT CASINO  ³"
$WRITE %2 "ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$WRITE %2 %16
$SET %3 "CD "
$CAT %3 %17
$WRITE %2 %3

$SET %3 "CASINO"
$IF #12 = 1 BAT11
$IF #12 = 2 BAT11
$IF #12 = 5 BAT11
$CAT %3 " 1 "
$GOTO BAT12
$:BAT11
$CAT %3 " %1 "
$:BAT12
$CAT %3 %20
$CAT %3 %25
$CAT %3 " "
$CAT %3 %13
$WRITE %2 %3

$WRITE %2 %20
$SET %3 "CD "
$CAT %3 %25
$WRITE %2 %3
$WRITE %2 " "



$:BAT2
$IF #10 < 2 CONFIG
$SET %4 %21
$CAT %4 %26
$CAT %4 "\"
$CAT %4 %15
$IF %2 = %4 BAT3
$SET %2 %4
REMOVE %2
$:BAT2_NO
$WRITE %2 "ECHO OFF"
$WRITE %2 "ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$WRITE %2 "ECHO ³  THE MYCROFT CASINO  ³"
$WRITE %2 "ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$WRITE %2 %16
$SET %3 "CD "
$CAT %3 %17
$WRITE %2 %3

$SET %3 "CASINO"
$IF #12 = 1 BAT21
$IF #12 = 2 BAT21
$IF #12 = 5 BAT21
$CAT %3 " 2 "
$GOTO BAT22
$:BAT21
$CAT %3 " %1 "
$:BAT22
$CAT %3 %21
$CAT %3 %26
$CAT %3 " "
$CAT %3 %13
$WRITE %2 %3

$WRITE %2 %21
$SET %3 "CD "
$CAT %3 %26
$WRITE %2 %3
$WRITE %2 " "



$:BAT3
$IF #10 < 3 CONFIG
$SET %4 %22
$CAT %4 %27
$CAT %4 "\"
$CAT %4 %15
$IF %2 = %4 BAT4
$SET %2 %4
REMOVE %2
$:BAT3_NO
$WRITE %2 "ECHO OFF"
$WRITE %2 "ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$WRITE %2 "ECHO ³  THE MYCROFT CASINO  ³"
$WRITE %2 "ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$WRITE %2 %16
$SET %3 "CD "
$CAT %3 %17
$WRITE %2 %3

$SET %3 "CASINO"
$IF #12 = 1 BAT31
$IF #12 = 2 BAT31
$IF #12 = 5 BAT31
$CAT %3 " 3 "
$GOTO BAT32
$:BAT31
$CAT %3 " %1 "
$:BAT32
$CAT %3 %22
$CAT %3 %27
$CAT %3 " "
$CAT %3 %13
$WRITE %2 %3

$WRITE %2 %22
$SET %3 "CD "
$CAT %3 %27
$WRITE %2 %3
$WRITE %2 " "



$:BAT4
$IF #10 < 4 CONFIG
$SET %4 %23
$CAT %4 %28
$CAT %4 "\"
$CAT %4 %15
$IF %2 = %4 CONFIG
$SET %2 %4
REMOVE %2
$:BAT4_NO
$WRITE %2 "ECHO OFF"
$WRITE %2 "ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$WRITE %2 "ECHO ³  THE MYCROFT CASINO  ³"
$WRITE %2 "ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$WRITE %2 %16
$SET %3 "CD "
$CAT %3 %17
$WRITE %2 %3

$SET %3 "CASINO"
$IF #12 = 1 BAT41
$IF #12 = 2 BAT41
$IF #12 = 5 BAT41
$CAT %3 " 4 "
$GOTO BAT42
$:BAT41
$CAT %3 " %1 "
$:BAT42
$CAT %3 %23
$CAT %3 %28
$CAT %3 " "
$CAT %3 %13
$WRITE %2 %3

$WRITE %2 %23
$SET %3 "CD "
$CAT %3 %28
$WRITE %2 %3
$WRITE %2 " "





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Build Configuration Files  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:CONFIG
$MSG "  Building door configuration file..."
$SET %2 %16
$CAT %2 %17
$CAT %2 "\CASINO.CFG"
REMOVE %2
$:CFG_NO
$WRITE %2 %10
$SET %3 %18
$CAT %3 "\CASINO.DOC"
$WRITE %2 %3
$WRITE %2 %5
$WRITE %2 %30
$WRITE %2 %31




;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Initialize the Game  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:INITIAL
$IF #15 < 1 SIGNOFF
$MSG "  Running installation program..."
$SET %2 %16
$CAT %2 %17
$CAT %2 "\CSINIT "
$CAT %2 %16
$CAT %2 %17
%2





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Signoff Message  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:SIGNOFF
CLS
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³                  T H E   M Y C R O F T   C A S I N O                     ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$MSG
$MSG "    The Mycroft Casino is now installed and ready to run.  You will need to "
$MSG "    modify your door menu or whatever mechanism is used by your BBS to have "
$MSG "    it recognize the new door.  Also if your BBS software needs to be re-run"
$MSG "    after the door terminates then you will need to add a line at the end of"
$MSG "    the batch files to do that."
$MSG
$MSG "    NOTE:  THIS IS AN ALPHA TEST VERSION USING INTERRUPT DRIVEN I/O, PLEASE "
$MSG "           READ THE FILE CSSYSOP.DOC FOR INFORMATION PERTAINING TO PORTS.BBS"
$MSG "           IF THE GAME DOES NOT COME UP OR IF YOU ARE USING COM5-COM8."
$MSG
$MSG "                                Mycroft Systems  "
$MSG "                                 P.O. Box 7672   "
$MSG "                              San Jose, CA. 95150"
$MSG "                                 (408)927-0105   "
$MSG





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  All Done, Exit  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;

$:DONE
$EXIT 0






;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Get the BBS name  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:BBS_NAME
;
CLS
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³            BBS NAME           ³"
$MSG "  ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
$MSG "  ³ Enter the name of your BBS as ³"
$MSG "  ³  you wish it to show in the   ³"
$MSG "  ³         door program.         ³"
$MSG "  ³                               ³"
$MSG "  ³   Example: Mycroft Systems    ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$INP %10 "  ÍÍ>"
$RETURN





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Get the SysOp name  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:SYSOP
;
CLS
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³           SYSOP NAME          ³"
$MSG "  ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
$MSG "  ³ Enter the name you use as the ³"
$MSG "  ³      SysOp of your BBS.       ³"
$MSG "  ³                               ³"
$MSG "  ³     Example: Mike Bayley      ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$INP %11 "  ÍÍ>"
$RETURN





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Get the Editor name  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:LOGIN
;
CLS
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³       EDITOR LOGIN NAME       ³"
$MSG "  ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
$MSG "  ³ Enter the user login name of  ³"
$MSG "  ³  the person you wish to have  ³"
$MSG "  ³  access to the doors editor.  ³"
$MSG "  ³                               ³"
$MSG "  ³         Example: SYSOP        ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$INP %30 "  ÍÍ>"
$RETURN





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Get the Editor Password  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:PASSWORD
;
CLS
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³        EDITOR PASSWORD        ³"
$MSG "  ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
$MSG "  ³  Enter the password you wish  ³"
$MSG "  ³  to use to gain access to the ³"
$MSG "  ³         doors editor.         ³"
$MSG "  ³                               ³"
$MSG "  ³       Example: Mycroft        ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$INP %31 "  ÍÍ>"
$RETURN





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Get the BBS type  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:BBS_TYPE
;
CLS
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³       BBS ENVIRONMENT TYPE        ³"
$MSG "  ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
$MSG "  ³   1. RBBS 15                      ³"
$MSG "  ³   2. RBBS 16 or RBBS 17           ³"
$MSG "  ³   3. Bob Wescotts Door Monitor    ³"
$MSG "  ³   4. G-Mon                        ³"
$MSG "  ³   5. Quick BBS                    ³"
$MSG "  ³   6. PC-Board 12.1                ³"
$MSG "  ³   7. PC-Board 14.0                ³"
$MSG "  ³   8. Wildcat BBS                  ³"
$MSG "  ³   9. GAP BBS                      ³"
$MSG "  ³  10. WWIV BBS                     ³"
$MSG "  ³  11. Spitfire (Door)              ³"
$MSG "  ³  12. Spitfire (Main menu cmd.)    ³"
$MSG "  ³  13. Spitfire (Msg. menu cmd.)    ³"
$MSG "  ³  14. Spitfire (File menu cmd.)    ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
;
$:BBS_T0
;
$INP #12 "  ÍÍ>"
$IF #12 < 1 BBS_TERR
;
$:BBS_T1
$IF #12 > 1 BBS_T2
$SET %12 "RBBS 15"
$SET %13 ""
$RETURN
;
$:BBS_T2
$IF #12 > 2 BBS_T3
$SET %12 "RBBS"
$SET %13 "RBBS"
$RETURN
;
$:BBS_T3
$IF #12 > 3 BBS_T4
$SET %12 "Wescotts Monitor"
$SET %13 ""
$RETURN
;
$:BBS_T4
$IF #12 > 4 BBS_T5
$SET %12 "G-Mon"
$SET %13 ""
$RETURN
;
$:BBS_T5
$IF #12 > 5 BBS_T6
$SET %12 "Quick BBS"
$SET %13 "QBBS"
$RETURN
;
$:BBS_T6
$IF #12 > 6 BBS_T7
$SET %12 "PC-Board 12.1"
$SET %13 "PCBOARD"
$RETURN
;
$:BBS_T7
$IF #12 > 7 BBS_T8
$SET %12 "PC-Board 14.0"
$SET %13 "PCBOARD14"
$RETURN
;
$:BBS_T8
$IF #12 > 8 BBS_T9
$SET %12 "Wildcat BBS"
$SET %13 "WILDCAT"
$RETURN
;
$:BBS_T9
$IF #12 > 9 BBS_T10
$SET %12 "Gap BBS"
$SET %13 "GAP"
$RETURN
;
$:BBS_T10
$IF #12 > 10 BBS_T11
$SET %12 "WWIV BBS"
$SET %13 "WWIV"
$RETURN
;
$:BBS_T11
$IF #12 > 11 BBS_T12
$SET %12 "Spitfire BBS (Door)"
$SET %13 "SPITFIRE"
$RETURN
;
$:BBS_T12
$IF #12 > 12 BBS_T13
$SET %12 "Spitfire BBS (Main menu cmd.)"
$SET %13 "SPITFIREK"
$RETURN
;
$:BBS_T13
$IF #12 > 13 BBS_T14
$SET %12 "Spitfire BBS (Msg. menu cmd.)"
$SET %13 "SPITFIREM"
$RETURN
;
$:BBS_T14
$IF #12 > 14 BBS_TERR
$SET %12 "Spitfire BBS (File menu cmd.)"
$SET %13 "SPITFIREF"
$RETURN
;
$:BBS_TERR
$MSG "  Error, please enter a number between 1 and 14."
$GOTO BBS_T0





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Get the Monitor drive & path  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:MON_PATH
;
CLS
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³ DOOR MONITOR DRIVE & PATHNAME ³"
$MSG "  ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
$MSG "  ³ Enter the complete drive and  ³"
$MSG "  ³ pathname for the location of  ³"
$MSG "  ³      your monitor files.      ³"
$MSG "  ³                               ³"
$MSG "  ³    Example: C:\RBBS\G-MON     ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$INP %14 "  ÍÍ>"
$RETURN





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Get the BBS node count  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:NODES
CLS
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³      NUMBER OF BBS NODES      ³"
$MSG "  ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
$MSG "  ³     1. System has 1 node      ³"
$MSG "  ³     2. System has 2 nodes     ³"
$MSG "  ³     3. System has 3 nodes     ³"
$MSG "  ³     4. System has 4 nodes     ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
;
$:NODE_0
$INP #10 "  ÍÍ>"
$IF #10 = 1 NODE_1
$IF #10 = 2 NODE_2
$IF #10 = 3 NODE_3
$IF #10 = 4 NODE_4
$GOTO NODE_ERR

$:NODE_1
$SET %23 ""
$SET %28 "<not in use>"
$SET #23 0

$:NODE_2
$SET %22 ""
$SET %27 "<not in use>"
$SET #22 0

$:NODE_3
$SET %21 ""
$SET %26 "<not in use>"
$SET #21 0

$:NODE_4
$RETURN
;
$:NODE_ERR
$MSG "  Error, please enter a number between 1 and 4."
$GOTO NODE_0





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Get the BBS drive & path  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:BBS_PATH
CLS
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³           BBS DRIVE           ³"
$MSG "  ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
$SET %3 "  ³            NODE #"
$CAT %3 #1
$CAT %3 "            ³"
$MSG %3
$MSG "  ³                               ³"
$MSG "  ³   1. A:     5. E:     9. I:   ³"
$MSG "  ³   2. B:     6. F:    10. J:   ³"
$MSG "  ³   3. C:     7. G:    11. K:   ³"
$MSG "  ³   4. D:     8. H:    12. L:   ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
;
$:BBS_P0
$INP #0 "  ÍÍ>"
$IF #0 < 1 BBS_PERR
;
$:BBS_P1
$IF #0 > 1 BBS_P2
$SET %2 "A:"
$GOTO BBS_PTH2
;
$:BBS_P2
$IF #0 > 2 BBS_P3
$SET %2 "B:"
$GOTO BBS_PTH2
;
$:BBS_P3
$IF #0 > 3 BBS_P4
$SET %2 "C:"
$GOTO BBS_PTH2
;
$:BBS_P4
$IF #0 > 4 BBS_P5
$SET %2 "D:"
$GOTO BBS_PTH2
;
$:BBS_P5
$IF #0 > 5 BBS_P6
$SET %2 "E:"
$GOTO BBS_PTH2
;
$:BBS_P6
$IF #0 > 6 BBS_P7
$SET %2 "F:"
$GOTO BBS_PTH2
;
$:BBS_P7
$IF #0 > 7 BBS_P7
$SET %2 "G:"
$GOTO BBS_PTH2
;
$:BBS_P8
$IF #0 > 8 BBS_P9
$SET %2 "H:"
$GOTO BBS_PTH2
;
$:BBS_P9
$IF #0 > 9 BBS_P10
$SET %2 "I:"
$GOTO BBS_PTH2
;
$:BBS_P10
$IF #0 > 10 BBS_P11
$SET %2 "J:"
$GOTO BBS_PTH2
;
$:BBS_P11
$IF #0 > 11 BBS_P12
$SET %2 "K:"
$GOTO BBS_PTH2
;
$:BBS_P12
$IF #0 > 12 BBS_PERR
$SET %2 "L:"
$GOTO BBS_PTH2
;
$:BBS_PERR
$MSG "  Error, please enter a number between 1 and 12."
$GOTO BBS_P0


$:BBS_PTH2
;
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³         BBS PATHNAME          ³"
$MSG "  ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
$SET %3 "  ³            NODE #"
$CAT %3 #1
$CAT %3 "            ³"
$MSG %3
$MSG "  ³                               ³"
$MSG "  ³ Enter the complete path where ³"
$MSG "  ³     your BBS software is.     ³"
$MSG "  ³                               ³"
$MSG "  ³        Example: \RBBS         ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$INP %3 "  ÍÍ>"
$RETURN





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Get the BBS node comm port  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:BBS_COMM
CLS
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³ BBS NODE COMM PORT ASSIGNMENT ³"
$MSG "  ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
$SET %3 "  ³            NODE #"
$CAT %3 #1
$CAT %3 "            ³"
$MSG %3
$MSG "  ³                               ³"
$MSG "  ³         1. Uses COM1          ³"
$MSG "  ³         2. Uses COM2          ³"
$MSG "  ³         3. Uses COM3          ³"
$MSG "  ³         4. Uses COM4          ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
;
$:COMM_0
$INP #1 "  ÍÍ>"
$IF #1 < 1 COMM_ERR
$IF #1 > 4 COMM_ERR
$RETURN
;
$:COMM_ERR
$MSG "  Error, please enter a number between 1 and 4."
$GOTO COMM_0





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Get the door drive & path  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:DOORPATH
CLS
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³          DOOR DRIVE           ³"
$MSG "  ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
$MSG "  ³   1. A:     5. E:     9. I:   ³"
$MSG "  ³   2. B:     6. F:    10. J:   ³"
$MSG "  ³   3. C:     7. G:    11. K:   ³"
$MSG "  ³   4. D:     8. H:    12. L:   ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
;
$:DOR_P0
$INP #0 "  ÍÍ>"
$IF #0 < 1 DOR_PERR
;
$:DOR_P1
$IF #0 > 1 DOR_P2
$SET %16 "A:"
$GOTO DOORPTH2
;
$:DOR_P2
$IF #0 > 2 DOR_P3
$SET %16 "B:"
$GOTO DOORPTH2
;
$:DOR_P3
$IF #0 > 3 DOR_P4
$SET %16 "C:"
$GOTO DOORPTH2
;
$:DOR_P4
$IF #0 > 4 DOR_P5
$SET %16 "D:"
$GOTO DOORPTH2
;
$:DOR_P5
$IF #0 > 5 DOR_P6
$SET %16 "E:"
$GOTO DOORPTH2
;
$:DOR_P6
$IF #0 > 6 DOR_P7
$SET %16 "F:"
$GOTO DOORPTH2
;
$:DOR_P7
$IF #0 > 7 DOR_P7
$SET %16 "G:"
$GOTO DOORPTH2
;
$:DOR_P8
$IF #0 > 8 DOR_P9
$SET %16 "H:"
$GOTO DOORPTH2
;
$:DOR_P9
$IF #0 > 9 DOR_P10
$SET %16 "I:"
$GOTO DOORPTH2
;
$:DOR_P10
$IF #0 > 10 DOR_P11
$SET %16 "J:"
$GOTO DOORPTH2
;
$:DOR_P11
$IF #0 > 11 DOR_P12
$SET %16 "K:"
$GOTO DOORPTH2
;
$:DOR_P12
$IF #0 > 12 DOR_PERR
$SET %16 "L:"
$GOTO DOORPTH2
;
$:DOR_PERR
$MSG "  Error, please enter a number between 1 and 12."
$GOTO DOR_P0


$:DOORPTH2
;
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³         DOOR PATHNAME         ³"
$MSG "  ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
$MSG "  ³ Enter the complete path where ³"
$MSG "  ³    the door will be run.      ³"
$MSG "  ³                               ³"
$MSG "  ³    Example: \DOORS\CASINO     ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$INP %17 "  ÍÍ>"
$RETURN





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Get the user documentation drive & path  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:DOCSPATH
;
CLS
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³USER DOCUMENTATION DRIVE & PATH³"
$MSG "  ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
$MSG "  ³ Enter the complete drive and  ³"
$MSG "  ³ pathname for the location of  ³"
$MSG "  ³  the downloadable doc files.  ³"
$MSG "  ³                               ³"
$MSG "  ³    Example: C:\RBBS\DOCS      ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$INP %18 "  ÍÍ>"
$RETURN





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Get the door batch filename  º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:BAT_NAME
;
CLS
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³      DOOR BATCH FILENAME      ³"
$MSG "  ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
$MSG "  ³  Enter the name of the BATCH  ³"
$MSG "  ³  file you wish to use to run  ³"
$MSG "  ³  the door.  Do not include a  ³"
$MSG "  ³      drive or pathname.       ³"
$MSG "  ³                               ³"
$MSG "  ³      Example: CASINO.BAT      ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$INP %15 "  ÍÍ>"
$RETURN





;
; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
; º  Get the door bulletin drive, path & filename º
; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
$:BUL_NAME
;
CLS
$MSG
$MSG "  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
$MSG "  ³         BULLETIN NAME         ³"
$MSG "  ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
$MSG %2
$MSG "  ³                               ³"
$MSG "  ³Enter the complete drive, path ³"
$MSG "  ³and filename for this bulletin.³"
$MSG "  ³                               ³"
$MSG "  ³   Example: C:\RBBS\BULLET10   ³"
$MSG "  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$INP %2 "  ÍÍ>"
$RETURN