home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FMW.LZH / FM_ISSUE.PRG < prev    next >
Encoding:
Text File  |  1992-11-09  |  310 b   |  20 lines
  1. FUNCTION fm_issue
  2.  
  3. foxmastdir= fm_locat()
  4. =sb_selec(foxmastdir,"articles")
  5.  
  6. select dist issuedate from articles into  array issue order by issuedate desc
  7.  
  8. fm_alen = alen(issue)
  9.  
  10. *dimension issue(fm_alen+1,1)
  11.  
  12. *result = ains(issue,1,1)
  13.  
  14. *if result = 1
  15. *  issue[1,1] = "   ALL  "
  16.   
  17. *endif
  18.  
  19.  
  20.