home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP6_7.PRG < prev    next >
Encoding:
Text File  |  1994-01-17  |  1.5 KB  |  44 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP6_7.PRG                                           ⌐ª
  3. *⌐ª     Function: ╩╣╙├ BROWSE ├ⁿ┴ε╡─┐Γ╬¼╗ñ│╠╨≥╚²                       ⌐ª
  4. *⌐ª        Proce: EXP6_2.PRG       EXP6_6.PRG                          ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. SET MESSAGE TO 24 CENTER
  8. CLEAR
  9. * ╢¿╥σ╥╗╕÷╔╧╡»╩╜▓╦╡Ñ: mypop
  10. DEFINE POPUP pop6_7 FROM 2,60  MARGIN SCROLL SHADOW;
  11.        COLOR SCHEME 8
  12.  
  13. * ╢¿╥σ╔╧╡»╩╜▓╦╡Ñ pop6_7 ╡─╕≈╫╙╧ε─┌╚▌
  14. DEFINE BAR 1  OF pop6_7 PROMPT "  ┐Γ╬¼╗ñ▓╦╡Ñ  " SKIP
  15. DEFINE BAR 2  OF pop6_7 PROMPT "\-"
  16. DEFINE BAR 3  OF pop6_7 PROMPT "\<1. ╘÷╝╙╝╟┬╝ " MESSAGE "╧≥╩²╛▌┐Γ╓╨╘÷╝╙╝╟┬╝"
  17. DEFINE BAR 4  OF pop6_7 PROMPT "\<2. ╔╛│²╝╟┬╝ " MESSAGE "╔╛│²╩²╛▌┐Γ╓╨▓╗╨Φ╥¬╡─╝╟┬╝"
  18. DEFINE BAR 5  OF pop6_7 PROMPT "\<3. ╨▐╕─╝╟┬╝ " MESSAGE "╨▐╕─╩²╛▌┐Γ╓╨╡─╝╟┬╝"
  19. DEFINE BAR 6  OF pop6_7 PROMPT "\<4. Σ»└└╝╟┬╝ " MESSAGE "Σ»└└╩²╛▌┐Γ╓╨╡─╝╟┬╝"
  20. DEFINE BAR 7  OF pop6_7 PROMPT "\-"
  21. DEFINE BAR 8  OF pop6_7 PROMPT "\<5. ═╦│÷     " MESSAGE "═╦│÷┤╦▓╦╡Ñ, ╖╡╗╪╡≈╙├│╠╨≥"
  22.  
  23. * ╔Φ╢¿▓╦╡Ñ╕≈╫╙╧ε▒╗╤í╘±║≤╓┤╨╨╡─│╠╨≥
  24. ON SELECTION BAR 3  OF pop6_7 DO EXP6_2
  25. ON SELECTION BAR 4  OF pop6_7 DO EXP6_6
  26. ON SELECTION BAR 5  OF pop6_7 DO EXP6_6
  27. ON SELECTION BAR 6  OF pop6_7 DO BROW
  28. ON SELECTION BAR 8  OF pop6_7 DO STOP
  29.  
  30. * ╝ñ╗ε╔╧╡»╩╜▓╦╡Ñ:pop6_7
  31. ACTIVATE POPUP pop6_7
  32. RETURN
  33.  
  34. PROCEDURE BROW
  35. USE PERSONAL
  36. BROWSE REDIT PARTITION 30
  37. RETURN
  38.  
  39. PROCEDURE STOP
  40. CLEAR WINDOWS
  41. DEACTIVATE POPUP pop6_7
  42. RELEASE POPUPS pop6_7
  43. RETURN
  44.