DIM X AS INTEGER 'X vector DIM SH AS INTEGER 'Screen Width DIM SW AS INTEGER 'Screen Height DIM Colours AS INTEGER 'Colour SH = 1080 SW = 1920 SCREEN _NEWIMAGE(SW, SH, 256) _SCREENMOVE 2, 2 'Moves the screen to a middle point DO 'Main program loop starts here _LIMIT 60 FOR X = 1 TO SW / 2 'Makes the properties of the X vector, FOR..NEXT loop starts here. X = X + 20 'X + spacing = X + 20 CIRCLE ((SW / 2 - X - 1), (SH / 2 - 1)), X, Colours 'Circle is made on the screen. Colours = Colours + 4 'Variable increasing each second. IF Colours = 1600 THEN 'Condition that if colour value increases too much, come back to 0 and again start increasing (looping concept made by opertaors and conditions..) Colours = 0 END IF NEXT 'FOR..NEXT loop ends here. LOOP WHILE INKEY$ = "" 'When a key is pressed, end.