laatikkopaksuus=Rand(20,21)
  laatikkopituus=Rand(20,21)
  
  laatikkopituus2=Rand(30,50)
  laatikkopaksuus2=Rand(30,50)
  
Repeat   
   'näppäimet
  If LeftKey() Then x=x-4
  If RightKey() Then x=x+4
  If UpKey() Then y=y-4
  If DownKey() Then y=y+4 
    
    cbblue
    Circle x-pallo,y-pallo,pallo*2,ON
    
      DrawScreen

Until EscapeKey()