Sub Articulo 18.1

Have a look at lgrind or the listings package.