#include "fbgfx.bi"
SCREEN 18,4,1,0
CIRCLEX = 275
CIRCLEY = 275
CIRCLESPEED = 1
DO
CIRCLE (circlex, circley), 1, 11
IF MULTIKEY(SC_RIGHT) THEN circlex = circlex + circlespeed
IF MULTIKEY(SC_LEFT) THEN circlex = circlex - circlespeed
IF MULTIKEY(SC_DOWN) THEN circley = circley + circlespeed
IF MULTIKEY(SC_UP) THEN circley = circley - circlespeed
IF MULTIKEY(SC_CONTROL) THEN cls
IF MULTIKEY(SC_1) THEN Circle(circlex, circley), 5, 11
IF MULTIKEY(SC_2) THEN Circle(circlex, circley), 10, 11
IF MULTIKEY(SC_3) THEN Circle(circlex, circley), 15, 11
IF MULTIKEY(SC_4) THEN Circle(circlex, circley), 20, 11
IF MULTIKEY(SC_4) THEN Circle(circlex, circley), 20, 11
IF MULTIKEY(SC_5) THEN Circle(circlex, circley), 25, 11
SCREENSYNC
LOOP UNTIL MULTIKEY(SC_ESCAPE)
__
Well, this is the first thing I've done with FREEBasic. So, what do you think?
Controls:
Up, Down, Left, and Right move
Hold 1, 2, 3, 4, or 5 to increase size.
Escape exits the program.