Gotoxy(l, l)

Write(

———————————————————————- ‘);

End;

Repeat

Key :=readkey; if (key=chr(80)) and (bbC10*o].Hw<>0) then begin clrscr; o:=o+l;

If n>10*o then

For i:=(10*(o-l)+l) to 10*o do begin

With bbEi] do begin

Vvodwindow(2/(6+k),78/(6+k)/3/0); gotoxy(l, l); writeC |,,Hw:8:l,,|,,Tw:8:l,,|,,Bf:8:l,,|l, Tf:8:l,’ ‘,1:9:1,’ ‘,DE1:9:1,’ ‘,DEll:8:l,’ \F:8:1,’ ‘);

End; k:=k+l; end;

If n<=10*o then begin

For i: = (10*(o-l)+l) to n do begin

With bbCi] do begin

Vvodwindow(E,(6+k),78,(6+k),3,0); gotoxy(l, l);

WriteC I’.HwiSil.’IMwiSii.’l’.Bfie:!,’!’, Tf:8:l,’ ‘,1:9:1,’ ‘,DE1:9:1,’ ‘,DEll:8:l,’ \F:8:1,’ ‘);

End; k:=k+l; end;

For i:=n+l to 10*o do begin

Vvodwindow(2,(6+k),78,(6+k),3,0); gotoxy(l, l);

WriteC 1 +



.