🚀 go-pugleaf

> What's wrong with this one?
>
>       label 1,2;
>       var i: integer;
>       ...
>       i :=1 ;
>       while i<=1000 do
>               if x[i] = 0 then goto 1
>               else i := i+1;
>
>       writeln('not found');
>       goto 2;
> 1:      writeln('zero at location', i )
> 2:      ...
>
>                 Martin Smith

"...avoid the use of jumps to express regular iterations and conditional
execution of statements, for such jumps destroy the reflection of the
structure of computation in the textual (static) structure of the program."

                        Pascal User Manual and Report, p. 32
--
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
Dave Haynie    {caip,ihnp4,allegra,seismo}!cbmvax!daveh

        "I don't feel safe in this world no more,
         I don't want to die in a nuclear war,
         I want to sail away to a distant shore
         And live like an ape man."
                                -The Kinks

        These opinions are my own, though for a small fee they be yours too.
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/