Now we can have a look at the user input loop:
do { while (/([a-z])\s*([-\d.]*)/cgi) { ${$1} = $2 if $1 } $e = $_; $_ = qq#'<$W%;<$H%(<$j%[<$w%|<$h%!<$x%=<$y}_<$A%^<$a%*<$z%:<$n\n]@//^:")%#; @c = split //, $00; for ( 1 .. $i ) { } # this explained later sub f { }; # this too exit if $e =~ /q/; s/}/%X<$X%Y<$Y%/; y"=_!'<%:/;[^]@|*)\"({"yAxW= nmHwaCohz:dju"; print; } while (<>) # repeat on user input
W=79 H=23 j= w=2 h=2 x= y= X= Y= A= a= z=1 n=25 Command:
Copyright © 2000-2001, Philippe "BooK" Bruhat.