home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / communic / bceasydr / autobbs.bi next >
Encoding:
Text File  |  1993-11-14  |  8.2 KB  |  251 lines
  1. ' Easy-Door V2.50 Automatic Multi-BBS detection
  2. ' ---------------------------------------------
  3.  
  4. ' Depending on the filename, the corresponding BBS type 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$ = "2"
  19.         TimeRemaining$ = "180"
  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.         END IF
  33.                
  34. SELECT CASE BBSType
  35.  
  36. CASE IS = 1
  37. ' **************************************************************************
  38. ' QuickBBS, Remote Access, SuperBBS, RBBS  (DORINFO#.DEF)  Where # = 1,2,3..
  39. ' **************************************************************************
  40.       
  41.         OPEN FileName$ FOR INPUT SHARED AS #1
  42.         
  43.           LINE INPUT #1, BBS$
  44.           LINE INPUT #1, No$
  45.           LINE INPUT #1, No$
  46.           LINE INPUT #1, Com$: Com$ = RIGHT$(Com$, 1)
  47.           LINE INPUT #1, Baud$
  48.           LINE INPUT #1, No$
  49.           LINE INPUT #1, UserFirst$
  50.           LINE INPUT #1, UserLast$
  51.             FullName$ = UserFirst$ + " " + UserLast$
  52.           LINE INPUT #1, No$
  53.           LINE INPUT #1, AnsiFlag$
  54.           LINE INPUT #1, Security$
  55.           LINE INPUT #1, TimeRemaining$
  56.  
  57.         CLOSE #1: Ok = 1
  58.  
  59. CASE IS = 2
  60. ' **************************************************************************
  61. ' Door type for Telegard, Force!, New PcBoard, Gap   (DOOR.SYS)
  62. ' **************************************************************************
  63.       
  64.         OPEN FileName$ FOR INPUT SHARED AS #1
  65.  
  66.          LINE INPUT #1, Com$: Com$ = MID$(Com$, 4, 1)
  67.          LINE INPUT #1, Baud$: Baud$ = Baud$ + " Baud"
  68.          LINE INPUT #1, No$
  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, FullName$
  76.          LINE INPUT #1, No$
  77.          LINE INPUT #1, No$
  78.          LINE INPUT #1, No$
  79.          LINE INPUT #1, No$
  80.          LINE INPUT #1, Security$
  81.          LINE INPUT #1, No$
  82.          LINE INPUT #1, No$
  83.          LINE INPUT #1, No$
  84.          LINE INPUT #1, TimeRemaining$
  85.          LINE INPUT #1, AnsiFlag$
  86.            IF AnsiFlag$ = "GR" OR AnsiFlag$ = "RIP" THEN AnsiFlag$ = "1" ELSE AnsiFlag$ = ""
  87.         CLOSE #1: Ok = 1
  88.  
  89. CASE IS = 3
  90. ' **************************************************************************
  91. ' Door type for Phoenix BBS   (INFO.BBS)
  92. ' **************************************************************************
  93.       
  94.         OPEN FileName$ FOR INPUT SHARED AS #1
  95.          LINE INPUT #1, FullName$
  96.          LINE INPUT #1, Baud$
  97.          LINE INPUT #1, Com$
  98.          LINE INPUT #1, Security$
  99.          LINE INPUT #1, Local$
  100.            IF Local$ = "TRUE" THEN Com$ = "0"
  101.          LINE INPUT #1, No$
  102.          LINE INPUT #1, TimeRemaining$
  103.          LINE INPUT #1, AnsiFlag$
  104.            IF AnsiFlag$ = "TRUE" THEN AnsiFlag$ = "1" ELSE AnsiFlag$ = ""
  105.          LINE INPUT #1, No$
  106.       
  107.         CLOSE #1: Ok = 1
  108.  
  109. CASE IS = 4
  110. ' **************************************************************************
  111. ' For WildCat BBS, Genesis, Force!   (CALLINFO.BBS)
  112. ' **************************************************************************
  113.  
  114.         OPEN FileName$ FOR INPUT SHARED AS #1
  115.          LINE INPUT #1, FullName$
  116.          LINE INPUT #1, Baud$
  117.          Baud$ = Num2Str$(VAL(Baud$))
  118.          SELECT CASE Baud$
  119.                 CASE IS = "1": Baud$ = "300 Baud"
  120.                 CASE IS = "2": Baud$ = "1200 Baud"
  121.                 CASE IS = "3": Baud$ = "9600 Baud"  ' It's not an error
  122.                 CASE IS = "4": Baud$ = "2400 Baud"  ' They're NOT inverted!
  123.          END SELECT
  124.  
  125.          LINE INPUT #1, No$
  126.          LINE INPUT #1, No$
  127.          LINE INPUT #1, TimeRemaining$
  128.          LINE INPUT #1, AnsiFlag$
  129.            IF AnsiFlag$ = "MONO" THEN AnsiFlag$ = "" ELSE AnsiFlag$ = "1"
  130.          LINE INPUT #1, No$
  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, Local$
  152.          LINE INPUT #1, Com$: Com$ = RIGHT$(Com$, 1)
  153.                
  154.                  IF Local$ = "LOCAL" THEN Com$ = "0"
  155.       
  156.         CLOSE #1: Ok = 1
  157.  
  158. CASE IS = 5
  159. ' **************************************************************************
  160. ' For Spitfire   (SFDOOR.DAT)
  161. ' **************************************************************************
  162.  
  163.         OPEN FileName$ FOR INPUT SHARED AS #1
  164.  
  165.          LINE INPUT #1, No$
  166.          LINE INPUT #1, FullName$
  167.          LINE INPUT #1, No$
  168.          LINE INPUT #1, No$
  169.          LINE INPUT #1, Baud$: Baud$ = Baud$ + " Baud"
  170.          LINE INPUT #1, Com$
  171.          LINE INPUT #1, TimeRemaining$
  172.          LINE INPUT #1, No$
  173.          LINE INPUT #1, No$
  174.          LINE INPUT #1, AnsiFlag$
  175.            IF AnsiFlag$ = "TRUE" THEN AnsiFlag$ = "1" ELSE AnsiFlag$ = ""
  176.          LINE INPUT #1, No$
  177.       
  178.         CLOSE #1: Ok = 1
  179.  
  180. CASE IS = 6
  181. ' **************************************************************************
  182. ' WWIV BBS SYSTEM   (CHAIN.TXT)
  183. ' **************************************************************************
  184.  
  185.         OPEN FileName$ FOR INPUT SHARED AS #1
  186.  
  187.          LINE INPUT #1, No$
  188.          LINE INPUT #1, Alias$
  189.          LINE INPUT #1, FullName$
  190.          LINE INPUT #1, No$
  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, Security$
  198.          LINE INPUT #1, No$
  199.          LINE INPUT #1, No$
  200.          LINE INPUT #1, AnsiFlag$
  201.          LINE INPUT #1, Remote$          ' If Local then Remote$ = "1"
  202.          LINE INPUT #1, TimeRemaining$
  203.             TimeRemaining$ = STR$(VAL(TimeRemaining$) \ 60)
  204.          LINE INPUT #1, No$
  205.          LINE INPUT #1, No$
  206.          LINE INPUT #1, No$
  207.          LINE INPUT #1, Baud$
  208.          LINE INPUT #1, Com$
  209.          LINE INPUT #1, No$
  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.        CLOSE #1: Ok = 1
  221.      
  222. CASE IS = 7
  223. ' **************************************************************************
  224. ' PcBoard V14   (PCBOARD.SYS)
  225. ' **************************************************************************
  226.        
  227.         OPEN FileName$ FOR INPUT SHARED AS #1
  228.        
  229.         Lin$ = INPUT$(127, #1)
  230.         AnsiFlag$ = MID$(Lin$, 12, 1)
  231.         IF AnsiFlag$ = "Y" THEN AnsiFlag$ = "1" ELSE AnsiFlag$ = ""
  232.         Baud$ = RTRIM$(MID$(Lin$, 19, 5))
  233.         FullName$ = RTRIM$(MID$(Lin$, 85, 25))
  234.         TimeRemaining$ = Num2Str$(ASC(MID$(Lin$, 110, 2)))
  235.         Com$ = MID$(Lin$, 126, 1)
  236.        
  237.         CLOSE #1: Ok = 1
  238.  
  239. END SELECT
  240.                
  241.         IF BBSType = 0 OR Ok = 0 THEN
  242.            CLS
  243.            PRINT
  244.            PRINT "ERROR: "; FileName$; " not found or BBS type not recognized"
  245.            END
  246.         END IF
  247.  
  248. END IF
  249.  
  250.  
  251.