effect|=1                                    ! Mit Effekt 1 wird begonnen
'
GOSUB gfa_poppal__
palette$=lib_rv__$
GOSUB gfa_pload__("\EXAMPLES\STUFF\DEMO.PIC",XBIOS(2),2)
SGET bild$                                   ! In String einlesen
'
REPEAT
  ALERT 2,"              |              |  Ausblenden  ",1," Ok ",button|
  '
  HIDEM
  GOSUB gfa_h_fadeof__(XBIOS(2),400,0,10000,effect|,&X1111000011110000)
  SHOWM
  '
  INC effect|                                ! N„chster Ausblendeffekt
  IF effect|=14
    effect|=1
  ENDIF
  '
  ALERT 2,"        |  Weiter  |        ",1," Ja |Nein",button|
  SPUT bild$
UNTIL button|=2
~XBIOS(6,L:V:palette$)