home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP11_6.PRG < prev    next >
Encoding:
Text File  |  1994-01-11  |  1.8 KB  |  85 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP11_6.PRG                                          ⌐ª
  3. *⌐ª     Function: ON KEY LABEL ├ⁿ┴ε╙ª╙├╡─╖╢└².                         ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. SET ESCAPE OFF
  7. DEFINE WINDOW win FROM 20,2 TO 24,77 ;
  8.        FOOTER "ON KEY LABEL ▓Γ╩╘" ;
  9.        TITLE " ╨┼╧ó┤░┐┌ " ;
  10.        DOUBLE ;
  11.        SHADOW ;
  12.        COLOR SCHEME 7
  13. * ╢¿╥σ╣ª─▄╝ⁿ F2,F3,F4,F5 ╓┤╨╨╡─╫╙│╠╨≥
  14. ON KEY LABEL F2 DO subroute1
  15. ON KEY LABEL F3 DO subroute2
  16. ON KEY LABEL F4 DO subroute3
  17. ON KEY LABEL F5 DO subroute4
  18.  
  19. CLEAR
  20. DO WHILE .T.
  21.    @ 1,1 TO 3,78 DOUBLE
  22.    @ 21,1 TO 23,78  PANEL
  23.    @ 22,15 SAY "F2 ╘÷╝╙╝╟┬╝  F3 ╨▐╕─╝╟┬╝  F4 ╔╛│²╝╟┬╝  F5 ┤≥╙í╝╟┬╝"
  24.    @ 2,04 PROMPT "\<1.┤½ ╞▒ ╩² ╛▌"
  25.    @ 2,18 PROMPT "\<2.┐═ ╗º ╩² ╛▌"
  26.    @ 2,32 PROMPT "\<3.╔╠ ╞╖ ╩² ╛▌"
  27.    @ 2,46 PROMPT "\<4.╦░ ╬± ╩² ╛▌"
  28.    @ 2,60 PROMPT "\<5.╘╙ ╧ε ╦╡ ├≈"
  29.    MENU TO choice
  30.    DO CASE
  31.       CASE choice=0
  32.            DO getout
  33.       CASE choice=1
  34.            DO subroute
  35.       CASE choice=2
  36.            DO subroute
  37.       CASE choice=3
  38.            DO subroute
  39.       CASE choice=4
  40.            DO subroute
  41.       CASE choice=5
  42.            DO subroute
  43.    ENDCASE
  44. ENDDO
  45.  
  46. PROCEDURE subroute1
  47. DO subroute
  48. RETURN
  49.  
  50. PROCEDURE subroute2
  51. DO subroute
  52. RETURN
  53.  
  54. PROCEDURE subroute3
  55. DO subroute
  56. RETURN
  57.  
  58. PROCEDURE subroute4
  59. DO subroute
  60. RETURN
  61.  
  62. PROCEDURE subroute
  63. SET CURSOR OFF
  64. ACTIVATE WINDOW win
  65. @ 1,10 SAY " ▒º╟╕! ╔╨╬┤╜¿┴ó "
  66. WAIT " ╟δ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW
  67. DEACTIVATE WINDOW win
  68. SET CURSOR ON
  69. RETURN
  70.  
  71. PROCEDURE getout
  72. STORE "N" TO ans
  73. ACTIVATE WINDOW win
  74. @ 1,10 SAY "╚╖╢¿╩╟╖±═╦│÷?(Y/N) " GET ans PICTURE "!Y"
  75. READ
  76. IF ans="Y"
  77.    CLEAR WINDOWS
  78.    CLEAR ALL
  79.    CLEAR
  80.    CANCEL
  81. ELSE
  82.    DEACTIVATE WINDOW win
  83. ENDIF
  84. RETURN
  85.