TETRIS source code is available, about 3000 lines
You can download the EXE freely, and if you think it is useful for you to
learn you can pay and get the source code

http://rain.prohosting.com/kakasoft

Tetris source code in VC, C++ Builder, java, Delphi, VB
We hope it can help you to learn programming