Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!uwm.edu!rutgers!mephisto!bloom-beacon!eru!luth!sunic!mcsun!cernvax!chx400!ethz!ethz-inf!pseemann
From: pseemann@inf.ethz.ch (Patrick Seemann)
Newsgroups: comp.lang.modula2
Subject: Re: Why are the loops so awkward?
Message-ID: <26406@ethz-inf.UUCP>
Date: 14 Jun 90 09:19:43 GMT
References: <5377.26731960@puddle.fidonet.org>
Organization: Informatik ETH Zurich
Lines: 10

You may replace the FOR by a WHILE loop:

  n := Length (s);
  i := 0;
  WHILE (i < n) DO
    (* process s[i] *)
    INC (i);
  END (* WHILE *);

greetings, pat