pascal/trunk/for G.pas