Ptr.PAS

Language:
Русский
English

  {Ptr.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the Ptr function.}

 var P: ^Byte;
 begin
   P := Ptr($40, $49);
   Writeln('Current video mode is ', P^);
 end.

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //