home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / FIXEDFND.PRG < prev    next >
Encoding:
Text File  |  1994-01-11  |  1.6 KB  |  40 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: FIXEDFND.PRG                                         ⌐ª
  3. *⌐ª     Function: ╣╠╢¿╝∞╦≈│╠╨≥                                         ⌐ª
  4. *⌐ª        Proce: UNIT_FND.PRG     AGE_FND.PRG     PART_FND.PRG        ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK   OFF
  7. SET SAFETY OFF
  8. PUBLIC VA 
  9.  
  10. DEFINE POPUP fixed FROM 4,24 MARGIN MARK CHR(251) COLOR SCHEME 7
  11. DEFINE BAR  1 OF fixed PROMPT " \<     ╣╠╢¿╝∞╦≈▓╦╡Ñ      "  SKIP
  12. DEFINE BAR  2 OF fixed PROMPT "\-"
  13. DEFINE BAR  3 OF fixed PROMPT "\<1.       ░┤ ╡Ñ ╬╗ ╝∞ ╦≈"
  14. DEFINE BAR  4 OF fixed PROMPT "\<2. ░┤ ╡Ñ ╬╗.▓┐ ├┼ ╝∞ ╦≈"
  15. DEFINE BAR  5 OF fixed PROMPT "\<3.       ░┤ ─Ω ┴ε ╝∞ ╦≈"
  16. DEFINE BAR  6 OF fixed PROMPT "\<4. ░┤ ╨╨ ╒■ ╓░ ╬± ╝∞ ╦≈"
  17. DEFINE BAR  7 OF fixed PROMPT "\<5. ░┤ ╫¿ ╥╡ ╓░ ╬± ╝∞ ╦≈"
  18. DEFINE BAR  8 OF fixed PROMPT "\<6. ░┤ ╦∙ ╤º ╫¿ ╥╡ ╝∞ ╦≈"
  19. DEFINE BAR  9 OF fixed PROMPT "\<7. ░┤ ┤╙ ╩┬ ╣ñ ╫≈ ╝∞ ╦≈"
  20. DEFINE BAR 10 OF fixed PROMPT "\<8. ░┤ ╦∙ ╤º ═Γ ╙∩ ╝∞ ╦≈"
  21. DEFINE BAR 11 OF fixed PROMPT "\<9.       ╖╡ ╗╪ ╓≈ ▓╦ ╡Ñ"
  22.  
  23. ON SELECT  BAR  3 OF fixed DO UNIT_FND
  24. ON SELECT  BAR  4 OF fixed DO SUBROUTE    && ╬┤╠ß╣⌐╝∞╦≈╘┤│╠╨≥
  25. ON SELECT  BAR  5 OF fixed DO AGE_FND
  26. ON SELECT  BAR  6 OF fixed DO PART_FND
  27. ON SELECT  BAR  7 OF fixed DO SUBROUTE
  28. ON SELECT  BAR  8 OF fixed DO SUBROUTE
  29. ON SELECT  BAR  9 OF fixed DO SUBROUTE
  30. ON SELECT  BAR 10 OF fixed DO SUBROUTE
  31. ON SELECT  BAR 11 OF fixed DEACTIVATE POPUP fixed
  32. ACTIVATE POPUP fixed
  33. DEACTIVATE POPU fixed
  34. CLEAR
  35. RETURN
  36.  
  37. PROCEDURE SUBROUTE
  38. WAIT " │╠╨≥╬┤╜¿┴ó, ╟δ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW
  39. RETURN
  40.