Hey, I just remembered how I used to blink a row in Applesoft BASIC. I think I can emulate that effect in Perl...
sub blinkrow { my ($rowtext) = @_; while (1) { print$/x60;sleep 1; print "$rowtext\n"; sleep 1; } }
HTH.HAND.
$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
In reply to Re: Blinking a row
by jonadab
in thread Blinking a row
by hdhairul
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |