Ocno_curs(xxl, yyl, xxl+12,yy1,1,’y’); key:=readkey; case key of

Chr(80):begin

Ocno_curs(xxl, yyl/xxl+12/yyl/3/’ y’);

If yyl<17 then begin

Yyl:=yyl+2; end

Else begin yyl:=3; end; end;

Chr(72):begin

Ocno_curs(xxl, y^l/xxl+12/y^l,3/’ y’);



.