I don't know if you have any other uses for D_ANIM or L_ANIM than what you show here, but from looking at the help function for SPANIM, you should be able to replace lines 634-640 and 648-654 with a single SPANIM code each. Maybe something like SPANIM 200,"3",5,1108,5,1109,5,1110,1111