Setvirtualresolution(640,480) ResetTimer() text$="Example Text" CreateText(1,text$) SetTextSize(1,25) SetTextPosition(1,0,50) txtlength=GetTextLength(1) Repeat Printc ("Text Length is: ") Print(txtlength) Sync() Until Timer()>12 End