Here it is quickly adapted for DBC...
Sync on: Hide mouse: Autocam off:ink rgb(255,0,0),0: BOX 1,1,100,100: Get image 1,1,1,101,101
start:
lives = 2 + level
blocks = 0
Make object sphere 1,5
Make object cube 2,25
make object collision box 1,-2,-2,-2,2,2,2,0
Scale object 2,100,25,25: Color object 2,RGB(251,86,38): Set ambient light 50: make object collision box 2,-13,-3,-3,13,3,3,0: Set object collision on 2
Make object plain 3, 182, 137: Texture object 3,1: Position object 3,0,0,5: Make object cube 81,-182: Restore
Ghost object on 81,1: obj=4: For y = 1 TO 7: read r: read g
read b: For x = -5 TO 5: Make object cube obj,10: Scale object obj,100,50,100: Set object collision on obj
Position object obj,12*x, 7*y,0: Color object obj, RGB(r,g,b): inc obj: Next x: Next y
color backdrop RGB(0,0,0): dy# = .5: Do: sync
If mouseclick()=1 Then camy = camy - mousemovey(): camx = camx + mousemovex(): camz = camz + mousemovez()/10
If mouseclick() = 2 Then camx=0: camy=0: camz=0
Position camera camx,camy,camz-120: Point camera 0,0,0: paddle# = paddle# - ((3*leftkey()) + mousemovex()/20 - (3*rightkey()))
If paddle# >=80: paddle# = 80: endif: If paddle# <= -80: paddle# = -80
Endif: If object collision(2,1) = 1 Then dy# = dy# * -1: dx# = (paddle# - ballx#)/10
For obj = 4 TO 80: If object collision(1,obj) = 1 Then dy# = dy# * -1: Position object obj, 0,0,100: inc blocks: inc score
Next obj: If bally#<=-60 Then bally# = 0: ballx# = 0: dx# = 0: dec lives
If object collision(1,81) = 0 Then dx#=dx#*-1
if blocks = 77 or scancode() = 2 Then inc level: For obj=1 To 81: Delete object obj: Next obj: Goto start
bally# = bally# - (dy#*level): ballx# = ballx# - (dx#*level): If bally#>=70 Then dy#=dy#*-1
if lives = 0 or level = 0 Then For obj=1 To 81: Delete object obj: Next obj: level = 1: Goto start
Position object 2,paddle#,-50,0: position object 1,ballx#,bally#,0: Text 1,1,"Level: "+STR$(level)+ " Blocks left this round: "+ str$(77-blocks) + " Score: "+ str$(score) + " Lives:" + str$(lives) + " FPS: "+ STR$(screen fps()): Loop
Data 255,0,0,255,128,0,255,255,0,0,255,0,0,255,255,0,0,255,255,0,255,128,0,128
Why the hell'd you ask me for crying out loud!?!