home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
CON-03A.ZIP
/
LIST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-11-16
|
3KB
|
136 lines
(* Conspiracy BBS Software / BBS menu / (c)1995 Grooven Designs *)
(* Coded 100% Original by Paul Maggs/Grooven Designs *)
unit list;
interface
procedure init_bbs_list;
procedure add_bbs;
procedure edit_bbs;
procedure delete_bbs;
procedure bbs_list;
procedure menu;
implementation
uses crt,dos,comms,ansi_Drv,mmenu;
type
list_bbs = record
boardname, thesysop, boardphone, details : string[80];
software : string[9];
{$R-}
end;
const
bbsfile = 'data\boards.dat';
var
f : file of list_bbs;
lister : list_bbs;
cch : boolean;
procedure init_bbs_list;
begin
assign(f,bbsfile);
reset(f);
end;
procedure add_bbs;
begin
writeln('Add BBS to list');
write('BBS name : '); readln(lister.boardname);
write('Sysop : '); readln(lister.thesysop);
write('Phone Number : '); readln(lister.boardphone);
write('Details of BBS : '); readln(lister.details);
write('Software : '); readln(lister.software);
clrscr;
filemode := 2;
reset(f);
seek(f,filesize(f));
write(f,lister);
close(f);
init_bbs_list;
end;
procedure edit_bbs;
begin
end;
procedure delete_bbs;
begin
end;
procedure bbs_list;
begin
if not eof(f) then begin
read(f,lister);
gotoxy(11,3);
write('Board Name : ' + lister.boardname+' ');
gotoxy(11,4);
write('Sysop(s) : ' + lister.thesysop+' ');
gotoxy(11,5);
write('Phone Number : ' + lister.boardphone+' ');
gotoxy(11,6);
write('Details : ' + lister.details,' ');
gotoxy(11,7);
write('Software : ' + lister.software,' ');
end;
end;
procedure exit;
begin
clrscr;
gotoxy(1,1);
textcolor(7);
writeln('Thanks for using Groovey Express v0.01ß');
end;
(* This procedure brings the menu for bbs listings &
intializes the user keys *)
{ THIS VARIABLE OF CHAR IS REMOVED FOR THE KRYSTEL IMPLEMENTATION}
var
ch :char;
procedure menu;
begin
clrscr;
{ assign(f,'boards.dat');}
repeat
{clearscreen;}
{send_ansi('bbslistm.ans');}
{ch:=wfk}
gotoxy(1,20);
write('a.dd bbs, e.dit bbs, d.elete bbs, q.uit, +.list next :');
ch := readkey;
if (ch = '+') then
begin
bbs_list;
end;
if (ch = 'Q') or (ch = 'q') then
exit;
if (ch = 'A') or (ch = 'a') then
begin
add_bbs;
end;
if (ch = 'E') or (ch = 'e') then
begin
edit_bbs;
end;
if (ch = 'D') or (ch = 'd') then
begin
delete_bbs;
end;
if (ch = 'Q') or (ch = 'q') then
main_menu;
until cch
end;
end.
(* -------------------------------------------------------------------------*)
(*
begin
init;
menu;
end.
*)