TYPE
   myKey = POINTER TO RECORD
      day, month, year: BYTE;
      price: SHORTREAL;
      next: myKey;
   END;
   turn = POINTER TO RECORD (Stores.Store)
      name: ARRAY 256 OF CHAR;
      key: myKey;
      firstKey: myKey;
      next: turn;
   END;

PROCEDURE (t: turn) Externalize (VAR w: Stores.Writer);
VAR
   auxiliaryNames: turn;
   auxiliaryKeys: myKey;
BEGIN
   StdLog.String ("Сохраняю");
   auxiliaryNames := t;
   WHILE auxiliaryNames # NIL DO
      w.WriteString (auxiliaryNames.name);
      auxiliaryKeys := auxiliaryNames.firstKey;
      WHILE auxiliaryKeys # NIL DO
         w.WriteByte (auxiliaryKeys.day);
         w.WriteByte (auxiliaryKeys.month);
         w.WriteByte (auxiliaryKeys.year);
         w.WriteSReal (auxiliaryKeys.price);
         auxiliaryKeys := auxiliaryKeys.next
      END;
      auxiliaryNames := auxiliaryNames.next
   END
END Externalize;

TYPE MyKey = POINTER TO RECORD (Stores.Store) ... END;

PROCEDURE WriteList (t: Turn; w: Stores.Writer);
BEGIN
  WHILE t # NIL DO w.WriteStore(t); t := t.next END;
  w.WriteStore(NIL)
END WriteList;

PROCEDURE WriteKeys(k: MyKey; wr: Stores.Writer);
BEGIN
  WHILE k # NIL DO wr.WriteStore(k); k := k.next END;
  wr.WriteStore(NIL)
END WriteKeys;

PROCEDURE (t: Turn) Externalize (VAR w: Stores.Writer);
  VAR auxiliaryKeys: MyKey;
BEGIN
  w.WriteString (t.name); WriteKeys(t.firstKey, w)
END Externalize;

PROCEDURE (k: MyKey) Externalize (VAR wr: Stores.Writer);
BEGIN
  w.WriteByte (auxiliaryKeys.day);
  w.WriteByte (auxiliaryKeys.month);
  w.WriteByte (auxiliaryKeys.year);
  w.WriteSReal (auxiliaryKeys.price)
END Externalize;

REPEAT rd.ReadStore(st);
  IF st # NIL THEN ASSERT(st IS Turn, 20);
    (* append store to the end of list *)
  END
UNTIL st = NIL