12 lines
205 B
Text
12 lines
205 B
Text
Prototype.d func(*text$)
|
|
|
|
Procedure NumberTwo(arg$)
|
|
Debug arg$
|
|
EndProcedure
|
|
|
|
Procedure NumberOne(*p, text$)
|
|
Define MyFunc.func=*p
|
|
MyFunc(@text$)
|
|
EndProcedure
|
|
|
|
NumberOne(@NumberTwo(),"Hello Worldy!")
|