Tier 1 example from the AppGameKit help page...
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
Prove Your Worthiness
KG2Entertainment.com
