blue ball!

[xteraco]

oh yeah!!! i'm 1337 now!!! chek these 1337 coding skills....someday i'll rule the world

Code:

screen 13
circle (a,20),5,1

go:
for i = 1 to 320
   cls
   circle (a,20),5,1
   a = a + 1
   sleep 10
   if a = 320 then
      goto bounce end if
next

sleep 1500

bounce:
for i = 1 to 320
   cls
   circle (a,20),5,1
   a = a - 1
   sleep 10
   if a = 1 then
      goto go end if
next

[whitetiger0990]

It doesn't work... At all. Win98SE

[Z!re]

We know.. xteraco double posted.


Fixed code:
[syntax="QBASIC"]screen 13
circle (a,20),5,1

goo:
for i = 1 to 320
cls
circle (a,20),5,1
a = a + 1
if a = 320 then
goto bounce
end if
next

sleep 1

bounce:
for i = 1 to 320
cls
circle (a,20),5,1
a = a - 1
if a = 1 then
goto goo
end if
next [/syntax]

[xteraco]

i didnt have any trouble w/ it in freebasic

[Z!re]

It's only two lines that needs to be fixed:

goto bounce end if

Should be:

goto bounce
end if

[whitetiger0990]

win98SE people... Am I the only one that uses old stuff? =P

Z!re your code doesn't work either... Just makes my cursor into the hour glass thinking thingy and i have the ctrlaltdel to get out of it.

[Z!re]

It's QB code...

And I'm on win98 first edition. ha!

[whitetiger0990]

The why the heck is it in a FB projects section >_>

[Z!re]

I dunno...

xteraco isnt exactly known for following the rules is he?

[xteraco]

i compiled it and ran it and made it w/ freebasic...thats why i decided to post in the fb section, i'm using winxp pro...