ptr.pas

Пример программы для функции Ptr.

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

Скачать ptr.pas