
Cint	test;
Cflt	tflt;
Cstr	tstr;
Cfunc	blop( Cint, Cstr, Cflt );
Cfunc	blop2( Cint, Cstr, Cflt ) returns Cstr;

on mouseUp
{
	-- a comment
	-- ask	"Why?" with "good" and "bad"
	if( var1<var2 ) { put var1 into a; put var2 into it; }
	else if( var2>var1 ) { send "howdy" to me; }
	else { put 0 into it; }
	repeat { put 3 into a; put ((a+(3*14))/2) into a; } while (a<5);
	put it into a;
	put (2*b) into a;
	put "hello" into a;
	repeat while (a<5) { put 3 into a; put (a+3) into a; }
	send killme to thisPackage;
}

on test
{
	put (36*2) into a;
	put (a*0.25) into b;
	put (b<20) into d;
	put d into c;
	if( c )
	{
		put "yes, b<20" into c;
	}
	else
	{
		put "no, b>=20" into c;
	}
	put ((a+(3*14))/2) into a;
}

on tstring
{
	put ("hello " & 3) into s;
	put (s & " there") into t;
}

on trepeat
{
	put 0 into i;
	put 0 into sum;
	repeat while (i<5)
	{
		put ( sum + (i*i) ) into sum;
		put (i+1) into i;
	}
}

on tstatic
{
	static a;
	put (a+1) into a;
}

