' ! Buffer fr komprimierte Daten INLINE bildadr%,32000 ' GOSUB gfa_poppal__ palette$=lib_rv__$ GOSUB gfa_pload__("\EXAMPLES\STUFF\DEMO.PI1",XBIOS(2),0) ' GOSUB gfa_l_opkomp__(XBIOS(2),bildadr%,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",bildadr%,lib_rv__% ' GOSUB gfa_l_dekomp__(bildadr%,XBIOS(2)) ' ~INP(2) ~XBIOS(6,L:V:palette$)