CALL "P$SETTEXTCOLOR" USING color  | 
color  | PIC X(n)  | Specifies the color name. Possible values are: "Black" "Dark Blue"  "Dark Green"  "Dark Cyan"  "Dark Red"  "Dark Magenta" "Brown"  "Dark Gray"  "Light Gray"  "Blue"  "Green" "Cyan" "Red"  "Magenta" "Yellow" "White"  |