Select Code to Download

lander.pl  rows  columns

#!/usr/bin/perl
print "fire right retros...\n";
select undef, undef, undef, 0.1;

#!/usr/bin/perl
print "fire main thrusters...\n";
select undef, undef, undef, 0.1;

#!/usr/bin/perl
print "fire left retros...\n";
select undef, undef, undef, 0.1;

#!/usr/bin/perl

...
      print "\n" x ($theight-2);
   }
}