home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / SAMPLE / SALEMENU.PRG < prev    next >
Encoding:
Text File  |  1989-11-07  |  800 b   |  27 lines
  1. * ┌─────────────────────────────────────────────────────────────────────┐ *
  2. * │  PROG NAME: SALEMENU.PRG  Salesrep submenu called by main menu      │ *
  3. * │  Copyright (c) 1989 Tech III, Inc. All rights reserved.             │ *
  4. * │  Tech III of San Pedro, California      (213) 547-2191.             │ *
  5. * │  "The bridge connecting people and technology."(tm)                 │ *
  6. * └─────────────────────────────────────────────────────────────────────┘ *
  7.  
  8. SET TOPIC TO 'SALES REPS'
  9. STORE BAR() TO choice
  10. HIDE POPUP salespop
  11. DO CASE
  12.   CASE choice = 1
  13.     ACTIVATE WINDOW working
  14.     DO sales
  15.   CASE choice = 2
  16.     ACTIVATE WINDOW working
  17.     DO salelist
  18. ENDCASE
  19. CLEAR
  20. DEACTIVATE WINDOW working
  21. SET TOPIC TO 'MASTER MENU'
  22. SHOW POPUP salespop
  23. HIDE WINDOW ALL
  24. RETURN
  25. * eof  
  26. *
  27.