c A(@),B()c I  @ c "NUMBER ";Wd W cd A(I)Wd# I-dc "SORTING"=dd I @Udn B(A(I))B(A(I))]dx Ivd "READY TO PRINT";Pd I  d X B(I)d X XX: I: d Id, "SAVE";d6 Y$d@ Y$"" Y$"n" Y$"N" e^ "O",#,"CIPHER.DAT" eh I -er XB(I)Le| X XX: #,I: |Te Ide: "END":Y$"N" e^ "O",#,"CIPHER.DAT" eh I -er XB(I)Le| X XX