Contributor: FRANK DIACHEYSN
{
Coded By Frank Diacheysn Of Gemini Software
PROCEDURE CALLFUNCTION
Input......: UserRoutine = Pointer To The Routine To Call
: NA = String To Pass To
:
:
:
Output.....: None
:
:
:
:
Example....: PROCEDURE CALLME(Str:STRING);
: BEGIN
: WriteLn(Str);
: END;
:
: MyPointer := @CallMe;
: CallFunction(MyPointer,'Calling You!');
Description: Used To Call A Function Or A Procedure, Mainly A
: Procedure, Since Output Of The Function Can't Be
: Returned.
:
:
}
PROCEDURE CALLFUNCTION(UserRoutine:POINTER; NA:STRING);
PROCEDURE InsideCallFunction(NA:STRING);
INLINE( $FF/5ドルE/