Code: Select all
Procedure dd()
Labels(re)
EndProcedure
dd();will Goto re
re:
Code: Select all
Procedure dd()
Labels(re)
EndProcedure
dd();will Goto re
re:
Code: Select all
ppp=8
Prototype ABCD()
t=?AddBCD
Global AddBCD.ABCD = t
;AddBCD()
Procedure dd()
AddBCD()
EndProcedure
dd()
End
AddBCD:
Debug ppp
Code: Select all
ppp=8
Prototype ABCD()
t=?AddBCD
Global AddBCD.ABCD = t
;AddBCD()
Procedure dd()
AddBCD()
EndProcedure
dd()
Debug "end"
End
AddBCD:
Debug ppp
Debug "end Addbcd"
Code: Select all
8
end Addbcd