################################################################
#################### Digital Clock v1.0 ########################
################################################################
$m[0]='521122211132111132115111421142521132111142';$m[1]='15311'
.'5211521133114133'.'114153115134113414113153115133115';;;$m[2]=
'15311521152131131131121315321515421542311311153215143215';$m[3]
='153115'. '2115212'#
.'113214'. ''. ''. '1144115'#
.'411515'. ''. ''. '3115211'#
.'321153'. '11'.'54'#
.'115';//; ;;;;$m[4]=
'153215221522111332143213411542131432131113311532154115';//;;$r=
q$ _/\|$;$s=5;for($k=0;$k<$s;$k++){$x=length($m[$k]);for($i=0;$i
<$x;$i=$i+2){$n=substr($m[$k],$i,1);$c=substr($m[$k],$i+1,1);$~[
$k].=substr($r,$c-1,1)x$n;}}do{$_=localtime(time);
/.*(\d)(\d):(\d)(\d):(\d)(\d).*/;for($i=0;$i<5;$i++){print"\ec",
,qq$\075$x45,qq{\012}if($i==0);print"\174\040",substr($~[$i],$1*
5,5),"\040",substr($~[$i],$2*5,5),(($i==2)?"\157\040":"\040"x2),
(($i==3)?"\157\040":"\040"x2),substr($~[$i],$3*5,5),"\040",
substr($~[$i],$4*5,5),,(($i==2)?"\157\040":"\040"x2),,(($i==3)?
"\157\040":qq{\040}x2),(substr($~[$i],$5*5,5)),qq{\040},substr(
$~[$i],$6*5,5),"\040\174","\012";print"\174\040"
,"\040"x41,"\040\174","\012","\075"x45,qq{\012}
if($i==4);}}while(sleep(1.5));