// Simple expression statements x := 15.9 + 82*i; y := 17.3 -14.9*i; z := x+y; xr := real(x); xi := imag(x); xc := conj(x); norm := sqrt(x*conj(x)); dump x, xr, xi, xc, norm; print "x := " + x + ", y := " + y + ", x + y := "+ (x + y) + "\n"; dump x, y, z; test1 := x/x; test2 := (x*(y/x))/y; dump test1, test2; k := 0; for k := 0 to 6 do dump k; x := x+ y; difference := x - y; product := x*y; quotient := x/y; power := x**-3; dump x, y, difference, product, quotient, power; pi := 3.1415927; log1 := log(power); power1 := exp(log1); log2 := -3*log(x); power2 := exp(log2); dump log1, log2; l1ml2 := log1 - log2; l1ml2s2p := l1ml2/(2*pi); dump l1ml2, l1ml2s2p; dump power1, power2; xyz := xyz - 47; uvw := uvw shr 2; // Comparisons xLTz := 0; xGTz := 0; xLEz := 0; xGEz := 0; xEQz := 0; xNEz := 0; if x = z then xEQz := 1; if x <> z then xNEz := 1; if x = y then xEQy := 1; else xEQy := -1; if x <> y then xNEy := 1; else xNEy := -1; if product = quotient then t2y := 1; else t2y := -1; if (product = quotient) or (real(x) > real(y)) then t2z := 1; else t2z := -1; t2xa := -1; if real(x) > real(y) then t2xa := 1; t2ya := -1; if product = quotient then t2ya := 1; t2za := -1; if (product = quotient) or (real(x) > real(y)) then t2za := 1; t2zb := -1; if (imag(x) > imag(y)) or (product = quotient) then t2zb := 1; t2zc := (product = quotient) or (imag(x) > imag(y)); t2zd := (imag(x) > imag(y)) or (product = quotient); // do while loop tenFactorial := 1; k := 0; repeat k := k+1; tenFactorial := tenFactorial *k; until k = 10; // while loops sum := 0; loopIndex := 0; while loopIndex < 10 do begin sum := sum + x; loopIndex := loopIndex + 1; end // for loops mean := 0; sumOfSquares := 0; index := 0; for index := 0 to 10 do begin mean := mean + index; sumOfSquares := sumOfSquares + index**2; end indexSummed := mean; mean := mean/index; sumOfSquares := sumOfSquares - index*mean**2; sigma := sqrt(sumOfSquares/index);