Welcome. Here is a sample of qbasic code. It is a cheap little program that makes colored circles pulse from the center of the screen. Just copy it into qbasic and run it. You are free to use this code in any program you create, although a little note to me, and maybe an acknowledgement in the program would be appreciated.

SCREEN 13                       'sets the screen
DO                              'starts a loop
FOR x = 1 TO 255                'sets x
y = 255 - x                     'sets y
CIRCLE (160, 120), x, x         'draws one circle
CIRCLE (160, 120), y, x         'draws another circle
NEXT                            'adds one to x and returns
LOOP UNTIL INKEY$ = CHR$(13)    'keeps going until enter is hit

Back to my home page!