Makes a rainbow Balloon on the screen.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem Project: rainbowcircle
Rem Created: 22.7.2005 17:02:27

Rem ***** Main Source File *****
set display mode 1024,768,16


sync on
sync rate 0
rem beggining rgb values
r = 255:g = 0:b = 0

`beggining line value in printit

do
One:
g = g + 5: if g = 255 then goto two
gosub printit
loop


do
two:
r = r - 5: if r = 0 then goto three
gosub printit
loop

do
three:
b = b + 5: if b = 255 then goto four
gosub printit
loop

do
four:
g = g - 5: if g = 0 then goto five
gosub printit
loop

do
five:
r = r + 5: if r = 255 then goto six
gosub printit
loop

do
six:
b = b - 5: if b = 0 then suspend for key
gosub printit
loop



printit:
inc d: ink rgb(r,g,b),0:circle 512,383,d

inc d: ink rgb(r,g,b),0:circle 512,383,d




sync
return