GraphicsWindow.Width = 750
GraphicsWindow.Height = 500
x1 = 0
y1 = 0
x2=300
y2=300
dx = 20
dy = 20
Timer.Interval = 100
Timer.Tick = kwadratleci
pileczka = Shapes.AddEllipse(20,20)
Shapes.Move(pileczka,x1,y1)
pileczka2 = Shapes.AddRectangle(20,20)
Shapes.Move(pileczka2,x2,y2)
GraphicsWindow.KeyDown=pilka
Sub pilka
  klawisz = GraphicsWindow.LastKey
  If klawisz = "Left" Then
    x1 = x1 - 20
  ElseIf klawisz = "Right" Then
    x1 = x1 + 20
  ElseIf klawisz = "Down" Then
    y1 = y1 + 20
  ElseIf klawisz = "Up" Then
    y1 = y1 - 20
  ElseIf klawisz = "Right" and klawisz = "Up" Then
    x1 = x1 + 20
    y1 = y1 - 20
  ElseIf klawisz = "Left" and klawisz = "Up" Then
    x1 = x1 - 20
    y1 = y1 + 20
  ElseIf klawisz = "Left" and klawisz = "Down" Then
    x1 = x1 - 20
    y1 = y1 - 20
  ElseIf klawisz = "Right" and klawisz = "Down" Then
     x1 = x1 - 20
     y1 = y1 - 20
   EndIf
Shapes.Move(pileczka,x1,y1)
EndSub
Sub kwadratleci
  x2 = x2 + dx
  y2 = y2 + dx
  Shapes.Move(pileczka2,x2,y2)
  If((x2<=0) Or (x2>=750)) Then
    dx=-dx
  elseIf((y2<=0) Or (y2>=750)) Then
    dy=-dy
  EndIf
EndSub