You may find this helps ...
; Locate/Print workaround for Blitz+
Include "LocatePrint.bb"
Graphics 640,480,0,2
SetBuffer BackBuffer()
SetFont LoadFont("courier",24)
Locate 1,1 : Print "Blitz+ Locate/Print workaround"
Locate 10,8 : Print "Uses a standard graphics screen"
Locate 11,9 : Print "Same as Blitz2D / Blitz3D."
Locate 23,12 : Print "Press a key to end .."
Flip
WaitKey
End
The inlcude file
; Locate/Print for Blitz+
Global locateX,locateY
Function Locate(x,y)
locateX=(x-1)*StringWidth("W") : locateY=(y-1)*FontHeight()
End Function
Function Print(txt$)
Text locateX,locateY,txt$
End Function
|