######################################## $f="73xx 42xxx12 x162xxxx 145x 153x 143x xx xx 141 x150 xxxx 40xx 154x 162xxxx 145x160 x40xxxx162 x145 xx 150 xxx 164x 157x 156 x141 xx 40x xxx x164 x163 x165xxxx 152 x42 x40 x164 x156 x151x162 xxx 160 ";; $e=~ s$^$ ######################################## chr(oct)$eg foreach(split(/\s?x+\s?/,$f) );eval($e); #### ################################################################################ ########################## Digital Clock v1.0 ################################## ################################################################################ $m[0]='521122211132111132115111421142521132111142';$m[1]='153115211521133114133' .'114153115134113414113153115133115';$m[2]='15311521152131131131121315321515421' .'542311'. '31115321' .'514321'. '5';;$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$x 45,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)? qq{\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));