home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
PASCSRC.ZIP
/
POINT4.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
599b
|
26 lines
(* Chapter 12 - Program 2 *)
program TURBO_4_Pointer_Example;
type Int_Point = ^Integer;
var Index : Integer;
Where : ^Integer;
Who : ^Integer;
Pt1, Pt2, Pt3 : Int_Point;
begin
Index := 17;
Where := @Index;
Who := @Index;
Writeln('The values are ',Index:5,Where^:5,Who^:5);
Where^ := 23;
Writeln('The values are ',Index:5,Where^:5,Who^:5);
Pt1 := @Index;
Pt2 := Pt1;
Pt3 := Pt2;
Pt2^ := 151;
Writeln('The Pt values are',Pt1^:5,Pt2^:5,Pt3^:5);
end.