heres a function I did. You can draw aligned text with it:
SuperStrict Rem The Draw Al Text Function :: Can be used just like drawtext EndRem Function DrawAlText(text$, x#, y#, w# = 0, h# = 0, xAl# = 0, yAl# = 0, xoff# = 0, yoff# = 0) Local tx#, ty# Select xAl Case 0 tx = x + xoff Case 1 tx = (x + (w / 2)) - (TextWidth(text) / 2) + xoff Case 2 tx = (w - TextWidth(text)) + xoff End Select Select yAl Case 0 ty = y + yoff Case 1 ty = (y + (h / 2)) - (TextHeight(text) / 2) + yoff Case 2 ty = (y + (h - TextHeight(text))) + yoff End Select DrawText text, tx, ty End Function Rem =========================================================================== D E M O =========================================================================== EndRem Graphics 800 , 600 Global curXAl#, curYAl# While Not KeyDown(KEY_ESCAPE) Cls If KeyHit(KEY_RIGHT) Then curXAl:+ 1; If curXAl > 2 Then curXAl = 0 If KeyHit(KEY_LEFT) Then curXAl:- 1; If curXAl < 0 Then curXAl = 2 If KeyHit(KEY_DOWN) Then curYAl:+ 1; If curYAl > 2 Then curYAl = 0 If KeyHit(KEY_UP) Then curYAl:- 1; If curYAl < 0 Then curYAl = 2 DrawAlText("Hello" , 0 , 0 , 800 , 600 , curXAl , curYAl , 0) Select curXAl Case 0 DrawAlText("X :: Left" , 10 , 10) Case 1 DrawAlText("X :: Center" , 10 , 10) Case 2 DrawAlText("X :: Right" , 10 , 10) End Select Select curYAl Case 0 DrawAlText("Y :: Top" , 10 , 20) Case 1 DrawAlText("Y :: Center" , 10 , 20) Case 2 DrawAlText("Y :: Bottom" , 10 , 20) End Select Flip Wend