GOSUB gfa_poppal__
opalette$=lib_rv__$
GOSUB gfa_pload__("\EXAMPLES\STUFF\DEMO.PI1",XBIOS(2),0)
GOSUB gfa_poppal__
npalette$=lib_rv__$
'
speed|=8                                  ! Ein-/Ausblendgeschwindigkeit
REPEAT
  ALERT 2," |Aus-/Einblenden| ",1," Ok ",button|
  '
  GOSUB gfa_l_cpoff__(V:npalette$,speed|)
  '
  GOSUB gfa_l_cpon__(V:npalette$,speed|)
  '
  IF speed|=0                             ! Geschwindigkeit f�r n�chsten
    speed|=8                              ! Schleifendurchlauf bestimmen
  ELSE
    DEC speed|
  ENDIF
  ALERT 2," | Nochmal | ",1," Ja |Nein",button|
UNTIL button|=2
~XBIOS(6,L:V:opalette$)