@progdata=(62,254,8,33,48,24,126,211,1,8,211,0,7, 8,62,255,211
,0,44,125,254,56,202,32,24,195,6,24,0,0,0,0,118,0,24,
0,0,0,0,0,0,0,0,0,0,0,0,0,140,175,163,144,127,191,191,249);
system("./out302 0");
printf("Waiting?");
$response=<STDIN>;
system("./out302 8"); 
foreach $curdata (@progdata){
	$curdatahex=sprintf("%x",$curdata);
	system("./out300 $curdatahex");
	&delay;
	system("./out302 0");
	&delay;
	system("./out302 8");
}
for ($fill=1;$fill<256;$fill++){
	system("./out300 0");
	&delay;
	system("./out302 0"); 
	&delay;
	system("./out302 8"); 
	&delay;	
}
sub delay {
	for($i=1;$i<2000;$i++){}
}