If you still have the corrupt SCT file - open with a text editor (assuming it is not 0 bytes). You should be able to see the code contained -- it will be in different places of the SCT but the code will be in block(s) together. There could be multiple versions of the same procedure if it was not packed -- the save adds to the memo and abandons the previous blocks. The pack process is what would remove the abandoned blocks. This will allow you to possibly recover your code.