* added typecast to get it compiling again

docs/refex/ex59.pp

@@ -1,13 +1,16 @@
 Program Example59;
 
-{ Program to demonstrate the Ptr function. }
+{ Program to demonstrate the Ptr (compability) function. 
+}
 
-Var P : ^String;
+type pString = ^String;
+
+Var P : pString;
     S : String;
     
 begin
   S:='Hello, World !';
-  P:=Ptr(Seg(S),Longint(Ofs(S)));
+  P:=pString(Ptr(Seg(S),Longint(Ofs(S))));
   {P now points to S !}
   Writeln (P^);
 end.