Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
@_=(255,60,252,195,24,195,195,195,24,255,252,255,
216,195,192,195,112,195,192,195);for $n(1..@_){
$_ .=' '.unpack("B8",pack("v",shift));unless($n%4)
{s/0/ /g;print $_,$/;$_='';}}