PROCEDURE gfa_l_tkonv__(screenadr__%,destadr__%,y__%)
  ' ****************************************************************************
  ' ***                                                                      ***
  ' **   ********    ** * **   Ein Produkt von                                **
  ' **   *********  *********  Hans-Peter Burk und Helmut Micko               **
  ' **         **   *********  Software Entwicklungen                         **
  ' **   *********  *** * ***                                                 **
  ' **         **   *** * ***  Library         : GFA_GLIB.3_0                 **
  ' **   *********  *** * ***  Name            : L_TKONV                      **
  ' **   ********   *** * ***  Version         : 1.0  28.11.1989  19:33       **
  ' **                         Autor           : Helmut Micko                 **
  ' ***                                                                      ***
  ' ****************************************************************************
  ' *** Funktion  : Konvertierung eines gemalten 8x8 Colorfonts f�r das      ***
  ' **              Modul L_TEXT88.                                           **
  ' **  Parameter : 1.Bildschirmadresse                                       **
  ' **              2.Adresse eines 8192 Bytes gro�en Buffers f�r die         **
  ' **                konvertierten Fontdaten                                 **
  ' **              3.Zeile, in der der Font beginnt                          **
  ' **                                                                        **
  ' **                                                                        **
  ' **  Lib_rv__% : Unbenutzt                                                 **
  ' *** Lib_rv__$ : Unbenutzt                                                ***
  ' ****************************************************************************
  LOCAL i1__%,i2__%,cnt__%
  ADD screenadr__%,y__%*160
  cnt__%=0
  REPEAT
    FOR i1__%=0 TO 1
      FOR i2__%=screenadr__% TO screenadr__%+1120 STEP 160
        BYTE{destadr__%}=BYTE{i2__%}
        BYTE{destadr__%+1}=BYTE{i2__%+2}
        BYTE{destadr__%+2}=BYTE{i2__%+4}
        BYTE{destadr__%+3}=BYTE{i2__%+6}
        ADD destadr__%,4
      NEXT i2__%
      INC screenadr__%
    NEXT i1__%
    ADD cnt__%,2
    IF (cnt__% MOD 40)=0
      ADD screenadr__%,1126
    ELSE
      ADD screenadr__%,6
    ENDIF
  UNTIL cnt__%=256
RETURN