home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
CPM
/
TURBOPAS
/
TP-UTIL.ARK
/
PUSHPOP.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1986-01-06
|
384b
|
21 lines
PROGRAM PUSHPOP;
CONST LEVELS = 5;
VAR DEPTH : INTEGER;
PROCEDURE DIVE(VAR DEPTH : INTEGER);
BEGIN
WRITELN('Push!');
WRITELN('Our depth is now: ',DEPTH);
DEPTH := DEPTH + 1;
IF DEPTH <= LEVELS THEN DIVE(DEPTH);
WRITELN('Pop!')
END;
BEGIN
DEPTH := 1;
DIVE(DEPTH)
END.