GOSUB gfa_poppal__
palette$=lib_rv__$
GOSUB gfa_pload__("\EXAMPLES\STUFF\DEMO.PI1",XBIOS(2),0)
SGET bild$                                       ! Bild in String einlesen
REPEAT
  ALERT 2,"|Ausblendroutine|",0," 14 | 15 | 16 ",button|
  FOR i|=1 TO 20
    x1&=RANDOM(320)
    x2&=RANDOM(320)
    y1&=RANDOM(200)
    y2&=RANDOM(200)
    col|=RANDOM(16)
    IF button|=1
      GOSUB gfa_off14__(x1&,y1&,x2&,y2&,0,col|)
    ELSE
      IF button|=2
        GOSUB gfa_off15__(x1&,y1&,x2&,y2&,0,col|)
      ELSE
        GOSUB gfa_off16__(x1&,y1&,x2&,y2&,0,col|)
      ENDIF
    ENDIF
  NEXT i|
  ALERT 2,"| Weiter |",1," Ja |Nein",button|
  SPUT bild$
UNTIL button|=2
~XBIOS(6,L:V:palette$)