/* * */

Color.Red = 255
Color.Green = 0
Color.Blue = 0

Call Print Color

Exit

Print: procedure expose Color.

Say Color.Red

Exit