19 lines
651 B
Plaintext
19 lines
651 B
Plaintext
'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
|