Функции POS(), CSRLIN считывают позиции курсора, можно ещё через функцию DOS,
Далее читаем память по сегменту &HB800
Первый байт — ASCII код, второй — цвет и так по всем строкам экрана(в строке 80 символов).
DEF SEG = &HB800
sm% = 0 ' Смещение
A$ = CHR$(PEEK(sm%))
Тестирование выполнено в программе QB64 ( Скачать )