RAINBOW COLOUR CONE IN QB64

This the commands you should put in QB64 space. The commands are:

DIM SW AS INTEGER
DIM SH AS INTEGER
DIM COLOURS AS INTEGER
DIM X AS INTEGER
SW = 1920
SH = 1080
SCREEN _NEWIMAGE(SW, SH, 256)
FOR X = 1 TO SW / 2
    CIRCLE ((SW / 2 - X - 1), (SH / 2 - 1)), X, COLORS
    COLORS = COLORS + 1
    IF COLORS = 256 THEN
    END IF
    _DISPLAY

Start to run the program

The program is going on...

The program came.

This is the rainbow cone in qb64.

You liked the program comment below.

bye for now see you Tomorrow.

CWS TEAM