Using the Screen function

[PhilOfPerth]

the only good reason to use screen 0 is for screen function

Thanks bplus. Screen  0 works for this example. But I need text and graphics, and this mode doesn't provide the features I need.
I want to use thiis font, and this screen size, and a set number of chars per line.. Then I need to look at a screen row and see 
what character is at position P of that row.

I think maybe the simplest way is to map the row, call it RefRow$(), then when chars are printed on it, place the char in this array.

Code: (Select All)

WWidth = 1120: WHeight = 820: Mode = 32: Size = 24
Screen _NewImage(WWidth, WHeight, Mode)
SetFont: f& = _LoadFont("C:\WINDOWS\fonts\courbd.ttf", Size, "monospace"): _Font f&
lhs = (_DesktopWidth - WWidth) / 2
_ScreenMove lhs, 86 ' centre display on screen
CPL = WWidth / _PrintWidth("X")
Print "cpl is"; CPL

Ref = 15: p = 40
Dim RefRow$(80): Locate Ref, p: Print "X": RefRow$(p) = "X"

Print RefRow$(40)

A bit simplistic, but it works ok. What do you think?