Listing 6: Die Verwaltung von Array-Werten.

  PrefsObject *dict, *array;

  if(dict = IPrefsObject->PrefsDictionary(NULL, NULL, ALPO_Alloc, 0, TAG_DONE))
  {
    if(array = IPrefsObject->PrefsArray(NULL, NULL,
      ALPO_Alloc, 0,
      ALPOARR_AddObj, (ULONG)IPrefsObject->PrefsNumber(NULL, NULL,
                                         ALPONUM_AllocSetLong, 1,
                                         TAG_DONE),
      ALPOARR_AddObj, (ULONG)IPrefsObject->PrefsNumber(NULL, NULL,
                                         ALPONUM_AllocSetLong, 2,
                                         TAG_DONE),
      ALPOARR_AddObj, (ULONG)IPrefsObject->PrefsNumber(NULL, NULL,
                                         ALPONUM_AllocSetLong, 3,
                                         TAG_DONE),
      TAG_DONE))
    {
      IPrefsObject->DictSetObjectForKey(dict, array, "Zahlenliste");
    }

    IPrefsObject->PrefsDictionary(dict, NULL, ALPO_Release, 0, TAG_DONE);
  }