'********************************
'*                              *
'* Add Preferences Data         *
'* ---------------------------- *
'*                              *
'* Auteur : Wolf-Gideon Bleek   *
'* Date   : May 15 '88          *
'* Nom    : Add-Pref.bas        *
'* Version: 1.1                 *
'* Système d'expl.: V1.2 & V1.  *
'*                              *
'********************************
LIBRARY "T&A2:bmaps/exec.library"
DECLARE FUNCTION AllocMem& LIBRARY
LIBRARY "T&A2:bmaps/intuition.library"
Mainprogramm:
  ' Preferences chargé
  GetPreferences Prefs&, 220&
  IF Prefs& = 0 THEN GOTO Ende

  ' Entrer les nouvelles couleurs

  Colour0 = 110
  Colour1 = 112
  Colour2 = 114

  POKEW Prefs& + Colour0, 1*15+16*4+256*15
  POKEW Prefs& + Colour1, 1*15+16*15+256*0
  POKEW Prefs& + Colour2, 1*0+16*15+256*8
  ' Sauvegarder Preferences
  SetPreferences Prefs&
Ende:
  FreePreferences Prefs&
  LIBRARY CLOSE
END
SUB GetPreferences (Address&, Size&) STATIC
  Address& = AllocMem&(Size&+4, 65536&)
    IF Address& <> 0 THEN
      POKEL Address&, Size&
      Address& = Address&+4
      CALL GetPrefs(Address&, Size&)
    ELSE
      Addresse = 0
    END IF
END SUB
SUB SetPreferences (Address&) STATIC
    IF Address& <> 0 THEN
      Size& = PEEKL(Address&-4)
      CALL SetPrefs(Address&, Size&, -1)
    END IF
END SUB
SUB FreePreferences (Address&) STATIC
    IF Address& <> 0 THEN
      Size& = PEEKL (Address&-4)
      CALL FreeMem(Address&-4, Size&+4)
    END IF
END SUB