Select Code to Download

g810![IJ'`h1F7zbg810![IJ'`h1F7zbg810![IJ'`h1F7zbg810![IJ'`h
huNM:W'YlyFWn<b,huNM:W'YlyFWn<b,huNM:W'YlyFWn<b,huNM:W'YlyF
...
f0*I.&%_l/h~S*`;f0*.&%_l/h~S*`;f0*.M&%_l/h~S*`;f0*.M&%_l/h~
1|$0zRW{7:4gbN{P1|$0zRW{7:4gbN{P1|$0zRW{7:4gbN{P1|$0zRW{7:4
}yG]D(FqinGWb,'#}yG]D(FqinGWb,'#}yG]D(FqinGWb,'#}yG]D(FqinG

#!/usr/bin/perl -nw

# generate ascii 3-d for an input height field 
...
    $p .= $chars[rand @chars] for 1 .. shift;
    $p or '';
}

__DATA__
5ETtY?.ARZJ;xtN[5ETtY?.ARZJ;xtN[5ETtY?.ARZJ;xtN[5ETtY?.ARZJ;xtN[5ETtY?
+.ARZJ;xtN[5ETtY?.
...
.Q&K@9mCK?I&Ffke.Q&K@9mCK?I&Ffke.Q&K@9mCK?I&Ffke.Q&K@9mCK?I&Ffke.Q&K@9
+mCK?I&Ffke.Q&K@9m
}Fi$r(_eOy+g!9k9}Fi$r(_eOy+g!9k9}Fi$r(_eOy+g!9k9}Fi$r(_eOy+g!9k9}Fi$r(
+_eOy+g!9k9}Fi$r(_
?$cB~]?94~yL?9[z?$cB~]?94~yL?9[z?$cB~]?94~yL?9[z?$cB~]?94~yL?9[z?$cB~]
+?94~yL?9[z?$cB~]?