call.txt

来自「一个编译器源代码。用法看里面的“使用说明”」· 文本 代码 · 共 13 行

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;