Програмування Pascal, Детальна інформація

#0:begin

ch:=readkey;

case ch of

#77: begin

xcur:=xcur+1;

if xcur>8 then xcur:=8;

curpos (xcur-1,ycur,xcur,ycur);

end;

#75: begin

xcur:=xcur-1;

if xcur<1 then xcur:=1;

curpos (xcur+1,ycur,xcur,ycur);

end;

#80: begin

ycur:=ycur+1;

if ycur>8 then ycur:=8;

curpos (xcur,ycur-1,xcur,ycur);

end;

#72: begin

ycur:=ycur-1;

if ycur<1 then ycur:=1;

curpos (xcur,ycur+1,xcur,ycur);

end;

end;

end;

' ': begin

if matr[xcur,ycur]=0 then

matr[xcur,ycur]:=1

else matr[xcur,ycur]:=0;

printmatrix;