home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / SAMPLE / PMTSMENU.PRG < prev    next >
Encoding:
Text File  |  1989-11-07  |  703 b   |  23 lines
  1. * ┌─────────────────────────────────────────────────────────────────────┐ *
  2. * │  PROG NAME: PMTSMENU.PRG  Payments 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 'PAYMENTS'
  9. STORE BAR() TO choice
  10. HIDE POPUP pmtpop
  11. DO CASE
  12.   CASE choice = 1
  13.     DO payments
  14.   CASE choice = 2
  15.     DO  payjourn
  16. ENDCASE
  17. SET TOPIC TO 'MASTER MENU'
  18. SHOW POPUP pmtpop
  19. HIDE WINDOW ALL
  20. RETURN
  21.  
  22. * EOF
  23.