PROCEDURE gfa_smplay__(sourceadr__%,memadr__%,cnt__%,speed__%,options__%)
  ' ****************************************************************************
  ' ***                                                                      ***
  ' **   ********    ** * **   Ein Produkt von                                **
  ' **   *********  *********  Hans-Peter Burk und Helmut Micko               **
  ' **         **   *********  Software Entwicklungen                         **
  ' **   *********  *** * ***                                                 **
  ' **         **   *** * ***  Library         : GFA_SLIB.3_0                 **
  ' **   *********  *** * ***  Name            : SMPLAY                       **
  ' **   ********   *** * ***  Version         : 1.1  30.11.1989  17:25       **
  ' **                         Autor           : Helmut Micko                 **
  ' ***                                                                      ***
  ' ****************************************************************************
  ' *** Funktion  : Samplen und Abspielen von digitalisierten Sounds.        ***
  ' **                                                                        **
  ' **  Parameter : 1.Startadresse                                            **
  ' **              2.Endadresse                                              **
  ' **              3.Anzahl der Wiederholungen (nur beim Abspielen wichtig)  **
  ' **              4.Geschwindigkeit           ( "    "      "        "   )  **
  ' **              5.Parameter 0=Samplen                                     **
  ' **                          1=Spielen                                     **
  ' **  Lib_rv__% : == 0 = Alles Ok       == - 1 = INLINE-Code nicht geladen  **
  ' *** Lib_rv__$ : Unbenutzt                                                ***
  ' ****************************************************************************
  LOCAL codeadr__%
  INLINE codeadr__%,1284
  IF BYTE{codeadr__%}=&H48
    ~C:codeadr__%(L:sourceadr__%,L:memadr__%,W:cnt__%,W:speed__%,W:options__%)
    lib_rv__%=0
  ELSE
    lib_rv__%=-1
  ENDIF
RETURN