syntax error i cant track down code produced in chatgpt

Looks like there are too many arguments that you are trying to pass to the Circle command. QB64 does not have a native filled circle option.

You might consider using _Limit instead of sleep to control the speed of your loop:


SCREEN 12   ' Set graphics mode (VGA 640x480)

CONST NUM_PICKS = 6
CONST MAX_NUMBER = 80

TYPE Ball
   x AS INTEGER
   y AS INTEGER
   radius AS INTEGER
   color AS INTEGER
   velocity AS INTEGER
   number AS INTEGER
END TYPE

DIM SHARED balls(NUM_PICKS) AS Ball

RANDOMIZE TIMER

' Initialize balls with unique numbers
DIM pickedNumbers(MAX_NUMBER + 1) AS INTEGER
FOR i = 1 TO NUM_PICKS
   DO
       balls(i).number = INT(RND * (MAX_NUMBER + 1))
   LOOP UNTIL pickedNumbers(balls(i).number) = 0
   pickedNumbers(balls(i).number) = 1

   balls(i).x = INT(RND * (640 - 2 * balls(i).radius)) + balls(i).radius
   balls(i).y = INT(RND * (480 - 2 * balls(i).radius)) + balls(i).radius
   balls(i).radius = 20
   balls(i).color = INT(RND * 15) + 1
   balls(i).velocity = 1
NEXT i

' Main game loop
DO
   CLS

   ' Draw and move balls
   FOR i = 1 TO NUM_PICKS
       DRAWBALL balls(i)
       MOVEBALL balls(i)

       ' Check if ball is out of screen and reset its position
       IF balls(i).y > 480 - balls(i).radius OR balls(i).y < balls(i).radius THEN
           balls(i).y = INT(RND * (480 - 2 * balls(i).radius)) + balls(i).radius
       END IF
   NEXT i

   'SLEEP 16
   _Limit 60

LOOP UNTIL INKEY$ <> ""

SCREEN 0   ' Return to text mode

SUB DRAWBALL (ball AS Ball)
   CIRCLE (ball.x, ball.y), ball.radius, ball.color', , , , FILL
   'PRINT USING "###"; ball.number; (ball.x - 10, ball.y - 10)
END SUB

SUB MOVEBALL (ball AS Ball)
   ball.y = ball.y + ball.velocity
END SUB


(Also, if you paste your code in on the BBCode tab when you are editing your post, it won't add those additional spaces to your code.)