PROCEDURE gfa_h_text88__(screenadr__%,fontadr__%,memadr__%,x__%,y__%,length__%,options__%) ' **************************************************************************** ' *** *** ' ** ******** ** * ** Ein Produkt von ** ' ** ********* ********* Hans-Peter Burk und Helmut Micko ** ' ** ** ********* Software Entwicklungen ** ' ** ********* *** * *** ** ' ** ** *** * *** Library : GFA_GLIB.3_0 ** ' ** ********* *** * *** Name : H_TEXT88 ** ' ** ******** *** * *** Version : 1.0 27.12.1989 12:07 ** ' ** Autor : Helmut Micko ** ' *** *** ' **************************************************************************** ' *** Funktion : Textausgabe mit einem 8x16 Font in der h”chsten *** ' ** Aufl”sung. ** ' ** Parameter : 1.Bildschirmadresse 7.Modebyte ** ' ** 2.Adresse des Fonts Bit 0=0 Zeile abbrechen ** ' ** 3.Adresse des Strings =1 Zeile abknicken ** ' ** 4.X-Koordinate (0-79) Bit 1=0 X-Ray Text ** ' ** 5.Y-Koordinate (0-384) =1 Blocked Text ** ' ** 6.L„nge des Strings ** ' ** Lib_rv__% : == 0 = Alles Ok == -1 = INLINE-Code nicht geladen ** ' *** Lib_rv__$ : Unbenutzt *** ' **************************************************************************** LOCAL codeadr__% INLINE codeadr__%,380 IF BYTE{codeadr__%}=&H48 ~C:codeadr__%(L:screenadr__%,L:fontadr__%,L:memadr__%,L:x__%,L:y__%,W:length__%,W:options__%) lib_rv__%=0 ELSE lib_rv__%=-1 ENDIF RETURN