home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PINBSRC.ZIP / TISCH2 / MISCHE.PAS < prev    next >
Pascal/Delphi Source File  |  1995-06-28  |  897b  |  33 lines
  1. var f1,f2,f3,fout : file;
  2.     x,y : word;
  3.     h : word;
  4.     buf2 : array[0..319] of byte;
  5.     buf3 : array[0..319] of byte;
  6.     bufout : array[0..319] of byte;
  7.  
  8. begin
  9.   assign(f1,'t2-tab3.clb');
  10.   assign(f2,'t2-plasm.clb');
  11.   assign(f3,'t2-plasm.clb');
  12.   assign(fout,'t2-tab.org');
  13.   reset(f1,1);
  14.   reset(f2,1);
  15.   reset(f3,1);
  16.   rewrite(fout,1);
  17.   asm mov ax,13h; int 10h; end;
  18.   for y := 0 to 599 do begin
  19.     blockread(f1,bufout,sizeof(bufout));
  20.     blockread(f2,buf2,sizeof(buf2));
  21.     blockread(f3,buf3,sizeof(buf3));
  22.     if y > 199 then h := y mod 200 else h := y;
  23.     for x := 0 to 319 do if bufout[x] = 1 then bufout[x] := buf2[x];
  24. {    for x := 0 to 319 do if bufout[x] = 34 then bufout[x] := buf3[x];}
  25.  
  26.     for x := 0 to 319 do mem[$a000:h*320+x] := bufout[x];
  27.     blockwrite(fout,bufout,sizeof(bufout));
  28.   end;
  29.   close(f1);
  30.   close(f2);
  31.   close(f3);
  32.  
  33. end.