$prog="db,10,e6,1f,fe,11,ca,0c,8,c3,45,8,db,10,e6,1f,fe,11,ca,0c,8,6f,26,19,34,7e,e6,01,77,6,10,2e,0f,3e,00,b6,05,57,78,fe,08,c2,2d,8,5a,fe,00,ca,38,8,7a,2d,17,c3,23,8,7a,d3,15,d3,05,7b,d3,14,d3,04,c3,0,8,db,10,e6,1f,fe,13,ca,51,8,c3,00,8,db,10,e6,1f,fe,13,ca,51,8,57,3e,ff,d3,0f,3e,00,d3,0f,7a,d3,0d,d3,09,3e,0,d3,08,c3,00,8";
@progdata=split /,/, $prog;
system("./out3be 0");
printf("Waiting?");
$response=<STDIN>;
system("./out3be 8"); 
foreach $curdata1 (@progdata){
	$curdata=hex $curdata1;	
	$curdatahex=sprintf("%x",$curdata);
#	print $curdatahex,":";
	system("./out3bc $curdatahex");
	&delay;
	system("./out3be 0");
	&delay;
	system("./out3be 8");
}
for ($fill=1;$fill<256;$fill++){
	system("./out3bc 0");
	&delay;
	system("./out3be 0"); 
	&delay;
	system("./out3be 8"); 
	&delay;	
}
sub delay {
	for($i=1;$i<2000;$i++){}
}