Programmer 7500/MAX_PROGRAMMERS.iso/INFO/TURBOPAS/TPASBOOK.ZIP/PUSHPOP.PAS

Pascal/Delphi Source File | 1985-06-09 | 307 b | 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.