Всем доброго времени суток!
Возник вопрос по Паскалю. Есть процедура перемещения курсора
Код:
GotoXY(X,Y)
. Существует ли процедура управления отображением курсора?
Например, в Бейсик Корвет 2.0 есть команда
Код:
LOCATE X,Y,C
, где X - координата по горизонтали, Y - по вертикали, C - отображение курсора (0 - нет, 1 - да).
Частично вопрос для себя решил (в одном примере видел), можно вываливать в консоль управляющие коды или ESC-коды, но как-то оно "не комильфо"..

Скрытый текст

Код:
УПРАВЛЯЮЩИЕ			ДЕЙСТВИЕ
 СИМВОЛЫ:


01H,X,Y =>	Перемещение курсора в позицию с номером строки
		(x-20h) и номером столбца (y-20h)
04H =>		Стирание  символов от позиции курсора до конца
                экрана
07H =>		Выдача звукового сигнала
08H =>		Возврат курсора на одну позицию назад
0АH =>		Перемещение  курсора в начало следующей строки
                (с роллингом)
0BH =>		Удаление  строки,  на которой находится курсор
                (оставшиеся до конца экрана строки  сдвигаются
                вниз, последняя строка пропадает)
0CH =>		Перемещение  курсора  в  первую позицию первой
                строки экрана
0DH =>		Перемещение  курсора  в первую позицию текущей
                строки
10H,X =>	Символ  x  выводится  на  экран и не считается
                управляющим символом
15H =>		Стирание символов от позиции  курсора до конца
		строки
18H =>		Перемещение курсора вправо
19H =>		Перемещение курсора вверх
1AH =>		Перемещение курсора вниз
1CH =>		Вставка  пробела  на  место  курсора  (остаток
                строки  сдвигается  вправо,  последний  символ
                строки пропадает)
1DH =>		Удаление  символа  из позиции курсора (остаток
                строки сдвигается влево, в  последнюю  позицию
                строки заносится пробел)
1EH =>		Вставка   пустой   строки   на  место  курсора
                (оставшиеся до конца экрана строки  сдвигаются
                вверх,  на  место  последней  строки заносится
                пустая строка)
1FH =>		Очистка всего экрана

УПРАВЛЯЮЩИЕ			ДЕЙСТВИЕ
ПОСЛЕДОВА-
ТЕЛЬНОСТИ:

1BH,'0' =>	Включение     основного     набора    символов
                знакогенератора 
1BH,'1' =>	Включение   дополнительного   набора  символов
                знакогенератора
1BH,'2' =>	Включение нормальной ширины символов
1BH,'3' =>	Включение удвоенной ширины символов
1BH,'6' =>	Включение    режима   инверсного   отображения
                символов
1BH,'7' =>	Выключение   режима
                инверсного  отображения  символов
1BH,':' =>	Разрешение   отображения  курсора
1BH,';' =>	Запрет   отображения   курсора
1BH,'<' =>	Включение  режима  автоматического  перехода к
                новой  строке  экрана  по   достижению   конца
                текущей строки
1BH,'=' =>	Выключение  режима  автоматического перехода к
                новой  строке  экрана  по   достижению   конца
                текущей   строки   (переход   к  новой  строке
                выполняется только по управляющим символам)
1BH,'@' =>	Вставка  пробела  на  место  курсора  (остаток
                строки  сдвигается  вправо,  последний  символ
                строки пропадает)
1BH,'A' =>	Перемещение курсора вверх
1BH,'B' =>	Перемещение курсора вниз
1BH,'C' =>	Перемещение курсора вправо
1BH,'D' =>	Перемещение курсора влево
1BH,'E' =>	Очистка всего экрана
1BH,'F' =>	Перемещение курсора в начало следующей строки,
                а из последней строки экрана в первую
1BH,'G' =>	Перемещение курсора в начало текущей строки
1BH,'H' =>	Перемещение  курсора  в  первую позицию первой
                строки экрана
1BH,'J' =>	Стирание  символов от позиции курсора до конца
                экрана
1BH,'K' =>	Стирание  символов от позиции курсора до конца
                строки
1BH,'L' =>	Вставка   пустой   строки   на  место  курсора
                (оставшиеся до конца экрана строки  сдвигаются
                вниз, последняя строка пропадает)
1BH,'M' =>	Удаление  строки,  на которой находится курсор
                (оставшиеся до конца экрана строки  сдвигаются
                вверх,   на   место  последней  строки  экрана
                заносится пустая строка)
1BH,'P' =>	Удаление  символа  из позиции курсора (остаток
                строки сдвигается влево, в  последнюю  позицию
                строки заносится пробел)
1BH,'Y',X,Y =>	Перемещение курсора в позицию с номером строки
                (x-20h) и номером столбца (y-20h)
[свернуть]