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