Terminal control/Cursor positioning: Difference between revisions

=={{header|AArch64 Assembly}}==

{{works with|as|Raspberry Pi 3B version Buster 64 bits}}

/* ARM assembly AARCH64 Raspberry PI 3B */

/* program cursorPos64.s */

/* for this file see task include a file in language AArch64 assembly */

.include "../includeARM64.inc"

=={{header|Action!}}==

Position(3,6)

Print("Hello")

{{out}}

[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Cursor_positioning.png Screenshot from Atari 8-bit computer]

=={{header|Ada}}==

 

 

procedure Cursor_Pos is

Ada.Text_IO.Set_Col(3);

Ada.Text_IO.Put("Hello");

 

=={{header|ARM Assembly}}==

{{works with|as|Raspberry Pi}}

 

/* ARM assembly Raspberry PI */

bx lr @ return

 

 

=={{header|Arturo}}==

 

 

=={{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|BaCon}}==

GOTOXY 3,6

The X Y in <code>GOTOXY</code> is Column Row order.

 

 

==={{header|Applesoft BASIC}}===

 

==={{header|IS-BASIC}}===

 

==={{header|Locomotive Basic}}===

 

==={{header|ZX Spectrum Basic}}===

20 REM So we subtract one from the coordinates

 

==={{header|BBC BASIC}}===

 

==={{header|Commodore 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|Common Lisp}}==

==={{header|ncurses}}===

To interface the ncurses C library from Lisp, the ''croatoan'' library is used.

(with-screen (scr :input-blocking t :input-echoing nil :cursor-visible nil)

(move scr 5 2)

(refresh scr)

;; wait for keypress

 

=={{header|D}}==

puts the cursor at line L and column C.

 

import std.stdio;

 

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

}

 

'''Output:'''

=={{header|Elena}}==

ELENA 4.x :

{

console.setCursorPosition(3,6).write("Hello")

 

=={{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|FreeBASIC}}==

 

 

=={{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|Julia}}==

 

gotoANSI(x, y) = print("$ESC[$(y);$(x)H")

gotoANSI(3, 6)

println("Hello")

 

=={{header|Kotlin}}==

{{Works with|Ubuntu|14.04}}

 

fun main(args: Array<String>) {

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

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

 

=={{header|Lasso}}==

 

 

=={{header|Liberty BASIC}}==

print "Hello"

 

=={{header|Logo}}==

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

setxy 20 30 ; alternate way to set position

 

=={{header|Mathematica}}/{{header|Wolfram Language}}==

 

=={{header|Nim}}==

setCursorPos(3, 6)

 

=={{header|NS-HUBASIC}}==

 

=={{header|OCaml}}==

Using the library [http://forge.ocamlcore.org/projects/ansiterminal/ ANSITerminal]:

 

#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|Phix}}==

<span style="color: #008080;">without</span> <span style="color: #008080;">js</span> <span style="color: #000080;font-style:italic;">-- position</span>

<span style="color: #7060A8;">position</span><span style="color: #0000FF;">(</span><span style="color: #000000;">6</span><span style="color: #0000FF;">,</span><span style="color: #000000;">3</span><span style="color: #0000FF;">)</span>

<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Hello"</span><span style="color: #0000FF;">)</span>

 

=={{header|PHP}}==

echo "\033[".$x.",".$y."H"; // Position line $y and column $x.

echo "\033[".$n."A"; // Up $n lines.

echo "\033[".$n."D"; // Backward $n columns.

echo "\033[2J"; // Clear the screen, move to (0,0).

 

=={{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|PureBasic}}==

ConsoleLocate(3,6)

 

=={{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|Quackery}}==

 

$ 'print("\033[' rot join

char ; join

python ] is cursor-at ( x y --> )

 

 

=={{header|Racket}}==

#lang racket

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

(charterm-cursor 3 6)

(displayln "Hello World"))

 

=={{header|Raku}}==

(formerly Perl 6)

Assuming an ANSI terminal:

 

=={{header|Retro}}==

 

=={{header|REXX}}==

<br>added the functionality via different methods &nbsp; (such as functions and/or subroutines).

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

 

call cursor 3,6 /*move the cursor to row 3, column 6. */

 

call scrwrite 40,60,'Hello.',,,14 /*another method ... in yellow. */

 

=={{header|Ring}}==

# Project : Terminal control/Cursor positioning

 

next

see " Hello"

Output:

<pre>

=={{header|Ruby}}==

{{libheader|curses}}

 

Curses.init_screen

ensure

Curses.close_screen

 

=={{header|Scala}}==

{{Works with|Ubuntu|14.04}}

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

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

 

=={{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|Wren}}==

 

=={{header|Z80 Assembly}}==

Uses Amstrad CPC, but other machines with similar terminal functions can do the job. (The BIOS calls will be different however.)

call &BB75 ;set text cursor according to HL

 

call &BB5A ;print accumulator as an ascii char to screen

inc hl ;next char

 

 

{{trans|C/C++}}

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

 

{{omit from|ACL2}}