PROCEDURE gfa_m_vkonv__(screenadr__%,fontadr__%,y__%) ' **************************************************************************** ' *** *** ' ** ******** ** * ** Ein Produkt von ** ' ** ********* ********* Hans-Peter Burk und Helmut Micko ** ' ** ** ********* Software Entwicklungen ** ' ** ********* *** * *** ** ' ** ** *** * *** Library : GFA_GLIB.3_0 ** ' ** ********* *** * *** Name : M_VKONV ** ' ** ******** *** * *** Version : 1.1 02.01.1990 18:49 ** ' ** Autor : Helmut Micko ** ' *** *** ' **************************************************************************** ' *** Funktion : Konvertieren des 40 Zeichen umfassenden Zeichensatzes *** ' ** fr das Modul M_VSCROL. ** ' ** Parameter : 1.Adresse Bildschirms, auf dem der Font steht ** ' ** 2.Adresse des Fontbuffers (5120 Bytes) ** ' ** 3.Zeilennummer, in der der Zeichensatz beginnt (0-168) ** ' ** ** ' ** ** ' ** ** ' ** Lib_rv__% : == 0 = Alles Ok == 1 = Zeilennummer falsch ** ' *** Lib_rv__$ : Unbenutzt *** ' **************************************************************************** LOCAL i1__%,i2__%,char__% IF y__%<0 OR y__%>168 lib_rv__%=1 ELSE lib_rv__%=0 ADD screenadr__%,y__%*160 char__%=0 FOR i1__%=0 TO 39 FOR i2__%=0 TO 15 LONG{fontadr__%+i2__%*8}=LONG{screenadr__%+i2__%*160} LONG{fontadr__%+i2__%*8+4}=LONG{screenadr__%+i2__%*160+4} NEXT i2__% INC char__% ADD fontadr__%,128 IF char__% MOD 20=0 ADD screenadr__%,2408 ELSE ADD screenadr__%,8 ENDIF NEXT i1__% ENDIF RETURN