Dim x As Long
FF_SetConsoleSize(26, 100)
FF_SetConsoleName ("My Console Title")
FF_Color(15,1)
FF_CLS
For x = 1 To 100
FF_Locate(1,1)
FF_StdOut("---------1---------2---------3---------4---------5---------6---------7---------8---------9---------1")
Next
For x = 2 To 26
FF_Locate(x,1)
FF_StdOut("Line " & Str$(x))
Next
FF_WaitKey