'                                        ! 32000 Bytes gro�en Buffer f�r
'                                          Degas-Bild (ohne Farbpalette)
INLINE bildadr%,32000
'
GOSUB gfa_poppal__
palette$=lib_rv__$
GOSUB gfa_pload__("\EXAMPLES\STUFF\DEMO.PI1",bildadr%,0)
REPEAT
  ALERT 2," | Scrolling | starten",1," Ok ",button|
  CLS
  '
  GOSUB gfa_vscrol__(0,0,40,101,1,bildadr%,100,1)
  '
  ALERT 1," | Andere | Richtung",1," Ok ",button|
  '
  GOSUB gfa_vscrol__(0,0,40,101,0,bildadr%+16000,100,1)
  '
  ALERT 2," | Nochmal | ",1," Ja |Nein",button|
UNTIL button|=2
~XBIOS(6,L:V:palette$)