BASIC is the scripting language used by Microsoft Office. Saying that it powers millions of businesses is probably not an exaggeration.

Pascal, particularly the Delphi/Object Pascal flavor, is also still in widespread use today.

Also Smalltalk is still in wide use; ML is also used; there are even many PL/I applications in use today and IBM continues to give support.

I don't know, I heard somewhere that even the C language is in wide use, still ... ;)