Chr(72):begin ocno_curs(xxl, yyl, xxl+12,yyl, 3,’y’);

If yyl>6 then begin

Yyl:=yyl-4;

End

Else

Begin

Yyl:=14;

End; end;

Chr(13):vvod_dan(yyl);

Chr(27):QUITE;

End;