Source Code Tools

One flaw which could may be enhanced.
Look at the code below which contains a "case begin"

Procedure CheckCase
Case Begin
Case (sAnimal = "Cat")
Move ("Meow") To sNoise
Case Break
Case (sAnimal = "Dog")
Move ("Arf") To sNoise
Case Break
Case (sAnimal = "Bird")
Move ("Tweet") To sNoise
Case Break
Case Else
Move ("") To sNoise
Case End
End_procedure

I think it should format as

Procedure CheckCase
Case Begin
Case (sAnimal = "Cat")
Move ("Meow") To sNoise
Case Break
Case (sAnimal = "Dog")
Move ("Arf") To sNoise
Case Break
Case (sAnimal = "Bird")
Move ("Tweet") To sNoise
Case Break
Case Else
Move ("") To sNoise
Case End
End_procedure

see also:
https://support.dataaccess.com/Forums/showthread.php?63084-Release-Source-Code-Tools&p=336354#post336354