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;