BCX Console Demonstration Program s140.bas

CLS
COLOR 14, 0
LOCATE 1, 1
PRINT "ABC";
COLOR 7, 0
PRINT
PRINT "The ASCII Value of the Char at Y, X [1, 2] =", SCREEN(1, 2)
PRINT "The Color Attribute of Char at Y, X [1, 2] =", SCREEN(1, 2, 1)

Result:

ABC
The ASCII Value of the Char at Y, X [1, 2] = 66
The Color Attribute of Char at Y, X [1, 2] = 14