Clean up this code---

  Select contact, eligarea, groupnum, groupname, IIF(ASC(contact)>64, ASC(contact)-48,ASC(contact)) as contactord from modicomm ;
         WHERE NOT DELETED() ORDER BY contactord INTO CURSOR TempC
  SELECT contact, eligarea, groupnum, groupname FROM TempC INTO CURSOR Temp
  Select Temp
  Copy to C:\Temp\vsamnew.txt Type SDF

The reason for the IF in the SQL is to force 'contact' that begin with a letter to be before contacts that begin with a number.

This mess works, but, I would like it cleaned!