<h1 id="locate">LOCATE</h1>

<p>LOCATE row, column</p>

<p>Moves the console (text-mode) cursor to the specified position.

<code>row</code> and <code>column</code> are in text-mode character

cells.</p>

<p>See AT for positioning the cursor in pixel.</p>

<h3 id="example-1">Example 1:</h3>

<pre><code>locate 5,7

print &quot;text at row 5 and column 7&quot;</code></pre>

<h3 id="example-2-print-text-always-in-center-of-window">Example 2:

Print text always in center of window</h3>

<pre><code>&#39; Define functions to calculate lines and columns

Def lines() = (Ymax + 1) \ Txth(&quot;x&quot;) &#39; maximum lines in window

Def columns() = (Xmax + 1) \ Txtw(&quot;x&quot;) &#39; maximum columns in window

&#39; Define functions to calculate position of text

Def center_line() = lines \ 2

Def center_column(text) = (columns \ 2) - (Len(text) \ 2)

&#39; attributes for printing text (ESCAPE codes):

Const ESC = Chr(27)

Const bold_on = ESC + &quot;[1m&quot; &#39; strong

Const bold_off = ESC + &quot;[21m&quot;

Const line_on = ESC + &quot;[4m&quot; &#39; underline

Const line_off = ESC + &quot;[24m&quot;

Const reve_on = ESC + &quot;[7m&quot; &#39; reverse

Const reve_off = ESC + &quot;[27m&quot;

&#39; colors for printing text:

Const WHITE = 7

Const BLACK = 0

Const YELLOW = 14

Const BLUE = 1

Const HELLO = &quot;* Hello World! *&quot; &#39; text to print.

&#39; loop until user press Esc key:

While Inkey &lt;&gt; Chr(27)

&#39; update screen if user resized the window:

If (x &lt;&gt; Xmax) Or (y &lt;&gt; Ymax) Then

Color WHITE, BLACK

Cls

Print Using &quot;Please resize window (Esc=Stop) 000:0000&quot;; lines(), columns();

&#39; Print hello world:

l = center_line()

c = center_column(HELLO)

Color YELLOW, BLUE

Locate l - 1, c: Print bold_on + HELLO + bold_off;

Locate l , c: Print reve_on + HELLO + reve_off;

Locate l + 1, c: Print line_on + HELLO + line_off;

&#39; remember current windows size:

x = Xmax

y = Ymax

Endif

Wend</code></pre>

<h3 id="example-3-print-ascii-table">Example 3: Print ASCII table</h3>

<pre><code>&#39; LOCATE MOD CHR ASC.bas SmallBASIC 0.12.2 [B+=MGA] 2016-03-23

&#39;

&#39; LOCATE row, column: sets the next print location on screen,

&#39; rows down, columns across

&#39; a MOD b : returns the remainder of a/b as integer 0 to b-1

&#39; for example odd number n mod 2 returns 1, whil

&#39; even number n mod 2 returns 0

&#39; n mod 10 returns 0,1,2,3,4,5,6,7,8 or 9

&#39; we will use this in demo

&#39; CHR(number) : returns the CHaRracter for the ASC number,

&#39; for demo we will print a chart of CHR for ASC

&#39; numbers 30-129

&#39; ASC(Character) : is a number code for a print characters, 32 is

&#39; the code for a space

&#39; ? : is shortcut for PRINT

&#39; RIGHT(string,n) : returns right most n characters of string

&#39; STR(n) : returns a number in string form

&#39; : : code statement seperator often used with

&#39; LOCATE row, column : ? string

LOCATE 1, 16 : ? &quot;ASC Table 30-129:&quot; &#39; locate print spot, print title for our chart

FOR column = 0 to 9 &#39; print a header, 10 numbers plus + (to add to row value)

LOCATE 2, column * 5 + 4 : ? &quot;+&quot;;column

NEXT

FOR row = 3 to 12

LOCATE row, 0 : ? RIGHT(&quot; &quot; + STR(row * 10) + &quot;:&quot;, 4)

NEXT

FOR ASCnumber = 30 to 129 &#39; note ASC(32) = space so wont see anything in Table

row = ASCnumber \ 10 &#39; \ rounds division down to integer

column = (ASCnumber MOD 10) * 5 + 5 &#39; times 5 to space out the characters printed plus 5 for column labels

LOCATE row, column : ? CHR(ASCnumber) &#39;&lt;=========== handy reference

NEXT</code></pre>