home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / CLIPUDF.ARC / CLR.PRG < prev    next >
Encoding:
Text File  |  1986-02-04  |  1.4 KB  |  44 lines
  1. *Function....:CLR()
  2. *Syntax......:CLR(expN,expN)
  3. *Parameters..:row,col
  4. *Returns.....:null
  5. *Notes.......:@ row, col CLEAR does not perform as documented.
  6. * It should clear a corner described by the row and column
  7. * coordinates.  Clipper, however starts at the described row and
  8. * column and clears everything to the end of screen.  This
  9. * function will simulate the CLEAR command as documented.
  10. * Since the purpose of a function is to return a value and what we
  11. * really want here is to DO something, this should more properly
  12. * be written as a procedure.  This is provided purely as an
  13. * example of the enormous versatility of user defined functions.
  14. * Since a function MUST return a value, CLR() returns null string.
  15. * Call the function by with a question mark.
  16. *   ? CLR(row,col)
  17. * If used as a procedure, you don't have to worry about any
  18. * of that (but then we wouldn't have a function example).
  19. * Following are the two ways.  Take your pick.
  20.  
  21. *    FUNCTION EXAMPLE
  22. FUNCTION clr
  23. PARAM row,col
  24. *
  25. FOR f_row = row to 23
  26.     @ f_row, col
  27. NEXT
  28. * Clear line 24 without scrolling...
  29. @ 24, col SAY SPACE(79 - col)
  30. RETURN ("")
  31. *
  32. *
  33. *    PROCEDURE EXAMPLE
  34. *    Syntax:  DO clr WITH row,col
  35. PROCEDURE clr
  36. PARAM row,col
  37. *
  38. FOR f_row = row to 23
  39.     @ f_row, col
  40. NEXT
  41. @ 24, col SAY SPACE(79 - col)
  42.  
  43. RETURN
  44.