home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / C2.PAS < prev    next >
Pascal/Delphi Source File  |  1997-12-15  |  695b  |  43 lines
  1. uses crt,dos;
  2. var i:integer;
  3. l:longint;
  4. f:file;
  5. q:integer;
  6. a,b:char;
  7. p:pointer;
  8. tablica:array[1..1000] of byte;
  9. begin
  10. assign(f,'staff.dbf');
  11. {$F-}
  12. reset(f,1);
  13. {$F+}
  14. if ioresult<>0 then
  15. begin
  16. sound(500);
  17. delay(300);
  18. nosound;
  19. textcolor(white);
  20. writeln('Brak pliku!!!');
  21. halt;
  22. end;
  23. if IOResult=0 then
  24. begin
  25. blockread(f,tablica,sizeof(tablica),i);
  26. close(f);
  27. rewrite(f,1);
  28. a:=chr(32);
  29. for q:=0 to 9 do
  30. begin
  31. tablica[706+q]:=ord(a);
  32. end;
  33. blockwrite(f,tablica,i);
  34. close(f);
  35. writeln;
  36. writeln('Studio TYTUS');
  37. writeln('Usuwanie zabezpieczenia programu SUBIEKT 3');
  38. writeln('Prosze czekac...');
  39. delay(2500);
  40. writeln('Haslo poprawnie zlamane!');
  41. writeln;
  42. end;
  43. end.