PROCEDURE gfa_m_vscrol__(screenadr__%,fontadr__%,bufadr__%,x__%,y__%,rows__%,txt__$,options__%)
  ' ****************************************************************************
  ' ***                                                                      ***
  ' **   ********    ** * **   Ein Produkt von                                **
  ' **   *********  *********  Hans-Peter Burk und Helmut Micko               **
  ' **         **   *********  Software Entwicklungen                         **
  ' **   *********  *** * ***                                                 **
  ' **         **   *** * ***  Library         : GFA_GLIB.3_0                 **
  ' **   *********  *** * ***  Name            : M_VSCROL                     **
  ' **   ********   *** * ***  Version         : 1.1  28.01.1990  11:27       **
  ' **                         Autor           : Helmut Micko                 **
  ' ***                                                                      ***
  ' ****************************************************************************
  ' *** Funktion  : Vertikales Scrollen einer Zeichenkette in der            ***
  ' **              mittleren Aufl”sung mit 32x16 Pixel grožen Zeichen.       **
  ' **  Parameter : 1.Bildschirmadresse         5.Y-Koordinate der linken     **
  ' **              2.Fontadresse                 oberen Ecke                 **
  ' **              3.Adresse eine Buffers      6.Zeilenzahl                  **
  ' **                (Gr”že s.Handbuch)        7.Zeichenkette, die gescrollt **
  ' **              4.X-Koordinate der linken     werden soll                 **
  ' **                oberen Ecke               8.Abbruchart/Scrolldauer      **
  ' **  Lib_rv__% : == 0 = Alles Ok        == -1 = INLINE-Code nicht geladen  **
  ' *** Lib_rv__$ : Unbenutzt                                                ***
  ' ****************************************************************************
  LOCAL b__%,i__%,codeadr__%
  INLINE codeadr__%,614
  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$(13,CHR$(39))+txt__$+STRING$(13,CHR$(39))
    ~C:codeadr__%(L:screenadr__%,L:fontadr__%,L:V:txt__$,L:bufadr__%,W:x__%,W:y__%,W:rows__%,W:LEN(txt__$),W:options__%)
    lib_rv__%=0
  ELSE
    lib_rv__%=-1
  ENDIF
RETURN