Declare Function ClrEol(byVal FreeRows As Integer=-1) As String
Dim As Integer w, h, depth, bpp, pitch, rate, wi
wi=Width()
Dim Shared As Integer Columns, Rows
Columns=LoWord(wi)
Rows=HiWord(wi)
Dim As String driver
Screen(19)
Cls
Print "Tes";
ScreenInfo w, h, depth, bpp, pitch, rate, driver
Print "t"
Print "w="&w
Print "h=" & h
Print "depth=" &depth
Print "bpp=" & bpp
Print "pitch=" &pitch
Print "rate=" &rate
Print "driver=" &driver
Print "Text=" &Columns &"x" &Rows
Locate 1, Columns
Print "#";
Locate Rows\2, Columns\2
Print "x"
Locate Rows\2, 1
Print "Text";ClrEol
Locate 2, 5
Print ClrEol
Locate 15, 1

If wi<>0 Then Print "Not ";
Print "compiled with -s gui"
Print "Tested with FB 0.17f using FBIde 0.4.6"
GetKey

Function ClrEol(byVal FreeRows As Integer=-1) As String
  Dim As Integer t, x=CsrLin, y=Pos()', z=width()
  t=IIF(FreeRows<0, Columns-Pos()+1, FreeRows)
'  Locate x, y
'  ?String(LoWord(w)-Pos()+1, " ");
  Print String(t, " ");
  Locate x, y
  Return ""
End Function