Here is implementation well-known brick game in Turbo Pascal 7.0.
tetris.exe - 40x25 text mode
cgtris.exe - CGA graphics mode
Left/Right Arrows - move
Up/Down Arrows - rotate
P - Pause
M - Mute
Esc - exit to DOS
Just type make
or
tpc tetris.pas
tpc cgtris.pas
MIT License. See LICENSE file.