home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / DBA1186.ZIP / ROI.PRG < prev    next >
Encoding:
Text File  |  1986-10-06  |  511 b   |  32 lines
  1. ERASE
  2. SET TALK OFF
  3. USE ROI
  4. EDIT 1
  5. REPL ALL ROI WITH (INC/COST)*100
  6. ERASE
  7. @ 2,1 SAY 'APPLN    COST   INC    ROI'
  8. ?
  9. LIST OFF
  10. RETURN
  11.  
  12. '
  13. @ 15,15 SAY '6  EXIT'
  14. @ 17,15 SAY 'SELECT ITEM'
  15. WAIT TO KEY
  16. DO CASE
  17.      CASE KEY='1'
  18.      DO ROI
  19.      CASE KEY='2'
  20.      DO MARG
  21.      CASE KEY='3'
  22.      DO DEPN
  23.      CASE KEY='4'
  24.      DO BKEV
  25.      CASE KEY='5'
  26.      DO EQTF
  27.      CASE KEY='6'
  28.      RETURN
  29. ENDCASE
  30. ENDDO
  31.  
  32.