Paste the code into a new file and run it.# ### $cur= "\e[H"; my $cls = "\e[1J"; $n =9;print$cls; L1: print $cur; $c = ( $c eq '#') ? '*' : '#' ; for ( $i = 1; $i<9; $i++) { $a=sprintf("% 13s%s \n" , $c x$i, $c x ( $i-1) ); print $a; sleep 1;}goto L1;
In reply to Re: TETRA CTYS
by olus
in thread TETRA CTYS
by llll
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |