'                                              Buffer f�r 2.Bildschirm
INLINE bufadr%,32300
'
GOSUB gfa_poppal__
palette$=lib_rv__$
pblock$=""                                   ! Bildparameterstring erzeugen
RESTORE parameterblock
READ pfad$
WHILE pfad$<>"ENDE"
  pblock$=pblock$+pfad$+SPACE$(67-LEN(pfad$))
  READ speed&,typ|,pmode|,x1&,y1&,x2&,y2&,x3&,y3&
  pblock$=pblock$+MKI$(speed&)               ! Dauer der Bilddarstellung
  pblock$=pblock$+CHR$(typ|)                 ! Bildtyp
  pblock$=pblock$+CHR$(pmode|)               ! PUT-Modus f�r Ausschnitt
  pblock$=pblock$+MKI$(x1&)+MKI$(y1&)        ! Linke obere Ecke des Ausschnitts
  pblock$=pblock$+MKI$(x2&)+MKI$(y2&)        ! Rechte untere Ecke
  pblock$=pblock$+MKI$(x3&)+MKI$(y3&)        ! Darstellungsposition
  READ pfad$
WEND
'
ALERT 1," Abbruch des |  Demos mit  |  Taste 'a'  ",1,"START",button|
'
GOSUB gfa_pshow__(XBIOS(2),bufadr%,pblock$,ASC("a"),TRUE,0)
'
~XBIOS(6,L:V:palette$)
'
parameterblock:
DATA \EXAMPLES\STUFF\DEMO.PI1,150,0,3,00,00,319,199,000,000
DATA \EXAMPLES\STUFF\DEMO.PI1,100,0,3,80,50,239,149,080,050
DATA \EXAMPLES\STUFF\DEMO.PI1,200,0,3,80,50,239,149,000,000
DATA \EXAMPLES\STUFF\DEMO.PI1,150,0,3,80,50,239,149,160,000
DATA \EXAMPLES\STUFF\DEMO.PI1,100,0,3,80,50,239,149,160,100
DATA \EXAMPLES\STUFF\DEMO.PI1,050,0,3,80,50,239,149,000,100
DATA \EXAMPLES\STUFF\DEMO.PI1,000,0,3,00,00,319,035,000,082
DATA ENDE