PROCEDURE gfa_repsnd__(options__%,sourceadr__%,length__%)
  ' ****************************************************************************
  ' ***                                                                      ***
  ' **   ********    ** * **   Ein Produkt von                                **
  ' **   *********  *********  Hans-Peter Burk und Helmut Micko               **
  ' **         **   *********  Software Entwicklungen                         **
  ' **   *********  *** * ***                                                 **
  ' **         **   *** * ***  Library         : GFA_SLIB.3_0                 **
  ' **   *********  *** * ***  Name            : REPSND                       **
  ' **   ********   *** * ***  Version         : 1.1  30.11.1989  17:26       **
  ' **                         Autor           : Hans-Peter Burk              **
  ' ***                                                                      ***
  ' ****************************************************************************
  ' *** Funktion  : Automatisches Wiederholen von Sounds und Abbrechen von   ***
  ' **              DOSOUND mit verschiedenen Optionen.                       **
  ' **  Parameter : 1.Option : == 0 = DOSOUND sofort abbrechen                **
  ' **                         == 1 = DOSOUND am Ende des Musikstcks         **
  ' **                                abbrechen                               **
  ' **                         == 2 = DOSOUND starten und wiederholt spielen  **
  ' **              2.Startadresse der Sounddaten fr DOSOUND                 **
  ' **              3.Anzahl der Bytes Sounddaten                             **
  ' **  Lib_rv__% : == 0 = Alles Ok        == -1 = INLINE-Code nicht geladen  **
  ' *** Lib_rv__$ : Unbenutzt                                                ***
  ' ****************************************************************************
  LOCAL codeadr__%
  INLINE codeadr__%,284
  IF BYTE{codeadr__%}=&H48
    IF options__%=2
      VOID XBIOS(32,L:sourceadr__%)
    ENDIF
    ~C:codeadr__%(L:options__%,L:sourceadr__%,L:length__%-1)
    lib_rv__%=0
  ELSE
    lib_rv__%=-1
  ENDIF
RETURN