🚀 go-pugleaf

>I am trying to use the GetInt function in Simula, but seem to have some
>problems understanding its correct use. When running below program:
>
>begin
> text line;
> line :- Copy("1 2 3 4");
> OutInt(line.GetInt,4);
> OutImage;
> OutInt(line.GetInt,4);
> OutImage;
> OutInt(line.GetInt,4);
> OutImage;
> OutInt(line.GetInt,4);
> OutImage;
>end;
>
>I would expect to get
>
>   1
>   2
>   3
>   4
>
>as output, but get
>
>   1
>   1
>   1
>   1
>
>instead!
>
>Any ideas where I go wrong?
>
>Thanks,
>Albert

GetInt always starts at pos 1 in the text. So you have to use Sub to make a
sub text of "line" or use InInt instead of Getint like:

begin ! Quick and Dirty;
 text line;
 Sysin.Image :- Copy("1 2 3 4");
 OutInt(InInt,4);
 OutImage;
 OutInt(InInt,4);
 OutImage;
 OutInt(InInt,4);
 OutImage;
 OutInt(InInt,4);
 OutImage;
end;

peter