home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / vrac / easydr26.zip / AUTOBBS.BI next >
Text File  |  1994-10-06  |  11KB  |  275 lines
  1. ' Easy-Door V2.60 Automatic Multi-BBS detection
  2. ' ---------------------------------------------
  3.  
  4. ' Depending on the filename, the corresponding BBS drop file is used.
  5. ' Example: DOOR.EXE C:\RA\DORINFO1.DEF
  6.  
  7. Ok = 0                          ' Succes flag when reading DOOR file
  8.  
  9. FileName$ = UCASE$(COMMAND$)
  10. BBSType = -1
  11.  
  12. IF FileName$ = "" THEN
  13.         FileName$ = "No file Name"
  14.         FullName$ = "Unknown"
  15.         Location$ = "Nowhere"
  16.         Baud$ = "0 BAUD,N,8,1"
  17.         Com$ = "0"
  18.         AnsiFlag$ = "1"
  19.         TimeRemaining$ = "20"
  20.         Security$ = "32768"
  21.         BBSType = 0
  22. ELSE
  23.        
  24.         IF FileExist%(FileName$) THEN
  25.           IF INSTR(FileName$, "DORINFO") THEN BBSType = 1
  26.           IF INSTR(FileName$, "DOOR.SYS") THEN BBSType = 2
  27.           IF RIGHT$(FileName$, 8) = "INFO.BBS" THEN BBSType = 3
  28.           IF INSTR(FileName$, "CALLINF") THEN BBSType = 4
  29.           IF INSTR(FileName$, "SF") AND INSTR(FileName$, ".DAT") THEN BBSType = 5
  30.           IF INSTR(FileName$, "CHAIN.TXT") THEN BBSType = 6
  31.           IF INSTR(FileName$, "PCBOARD") THEN BBSType = 7
  32.           IF INSTR(FileName$, "DOBBS.BAT") THEN BBSType = 8
  33.         END IF
  34.                
  35.         SELECT CASE BBSType
  36.  
  37.         CASE IS = 1
  38.         ' **************************************************************************
  39.         ' QuickBBS, Remote Access, SuperBBS, RBBS  (DORINFO#.DEF)  Where # = 1,2,3..
  40.         ' **************************************************************************
  41.  
  42.                 OPEN FileName$ FOR INPUT SHARED AS #1
  43.  
  44.                   LINE INPUT #1, BBS$
  45.                   LINE INPUT #1, No$
  46.                   LINE INPUT #1, No$
  47.                   LINE INPUT #1, Com$: Com$ = RIGHT$(Com$, 1)
  48.                   LINE INPUT #1, Baud$
  49.                   LINE INPUT #1, No$
  50.                   LINE INPUT #1, UserFirst$
  51.                   LINE INPUT #1, UserLast$
  52.                     FullName$ = UserFirst$ + " " + UserLast$
  53.                   LINE INPUT #1, No$
  54.                   LINE INPUT #1, AnsiFlag$
  55.                   LINE INPUT #1, Security$
  56.                   LINE INPUT #1, TimeRemaining$
  57.  
  58.                 CLOSE #1: Ok = 1
  59.  
  60.         CASE IS = 2
  61.         ' **************************************************************************
  62.         ' Door type for Telegard, Force!, New PcBoard, Gap   (DOOR.SYS)
  63.         ' **************************************************************************
  64.  
  65.                 OPEN FileName$ FOR INPUT SHARED AS #1
  66.  
  67.                  LINE INPUT #1, Com$: Com$ = MID$(Com$, 4, 1)
  68.                  LINE INPUT #1, Baud$: Baud$ = Baud$ + " Baud"
  69.                  LINE INPUT #1, No$
  70.                  LINE INPUT #1, No$
  71.                  LINE INPUT #1, No$
  72.                  LINE INPUT #1, No$
  73.                  LINE INPUT #1, No$
  74.                  LINE INPUT #1, No$
  75.                  LINE INPUT #1, No$
  76.                  LINE INPUT #1, FullName$
  77.                  LINE INPUT #1, No$
  78.                  LINE INPUT #1, No$
  79.                  LINE INPUT #1, No$
  80.                  LINE INPUT #1, No$
  81.                  LINE INPUT #1, Security$
  82.                  LINE INPUT #1, No$
  83.                  LINE INPUT #1, No$
  84.                  LINE INPUT #1, No$
  85.                  LINE INPUT #1, TimeRemaining$
  86.                  LINE INPUT #1, AnsiFlag$
  87.                    IF AnsiFlag$ = "GR" OR AnsiFlag$ = "RIP" THEN AnsiFlag$ = "1" ELSE AnsiFlag$ = ""
  88.                 CLOSE #1: Ok = 1
  89.  
  90.         CASE IS = 3
  91.         ' **************************************************************************
  92.         ' Door type for Phoenix BBS   (INFO.BBS)
  93.         ' **************************************************************************
  94.  
  95.                 OPEN FileName$ FOR INPUT SHARED AS #1
  96.                  LINE INPUT #1, FullName$
  97.                  LINE INPUT #1, Baud$
  98.                  LINE INPUT #1, Com$
  99.                  LINE INPUT #1, Security$
  100.                  LINE INPUT #1, Local$
  101.                    IF Local$ = "TRUE" THEN Com$ = "0"
  102.                  LINE INPUT #1, No$
  103.                  LINE INPUT #1, TimeRemaining$
  104.                  LINE INPUT #1, AnsiFlag$
  105.                    IF AnsiFlag$ = "TRUE" THEN AnsiFlag$ = "1" ELSE AnsiFlag$ = ""
  106.                  LINE INPUT #1, No$
  107.  
  108.                 CLOSE #1: Ok = 1
  109.  
  110.         CASE IS = 4
  111.         ' **************************************************************************
  112.         ' For WildCat BBS, Genesis, Force!   (CALLINFO.BBS)
  113.         ' **************************************************************************
  114.  
  115.                 OPEN FileName$ FOR INPUT SHARED AS #1
  116.                  LINE INPUT #1, FullName$
  117.                  LINE INPUT #1, Baud$
  118.                  Baud$ = Num2Str$(VAL(Baud$))
  119.                  SELECT CASE Baud$
  120.                         CASE IS = "1": Baud$ = "300 Baud"
  121.                         CASE IS = "2": Baud$ = "1200 Baud"
  122.                         CASE IS = "3": Baud$ = "9600 Baud"  ' It's not an error
  123.                         CASE IS = "4": Baud$ = "2400 Baud"  ' They're NOT inverted!
  124.                  END SELECT
  125.  
  126.                  LINE INPUT #1, No$
  127.                  LINE INPUT #1, No$
  128.                  LINE INPUT #1, TimeRemaining$
  129.                  LINE INPUT #1, AnsiFlag$
  130.                   IF AnsiFlag$ = "MONO" THEN AnsiFlag$ = "" ELSE AnsiFlag$ = "1"
  131.                  LINE INPUT #1, No$
  132.                  LINE INPUT #1, No$
  133.                  LINE INPUT #1, No$
  134.                  LINE INPUT #1, No$
  135.                  LINE INPUT #1, No$
  136.                  LINE INPUT #1, No$
  137.                  LINE INPUT #1, No$
  138.                  LINE INPUT #1, No$
  139.                  LINE INPUT #1, No$
  140.                  LINE INPUT #1, No$
  141.                  LINE INPUT #1, No$
  142.                  LINE INPUT #1, No$
  143.                  LINE INPUT #1, No$
  144.                  LINE INPUT #1, No$
  145.                  LINE INPUT #1, No$
  146.                  LINE INPUT #1, No$
  147.                  LINE INPUT #1, No$
  148.                  LINE INPUT #1, No$
  149.                  LINE INPUT #1, No$
  150.                  LINE INPUT #1, No$
  151.                  LINE INPUT #1, No$
  152.                  LINE INPUT #1, Local$
  153.                  LINE INPUT #1, Com$: Com$ = RIGHT$(Com$, 1)
  154.  
  155.                          IF Local$ = "LOCAL" THEN Com$ = "0"
  156.  
  157.                 CLOSE #1: Ok = 1
  158.  
  159.         CASE IS = 5
  160.         ' **************************************************************************
  161.         ' For Spitfire   (SFDOOR.DAT)
  162.         ' **************************************************************************
  163.  
  164.                 OPEN FileName$ FOR INPUT SHARED AS #1
  165.  
  166.                  LINE INPUT #1, No$
  167.                  LINE INPUT #1, FullName$
  168.                  LINE INPUT #1, No$
  169.                  LINE INPUT #1, No$
  170.                  LINE INPUT #1, Baud$: Baud$ = Baud$ + " Baud"
  171.                  LINE INPUT #1, Com$
  172.                  LINE INPUT #1, TimeRemaining$
  173.                  LINE INPUT #1, No$
  174.                  LINE INPUT #1, No$
  175.                  LINE INPUT #1, AnsiFlag$
  176.                    IF AnsiFlag$ = "TRUE" THEN AnsiFlag$ = "1" ELSE AnsiFlag$ = ""
  177.                  LINE INPUT #1, No$
  178.  
  179.                 CLOSE #1: Ok = 1
  180.  
  181.         CASE IS = 6
  182.         ' **************************************************************************
  183.         ' WWIV BBS SYSTEM   (CHAIN.TXT)
  184.         ' **************************************************************************
  185.  
  186.                 OPEN FileName$ FOR INPUT SHARED AS #1
  187.  
  188.                  LINE INPUT #1, No$
  189.                  LINE INPUT #1, Alias$
  190.                  LINE INPUT #1, FullName$
  191.                  LINE INPUT #1, No$
  192.                  LINE INPUT #1, No$
  193.                  LINE INPUT #1, No$
  194.                  LINE INPUT #1, No$
  195.                  LINE INPUT #1, No$
  196.                  LINE INPUT #1, No$
  197.                  LINE INPUT #1, No$
  198.                  LINE INPUT #1, Security$
  199.                  LINE INPUT #1, No$
  200.                  LINE INPUT #1, No$
  201.                  LINE INPUT #1, AnsiFlag$
  202.                  LINE INPUT #1, Remote$          ' If Local then Remote$ = "1"
  203.                  LINE INPUT #1, TimeRemaining$
  204.                     TimeRemaining$ = STR$(VAL(TimeRemaining$) \ 60)
  205.                  LINE INPUT #1, No$
  206.                  LINE INPUT #1, No$
  207.                  LINE INPUT #1, No$
  208.                  LINE INPUT #1, Baud$
  209.                  LINE INPUT #1, Com$
  210.                  LINE INPUT #1, No$
  211.                  LINE INPUT #1, No$
  212.                  LINE INPUT #1, No$
  213.                  LINE INPUT #1, No$
  214.                  LINE INPUT #1, No$
  215.                  LINE INPUT #1, No$
  216.                  LINE INPUT #1, No$
  217.                  LINE INPUT #1, No$
  218.                  LINE INPUT #1, No$
  219.                  LINE INPUT #1, No$
  220.                  LINE INPUT #1, No$
  221.                CLOSE #1: Ok = 1
  222.  
  223.         CASE IS = 7
  224.         ' **************************************************************************
  225.         ' PcBoard V14   (PCBOARD.SYS)
  226.         ' **************************************************************************
  227.  
  228.                 OPEN FileName$ FOR INPUT SHARED AS #1
  229.  
  230.                 Lin$ = INPUT$(127, #1)
  231.                 AnsiFlag$ = MID$(Lin$, 12, 1)
  232.                 IF AnsiFlag$ = "Y" THEN AnsiFlag$ = "1" ELSE AnsiFlag$ = ""
  233.                 Baud$ = RTRIM$(MID$(Lin$, 19, 5))
  234.                 FullName$ = RTRIM$(MID$(Lin$, 85, 25))
  235.                 TimeRemaining$ = Num2Str$(ASC(MID$(Lin$, 110, 2)))
  236.                 Com$ = MID$(Lin$, 126, 1)
  237.  
  238.                 CLOSE #1: Ok = 1
  239.  
  240.         CASE IS = 8
  241.         ' **************************************************************************
  242.         ' FrontDoor (DOBBS.BAT)
  243.         '
  244.         ' FrontDoor is is not a BBS software, it is a mailer
  245.         ' You could use this file to load a door before the BBS actually start
  246.         ' **************************************************************************
  247.  
  248.                 OPEN FileName$ FOR INPUT SHARED AS #1
  249.  
  250.                 DIM Item$(3)
  251.                 LINE INPUT #1, Lin$
  252.                 NbItem = 3
  253.                 Parser Lin$, Item$(), NbItem, " "
  254.                 Baud$ = Item$(2)
  255.                 Com$ = Item$(3)
  256.                 FullName$ = "Unknown"
  257.                 Location$ = ""
  258.                 AnsiFlag$ = "1"
  259.                 TimeRemaining$ = "180"
  260.                 Security$ = "32768"
  261.                 CLOSE #1: Ok = 1
  262.  
  263.         END SELECT
  264.  
  265.         IF BBSType = 0 OR Ok = 0 THEN
  266.            CLS
  267.            PRINT
  268.            PRINT "ERROR: "; FileName$; " not found or BBS type not recognized."
  269.            END
  270.         END IF
  271.  
  272. END IF
  273.  
  274.  
  275.