Using Different Color in ABAP

REPORT ZCOLOR LINE-SIZE 90 NO STANDARD PAGE HEADING.

DATA: BEGIN OF TP OCCURS 10, ID, NR(8), TEXT(255), END OF TP.

DATA: LENGTH TYPE I VALUE 8,           " Length of list
     TESTSTRING(15) TYPE C VALUE '012345678901234',
     WIDTH TYPE I.                    " Width of list
DATA: TXT_REPORT LIKE DOKHL-OBJECT.


START-OF-SELECTION.
 PERFORM HEADING.
 PERFORM OUTPUT_BODY.

FORM HEADING.
 FORMAT INTENSIFIED OFF.              " Remove any INTENSIFIED
 ULINE AT (WIDTH).                    " Upper frame border
 FORMAT COLOR COL_HEADING INTENSIFIED." Title color
 WRITE: / SY-VLINE.                   " Left border
 WRITE: 'No |Colour        |intensified    |intensified off|',
        'inverse' NO-GAP.
 WRITE: AT WIDTH SY-VLINE.            " Right border
 ULINE AT (WIDTH).                    " Line below titles
 FORMAT COLOR OFF.
ENDFORM.

FORM OUTPUT_BODY.

 DO LENGTH TIMES.
   PERFORM WRITE_LINE USING SY-INDEX.
 ENDDO.
ENDFORM.

FORM WRITE_LINE USING COUNT TYPE I.
 DATA: HELP(14) TYPE C,
       COUNT1 TYPE I.

 COUNT1 = SY-INDEX - 1.
 WRITE: / SY-VLINE NO-GAP.
 WRITE: (4) COUNT1 COLOR COL_KEY INTENSIFIED NO-GAP.
 WRITE: SY-VLINE NO-GAP.
 CASE COUNT1.
   WHEN '0'.
     HELP = 'COL_BACKGROUND'.
   WHEN '1'.
     HELP = 'COL_HEADING'.
   WHEN '2'.
     HELP = 'COL_NORMAL'.
   WHEN '3'.
     HELP = 'COL_TOTAL'.
   WHEN '4'.
     HELP = 'COL_KEY'.
   WHEN '5'.
     HELP = 'COL_POSITIVE'.
   WHEN '6'.
     HELP = 'COL_NEGATIVE'.
   WHEN '7'.
     HELP = 'COL_GROUP'.
 ENDCASE.
 WRITE: HELP COLOR COL_KEY INTENSIFIED NO-GAP.
 WRITE: SY-VLINE NO-GAP.
 WRITE: TESTSTRING COLOR = COUNT1 INTENSIFIED NO-GAP.
 WRITE: SY-VLINE NO-GAP.
 WRITE: TESTSTRING COLOR = COUNT1 INTENSIFIED OFF NO-GAP.
 WRITE: SY-VLINE NO-GAP.
 WRITE: TESTSTRING COLOR = COUNT1 INVERSE NO-GAP.
 WRITE AT WIDTH SY-VLINE NO-GAP.
ENDFORM.

*-- End of Program