Select Code to Download

close STDERR;
($w,$h,$")=(80,25);
...
sub p{print map "@c[@{$_[$_]}[0..$w-2]]\n",0..$h-2,select$c=>$c=>$c=>0
+.01}
sub b{@{$_}[0,2]=((cos($_[0])*($$_[0]-7)-sin($_[0])*($$_[2])+7),(sin($
+_[0])*($$_[0]-7)+cos($_[0])*($$_[2])))for@p}