PROCEDURE gfa_pload__(txt__$,destadr__%,options__%) ' **************************************************************************** ' *** *** ' ** ******** ** * ** Ein Produkt von ** ' ** ********* ********* Hans-Peter Burk und Helmut Micko ** ' ** ** ********* Software Entwicklungen ** ' ** ********* *** * *** ** ' ** ** *** * *** Library : GFA_GLIB.3_0 ** ' ** ********* *** * *** Name : PLOAD ** ' ** ******** *** * *** Version : 1.0 10.12.1989 18:06 ** ' ** Autor : Helmut Micko ** ' *** *** ' **************************************************************************** ' *** Funktion : Laden eines Degas-, Neochrome- oder 32000 Byte-Bildes *** ' ** inclusive setzen der Farbpalette (falls vorhanden). ** ' ** Parameter : 1.Pfad der Bilddatei ** ' ** 2.Zieladresse (z.B. Bildschirm) fr das Bild ** ' ** 3.Option : == 0 = Degas/Degas-Elite-Bild ** ' ** == 1 = Neochrome-Bild ** ' ** == 2 = 32000 Byte-Format (ohne Farben setzen) ** ' ** Lib_rv__% : == 0 = Alles Ok ** ' ** == 1 = Datei existiert nicht ** ' *** Lib_rv__$ : Unbenutzt *** ' **************************************************************************** LOCAL bufadr__% INLINE bufadr__%,32 IF EXIST(txt__$)=TRUE IF options__%=0 OPEN "I",#65,txt__$ SEEK #65,2 BGET #65,bufadr__%,32 VOID XBIOS(6,L:bufadr__%) BGET #65,destadr__%,32000 CLOSE #65 ENDIF IF options__%=1 OPEN "I",#65,txt__$ SEEK #65,4 BGET #65,bufadr__%,32 VOID XBIOS(6,L:bufadr__%) SEEK #65,128 BGET #65,destadr__%,32000 CLOSE #65 ENDIF IF options__%=2 OPEN "I",#65,txt__$ BGET #65,destadr__%,32000 CLOSE #65 ENDIF lib_rv__%=0 ELSE lib_rv__%=1 ENDIF RETURN