function.txt

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;