DIM buffer%(9999)                            ! Buffer f�r komprimierte Daten
'
GOSUB gfa_poppal__
palette$=lib_rv__$
GOSUB gfa_pload__("\EXAMPLES\STUFF\DEMO.PIC",XBIOS(2),2)
'
GOSUB gfa_h_opkomp__(XBIOS(2),V:buffer%(0),32000/2)
'
CLS
PRINT "Anzahl der Bytes vor dem Komprimieren  : 32000"
PRINT "Anzahl der Bytes nach dem Komprimieren : ";lib_rv__%
PRINT "<<< Weiter mit Taste >>>"
~INP(2)
'
' Zum Speichern des komprimierten Bildes
' BSAVE "DEMO.PKO",V:buffer%(0),lib_rv__%
'
GOSUB gfa_h_dekomp__(V:buffer%(0),XBIOS(2))
'
~INP(2)
~XBIOS(6,L:V:palette$)