home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NANNWS33.ARC / CALLF.PRG next >
Encoding:
Text File  |  1988-11-01  |  486 b   |  36 lines
  1. * Program: Callf.prg
  2. * Author:  Timothy Wong
  3. * Version: Clipper Summer '87
  4. * Note(s):
  5. *
  6. * Copyright (c) 1988 Nantucket Corp.
  7.  
  8. * Main Program
  9. CLEAR
  10. CallProc("Proc1")
  11. CallProc("Proc2")
  12. CallProc("Proc3")
  13. RETURN
  14.  
  15.  
  16. FUNCTION CallProc
  17. PARAMETERS UFunc
  18. TempMacro = "&UFunc" + "()"
  19. RetVal = &TempMacro.
  20. RETURN(RetVal)
  21.  
  22. FUNCTION Proc1   
  23. ? "I am UDF # 1"
  24. RETURN(.T.)
  25.  
  26. FUNCTION Proc2
  27. ? "I am UDF # 2"
  28. RETURN(.T.)
  29.  
  30. FUNCTION Proc3
  31. ? "I am UDF # 3"
  32. RETURN(.T.)
  33.  
  34.  
  35.  
  36.