Sorry your browser is not supported!

set display mode 640,480,32
sync on
hide mouse
disable escapekey

cls

ink rgb(0,255,0),0

box 0,0,639,10

get image 2,0,0,639,10

cls
xbal=10
ybal=455

circle 10,10,5

rem or use a bitmap
` load bitmap "ball.bmp",1

get image 1,0,0,20,20

rem delete the bitmap
`delete bitmap 1

cls

repeat

if spacekey()
	xbal=10
	ybal=455
	randomize timer()
	velocity_xbal=rnd(15)+1
	initial_velocity_ybal=(-1*rnd(30))-1
	velocity_ybal=initial_velocity_ybal
endif

	cls


	text 0,0,"speed_x: "+str$(velocity_xbal)
	text 0,15,"bouncing_heigt_y: "+str$(initial_velocity_ybal)
	text 0,30,"speed_y: "+str$(velocity_ybal)
	text 0,45,"press spacebar to start/change ball moves, press enter to quit."

	xbal=xbal+velocity_xbal

	if (xbal>640 or xbal<0)
		velocity_xbal=-1*velocity_xbal
	endif

	ybal=ybal+velocity_ybal

	if (-1*velocity_ybal<=initial_velocity_ybal)
		velocity_ybal=(-1*velocity_ybal)
	else
		velocity_ybal=velocity_ybal+1	
	endif


	sprite 1,xbal,ybal,1
	sprite 2,0,470,2

	sync
until returnkey()=1

delete image 1
delete image 2
end

set display mode 800,600,32
sync on
sync rate 60
hide mouse

rem create a background drawing area that's the same size as the main screen
rem once it's created it will always be referenced until we change the bitmap
create bitmap 1,800,600

rem get a red square image from bitmap 1
cls rgb(255,0,0)
get image 1,0,0,32,32
sync

rem set some variables for motion
xdir=5
ydir=5
x=0
y=0

do
	rem clear bitmap 1
	cls 0
	
	rem update the potential postion of the square
	inc x,xdir
	inc y,ydir

	rem reverse direction if trying to go out of bounds
	if x<0
		xdir=0-xdir
		x=0
	endif
	if x>(screen width()-32)
		xdir=0-xdir
		x=screen width()-32
	endif
	if y<0
		ydir=0-ydir
		y=0
	endif
	if y>(screen height()-32)
		ydir=0-ydir
		y=screen height()-32
	endif

	rem draw the square on the background bitmap
	paste image 1,x,y

	rem copy bitmap 1 to bitmap 0
	copy bitmap 1,0

	rem print info on screen
        set current bitmap 0
	text 0,0,"x value = "+str$(x)
	text 0,20,"y value = "+str$(y)
        set current bitmap 1

	rem refresh
	sync
loop