home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP13_1.PRG < prev    next >
Encoding:
Text File  |  1993-11-24  |  1.7 KB  |  51 lines

  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP13_1.PRG                                          ⌐ª
  3. *⌐ª     Function: ╫└├µ╕¿╓·╣ñ╛▀╙ª╙├╡─╖╢└².                              ⌐ª
  4. *⌐ª   Creat data: 93.10                                                ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. CLEAR
  8.  
  9. * ╢¿╥σ╥╗╕÷╔╧═╞╩╜╓≈▓╦╡Ñ pop1
  10. DEFINE POPUP pop1 FROM 2,8 ;
  11.        MARGIN ;
  12.        SHADOW ;
  13.        COLOR SCHEME 5
  14. DEFINE BAR 1 OF pop1 PROMPT "    ╓≈  ▓╦  ╡Ñ    " SKIP
  15. DEFINE BAR 2 OF pop1 PROMPT "\-"
  16. DEFINE BAR 3 OF pop1 PROMPT "\<1.╡≈╙├╫└├µ╕¿╓·╣ñ╛▀"
  17. DEFINE BAR 4 OF pop1 PROMPT "\<2.╖╡╗╪ DOS╧╡═│"
  18. ON SELECTION BAR 3 OF pop1 DO CALLDESKTOOL
  19. ON SELECTION BAR 4 OF pop1 QUIT
  20. ACTIVATE POPUP pop1
  21. RETURN
  22.  
  23. PROCEDURE CALLDESKTOOL
  24. * ╢¿╥σ╥╗╕÷╔╧═╞╩╜▓╦╡Ñ pop2
  25. DEFINE POPUP pop2 FROM 5,30 ;
  26.        MARGIN ;
  27.        MULTI ;
  28.        SCROLL ;
  29.        SHADOW ;
  30.        COLOR SCHEME 5
  31. * ╢¿╥σ╫└├µ╕¿╓·╣ñ╛▀╬¬▓╦╡Ñ╡─╤í╧ε
  32. DEFINE BAR 1 OF pop2          PROMPT " ╫└ ├µ ╕¿ ╓· ╣ñ ╛▀" SKIP
  33. DEFINE BAR 2 OF pop2          PROMPT "\-"
  34. DEFINE BAR _MST_FILER OF pop2 PROMPT "\<1. ╬─  ╝■  ╝╨"
  35. DEFINE BAR _MST_CALCU OF pop2 PROMPT "\<2. ╝╞  ╦π  ╞≈"
  36. DEFINE BAR _MST_DIARY OF pop2 PROMPT "\<3. ─Ω  └· /╚╒  ╝╟"
  37. DEFINE BAR _MST_ASCII OF pop2 PROMPT "\<4. ASCII   ┬δ  ▒φ"
  38. DEFINE BAR _MST_SPECL OF pop2 PROMPT "\<5. ╠╪  ╩Γ  ╫╓  ╖√"
  39. DEFINE BAR _MST_CAPTR OF pop2 PROMPT "\<6. ╝⌠  ╠∙  ░σ"
  40. DEFINE BAR _MST_PUZZL OF pop2 PROMPT "\<7. ┼┼  ╫╓  ╙╬  ╧╖"
  41. DEFINE BAR 3 OF pop2          PROMPT "\<8. ═╦  │÷"
  42. ON SELECTION BAR 3 OF pop2 DO stop
  43. ACTIVATE POPUP pop2
  44. RETURN
  45.  
  46. * ═╦│÷╫╙│╠╨≥ stop
  47. PROCEDURE stop
  48. DEACTIVATE POPUP pop2
  49. RELEASE POPUPS pop2
  50. RETURN
  51.