Language:
Русский
English
{TrackCur.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the TrackCursor procedure.}
uses WinCrt;
var
x: integer;
begin
for x := 1 to 30 do
Write('Xx');
TrackCursor;
Readln;
end.
TrackCur.PAS |
Language: {TrackCur.PAS} uses WinCrt; var begin |
|
|