;Ben Mickle ;29 bytes Alphabetize: ld hl,LIST ld de,LIST+16 Loop: cp a ld b,16 Loop2: ld a,(de) jr nz,Continue or a ret z cp (hl) Continue: jr nc,NoSwap ld c,(hl) ld (hl),a ld a,c ld (de),a NoSwap: inc hl inc de djnz Loop2 jr c,Alphabetize jr Loop