Cleanup spells1.c part 1.

Lines 1 to 2000.
spells1.c cleanup part 2

Lines 2001 to 4000.
spells1.c cleanup part 3.

Lines 4001-6000.
spells1.c cleanup part 4.

Lines 6001 to end.