home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PINBSRC.ZIP / GFX / MPA2PAL.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-02-02  |  634 b   |  30 lines
  1. {converts MPAL's to .PAL's Version: 20.06.1995}
  2. {   - (c) Ansgar Scherp, Joachim Gelhaus }
  3. uses dos,crt;
  4. var pal:array[0..255,1..3] of byte;
  5.     z:byte;
  6.     f1,f2:file of byte;
  7.  
  8. begin
  9.   writeln('.MPA -> .PAL Converter');
  10.   writeln('Convert: ',paramstr(1),' to ',paramstr(2));
  11.   assign(f1,paramstr(1));
  12.   assign(f2,paramstr(2));
  13.   reset(f1);
  14.   rewrite(f2);
  15.   repeat
  16.     read(f1,z);
  17.     read(f1,pal[z,1]);
  18.     read(f1,pal[z,2]);
  19.     read(f1,pal[z,3]);
  20.   until eof(f1);
  21.   for z:=0 to 255 do begin
  22.     write(f2,pal[z,1]);
  23.     write(f2,pal[z,2]);
  24.     write(f2,pal[z,3]);
  25.   end;
  26.   close(F1);
  27.   close(f2);
  28. end.
  29.  
  30.