home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / NTXMETER.ZIP / SAMPLE.PRG < prev   
Encoding:
Text File  |  1989-11-27  |  907 b   |  31 lines
  1. *-------------------------------------------------------------------------
  2. * program : sample.prg
  3. * creator : bernard.ong
  4. * created : 11-25-89
  5. * updated : 11-27-89 -> pass key expression as variable, not as string
  6. * comment : short snip of code to show how NTXMETER is being implemented
  7. *-------------------------------------------------------------------------
  8. *
  9. * UDF's can be found in ntxmeter.ong file
  10. clear
  11. * must be set to 2 or 3
  12. set decimals to 2
  13. set cursor off
  14. *
  15. use <database>
  16. *
  17. * remember to activate decimal format on
  18. set fixed on
  19. * this draws the boxes and static labels; 20 is row # where moving bar will lie
  20. METERBOX (20)
  21. * pass the key expression; 20 is row # where moving bar will lie
  22. * e.g. index on ntxmeter (upper(company),20) to testfile
  23. index on NTXMETER (<keyexpression>,20) to <index filename>
  24. set fixed off
  25. *
  26. set cursor on
  27. quit
  28. *  
  29. *
  30. * eof: sample.prg
  31.