39 lines
832 B
Text
39 lines
832 B
Text
|
% a test of most of the features of the langauge the program itself
|
||
|
|
% is totally meaningless, but should print out "42.000000" at the end.
|
||
|
|
% if you get 42, there's a good chance you did everything right!
|
||
|
|
|
||
|
|
real_87_varNAME := 2.0 * (12.0 - 6.0) + 4.5;
|
||
|
|
X2222 := (real_87_varNAME - 1/2) / 4.0;
|
||
|
|
if 3 < 4 && 5 != 6 then
|
||
|
|
_a := 5;
|
||
|
|
else
|
||
|
|
_a := 17;
|
||
|
|
if 3 >= 3.01 || 5 == 7 then
|
||
|
|
X2222 := X2222 + 10;
|
||
|
|
if _a > X2222 then NUM := X2222 * _a;
|
||
|
|
i := 70;
|
||
|
|
while i > 0 do begin
|
||
|
|
NUM := NUM + 1;
|
||
|
|
i := i - 7;
|
||
|
|
end
|
||
|
|
if !!!(i != 0) then NUM := NUM + 2;
|
||
|
|
while NUM < 10 do NUM := NUM + 1;
|
||
|
|
if NUM > 20 then
|
||
|
|
if NUM > 30 then
|
||
|
|
if NUM > 40 then
|
||
|
|
NUM := NUM - 10;
|
||
|
|
else
|
||
|
|
NUM := NUM + 5;
|
||
|
|
else begin
|
||
|
|
NUM := real_87_varNAME - NUM;
|
||
|
|
end
|
||
|
|
NUM := NUM - .5;
|
||
|
|
begin
|
||
|
|
a := 0-2;
|
||
|
|
a := a + 3;
|
||
|
|
NUM := NUM + a;
|
||
|
|
end
|
||
|
|
print NUM + (6 - 1 - 1) + .5;
|
||
|
|
|
||
|
|
|