Start New Discussion within our Software Development Community

So basically I want to make a tetris game with Pascal as a project I am working on.
I wasn't able to make it complicated like you can move the piece and different types of piece come.
From other responses, they involve more than 1 Pascal Program but I am trying to keep it simple involving only one window.
Any help?

Heres my code so far. This game should be all in a procedure if possible.

Procedure Tetris;                                                                     {Tetris?}
var x,y,i,c:byte;
begin
      x:=5;
      y:=1;
      repeat
       clrscr;
       title;  {another procedure, you can ignore this}
       for i:=1 to y-1 do
        writeln('|                                    |');
       if y<49 then
       begin writeln('|                I                   |');
             writeln('|                I                   |');
             writeln('|                I                   |');
             writeln('|                L--                 |');
             for i:=y+4 to 49 do
              writeln('|                                    |');
             writeln('|____________________________________|');
             delay(100)
       end
       else
       begin writeln('|                I                   |');
             writeln('|                I                   |');
             writeln('|                I                   |');
             writeln('|________________L--_________________|')
       end;
       y:=y+1;
     until y=50;
     readln;
This article has been dead for over six months. Start a new discussion instead.