DEFINE Topf_farben_ein_aus
LOCAL Farbe
LOOP
READ NUMBER 'Farbnummer eingeben(0=Alle Farben)' Farbe
  IF (Farbe=1)
    SHOW SELECT GLOBAL ALL CONFIRM OFF
    SHOW SELECT GLOBAL YELLOW CONFIRM ON 
  ELSE_IF (Farbe=2)
    SHOW SELECT GLOBAL ALL CONFIRM OFF
    SHOW SELECT GLOBAL GREEN CONFIRM ON
  ELSE_IF (Farbe=3)
    SHOW SELECT GLOBAL ALL CONFIRM OFF
    SHOW SELECT GLOBAL MAGENTA CONFIRM ON
  ELSE_IF (Farbe=4)
    SHOW SELECT GLOBAL ALL CONFIRM OFF
    SHOW SELECT GLOBAL BLUE CONFIRM ON
  ELSE_IF (Farbe=5)
    SHOW SELECT GLOBAL ALL CONFIRM OFF
    SHOW SELECT GLOBAL RED CONFIRM ON
  ELSE_IF (Farbe=6)
    SHOW SELECT GLOBAL ALL CONFIRM OFF
    SHOW SELECT GLOBAL CYAN CONFIRM ON
  ELSE_IF (Farbe=7)
    SHOW SELECT GLOBAL ALL CONFIRM OFF
    SHOW SELECT GLOBAL WHITE CONFIRM ON 

    ELSE_IF (Farbe=(-1))
    SHOW SELECT GLOBAL YELLOW CONFIRM OFF 
  ELSE_IF (Farbe=(-2))
    SHOW SELECT GLOBAL GREEN CONFIRM OFF
  ELSE_IF (Farbe=(-3))
    SHOW SELECT GLOBAL MAGENTA CONFIRM OFF
  ELSE_IF (Farbe=(-4))
    SHOW SELECT GLOBAL BLUE CONFIRM OFF
  ELSE_IF (Farbe=(-5))
    SHOW SELECT GLOBAL RED CONFIRM OFF
  ELSE_IF (Farbe=(-6))
    SHOW SELECT GLOBAL CYAN CONFIRM OFF
  ELSE_IF (Farbe=(-7))
    SHOW SELECT GLOBAL WHITE CONFIRM OFF

  ELSE_IF (Farbe=(.1))
    SHOW SELECT GLOBAL YELLOW CONFIRM ON 
  ELSE_IF (Farbe=(.2))
    SHOW SELECT GLOBAL GREEN CONFIRM ON
  ELSE_IF (Farbe=(.3))
    SHOW SELECT GLOBAL MAGENTA CONFIRM ON
  ELSE_IF (Farbe=(.4))
    SHOW SELECT GLOBAL BLUE CONFIRM ON
  ELSE_IF (Farbe=(.5))
    SHOW SELECT GLOBAL RED CONFIRM ON
  ELSE_IF (Farbe=(.6))
    SHOW SELECT GLOBAL CYAN CONFIRM ON
  ELSE_IF (Farbe=(.7))
    SHOW SELECT GLOBAL WHITE CONFIRM ON
 
  ELSE_IF (Farbe=0)
     SHOW SELECT GLOBAL ALL COLOR 1 1 1 CONFIRM ON 
  END_IF
END_LOOP
END_DEFINE