home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
PASSRC.ZIP
/
PERSON.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-04
|
443b
|
25 lines
(* Chapter 15 - Program 4 *)
unit Person;
interface
type
Person_ID = object
Name : string[30];
Salary : integer;
constructor Init;
procedure Display; virtual;
end;
implementation
constructor Person_ID.Init;
begin
end;
procedure Person_ID.Display;
begin
WriteLn('Error - this procedure should never be called.');
end;
end.