home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
PASCSRC.ZIP
/
PROCED5.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
441b
|
27 lines
(* Chapter 5 - Program 5 *)
program Procedure_Calling_A_Procedure;
procedure One;
begin
Writeln('This is procedure one');
end;
procedure Two;
begin
One;
Writeln('This is procedure two');
end;
procedure Three;
begin
Two;
Writeln('This is procedure three');
end;
begin (* main program *)
One;
Writeln;
Two;
Writeln;
Three;
end. (* of main program *)