(AGK version: 108.13)
Submitted: 2013-06-15 02:51:06
//Define the Horizontal and Vertical Resolution
hres=640
vres=480
Setvirtualresolution(hres,vres)
SetClearColor (0, 200, 100 )

//Create Text Object and Set Text,Size,Font Color
CreateText(100,"Loading Data, Please Wait...")
SetTextSize(100,25)
SetTextColor(100,0,0,0,255)
//Set Text Position in the centre of the screen
SetTextPosition(100,hres/2-GetTextTotalWidth(100)/2,vres/2)

//Keep the text on screen until a process has been completed
IsDataLoaded=0
Repeat
    If Timer()>8 then IsDataLoaded=1
    Sync()
Until IsDataLoaded=1

//Delete the Text Object as it is no longer needed
DeleteText(100)

End
Help make AGK better by submitting an example for this command!
(All examples are subject to approval)
Login to post an example of your own.