home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
f
/
faq-s.zip
/
REGISTER.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-13
|
1KB
|
41 lines
uses dos,crt,gensubs,gentypes;
var cnt:integer;
tmp,tmp1:string[30];
regsfile:file of registerrec;
reg:registerrec;
password:mstr;
begin
password:='FAQ IS NUMBER ONE';
clrscr; textcolor (15);
writeln ('FAQ Registration Utility');
writeln;
close (regsfile);
assign (regsfile,'REGISTER.DAT');
if not exist ('REGISTER.DAT') then rewrite (regsfile);
textcolor (11);
writeln ('Please enter the FAQ registration password.');
textcolor (9);
write (': '); textcolor (12);
readln (tmp);
writeln; if not match(tmp,password) then begin
textcolor (15);
writeln ('Invalid Registration Password.');
close (regsfile);
end else begin
textcolor (11);
write ('Please enter your handle'); textcolor (9); write (': '); textcolor (12);
readln (tmp1);
writeln;
textcolor (15);
writeln ('Registration Complete.');
assign (regsfile,'REGISTER.DAT');
rewrite (regsfile);
fillchar (reg,sizeof(reg),'╬');
reg.handle:=tmp1;
reg.serial:=100001;
write (regsfile,reg);
textcolor (7);
close (regsfile);
end;
end.