Setvirtualresolution(640,480)

SetClearColor (255, 200, 100 )

//Create an array and store three words, one in each array element
Dim Words[2] as string = "App","Game","Kit"

//Create three text objects, each containing one of the words
//Randomly set the text size of each text object
//Set each text object to display black text

For i=0 to 2
    CreateText(i,Words[i])
    SetTextSize(i,Random(15,35))
    SetTextColor(i,0,0,0,255)
Next i

//Display one to the three words, and a random position and repeat 100 times
For i=1 to 100
    SetTextPosition(Random(0,2),Random(0,600),Random(0,400))
    sync()
    sleep(50)
Next i