QB64: screen saver di stelle colorate

Per creare uno screen saver di stelle colorate in QB64, è possibile seguire il seguente codice:

Screen 13
Cls
Dim X(255), Y(255)

For i = 0 To 255
    X(i) = Rnd * 640
    Y(i) = Rnd * 480
Next i

Do
    Cls

    For i = 0 To 255
        PSet (X(i), Y(i)), (Rnd * 15) + 1
        X(i) = X(i) + Rnd * 2 - 1
        Y(i) = Y(i) + Rnd * 2 - 1
    Next i

    _Limit 30
Loop While InKey$ = ""