PROCEDURE gfa_l_dekomp__(sourceadr__%,destadr__%) ' **************************************************************************** ' *** *** ' ** ******** ** * ** Ein Produkt von ** ' ** ********* ********* Hans-Peter Burk und Helmut Micko ** ' ** ** ********* Software Entwicklungen ** ' ** ********* *** * *** ** ' ** ** *** * *** Library : GFA_GLIB.3_0 ** ' ** ********* *** * *** Name : L_DEKOMP ** ' ** ******** *** * *** Version : 1.1 30.11.1989 16:59 ** ' ** Autor : Helmut Micko ** ' *** *** ' **************************************************************************** ' *** Funktion : Dekomprimiert Bilder der niedrigsten Aufl”sung, die mit *** ' ** L_OPKOMP komprimiert wurden. ** ' ** Parameter : 1.Adresse des komprimierten Bildes ** ' ** 2.Zieladresse fr das dekomprimierte Bild ** ' ** ** ' ** ** ' ** ** ' ** ** ' ** Lib_rv__% : == 0 = Alles Ok == -1 = INLINE-Code nicht geladen ** ' *** Lib_rv__$ : Unbenutzt *** ' **************************************************************************** LOCAL codeadr__% INLINE codeadr__%,92 IF BYTE{codeadr__%}=&H48 ~C:codeadr__%(L:sourceadr__%,L:destadr__%) lib_rv__%=0 ELSE lib_rv__%=-1 ENDIF RETURN