home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / CONFIG.BAS < prev    next >
BASIC Source File  |  1994-01-29  |  3KB  |  95 lines
  1. ' This routine reads the config file
  2. ' This routine creates the config file if it does not exist
  3.  
  4. IF DIR$("PROZOL.CFG")="" THEN
  5.         PROZOPRINT "^0@CHR(7)PROZOL.CFG not found.  You must create it now."+CrLf$
  6. GetBaud:
  7.         PROZOL "PRINT '1200 2400 4800 9600'"
  8.         PROZOL "PROMPT 'Enter opening baud rate (default 2400) --> '"
  9.         VALUE$=PROZOINPUT$
  10.     BAUD$=VALUE$:IF BAUD$="" THEN BAUD$="2400"
  11.     IF INSTR("1200 2400 4800 9600",BAUD$)=0 THEN GOTO GetBaud
  12.  
  13.         PROZOL "PROMPT 'Enter modem parameters (N,8,1,ME,FE,DT) --> '"
  14.         VALUE$=PROZOINPUT$
  15.     PROTO$=VALUE$:IF PROTO$="" THEN PROTO$="N,8,1,ME,FE,DT"
  16.  
  17.         PROZOL "PROMPT 'Chat file path\name (default is \CHAT.RAF) --> '"
  18.         VALUE$=PROZOINPUT$
  19.     CHATFILE$=VALUE$:IF CHATFILE$="" THEN CHATFILE$ = "\CHAT.RAF"
  20.  
  21.         PROZOL "PROMPT 'OLM Directory (i.e. F:\OLM\   default is root) --> '"
  22.         VALUE$=PROZOINPUT$
  23.     OLMPath$=Value$:IF OLMPath$="" THEN OLMPath$ = "\"
  24.     IF RIGHT$(OLMPath$,1)<>"\" THEN OLMPath$=OLMPath$+"\"
  25.  
  26.         PROZOL "PROMPT 'CONFERENCE Directory (default is root) --> '"
  27.         VALUE$=PROZOINPUT$
  28.         CONFDIR$=VALUE$:IF CONFDIR$="" THEN CONFDIR$="\"
  29.         IF RIGHT$(CONFDIR$,1)<>"\" THEN CONFDIR$=CONFDIR$+"\"
  30.  
  31.         PROZOL "PROMPT 'COMMON variable file (default is COMMON.VAR) --> '"
  32.         VALUE$=PROZOINPUT$
  33.     CommonVarFile$=VALUE$:IF CommonVarFile$="" THEN CommonVarFile$ = "COMMON.VAR"
  34.  
  35.         PROZOL "PROMPT 'MAIL Directory (default is root) --> '"
  36.         VALUE$=PROZOINPUT$
  37.     MailPath$=VALUE$:IF MailPath$="" THEN MailPath$ ="\"
  38.     IF RIGHT$(MailPath$,1)<>"\" THEN MailPath$=MailPath$+"\"
  39. GetPrompt:
  40.         PROZOL "PRINT 'Default system prompt:'"
  41.         PROZOL "PRINT '1) OK (like gwbasic)'"
  42.         PROZOL "PRINT '2)^0^B^m{^rHOST^m}> ^0'"
  43.         PROZOL "PRINT '3) Command:'"
  44.         PROZOL "PRINT '4) C:\> (like dos)'"
  45.         PROZOL "PRINT '5) No prompt - automatically log out user if prompt is displayed.'"
  46.         PROZOL "PROMPT 'Select --> '"
  47.         VALUE$=PROZOINPUT$
  48.     Select Case VALUE$
  49.     CASE "1"
  50.     Prompt$ = "@CHR(13)@CHR(10)OK@CHR(13)@CHR(10)"
  51.     CASE "2"
  52.     Prompt$ = "^0^B^m^rHOST^m> ^w"
  53.     CASE "3"
  54.     Prompt$ = "@CHR(13)@CHR(10)Command:"
  55.     CASE "4"
  56.     Prompt$ = "@CHR(13)@CHR(10)@DOS()>"
  57.     CASE "5"
  58.     Prompt$ = "@LOGOUT()"
  59.     End Select
  60.     IF Prompt$="" THEN GOTO GetPrompt
  61.  
  62.         PROZOL "PROMPT 'Execute on CONNECT (END=cmd mode) (default=GO MAIN) --> '"
  63.         VALUE$=PROZOINPUT$
  64.     OnAnswer$ = Value$
  65.     IF OnAnswer$="" THEN OnAnswer$="RUN 'MAIN'"
  66.  
  67.  
  68. OPEN "PROZOL.CFG" FOR OUTPUT AS #1
  69. PRINT #1, BAUD$
  70. PRINT #1, PROTO$
  71. PRINT #1, CHATFILE$
  72. PRINT #1, OLMPath$
  73. PRINT #1, CONFDIR$
  74. PRINT #1, CommonVarFile$
  75. PRINT #1, MailPath$
  76. PRINT #1, Prompt$
  77. PRINT #1, OnAnswer$
  78. CLOSE #1
  79.  
  80. ELSE
  81.  
  82. OPEN "PROZOL.CFG" FOR INPUT AS #1
  83. LINE INPUT #1, BAUD$
  84. LINE INPUT #1, PROTO$
  85. LINE INPUT #1, CHATFILE$
  86. LINE INPUT #1, OLMPath$
  87. LINE INPUT #1, CONFDIR$
  88. LINE INPUT #1, CommonVarFile$
  89. LINE INPUT #1, MailPath$
  90. LINE INPUT #1, Prompt$
  91. LINE INPUT #1, OnAnswer$
  92. CLOSE #1
  93.  
  94. END IF
  95.