Graphics 800, 600, 32

Const VK_ESCAPE% = $1B
Const VK_RETURN% = $0D
Const VK_LEFT%   = $25
Const VK_UP%     = $26
Const VK_RIGHT%  = $27
Const VK_DOWN%   = $28

Type point
   Field x%
   Field y%
End Type

SeedRnd( MilliSecs() )

p.point = New point
p\x = 400
p\y = 300

While ( Not IsKeyPressed( VK_ESCAPE ) )
   p\x = p\x - IsKeyPressed( VK_LEFT )
   p\x = p\x + IsKeyPressed( VK_RIGHT )
   p\y = p\y - IsKeyPressed( VK_UP )
   p\y = p\y + IsKeyPressed( VK_DOWN )

   If ( IsKeyPressed( VK_RETURN ) )
      Color Rnd( 0, 255 ), Rnd( 0, 255 ), Rnd( 0, 255 )
   EndIf
   
   Plot p\x, p\y

   Flip   
   Cls
Wend

End

Function IsKeyPressed( vKey% )
   Return ( GetAsyncKeyState( vKey ) Shr 16 ) And 1
End Function