Sub Articulo 18.1
Have a look at lgrind or the listings package.