Pascalban a w, a, s, d -nek mi a kódja? (#27 ilyenekre gondolok)

Egy word számot ad vissza a getpixel.

pl.: szin:=getpixel(1,1);

Bocs két billentyűt felcseréltem

program Pelda30;

uses graph, wincrt;

var gd,gm: integer;

p,p1: pointer;

x,y,x1,y1:integer;

ch1:char;

begin

x1 := 5;

y1 := 5;

x := 205;

y := 5;

{ grafika inicializalasa }

gd := d4bit;

gm := m640x480;

initgraph(gd,gm,'');

{ rajzolas }

bar(10,10,30,30);

bar(210,10,230,30);

{ memoria lefoglalasa }

getmem(p1,imagesize(5,5,35,35));

getmem(p,imagesize(210,10,235,35));

{ kep megjegyzese }

getimage(5,5,35,35,p1^);

getimage(205,5,235,35,p^);

repeat

ch1:=readkey;

repeat

delay(40);

case ch1 of

'8' : if y-5>=0 then y:=y-5;

'2' : if y+5<=440 then y:=y+5;

'6' : if x-5>=0 then x:=x-5;

'4' : if x+5<=602 then x:=x+5;

'w' : if y1-5>=0 then y1:=y1-5;

's' : if y1+5<=440 then y1:=y1+5;

'a' : if x1-5>=0 then x1:=x1-5;

'd' : if x1+5<=602 then x1:=x1+5;

end;

putimage(x,y,p^,copyput);

putimage(x1,y1,p1^,copyput);

until keypressed;

until ch1=#27;

{ grafikus mod bezarasa }

closegraph;

{memoria felszabaditas}

freemem(p1);

freemem(p);

end.