sample.tny

小型编译器,可以用于测试使用

int  A,B,C,D;                                                                                              
while A<C and B>D do                          
if A=1 	then 	A:= B*C+37 
else   repeat A:=A*2
until (A+C)<=(B+D)                      
end
end