Terminal control/Positional read: Difference between revisions

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

{{works with|BBC BASIC for Windows}}

<lang bbcbasic> PRINT TAB(2,5) "Here"

char$ = GET$(2,5)

PRINT ''"Character at column 3 row 6 was " char$</lang>

{{works with|all BBC BASICs}} that support calling OSBYTE

<lang bbcbasic> PRINT TAB(2,5) "Here"

PRINT TAB(2,5); : REM Position cursor over character to read

A%=&87:char%=((USR&FFF4)AND&FF00)DIV256 : REM Ask operating system to read character

PRINT ''"Character at column 3 row 6 was CHR$(";char%;")"</lang>

==={{header|FreeBASIC}}===

The top Left corner Is at position 0,0

<lang freebasic>'Works on Windows. On Linux, the value returned can differ from the character shown on the console.

'For example, unprintable control codes - such as the LF character (10) that implicitly occurs

'after the end of Printed text - may be picked up instead of the untouched character in its place.

Print "T@4;4G,XIJ"

Print ">C+PE0)RM;"

Print "JEV6B/8E?H"

Print "FSC>41UIGR"

Print "V>41JMXMOW"

Print "IY0*KH6M;B"' Character at column 3, row 6 = 0

Print "-6<UL*>DU7"

Print "MZ))<5D:B8"

Print ".@UB/P6UQ)"

Print "<9HYH)<ZJF"

Dim As Integer char_ascii_value = Screen(6,3)

Locate 6, 14 : Print "Character at column 3, row 6 = "; Chr(char_ascii_value)

Sleep</lang>

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