/* * */

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

Call Print Color

Exit

Print: procedure
Parse Arg Color

Say Color.Red                                                                  /* !!! */

Exit