home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / DBA1186.ZIP / MENU.PRG < prev    next >
Encoding:
Text File  |  1986-10-06  |  511 b   |  27 lines
  1. ERASE
  2. @ 2,30 SAY 'MAIN MENU'
  3. @ 5,15 SAY '1  ROI  '
  4. @ 7,15 SAY '2  MARG   '
  5. @ 9,15 SAY '3  DEPN'
  6. @ 11,15 SAY '4  BKEV'
  7. @ 13,15 SAY '5  EQTF'
  8. @ 15,15 SAY '6  EXIT'
  9. @ 17,15 SAY 'SELECT ITEM'
  10. WAIT TO KEY
  11. DO CASE
  12.      CASE KEY='1'
  13.      DO ROI
  14.      CASE KEY='2'
  15.      DO MARG
  16.      CASE KEY='3'
  17.      DO DEPN
  18.      CASE KEY='4'
  19.      DO BKEV
  20.      CASE KEY='5'
  21.      DO EQTF
  22.      CASE KEY='6'
  23.      RETURN
  24. ENDCASE
  25. ENDDO
  26.  
  27.