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)