FORTH
* Copyright PPC Paris 1986
        WORD  'SORT'
        CD1EX
        R0=C
        R1=C
       CD1EX
       LC(5)  #2FB11
        CD0EX
        A=DAT0 A
        CD0EX
        D1=D1+ 5
       CD1EX
       ?C>=A  A
       GOYES   FIN
        P=     0
LBL1    LC(5)  #2FB11
        CD0EX
        A=DAT0 A
        CD0EX
        AD1EX
LBL2    D1=D1- 5
        A=DAT1 A
        D1=D1+ 5
        C=DAT1 A
        ?C>=A  A
        GOYES  C>=A
        DAT1=A A
        D1=D1- 5
        DAT1=C A
        D1=D1+ 5
C>=A    D1=D1- 5
        C=R0
        D=C    A
        AD1EX
        C=A    A
        AD1EX
        ?C#D   A
        GOYES  LBL2
        LC(5)  #2FB11
        CD0EX
        A=DAT0 A
        CD0EX
        C=R0
        CD1EX
        D1=D1+ 5
        CD1EX
        R0=C
        ?C#A   A
        GOYES  LBL1
FIN     C=R1
         CD1EX
        RTNCC