Terminal control/Cursor positioning: Difference between revisions
Content deleted Content added
Added Icon/Unicon |
m +Fortran on Windows |
||
Line 110: | Line 110: | ||
=={{header|Forth}}== |
=={{header|Forth}}== |
||
<lang forth>2 5 at-xy ." Hello"</lang> |
<lang forth>2 5 at-xy ." Hello"</lang> |
||
=={{header|Fortran}}== |
|||
===Intel Fortran on Windows=== |
|||
<lang fortran>program textposition |
|||
use kernel32 |
|||
implicit none |
|||
integer(HANDLE) :: hConsole |
|||
integer(BOOL) :: q |
|||
hConsole = GetStdHandle(STD_OUTPUT_HANDLE) |
|||
q = SetConsoleCursorPosition(hConsole, T_COORD(3, 6)) |
|||
q = WriteConsole(hConsole, loc("Hello"), 5, NULL, NULL) |
|||
end program</lang> |
|||
=={{header|Go}}== |
=={{header|Go}}== |