home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / ronheb.zip / GETHEB.PRG next >
Text File  |  1988-03-22  |  497b  |  32 lines
  1.  
  2.  
  3. parameters hrow,hcol,hvar,hvld
  4. private crhcount
  5.  
  6. rhcount=rhcount+1
  7. crhcount=ltrim(str(rhcount))
  8.  
  9. public rhn&crhcount
  10.  
  11. rhrow[rhcount]=hrow
  12. rhcol[rhcount]=hcol+len(&hvar)-1
  13. rhvar[rhcount]=hvar
  14. if pcount()=4
  15.    rhvld[rhcount]=hvld
  16. else
  17.    rhvld[rhcount]=".T."
  18. endif
  19. rhn&crhcount=""                &&  ALL THESE MUST BE PUBLIC
  20.  
  21. @ hrow,rhcol[rhcount] get rhn&crhcount valid rhebvld()
  22. rhcolor = setcolor()
  23. rhcolour()
  24. @ hrow,hcol say &hvar
  25. setcolor(rhcolor)
  26.  
  27. return
  28.  
  29.  
  30.  
  31.  
  32.