Will blitz ever be able to load its own font ???

The font has to be where your program can find it.
Other than that it works just fine.

font=LoadFont("Blitz.fon",15,True,False,False)

DebugLog "font = " + font   ; Did the font load?

mywin=CreateWindow("blah",50,50,200,200,0,1)
mytext=CreateTextArea(0,0,200,200,mywin)
SetTextAreaFont(mytext,font)

AddTextAreaText mytext, "One"

AddTextAreaText mytext, Chr(10) + "Two"

Repeat
	Select WaitEvent()
		Case $803 : End
	End Select
Forever