I suppose a new challenge should arise...

[whitetiger0990]

I'll make the ball of funkyness

Code:

'-----Dr_Davenstein
'Hippy Ball...formerly known as Pong
'By UnKnown% QBN members???
'$DYNAMIC

Type BallType
X as Single
Y as Single
  VecX as Single
  VecY as Single
End Type


DECLARE SUB Alex.Draw.Background ()

'-----Dark_Prevail
SCREEN 13

'Lets GET those funky hippy pong paddles!
FOR i = 0 TO 24
  LINE (0, i)-(4, i), (i * 2) + 32
NEXT
DIM hippypaddle((25 * 5) / 2 + 1) AS INTEGER
GET (0, 0)-(4, 24), hippypaddle

'-----Whitetiger0990
'The ball of funkyness
CLS
FOR i = 1 TO 4
CIRCLE (4, 3), i, (i * 4) + 32
NEXT
DIM hippyball((8 * 8) / 2 + 1) AS INTEGER
GET (1, 1)-(8, 8), hippyball

I guess it's easy to change the size if the next person doesn't like it this way =P