procedure LeftCol; begin if Col>1 then begin Col:=Col-1; if ColCC+Pred(CRight) then begin while (CC+Pred(CRight)28-T then CC:=28-T; if Col1 then begin Row:=Row-1; if RowCR+20 then begin CR:=CR+1; ShowBorder; showCells; end; end; end; procedure DownPage; begin CR:=CR+21; Row:=Row+21; if Row>99 then Row:=99; if CR>79 then CR:=79; ShowBorder; ShowCells; end;