'                                    ! Buffer f�r Parameterblock
INLINE pblockadr%,20
'
GOSUB gfa_poppal__
palette$=lib_rv__$
'                                    ! Parameterblock aufbauen
DPOKE pblockadr%,7                   ! 7 Farbregister
DPOKE pblockadr%+2,5                 ! Geschwindigkeit 5/50 sec = 10 Hz
DPOKE pblockadr%+4,5                 ! Farbregister  5
DPOKE pblockadr%+6,6                 ! Farbregister  6
DPOKE pblockadr%+8,7                 ! Farbregister  7
DPOKE pblockadr%+10,8                ! Farbregister  8
DPOKE pblockadr%+12,9                ! Farbregister  9
DPOKE pblockadr%+14,10               ! Farbregister 10
DPOKE pblockadr%+16,11               ! Farbregister 11
DPOKE pblockadr%+18,5                ! Farbregister  5 = 1.Farbregister
GOSUB gfa_pload__("\EXAMPLES\STUFF\DEMO.PI1",XBIOS(2),0)
ALERT 1," |Colorcycling| starten",1," Ok ",button|
'
GOSUB gfa_colani__(pblockadr%,1)
'
ALERT 2," |Colorcycling| stoppen",1," Ok ",button|
'
GOSUB gfa_colani__(0,0)
~XBIOS(6,L:V:palette$)