Category : Pascal Source Code
Archive   : TBBS.ZIP
Filename : CONFIG.PAS

 
Output of file : CONFIG.PAS contained in archive : TBBS.ZIP
(**************************************************************************)
(* Version 8502 *)
(* Experimental Bulletin Board System - Configuration program *)
(* *)
(* (c) 1985 by Donald W. Mack *)
(* P.O. Box 211 *)
(* Palos Heights, IL 60463 *)
(* *)
(* This program is available to the public domain. The author assumes *)
(* no liability for any damages that may arise from the use of this code. *)
(* *)
(* If you feel that this program is a useful tool. Please forward $15 *)
(* to the above address. *)
(* *)
(* This program is used to create/rewrite the MASTER.BBS file that con- *)
(* tains the majority of the default information for BBS.PAS. *)
(* *)
(* *)
(* The original BBS was written by R.H. Maxwell *)
(* 201-2275 West 7th Ave. *)
(* Vancouver, British Columbia *)
(* V6K 1Y3 Canada *)
(* *)
(* This program will only work with the BBS.PAS file that is included in *)
(* BBS8502.LBR which is a modified version of the original. *)
(**************************************************************************)

program CONFIG;


type
master = record
messdrive: string[2]; { drive where messages reside }
filedrive: string[2]; { drive where files reside }
applying : string[14]; { Text files that are used }
welcome : string[14]; { throughout the BBS }
otherBBS : string[14];
helpfile : string[14];
sysinfo : string[14];
meetings : string[14];
bulletin : string[14];
filehelp : string[14];
mainmenu : string[14];
readmenu : string[14];
filemenu : string[14];
editmenu : string[14];
sysmenu : string[14];
sysop : byte; { Access levels that are available }
paying : byte;
contrib : byte;
reg : byte;
newuser : byte;
twit : byte;
sysopt : integer; { Amount of access time (in seconds) }
payingt : integer; { allowed for each level }
contribt : integer;
regt : integer;
newusert : integer;
clockin : boolean; { used if clock support is available }
sectsin : boolean; { used to turn section feature on/off }
openBBS : boolean; { Private or public BBS }
usercnt : real; { Number of calls to the system }
maxidle : integer; { number of idle seconds before disconnect }
screenon : boolean; { false = screen on }
printon : boolean; { false = printer off }
sysopin : boolean; { false = sysop not available }
end;

var
masterfile: FILE of master;
mastrec : master;

begin
clrscr;
gotoXY(20,12);
writeln('BBS configuration program by Donald W. Mack');
writeln(' Version 8502');
assign(masterfile, 'master.bbs');
reset(masterfile);
with mastrec do begin
read(masterfile, mastrec);
messdrive := 'A:';
filedrive := 'B:';
applying := 'A:APPLYING.TXT';
welcome := 'A:WELCOME.TXT';
otherBBS := 'A:BBSLIST.TXT';
helpfile := 'A:BBSHELP.TXT';
sysinfo := 'A:SYSINFO.TXT';
meetings := 'A:MEETING.TXT';
bulletin := 'A:BULLETIN.TXT';
filehelp := 'A:FILEHLP.TXT';
mainmenu := 'A:MAINMENU.TXT';
readmenu := 'A:READMENU.TXT';
filemenu := 'A:FILEMENU.TXT';
editmenu := 'A:EDITMENU.TXT';
sysmenu := 'A:SYSOP.TXT';
sysop := 5;
paying := 4;
contrib := 3;
reg := 2;
newuser := 1;
twit := 0;
payingt := 12000;
contribt := 3600;
regt := 1800;
newusert := 900;
clockin := TRUE;
sectsin := TRUE;
openBBS := FALSE;
maxidle := 180;
screenon := false;
printon := false;
sysopin := false;
end;
rewrite(masterfile);
write(masterfile, mastrec);
end.

  3 Responses to “Category : Pascal Source Code
Archive   : TBBS.ZIP
Filename : CONFIG.PAS

  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/