Program Upravlenie1;
Uses Dos,CRT;
Var
button:char;
Begin
while (true) do
  Begin
  ClrScr;
  If KeyPressed then button:=ReadKey;
    Case button of
      's' : Port[MemW[$0040:0008]]:=0;
      'd' : Port[MemW[$0040:0008]]:=1;
      'a' : Port[MemW[$0040:0008]]:=2;
      'w' : Port[MemW[$0040:0008]]:=3;
      'q' : break;
    End;
  End;
End.