PROCEDURE gfa_m_hscrol__(destadr__%,sourceadr__%,txt__$,options__%)
  ' ****************************************************************************
  ' ***                                                                      ***
  ' **   ********    ** * **   Ein Produkt von                                **
  ' **   *********  *********  Hans-Peter Burk und Helmut Micko               **
  ' **         **   *********  Software Entwicklungen                         **
  ' **   *********  *** * ***                                                 **
  ' **         **   *** * ***  Library         : GFA_GLIB.3_0                 **
  ' **   *********  *** * ***  Name            : M_HSCROL                     **
  ' **   ********   *** * ***  Version         : 1.1  26.01.1990  20:02       **
  ' **                         Autor           : Helmut Micko                 **
  ' ***                                                                      ***
  ' ****************************************************************************
  ' *** Funktion  : Scrollen einer Zeichenkette in der mittleren Aufl”sung   ***
  ' **              mit einem 40 Zeichen (32x16) umfassenden Zeichensatz.     **
  ' **  Parameter : 1.Adresse des Scrollbereichs                              **
  ' **              2.Adresse der Scrolldaten                                 **
  ' **              3.Zeichenkette, die gescrollt werden soll                 **
  ' **              4.Option == 0 = Endlosscrolling + Tastaturabfrage         **
  ' **                        < 0 = 1x scrollen ohne Tastaturabfrage          **
  ' **                        > 0 = 1x scrollen mit Tastaturabfrage           **
  ' **  Lib_rv__% : == 0 = Alles Ok        == -1 = INLINE-Code nicht geladen  **
  ' *** Lib_rv__$ : Unbenutzt                                                ***
  ' ****************************************************************************
  LOCAL codeadr__%,bufadr__%,i__%,b__|
  INLINE codeadr__%,818
  INLINE bufadr__%,2560
  IF BYTE{codeadr__%}=&H48
    FOR i__%=1 TO LEN(txt__$)
      b__|=ASC(MID$(txt__$,i__%,1))
      SELECT b__|
      CASE 48 TO 57
        MID$(txt__$,i__%,1)=CHR$(b__|-22)
      CASE 65 TO 90
        MID$(txt__$,i__%,1)=CHR$(b__|-65)
      CASE 97 TO 122
        MID$(txt__$,i__%,1)=CHR$(b__|-97)
      CASE 33
        MID$(txt__$,i__%,1)=CHR$(36)
      CASE 46
        MID$(txt__$,i__%,1)=CHR$(37)
      CASE 58
        MID$(txt__$,i__%,1)=CHR$(38)
      DEFAULT
        MID$(txt__$,i__%,1)=CHR$(39)
      ENDSELECT
    NEXT i__%
    txt__$=STRING$(20,CHR$(39))+txt__$+STRING$(20,CHR$(39))+CHR$(128)
    ~C:codeadr__%(L:destadr__%,L:sourceadr__%,L:bufadr__%,L:VARPTR(txt__$),W:options__%)
    lib_rv__%=0
  ELSE
    lib_rv__%=-1
  ENDIF
RETURN