PROCEDURE gfa_poppal__
  ' ****************************************************************************
  ' ***                                                                      ***
  ' **   ********    ** * **   Ein Produkt von                                **
  ' **   *********  *********  Hans-Peter Burk und Helmut Micko               **
  ' **         **   *********  Software Entwicklungen                         **
  ' **   *********  *** * ***                                                 **
  ' **         **   *** * ***  Library         : GFA_GLIB.3_0                 **
  ' **   *********  *** * ***  Name            : POPPAL                       **
  ' **   ********   *** * ***  Version         : 1.0  10.12.1989  18:04       **
  ' **                         Autor           : Helmut Micko                 **
  ' ***                                                                      ***
  ' ****************************************************************************
  ' *** Funktion  : Holen der aktuellen Farbpalette.                         ***
  ' **                                                                        **
  ' **  Parameter : Keine                                                     **
  ' **                                                                        **
  ' **                                                                        **
  ' **                                                                        **
  ' **                                                                        **
  ' **                                                                        **
  ' **  Lib_rv__% : Unbenutzt                                                 **
  ' *** Lib_rv__$ : String mit den 16 Words der aktuellen Farbpalette        ***
  ' ****************************************************************************
  LOCAL i__|
  lib_rv__$=""
  FOR i__|=0 TO 31 STEP 2
    lib_rv__$=lib_rv__$+MKI$(DPEEK(&HFF8240+i__|))
  NEXT i__|
RETURN