Program Kaufhaus; (* weitere Prozeduren *)
 PROCEDURE EHE_DEN_HAUPTGANG_ENTLANG;
 BEGIN
 WHILE VORNE_FREI DO
 BEGIN
 IF RECHTS_FREI THEN
 BEGIN { ARBEITE_IM_SEITENGANG }
 GEHE_ZUM_VORRATSPLATZ;
 NIMM_VORRAT_MIT;
 FUELLE_DIE_REGALE_AUF;
 LEGE_DEN_REST_ZURUECK;
 GEHE_ZUM_HAUPTGANG_ZURUECK;
 END; { ARBEITE_IM_SEITENGANG }
 VOR;
 END;
 END; 

 BEGIN { KAUFHAUS }
 ARBEITSFELD(KAUFHAUS);
 GEHE_DEN_HAUPTGANG_ENTLANG;
 DREHE_UM;
 GEHE_DEN_HAUPTGANG_ENTLANG;
 DREHE_UM;
 END