Path: utzoo!utgpu!news-server.csri.toronto.edu!qucdn!spraggej
Organization: Queen's University at Kingston
Date: Thursday, 25 Apr 1991 18:20:42 EDT
From: John G. Spragge <SPRAGGEJ@QUCDN.QueensU.CA>
Message-ID: <91115.182043SPRAGGEJ@QUCDN.QueensU.CA>
Newsgroups: comp.lang.pascal
Subject: Re: Messy Stuff
References:  <1991Apr17.235717.7580@cs.mcgill.ca>

Assume your procedures are called first, second, third, etc.,
try the following:

VAR
   cc    :   INTEGER;               { counter }
   err   :   BOOLEAN;               { error flag }

BEGIN
   err := false;
   FOR cc := 1 TO 5 DO
       IF NOT err THEN
           CASE cc OF
               1 : first (err);
               2 : second (err);
               3 : third (err);
               4 : fourth (err);
               5 : fifth (err);
           END;
END.