... line(i*10,1,i*10,469); for i:=1 to 46 line(1,i*10,479,i*10); settextstyle(0,0,2); setcolor(red); outtextxy(485,30, 'Life Gamé); settextstyle(0,0,1); setcolor(white); outtextxy(485,90,'Hit Anykey to Go on'); outtextxy(495,150,'Enter ... i,j:integer; Begin for i:=1 to 48 for j:=1 to 47 Draw_Cell(i,j); End; {========================} Procedure Life_ Table; Begin while keypressed c:=readkey; repeat Draw_Table; New_Table; c:=readkey; until (c=#27) ... BEGIN Randomize; Initgr; Repeat Restorecrtmode; Input_Table; Setgraphmode(getgraphmode); Draw_T; Life_ Table; Until c=#27; Closegraph; END ...