home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PINBSRC.ZIP / MSK / BROWNOUT.PAS < prev    next >
Pascal/Delphi Source File  |  1996-02-02  |  366b  |  20 lines
  1. {filters special colors from a file}
  2. uses dos,crt;
  3. var f:file of byte;
  4.     f1:file of byte;
  5.     b:byte;
  6. begin
  7.   assign(f,'arml1.msk');
  8.   assign(f1,'arml1.ms1');
  9.   reset(f);
  10.   rewrite(f1);
  11.   writeln;
  12.   repeat
  13.     if random<0.01 then write('.');
  14.     read(f,b);
  15.     if (b>0) then b:=128;
  16.     write(f1,b);
  17.   until eof(f);
  18.   close(f);
  19.   close(F1);
  20. end.