module test;
reg     [80*8-1:0]      fi_name,fo_name;
integer fi,fo;
integer f,j,i;
integer r;
reg     [23:0]  iData;
reg     [ 7:0]  Ro,Go,Bo;
initial begin
        for(f=1;f<=100;f=f+1) begin
                $display("Frame %1d ...",f);
                $sformat(fi_name,"IN/0_INPUT_%1d.DAT",f);
                $sformat(fo_name,"OUT/1_OUTPUT_%1d.OUT",f);
                $display("fi_name:%20s",fi_name);
                fi= $fopen(fi_name,"r");
                fo= $fopen(fo_name,"w");
                for(j=0;j<1600;j=j+1) begin
                        for(i=0;i<2560;i=i+1) begin
                                r=$fscanf(fi,"%h\n",iData);
                                {Ro,Go,Bo}=iData;
                                $fwrite(fo,"%X\n",{Bo,Ro,Go});
                        end
                end
                $fclose(fi);
                $fclose(fo);
        end
end
endmodule

#-------------------------------------------#
#!/usr/bin/perl
for($f=1;$f<=2;$f++) {
        printf("Frame %d ...\n",$f);
        open(O,">IN/0_INPUT_$f.DAT");
        for($j=0;$j<1600;$j++) {
                for($i=0;$i<2560;$i++) {
                        printf O ("%02x%02x%02x\n",$f,$j%256,$i%256);
                }
        }
        close(O);
}