PROCEDURE gfa_h_tkonv__(screenadr__%,destadr__%,y__%)
  ' ****************************************************************************
  ' ***                                                                      ***
  ' **   ********    ** * **   Ein Produkt von                                **
  ' **   *********  *********  Hans-Peter Burk und Helmut Micko               **
  ' **         **   *********  Software Entwicklungen                         **
  ' **   *********  *** * ***                                                 **
  ' **         **   *** * ***  Library         : GFA_GLIB.3_0                 **
  ' **   *********  *** * ***  Name            : H_TKONV                      **
  ' **   ********   *** * ***  Version         : 1.0  27.12.1989  12:10       **
  ' **                         Autor           : Helmut Micko                 **
  ' ***                                                                      ***
  ' ****************************************************************************
  ' *** Funktion  : Konvertierung eines gemalten 8x16 Fonts f�r das Modul    ***
  ' **              H_TEXT88.                                                 **
  ' **  Parameter : 1.Bildschirmadresse                                       **
  ' **              2.Adresse eines 4096 Bytes gro�en Buffers f�r die         **
  ' **                konvertierten Fontdaten                                 **
  ' **              3.Zeile, in der der Font beginnt                          **
  ' **                                                                        **
  ' **                                                                        **
  ' **  Lib_rv__% : Unbenutzt                                                 **
  ' *** Lib_rv__$ : Unbenutzt                                                ***
  ' ****************************************************************************
  LOCAL i__%,cnt__%
  ADD screenadr__%,y__%*80
  cnt__%=0
  REPEAT
    FOR i__%=screenadr__% TO screenadr__%+1200 STEP 80
      BYTE{destadr__%}=BYTE{i__%}
      INC destadr__%
    NEXT i__%
    INC screenadr__%
    INC cnt__%
    IF (cnt__% MOD 80)=0
      ADD screenadr__%,1200
    ENDIF
  UNTIL cnt__%=256
RETURN