diff --git a/LDP/builder/dsssl/ldp.dsl b/LDP/builder/dsssl/ldp.dsl
index 7442639c..2c8adece 100644
--- a/LDP/builder/dsssl/ldp.dsl
+++ b/LDP/builder/dsssl/ldp.dsl
@@ -280,8 +280,9 @@
 ;;
 (define (shade-verbatim-element-colors element)
   (case element
-    (("SYNOPSIS") (list "#000000" "#6495ed"))
-    (("PROGRAMLISTING") (list "#000000" "#98FB98"))
+    (("SYNOPSIS") (list "#000000" "#6495ED"))
+    (("PROGRAMLISTING") (list "#000000" "#E0E0E0"))
+    (("SCREEN") (list "#000000" "#E0E0E0"))
     ;; ...
     ;; Add your verbatim elements here
     ;; ...
@@ -289,7 +290,10 @@
 
 (define (shade-verbatim-attr-element element)
   (list
-   (list "BORDER" "0")
+   (list "BORDER" 
+	(cond
+		((equal? element (normalize "SCREEN")) "1")
+		(else "0")))
    (list "BGCOLOR" (car (cdr (shade-verbatim-element-colors element))))
    (list "WIDTH" ($table-width$))))