Kétirányú láncolt listák összefűzése

Típus
    LISTA Rekord
        ADAT    Valós
        ELOZO   LISTA rekordra mutató
        KOV LISTA rekordra mutató

Funkció            Azonosító     Típus           Jelleg

L1 első eleme          ELSO1        LISTA-ra mutató         I
L2 első eleme          ELSO2        LISTA-ra mutató         I
L1 aktuális eleme      AKT1         LISTA-ra mutató         M
L2 aktuális eleme      AKT2         LISTA-ra mutató         M
Másolandó elem         UJ       LISTA-ra mutató         M
A rövidebb lista vége      HONNAN       LISTA-ra mutató         M
Eredmény lista aktuális eleme  AKTER        LISTA-ra mutató         M
Eredmény lista első eleme  ELSOER       LISTA-ra mutató         M,O
Van-e hely             OK       Logikai             M,O

OSSZEFUZ(ELSO1,ELSO2,OK)
AKT1 <- ELSO1
AKT2 <- ELSO2
ELSOER <- NIL
AKTER <- NIL
OK <- igaz

while OK AND (AKT1 <> NIL) AND (AKT2 <> NIL)
    OK <- VANHELY(MERET(LISTA))

    if OK
        HELYFOGLAL(UJ)
        (*UJ).KOV <- NIL
        (*UJ).ELOZO <- NIL
        if (*AKT1).ADAT > (*AKT2).ADAT
            (*UJ).ADAT <- (*AKT2).ADAT
            AKT2 <- (*AKT2).KOV
        else
            (*UJ).ADAT <- (*AKT1).ADAT
            AKT1 <- (*AKT1).KOV

        if ELSOER = NIL
            (*UJ).ELOZO <- NIL
            (*UJ).KOV <- NIL
            ELSOER <- UJ
            AKTER <- UJ
        else
            (*UJ).ELOZO <- AKTER
            (*UJ).KOV <- NIL
            (*AKTER).KOV <- UJ
            AKTER <- UJ
if OK
    if AKT1 = NIL
        HONNAN <- AKT2
    else
        HONNAN <- AKT1

    while OK AND (HONNAN <> NIL)
        OK <- VANHELY(MERET(LISTA))
        HELYFOGLAL(UJ)
        (*UJ).KOV <- NIL
        (*UJ).ELOZO <- AKTER
        (*UJ).ADAT <- (*HONNAN).ADAT
        HONNAN <- (*HONNAN).KOV
        (*AKTER).KOV <- UJ
        AKTER <- UJ

return ELSOER