home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_18.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  2.0 KB  |  77 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP5_18.PRG                                          ⌐ª
  3. *⌐ª     Function: ▓╦╡Ñ╤í╧ε╓┤╨╨╠⌡╝■╡─╖╢└².                              ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. SET ESCAPE OFF
  7. CLEAR ALL
  8. CLEAR
  9.  
  10. DEFINE MENU main
  11. DEFINE PAD mypad1 OF main PROMPT "\<A.╗╖╛│╫┤╠¼╔Φ╓├ "
  12. DEFINE PAD mypad2 OF main PROMPT "\<B.┤≥╙í╕≈└α▒¿▒φ "
  13.  
  14. ON PAD mypad1 OF main ACTIVATE POPUP mypop1
  15. ON PAD mypad2 OF main ACTIVATE POPUP mypop2
  16.  
  17. DEFINE POPUP mypop1
  18. DEFINE BAR 1 OF mypop1 PROMPT "\<1.╝∞▓Θ┤≥╙í╗· "
  19. DEFINE BAR 2 OF mypop1 PROMPT "\<2.╔Φ╢¿╧╡═│╩▒╝Σ "
  20. DEFINE BAR 3 OF mypop1 PROMPT "\<3.╧╡═│╔Φ╓├ "
  21. ON SELECTION POPUP mypop1 DO subroute1 WITH BAR()
  22.  
  23. DEFINE POPUP mypop2
  24. DEFINE BAR 1 OF mypop2 PROMPT "\<1.╫╩▓·╕║╒«▒φ "
  25. DEFINE BAR 2 OF mypop2 PROMPT "\<2.╦≡╥µ▒φ    "
  26. DEFINE BAR 3 OF mypop2 PROMPT "\<3.┤½╞▒      "
  27.  
  28. ON SELECTION POPUP mypop2 DO subroute2
  29.  
  30. SET SKIP OF PAD mypad2 OF main !PRINTSTATUS()
  31.  
  32. ACTIVATE MENU main
  33.  
  34. PROCEDURE subroute1
  35. PARAMETER mbar
  36. IF mbar=1
  37.    PRINTSTAT=SKPPAD("main","mypad2")
  38.    DO CASE
  39.    CASE PRINTSTAT
  40.       =detect()
  41.    CASE !PRINTSTATUS()
  42.       SET SKIP OF PAD mypad2 OF main .T.
  43.       =detect()
  44.    OTHERWISE
  45.       @ 24,0 SAY ;
  46.          PADC("<< ┤≥╙í╗·╥╤┤ª╙┌ ON-LINE ╫┤╠¼ >>",80,CHR(156))
  47.       =INKEY(1,"HM")
  48.    ENDCASE
  49. ELSE
  50.    @ 24,0 SAY PADC("<<▒º╟╕, ╔╨╬┤╜¿┴ó>>",80,CHR(156))
  51.    =INKEY(10,"HM")
  52. ENDIF
  53. @ 24,0 CLEAR
  54. FUNCTION detect
  55. SET CURSOR OFF
  56. DO WHILE !PRINTSTATUS()
  57.    @ 24,0 SAY ;
  58.       PADC("<< ╟δ╜½┤≥╙í╗·┤≥┐¬,╩╣╞Σ┤ª╙┌ ON-LINE ╫┤╠¼ "+;
  59.       "╗≥░┤[ESC]╝ⁿ╖┼╞·╔Φ╓├ >>",80,CHR(156))
  60.    IF INKEY()=27
  61.       EXIT
  62.    ENDIF
  63. ENDDO
  64. SET CURSOR ON
  65. IF PRINTSTATUS()
  66.    SET SKIP OF PAD mypad2 OF main .F.
  67.    @ 24,0 CLEAR
  68.    @ 24,0 SAY PADC("<< ┤≥╙í╗·╥╤┤ª╙┌ ON-LINE ╫┤╠¼ >",80,CHR(156))
  69.    =INKEY(1,"HM")
  70. ENDIF
  71. RETURN
  72.  
  73. PROCEDURE subroute2
  74. @ 24,0 SAY PADC("<<▒º╟╕, ╔╨╬┤╜¿┴ó>>",80,CHR(156))
  75. =INKEY(10,"HM")
  76. @ 24,0 CLEAR
  77.