$i := 0; $j := 0; while $i < 5 do begin $i := $i+1; $j:=$j+2; $a[3/3+$i] := $j end; $d[1][1+1+1]:=$e+$ab+$c; $a:=0; if $a == 3 then begin $k := 2 end else begin $k := 67 end; echo $k+1; echo $a[0]; echo $a[1]; echo $a[2]; echo $a[3]; echo $a[4]; echo $i; echo $j; $k := 1; while $k < 2 do begin plot -20, 10, $y, sin($y*$k); plot -10, 10, sin($x*$k*2); plot $y, sin(-3*$y*$k); $k := $k+1 end; plotT $y,(sin ($y+$t))@48; $i := 0; while $i < 10 do begin $b [$i] := sin $i; $i := $i+1 end; $i := 0; while $i < 10 do begin echo $b [$i]; $i := $i+1 end; echo sum 1, 4, 2*$n; echo sum 1, 4, 2*$n endsum + 5

• yun7x1.zip
• yun7x1.tar.gz
• https://www.ituenix.de/compiler2021-08-23.zip
• https://www.ituenix.de/compiler2021-08-23.tar.gz