arith.tbc

run()
{
	int i;
	i = 3 + 5;
	print_int(i);
	print_int( 5 - 3);
	print_int( 3 * 5 );
	print_int( 3 - 5 * 20 / 4 + 1);
}

------------------
array_int.tbc

int a[10];

run()
{
	int b;
	int c[20];
	for (b=0;b<10;b=b+1) { 
	  a[b] = b * 2;
	  print_int(a[b]);
	}
	for (b=0;b<20;b=b+1) {
	  c[b] = b + 5;
	  print_int(c[b]);
	}
	for (b=0;b<10;b=b+1) {
	  print_int(c[b]-a[b]);
    }
}


----------------
array_shape.tbc

rectangle a[10];
ellipse e[10];
line l[10];

run()
{
	rectangle r;
	int b;
	for (b=0;b<9;b=b+1) { 
	  a[b] = R:{20+b*10 20+b*20 20+b*30 20+b*40};
	  e[b] = E:{10+b*2 20*b*5 b*3 b*4};
	  l[b] = L:{100+b*2 20*b*5 200+b 300+b*4};
	  print(a[b]);
	  print(e[b]);
	  print(l[b]);
	  r = a[b];
	  print_int(r.v1);
	}
	halt(5000);
}


----------------
dumpstack.tbc

run()
{
	int i;
	i = 99999;
	dumpstack();
}


-----------------
func1.tbc

func(int i)
{
	return i * 2;
}
	
run()
{
	int i;
	i = func(2);
	print_int(i);
}


------------------
hello.tbc

run()
{
	string s;
	s = S:{100 100 "hello"};
}


-------------------
if.tbc

run()
{
	int i;
	if (2 < 3)
	{
		i = 9000;
	}
	else 
	{
		i = 8000;
	}
	print_int(i);
}


----------------------
if2.tbc

run()
{
	if (0)
	{
		print_int(100);
	}
	else
	{
		print_int(111);
	}
}	



-------------------
memberin.tbc 

run()
{
	rectangle r;
	line l;
	ellipse e;
	r = R:{100 100 30 30};
	l = L:{200 100 20 30};
	e = E:{250 200 30 30};
	print_int(r.v1);
	print_int(e.v2);
	print_int(l.v3);
	print_int(r.v4);
}


--------------------
move.tbc

run()
{
	int i;
	rectangle r;
	i = 10 + 20;
	r = R:{ 100 200 100 100 };
	print(r);
	
	halt(2000);
	r -> { 300 10 };
	print(r);
	halt(3000);
	r => { i 0 };
	print(r);
	halt(5000);
}


---------------------
print.tbc

run()
{
	print_int(3);
}


--------------------
return1.tbc

retr()
{
	return(R:{100 100 200 200});
}
run()
{
	rectangle r;
	r = retr();
	print(r);
	halt(5000);
}


---------------------
return2.tbc

retr()
{
	return(R:{100 100 200 200});
}

rete()
{
	return(E:{100 200 50 50});
}

retl()
{
	return(L:{200 200 50 50});
}

reti()
{
	return(9);
}
run()
{
	rectangle r;
	r = retr();
	print(r);
	print(rete());
	print(retl());
	print_int(reti());
	halt(5000);
}

--------------------
return3.tbc

returni(int i)
{
	return (i * 2);
}
run()
{
	print_int(returni(7));
}
	

-----------------------
shape.tbc

run()
{
	rectangle r;	
	ellipse e;
	line l;
	r = R:{ 100 200 30 40 };
	e = E:{ 100 200 20 40 };
	l = L:{ 200 10 200 300 };
	print(e);
	print(r);
	print(l);
	halt(5000);
}


----------------------
string-test.tbc

run()
{
	string s;
	rectangle r;
	r = R:{ 100 100 100 100 };
	s = S:{ 100 200 "hi hi hi" };
	halt(1000);

	print(s);
	halt(1000);
	s=> {50 50};
	print(s);
	
	halt(5000);
	
}


---------------------
while.tbc

run()
{
	int i;	
	i = 0;
	while(i<5)
		{
			print_int(i);
			i = i + 1;
		}

}
