- вгору- вгору суцільною лінією
- вниз - вниз суцільною лінією
- вліво - вліво суцільною лінією
- вправо - вправо суцільною лінією
- d - вправо пунктирною лінією
- a - вліво пунктирною лінією
- w - вгору пунктирною лінією
- s - вниз пунктирною лінією
- f - вліво та вгору суцільною лінією
- g - вправо та вгору суцільною лінією
- v - вліво та вниз суцільною лінією
- b - вправо та вниз суцільною лінією
- h - вліво та вгору пунктирною лінією
- j - вправо та вгору пунктирною лінією
- n - вліво та вниз пунктирною лінією
- m - вправо та вниз пунктирною лінією
- 3-9 - зміна кольорів
Uses graph,crt;
Var dv,mv,x,y,i:integer;
c:char;
Begin
dv:=detect;
initgraph(dv,mv,'');
cleardevice;
x:=320;
y:=240;
i:=2;
while c<>#13 do
begin
c:=readkey;
case c of
#72: y:=y-1;
#80: y:=y+1;
#75: x:=x-1;
#77: x:=x+1;
'd': begin x:=x+10; end;
'a': begin x:=x-10; end;
'w': begin y:=y-10; end;
's': begin y:=y+10; end;
'f': begin x:=x-1; y:=y-1; end;
'g': begin x:=x+1; y:=y-1; end;
'v': begin x:=x-1; y:=y+1; end;
'b': begin x:=x+1; y:=y+1; end;
'h': begin x:=x-10; y:=y-10; end;
'j': begin x:=x+10; y:=y-10; end;
'n': begin x:=x-10; y:=y+10; end;
'm': begin x:=x+10; y:=y+10; end;
'3': begin i:=3; end;
'2': begin i:=2; end;
'4': begin i:=4; end;
'5': begin i:=5; end;
'6': begin i:=6; end;
'7': begin i:=7; end;
'8': begin i:=8; end;
'9': begin i:=9; end;
end;
putpixel(x,y,i);
end;
closegraph;
end.