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

 
Output of file : USERIDS.PAS contained in archive : TBBS.ZIP
(**************************************************************************)
(* Version 8502 *)
(* Experimental Bulletin Board System - User listing 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 *)
(* BBS8501.LBR which is a modified version of the original. *)
(**************************************************************************)

program USERIDS;

type
master = record
user: string[27];
exfl: byte;
lsto: string[14];
lstm: integer;
pass: string[14];
acc : byte;
clr : string[14];
bsp : char;
lnf : char;
upc : boolean;
wid : byte;
tottimeon: integer;
end;

var
masterfile: FILE of master;
mastrec : master;
temp : string[27];
spaces : byte;
answer : char;

procedure readfile;
begin
with mastrec do begin
read(masterfile, mastrec);
temp := '';
for spaces := length(user) to 27 do temp := ' ' + temp;
if answer = 'Y' then write(lst,user,temp,lsto,' ');
write(user,temp,lsto,' ');
temp := '';
for spaces := length(pass) to 14 do temp := ' ' + temp;
if answer = 'Y' then writeln(lst,pass,temp,acc);
writeln(pass,temp,acc);
end;
end;

begin
REPEAT
clrscr;
gotoxy(25,12);
write('Printer Copy Required? ');
read(answer);
answer := upcase(answer);
until (answer = 'Y') or (answer = 'N');
clrscr;
writeln('NAME LAST CALL PASSWORD ACC');
if answer = 'Y' then writeln(lst,'NAME LAST CALL PASSWORD ACC');
writeln(lst);
assign(masterfile, 'IDS.BBS');
reset(masterfile);
repeat;
readfile;
until eof(masterfile);
end.

  3 Responses to “Category : Pascal Source Code
Archive   : TBBS.ZIP
Filename : USERIDS.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/