Category : Communication (modem) tools and utilities
Archive   : TMHOST22.ZIP
Filename : TMHCFG.SCR

 
Output of file : TMHCFG.SCR contained in archive : TMHOST22.ZIP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; HCONFIG.SCR by Tsung Hu, 21 May, 1990
;; Modified by R.Bailey Dec.90 to set colours if ANSI graphics
;; can be used. (ANSILOCAL variable)
;; Add new or delete message areas and files (10 max.).
;; 'Message to Sysop' area is automatically configured, during
;; S)etup of message areas, as No. 1 area and cannot be deleted.
;; The other 9 can be configured and named as you wish.
;; Renamed TMHCFG.SCR
;;

#include "SCREENIO.SCR" ; screen routines

TRUE = 1
FALSE = 0
NEWUSERLEVEL = 1 ; new user level
NUSERLEVEL = 2 ; normal user level
SYSOPLEVEL = 3 ; sysop level
DETECTBAUD = 1 ; set to 0 if COM baud rate is locked
INITIALBAUD = 9600 ; initial baud rate (highest baud rate)
YELLTIME = 3 ; amount of time to display the alarm
YELLSOUND = 1 ; amount of time to ring the alarm
TMDIR = "\TM" ; telemate directory
HOSTDIR = "\TM" ; directory holding *.HST
DOWNLOADDIR = "\TM" ; host download directory
EchoToLocal = 1 ; local screen only
EchoToRemote = 0

; set colours for local or remote screen if
; ANSILOCAL or ANSIREMOTE = TRUE

GENBKCOL = "BKBLACK" ; general background colour
GENTEXTCOL = "FGCYAN" ; general textcolour
HILITECOL = "FGWHITE" ; hilite colour
HEADERBKCOL = "BKBLUE" ; message header background colour
HEADERTEXTCOL = "FGYELLOW" ; subject header colour
SPECIALTEXTCOL = "FGYELLOW" ; e.g. questionnaire text colour
LOCALBOXCOL = "FGRED" ; local colours for
LOCALCOL = "FGYELLOW" ; local view routine
COMPORT = "1"

COUNT = 1 ; Message areas (10 max.)
area0 = "Message to Sysop (PRIVATE)"
MSBASE0 = "SYSOP.BSE"
area1 = ""
MSBASE1 = ""
area2 = ""
MSBASE2 = ""
area3 = ""
MSBASE3 = ""
area4 = ""
MSBASE4 = ""
area5 = ""
MSBASE5 = ""
area6 = ""
MSBASE6 = ""
area7 = ""
MSBASE7 = ""
area8 = ""
MSBASE8 = ""
area9 = ""
MSBASE9 = ""

BKCOLOR1 = BKBLACK
BKCOLOR2 = BKBLUE
COLOR1 = FGCYAN ; Tmhcfg colours
COLOR2 = FGYELLOW
COLOR3 = FGWHITE

; global variables
;
integer filepos
string a,f,s,ch

Procedure Inputs string ch ; don't wait after
repeat ; keyboard input
inputch ch
if success
print ch,
endif
until success
Endproc

Procedure InputString string str ; input a string
string ch
str = ""
repeat
Inputs ch
if ch <> "^M" ; if return
if ch = "^H" ; if backspace
if str = "" ; if string empty
Echo " "
else
Echo " ^H"
endif
endif
concat str,ch
endif
until ch = "^M"
if str=""
success = FALSE
else
success = TRUE
endif
Endproc

Procedure Pause
print
print "Press [Enter] to continue ",
repeat
inputch ch
until success
print
print
Endproc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Procedure Display
;; Added seperate procedure for display of setup configuration.
;; If ANSILOCAL display in colour.
;;

Procedure Display ; display current settings
clear text
EchoBkColor BKCOLOR2
EchoColor COLOR3
print "^M^JÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
print "º A: New USER Level : K: Colour Change (If ANSI TRUE) º"
print "º B: Normal USER Level : General Bkground : º"
print "º C: SYSOP Level : General Text : º"
print "º D: Detect BAUD rate : Hilite Text : º"
print "º E: Initial BAUD rate : Header Bkground : º"
print "º F: Yell time : seconds Header Text : º"
print "º G: Yell sound : seconds Special Text : º"
print "º H: Telemate directory : Local View Box : º"
print "º I: Host directory : Local Info : º"
print "º J: Download directory : ANSI : º"
print "º º"
print "º M: Setup or Add Message Areas - Existing Message Areas(10 max) : º"
print "º S: Save configuration and run Host Mode º"
print "º Q: Abort configuration º"
print "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
EchoColor COLOR2
at 28,2
print NEWUSERLEVEL
at 28,3
print NUSERLEVEL
at 28,4
print SYSOPLEVEL
at 28,5
if DETECTBAUD
print "ON"
else
print "OFF"
endif
at 28,6
print INITIALBAUD
at 28,7
print YELLTIME
at 28,8
print YELLSOUND
at 28,9
print TMDIR
at 28,10
print HOSTDIR
at 28,11
print DOWNLOADDIR
at 69,3
print GENBKCOL
at 69,4
print GENTEXTCOL
at 69,5
print HILITECOL
at 69,6
print HEADERBKCOL
at 69,7
print HEADERTEXTCOL
at 69,8
print SPECIALTEXTCOL
at 69,9
print LOCALBOXCOL
at 69,10
print LOCALCOL
if ANSILOCAL ; set to TRUE
at 69,11
print "Yes"
else
at 69,11
print "No"
endif
at 69,13
print COUNT
at 1,17
EchoBkColor BKCOLOR1
EchoColor COLOR1
print "^M^JWhich option: ",
Endproc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; New Procedure WriteColor string c
;; Writes string to TMHCFG.HST for EchoColor routines in TMHOST.
;;

Procedure WriteColor string c ; writes string to TMHCFG.HST
string code ; for EchoColor routine
switch c
case "FGBLACK": code = "" ; passed to routine as an
case "FGRED": code = "" ; ANSI string
case "FGGREEN": code = ""
case "FGYELLOW": code = ""
case "FGBLUE": code = ""
case "FGMAGENTA": code = ""
case "FGCYAN": code = ""
case "FGWHITE": code = ""
case "BKBLACK": code = ""
case "BKRED": code = ""
case "BKGREEN": code = ""
case "BKYELLOW": code = ""
case "BKBLUE": code = ""
case "BKMAGENTA": code = ""
case "BKCYAN": code = ""
case "BKWHITE": code = ""
endswitch
write code
Endproc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; New Procedure ReadColor string c
;; Read string from file to display configured color
;;.

Procedure ReadColor string c ; read ANSI string
string color ; show color
read c
switch c
case "": color = "FGBLACK"
case "": color = "FGRED"
case "": color = "FGGREEN"
case "": color = "FGYELLOW"
case "": color = "FGBLUE"
case "": color = "FGMAGENTA"
case "": color = "FGCYAN"
case "": color = "FGWHITE"
case "": color = "BKBLACK"
case "": color = "BKRED"
case "": color = "BKGREEN"
case "": color = "BKYELLOW"
case "": color = "BKBLUE"
case "": color = "BGMAGENTA"
case "": color = "BKCYAN"
case "": color = "BKWHITE"
endswitch
c = color
Endproc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; New Procedure ColorChange
;;

Procedure ColorChange ; set colours
clear text
if ANSILOCAL
print BKCOLOR2,COLOR3,"^M^JÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
print "º Colour set facility º"
print "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ^M^J"
print BKCOLOR1,COLOR1,"Foreground Colours:"
print BKWHITE,FGBLACK,"FGBLACK",
print BKBLACK,FGRED," FGRED",
print FGGREEN," FGGREEN",
print FGYELLOW," FGYELLOW",
print FGBLUE," FGBLUE",
print FGBLUE," FGMAGENTA",
print FGCYAN," FGCYAN",
print FGWHITE," FGWHITE"
print COLOR1,"^M^JBackground Colours:"
print FGWHITE,"BKBLACK",
print BKRED," BKRED",
print BKGREEN," BKGREEN",
print BKYELLOW," BKYELLOW",
print BKBLUE," BKBLUE",
print BKMAGENTA," BKMAGENTA",
print BKCYAN," BKCYAN",
print BKWHITE,FGBLACK," BKWHITE"
print BKBLACK,COLOR3,
print "^M^JType in appropriate colour or [ENTER] to accept^M^J"
print COLOR1,"General background colour is ",
print COLOR3,GENBKCOL," :",
input s
ss = ""
concat ss,s
if ss<>""
GENBKCOL = ss
endif
print COLOR1,"^M^JGeneral text colour is ",
print COLOR3,GENTEXTCOL," :",
input s
ss = ""
concat ss,s
if ss<>""
GENTEXTCOL = ss
endif
print COLOR1,"^M^JHilite text colour ",
print COLOR3,HILITECOL," :",
input s
ss = ""
concat ss,s
if ss<>""
HILITECOL = ss
endif
print COLOR1,"^M^JHeader background color is ",
print COLOR3,HEADERBKCOL," :",
input s
ss = ""
concat ss,s
if ss<>""
HEADERBKCOL = ss
endif
print COLOR1,"^M^JHeader text colour is ",
print COLOR3,HEADERTEXTCOL," :",
input s
ss = ""
concat ss,s
if ss<>""
HEADERTEXTCOL = ss
endif
print COLOR1,"^M^JSpecial text colour (e.g. Questionnaire text) is ",
print COLOR3,SPECIALTEXTCOL," :",
input s
ss = ""
concat ss,s
if ss<>""
SPECIALTEXTCOL = ss
endif
print COLOR1,"^M^JLocal Box colour (e.g. 'Waiting on call' box) is ",
print COLOR3,LOCALBOXCOL," :",
input s
ss = ""
concat ss,s
if ss<>""
LOCALBOXCOL = ss
endif
print COLOR1,"^M^JLocal text colour is ",
print COLOR3,LOCALCOL," :",
input s
ss = ""
concat ss,s
if ss<>""
LOCALCOL = ss
endif
print COLOR1,"^M^JHost script colours have been set........"
delay 20
else
print "^M^J^M^JColour selection not available without ANSI capabilities!^M^J^M^J"
Pause
endif
Endproc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; New Procedure MessageBase
;; Adds or deletes message areas and appropriate files.
;;

Procedure MessageBase
integer num,len


Procedure MakeFile string BASE
chdir HOSTDIR
open BASE
if not success
create BASE
endif
if not success
print "Cannot create ",BASE
alarm "System Error: Cannot create ^JMESSAGE BASE file, disk full ?"
return
endif
write " ",
close
chdir TMDIR
print "Done"
Endproc

Procedure MakeArea integer m
switch m
case 2:
area1 = a
MSBASE1 = f
concat MSBASE1,".BSE"
MakeFile MSBASE1
case 3:
area2 = a
MSBASE2 = f
concat MSBASE2,".BSE"
MakeFile MSBASE2
case 4:
area3 = a
MSBASE3 = f
concat MSBASE3,".BSE"
MakeFile MSBASE3
case 5:
area4 = a
MSBASE4 = f
concat MSBASE4,".BSE"
MakeFile MSBASE4
case 6:
area5 = a
MSBASE5 = f
concat MSBASE5,".BSE"
MakeFile MSBASE5
case 7:
area6 = a
MSBASE6 = f
concat MSBASE6,".BSE"
MakeFile MSBASE6
case 8:
area7 = a
MSBASE7 = f
concat MSBASE7,".BSE"
MakeFile MSBASE7
case 9:
area8 = a
MSBASE8 = f
concat MSBASE8,".BSE"
MakeFile MSBASE8
case 10:
area9 = a
MSBASE9 = f
concat MSBASE9,".BSE"
MakeFile MSBASE9
endswitch
Endproc

Procedure DeleteArea string num
chdir HOSTDIR
switch num
case "2":
area1 = ""
delete MSBASE1
MSBASE1 = ""
case "3":
area2 = ""
delete MSBASE2
MSBASE2 = ""
case "4":
area3 = ""
delete MSBASE3
MSBASE3 = ""
case "5":
area4 = ""
delete MSBASE4
MSBASE4 = ""
case "6":
area5 = ""
delete MSBASE5
MSBASE5 = ""
case "7":
area6 = ""
delete MSBASE6
MSBASE6 = ""
case "8":
area7 = ""
delete MSBASE7
MSBASE7 = ""
case "9":
area8 = ""
delete MSBASE8
MSBASE8 = ""
case "10":
area9 = ""
delete MSBASE9
MSBASE9 = ""
endswitch
if success
print "Deleted successfully"
else
print "^M^J^M^JSystem Error - File not found ?"
endif
chdir TMDIR
Endproc

clear text
EchoBkColor BKCOLOR2
EchoColor COLOR3
print "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
print "º Message Base Setup Facility º"
print "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ^M^J"
EchoBkColor BKCOLOR1
EchoColor COLOR1
print "With this facility you can add or delete a message base file."
print "Currently, you can have up to 10 Message Areas (seperate files)."
print "The S)etup routine will automatically configure Message Area No.1 as "
EchoColor COLOR3
print area0,
EchoColor COLOR1
print " and setup the appropriate file."
EchoColor COLOR3
print "If you are using this for the FIRST time make sure you have"
print "configured your directories correctly at the initial main menu."
EchoColor COLOR1
print "^M^JWhen asked for the name of the message area, type the name"
print "carefully, as this is how it will be displayed to the user."
print "Plan 'carefully' the setup you require - then just follow the prompts!"
EchoColor COLOR2
print "^M^J S",
EchoColor COLOR3
print ")etup message areas (first time) ?"
EchoColor COLOR2
print " A",
EchoColor COLOR3
print ")dd new message area and area file ?"
EchoColor COLOR2
print " D",
EchoColor COLOR3
print ")elete message area and area file ?"
EchoColor COLOR2
print " Q",
EchoColor COLOR3
print ")uit Message Base Setup Facility ?"
EchoColor COLOR2
print "^M^J Option : ",
Inputs ch
switch ch
case "Q":
return
case "D":
clear text
EchoColor COLOR1
if COUNT = 1
print "^M^JCurrently there is ",COUNT,"MESSAGE AREA^M^J"
else
print "^M^JCurrently there are ",COUNT," MESSAGE AREAS^M^J"
endif
EchoColor COLOR3
print " 1: ",area0
print " 2: ",area1
print " 3: ",area2
print " 4: ",area3
print " 5: ",area4
print " 6: ",area5
print " 7: ",area6
print " 8: ",area7
print " 9: ",area8
print " 10: ",area9
repeat
EchoColor COLOR1
print "^M^JType the number of the area you wish to DELETE : ",
InputString a
if a = "1"
EchoColor COLOR3
print "^M^JArea No.1 cannot be deleted!!"
success = FALSE
else
if COUNT > 1
print "^M^JDelete area ",a," [Y/n] ",
success = TRUE
else
print "^M^JNo areas to delete!"
delay 25
return
endif
endif
until success
Input ch
if ch = "N"
return
else
print "^M^JPlease wait, DELETING file and area............. ",
DeleteArea a
COUNT = COUNT - 1
endif
case "A":
clear text
EchoColor COLOR1
if COUNT = 1
print "^M^JCurrently there is ",COUNT,"MESSAGE AREA^M^J"
else
print "^M^JCurrently there are ",COUNT," MESSAGE AREAS^M^J"
endif
EchoColor COLOR3
print " 1: ",area0
print " 2: ",area1
print " 3: ",area2
print " 4: ",area3
print " 5: ",area4
print " 6: ",area5
print " 7: ",area6
print " 8: ",area7
print " 9: ",area8
print " 10: ",area9
repeat
EchoColor COLOR1
if COUNT < 10
print "^M^JAdd another ? [Y/n] ",
else
print "^M^J^M^JNo more AREAS available max. reached!!"
delay 25
return
endif
EchoColor COLOR3
inputs ch
if ch = "Y"
print "^M^JArea number ? ",
InputString ch
atoi ch,num
COUNT = COUNT+1
EchoColor COLOR1
print "^M^JName of Message Area ",num," (e.g General Messages) :"
EchoColor COLOR3
InputString a
EchoColor COLOR1
repeat
print "^M^JName of message FILE for area ",num
print "(8 characters max. - NO .EXT e.g GENERAL or TECH : "
EchoColor COLOR3
InputString f
length f,len
if len < 1
print "Must type at least 1 letter for FILE name"
EchoColor COLOR1
endif
until len > 0
print "^M^JPlease wait, Creating file .............",
MakeArea num
endif
if COUNT >= 10
print "^M^J^M^JOnly 10 Areas available!!!"
delay 20
return
endif
until ch = "N"
case "S":
num = 2
okay = TRUE
clear text
EchoColor COLOR1
repeat
print "^M^JArea No.1 is ",
EchoColor COLOR3
print area0
print "Please Wait, Creating File ",MSBASE0,"..............",
MakeFile MSBASE0
EchoColor COLOR1
print "^M^JHow many more MESSAGE AREAS do you require ? (up to 9) ",
EchoColor COLOR3
Inputs ch
atoi ch,COUNT
print "^M^J",COUNT," MESSAGE AREAS [Y/n] ",
input ch
if COUNT = 0
endif
if ch = "N"
endif
until ch = "Y"
while okay and num < COUNT+2
EchoColor COLOR1
print "^M^JName of Message Area ",num," (e.g Technical Info) :"
EchoColor COLOR3
InputString a
EchoColor COLOR1
repeat
print "^M^JName of message FILE for area ",num
print "(8 characters max. - NO .EXT e.g GENERAL or TECH : "
EchoColor COLOR3
InputString f
length f,len
if len < 1
print "Must type at least 1 letter for FILE name"
EchoColor COLOR1
endif
until len > 0
print "^M^JPlease wait, Creating file .............",
MakeArea num
num = num+1
if num > 10
okay = FALSE
endif
endwhile
COUNT = COUNT+1
endswitch
print "^M^JSave NEW Configuration! ",
pause
Endproc


clear text ; main program
repeat
print "^M^J Can your Terminal display in colour? [y/n] ",
Inputs ch
if ch = "Y"
ANSILOCAL = TRUE
else
ANSILOCAL = FALSE
endif
until ch = "Y" or ch = "N"
clear text
EchoColor COLOR1
open "HSHELL.BAT" ; [S]hell batch file
if not success
print
print
print " Which COM port is your modem connected to (1-8) ? COM",
repeat
inputch COMPORT
if success
print COMPORT
strpos "12345678",COMPORT,pos
if pos=0
print "Which COM port is your modem connected to (1-8) ? COM",
endif
endif
until success and pos>0
print
if COMPORT<>"1" and COMPORT<>"2"
print "Due to DOS limit, only COM1 and COM2 is supported for"
print "the [S]hell command in host mode. However, you may"
print "create your own HSHELL.BAT and use a third-party program,"
print "such as DOORWAY, which allows you to use COM",COMPORT
else
create "HSHELL.BAT"
if success
print "Creating HSHELL.BAT, the batch file for [S]hell command"
write "CTTY COM",COMPORT
write "COMMAND"
write "CTTY CON"
write "EXIT"
close
else
print "Cannot create HSHELL.BAT"
endif
endif
Pause
else
close ; already exist, skip it
endif
open "TMHCFG.HST"
if success
seek -1
tell filepos
filepos = filepos-3
seek filepos
write ANSILOCAL
seek 0
read s
atoi s,NEWUSERLEVEL ; new user level
read s
atoi s,NUSERLEVEL ; normal user level
read s
atoi s,SYSOPLEVEL ; sysop level
read s
atoi s,DETECTBAUD ; detect baud rate
read s
atoi s,INITIALBAUD ; initial baud rate
read s
atoi s,YELLTIME ; yell time
read s
atoi s,YELLSOUND ; yell sound
read TMDIR ; telemate directory
read HOSTDIR ; directory containing H*.HST
read DOWNLOADDIR ; download directory
; (upload always go to Telemate
; downlaod directory)
ReadColor GENBKCOL ; detect colours
ReadColor GENTEXTCOL
ReadColor HILITECOL
ReadColor HEADERBKCOL
ReadColor HEADERTEXTCOL
ReadColor SPECIALTEXTCOL
ReadColor LOCALBOXCOL
ReadColor LOCALCOL
read s
atoi s,COUNT
read area0
read MSBASE0
read area1
read MSBASE1
read area2
read MSBASE2
read area3
read MSBASE3
read area4
read MSBASE4
read area5
read MSBASE5
read area6
read MSBASE6
read area7
read MSBASE7
read area8
read MSBASE8
read area9
read MSBASE9
read s
atoi s,ANSILOCAL ; ANSI?
close
endif
finish = 0
while not finish
Display
repeat
inputch ch
until success
print ch
print
print
switch ch ; enter data
case "A":
print "Enter NEW USER Level: ",
EchoColor COLOR2
input s
ss = ""
concat ss,s
if ss<>""
atoi ss,NEWUSERLEVEL
endif
case "B":
print "Enter NORMAL USER Level: ",
EchoColor COLOR2
input s
ss = ""
concat ss,s

If ss <>""
atoi ss,NUSERLEVEL
endif
case "C":
print "Enter SYSOP Level: ",
EchoColor COLOR2
input s
ss = ""
concat ss,s
if ss<>""
atoi ss,SYSOPLEVEL
endif
case "D":
DETECTBAUD = not DETECTBAUD
case "E":
print "Enter initial BAUD rate: ",
EchoColor COLOR2
input s
ss = ""
concat ss,s
if ss<>""
atoi ss,baud
endif
switch baud
case 300: INITIALBAUD = baud
case 1200: INITIALBAUD = baud
case 2400: INITIALBAUD = baud
case 4800: INITIALBAUD = baud
case 9600: INITIALBAUD = baud
case 14400: INITIALBAUD = baud
case 19200: INITIALBAUD = baud
case 38400: INITIALBAUD = baud
otherwise : print
print "Invalid value"
print
Pause
endswitch
case "F":
print "Enter YELL time (0 to turn off): ",
EchoColor COLOR2
input s
ss = ""
concat ss,s
if ss<>""
atoi ss,YELLTIME
endif
case "G":
print "Enter YELL sound length (0 to turn off): ",
EchoColor COLOR2
input s
ss = ""
concat ss,s
if ss<>""
atoi ss,YELLSOUND
endif
case "H":
print "Enter TELEMATE directory (Executables): ",
EchoColor COLOR2
input s
ss = ""
concat ss,s
if ss<>""
TMDIR = ss
endif
case "I":
print "Enter HOST directory which contains H*.HST: ",
EchoColor COLOR2
input s
ss = ""
concat ss,s
if ss<>""
HOSTDIR = ss
endif
case "J":
print "Enter HOST download directory: ",
EchoColor COLOR2
input s
ss = ""
concat ss,s
if ss<>""
DOWNLOADDIR = ss
endif
case "K":
ColorChange
case "M":
MessageBase
case "S":
delete "TMHCFG.HST"
create "TMHCFG.HST"
if not success
print "Cannot create TMHCFG.HST"
print "Configuration aborted, Script End"
finish = 1
else
write NEWUSERLEVEL ; write data
write NUSERLEVEL
write SYSOPLEVEL
write DETECTBAUD
write INITIALBAUD
write YELLTIME
write YELLSOUND
write TMDIR
write HOSTDIR
write DOWNLOADDIR
WriteColor GENBKCOL
WriteColor GENTEXTCOL
WriteColor HILITECOL
WriteColor HEADERBKCOL
WriteColor HEADERTEXTCOL
WriteColor SPECIALTEXTCOL
WriteColor LOCALBOXCOL
WriteColor LOCALCOL
write COUNT
write area0
write MSBASE0
write area1
write MSBASE1
write area2
write MSBASE2
write area3
write MSBASE3
write area4
write MSBASE4
write area5
write MSBASE5
write area6
write MSBASE6
write area7
write MSBASE7
write area8
write MSBASE8
write area9
write MSBASE9
write ANSILOCAL
close
print "Configuration completed",
Pause
clear text
print "Starting host mode"
script "TMHOST22"
endif
case "Q":
print "Configuration aborted, Script End"
finish = 1
endswitch
endwhile








  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : TMHOST22.ZIP
Filename : TMHCFG.SCR

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/