Listing 8: Auslesen eines Arrays.

if(array = IPrefsObject->DictGetObjectForKey(dict, "Zahlenliste"))
{
  IDOS->Printf("Gefunden: ");

  LONG count;
  struct ALPOObjIndex idx;

  IPrefsObjects->PrefsArray(array, NULL, ALPOARR_GetCount, &count, TAG_DONE);
  for(idx.index = 0; idx.index < count; idx.index++)
  {
    IPrefsObjects->PrefsArray(array, NULL, ALPOARR_GetObjAtIndex, &idx, TAG_DONE);
    if(idx.obj)
    {
      ULONG err;
      LONG val;

      IPrefsObjects->PrefsNumber(idx.obj, &err, ALPONUM_GetLong, &val, TAG_DONE);
      if(!err) IDOS->Printf("%ld ", val);
      else     IDOS->Printf("??? ");
    }
  }

  IDOS->Printf("\n");
}
else IDOS->Printf("Keinen passenden Prefs-Eintrag gefunden\n");