Cursor aus Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Mit der folgenden Befehlskette wird der blinkende Cursor ausgeschaltet.

Programm

program cursor_aus;
uses crt,dos;
var cursor:registers;
begin
cursor.ax := $0100;
cursor.cx := $2500;
intr($10,cursor);
textBackground(2);ClrScr;
Gotoxy(30,12);write('der Cursor ist weg !');
readln;
end.