Запомнить меня на этом копьютере
Пример программы для функции Ptr.
{Ptr.PAS} { Пример программы для функции Ptr } Var P : ^Byte; Begin P:=Ptr($40, $49); WriteLn('Текущий видеорежим - ', P^); End.
Скачать ptr.pas