Есть два пути: 1. Изменять шрифт системно с помощью функции SetFont
Code
Global fntArial,fntArialB,fntArialI,fntArialU
fntArial=LoadFont("Arial",24)
fntArialB=LoadFont("Arial",18,True)
fntArialI=LoadFont("Arial",32,False,True)
fntArialU=LoadFont("Arial",14,False,False,True)
SetFont fntArial
Text 400,0,"This is just plain Arial 24 point",True
SetFont fntArialB
Text 400,30,"This is bold Arial 18 point",True
SetFont fntArialI
Text 400,60,"This is italic Arial 32 point",True
SetFont fntArialU
Text 400,90,"This is underlined Arial 14 point",True
While Not KeyHit(1)
2. Во втором варианте использовать специальную картинку-текстуру со своим шрифтом. Но в этом случае прийдется писать функцию обработки, хотя есть большой плюс - пойдет любой шрифт и нет проблем с киррилицей
"алгоритм