QB64(3)

SCREEN 1
COLOR 10, 1
PSET (190, 120)
PSET (192, 122)
COLOR 10, 4
PSET (160, 120)
LINE -(190, 290)
CIRCLE (50, 50), 20
PAINT (55, 55)



SCREEN 2
WINDOW (-300, -100)-(300, 100)
PSET (-190, 20)
PSET (-192, 22)
PSET (-160, 20)
LINE -(190, 90)
CIRCLE (50, 50), 20
PAINT (55, 55)



 动画，移动的小球，并配乐
declare sub gameCircle
DIM gcircle%(300)
SCREEN 1
WINDOW (-10, -10)-(310, 190)
COLOR 10, 1
CALL gameCircle
GET (1, 1)-(26, 26), gcircle%()
CLS
FOR nowx = 15 TO 280 STEP 5
    FOR nowy = 15 TO 170 STEP 5
        PUT (nowx, nowy), gcircle%(), PSET
        SOUND 50, 1
        SLEEP (1)
        PUT (nowx, nowy), gcircle%(), XOR
    NEXT nowy
NEXT nowx
SUB gameCircle
CIRCLE (15, 15), 10
PAINT (15, 15)
END SUB



RANDOMIZE TIMER
FOR n% = 1 TO 10
    PRINT INT(RND * 1000) + 1
NEXT n%