Terminal control/Cursor positioning: Difference between revisions

{{task|Terminal control}}

[[Terminal Control::task| ]]

=={{header|Ada}}==

 

 

procedure Cursor_Pos is

Ada.Text_IO.Set_Col(3);

Ada.Text_IO.Put("Hello");

 

=={{header|AutoHotkey}}==

{{works with|AutoHotkey_L}}

Remember that AHK is not built for the console, so we must call the WinAPI directly.

hConsole := DllCall( "GetStdHandle", int, STDOUT := -11 )

 

return out

return 0

 

=={{header|Axe}}==

Since the rows and columns are zero-indexed, we must subtract 1 from both.

 

=={{header|BASIC}}==

 

 

 

 

 

110 print chr$(14) :rem go to position 1,1

120 print:print:print:print

 

=={{header|Befunge}}==

Assuming a terminal with support for ANSI escape sequences.

 

=={{header|Blast}}==

.begin

cursor 6,3

display "Hello!"

return

 

=={{header|C}}/{{header|C++}}==

int main()

{

printf("\033[6;3HHello\n");

return 0;

 

The C version of the minesweeper game uses curses.

 

On Windows, using console API:

 

int main() {

WriteConsole(hConsole, "Hello", 5, NULL, NULL);

return 0;

 

=={{header|C sharp|C#}}==

{{works with|Mono|1.2}}

{{works with|Visual C sharp|Visual C#|2003}}

{

Console.SetCursorPosition(3, 6);

Console.Write("Hello");

 

=={{header|COBOL}}==

PROGRAM-ID. cursor-positioning.

 

 

GOBACK

 

 

=={{header|D}}==

puts the cursor at line L and column C.

 

import std.stdio;

 

writef("\033[6;3fHello");

}

 

'''Output:'''

 

=={{header|Elena}}==

 

=={{header|Euphoria}}==

 

=={{header|F_Sharp|F#}}==

 

Console.SetCursorPosition(3, 6)

 

=={{header|Forth}}==

 

=={{header|Fortran}}==

===Intel Fortran on Windows===

use kernel32

implicit none

q = SetConsoleCursorPosition(hConsole, T_COORD(3, 6))

q = WriteConsole(hConsole, loc("Hello"), 5, NULL, NULL)

 

=={{header|Go}}==

===External command===

 

import (

cmd.Run()

fmt.Println("Hello")

===ANSI escape codes===

 

import "fmt"

func main() {

fmt.Println("\033[2J\033[6;3HHello")

===Ncurses===

{{libheader|curses}}

 

import (

s.Println("Hello")

s.GetChar()

 

=={{header|Icon}} and {{header|Unicon}}==

If the OS has older termcap files, CUP is included with <tt>link ansi</tt>

writes(CUP(6,3), "Hello")

end

writes("\^[[",i,";",j,"H")

return

 

=={{header|J}}==

Using terminal positioning verbs of [[Terminal_control/Coloured_text#J]]

 

=={{header|Kotlin}}==

{{Works with|Ubuntu|14.04}}

 

fun main(args: Array<String>) {

print("\u001Bc") // clear screen first

println("\u001B[6;3HHello")

 

=={{header|Lasso}}==

 

 

=={{header|Logo}}==

You can also draw positioned text on the turtle graphics window.

setxy 20 30 ; alternate way to set position

 

 

 

 

#directory "+ANSITerminal"

#load "ANSITerminal.cma"

Trm.set_cursor 3 6;

Trm.print_string [] "Hello";

 

=={{header|Pascal}}==

program cursor_pos;

uses crt;

write('Hello');

end.

 

=={{header|Perl}}==

Using the Term::Cap module:

use Term::Cap;

 

print $t->Tgoto("cm", 2, 5); # 0-based

print "Hello";

 

 

 

=={{header|PicoLisp}}==

 

=={{header|PowerShell}}==

The following will only work in the PowerShell console host. Most notably it will not work in the PowerShell ISE.

Alternatively, in any PowerShell host that uses the Windows console, one can directly use the .NET <code>Console</code> class:

 

=={{header|Python}}==

On Windows it needs to import and init the [http://code.google.com/p/colorama/ colorama] module first.

 

ANSI sequences are not recognized in Windows console, here is a program using Windows API:

 

 

STD_OUTPUT_HANDLE = -11

windll.kernel32.WriteConsoleA(h, c_char_p(c), len(c), None, None)

 

 

=={{header|Racket}}==

#lang racket

(require (planet neil/charterm:3:0))

(charterm-cursor 3 6)

(displayln "Hello World"))

 

=={{header|REXX}}==

{{works with|PC/REXX, Personal REXX}}

 

 

 

 

 

=={{header|Ruby}}==

{{libheader|curses}}

 

Curses.init_screen

ensure

Curses.close_screen

 

=={{header|Seed7}}==

''SetPos'' is based on terminfo respectively the Windows console API.

 

include "console.s7i";

 

# the program waits until Return/Enter is pressed.

readln;

 

=={{header|Tcl}}==

 

=={{header|UNIX Shell}}==

 

# number to obtain correct positioning.

 

=={{header|Whitespace}}==

Using ANSI escape sequence, where ESC[y;xH moves curser to row y, col x (see below):

 

 

This solution was generated from the following pseudo-Assembly.

push "[6;3H"

push 27 ;ESC

 

1:

 

=={{header|XPL0}}==

 

[Cursor(2, 5); \3rd column, 6th row

Text(0, "Hello"); \upper-left corner is coordinate 0, 0

 

=={{header|zkl}}==

{{trans|C/C++}}

Using ANSI escape sequence, where ESC[y;xH moves curser to row y, col x:

 

{{omit from|ACL2}}