H++编译器: 一个仿Pascal语言的编译器

				Program(Call,Dos.MZ);
				  Var(X,Byte,0);
				
				  Function Test(X:Byte,Y:Byte):Byte;
				    WriteLn('Inside procedure!');
				    Result = X + Y;
				  Return;
				Begin
				  WriteLn('Calling procedure...');
				  X = Test(X:2,Y:3) + $30;
				  Write('Return: '+X);
				  Wait;
				End;