PROCEDURE gfa_setres__(options__%)
  ' ****************************************************************************
  ' ***                                                                      ***
  ' **   ********    ** * **   Ein Produkt von                                **
  ' **   *********  *********  Hans-Peter Burk und Helmut Micko               **
  ' **         **   *********  Software Entwicklungen                         **
  ' **   *********  *** * ***                                                 **
  ' **         **   *** * ***  Library         : GFA_GLIB.3_0                 **
  ' **   *********  *** * ***  Name            : SETRES                       **
  ' **   ********   *** * ***  Version         : 1.0  26.11.1989  19:51       **
  ' **                         Autor           : Hans-Peter Burk              **
  ' ***                                                                      ***
  ' ****************************************************************************
  ' *** Funktion  : Wahl des Ausgabemodus bei der gleichzeitiger Darstellung ***
  ' **              der niedrigen und mittleren Aufl”sung mit dem Modul MRES. **
  ' **  Parameter : 1.Option : == 0 = Ausgabe im Lowres-Modus, d.h. alle      **
  ' **                                Ausgaben erfolgen genau wie bei der     **
  ' **                                Verwendung der niedrigsten Aufl”sung    **
  ' **                         == 1 = Ausgabe im Medres-Modus, d.h. alle      **
  ' **                                Ausgaben erfolgen genau wie bei der     **
  ' **                                Verwendung der mittleren Aufl”sung      **
  ' **  Lib_rv__% : Unbenutzt                                                 **
  ' *** Lib_rv__$ : Unbenutzt                                                ***
  ' ****************************************************************************
  IF options__%=0
    DPOKE &H293A,4
    DPOKE &H293C,160
    DPOKE &H2938,160
    DPOKE &H2936,200
    DPOKE &H292E,320
  ENDIF
  IF options__%=1
    DPOKE &H293A,2
    DPOKE &H293C,160
    DPOKE &H2938,160
    DPOKE &H2936,200
    DPOKE &H292E,640
  ENDIF
RETURN