home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Intermedia 1998 January
/
inter1_98.iso
/
www
/
rozi
/
C2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-12-15
|
695b
|
43 lines
uses crt,dos;
var i:integer;
l:longint;
f:file;
q:integer;
a,b:char;
p:pointer;
tablica:array[1..1000] of byte;
begin
assign(f,'staff.dbf');
{$F-}
reset(f,1);
{$F+}
if ioresult<>0 then
begin
sound(500);
delay(300);
nosound;
textcolor(white);
writeln('Brak pliku!!!');
halt;
end;
if IOResult=0 then
begin
blockread(f,tablica,sizeof(tablica),i);
close(f);
rewrite(f,1);
a:=chr(32);
for q:=0 to 9 do
begin
tablica[706+q]:=ord(a);
end;
blockwrite(f,tablica,i);
close(f);
writeln;
writeln('Studio TYTUS');
writeln('Usuwanie zabezpieczenia programu SUBIEKT 3');
writeln('Prosze czekac...');
delay(2500);
writeln('Haslo poprawnie zlamane!');
writeln;
end;
end.