Path: utzoo!censor!geac!torsqnt!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!julius.cs.uiuc.edu!psuvax1!psuvm!cunyvm!ndsuvm1!bj020000
From: BJ020000@NDSUVM1.BITNET (Dave Mueller)
Newsgroups: comp.lang.modula2
Subject: Need Help With 'BY'
Message-ID: <91003.102704BJ020000@NDSUVM1.BITNET>
Date: 3 Jan 91 16:27:04 GMT
Organization: North Dakota Higher Education Computer Network
Lines: 23


I'm trying to write a FOR loop that needs a 'nonconstant' BY, for example:

IF Case = 1 THEN
   Begin := 0;
   End := Length(Line)-1;
   By := 1;
ELSE
   Begin := Length(Line)-1;
   End := 0;
   By := -1;
END;

FOR Loop := Begin TO End BY By DO
etc..


Any suggestions as to how I go about doing this in a FOR Loop???  Or am I gonna
end up doing it some other way??

Thanx much!

Dave Mueller