/atari_chips/pokeyv2/addhash.pl - EclaireXL - 64kib

Download (266 Bytes) Statistics

repo2/atari_chips/pokeyv2/addhash.pl @ 1421

       #!/usr/bin/perl -w
       use strict;
       my $filename = shift @ARGV;
       my $hashcode = shift @ARGV;
       my $dechashcode = hex(substr($hashcode,2,2).substr($hashcode,0,2));
       open FH,"+<$filename";
       binmode FH;
       seek FH,0,2;
       my $val = pack "n",$dechashcode;
       print FH $val;
       close FH;

(4-4/109)